1.             (VBScript语句) XX2(o)=0:YY2(o)=0
  2.             o=o+1
  3.         循环结束
  4.     条件结束
  5. 子程序结束,回到调用处
  6. //以下是26个大写字母和10个阿拉伯数字的坐标集
  7. 子程序 A
  8.     dim XX(350),YY(350)
  9.     (VBScript语句) XX(1)=463:YY(1)=244
  10.     (VBScript语句) XX(2)=461:YY(2)=245
  11.     (VBScript语句) XX(3)=462:YY(3)=245
  12.     (VBScript语句) XX(4)=463:YY(4)=245
  13.     (VBScript语句) XX(5)=464:YY(5)=245
  14.     (VBScript语句) XX(6)=461:YY(6)=246
  15.     (VBScript语句) XX(7)=462:YY(7)=246
  16.     (VBScript语句) XX(8)=463:YY(8)=246
  17.     (VBScript语句) XX(9)=464:YY(9)=246
  18.     (VBScript语句) XX(10)=461:YY(10)=247
  19.     (VBScript语句) XX(11)=462:YY(11)=247
  20.     (VBScript语句) XX(12)=463:YY(12)=247
  21.     (VBScript语句) XX(13)=464:YY(13)=247
  22.     (VBScript语句) XX(14)=461:YY(14)=248
  23.     (VBScript语句) XX(15)=462:YY(15)=248
  24.     (VBScript语句) XX(16)=463:YY(16)=248
  25.     (VBScript语句) XX(17)=464:YY(17)=248
  26.     (VBScript语句) XX(18)=465:YY(18)=248
  27.     (VBScript语句) XX(19)=460:YY(19)=249
  28.     (VBScript语句) XX(20)=461:YY(20)=249
  29.     (VBScript语句) XX(21)=462:YY(21)=249
  30.     (VBScript语句) XX(22)=463:YY(22)=249
  31.     (VBScript语句) XX(23)=464:YY(23)=249
  32.     (VBScript语句) XX(24)=465:YY(24)=249
  33.     (VBScript语句) XX(25)=460:YY(25)=250
  34.     (VBScript语句) XX(26)=461:YY(26)=250
  35.     (VBScript语句) XX(27)=462:YY(27)=250
  36.     (VBScript语句) XX(28)=463:YY(28)=250
  37.     (VBScript语句) XX(29)=464:YY(29)=250
  38.     (VBScript语句) XX(30)=465:YY(30)=250
  39.     (VBScript语句) XX(31)=460:YY(31)=251
  40.     (VBScript语句) XX(32)=461:YY(32)=251
  41.     (VBScript语句) XX(33)=463:YY(33)=251
  42.     (VBScript语句) XX(34)=464:YY(34)=251
  43.     (VBScript语句) XX(35)=465:YY(35)=251
  44.     (VBScript语句) XX(36)=460:YY(36)=252
  45.     (VBScript语句) XX(37)=461:YY(37)=252
  46.     (VBScript语句) XX(38)=464:YY(38)=252
  47.     (VBScript语句) XX(39)=465:YY(39)=252
  48.     (VBScript语句) XX(40)=466:YY(40)=252
  49.     (VBScript语句) XX(41)=459:YY(41)=253
  50.     (VBScript语句) XX(42)=460:YY(42)=253
  51.     (VBScript语句) XX(43)=461:YY(43)=253
  52.     (VBScript语句) XX(44)=464:YY(44)=253
  53.     (VBScript语句) XX(45)=465:YY(45)=253
  54.     (VBScript语句) XX(46)=466:YY(46)=253
  55.     (VBScript语句) XX(47)=459:YY(47)=254
  56.     (VBScript语句) XX(48)=460:YY(48)=254
  57.     (VBScript语句) XX(49)=464:YY(49)=254
  58.     (VBScript语句) XX(50)=465:YY(50)=254
  59.     (VBScript语句) XX(51)=466:YY(51)=254
  60.     (VBScript语句) XX(52)=459:YY(52)=255
  61.     (VBScript语句) XX(53)=460:YY(53)=255
  62.     (VBScript语句) XX(54)=464:YY(54)=255
  63.     (VBScript语句) XX(55)=465:YY(55)=255
  64.     (VBScript语句) XX(56)=466:YY(56)=255
  65.     (VBScript语句) XX(57)=459:YY(57)=256
  66.     (VBScript语句) XX(58)=460:YY(58)=256
  67.     (VBScript语句) XX(59)=465:YY(59)=256
  68.     (VBScript语句) XX(60)=466:YY(60)=256
  69.     (VBScript语句) XX(61)=458:YY(61)=257
  70.     (VBScript语句) XX(62)=459:YY(62)=257
  71.     (VBScript语句) XX(63)=465:YY(63)=257
  72.     (VBScript语句) XX(64)=466:YY(64)=257
  73.     (VBScript语句) XX(65)=467:YY(65)=257
  74.     (VBScript语句) XX(66)=458:YY(66)=258
  75.     (VBScript语句) XX(67)=459:YY(67)=258
  76.     (VBScript语句) XX(68)=465:YY(68)=258
  77.     (VBScript语句) XX(69)=466:YY(69)=258
  78.     (VBScript语句) XX(70)=467:YY(70)=258
  79.     (VBScript语句) XX(71)=458:YY(71)=259
  80.     (VBScript语句) XX(72)=459:YY(72)=259
  81.     (VBScript语句) XX(73)=465:YY(73)=259
  82.     (VBScript语句) XX(74)=466:YY(74)=259
  83.     (VBScript语句) XX(75)=467:YY(75)=259
  84.     (VBScript语句) XX(76)=458:YY(76)=260
  85.     (VBScript语句) XX(77)=459:YY(77)=260
  86.     (VBScript语句) XX(78)=465:YY(78)=260
  87.     (VBScript语句) XX(79)=466:YY(79)=260
  88.     (VBScript语句) XX(80)=467:YY(80)=260
  89.     (VBScript语句) XX(81)=457:YY(81)=261
  90.     (VBScript语句) XX(82)=458:YY(82)=261
  91.     (VBScript语句) XX(83)=466:YY(83)=261
  92.     (VBScript语句) XX(84)=467:YY(84)=261
  93.     (VBScript语句) XX(85)=468:YY(85)=261
  94.     (VBScript语句) XX(86)=457:YY(86)=262
  95.     (VBScript语句) XX(87)=458:YY(87)=262
  96.     (VBScript语句) XX(88)=466:YY(88)=262
  97.     (VBScript语句) XX(89)=467:YY(89)=262
  98.     (VBScript语句) XX(90)=468:YY(90)=262
  99.     (VBScript语句) XX(91)=457:YY(91)=263
  100.     (VBScript语句) XX(92)=458:YY(92)=263