Listing of file='ARRAY.BAS;01' on disk='vmedia/stamp_price_lists-sector.ccvf'
50 CLEAR 1000 100 DIM A(300) 150 DIM W(300) 200 INPUT "FILENAME?";F$ 250 FILE "R",1,F$,5 300 FOR I= 1TO 300 350 GET 1,I;AC$[3] 400 W(I)= I 425 AC= VAL (AC$) 450 A(I)= AC 500 PRINT W(I),A(I) 550 NEXT I 570 PRINT "INSERT DISK TO SAVE A.ARY. THEN TYPE: CONT"; 575 END 600 SAVE "A.ARY;1" 900 END 950 GOTO 50