home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 51 / SCRPAINT / SCRPAINT.ZIP / POPUP / POPUP.TXT < prev    next >
Encoding:
Text File  |  1989-10-27  |  1.4 KB  |  87 lines
  1. :m
  2.   savescreen
  3.   hilite 15,6,10,6,24
  4.   repeat vertically 5,0
  5.   choice 1 do m1
  6.   choice 2 do m2
  7.   choice 3 do m3
  8.   choice 4 do m4
  9.   choice 5 do m5
  10.   choice 6,27 goto exit
  11.   display m.blk
  12.  
  13. :m1
  14.   hilite 15,10,14,10,28
  15.   repeat vertically 3,0
  16.   choice 27 return
  17.   display m1.blk
  18.  
  19. :m2
  20.   hilite 15,10,14,10,28
  21.   repeat vertically 3,0
  22.   choice 27 return
  23.   display m2.blk
  24.  
  25. :m3
  26.   hilite 15,10,14,10,28
  27.   repeat vertically 2,0
  28.   choice 27 return
  29.   display m3.blk
  30.  
  31. :m4
  32.   hilite 15,10,14,10,28
  33.   repeat vertically 5,0
  34.   choice 27 return
  35.   display m4.blk
  36.  
  37. :m5
  38.   hilite 15,10,14,10,28
  39.   repeat vertically 5,0
  40.   choice 1 do m51
  41.   choice 2 do m52
  42.   choice 3 do m53
  43.   choice 4 do m54
  44.   choice 5 do m55
  45.   choice 6 do m56
  46.   choice 27 return
  47.   display m5.blk
  48.  
  49. :m51
  50.   hilite 15,12,18,12,32
  51.   repeat vertically 4,0
  52.   choice 27 return
  53.   display m51.blk
  54.  
  55. :m52
  56.   hilite 15,12,18,12,32
  57.   repeat vertically 4,0
  58.   choice 27 return
  59.   display m52.blk
  60.  
  61. :m53
  62.   hilite 15,12,18,12,32
  63.   repeat vertically 6,0
  64.   choice 27 return
  65.   display m53.blk
  66.  
  67. :m54
  68.   hilite 15,12,18,12,32
  69.   repeat vertically 4,0
  70.   choice 27 return
  71.   display m54.blk
  72.  
  73. :m55
  74.   hilite 15,12,18,12,32
  75.   repeat vertically 1,0
  76.   choice 27 return
  77.   display m55.blk
  78.  
  79. :m56
  80.   hilite 15,12,18,12,32
  81.   repeat vertically 3,0
  82.   choice 27 return
  83.   display m56.blk
  84.  
  85. :exit
  86.   popscreen
  87.