10CLOSE#0 20ON ERROR CLOSE#0:OSCLI"DR.0":RUN 30VDU3 40*FX15,10 50VDU3 60CLEAR:READ N%:DIM f$(N%):FOR I%=1 T O N%:READ f$(I%):NEXT 70MODE7:PROCscreen:VDU23;8202;0;0;0; 80X%=OPENIN"!BOOT":PTR#X%=&97:PRINT T AB(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET# X%);CHR$(BGET#X%):CLOSE#X% 90PRINTTAB(2,8);CHR$135;"101 ... Intr oduction / News" 100PRINTTAB(2,9);CHR$135;"102 ... Resu lts / Discussion" 110PRINTTAB(2,10);CHR$135;"103 ... Use r Response / Accounts" 120PRINTTAB(2,11);CHR$133;"104 ... Abo ut This Issue" 130PRINTTAB(2,12);CHR$135;"105 ... How to Present Programs" 140PRINTTAB(2,13);CHR$135;"106 ... Fin ding Cheats" 150PRINTTAB(2,14);CHR$135;"107 ... Int roduction to C" 160PRINTTAB(2,15);CHR$135;"108 ... Har dware Review" 170PRINTTAB(2,16);CHR$133;"109 ... Mes sages section" 180PRINTTAB(2,17);CHR$135;"110 ... Spr ite Handler Instructions" 190PRINTTAB(2,18);CHR$135;"111 ... DIR lock Instructions" 200PRINTTAB(2,19);CHR$135;"112 ... Let terhead Designer Instrux" 210PRINTTAB(2,20);CHR$135;"113 ... Wel sh Boys PD Catalogue" 220PRINTTAB(2,21);CHR$131;"999 ... Iss ue 21 Software Menu" 230PRINTTAB(2,6);CHR$131;"ENTER ARTICL E CODE";CHR$131;:INPUT""code$ 240*FX15 250s$=RIGHT$(code$,3):p$=LEFT$(code$,1 ) 260IF s$="999" THEN OSCLI"DR.2":CHAIN" !MENU" 270MODE3:VDU14 280PRINT"Press <Shift> to scroll pages ..." 290PRINT:PRINT:VDU23;8202;0;0;0; 300IF p$="P" OR p$="p" THEN VDU2 310IF LEFT$(s$,1)="1" THEN OSCLI"TYPE "+f$(VAL RIGHT$(s$,2)) 320VDU3 330*FX15,0 340VDU3 350PRINT"Output Complete - PRESS RETUR N" 360*FX15 370REPEAT UNTIL GET=13 380RUN 390* 400DATA 13,Intrdux,ResDisc,Rsp/Acc,Abo ut21,Present,ChtFind,C-Intro,Hrdware,Mai lbox,SprInst,DIRinst,LettrHd,TWB-Cat 410* 420DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 430REPEATPRINTTAB(£%,a%);CHR$132;CHR$1 57;CHR$135;TAB((£%+b%),a%);CHR$156:*FX15 440A$=GET$:e%=VALA$:IFA$=CHR$13GOTO490 450IFe%=0THENe%=-1 460IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO490 470IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO490 480PRINTTAB(£%,a%);SPC2:a%=a%+e% 490UNTILA$=CHR$13:*FX4,0 500=(a%-d%) 510* 520DEFPROCA:*KEY14 1|M 530*KEY15 0|M 540*KEY12 0|M 550*KEY13 1|M 560ENDPROC 570* 580DEFPROCfnclear 590OSCLI"KEY12":OSCLI"KEY13":OSCLI"KEY 14":OSCLI"KEY15" 600ENDPROC 610* 620DEFPROCscreen 630PRINT"  //////////¶"; 640PRINT"  ISSUE NUMBER 21  650PRINT"         660PRINT"    SEP 1992  670PRINT"      680PRINT"   690FOR I%=1 TO 17:PRINT"  NEXT 700PRINT"  ||||||||||¶"; 710ENDPROC