10  COM D$[45]
15  COM H
20  COM A$[15]
25  COM R
30  H=0
40  REM *** REV 1.3 19-FEB-80 ***
50  REM- *** WRITTEN BY BOB ANDERSON FOR CRISIS COMPUTER CORP. 7/79 ***
60  REM ***REVISED 8/79,BA
70  REM***REVISED3/80,BA***
75  REM***revised to serial file structure and broken to 2 slaves (sera &
76  REM***serb by bob anderson, 7/81.
80  REM *** MOD ***
90  REM *** ALAN DE MARTINO ***
100  REM
110  REM FILE REQUEST ADDED
115  REM***REVISED 5/21/81 =>DATE CHANGED TO PO # & PO# SEARCH ADDED, BA
120  FILES *,*,*
130  DIM S$[20],T$[20]
140  DIM M$[20]
150  DIM M1$[20]
160  DIM Y$[20],Z$[15],P$[20],U$[15],W$[15],E$[10]
170  DIM I$[7]
180  DIM X$[10]
190  DIM L$[5]
200  DIM Q[12],N$[7],H$[7]
210  DIM B$[8],C$[2],A1$[12]
220  REM- *** MASTER CONTROL FOR PROGRAM FUNCTIONS. ***
230  PRINT "THIS PROGRAM WILL LIST AND MAINTAIN THE INVENTORY."
240  PRINT 
250  PRINT "PLEASE SELECT THE FUNCTION #"
260  PRINT "1-ADD NEW ITEM                 2-DELETE ITEM"
270  PRINT "3-LIST FILE                    4-SEARCH/INV#"
280  PRINT "5-SEARCH/MODEL                 6-SEARCH/MFG"
290  PRINT "7-SEARCH/PO#                   8-TOTALS"
300  PRINT "9-FILE MAINT.                 10-NEW INVENTORY FILE"
305  PRINT "           11-SORT BY INV #"
310  PRINT "           12-END OPERATION"
320  IF H=1 THEN 420
330  PRINT LIN(2)"NAME OF INVENTORY FILE :";
340  ENTER 255,X,A$
350  IF X=-256 THEN 340
360  ASSIGN A$,1,R
370  IF R=3 THEN 330
380  PRINT LIN(2)
390  PRINT "TYPE 000 TO BACK LINE 1 INSTRUCTION."
400  PRINT LIN(2)
420  PRINT 
430  PRINT "COMMAND ";
440  INPUT X
450  GOTO X OF 500,510,520,530,540,550,560,570,580,330,600,999
460  GOTO 240
500  CHAIN R,"*SERA",470
502  PRINT "Chain failed; Error # ";R
504  GOTO 230
510  CHAIN R,"*sera",2090
512  PRINT "Chain failed: Error # ";R
514  GOTO 230
520  CHAIN R,"*SERA",2560
522  PRINT "Chain failed: error # ";R
524  GOTO 230
530  CHAIN R,"*serb",3450
532  PRINT "Chain failed: Error # ";R
534  GOTO 230
540  CHAIN R,"*serb",3680
542  PRINT "chain failed: Error # ";R
544  GOTO 230
550  CHAIN R,"*serb",4140
552  PRINT "Chain failed: # ";R
554  GOTO 230
560  CHAIN R,"*SERB",5630
562  PRINT "Chain failed: Error # ";R
564  GOTO 230
570  CHAIN R,"*SERB",7120
572  PRINT "Chain failed: Error # ";R
574  GOTO 230
580  CHAIN R,"*SERB",4890
582  PRINT "Chain failed: Error # ";R
584  GOTO 230
600  CHAIN R,"*SERA",815
602  PRINT "Chain failed: Error # ";R
604  GOTO 230
999  END 
