10REM ISSUE 32 VERSION BY C.J.Richard
son for 8-Bit Software
20REM To create an ADFS version of th
e hints and tips disc
30REM Save Reed into DIR $
40REM *CDIR $.0
50REM *CDIR $.2
60REM *OPT 4 3
70REM*BUILD !BOOT CHAIN"Reed" ESCAP
E
80REM Copy hints 1 to 99 and INDEX0 t
o 5 into DIR 0
90REM Copy hints 100 to 206 into DIR
2
100DEFFNS="Reed"
110A%=0:Y%=0:SYS%=USR&FFDA MOD &100
120ONERROR VDU3:REPORT:PRINTERL:PRINT"
Press a key to continue. E to end.":IF I
NSTR("Ee",GET$) END
130MODE3
140PRINT''"Printout of Hints and Tips.
"
150PRINT'"This program will display al
l of the hints files on BBC-24."''
160PRINT"1. View/Print All"
170PRINT"2. View All With Print Option
on Each File"
180PRINT"3. Selective View/Printout"
190*FX21
200B$=GET$
210IF B$="3":PROCsel
220IFB$="1" PRINT'"To Printer Y/N?":IF
INSTR("Yy",GET$):VDU2 ELSE PRINT'"Hold
shift to scroll the text"':VDU14
230IF SYS%=8:OSCLI"DIR $.0" ELSE OSCLI
"DR.0"
240REPEAT
250READ A$
260*FX21
270IF B$="2":VDU3:PRINT''"Printout of
";A$;"?"'':IF INSTR("Yy",GET$):VDU2
280IF SYS%=8:IF A$="100`102":*DIR $.2
290IF SYS%=4:IF A$="100`102":*DR.2
300REM PRINT''"*TYPEing ";A$''
310OSCLI"TYPE "+A$
320UNTIL A$="205`206"
330VDU3
340END
350DEFPROCsel
360REPEAT
370CLS
380*.
390PRINT'"Enter:"'"0. Change to direct
ory/drive 0"
400PRINT"2. Change to directory/drive
2"
410PRINT"OR Enter filename to print"
420PRINT"Then press RETURN"
430*FX21
440INPUT A$
450IF LENA$=1:IF SYS%=8:OSCLI"DIR $."+
A$
460IF LENA$=1:IF SYS%=4:OSCLI"DR."+A$
470*FX21
480IF LENA$<>1:PRINT"To Printer Y/N?":
IF INSTR("Yy",GET$):VDU2 ELSE IF LENA$<>
1:VDU14:PRINT'"PRESS SHIFT TO SCROLL TEX
T"''
490IF LENA$<>1:OSCLI"TYPE "+A$
500VDU3,15
510IFLEN A$<>1:PRINT'"Press a key":REP
EATUNTILGET
520UNTILFALSE
530DATAINDEX0,INDEX1,INDEX2,INDEX3,IND
EX4,INDEX5
540DATA001`010,011`013,014`016,017`020
,021`027,028`031,032`037,038`040,041`046
,047`051,052`057,058`063,064`066,067`068
,069`071,072`074,075`079,080`083,084`086
,087`090
550DATA091`092,093`094,095`097,098`099
,100`102,103`104,105`107,108`111,112`114
,115`116,117`120,121`124,125`129,130`134
,135`138,139`143,144`148,149`153,154`156
,157`159,160`162,163`163,164`170,171`174
,175`178,179`181,182`185
560DATA186`188,189`190,191`193,194`195
,196`198,199`202,203`204,205`206