10 IFA=0THENA=1:LOAD"TEXT READER",8,1
30 POKE56,56:POKE55,0:CLR
40 F=49153:FL=49170:FORI=820TO1023:POKEI,0:NEXT
50 N=2:N=N-1:DIMT$(N),A$(N),P$(N)
60 FORI=0TON:READT$(I),A$(I),P$(I),PP(I) :NEXT
70 SP$="                                      "
80 A$="GAZETTE'S JULY FEATURES":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 REM 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][180][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 REM 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][198][197][193][212][213][210][197][160][160][160][160][160][160][160][160][160][160][160][160]";
290 PRINT"[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][205][193][201][206][160][205][197][206][213][160][160][160][160][160][160]";
300 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8"ANDA$<>"X")THEN300
310 IFA$="X"THEN 950
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 GOTO580
370 PRINT"[147]":POKE53265,27:IFCP=1 AND C=11 THEN 580
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] [201][205][208][207][210][212][193][206][212] [206][207][212][201][195][197]:"
611 PRINT" [198]EATURES AND [195]OLUMNS ARE FOUND ON"
617 PRINT" THE FLIP SIDE OF THIS DISK."
618 PRINT" [210]EMEMBER TO [198][204][201][208] [212][200][197] [196][201][211][203] BEFORE"
619 PRINT" MAKING A FEATURE OR COLUMN"
620 PRINT" SELECTION. [193]LSO, BE SURE TO FLIP"
621 PRINT" BACK BEFORE EXITING TO THE MAIN"
622 PRINT" MENU PROGRAM."
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 ASSEMBLY LANGUAGE, ASSEMBLY.FT1,FEATURE,1
710 DATA 6502 MNEMONICS, MNEMONICS.FT2,FEATURE,1
850 GOSUB1000
851 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
950 PRINT"[147]":POKE53265,27:SYS65409:POKE56,160:POKE55,0:CLR
960 LOAD"MN",8
1000 PRINT"        MAKE SURE DISK IS ON SIDE";PP(C)
1005 PRINT"          AND THEN HIT ANY KEY..."
1010 GET A$:IF A$=""THEN1010
1020 RETURN