home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 84
/
64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64
/
lauflicht
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
478b
|
17 lines
100 poke56579,255:z=50
110 poke53280,0:poke53281,0:print"[147][155] lauflicht"
120 print" [196][196][196][196][196][196][196][196][196]"
130 print""tab(10)" 12345678"
140 print" <+> = schneller <-> = langsamer"
150 print""tab((z/10)+1)" ^ "
160 print" [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
170 print" speed"
180 fori=0to7
190 poke56577,2^i:print""tab(i+10)" [209] "
200 gosub220:forj=0toz:next
210 next:print""tab(15)" ":goto180
220 getz$:ifz$="-"thenz=z+10:ifz>300thenz=300
230 ifz$="+"thenz=z-10:ifz<=0thenz=0
240 print""tab((z/10)+1)" ^ "
250 return