1 POKE53282,8:POKE53283,1:POKE53284,6:GOSUB33
2 SP$="                                      "
3 A$="TABLE OF CONTENTS FOR "+MO$+" 1987":CX=20-LEN(A$)/2
4 Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40
5 Z$=Z$+CHR$(ASC(MID$(A$,I))+128):NEXT
6 NP=INT(IT/8):CP=0:GOSUB53
7 POKE53265,PEEK(53265)OR64:POKE53280,15:POKE53281,15
8 PRINT"[147][142][144]----------------------------------------";
9 PRINT"[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$;
10 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]";
11 PRINT"[146][144]----------------------------------------";
12 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
13 FORI=STOE:PRINT"[160]";CHR$(177+I-CP*8);"[160][151]";N$(I);
14 PRINTLEFT$(SP$,36-LEN(N$(I)));
15 PRINT"[146][144]----------------------------------------";
16 NEXT:IFNP+1=1THENXZ=1:PRINT"":GOTO19
17 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
18 PRINT"PRESS [210][197][212][213][210][206][146] FOR NEXT PAGE[145][145]"
19 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]"
20 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN20
21 IFXZ=1ANDA$=CHR$(13)THEN20
22 IFXZ=1THEN25
23 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
24 IFA$=CHR$(13)THEN7
25 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
26 C=FV+CP*8-1:IFC>ITTHEN20
27 SYS65409:PRINT"[142]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
28 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
29 POKE53280,6:PRINT"";
30 PRINTTAB(18-LEN(F$(C))/2-4)"LOADING ";CHR$(34)F$(C)CHR$(34)
31 PRINT"           PLEASE STAND BY"
32 POKE631+I,13:POKE631+I+1,28:POKE631,13:POKE198,I+1:END
33 OPEN15,8,15,"I0"
34 OPEN1,8,8,"0:64 CONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN38
35 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),F$(IT)
36 FORI=0TOIT:INPUT#1,N$(I):INPUT#1,F$(I):NEXT
37 CLOSE1:CLOSE15:RETURN
38 CLOSE1:CLOSE15
39 PRINT"[147][195]AN'T READ [212]ABLE OF [195]ONTENTS"
40 PRINT"[196]ISK [197]RROR:";EN;EM$
41 PRINT"[195]HECK:"
42 PRINT"1) [195]ORRECT DISK INSERTED?
43 [153]"2) RIGHT$S DRIVE DOOR CLOSED?
44 PRINT"3) [193]LL CABLES ATTACHED?"
45 PRINT"[210]EMOVE, THEN RE-INSERT DISK, PRESS ANY  KEY TO TRY AGAIN."
46 GETA$:IFA$=""THEN46
47 RUN
48 GETA$:IFA$<>CHR$(13)AND(A$<"1"ORA$>"8")THEN25
49 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
50 FV=(ASC(A$)-48):FV=FV+7*(FV>8)
51 C=FV+CP*8-1:IFC>TTHEN25
52 POKE53265,27:SYS65409
53 POKE53265,27
54 PRINTCHR$(14)"[147] [194]EFORE ATTEMPTING TO RUN ANY PROGRAMS"
55 PRINT" PLEASE REFER TO THE INSTRUCTIONS IN"
56 PRINT" THE [195][207][205][208][213][212][197]!'S [199]AZETTE [205]AGAZINE ISSUE"
57 PRINT" DATED THE SAME MONTH AS THIS DISK."
58 PRINT" [208]LEASE NOTE THE [199]AZETTE [196]ISK OFTEN"
59 PRINT" FEATURES PROGRAMS WHICH WRITE DATA"
60 PRINT" TO THE DISK. [195]OPY THOSE PROGRAMS TO"
61 PRINT" ANOTHER DISK - THIS DISK IS WRITE"
62 PRINT" PROTECTED."
63 PRINT"      [208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [212][200][197] [205][197][206][213]"
64 GETMT$:IFMT$=""THEN64
65 RETURN