PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_02.PAK/SYMUL1.DA_

Text File | 1996-02-08 | 1KB | 58 lines

; Symulacja

[procedure Rysuj]
@SetColors(0,15);
@SetPosition(-10,80);
@Picture('SYMUL1.CGV');
@AssignField(1,2);
@AssignField(2,3);
@Return;

[1]
@Reset;
@ClrScr;
@SetColors(1,1);
@SetPosition(40,40);
        ZASADA DZIA£ANIA KOMPLEMENTARNEGO WZMACNIACZA MOCY
@SetColors(4,4);
@SetPosition(50,110);
@FastWrite('Wybierz poÆówkæ');
@SetPosition(50,120);
@FastWrite('przebiegu');
@SetPosition(50,130);
@FastWrite('sterujåcego');
@Call:Rysuj;
@ShowScreen;
@CheckEvents;

[2]
@Call:Rysuj;
@ShowBlock(1);
@ShowBlock(3);
@ShowBlock(4);
@ShowBlock(5);
@ShowBlock(8);
@ShowBlock(10);
@ShowBlock(11);
@ShowBlock(12);
; oczekiwanie na puszczenie przycisku myszy
[100]
@GetMousePosition;
@if (%Z <> 0) then goto:100;
@CheckEvents;

[3]
@Call:Rysuj;
@ShowBlock(2);
@ShowBlock(3);
@ShowBlock(4);
@ShowBlock(6);
@ShowBlock(7);
@ShowBlock(10);
@ShowBlock(11);
@ShowBlock(13);
; oczekiwanie na puszczenie przycisku myszy
[101]
@GetMousePosition;
@if (%Z <> 0) then goto:101;
@CheckEvents;