Code:

```
ClrDraw
AxesOff
"L1: →Str1
"L2: →Str2
"Enter→Str3
TextColor(23
Text(15,0,Str1
Text(75,0,Str2
Text(115,0,Str3
1→L
Ans→A
Lbl 1
While L=1
TextColor(12
Text(15,0,Str1
Repeat max(getKey={45,105,102,92,93,94,82,83,84,72,73,74,103,104,34
getKey→K
If max(K={45,105,102,92,93,94,82,83,84,72,73,74,103,104,34
Then
If K=102:Str1+"0→Str1
If K=92:Str1+"1→Str1
If K=93:Str1+"2→Str1
If K=94:Str1+"3→Str1
If K=82:Str1+"4→Str1
If K=83:Str1+"5→Str1
If K=84:Str1+"6→Str1
If K=72:Str1+"7→Str1
If K=73:Str1+"8→Str1
If K=74:Str1+"9→Str1
If K=103:Str1+".→Str1
If K=104:Str1+"-→Str1
If K=45:Then:"L1: →Str1:Text(15,0,Str1
If max(K={105,34:2→L
End:End
TextColor(23
End
Lbl 2
While L=2
TextColor(12
Text(75,0,Str2
Repeat max(getKey={45,105,102,92,93,94,82,83,84,72,73,74,103,104,34
getKey→K
If max(K={45,105,102,92,93,94,82,83,84,72,73,74,103,104,25,34
Then
If K=102:Str2+"0→Str2
If K=92:Str2+"1→Str2
If K=93:Str2+"2→Str2
If K=94:Str2+"3→Str2
If K=82:Str2+"4→Str2
If K=83:Str2+"5→Str2
If K=84:Str2+"6→Str2
If K=72:Str2+"7→Str2
If K=73:Str2+"8→Str2
If K=74:Str2+"9→Str2
If K=103:Str2+".→Str2
If K=104:Str2+"-→Str2
If K=45:Then:"L2: →Str2:Text(75,0,Str2
If max(K={105,34:3→L
If K=25:1→L
End:End
TextColor(23
End
If L=1:Goto 1
While L=3
TextColor(12
Text(115,0,Str3
Repeat max(getKey={45,105,102,92,93,94,82,83,84,72,73,74,103,104,34
getKey→K
If max(K={105,25
Then
If K=105:4→L
If K=25:2→L
End:End
TextColor(23
End
If L=2:Goto 2
Pause
```

The goal in this program is to allow a user to input text, see the text entered in real time, and chose where the text is entered. The program also changes the text color to indicate which line is being modified. I ran the program, it stops at the first If statement, and then quits without error after any keypress specified in the Repeat loop. Variable L stays at one, K at zero. The first text changed color to black, the others are grey. Variable A will be used later, it does not have any use yet though.

Thanks in advance!