:.TXT
:Lbl TXT
:StorePic
:0→A→P→{L4}r
:Fill(L4,20
:DeltaList(47,39,31,46,38,30,22,14,45,37,29,21,13,44,36,28,20,12,43,35,27,19,11,42,34,26,18,0)→GDB0A
:GDB0A→G
:64→L
:DeltaList(33,34,26,18,35,27,19,36,28,20,0)→GDB0N
:[]→Str00
:"A"[00]
:"a"[00]
:"1"[00]
:
:While 1
:   getKey→K
:   !If -48
:      A+1→A
:      !If -3
:         →A
:      End
:      !If A
:         GDB0A→G
:         64→L
:      End
:      !If -1
:         GDB0A→G
:         96→L
:      End
:      !If -1
:         GDB0N→G
:         47→L
:      End
:   End
:   RecallPic
:   Text(73,32,A*2+Str00
:   rref(72,32,5,7
:   If K
:      !If -56
:         If P
:            -1→P+1→{P+L4}
:         End
:      End
:      If P-8
:         If inString(K,G)
:            +L→{P+L4}
:            P+1→P
:         End
:      End
:   End
:   Text(40,32,L4
:   DispGraph
:EndIf K=9 or (K=15
:
:Return