100 SYS 700 ;PAL 64
110 .OPT OO
120 ; "PRHMEN"
130 ;THIS ROUTINE PRINTS THE PLAYER'S
140 ;MEN BUT COULD BE USED TO REPRESENT
150 ;ENERGY LEVELS, STRENGTH, ETC
160 ;
170 PNHMEN =*
180 LDA #<PRNMEN
190 LDY #>PRNMEN
200 JSR $AB1E ;PRINT IT
210 ;
220 LDX PMEN  ;GET NUMBER OF MEN
230 LDA #"[209]"  ;THIS CHAR REPRESENTS MEN
240 MENLOP =*
250 JSR $FFD2 ;PRINT IT
260 DEX       ;HAVE WE PRINTED THEM ALL
270 BNE MENLOP
280 RTS
290 PMEN   .BYTE 5
300 PRNMEN .ASC "MEN: "
310 .BYTE 0