home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 June / APC561.ISO / workshop / other / mac / menu.bas < prev    next >
Encoding:
BASIC Source File  |  2000-03-21  |  559 b   |  25 lines
  1. 10 cls
  2. 20 finished = 0
  3. 30 x = rnd(-1)
  4. 40 sub m()
  5. 50 morse "Mac OS Workshop",16,40,13,700
  6. 60 end sub
  7. 70 sub s()
  8. 80 say "Mac OS Workshop:",210,50,3
  9. 90 end sub
  10. 100 sub q()
  11. 110 finished = 1
  12. 120 end sub
  13. 130 call "wintitle","Dotty"
  14. 140 graphics window 25,25,200,200
  15. 150 menu 4,"Commands","Morse code;Speech;Quit","m();s();q()"
  16. 160 while not finished
  17. 170   doevents()
  18. 180   graphics color rnd(1)*100,rnd(1)*100,rnd(1)*100
  19. 190   graphics pset rnd(1)*200,rnd(1)*200
  20. 200 wend
  21. 210 graphics -1
  22. 220 call "wintitle","Graphics"
  23. 230 menu 4,""
  24. 240 end
  25.