SHOW:
|
|
- or go back to the newest paste.
| 1 | const Constant1=123 | |
| 2 | ||
| 3 | type TestStruct as struct | |
| 4 | Value1 as integer | |
| 5 | Value2 as float | |
| 6 | Value3 as pointer to integer | |
| 7 | Value4 as pointer to void | |
| 8 | Value5 as array[10] of integer | |
| 9 | end | |
| 10 | ||
| 11 | TestStructAlias as TestStruct | |
| 12 | ||
| 13 | function test(Parameter0 as pointer to TestStruct,Parameter1 as float,Parameter2 as integer) as integer | |
| 14 | variable a as integer | |
| 15 | - | var a as integer |
| 15 | + | b as TestStructAlias |
| 16 | - | b as TestStructAlias |
| 16 | + | |
| 17 | a = 1 + Parameter2 | |
| 18 | b.Value2 = 2.0 | |
| 19 | b.Value3++ = @a | |
| 20 | b.Value3 = @a | |
| 21 | ||
| 22 | if a == b.Value3^ then | |
| 23 | a++ | |
| 24 | end else if a > 0 then | |
| 25 | end | |
| 26 | ||
| 27 | for a=0 to 10 do | |
| 28 | continue | |
| 29 | - | a-- |
| 29 | + | |
| 30 | ||
| 31 | for b=10 down to 0 do | |
| 32 | break | |
| 33 | - | a++ |
| 33 | + | |
| 34 | ||
| 35 | while a > 0 do | |
| 36 | a-- | |
| 37 | end | |
| 38 | ||
| 39 | label abc | |
| 40 | ||
| 41 | repeat | |
| 42 | a++ | |
| 43 | until a > 4 | |
| 44 | ||
| 45 | goto abc | |
| 46 | ||
| 47 | select a | |
| 48 | case 5 | |
| 49 | end | |
| 50 | case else | |
| 51 | end | |
| 52 | end | |
| 53 | ||
| 54 | end | |
| 55 | ||
| 56 | procedure test2 | |
| 57 | code | |
| 58 | end |