home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010b.d64 / konverter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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 781,LO:POKE 782,HI
  24. 230 POKE 251,0:POKE 252,64
  25. 240 SYS 65496
  26.