home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #9
/
Commodore_Disk_User_Vol.3_9_1990_-.d64
/
.linput.40000
< prev
next >
Wrap
Text File
|
2022-10-26
|
594b
|
23 lines
40000 rem" Input in$, lenth nin. Return cky last key hit. (C) A.Millett.
40020 in$=""
40040 abrt=3 :rem" Code for Abort key
40060 print" ";
40080 get b$:if b$="" then 40080
40100 cky=asc(b$)
40120 if cky=34 then 40080
40140 if (cky and 127) >31 then 40240 :rem" Not a CTRL code..
40160 if cky=20 and in$>"" then in$=left$(in$,len(in$)-1):print" ";:goto 40060
40180 if cky=abrt then in$=""
40200 if cky=13 or cky=abrt then print" ":return
40220 goto 40080 :rem" Ignore other CTRL codes..
40240 if len(in$)=nin then 40080
40260 in$=in$+b$
40280 print b$;
40300 goto 40060
40320 :
ready.