~esop-lib-macro.tal

|0100
  ;on-frame SETSCRVEC
  #10 #12
BRK

@on-frame
  LIT 'K ;putc JSR2
  LIT 'O ;putc JSR2
  LIT 'o ;putc JSR2
  LIT 'L ;putc JSR2
  SWP #10 SUB SWP
  ;&adv KP-A JMPKEY 
  ;&back KP-B JMPKEY 
  BRK
  &adv
    #fa DBG
    DEC
  BRK
  &back
    #fb DBG
    INC
  BRK



( include ESOP stdlib routines )

~esop-lib-subs.tal