1.     条件结束
  2.     如果表达式 (M(ii)=24) 为真,则
  3.         调用子程序 X
  4.     条件结束
  5.     如果表达式 (M(ii)=25) 为真,则
  6.         调用子程序 Y
  7.     条件结束
  8.     如果表达式 (M(ii)=26) 为真,则
  9.         调用子程序 Z
  10.     条件结束
  11.     如果表达式 (M(ii)=27) 为真,则
  12.         调用子程序 0
  13.     条件结束
  14.     如果表达式 (M(ii)=28) 为真,则
  15.         调用子程序 1
  16.     条件结束
  17.     如果表达式 (M(ii)=29) 为真,则
  18.         调用子程序 2
  19.     条件结束
  20.     如果表达式 (M(ii)=30) 为真,则
  21.         调用子程序 3
  22.     条件结束
  23.     如果表达式 (M(ii)=31) 为真,则
  24.         调用子程序 4
  25.     条件结束
  26.     如果表达式 (M(ii)=32) 为真,则
  27.         调用子程序 5
  28.     条件结束
  29.     如果表达式 (M(ii)=33) 为真,则
  30.         调用子程序 6
  31.     条件结束
  32.     如果表达式 (M(ii)=34) 为真,则
  33.         调用子程序 7
  34.     条件结束
  35.     如果表达式 (M(ii)=35) 为真,则
  36.         调用子程序 8
  37.     条件结束
  38.     如果表达式 (M(ii)=36) 为真,则
  39.         调用子程序 9
  40.     条件结束
  41.     延时50毫秒
  42.     （VBScript语句） ii=ii+1
  43. 循环结束
  44. （VBScript语句） ii=1
  45. //字符新坐标平移
  46. （VBScript语句） t1=rnd:t2=rnd:t3=rnd:t4=rnd:t5=rnd:t6=rnd:t7=rnd:t8=rnd:t9=rnd:z1=rnd:z2=rnd:z3=rnd
  47. 循环 350 遍
  48.     （VBScript语句） TTx1(i)=Tx1(i)-(t1+6)*25:TTy1(i)=Ty1(i)+(1-t2)*25
  49.     i=i+1
  50. 循环结束
  51. （VBScript语句） i=1
  52. 循环 350 遍
  53.     （VBScript语句） TTx2(i)=Tx2(i)-(t3+5)*25:TTy2(i)=Ty2(i)+(1-t4)*25
  54.     i=i+1
  55. 循环结束
  56. （VBScript语句） i=1
  57. 循环 350 遍
  58.     （VBScript语句） TTx3(i)=Tx3(i)-(t5+4)*25:TTy3(i)=Ty3(i)+(1-t6)*25
  59.     i=i+1
  60. 循环结束
  61. （VBScript语句） i=1
  62. 循环 350 遍
  63.     （VBScript语句） TTx4(i)=Tx4(i)-(t7+3)*25:TTy4(i)=Ty4(i)+(1-t8)*25
  64.     i=i+1
  65. 循环结束
  66. （VBScript语句） i=1
  67. 循环 350 遍
  68.     （VBScript语句） TTx5(i)=Tx5(i)-(t9+2)*25:TTy5(i)=Ty5(i)+(1-z1)*25
  69.     i=i+1
  70. 循环结束
  71. （VBScript语句） i=1
  72. 循环 350 遍
  73.     （VBScript语句） TTx6(i)=Tx6(i)-(z2+1)*25:TTy6(i)=Ty6(i)+(1-z3)*25
  74.     i=i+1
  75. 循环结束
  76. （VBScript语句） i=1
  77. //移到新坐标并点击，开始画图
  78. 循环 350 遍
  79.     如果表达式 (TTx1(i)>0 and TTy1(i)>0) 为真,则
  80.         鼠标移到 TTx1(i) , TTy1(i)
  81.         延时10毫秒
  82.         左键单击
  83.     条件结束
  84.     i=i+1
  85. 循环结束
  86. （VBScript语句） i=1
  87. 循环 350 遍
  88.     如果表达式 (TTx2(i)>0 and TTy2(i)>0) 为真,则
  89.         鼠标移到 TTx2(i) , TTy2(i)
  90.         延时10毫秒
  91.         左键单击
  92.     条件结束
  93.     i=i+1
  94. 循环结束
  95. （VBScript语句） i=1
  96. 循环 350 遍
  97.     如果表达式 (TTx3(i)>0 and TTy3(i)>0) 为真,则
  98.         鼠标移到 TTx3(i) , TTy3(i)
  99.         延时10毫秒
  100.         左键单击