|
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: 1031 (0x407)
Types: TextFile
Notes: KLASVALG, OPDATER::KLASVALG
Names: »KLASVALG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 4890 REM ------------------------------------------------------------------------- 4900 PROC KLASVALG 4910 PRINT "<134>";XY$(1);XY$(3);"<31>" 4920 PRINT "<134>";XY$(15);XY$(8); 4930 INPUT "HVILKEN KLASSE ØNSKES BEHANDLET : <31>",KLASSE$ 4940 WHILE KLASSE$(1)>="1" AND KLASSE$(1)<="3" AND KLASSE$(2)<>"" DO 4950 LET FEJL=0 4960 IF FUNKVALG$="A" AND (KLASSE$(1)="2" OR KLASSE$(1)="3") THEN 4970 LET FEJL=1 4980 ELSE 4990 IF FUNKVALG$="B" AND (KLASSE$(1)="1" OR KLASSE$(1)="3") THEN 5000 LET FEJL=1 5010 ENDIF 5020 ENDIF 5030 IF NOT FEJL THEN 5040 EXEC OMRÅDVAL 5050 IF OMRÅDE THEN 5060 IF FØRSTEG THEN 5070 EXEC ELOPLYS 5080 ELSE 5090 EXEC GRENFAG 5100 ENDIF 5110 ENDIF 5120 ENDIF 5130 PRINT "<134>";XY$(15);XY$(8); 5140 INPUT "HVILKEN KLASSE ØNSKES BEHANDLET : <31>",KLASSE$ 5150 ENDWHILE 5160 ENDPROC KLASVALG