|
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: 1338 (0x53a)
Types: TextFile
Notes: ELEVRET::KLVALG, KLVALG
Names: »KLVALG«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »ELEVRET::KLVALG«
«ff» 0350 REM ------------------------------------------------------------------------- 0360 PROC KLVALG 0370 PRINT "<134>";XY$(1);XY$(1);"<30>" 0380 PRINT "<134>";XY$(1);XY$(3);"<31>" 0390 PRINT "<134>";XY$(XKOR);XY$(1);PROCEDUR$ 0400 REPEAT 0410 REPEAT 0420 PRINT "<134>";XY$(15);XY$(8); 0430 INPUT "FOR HVILKEN KLASSE ØNSKES RETTELSERNE FORETAGET : <30>",KLASSE$ 0440 UNTIL KLASSE$(1)>="1" AND KLASSE$(1)<="3" 0450 LET CHECKL$=KLASSE$(1),".G" 0460 EXEC DISKONT 0470 LET TÆLLER=-3; SLUT=0 0480 OPEN FILE(1,0)"KL-KODE" 0490 READ FILE(1,1)KLKODE$ 0500 CLOSE FILE(1) 0510 WHILE TÆLLER<LEN(KLKODE$) AND NOT SLUT DO 0520 LET TÆLLER=TÆLLER+4 0530 IF KLASSE$(1,2)=KLKODE$(TÆLLER,TÆLLER+1) THEN 0540 LET SLUT=1 0550 ENDIF 0560 ENDWHILE 0570 IF LEN(KLKODE$(TÆLLER+2,TÆLLER+3))=0 THEN 0580 PRINT "<134>";XY$(5);XY$(5);"FEJL-INDTASTNING :<7><30>" 0590 PRINT "<134>";XY$(5);XY$(6);KLASSE$;" INDEHOLDES IKKE I SYSTEMET <30>" 0600 DELAY=5 0610 ELSE 0620 CONNECT KLKODE$(TÆLLER+2,TÆLLER+3),1 0630 ENDIF 0640 UNTIL LEN(KLKODE$(TÆLLER+2,TÆLLER+3))<>0 0650 PRINT "<134>";XY$(XKOR+LEN(PROCEDUR$)+1);XY$(1);KLASSE$ 0660 ENDPROC KLVALG