home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_16_1987_Transactor_Publishing.d64
/
screensave.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
32 lines
10 rem* data loader for "screensave" *
20 for i=828 to 1003:read a:poke i,a
30 cs=cs+a:next i
40 :
50 if cs<>19715 then print"!data error!": end
60 sys 828
70 print"screen saver activated!"
80 end
90 :
1000 data 120, 173, 20, 3, 141, 236, 3, 173
1010 data 21, 3, 141, 237, 3, 169, 111, 141
1020 data 20, 3, 169, 3, 141, 21, 3, 169
1030 data 0, 141, 240, 3, 141, 241, 3, 141
1040 data 238, 3, 88, 96, 120, 173, 236, 3
1050 data 141, 20, 3, 173, 237, 3, 141, 21
1060 data 3, 88, 96, 72, 8, 169, 16, 44
1070 data 17, 208, 240, 41, 169, 64, 197, 203
1080 data 208, 60, 32, 197, 3, 173, 238, 3
1090 data 240, 22, 173, 32, 208, 141, 239, 3
1100 data 169, 0, 141, 32, 208, 141, 238, 3
1110 data 169, 239, 45, 17, 208, 141, 17, 208
1120 data 40, 104, 108, 236, 3, 169, 64, 197
1130 data 203, 208, 5, 173, 141, 2, 240, 240
1140 data 173, 239, 3, 141, 32, 208, 169, 16
1150 data 13, 17, 208, 141, 17, 208, 169, 0
1160 data 141, 240, 3, 141, 241, 3, 76, 156
1170 data 3, 24, 169, 1, 109, 240, 3, 141
1180 data 240, 3, 144, 10, 24, 169, 1, 109
1190 data 241, 3, 141, 241, 3, 96, 169, 32
1200 data 205, 240, 3, 208, 10, 169, 28, 205
1210 data 241, 3, 208, 3, 238, 238, 3, 96