home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_26_1988_Transactor_Publishing.d64
/
far.ldr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
885b
|
32 lines
100 rem *** far-sys ***
110 far=51200:rem relocating ***
120 ck=0
130 readd:ck=ck+d:ifd=999then150
140 goto130
150 ifck<>11342thenprint"*** error in data ***":end
160 restore:sa=far
170 readd:ifd=999then220
180 ifd=>0thenpokesa,d:goto210
190 ad=far+abs(d):h=ad/256:l=ad-int(ad/256)*256
200 pokesa,l:sa=sa+1:pokesa,h
210 sa=sa+1:goto170
220 print"far-sys installed"far"to"sa
230 data 76,-18,76,-78,0,0,0,108
240 data 20,0,255,246,242,245,241,244
250 data 32,-96,174,-6,224,6,144,3
260 data 76,227,168,165,1,141,-7,61
270 data -12,141,-8,32,-124,32,-89,173
280 data 15,3,9,4,72,173,12,3
290 data 174,13,3,172,14,3,40,32
300 data -9,8,72,173,-7,133,1,104
310 data 40,88,96,173,-7,133,1,32
320 data 54,225,32,71,225,120,173,-8
330 data 133,1,96,32,253,174,32,138
340 data 173,76,247,183,32,121,0,240
350 data 12,32,253,174,201,44,240,5
360 data 32,158,183,56,96,24,96,32
370 data -105,144,3,142,12,3,32,-105
380 data 144,3,142,13,3,32,-105,144
390 data 3,142,14,3,32,-105,144,3
400 data 142,15,3,96,999