:Disp "Type Your Name:"
:Output(0,5)
:"WRMH"→GDB5
:det(3)
:"VQLG"
:det(3)
:"ZUPKFC"
:det(1)
:" YTOJEB"
:det(2)
:"XSNIDA"
:" "→GDB9
:
:Repeat B=54 and (A≠0
:getKey→B
:If B=56 and (A≠0
:A-1→A
:Output(A,5,' '►Frac)
:Output(A,5)
:End
:If B=15
:0→A
:Output(0,5,GDB9)
:Output(0,5)
:End
:If A<16
:If B>10 and (B<48)
:If {B+GDB5-11}→C
:Disp C►Frac
:C→{A+L1}
:A+1→A
:End
:End
:End
:End
:While A<19
:0→{A+L1}
:A+1→A
:End