Source Code
10 LET B$=""
20 PRINT AT 0,0;"\ ."
100 LET A$=INKEY$
110 IF A$="" THEN GOTO 100
120 GOTO 1000
\n1000 IF CODE A$=114 AND LEN B$=0 THEN GOTO 1110
\n1010 IF CODE A$=114 THEN GOTO 1200
\n1020 IF CODE A$=115 THEN GOTO 1300
\n1030 IF CODE A$=113 AND LEN B$>672 THEN GOTO 1110
\n1040 IF CODE A$=113 THEN GOTO 1400
\n1050 IF CODE A$=112 AND LEN B$<32 THEN GOTO 1110
\n1060 IF CODE A$=112 THEN GOTO 1500
\n1100 LET B$=B$+A$
\n1110 PRINT AT 0,0;B$;"\ . "
\n1120 GOTO 100
\n1200 LET B$=B$( TO LEN B$-1)+" "
\n1210 PRINT AT 0,0;B$
\n1220 LET B$=B$( TO LEN B$-1)
\n1230 GOTO 1110
\n1300 LET B$=B$+" "
\n1310 GOTO 1110
\n1400 LET B$=B$+" "
\n1410 GOTO 1110
\n1500 LET B$=B$+" "
\n1510 PRINT AT 0,0;B$+" "
\n1520 LET B$=B$( TO LEN B$-33)
\n1530 GOTO 1110
