home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_B.d64 / bejahscroll (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  625b  |  18 lines
  1. 1 rem jah jaaaaah ! 1996 by mr.joker !(NULL)
  2. 10 a$="dieses programm bejaht hundehaft!    1996 by mr.joker scroll by madrom!"
  3. 15 :
  4. 20 rem *** initialisieren
  5. 25 printchr$(147):poke53281,.:poke53280,.:c=.:fori=41960to41967
  6. 30 poke820+c,peek(i):c=c+1:next:poke824,200:poke827,96:forc=.to6:reada(c):next
  7. 40 :
  8. 45 rem *** scroll-main-routine
  9. 50 d=len(a$):a=1:e=199:g=1
  10. 55 e=e-1:poke53270,e:poke55335,a(f):poke90,1:poke91,216:poke88,.:poke89,216
  11. 60 poke782,.:sys820:f=f+1:on-(e<>192)goto55:e=199:f=.:poke90,1:poke91,4:poke88,.
  12. 70 poke89,4:poke782,.:poke53265,.:poke53270,e:sys820:poke53265,27:poke781,.
  13. 75 poke782,39:sys58636:printmid$(a$,a,1):a=a+1:on-(a-3<>d)goto55:a=1:goto50
  14. 85 :
  15. 90 rem *** 7 farben
  16. 95 data 6,4,14,3,7,15,11
  17. 11996 by mr.joker
  18.