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