home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
basiclaufschrift
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
594b
|
20 lines
10 print"[147]":poke53281,15:poke53280,11
15 poke650,128:poke652,0:rem tastaturwiederholung
20 x$=" [144]dies ist eine alte routin"
30 x$=x$+"e aus der tiger-disc,die ich um eine"
40 x$=x$+" speed inc/dec - routine erweitert habe,"
50 x$=x$+"d.h. mit +/- wird der speed des scrollers veraendert !"
60 x$=x$+" ":iflen(x$)<250then60
70 rem
80 y=23: rem y-zeile fuer scroll
90 s=0: rem verzoegerungs-schleife
100 rem
110 a=1:rem zaehler-variable
120 poke211,0:poke214,y:sys58732:printmid$(x$,a,40);
130 a=a+1:ifa>200thena=1
140 fori=1tos:next
150 geta$:ifa$=""then120
160 ifa$="+"thenifs>0thens=s-5
170 ifa$="-"thens=s+5
180 goto120