home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd101 / convert_bank2singlebank.amos / convert_bank2singlebank.amosSourceCode
AMOS Source Code  |  1994-01-01  |  613b  |  39 lines
  1. Dir$="df1:"
  2. Dim A$(20)
  3. Global A$(),X
  4. Inc X
  5. A$(X)=Dir First$("df1:")
  6. 10
  7. Z$=Dir Next$
  8. If Z$="" Then EXTRACT_NAMES : RESAVE : For ZZZ=1 To 5 : Wait 25 : Bell : Next ZZZ : Edit 
  9. Inc X
  10. A$(X)=Z$
  11. Goto 10
  12. Procedure EXTRACT_NAMES
  13. For F=1 To X
  14. A$(F)=Mid$(A$(F),2,Len(A$(F))-1)
  15. Next F
  16. For F=1 To X
  17. CHOPPOS=Instr(A$(F),"  ")
  18. Dec CHOPPOS
  19. A$(F)=Left$(A$(F),CHOPPOS)
  20. Next F
  21. End Proc
  22. Procedure RESAVE
  23. For F=1 To X
  24. Print "loading ";A$(F);" ";F;"/";X
  25. Load A$(F)
  26. List Bank 
  27. Mvolume 63
  28. Music 1
  29. Print "Saving ";A$(F)
  30. Save A$(F),3
  31. Wait 120*50
  32. For VL#=63 To 0 Step -0.01
  33. Wait Vbl 
  34. Mvolume VL#
  35. Next VL#
  36. Music Off 
  37. Erase 3
  38. Next F
  39. End Proc