DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦feb71d5eb⟧ TextFile

    Length: 400 (0x190)
    Types: TextFile
    Notes: FORLIST::GRENVALG, GRENVALG
    Names: »GRENVALG«

Derivation

└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
    └─⟦this⟧

TextFile

«ff»
  2140 ENDPROC DATASØGE
  2150 REM -------------------------------------------------------------------------
  2160 PROC GRENVALG
  2170   LET GREN=1
  2180   REPEAT
  2190     LET GRENE$=GRENKODE$(GRENMAT(GREN),GRENMAT(GREN+1)-1)
  2200     LET OMRÅDER$=GRENE$(1,LEN(GRENE$)-1); HOLD$=GRENE$(LEN(GRENE$))
  2210     EXEC CONNOM
  2220     LET GREN=GREN+1
  2230   UNTIL GRENMAT(GREN+1)=0