|
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: 5293 (0x14ad)
Types: TextFile
Notes: ELEVRET::SCROOL, SCROOL
Names: »SCROOL«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff»
1690 REM -------------------------------------------------------------------------
1700 PROC SCROOL
1710 OPEN FILE(1,0)"NR-GR-NA"
1720 OPEN FILE(2,0)"AD-CP-TL"
1730 OPEN FILE(3,0)"PA.NA-ST"
1740 OPEN FILE(4,0)"PA.AD-TL"
1750 OPEN FILE(5,0)"VALGFAG."
1760 OPEN FILE(6,1)"ENR-RNR."
1770 MAT READ FILE(6)ENRRNR
1780 WHILE FORTSÆT DO
1790 LET KONTROL=1; RYKKER=6
1800 IF NOT SINGLE THEN
1810 REPEAT
1820 IF TÆLLER=-1 THEN
1830 LET TÆLLER=0
1840 ELSE
1850 ENDIF
1860 LET TÆLLER=TÆLLER+1
1870 UNTIL ENRRNR(1,TÆLLER)<>0 OR TÆLLER=30
1880 IF TÆLLER=30 THEN
1890 LET FORTSÆT=0; SLUT=1; SPØRGE=0; VALG$="@"
1900 ENDIF
1910 ENDIF
1920 LET RNR=ENRRNR(1,TÆLLER)
1930 IF RNR>=1 AND RNR<100 THEN
1940 READ FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG
1950 READ FILE(2,RNR)EADR$,POGBY$,CPR$,ETLF$
1960 READ FILE(3,RNR)FENAVN$,FFNAVN$,STILLING$,KØN$
1970 READ FILE(4,RNR)FADR$,FPOGBY$,FTLF$
1980 READ FILE(5,RNR)SPROGFR$,SPROGET$,VALGFAG$
1990 PRINT "<134>";XY$(13);XY$(3);NR
2000 WHILE KONTROL<=16 DO
2010 PRINT "<134>";XY$(41);XY$(RYKKER);
2020 CASE ELEVFOR OF
2030 REM
2040 WHEN 1
2050 CASE KONTROL OF
2060 REM
2070 WHEN 1
2080 IF MYNDIG THEN
2090 PRINT CPR$;" M"
2100 ELSE
2110 PRINT CPR$
2120 ENDIF
2130 LET KONTROL=2
2140 WHEN 2
2150 PRINT ENAVN$
2160 LET KONTROL=3
2170 WHEN 3
2180 PRINT FNAVN$;", ";MNAVN$
2190 LET KONTROL=4
2200 WHEN 4
2210 PRINT EADR$
2220 LET KONTROL=5
2230 WHEN 5
2240 PRINT POGBY$
2250 LET KONTROL=6
2260 WHEN 6
2270 PRINT ETLF$
2280 LET KONTROL=7; ELEVFOR=2; RYKKER=RYKKER+1
2290 ENDCASE
2300 WHEN 2
2310 CASE KONTROL OF
2320 REM
2330 WHEN 7
2340 PRINT FENAVN$
2350 LET KONTROL=8
2360 WHEN 8
2370 PRINT FFNAVN$;" (";KØN$;")"
2380 LET KONTROL=9
2390 WHEN 9
2400 PRINT STILLING$
2410 LET KONTROL=10
2420 WHEN 10
2430 PRINT FADR$
2440 LET KONTROL=11
2450 WHEN 11
2460 PRINT FPOGBY$
2470 LET KONTROL=12
2480 WHEN 12
2490 PRINT FTLF$
2500 LET KONTROL=13; ELEVFOR=3; RYKKER=RYKKER+1
2510 ENDCASE
2520 WHEN 3
2530 CASE KONTROL OF
2540 REM
2550 WHEN 13
2560 IF ENGELSK THEN
2570 PRINT SPROGET$
2580 ENDIF
2590 LET KONTROL=14
2600 WHEN 14
2610 PRINT SPROGFR$
2620 LET KONTROL=15
2630 WHEN 15
2640 IF MUFORGRE THEN
2650 PRINT VALGFAG$
2660 ELSE
2670 LET RYKKER=RYKKER+2; MUGRPLOT=0; SLETTER=0
2680 ENDIF
2690 LET KONTROL=16
2700 WHEN 16
2710 IF MUGRPLOT THEN
2720 PRINT GREN$
2730 ENDIF
2740 LET KONTROL=17; ELEVFOR=1
2750 ENDCASE
2760 ENDCASE
2770 LET RYKKER=RYKKER+1
2780 ENDWHILE
2790 ENDIF
2800 IF RNR>0 AND RNR<100 THEN
2810 REPEAT
2820 IF SPØRGE THEN
2830 PRINT "<134>";XY$(41);XY$(4);
2840 INPUT "<30>",VALG$
2850 ENDIF
2860 IF LEN(VALG$)=0 THEN
2870 IF NOT SINGLE THEN
2880 PRINT "<134>";XY$(13);XY$(3);"<30>"
2890 LET RYKKER=6
2900 WHILE RYKKER<=23 DO
2910 PRINT "<134>";XY$(41);XY$(RYKKER);"<30>"
2920 IF RYKKER=11 OR RYKKER=18 THEN
2930 LET RYKKER=RYKKER+2
2940 ELSE
2950 LET RYKKER=RYKKER+1
2960 ENDIF
2970 ENDWHILE
2980 PRINT "<134>";XY$(41);XY$(4);"<30>"
2990 LET SLUT=1; SPØRGE=1
3000 ENDIF
3010 ELSE
3020 IF VALG$(1,3)="RET" THEN
3030 EXEC RETTE
3040 LET VALG$=""; SPØRGE=0
3050 ELSE
3060 IF VALG$(1,4)="STOP" THEN
3070 LET FORTSÆT=0; SLUT=1
3080 ELSE
3090 IF VALG$(1)="T" THEN
3100 LET TÆLLER=TÆLLER-2; VALG$=""; SPØRGE=0
3110 ENDIF
3120 ENDIF
3130 ENDIF
3140 ENDIF
3150 IF SINGLE THEN
3160 LET SLUT=1; FORTSÆT=0
3170 ENDIF
3180 UNTIL SLUT
3190 ENDIF
3200 LET SLUT=0
3210 ENDWHILE
3220 CLOSE
3230 ENDPROC SCROOL