|
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: 1241 (0x4d9)
Types: TextFile
Notes: DATASØGE, FORLIST::DATASØGE
Names: »DATASØGE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 1790 ENDPROC KLASLÆS 1800 REM ------------------------------------------------------------------------- 1810 PROC DATASØGE 1820 IF OMGANG THEN 1830 LET FORMTOP=1; NR=1 1840 ELSE 1850 LET FORMTOP=0 1860 ENDIF 1870 LET TERMINAT=0; KONTROL=1 1880 LET KLASSE$=CHECKL$(1),GRENE$ 1890 OPEN FILE(1,0)"NR-GR-NA" 1900 OPEN FILE(2,0)"NUMERISK" 1910 OPEN FILE(3,1)"ENR-RNR." 1920 OPEN FILE(7,11)"$LPT" 1930 MAT READ FILE(3)ENRRNR 1940 CLOSE FILE(3) 1950 IF OMGANG THEN EXEC FORMAT 1960 LET FORMTOP=0 1970 WHILE KONTROL<=30 AND ENRRNR(1,KONTROL)<>0 DO 1980 LET RNR=ENRRNR(1,KONTROL) 1990 IF RNR>=1 AND RNR<=30 THEN 2000 READ FILE(1,RNR)CNR,GREN$ 2010 IF GREN$(LEN(GREN$))=HOLD$ THEN 2020 READ FILE(1,RNR)CNR,GREN$,ENAVN$,FNAVN$,MNAVN$ 2030 READ FILE(2,RNR)PJÆK,SUMPJÆK,TIMER,SUMTIMER 2040 IF TIMER<>0 THEN 2050 LET MÅNEDPRO=(PJÆK*100)/TIMER; ÅRPRO=(SUMPJÆK*100)/SUMTIMER 2060 EXEC BREVVALG 2070 EXEC FORMAT 2080 LET NR=NR+1 2090 ENDIF 2100 ENDIF 2110 ENDIF 2120 LET KONTROL=KONTROL+1 2130 ENDWHILE