18 lines
332 B
QBasic
18 lines
332 B
QBasic
10 DATA 205,7,10,123,66,14,84,237,121
|
|
20 DATA 0,0,0,203,248,237,121,195,125,17
|
|
30 FOR A=-1024 TO -1006
|
|
40 READ D
|
|
50 POKE A,D
|
|
60 NEXT A
|
|
70 POKE -32695,0
|
|
80 POKE -32694,252
|
|
90 LET A=USR(1024)
|
|
100 LET A=USR(6159)
|
|
101 LET A=USR(1280)
|
|
102 LET A=USR(1776)
|
|
103 LET A=USR(1041)
|
|
110 FOR D=256 TO 511
|
|
120 LET A=USR(D)
|
|
130 NEXT D
|
|
140 GOTO 110
|