Commodore 1581 - Page 71

180 INPUTCITY & STATE"; CS$
190 IF LEN(CS$)>25 THEN 180
200 INPIITZIP CODE";ZP$
210 IF LEN(ZP$)>10 THEN 200
220 DA$ = NA$ + CR$ + SA$ + CR$ + CS$ + CR$;ZP$
230 IF LEN(DA$)<88 THEN 260
240 PRINT'RECORD TOO LONG"
250 GOTO 140
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 DaOSE3:END
1000 IFDS<20 THEN RETURN
1002:
1010 PRINTDS$:DCLOSE3:END
BASIC 2.0:
100 INPUT'ENTER RECORD NUMBER";RE
110 OPEN 15,8,15
120 OPEN3,8,3,UMYRELFILE,L," + CHR$(88)
130CR$ = CHR$(13)
140 INPUT'NAME"; NA$
150 IF LEN(A$)>30 THEN 140
160 INPUrSTREET";SA$
170 IF LEN(SA$)>30 THEN 160
180 INPUT"CITY & STATE"; CS$
190 IF LEN(CS$)>25 THEN 180
200 INPUT"ZIP CODE";ZP$
210 IF LEN(ZP$)>10 THEN 200
220 DA$ = NA$ + CR$ + SA$ + CR$ + CS$ + CR$;ZP$
230 IF LEN(DA$)<88 THEN 260
240 PRINT"RECORD TOO LONG"
250 GOTO 140
260RH = INT(RE/256)
270RL=RE-256*RH
280 PRINT#15,"P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$(1)
290 GOSUB1000:IF EN = 50THENPRINT#3,CHR$(255):GOSUB1000:GOTO280
300 GOSUB1000
310 PRINT#3,DA$
320 GOSUB1000
330 PRINT#15,<<P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$(1)
340 GOSUB1000
350 CLOSE3:CLOSE15:END
1000 INPUT#15,EN,EM$,ET,ES
1002 IF EN<20 THEN RETURN
1010 PRINTEM$:CLOSE3:CLOSE15:END
62