10 GOTO100
12 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO"
13 PRINT" RUN ANY PROGRAMS"
14 PRINT" PLEASE REFER TO THE"
15 PRINT" INSTRUCTIONS IN THE"
16 PRINT" [195][207][205][208][213][212][197]!'S [199]AZETTE"
17 PRINT" [205]AGAZINE ISSUE DATED"
18 PRINT" THE SAME MONTH AS"
19 PRINT" THIS DISK."
20 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207][160][195][207][206][212]."
22 GETMT$:IFMT$=""THEN22
23 PRINT"[147] [208]LEASE NOTE THAT THE"
24 PRINT" [199]AZETTE [196]ISK OFTEN"
25 PRINT" FEATURES PROGRAMS"
26 PRINT" WHICH WRITE DATA TO"
27 PRINT" THE DISK. [195]OPY THOSE"
28 PRINT" PROGRAMS TO ANOTHER"
29 PRINT" DISK - THIS DISK IS"
30 PRINT" WRITE PROTECTED."
32 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [205][197][206][213]"
33 GETMT$:IFMT$=""THEN33
34 RETURN
100 POKE36879,24:POKE36865,24:GOSUB800
120 GOSUB500
140 SP$="                      "
172 NP=INT(IT/8):CP=0
173 GOSUB12
175 PRINTCHR$(142);
180 POKE36867,0
185 PRINT"[147][146][144][169] COMPUTE!'S GAZETTE [144][223]";
190 A$=MO$+" 1985"
195 CX=11-LEN(A$)/2:A$=LEFT$(LEFT$(SP$,CX)+A$+SP$,22):PRINTA$;
196 PRINT"  (C) 1985 COMPUTE!"
200 PRINT"  PUBLICATIONS, INC.  ";
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"[144]    PAGE #";CP+1;"OF";NP+1
320 PRINT"[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
481 PRINT"";
482 PRINTTAB(7)"LOADING"
483 PRINT""TAB(10-LEN(F$(C))/2)CHR$(34)F$(C)CHR$(34)
484 PRINT"   PLEASE STAND BY"
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