home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / dot.dot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  206b  |  11 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 11 print""
  3. 12 uc=4613:hc=4675:hk=4739
  4. 90 sys4608,224
  5. 100 .do:.ee:.wb:.un e%:.of
  6. 101 end
  7. 60000 d=peek(186):gosub60008:n$=n$+".dot"
  8. 60001 open1,d,15,"i0":print#1,"s0:"+n$:close1:saven$,d:end
  9. 60008 n$="dot"
  10. 60009 return
  11.