Vector Basic Interpreter Basic 80 Reference Manual - page 152
of
190
670 RETURN
680 REM DISPLAY
ITEMS
BELOW
REORDER
LEVEL
690 FOR
I=1 TO
100
710 GET.1,I
720 IF CVI(Q$) THEN PRINT 0$;" QUANTITY";CVI(Q$) TAB(50) If REORDER LEVEL"; CVI (R$) 730 NEXT I 740 RETURN 840 INPUT "PART NUMBER";PART% 850 IF(PART%<1)OR(PART%>100) THEN PRINT "BAD PART NUMBER":GOTO 840 ELSE GETt1,PART%:RETURN 890 END 900 REM INITLALIZE 910 INPUT "ARE YOU SURE";B$:IF B$<>"Y" THEN RETURN 920 LSET F$=CHR$(255) 930 FOR I=1 TO 100 940 POT.1,I 950 NEXT I 960 RETORN