home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 236 / 236.d81 / b.s2f (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  1.5 KB  |  53 lines
  1. 5 d=peek(186):ifd<8thend=8
  2. 10 gosub60008:ifn$="dot"then13000
  3. 11 p$=n$+".dot":n$=n$+".med"
  4. 12 open1,d,15,"r0:"+n$+"="+n$:input#1,en:close1
  5. 14 ifen<>63then11000
  6. 16 open1,d,15,"r0:"+p$+"="+p$:input#1,en:close1
  7. 18 ifen<>63then12000
  8. 19 gosub41000:n$=n$+".med"
  9. 20 print"[144]loadp$,d":print"run"
  10. 30 sys57812"mouse2.1 7k 2400",d,0:poke780,0:poke781,0:poke782,036:sys65493
  11. 40 sys57812n$,d,0:poke780,0:poke781,0:poke782,224:sys65493
  12. 42 sys57812"df.ml",d,0:poke780,0:poke781,0:poke782,18:sys65493
  13. 45 sys57812"unpacker 2000 c9",d,0:poke780,0:poke781,0:poke782,201:sys65493
  14. 50 q=128:poke44,q:pokeq*256,0
  15. 60 poke631,13:poke632,13:poke198,2:end
  16. 10999 end
  17. 11000 print"the file <"n$"> is not on this disk"
  18. 11010 print"use mr.medic to creat <"n$">"
  19. 11020 print"before running this program":end
  20. 12000 l$="dot.dot":print"[147]loadl$,d"
  21. 12005 gosub60008
  22. 12010 print"60008 n$="chr$(34)n$chr$(34)
  23. 12020 print"goto60000"
  24. 12030 print"load"chr$(34)"b."n$chr$(34)","d
  25. 12040 print"p[207]646,1:run"
  26. 12050 forx=1to5:poke630+x,13:next:poke198,5
  27. 12099 end
  28. 13000 print"you must use a program name other
  29. 13010 [153]"than <dot>.":[128]
  30. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  31. 41002 [151]214,14:[153]
  32. 41004 [153][163]1)"list                                     "
  33. 41005 [129]x[178]1[164]6
  34. 41006 [153][163]1)"print#                                     "
  35. 41007 [130]
  36. 41013 [153][163]1)"poke                                     "
  37. 41015 [141]60008:[151]214,16:[153]
  38. 41016 n1$[178]"":[129]x[178]1[164][195](n$):n1$[178]n1$[170][199](128[170][198]([202](n$,x))):[130]
  39. 41019 [153][163]19[171][195](n$)[173]2)"print#"n1$
  40. 41020 [129]x[178]2[164]4:[135]a$:[151]214,15[170]x:[153]
  41. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  42. 41024 [130]
  43. 41030 t[178]ti[170]60
  44. 41031 [139]t[177]ti[167]41031
  45. 41032 [153]"":[142]
  46. 41051 [131]"by str$ave (NULL)oorman
  47. 41052 data"(c) 2004 by [202] & [198] [208]ublishing, [201]nc.
  48. 41053 [131]"www.eloadstar.com
  49. 60000 d=peek(186):gosub60008
  50. 60001 open1,d,15,"i0":print#1,"s0:b."+n$:close1:save"b."+n$,d:end
  51. 60008 n$="s2f"
  52. 60009 return
  53.