|
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: 1169 (0x491)
Types: TextFile
Notes: ELEVPLOT, FORSØM::ELEVPLOT
Names: »ELEVPLOT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORSØM::ELEVPLOT«
«ff» 0160 REM ------------------------------------------------------------------------- 0170 PROC ELEVPLOT 0180 LET PLOTTER=6 0190 IF TÆLLER>18 THEN 0200 PRINT "<134>";XY$(1);XY$(6);"<31>" 0210 ENDIF 0220 REPEAT 0230 LET TÆLLER1=TÆLLER1+1 0240 UNTIL (ENRRNR(1,TÆLLER1)<>0 AND ENRRNR(1,TÆLLER1)<100) OR TÆLLER1=30 0250 LET RNR=ENRRNR(1,TÆLLER1) 0260 WHILE TÆLLER<=KONSTANT AND TÆLLER1<=30 DO 0270 IF RNR>=1 AND RNR<=30 THEN 0280 READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$ 0290 LET NAVN$=FNAVN$ 0300 IF NR<>0 THEN 0310 PRINT "<134>";XY$(2);XY$(PLOTTER); 0320 PRINT USING "## ################ ##################",NR,ENAVN$,NAVN$ 0330 ENDIF 0340 LET PLOTTER=PLOTTER+1; TÆLLER=TÆLLER+1 0350 ENDIF 0360 IF TÆLLER1<30 THEN 0370 REPEAT 0380 LET TÆLLER1=TÆLLER1+1 0390 UNTIL (ENRRNR(1,TÆLLER1)<>0 AND ENRRNR(1,TÆLLER1)<100) OR TÆLLER1=30 0400 LET RNR=ENRRNR(1,TÆLLER1) 0410 ELSE 0420 LET TÆLLER1=TÆLLER1+1 0430 ENDIF 0440 ENDWHILE 0450 ENDPROC ELEVPLOT