home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / menu.amos / menu.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-03-14  |  3.6 KB  |  139 lines
  1. '  
  2. ' This program is more of a utility than a programming exercise
  3. '
  4. ' See line 37 onwards to set up your menu. 
  5. '
  6. '
  7. '
  8. '
  9. '
  10. Change Mouse 2
  11. Colour Back $355
  12. Screen Open 0,640,256,8,Hires : Curs Off : Cls 0
  13. Unpack 10 To 0
  14. PLACE=0
  15. Restore 100
  16. Repeat 
  17.    Read PRG$,WTL$
  18.    If PRG$="End Of Program List"
  19.       Goto SELECT
  20.    End If 
  21.    Inc PLACE
  22.    If PLACE=1 Then Ink 1,0,0 : Text 65,146,PRG$
  23.    If PLACE=2 Then Ink 1,0,0 : Text 65,165,PRG$
  24.    If PLACE=3 Then Ink 1,0,0 : Text 65,184,PRG$
  25.    If PLACE=4 Then Ink 1,0,0 : Text 65,203,PRG$
  26.    If PLACE=5 Then Ink 1,0,0 : Text 228,146,PRG$
  27.    If PLACE=6 Then Ink 1,0,0 : Text 228,165,PRG$
  28.    If PLACE=7 Then Ink 1,0,0 : Text 228,184,PRG$
  29.    If PLACE=8 Then Ink 1,0,0 : Text 228,203,PRG$
  30.    If PLACE=9 Then Ink 1,0,0 : Text 395,146,PRG$
  31.    If PLACE=10 Then Ink 1,0,0 : Text 395,165,PRG$
  32.    If PLACE=11 Then Ink 1,0,0 : Text 395,184,PRG$
  33.    If PLACE=12 Then Ink 1,0,0 : Text 395,203,PRG$
  34. Until PLACE=12
  35. PROGRAMS:
  36. '
  37. ' This is where the programs are stored. 
  38. '
  39. ' The 1st set of quotes contain the name of the demo as it 
  40. ' appears ON THE MENU. 
  41. ' The 2nd set contains the program to execute. 
  42. ' in the example below, 'Scrolling Demo' will appear on the menu 
  43. ' and if chosen,the program will load 'scroller.amos'
  44. '
  45. ' Note that if you run a program from this menu, any banks you saved 
  46. ' with the program will be ignored. you will have to load them from
  47. ' within your program.(This is not my fault, it'ssomething to do with AMOS)  
  48. '
  49. ' Once you have set everything, save it on your RAMOS disk 
  50. ' as 'Autoexec.amos' and boot from it-it should work.
  51. ' If it doesn't check - Is it Installed ?, Is Ramos On the disk? 
  52. ' is the run name(2nd set of quotes) ok ? (I had one once that had 
  53. ' a space before the end of the quotes-it took me ages to spot it.)
  54. 100 Data "Scrolling Demo","Scroller.amos"
  55. 200 Data " "," "
  56. 300 Data " "," "
  57. 400 Data " "," "
  58. 500 Data " "," "
  59. 600 Data " "," "
  60. 700 Data " "," "
  61. 800 Data " "," "
  62. 900 Data " "," "
  63. 1000 Data " "," "
  64. 1100 Data " "," "
  65. 1200 Data " "," "
  66. Data "End Of Program List","End"
  67. Reserve Zone 12
  68. Set Zone 1,54,135 To 214,153
  69. Set Zone 2,54,154 To 214,171
  70. Set Zone 3,54,173 To 214,190
  71. Set Zone 4,54,192 To 214,208
  72. Set Zone 5,216,135 To 378,153
  73. Set Zone 6,216,154 To 378,171
  74. Set Zone 7,216,173 To 378,190
  75. Set Zone 8,216,192 To 378,208
  76. Set Zone 9,318,135 To 542,153
  77. Set Zone 10,382,154 To 542,171
  78. Set Zone 11,382,173 To 542,190
  79. Set Zone 12,382,192 To 542,208
  80. Limit Mouse 155,175 To 400,248
  81. SELECT:
  82. If Mouse Zone=1 and Mouse Key=1
  83.    Restore 100 : Read PRG$,RN$
  84.    Goto FINISHED
  85. End If 
  86. If Mouse Zone=2 and Mouse Key=1
  87.    Restore 200 : Read PRG$,RN$
  88.    Goto FINISHED
  89. End If 
  90. If Mouse Zone=3 and Mouse Key=1
  91.    Restore 300 : Read PRG$,RN$
  92.    Goto FINISHED
  93. End If 
  94. If Mouse Zone=4 and Mouse Key=1
  95.    Restore 400 : Read PRG$,RN$
  96.    Goto FINISHED
  97. End If 
  98. If Mouse Zone=5 and Mouse Key=1
  99.    Restore 500 : Read PRG$,RN$
  100.    Goto FINISHED
  101. End If 
  102. If Mouse Zone=6 and Mouse Key=1
  103.    Restore 600 : Read PRG$,RN$
  104.    Goto FINISHED
  105. End If 
  106. If Mouse Zone=7 and Mouse Key=1
  107.    Restore 700 : Read PRG$,RN$
  108.    Goto FINISHED
  109. End If 
  110. If Mouse Zone=8 and Mouse Key=1
  111.    Restore 800 : Read PRG$,RN$
  112.    Goto FINISHED
  113. End If 
  114. If Mouse Zone=9 and Mouse Key=1
  115.    Restore 900 : Read PRG$,RN$
  116.    Goto FINISHED
  117. End If 
  118. If Mouse Zone=10 and Mouse Key=1
  119.    Restore 1000 : Read PRG$,RN$
  120.    Goto FINISHED
  121. End If 
  122. If Mouse Zone=11 and Mouse Key=1
  123.    Restore 1100 : Read PRG$,RN$
  124.    Goto FINISHED
  125. End If 
  126. If Mouse Zone=12 and Mouse Key=1
  127.    Restore 1200 : Read PRG$,RN$
  128.    Goto FINISHED
  129. End If 
  130. Goto SELECT
  131. End 
  132. FINISHED:
  133. If RN$=" "
  134.    Goto SELECT
  135. End If 
  136. Bell 
  137. Fade 1 : Wait 15 : Limit Mouse : Screen Close 0
  138. Colour Back 0
  139. Run RN$