|
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: 1190 (0x4a6)
Types: TextFile
Notes: ELEVRET::ELEVVALG, ELEVVALG
Names: »ELEVVALG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 5770 REM ------------------------------------------------------------------------- 5780 PROC ELEVVALG 5790 OPEN FILE(1,1)"ENR-RNR." 5800 MAT READ FILE(1)ENRRNR 5810 CLOSE FILE(1) 5820 LET GENTAG=1; STOPPER=0 5830 WHILE GENTAG DO 5840 PRINT "<134>";XY$(1);XY$(3);"<31>" 5850 REPEAT 5860 REPEAT 5870 PRINT "<134>";XY$(6);XY$(6); 5880 INPUT "ELEVENS NUMMER : <30>",CNR 5890 UNTIL CNR>=0 AND CNR<=30 5900 IF CNR=0 THEN 5910 LET GENTAG=0; STOPPER=1; CNR=30 5920 ELSE 5930 IF ENRRNR(1,CNR)=0 OR ENRRNR(1,CNR)>=100 THEN 5940 PRINT "<134>";XY$(6);XY$(8);"ELEV";CNR;"EKSISTERE IKKE I ";KLASSE$ 5950 PRINT "<134>";XY$(4);XY$(9);"--------------------------------" 5960 ENDIF 5970 ENDIF 5980 UNTIL ENRRNR(1,CNR)>=1 AND ENRRNR(1,CNR)<=30 OR STOPPER 5990 IF NOT STOPPER THEN 6000 EXEC UDTEKST 6010 LET SINGLE=1; TÆLLER=CNR; FORTSÆT=1; ELEVFOR=1; MUGRPLOT=1; SLUT=0; SPØRGE=1 6020 ENDIF 6030 IF NOT STOPPER THEN EXEC SCROOL 6040 ENDWHILE 6050 ENDPROC ELEVVALG