|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 618 (0x26a)
Types: TextFile
Notes: KLASLÆS , KLLISTE::KLASLÆS
Names: »KLASLÆS«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 0570 REM ------------------------------------------------------------------------- 0580 PROC KLASLÆS 0590 OPEN FILE(7,11)"$LPT" 0600 LET FORMAT=1 0610 EXEC FORMAT 0620 LET FORMAT=2 0630 FOR ENR=1 TO 30 0640 IF ENRRNR(1,ENR)<100 AND ENRRNR(1,ENR)<>0 THEN 0650 READ FILE(1,ENRRNR(1,ENR))NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 0660 READ FILE(2,ENRRNR(1,ENR))EADR$,POGBY$,CPR$,ETLF$ 0670 LET ANTAL=NR 0680 EXEC FORMAT 0690 ENDIF 0700 NEXT ENR 0710 LET FORMAT=3 0720 EXEC FORMAT 0730 CLOSE FILE(7) 0740 ENDPROC KLASLÆS