home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / envpnt.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  951b  |  50 lines
  1. 100 sys 700 ;pal 64
  2. 110 .opt oo
  3. 120 ; "envpnt"
  4. 130 ; displays a vertical
  5. 140 ; bar graph of the value
  6. 150 ; in "ecount"
  7. 160 ;
  8. 170 envpnt =*
  9. 180 ;prints 'energy level' vertically
  10. 190 lda energy
  11. 200 sta ecount
  12. 210 eploop =*
  13. 220 lda ecount
  14. 230 sec
  15. 240 sbc #8
  16. 250 bcc pntpar
  17. 260 sta ecount
  18. 270 lda #<sbox
  19. 280 ldy #>sbox
  20. 290 jsr $ab1e; print a solid square
  21. 300 jmp eploop
  22. 310 pntpar =*
  23. 320 ; print appropriate character
  24. 330 lda ecount
  25. 340 beq enpte
  26. 350 asl: tax ;index into table
  27. 360 lda pnvtab+1,x
  28. 370 tay
  29. 380 lda pnvtab,x
  30. 390 jsr $ab1e
  31. 400 ;
  32. 410 enpte =*
  33. 420 lda #19 ;home cursor
  34. 430 jsr $ffd2
  35. 440 rts
  36. 450 ;
  37. 460 energy .byte 100 ;player energy
  38. 470 ecount .byte 0
  39. 480 sbox  .asc " [146][157][145]":.byte 0
  40. 490 pnte1 .asc "[164][157][145]":.byte 0
  41. 500 pnte2 .asc "[175][157][145]":.byte 0
  42. 510 pnte3 .asc "[185][157][145]":.byte 0
  43. 520 pnte4 .asc "[162][157][145]":.byte 0
  44. 530 pnte5 .asc "[184][146][157][145]":.byte 0
  45. 540 pnte6 .asc "[183][146][157][145]":.byte 0
  46. 550 pnte7 .asc "[163][146][157][145]":.byte 0
  47. 560 ;
  48. 570 pnvtab .word 0, pnte1, pnte2, pnte3
  49. 580 .word  pnte4, pnte5, pnte6, pnte7
  50.