home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Power Pak 1 / rerun-geos-powerpak-i-side-c.d64 / cardfilepatch (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  641b  |  31 lines
  1. 90 rem patch prog for cardfile from run geos pak 1
  2. 100 dimz(256):dr=8:nv=29
  3. 110 open15,dr,15:open2,dr,2,"#"
  4. 120 tr=18:se=1:gosub1000:rem1581use40,3
  5. 130 tr=z(3):se=z(4):gosub1000
  6. 140 tr=z(4):se=z(5):gosub1000
  7. 150 fort=1to5
  8. 160 tr=z(0):se=z(1):gosub1000
  9. 170 next
  10. 180 z(186)=nv:z(236)=nv:gosub2000
  11. 190 tr=z(0):se=z(1):gosub1000
  12. 200 z(32)=nv:z(82)=nv:z(132)=nv:z(182)=nv:z(232)=nv:gosub2000
  13. 210 tr=z(0):se=z(1):gosub1000
  14. 220 z(28)=nv:gosub2000
  15. 230 tr=z(0):se=z(1):gosub1000
  16. 240 tr=z(0):se=z(1):gosub1000
  17. 250 z(142)=nv:gosub2000
  18. 260 close2:close15:end
  19. 1000 print#15,"u1"2;0;tr;se
  20. 1010 forx=0to255
  21. 1020 get#2,a$:a$=a$+chr$(0)
  22. 1030 z(x)=asc(a$)
  23. 1040 next
  24. 1050 return
  25. 2000 print#15,"b-p:"2;0
  26. 2010 forx=0to255
  27. 2020 print#2,chr$(z(x));
  28. 2030 next
  29. 2040 print#15,"u2"2;0;tr;se
  30. 2050 return
  31.