|
|
Post by Admin on Mar 31, 2018 23:04:13 GMT
VDU 23,22,1000;500;8,15,16,1
VDU 5
OFF
LET h%=100:LET v%=100:k%=0:cov%=0:t%=0
l%=0:cp%=0:REM line # and cursor position
DIM a%(100)
REPEAT
h%=100
REPEAT
k$=INKEY$(4)
GCOL 15
MOVE cp%*16+h%,v%:PRINT"_"
WAIT 15
GCOL 0:MOVE cp%*16+h%,v%:PRINT"_"
UNTIL k$<>""
IF k$<>"" THEN
IF ASC(k$)>31 AND ASC(k$)<127 AND cp%<100 THEN
a%(cp%)=ASC(k$):cp%=cp%+1
ENDIF
h%=100:v%=100:REM test
MOVE h%,v%:GCOL 0
REPEAT
IF a%(t%)>0 THEN PRINT CHR$(a%(t%)): t%+=1:h%+=16:MOVE h%,v%
UNTIL a%(t%)=0
t%=0
h%=100:v%=100:REM test
MOVE h%,v%:GCOL 15
REPEAT
IF a%(t%)>0 THEN PRINT CHR$(a%(t%)):t%+=1:h%+=16:MOVE h%,v%
UNTIL a%(t%)=0
t%=0
ENDIF
IF ASC(k$)=8 AND cp%>0 THEN
t%=cp%-1
REPEAT
a%(t%)=a%(t%+1)
t%+=1
UNTIL t%=100
t%=0
CLG
t%=0
h%=100:v%=100:REM test
MOVE h%,v%:GCOL 15
REPEAT
IF a%(t%)>0 THEN PRINT CHR$(a%(t%)):t%+=1:h%+=16:MOVE h%,v%
UNTIL a%(t%)=0
t%=0
cp%-=1
ENDIF
UNTIL FALSE
END
|
|
