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 >
Wrap
Commodore BASIC
|
2022-10-26
|
650b
|
24 lines
100 rem ***************************
110 rem * *
120 rem * demo - laufschrift *
130 rem * *
140 rem * von n.nebel 21.2.1986 *
150 rem * *
160 rem ***************************
170 rem
175 ifa=0thena=1:load"laufschrift",8,1
180 poke56,62:clr:za=53248
190 print"[147]2 texte eingeben, jeweils hoechst. 24 z."
200 input"1.";a$:input"2.";b$
210 print"[147]"a$:print""b$
220 fori=15872to16382:pokei,0:next
230 poke56334,0:poke1,51
240 fora=0to7:forb=0to2
250 ad=za+8*peek(1024+a*3+b)
260 a2=za+8*peek(1104+a*3+b)
270 fori=0to7:poke15911+a*64+b+i*3,peek(ad+i)
280 poke15872+a*64+b+i*3,peek(a2+i):next
290 next:next
300 poke1,55:poke56334,1
310 poke53280,0:poke16383,255:sys49152