Listing of file='CRE8.BAS;01' on disk='vmedia/inventory-sector.ccvf'
2 PLOT 12,3,0,10 5 PRINT "**** NOTICE ****" 6 PRINT "THIS PROGRAM CREATES A DISK FILE NAME: INVFIL " 7 PRINT :INPUT "LOAD DISK TO HAVE NEW FILE ON, HIT RETURN";Z$ 10 DIM D$(25),S$(15) 15 INPUT "DATA FILE NAME ? ";D$ 16 IF LEN (D$)> 25 THEN PRINT "NAME TOO LONG ":GOTO 15 18 INPUT "NUMBER OF RECORDS ";X 20 IF X> 780 THEN PRINT "TOO MANY FOR DISK":GOTO 16 30 S$= " " 35 FILE "T",200 40 RN= 2:Q= 0:R= 0:LS= 0:UC= 0 50 FILE "N","INVFIL.RND;1",X,64,8 60 FILE "R",1,"INVFIL.RND;1",1 70 PUT 1,1;RN,D$[25],Q,R,S$[15],LS,UC 80 FILE "C",1 90 PRINT "*** F I L E C R E A T E D ***" 100 PRINT :INPUT "PUT PROGRAM DISK BACK IN, HIT RETURN";Z$ 110 LOAD "MENU.BAS":RUN 200 PLOT 12,3,0,10 210 PRINT " A DATA FILE ALREADY EXISTS ON THIS DISK" 220 PRINT "YOU MAY DELETE OLD FILE, OR USE ANOTHER DISK" 225 FOR DL= 1 TO 1000:NEXT 230 GOTO 110