BYTE RT = 20

PROC MAIN()
 CARD A, B, C

 A=0
 B=0
 C=0

 RT=0
 WHILE RT<100
 DO
  B==+1
  C=B
  C==+1
  B=C
  A==+1
 OD
 PRINTF("%U%E",A)
RETURN