100 SYS 700 ;PAL 64
110 .OPT OO
120 ; "ENVPNT"
130 ; DISPLAYS A VERTICAL
140 ; BAR GRAPH OF THE VALUE
150 ; IN "ECOUNT"
160 ;
170 ENVPNT =*
180 ;PRINTS 'ENERGY LEVEL' VERTICALLY
190 LDA ENERGY
200 STA ECOUNT
210 EPLOOP =*
220 LDA ECOUNT
230 SEC
240 SBC #8
250 BCC PNTPAR
260 STA ECOUNT
270 LDA #<SBOX
280 LDY #>SBOX
290 JSR $AB1E; PRINT A SOLID SQUARE
300 JMP EPLOOP
310 PNTPAR =*
320 ; PRINT APPROPRIATE CHARACTER
330 LDA ECOUNT
340 BEQ ENPTE
350 ASL: TAX ;INDEX INTO TABLE
360 LDA PNVTAB+1,X
370 TAY
380 LDA PNVTAB,X
390 JSR $AB1E
400 ;
410 ENPTE =*
420 LDA #19 ;HOME CURSOR
430 JSR $FFD2
440 RTS
450 ;
460 ENERGY .BYTE 100 ;PLAYER ENERGY
470 ECOUNT .BYTE 0
480 SBOX  .ASC " [146][157][145]":.BYTE 0
490 PNTE1 .ASC "[164][157][145]":.BYTE 0
500 PNTE2 .ASC "[175][157][145]":.BYTE 0
510 PNTE3 .ASC "[185][157][145]":.BYTE 0
520 PNTE4 .ASC "[162][157][145]":.BYTE 0
530 PNTE5 .ASC "[184][146][157][145]":.BYTE 0
540 PNTE6 .ASC "[183][146][157][145]":.BYTE 0
550 PNTE7 .ASC "[163][146][157][145]":.BYTE 0
560 ;
570 PNVTAB .WORD 0, PNTE1, PNTE2, PNTE3
580 .WORD  PNTE4, PNTE5, PNTE6, PNTE7