;;; -*- Mode:LISP; Package:INVENTS; Fonts:(TR12BI); Base:10; Readtable:CL -*-

(in-package 'invents)

(require 'inventory "INVENTORY")

(setq *verbose* t)

;;; Tapes - raw

(define-item tape-2400 
  "2400' mag tape"
  '$class 'blank-tapes
  '$material 15.0)

(define-item tape-1200 
  "1200' mag tape"
  '$class 'blank-tapes
  '$material 12.0)

(define-item tape-600 
  "600' mag tape"
  '$class 'blank-tapes
  '$material 15.0)

;;; Tapes - duplicated

(define-item 3band 
  "3.0 LISP Band Tape"
  '$class 'tapes
  '$partnum '3144-0000
  '$labor 5)

(define-item 3files 
  "3.0 LISP Files Tape"
  '$class 'tapes
  '$partnum '3146-0000
  '$labor 5)

(define-item 3patch 
  "3.1 Patch Update"
  '$class 'tapes
  '$partnum '3328-0000
  '$labor 5)

(define-item 3tcp 
  "3.0 TCP/IP"
  '$class 'tapes
  '$partnum '3166-0000
  '$labor 5)

(define-item 3laser1+ 
  "3.0 Laser1+"
  '$class 'tapes
  '$partnum '3299-0000
  '$labor 5)

(define-item 3vista 
  "3.0 Vista"
  '$class 'tapes
  '$partnum '3231-0000
  '$labor 5)

(define-item 3iris 
  "3.0 Iris"
  '$class 'tapes
  '$partnum '3284-0000
  '$labor 5)

(define-item 3boot 
  "3.0 Boot (no Unix)"
  '$class 'tapes
  '$partnum '3143-0000
  '$labor 5)

(define-item sys5boot 
  "3.0 Boot (w/Unix)"
  '$class 'tapes
  '$partnum '2980-0000
  '$labor 5)

(define-item sys5usr 
  "Sys5 /usr files"
  '$class 'tapes
  '$partnum '2981-0000
  '$labor 5)

;(define-item v7boot 
;  "3.0 Boot (V7 Unix)"
;  '$class 'tapes
;  '$partnum '3139-0000
;  '$labor 5)
  
;;; Manuals

(define-item lisp-docs 
   "3.0 LISP U/G manuals"
     '$class 'documentation)

(define-item 3vista-docs
   "3.0 Vista U/G manuals"
     '$class 'documentation)

(define-item 3iris-docs
   "3.0 Iris U/G manuals"
     '$class 'documentation)

(define-item 3tcp-docs
   "3.0 TCP U/G manuals"
     '$class 'documentation)

(define-item 3laser1+-doc
   "3.0 Laser1+ U/G manual"
     '$class 'documentation)

(define-item 3patch-doc
   "3.1 Patch U/G manual"
     '$class 'documentation
     '$material 2.0)

;;; Assemblies

(define-assembly 3lisp "3.0 LISP Kit (no Unix)"
     lisp-docs 3boot 3band 3files)

(define-assembly 3lisp-sys5 "3.0 LISP Kit (w/Unix)"
     lisp-docs sys5boot sys5usr
     3band 3files)

(define-assembly 3vistakit "3.0 Vista U/G Kit"
     3vista 3vista-docs)

(define-assembly 3iriskit "3.0 Iris U/G Kit"
     3iris 3iris-docs)

;;; Purchase Items

(define-purchase-item tm-3lisp "T&M media 3.0 LISP" 500 3lisp)
(define-purchase-item tm-3lisp-sys5 "T&M media 3.0 LISP/Sys5"
   600 3lisp-sys5)

(define-purchase-item tms-3lisp "T&M warranty 3.0 LISP"
   1000 3lisp)

(define-purchase-item tms-3lisp-sys5 "T&M warranty 3.0 LISP/Sys5"
   1200 3lisp-sys5)

(define-purchase-item c-3lisp "CONT 3.0 LISP" 250 3lisp)
(define-purchase-item c-3lisp-sys5 "CONT 3.0 LISP" 300 3lisp-sys5)

;;; Inventory

(define-inventory release3
  tape-2400 tape-1200 tape-600
  3band 3files
  3boot sys5boot sys5usr
  ;;v7boot
  lisp-docs
  3tcp 3tcp-docs
  3vista 3vista-docs
  3iris 3iris-docs
  3laser1+ 3laser1+-docs
  3patch 3patch-doc
  )

(define-inventory shipped)

;; Starting tape inventory

(get-free tape-2400  25)
(get-free tape-1200  55)
(get-free tape-600   40)

(get-free 3band 22)
(get-free 3files 20)
(get-free 3boot 10)
(get-free sys5boot 5)
(get-free sys5usr 5)
(get-free 3tcp 3)
(get-free 3laser1+ 18)
(get-free 3vista 6)

;;; Buying tapes

;;; Making tapes

(build 10 3iris tape-600)

(build 10 sys5boot tape-1200)
(build 10 sys5usr tape-1200)

(build 5 3band tape-2400)
(build 5 3files tape-2400)

;;; Buying documentation

(get-free lisp-docs 1)
(get-free 3tcp-docs 2)

(buy lisp-docs 25 0 0 1061)
(buy 3tcp-docs 15 0 0 65)
(buy 3vista-docs 10 0 0 108)
(buy 3iris-docs 10 0 0 21)
;(buy 3laser1+-doc )
;(buy 3patch-doc 20)