Inventory

0 REM                                                         INVENTORY                       WRITTEN BY KRISTIAN BOISVERT    ©1986 BYTE POWER                     
    1 
    2 REM                                                         PRINT DRIVER SHOULD BE BETWEEN  30000 & 49999 OR BETWEEN 58000  & 65535!                            
    9 CLEAR 49999
   10 PRINT AT 0,0;: RANDOMIZE USR 50900
   20 GO TO PEEK 65535
   50 REM LOAD
   55 GO SUB 8000
   60 LOAD A$CODE 55213
   70 CLS : PRINT AT 0,0;: RANDOMIZE USR 51903
   75 GO TO PEEK 65535
  100 REM SAVE
  110 GO SUB 8000
  120 IF A$="" THEN GO TO 110
  130 SAVE A$CODE 55213,2738
  140 PRINT AT 21,0;"REWIND TAPE TO VERIFY ";A$: VERIFY A$CODE 
  150 GO TO 70
  200 REM QUIT
  210 CLEAR 65535: NEW 
 8000 REM GET STRING
 8010 INPUT "FILE NAME:"; LINE A$: IF LEN A$>10 THEN GO TO 8010
 8020 RETURN 
 9000 INK 0: PAPER 7: BORDER 7: CLS : PRINT AT 8,11;"INVENTORY";AT 10,2;"WRITTEN BY KRISTIAN BOISVERT";AT 12,8;"©1986 BYTE POWER";AT 20,0;"STILL LOADING...": INK 7: PRINT AT 15,0;: LOAD ""CODE : INK 0
 9010 IF PEEK 23681=0 THEN PRINT AT 15,0;: LIST 9999: STOP 
 9020 GO TO 10
 9999 SAVE "INVENTORY" LINE 9000: SAVE "INVENTORY"CODE 5E4,5213: VERIFY "INVENTORY": VERIFY "INVENTORY"CODE