home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 17 / 64er_Magazin_Sonderheft_17_19xx_Markt__Technik_de_Side_B.d64 / laufedit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.