|
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: 1518 (0x5ee)
Types: TextFile
Notes: ELEVRET::RETTE, RETTE
Names: »RETTE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 3240 REM ------------------------------------------------------------------------- 3250 PROC RETTE 3260 LET RYKKER=6; LINIESKF=0; INDSKRIV=0; SPRING$="@"; GENTAGER=1 3270 WHILE RYKKER<=23 DO 3280 ON ESC THEN LET LINIESKF=1 3290 PRINT "<134>";XY$(41);XY$(RYKKER); 3300 INPUT "",SPRING$ 3310 IF LEN(SPRING$)=0 THEN EXEC INDSKRIV 3320 IF LINIESKF THEN 3330 IF RYKKER=11 THEN 3340 LET RYKKER=RYKKER+2 3350 ELSE 3360 IF RYKKER=18 THEN 3370 IF ENGELSK THEN 3380 LET RYKKER=RYKKER+2 3390 ELSE 3400 LET RYKKER=RYKKER+3 3410 ENDIF 3420 ELSE 3430 IF RYKKER=22 OR RYKKER=23 THEN 3440 CASE MUFORGRE OF 3450 LET RYKKER=RYKKER+2 3460 WHEN 1 3470 LET RYKKER=RYKKER+1 3480 ENDCASE 3490 ELSE 3500 LET RYKKER=RYKKER+1 3510 ENDIF 3520 ENDIF 3530 ENDIF 3540 LET LINIESKF=0 3550 ENDIF 3560 ENDWHILE 3570 IF INDSKRIV THEN 3580 WRITE FILE(1,RNR)NR,GREN$,ENAVN$,FNAVN$,MNAVN$,MYNDIG 3590 WRITE FILE(2,RNR)EADR$,POGBY$,CPR$,ETLF$ 3600 WRITE FILE(3,RNR)FENAVN$,FFNAVN$,STILLING$,KØN$ 3610 WRITE FILE(4,RNR)FADR$,FPOGBY$,FTLF$ 3620 WRITE FILE(5,RNR)SPROGFR$,SPROGET$,VALGFAG$ 3630 LET INDSKRIV=0; MYNDIG=0 3640 ENDIF 3650 ENDPROC RETTE