10ON ERROR CLOSE#0:OSCLI("DRIVE0"):CL
EAR:RUN
20CLS:PROCclear
30MODE7
40*KEY15 0|M
50*KEY14 1|M
60OSCLI("LOAD !Screen")
70PROCloadID
80:
90PRINTTAB(5,7);CHR$134;"Issue 14 Dis
c Magazine"
100PRINTTAB(5,8);CHR$134;"Issue 14 Sof
tware Menu"
110PRINTTAB(5,9);CHR$134;"Issue 14 Mag
azine Help"
120PRINTTAB(5,10);CHR$134;"Messages fo
r You"
130PRINTTAB(5,11);CHR$134;"Repton Comp
etition Screens"
140PRINTTAB(5,12);CHR$134;"SYSTEMS Ser
ver PROGRAM"
150PRINTTAB(5,13);CHR$134;"SYSTEMS Ser
ver MANUALS"
160PRINTTAB(5,14);CHR$134;"*** Tech Ti
ps ISSUE 2 ***"
165PRINTTAB(5,15);CHR$134;"Kickstart"
170choice%=FNA(3,7,34,15)
180IF choice%=1 THEN OSCLI("DRIVE2"):C
HAIN"!Mag"
190IF choice%=2 THEN PROCmenu
200IF choice%=3 THEN MODE0:PRINT"Press
CTRL and SHIFT to Pause"':OSCLI("TYPE :
2.MagINS"):PRINT:PRINT"Output Complete P
RESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR
:RUN
210IF choice%=4 THEN MODE0:PRINT"Press
CTRL and SHIFT to Pause"'"PRESS RETURN
to view message mailbox...":A=GET:PRINT:
OSCLI("TYPE :2.Message"):PRINT:PRINT"Out
put Complete PRESS RETURN":A=GET:OSCLI("
DRIVE0"):CLEAR:RUN
220IF choice%=5 THEN PROCrepton
230IF choice%=6 THEN CLS:OSCLI("EXEC !
Server"):END
240IF choice%=7 THEN file$=FNserver:MO
DE0:PRINT"Press CTRL and SHIFT to PAUSE"
'':OSCLI("TYPE :2."+file$):PRINT:PRINT:P
RINT"Output COMPLETE - Press Return":A=G
ET:MODE7:CLEAR:RUN
250IF choice%=8 THEN MODE7:OSCLI("SHOW
MAG"):END
255IF choice%=9:*/kickst
260RUN
270:
280DEF PROCmenu
290PROCclear
300PRINTTAB(5,7);CHR$134;"Barbarian Sc
reen Map"
310PRINTTAB(5,8);CHR$134;"Braille Tran
slator"
320PRINTTAB(5,9);CHR$134;"Maple Leaf R
ag (MCODE)"
330PRINTTAB(5,10);CHR$134;"New Life Mu
sic (BASIC)"
340PRINTTAB(5,11);CHR$134;"Periodic Ta
ble Program"
350PRINTTAB(5,12);CHR$134;"Repton 3 Ch
eat Program"
360PRINTTAB(5,13);CHR$134;"3-A-Line St
rategy Game"
370PRINTTAB(5,14);CHR$134;"Ninth Tune
Music (AMPLE)"
380PRINTTAB(5,15);CHR$134;"5-A-Side So
ccer Game"
390PRINTTAB(5,16);CHR$134;"Y80 Faulty
Program (HELP)"
400choice%=FNA(3,7,34,16)
410IF choice%=1 THEN CHAIN":2.BarLoad"
420IF choice%=2 THEN OSCLI(":2.BRAILLE
"):END
430IF choice%=3 THEN *MAPLEL
440IF choice%=4 THEN CHAIN"NEWLIFE"
450IF choice%=5 THEN CHAIN"PERTABB"
460IF choice%=6 THEN CHAIN":2.REP3CHT"
470IF choice%=7 THEN CHAIN"SQUARE"
480IF choice%=8 THEN PROCample
490IF choice%=9 THEN CHAIN":2.R.INTRO"
500IF choice%=10 THEN CHAIN"WEIRD"
510ENDPROC
520:
530DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4,
2
540REPEATPRINTTAB(£%,a%);CHR$132;CHR$1
57;CHR$134;TAB((£%+b%),a%);CHR$156:*FX15
550A$=GET$:e%=VALA$:IFA$=CHR$13GOTO600
560IFe%=0THENe%=-1
570IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a%
=(d%+1):GOTO600
580IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC
2:a%=c%:GOTO600
590PRINTTAB(£%,a%);SPC2:a%=a%+e%
600UNTILA$=CHR$13:*FX4,0
610=(a%-d%)
620DEFPROCA:*KEY14 1|M
630*KEY15 0|M
640*KEY12 0|M
650*KEY13 1|M
660ENDPROC
670:
680DEF PROCmessages
690CLS: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")
700ENDPROC
710:
720DEF PROCmenu2
730FOR X=8 TO 22
740PRINTTAB(3,X);SPC(34)
750NEXT X
760PRINTTAB(8,9);CHR$134;"ADFS String
Search"
770PRINTTAB(8,19);CHR$134;"**** PREVIO
US MENU ****"
780choice2%=FNA(5,9,34,19)
790*FX15
800IF choice2%=1 THEN CHAIN"ADFSSCH"
810ENDPROC
820:
830DEF PROCloadID
840PRINTTAB(6,0);"";:TIME=0:REPEATUNTI
LTIME>150
850X=OPENIN"8bsUser":IF X=0 THEN CLOSE
#0:CLS:PRINT"User ID Invalid":PRINT:END
860PTR#X=105
870INPUT#X,Name$,User$,Issue$:CLOSE#X
880PRINTTAB(5,0);CHR$135;User$;TAB(35,
1);CHR$135;Issue$
890VDU23;8202;0;0;0;
900ENDPROC
910:
920DEF PROCclear
930FOR X=5 TO 22 STEP 1
940PRINTTAB(3,X);SPC(34)
950NEXT X
960ENDPROC
970:
980DEF FNserver
990PROCclear
1000PRINTTAB(5,7);CHR$134;"SYSTEMS Serv
er MANUAL Part 1"
1010PRINTTAB(5,8);CHR$134;"SYSTEMS Serv
er MANUAL Part 2"
1020PRINTTAB(5,9);CHR$134;"SYSTEMS Serv
er MANUAL Part 3"
1030PRINTTAB(5,10);CHR$134;"SYSTEMS Ser
ver MANUAL Part 4"
1040PRINTTAB(5,11);CHR$134;"SYSTEMS Ser
ver MANUAL Part 5"
1050select%=FNA(3,7,34,11)
1060IF select%=1 THEN file$="T.ServGd1"
1070IF select%=2 THEN file$="T.ServGd2"
1080IF select%=3 THEN file$="T.ServGd3"
1090IF select%=4 THEN file$="T.ServGd4"
1100IF select%=5 THEN file$="T.ServGd5"
1110 =file$
1120:
1130DEF PROCample
1140CLS
1150PRINT"This program will only work w
ith"
1160PRINT"the Hybrid Music 5000 system
or"
1170PRINT"equivalent. To hear this mus
ic"
1180PRINT"enter AMPLE as normal before"
1190PRINT"inserting the issue 14 disc a
nd"
1200PRINT"entering ""A.NINTH""LOAD RUN"
1210PRINT
1220PRINT"Press RETURN":A=GET
1230CLEAR:RUN:ENDPROC
1240:
1250DEF PROCrepton
1260CLS
1270PRINT"The first set of screens to b
e"
1280PRINT"entered into the new competit
ion"
1290PRINT"appear on this months disc. T
he"
1300PRINT"screens were written by User
K1P"
1310PRINT"(Rob Bathgate) and can be fou
nd"
1320PRINT"on side 2 of this disc under
the"
1330PRINT"filename R.K1P (do not confus
e-"
1340PRINT"the lower case letter ""l"" w
ith"
1350PRINT"the number ""1"" in User K1P)
"
1360PRINT
1370PRINT"Press RETURN":A=GET
1380ENDPROC