100 SYS 700 ;PAL 64
110 .OPT OO
120 ; "ENEPNT"
130 ; THIS ROUTINE CAN BE USED TO
140 ; SHOW A PLAYER'S ENERGY LEVEL
150 ;
160 ENEPNT =*
170 LDA ENERGY
180 STA ECOUNT
190 EPLOOP =*
200 LDA ECOUNT
210 SEC
220 SBC #8
230 BCC PNTPAR
240 STA ECOUNT
250 LDA #<SBOX
260 LDY #>SBOX
270 JSR $AB1E; PRINT A SOLID SQUARE
280 JMP EPLOOP
290 PNTPAR =*
300 LDA ECOUNT
310 BEQ ENPNT ;DONE PRINTING
320 ASL: TAX  ;INDEX INTO TABLE
330 LDA PNTAB+1,X
340 TAY
350 LDA PNTAB,X
360 JSR $AB1E ;PRINT BAR CHAR
370 ;
380 ENPNT =*
410 RTS
420 ;
430 ENERGY .BYTE 21 ;PLAYER ENERGY
440 ECOUNT .BYTE 0
450 SBOX .ASC " [146]":.BYTE 0
460 PNTE1 .ASC "[165]":.BYTE 0
470 PNTE2 .ASC "[181]":.BYTE 0
480 PNTE3 .ASC "[161]":.BYTE 0
490 PNTE4 .ASC "[161]":.BYTE 0
500 PNTE5 .ASC "[182][146]":.BYTE 0
510 PNTE6 .ASC "[170][146]":.BYTE 0
520 PNTE7 .ASC "[167][146]":.BYTE 0
530 ;
540 PNTAB .WORD 0, PNTE1, PNTE2, PNTE3
550 .WORD PNTE4, PNTE5, PNTE6, PNTE7