home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh75b.d64
/
extended.color
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
411b
|
20 lines
90 FORI=0TO3:READA(I):NEXT
100 POKE53280,12:REM RAHMENFARBE
110 POKE53281,12:REM FARBE 0-63
120 POKE53282,2:REM FARBE 64-127
130 POKE53283,7:REM FARBE 128-191
140 POKE53284,5:REM FARBE 192-255
200 POKE53265,91:REM EXTENDED ON
210 PRINT"[155]":REM ZEICHENFARBE WEISS
220 PRINT"[147]":REM BSCH LOESCHEN
300 FORI=0TO255
320 POKE1024+I,I
330 POKE55296+I,A(A):L=L+1:IFL=64THENL=0:A=A+1
340 NEXT
400 POKE198,0:WAIT 198,1
410 POKE 53265,27
420 POKE198,0:WAIT 198,1
430 POKE 53265,91
440 GOTO400
450 DATA1,7,2,0