5 PRINT"[147]":POKE808,252:POKE53280,15:POKE53281,15:POKE646,6:POKE53282,8:POKE53283,1:POKE53284,6:GOSUB350:SP$="                                      ":Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40:NP=INT(IT/8):CP=0:GOSUB550
80 POKE53265,PEEK(53265)OR64:POKE53280,15:POKE53281,15:PRINTCHR$(142)"[147][142][144]----------------------------------------";:PRINT"[160][160][160][160][160][160][160][195][210][193][195][203][206][197][215][211][161][224][193][208][210][201][204][175][205][193][217][224][177][185][184][185][160][160][160][160][160][160][160][160]";Z$;:PRINT"[160][160][160][160][168][195][169][160][194][217][160][215][197][204][198][193][210][197][160][211][207][198][212][215][193][210][197][160][194][207][217][211][160][201][206][212][174][160][160][160]";: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);:PRINTLEFT$(SP$,36-LEN(N$(I)));:PRINT"[146][144]----------------------------------------";:NEXT:IFNP+1=1THENXZ=1:PRINT"":GOTO200
180 PRINT"THIS IS PAGE #";CP+1;"OF";NP+1: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):C=FV+CP*8-1:IFC>ITTHEN210
280 SYS65409:POKE53280,15:POKE53281,15:PRINT"[147][142][155]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN":FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT:POKE53280,15:POKE53281,15:PRINT"[155]";:PRINTCHR$(14)TAB(18-LEN(F$(C))/2-4)"LOADING ";CHR$(34)F$(C)CHR$(34):PRINTCHR$(142)"           PLEASE STAND BY[155]"
340 POKE631+I,13:POKE631+I+1,28:POKE631,13:POKE198,I+1:END
350 OPEN15,8,15,"I0":OPEN1,8,8,"0:[192]4,S,R":INPUT#15,EN,EM$:IFEN>0THEN400
370 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),F$(IT):FORI=0TOIT:INPUT#1,N$(I):INPUT#1,F$(I):NEXT:CLOSE1:CLOSE15:RETURN
400 CLOSE1:CLOSE15:PRINT"[147][195]AN'T READ [212]ABLE OF [195]ONTENTS":PRINT"[196]ISK [197]RROR:";EN;EM$:PRINT"[195]HECK:":PRINT"1) [195]ORRECT DISK INSERTED?:[153]"2) RIGHT$S DRIVE DOOR CLOSED?:PRINT"3) [193]LL CABLES ATTACHED?":PRINT"[210]EMOVE, THEN RE-INSERT DISK, PRESS ANY  KEY TO TRY AGAIN."
480 GETA$:IFA$=""THEN480
490 RUN: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):C=FV+CP*8-1:IFC>TTHEN260
540 POKE53265,27:SYS65409
550 POKE53265,27:RETURN