紫の波線

  〜yz / lib / winctl.f
 WINDOWSが必要です...〜yz / lib / winlib.f

 0 VALUE勝
 0 VALUE回
 0 VALUE hdc
 0 VALUE myrect
 0 VALUE mypen2
 22 VALUEドット
 0 VALUE fid
 CREATE 0d0a 0xD C、0xA C、 

作成*ドットドットCELLS 3 * ALLOT

 ：rndタイマー@ * 200 UMOD;

 ：rndxyドット2 * 0 DO rnd 2 * 25 + I CELL * *ドット+！  rnd 3 * 25 + I CELL * *ドット+ CELL +！ ループ;

 ：tre rndxy 
 S "X：" fid WRITE-FILE THROW 
 dots 2 * 0 DO I CELL * * dots + @ S> D（D.）fid WRITE-FILE THROW S S "" fid WRITE-FILE THROW LOOP
 0d0a 2 fid WRITE-FILE THROW

 S "Y：" fidファイル書き込みスロー
 dots 2 * 0 DO I CELL * * dots + CELL + @ S> D（D.）fid WRITE-FILE THROW S "" fid WRITE-FILE THROW LOOP
 0d0a 2 fid WRITE-FILE THROW
 0d0a 2 fid WRITE-FILE THROW

  ;
 
  rndxy
 
 WINAPI：CreatePen GDI32.dll
 WINAPI：PolyBezier GDI32.dll


 PROC：ペイント
   mypen2 windc SelectObject DROP
  ドット*ドットwindc PolyBezier DROP
   rndxy
 PROC

メッセージ：私

 M：wm_lbuttondblclk
     rndxy 
     winhideに勝つ
     winshowに勝つ 
   TRUE
 M;
メッセージ;

 ：実行 
   WINDOWS ...
 S "warps.txt" R / W fidへのファイル作成スロー

 0x00F00599 2 0 CreatePen TO mypen2

 0作成ウィンドウが勝つ
  winmainに勝つ
 ベジエシュキが勝利-text！
 420 430 0ボタンの場所 
これをmyrect
 10 10 myrect ctlresize
   ['] tre myrect -command！

 120130勝つwinmove
 500 500勝利winresize
   ペイント勝利-ペインター！
  私の勝利-wndproc！
 winshowに勝つ

 ... WINDOWS
 fidクローズファイルスロー
さようなら
 ;

 TRUE TO？GUI
 'MAINXを実行します！
 S "warpy.exe" SAVE
走る