100 IFA=0THENPRINT"[147]":GOSUB190
110 POKE 53281,0:POKE 53280,0
120 IFA=0THENA=1:LOAD"READER $CA00",8,1
130 SYS51712,"T.BITS","[212] [197][160][216] [212][160][160] [210][160][197] [193][160][196] [197][160][210] . [207]"
140 POKE214,24:POKE211,13:PRINT"[145]                         "
150 PRINT""TAB(9)"[159][214]IEW [212]EXT AGAIN? ([217][159]/[206][159])"
160 GETA$:IFA$<>"Y"ANDA$<>"N"THEN160
170 IFA$="N"THEN350
180 SYS51824,"[200] [197] [210] [197] [160] [201] [212][160][160] [201] [211] [160] [193] [199][160][193][160][201] [206]":GOTO160
190 POKE53280,0:POKE53281,0:IFFTHENRETURN
200 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
210 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
220 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
230 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
240 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
250 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
260 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
270 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
280 POKE214,12:PRINT"[145]";:FORI=1TO32:PRINTA$;:NEXT:PRINT"[155]"
290 FORI=1TO5:READA$:GOSUB300:NEXT:GOTO310
300 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
310 POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
320 DATA"[212] [197] [216] [212]   [210] [197] [193] [196] [197] [210]","BY [202]EFF [202]ONES"
330 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #75","[211]UBSCRIPTIONS 1-800-831-2694"
340 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"
350 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
360 IF ER<>63 THEN PRINT"[147]":END
370 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
380 PRINT"LOAD"Q$A$Q$",8"
390 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END