|
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: 1156 (0x484)
Types: TextFile
Notes: FILBYTTE, OPDATER::FILBYTTE
Names: »FILBYTTE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »OPDATER::FILBYTTE«
«ff» 5650 REM ------------------------------------------------------------------------- 5660 PROC FILBYTTE 5670 CONNECT "OVERSIGT",1 5680 OPEN FILE(1,0)"KL-KODE" 5690 READ FILE(1,1)KLKODE$ 5700 READ FILE(1,3)FLNAVNE$ 5710 MAT READ FILE(1,4)MATRIKS 5720 CLOSE FILE(1) 5730 LET TÆLLER1=3; TÆLLER2=1; ANTAL=1; STØRELSE=1 5740 WHILE TÆLLER1<=LEN(KLKODE$) DO 5750 CONNECT KLKODE$(TÆLLER1,TÆLLER1+1),1 5760 LET TÆLLER1=TÆLLER1+4; DELER=LEN(FLNAVNE$) 5770 IF BOOLSK THEN 5780 REPEAT 5790 DELETE FLNAVNE$(DELER-7,DELER) 5800 LET DELER=DELER-8 5810 UNTIL DELER=0 5820 ENDIF 5830 LET DELER=1 5840 REPEAT 5850 CREATE FLNAVNE$(TÆLLER2,TÆLLER2+7),MATRIKS(1,ANTAL),MATRIKS(2,STØRELSE) 5860 LET ANTAL=ANTAL+1; STØRELSE=STØRELSE+1; TÆLLER2=TÆLLER2+8 5870 UNTIL TÆLLER2-1=LEN(FLNAVNE$) 5880 OPEN FILE(1,0)"NUMERISK" 5890 FOR I=1 TO 30 5900 WRITE FILE(1,I)0,0,0,0 5910 NEXT I 5920 CLOSE FILE(1) 5930 LET TÆLLER2=1; ANTAL=1; STØRELSE=1 5940 ENDWHILE 5950 ENDPROC FILBYTTE