home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9202a.d64 / uni-input (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  359b  |  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.