''WINON
'WINPOS 1 1
CLS
'WINSIZE 40 15
PRINTR 01 "R N°" "Val Iniz." "Val Obbi." "Val Fin." "%Err"

#1
D? 1
READ_RES R1
PRINTR 01 1 R1 "" "" ""
MUL R1 R1 15
DOHM R1
D 1
READ_RES R1
PRINTR 01 1 R1 "" "" ""
'GOTO 900

D? 2
READ_RES R1
PRINTR 01 1 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 2
READ_RES R1
PRINTR 01 2 R1 "" "" ""

D? 3
READ_RES R1
PRINTR 01 3 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 3
READ_RES R1
PRINTR 01 3 R1 "" "" ""

D? 4
READ_RES R1
PRINTR 01 4 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 4
READ_RES R1
PRINTR 01 4 R1 "" "" ""

D? 5
READ_RES R1
PRINTR 01 5 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 5
READ_RES R1
PRINTR 01 5 R1 "" "" ""

D? 6
READ_RES R1
PRINTR 01 6 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 6
READ_RES R1
PRINTR 01 6 R1 "" "" ""
'GOTO 900

D? 7
READ_RES R1
PRINTR 01 7 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 7
READ_RES R1
PRINTR 01 7 R1 "" "" ""

D? 8
READ_RES R1
PRINTR 01 8 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 8
READ_RES R1
PRINTR 01 8 R1 "" "" ""

D? 9
READ_RES R1
PRINTR 01 9 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 9
READ_RES R1
PRINTR 01 9 R1 "" "" ""

D? 10
READ_RES R1
PRINTR 01 10 R1 "" "" ""
MUL R1 R1 1.5
DOHM R1
D 10
READ_RES R1
PRINTR 01 10 R1 "" "" ""



#900
END