10 IFA=0THENA=1:LOAD"TEXT READER",8,1
30 REM POKE56,56:POKE55,0:CLR
40 F=49153:FL=49170:FORI=820TO1023:POKEI,0:NEXT
50 N=3:N=N-1:DIMT$(N),A$(N),P$(N),AS(N),PS(N)
60 FORI=0TON:READT$(I),A$(I),P$(I),AS(I),PS(I):NEXT
70 SP$="                                      "
80 A$="GAZETTE'S FEBRUARY 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
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][181][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][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][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 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 GOTO550:REM  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):PP=PS(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):PP=AS(C):GOSUB850:SYS49171:GOTO150
650 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 HINTS FROM A HEAVY USER,HEAVY USER.FT,XX,1,1
705 DATA STEEL TRAP, STEELTRAP.FT,XX,1,1
710 DATA REVIEW - GEOCANVAS, GEOCANVAS.RV,XX,1,1
850 POKE53265,27:PRINT"[146]";
851 FF$="MAKE SURE YOU HAVE SIDE"+STR$(PP)+" READY"
852 PRINTTAB((40-LEN(FF$))/2)FF$
853 FF$="AND PRESS ANY KEY"
854 PRINTTAB((40-LEN(FF$))/2)FF$
855 GET X$:IF X$="" THEN 855
860 FF$="LOADING "+CHR$(34)+D$+CHR$(34)
870 PRINTTAB((40-LEN(FF$))/2)FF$
880 PRINT"            PLEASE STAND BY[155]"
886 REM IF LEFT$(T$(C),3)="SUP"THEN POKE53281,6:POKE53280,6
887 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