home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / NewWindow.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  431 b   |  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.