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 >
Text File  |  2022-10-26  |  594b  |  23 lines
  1.  
  2.  
  3. 40000 rem" Input in$, lenth nin. Return cky last key hit. (C) A.Millett.
  4. 40020 in$=""
  5. 40040 abrt=3 :rem" Code for Abort key
  6. 40060 print" ";
  7. 40080 get b$:if b$="" then 40080
  8. 40100 cky=asc(b$)
  9. 40120 if cky=34 then 40080
  10. 40140 if (cky and 127) >31 then 40240 :rem" Not a CTRL code..
  11. 40160 if cky=20 and in$>"" then in$=left$(in$,len(in$)-1):print" ";:goto 40060
  12. 40180 if cky=abrt then in$=""
  13. 40200 if cky=13 or cky=abrt then print" ":return
  14. 40220 goto 40080 :rem" Ignore other CTRL codes..
  15. 40240 if len(in$)=nin then 40080
  16. 40260 in$=in$+b$
  17. 40280 print b$;
  18. 40300 goto 40060
  19. 40320 :
  20.  
  21. ready.
  22.  
  23.