| 
A*%%TS SD 19920117 152105 CHRISTIAN REL-V2R1M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A INDARA
A USRDSPMGT
A CA03(03)
A CA12(03)
A R FMT
A*%%TS SD 19920117 152105 CHRISTIAN REL-V2R1M0 5738-PW1
A CF08(08) SETOF(30) SETOF(31)
A BLINK
A CLRL(*NO)
A 4 48'..............................'
A 5 48': '
A 6 48': :'
A 7 48': F1 '
A 8 48': op '
A 9 48': F2 '
A 10 48': :'
A N40
AO 30
AO 31 12 48': :'
A 13 48': :'
A DSPATR(UL)
A 14 48': Entrée = F1 op F2 :'
A 15 48': F8 = F1 op F2% (+ ou -):'
A N30N31 16 48':.F3 = exit..................:'
A 5 56' C window '
A DSPATR(UL)
A DSPATR(HI)
A 5 69' :'
A F1 12Y 2B 7 55EDTCDE(3)
A CHECK(RB)
A COMP(GT 0)
A DSPATR(MDT)
A 7 69' :'
A OP 1 B 8 54VALUES('+' '-' '*' '/' 'P')
A F2 12Y 2B 9 55EDTCDE(3)
A CHECK(RB)
A COMP(GT 0)
A DSPATR(MDT)
A 9 69' :'
A 30 16 48':..'
A 30 16 52'F8 uniquement avec +,-'
|
|
A DSPATR(HI) A DSPATR(BL) A 30 16 75'..:' A 31 16 48':..' A 31 16 52'résultat trop grand' A DSPATR(HI) A DSPATR(BL) A 31 16 72'.....:' A 8 56'(+,-,*,/,P=Puissance):' A 40N30N31 11 48': ' A 40N30N31 11 53'================' A DSPATR(HI) A 40N30N31 ZR 15Y 3O 12 53EDTCDE(L) A 40N30N31 12 48': ' A 40N30N31 12 71' :' A 40N30N31 11 70' :' A N40 AO 30 AO 31 11 48': :' |
