home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9101a.d64
/
multicolor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
706b
|
36 lines
10 PRINT"[147]BITTE WARTEN"
20 FOR N=896 TO 958
30 READ SP
40 POKE N,SP
50 NEXT N
60 DATA 1, 85, 64, 1, 85, 64
70 DATA 1, 20, 64, 1, 20, 64
80 DATA 1, 85, 64, 1, 20, 64
90 DATA 1, 65, 64, 1, 85, 64
100 DATA 0, 60, 0, 0, 60, 0
110 DATA 62,170,188, 62,170,188
120 DATA 48,170, 12, 16,170, 4
130 DATA 20,130, 20, 20,130, 20
140 DATA 16,195, 4, 0,195, 0
150 DATA 0, 65, 0, 1, 65, 64
160 DATA 1, 65, 64
170 PRINT"[147]"
180 POKE 2040,14
190 VIC = 53248
200 POKE VIC,160
210 POKE VIC + 1,129
220 POKE VIC + 23,1
230 POKE VIC + 29,1
240 POKE VIC + 28,1
250 POKE VIC + 33,0
260 POKE VIC + 37,7
270 POKE VIC + 39,5
280 POKE VIC + 38,6
290 POKE VIC + 21,1
300 GET KP$
310 IF KP$ = "" THEN 300
500 POKE VIC + 21,0
510 POKE VIC + 28,0
520 POKE VIC + 29,0
530 END