-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathnormal10.ts
More file actions
59 lines (59 loc) · 1.04 KB
/
normal10.ts
File metadata and controls
59 lines (59 loc) · 1.04 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
program SPROGRAM 17 1
testBasic SIDENTIFIER 43 1
; SSEMICOLON 37 1
var SVAR 21 2
i SIDENTIFIER 43 2
: SCOLON 38 2
integer SINTEGER 11 2
; SSEMICOLON 37 2
c SIDENTIFIER 43 3
: SCOLON 38 3
char SCHAR 4 3
; SSEMICOLON 37 3
procedure SPROCEDURE 16 5
subproc SIDENTIFIER 43 5
( SLPAREN 33 5
x SIDENTIFIER 43 5
: SCOLON 38 5
integer SINTEGER 11 5
) SRPAREN 34 5
; SSEMICOLON 37 5
var SVAR 21 6
c SIDENTIFIER 43 6
: SCOLON 38 6
char SCHAR 4 6
; SSEMICOLON 37 6
begin SBEGIN 2 7
c SIDENTIFIER 43 8
:= SASSIGN 40 8
's' SSTRING 45 8
; SSEMICOLON 37 8
writeln SWRITELN 23 9
( SLPAREN 33 9
c SIDENTIFIER 43 9
) SRPAREN 34 9
; SSEMICOLON 37 9
writeln SWRITELN 23 10
( SLPAREN 33 10
x SIDENTIFIER 43 10
) SRPAREN 34 10
; SSEMICOLON 37 10
end SEND 8 11
; SSEMICOLON 37 11
begin SBEGIN 2 13
c SIDENTIFIER 43 14
:= SASSIGN 40 14
'm' SSTRING 45 14
; SSEMICOLON 37 14
subproc SIDENTIFIER 43 15
( SLPAREN 33 15
99 SCONSTANT 44 15
) SRPAREN 34 15
; SSEMICOLON 37 15
writeln SWRITELN 23 16
( SLPAREN 33 16
c SIDENTIFIER 43 16
) SRPAREN 34 16
; SSEMICOLON 37 16
end SEND 8 17
. SDOT 42 17