Inventory

  10 DIM A$(100,32)
  11 LET R1=0
  12 LET Z$="%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-%-"
  20 FAST 
  25 CLS 
  30 POKE 16418,0
  40 FOR N=1 TO 96
  50 PRINT "% % % % % % % % ";
  60 NEXT N
  70 PRINT AT 2,6;" INVENTORY PROGRAM "
  80 PRINT AT 5,1;"%T%O% %E%N%T%E%R% %I%T%E%M%S";TAB 26;"%-% %1"
  90 PRINT AT 7,1;"%T%O% %S%E%E% %A%L%L% %D%A%T%A";TAB 26;"%-% %2"
 100 PRINT AT 9,1;"%T%O% %S%A%V%E% %D%A%T%A% %O%N% %T%A%P%E";TAB 26;"%-% %3"
 110 PRINT AT 11,1;"%T%O% %C%L%E%A%R% %A%L%L% %D%A%T%A";AT 11,26;"%-% %4"
 180 PRINT AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:";AT 22,4;"ENTER ONE OF ABOVE :::";AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:"
 190 SLOW 
 200 LET B$=INKEY$
 210 IF B$="" THEN GOTO 180
 220 IF CODE B$<29 OR CODE B$>32 THEN GOTO 180
 230 FAST 
 240 POKE 16418,2
 250 CLS 
 260 GOTO 1000*VAL B$
\n1000 FOR N=R1+1 TO 100
\n1010 GOSUB 9000
\n1020 PRINT "WHAT IS THE NAME OR DESCRIPTION"
\n1030 SCROLL 
\n1040 PRINT "OF ITEM NO. ";N;" (8 CHAR. MAX.)"
\n1050 SCROLL 
\n1055 SLOW 
\n1060 INPUT B$
\n1065 FAST 
\n1070 IF B$="" THEN GOTO 1500
\n1080 LET A$(N, TO 8)=B$
\n1090 PRINT A$(N)
\n1100 GOSUB 9000
\n1110 SCROLL 
\n1120 PRINT "WHAT IS THE PART NO. (6 CHAR MAX"
\n1130 SCROLL 
\n1135 SLOW 
\n1140 INPUT B$
\n1142 FAST 
\n1145 IF LEN B$>6 THEN GOTO 1135
\n1150 LET A$(N,10 TO 15)=B$
\n1160 PRINT A$(N)
\n1170 GOSUB 9000
\n1190 PRINT "COST PER UNIT?"
\n1200 SCROLL 
\n1205 SLOW 
\n1210 INPUT B$
\n1212 FAST 
\n1214 IF VAL B$>999.99 THEN GOTO 8300
\n1216 GOSUB 8000
\n1218 IF LEN B$<6 THEN GOSUB 8100
\n1220 SCROLL 
\n1230 LET A$(N,17 TO 22)=B$
\n1240 PRINT A$(N)
\n1250 GOSUB 9000
\n1260 PRINT "ITEMS PER UNIT?"
\n1270 SCROLL 
\n1275 SLOW 
\n1280 INPUT B$
\n1285 FAST 
\n1290 IF LEN B$>4 THEN GOTO 1275
\n1300 SCROLL 
\n1310 IF LEN B$<4 THEN GOSUB 8200
\n1320 LET A$(N,24 TO 27)=B$
\n1330 PRINT A$(N)
\n1340 GOSUB 9000
\n1350 PRINT "UNITS IN STOCK?"
\n1355 SLOW 
\n1360 INPUT B$
\n1365 FAST 
\n1370 IF LEN B$>4 THEN GOTO 1355
\n1374 IF LEN B$=4 THEN GOTO 1390
\n1376 FOR I=1 TO 4-LEN B$
\n1380 LET B$=" "+B$
\n1385 NEXT I
\n1390 SCROLL 
\n1400 LET A$(N,29 TO 32)=B$
\n1410 PRINT A$(N)
\n1420 NEXT N
\n1500 FAST 
\n1510 CLS 
\n1520 LET R1=N-1
\n1530 SLOW 
\n1540 GOTO 20
\n1999 STOP 
\n2000 FAST 
\n2010 CLS 
\n2020 POKE 16418,0
\n2030 FOR N=1 TO 192
\n2040 PRINT "% % % % ";
\n2050 NEXT N
\n2060 PRINT AT 2,7;" INVENTORY DATA "
\n2070 PRINT AT 5,1;"%T%O% %S%E%E% %T%O%T%A%L% %I%N%V%E%N%T%O%R%Y";TAB 28;"%-% %1"
\n2080 PRINT AT 7,1;"%T%O% %C%H%A%N%G%E% %I%N%V%E%N%T%O%R%Y";TAB 28;"%-% %2"
\n2090 PRINT AT 9,1;"%T%O% %S%E%E% %I%T%E%M% %D%A%T%A";TAB 28;"%-% %3"
\n2100 PRINT AT 11,1;"%T%O% %E%D%I%T% %D%A%T%A% %I%T%E%M%S";TAB 28;"%-% %4"
\n2180 PRINT AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:";AT 22,4;"ENTER ONE OF ABOVE :::";AT 22,4;"%E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:"
\n2190 SLOW 
\n2200 LET B$=INKEY$
\n2210 IF B$="" THEN GOTO 2180
\n2220 IF CODE B$<29 OR CODE B$>32 THEN GOTO 2180
\n2230 FAST 
\n2240 POKE 16418,2
\n2250 CLS 
\n2260 GOTO (VAL B$*200)+2100
\n2300 SLOW 
\n2310 FOR N=1 TO R1
\n2320 SCROLL 
\n2340 SCROLL 
\n2350 PRINT "NAME    PART NO. COST IT/UN IN/S" 
\n2360 SCROLL 
\n2365 PRINT Z$
\n2370 SCROLL 
\n2380 PRINT A$(N)
\n2382 SCROLL 
\n2384 SCROLL 
\n2386 SCROLL 
\n2388 NEXT N
\n2390 PRINT "PRESS ENTER TO CONTINUE :::"
\n2392 INPUT B$
\n2395 GOTO 20
\n2500 PRINT AT 10,0;"WHAT IS THE STOCK NO. OF ITEM?"
\n2505 SLOW 
\n2510 INPUT B$
\n2515 FAST 
\n2520 FOR N=1 TO R1
\n2525 FAST 
\n2530 IF A$(N,10 TO 9+LEN B$)=B$ THEN GOTO 2560
\n2540 NEXT N
\n2542 CLS 
\n2544 GOSUB 9000
\n2546 PRINT "STOCK NO. NOT IN FILE :::"
\n2547 GOSUB 9000
\n2548 GOSUB 9800
\n2550 GOTO 20
\n2660 FAST 
\n2662 CLS 
\n2664 GOSUB 9000
\n2666 PRINT "NAME    PART NO. COST IT/UN IN/S" 
\n2668 SCROLL 
\n2670 PRINT Z$
\n2672 SCROLL 
\n2674 PRINT A$(N)
\n2676 GOSUB 9000
\n2678 PRINT AT 21,0;"IS THIS THE CORRECT STOCK NO.?"
\n2679 SLOW 
\n2680 INPUT Y$
\n2682 FAST 
\n2683 IF Y$(1)="N" THEN GOTO 2540
\n2684 SCROLL 
\n2685 SCROLL 
\n2686 PRINT "ADD TO (1) OR TAKE FROM (2)?"
\n2687 SLOW 
\n2688 INPUT AT
\n2689 FAST 
\n2690 IF AT>2 OR AT<1 THEN GOTO 2687
\n2695 GOTO 8400
\n2700 CLS 
\n2705 PRINT AT 10,1;"WHAT IS THE STOCK NO.?"
\n2710 SLOW 
\n2715 INPUT B$
\n2720 FAST 
\n2725 IF LEN B$>6 THEN GOTO 2710
\n2730 FOR N=1 TO R1
\n2735 IF A$(N,10 TO 9+LEN B$)=B$ THEN GOTO 2760
\n2740 NEXT N
\n2745 SCROLL 
\n2750 PRINT TAB 16-((LEN B$)/2);B$
\n2755 GOTO 2544
\n2760 CLS 
\n2765 PRINT ,,"STOCK NAME -";TAB 24;A$(N, TO 8)
\n2770 PRINT ,,"STOCK NO. -";TAB 26;A$(N,10 TO 15)
\n2775 PRINT ,,"UNIT COST -";TAB 26;A$(N,17 TO 22)
\n2780 PRINT ,,"ITEMS/UNIT -";TAB 28;A$(N,24 TO 27)
\n2785 PRINT ,,"UNITS IN STOCK -";TAB 28;A$(N,29 TO 32)
\n2790 PRINT ,,"COST OF TOTAL UNITS - $";
\n2795 LET B=(VAL A$(N,17 TO 22)*VAL A$(N,29 TO 32))
\n2800 LET B$=STR$ B
\n2805 GOSUB 8000
\n2810 PRINT B$
\n2815 GOSUB 9800
\n2820 GOTO 20
\n2900 CLS 
\n2905 PRINT AT 10,1;"WHAT IS THE STOCK NO.?"
\n2910 SLOW 
\n2915 INPUT B$
\n2920 FAST 
\n2925 IF LEN B$>6 THEN GOTO 2910
\n2930 FOR N=1 TO R1
\n2935 IF A$(N,10 TO 9+LEN B$)=B$ THEN GOTO 2950
\n2940 NEXT N
\n2945 GOTO 2745
\n2950 CLS 
\n2955 PRINT ,,"NAME    PART NO. COST IT/UN IN/S" 
\n2960 PRINT Z$;A$(N)
\n2965 PRINT ,,,,"<1> NAME","<3> COST","<2> STK. NO.","<4> ITEMS/UNIT",,,,"CHOOSE ONE?"
\n2967 SLOW 
\n2970 INPUT B$
\n2972 FAST 
\n2974 IF CODE B$<29 OR CODE B$>32 THEN GOTO 2967
\n2975 GOTO 8500+(100*VAL B$)
\n2999 GOTO 2999
\n3000 FAST 
\n3002 CLS 
\n3006 PRINT AT 10,10;"FILE NAME?"
\n3010 SLOW 
\n3020 INPUT C$
\n3030 PRINT AT 12,0;"PREPARE THE RECORDER AND THEN   PRESS ENTER :::"
\n3040 INPUT B$
\n3050 SAVE C$
\n3060 FAST 
\n3070 CLS 
\n3080 GOTO 20
\n4000 FAST 
\n4010 CLS 
\n4020 RUN 
\n8000 IF B$(LEN B$-1)="." THEN LET B$=B$+"0"
\n8010 IF B$(LEN B$-2)<>"." THEN LET B$=B$+".00"
\n8020 RETURN 
\n8100 FOR I=1 TO 6-LEN B$
\n8110 LET B$=" "+B$
\n8120 NEXT I
\n8130 RETURN 
\n8200 FOR I=1 TO 4-LEN B$
\n8210 LET B$=" "+B$
\n8220 NEXT I
\n8230 RETURN 
\n8300 SCROLL 
\n8310 SCROLL 
\n8320 PRINT "COST CANNOT EXCEED 999.00"
\n8340 SCROLL 
\n8350 GOTO 1170
\n8400 SCROLL 
\n8410 SCROLL 
\n8420 IF AT=1 THEN GOTO 8500
\n8430 PRINT "HOW MANY TO BE TAKEN AWAY?"
\n8435 SLOW 
\n8440 INPUT AT
\n8445 FAST 
\n8450 LET TA=VAL A$(N,29 TO 32)
\n8455 LET TA=TA-AT
\n8460 LET B$=STR$ TA
\n8470 IF LEN B$<4 THEN GOSUB 8200
\n8472 LET A$(N,29 TO 32)=B$
\n8475 SCROLL 
\n8480 SCROLL 
\n8481 PRINT "NAME    PART NO. COST IT/UN IN/S" 
\n8482 SCROLL 
\n8483 PRINT Z$
\n8484 SCROLL 
\n8485 PRINT A$(N)
\n8486 GOSUB 9000
\n8487 GOTO 2390
\n8500 PRINT "HOW MANY TO BE ADDED?"
\n8510 SLOW 
\n8520 INPUT AT
\n8525 FAST 
\n8530 LET TA=VAL A$(N,29 TO 32)
\n8535 LET TA=TA+AT
\n8540 GOTO 8460
\n8600 PRINT ,,"WHAT IS THE NEW NAME?"
\n8610 SLOW 
\n8620 INPUT B$
\n8630 FAST 
\n8640 IF LEN B$>8 THEN GOTO 8610
\n8650 LET A$(N, TO 8)=B$
\n8660 PRINT ,,"NAME    PART NO. COST IT/UN IN/S";Z$;A$(N) 
\n8670 GOSUB 9800
\n8680 GOTO 20
\n8700 PRINT ,,"WHAT IS THE NEW STOCK NO.?"
\n8710 SLOW 
\n8720 INPUT B$
\n8730 FAST 
\n8740 IF LEN B$>6 THEN GOTO 8710
\n8750 LET A$(N,10 TO 15)=B$
\n8760 GOTO 8660
\n8800 PRINT ,,"WHAT IS THE NEW COST?"
\n8810 SLOW 
\n8820 INPUT B$
\n8830 FAST 
\n8840 IF LEN B$>6 THEN GOTO 8810
\n8842 GOSUB 8000
\n8844 IF LEN B$<6 THEN GOSUB 8100
\n8850 LET A$(N,17 TO 22)=B$
\n8860 GOTO 8660
\n8900 PRINT ,,"WHAT IS THE NEW AMOUNT OF ITEMS PER UNIT?"
\n8910 SLOW 
\n8920 INPUT B$
\n8930 FAST 
\n8940 IF LEN B$>4 THEN GOTO 8910
\n8945 IF LEN B$<4 THEN GOSUB 8200
\n8950 LET A$(N,24 TO 27)=B$
\n8960 GOTO 8660
\n9000 FOR I=1 TO 10
\n9010 SCROLL 
\n9020 NEXT I
\n9030 RETURN 
\n9800 PRINT AT 21,0;"PRESS ENTER TO CONTINUE :::"
\n9810 INPUT B$
\n9820 CLS 
\n9830 RETURN 
\n9998 SAVE "INVENTOR%Y"
\n9999 RUN