|
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: »valinsert«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »valinsert«
; edit commands for insertion of a value statement into ; pascal pass1 ; file valinsert mini l./procedure parser;/, l./procedure dumplr;/, s2, l b, s1, d./procedure parser;/, d./(*-END-OF-PARSER-VARIABLES-*)/, l./procedure initialize(var/, d, i/ procedure initialize; /, l./digitch:=/, d./endend;/, l./fori:=0/, d./end;/, l./beginread(tab/, d./5:begin/, i/ if kind = 5 then begin /, l./if a=0/, r/a/chain/, l./end;/, l1,d1, l./begin(*PARSER*)/, l1, d2, i/ initialize; /, l./end./, l1, s, f «eof»