10ON ERROR CLOSE#0:OSCLI"DR.0":RUN 20VDU3 30*FX15,10 40VDU3 50CLEAR:READ N%:DIM f$(N%):FOR I%=1 T O N%:READ f$(I%):NEXT 60MODE7:*LOAD !SCREEN FFFF7C00 70X%=OPENIN"QUEST":PTR#X%=253:PRINT T AB(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET# X%);CHR$(BGET#X%):CLOSE#X% 80PRINTTAB(2,8);CHR$135;"101 ... What is 8-Bit Software ?" 90PRINTTAB(2,9);CHR$135;"102 ... Chan ges to 8-Bit Software" 100PRINTTAB(2,10);CHR$133;"103 ... Que stionnaire instructions" 110PRINTTAB(2,11);CHR$135;"104 ... FIL L IN QUESTIONNAIRE" 120PRINTTAB(2,12);CHR$133;"105 ... Abo ut This Issue" 130PRINTTAB(2,13);CHR$135;"106 ... BAS IC Program Protection" 140PRINTTAB(2,14);CHR$135;"107 ... Tel etext-format Articles" 150PRINTTAB(2,15);CHR$133;"108 ... Mes sages section" 160PRINTTAB(2,16);CHR$135;"109 ... New TBI Arrangements" 170PRINTTAB(2,17);CHR$135;"110 ... GLM PD Catalogue" 180PRINTTAB(2,18);CHR$135;"111 ... BBC PD Catalogue Notes" 190PRINTTAB(2,19);CHR$135;"112 ... Opt imising 6502 code" 200PRINTTAB(2,20);CHR$133;"113 ... Con clusion" 210PRINTTAB(2,21);CHR$131;"999 ... Iss ue 20 Software Menu" 220PRINTTAB(2,6);CHR$131;"ENTER ARTICL E CODE";CHR$131;:INPUT""code$ 230VDU23;8202;0;0;0;:*FX15 240s$=RIGHT$(code$,3):p$=LEFT$(code$,1 ) 250IF s$="999" THEN OSCLI"DR.2":CHAIN" !MENU" 260IF s$="104" THEN C%=0:CHAIN"QuFill" 270IF s$="107" THEN PROCcjr 280MODE3:VDU14 290PRINT"Press <Shift> to scroll pages ..." 300PRINT:PRINT 310VDU23;8202;0;0;0; 320IF p$="P" OR p$="p" THEN VDU2 330IF LEFT$(s$,1)="1" THEN OSCLI"TYPE "+f$(VAL RIGHT$(s$,2)) 340VDU3 350*FX15,0 360VDU3 370PRINT"Output Complete - PRESS RETUR N" 380*FX15 390REPEAT UNTIL GET=13 400RUN 410* 420DATA 13,8BS,CHANGES,QuInstr, ,About 20,ProtArt, ,Mailbox,NewTBI,GLM`CAT,B`NO TES,Opt6502,Conclsn 430* 440DEFPROCcjr:VDU23;8202;0;0;0; 450FOR I%=5 TO 22:PRINT TAB(3,I%);SPC( 35):NEXT 460PRINTTAB(5,8);CHR$135;"Wordsearch C reator Instrux" 470PRINTTAB(5,9);CHR$135;"ECG Simulato r Instructions" 480PRINTTAB(5,10);CHR$135;"Cheats #1" 490PRINTTAB(5,11);CHR$135;"Cheats #2" 500PRINTTAB(5,12);CHR$135;"Rom-builder Instructions" 510PRINTTAB(5,13);CHR$135;"Return to M ain Magazine Menu" 520PROCA:choice%=FNA(3,8,34,13) 530IF choice%=1 THEN */WRDINFO 540IF choice%=2 THEN */ECGINFO 550IF choice%=3 THEN */CHEATS 560IF choice%=4 THEN */CHEATS2 570IF choice%=5 THEN */ROMinfo 580RUN 590* 600DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 610REPEATPRINTTAB(£%,a%);CHR$132;CHR$1 57;CHR$135;TAB((£%+b%),a%);CHR$156:*FX15 620A$=GET$:e%=VALA$:IFA$=CHR$13GOTO670 630IFe%=0THENe%=-1 640IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO670 650IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO670 660PRINTTAB(£%,a%);SPC2:a%=a%+e% 670UNTILA$=CHR$13:*FX4,0 680=(a%-d%) 690* 700DEFPROCA:*KEY14 1|M 710*KEY15 0|M 720*KEY12 0|M 730*KEY13 1|M 740ENDPROC 750* 760DEFPROCfnclear 770OSCLI"KEY12":OSCLI"KEY13":OSCLI"KEY 14":OSCLI"KEY15" 780ENDPROC