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
42 READ A$:IF A$<>"MARKER" THEN 42
44 GOSUB 50000:CLR
50 N=5:N=N-1:DIM T$(N),A$(N),P$(N)
60 FORI=0TON:READT$(I),A$(I),P$(I):NEXT
70 SP$="                                      "
80 A$="GAZETTE'S FEBRUARY ADVERTISERS":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]";P$(I);
230 PRINTLEFT$(SP$,36-LEN(P$(I)));
240 PRINT"[146][144]----------------------------------------";:NEXT
250 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
260 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][206][160][193][196][214][197][210][212][201][211][197][205][197][206][212][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 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 IF A$(C)="GAZSCREEN" THEN 430
390 IF A$(C)="TEXT" THEN 580
400 IF A$(C)="PROGRAM" THEN 550
410 :
420 :
430 B=0:POKE52992+3,LEN(T$(C)):REM LENGTH OF FILE NAME
440 FOR I=1 TO LEN(T$(C)):POKE 52992+3+I,ASC(MID$(T$(C),I,1)):NEXT
450 SYS 52992:REM LOAD AND SHOW THE PICTURE
460 RUN
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);T$(C);CHR$(34);",8":PRINT"RUN"
560 D$=T$(C):GOSUB850
570 POKE631,13:POKE632,13:POKE631,13:POKE198,2:END
580 FORI=1TOLEN(T$(C)):POKEI+49153,ASC(MID$(T$(C),I,1)):NEXT:REM FILENAME
590 POKE49170,LEN(T$(C))+2:D$=P$(C):REM FILENAME LENGTH
600 PRINT"[147]":D$=T$(C):GOSUB850:SYS49171:GOTO150
610 PRINTCHR$(14)"[147]"
680 RETURN
700 DATA MICROSTORM.AD,PROGRAM,MICROSTORM SOFTWARE
750 DATA BACKISSUE.AD,TEXT,BACK ISSUES - LAST CHANCE!
760 DATA SPECIAL DISKS.AD,TEXT,SPECIAL GAZETTE DISKS
770 DATA MAPPING.AD,TEXT,MAPPING THE 64
780 DATA MODEM.AD,TEXT,9600 BPS MODEM SALE (IBM ONLY)
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 PRINT"[147]":POKE53265,27:SYS65409:POKE56,160:POKE55,0:CLR
960 LOAD"MN",8
50000 FOR X=52992 TO 53186:READ A:POKE X,A:NEXT:RETURN
55000 DATA MARKER
60000 DATA 76,26,207,0,0,0,0,0,0,0,0
60001 DATA 0,0,0,0,0,0,0,0,0,0,0
60002 DATA 0,0,0,0,32,38,207,32,74,207,32
60003 DATA 228,255,240,251,96,169,4,133,251,169,207
60004 DATA 133,252,169,15,162,8,160,0,32,186,255
60005 DATA 173,3,207,166,251,164,252,32,189,255,169
60006 DATA 0,170,160,176,32,213,255,96,165,1,41
60007 DATA 254,133,1,169,0,133,251,169,180,133,252
60008 DATA 169,0,133,253,169,216,133,254,162,183,160
60009 DATA 239,32,151,207,169,0,133,251,169,176,133
60010 DATA 252,169,0,133,253,169,4,133,254,162,179
60011 DATA 160,254,32,151,207,173,253,179,141,24,208
60012 DATA 173,254,179,141,33,208,173,255,179,141,32
60013 DATA 208,165,1,9,1,133,1,96,142,25,207
60014 DATA 140,24,207,160,0,177,251,145,253,165,252
60015 DATA 205,25,207,208,8,165,251,205,24,207,208
60016 DATA 1,96,230,251,208,2,230,252,230,253,208
60017 DATA 227,230,254,169,0,240,221,251
61000 REM END OF LISTING