1710 FOR I = 1 TO 10:K$(N,I -1) = L$(I): NEXT : HOME : VTAB 12: HTAB 10: PRINT "CURRENT LABEL SAVED": VTAB 23: PRINT "HIT ANY KEY TO RETURN TO MAIN MENU.....";: GOSUB 3190
1720 RETURN
1730 VTAB 10: HTAB 1: CALL -958: VTAB 15: HTAB 10
1740 INVERSE : PRINT "FILE IS FULL " CHR$(7) CHR$(7): NORMAL : VTAB 23: PRINT "HIT ANY KEY TO RETURN TO MAIN MENU .....";: GOSUB 3190
3070 PRINT "ERROR "; PEEK(222): PRINT "OCCURRED WHILE TRYING TO INITIALIZE": PRINT "YOUR DATA FILE": PRINT : PRINT "PLEASE CORRECT THE PROBLEM AND PRESS": PRINT "ANY KEY TO START AGAIN": GET K$: RUN
3080 REM ===============
3090 REM CHARACTER INPUT
3100 REM ===============
3110 A$ = ""
3120 GET B$
3130 IF B$ = CHR$(13) THEN CALL -868: RETURN
3140 IF B$ < > CHR$(8) AND LEN(A$) = 32 THEN PRINT CHR$(7);: GOTO 3120
3150 IF B$ < > CHR$(8) THEN A$ = A$ +B$: PRINT B$;: GOTO 3120
3160 IF LEN(A$) = 0 THEN 3120
3170 PRINT B$"."B$;: IF LEN(A$) = 1 THEN A$ = "": GOTO 3120
3180 A$ = LEFT$(A$, LEN(A$) -1): GOTO 3120
3190 X = PEEK( -16384): IF X <128 THEN 3190
3200 POKE -16368,0:X = X -128: RETURN
3210 X = PEEK( -16384): IF X <128 OR (X < >217 AND X < >206) THEN 3210
3220 POKE -16368,0:X = X -128: RETURN
3230 FOR I = 1 TO 10: HTAB 5: PRINT L$(I): NEXT : RETURN
3240 PRINT " ";: RETURN : REM 40 SPACES BETWEEN QUOTES