home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / JC_Bank_Squasher.AMOS / JC_Bank_Squasher.amosSourceCode
AMOS Source Code  |  1995-12-30  |  1KB  |  36 lines
  1. '
  2. THE_SQUASHER_BY_JASON_CHAN
  3. '
  4. ' ï¿½ JAN 1992 BAMBOO SOFTWARE 
  5. '
  6. Procedure THE_SQUASHER_BY_JASON_CHAN
  7.    JC_SQ
  8.    Centre "CLICK LEFT MOUSE BUTTON" : Print 
  9.    Repeat 
  10.       Bell 30 : Wait 10 : Bell 40 : Wait 10
  11.    Until Mouse Click=1
  12. End Proc
  13.  
  14. Procedure JC_SQ
  15.    For I=1 To 15
  16.       Erase I
  17.    Next 
  18.    Curs Off : Cls 0 : Paper 0
  19.    F$=Fsel$("","","Pick A Bank To Squash")
  20.    If F$="" Then Pop Proc
  21.    Load F$
  22.    List Bank : Print 
  23.    Input "BANK : ";BNK : If BNK<1 Then Pop Proc
  24.    Input "MODE (Slow=0/Fast=-1) : ";MO : If MO<-1 or MO>0 Then MO=-1
  25.    Input "SPEED (257-4095) : ";SPD : If SPD<257 or SPD>4095 Then SPD=1024
  26.    Centre "SQUASHING ....." : Print : Curs Off 
  27.    S= Extension_5_00CE(Start(BNK),Length(BNK),MO,SPD,17)
  28.    If S<0 Then Print "ABORTED ...." : Pop Proc
  29.    Centre "FINISHED !! Squashed Bank Size :"+Str$(S) : Print 
  30.    Print : Centre "CLICK LEFT MOUSE BUTTON" : Print 
  31.    Repeat 
  32.       Bell 30 : Wait 10 : Bell 40 : Wait 10
  33.    Until Mouse Click=1
  34.    F$=Fsel$("","","Save Squashed Bank")
  35.    Bsave F$,Start(BNK) To Start(BNK)+Length(BNK)
  36. End Proc