1 IFA=0THENDV=PEEK(186):IFDV<8THENDV=8
5 IFA=0THENA=1:LOAD"READER C800",DV,1
10 PRINT"[147]":GOSUB70
30 POKE51253,DV:PRINT"      [211][208][193][195][197][159] TO VIEW DOCS [210][159] TO [210][213][206]"
40 PRINT"[158]     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":F$="T.LIBRARY BOOT"
50 GETA$:IFA$<>" "ANDA$<>"R"THEN50
60 IFA$=" "THENSYS51200,F$,"[204][160][207][160][193][160][196][160][211][160][212][160][193][160][210] [160] [204][160][201][160][194][160][210][160][193][160][210] [217]":F$="":GOTO50
65 PRINT"[147]":GOTO60000
70 POKE53280,0:POKE53281,0:IFFTHENRETURN
80 POKE214,10:PRINT"[145]";
90 FORI=1TO13:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
110 POKE214,12:PRINT"[145]"TAB(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 FORI=1TO7:PRINTTAB(4)"[155]                                [151][146][223]":NEXT
130 PRINTTAB(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
140 PRINT"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
150 POKE214,14:PRINT"[145][155]";
160 FORI=1TO5:READA$:GOSUB170:NEXT:GOTO180
170 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
180 :RETURN
190 DATA"[204][207][193][196][211][212][193][210][160][204][201][194][210][193][210][217]","BY [202]EFF [202]ONES"
200 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #81","[211]UBSCRIPTIONS 1-800-831-2694"
210 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"
60000 A$="LIBRARY BOOT":OPEN15,DV,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60011 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60020 PRINT"LOAD"Q$A$Q$","DV
60030 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END