home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 248 / 248.d81 / b.dotbasic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  809 b   |  36 lines
  1. 5 d=peek(186):ifd<8thenstop
  2. 6 poke1023,d
  3. 10 gosub60008:f$=n$+".dbs"
  4. 11 ifn$="dot+"then500
  5. 12 open1,d,15,"r0:"+f$+"="+f$
  6. 13 input#1,en:close1
  7. 14 ifen<>63then200
  8. 20 df$=n$+".dml"
  9. 21 open1,d,15,"r0:"+df$+"="+df$
  10. 22 input#1,en:close1
  11. 23 ifen<>63thengosub300
  12. 30 sys57812"mouse2.1 7k 1000",d,0:poke780,0:poke781,0:poke782,16:sys65493
  13. 31 sys57812df$,d,0:poke780,0:poke781,0:poke782,56:sys65493
  14. 32 q=peek(782)+1:poke44,q:pokeq*256,0
  15. 33 print"[147]l[207]f$,d":print"run"
  16. 34 poke198,2:poke631,13:poke632,13:end
  17. 200 q$=chr$(34):a$="dot+.dbs"
  18. 202 print"[147]l[207]a$,d"
  19. 204 print"60008n$="q$n$q$
  20. 206 print"goto60000"
  21. 208 print"l[207]"q$"b."n$q$","d
  22. 210 print"run"
  23. 212 poke198,5:forx=1to5:poke630+x,13:next:end
  24. 299 end
  25. 300 open1,d,15,"c0:"+df$+"=dd.ml"
  26. 306 close1:return
  27. 399 end
  28. 500 print"change n$ to your program name"
  29. 501 print"and press <return> twice"
  30. 502 print"goto60000[145][145][145]":list60008
  31. 59999 end
  32. 60000 gosub60008:n$="b."+n$
  33. 60001 open1,8,15,"s0:"+n$:close1:saven$,8:end
  34. 60008 n$="dotbasic
  35. 60009 [142]
  36.