|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFileVerbose
Names: »valinsert80«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »valinsert80«
; edit commands for insertion of value statements ; for initialization of parse tables ; file valinsert80 mini ; call: out = edit platon1pasc tables ; where tables is generated by the program ; platvalue l./(*bobs-procedures*)/, l./procedure dumplr;/, s2, l b, s1, d./procedure dumplr;/ , i/ procedure dumplr; /, l./procedure initialize(var/, d, i/ procedure initialize; /, l./digitch:=/, d./endend;/, l./fori:=0/, d./end;/, l./beginread(tables/, d./5:begin/, i/ if kind = 5 then begin /, l./if a=0/, r/a/chain/, l./end;/, l2, d./readln(tables/, l./begin(*parser/, l1, d2, i/ initialize; /, f «eof»