|
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: 976 (0x3d0)
Types: TextFile
Notes: CONNOM , FORLIST::CONNOM
Names: »CONNOM«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORLIST::CONNOM«
«ff» 0780 ENDPROC INFORMAT 0790 REM ------------------------------------------------------------------------- 0800 PROC CONNOM 0810 LET KLASSE$=CHECKL$(1),GRENE$ 0820 PRINT "<134>";XY$(57);XY$(1);"FOR ";KLASSE$;"<30>" 0830 LET TÆLLER1=1; TÆLLER2=2; FORTSÆT=1 0840 WHILE TÆLLER1<=LEN(OMRÅDER$) DO 0850 LET TÆLLER2=2 0860 WHILE TÆLLER2<=LEN(KLKODE$) AND FORTSÆT DO 0870 IF KLKODE$(TÆLLER2)=OMRÅDER$(TÆLLER1) THEN 0880 LET OMRÅDE$=KLKODE$(TÆLLER2+1,TÆLLER2+2); FORTSÆT=0 0890 ENDIF 0900 LET TÆLLER2=TÆLLER2+4 0910 ENDWHILE 0920 IF TÆLLER1=1 THEN 0930 LET OMGANG=1 0940 ELSE 0950 LET OMGANG=0 0960 ENDIF 0970 CLOSE 0980 CONNECT OMRÅDE$,1 0990 EXEC DATASØGE 1000 LET TÆLLER1=TÆLLER1+1; FORTSÆT=1 1010 ENDWHILE 1020 LET TERMINAT=1 1030 EXEC FORMAT 1040 CLOSE 1050 PRINT "<134>";XY$(57);XY$(1);"<30>"