|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300) Types: TextFile Names: »pptx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code └─⟦75ff9bef3⟧ └─⟦this⟧ »pptx «
pp=algol survey.yes begin real r; overflows := underflows := 0; r := 1.0'-600; r := r * 1.0'-600; write (out, "nl", 1, if rc8000 then <:rc8000:> else <:rc9000-10:>, "nl", 1, <:overflows = :>, overflows , "nl", 1, <:underflows = :>, underflows); end; ▶EOF◀