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