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