1.         跳转到标记 主程序
  2.     条件结束
  3.     注释:按键
  4.     令 key = (键盘)检测上次按键
  5.     如果 key = 189 则
  6.         令 max = max - 1
  7.         令 key = - 1
  8.     否则如果 key = 187 则
  9.         令 max = max + 1
  10.         令 key = - 1
  11.     否则如果 key = 109 则
  12.         令 speed = speed - 1
  13.         令 key = - 1
  14.     否则如果 key = 107 则
  15.         令 speed = speed + 1
  16.         令 key = - 1
  17.     否则如果 key = 116 则
  18.         如果 off = 1 则
  19.             令 off = 0
  20.         否则如果 off = 0 则
  21.             令 off = 1
  22.         条件结束
  23.         令 key = - 1
  24.     否则如果 key = 117 则
  25.         令 key = - 1
  26.     条件结束
  27.     注释:屏显
  28.     如果 off = 1 则
  29.         令 n = "跳舞次数" & sum & "最大次数" & max & "空格延迟" & (speed - 65) & "自动关机开启"
  30.     否则
  31.         令 n = "跳舞次数" & sum & "最大次数" & max & "空格延迟" & (speed - 65) & "____________"
  32.     条件结束
  33.     调用 Msg.ShowScrTXT(10,10,500,500,n,"ffff00")
  34.     注释:循环++
  35.     令 x = x + 63
  36. 循环结束
  37. 跳转到标记 跳舞