home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 51 / SCRPAINT / SCRPAINT.ZIP / BUTTON / BUTTON.TXT < prev    next >
Encoding:
Text File  |  1989-11-03  |  3.5 KB  |  215 lines

  1. :h
  2.   nokey
  3.   display button.scr
  4.   savescreen
  5.   goto h1
  6.  
  7. :h1
  8.   popscreen
  9.   savescreen
  10.   hilite 15,4,6,4,26
  11.   choice @d goto h2
  12.   choice @r goto h8
  13.   choice 27 goto exit
  14.   display noscreen
  15.  
  16. :h2
  17.   popscreen
  18.   savescreen
  19.   hilite 15,7,6,7,26
  20.   choice @d goto h3
  21.   choice @r goto h9
  22.   choice @u goto h1
  23.   choice 27 goto exit
  24.   display noscreen
  25.  
  26. :h3
  27.   popscreen
  28.   savescreen
  29.   hilite 15,10,6,10,26
  30.   choice @d goto h4
  31.   choice @r goto h10
  32.   choice @u goto h2
  33.   choice 27 goto exit
  34.   display noscreen
  35.  
  36. :h4
  37.   popscreen
  38.   savescreen
  39.   hilite 15,13,4,13,14
  40.   choice @u goto h3
  41.   choice @d goto h6
  42.   choice @r goto h5
  43.   choice 27 goto exit
  44.   display noscreen
  45.  
  46. :h5
  47.   popscreen
  48.   savescreen
  49.   hilite 15,13,20,13,30
  50.   choice @u goto h3
  51.   choice @d goto h7
  52.   choice @r goto h11
  53.   choice @l goto h4
  54.   choice 27 goto exit
  55.   display noscreen
  56.  
  57. :h6
  58.   popscreen
  59.   savescreen
  60.   hilite 15,16,4,16,14
  61.   choice @u goto h4
  62.   choice @r goto h7
  63.   choice 27 goto exit
  64.   display noscreen
  65.  
  66. :h7
  67.   popscreen
  68.   savescreen
  69.   hilite 15,16,20,16,30
  70.   choice @u goto h5
  71.   choice @r goto h12
  72.   choice @l goto h6
  73.   choice 27 goto exit
  74.   display noscreen
  75.  
  76. :h8
  77.   popscreen
  78.   savescreen
  79.   hilite 254,4,41,4,50
  80.   choice @l goto h1
  81.   choice @d goto h9
  82.   choice @r goto h14
  83.   choice 27 goto exit
  84.   display noscreen
  85.  
  86. :h9
  87.   popscreen
  88.   savescreen
  89.   hilite 254,7,41,7,50
  90.   choice @l goto h2
  91.   choice @d goto h10
  92.   choice @u goto h8
  93.   choice @r goto h15
  94.   choice 27 goto exit
  95.   display noscreen
  96.  
  97. :h10
  98.   popscreen
  99.   savescreen
  100.   hilite 254,10,41,10,50
  101.   choice @l goto h3
  102.   choice @d goto h11
  103.   choice @u goto h9
  104.   choice @r goto h16
  105.   choice 27 goto exit
  106.   display noscreen
  107.  
  108. :h11
  109.   popscreen
  110.   savescreen
  111.   hilite 254,13,41,13,50
  112.   choice @l goto h5
  113.   choice @d goto h12
  114.   choice @u goto h10
  115.   choice @r goto h17
  116.   choice 27 goto exit
  117.   display noscreen
  118.  
  119. :h12
  120.   popscreen
  121.   savescreen
  122.   hilite 254,16,41,16,50
  123.   choice @l goto h7
  124.   choice @d goto h13
  125.   choice @u goto h11
  126.   choice @r goto h18
  127.   choice 27 goto exit
  128.   display noscreen
  129.  
  130. :h13
  131.   popscreen
  132.   savescreen
  133.   hilite 254,19,41,19,50
  134.   choice @l goto h7
  135.   choice @u goto h12
  136.   choice @r goto h19
  137.   choice 27 goto exit
  138.   display noscreen
  139.  
  140. :h14
  141.   popscreen
  142.   savescreen
  143.   hilite 0,4,55,4,64
  144.   choice @l goto h8
  145.   choice @d goto h15
  146.   choice @r goto exit_button
  147.   choice 27 goto exit
  148.   display noscreen
  149.  
  150. :h15
  151.   popscreen
  152.   savescreen
  153.   hilite 0,7,55,7,64
  154.   choice @l goto h9
  155.   choice @d goto h16
  156.   choice @u goto h14
  157.   choice @r goto exit_button
  158.   choice 27 goto exit
  159.   display noscreen
  160.  
  161. :h16
  162.   popscreen
  163.   savescreen
  164.   hilite 0,10,55,10,64
  165.   choice @l goto h10
  166.   choice @d goto h17
  167.   choice @u goto h15
  168.   choice @r goto exit_button
  169.   choice 27 goto exit
  170.   display noscreen
  171.  
  172. :h17
  173.   popscreen
  174.   savescreen
  175.   hilite 0,13,55,13,64
  176.   choice @l goto h11
  177.   choice @d goto h18
  178.   choice @u goto h16
  179.   choice @r goto exit_button
  180.   choice 27 goto exit
  181.   display noscreen
  182.  
  183. :h18
  184.   popscreen
  185.   savescreen
  186.   hilite 0,16,55,16,64
  187.   choice @l goto h12
  188.   choice @d goto h19
  189.   choice @u goto h17
  190.   choice @r goto exit_button
  191.   choice 27 goto exit
  192.   display noscreen
  193.  
  194. :h19
  195.   popscreen
  196.   savescreen
  197.   hilite 0,19,55,19,64
  198.   choice @l goto h13
  199.   choice @u goto h18
  200.   choice @r,@d goto exit_button
  201.   choice 27 goto exit
  202.   display noscreen
  203.  
  204. :exit_button
  205.   popscreen
  206.   savescreen
  207.   hilite 0,22,70,22,75
  208.   choice @l goto h19
  209.   choice @u goto h19
  210.   choice 1,27 goto exit
  211.   display noscreen
  212.  
  213. :exit
  214.   dos cls
  215.