home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / doodle_scrnmagic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.3 KB  |  50 lines
  1. 5 print"[147]":poke53280,0:poke53281,6:poke646,1
  2. 10 i=49152
  3. 20 read a:if a=256 then 40
  4. 30 poke i,a:i=i+1:goto 20
  5. 40 print"[147]     screen magic/doodle converter"
  6. 50 print"        (c) 1984 by m. beutjer"
  7. 60 print"  select :"chr$(13);chr$(13);"           1 - doodle to screen magic"
  8. 70 print"           2 - screen magic to doodle"
  9. 80 input"               ";a
  10. 90 ifa<1ora>2then40
  11. 100 ifa=1then150
  12. 110 gosub500:sys49152
  13. 120 input"another conversion";a$
  14. 130 ifleft$(a$,1)<>"n"then40
  15. 140 end
  16. 150 gosub500:sys49194
  17. 160 goto120
  18. 500 print"enter the name of the existing file."
  19. 505 print"do not include the 'dd' prefix on"
  20. 506 print"doodle files!"
  21. 510 inputa$:b=len(a$)
  22. 520 ifa=1andb>8then510
  23. 530 ifb>16then510
  24. 540 forx=1tob
  25. 550 poke49292+x,asc(mid$(a$,x,1))
  26. 560 next
  27. 570 poke49289,b
  28. 580 b=b+2
  29. 590 ifb<17thenpoke49290,b:return
  30. 600 poke49290,16
  31. 610 return
  32. 49152 data 169,92,133,252,160,0,132,251
  33. 49160 data 162,4,169,1,145,251,200,208
  34. 49168 data 251,230,252,202,208,246,174,137
  35. 49176 data 192,160,141,169,96,32,62,192
  36. 49184 data 169,92,160,139,174,138,192,76
  37. 49192 data 98,192,174,138,192,160,139,169
  38. 49200 data 92,32,62,192,169,96,174,137
  39. 49208 data 192,160,141,76,98,192,142,81
  40. 49216 data 192,140,83,192,141,94,192,169
  41. 49224 data 1,162,8,160,0,32,186,255
  42. 49232 data 169,0,162,0,160,192,32,189
  43. 49240 data 255,169,0,162,0,160,0,76
  44. 49248 data 213,255,142,116,192,140,118,192
  45. 49256 data 133,252,169,1,162,8,160,0
  46. 49264 data 32,186,255,169,0,162,0,160
  47. 49272 data 192,32,189,255,169,0,133,251
  48. 49280 data 169,251,162,255,160,127,76,216
  49. 49288 data 255,0,0,68,68,256
  50.