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