|
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: »itx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code └─⟦75ff9bef3⟧ └─⟦this⟧ »itx «
mode list.yes ii=algol survey.yes begin integer i, j, sum; sum := -6085603; j := -2821681; for sum := sum + j <*while sum < 9000000 *> do write (out, "nl", 1, <:sum = :>, <<+d ddd ddd>, sum); end; end ▶EOF◀