|
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: 1343 (0x53f)
Types: TextFile
Notes: FORSØM::KLVALG, KLVALG
Names: »KLVALG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORSØM::KLVALG«
«ff» 0460 REM ------------------------------------------------------------------------- 0470 PROC KLVALG 0480 PRINT "<134>";XY$(1);XY$(1);"<30>" 0490 PRINT "<134>";XY$(1);XY$(3);"<31>" 0500 PRINT "<134>";XY$(XKOR);XY$(1);PROCEDUR$ 0510 REPEAT 0520 REPEAT 0530 PRINT "<134>";XY$(15);XY$(8); 0540 INPUT "FOR HVILKEN KLASSE ØNSKES FORSØMMELSERNE INDSKREVET : <31>",KLASSE$ 0550 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" 0560 LET CHECKL$=KLASSE$(1),".G"; OMRÅDE$="" 0570 EXEC DISKONT 0580 LET TÆLLER=1 0590 OPEN FILE(1,0)"KL-KODE" 0600 READ FILE(1,1)KLKODE$ 0610 CLOSE FILE(1) 0620 WHILE TÆLLER<LEN(KLKODE$) DO 0630 IF KLASSE$(1,2)=KLKODE$(TÆLLER,TÆLLER+1) THEN 0640 LET OMRÅDE$=KLKODE$(TÆLLER+2,TÆLLER+3) 0650 LET TÆLLER=LEN(KLKODE$) 0660 ENDIF 0670 LET TÆLLER=TÆLLER+4 0680 ENDWHILE 0690 IF LEN(OMRÅDE$)=0 THEN 0700 PRINT "<134>";XY$(5);XY$(5);"FEJL-INDTASTNING :<7><30>" 0710 PRINT "<134>";XY$(5);XY$(6);KLASSE$;" INDEHOLDES IKKE I SYSTEMET <30>" 0720 DELAY=5 0730 ELSE 0740 CONNECT OMRÅDE$,1 0750 ENDIF 0760 UNTIL LEN(OMRÅDE$)<>0 0770 PRINT "<134>";XY$(XKOR+LEN(PROCEDUR$)+1);XY$(1);KLASSE$ 0780 ENDPROC KLVALG