home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 153
/
153.d81
/
b.soundmeister
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
677b
|
25 lines
10 gosub60000:dv=peek(186):ifdv<8thendv=8
20 poke4096,0:poke44,16:poke43,1
30 print"[144]load"chr$(34)"sound demo"chr$(34)","dv
40 print"run"
50 poke631,13:poke632,13:poke198,2:end
60 :
10000 dv=peek(186):n$="b.soundmeister"
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=.to5:reada$:printtab(20-len(a$)/2)"[155]"a$:next:return
60090 :
60100 data "[211][207][213][206][196][205][197][201][211][212][197][210] [196][197][205][207]"
60110 data "by [194]ob [205]arkland"
60120 data "(c) 1997 by [202] & [198] [208]ublishing"
60130 data "[212]his program is not shareware
60160 [131] "or in the public domain."
60170 [131] "1-800-594-3370 or 1-318-221-8718