res.vm

PUSHI 25
PUSHI 200
PUSHI 300
START
PUSHI 800
PUSHI 600
opendrawingarea
PUSHG 2
PUSHG 1
PUSHG 0
DRAWCIRCLE
REFRESH
PUSHI 0
PUSHI 100
PUSHI 1
PUSHI 0
pushs "teste"
PUSHG 2
PUSHG 1
PUSHG 4
PUSHG 1
SWAP
ADD
STOREG 1
CLEARDRAWINGAREA
PUSHG 2
PUSHG 1
DRAWLINE
PUSHG 2
PUSHG 1
PUSHG 0
DRAWCIRCLE
REFRESH
PUSHG 2
PUSHG 1
PUSHG 4
PUSHG 2
SWAP
SUB
STOREG 2
CLEARDRAWINGAREA
PUSHG 2
PUSHG 1
DRAWLINE
PUSHG 2
PUSHG 1
PUSHG 0
DRAWCIRCLE
REFRESH
PUSHG 2
PUSHG 1
PUSHI 200
STOREG 2
PUSHI 50
STOREG 1
CLEARDRAWINGAREA
PUSHG 2
PUSHG 1
DRAWLINE
PUSHG 2
PUSHG 1
PUSHG 0
DRAWCIRCLE
REFRESH
PUSHG 2
WRITEI
PUSHG 1
WRITEI
pushs "OLA"
WRITES
PUSHS "VALOR DO Y -> INTEGER\n"
WRITES
READ
atoi
STOREG 3
PUSHG 3
WRITEI
PUSHG 6
WRITEI
PUSHG 3
PUSHG 4
ADD
WRITEI
STOP