10 IFA=0THENA=1:LOAD"TEXTREADER64",8,1
30 POKE56,56:POKE55,0:CLR
40 F=49153:FL=49170:FORI=820TO1023:POKEI,0:NEXT
50 N=9:DIMT$(N),A$(N),P$(N)
60 FORI=0TON:READT$(I),A$(I),P$(I):NEXT
70 SP$="                                      "
80 A$="COMPUTE'S SEPTEMBER GAZETTE DISK":CX=20-LEN(A$)/2
90 Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40
100 Z$=Z$+CHR$(ASC(MID$(A$,I))+128):NEXT
110 NP=INT(N/8):CP=0:TT=183
120 POKE53280,15:POKE53281,15
130 POKE53282,8:POKE53283,1:POKE53284,6
140 GOSUB610:REM OPENING ADVISORY
150 PRINT"[147]":POKE53280,15:POKE53281,15:POKE53265,PEEK(53265)OR64
160 PRINTCHR$(142)"[147][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
170 PRINT""Z$;
180 PRINT"[160][160][168][195][169][160][177][185][185][179][160][195][207][205][208][213][212][197][160][208][213][194][204][174][160][201][206][212][167][204][172][160][204][212][196][174][160][160]";
190 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][145]"
200 PRINT"[146][144]----------------------------------------";
210 S=CP*8:E=CP*8+7:IFE>NTHENE=N
220 FORI=STOE:PRINT"[160]";CHR$(177+I-CP*8);"[160][151]";T$(I);
230 PRINTLEFT$(SP$,36-LEN(T$(I)));
240 PRINT"[146][144]----------------------------------------";:NEXT
250 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
260 PRINT"PRESS [210][197][212][213][210][206][146] FOR NEXT PAGE[145][145]"
265 GOSUB 900
266 :
270 PRINT"[145][145][160][208][210][197][211][211][160][177][173]"CHR$(TT);
280 PRINT"[160][212][207][160][204][207][193][196][160][193][160][208][210][207][199][210][193][205][160][207][210][160][193][210][212][201][195][204][197][160]";
290 PRINT"[160][160][160][160][160][160][160][160][208][210][197][211][211][160][216][160][212][207][160][197][216][201][212][160][212][207][160][194][193][211][201][195][160][160][160][160][160][160][160][160]";
300 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8"ANDA$<>"X")THEN300
310 IFA$="X"THENPRINT"[147]":POKE53265,27:SYS65409:POKE56,160:POKE55,0:CLR:END
320 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
330 IFA$=CHR$(13)THEN150
340 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
350 C=FV+CP*8-1
360 IFC>NTHEN300
365 IF A$(C)="XX" GOTO 550
366 IF P$(C)="XX" GOTO 580
370 PRINT"[147]":POKE53265,27:IFCP=1 AND C=11 THEN 580
380 B=0:PRINT""TAB(11)"ARTICLE[146] OR PROGRAM"
390 PRINTTAB(8)"[145][145][145][145][145]PRESS ANY KEY TO SWITCH,"
400 PRINTTAB(10)"OR RETURN[146] TO SELECT."
410 GETA$:IFA$=""THEN410
420 IFA$=CHR$(13)THEN460
430 IFB=0THENAR$="ARTICLE OR PROGRAM[146]":B=1:GOTO450
440 AR$="ARTICLE[146] OR PROGRAM":B=0
450 PRINT""TAB(11)AR$:GOTO410
460 IFB=0THEN580
470 IFC<>3THEN550
480 B=0:C=1
490 CX=21-LEN(Q$(C))/2:B$=LEFT$(SP$,CX)+Q$(C)
500 PRINT""B$
510 GETA$:IFA$=""THEN510
520 IFA$=CHR$(13)THENP$(C)=R$(C):GOTO550
530 IFB=0THENC=C+1:B=1:GOTO490
540 C=C-1:B=0:GOTO490
550 PRINT"[147][146][155]LOAD[146]";CHR$(34);P$(C);CHR$(34);",8":PRINT"RUN"
560 D$=P$(C):GOSUB850
570 POKE631,13:POKE632,13:POKE631,13:POKE198,2:END
580 FORI=1TOLEN(A$(C)):POKEI+F,ASC(MID$(A$(C),I,1)):NEXT
590 POKEFL,LEN(A$(C))+2:D$=T$(C)
600 PRINT"[147]":D$=A$(C):GOSUB850:SYS49171:GOTO150
610 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO RUN ANY PROGRAMS"
611 PRINT" PLEASE REFER TO THE INSTRUCTIONS IN"
612 PRINT" [195][207][205][208][213][212][197]'S [199]AZETTE [205]AGAZINE ISSUE"
613 PRINT" DATED THE SAME MONTH AS THIS DISK."
614 PRINT" [208]LEASE NOTE THAT THIS DISK CONTAINS"
615 PRINT" [194][207][206][213][211] PROGRAMS WHICH ARE NOT PUBLISHED"
616 PRINT" IN THE [199]AZETTE. [198]OR YOUR CONVENIENCE,"
617 PRINT" DOCUMENTATION HAS BEEN INCLUDED ON THE"
618 PRINT" DISK, ALONG WITH A TEXT READER. [215]HEN A"
619 PRINT" [194][207][206][213][211] PROGRAM IS SELECTED FROM THE"
620 PRINT" MENU, YOU ARE GIVEN THE OPTION OF"
621 PRINT" READING THE ARTICLE OR RUNNING THE"
622 PRINT" PROGRAM. [213]SE THE CURSOR KEYS TO MAKE"
623 PRINT" YOUR SELECTION, THEN HIT [210][197][212][213][210][206]."
626 PRINT"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
670 GETMT$:IFMT$=""THEN670
680 RETURN
700 DATA DATABASE,XX,DATABASE
710 DATA BRICK LAYER,XX,BRICK LAYER
720 DATA CD+,XX,CD-DOODLE
730 DATA SILICON COBBLER,XX,SILICON COBBLER
760 DATA *BONUS* FOOTBALL,FOOTBALL.A,FOOTNOTE
780 DATA "PD: 1581 DIRECTORY ASSIST",XX,1581 DIR ASSIST
786 DATA "PP: VECTOR FINDER",XX,VECTOR FINDER.PP
796 DATA "PP: SCREENBOUNCER",XX,SCREENBOUNCER.PP
846 DATA 64 MLX,XX,64 MLX
848 DATA AUTOMATIC PROOFREADER,XX,PROOFREADER
850 POKE53265,27:PRINT"[146]";
860 FF$="LOADING "+CHR$(34)+D$+CHR$(34)
870 PRINTTAB((40-LEN(FF$))/2)FF$
880 PRINT"            PLEASE STAND BY[155]":RETURN
900 TT=176+8
910 IF (CP+1)*8 > (N+1) THEN TT=176+N+1-CP*8
920 RETURN