8-Bit Software Online Conversion
:0.$.!MAG - Listing
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%=&98: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 ... Disc
ussion / News"
110PRINTTAB(2,10);CHR$133;"103 ... Abo
ut this Issue"
120PRINTTAB(2,11);CHR$135;"104 ... Pro
gram Documentation"
130PRINTTAB(2,12);CHR$135;"105 ... Use
r Comments"
140PRINTTAB(2,13);CHR$135;"106 ... TBI
update"
150PRINTTAB(2,14);CHR$133;"107 ... Mes
sages Section"
160PRINTTAB(2,15);CHR$135;"108 ... Do
you remember?"
170PRINTTAB(2,16);CHR$135;"109 ... Pre
senting Programs 2"
180PRINTTAB(2,17);CHR$135;"110 ... Bee
b & Arch Comparison"
190PRINTTAB(2,18);CHR$135;"111 ... Pig
gy-backing ROMs"
200PRINTTAB(2,19);CHR$135;"112 ... 2x1
6K ROMs on one EPROM"
220PRINTTAB(2,20);CHR$131;"999 ... Iss
ue 22 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 12,IntNews,DisNews,About22,Dcu
mnts,Cmments,TBIupdt,MailBox,Rmember,Pre
sent,Compare,PiggyBk,EPROM
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 22
650PRINT"
660PRINT"
OCT 1992
670PRINT"
680PRINT"
690FOR I%=1 TO 16:PRINT"
NEXT
700PRINT"
||||||||||¶";
710ENDPROC