home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 56 / Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64 / apfel-konverter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  636b  |  26 lines

  1. 100 poke 52,63:poke 56,63:poke 157,128
  2. 110 :
  3. 120 input"[147] name (ohne 'ap.')";na$
  4. 130 sys 57812"ap."+na$,8
  5. 140 poke 780,0:poke 781,221:poke 782,63
  6. 150 sys 65493
  7. 160 en=peek(174)+256*peek(175)-2
  8. 170 c1=peek(16380):c2=peek(16381)
  9. 180 :
  10. 190 for i=0 to 2
  11. 200 : poke en+3*i,194:poke en+3*i+1,255:poke en+3*i+2,c1
  12. 203 : poke en+3*i+12,194:poke en+3*i+13,255:poke en+3*i+14,c2
  13. 206 next i
  14. 207 :  
  15. 208 poke en+9,194:poke en+10,235:poke en+11,c1
  16. 211 poke en+21,194:poke en+22,235:poke en+23,c2
  17. 214 poke en+24,peek(16382)
  18. 215 poke en+25,194:poke en+26,255:poke en+27,0:poke en+28,0
  19. 216 poke en+29,194:poke en+30,0
  20. 217 :
  21. 218 sys 57812"[b]"+na$,8
  22. 219 hi=int((en+31)/256):lo=(en+31)-256*hi
  23. 220 poke 780,251:poke 7)1,lo:poke 782,hi
  24. 230 poke 251,0:poke 252,64
  25. 240 sys 65496
  26.