Listing of file='PRINT4.BAS;01' on disk='vmedia/stamp_price_lists-sector.ccvf'
100 REM READS AND DISPLAYS RANDOM FILE 150 REM OF 42 BYTE RECORDS. 200 CLEAR 250 250 DIM A(300) 300 DIM A$(80) 350 PLOT 17 400 INPUT "FILENAME?";F$ 450 FILE "R",1,F$,5 500 INPUT "ASC NUMBER ACCESS? (N OR Y<RETN>)";AC$ 550 IF AC$= "N"THEN 850 600 LOAD "A.ARY" 650 INPUT "ASC NUMBER OF FIRST RECORD TO PRINT:";AC 700 INPUT "ASC NUMBER OF LAST RECORD TO PRINT:";AL 750 GOSUB 1950 800 GOTO 950 850 INPUT "WAPEX NUMBER OF FIRST RECORD TO PRINT:";WN 900 INPUT "NUMBER OF THE LAST RECORD: ";R 950 PRINT 1000 PRINT " WAN ASC";TAB( 34);"MUH F.USED" 1050 PRINT 1100 FOR I= WNTO R 1150 GET 1,WN;A$[42] 1200 Z$= MID$ (A$,35,1) 1250 IF Z$= "-"THEN 1450 1300 PLOT 18 1350 WN$= STR$ (WN) 1400 PRINT ""WN$;"";TAB( 5);A$ 1450 WN= WN+ 1 1500 NEXT I 1550 PLOT 19 1600 PRINT 1650 PRINT "FURTHER PRINT OUT REQUIRED"; 1700 PLOT 18 1750 INPUT B$ 1800 IF B$= "Y"THEN 500 1850 FILE "C",1 1900 END 1950 IF AC< ALTHEN 2100 2000 PRINT "LAST NO. MUST BE > FIRST!" 2050 GOTO 650 2100 FOR I= 1TO 300 2150 IF AC< = A(I)THEN 2250 2200 NEXT I 2250 WN= I 2300 PRINT WN; 2350 FOR J= WNTO 300 2400 IF AL< = A(J)THEN 2500 2450 NEXT J 2500 R= J 2550 PRINT R 2600 RETURN