|
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
|
|