home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_26_1988_Transactor_Publishing.d64
/
envpnt.pal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
951b
|
50 lines
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