home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / basic-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  650b  |  24 lines
  1. 100 rem   ***************************
  2. 110 rem   *                         *
  3. 120 rem   *   demo - laufschrift    *
  4. 130 rem   *                         *
  5. 140 rem   *  von n.nebel 21.2.1986  *
  6. 150 rem   *                         *
  7. 160 rem   ***************************
  8. 170 rem
  9. 175 ifa=0thena=1:load"laufschrift",8,1
  10. 180 poke56,62:clr:za=53248
  11. 190 print"[147]2 texte eingeben, jeweils hoechst. 24 z."
  12. 200 input"1.";a$:input"2.";b$
  13. 210 print"[147]"a$:print""b$
  14. 220 fori=15872to16382:pokei,0:next
  15. 230 poke56334,0:poke1,51
  16. 240 fora=0to7:forb=0to2
  17. 250 ad=za+8*peek(1024+a*3+b)
  18. 260 a2=za+8*peek(1104+a*3+b)
  19. 270 fori=0to7:poke15911+a*64+b+i*3,peek(ad+i)
  20. 280 poke15872+a*64+b+i*3,peek(a2+i):next
  21. 290 next:next
  22. 300 poke1,55:poke56334,1
  23. 310 poke53280,0:poke16383,255:sys49152
  24.