(FILECREATED "13-May-84 00:11:58" ("compiled on " {FLOPPY}TTYIO.;8) "30-Mar-84 16:47:08" recompiled changes: ASKFLE ASKFN ASKINT ASKITEM ASKITEMS ASKPAIR ASKRL ASKYN TTYIO/Ask TTYIO/ClearFromError TTYIO/ConfirmCheck TTYIO/FILE/GET-TXT TTYIO/FileCheck TTYIO/FunctionCheck TTYIO/IntegerCheck TTYIO/IntegerErrorHandler TTYIO/RealCheck TTYIO/RealErrorHandler TTYIO/SetPrompt in WORK dated "10-Apr-84 17:17:35") (FILECREATED "13-May-84 00:02:26" {FLOPPY}TTYIO.;8 26644 changes to: (FNS ASKFN ASKITEM ASKPAIR TTYIO/ClearFromError TTYIO/FunctionCheck TTYIO/FILE/GET-TXT TTYIO/Ask ASKINT ASKITEMS ASKYN ASKRL TTYIO/RealErrorHandler TTYIO/RealCheck TTYIO/IntegerErrorHandler TTYIO/IntegerCheck TTYIO/ConfirmCheck ASKFLE TTYIO/FileCheck TTYIO/SetPrompt) (VARS TTYIOCOMS) previous date: "11-May-84 08:25:07" {FLOPPY}TTYIO.;3) ASKFLE D1 (I 6 FILE I 5 NULFLG I 4 DEFAULT I 3 CONFIRMFLG I 2 HELP I 1 PROMPT I 0 MODE) \g Bobg Aob@gbD!ddgD gD bgABCDEhg (131Q TTYIO/Ask 106Q OUTFILEP 72Q MKATOM 66Q INFILEP 25Q BOUNDP 5 BOUNDP) (125Q FILE 114Q TTYIO/FileCheck 77Q OUTPUT 57Q INPUT 45Q INPUT 22Q PROMPT 2 HELP) ( 34Q "File: " 14Q "Please type the name of a file.") ASKFN D1 (I 6 NULFLG I 5 CONFIRMFLG I 4 FN I 3 SPLST I 2 HELP I 1 DEFAULT I 0 PROMPT) ag @obA hb0Cd dIHhZH&JbBdobCgCg@BEAFDo (136Q TTYIO/Ask 43Q FNTYP 23Q FNTYP 5 BOUNDP) (120Q TTYIO/FunctionCheck 112Q * 2 PROMPT) ( 132Q (COMMAND STRING READ) 102Q "Please enter the name of a function." 14Q "Function: ") ASKINT D1 (I 7 NULFLG I 6 CONFIRMFLG I 5 INTEGER I 4 UPPERBOUND I 3 LOWERBOUND I 2 HELP I 1 DEFAULT I 0 PROMPT) g Bobg @obCdddj؏oCo hbDdddj؏oDo hbAddd&jbCddCADddADhbg@BFAGEhg (256Q TTYIO/Ask 140Q WRITE 75Q WRITE 25Q BOUNDP 5 BOUNDP) (252Q TTYIO/IntegerErrorHandler 237Q TTYIO/IntegerCheck 22Q PROMPT 2 HELP) ( 135Q ", has been reset to +Infinity." 130Q "WARNING! Invalid upper bound, " 72Q ", has been reset to -Infinity." 65Q "WARNING! Invalid lower bound, " 34Q "Integer: " 14Q "Please enter an integer.") ASKITEM D1 (I 6 ITEM I 5 NULFLG I 4 DEFAULT I 3 CONFIRMFLG I 2 HELP I 1 PROMPT I 0 RESTRICTION) @ABCDEF (12Q TTYIO/Ask) NIL () ASKITEMS D1 (P 4 ITEM I 4 ITEMS I 3 CONFIRMFLG I 2 HELP I 1 PROMPT I 0 RESTRICTION F 5 USERWORDS) qg Aobg BibD&A@dlU U@dgBo bAHI@hdChiL J KhZHXK&(131Q ASKITEM 101Q TTYINC 55Q FNTYP 25Q BOUNDP 5 BOUNDP) (66Q * 22Q HELP 2 PROMPT) ( 76Q (NORAISE NOFIXSPELL) 14Q "Items: ") ASKPAIR D1 (P 3 NEWFLG P 2 FN P 1 SPLST1 P 0 SPLST I 6 ITEM I 5 NULFLG I 4 DEFAULT I 3 CONFIRMFLG I 2 HELP I 1 PROMPT I 0 RESTRICTION F 10Q USERWORDS) :PBib@ h@dlhgi@@X@ @Z0Hd\Lh]NM_^OYDHDH ^MJDkJhbAoddhDoDoDoho bFAIWBohdddi b jDb EF`HJF4FH ,KF'FlFH JFkJFi oi i b CFohi hb h~FdDF(435Q CLEARBUF 425Q ASKYN 402Q TERPRI 375Q PRIN1 364Q PRIN1 344Q FIXSPELL 325Q MEMBER 274Q TTYINC 237Q \APPEND2 137Q LAST 133Q MEMBER 53Q FNTYP 14Q FNTYP) (442Q TTYIN-COMMAND-LINE 36Q *) ( 416Q "OK?" 371Q " is an invalid response. Please try again." 263Q (NORAISE NOFIXSPELL) 234Q ("** ") 221Q "] ** " 213Q " " 205Q "[" 167Q "Item: ") ASKRL D1 (I 7 NULFLG I 6 CONFIRMFLG I 5 REAL I 4 UPPERBOUND I 3 LOWERBOUND I 2 HELP I 1 DEFAULT I 0 PROMPT) g Bobg @obCddd oCo hbDddd oDo hbAddd' bCddCADddADhbg@BFAGEhg (261Q TTYIO/Ask 170Q FLOAT 142Q WRITE 123Q FLOAT 76Q WRITE 57Q FLOAT 25Q BOUNDP 5 BOUNDP) (255Q TTYIO/RealErrorHandler 242Q TTYIO/RealCheck 22Q PROMPT 2 HELP) ( 137Q ", has been reset to +Infinity." 132Q "WARNING! Invalid upper bound, " 73Q ", has been reset to -Infinity." 66Q "WARNING! Invalid lower bound, " 34Q "Number: " 14Q "Please enter a floating point number.") ASKYN D1 (I 3 RESPONSE I 2 HELP I 1 DEFAULT I 0 PROMPT) Pg Bobg @obAggbCigbo@BhAhCo gi(106Q TTYIO/Ask 25Q BOUNDP 5 BOUNDP) (111Q YES 61Q YES 50Q NO 44Q YES 22Q PROMPT 2 HELP) ( 102Q (COMMAND STRING) 70Q (YES NO) 34Q "Confirm: " 14Q "Please respond with YES or NO.") DISPLAYHELP D1 (P 0 RESULT I 0 KEY) o XhH(11Q CTRLO.NLSETQ) NIL ( 6 (COND ((LISTP KEY) (COND ((EQ (CAR KEY) (QUOTE ;)) (TTYIO/GET-TXT KEY)) (T (printout NIL .PARA 0 0 KEY T) T))) ((AND KEY (NEQ KEY T)) (printout NIL KEY T) T) (T NIL))) TTYINC D1 (P 0 LINE I 10Q NOSTOREFLG I 7 RDTBL I 6 UNREADBUF I 5 TABS I 4 ECHOTOFILE I 3 OPTIONS I 2 HELP I 1 SPLST I 0 PROMPT F 2 READBUF) f  `<hiR @ABCDEF`F` `` G II @ABCDEFG Xo GhHH(126Q EQUAL 116Q TTYIN 77Q BKBUFS 70Q TTYIN 62Q CONCAT 50Q CONCAT 25Q CLBUFS 16Q SYSBUF 12Q LINBUF) (142Q TTYIN-COMMAND-LINE 57Q EOL 54Q TTYIN-COMMAND-LINE 45Q EOL 41Q TTYIN-COMMAND-LINE 5 TTYIN-COMMAND-LINE) ( 123Q (IGNORE)) TTYIO/Ask D1 (P 2 NEWFLG P 1 RestrictionFn P 0 SPLST I 10Q ERRORMESSAGE I 7 OPTIONS I 6 RESPONSE I 5 NULFLG I 4 DEFAULT I 3 CONFIRMFLG I 2 HELP I 1 PROMPT I 0 RESTRICTION F 3 USERWORDS)  g Bibg Aobg Gob0@ h@dlhgi@@X@ @YDHDH IDkIhbAD bFAHSBG Db EFGHIF&FH JFFlFH IFkIG b CFohi hb F(315Q ASKYN 272Q TTYIO/ClearFromError 252Q FIXSPELL 233Q MEMBER 203Q TTYINC 163Q TTYIO/SetPrompt 141Q MEMBER 123Q FNTYP 64Q FNTYP 42Q BOUNDP 22Q BOUNDP 5 BOUNDP) (106Q * 37Q OPTIONS 17Q PROMPT 2 HELP) ( 306Q "OK?" 52Q (COMMAND STRING NORAISE NOFIXSPELL) 31Q "Item: ") TTYIO/ClearFromError D1 (I 0 ERRORMESSAGE F 0 RESPONSE) )@ j@@ P o h h(42Q CLEARBUF 36Q TERPRI 31Q PRIN1 21Q PRIN1 3 FNTYP) (46Q TTYIN-COMMAND-LINE) ( 26Q " is an invalid response. Please try again.") TTYIO/ConfirmCheck D1 (L (0 RESPONSE)) @oNIL NIL ( 4 (Y N NIL)) TTYIO/FILE/GET-TXTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FL) Pg ci(6 OPENFILE) (3 INPUT) () TTYIO/FILE/GET-TXTA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 X F 1 FL F 2 FILERDTBL) iPQR h(15Q /RPLNODE2 12Q READ) (3 TTYIO-TXT-FLG) () TTYIO/FILE/GET-TXT D1 (P 6 MACROY P 5 MACROX P 4 TEM P 3 STR P 2 FL P 1 NC P 0 ST I 2 DEF I 1 DESTFL I 0 X F 7 RESETVARSLST F 10Q FONTCHANGEFLG F 11Q LISPXHIST) }P@Xdd2HHddHdd|HnHXp@Ydd^@ZU@dMJAFjHAJg Ko 1o\gW  Li @i oi @gJhhhWcJH AIg`WcW^og MNdWMcW WkN MB&AiWWg` jhi K`>`g$Ai@A nA n@AJAHdI Kd h (570Q CHANGEFONT 563Q CHANGEFONT 555Q COPYBYTES 525Q GETFILEPTR 515Q GETFILEPTR 461Q ENDLINE1 452Q CHANGEFONT 420Q ERROR! 407Q NLEFT 377Q TAILP 347Q TTYIO/FILE/GET-TXTA0002 310Q SETFILEPTR 260Q LISPXPRIN1 247Q LISPXPRIN2 234Q LISPXPRIN1 225Q MEMB 220Q MEMB 201Q TTYIO/FILE/GET-TXTA0001 170Q OPENP) (477Q DONTUPDATE 474Q TTYIO-TXT-FLG 467Q COMMENTFONT 447Q DEFAULTFONT 441Q ALL 355Q TTYIO-TXT-FLG 344Q INTERNAL 321Q TTYIO-TXT-FLG 316Q TTYIO-TXT-FLG 265Q CLOSEF? 213Q *LISPXPRINT* 165Q INPUT) ( 341Q (DUMMY.FOR.ERRORSET) 254Q " - text items lost " 207Q "can't find file " 176Q (DUMMY.FOR.ERRORSET)) TTYIO/FileCheck D1 (I 0 FILE F 0 MODE) #Pdg@ gghg@ (40Q OUTFILEP 35Q PACKFILENAME 13Q INFILEP) (31Q BODY 25Q VERSION 17Q OUTPUT 4 INPUT) () TTYIO/FunctionCheck D1 (I 0 RESPONSE) @ @(3 FNTYP) NIL () TTYIO/GET-TXTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FL) Pg ci(6 OPENFILE) (3 INPUT) () TTYIO/GET-TXT D1 (P 3 TEM P 2 FL P 1 NC P 0 ST I 0 X F 4 RESETVARSLST) @@Xdd4H @ iddHddHnHX@Ydd@Z@djHJg o hgJhhhTcJH JhH@HIl i(252Q TERPRI 247Q COPYBYTES 226Q SETFILEPTR 176Q TTYIO/GET-TXTA0001 165Q OPENP 33Q WRITE) (204Q CLOSEF? 162Q INPUT) ( 173Q (DUMMY.FOR.ERRORSET)) TTYIO/IntegerCheck D1 (I 0 RESPONSE F 0 LOWERBOUND F 1 UPPERBOUND) K@dd>@do@jb PddP@hQdd@Qh@(40Q WRITE) NIL ( 30Q "Truncated to integer: ") TTYIO/IntegerErrorHandler D1 (F 0 LOWERBOUND F 1 UPPERBOUND F 2 RESPONSE) cRdddoIPdd!QdoPoQohPdoPooQoho (140Q WRITE) NIL ( 135Q "Please try again." 125Q "]. " 120Q " is NOT within the range [-Infinity to " 113Q " to Infinity]. " 106Q " is NOT within the range [" 64Q "]. " 57Q " .. " 52Q " is NOT within the range [" 20Q " is NOT an Integer. ") TTYIO/PRINT-TXT D1 (I 0 X F 0 DEF) @P (7 TTYIO/FILE/GET-TXT 3 OUTPUT) NIL () TTYIO/READ-TXT D1 (P 10Q STRINGSTART P 7 N P 6 FL1 P 5 TEM P 4 POS P 3 NCHARS P 2 END P 1 START P 0 X I 2 LST I 1 RDTBL I 0 FL F 11Q CLISPFLG F 12Q CLISPCHARRAY) ? Bdd@i`i@ @ _@ @A ]g2Mg+Mg$MgMgMgMgMdgigQ@ _h9OddLk_@LlY Ol@IlY @ gS@L Bg MdddigWW@ dgdgdg𲄿iM iy@ ZIٻ@Jk BgInInOIK@h (474Q LCONC 463Q INPUT 430Q SETFILEPTR 415Q GETFILEPTR 403Q STRPOSL 350Q PEEKC 305Q TCONC 275Q SETFILEPTR 262Q SKREAD 255Q SETFILEPTR 235Q SETFILEPTR 173Q GETFILEPTR 70Q RATOM 62Q GETFILEPTR 53Q POSITION 43Q RANDACCESSP) (435Q ; 370Q _ 362Q %] 354Q %) 332Q ; 302Q ; 265Q %] 164Q %" 154Q E 145Q DECLARATIONS: 137Q %. 130Q ' 121Q %] 112Q %[ 103Q %) 74Q %( 31Q TTYIO-TXT-FLG) () TTYIO/RealCheck D1 (I 0 RESPONSE F 0 LOWERBOUND F 1 UPPERBOUND) ;@dd.PddP@hQdd@Qh@ (70Q FLOAT) NIL () TTYIO/RealErrorHandler D1 (I 0 RESPONSE F 0 LOWERBOUND F 1 UPPERBOUND) o@dddoUPddd%QddoPoQoh#PddoPooQoho (154Q WRITE) NIL ( 151Q "Please try again." 141Q "]. " 134Q " is NOT within the range [-Infinity to " 127Q " to Infinity]. " 122Q " is NOT within the range [" 74Q "]. " 67Q " .. " 62Q " is NOT within the range [" 20Q " is NOT a Number. ") TTYIO/SetPrompt D1 (I 1 DEFAULT I 0 PROMPT) !@ddhAoAoho (36Q \APPEND2) NIL ( 33Q ("** ") 22Q "] ** " 15Q "[") TTYOUT D1 (P 2 I P 0 N) !eHkJdIi ai JkZ(30Q WRITEARG 22Q TERPRI) NIL () TTYOUT1 D1 (P 2 I P 0 N) eHkJdIhai JkZ(24Q WRITEARG) NIL () WRITE D1 (P 2 I P 0 N) eHkJdIa JkZ(26Q WRITEARG 21Q TERPRI) NIL () WRITE1 D1 (P 2 I P 0 N) eHkJdIha JkZ(23Q WRITEARG) NIL () WRITEARG D1 (I 1 FILE I 0 X) @dA A (14Q MAPRINT 7 PRIN1) NIL () (PRETTYCOMPRINT TTYIOCOMS) (RPAQQ TTYIOCOMS ((GLOBALVARS EOL TTYIN-COMMAND-LINE TTYIO-TXT-FLG) (VARS (TTYIN-COMMAND-LINE)) ( INITVARS (EOL (CHARACTER (CHARCODE EOL))) (TTYIO-TXT-FLG T)) (RECORDS TXTBOX) (FNS ASKFLE ASKFN ASKINT ASKITEM ASKITEMS ASKPAIR ASKRL ASKYN DISPLAYHELP TTYINC TTYIO/Ask TTYIO/ClearFromError TTYIO/ConfirmCheck TTYIO/FILE/GET-TXT TTYIO/FileCheck TTYIO/FunctionCheck TTYIO/GET-TXT TTYIO/IntegerCheck TTYIO/IntegerErrorHandler TTYIO/PRINT-TXT TTYIO/READ-TXT TTYIO/RealCheck TTYIO/RealErrorHandler TTYIO/SetPrompt TTYOUT TTYOUT1 WRITE WRITE1 WRITEARG) (P (AND (FGETD (QUOTE TTYIO/PRINT-TXT)) (ADDTOVAR PRETTYPRINTMACROS (; . TTYIO/PRINT-TXT))) (AND (FGETD (QUOTE TTYIO/READ-TXT)) (SETSYNTAX (QUOTE ;) (QUOTE (INFIX ALONE NOESC TTYIO/READ-TXT)) FILERDTBL))) ( USERMACROS GET;) (E (* * The advice to SPRINTT ensures that DISPLAYHELP is called in TTYIN.)) (ADVISE SPRINTT) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WRITE1 WRITE TTYOUT1 TTYOUT))))) (RPAQQ TTYIN-COMMAND-LINE NIL) (RPAQ? EOL (CHARACTER (CHARCODE EOL))) (RPAQ? TTYIO-TXT-FLG T) (RECORD TXTBOX (HEAD START OFFSET NCHARS FILE . REST) HEAD _ (QUOTE ;)) (AND (FGETD (QUOTE TTYIO/PRINT-TXT)) (ADDTOVAR PRETTYPRINTMACROS (; . TTYIO/PRINT-TXT))) (AND (FGETD (QUOTE TTYIO/READ-TXT)) (SETSYNTAX (QUOTE ;) (QUOTE (INFIX ALONE NOESC TTYIO/READ-TXT)) FILERDTBL)) (ADDTOVAR USERMACROS (GET; NIL (BIND (IF (NEQ (SETQ #1 (TTYIO/FILE/GET-TXT (##))) (##)) ((I : #1) 1) NIL)))) (PUTPROPS SPRINTT READVICE (NIL (AROUND NIL (PROG ((X (EVALV (CAR (ARGLIST (QUOTE SPRINTT)))))) ( RETURN (COND ((AND (LISTP X) (EQ (CAR X) (QUOTE ;))) (DISPLAYHELP X)) (T *))))))) (READVISE SPRINTT) (PUTPROPS TTYIO COPYRIGHT ("Schlumberger Technology Corporation" 1983 1984)) NIL