10 POKE 53280,15:POKE 53281,15:POKE 646,6
20 POKE53282,8:POKE53283,1:POKE53284,6:GOSUB350
30 SP$="                                      "
40 A$="TABLE OF CONTENTS FOR "+MO$+" 1987":CX=20-LEN(A$)/2
50 Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40
60 Z$=Z$+CHR$(ASC(MID$(A$,I))+128):NEXT
70 NP=INT(IT/8):CP=0:GOSUB550
80 POKE53265,PEEK(53265)OR64:POKE53280,15:POKE53281,15
90 PRINTCHR$(142)"[147][142][144]----------------------------------------";
100 PRINT"[160][160][160][160][160][160][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][160][160][160][160][160][160]";Z$;
110 PRINT"[160][160][160][168][195][169][160][177][185][184][183][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]";
120 PRINT"[146][144]----------------------------------------";
130 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
140 FORI=STOE:PRINT"[160]";CHR$(177+I-CP*8);"[160][151]";N$(I);
150 PRINTLEFT$(SP$,36-LEN(N$(I)));
160 PRINT"[146][144]----------------------------------------";
170 NEXT:IFNP+1=1THENXZ=1:PRINT"":GOTO200
180 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
190 PRINT"PRESS [210][197][212][213][210][206][146] FOR NEXT PAGE[145][145]"
200 PRINT"[145][145][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]"
210 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN210
220 IFXZ=1ANDA$=CHR$(13)THEN210
230 IFXZ=1THEN260
240 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
250 IFA$=CHR$(13)THEN80
260 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
270 C=FV+CP*8-1:IFC>ITTHEN210
280 SYS65409:POKE53280,15:POKE53281,15
290 PRINT"[147][142][155]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
300 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
310 POKE53280,15:POKE 53281,15:PRINT"";
320 PRINTTAB(18-LEN(F$(C))/2-4)"LOADING ";CHR$(34)F$(C)CHR$(34)
330 PRINT"           PLEASE STAND BY[155]"
340 POKE631+I,13:POKE631+I+1,28:POKE631,13:POKE198,I+1:END
350 OPEN15,8,15,"I0"
360 OPEN1,8,8,"0:64 CONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN400
370 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),F$(IT)
380 FORI=0TOIT:INPUT#1,N$(I):INPUT#1,F$(I):NEXT
390 CLOSE1:CLOSE15:RETURN
400 CLOSE1:CLOSE15
410 PRINT"[147][195]AN'T READ [212]ABLE OF [195]ONTENTS"
420 PRINT"[196]ISK [197]RROR:";EN;EM$
430 PRINT"[195]HECK:"
440 PRINT"1) [195]ORRECT DISK INSERTED?
450 [153]"2) RIGHT$S DRIVE DOOR CLOSED?
460 PRINT"3) [193]LL CABLES ATTACHED?"
470 PRINT"[210]EMOVE, THEN RE-INSERT DISK, PRESS ANY  KEY TO TRY AGAIN."
480 GETA$:IFA$=""THEN480
490 RUN
500 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN260
510 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
520 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
530 C=FV+CP*8-1:IFC>TTHEN260
540 POKE53265,27:SYS65409
550 POKE53265,27
560 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO RUN ANY PROGRAMS"
570 PRINT" PLEASE REFER TO THE INSTRUCTIONS IN"
580 PRINT" THE [195][207][205][208][213][212][197]!'S [199]AZETTE [205]AGAZINE ISSUE"
590 PRINT" DATED THE SAME MONTH AS THIS DISK."
600 PRINT" [208]LEASE NOTE THE [199]AZETTE [196]ISK OFTEN"
610 PRINT" FEATURES PROGRAMS WHICH WRITE DATA"
620 PRINT" TO THE DISK. [195]OPY THOSE PROGRAMS TO"
630 PRINT" ANOTHER DISK - THIS DISK IS WRITE"
640 PRINT" PROTECTED."
650 PRINT"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
660 GETMT$:IFMT$=""THEN660
670 RETURN