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

Text File | 1996-02-08 | 882b | 53 lines

; Symulacja

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

[1]
@Reset;
@ClrScr;
@SetColors(1,1);
@SetPosition(40,35);
   ZASADA PRACY WZMACNIACZA PRZECIWSOBNEGO PRACUJÅCEGO W KLASIE "B"
@SetColors(4,4);
@SetPosition(20,150);
@FastWrite('Wybierz poÆówkæ');
@SetPosition(20,160);
@FastWrite('przebiegu');
@SetPosition(20,170);
@FastWrite('sterujåcego');
@Call:Rysuj;
@ShowScreen;
@CheckEvents;

[2]
@Call:Rysuj;
@ShowBlock(1);
@ShowBlock(7);
@ShowBlock(3);
@ShowBlock(9);
@ShowBlock(5);
@ShowBlock(11);
[100]
@GetMousePosition;
@if (%Z <> 0) then goto:100;
@CheckEvents;

[4]
@Call:Rysuj;
@ShowBlock(2);
@ShowBlock(8);
@ShowBlock(4);
@ShowBlock(10);
@ShowBlock(6);
@ShowBlock(12);
[101]
@GetMousePosition;
@if (%Z <> 0) then goto:101;
@CheckEvents;