BR      main
num:     .WORD   5
input:   .BLOCK  2
;
main:    STRO    startmsg,d
         CHARO   '\n',i
         DECI    input,d
         LDA     num,d
         CPA     input,d
         BRLT    endif
         DECO    input,d
         STRO    GEmsg,d
         DECO    num,d
         STOP
endif:   STRO    lessthan,d
         STOP
startmsg:.ASCII  "Guess a number\x00"
GEmsg:   .ASCII  " is Greater Than or Equal to \x00"
lessthan:.ASCII  " is Less Than \x00"
         .END