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