53897.0.txt

@0
MOV RIGHT DOWN

@1
MOV UP ACC
MOV ACC LEFT
SUB 18
NEG

SWP
MOV ACC RIGHT
ADD 1
SWP
MOV ACC RIGHT

MOV 1 DOWN

@2
MOV LEFT DOWN

@3
## EXPOSURE MASK

# THIS IS A
# MODIFIED VERSION
# OF EXPOSURE MASK
# VIEWER. IT DRAWS
# 1 WIDE AND IN
# TALL RECTANGLES.

# NOT VERY
# EFFICIENT...

@4
   MOV UP ACC
#  SUB 1
L: MOV -4 RIGHT
   SUB 1
   JNZ L
   MOV 1 RIGHT

@5
  MOV UP ACC
  ADD 1
  NEG
  MOV -5 RIGHT

  # SYNC
  MOV RIGHT NIL

  MOV ACC DOWN
  MOV DOWN NIL
  JRO LEFT
  MOV 1 RIGHT

@6
   MOV UP ACC
   MOV UP RIGHT
   JMP E
   MOV -2 RIGHT
   MOV -1 DOWN
   MOV ACC DOWN
   MOV RIGHT DOWN

   # SYNC
   MOV -999 LEFT

E: JRO LEFT
   MOV -4 RIGHT

@7
   MOV LEFT ACC
   JMP E
   MOV ACC LEFT
   ADD 1
E: JRO LEFT

@8
   JMP E
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 3 RIGHT
   MOV 0 UP
E: JRO UP

@9
MOV ANY DOWN

@10