}* FREE TUTORIAL EXAMPLE PROGRAM IN LISA GJ2 FIC3 WRITTEN BY }*
}* ARISTO W.LAH, NORMAL YOGA4D CFDL, -- THIS ONE SHOWS HOW   }* 
}* SOME ROUTINES FOUND IN OILER CAN BE COPIED AND EXPANDED   }* 
}* TO DO SOME NON-SIMULATION FUN OF FLASHING WATER,          }* 
}* SUITABLE FOR SOME PHOTOS WHEN PRETREATED IN OILER.TXT.    }* 
}* THIS PROGRAM STANDS AS AN EXPERIMENT IN GRAPHICS,         }* 
}* AND PLS BE AWARE OF NOT DOING THINGS WHICH CAN BE         }* 
}* INTERPRETED AS SIMULATION ATTEMPTS IF PUT IN A WHOLLY     }* 
}* DIFFERENT CONTEXT SUCH AS GAME. 2011:3:4                  }*
}* STARTUP NOTE: DO HAVE FLASHING.GJP IN MAIN FOLDER.        }* 
((DATA THIS-WAY THIS-WAY => SETDANCE )) 
((DATA OUR-40000-SIZE-MATRIX 200 ; 200 => RAM-PM  
  OUR-40000-SIZE-MATRIX <<ASSERT )) 
((DATA OUR-5000-SIZE-MATRIX 200 ; 25 => RAM-PM  
  OUR-5000-SIZE-MATRIX <<ASSERT )) 
((DATA DISPLAY-HERE-HOUSE )) 
(LET FROM-GJP-TO-FORM063 BE (( )) 
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( GETPAL ))
    (( 200
      (COUNT
        (( 200
          (COUNT
            (( N1 ; N3 ; # => GM ; ))
            (( ; => >>V => READPAL => V>> =>                                 
              VARTOSTK => V>> ; 64 => MOD ; 63 =>                       
              SWITCH => SUB ; N1 ; N3 ; # => PM ))
          COUNTUP) ))
      COUNTUP) ))
    (( && ))
  )) OK)
(LET DISPLAY-HERE-ESSENCE BE (( )) 
  ((
    (( V2 ; V8 => ADD ; V3 ; V9 => ADD ;                                
      63 ; V11 => SUB ; 128 => ADD => PUTPIXEL ))
   )) OK)
(( :DISPLAY-HERE-ESSENCE => ?
  DISPLAY-HERE-HOUSE <<ASSERT ))
(( LOOKSTK )) 
(LET DISPLAY-HERE BE (( & >N5 >N3 )) 
  ((
    (( VLOTS ; N3 => TOV8 ; N5 => TOV9 ; VFREE ;
       DISPLAY-HERE-HOUSE >>> ; # => FORVPM )) 
    (( && ))
  )) OK)
(LET COPY-BOTTOM-OF-IMAGE BE (( ))  
  ((
    (( OUR-40000-SIZE-MATRIX >>> => & )) 
    (( OUR-5000-SIZE-MATRIX >>> => & )) 
    (( 25
      (COUNT
        (( 200
          (COUNT
            (( N1 ; N3 ; 174 => ADD ; ## => GM ; 
              N1 ; 26 ; N3 => SUB ; # => PM )) 
          COUNTUP) ))
      COUNTUP) ))
    (( && && ))
  )) OK)
(( LOOKSTK )) 
(LET MODIFY-IMAGE BE (( ))  
  ((
    (( OUR-5000-SIZE-MATRIX >>> => & )) 
    (( 25
      (COUNT
        (( 200
          (COUNT
            (( ^1000000 FR GETV ; 990000 => INTGREATER
              = THIS-WAY => FLAGFLIP === ))
            (( N1 ; N3 ; # => GM ; ))
            (( THIS-WAY => VISDANCE
              (MATCHED
                (( ; 3 => MUL => DIV4 ; ))
              )(OTHER
                (( ; => MUL4 ; 3 => DIV ; ))
                (( 22 => FUNNYRFFG => ISDANCE = THIS-WAY => SETDANCE === ))
              MATCHED) ; )) 
            (( ; 0 ; 63 => SET-RANGE ; ))
            (( ; N1 ; N3 ; # => PM )) 
          COUNTUP) ))
      COUNTUP) ))
    (( && ))
  )) OK)
(LET FLASHING BE (( ))  
  ((
    (( GJ-ON ))
    (( }FLASHING.GJP} ; OUR-40000-SIZE-MATRIX >>>                           
      => GJPFILE2PM ; RM ))
    (( FROM-GJP-TO-FORM063 )) 
    (( COPY-BOTTOM-OF-IMAGE ))
    (( 600 ; 200 ; OUR-40000-SIZE-MATRIX >>> => DISPLAY-HERE ))
    (( GOLABEL3: ))
      (( COPY-BOTTOM-OF-IMAGE ))
      (( MODIFY-IMAGE ))
      (( 600 ; 400 ; OUR-5000-SIZE-MATRIX >>> => DISPLAY-HERE ))
      (( 20 => ONE => FUNNYRFFG => ADD => GOODPAUSE ))
      (( UNTIL-TOUCHING = GOUP3 === ))
    (( GJ-DONE ))
  )) OK)
(( LOOKSTK )) 
(LET AUTOSTART BE FLASHING OK)