B GETSTRING 18-MAR-1994 16:40DEC Fortran T6.2-444 $LINK$i$CODE$ $IODATA$$BSS$X$DATA$0J GETSTRING0J0GETSTRUPGTMODE LIB$GET_INPUTCURBCKCSOUTSTR_TRIMSTR$TRIMKEYAPPREVIMGATTOFFINCHAR DFOR$EXITCURFWDRINGBLINKESCOUTUNDSCRKEYNUM STR$UPCASE DFOR$WRITE_SEQ_LIS DFOR$HANDLER DFOR$WRITE_INT_FMTOTS$STRCMP_EQLP OTS$MOVEMOTS$FILLOTS$MOVE = =8; DFOR$EXIT=(UNRECOGNIZED KEYPAD KEYBATCHP LIB$GET_INPUT ;0;UNDSCRESCOUT= CURFWD RING ATTOFF= 8OTS$MOVE8OTS$FILLCURBCK=0;= 7 DFOR$HANDLER==0;= 7 DFOR$HANDLER=;pCSOUT8 OTS$MOVEM=INCHAR=REVIMGSTR$TRIMSTR_TRIM!KEYNUM= Invalid string variable# STR$UPCASE%GTMODE8OTS$STRCMP_EQLP@ )DFOR$WRITE_SEQ_LIS+BLINK=8p -DFOR$WRITE_INT_FMT/KEYAPP=[4h=NO CHARACTER IN BUFFER =#~^^~޴>^~޵cGG8=p,0,`"pH`A 0HGaD@}HPX%#~^^~޴>^~޵cG[ 8= p,,`"pH@ Hh`D@}HPXݰ`b`"$ B (k!`(b`"d} 1"TG@ZkGG`G0BHB" @Zk4G@} PB'HCXbC!v H`"8@`=d@Zk@}"4G C\} C B Gb\}@Zk\}?$!  `pB`=`"d4Gxb@Zk4GBb"@Zk 4G\}C%H=CB!b D% @`ݱd=`"H]h="hݱtGl]`BR"@Zk`B"`H<\= B4G@ZkGB@Zk 4GG`\}< +A+D`%``BP!B ``"dh="HR"hݱtGb`` GBE!`BGG@Zk4G4GGCpBFxbBptݱp"@Zk4GBp"pb@Zk4GB"b@ZkG|G @ B0@b"4G@ZkGp GBGb"4G@ZkGfGhE B&1@b"4G@ZkGXGBGb"4G@ZkGNGXfE$`GBGb`="d]"h}""G@ZkG`GB`="bd]"h}""@ZkJ`G`"0@I `I _E OE_E (GXnE" ` BE`GBGG@ZkBbp"pݴ4G@Zk4G GpB Cxb ,E -Ap=p"tݱ@ZkGG nE Bp"pݴ4Gb@Zk GGG mEH ` GG\@A  E@`BG@ZkGB0 @GG7A8AB(1AGG)AGTBG@ZkGB@ZkGpBCxb,G-CAp=t=p"4G@ZkGBb@Zk$ pBB!pp"xb4Gt]@ZkGBb@Zk4GB 4 Ap=bp"@ZkGH 8nE&`` G< A  E `BGG@Zk @ A+,"4G+H$D B0@bk!@Zk @?Bb0@"4G@ZkG `B G`"?&pB J!x]p}! "xb1"=`B"p}"G@ZkGBp"0B"@ZkGBG@Zk?!G<CBGGGp]"tG@ZkGB@Zk4G CpB ,Exb -Ap= Gt}p"@Zk4GBb"@ZkGG E(@BG\=B"4G@ZkGB@ZkGBb@Zk4GBp"bpݴ@Zk4GpBp"p}xbtݱ@Zk4GBpp"b@Zk G`GG E@ 8E ` 4GG |G`ED `GG `GE \ A BG6BGGBGB"4G@ZkGB@Zk`4GG# G`E" ` G\@A  E@`BGG@ZkBbp"pݴ4G@Zk4G GpB Cxb LE MAp]p"tݱ@ZkGG` E `Bp"pݴ4Gb@Zk GGSG XE@B bp"pݴ4G@Zk4G GpB Cxb ,E -Ap=p"tݱ@ZkGG: Eb` B"b4G@Zké @ B&1@bG"4G@Zk%k!4GpBB!p}p"t]xb@Zk4GB"b@ZkGxG @ +1@BGG* AB A!1@AGGGTBG@ZkGB@Zk4GB4`Abp"pݶ@ZkG4GB)1A&@GGBGB"@ZkGB@Zk4GCpB E ApxbGtݱp"@Zk4GBp"p]b =@ZkGG:G E @`!GG |`.GXE `GGG <`"G`"@B""x=G_&p}Hb"?"R"b"p"G@ZkGG !`G< `BG\=|@ZkGB@Zk4G CpB ,E -Ap=xbp"tݱ@Zk4G`Bp"b`