get.keys
 if d<1 i$="":return
 x$="":gi=0
keys1
 gosub get.key:if (gf=13) print " "chr$(8);:return
 print i$;:x$=x$+i$
keys2
 gi=99:gosub get.key
 if (gf<>8) and (gf<>127) goto keys3
 print " "chr$(8,2)"  "chr$(8,2);
 if len(x$)=1 goto get.keys
 x$=left$(x$,(len(x$)-1)):goto keys2
keys3
 if gf=13 i$=x$:gi=0:print " "chr$(8);:return
 print i$;:x$=x$+i$:if len(x$)=d i$=x$:gi=0:print " "chr$(8);:return
 goto keys2

get.key
 ww=0:wx=0
get.key1
 gf=clock(2)
 if (gf<>0) and (clock(1)>gf) print \\"[ Time Limit Exceeded ]":pop:goto term1
 if peek(-16286)>127 gosub set.time
 gf=peek(-16384):if (gf=129) or (gf=150) get i$:print chr$(8);:return
 gf=key(0):if (gf>96) and (gf<123) gf=gf-32
 if (gf>31) or (gf=13) i$=chr$(gf):return
 if gf and (gi=99) i$=chr$(gf):return
 ww=ww+1:if flag(33)=0 goto get.key2
 wx=wx+1:if wx>16 wx=1
 print mid$("!/-\!/-\!\-/!\-/",wx,1);chr$(8);
get.key2
 if ww=2000 print chr$(7,2);
 if ww=4000 pop:goto term1
 if (not info(0)) and (not info(5)) and (eu<>1) pop:goto term1
 goto get.key1