home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / FROGGY.OPT < prev    next >
Text File  |  1995-04-30  |  742b  |  41 lines
  1.  
  2. DEF(I)
  3. DEF(J)
  4. DEF(K)
  5. DEF(L)
  6.  
  7. BEGIN
  8.  
  9.    READWIN('ROT_FROG.BMP')
  10.    SETALLPAL
  11.    KEYCOL(160)
  12.    KEY(ON)
  13.    CLEARSCREEN(172)
  14.    LOADWIN(0,0,20,0)
  15.    COPYWIN(0,0,WINX/2,WINY/2)
  16.    KEYCOL(172)
  17.    FOR I := 0 TO 3 DO
  18.      for J := 0 TO 3 DO
  19.        SETCOLOR(0)
  20.        LOADWIN(I*140+8,J*88+8,17,0)
  21.        SETCOLOR(195)
  22.        FOR K := 1 TO 2 DO
  23.          FOR L := 1 TO 2 DO
  24.            LOADWIN(I*140+K,J*88+J,16,0)
  25.          NEXT(L)
  26.        NEXT(K)
  27.        LOADWIN(I*140,J*88,16,0)
  28.        LOADWIN(I*140+1,J*88+1,0,0)
  29.      NEXT(J)
  30.    NEXT(I)
  31.    READFONT(1,'TRI22N.FNT')
  32.    FONT(1)
  33.    TEXTCOLOR(0)
  34.    TEXTBCOLOR(122)
  35.    WRITESTYLE(3)
  36.    TEXTSHADOW(2,2)
  37.    PRINTC(XMAX/2,YMAX-20,'SCHRÄGER VOGEL !??')
  38.    PAUSE(0)
  39. END
  40.  
  41.