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