10*FX255 15
20MODE7:PROCA:*LOAD !screen
30VDU23;8202;0;0;0;
40PRINTTAB(8,10);CHR$133;"Issue 11 Di
sc Magazine"
50PRINTTAB(8,11);CHR$133;"Issue 11 So
ftware Menu"
60PRINTTAB(8,12);CHR$133;"Charging Ar
ticle"
70PRINTTAB(8,13);CHR$133;"Repton Infi
nity Review"
80PRINTTAB(8,14);CHR$133;"Disc Magazi
ne Help"
90PRINTTAB(8,15);CHR$133;"More Repton
3 Screens"
100PRINTTAB(8,16);CHR$133;"*** MESSAGE
S FOR YOU ***"
110PRINTTAB(2,22);CHR$134;" ISSUE 11 P
D SOFTWARE AND MAGAZINE"
120select%=FNA(3,10,33,16)
130IF select%=1 THEN PROCmagazine
140IF select%=2 THEN PROCmenu
150IF select%=3 THEN MODE0:PROCchargin
g:MODE7
160IF select%=4 THEN MODE0:PROCrepinf:
MODE7
170IF select%=5 THEN type$=":0.T.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
180IF select%=6 THEN PROCrepton
190IF select%=7 THEN MODE3:PROCmessage
s:CLEAR:GOTO 20
200RUN
210:
220:
230DEF PROCmenu
240FOR X=8 TO 22
250PRINTTAB(3,X);SPC(34)
260NEXT X
270PRINTTAB(8,10);CHR$133;"Helicopter
Haulocast"
280PRINTTAB(8,11);CHR$133;"Astronomy D
atabase"
290PRINTTAB(8,12);CHR$133;"Pontoon Car
d Game"
300PRINTTAB(8,13);CHR$133;"Teletext Ed
itor"
310PRINTTAB(8,14);CHR$133;"Careers For
caster"
320PRINTTAB(8,15);CHR$133;"Extra Star
Commands"
330PRINTTAB(8,16);CHR$133;"Year Planne
r/Organiser"
340PRINTTAB(8,17);CHR$133;"Percentages
Program"
350PRINTTAB(8,18);CHR$133;"Red Dwarf I
II Screens"
360PRINTTAB(8,19);CHR$133;"World Map G
raphical Screens"
370PRINTTAB(8,20);CHR$133;"PROGRAMMERS
RETURN REVIEWS"
380PRINTTAB(8,21);CHR$133;"***** Previ
ous Menu *****"
390choice%=FNA(5,10,32,21)
400*FX 4 0
410IF choice%=1 THEN CHAIN"Helicop"
420IF choice%=2 THEN CHAIN"Observe"
430IF choice%=3 THEN CHAIN"Pontoon"
440IF choice%=4 THEN CHAIN"TextED"
450IF choice%=5 THEN CHAIN"Careers"
460IF choice%=6 THEN PROCstarcom:RUN
470IF choice%=7 THEN CHAIN"Organse"
480IF choice%=8 THEN CHAIN"Percent"
490IF choice%=9 THEN CHAIN"Dloader"
500IF choice%=10 THEN PROCwmap
510IF choice%=11 THEN PROCprogret
520IF choice%=12 THEN RUN
530ENDPROC
540
550
560
570
580
590END
600DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4,
2
610REPEATPRINTTAB(£%,a%);CHR$132;CHR$1
57;CHR$133;TAB((£%+b%),a%);CHR$156:*FX15
620A$=GET$:e%=VALA$:IFA$=CHR$13GOTO670
630IFe%=0THENe%=-1
640IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a%
=(d%+1):GOTO670
650IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC
2:a%=c%:GOTO670
660PRINTTAB(£%,a%);SPC2:a%=a%+e%
670UNTILA$=CHR$13:*FX4,0
680=(a%-d%)
690DEFPROCA:*KEY14 1|M
700*KEY15 0|M
710*KEY12 0|M
720*KEY13 1|M
730ENDPROC
740:
750DEF PROCmagazine
760CLS
770PAGE=&1900
780OSCLI("DRIVE 2")
790CHAIN"$.Viewdat"
800:
810DEF PROCrepton
820FOR X=8 TO 22
830PRINTTAB(3,X);SPC(34):NEXT
840PRINTTAB(3,10);CHR$133;"The Filenam
e R.BLOG on the disc"
850PRINTTAB(3,11);CHR$133;"contains th
e Repton 3 Screen"
860PRINTTAB(3,12);CHR$133;"files. Load
REPTON 3 as normal"
870PRINTTAB(3,13);CHR$133;"before load
ing the screens in"
880PRINTTAB(3,14);CHR$133;"the normal
way. Passwords will"
890PRINTTAB(3,15);CHR$133;"be revealed
next month."
900*FX15
910A=GET
920CLEAR:RUN
930ENDPROC
940:
950DEF PROChints
960CLS:PRINT"Press Control & Shift to
Pause"'"Press Return to start"'':A=GET:O
SCLI("TYPE V.Hint1"):PRINT:PRINT"Press a
ny Key for next hints file ...":A=GET
970CLS:PRINT"Press Control & Shift to
Pause"':OSCLI("TYPE V.Hint2"):PRINT:PRIN
T"Press any Key to return to menu":A=GET
980ENDPROC
990:
1000DEF PROCmessages
1010CLS: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")
1020ENDPROC
1030:
1040DEF PROCrepinf
1050CLS:PRINT"The ASCII file on disc ca
n be loaded into any suitable word proce
ssor and"'"printed for easier reading if
desired. If using Interword then load
in as"'"normal before increasing the pag
e width to format the text correctly."
1060PRINT"Filename = T.Repton (Drive 2)
- PRESS RETURN TO VIEW THE REVIEW"
1070PRINT"(Use <control>+<shift> to hal
t scrolling)"
1080PRINT:PRINT
1090A=GET:OSCLI("TYPE :2.T.REPTON"):PRI
NT:PRINT"Press any Key for !Menu":A=GET
1100ENDPROC
1110:
1120DEF PROCcharging
1130CLS:PRINT"The ASCII file on disc ca
n be loaded into any suitable word proce
ssor and"'"printed for easier reading if
desired. If using Interword then load
in as"'"normal before increasing the pag
e width to format the text correctly."
1140PRINT"Filename = T.Charge (Drive 2)
- PRESS RETURN TO VIEW THE ARTICLE"
1150PRINT"(Use <control>+<shift> to hal
t scrolling)"
1160PRINT:PRINT
1170A=GET:OSCLI("TYPE :2.T.CHARGE"):PRI
NT:PRINT"Press any Key for !Menu":A=GET
1180ENDPROC
1190:
1200DEF PROCstarcom
1210FOR X=8 TO 22
1220PRINTTAB(3,X);SPC(34):NEXT
1230PRINTTAB(3,10);CHR$133;"Seven new S
tar Commands have"
1240PRINTTAB(3,11);CHR$133;"been put on
Side 0 of this"
1250PRINTTAB(3,12);CHR$133;"months disc
under the ""C."""
1260PRINTTAB(3,13);CHR$133;"directory.
A small text file"
1270PRINTTAB(3,14);CHR$133;"called T.St
arcom (Drive 0)"
1280PRINTTAB(3,15);CHR$133;"details how
they are used."
1290PRINTTAB(3,17);CHR$133;"EXAMPLE - p
ress CTRL BREAK now and"
1300PRINTTAB(3,18);CHR$133;"enter *LIB
C followed by command"
1310PRINTTAB(3,19);CHR$133;"*FILEINF !M
enu"
1320A=GET:ENDPROC
1330:
1340DEF PROCprogret
1350FOR X=8 TO 22
1360PRINTTAB(3,X);SPC(34):NEXT
1370PRINTTAB(3,10);CHR$133;"The filenam
e T.Progret (Drive 2)"
1380PRINTTAB(3,11);CHR$133;"contains th
is months programmers"
1390PRINTTAB(3,12);CHR$133;"return. Thi
s file can be loaded"
1400PRINTTAB(3,13);CHR$133;"into any su
itable word processor"
1410PRINTTAB(3,14);CHR$133;"or can be v
iewed from BASIC by"
1420PRINTTAB(3,15);CHR$133;"*TYPEing th
e file in MODE 0 or 3"
1430PRINTTAB(3,17);CHR$133;"To view in
BASIC select MODE 0"
1440PRINTTAB(3,18);CHR$133;"or 3 then s
elect Drive 2 before"
1450PRINTTAB(3,19);CHR$133;"entering *T
YPE T.Progret"
1460A=GET:ENDPROC
1470:
1480DEF PROCwmap
1490OSCLI("DRIVE 2")
1500OSCLI("DIR S")
1510CLS
1520PRINT"Press SPACE to load each pict
ure"
1530VDU23;8202;0;0;0;
1540A=GET
1550OSCLI("SCRLOAD OBLITER"):A=GET
1560OSCLI("SCRLOAD RAYTRC"):A=GET
1570OSCLI("SCRLOAD VALKY"):A=GET
1580OSCLI("SCRLOAD WMAP1"):A=GET
1590OSCLI("SCRLOAD WMAP2"):A=GET
1600OSCLI("SCRLOAD WMAP3"):A=GET
1610OSCLI("DIR $")
1620OSCLI("DRIVE 0")
1630CLEAR:RUN:ENDPROC
1640: