| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161 |
- <WinDemo
- {WinDemo$CheckScrollLock
- }
- {WinDemo$SetC
- cc 8 #8BE
- bwc 6 #8BE
- (8BE 1 Black,Blue,Green,Cyan,Red,Magenta,Brown,LightGray,DarkGray,LightBlue,LightGreen,LightCyan,LightRed,LightMagenta,Yellow,White)
- }
- {WinDemo$Intro
- {WinDemo@IntroText
- }
- change -D6 B1
- exit -D5 B1
- delay -D4 C2
- DescWin -D2 P #11F4
- [11F4 50
- Guard 0 C2
- Next 2 P #11F4
- CursorChain 6 P #11F4
- WDef A #A2B
- XA 23 C2
- YA 25 C2
- XB 27 C2
- YB 29 C2
- OWidth 2B C2
- ODepth 2D C2
- Width 2F C2
- Depth 31 C2
- Title 33 P A50 C2[0..4F] L1
- TMode 37 #A35
- CurrentX 38 C2
- CurrentY 3A C2
- IsPalette 3C B1
- PalAttr 3D AA C1[0..9] C1
- CurPalColor 47 C1[0..9]
- Buffer 48 P AFA0 C2[0..7CF] C2
- UserRecord 4C P C2
- ]
- (A35 1 NoTitle,LeftUpperTitle,CenterUpperTitle,RightUpperTitle,LeftLowerTitle,CenterLowerTitle,RightLowerTitle)
- [A2B 19
- X1 0 C2
- Y1 2 C2
- X2 4 C2
- Y2 6 C2
- Foreground 8 #8BE
- Background 9 #8BE
- CursorOn A B1
- WrapOn B B1
- Hidden C B1
- FrameOn D B1
- FrameDef E A9 C2[0..8] L1
- FrameFore 17 #8BE
- FrameBack 18 #8BE
- ]
- up -CE B1
- b -CD B1
- num -CC A7 C2[0..6] L1
- wn -C5 C2
- j -C3 C2
- i -C1 C2
- Win -BF A78 C2[0..1D] P #11F4
- title -47 A28 C2[0..27] L1
- w -1F P #11F4
- WD -1B #A2B
- }
- {WinDemo$RandPalette
- p 6 V A14 C1[0..9] #F4B
- [F4B 2
- Fore 0 #8BE
- Back 1 #8BE
- ]
- i -3 C1
- }
- {WinDemo$Rmove
- W 6 P #11F4
- ny -E C2
- nx -C C2
- iy -A C2
- ix -8 C2
- dy1 -6 C2
- dx1 -4 C2
- }
- {WinDemo$RChangeSize
- W 6 P #11F4
- ny -6 C2
- nx -4 C2
- }
- {WinDemo$P1
- b -24 B1
- i -23 C2
- S -21 A1F C2[0..1E] L1
- }
- {WinDemo$P2
- {WinDemo@DrawBar
- x A C2
- y 8 C2
- val 6 C2
- on 4 B1
- }
- WD -31 #A2B
- V -18 A12 C2[1..9] C2
- j -6 C2
- i -4 C2
- }
- {WinDemo$P3
- CH -9 L1
- D -8 C2
- Y -6 C2
- X -4 C2
- }
- {WinDemo$P4
- i -4 C2
- }
- {WinDemo$P5
- }
- {WinDemo$P6
- }
- {WinDemo$P7
- }
- {WinDemo$P8
- }
- {WinDemo$P9
- }
- {WinDemo$Demo
- WD -1B #A2B
- }
- {WinDemo$CheckBW
- R -16 #536
- [536 14
- AL 0 C1
- AH 1 C1
- BL 2 C1
- BH 3 C1
- CL 4 C1
- CH 5 C1
- DL 6 C1
- DH 7 C1
- AX 0 C2
- BX 2 C2
- CX 4 C2
- DX 6 C2
- BP 8 C2
- SI A C2
- DI C C2
- DS E C2
- ES 10 C2
- Flags 12 S2 C2[0..F]
- ]
- }
- WinDemo@pal A14 C1[0..9] #F4B
- WinDemo@Initialize B1
- WinDemo@DS
- WinDemo@W4 P #11F4
- WinDemo@W3 P #11F4
- WinDemo@W2 P #11F4
- WinDemo@W1 P #11F4
- KeyFlags -17 S1 #2AA4
- (2AA4 1 RShift,LShift,Ctrl,Alt,Scroll,Num,Cap,Ins)
- WinDemo@IsBW B1
- >
|
