100 POKE36879,24:POKE36865,24:GOSUB800
120 PRINT"[147]ONE MOMENT PLEASE...":GOSUB500
140 SP$="                      "
172 NP=INT(IT/8):CP=0
175 PRINTCHR$(142);
180 POKE36867,0
185 PRINT"[147][146][144][169] COMPUTE!'S GAZETTE [144][223]";
190 A$="CONTENTS:"+MO$+" 1984"
195 CX=11-LEN(A$)/2:A$=LEFT$(LEFT$(SP$,CX)+A$+SP$,22):PRINTA$;
200 PRINT"[159][144][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
245 PRINT"[146]PRESS   TO SEE:"
250 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
260 FORI=STOE:PRINT"[144]F";CHR$(49+I-CP*8);"[146]";
262 A$=N$(I):K=LEN(A$):IFK<19THEN268
265 A$=N$(I):FORK=19TO1STEP-1
266 IFMID$(A$,K,1)<>" "THENNEXTK:STOP
267 K=K-1
268 PRINTLEFT$(A$,K):PRINT"   "MID$(A$,K+2,18)
300 NEXTI
310 PRINT"    PAGE #";CP+1;"OF";NP+1
320 PRINT"[144][223][146] NEXT PAGE:RETURN[144][169][146][157][148] ";
325 IF(E-S)>6THEN337
330 PRINT"";:FORI=1TO(7-(E-S))*2-1:PRINT"[144]";SP$;:NEXT
335 PRINTLEFT$(SP$,21)"[157][148] ";
337 POKE36867,46
340 SYS828:GETA$:IFA$<>CHR$(13)AND(A$<"[133]"ORA$>"[140]")THEN340
350 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
355 IFA$=CHR$(13)THEN175
360 FV=(ASC(A$)-133)*2+1:FV=FV+7*(FV>8)
365 C=FV+CP*8-1:IFC>ITTHEN340
470 POKE36879,27:PRINT"[147][146][142]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
480 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
490 POKE631+I,13:POKE631,13:POKE198,I+1:END
499 END
500 OPEN15,8,15,"I0"
510 OPEN1,8,8,"0:VICONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN 600
520 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),F$(IT)
530 FORI=0TOIT:INPUT#1,N$(I):INPUT#1,F$(I):NEXT
540 CLOSE1:CLOSE15:RETURN
600 CLOSE1:CLOSE15
610 PRINT"[147][195]AN'T READ [212]ABLE OF   [195]ONTENTS"
615 PRINT"[196]ISK [197]RROR:":PRINTEN;EM$
620 PRINT"[195]HECK:"
630 PRINT"1)[208]ROPER DISK?
640 [153]"2)STR$RIVE DOOR CLOSED?
650 PRINT"3)[193]LL CABLES ATTACHED?"
660 PRINT"[210]EMOVE, THEN RE-INSERTDISK, PRESS ANY  KEY  TO TRY AGAIN."
670 GETA$:IFA$=""THEN670
680 RUN
800 FORI=828TO858:READA:POKEI,A:NEXT:RETURN
900 DATA 120,173,4,144,205,96,3,240,248,141,96,3,41,248,10,9,8,141,15,144,32,159,255
910 DATA 165,197,201,64,240,228,88,96