|
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: 657 (0x291)
Types: TextFile
Notes: BREV::PROCEVAL, PROCEVAL
Names: »PROCEVAL«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 1550 REM ------------------------------------------------------------------------- 1560 PROC PROCEVAL 1570 LET STRAFTEX=1 1580 IF INT((SUMPJÆK/SUMTIMER)*100)>=20 THEN 1590 LET SYNDER=1; STRAFTEX=4 1600 ENDIF 1610 IF INT((SUMPJÆK/SUMTIMER)*100)>=15 AND INT((SUMPJÆK/SUMTIMER)*100)<20 THEN 1620 LET SYNDER=1; STRAFTEX=3 1630 ENDIF 1640 IF INT((SUMPJÆK/SUMTIMER)*100)<15 AND INT((PJÆK/TIMER)*100)>=20 THEN 1650 LET STRAFTEX=2; SYNDER=1 1660 ENDIF 1670 IF INT((PJÆK/TIMER)*100)<20 AND INT((SUMPJÆK/SUMTIMER)*100)<15 THEN 1680 LET STRAFTEX=1 1690 ENDIF 1700 ENDPROC PROCEVAL