|
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: 1138 (0x472)
Types: TextFile
Notes: ELEVPLOT, OPDATER::ELEVPLOT
Names: »ELEVPLOT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »OPDATER::ELEVPLOT«
«ff» 0870 REM ------------------------------------------------------------------------- 0880 PROC ELEVPLOT 0890 LET PLOTTER=6 0900 IF TÆLLER>18 THEN 0910 PRINT "<134>";XY$(1);XY$(6);"<31>" 0920 ENDIF 0930 REPEAT 0940 LET TÆLLER1=TÆLLER1+1 0950 UNTIL (ENRRNR(1,TÆLLER1)<>0 AND ENRRNR(1,TÆLLER1)<1000) OR TÆLLER1=30 0960 LET RNR=ENRRNR(1,TÆLLER1) 0970 WHILE TÆLLER<=KONSTANT AND (RNR>=1 AND RNR<=30) DO 0980 IF RNR>=1 AND RNR<=30 THEN 0990 READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$ 1000 IF NR<>0 THEN 1010 PRINT "<134>";XY$(2);XY$(PLOTTER); 1020 PRINT USING "## ################ ##################",NR,ENAVN$,FNAVN$ 1030 ENDIF 1040 LET PLOTTER=PLOTTER+1; TÆLLER=TÆLLER+1 1050 ENDIF 1060 IF TÆLLER1<=29 THEN 1070 REPEAT 1080 LET TÆLLER1=TÆLLER1+1 1090 UNTIL (ENRRNR(1,TÆLLER1)<>0 AND ENRRNR(1,TÆLLER1)<100) OR TÆLLER1=30 1100 LET RNR=ENRRNR(1,TÆLLER1) 1110 ELSE 1120 LET RNR=0 1130 ENDIF 1140 ENDWHILE 1150 ENDPROC ELEVPLOT