10MODE7:PROCscreen:b$="Back to main m enu" 20ONERROROSCLI"DR.0":OSCLI"EXEC !BOOT ":END 30VDU6:PROCa 40PRINT TAB(6,8);CHR$135;" Game s & Demos" 50PRINT TAB(6,9);CHR$135;" M usic" 60PRINT TAB(6,10);CHR$135;" Telete xt Examples" 70PRINT TAB(6,11);CHR$135;" Oth er Items" 80PRINT TAB(6,12);CHR$135;" De-arch ive Software" 90PRINT TAB(6,13);CHR$135;"**** BACK TO MAGAZINE ****" 100d%=FNA(4,8,31,13) 110IF d%=1 THEN PROCgames 120IF d%=2 THEN PROCmusic 130IF d%=3 THEN PROCteletext 140IF d%=4 THEN PROCother 150IF d%=5 THEN CLS:PRINT"Refer to iss ue 22 documentation for instructions on how to decompress these archives."'' "DRIVE 2":OSCLI"EX A":PRINT''"DRIVE 0":O SCLI"EX :0.A":END 160IF d%=6 THEN error 170RUN 180DEFPROCgames 190PROCclear 200PRINT TAB(7,8);CHR$135;"Push the Ba le - BBC B" 210PRINT TAB(7,9);CHR$135;"Push the Ba le - Master" 220PRINT TAB(7,10);CHR$135;"Trading Si mulation" 230PRINT TAB(7,11);CHR$135;"Big Screen Alien Demo" 240PRINT TAB(7,12);CHR$135;"Promote De mo" 250PRINT TAB(7,13);CHR$135;"Dish-Drawi ng Demo" 260PRINT TAB(7,14);CHR$135;b$ 270c%=FNA(3,8,34,14) 280IF c%=1 THEN CHAIN"PUSH" 290IF c%=2 THEN CHAIN"PUSH2" 300IF c%=3 THEN CHAIN"TRADE" 310IF c%=4 THEN CHAIN"ALIEN" 320IF c%=5 THEN */PROMOTE 330IF c%=6 THEN CHAIN"DshDraw" 340ENDPROC 350DEFPROCmusic 360PROCclear 370PRINT TAB(9,8);CHR$135;"Debussy : L ittle Negro" 380PRINT TAB(9,9);CHR$135;"Airwolf" 390PRINT TAB(9,10);CHR$135;"Land of Ho pe & Glory" 400PRINT TAB(9,11);CHR$135;"Stairway t o Heaven" 410PRINT TAB(9,12);CHR$135;b$ 420c%=FNA(3,8,34,12) 430IF c%=1 THEN CHAIN"LitNeg" 440IF c%=2 THEN CHAIN"AirWolf" 450IF c%=3 THEN CHAIN"Land" 460IF c%=4 THEN CHAIN"Heaven" 470ENDPROC 480DEFPROCteletext 490PROCclear 500PRINT TAB(5,8);CHR$135;"Title-Top S tyle Screen" 510PRINT TAB(5,9);CHR$135;"Boxes Style Screen" 520PRINT TAB(5,10);CHR$135;"Colour Cla sh Demonstration" 530PRINT TAB(5,11);CHR$135;"Problem De monstration" 540PRINT TAB(5,12);CHR$135;b$ 550c%=FNA(3,8,34,12) 560IF c%=1 THEN CHAIN"TitlTop" 570IF c%=2 THEN CHAIN"Boxes" 580IF c%=3 THEN CHAIN"ColClsh" 590IF c%=4 THEN CHAIN"TelProb" 600ENDPROC 610DEFPROCother 620PROCclear 630PRINT TAB(6,8);CHR$135;"Area Calcul ator" 640PRINT TAB(6,9);CHR$135;"Units Conve rsion" 650PRINT TAB(6,10);CHR$135;"DFS => ADF S Utility" 660PRINT TAB(6,11);CHR$135;"*CLONE uti lity sourcecode" 670PRINT TAB(6,12);CHR$135;"*VIEWCON u tility" 680PRINT TAB(6,13);CHR$135;"Viewcon ut ility sourcecode" 690PRINT TAB(6,14);CHR$135;b$ 700c%=FNA(3,8,34,14) 710IF c%=1 THEN CHAIN"Areas" 720IF c%=2 THEN CHAIN"Cnvrter" 730IF c%=3 THEN CHAIN"DTOA" 740IF c%=4 THEN CHAIN"ClonSrc" 750IF c%=5 THEN *VIEWCON 760IF c%=6 THEN CHAIN"ConvSrc" 770ENDPROC 780DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 790REPEATPRINT TAB(£%,a%);CHR$132;CHR$ 157;CHR$135;TAB((£%+b%),a%);CHR$156:*FX1 5 800A$=GET$:e%=VALA$:IF A$=CHR$13GOTO85 0 810IF e%=0 THEN e%=-1 820IF (a%+e%)>c%PRINT TAB(£%,a%);SPC2: a%=(d%+1):GOTO850 830IF (a%+e%)<(d%+1)PRINT TAB(£%,a%);S PC2:a%=c%:GOTO850 840PRINT TAB(£%,a%);SPC2:a%=a%+e% 850UNTILA$=CHR$13:*FX4,0 860=(a%-d%) 870DEFPROCa:*KEY14 1|M 880*KEY15 0|M 890*KEY12 0|M 900*KEY13 1|M 910ENDPROC 920DEFPROCclear 930FORI%=5TO20:PRINT TAB(3,I%);SPC(35) :NEXT 940ENDPROC 950DEFPROCscreen:VDU23;8202;0;0;0; 960PRINT"  //////////¶"; 970PRINT"  ISSUE NUMBER 22  980PRINT"         990PRINT"    OCT 1992  1000PRINT"      1010PRINT"   1020FOR I%=1 TO 16:PRINT"  NEXT 1030PRINT"  ||||||||||¶"; 1040ENDPROC