Commodore 1570 - Page 73

130 PRINTCS$:PRINTZP$
140 CLOSE3:CLOSEI5:END
1000INPUT#15,EN,EM$,ET,ES
1002 IF EN<20 THEN RETURN
1002 PRINT" ERROR:' 'EM$:CLOSE3 :CLOSE
15 :END
READY.
Here are the lines needed
to read back the version with fixed length fields:
BASIC 7.0:
10:
20 DOPEN#3, "MYRELFILE" ,L88
30
INPUT"ENTER RECORD NUMBER";RE
40 :
50 :
60
RECORD#3,(RE),1
70 GOSUB 1000
80INPUT#3,DA$
90 GOSUB 1000
100 RECORD#3,(RE), I
110 GOSUB 1000
112 NA$
= LEFf$(DA$,27)
114 SA$ = MID$(DA$,28,27)
116 CS$
= MID$(DA$,55,23)
118 ZP$ = RIGHT$(DA$, 10)
120 PRINTNA$:PRINTSA$
130 PRINTCS$:PRINTZP$
140
DCLOSE#3:END
1000 IFDS<20 THEN RETURN
1002 :
1010
PRINT"ERROR:"DS$:DCLOSE#3:END
BASIC 2.0:
10 OPEN 15,8,
IS
20 OPEN3,8,3, "MYRELFILE,L" + CHR$(88)
30
INPUT"ENTER RECORD NUMBER";RE
40 RH = INT(RE/256)
50 RL
= RE - 256*RH
60
PRINT# 15, "P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$(1)
70 GOSUB 1000
80INPUT#3,DA$
90 GOSUB 1000
100
PRINT# 15, •. P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$( I)
110 GOSUB1000
(continued)
65