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