PROGRAM 0   116 BYTES

   REG1 = 1840
   REG3 = 00
0: LABEL 0
   REG2 = REG1
   WRITE @ REG2 = REG3
   REG8 = 10
   EXECUTE PROGRAM 1
   REG3 = REG3 INC
1: LABEL 1
   AUX-$1 = $3
   IF FF > REG3 GOTO 0
   REG3 = 00
2: LABEL 2
   REG1 = REG1 INC INC INC INC INC INC INC INC INC INC INC INC INC INC INC INC
   IF 1850 > REG1 GOTO 0
   WRITE @ REG2 = 00
   STOP

PROGRAM 1   21 BYTES

   REG1 = REG8
0: LABEL 0
   DEC REG1
   IF REG1 > 0 GOTO 0