home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9202a.d64
/
uni-input
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
359b
|
20 lines
10000 POKE214,Y
10010 POKE211,X - LEN(TE$) - 1
10020 SYS 58732
10030 PRINT TE$;" ";
10035 P=0
10040 POKE204,0
10041 POKE198,0:WAIT198,1
10050 GETX$
10051 POKE207,0:POKE204,1:PRINT" [157]";
10060 IFP>0ANDASC(X$)=20THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [157]";:P=P-1:GOTO10040
10070 IFASC(X$)=13THEN 10150
10080 IFP=LE THEN10040
10090 IFBS=0AND(X$<"0"ORX$>"9")THEN10040
10100 IF BS=1AND(X$<" "OR(X$>CHR$(127)ANDX$<CHR$(160)))THEN10040
10110 PRINTX$;
10120 I$=I$+X$
10130 P=P+1
10140 GOTO10040
10150 RETURN