home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d743 / turbodex.lha / TurboDEX / ExampleSources / NewWindow.dex < prev    next >
Text File  |  1992-10-11  |  431b  |  16 lines
  1. /* Open a Window ... this example shrunk somewhat from v1.10 to v1.15 */
  2.  
  3. PROC main()
  4.   DEF wadr:LONG, rast:LONG, dummy:REGLONG
  5.   wadr := OpenW(20,30,400,80,$1006,0,'A TurboWPL Window ...\0',NIL,1,0)
  6.   IF wadr?FALSE
  7.     rast := MLONG(wadr+50)
  8.     VOID SetAPen(rast,1)
  9.     VOID Move(rast,5,20)
  10.     VOID Text(rast,'it\as easy to write in a window (click mouse)',LEN)
  11.     MOUSE
  12.     ENDMOUSE
  13.     VOID CloseWindow(wadr)
  14.   ENDIF
  15. ENDPROC
  16.