|
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: 734 (0x2de)
Types: TextFile
Notes: BREV::KLASLÆS, 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» 1780 REM ------------------------------------------------------------------------- 1790 PROC KLASLÆS 1800 LET TALL=1; MANGLER=0; SUMTIMER=0; RNR=0 1810 REPEAT 1820 IF ENRRNR(1,TALL)>0 AND ENRRNR(1,TALL)<100 THEN 1830 LET RNR=ENRRNR(1,TALL); SYNDER=0 1840 ENDIF 1850 IF RNR THEN 1860 READ FILE(5,RNR)PJÆK,SUMPJÆK,TIMER,SUMTIMER 1870 ENDIF 1880 CASE NOT (SUMTIMER) OF 1890 EXEC PROCEVAL 1900 EXEC FILLÆS 1910 EXEC TEKST 1920 EXEC FORM 1930 WHEN 1 1940 REM ..> DER ER IKKE PÅFØRT NOGLE TIMER <.. 1950 ENDCASE 1960 LET TALL=TALL+1; SUMTIMER=0; RNR=0 1970 UNTIL TALL=30 1980 ENDPROC KLASLÆS