home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_B.d64 / bejah-scroller (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  468b  |  4 lines
  1. 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. 2 d=len(a$):a=1:e=199:g=1
  3. 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
  4.