home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / ModuleExamine.asc < prev    next >
Text File  |  1995-05-07  |  1KB  |  45 lines
  1. ' cODED bY ßudda/NFA 
  2. ' StARtEd : when I started it  
  3. ' FiNiSHed: an hour or so after
  4.  
  5. Track Load Fsel$("Work:","MOD.","Find Me A Module","* must be SOUNDTRACKER compatable *"),3
  6.  
  7. Screen Open 0,640,256,2,Hires
  8. Palette $0,$FFF
  9. Curs Off 
  10.  
  11. ' -- Changeable Variables -- 
  12. BNK_NUMBER=3 : Rem AMOS Memory Bank That Module Is Loaded Into  
  13. SONG=Start(BNK_NUMBER) : Rem Module Location Address In Memory  
  14.  
  15. ' -- Listen To The Module -- 
  16. Track Loop On 
  17. Track Play BNK_NUMBER
  18.  
  19. ' -- The Song Data --  
  20. Print "SONG NAME:";Peek$(SONG,22) : Rem Song Name
  21. Print " "
  22. Print "LENGTH:";Peek(SONG+950) : Rem Song Length
  23. Print "SIZE:";Length(BNK_NUMBER)-32 : Rem Song Size In Bytes 
  24. Print "WORD:";Peek$(SONG+1080,4) : Rem 4 Special ID Letters 
  25. '                             If These="M.K." then it's a 31 Instrument module   
  26. Wait Key 
  27. Cls 
  28.  
  29. ' -- The 31 Instruments -- 
  30. SAM=1
  31. For P=20 To 920 Step 30
  32.    Locate 0,SAM-1 : Print "SAMPLE "+Str$(SAM) : Rem Sample Number
  33.    Locate 15,SAM-1 : Print Peek$(SONG+P,22) : Rem Sample Name  
  34.    Locate 40,SAM-1 : Print Peek(SONG+P+25) : Rem Sample Volume  
  35.    Locate 50,SAM-1 : Print Deek(SONG+P+22)*2 : Rem Sample Byte Size   
  36.    Add SAM,1,1 To 31
  37. Next P
  38. Wait Key 
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.