100 POKE53280,14:POKE53281,14
110 POKE53282,8:POKE53283,15:POKE53284,2
120 PRINT"[147]ONE MOMENT PLEASE...":GOSUB500
140 SP$="                                      "
150 A$="TABLE OF CONTENTS FOR "+MO$+" 1984":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
175 POKE53265,PEEK(53265)OR64
176 POKE53280,14:POKE53281,14
177 PRINT"[147][142]----------------------------------------";
180 PRINT"[158][160][160][160][195][207][205][208][213][212][197][167][211][160][199][193][218][197][212][212][197][160][198][207][210][160][214][201][195][173][178][176][160][193][206][196][160][182][180][160][160]";Z$;
200 PRINT"[146]----------------------------------------";
245 PRINT"PRESS            TO SEE:"
250 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
260 FORI=STOE:PRINT"[160][198]";CHR$(177+I-CP*8);"[160][151]";N$(I);
270 PRINTLEFT$(SP$,35-LEN(N$(I)));
280 PRINT"[146][156]----------------------------------------";
300 NEXT
310 PRINT:PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
320 PRINT"PRESS [158][210][197][212][213][210][206][146] FOR NEXT PAGE"
340 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 SYS65409:PRINT"[147][142]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
480 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
490 POKE631+I,13:POKE631,13:POKE198,I+1:END
499 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