home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / tustmc.amos / tustmc.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1978-11-01  |  1.5 KB  |  49 lines
  1. '
  2. '   THE ULTIMATE SOUND TRACKED MODULE CONVERTER
  3. '   -------------------------------------------
  4. '         By Jason Chan '91 Dec - '92 Jan  
  5. '
  6. ' ***************************************************************
  7. ' THERE ARE TWO CONVERTERS YOU CAN USE TO CONVERT YOUR ST MODULES
  8. ' SO IF ONE DOES NOT CONVERT PROPERLY THE OTHER MIGHT ! ! ! ! !  
  9. ' ***************************************************************
  10. '
  11. Do 
  12.    MAIN
  13. Loop 
  14. Procedure MAIN
  15.    Unpack 2 To 0 : Limit Mouse 0,0 To 500,500
  16.    Ink 2,4
  17.    Reserve Zone : Reserve Zone 5
  18.    Set Zone 1,10,140 To 136,163
  19.    Set Zone 2,10,167 To 135,190
  20.    Set Zone 3,10,194 To 136,217
  21.    Set Zone 4,10,221 To 204,241
  22.    Set Zone 5,233,221 To 281,241
  23.    Do 
  24.       C=Mouse Zone : D=Mouse Click
  25.       If C=1 and D=1 Then Proc _C1 : Exit 
  26.       If C=2 and D=1 Then Proc _C2 : Exit 
  27.       If C=3 and D=1 Then Screen Open 0,320,256,2,Lowres : Curs Off : Locate ,10 : Centre "NOT INSTALLED YET ! NEXT VERSION !!" : Wait 160 : Exit 
  28.       If C=4 and D=1 Then C4 : Exit 
  29.       If C=5 and D=1 Then Edit 
  30.    Loop 
  31. End Proc
  32. Procedure C4
  33.    Q$=Fsel$("*.abk","","Pick a music bank")
  34.    If Q$="" Then Pop Proc
  35.    Load Q$
  36.    Music 1
  37.    Text 180,170,"Playing Music"
  38.    Repeat : Until Mouse Click=1
  39.    For I=63 To 0 Step -1
  40.       Volume I : Wait 2
  41.    Next I
  42.    Music Off : Erase 3 : Volume 63
  43. End Proc
  44. Procedure _C1
  45.    ' COMPILED PROCEDURE -- can't convert this to AMOS code
  46. End Proc
  47. Procedure _C2
  48.    ' COMPILED PROCEDURE -- can't convert this to AMOS code
  49. End Proc