5020 ILLEGAL = 0 ' No illegal entry yet, just checking (Ch. 10)
5030 IF FIRSTNM$ = "" THEN FIRSTNM$ = "N/A":GOTO 5220
5040 FOR CHECK = 1 TO LEN(FIRSTNM$) ' Legal entries on next line
5050 IF ASC(MID$(FIRSTNM$,CHECK,1)) >= 65 AND ASC(MID$(FIRSTNM$,CHECK,1)) <= 90 THEN 5210 ' A through Z
5060 IF ASC(MID$(FIRSTNM$,CHECK,1)) >= 97 AND ASC(MID$(FIRSTNM$,CHECK,1)) <= 122 THEN 5210 ' a through z
5070 IF ASC(MID$(FIRSTNM$,CHECK,1)) = 32 OR ASC(MID$(FIRSTNM$,CHECK,1)) = 38 OR ASC(MID$(FIRSTNM$,CHECK,1)) = 39 THEN 5210 ' Space, apostrophe, & ampersand
5080 IF ASC(MID$(FIRSTNM$,CHECK,1)) >= 45 AND ASC(MID$(FIRSTNM$,CHECK,1)) <= 46 THEN 5210 ' Dash & period
5090 ILLEGAL = 1 ' Illegal entry found (Ch. 10)
5100 PRINT CHR$(7) ' Beep (Ch. 10)
5110 PRINT FNCUR$(3,0);FNCLLN$ ' Clear third line from top
5120 PRINT FNCUR$(5,0);FNCLLN$ ' Clear fifth line from top
5130 FOR COUNT = 1 TO 3 ' Blink error message
5140 PRINT FNCUR$(4,0);FNCLLN$ ' Clear fourth line from top
5150 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
5160 PRINT FNCUR$(4,20);"Illegal Entry!"
5170 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
5180 NEXT COUNT
5190 PRINT FNCUR$(5,8);"Please re-enter without punctuation."
6020 ILLEGAL = 0 ' No illegal entry yet, just checking (Ch. 10)
6030 IF LASTNM$ = "" THEN LASTNM$ = "N/A":GOTO 6220
6040 FOR CHECK = 1 TO LEN(LASTNM$) ' Legal entries on next line
6050 IF ASC(MID$(LASTNM$,CHECK,1)) >= 65 AND ASC(MID$(LASTNM$,CHECK,1)) <= 90 THEN 6210 ' A through Z
6060 IF ASC(MID$(LASTNM$,CHECK,1)) >= 97 AND ASC(MID$(LASTNM$,CHECK,1)) <= 122 THEN 6210 ' a through z
6070 IF ASC(MID$(LASTNM$,CHECK,1)) = 32 OR ASC(MID$(LASTNM$,CHECK,1)) = 38 OR ASC(MID$(LASTNM$,CHECK,1)) = 39 THEN 6210 ' Space, apostrophe, & ampersand
6080 IF ASC(MID$(LASTNM$,CHECK,1)) >= 45 AND ASC(MID$(LASTNM$,CHECK,1)) <= 46 THEN 6210 ' Dash & period
6090 ILLEGAL = 1 ' Illegal entry found (Ch. 10)
6100 PRINT CHR$(7) ' Beep (Ch. 10)
6110 PRINT FNCUR$(3,0);FNCLLN$ ' Clear third line from top
6120 PRINT FNCUR$(5,0);FNCLLN$ ' Clear fifth line from top
6130 FOR COUNT = 1 TO 3 ' Blink error message
6140 PRINT FNCUR$(4,0);FNCLLN$ ' Clear fourth line from top
6150 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
6160 PRINT FNCUR$(4,20);"Illegal Entry!"
6170 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
6180 NEXT COUNT
6190 PRINT FNCUR$(5,8);"Please re-enter without punctuation."
15020 ILLEGAL = 0 ' No illegal entry yet, just checking (Ch. 10)
15030 IF FIRSTNAME$ = "" THEN FIRSTNAME$ = "N/A":GOTO 15220
15040 FOR CHECK = 1 TO LEN(FIRSTNAME$) ' Legal entries on next line
15050 IF ASC(MID$(FIRSTNAME$,CHECK,1)) >= 65 AND ASC(MID$(FIRSTNAME$,CHECK,1)) <= 90 THEN 15210 ' A through Z
15060 IF ASC(MID$(FIRSTNAME$,CHECK,1)) >= 97 AND ASC(MID$(FIRSTNAME$,CHECK,1)) <= 122 THEN 15210 ' a through z
15070 IF ASC(MID$(FIRSTNAME$,CHECK,1)) = 32 OR ASC(MID$(FIRSTNAME$,CHECK,1)) = 38 OR ASC(MID$(FIRSTNAME$,CHECK,1)) = 39 THEN 15210 ' Space apostrophe, & ampersand
15080 IF ASC(MID$(FIRSTNAME$,CHECK,1)) >= 45 AND ASC(MID$(FIRSTNAME$,CHECK,1)) <= 46 THEN 15210 ' Dash & period
15090 ILLEGAL = 1 ' ILlegal entry found (Ch. 10)
15100 PRINT CHR$(7) ' Beep (Ch. 10)
15110 PRINT FNCUR$(5,0);FNCLLN$ ' Clear fifth line from top
15120 PRINT FNCUR$(6,0);FNCLLN$ ' Clear sixth line from top
15130 FOR COUNT = 1 TO 3 ' Bink error message
15140 PRINT FNCUR$(4,0);FNCLLN$ ' Clear fourth line from top
15150 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
15160 PRINT FNCUR$(4,18);"Illegal Entry!"
15170 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
15180 NEXT COUNT
15190 PRINT FNCUR$(5,2);"Please re-enter without digits or punctuation."
16020 ILLEGAL = 0 ' No illegal entry yet, just checking (Ch. 10)
16030 IF LASTNAME$ = "" THEN LASTNAME$ = "N/A":GOTO 15220
16040 FOR CHECK = 1 TO LEN(LASTNAME$) ' Legal entries on next line
16050 IF ASC(MID$(LASTNAME$,CHECK,1)) >= 65 AND ASC(MID$(LASTNAME$,CHECK,1)) <= 90 THEN 16210 ' A through Z
16060 IF ASC(MID$(LASTNAME$,CHECK,1)) >= 97 AND ASC(MID$(LASTNAME$,CHECK,1)) <= 122 THEN 16210 ' a through z
16070 IF ASC(MID$(LASTNAME$,CHECK,1)) = 32 OR ASC(MID$(LASTNAME$,CHECK,1)) = 38 OR ASC(MID$(LASTNAME$,CHECK,1)) = 39 THEN 16210 ' Space apostrophe, & ampersand
16080 IF ASC(MID$(LASTNAME$,CHECK,1)) >= 45 AND ASC(MID$(LASTNAME$,CHECK,1)) <= 46 THEN 16210 ' Dash & period
16090 ILLEGAL = 1 ' ILlegal entry found (Ch. 10)
16100 PRINT CHR$(7) ' Beep (Ch. 10)
16110 PRINT FNCUR$(5,0);FNCLLN$ ' Clear fifth line from top
16120 PRINT FNCUR$(6,0);FNCLLN$ ' Clear sixth line from top
16130 FOR COUNT = 1 TO 3 ' Bink error message
16140 PRINT FNCUR$(4,0);FNCLLN$ ' Clear fourth line from top
16150 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
16160 PRINT FNCUR$(4,18);"Illegal Entry!"
16170 FOR PAUSE = 1 TO 100:NEXT PAUSE ' Count to 100 silently (Ch. 7)
16180 NEXT COUNT
16190 PRINT FNCUR$(5,2);"Please re-enter without digits or punctuation."