( test program to verify the correctness of graphics and input on ESOP )

~esop-lib-macro.tal

|0100
  ;on-frame SETSCRVEC
  #1a #20 ( mv-x mv-y )
BRK

@on-frame
  DATETIME-COMPAT ( get datetime info into #00c0 )
  #10 #12 ( year-x year-y -- )
  .DateTime/year LDZ2 ( year-x year-y year* -- )
  ;print-dec JSR2 ( mv-x mv-y year-x year-y -- )
  POP2 ( mv-x mv-y -- )
  ;moveme ;draw-str JSR2
  SWP #20 SUB SWP ( restore x coord between frames )
  ;&adv KP-A JMPKEY 
  ;&back KP-B JMPKEY 
  BRK
  &adv
    SWP INC DBGBYTE SWP
  BRK
  &back
    SWP DEC DBGBYTE SWP
  BRK

@moveme "MOVE 20 "ME! 00

( include ESOP stdlib routines )

~esop-lib-subs.tal