PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_03.PAK/SYMU_2T.DA_

INI File | 1996-02-08 | 5KB | 327 lines

[procedure Init]
@Reset;
@ClrScr;
@Return;

[1!]

@ClrScr;
@Reset;

@SetColors(0,0);
@Line(50,210,50,10);
@Line(45,15,50,10);
@Line(55,15,50,10);
@Line(45,30,50,30);
@Line(45,120,50,120);
@SetPosition(10,7);
@FastWrite('100%');
@SetPosition(15,117);
@FastWrite('50%');
@SetPosition(25,207);
@FastWrite('0%');
@Line(50,210,600,210);
@Line(590,205,600,210);
@Line(590,215,600,210);
@SetPosition(605,207);
@FastWrite('t');


@SetColors(0,0);
@SetPosition(60,271);
@FastWrite('Szeroko₧ì');
@SetPosition(75,281);
@FastWrite('pasma');
@SetPosition(75,291);
@FastWrite('[MHz]');

@SetPosition(490,271);
@FastWrite('Przesuniæcie');
@SetPosition(510,281);
@FastWrite('czasowe');
@SetPosition(524,291);
@FastWrite('[ns]');

@L:=0
@K:=6
@SetColors(8,15);
@DrawButton(40,300,70,320,5,500,'<','');
@SetColors(13,0);
@Bar(72,300,118,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%K);
@SetColors(8,15);
@DrawButton(120,300,150,320,5,501,'>','');

@DrawButton(480,300,510,320,5,502,'<','');
@SetColors(13,0);
@Bar(512,300,568,320);
@SetColors(0,0);
@WriteValue(512,300,568,320,0,1,%L);
@SetColors(8,15);
@DrawButton(570,300,600,320,5,503,'>','');

@DrawButton(270,300,370,320,5,504,'RYSOWANIE','');

@SetColors(0,0);
@A:=0;
@G:=210;
@Repeat:100;
@B:=%A/100;
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*180;
@Line(%A+250,%G,%A+251,210-%C);
@Line(%A+251,%G,%A+252,210-%C);
@G:=210-%C;
@A:=%A+1;
@Next;
@ShowScreen;
[2]
@CheckEvents;

[500]
@IF (%K=1) Then GoTo:2;
@K:=%K-0.5
@SetColors(13,0);
@Bar(73,300,117,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%K);
@GoTo:2

[501]
@IF (%K=6) Then GoTo:2;
@K:=%K+0.5
@SetColors(13,0);
@Bar(73,300,117,320);
@SetColors(0,0);
@WriteValue(72,300,118,320,0,1,%K);
@GoTo:2

[502]
@IF (%L=-115) Then GoTo:2;
@L:=%L-5
@SetColors(13,0);
@Bar(513,300,567,320);
@SetColors(0,0);
@WriteValue(512,300,568,320,0,1,%L);
@GoTo:2

[503]
@IF (%L=115) Then GoTo:2;
@L:=%L+5
@SetColors(13,0);
@Bar(513,300,567,320);
@SetColors(0,0);
@WriteValue(512,300,568,320,0,1,%L);
@GoTo:2

[504]
@Clear(51,29,580,250);
@SetColors(0,0);
@Line(50,210,600,210);
@IF (%K=6) Then GoTo:510;
@IF (%K=5.5) Then GoTo:510;
@IF (%K=5) THen GoTo:510;
@IF (%K=4.5) Then GoTo:511;
@IF (%K=4) Then GoTo:512;
@IF (%K=3.5) Then GoTo:513;
@IF (%K=3) Then GoTo:514;
@IF (%K=2.5) Then GoTo:515;
@IF (%K=2) Then GoTo:516;
@IF (%K=1.5) Then GoTo:517;
@IF (%K=1) Then GoTo:518;

[510]
@I:=1
@GoTo:521

[511]
@I:=0.97
@GoTo:521

[512]
@I:=0.93
@GoTo:521

[513]
@I:=0.87
@GoTo:521

[514]
@I:=0.82
@GoTo:521

[515]
@I:=0.74
@GoTo:521

[516]
@I:=0.62
@GoTo:521

[517]
@I:=0.5
@GoTo:521

[518]
@I:=0.35

[521]
@IF (%L=0) Then GoTo:550;
@IF (%L>0) Then GoTo:580;
@GoTo:530

[530]
@SetColors(0,0);
@H:=%L*13/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+68,%G,%A+69,210+%C);
@Line(%A+69,%G,%A+70,210+%C);
@G:=210+%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*17/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+111,%G,%A+112,210-%C);
@Line(%A+112,%G,%A+113,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*23/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+155,%G,%A+156,210+%C);
@Line(%A+156,%G,%A+157,210+%C);
@G:=210+%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*38/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+200,%G,%A+201,210-%C);
@Line(%A+201,%G,%A+202,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%I*180
@A:=0
@G:=210
@Repeat:100
@B:=%A/100
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+250,%G,%A+251,210-%C);
@Line(%A+251,%G,%A+252,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@GoTo:2



[550]
@SetColors(0,0);
@H:=%I*180
@A:=0
@G:=210
@Repeat:100
@B:=%A/100
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+250,%G,%A+251,210-%C);
@Line(%A+251,%G,%A+252,210-%C);
@G:=210-%C
@A:=%A+1
@Next
@GoTo:2

[580]
@SetColors(0,0);
@H:=%I*180
@A:=0
@G:=210
@Repeat:100
@B:=%A/100
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+250,%G,%A+251,210-%C);
@Line(%A+251,%G,%A+252,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*38/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+345,%G,%A+346,210+%C);
@Line(%A+346,%G,%A+347,210+%C);
@G:=210+%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*23/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+389,%G,%A+390,210-%C);
@Line(%A+390,%G,%A+391,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@SetColors(0,0);
@H:=%L*17/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+432,%G,%A+433,210+%C);
@Line(%A+433,%G,%A+434,210+%C);
@G:=210+%C
@A:=%A+1
@Next



@SetColors(0,0);
@H:=%L*13/250
@A:=0
@G:=210
@Repeat:50
@B:=%A/50
@C:=(sin(3.14159*%B))*(sin(3.14159*%B))*%H
@Line(%A+475,%G,%A+476,210-%C);
@Line(%A+476,%G,%A+477,210-%C);
@G:=210-%C
@A:=%A+1
@Next

@GoTo:2