CORRECTING INPUT

This is a useful technique for correcting input errors without unnecessary  retyping. After inputing your data, the routine asks you if everything is right. If it isn't, your cursor jumps to the first line of your original input. if necessary, retype the entry or simply press Return to move the cursor to the next entry.  

100 REM CORRECTING INPUT
110 PRINT "[CLEAR]"
120 INPUT "FIRST NAME";N1$
130 INPUT "LAST NAME";N2$
140 INPUT "TELEPHONE";TN$
150 INPUT "[DOWN]ALL CORRECT (Y OR N)"; A$
160 IF LEFT$(A$,1)<>"Y" THEN PRINT"[HOME]":GOTO 120
170 PRINT:PRINT N1$:PRINT N2$:PRINT TN$