|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500) Types: TextFile Names: »STEP.HEL«
└─⟦ac5a365ea⟧ Bits:30005990 VISTA med database skema over brugere └─⟦this⟧ »STEP.HEL« └─⟦cdb5db4d7⟧ Bits:30005991 VISTA Database └─⟦this⟧ »STEP.HEL«
▶7f◀p ▶7f◀9 H O P P▶7f◀P ▶7f◀9 ▶7f◀'=▶7f◀P ▶7f◀p ▶7f◀p Endrer dokumentpeker i aktuell forekomstliste▶7f◀A ▶7f◀M-▶7f◀A ▶7f◀p ▶7f◀p ▶7f◀p ▶7f◀$ Dokumenter i aktuell forekomstliste: ▶e1◀▶7f◀%▶a0◀▶7f◀? ▶7f◀$ Aktuelt dokument nummer:▶7f◀/ ▶e1◀▶7f◀%▶a0◀▶7f◀? ▶7f◀p ▶7f◀p ▶7f◀$ Svar med et positivt nummer på et av disse alternativene:▶7f◀3 ▶7f◀p ▶7f◀$ a) Flytt peker fremover (mot slutten)▶7f◀( ▶e1◀▶7f◀%▶a0◀ posisjon(er).▶7f◀+ ▶7f◀p ▶7f◀$ b) Flytt peker tilbake (mot begynnelsen)▶7f◀% ▶e1◀▶7f◀%▶a0◀ posisjon(er).▶7f◀+ ▶7f◀p ▶7f◀$ c) Flytt peker til dokument nummer .▶7f◀) ▶e1◀▶7f◀%▶a0◀.▶7f◀8 ▶7f◀p ▶7f◀p !'21'S'101L'=1 .documents in current occurrence list !'22'S'101L'=2 .current offset in that list !''=?, 443-'26'=ü '5'=>;, .if last key pressed UP go to field 5 3=^, 3=+, '101L' D ('22'S'101L'+3), '-2'=>;; ''=3, .if numeric and positive then index and exit, else blank and continue !''=?, 443-'26'=ü '3'=>;, .if last key pressed UP go to field 3 4=^, 4=+, '101L' D (''-4), '-2'=>;; ''=4, .if numeric and positive then index and exit, else blank and continue !''=?, 443-'26'=ü '4'=>;, .if last key pressed UP go to field 4 5=^, 5=+, '101L' D 5, '-2'=>;; ''=5, '3'=> Ø453-'255'=ü '1'=>;, .if initial process arrives here => field 1 'HELP'=403, '-2'=> .if any type of exit attempted back to HELP «eof»