SELECT./Hello World
Jump to navigation
Jump to search
The first "Hello World!" program written in SELECT. It is by no means the shortest or most elegant such program possible, but merely the easiest to write. In fact, it is extraordinarily wasteful in all ways that a program can be wasteful. Generated by SELECT. Code Generator v0.3 by User:Quintopia.
(65,17,1)
DRAW STRING LITERAL "Hello World!'
DRAW LETTER "H" AT (-30,-6)
MAKE -29+-4I:
MAKE 4:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+-4I
PRINT. RIGHT.
MAKE -29+-3I:
MAKE 3:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+-3I
PRINT. RIGHT.
MAKE -29+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+-2I
PRINT. RIGHT.
MAKE -29+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+-1I
PRINT. RIGHT.
MAKE -29:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29
PRINT. RIGHT.
MAKE -29+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+1I
PRINT. RIGHT.
MAKE -29+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -29+2I
PRINT. RIGHT.
MAKE -28+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -28+-1I
PRINT. RIGHT.
MAKE -27+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -27+-1I
PRINT. RIGHT.
MAKE -26+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+-1I
PRINT. RIGHT.
MAKE -26:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26
PRINT. RIGHT.
MAKE -26+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+1I
PRINT. RIGHT.
MAKE -26+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+2I
PRINT. RIGHT.
MAKE -26+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+-2I
PRINT. RIGHT.
MAKE -26+-3I:
MAKE 3:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+-3I
PRINT. RIGHT.
MAKE -26+-4I:
MAKE 4:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -26+-4I
PRINT. RIGHT.
END DRAW LETTER "H"
DRAW LETTER "e" AT (-25,-6)
MAKE -23+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -23+-2I
PRINT. RIGHT.
MAKE -22+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -22+-2I
PRINT. RIGHT.
MAKE -24+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -24+-1I
PRINT. RIGHT.
MAKE -21+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -21+-1I
PRINT. RIGHT.
MAKE -24:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -24
PRINT. RIGHT.
MAKE -23:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -23
PRINT. RIGHT.
MAKE -22:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -22
PRINT. RIGHT.
MAKE -21:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -21
PRINT. RIGHT.
MAKE -24+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -24+1I
PRINT. RIGHT.
MAKE -23+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -23+2I
PRINT. RIGHT.
MAKE -22+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -22+2I
PRINT. RIGHT.
MAKE -21+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -21+2I
PRINT. RIGHT.
END DRAW LETTER "e"
DRAW LETTER "l" AT (-20,-6)
MAKE -20+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -20+-5I
PRINT. RIGHT.
MAKE -19+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -19+-5I
PRINT. RIGHT.
MAKE -18+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+-5I
PRINT. RIGHT.
MAKE -18+-4I:
MAKE 4:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+-4I
PRINT. RIGHT.
MAKE -18+-3I:
MAKE 3:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+-3I
PRINT. RIGHT.
MAKE -18+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+-2I
PRINT. RIGHT.
MAKE -18+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+-1I
PRINT. RIGHT.
MAKE -18:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18
PRINT. RIGHT.
MAKE -18+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -18+1I
PRINT. RIGHT.
MAKE -17+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -17+2I
PRINT. RIGHT.
MAKE -16+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -16+2I
PRINT. RIGHT.
END DRAW LETTER "l"
DRAW LETTER "l" AT (-15,-6)
MAKE -15+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -15+-5I
PRINT. RIGHT.
MAKE -14+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -14+-5I
PRINT. RIGHT.
MAKE -13+-5I:
MAKE 5:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+-5I
PRINT. RIGHT.
MAKE -13+-4I:
MAKE 4:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+-4I
PRINT. RIGHT.
MAKE -13+-3I:
MAKE 3:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+-3I
PRINT. RIGHT.
MAKE -13+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+-2I
PRINT. RIGHT.
MAKE -13+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+-1I
PRINT. RIGHT.
MAKE -13:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13
PRINT. RIGHT.
MAKE -13+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -13+1I
PRINT. RIGHT.
MAKE -12+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -12+2I
PRINT. RIGHT.
MAKE -11+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -11+2I
PRINT. RIGHT.
END DRAW LETTER "l"
DRAW LETTER "o" AT (-10,-6)
MAKE -8+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -8+-2I
PRINT. RIGHT.
MAKE -7+-2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -7+-2I
PRINT. RIGHT.
MAKE -9+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -9+-1I
PRINT. RIGHT.
MAKE -9:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -9
PRINT. RIGHT.
MAKE -9+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -9+1I
PRINT. RIGHT.
MAKE -8+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -8+2I
PRINT. RIGHT.
MAKE -7+2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -7+2I
PRINT. RIGHT.
MAKE -6+-1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -6+-1I
PRINT. RIGHT.
MAKE -6:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -6
PRINT. RIGHT.
MAKE -6+1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT.
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. LEFT. SELECT.
RIGHT. RIGHT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT.
END MAKE -6+1I
PRINT. RIGHT.
END DRAW LETTER "o"
DRAW LETTER "W" AT (0,-6)
MAKE -4I:
MAKE -4:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. LEFT. LOG. RIGHT. SELECT.
LEFT.
PRINT. RIGHT.
MAKE -3I:
MAKE -3:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. LEFT. LOG. RIGHT. SELECT.
LEFT.
PRINT. RIGHT.
MAKE -2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. LEFT. LOG. RIGHT. SELECT.
LEFT.
PRINT. RIGHT.
MAKE 1+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 1+-2I
PRINT. RIGHT.
MAKE 1+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 1+-1I
PRINT. RIGHT.
MAKE 1:
LOG. SELECT.
PRINT. RIGHT.
MAKE 1+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 1+1I
PRINT. RIGHT.
MAKE 1+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 1+2I
PRINT. RIGHT.
MAKE 2+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 2+-2I
PRINT. RIGHT.
MAKE 2+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 2+-1I
PRINT. RIGHT.
MAKE 3+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 3+-2I
PRINT. RIGHT.
MAKE 3+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 3+-1I
PRINT. RIGHT.
MAKE 3:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 3
PRINT. RIGHT.
MAKE 3+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 3+1I
PRINT. RIGHT.
MAKE 3+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 3+2I
PRINT. RIGHT.
MAKE 4+-4I:
MAKE -4:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 4+-4I
PRINT. RIGHT.
MAKE 4+-3I:
MAKE -3:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 4+-3I
PRINT. RIGHT.
MAKE 4+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 4+-2I
PRINT. RIGHT.
END DRAW LETTER "W"
DRAW LETTER "o" AT (5,-6)
MAKE 7+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 7+-2I
PRINT. RIGHT.
MAKE 8+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 8+-2I
PRINT. RIGHT.
MAKE 6+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 6+-1I
PRINT. RIGHT.
MAKE 6:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 6
PRINT. RIGHT.
MAKE 6+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 6+1I
PRINT. RIGHT.
MAKE 7+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 7+2I
PRINT. RIGHT.
MAKE 8+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 8+2I
PRINT. RIGHT.
MAKE 9+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 9+-1I
PRINT. RIGHT.
MAKE 9:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 9
PRINT. RIGHT.
MAKE 9+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 9+1I
PRINT. RIGHT.
END DRAW LETTER "o"
DRAW LETTER "r" AT (10,-6)
MAKE 12+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 12+-2I
PRINT. RIGHT.
MAKE 13+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 13+-2I
PRINT. RIGHT.
MAKE 14+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 14+-2I
PRINT. RIGHT.
MAKE 12+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 12+-1I
PRINT. RIGHT.
MAKE 12:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 12
PRINT. RIGHT.
MAKE 12+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 12+1I
PRINT. RIGHT.
MAKE 12+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 12+2I
PRINT. RIGHT.
END DRAW LETTER "r"
DRAW LETTER "l" AT (15,-6)
MAKE 15+-5I:
MAKE -5:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 15+-5I
PRINT. RIGHT.
MAKE 16+-5I:
MAKE -5:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 16+-5I
PRINT. RIGHT.
MAKE 17+-5I:
MAKE -5:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+-5I
PRINT. RIGHT.
MAKE 17+-4I:
MAKE -4:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+-4I
PRINT. RIGHT.
MAKE 17+-3I:
MAKE -3:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+-3I
PRINT. RIGHT.
MAKE 17+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+-2I
PRINT. RIGHT.
MAKE 17+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+-1I
PRINT. RIGHT.
MAKE 17:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17
PRINT. RIGHT.
MAKE 17+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 17+1I
PRINT. RIGHT.
MAKE 18+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 18+2I
PRINT. RIGHT.
MAKE 19+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 19+2I
PRINT. RIGHT.
END DRAW LETTER "l"
DRAW LETTER "d" AT (20,-6)
MAKE 24+-5I:
MAKE -5:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -5
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+-5I
PRINT. RIGHT.
MAKE 24+-4I:
MAKE -4:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+-4I
PRINT. RIGHT.
MAKE 24+-3I:
MAKE -3:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+-3I
PRINT. RIGHT.
MAKE 24+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+-2I
PRINT. RIGHT.
MAKE 24+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+-1I
PRINT. RIGHT.
MAKE 24:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24
PRINT. RIGHT.
MAKE 24+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+1I
PRINT. RIGHT.
MAKE 24+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 24+2I
PRINT. RIGHT.
MAKE 23+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 23+-2I
PRINT. RIGHT.
MAKE 23+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 23+2I
PRINT. RIGHT.
MAKE 22+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 22+-2I
PRINT. RIGHT.
MAKE 22+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 22+2I
PRINT. RIGHT.
MAKE 21+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 21+-1I
PRINT. RIGHT.
MAKE 21:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 21
PRINT. RIGHT.
MAKE 21+1I:
MAKE 1:
LOG. SELECT.
RIGHT.
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 21+1I
PRINT. RIGHT.
END DRAW LETTER "d"
DRAW LETTER "!" AT (25,-6)
MAKE 28+-4I:
MAKE -4:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -4
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28+-4I
PRINT. RIGHT.
MAKE 28+-3I:
MAKE -3:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -3
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28+-3I
PRINT. RIGHT.
MAKE 28+-2I:
MAKE -2:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
COMBINE SIGN
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
END MAKE -2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28+-2I
PRINT. RIGHT.
MAKE 28+-1I:
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
END MAKE -1
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28+-1I
PRINT. RIGHT.
MAKE 28:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28
PRINT. RIGHT.
MAKE 28+2I:
MAKE 2:
EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
END MAKE 2
MAKE I:
MAKE 1/2:
RIGHT. EXP. SELECT.
EXP. LEFT. SELECT.
RIGHT. LOG. LEFT. SELECT.
LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
END MAKE 1/2
RIGHT.
MAKE -1:
MAKE 1/K:
RIGHT. EXP. SELECT.
LEFT. LOG. RIGHT. SELECT.
EXP. LEFT. SELECT.
MARK AS makenumsign
LOG. RIGHT. SELECT.
END MAKE 1/K
LEFT.
END MAKE -1
EXP. LEFT. SELECT.
RIGHT.
END MAKE I
RIGHT. EXP. LEFT. SELECT.
RIGHT. EXP. LEFT. LEFT. LEFT. SELECT.
RIGHT. RIGHT. RIGHT.
MARK AS makenumimagpart
RIGHT. EXP. SELECT.
EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT. EXP. RIGHT. SELECT.
LEFT.
COMBINE IMAGINARY PART
EXP. LEFT. SELECT.
RIGHT. LOG. RIGHT. SELECT.
LEFT. LOG. RIGHT. SELECT.
LEFT.
END MAKE 28+2I
PRINT. RIGHT.
END DRAW LETTER "!"
END DRAW STRING LITERAL "Hello World!'
######GENERATION CODE######
init(65,17,1)
drawString("Hello World!",-30,-6)
writetofile("helloworld")