1 'INVCRE.BA 10 CLS 20 MAXFILES=2:CLEAR 500,61788 30 RUNM"UPC 40 DEFSTR C,D,E,K 50 E=CHR$(27) 60 CLS:BEEP:PRINT@9,E;"p";" Simple Inventory System ";E;"q" 70 PRINT@83,E;"p";" Press ";:PRINT@95," Action ";E;"q" 80 PRINT@125," 1...Create Inventory File" 90 PRINT@165," 2...Add to Existing Inventory File" 100 PRINT@206,"3...Quit" 110 K=INKEY$:IFLEN(K)=0THEN110 120 A=ASC(K):A=A-48:IFA<1ORA>3 THEN BEEP:GOTO 110 130 ONAGOTO150,290,140 140 CLOSE:CALL 61807:MENU 150 CLS 160 PRINT@82,"This will erase any existing inventory" 170 PRINT@122,"file that is present." 180 PRINT@206,E;"p";" Press Letter C to continue " 190 PRINT@283," Press Letter M to return to MENU ";E;"q"; 200 K=INKEY$:IFLEN(K)=0THEN200 210 IFK="M"ORK="m"THENGOTO60 220 IFK="C"ORK="c"THEN 230 ELSEBEEP:GOTO200 230 ' 240 OPEN "WAND:" FOR INPUT AS 1 250 OPEN "INVTRY.DO" FOR OUTPUT AS 2 260 CLS:PRINT@9,E;"p";" Build Inventory File ";E;"q" 270 GOSUB 350 280 CLOSE:GOTO60 290 CLS 300 OPEN "WAND:" FOR INPUT AS 1 310 OPEN "INVTRY.DO" FOR APPEND AS 2 320 PRINT@9,E;"p";" Add to Inventory File ";E;"q" 330 GOSUB 350 340 CLOSE:GOTO60 350 PRINT@83,E;"p";" Scan Item Now ";E;"q" 360 LINE INPUT #1,C 370 PRINT@123,C 380 PRINT@203,E;"p";" Description (Type end to quit) ";E;"q" 390 LINE INPUT D 400 IF D="END" OR D="end" THEN RETURN 410 PRINT#2,C;",";D 420 PRINT@120,E;"K":PRINT@240,E;"K" 430 GOTO 360