|
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: 1244 (0x4dc)
Types: TextFile
Notes: CONNGREN, KLLISTE::CONNGREN
Names: »CONNGREN«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 0980 REM ------------------------------------------------------------------------- 0990 PROC CONNGREN 1000 OPEN FILE(7,11)"$LPT" 1010 LET TÆLLER=1 1020 REPEAT 1030 LET OBJECT$=GRENKODE$(GRENMAT(TÆLLER),GRENMAT(TÆLLER+1)-1) 1040 LET FORMAT=1; KLASSE$=KLTRIN$(1),OBJECT$ 1050 LET CHECGREN$=OBJECT$(LEN(OBJECT$)) 1060 EXEC FORMAT 1070 FOR B=1 TO LEN(OBJECT$)-1 1080 LET KLAS$=KLTRIN$(1),OBJECT$(B); C=-3 1090 REPEAT 1100 LET C=C+4 1110 UNTIL KLKODE$(C,C+1)=KLAS$ OR C>=40 1120 IF KLKODE$(C,C+1)=KLAS$ THEN 1130 CONNECT KLKODE$(C+2,C+3),1 1140 PRINT "<134>";XY$(56);XY$(1);"FOR<30> ";KLASSE$ 1150 OPEN FILE(1,0)"NR-GR-NA" 1160 OPEN FILE(2,0)"AD-CP-TL" 1170 OPEN FILE(5,1)"ENR-RNR." 1180 MAT READ FILE(5)ENRRNR 1190 CLOSE FILE(5) 1200 EXEC KLASSCAN 1210 CLOSE FILE(1) 1220 CLOSE FILE(2) 1230 ENDIF 1240 NEXT B 1250 LET FORMAT=3; TÆLLER=TÆLLER+1; ANTAL=0 1260 EXEC FORMAT 1270 UNTIL NOT GRENMAT(TÆLLER+1) 1280 PRINT "<134>";XY$(56);XY$(1);"<30>" 1290 CLOSE FILE(7) 1300 ENDPROC CONNGREN