15 lines
496 B
Plaintext
15 lines
496 B
Plaintext
INCLUDE"REAL.ACT" ;from the Action! Tool Kit
|
|
|
|
proc MAIN()
|
|
byte array astring
|
|
byte IOCB1=$350,ICAX3=IOCB1+12,ICAX4=IOCB1+13,ICAX5=IOCB1+14
|
|
real A,B,C,FLEN
|
|
|
|
open(1,"D:REAL.ACT",4,0) xio(1,0,39,"D:REAL.ACT") close(1)
|
|
|
|
IntToReal(ICAX3,FLEN)
|
|
IntToReal(ICAX4,A) astring="256" ValR(astring,B) RealMult(A,B,C) RealAdd(FLEN,C,FLEN)
|
|
IntToReal(ICAX5,A) astring="65536" ValR(astring,B) RealMult(A,B,C) RealAdd(FLEN,C,FLEN)
|
|
print("Size of REAL.ACT is ") printRD(DEVICE,FLEN) printe(" bytes")
|
|
return
|