AT&T 6300 Programmer's Manual page 120

Disk File Handling
4-36
630 Q% =Q%-S%
640 IF (1% = <CVI[RS] THEN PRINT "QUANTITY NOW";Q%;
" REORDER LEVEL";CVI[RS]
650 LSET QS=MKI$[Q%]
660 PUT #1.!JART%
670 RETURN
680 REM DISPLAY ITEMS BELOW REORDER LEVEL
690 FOR 1=1 TO 100
710 GET #1.1
715 IF ASC [FS] = 255 THEN 730
720 IF CVI[QS]<CVI[RS] THEN PFlINT DS; "QUANTITY";
CVI[QS] TAB[50] "REORDER LI;VEL";CVI[RS]
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:
GET #1.PART%:RETURN
890 END
900 REM INITIALIZE FILE
910 INPUT "ARE YOU SURE";BS:IF BS "Y" THEN RETURN
920 LSET FS = CHRS[255]
930 FOR 1=1 TO 100
940 PUT #1.1
950 NEXT I
960 RETURN