10MODE7:PROCA:*LOAD !screen
20VDU23;8202;0;0;0;:PRINTTAB(8,13);CH
R$130;"ISSUE 9 DISC MAGAZINE"
30PRINTTAB(8,14);CHR$130;"ISSUE 9 SOF
TWARE MENU"
40PRINTTAB(8,15);CHR$130;"ISSUE 9 HEL
P FILES"
50PRINTTAB(8,16);CHR$130;"VIEW SPELLC
HECKER"
60PRINTTAB(8,17);CHR$130;"INFORMANT R
OM IMAGE"
70PRINTTAB(8,18);CHR$130;"GHOSTBUSTER
S LOGO"
80PRINTTAB(8,19);CHR$130;"*** MAGAZIN
E HELP ***"
90select%=FNA(3,13,33,19)
100IF select%=1 THEN PROCmagazine
110IF select%=2 THEN PROCmenu
120IF select%=3 THEN PROChelp:MODE0:PR
INT"Press Control & Shift to Pause"'"Pre
ss Return to start"'':A=GET:OSCLI("TYPE
"+(type$)):PRINT:PRINT"Press any Key":A=
GET:CLEAR:RUN
130IF select%=4 THEN PROCview
140IF select%=5 THEN PROCinform
150IF select%=6 THEN CHAIN"G.GHOST"
160IF select%=7 THEN type$=":2.$.MagIN
S":MODE0:PRINT"Press Control & Shift to
Pause"'"Press Return to start"'':A=GET:O
SCLI("TYPE "+(type$)):PRINT:PRINT"Press
any Key":A=GET:CLEAR:RUN
170RUN
180:
190:
200DEF PROCmenu
210FOR X=9 TO 15
220PRINTTAB(0,X);SPC(39)
230NEXT X
240PRINTTAB(8,9);CHR$130;"Advanced Dis
c Backup"
250PRINTTAB(8,10);CHR$130;"VDU Codes K
iller"
260PRINTTAB(8,11);CHR$130;"Tape to DFS
Utility"
270PRINTTAB(8,12);CHR$130;"Tape to ADF
S Utility"
280PRINTTAB(8,13);CHR$130;"Test Cards
Program"
290PRINTTAB(8,14);CHR$130;"SWRload and
Notepad ROM"
300PRINTTAB(8,15);CHR$130;"Speech! Fid
dle Program"
310PRINTTAB(8,16);CHR$130;"Lost Your M
arbles Game"
320PRINTTAB(8,17);CHR$130;"Letterhead
Designer"
330PRINTTAB(8,18);CHR$130;"SYSTEMS har
dcopy Utility"
340PRINTTAB(8,19);CHR$130;"Faults Grap
hics Program"
350PRINTTAB(8,20);CHR$130;"Inca Treasu
re Adventure"
360PRINTTAB(8,21);CHR$130;"City Bomber
Game"
370choice%=FNA(5,9,33,21)
380CLS
390*FX 4 0
400IF choice%=1 THEN CHAIN"BACKUP"
410IF choice%=2 THEN CHAIN":2.VDUKILL"
420IF choice%=3 THEN CHAIN"T>DFS"
430IF choice%=4 THEN CHAIN"T>ADFS"
440IF choice%=5 THEN CHAIN"TCintro"
450IF choice%=6 THEN CHAIN"SWRload"
460IF choice%=7 THEN CHAIN"SPEECHF"
470IF choice%=8 THEN CHAIN"MARBLES"
480IF choice%=9 THEN CHAIN"LETTER"
490IF choice%=10 THEN CHAIN"HARD"
500IF choice%=11 THEN PAGE=&1100:CHAIN
"FAULTS"
510IF choice%=12 THEN CHAIN"INCA"
520IF choice%=13 THEN CHAIN"BOMBER"
530RUN
540ENDPROC
550
560
570
580
590
600END
610DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4,
2
620REPEATPRINTTAB(£%,a%);CHR$132;CHR$1
57;CHR$130;TAB((£%+b%),a%);CHR$156:*FX15
630A$=GET$:e%=VALA$:IFA$=CHR$13GOTO680
640IFe%=0THENe%=-1
650IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a%
=(d%+1):GOTO680
660IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC
2:a%=c%:GOTO680
670PRINTTAB(£%,a%);SPC2:a%=a%+e%
680UNTILA$=CHR$13:*FX4,0
690=(a%-d%)
700DEFPROCA:*KEY14 1|M
710*KEY15 0|M
720*KEY12 0|M
730*KEY13 1|M
740ENDPROC
750:
760DEF PROCmagazine
770CLS
780PAGE=&1900
790OSCLI("DRIVE 2")
800CHAIN"$.Viewdat"
810:
820DEF PROChelp
830FOR X=9 TO 20
840PRINTTAB(0,X);SPC(39)
850NEXT X
860PRINTTAB(6,12);CHR$130;"Speech! Fid
dler Instructions"
870PRINTTAB(6,13);CHR$130;"SYSTEMS har
dcopy Instructions"
880PRINTTAB(6,14);CHR$130;"Inca Treasu
re Instructions"
890PRINTTAB(6,15);CHR$130;"Letterhead
Designer Information"
900PRINTTAB(6,16);CHR$130;"Informant R
OM Instructions"
910PRINTTAB(6,17);CHR$130;"View Spellc
heck Instructions"
920PRINTTAB(6,18);CHR$130;"****** PREV
IOUS MENU ******"
930select%=FNA(4,12,35,18)
940IF select%=1 THEN type$="T.SpeechI"
950IF select%=2 THEN type$="T.HARDINF"
960IF select%=3 THEN type$="T.INCINFO"
970IF select%=4 THEN type$="T.LETTINS"
980IF select%=5 THEN type$="T.INFORMI"
990IF select%=6 THEN type$=":2.$.SPELI
NS"
1000IF select%=7 THEN CLEAR:RUN
1010ENDPROC
1020:
1030DEF PROCview
1040OSCLI("DRIVE 2")
1050PAGE=&1900
1060CHAIN"SPELL"
1070ENDPROC
1080:
1090DEF PROCinform
1100FOR X=9 TO 20
1110PRINTTAB(0,X);SPC(39)
1120NEXT X
1130PRINTTAB(0,13);CHR$130;"This is a R
OM image file which should"
1140PRINTTAB(0,14);CHR$130;"be loaded i
nto BBC or Masters Sideways"
1150PRINTTAB(0,15);CHR$130;"RAM. Full
instructions available from"
1160PRINTTAB(0,16);CHR$130;"the ISSUE 9
HELP FILES menu option."
1170PRINTTAB(0,18);CHR$130;"PRESS RETUR
N":A=GET:RUN
1180ENDPROC
1190: