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