10
20
30 :
40 PRINT"Move text position with"'" Y L=CLS T=TAB"'" G H SPC=HOME"'" B RET=CR"
50 REPEAT
60 T$="("+STR$POS+","+STR$VPOS+")"
70 PRINT T$;STRING$(LEN T$,CHR$8);
80 REPEAT A$=GET$:A%=INSTR(CHR$13+" LlTtGgHhBbYy",A$):UNTIL A%
90 PRINT SPC(LEN T$);STRING$(LEN T$,CHR$8);
100 IF A%=1:PRINT CHR$13;
110 IF A%=2:PRINT CHR$30;
120 IF A%=3 OR A%=4:CLS
130 IF A%=5 OR A%=6:INPUT '"New X: "X%:INPUT "New Y: "Y%:VDU 31,X%,Y%
140 IF A%>6:VDU (A%-7)DIV2+8
150 UNTIL FALSE