home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 November
/
64er_Magazin_89-11_1989_Markt__Technik_de_Side_A.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
39 lines
0 a=a+1:if a=1 then load"shadow v4.0",8,1
5 dim a$(40):poke 49152,15:poke 49153,11
10 poke 53280,12:poke 53281,12:print"[147]";
20 a$(1)=" "
30 a$(2)=" shadow 4.0 "
40 a$(3)=" "
50 a$(4)=" bitte <return> "
60 a$(5)=" druecken "
70 a$(6)=" "
90 a$(17)=" auch grosse windows sind moeglich !! "
100 a$(26)=" <return> fuer weiter "
110 a$(28)=" "
120 a$(29)=" die farben lassen sich "
130 a$(30)=" ebenfalls aendern "
140 a$(31)=" "
150 a$(32)=" <return> fuer ende "
160 a$(33)=" "
170 a$(34)=" "
180 a$(35)=" ende .... "
190 a$(36)=" "
200 sys 49154,a$(1),6,8,12
210 x=7:gosub 1010
220 sys 49154,a$(7),21,1,1
230 gosub 1010
240 get b$
250 a=int(16*rnd(1))
260 b=int(16*rnd(1))
270 poke 49152,a:poke 49153,b
280 for t=0 to 200:next t
290 sys 49154,a$(28),6,14,4
300 if b$<>chr$(13) then 240
310 print"[147]";
320 poke 53280,14:poke 53281,6:poke 49152,1:poke 49153,0
330 sys 49154,a$(34),3,1,1
340 print"":end
1000 for i=0 to 8:a$(x+i)=" ":next:return
1010 get b$:if b$<>chr$(13) then 1010
1020 print"[147]";:return