PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_01.PAK/DEMO3.DA_

INI File | 1996-02-08 | 1KB | 59 lines

[1]
@UpArea(80,80,330,370,7);
@DrawButton(90,320,200,360,12,998,'Losowe','');
@DrawButton(220,320,320,360,9,999,'Sinusoida','');
@DisableStatusBar;
@ShowScreen;
[100]
@CheckEvents;

[998]
@SetColors(0,15);
@DownArea(90,100,320,300,2);
@A := 290;
@B := 150;
[2]
@Random(110,290,%C);
@SetColors(15,15);
@Line(288,%B,296,%C);
@GetPart(112,101,310,299);
@PutPart(104,101);
@SetColors(2,15);
@Bar(289,101,296,299);
@B := %C;
@Delay(10);
@GetMousePosition;
@if (%y > 430) then goto:3;
@goto:2;
[3]
@EnableStatusBar;
@goto:100;

[procedure ResetK]
@K := 0;
@Return

[999]
@SetColors(0,15);
@ShowScreen;
@DownArea(90,100,320,300,7);
@A := 290;
@B := 150;
@Call:ResetK;
@SetColors(14,15);
[5]
@K := %K + 1;
@if (%K > 360*3) then call:ResetK;
@C := sin(%K/3)*90+200;
@Line(288,%B,296,%C);
@GetPart(112,101,310,299);
@PutPart(104,101);
@Clear(289,101,296,299);
@B := %C;
@Delay(10);
@GetMousePosition;
@if (%y > 430) then goto:6;
@goto:5;
[6]
;@EnableStatusBar;
@goto:100;