Commodore 1570 - Page 69

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
260 :
270 :
280 RECORD#3,(RE),1
290 IFDS = 50THENPRINT#3,CHR$(255):GOSUB 1000:GOT0280
300 GOSUB 1000
310 PRINT#3,DA$
320 GOSUB 1000
330 RECORD#3,(RE), I
340 GOSUB 1000
350 DCLOSE3: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, "MYRELFILE,L," +CHR$(88)
130 CR$ =CHR$(
13)
140 INPUT"NAME"; NA$
ISO IF LEN(A$»30 THEN 140
I60INPUr'STREET";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
260
RH = INT(RE/256)
270 RL = RE - 256*RH
280
PRINT# 15, "P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$(I)
290 GOSUB 1000:IF
EN = 50THENPRINT#3,CHR$(255):GOSUB 1000:GOT0280
300 GOSUB 1000
310 PRINT#3,DA$
320 GOSUB 1000
330
PRINT# 15, . 'P" + CHR$(96 + 3) + CHR$(RL) + CHR$(RH) + CHR$( 1)
(continued)
61