DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 633 (0x279) Types: TextFile Names: »B«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04 └─ ⟦d65440be7⟧ »DATA« └─⟦this⟧
separate (Parse) function Repeter_Ad_Eternam return Boolean is begin Lexical.Next; if Expression_Red_Nbre then Lexical.Next; if Lexical.Get_Token = L_Begin then Lexical.Next; if Instructions then if Lexical.Get_Token = L_End then Lexical.Next; return True; else return False; end if; else return False; end if; else return False; end if; else return False; end if; end Repeter_Ad_Eternam;