B Soft 4/B-Soft_4_19xx_Maik__Mike_de_Side_B.d64/bejah-scroller

Commodore BASIC | 1990-01-01 | 468 b | 4 lines

1 poke808,225:a$="dieses programm bejaht hundehaft!   1996 by mr.joker, scroll by madrom!":printchr$(142)chr$(8)chr$(147):poke53281,.:poke53280,.:c=.:fori=41960to41967:poke820+c,peek(i):c=c+1:next:poke824,200:poke827,96:forc=.to6:reada(c):next
2 d=len(a$):a=1:e=199:g=1
3 e=e-1:poke53270,e:poke55335,a(f):poke90,1:poke91,216:poke88,.:poke89,216:poke782,.:sys820:f=f+1:on-(e<>192)goto3:e=199:f=.:poke90,1:poke91,4:poke88,.:poke89,4:poke782,.:poke53265,.:poke53270,e:sys820:poke53265,27:poke781,.:poke782,39:sys58636:printmid$(a$,a,1):a=a+1:on-(a-3<>d)goto3:a=1:goto2:data6,4,14,3,7,15,11