(DIS,"UP100:  ASSET")
N100  E30=100
N110  (INP,"  ஫: ",E30)
N120 (SCR,ON)
N130 (DEF,1,3,5,"=")
N140 (DEF,2,3,14,E31,6)
N150 (DEF,3,4,5,"RTA=")
N160 (DEF,4,4,14,E40,6)
N170 (DEF,5,5,5,"RTO=")
N180 (DEF,6,5,14,E41,6)
(OUT)
N190 (DER,1,SYVAR.3CH,E40,SYVAR3.3CH,E41)
N200 ERR=1
N210 (CRE,1,TAB/MP3,12)
N220 (BNE,IOSTA,5,OK)
N230 (CAN,TAB/MP3)
N240 (CRE,1,TAB/MP3,12)
"OK"
N260 (OPN,1,TAB/MP3,W)
N270 ERR=0
N280 SYVAR.3CH="RTA"
N290 SYVAR3.3CH="RTO"
N301 E40=0
N302 E41=0
N310 (RPT,12)
N320 E31=E30/2
N330 RTA=0
N340 RTO=0
N350 ZX
N370 E40=E40+0.01
N371 E41=E41-0.1
N390 E31=E30-E41*2
N420 X55
N450 RTA=E40
N460 RTO=E41
N470 (WRT,1,1)
N480 (OUT,2,E31,4,E40,6,E41)
N482 E31=NEG(E31)
N490 (ERP)
N495 (CLO,1)
N500 (SCR,OFF)
