PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_01.PAK/DEMO4.DA_

Text File | 1996-02-08 | 941b | 45 lines

; obsÆuga klawiatury i wy₧wietlanie znaków na ekranie

[1]
@A:=2;
@Repeat:7;
@DisableStatusButton(%A);
@A:=%A+1;
@Next;
@ShowScreen;
@SetPosition(20,20);
@DefKeyboardHandler(3);
@Interline(14);
[2]
@CheckEvents;

[3]
@if (%Z = $1C0D) then goto:4;
@if (%Z = $0E08) then goto:5;

; poniºsza komenda (<#%z>) spowoduje wy₧wietlenie znaku o kodzie
; zawartym w zmiennej %Z (podobne dziaÆanie ma polecenie
; WriteChar, które jednak wy₧wietla znak tylko czcionkå systemowå)
;
; Uwaga! Konstrukcja <#...> moºe byì fragmentem tekstu np.
;    Kod znaku ~<#%A>~ jest zawarty w zmiennej %A...
;
; Uwaga! Zamiast symbolu zmiennej moºna podaì bezpo₧rednio
; kod znaku np. <#32> (warto₧ì dziesiætna) lub <#$20> (warto₧ì heksadecymalna)
<#%z>

@GetParam;
@SetPosition(%C+8,%D-14);
@goto:2;

[4]
@GetParam;
@SetPosition(20,%D+14);
@goto:2;

[5]
@GetParam;
@Clear(%C-8,%D,%C,%D+14);
@SetPosition(%C-8,%D);
@goto:2;