10  ON ERROR CLEAR:RUN
   20 *FX255 15
   30 MODE7:PROCA:*LOAD !screen
   40 VDU23;8202;0;0;0;
   50 PRINTTAB(8,10);CHR$131;"Issue 12 Disc Magazine"  
   60 PRINTTAB(8,11);CHR$131;"Issue 12 Software Menu"  
   70 PRINTTAB(8,12);CHR$131;"Chuckie Egg Screens"
   80 PRINTTAB(8,13);CHR$131;"Lost Your Marbles Fix"
   90 PRINTTAB(8,14);CHR$131;"Disc Magazine Help"  
  100 PRINTTAB(8,15);CHR$131;"Andy Nibbs' TECH TIPS"
  110 PRINTTAB(8,16);CHR$131;"Repton 3 Screens"
  120 PRINTTAB(8,17);CHR$131;"*** MESSAGES FOR YOU ***"  
  130 select%=FNA(3,10,33,17)
  140 IF select%=1 THEN OSCLI("DRIVE 2"):CHAIN"!MAG"
  150 IF select%=2 THEN PROCmenu
  160 IF select%=3 THEN OSCLI("DIR A"):CHAIN"CHUCK"
  170 IF select%=4 THEN CHAIN"MM1"
  180 IF select%=5 THEN type$=":2.$.MagINS":MODE0:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:OSCLI("TYPE "+(type$)):PRINT:PRINT"Press any Key":A=GET:CLEAR:RUN   
  190 IF select%=6 THEN OSCLI("DRIVE 2"):CHAIN"F7_FAX"
  200 IF select%=7 THEN PROCrepton
  210 IF select%=8 THEN MODE3:PROCmessages:CLEAR:GOTO 30   
  220 RUN
  230 :
  240 DEF PROCmenu
  250 FOR X=8 TO 22
  260 PRINTTAB(3,X);SPC(34) 
  270 NEXT X
  280 PRINTTAB(8,8);CHR$131;"3D Spinning Ball"
  290 PRINTTAB(8,9);CHR$131;"Complete Address Book"
  300 PRINTTAB(8,10);CHR$131;"Prommer ROM Utility"
  310 PRINTTAB(8,11);CHR$131;"ROT5 Graphics (basic)"
  320 PRINTTAB(8,12);CHR$131;"RS232 Utility Prog"
  330 PRINTTAB(8,13);CHR$131;"Shares Accountant"  
  340 PRINTTAB(8,14);CHR$131;"Sunrise/Sunset"        
  350 PRINTTAB(8,15);CHR$131;"Devils Island"
  360 PRINTTAB(8,16);CHR$131;"BASDUMP Utility"      
  370 PRINTTAB(8,17);CHR$131;"ROM Based LIFE Prog"        
  380 PRINTTAB(8,18);CHR$131;"Arc & XArc Utility"      
  390 PRINTTAB(8,19);CHR$131;"Bananas Levels Game"      
  400 PRINTTAB(8,20);CHR$131;"Space Pods Game"
  410 PRINTTAB(8,21);CHR$131;"Agog Ago Title Screen"
  420 PRINTTAB(8,22);CHR$131;"Persian Carpet Screen"
  430 choice%=FNA(5,8,32,22)
  440 *FX 4 0
  450 IF choice%=1 THEN CHAIN"3DSPIN"
  460 IF choice%=2 THEN CHAIN"ADDRESS"
  470 IF choice%=3 THEN CHAIN"PROMMER"
  480 IF choice%=4 THEN CHAIN"ROT5"
  490 IF choice%=5 THEN CHAIN"RS232"
  500 IF choice%=6 THEN CHAIN"SSCREEN"
  510 IF choice%=7 THEN CHAIN"SUNPROG"
  520 IF choice%=8 THEN OSCLI("DIR B"):OSCLI("DEVILS")
  530 IF choice%=9 THEN PROCrom("R.BASDUMP")
  540 IF choice%=10 THEN PROCrom("R.LIFE")  
  550 IF choice%=11 THEN PROCrom("R.ARC & R.XARC")   
  560 IF choice%=12 THEN CHAIN":2.BANANAS"  
  570 IF choice%=13 THEN CHAIN":2.SPCPODS" 
  580 IF choice%=14 THEN CHAIN":2.TITLE2"
  590 IF choice%=15 THEN CHAIN":2.TITLE1"
  600 ENDPROC
  610 :
  620 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  630 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$131;TAB((`%+b%),a%);CHR$156:*FX15  
  640 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO690
  650 IFe%=0THENe%=-1
  660 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO690
  670 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO690
  680 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  690 UNTILA$=CHR$13:*FX4,0
  700 =(a%-d%)
  710 DEFPROCA:*KEY14 1|M
  720 *KEY15 0|M
  730 *KEY12 0|M
  740 *KEY13 1|M
  750 ENDPROC
  760 :
  770 DEF PROCmessages   
  780 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") 
  790 ENDPROC   
  800 :
  810 DEF PROCrom(a$)  
  820 FOR X=8 TO 22 STEP 1   
  830 PRINTTAB(2,X);SPC(30)
  840 NEXT X
  850 PRINTTAB(2,9);CHR$131;"Filename(s) = ";a$ 
  860 PRINTTAB(2,11);CHR$131;"This program is ROM based and"
  870 PRINTTAB(2,12);CHR$131;"should be loaded into your"
  880 PRINTTAB(2,13);CHR$131;"sideways RAM or SHADOW RAM"
  890 PRINTTAB(2,14);CHR$131;"facilities. Please refer to"
  900 PRINTTAB(2,15);CHR$131;"disc magazine for full info"
  910 PRINTTAB(2,16);CHR$131;"and instructions."
  920 PRINTTAB(2,18);CHR$131;"PRESS RETURN"
  930 *FX15
  940 A=GET
  950 ENDPROC
  960 DEF PROCrepton
  970 FOR X=8 TO 22 STEP 1  
  980 PRINTTAB(2,X);SPC(30)   
  990 NEXT X
 1000 PRINTTAB(2,9);CHR$131;"REPTON 3 SCREENS"
 1010 PRINTTAB(2,11);CHR$131;"Two filenames on the disc this"
 1020 PRINTTAB(2,12);CHR$131;"month called UPAKA and TOPD."
 1030 PRINTTAB(2,13);CHR$131;"Load the REPTON 3 game as normal"
 1040 PRINTTAB(2,14);CHR$131;"then select L for loading screens"
 1050 PRINTTAB(2,15);CHR$131;"Take out the REPTON 3 game disc"
 1060 PRINTTAB(2,16);CHR$131;"and insert the issue 12 disc."
 1070 PRINTTAB(2,17);CHR$131;"Enter the name TOPD or UPAKA   "
 1080 PRINTTAB(2,18);CHR$131;"and press RETURN."
 1090 PRINTTAB(2,20);CHR$131;"PRESS RETURN"
 1100 *FX15
 1110 A=GET
 1120 ENDPROC