10 CLS:PROCclear
   20 ON ERROR CLOSE#0:RUN
   30 VDU23;8202;0;0;0;
   40 MODE7
   50 *KEY15 0|M  
   60 *KEY14 1|M
   70 OSCLI("LOAD !Screen")
   80 PROCloadID   
   90 :
  100 PRINTTAB(5,8);CHR$130;"Issue 17 Archived Programs"  
  110 PRINTTAB(5,9);CHR$130;"Issue 17 Non-Archived Programs"  
  120 PRINTTAB(5,10);CHR$130;"Issue 17 Magazine Information"  
  130 PRINTTAB(5,11);CHR$130;"Music 5000 Christmas Pieces"
  140 PRINTTAB(5,12);CHR$130;"Return to Issue 17 Magazine"   
  150 PRINTTAB(5,13);CHR$130;"Extra Repton 3 Screens"  
  160 PRINTTAB(5,14);CHR$130;"Archiver Instructions"
  170 PRINTTAB(5,15);CHR$130;"Issue 17 ROM Images"
  180 choice%=FNA(3,8,34,15) 
  190 IF choice%=1 THEN MODE3:VDU23;8202;0;0;0;:PRINT:OSCLI("TYPE T.ArcTxt"):PRINT:PRINT:OSCLI("FX 15"):A=GET:PAGE=&1900:CHAIN"ARCHIVE"  
  200 IF choice%=2 THEN PROCmenu
  210 IF choice%=3 THEN MODE3:PRINT"Press CTRL and SHIFT to Pause"':OSCLI("TYPE T.MagINS"):PRINT:PRINT"Output Complete PRESS RETURN":A=GET:OSCLI("DRIVE0"):CLEAR:RUN  
  220 IF choice%=4 THEN PROCm5000:CLEAR:RUN   
  230 IF choice%=5 THEN OSCLI("DRIVE 2"):CHAIN"!Mag"
  240 IF choice%=6 THEN PROCrepton
  250 IF choice%=7 THEN MODE3:VDU23;8202;0;0;0;:PRINT:OSCLI("TYPE T.ARCINS"):PRINT:PRINT:OSCLI("FX 15"):PRINT"Press RETURN to Return to !Menu ...":A=GET:CLEAR:RUN   
  260 IF choice%=8 THEN PROCrom
  270 RUN
  280 :
  290 DEF PROCmenu
  300 PROCclear
  310 PRINTTAB(5,7);CHR$130;"Polish Christmas"
  320 PRINTTAB(5,8);CHR$130;"Search for Sanity"
  330 PRINTTAB(5,9);CHR$130;"Sound Mix Editor"
  340 PRINTTAB(5,10);CHR$130;"Run-Build Mix-Ed"
  350 PRINTTAB(5,11);CHR$130;"Miles Per Gallon"
  360 PRINTTAB(5,12);CHR$130;"Heart-and-Soul (Music)"
  370 PRINTTAB(5,13);CHR$130;"Memory Map Display"  
  380 PRINTTAB(5,14);CHR$130;"Flying Bird Animation"
  390 PRINTTAB(5,15);CHR$130;"View Filter Utility"
  400 PRINTTAB(5,16);CHR$130;"AMX Discussion (348)"
  410 PRINTTAB(5,17);CHR$130;"Sattelite Havac Game"
  420 PRINTTAB(5,18);CHR$130;"Textfile Viewer"
  430 PRINTTAB(5,19);CHR$130;"Catalogue Saver"
  440 PRINTTAB(5,20);CHR$130;"*** Return to Main Menu ***"
  450 choice%=FNA(3,7,34,20)
  460 CLS
  470 IF choice%=1 THEN CHAIN"POLXMAS"
  480 IF choice%=2 THEN CHAIN"SEARCH"
  490 IF choice%=3 THEN CHAIN"MIXED"
  500 IF choice%=4 THEN CHAIN"RUNBLD"
  510 IF choice%=5 THEN CHAIN"MILESPG"
  520 IF choice%=6 THEN CHAIN"HEART"
  530 IF choice%=7 THEN CHAIN"MEMORY"
  540 IF choice%=8 THEN CHAIN"BIRDIE"
  550 IF choice%=9 THEN CHAIN"FILTER"
  560 IF choice%=10 THEN PROCamx
  570 IF choice%=11 THEN OSCLI("DRIVE2"):CHAIN"SATLITE"
  580 IF choice%=12 THEN CHAIN":2.TEXTVW"
  590 IF choice%=13 THEN CHAIN":2.CATSAVE"
  600 IF choice%=14 THEN CLEAR:RUN
  610 ENDPROC
  620 :
  630 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  640 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$130;TAB((`%+b%),a%);CHR$156:*FX15
  650 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO700
  660 IFe%=0THENe%=-1
  670 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO700
  680 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO700
  690 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  700 UNTILA$=CHR$13:*FX4,0
  710 =(a%-d%)
  720 DEFPROCA:*KEY14 1|M
  730 *KEY15 0|M
  740 *KEY12 0|M
  750 *KEY13 1|M
  760 ENDPROC
  770 :
  780 DEF PROCloadID
  790 PRINTTAB(6,0);"";:TIME=0:REPEATUNTILTIME>10
  800 X=OPENIN"!8bs":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT:END
  810 PTR#X=105
  820 INPUT#X,Name$,User$,Issue$:CLOSE#X
  830 PRINTTAB(5,0);CHR$131;User$;TAB(35,1);CHR$131;Issue$ 
  840 VDU23;8202;0;0;0;
  850 ENDPROC
  860 :
  870 DEF PROCclear
  880 FOR X=5 TO 22 STEP 1
  890 PRINTTAB(3,X);SPC(34)
  900 NEXT X
  910 ENDPROC
  920 :
  930 DEF PROCamx
  940 CLS
  950 PRINT"A ... BF_AMX converter"
  960 PRINT"B ... BF_PM  converter"   
  970 PRINT
  980 PRINT"Choice?":OSCLI("FX 15"):A$=GET$
  990 OSCLI("DRIVE2")
 1000 OSCLI("DIR M") 
 1010 IF A$="A" OR A$="a" THEN CLS:CHAIN"BF_AMX"
 1020 IF A$="B" OR A$="b" THEN CLS:CHAIN"BF_PM"
 1030 OSCLI("DRIVE0")
 1040 OSCLI("DIR $") 
 1050 ENDPROC
 1060 :
 1070 DEF PROCrepton
 1080 PROCclear
 1090 PRINTTAB(2,7);CHR$130;"EXTRA REPTON SCREENS"
 1100 PRINTTAB(2,9);CHR$130;"The set of screens on this months"
 1110 PRINTTAB(2,10);CHR$130;"disc are on side 2 and are"
 1120 PRINTTAB(2,11);CHR$130;"resident under the filename"
 1130 PRINTTAB(2,12);CHR$130;"R.L1LREP. To load these screens"
 1140 PRINTTAB(2,13);CHR$130;"you should load REPTON 3 as you"
 1150 PRINTTAB(2,14);CHR$130;"normally would before pressing"
 1160 PRINTTAB(2,15);CHR$130;"the letter L to load screens."
 1170 PRINTTAB(2,17);CHR$130;"PRESS RETURN"
 1180 *fx15
 1190 A=GET:CLEAR:RUN
 1200 ENDPROC
 1210 :
 1220 DEF PROCm5000
 1230 PROCclear
 1240 PRINTTAB(2,7);CHR$130;"CHRISTMAS MUISC 5000 PIECES"
 1250 PRINTTAB(2,9);CHR$130;"There are two pieces for the Hybrid"
 1260 PRINTTAB(2,10);CHR$130;"Music 5000 system on this months"
 1270 PRINTTAB(2,11);CHR$130;"disc under the filenames 5.XmasFor"
 1280 PRINTTAB(2,12);CHR$130;"and 5.XmasTal respectively. These"
 1290 PRINTTAB(2,13);CHR$130;"tunes can only be heard using the"
 1300 PRINTTAB(2,14);CHR$130;"Music 5000 and NOT the Music 500."
 1310 PRINTTAB(2,16);CHR$130;"PRESS RETURN"
 1320 *FX15
 1330 A=GET:CLEAR:RUN
 1340 ENDPROC
 1350 :
 1360 DEF PROCrom
 1370 PROCclear
 1380 PRINTTAB(2,7);CHR$130;"ROM IMAGES"
 1390 PRINTTAB(2,9);CHR$130;"Side 0 ... R.Stop!  (music)"
 1400 PRINTTAB(2,10);CHR$130;"Side 0 ... R.TakeOM (music)"
 1410 PRINTTAB(2,11);CHR$130;"Side 2 ... R.8BSRom (utility)"
 1420 PRINTTAB(2,13);CHR$130;"Above ROM images are availble"
 1430 PRINTTAB(2,14);CHR$130;"on this issue disc. Please refer"
 1440 PRINTTAB(2,15);CHR$130;"to magazine for further info."
 1450 PRINTTAB(2,17);CHR$130;"PRESS RETURN"
 1460 *FX15
 1470 A=GET:CLEAR:RUN
 1480 ENDPROC
 1490 :