90 HIMEM: 34816: LOMEM: 24576: DIM ES%(100),MS%(100)
100 TEXT : HOME : HTAB 13: PRINT "QUINTIC.TEACHER": PRINT : HTAB 9: PRINT "BY JAMES R. GESCHWENDER": VTAB 6: PRINT "** COPYRIGHT 1986 BY MICROSPARC, INC. **"
1380 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
1390 IF NF THEN F$ = LEFT$(F$,1)
1400 RETURN
1410 POKE 216,0: PRINT CHR$(4)"CLOSE": HOME : VTAB 12: PRINT "ERROR " PEEK(222): PRINT "IN LINE " PEEK(218) +256 * PEEK(219): GOSUB 1360: HOME : ON EF GOTO 740,870,110