blob: 92967b70403ca4dc534e9a7c3f2a212cb9b30fe8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
TYPE NativeLong = C_TYPE("long")
TYPE NativeChar = C_TYPE("char")
TYPE Byte = C_TYPE("unsigned char")
TYPE Word = C_TYPE("unsigned int")
DECLARE Count : INTEGER
DECLARE Index : INTEGER
DECLARE A : INTEGER
DECLARE B : INTEGER
DECLARE L : NativeLong
DECLARE C : NativeChar
DECLARE U : Byte
DECLARE W : Word
INPUT Count
FOR Index <- 1 TO Count
INPUT A
INPUT B
L <- (NativeLong) A
C <- (NativeChar) B
U <- (Byte) B
W <- (Word) A
OUTPUT L, ":", (INTEGER) C, ":", U + (Byte) 1, ":", W + (Word) 1
NEXT Index
|
