home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Playback_07_1992_-_de.d64 / grafik128-64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  736b  |  26 lines
  1. 1 rem grafik-konverter c128-->c64
  2. 2 rem commdore disc/h.b.
  3. 3 printchr$(142)chr$(8):ifa=0thena=1:load"p128",8,1
  4. 5 sys49152:ifa=2then40
  5. 7 goto100
  6. 10 ifa=1thena=2:input"name der c128-grafik ";f$:loadf$,8,1
  7. 40 sys49196
  8. 41 fori=1tolen(f$)
  9. 42 poke49529+i-1,asc(mid$(f$,i,1))
  10. 43 next:poke49528,len(f$)
  11. 49 printchr$(18)"s"chr$(146)"peichern als c64-grafik(hi-eddi-format)":print
  12. 50 printchr$(18)"a"chr$(146)"ndere grafik":print
  13. 51 printchr$(18)"e"chr$(146)"nde"
  14. 60 gett$:ift$="a"thena=1:print:sys49491:goto100
  15. 61 ift$="e"thensys64738
  16. 70 ift$="s"thensys49402:goto100
  17. 80 goto60
  18. 100 printchr$(147)chr$(18)"    grafik-konverter c128 ---> c64     ":print
  19. 106 printchr$(18)"d"chr$(146)"irectory ":print
  20. 111 printchr$(18)"h"chr$(146)"ires-grafiken":print
  21. 112 printchr$(18)"m"chr$(146)"ulticolor-grafiken":print
  22. 120 gett$:ift$="d"thensys49294:poke198,0:wait198,1:goto100
  23. 130 ift$="h"thensys49396:a=1:goto10
  24. 132 ift$="m"thensys49187:a=1:goto10
  25. 140 goto120
  26.