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