-
-
Notifications
You must be signed in to change notification settings - Fork 85
/
plz.scroll
64 lines (55 loc) · 1.34 KB
/
plz.scroll
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
60
61
62
63
64
import ../code/conceptPage.scroll
id plz
name PLZ
appeared 1979
tags pl
conceptDescription PLZ/SYS is intended to aid the implementation of system programs for microcomputers. PLZ/SYS is a synthesis of concepts from contemporary programming languages and compilers--the language Pascal has had the most notable influence on the overall design and implementation of PLZ/SYS.
influencedBy pascal
centralPackageRepositoryCount 0
country United States
originCommunity Zilog, Inc
reference https://semanticscholar.org/paper/a6f73d43d666ff8763b9cc97ce408243c9b95038
example
bubble sort MODULE
CONSTANT
false : .. 0
true := 1
EXTERNAL
printarray PROCEDURE (first tWORD count BYTE)
INTERNAL
a ARRAY [10 WORD]
:= [33 10 2000 400 410
3 3 33 500 1999]
sort PROCEDURE (n BYTE)
LOCAL
i j limit BYTE
temp WORD
switched BYTE
ENTRY
DO
switched := false
i := 0
limit := n-2
DO
IF i > limit THEN EXIT FI
j := i + 1
IF a[i] > a[j] THEN
switched := true
temp :'" a [i)
a[i] := a[j]
a [j] : .. temp
FI
i +- 1
OD
IF switched .. false THEN RETURN FI
END sort
GLOBAL
main PROCEDURE
ENTRY
sort (10)
printarray(ta[O] 10)
END main
END bubble sort
booleanTokens true false
hasBooleans true
hopl https://hopl.info/showlanguage.prx?exp=865