10 ON ERROR CLEAR:RUN
20*FX255 15
30MODE7:PROCA:*LOAD !screen
40VDU23;8202;0;0;0;
50PRINTTAB(8,10);CHR$131;"Issue 12 Di
sc Magazine"
60PRINTTAB(8,11);CHR$131;"Issue 12 So
ftware Menu"
70PRINTTAB(8,12);CHR$131;"Chuckie Egg
Screens"
80PRINTTAB(8,13);CHR$131;"Lost Your M
arbles Fix"
90PRINTTAB(8,14);CHR$131;"Disc Magazi
ne Help"
100PRINTTAB(8,15);CHR$131;"Andy Nibbs'
TECH TIPS"
110PRINTTAB(8,16);CHR$131;"Repton 3 Sc
reens"
120PRINTTAB(8,17);CHR$131;"*** MESSAGE
S FOR YOU ***"
130select%=FNA(3,10,33,17)
140IF select%=1 THEN OSCLI("DRIVE 2"):
CHAIN"!MAG"
150IF select%=2 THEN PROCmenu
160IF select%=3 THEN OSCLI("DIR A"):CH
AIN"CHUCK"
170IF select%=4 THEN CHAIN"MM1"
180IF select%=5 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
190IF select%=6 THEN OSCLI("DRIVE 2"):
CHAIN"F7`FAX"
200IF select%=7 THEN PROCrepton
210IF select%=8 THEN MODE3:PROCmessage
s:CLEAR:GOTO 30
220RUN
230:
240DEF PROCmenu
250FOR X=8 TO 22
260PRINTTAB(3,X);SPC(34)
270NEXT X
280PRINTTAB(8,8);CHR$131;"3D Spinning
Ball"
290PRINTTAB(8,9);CHR$131;"Complete Add
ress Book"
300PRINTTAB(8,10);CHR$131;"Prommer ROM
Utility"
310PRINTTAB(8,11);CHR$131;"ROT5 Graphi
cs (basic)"
320PRINTTAB(8,12);CHR$131;"RS232 Utili
ty Prog"
330PRINTTAB(8,13);CHR$131;"Shares Acco
untant"
340PRINTTAB(8,14);CHR$131;"Sunrise/Sun
set"
350PRINTTAB(8,15);CHR$131;"Devils Isla
nd"
360PRINTTAB(8,16);CHR$131;"BASDUMP Uti
lity"
370PRINTTAB(8,17);CHR$131;"ROM Based L
IFE Prog"
380PRINTTAB(8,18);CHR$131;"Arc & XArc
Utility"
390PRINTTAB(8,19);CHR$131;"Bananas Lev
els Game"
400PRINTTAB(8,20);CHR$131;"Space Pods
Game"
410PRINTTAB(8,21);CHR$131;"Agog Ago Ti
tle Screen"
420PRINTTAB(8,22);CHR$131;"Persian Car
pet Screen"
430choice%=FNA(5,8,32,22)
440*FX 4 0
450IF choice%=1 THEN CHAIN"3DSPIN"
460IF choice%=2 THEN CHAIN"ADDRESS"
470IF choice%=3 THEN CHAIN"PROMMER"
480IF choice%=4 THEN CHAIN"ROT5"
490IF choice%=5 THEN CHAIN"RS232"
500IF choice%=6 THEN CHAIN"SSCREEN"
510IF choice%=7 THEN CHAIN"SUNPROG"
520IF choice%=8 THEN OSCLI("DIR B"):OS
CLI("DEVILS")
530IF choice%=9 THEN PROCrom("R.BASDUM
P")
540IF choice%=10 THEN PROCrom("R.LIFE"
)
550IF choice%=11 THEN PROCrom("R.ARC &
R.XARC")
560IF choice%=12 THEN CHAIN":2.BANANAS
"
570IF choice%=13 THEN CHAIN":2.SPCPODS
"
580IF choice%=14 THEN CHAIN":2.TITLE2"
590IF choice%=15 THEN CHAIN":2.TITLE1"
600ENDPROC
610:
620DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4,
2
630REPEATPRINTTAB(£%,a%);CHR$132;CHR$1
57;CHR$131;TAB((£%+b%),a%);CHR$156:*FX15
640A$=GET$:e%=VALA$:IFA$=CHR$13GOTO690
650IFe%=0THENe%=-1
660IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a%
=(d%+1):GOTO690
670IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC
2:a%=c%:GOTO690
680PRINTTAB(£%,a%);SPC2:a%=a%+e%
690UNTILA$=CHR$13:*FX4,0
700=(a%-d%)
710DEFPROCA:*KEY14 1|M
720*KEY15 0|M
730*KEY12 0|M
740*KEY13 1|M
750ENDPROC
760:
770DEF PROCmessages
780CLS:PRINT"Press Control & Shift to
PAUSE"'"Press RETURN to view your messag
es"'':A=GET:OSCLI("DRIVE 2"):OSCLI("TYPE
$.Message"):PRINT:PRINT"Press RETURN to
go back to !Menu ....":A=GET:OSCLI("DRI
VE 0")
790ENDPROC
800:
810DEF PROCrom(a$)
820FOR X=8 TO 22 STEP 1
830PRINTTAB(2,X);SPC(30)
840NEXT X
850PRINTTAB(2,9);CHR$131;"Filename(s)
= ";a$
860PRINTTAB(2,11);CHR$131;"This progra
m is ROM based and"
870PRINTTAB(2,12);CHR$131;"should be l
oaded into your"
880PRINTTAB(2,13);CHR$131;"sideways RA
M or SHADOW RAM"
890PRINTTAB(2,14);CHR$131;"facilities.
Please refer to"
900PRINTTAB(2,15);CHR$131;"disc magazi
ne for full info"
910PRINTTAB(2,16);CHR$131;"and instruc
tions."
920PRINTTAB(2,18);CHR$131;"PRESS RETUR
N"
930*FX15
940A=GET
950ENDPROC
960DEF PROCrepton
970FOR X=8 TO 22 STEP 1
980PRINTTAB(2,X);SPC(30)
990NEXT X
1000PRINTTAB(2,9);CHR$131;"REPTON 3 SCR
EENS"
1010PRINTTAB(2,11);CHR$131;"Two filenam
es on the disc this"
1020PRINTTAB(2,12);CHR$131;"month calle
d UPAKA and TOPD."
1030PRINTTAB(2,13);CHR$131;"Load the RE
PTON 3 game as normal"
1040PRINTTAB(2,14);CHR$131;"then select
L for loading screens"
1050PRINTTAB(2,15);CHR$131;"Take out th
e REPTON 3 game disc"
1060PRINTTAB(2,16);CHR$131;"and insert
the issue 12 disc."
1070PRINTTAB(2,17);CHR$131;"Enter the n
ame TOPD or UPAKA "
1080PRINTTAB(2,18);CHR$131;"and press R
ETURN."
1090PRINTTAB(2,20);CHR$131;"PRESS RETUR
N"
1100*FX15
1110A=GET
1120ENDPROC