View difference between Paste ID: BK9rxfaU and Z7x58CzS
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