home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh17b.d64 / laufedit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  701b  |  25 lines
  1. 1 REM    ***************************
  2. 2 REM    *                         *
  3. 3 REM    *   EDITOR FUER LAUF-     *
  4. 4 REM    *                         *
  5. 5 REM    *    SCHRIFT IM RAND      *
  6. 6 REM    *                         *
  7. 7 REM    *                         *
  8. 8 REM    ***************************
  9. 9 REM
  10. 10 POKE 56,62:CLR:ZA=53248
  11. 20 PRINT"[147]BITTE TEXT EINGEBEN"
  12. 25 A$="AUF WIEDERSEHEN!":B$=A$
  13. 30 INPUT"1.";A$:INPUT"2.";B$
  14. 35 IF LEN(A$)>24 OR LEN(B$)>24 THEN 20
  15. 40 PRINT"[147]"A$:PRINT""B$
  16. 50 FORI=15872TO16382:POKEI,0:NEXT
  17. 60 POKE56334,0:POKE1,51
  18. 70 FORA=0TO7:FORB=0TO2
  19. 80 AD=ZA+8*PEEK(1024+A*3+B)
  20. 90 A2=ZA+8*PEEK(1104+A*3+B)
  21. 100 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
  22. 120 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT:NEXT:NEXT
  23. 130 POKE1,55:POKE56334,1
  24. 140 POKE53280,0:POKE16383,255:SYS 49152
  25.