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=7:N=N-1:DIMT$(N),A$(N),P$(N)
60 FORI=0TON:READT$(I),A$(I),P$(I):NEXT
70 SP$="                                      "
80 A$="GAZETTE'S FEBRUARY COLUMNS":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][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
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 RELATED COLUMN."
617 PRINT" [195]OLUMNS ARE ON THIS SIDE AND PROGRAMS"
618 PRINT" ARE ON THE FLIP SIDE. [212]O RETURN TO"
619 PRINT" THE [195]OLUMNS AFTER RUNNING A PROGRAM,"
620 PRINT" REMEMBER TO TURN THE DISK OVER AND      RELOAD [205]ENU.[195]OLUMN.
621 [153]"               "
626 [153]"      (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) ASC(null)(null) (null)LEFT$VAL (null)VAL(null)(null)"
670 [161]MT$:[139]MT$[178]""[167]670
680 [142]
700 [131] 64/128 VIEW,64/128 VIEW,XX
720 [131] D'IVERSIONS,D'IVERSIONS,XX
730 [131] BEGINNER BASIC,BEGINNER BASIC,XX
740 [131] MACHINE LANGUAGE,MACH LANGUAGE,LUNAR64
750 [131] PROGRAMMER'S PAGE,PROG PAGE,MONEY QUERIES
760 [131] GEOS,GEOS,XX
770 [131] PD PICKS,PD PICKS,XX
850 [151]53265,27:[153]"WAIT";
855 [139] B[178]1[167] [141] 990
860 FF$[178]"LOADING "[170][199](34)[170]D$[170][199](34)
870 [153][163](40[171][195](FF$))[173]2)FF$
880 [153]"            PLEASE STAND BYLIST"
885 [139] [200](T$(C),3)[178]"MAC" [167] [151]53281,6:[151]53280,6
887 [142]
900 TT[178]176[170]8
910 [139] (CP[170]1)[172]8 [177] (N[170]1) [167] TT[178]176[170]N[170]1[171]CP[172]8
920 [142]
950 [153]"LOAD":[151]53265,27:[158]65409:[151]56,160:[151]55,0:[156]
960 [147]"MN",8
990 [143] FLIP DISK NOW
991 [153]"       FLIP TO OTHER SIDE OF DISK
992 PRINT"           THEN HIT ANY KEY..."
993 GET A$:IF A$="" THEN 993
999 RETURN