14 lines
361 B
Text
14 lines
361 B
Text
PRINT "Police Sanitation Fire"
|
|
PRINT "------|----------|----"
|
|
10 LET P = P + 2
|
|
LET S = 0
|
|
20 LET S = S + 1
|
|
LET F = 0
|
|
IF S = P THEN GOTO 20
|
|
30 LET F = F + 1
|
|
IF S = F THEN GOTO 30
|
|
IF F = P THEN GOTO 30
|
|
IF P + S + F = 12 THEN PRINT " ",P," ", S," ", F
|
|
IF F < 7 THEN GOTO 30
|
|
IF S < 7 THEN GOTO 20
|
|
IF P < 6 THEN GOTO 10
|