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