|
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 - metrics - download
Length: 617 (0x269)
Types: TextFile
Notes: KLASSCAN, KLLISTE::KLASSCAN
Names: »KLASSCAN«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »KLLISTE::KLASSCAN«
«ff» 1310 REM ------------------------------------------------------------------------- 1320 PROC KLASSCAN 1330 FOR ENR=1 TO 30 1340 IF ENRRNR(1,ENR)<100 AND ENRRNR(1,ENR)<>0 THEN 1350 LET RNR=ENRRNR(1,ENR) 1360 READ FILE(1,RNR)NR,GREN$ 1370 IF GREN$=CHECGREN$ THEN 1380 READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 1390 READ FILE(2,RNR)EADR$,POGBY$,CPR$,ETLF$ 1400 LET ANTAL=ANTAL+1; NR=ANTAL 1410 LET FORMAT=2 1420 EXEC FORMAT 1430 ENDIF 1440 ENDIF 1450 NEXT ENR 1460 ENDPROC KLASSCAN