10 GOSUB60000:DV=PEEK(186):IFDV<8THENDV=8
20 POKE4096,0:POKE44,16:POKE43,1
30 PRINT"[144]LOAD"CHR$(34)"CLUELESS"CHR$(34)","DV
40 PRINT"RUN"
50 POKE631,13:POKE632,13:POKE198,2:END
60 :
10000 DV=PEEK(186):N$="B.CLUELESS"
10010 OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
60000 POKE53281,.:POKE53280,.:PRINT"[147]":
60010 POKE214,8:PRINT
60020 PRINT"[162][162]"TAB(37)"[162][162]"
60030 PRINT"[152]  "TAB(37)"  "
60040 FORI=.TO11:PRINT"[152]  [155][165]                                [167][152]  ":NEXT
60050 PRINT"[152]  "TAB(37)"  "
60060 PRINT"[162][162]"TAB(37)"[162][162]";
60070 POKE214,11:PRINT
60080 FORI=.TO7:READA$:PRINTTAB(20-LEN(A$)/2)"[155]"A$:NEXT:RETURN
60090 :
60100 DATA "[195] [204] [213] [197] [204] [197] [211] [211]"
60110 DATA "BY [194]OB [205]ARKLAND"
60120 DATA "(C) 1997 BY [202] & [198] [208]UBLISHING"
60130 DATA "[212]HIS IS THE COPYRIGHTED WORK"
60140 DATA "OF [202] & [198] [208]UBLISHING."
60150 DATA "[201]T IS NOT SHAREWARE OR IN"
60160 DATA "THE PUBLIC DOMAIN."
60170 DATA "[212]O SUBSCRIBE CALL 1-800-594-3370"