home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / menu.AMOS / menu.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1993-02-25  |  1.7 KB  |  64 lines
  1. Rem example15_1.Amos 
  2. 'another way of producing menus
  3. '
  4. '==============================================================
  5. 'This Source code is from The Absolute Beginners Guide To Amos 
  6. 'Which is Licenceware and available from F1 for 2.99 P+P free
  7. 'The disk contains 20 chapters covering the first 110 commands 
  8. 'every new user will need to get to grips with.
  9. 'Also included are 18 example programs such as this one that 
  10. 'relate to the tutorials and many extras besides 
  11. 'If you a new to Amos you need this product!   
  12. '=============================================================== 
  13. Change Mouse 2
  14. '
  15. BEGIN:
  16. '
  17. '
  18. Rem unpack the previously designed menu screen 
  19. Unpack 10 To 0
  20. Paper 2 : Pen 0
  21. Centre "Click on an option, any mouse key to quit playing music and viewing picture."
  22. '
  23. '
  24. Rem set up the zone coordinates, gathered from the getzone.amos program  
  25. Reserve Zone 3
  26. Set Zone 1,256,93 To 362,104 : Rem set loadiffcoords for zone 
  27. Set Zone 2,256,109 To 362,119 : Rem load mod 
  28. Set Zone 3,256,125 To 362,136 : Rem quit 
  29. '
  30. '
  31. Rem the main loop, waiting for a selection to act on 
  32. KEE:
  33. While Mouse Key=0 : Wend 
  34. KK=Mouse Zone
  35. '
  36. '
  37. Rem if a valid selection is made 1,2 or 3 then gosub program 
  38. If KK=1 Then Gosub PIC : Goto BEGIN
  39. If KK=2 Then Gosub LMOD : Goto BEGIN
  40. If KK=3 Then Edit 
  41. Goto KEE
  42. '
  43. '
  44. Rem the loadiff subroutine,when finds a return, returns to the 
  45. Rem execute the next staement in the line it camr from.
  46. PIC:
  47. F$=Fsel$("*.*","","SELECT AN IFF PICTURE")
  48. '
  49. Rem if quit selected from menu return now
  50. If F$="" Then Return 
  51. Load Iff F$,0
  52. While Mouse Key=0 : Wend 
  53. Return 
  54. '
  55. '
  56. Rem the load mod subroutine similar to above 
  57. LMOD:
  58. F$=Fsel$("*.*","","SELECT A TRACKER MOD")
  59. If F$="" Then Return 
  60. Track Load F$,5
  61. Track Play 5
  62. While Mouse Key=0 : Wend 
  63. Track Stop 
  64. Return