PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_06.PAK/KEYBOARD.DA_

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

[1]
@DefKeyboardHandler(100);
@DisableStatusBar;
@SetColors(1,1);
@Bar(0,0,639,479);
@SetColors(3,3);
@Bar(51,80,601,277);
@SetColors(8,15);
@DrawButton(20,399,80,459,7,0,'KONIEC.RBM','Zakoñczenie');
@DownArea(300,350,600,450,7);
@SetColors(15,15);
@SetPosition(303,341);
@Picture('INFO.CGV');
@SetColors(0,15);
@SetPosition(20,50);
@Picture('KEYBOARD.CGV');
@SetColors(0,11);
@ReverseArea(70,105,170,135);
@SetColors(0,12);
@ReverseArea(180,105,350,135);
@SetColors(0,15);
@d:=0;
@Repeat:12;
@d:=%d+1;
@AssignField(%d,%d+49);
@Next;
@a:=0;
@b:=1;
@Repeat:21;
@a:=%a+25;
@b:=%b+1;
@DrawButton(40+%a,200,62+%a,280,7,%b,'','');
@Next;
@ShowScreen;
@CheckEvents;

[2..22]
@GetCurrentPage(%c);
@Sound(%c*60,100);
@CheckEvents;

[50]
@PlayVOC('boyohboy',16000);
@CheckEvents;

[51]
@PlayVOC('accessed',16000);
@CheckEvents;

[52]
@PlayVOC('acknowlg',16000);
@CheckEvents;

[53]
@PlayVOC('affirmtv',16000);
@CheckEvents;

[54]
@PlayVOC('anything',16000);
@CheckEvents;

[55]
@PlayVOC('goaway',16000);
@CheckEvents;

[56]
@PlayVOC('comply',16000);
@CheckEvents;

[57]
@PlayVOC('denied',16000);
@CheckEvents;

[58]
@PlayVOC('foghorn',16000);
@CheckEvents;

[59]
@PlayVOC('friends',16000);
@CheckEvents;

[60]
@PlayVOC('interest',16000);
@CheckEvents;

[61]
@PlayVOC('havefun',16000);
@CheckEvents;

[100]
@if (%Z = $011B) then goto:0;
@CheckEvents;