Compucolor.org – Virtual Media

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