PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/demo_01.pak/DEMO6.DA_

Text File | 1996-02-08 | 390b | 23 lines

; rysowanie przewijanego wykresu przy uºyciu "przerwania wewnætrznego"

[1]
@DownArea(90,100,320,300,2);
@ShowScreen;
@A := 290;
@B := 150;
@DefIdleProc(200);
[100]
@CheckEvents;

[200]
@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);
@goto:100;