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