Commodore 1581 - Page 74

variable fields created above from record number RE in file and
channel 3:
BASIC 7.0:
10:
20 DOPEN#3,"MYRELFILE",L88
30 INPUT'ENTER RECORD NUMBERM;RE
40:
50:
60 RECORD#3,(RE),1
70 GOSUB1000
80 INPUT#3,NA$,SA$,CS$,ZP$
90 GOSUB1000
100 RECORD#3,(RE),1
110GOSUB1000
120 PRINTNA$:PRINTSA$
130 PRINTCS$:PRINTZP$
140 DCLOSE#3:END
1000 IFDS<20 THEN RETURN
1002:
1010 PRINTUERROR:"DS$:DCLOSE#3:END
BASIC 2.0:
10 OPEN 15,8,15
20 OPEN3,8,3,ttMYRELFILE,L;' + CI IR$(88)
30 INPUT ENTER RECORD NUMBER";RE
40RH = INT(RE/256)
50RL = RE-256*RH
60 PRINT#15,4<P" + CI IR$(96 + 3) + CI IR$(RL) + CI IR$(RI I) + CI IR$( 1)
70 GOSUB1000
80 INPUT#3,NA$,SAJ,CS$,ZPS
90 GOSUB1000
110GOSUB1000
120 PRINTNA$:PRINTSA$
130 PRINTCS$:PRINTZP$
140 CLOSE3:CLOSE15:END
1000 INPUT#15,EN,EM$,ET,ES
1002 IF EN<20 THEN RETURN
1002 PRINTI4ERROR:1'EM$:CLOSE3:CLOSE15:END
READY.
65