home *** CD-ROM | disk | FTP | other *** search
- :m
- savescreen
- hilite 15,6,10,6,24
- repeat vertically 5,0
- choice 1 do m1
- choice 2 do m2
- choice 3 do m3
- choice 4 do m4
- choice 5 do m5
- choice 6,27 goto exit
- display m.blk
-
- :m1
- hilite 15,10,14,10,28
- repeat vertically 3,0
- choice 27 return
- display m1.blk
-
- :m2
- hilite 15,10,14,10,28
- repeat vertically 3,0
- choice 27 return
- display m2.blk
-
- :m3
- hilite 15,10,14,10,28
- repeat vertically 2,0
- choice 27 return
- display m3.blk
-
- :m4
- hilite 15,10,14,10,28
- repeat vertically 5,0
- choice 27 return
- display m4.blk
-
- :m5
- hilite 15,10,14,10,28
- repeat vertically 5,0
- choice 1 do m51
- choice 2 do m52
- choice 3 do m53
- choice 4 do m54
- choice 5 do m55
- choice 6 do m56
- choice 27 return
- display m5.blk
-
- :m51
- hilite 15,12,18,12,32
- repeat vertically 4,0
- choice 27 return
- display m51.blk
-
- :m52
- hilite 15,12,18,12,32
- repeat vertically 4,0
- choice 27 return
- display m52.blk
-
- :m53
- hilite 15,12,18,12,32
- repeat vertically 6,0
- choice 27 return
- display m53.blk
-
- :m54
- hilite 15,12,18,12,32
- repeat vertically 4,0
- choice 27 return
- display m54.blk
-
- :m55
- hilite 15,12,18,12,32
- repeat vertically 1,0
- choice 27 return
- display m55.blk
-
- :m56
- hilite 15,12,18,12,32
- repeat vertically 3,0
- choice 27 return
- display m56.blk
-
- :exit
- popscreen