|
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: 575 (0x23f)
Types: TextFile
Notes: OMRÅDVAL, OPDATER::OMRÅDVAL
Names: »OMRÅDVAL«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 5170 REM ------------------------------------------------------------------------- 5180 PROC OMRÅDVAL 5190 LET CHECKL$=KLASSE$(1),".G" 5200 EXEC DISKONT 5210 LET OMRÅDE$="" 5220 FOR TÆLLER=1 TO LEN(KLKODE$) STEP 4 5230 IF KLASSE$=KLKODE$(TÆLLER,TÆLLER+1) THEN 5240 LET OMRÅDE$=KLKODE$(TÆLLER+2,TÆLLER+3); TÆLLER=LEN(KLKODE$) 5250 ENDIF 5260 NEXT TÆLLER 5270 IF OMRÅDE$="" THEN 5280 LET OMRÅDE=0 5290 ELSE 5300 LET OMRÅDE=1 5310 CONNECT OMRÅDE$,1 5320 ENDIF 5330 ENDPROC OMRÅDVAL