1.             （键盘）弹起 s 键
  2.             延时 50 毫秒
  3.             令 i = i + 1
  4.         循环结束
  5.     条件结束
  6.     令 TypeString = str
  7. 子程序结束
  8. 函数 atos(a)
  9.     如果 a = "1" 则
  10.         令 atos = "Num 1"
  11.     条件结束
  12.     如果 a = "2" 则
  13.         令 atos = "Num 2"
  14.     条件结束
  15.     如果 a = "3" 则
  16.         令 atos = "Num 3"
  17.     条件结束
  18.     如果 a = "4" 则
  19.         令 atos = "Num 4"
  20.     条件结束
  21.     如果 a = "5" 则
  22.         令 atos = "Num 5"
  23.     条件结束
  24.     如果 a = "6" 则
  25.         令 atos = "Num 6"
  26.     条件结束
  27.     如果 a = "7" 则
  28.         令 atos = "Num 7"
  29.     条件结束
  30.     如果 a = "8" 则
  31.         令 atos = "Num 8"
  32.     条件结束
  33.     如果 a = "9" 则
  34.         令 atos = "Num 9"
  35.     条件结束
  36.     如果 a = "0" 则
  37.         令 atos = "Num 0"
  38.     条件结束
  39.     如果 a = "a" 则
  40.         令 atos = "A"
  41.     条件结束
  42.     如果 a = "b" 则
  43.         令 atos = "B"
  44.     条件结束
  45.     如果 a = "c" 则
  46.         令 atos = "C"
  47.     条件结束
  48.     如果 a = "d" 则
  49.         令 atos = "D"
  50.     条件结束
  51.     如果 a = "e" 则
  52.         令 atos = "E"
  53.     条件结束
  54.     如果 a = "f" 则
  55.         令 atos = "F"
  56.     条件结束
  57.     如果 a = "g" 则
  58.         令 atos = "G"
  59.     条件结束
  60.     如果 a = "h" 则
  61.         令 atos = "H"
  62.     条件结束
  63.     如果 a = "i" 则
  64.         令 atos = "I"
  65.     条件结束
  66.     如果 a = "j" 则
  67.         令 atos = "J"
  68.     条件结束
  69.     如果 a = "k" 则
  70.         令 atos = "K"
  71.     条件结束
  72.     如果 a = "l" 则
  73.         令 atos = "L"
  74.     条件结束
  75.     如果 a = "m" 则
  76.         令 atos = "M"
  77.     条件结束
  78.     如果 a = "n" 则
  79.         令 atos = "N"
  80.     条件结束
  81.     如果 a = "o" 则
  82.         令 atos = "O"
  83.     条件结束
  84.     如果 a = "p" 则
  85.         令 atos = "P"
  86.     条件结束
  87.     如果 a = "q" 则
  88.         令 atos = "Q"
  89.     条件结束
  90.     如果 a = "r" 则
  91.         令 atos = "R"
  92.     条件结束
  93.     如果 a = "s" 则
  94.         令 atos = "S"
  95.     条件结束
  96.     如果 a = "t" 则
  97.         令 atos = "T"
  98.     条件结束
  99.     如果 a = "u" 则
  100.         令 atos = "U"