home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd233 / spacker.amos / spacker.amosSourceCode
AMOS Source Code  |  1986-08-03  |  592b  |  7 lines
  1. Screen Open 0,320,16,2,Lowres : Curs Off : Flash Off : Colour 1,$FF : Screen Display 0,,40,,8
  2. 1 Screen Open 1,320,200,2,Lowres : Screen Hide 1
  3. 2 F$=Fsel$("","","Load IFF Picture To SPACK") : If F$="" Then Goto 2
  4. If Exist(F$) Then Screen 0 : Centre "Loading IFF Picture" : Print : Load Iff F$,1 : Else Goto 2
  5. Screen 0 : Centre "Spacking Picture | Please Wait..." : Print : Spack 1 To 6 : Screen Close 1
  6. 3 F$=Fsel$("","","Save Spack Bank") : If F$="" Then Goto 3
  7. Screen 0 : Centre "Saving Spack Bank" : Print : Save F$,6 : Erase 6 : Centre "Press Key To Continue..." : Print : Wait Key : Goto 1