10 lines
438 B
Text
10 lines
438 B
Text
NORMAL MODE IS INTEGER
|
|
PRINT COMMENT $ POLICE SANITATION FIRE$
|
|
THROUGH LOOP, FOR P=2, 2, P.G.7
|
|
THROUGH LOOP, FOR S=1, 1, S.G.7
|
|
THROUGH LOOP, FOR F=1, 1, F.G.7
|
|
WHENEVER P.E.S .OR. P.E.F .OR. S.E.F, TRANSFER TO LOOP
|
|
WHENEVER P+S+F .E. 12, PRINT FORMAT OCC, P, S, F
|
|
LOOP CONTINUE
|
|
VECTOR VALUES OCC = $I6,S2,I10,S2,I4*$
|
|
END OF PROGRAM
|