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

⟦f118cc5b1⟧ TextFile

    Length: 600 (0x258)
    Types: TextFile
    Notes: FILORDEN, OPDATER::FILORDEN
    Names: »FILORDEN«

Derivation

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

TextFile

«ff»
  5340 REM -------------------------------------------------------------------------
  5350 PROC FILORDEN
  5360   CONNECT "OVERSIGT",1
  5370   CASE KLTRIN$ OF 
  5380     STOP
  5390   WHEN "1.G"
  5400     LET KLTRIN$="2.G"
  5410   WHEN "2.G"
  5420     LET KLTRIN$="3.G"
  5430   WHEN "3.G"
  5440     LET KLTRIN$="1.G"
  5450   ENDCASE
  5460   FOR I=1 TO LEN(KLKODE$) STEP 4
  5470     LET KLKODE$(I)=KLTRIN$(1)
  5480   NEXT I
  5490   OPEN FILE(1,0)"KL-KODE"
  5500   WRITE FILE(1,1)KLKODE$
  5510   WRITE FILE(1,2)KLTRIN$
  5520   CLOSE FILE(1)
  5530 ENDPROC FILORDEN