home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 16
/
Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
basiclaufschrift
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
550b
|
18 lines
10 print"[147][158]":fort=1to280:x=int(96*rnd(0)+32):printchr$(x);:next:print
20 lf$=" ...und hier praesentieren"
30 lf$=lf$+" wir dir einmal eine basic-lauf"
40 lf$=lf$+"schrift, die an beliebiger position"
50 lf$=lf$+" ueber den screen laufen kann... <space!>...."
60 lf$=lf$+" ":iflen(lf$)<250then60
70 :
80 yy=7 : rem bildschirmzeile
90 ve=100 : rem lauf-verzoegerung
100 :
110 aa=1 : rem zaehler-variable
120 poke211,0:poke214,yy:sys58732:printmid$(lf$,aa,40);
130 aa=aa+1:ifaa>200thenaa=1
140 fori=1tove:next
150 geta$:ifa$=" "then170
160 goto120
170 print"":list20-160