10 GOTO110
12 POKE53265,27
13 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO RUN ANY PROGRAMS"
14 PRINT" PLEASE REFER TO THE INSTRUCTIONS IN"
16 PRINT" THE [195][207][205][208][213][212][197]!'S [199]AZETTE [205]AGAZINE ISSUE"
18 PRINT" DATED THE SAME MONTH AS THIS DISK."
20 PRINT" [208]LEASE NOTE THE [199]AZETTE [196]ISK OFTEN"
22 PRINT" FEATURES PROGRAMS WHICH WRITE DATA"
24 PRINT" TO THE DISK. [195]OPY THOSE PROGRAMS TO"
26 PRINT" ANOTHER DISK - THIS DISK IS WRITE"
28 PRINT" PROTECTED."
30 PRINT"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
32 GETMT$:IFMT$=""THEN32
34 RETURN
110 POKE53282,8:POKE53283,15:POKE53284,2
120 GOSUB500
140 SP$="                                      "
150 A$="TABLE OF CONTENTS FOR "+MO$+" 1986":CX=20-LEN(A$)/2
151 Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40
152 Z$=Z$+CHR$(ASC(MID$(A$,I))+128):NEXT
172 NP=INT(IT/8):CP=0
173 GOSUB12
175 POKE53265,PEEK(53265)OR64
176 POKE53280,14:POKE53281,14
177 PRINT"[147][142]----------------------------------------";
180 PRINT"[158][195][207][205][208][213][212][197][161][167][211][160][199][193][218][197][212][212][197][160][173][160][182][180][172][160][177][178][184][172][160][193][206][196][160][214][201][195][173][178][176]";Z$;
200 PRINT"[158][160][160][160][168][195][169][160][177][185][184][182][160][195][207][205][208][213][212][197][161][160][208][213][194][204][201][195][193][212][201][207][206][211][172][201][206][195][174][160][160]";
245 PRINT"[146]----------------------------------------";
250 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
260 FORI=STOE:PRINT"[160]";CHR$(177+I-CP*8);"[160][151]";N$(I);
270 PRINTLEFT$(SP$,36-LEN(N$(I)));
280 PRINT"[146]----------------------------------------";
300 NEXT:IFNP+1=1THENXZ=1:PRINT"":GOTO330
310 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
320 PRINT"PRESS [158][210][197][212][213][210][206][146] FOR NEXT PAGE[145][145]"
330 PRINT"[145][145][158][208][210][197][211][211][160][177][173][184][160][212][207][160][204][207][193][196][160][195][207][210][210][197][211][208][207][206][196][201][206][199][160][208][210][207][199][210][193][205][160]"
340 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN340
341 IFXZ=1ANDA$=CHR$(13)THEN340
342 IFXZ=1THEN360
350 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
355 IFA$=CHR$(13)THEN175
360 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
365 C=FV+CP*8-1:IFC>ITTHEN340
470 SYS65409:PRINT"[142]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
480 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
481 POKE53280,6:PRINT"";
482 PRINTTAB(18-LEN(F$(C))/2-4)"LOADING ";CHR$(34)F$(C)CHR$(34)
483 PRINT"           PLEASE STAND BY"
490 POKE631+I,13:POKE631+I+1,28:POKE631,13:POKE198,I+1:END
500 OPEN15,8,15,"I0"
510 OPEN1,8,8,"0:64 CONTENTS,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:";EN;EM$
620 PRINT"[195]HECK:"
630 PRINT"1) [195]ORRECT DISK INSERTED?
640 [153]"2) RIGHT$S DRIVE DOOR CLOSED?
650 PRINT"3) [193]LL CABLES ATTACHED?"
660 PRINT"[210]EMOVE, THEN RE-INSERT DISK, PRESS ANY  KEY TO TRY AGAIN."
670 GETA$:IFA$=""THEN670
680 RUN
1360 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN360
1370 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
1380 IFA$=CHR$(13)THEN230
1390 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
1400 C=FV+CP*8-1:IFC>TTHEN360
1410 POKE53265,27:SYS65409