home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 213
/
213.d81
/
word345x
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
551b
|
18 lines
1 rem "word345x" 2002.03.01
2 poke56,56:poke55,0:clr
10 dv=peek(186):q$=chr$(34)
12 print"[147]l[207]"q$"word345.bas"q$","dv
14 print"r[213]:";
16 poke631,19:poke632,13:poke633,13:poke198,3
50 l=0:h=56:f$="f.word345":gosub100
52 l=0:h=64:f$="mouse2.1 7k 4000":gosub100
54 l=0:h=92:f$="mouse mate 5c00":gosub100
56 l=0:h=94:f$="random 2-254":gosub100
58 l=0:h=148:f$="word345.zml":gosub100
60 l=0:h=112:f$="f.word345 hlp":gosub100
62 l=0:h=120:f$="t.word345 hlp":gosub100
99 end
100 sys57812f$,dv:poke780,0:poke781,l:poke782,h:sys65493:return
10000 a$="0:word345x":dv=peek(186):ifdv<8ordv>29thendv=8
10002 open15,dv,15,"s"+a$:close15:savea$,dv:end