Commodore 1581 - Reading Relative Records

To use the above program lines for the version with fixed length
fields, we would alter a few lines as follows:
BASIC 7.0:
100 INPUT'ENTER RECORD NUMBER";RE
110:
120 DOPEN#3,"MYRELFILE",L88
130 BL$ = "(27 shifted space chars)"
140 INPUT'NAME"; NA$
145LN=LEN(NA$)
150 IF LEN>27 THEN 140
155 NA$ = NA$ + LEFT$(BL$,27 - IN)
160 INPUT"STREET";SA$
165LN=LEN(SA$)
170 IF LEN>27 THEN 160
175 SA$ = SA$ + LEFT$(BL$,27 - LN)
180 INPUrCITY & STATE"; CS$
185LN = LEN(CS$)
190 IF LEN>23 THEN 180
195 CS$ = CS$ + LEFT$(BL$,23 - LN)
200 INPUTZIP CODE";ZP$
205LN=LEN(ZP$)
210IFLN>10THEN200
215 ZP$ = ZP$ + LEFT$(BL$,10-LN)
220 DA$ = NA$ + SA$ + CS$ + ZP$
260:
270:
280 RECORD#3,(RE),1
290 IFDS = 50THENPRINT#3,CHR$(255):GOSUB1000:GOTO280
300 GOSUB1000
310 PRINT#3,DA$
320 GOSUB1000
330 RECORD#3,(RE),1
340 GOSUB1000
350 DCLOSE#3:END
1000 IFDS<20 THEN RETURN
1002:
1010 PRINT'ERROR:"DS$:DCLOSE#):END
BASIC 2.0:
100 INPUT'ENTER RECORD NUMBER";RE
110 OPEN 15,8,15
120 OPEN#3,8,3,"MYRELFILE>L," + CHR$(88)
130 BL$ = "(27 shifted space chars)"
140 INPUT"NAME"; NA$
145LN = LEN(NA$)
15OIFLEN>27THEN14O
155 NA$ = NA$ + LEFT$(BL$,27 - LN)
160 INPUT"STREET";SA$
165LN=LEN(SA$)
63