home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 260.lha / ShAkEr.mod < prev    next >
Encoding:
Text File  |  1989-07-06  |  1.6 KB  |  52 lines
  1. MODULE Shaker ;
  2.  
  3. FROM CyberLib        IMPORT  Color ;
  4. FROM DOSProcessHandler  IMPORT  Delay ;
  5. FROM InOut        IMPORT  Write, WriteString, WriteLn ;
  6. FROM Interrupts        IMPORT  Forbid, Permit ;
  7. FROM Intuition        IMPORT     IntuitionName, IntuitionBase, ScreenPtr, 
  8.                                 RemakeDisplay, WindowPtr ;
  9. FROM Libraries         IMPORT  OpenLibrary, CloseLibrary, Library, 
  10.                                 LibraryPtr ;
  11. FROM SYSTEM        IMPORT    NULL ;
  12. FROM Views              IMPORT  View;
  13.  
  14. TYPE
  15.     IntuitionBasePtr = POINTER TO RECORD
  16.                          LibNode: Library ;
  17.                          ViewLord: View;
  18.                          ActiveWindow: WindowPtr;
  19.                          FirstScreen: ScreenPtr;
  20.                          Flags: LONGCARD;
  21.                          MouseX, MouseY: CARDINAL;
  22.                          Seconds, Micros: LONGCARD;
  23.                        END;
  24. VAR       
  25.    scrnptr : ScreenPtr ;
  26.    IBase   : IntuitionBasePtr ;
  27.    X : CARDINAL ;
  28.  
  29. BEGIN
  30.   Color(3,0); WriteString("SHAKER "); Color(1,0); 
  31.   WriteString("v1.0 "); Write(CHR(0A9H)) ;
  32.   WriteString(" 1989 Bill Nerini") ; WriteLn ;
  33.  
  34.   IntuitionBase := OpenLibrary(IntuitionName,0) ;
  35.    IF (IntuitionBase = NULL) THEN
  36.      WriteString("PROBLEM OPENING "); Color(3,0) ; 
  37.      WriteString("IntuitionBase"); Color(1,0) ; 
  38.      WriteLn ; HALT ;
  39.    END ;
  40.   IBase := IntuitionBasePtr(IntuitionBase) ;
  41.   scrnptr := IBase^.FirstScreen ;
  42.     
  43.    FOR X := 1 TO 100 DO
  44.       INC(scrnptr^.VPort.dyOffset,5) ;
  45.       RemakeDisplay; Delay(2) ;
  46.       DEC(scrnptr^.VPort.dyOffset,5) ;
  47.       RemakeDisplay; Delay(2) ;
  48.    END ;
  49.  
  50.   CloseLibrary(LibraryPtr(IntuitionBase)) ;
  51. END Shaker.
  52.