home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / prhmen.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  453b  |  23 lines
  1. 100 sys 700 ;pal 64
  2. 110 .opt oo
  3. 120 ; "prhmen"
  4. 130 ;this routine prints the player's
  5. 140 ;men but could be used to represent
  6. 150 ;energy levels, strength, etc
  7. 160 ;
  8. 170 pnhmen =*
  9. 180 lda #<prnmen
  10. 190 ldy #>prnmen
  11. 200 jsr $ab1e ;print it
  12. 210 ;
  13. 220 ldx pmen  ;get number of men
  14. 230 lda #"[209]"  ;this char represents men
  15. 240 menlop =*
  16. 250 jsr $ffd2 ;print it
  17. 260 dex       ;have we printed them all
  18. 270 bne menlop
  19. 280 rts
  20. 290 pmen   .byte 5
  21. 300 prnmen .asc "men: "
  22. 310 .byte 0
  23.