home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 161
/
161.d81
/
b.clueless
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
725b
|
27 lines
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"