PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_08.PAK/ANIMA5.DA_

Text File | 1996-02-08 | 637b | 39 lines

; Animacja numer 5 - animowanie peÆnoekranowe
; Wersja 1.0
; Wykonanie #PWR

[1!]
@ClrScr;
@Reset;
@ShowScreen;
@DisableStatusBar;
@DefKeyboardHandler(200);
@SaveScreen;
@MessageBox('Jak zakoñczyì?','klawiszem [ESC]');
@DefIdleProc(6);
; Zdefiniowanie opóªnienia czasowego
@D:=50

[6]
@Delay(%D);
@ShowPCX('uman01.pcx');
@Delay(%D);
@ShowPCX('uman02.pcx');
@Delay(%D);
@ShowPCX('uman03.pcx');
@Delay(%D);
@ShowPCX('uman04.pcx');
@Delay(%D);
@ShowPCX('uman05.pcx');
@GoTo:100

[100]
@CheckEvents;

[200]
@IF (%Z = $011B) then begin
@RestoreScreen;
@ReplaceProgram('shell.dat',1);
@end;
@CheckEvents;