SECTION   .text

main:
STROUT:   LEA       TEKST(PC),A1
          MOVE.W    #$000D,-(A7)
          TRAP      #4

KEYPRESS: MOVE.W    #$0004,-(A7)
          TRAP      #4
          TST.B     D0
          BEQ.B     KEYPRESS
          RTS
	
TEKST:    DC.B      24,"Za naprej pritisni tipko",$0D

          END