Listing of file='FILECR.BAS;01' on disk='vmedia/chip_107-sector.ccvf'
5 PLOT 12:PRINT "-------------------- REMOVE PROGRAM DISK ----------------------":PRINT 6 PRINT " INSERT DATA DISK":PRINT :PRINT 7 INPUT " HIT RETURN TO CONTINUE : ";X 8 PLOT 12:PRINT :PRINT :PRINT :PRINT 9 PRINT 10 PRINT " CAUTION : THIS IS THE FILE CREATION PROGRAM IT" 15 PRINT " SETS UP 768 RECORDS FOR INV. DATA AND" 17 PRINT " IS TO BE RUN ONLY ON BLANK INV. DATA DISKS." 18 PRINT 20 INPUT " HIT RETURN TO CONTINUE, M TO RETURN TO MENU ";X$ 22 IF X$= "M"THEN 4080 23 FOR I= 1TO 5:PRINT :NEXT I:PRINT " THIS WILL TAKE A WHILE....." 25 FILE "N","NOITEM",1,128,1:FILE "R",2,"NOITEM",1:NU= 0:PUT 2,1;NU:FILE "C",2 30 FILE "N","INV",768,64,48 35 FILE "R",1,"INV",1 40 C= 0:D= 0:L= 0:H= 0:S= 0:P= 0 45 FOR M= 1TO 768 50 PUT 1,M;N$[10],C,V$[10],E$[12],D,L,H,S,A$[8],P 60 NEXT 65 FILE "C",1 100 PRINT :PRINT :PRINT " 768 RECORDS HAVE BEEN CREATED " 110 FOR I= 1TO 1000:NEXT I 4080 PLOT 12:PRINT :PRINT "-------------------- INSERT INV. PROGRAM DISK -----------------" 4085 PRINT 4090 INPUT " HIT RETURN TO CONTINUE : ";X 5000 LOAD "MENU;1":RUN