home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_07_1985_Transactor_Publishing.d64
/
remote.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
47 lines
0 rem the transactor volume 6 issue 02 page 42
10 rem* data loader for "remote" *
20 cs=0
30 for i=49152 to 49434:read a:poke i,a
40 cs=cs+a:next i
50 :
60 if cs<>33357 then print"***** data error *****": end
70 rem sys 49152 to activate
80 end
100 :
1000 data 76, 5, 192, 6, 16, 162, 27, 160
1010 data 193, 56, 32, 141, 255, 32, 231, 255
1020 data 32, 157, 192, 120, 169, 185, 141, 40
1030 data 3, 169, 192, 141, 41, 3, 169, 200
1040 data 141, 48, 3, 169, 192, 141, 49, 3
1050 data 169, 209, 141, 50, 3, 169, 192, 141
1060 data 51, 3, 169, 22, 141, 44, 3, 169
1070 data 193, 141, 45, 3, 120, 169, 83, 141
1080 data 38, 3, 169, 192, 141, 39, 3, 169
1090 data 113, 141, 20, 3, 169, 192, 141, 21
1100 data 3, 88, 96, 120, 133, 251, 138, 72
1110 data 152, 72, 165, 251, 32, 22, 231, 162
1120 data 100, 32, 201, 255, 165, 251, 32, 202
1130 data 241, 104, 168, 104, 170, 165, 251, 88
1140 data 96, 162, 100, 32, 198, 255, 32, 228
1150 data 255, 201, 0, 240, 24, 201, 3, 208
1160 data 8, 169, 127, 141, 184, 192, 76, 149
1170 data 192, 162, 0, 142, 184, 192, 166, 198
1180 data 157, 119, 2, 230, 198, 162, 0, 32
1190 data 198, 255, 108, 27, 193, 162, 3, 160
1200 data 192, 169, 2, 32, 189, 255, 169, 100
1210 data 162, 2, 160, 2, 32, 186, 255, 32
1220 data 192, 255, 162, 100, 32, 201, 255, 96
1230 data 0, 173, 184, 192, 240, 7, 133, 145
1240 data 169, 0, 141, 184, 192, 108, 47, 193
1250 data 8, 72, 138, 72, 162, 0, 76, 215
1260 data 192, 8, 72, 138, 72, 162, 2, 152
1270 data 72, 173, 27, 193, 141, 20, 3, 173
1280 data 28, 193, 141, 21, 3, 173, 45, 193
1290 data 141, 38, 3, 173, 46, 193, 141, 39
1300 data 3, 189, 55, 193, 141, 4, 193, 189
1310 data 56, 193, 141, 5, 193, 104, 168, 104
1320 data 170, 104, 40, 32, 0, 0, 8, 72
1330 data 138, 72, 152, 72, 32, 60, 192, 104
1340 data 168, 104, 170, 104, 40, 96, 169, 1
1350 data 76, 49, 243