home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 November
/
64er_Magazin_92-11_1992_Markt__Technik_de_Side_B.d64
/
schwabbelscroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
21 lines
10 data"20?=:>209>:=20:3;68502?06478:9>085?=:9338501:00084:<84?>;1220:10020:4:"
11 data"4:20;1<1:4?><8<602=0><:9378501:2:02004<2:00?:9<89913<288=0?:84?;840284"
12 data"?>:9>085?=:9=78=12=0:97?8=0==<2=11=08=11=0:9818=1:=0:972:0<08=14038<15"
13 data"03:=19=08=19=05860:=19=08=19=0:=21=048:20?;<:1<188=0?=;=91<18=21=0;=14"
14 data"<28=16=0<:10>;>6?>:5?>2903=011:402<8<0069002:0008402;979<18=<8<0:5?>29"
15 data"01=075:>:0<1:00>;991<19992<18810?78>91<1:20?:002;97?<14829<79=14<2<:68"
16 data"4:4:4:290709<09=14<2<:30058810>530>1:50148:9358501:000;94907994807<8<0"
17 data"9?90?5:000;1?;=00684?;:9>085?=:5?=:20085?<;1?;9=6?07188:6928:::5?<6904"
18 data">0:0=0><688501>6?;=011>6?==00=:20?;=14<229=39=14<2<:10?5:9<88=16=0688="
19 data"21=04<31>:78:2202004<28<1:=0888<0==<:931:0>:8=14038<1503586020:061>162"
20 data">26<><7;?;7<?<7>?>7???0?000:05030<07080;040=020>0106097?8285888;8>>>?>"
21 data"><?7?5>5?>><>>?5>5?7><>>?>>5?7?50909090908080707010101010707080814140="
22 data"1414140=1414140=1414140=2485?;:93:85?<06?;26?<90?::00888:203;1?;4:3669"
23 data"4:3669<:10?7984:;0>>84240:0:65?=85:=:004:90091:<88;96900290?:210<:==69"
24 data"<1=0?:;=59<191:<8810>;:424=0<6:90365:<85:<9002>6?=60:0:08:994707:=20=0"
25 data"9947=;88=0?360":deffnw(x)=asc(mid$(x$,x,1))-48:k=49152:restore:print"[147]"
26 forj=1to16:readx$:fori=1tolen(x$)step2:pokek,fnw(i)*16+fnw(i+1):k=k+1:nexti,j
27 g$=chr$(34):a$=g$+"schwabbelscroll"+g$+" wurde am 13.02.1992 um 16.09 uhr v"
28 a$=a$+"ollendet ":poke53280,0:poke53281,6:sys49152,a$:wait198,1:getw$
29 sys49472:poke53281,0:sys49152,"hit any key ":wait198,1:getw$:sys49472