2100 VTAB 24: HTAB 10: PRINT "<RETURN TO CONTINUE>";: POKE -16368,0: CALL -678: HOME : RETURN
2110 NF = 1:LF = LEN(F$): IF LF <9 AND LF THEN FOR NC = 1 TO LF:NA = ASC( MID$ (F$,NC,1)):NF = ((NA >64 AND NA <91) OR (NA = 46 AND NC >1) OR (NA >47 AND NA <58 AND NC >1)) AND NF = 1: NEXT :NF = NOT NF
2120 IF LEFT$(F$,1) = "?" THEN HOME : PRINT D$"CATALOG":F$ = "?"
2130 RETURN
2140 VTAB 23: PRINT "NAME MUST BE 8 OR FEWER LETTERS."
2150 VTAB 24: HTAB 1: PRINT "PRESS <RETURN> TO CONTINUE";: GET Z$: RETURN
2160 VTAB 21: HTAB 1: PRINT "USE COMPUTER VS. HUMAN OPTION": PRINT "TO CREATE A NEW COMPUTER PLAYER": GOTO 2150
2180 CALL -3288: POKE 216,0: PRINT D$"CLOSE": HOME : VTAB 12: PRINT "ERROR " PEEK(222): PRINT "IN LINE " PEEK(218) +256 * PEEK(219): VTAB 24: PRINT "PRESS <RETURN> TO CONTINUE";: GET Z$: HOME : ON EF GOTO 140,180,1420,1450,1570,1160