10*FX119 20OSCLI"DISK":OSCLI"DR.2" 30CLOSE#0 40ONERROR CLOSE#0:OSCLI"DR.0":OSCLI"E . !BOOT":END 50VDU3 60*FX15,10 70VDU3 80b$="Back to main menu" 90REPEAT:PROCclear:*DR.2 100VDU6:PROCA 110PRINT TAB(6,8);CHR$135;"***** MESSA GES TO YOU *****" 120PRINT TAB(6,9);CHR$135;" G ames" 130PRINT TAB(6,10);CHR$135; " Ap plications" 140PRINT TAB(6,11);CHR$135; " Ot her items" 150PRINT TAB(6,12);CHR$135; "***** BAC K TO MAGAZINE ****" 160d%=FNA(4,8,32,12) 170IF d%=1 THEN PROCmessage 180IF d%=2 THEN PROCgames 190IF d%=3 THEN PROCapplics 200IF d%=4 THEN PROCother 210UNTILd%=5:OSCLI"DR.0":CHAIN"!MAG" 220DEFPROCgames:d%=0 230PROCclear 240PRINT TAB(7,8);CHR$135;"Guess Who" 250PRINT TAB(7,9);CHR$135;"Short Game" 260PRINT TAB(7,10);CHR$135;"Star Comma nder" 270PRINT TAB(7,11);CHR$135;"Paras" 280PRINT TAB(7,12);CHR$135;"Battleship s" 290PRINT TAB(7,13);CHR$135;b$ 300c%=FNA(3,8,34,13) 310IF c%=1 THEN CHAIN"GessWho" 320IF c%=2 THEN CHAIN"Short" 330IF c%=3 THEN CHAIN"STAR" 340IF c%=4 THEN CHAIN"Paras4" 350IF c%=5 THEN CHAIN"BShips4" 360ENDPROC 370DEFPROCapplics 380PROCclear 390PRINTTAB(9,8);CHR$135;"Game Cheats Database" 400PRINTTAB(9,9);CHR$135;"Mortgage cal culator" 410PRINTTAB(9,10);CHR$135;"Envelope Ed itor" 420PRINTTAB(9,11);CHR$135;"Football po ols" 430PRINTTAB(9,12);CHR$135;"Catalogue p rinter" 440PRINTTAB(9,13);CHR$135;"Banners" 450PRINTTAB(9,14);CHR$135;b$ 460c%=FNA(3,8,34,14) 470IFc%=1THENCHAIN"A-ZDISP" 480IFc%=2THENCHAIN"Mgage" 490IFc%=3THENCHAIN"EnvEdit" 500IFc%=4THENCHAIN"FtblPls" 510IFc%=5THENCHAIN"PRINTv9" 520IFc%=6THENCHAIN"Banners" 530ENDPROC 540DEFPROCother 550PROCclear 560PRINTTAB(5,8);CHR$135;"ADFS Textfil e Reader" 570PRINTTAB(5,9);CHR$135;"Joker 1.10" 580PRINTTAB(5,10);CHR$135;"Function ke y utilities" 590PRINTTAB(5,11);CHR$135;"Wordsearch Solver 1" 600PRINTTAB(5,12);CHR$135;"Wordsearch Solver 2" 610PRINTTAB(5,13);CHR$135;"Zarch" 620PRINTTAB(5,14);CHR$135;"Arch filety pes" 630PRINTTAB(5,15);CHR$135;b$ 640c%=FNA(3,8,34,15) 650IFc%=1THENCHAIN"Reader" 660IFc%=2THENCHAIN"Joker" 670IFc%=3THENCHAIN"Util-fK" 680IFc%=4THENCHAIN"WSSolv1" 690IFc%=5THENCHAIN"WSSolv4" 700IFc%=6THENCHAIN"Zarch" 710IFc%=7THENCHAIN"SetType" 720ENDPROC 730DEFPROCmessage:CLS 740VDU14:PRINT"<Shift> to scroll..."' 750*TYPE MESSAGE 760PRINT'"Press RETURN to continue..." :REPEATUNTILGET=13 770RUN 780DEFFNA(£%,A%,B%,C%):D%=(A%-1):*FX4, 2 790REPEATPRINTTAB(£%,A%);CHR$132;CHR$1 57;CHR$135;TAB((£%+B%),A%);CHR$156:*FX15 800A$=GET$:E%=VALA$:IFA$=CHR$13GOTO850 810IFE%=0THENE%=-1 820IF(A%+E%)>C%PRINTTAB(£%,A%);SPC2:A% =(D%+1):GOTO850 830IF(A%+E%)<(D%+1)PRINTTAB(£%,A%);SPC 2:A%=C%:GOTO850 840PRINTTAB(£%,A%);SPC2:A%=A%+E% 850UNTILA$=CHR$13:*FX4,0 860=(A%-D%) 870DEFPROCclear 880FORI%=5TO23:PRINTTAB(1,I%);SPC(39); :NEXT 890PRINTTAB(1,24);SPC(36);: 900ENDPROC 910DEFPROCA:*KEY14 1|M 920*KEY15 0|M 930*KEY12 0|M 940*KEY13 1|M 950ENDPROC