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%=&98: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 ... Discussion / News" 110 PRINTTAB(2,10);CHR$133;"103 ... About this Issue" 120 PRINTTAB(2,11);CHR$135;"104 ... Program Documentation" 130 PRINTTAB(2,12);CHR$135;"105 ... User Comments" 140 PRINTTAB(2,13);CHR$135;"106 ... TBI update" 150 PRINTTAB(2,14);CHR$133;"107 ... Messages Section" 160 PRINTTAB(2,15);CHR$135;"108 ... Do you remember?" 170 PRINTTAB(2,16);CHR$135;"109 ... Presenting Programs 2" 180 PRINTTAB(2,17);CHR$135;"110 ... Beeb & Arch Comparison" 190 PRINTTAB(2,18);CHR$135;"111 ... Piggy-backing ROMs" 200 PRINTTAB(2,19);CHR$135;"112 ... 2x16K ROMs on one EPROM" 220 PRINTTAB(2,20);CHR$131;"999 ... Issue 22 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 12,IntNews,DisNews,About22,Dcumnts,Cmments,TBIupdt,MailBox,Rmember,Present,Compare,PiggyBk,EPROM 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ƒ22•ÿ"; 650 PRINT"•ÿ—êë µ ¤µ ê£àðàðê ° °ð°ðàð   •ÿ"; 660 PRINT"•ÿ—ê뢡·µµ· ¢ëêêê¤ê¡µ´µ½µµê®ƒOCT 1992•ÿ"; 670 PRINT"•—¢£ £¡¡£¡ ¢£¢£¢ ¢¡££¡¡¡¡¢£   • "; 680 PRINT"•ÿ   Œ •ÿ"; 690 FOR I%=1 TO 16:PRINT"•ÿ •ÿ";:NEXT 700 PRINT"•ÿüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüÿ"; 710 ENDPROC