10 PROCclear:b$="Back to main menu" 20 ONERROROSCLI"DR.0":OSCLI"EXEC !BOOT":END 30 VDU6:PROCa 40 PRINT TAB(6,8);CHR$135;" Games & Demos" 50 PRINT TAB(6,9);CHR$135;"Music (from Mad Rabbit PD)" 60 PRINT TAB(6,10);CHR$135;" Text/Printer Utilities" 70 PRINT TAB(6,11);CHR$135;" Other Items" 75 PRINT TAB(6,12);CHR$135;" BBC PD Catalogue" 80 PRINT TAB(6,13);CHR$135;"*** RETURN TO MAGAZINE ***" 90 d%=FNA(4,8,31,13) 100 IF d%=1 THEN PROCgames 110 IF d%=2 THEN PROCmusic 120 IF d%=3 THEN PROCutils 130 IF d%=4 THEN PROCother 135 IF d%=5 THEN OSCLI"DIR B":MODE0:CHAIN"CatLoad" 140 IF d%=6 THEN error 150 RUN 160 *************** 170 DEFPROCgames 180 PROCclear 190 PRINT TAB(7,8);CHR$135;"Power Raider Game" 200 PRINT TAB(7,9);CHR$135;"Loopy Loop Game" 210 PRINT TAB(7,10);CHR$135;"SWAT demo" 220 PRINT TAB(7,11);CHR$135;b$ 230 c%=FNA(3,8,34,11) 240 IF c%=1 THEN */POWER 250 IF c%=2 THEN CHAIN"CRAZE1" 260 IF c%=3 THEN */SWAT 270 ENDPROC 280 *************** 290 DEFPROCmusic 300 PROCclear 310 PRINT TAB(9,8);CHR$135;"Pride" 320 PRINT TAB(9,9);CHR$135;"Bad" 330 PRINT TAB(9,10);CHR$135;"13 Amps" 340 PRINT TAB(9,11);CHR$135;"A-Level Project" 350 PRINT TAB(9,12);CHR$135;b$ 360 c%=FNA(3,8,34,12) 370 IF c%=1 THEN CHAIN"PRIDE" 380 IF c%=2 THEN CHAIN"BAD" 390 IF c%=3 THEN CHAIN"13AMPS" 400 IF c%=4 THEN CHAIN"ALevel" 410 ENDPROC 420 **************** 430 DEFPROCutils 440 PROCclear 450 PRINT TAB(5,8);CHR$135;"View to ASCII Converter" 460 PRINT TAB(5,9);CHR$135;"ASCII Unformatter" 470 PRINT TAB(5,10);CHR$135;"Display Unformatted ASCII" 480 PRINT TAB(5,11);CHR$135;"Printer Output to Disk" 490 PRINT TAB(5,12);CHR$135;"Teletext Article Printer" 500 PRINT TAB(5,13);CHR$135;"Printout Corrector" 510 PRINT TAB(5,14);CHR$135;"Printout Corrector Generator" 520 PRINT TAB(5,15);CHR$135;b$ 530 c%=FNA(3,8,34,15) 540 IF c%=1 THEN */ViewASC 550 IF c%=2 THEN CHAIN"Unform" 560 IF c%=3 THEN INPUTTAB(7,17)"Filename ?"f$:MODE3:OSCLI"SPECIAL "+f$:END 570 IF c%=4 THEN INPUTTAB(7,17)"Filename ?"f$:MODE3:OSCLI"PRINTTO "+f$:END 580 IF c%=5 THEN CHAIN"TelPrnt" 590 IF c%=6 THEN OSCLI"SUBS1":PRINT TAB(7,17)"Installed & Running":END 600 IF c%=7 THEN CHAIN"SUBSGEN" 610 ENDPROC 620 **************** 630 DEFPROCother 640 PROCclear 650 PRINT TAB(6,8);CHR$135;"Presenting Poland Pt.1" 660 PRINT TAB(6,9);CHR$135;"ECG Simulator V.3" 670 PRINT TAB(6,10);CHR$135;"Rom Header Creator" 680 PRINT TAB(6,11);CHR$135;"Auto Data Scrambler" 690 PRINT TAB(6,12);CHR$135;"Wordsearch Creator" 700 PRINT TAB(6,13);CHR$135;b$ 710 c%=FNA(3,8,34,13) 720 IF c%=1 THEN CHAIN"POLAND" 730 IF c%=2 THEN CHAIN"ECGSim3" 740 IF c%=3 THEN CHAIN"BldROM" 750 IF c%=4 THEN CHAIN"SCRAM" 760 IF c%=5 THEN CHAIN"WrdSrch" 770 ENDPROC 780 **************** 790 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2 800 REPEATPRINT TAB(`%,a%);CHR$132;CHR$157;CHR$135;TAB((`%+b%),a%);CHR$156:*FX15 810 A$=GET$:e%=VALA$:IF A$=CHR$13GOTO860 820 IF e%=0 THEN e%=-1 830 IF (a%+e%)>c%PRINT TAB(`%,a%);SPC2:a%=(d%+1):GOTO860 840 IF (a%+e%)<(d%+1)PRINT TAB(`%,a%);SPC2:a%=c%:GOTO860 850 PRINT TAB(`%,a%);SPC2:a%=a%+e% 860 UNTILA$=CHR$13:*FX4,0 870 =(a%-d%) 880 DEFPROCa:*KEY14 1|M 890 *KEY15 0|M 900 *KEY12 0|M 910 *KEY13 1|M 920 ENDPROC 930 **************** 940 DEFPROCclear 950 FORI%=5TO22:PRINT TAB(3,I%);SPC(35):NEXT 960 ENDPROC