home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 February / 64er_Magazin_92-02_1992_Markt__Technik_de_Side_A.d64 / uni-input (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  359 b   |  20 lines
  1. 10000 poke214,y
  2. 10010 poke211,x - len(te$) - 1
  3. 10020 sys 58732
  4. 10030 print te$;" ";
  5. 10035 p=0
  6. 10040 poke204,0
  7. 10041 poke198,0:wait198,1
  8. 10050 getx$
  9. 10051 poke207,0:poke204,1:print" [157]";
  10. 10060 ifp>0andasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto10040
  11. 10070 ifasc(x$)=13then 10150
  12. 10080 ifp=le then10040
  13. 10090 ifbs=0and(x$<"0"orx$>"9")then10040
  14. 10100 if bs=1and(x$<" "or(x$>chr$(127)andx$<chr$(160)))then10040
  15. 10110 printx$;
  16. 10120 i$=i$+x$
  17. 10130 p=p+1
  18. 10140 goto10040
  19. 10150 return
  20.