mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-09 11:54:59 +00:00
12 lines
514 B
QBasic
12 lines
514 B
QBasic
|
5 REM SEE http://eightbitsoundandfury.ld8.org/programming.html
|
||
|
10 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
|
||
|
20 DATA 173,48,192,136,208,5,206,1,3,240,9
|
||
|
30 DATA 202,208,245,174,0,3,76,2,3,96
|
||
|
35 REM L2ECGL4CEGL2B-AGL4CEGL2B-AGCD
|
||
|
40 FOR I=1 TO 17: READ F: READ D: POKE 768,F: POKE 769,D: CALL 770: NEXT I
|
||
|
50 DATA 202,216,255,216,170,216
|
||
|
55 DATA 255,108,202,108,170,108
|
||
|
60 DATA 143,216,152,216,170,216
|
||
|
65 DATA 255,108,202,108,170,108
|
||
|
70 DATA 143,216,152,216,170,216,255,216,227,255
|