|
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: »isqslang «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »isqslang «
; isqslang ; oversæt isq code procedurer if 0.yes (head 1 getreci = slang fpnames tgetreci, insertproc entry.no list.yes xref.yes names.yes getreci nextreci setupdatei setreadi initreci deletereci, setputi putreci getparamsi setparamsi settesti initfilei, startfilei insertreci systemi resulti ) if 0.no (head 1 getreci = slang fpnames tgetreci, insertproc entry.no getreci nextreci setupdatei setreadi initreci deletereci, setputi putreci getparamsi setparamsi settesti initfilei, startfilei insertreci systemi resulti ) if 0.yes (head 1 removeupdi=slang list.yes xref.yes names.yes tremoveupdi removeupdi) if 0.no (head 1 removeupdi=slang tremoveupdi removeupdi) end ▶EOF◀