'PUT
'By Daniël Haazen
'
If C≤20
Then If C≤10
Then If C≤5
Then C=0⇒Locate A,B," "
C=1⇒Locate A,B,"A"
C=2⇒Locate A,B,"B"
C=3⇒Locate A,B,"C"
C=4⇒Locate A,B,"D"
C=5⇒Locate A,B,"E"
Else C=6⇒Locate A,B,"F"
C=7⇒Locate A,B,"G"
C=8⇒Locate A,B,"H"
C=9⇒Locate A,B,"I"
C=10⇒Locate A,B,"J"
IfEnd
Else If C≤15
Then C=11⇒Locate A,B,"K"
C=12⇒Locate A,B,"L"
C=13⇒Locate A,B,"M"
C=14⇒Locate A,B,"N"
C=15⇒Locate A,B,"O"
Else C=16⇒Locate A,B,"P"
C=17⇒Locate A,B,"Q"
C=18⇒Locate A,B,"R"
C=19⇒Locate A,B,"S"
C=20⇒Locate A,B,"T"
IfEnd
IfEnd
Else If C≤30
Then if C≤25
Then C=21⇒Locate A,B,"U"
C=22⇒Locate A,B,"V"
C=23⇒Locate A,B,"W"
C=24⇒Locate A,B,"X"
C=25⇒Locate A,B,"Y"
Else Then C=26⇒Locate A,B,"Z"
C=27⇒Locate A,B,"0"
C=28⇒Locate A,B,"1"
C=29⇒Locate A,B,"2"
C=30⇒Locate A,B,"3"
IfEnd
Else If C≤35
Then C=31⇒Locate A,B,"4"
C=32⇒Locate A,B,"5"
C=33⇒Locate A,B,"6"
C=34⇒Locate A,B,"7"
Else C=35⇒Locate A,B,"8"
C=36⇒Locate A,B,"9"
C=37⇒Locate A,B,"."
C=38⇒Locate A,B,","
C=39⇒Locate A,B,"/"
C=40⇒Locate A,B,"+"
IfEnd
IfEnd
Return