Commodore 1581 - Page 75

Here are the lines needed to read back the version with fixed
length fields:
BASIC 7.0:
10:
20 DOPEN#3,"MYRELFBLE'%88
30 INPUT'ENTER RECORD NUMBER";RE
40:
50:
60 RECORD#3,(RE),1
70 GOSUB1000
80 INPUT#3,DA$
90 GOSUB1000
100 RECORD#3,(RE),1
110GOSUB1000
112NA$ = LEFT$(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,15
20 OPEN3,8,3,"MYRELFILE,L" 4- CHR$(88)
30 INPUT'ENTER RECORD NUMBER";RE
40RH = INT(RE/256)
50RL = RE-256*RH
60 PRINT#15/lP" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$(1)
70 GOSUB1000
80 INPUT#3,DA$
90 GOSUB1000
100 PRINT# 15,"?" + CHR$(96 + 3) + CHR$(RL) + CHR$(RI I) 4- CI IR$( 1)
110GOSUB1000
112 NA$ = LEFT$(DA$,27)
114 SA$ = MID$(DA$,28,27)
116CS$ = MID$(DA$,55,23)
118 ZP$ = RIGHT$(DA$,10)
120 PRINTNA$:PRINTSA$
130 PRINTCS$:PRINTZP$
140 CLOSE3:CLOSE15:END
1000 INPUT#15,EN,EM$,ET,ES
1002 IF EN<20 THEN RETURN
1002 PRINTltERROR:"EM$:CLOSE3:CLOSE15:END
READY.
66