Commodore VIC-20 - Page 152

138 The VIC 20 User Guide
113 REM NAME AND ADDRESS DATA ENTRV
213 REM DISPLAV THE DATA ENTR'y'
313 PRINT ":'lJENTER NAME AND ADDRESS"
413 PRINT "1Il1! NAME:"
513 PR INT "12! STREET:"
68 PRINT "ill3! CITl': "
713 PRINT ":!14! STATE:"
813 PRINT ":f)! ZIP:"
913 PRINT "i!l6! PHONE:"
lea EDITING%=13
288 REM GET 12 CHARACTER NAME
2113 R~=3:C%=9:LN~=12:GOSUB 88813
2213 NA$=CC$
2313 IF EDrTING~ THEN 51313
2513 REM GET STREET
2613 R%=4:C~"9:LN~=12:GOSUB 80130
278 SR$=CC$
288 IF EDITING% THEN 5813
31313 REM GET 12 CHARACTER CIT'T'
3113 R%=5:C~=9:LN~=12:GOSUB 813130
320 CI$=CC$
3313 IF EDITHIG:I, THEN 51313
358 REM GET 12 CHARACTER STATE
3613 R~=6:C~=9:LN~=12:GOSUB 8131313
378 IF EDITING% THEN 5013
41313 REM GET 5 CHARACTER ZIP CODE
4113 R;/'=7:C;/'=9:LN~=5:GOSUB 8808
4213 ZI$=CC$
430 I F ED I TI NO;/' THEt~ 588
4513 REM GET PHONE NUMBER
468 R%=8:C~=9:LN;/'=12:GOSUB 81380
4713 PH$=CC$
51313 REM ASK IF ANV CHANGES ARE TO BE MADE
5113 EDITING%=-1
5213 R;/,=la:C;/,=0:GOSUB 901313
538 QU$="ANV CHANGES? II"
5413 /JOSUB 31388: REM GET "'T''' OR "W'
5513 IF C$="N" THEN PRINT ":'l"; : END
568 REM ASK WHICH LINES NEED CHAt~GING
5713 QU$="WHICH LINE 0-6)?: II"
5813 R%=12:LO%=1:HI%=6
5913 GOSUB 351313
61313 ON NM% GO TO 21313,2513,3138,3513,41313,4513
6113 GOTO 5213
3131313 REM ASK A QUESTION AND RETURN A RESPONSE OF 'T' OR N IN C$
30213 PRINT QU$;
313313 GOSUE 5800:REM GET A CHARACTER
313413 IF C$()"Y" AND C$()"N" THEN 31330
313513 PRINT C$;
FIGURE 4·2. Name and address entry program