žž2(X;SUBROUTINE PLACEMAN:THIS SUBROUTINE2%X;ADDS ANOTHER MAN TO CURRENT ARMYd"X;BUT ONLY IF # OF MEN IS < 10.–$X; THE NEW MAN IS PLACED IN FRONTČX;OF A CASTLE.ÉX;ś3ˆPLACEMANQˆTEMPCHAR;;LOAD POINTER TO MAN DRAWING,R>;;IS MAN A TROLL^)F…LOADT;;IF YES THEN TEST TO ADD TROLLR>;;IS MAN A WIZARDĀ"F…LOADW;;IF YES TEST TO ADD WIZō:&X;X!X; LOADT:ADDS ANOTHER TROLL IFŠ$X;THE CHARACTER POINTER IS ON THE¼X;THE LETTER "T".½X;ī$…LOADTQ…TEMP1;;IS CHAR POINTER R>Z;;ON THE LETTER "T"RH†LTEXIT;;IF NOT THEN EXIT„ Q…TROL0;;IS SPACE IN FRONT¶"H†LTEXIT;;OF TROLL CASTLE EMPTYč.Q…TEMP1;;COUNTER OF # OF TROLLS ON BOARDR> ;;IF 10 TROLLS THEN EXITL F†LTEXIT~(#…TEMP1;;ELSE ADD 1 TO # OF TROLLS°#Q>;;LEFT HALF OF TROLL DRAWINGā"P…TROL0;;POS IN FRONT OF CASTLEQ>;;RIGHT HALF OF TROLLF P…TROL0x †LTEXIT:yX;z!X;LOADW:ADDS ANOTHER WIZARD IF{ X;THE CHARACTER POINTER IS ON|X;THE LETTER "W".}X;Ŗ$…LOADWQ…TEMP1;;IS CHAR POINTERÜR>\;;ON LETTER "W"H†WTEXIT;;IF NOT THEN EXIT@Q†WIZRDS;;IS SPACE IN FRONTr H†WTEXIT;;OF WIZ CASTLE EMPTY¤Q…TEMP1;;IF # OF WIZÖR> ;;ON BOARD =10 THENF†WTEXIT;;EXIT:)#…TEMP1;;ELSE ADD 1 TO # OF WIZARDSl$Q>;;LEFT HALF OF WIZARD DRAWINGž#P†WIZRDS;;POS IN FRONT OF CASTLEŠQ>;;RIGHT HALF OF WIZARDP†WIZRDS4 †WTEXIT: