home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_07_1985_Transactor_Publishing.d64
/
flash
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
803b
|
24 lines
0 rem the transactor volume 6 issue 02 bits & pieces section
10 rem* data loader for "flash" *
20 cs=0
30 for i=49152 to 49245:read a:poke i,a
40 cs=cs+a:next i
50 :
60 if cs<>12150 then print"!! data error": end
65 poke 49152+19,5: rem flash colour=5 (green)
70 sys 49152
80 end
100 :
1000 data 173, 21, 192, 141, 22, 192, 120, 169
1010 data 24, 141, 20, 3, 169, 192, 141, 21
1020 data 3, 88, 96, 5, 0, 20, 0, 0
1030 data 206, 22, 192, 208, 61, 173, 21, 192
1040 data 141, 22, 192, 173, 33, 208, 41, 15
1050 data 141, 20, 192, 160, 0, 132, 251, 169
1060 data 216, 133, 252, 238, 23, 192, 173, 23
1070 data 192, 41, 1, 170, 177, 251, 41, 15
1080 data 205, 19, 192, 240, 5, 205, 20, 192
1090 data 208, 5, 189, 19, 192, 145, 251, 200
1100 data 208, 234, 230, 252, 165, 252, 201, 220
1110 data 208, 226, 76, 49, 234, 252