10 CLOSE#0 20 ON ERROR CLOSE#0:OSCLI"DR.0":RUN 30 VDU3 40 *FX15,10 50 VDU3 60 CLEAR:READ N%:DIM f$(N%):FOR I%=1 TO N%:READ f$(I%):NEXT 70 MODE7:PROCscreen:VDU23;8202;0;0;0; 80 X%=OPENIN"!BOOT":PTR#X%=&97:PRINT TAB(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET#X%);CHR$(BGET#X%):CLOSE#X% 90 PRINTTAB(2,8);CHR$135;"101 ... Introduction / News" 100 PRINTTAB(2,9);CHR$135;"102 ... Results / Discussion" 110 PRINTTAB(2,10);CHR$135;"103 ... User Response / Accounts" 120 PRINTTAB(2,11);CHR$133;"104 ... About This Issue" 130 PRINTTAB(2,12);CHR$135;"105 ... How to Present Programs" 140 PRINTTAB(2,13);CHR$135;"106 ... Finding Cheats" 150 PRINTTAB(2,14);CHR$135;"107 ... Introduction to C" 160 PRINTTAB(2,15);CHR$135;"108 ... Hardware Review" 170 PRINTTAB(2,16);CHR$133;"109 ... Messages section" 180 PRINTTAB(2,17);CHR$135;"110 ... Sprite Handler Instructions" 190 PRINTTAB(2,18);CHR$135;"111 ... DIRlock Instructions" 200 PRINTTAB(2,19);CHR$135;"112 ... Letterhead Designer Instrux" 210 PRINTTAB(2,20);CHR$135;"113 ... Welsh Boys PD Catalogue" 220 PRINTTAB(2,21);CHR$131;"999 ... Issue 21 Software Menu" 230 PRINTTAB(2,6);CHR$131;"ENTER ARTICLE CODE";CHR$131;:INPUT""code$ 240 *FX15 250 s$=RIGHT$(code$,3):p$=LEFT$(code$,1) 260 IF s$="999" THEN OSCLI"DR.2":CHAIN"!MENU" 270 MODE3:VDU14 280 PRINT"Press to scroll pages ..." 290 PRINT:PRINT:VDU23;8202;0;0;0; 300 IF p$="P" OR p$="p" THEN VDU2 310 IF LEFT$(s$,1)="1" THEN OSCLI"TYPE "+f$(VAL RIGHT$(s$,2)) 320 VDU3 330 *FX15,0 340 VDU3 350 PRINT"Output Complete - PRESS RETURN" 360 *FX15 370 REPEAT UNTIL GET=13 380 RUN 390 * 400 DATA 13,Intrdux,ResDisc,Rsp/Acc,About21,Present,ChtFind,C-Intro,Hrdware,Mailbox,SprInst,DIRinst,LettrHd,TWB-Cat 410 * 420 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2 430 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$135;TAB((`%+b%),a%);CHR$156:*FX15 440 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO490 450 IFe%=0THENe%=-1 460 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO490 470 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO490 480 PRINTTAB(`%,a%);SPC2:a%=a%+e% 490 UNTILA$=CHR$13:*FX4,0 500 =(a%-d%) 510 * 520 DEFPROCA:*KEY14 1|M 530 *KEY15 0|M 540 *KEY12 0|M 550 *KEY13 1|M 560 ENDPROC 570 * 580 DEFPROCfnclear 590 OSCLI"KEY12":OSCLI"KEY13":OSCLI"KEY14":OSCLI"KEY15" 600 ENDPROC 610 * 620 DEFPROCscreen 630 PRINT"ƒ ‘ÿ¯¯¯¯¯¯¯¥ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÿ"; 640 PRINT"‘ÿ¯¯¯¯¯¯¯¯¯¯¯ª¯¯¯¯¯¯¯¯ƒISSUE NUMBERƒ21‘ÿ"; 650 PRINT"‘ÿ—êë µ ¤µ ê£àðàðê ° °ð°ðàð   ‘ÿ"; 660 PRINT"‘ÿ—ê뢡·µµ· ¢ëêêê¤ê¡µ´µ½µµê®ƒSEP 1992‘ÿ"; 670 PRINT"‘—¢£ £¡¡£¡ ¢£¢£¢ ¢¡££¡¡¡¡¢£   ‘ "; 680 PRINT"‘ÿ   Œ ‘ÿ"; 690 FOR I%=1 TO 17:PRINT"‘ÿ ‘ÿ";:NEXT 700 PRINT"‘ÿüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüÿ"; 710 ENDPROC