10 IF A=0THEN A=1:LOAD"TEXT READER",8,1
30 POKE56,56:POKE55,0:CLR
40 F=49153:FL=49170:FORI=820TO1023:POKEI,0:NEXT
50 N=6:N=N-1:DIMT$(N),P$(N),A$(N),AS(N),PS(N)
60 FORI=0TON:READT$(I),P$(I),A$(I),AS(I):NEXT:REM PS(I)
70 SP$="                                      "
80 A$="GAZETTE'S MAIN MENU - FEBRUARY 1995":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
265 GOSUB 900
266 :
270 PRINT"[145][145][160][208][210][197][211][211][160][177][173]"CHR$(TT);
280 PRINT"[160][160][160][160][160][160][212][207][160][204][207][193][196][160][193][160][211][197][204][197][195][212][201][207][206][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
290 PRINT"[208][210][197][211][211][160][216][160][212][207][160][210][197][212][213][210][206][160][212][207][160][194][193][211][201][195][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 AS(C)=1 GOTO 550
366 REM IF P$(C)="1" GOTO 580
370 PRINT"[147]":POKE53265,27:GOTO580
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);A$(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
680 RETURN
700 DATA TABLE OF CONTENTS,TTT,TOC,2
710 DATA GAZETTE ADVERTISERS,MENU.ADVERT,MENU.ADVERT,1
720 DATA FEATURES,MENU.FEATURE,MENU.FEATURE,1
730 DATA COLUMNS,MENU.COLUMN,MENU.COLUMN,1
740 DATA PROGRAMS,MENU.PROG,MENU.PROG,1
750 DATA GAZETTE DISK MASTHEAD,TTT,MASTHEAD,2
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
950 SYS64738