home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd372 / slideshow / tools / compacter.amos / compacter.amosSourceCode
AMOS Source Code  |  1991-12-31  |  565b  |  27 lines
  1. ' COMPACTER
  2. '
  3. ' IFF Picture compacter for use with Slide Show Manager
  4. '
  5. ' 30th December 1991 
  6. '
  7. Cls : DV$="df0:"
  8. Print "Enter number of FIRST picture to compact:"
  9. Print : Print : Input F
  10. Print "Enter number of LAST picture to compact:"
  11. Print : Print : Input N
  12. Print : Print 
  13. Print "Insert disk with pictures in df0:"
  14. Print "and press a key"
  15. Wait Key 
  16. Cls 
  17. Print "Now compacting: please wait"
  18. For X=F To N
  19. PIC$=Str$(X) : L=Len(PIC$) : PIC$=Right$(PIC$,L-1)
  20. FF$=DV$+PIC$
  21. Load Iff FF$,1
  22. Wait Vbl : Wait Vbl 
  23. Save Iff FF$,1
  24. Next 
  25. Cls 
  26. Print "Operation now complete"
  27. End