home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd521 / showall-v2.amos / showall-v2.amosSourceCode < prev    next >
AMOS Source Code  |  1991-07-10  |  6KB  |  210 lines
  1. Rem        ****************************  
  2. Rem        *                          *  
  3. Rem        *       Load All v2.0      *    
  4. Rem        *            by            *  
  5. Rem        *       Murray Jones       *  
  6. Rem        *                          *  
  7. Rem        ****************************  
  8. Rem  
  9. Rem
  10. Close Workbench 
  11. Change Mouse 2
  12. Screen Open 0,320,256,16,Lowres
  13. Screen Display 0,130,40,320,256
  14. Screen Open 3,640,40,4,Hires
  15. Screen Display 3,130,260,640,40
  16. Colour 1,$555 : Colour 2,$F11 : Colour 3,$777
  17. Flash Off : Curs Off : XEE=260
  18. Locate 2,1 : Print "Sprite Number=";I
  19. Locate 2,3 : Print "Sample Number=";SO
  20. Locate 24,1 : Print "Disk Space Free=";Dfree
  21. Locate 25,3 : Print "Show-All Version 2.0"
  22. Locate 52,1 : Print "Free Chip Memory=";Chip Free
  23. Locate 52,3 : Print "Free Fast Memory=";Fast Free
  24. Ink 3
  25. Draw 175,0 To 175,40
  26. Draw 0,19 To 640,19
  27. Draw 400,0 To 400,40
  28. Ink 2
  29. Screen 0
  30. Colour 1,$9
  31. Limit Mouse 130,40 To 446,296
  32. Flash Off : Curs Off 
  33. Sam Bank 6
  34. Menu$(1)="Loading"
  35. Menu$(1,1)="Load Picture"
  36. Menu$(1,2)="Load Sprites"
  37. Menu$(1,3)="Load Music  "
  38. Menu$(1,4)="Load Sounds "
  39. Menu$(1,5)="------------"
  40. Menu$(1,6)="Instructions"
  41. Menu$(1,7)="------------"
  42. Menu$(1,8)="    Quit    "
  43. Menu$(2)=" Screen "
  44. Menu$(2,1)="320x256"
  45. Menu$(2,2)="640x256"
  46. Menu$(3)="Save Screen "
  47. Menu$(3,1)=" Unpacked  "
  48. Menu$(3,2)="  Packed   "
  49. Menu$(4)="Options"
  50. Menu$(4,1)="Clear Screen"
  51. Menu$(4,2)="------------"
  52. Menu$(4,3)=" Music Off  "
  53. _SMALL_COPYRIGHT[225]
  54. Procedure _SMALL_COPYRIGHT[YDISPLAY]
  55.    '
  56.    Auto View Off 
  57.    '  
  58.    Screen Open 7,320,24,16,0 : Curs Off : Flash Off : Cls 0
  59.    Screen Display 7,,-100,,
  60.    Paste Bob 260,3,1
  61.    Paper 0 : Pen 7 : Print At(1,1);"This program was written using"
  62.    Get Sprite Palette 
  63.    View : Wait Vbl 
  64.    '
  65.    For Y=1 To Screen Height/2
  66.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  67.       Screen Offset 7,,Screen Height/2-Y
  68.       View : Wait Vbl 
  69.    Next 
  70.    '
  71.    Wait 300
  72.    '
  73.    For Y=Screen Height/2 To 0 Step -1
  74.       Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2
  75.       Screen Offset 7,,Screen Height/2-Y
  76.       View : Wait Vbl 
  77.    Next 
  78.    '
  79.    Screen Close 7
  80.    Auto View On 
  81.    '
  82. End Proc
  83. Erase 1
  84. On Menu Goto TITLE1,TITLE2,TITLE3,TITLE4
  85. FINISH:
  86. On Menu On 
  87. Menu On 
  88. Goto BAND
  89. TITLE1:
  90.    If Choice(2)=1 Then F$=Fsel$("","","Load an IFF File")
  91.    If(Choice(2)=1) and(F$="") Then Goto BAND
  92.    If(Choice(2)=1) Then Load Iff F$,0 : Screen To Back 
  93.    On Error Goto TUTUT
  94.    If Choice(2)=2 Then Erase 1
  95.    If Choice(2)=2 Then F$=Fsel$("","","Load a Sprite File")
  96.    If(Choice(2)=2) and(F$="") Then Goto BAND
  97.    If Choice(2)=2 Then Screen 0 : Load F$,1 : Get Sprite Palette 
  98.    On Error Goto TUTUT
  99.    If Choice(2)=2 Then Get Sprite Palette : Cls 
  100.    If Choice(2)=3 Then F$=Fsel$("","","Load a Music File")
  101.    If(Choice(2)=3) and(F$="") Then Goto BAND
  102.    If Choice(2)=3 Then Load F$
  103.    On Error Goto TUTUT
  104.    If Choice(2)=3 Then Music 1
  105.    If Choice(2)=4 Then F$=Fsel$("","","Load Sound Effects")
  106.    If(Choice(2)=4) and(F$="") Then Goto BAND
  107.    If Choice(2)=4 Then Load F$,6
  108.    On Error Goto TUTUT
  109.    If Choice(2)=6 Then Goto HELPING
  110.    If Choice(2)=8 Then End 
  111. Goto BAND
  112. TITLE2:
  113.    If Choice(2)=1 Then Goto RES1
  114.    If Choice(2)=2 Then Goto RES2
  115. Goto BAND
  116. TITLE3:
  117.    If Choice(2)=1 Then F$=Fsel$("","","Save an Unpacked Picture")
  118.    If(Choice(2)=1) and(F$="") Then Goto BAND
  119.    If Choice(2)=1 Then Save Iff F$,0
  120.    If Choice(2)=2 Then F$=Fsel$("","","Save a Packed Picture")
  121.    If(Choice(2)=2) and(F$="") Then Goto BAND
  122.    If Choice(2)=2 Then Save Iff F$,1
  123. Goto BAND
  124. TITLE4:
  125.    If Choice(2)=1 Then Cls : Screen 3 : Colour 0,$0 : Colour 1,$555 : Colour 2,$F11 : Colour 3,$777 : Screen 0
  126.    If Choice(2)=3 Then Music Off : Erase 3
  127. Goto BAND
  128. Goto FINISH
  129. BAND:
  130. A$=Inkey$
  131. SCAN=Scancode
  132. If SCAN=95 Then Goto HELPING
  133. If SCAN=78 Then I=I+1
  134. If SCAN=79 Then I=I-1
  135. If SCAN=77 Then SO=SO-1 : PL=1
  136. If SCAN=76 Then SO=SO+1 : PL=1
  137. If A$=" " Then Sam Play SO
  138. If SO<0 Then SO=0
  139. If I<0 Then I=0
  140. If IN<>I Then Bob 1,100,100,I
  141. If(PL=1) and(SO>0) Then Sam Play SO
  142. XCOR=X Screen(0,X Mouse)
  143. YCOR=Y Screen(0,Y Mouse)
  144. If(Mouse Key=1) and(Screen Width=320) Then Paste Bob XCOR,YCOR,I
  145. If(Mouse Key=1) and(Screen Width=640) Then Paste Bob XCOR,YCOR,I
  146. Screen 3
  147. If A$="8" Then XEE=XEE-10
  148. If A$="2" Then XEE=XEE+10
  149. Screen Display 3,130,XEE,640,40
  150. If IN<>I Then Locate 16,1 : Print "     "
  151. If SON<>SO Then Locate 16,3 : Print "     "
  152. If IN<>I Then Locate 2,1 : Print "Sprite Number=";I
  153. If SON<>SO Then Locate 2,3 : Print "Sample Number=";SO
  154. If Dfree<>DDD Then Locate 40,1 : Print "         "
  155. If Chip Free<>CCC Then Locate 69,1 : Print "          "
  156. If Fast Free<>FFF Then Locate 69,3 : Print "          "
  157. Locate 24,1 : Print "Disk Space Free=";Dfree
  158. Locate 25,3 : Print "Show-All Version 2.0"
  159. Locate 52,1 : Print "Free Chip Memory=";Chip Free
  160. Locate 52,3 : Print "Free Fast Memory=";Fast Free
  161. DDD=Dfree
  162. CCC=Chip Free
  163. FFF=Fast Free
  164. Screen 0
  165. SON=SO
  166. IN=I : PL=0 : A$=""
  167. On Error Goto TUTUT
  168. Goto FINISH
  169. RES1:
  170. Screen Open 0,320,256,16,Lowres
  171. Screen Display 0,130,40,320,256
  172. Flash Off : Curs Off : Colour 1,$9
  173. Screen To Back 
  174. Goto BAND
  175. RES2:
  176. Screen Open 0,640,256,16,Hires
  177. Screen Display 0,130,40,640,256
  178. Flash Off : Curs Off : Colour 1,$9
  179. Screen To Back 
  180. Goto BAND
  181. TUTUT:
  182. Resume Next 
  183. HELPING:
  184. Screen Open 2,640,256,4,Hires
  185. Screen Display 2,130,40,640,256
  186. Colour 1,$191
  187. Flash Off : Curs Off 
  188. Print : Print 
  189. Centre "Show All Version 2.0"
  190. Print 
  191. Print 
  192. Centre "by"
  193. Print 
  194. Print 
  195. Centre "Murray Jones"
  196. Print : Print : Print : Print : Print : Print 
  197. Print "     Left Crsr = Sprite Up                 Right Crsr = Sprite Down"
  198. Print 
  199. Print "     Up Crsr   = Sample Up                 Down Crsr  = Sample Down"
  200. Print 
  201. Print "     8         = Screen up                 2          = Screen Down"
  202. Print 
  203. Print "     Space     = Play Current Sound        Help       = Show This Screen"
  204. Print : Print : Print : Print : Print 
  205. Centre "Any Key To Continue"
  206. Wait Key 
  207. Screen Close 2
  208. Screen 0
  209. I=0
  210. Goto BAND