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=9: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 JANUARY PROGRAMS":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: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
610 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO RUN ANY PROGRAMS"
611 PRINT" PLEASE REFER TO THE INSTRUCTIONS."
617 PRINT" [196]OCUMENTATION HAS BEEN INCLUDED ON THE"
618 PRINT" DISK, ALONG WITH A TEXT READER. [215]HEN A"
619 PRINT" PROGRAM IS SELECTED FROM THE MENU,"
620 PRINT" YOU ARE GIVEN THE OPTION OF READING"
621 PRINT" THE ARTICLE OR RUNNING THE PROGRAM."
622 PRINT" [213]SE THE CURSOR KEYS TO MAKE YOUR"
623 PRINT" SELECTION, THEN HIT [210]ETURN. [207]NCE"
624 PRINT" YOU RUN A PROGRAM, HOWEVER, YOU MUST"
625 PRINT" RELOAD THE MENU."
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 TEXT SCROLL,TEXT SCROLL.DOC,TEXT SCROLL,1,2
710 DATA DRIVE ERROR, DRIVE ERROR.DOC,DRIVE ERROR DEMO,1,2
720 DATA LODRAW 2 (PART 1),LODRAW2.DOC1,LODRAW2,1,2
725 DATA LODRAW 2 (PART 2), LODRAW2.DOC2,LODRAW2,1,2
730 DATA THE VALUE OF MONEY,VALUE.DOC,VALUE OF MONEY,1,2
740 DATA LIFE, PD.DOC,LIFE INST,1,2
750 DATA WHATZIT,PD.DOC,WHATZIT,1,2
770 DATA DISK CHECKER, PD.DOC, DISK CHECKER,1,2
780 DATA DISK DISPLAY, PD.DOC, DISK DISPLAY,1,2
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 IF LEFT$(T$(C),3)="SUP"THEN POKE53281,3:POKE53280,3
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