blob: 6c5dc8931a050105819e0a06ca4a8fedd466ddc0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
TYPE Student
DECLARE Score : INTEGER
ENDTYPE
CLASS Box
PRIVATE Hidden : INTEGER
ENDCLASS
TYPE StudentPtr = ^Student
TYPE Season = (Spring, Summer)
CONSTANT Limit = 3
DECLARE Scores : ARRAY[1:2] OF INTEGER
DECLARE Item : Box
DECLARE Person : Student
DECLARE P : StudentPtr
DECLARE S : Season
DECLARE Text : C_STRING
INPUT Limit
INPUT Item.Hidden
INPUT Scores
INPUT Person
INPUT P
INPUT S
INPUT Text
|
