home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1998 Special / special1988a.d64 / hrprintrelo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  806b  |  37 lines
  1. 100 rem this program relocates the
  2. 110 rem 'hrprint' ml routine and writes
  3. 120 rem the relocated code to disk
  4. 130 if a=0 then a=1:load "hrprint",8,1
  5. 140 input "new location for hrprint";n
  6. 150 input "new filename for hrprint";f$
  7. 160 a=int(n/256):b=n-256*a
  8. 170 print "working..."
  9. 180 close 15:open 15,8,15,"i0"
  10. 190 gosub 410
  11. 200 open 2, 8, 2, f$ + ",p,w"
  12. 210 gosub 410
  13. 220 print#2, chr$(b);chr$(a);
  14. 230 gosub 410
  15. 240 for j=49152 to 49675
  16. 250 p=peek(j)
  17. 260 if p<>76 and p<>108 and p<>32 then print#2,chr$(p);:next j
  18. 270 z=peek(j+2)
  19. 280 if z<192 or z>194 then print#2,chr$(p);:next j
  20. 290 x=49152-n
  21. 300 y=peek(j+1)
  22. 310 a=y+z*256-x
  23. 320 z=int(a/256)
  24. 330 y=a-256*z
  25. 340 print#2, chr$(p);chr$(y);chr$(z);
  26. 350 j=j+2
  27. 360 next j
  28. 370 print "new sys value for 'in':";n
  29. 380 print "new sys value for 'pr':";n+55
  30. 390 close 2:close 15:end
  31. 400 rem check disk drive error status
  32. 410 input#15,ex,ex$,tr,se
  33. 420 if ex=0 then return
  34. 430 print chr$(18) "disk error"
  35. 440 print ex;ex$;tr;se
  36. 450 goto 390
  37.