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

Text File | 1996-02-08 | 736b | 59 lines

; obsÆuga tablicy zrealizowanej w module asemblerowym ARRAY.SYS

[1]
@ShowScreen;
@LoadCode('ARRAY.SYS');
@K:=0;
@J:=200;
@C:=1;
@Repeat:360;
@K := %K + 1;
@L := sin(%K/3)*90+200;
@A := %K;
@B := %L;
@ExecuteCode;
@Line(%I,%J,%K,%L);
@I := %K;
@J := %L;
@Next;
@CheckEvents;

[2]
@ClrScr;
@Delay(1000);
@K:=0;
@J:=200;
@C:=2;
@Repeat:360
@K := %K + 1;
@A := %K;
@ExecuteCode;
@L := %B;
@Line(%I,%J,%K,%L);
@I := %K;
@J := %L;
@Next;
@CheckEvents;

[3]
@ClrScr;
@Delay(1000);

; "wyzerowanie" tablicy
@C:=3;
@ExecuteCode;

@K:=0;
@J:=200;
@C:=2;
@Repeat:360
@K := %K + 1;
@A := %K;
@ExecuteCode;
@L := %B;
@Line(%I,%J,%K,%L);
@I := %K;
@J := %L;
@Next;
@RemoveCode;
@CheckEvents;