|
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: 806 (0x326)
Types: TextFile
Notes: CONNKLAS, KLLISTE::CONNKLAS
Names: »CONNKLAS«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 0750 REM ------------------------------------------------------------------------- 0760 PROC CONNKLAS 0770 LET STED=3 0780 REPEAT 0790 CONNECT KLKODE$(STED,STED+1),1 0800 LET KLASSE$=KLKODE$(STED-2,STED-1); OK=0 0810 PRINT "<134>";XY$(56);XY$(1);"FOR ";KLKODE$(STED-2,STED-1) 0820 OPEN FILE(1,0)"NR-GR-NA" 0830 OPEN FILE(2,0)"AD-CP-TL" 0840 OPEN FILE(5,1)"ENR-RNR." 0850 MAT READ FILE(5)ENRRNR 0860 CLOSE FILE(5) 0870 FOR I=1 TO 30 0880 IF ENRRNR(1,I)>0 AND ENRRNR(1,I)<31 THEN LET OK=1 0890 NEXT I 0900 IF OK THEN 0910 EXEC KLASLÆS 0920 ENDIF 0930 CLOSE 0940 LET STED=STED+4 0950 UNTIL STED=43 0960 PRINT "<134>";XY$(56);XY$(1);"<30>" 0970 ENDPROC CONNKLAS