p19f.asm

;See Modifier Keys bit flags to under-
;stand these numbers. eg, " *^Q"

modlen   .byte 0 ;Extra length for mods
modlens  .byte 0,3,3,4,3,4,4,5

actrow   lda #0
         sta (ptr),y  ;Terminate String
         #incptr tptr ;Points to modkeys

         #writeptr tptr,ptr,codeptr

         lda (tptr),y
         pha          ;Backup modkeys
         tax
         lda modlens,x
         sta modlen   ;Space for modkeys

         ldy #titleptr
         lda (ptr),y
         tax
         iny
         lda (ptr),y
         tay
         jsr strlen   ;Get title length
         tya
         clc
         adc modlen   ;Space for modkeys
         ldy #0
         sta (tptr),y ;Set mnu row width

         #incptr tptr ;Points to petval
         #incptr tptr ;Points to actcode
         #incptr tptr ;Points to modkeys

         pla          ;Restore modkeys
         sta (tptr),y
         #incptr tptr ;Points to nxt row