675 MAP (INBUF) INPUT.LINE$ = 132% ! Buffer for keyboard input. & 16600 !-------------------------------------------------------------- & ! & ! FN.NOEDIT$ & ! & ! Get an Unedited Input Value From the User & ! & ! Variables Used & ! & ! F.END% Was CNTRL Z entered? *** GLOBAL VARIABLE *** & ! CH.KB% Keyboard channel *** GLOBAL VARIABLE *** & ! CNTRL.Z% Error code for CNTL Z*** GLOBAL VARIABLE *** & ! PROMPT$ Text of prompt for user input & ! R$ Edited response & ! FN.NOEDIT$ Output of function (unedited) & ! INPUT.LINE$ Mapped buffer associated with #CH.KB% & ! & ! *** NOTE: The following map must appear in the calling *** & ! *** program: *** & ! & ! 675 MAP (INBUF) INPUT.LINE$ = 132% (Buffer for keyboard & ! input) & ! *** NOTE: The following statement must appear in the *** & ! *** error trapping section of the calling program: *** & ! & ! 19140 IF ERR = CNTRL.Z% & ! THEN F.END% = TRUE% & ! RESUME 16690 IF ERL = 16620 & ! (CNTRL Z was entered in FN.RESP$) & ! & !-------------------------------------------------------------- & 16620 DEF* FN.NOEDIT$ (PROMPT$) & \ FN.NOEDIT$ = "" & \ F.END% = FALSE% & \ PRINT #CH.KB%, PROMPT$;" "; & \ GET #CH.KB% & \ R$ = EDIT$(INPUT.LINE$,(4%+8%+32%+128%)) & \ IF R$ = "END" & THEN F.END% = TRUE% & \ GO TO 16690 & ELSE FN.NOEDIT$ = INPUT.LINE$ & ! Print the prompt. Get a line of input. Clean it up. Check to see & ! if "END" was typed. & 16690 PRINT #CH.KB% & \ FNEND & ! Skip a line. & 19140 IF ERR = CNTRL.Z% & THEN F.END% = TRUE% & \ RESUME 16690 IF ERL = 16620 & ! CNTRL Z was entered in FN.NOEDIT$