|
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: 14940 (0x3a5c)
Types: COMAL_SAVE
Notes: OPDATER , OPDATER::OPDATER
Names: »OPDATER«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
SAVE filename: "OPDATER" 0005 REM PROGRAM NR. 28121980 FUNDET OK«nul» 0006 REM PROGRAM NAVN : OPDATER«nul» 0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA«nul» 0020 DIM CPR$ ( 13 ) , ENAVN$ ( 14 ) , FNAVN$ ( 14 ) , MNAVN$ ( 14 ) , NAVN$ ( 28 ) , EADR$ ( 30 ) 0030 DIM POGBY$ ( 14 ) , ETLF$ ( 6 ) 0040 REM ----------------------------------------------------------------------- VARIABLER FOR FORÆLDREDATA«nul» 0050 DIM FENAVN$ ( 14 ) , FFNAVN$ ( 28 ) , STILLING$ ( 30 ) , FADR$ ( 30 ) , FPOGBY$ ( 14 ) 0060 DIM FTLF$ ( 6 ) , K\N$ ( 2 ) 0070 REM ----------------------------------------------------------------------- DIVERSE STRINGVARIABLER«nul»T 0080 DIM SPROGET$ ( 2 ) , SPROGFR$ ( 2 ) , FUNKVALG$ ( 2 ) , CHECKL$ ( 4 ) , KLTRIN$ ( 4 ) 0090 DIM KLKODE$ ( 60 ) , NYKL$ ( 2 ) , FLNAVNE$ ( 60 ) , KLASSE$ ( 4 ) , OMR]DE$ ( 2 ) 0100 DIM GREN$ ( 5 ) , FORMUS$ ( 4 ) , VALGFAG$ ( 4 ) , GRENKODE$ ( 128 ) , XY$ ( 80 ) 0110 DIM UDL[G$ ( 20 ) , POSTTEXT$ ( 400 ) , TITAL$ ( 10 ) 0120 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER«nul»L 0130 DIM MATRIKS ( 2 , 10 ) , ENRRNR ( 1 , 30 ) , GRENMAT ( 20 ) , POSTMAT ( 4 , 30 ) 0140 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER«nul» 0150 LET XY$ = "`abcdefghij" 0160 LET XY$ = XY$ , "klmnopqrst" 0170 LET XY$ = XY$ , "uvwxyzæøå~" 0180 LET XY$ = XY$ , "<127>" 0190 LET XY$ = XY$ , "@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0200 LET XY$ = XY$ , " !<34>#$%&'()*+,-./" 0210 LET TITAL$ = "0123456789" 0220 REM -------------------------------------------------------------------------«nul»L 0230 PROC STOPPER 0240 LET RETTER = 0 0250 IF RYKKER <> 6 THEN 0260 IF KONTROL = 7 OR KONTROL = 13 THEN 0270 PRINT "<134>" ; XY$ ( 6 ) ; XY$ ( RYKKER - 2 ) ; "<31>" 0280 ELSE 0290 PRINT "<134>" ; XY$ ( 6 ) ; XY$ ( RYKKER - 1 ) ; "<31>" 0300 ENDIF 0310 ENDIF 0320 ENDPROC TOPPER«nul»` 0330 REM -------------------------------------------------------------------------«nul»L 0340 PROC UDL[G 0350 PRINT "<134>" ; XY$ ( 41 ) ; XY$ ( RYKKER ) ; UDL[G$ 0360 ENDPROC DLÆG«nul» 0370 REM -------------------------------------------------------------------------«nul»L 0380 PROC GRENRET 0390 LET FINDER = 0 T[LLER3 = 0 0400 REPEAT 0410 PRINT "<134>" ; XY$ ( 68 ) ; XY$ ( 1 ) ; 0420 INPUT "NR. : <30>" , NRRET 0430 UNTIL NRRET >= 1 AND NRRET <= 30 0440 WHILE FINDER <= NRRET AND T[LLER3 <= 29 DO 0450 LET T[LLER3 = T[LLER3 + 1 0460 IF ENRRNR ( 1 , T[LLER3 ) >= 1 AND ENRRNR ( 1 , T[LLER3 ) <= 30 THEN 0470 LET FINDER = FINDER + 1 0480 ENDIF 0490 ENDWHILE 0500 IF NRRET <= 18 THEN 0510 LET PLOTRET = 5 + NRRET 0520 ELSE 0530 LET PLOTRET = NRRET - 13 0540 ENDIF 0550 LET RNR = ENRRNR ( 1 , T[LLER3 ) 0560 REPEAT 0570 LET IORDEN = 1 0580 PRINT "<134>" ; XY$ ( 57 ) ; XY$ ( PLOTRET ) ; 0590 INPUT "<30>" , GREN$ 0600 IF KLASSE$ ( 2 ) >= "A" AND KLASSE$ ( 2 ) <= "D" THEN 0610 IF GREN$ <> "M" AND GREN$ <> "N" AND GREN$ <> "S" THEN 0620 PRINT "<7>" 0630 LET IORDEN = 0 0640 ENDIF 0650 ELSE 0660 IF GREN$ <> "N" AND GREN$ <> "S" AND GREN$ <> "F" THEN 0670 PRINT "<7>" 0680 LET IORDEN = 0 0690 ENDIF 0700 ENDIF 0710 UNTIL GREN$ = "N" OR GREN$ = "M" OR GREN$ = "S" OR GREN$ = "F" AND IORDEN 0720 REPEAT 0730 PRINT "<134>" ; XY$ ( 68 ) ; XY$ ( PLOTRET ) ; 0740 INPUT "<30>" , VALGFAG$ 0750 IF VALGFAG$ <> "MU" AND VALGFAG$ <> "FO" THEN 0760 PRINT "<134>" ; XY$ ( 79 ) ; XY$ ( PLOTRET - 2 ) ; "<7>" 0770 ENDIF 0780 UNTIL VALGFAG$ = "MU" OR VALGFAG$ = "FO" 0790 READ FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 0800 WRITE FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 0810 READ FILE ( 2 , RNR ) SPROGFR$ , SPROGET$ , FORMUS$ 0820 WRITE FILE ( 2 , RNR ) SPROGFR$ , SPROGET$ , VALGFAG$ 0830 LET RNR = ENRRNR ( 1 , T[LLER2 ) GREN$ = "@" 0840 PRINT "<134>" ; XY$ ( 68 ) ; XY$ ( 1 ) ; "<30>" 0850 LET GREN$ = "@" 0860 ENDPROC RENRET«nul»D 0870 REM -------------------------------------------------------------------------«nul»L 0880 PROC ELEVPLOT 0890 LET PLOTTER = 6 0900 IF T[LLER > 18 THEN 0910 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 6 ) ; "<31>" 0920 ENDIF 0930 REPEAT 0940 LET T[LLER1 = T[LLER1 + 1 0950 UNTIL ( ENRRNR ( 1 , T[LLER1 ) <> 0 AND ENRRNR ( 1 , T[LLER1 ) < 1000 ) OR T[LLER1 = 30 0960 LET RNR = ENRRNR ( 1 , T[LLER1 ) 0970 WHILE T[LLER <= KONSTANT AND ( RNR >= 1 AND RNR <= 30 ) DO 0980 IF RNR >= 1 AND RNR <= 30 THEN 0990 READ FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ 1000 IF NR <> 0 THEN 1010 PRINT "<134>" ; XY$ ( 2 ) ; XY$ ( PLOTTER ) ; 1020 PRINT "## ################ ##################" , NR , ENAVN$ , FNAVN$ 1030 ENDIF 1040 LET PLOTTER = PLOTTER + 1 T[LLER = T[LLER + 1 1050 ENDIF 1060 IF T[LLER1 <= 29 THEN 1070 REPEAT 1080 LET T[LLER1 = T[LLER1 + 1 1090 UNTIL ( ENRRNR ( 1 , T[LLER1 ) <> 0 AND ENRRNR ( 1 , T[LLER1 ) < 100 ) OR T[LLER1 = 30 1100 LET RNR = ENRRNR ( 1 , T[LLER1 ) 1110 ELSE 1120 LET RNR = 0 1130 ENDIF 1140 ENDWHILE 1150 ENDPROC LEVPLOT«nul» 1160 REM -------------------------------------------------------------------------«nul»«nul» 1170 PROC ELOPLYS 1180 PAGE = 79 1190 LET T[LLER = 1 FORTS[T = 1 DELING = 0 RETTER = 1 SPRING = 1 1200 MAT ENRRNR = ZER 1210 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 1220 OPEN FILE ( 2 , 0 ) "AD-CP-TL" 1230 OPEN FILE ( 3 , 0 ) "PA.NA-ST" 1240 OPEN FILE ( 4 , 0 ) "PA.AD-TL" 1250 OPEN FILE ( 5 , 0 ) "VALGFAG." 1260 OPEN FILE ( 6 , 3 ) "ENR-RNR." 1270 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "<30>" 1280 PRINT "<134>" ; XY$ ( 20 ) ; XY$ ( 1 ) ; "INDSKRIVNING AF ELEVOPLYSNINGER FOR " ; KLASSE$ 1290 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 1300 WHILE FORTS[T DO 1310 LET KONTROL = 1 RYKKER = 6 1320 PRINT "<134>" ; XY$ ( 4 ) ; XY$ ( 4 ) ; "ELEV NR. " ; T[LLER 1330 PRINT "<134>" ; XY$ ( 3 ) ; XY$ ( 5 ) ; "------------" 1340 PRINT "<134>" ; XY$ ( 6 ) ; XY$ ( RYKKER ) ; 1350 WHILE RYKKER <= 24 DO 1360 ON ESC THEN EXEC STOPPER 1370 CASE KONTROL OF 1380 REM «nul»2 1390 WHEN 1 1400 LET CPR$ = "" 1410 INPUT "ELEVENS CPR-NUMMER : <30>" , CPR$ 1420 LET KONTROL = 2 1430 IF CPR$ = "@" THEN 1440 LET KONTROL = 20 RYKKER = 30 FORTS[T = 0 1450 MAT WRITE FILE ( 6 ) ENRRNR 1460 ELSE 1470 IF LEN ( CPR$ ) > 7 THEN 1480 IF CPR$ ( 7 ) <> "-" OR LEN ( CPR$ ) <> 11 THEN 1490 LET RYKKER = RYKKER - 1 KONTROL = 1 1500 PRINT "<7>" 1510 ENDIF 1520 ELSE 1530 LET RYKKER = RYKKER - 1 KONTROL = 1 1540 PRINT "<7>" 1550 ENDIF 1560 ENDIF 1570 FOR I = 1 TO LEN ( CPR$ ) 1580 IF CPR$ ( I ) = "L" THEN 1590 LET I = LEN ( CPR$ ) + 1 RYKKER = RYKKER - 1 KONTROL = 1 1600 PRINT "<7>" 1610 ENDIF 1620 NEXT 1630 WHEN 2 1640 INPUT "ELEVENS EFTERNAVN : " , ENAVN$ 1650 LET KONTROL = 3 1660 IF NOT LEN ( ENAVN$ ) THEN 1670 LET RYKKER = RYKKER - 1 KONTROL = 2 1680 PRINT "<7>" 1690 ENDIF 1700 WHEN 3 1710 INPUT "ELEVENS FORNAVN,(MELLEMNAVN) : " , NAVN$ 1720 LET KONTROL = 4 1730 IF NOT LEN ( NAVN$ ) THEN 1740 LET RYKKER = RYKKER - 1 KONTROL = 3 1750 PRINT "<7>" 1760 ENDIF 1770 WHEN 4 1780 INPUT "ELEVENS ADRESSE : " , EADR$ 1790 LET KONTROL = 5 1800 IF NOT LEN ( EADR$ ) THEN 1810 LET RYKKER = RYKKER - 1 KONTROL = 4 1820 PRINT "<7>" 1830 ENDIF 1840 WHEN 5 1850 LET KONTROL = 6 1860 INPUT "POSTNUMMER OG (POSTDISTRIKT) : <30>" , POGBY$ 1870 IF LEN ( POGBY$ ) = 4 THEN 1880 LET STEPPER = 1 SLUT = 0 1890 WHILE POSTMAT ( 1 , STEPPER ) <> 0 AND STEPPER <= 29 AND NOT SLUT DO 1900 IF POGBY$ ( 1 , 4 ) = POSTTEXT$ ( POSTMAT ( 1 , STEPPER ) , POSTMAT ( 2 , STEPPER ) ) THEN 1910 LET POGBY$ = POGBY$ , " " , POSTTEXT$ ( POSTMAT ( 3 , STEPPER ) , POSTMAT ( 4 , STEPPER ) ) SLUT = 1 1920 ENDIF 1930 LET STEPPER = STEPPER + 1 1940 ENDWHILE 1950 IF NOT SLUT THEN 1960 LET RYKKER = RYKKER - 1 KONTROL = 5 1970 PRINT "<7>" 1980 ELSE 1990 LET UDL[G$ = POGBY$ 2000 EXEC UDL[G 2010 ENDIF 2020 ELSE 2030 IF LEN ( POGBY$ ) < 4 THEN 2040 LET RYKKER = RYKKER - 1 KONTROL = 5 2050 PRINT "<7>" 2060 ENDIF 2070 ENDIF 2080 WHEN 6 2090 LET ETLF$ = "@" 2100 INPUT "ELEVENS TELEFONNUMMER : <30>" , ETLF$ 2110 LET KONTROL = 7 2120 IF LEN ( ETLF$ ) <> 1 AND LEN ( ETLF$ ) = 6 THEN 2130 FOR I = 1 TO LEN ( ETLF$ ) 2140 LET FEJL = 1 2150 FOR J = 1 TO LEN ( TITAL$ ) 2160 IF ETLF$ ( I ) = TITAL$ ( J ) THEN 2170 LET FEJL = 0 J = LEN ( TITAL$ ) 2180 ENDIF 2190 IF J = LEN ( TITAL$ ) AND FEJL THEN 2200 LET RYKKER = RYKKER - 1 KONTROL = 6 I = LEN ( ETLF$ ) 2210 PRINT "<7>" 2220 ENDIF 2230 NEXT 2240 NEXT 2250 ELSE 2260 IF LEN ( ETLF$ ) AND LEN ( ETLF$ ) <> 1 THEN 2270 LET RYKKER = RYKKER - 1 KONTROL = 6 2280 PRINT "<7>" 2290 ENDIF 2300 ENDIF 2310 WHEN 7 2320 INPUT "VÆRGES EFTERNAVN : " , FENAVN$ 2330 LET KONTROL = 8 2340 IF NOT LEN ( FENAVN$ ) THEN 2350 LET FENAVN$ = ENAVN$ UDL[G$ = ENAVN$ 2360 EXEC UDL[G 2370 ENDIF 2380 WHEN 8 2390 INPUT "VÆRGES FORNAVN (M/F) : <30>" , FFNAVN$ 2400 LET KONTROL = 9 2410 IF FFNAVN$ ( LEN ( FFNAVN$ ) ) = "F" OR FFNAVN$ ( LEN ( FFNAVN$ ) ) = "M" THEN 2420 IF FFNAVN$ ( LEN ( FFNAVN$ ) - 1 ) = " " THEN 2430 LET K\N$ = FFNAVN$ ( LEN ( FFNAVN$ ) ) FFNAVN$ = FFNAVN$ ( 1 , LEN ( FFNAVN$ ) - 2 ) 2440 ELSE 2450 LET RYKKER = RYKKER - 1 KONTROL = 8 2460 PRINT "<7>" 2470 ENDIF 2480 ELSE 2490 LET RYKKER = RYKKER - 1 KONTROL = 8 2500 IF RETTER THEN PRINT "<7>" 2510 ENDIF 2520 IF NOT RETTER THEN 2530 LET KONTROL = 9 RYKKER = RYKKER + 1 2540 ENDIF 2550 WHEN 9 2560 INPUT "VÆRGES STILLING : " , STILLING$ 2570 LET KONTROL = 10 2580 WHEN 10 2590 INPUT "VÆRGES ADRESSE : " , FADR$ 2600 LET KONTROL = 11 2610 IF NOT LEN ( FADR$ ) THEN 2620 LET FADR$ = EADR$ UDL[G$ = EADR$ 2630 EXEC UDL[G 2640 ENDIF 2650 WHEN 11 2660 LET KONTROL = 12 2670 INPUT "POSTNUMMER OG (POSTDISTRIKT) : <30>" , FPOGBY$ 2680 IF LEN ( FPOGBY$ ) = 4 THEN 2690 LET STEPPER = 1 SLUT = 0 2700 WHILE POSTMAT ( 1 , STEPPER ) <> 0 AND STEPPER <= 29 AND NOT SLUT DO 2710 IF FPOGBY$ = POSTTEXT$ ( POSTMAT ( 1 , STEPPER ) , POSTMAT ( 2 , STEPPER ) ) THEN 2720 LET FPOGBY$ = FPOGBY$ , " " , POSTTEXT$ ( POSTMAT ( 3 , STEPPER ) , POSTMAT ( 4 , STEPPER ) ) SLUT = 1 2730 ENDIF 2740 LET STEPPER = STEPPER + 1 2750 ENDWHILE 2760 IF NOT SLUT THEN 2770 LET RYKKER = RYKKER - 1 KONTROL = 11 2780 PRINT "<7>" 2790 ELSE 2800 LET UDL[G$ = FPOGBY$ 2810 EXEC UDL[G 2820 ENDIF 2830 ELSE 2840 IF NOT LEN ( FPOGBY$ ) THEN 2850 LET FPOGBY$ = POGBY$ UDL[G$ = POGBY$ 2860 EXEC UDL[G 2870 ENDIF 2880 ENDIF 2890 WHEN 12 2900 LET FTLF$ = "@" 2910 INPUT "VÆRGES TELEFONNUMMER : <30>" , FTLF$ 2920 LET KONTROL = 13 2930 IF NOT LEN ( FTLF$ ) THEN 2940 LET FTLF$ = ETLF$ UDL[G$ = ETLF$ 2950 EXEC UDL[G 2960 ELSE 2970 IF LEN ( FTLF$ ) <> 1 AND LEN ( FTLF$ ) = 6 THEN 2980 FOR I = 1 TO LEN ( FTLF$ ) 2990 LET FEJL = 1 3000 FOR J = 1 TO LEN ( TITAL$ ) 3010 IF FTLF$ ( I ) = TITAL$ ( J ) THEN 3020 LET FEJL = 0 J = LEN ( TITAL$ ) 3030 ENDIF 3040 IF J = LEN ( TITAL$ ) AND FEJL THEN 3050 LET RYKKER = RYKKER - 1 KONTROL = 12 I = LEN ( FTLF$ ) 3060 PRINT "<7>" 3070 ENDIF 3080 NEXT 3090 NEXT 3100 ELSE 3110 IF LEN ( FTLF$ ) <> 1 THEN 3120 LET RYKKER = RYKKER - 1 KONTROL = 12 3130 PRINT "<7>" 3140 ENDIF 3150 ENDIF 3160 ENDIF 3170 WHEN 13 3180 INPUT "ENGELSK/TYSK : <30>" , SPROGET$ 3190 LET KONTROL = 14 3200 IF SPROGET$ <> "EN" AND SPROGET$ <> "TY" THEN 3210 PRINT "<7>" 3220 LET RYKKER = RYKKER - 2 KONTROL = 13 3230 ENDIF 3240 WHEN 14 3250 INPUT "FRANSK/RUSSISK : <30>" , SPROGFR$ 3260 LET KONTROL = 15 3270 IF SPROGFR$ <> "FR" AND SPROGFR$ <> "RU" THEN 3280 PRINT "<7>" 3290 LET RYKKER = RYKKER - 1 KONTROL = 14 3300 ENDIF 3310 WHEN 15 3320 INPUT " " , GREN$ 3330 LET KONTROL = 16 3340 ENDCASE «nul» 3350 IF KONTROL = 7 OR KONTROL = 13 THEN 3360 LET RYKKER = RYKKER + 2 3370 ELSE 3380 LET RYKKER = RYKKER + 1 3390 ENDIF 3400 IF NOT RETTER THEN 3410 IF KONTROL = 8 OR KONTROL = 14 THEN 3420 LET KONTROL = KONTROL - 2 RYKKER = RYKKER - 3 3430 ELSE 3440 IF KONTROL = 7 OR KONTROL = 13 THEN 3450 LET KONTROL = KONTROL - 2 RYKKER = RYKKER - 3 3460 ELSE 3470 LET KONTROL = KONTROL - 2 RYKKER = RYKKER - 2 3480 ENDIF 3490 ENDIF 3500 IF RYKKER = 4 THEN 3510 LET KONTROL = 1 RYKKER = 6 3520 PRINT "<7>" 3530 ENDIF 3540 LET RETTER = 1 3550 ENDIF 3560 IF FORTS[T THEN PRINT "<134>" ; XY$ ( 6 ) ; XY$ ( RYKKER ) ; 3570 ENDWHILE 3580 IF FORTS[T THEN 3590 FOR I = 1 TO LEN ( NAVN$ ) 3600 IF NAVN$ ( I ) = "," THEN 3610 LET A = I - 1 B = I + 1 I = LEN ( NAVN$ ) DELING = 1 3620 ENDIF 3630 NEXT 3640 IF DELING THEN 3650 LET FNAVN$ = NAVN$ ( 1 , A ) MNAVN$ = " " , NAVN$ ( B , LEN ( NAVN$ ) ) DELING = 0 3660 ELSE 3670 LET FNAVN$ = NAVN$ MNAVN$ = "" 3680 ENDIF 3690 IF RYKKER < 28 THEN 3700 LET NR = T[LLER 3710 ELSE 3720 LET NR = 0 3730 ENDIF 3740 WRITE FILE ( 1 , T[LLER ) NR , "@" , ENAVN$ , FNAVN$ , MNAVN$ , 0 3750 WRITE FILE ( 2 , T[LLER ) EADR$ , POGBY$ , CPR$ , ETLF$ 3760 WRITE FILE ( 3 , T[LLER ) FENAVN$ , FFNAVN$ , STILLING$ , K\N$ 3770 WRITE FILE ( 4 , T[LLER ) FADR$ , FPOGBY$ , FTLF$ 3780 WRITE FILE ( 5 , T[LLER ) SPROGFR$ , SPROGET$ , "@" 3790 LET ENRRNR ( 1 , T[LLER ) = T[LLER 3800 LET T[LLER = T[LLER + 1 3810 ENDIF 3820 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 5 ) ; "<31>" 3830 IF RYKKER = 30 THEN LET FORTS[T = 1 3840 IF RYKKER = 31 THEN LET FORTS[T = 0 3850 ENDWHILE 3860 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "<30>" 3870 PRINT "<134>" ; XY$ ( 30 ) ; XY$ ( 1 ) ; "OPDATERING" 3880 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 3890 CLOSE 3900 RESET ESC 3910 ENDPROC LOPLYS«nul» 3920 REM -------------------------------------------------------------------------«nul»«nul» 3930 PROC GRENFAG 3940 PAGE = 0 3950 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "<30>" 3960 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 3970 PRINT "<134>" ; XY$ ( 17 ) ; XY$ ( 1 ) ; "INDSKRIVNING AF GREN OG VALGFAG PR. ELEV I " ; KLASSE$ 3980 PRINT "<134>" ; XY$ ( 2 ) ; XY$ ( 4 ) ; "NR. NAVN GREN VALGFAG" 3990 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 5 ) ; "----- ---------------- -------------------- ------ ---------" 4000 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 4010 OPEN FILE ( 2 , 0 ) "VALGFAG." 4020 OPEN FILE ( 3 , 1 ) "ENR-RNR." 4030 MAT READ FILE ( 3 ) ENRRNR 4040 CLOSE FILE ( 3 ) 4050 LET OMGANG = 1 PT[LLER = 1 T[LLER2 = 0 4060 REPEAT 4070 IF OMGANG THEN 4080 LET T[LLER = 1 KONSTANT = 18 OMGANG = 0 T[LLER1 = 0 4090 EXEC ELEVPLOT 4100 ELSE 4110 LET KONSTANT = 30 T[LLER1 = T[LLER1 - 1 4120 EXEC ELEVPLOT 4130 ENDIF 4140 LET PLOTTER = 6 4150 REPEAT 4160 ON ESC THEN EXEC GRENRET 4170 REPEAT 4180 LET T[LLER2 = T[LLER2 + 1 4190 UNTIL ( ENRRNR ( 1 , T[LLER2 ) <> 0 AND ENRRNR ( 1 , T[LLER2 ) < 100 ) OR T[LLER2 = 30 4200 LET RNR = ENRRNR ( 1 , T[LLER2 ) 4210 IF RNR > 0 AND RNR < 100 THEN 4220 REPEAT 4230 LET IORDEN = 1 4240 PRINT "<134>" ; XY$ ( 57 ) ; XY$ ( PLOTTER ) ; 4250 INPUT "<30>" , GREN$ 4260 IF KLASSE$ ( 2 ) >= "A" AND KLASSE$ ( 2 ) <= "D" THEN 4270 IF GREN$ <> "M" AND GREN$ <> "N" AND GREN$ <> "S" AND GREN$ <> "@" THEN 4280 PRINT "<7>" 4290 LET IORDEN = 0 4300 ENDIF 4310 ELSE 4320 IF GREN$ <> "N" AND GREN$ <> "S" AND GREN$ <> "F" AND GREN$ <> "@" THEN 4330 PRINT "<7>" 4340 LET IORDEN = 0 4350 ENDIF 4360 ENDIF 4370 UNTIL GREN$ = "N" OR GREN$ = "M" OR GREN$ = "S" OR GREN$ = "F" AND IORDEN 4380 REPEAT 4390 PRINT "<134>" ; XY$ ( 68 ) ; XY$ ( PLOTTER ) ; 4400 INPUT "<30>" , VALGFAG$ 4410 IF VALGFAG$ <> "MU" AND VALGFAG$ <> "FO" THEN 4420 PRINT "<134>" ; XY$ ( 79 ) ; XY$ ( PLOTTER - 2 ) ; "<7>" 4430 ENDIF 4440 UNTIL VALGFAG$ = "MU" OR VALGFAG$ = "FO" 4450 READ FILE ( 1 , RNR ) NR , NYKL$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 4460 WRITE FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 4470 READ FILE ( 2 , RNR ) SPROGFR$ , SPROGET$ , FORMUS$ 4480 WRITE FILE ( 2 , RNR ) SPROGFR$ , SPROGET$ , VALGFAG$ 4490 ENDIF 4500 LET PLOTTER = PLOTTER + 1 PT[LLER = PT[LLER + 1 4510 UNTIL RNR = 0 OR PT[LLER = 19 OR T[LLER2 = 30 4520 UNTIL RNR = 0 OR PT[LLER = 30 OR T[LLER2 = 30 4530 CLOSE 4540 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "<30>" 4550 PRINT "<134>" ; XY$ ( 30 ) ; XY$ ( 1 ) ; "OPDATERING" 4560 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 4570 RESET ESC 4580 ENDPROC RENFAG«nul» 4590 REM -------------------------------------------------------------------------«nul» 4600 PROC DISKONT 4610 REPEAT 4620 LET OK = 1 4630 CONNECT "OVERSIGT" , 1 4640 OPEN FILE ( 1 , 0 ) "KL-KODE" 4650 OPEN FILE ( 2 , 1 ) "GRENKODE" 4660 READ FILE ( 1 , 1 ) KLKODE$ 4670 READ FILE ( 1 , 2 ) KLTRIN$ 4680 READ FILE ( 2 ) GRENKODE$ 4690 MAT READ FILE ( 2 ) GRENMAT 4700 CLOSE 4710 IF KLTRIN$ <> CHECKL$ THEN 4720 RELEASE 4730 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 4740 LET OK = 0 4750 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; "DISKETTE <34>" ; KLTRIN$ ; "<34> ER INDSAT I FD0" 4760 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "DISKETTE <34>" ; CHECKL$ ; "<34> SKAL INDSÆTTES I FD0" 4770 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 13 ) ; "TAST FØLGENDE :" 4780 PRINT "<134>" ; XY$ ( 43 ) ; XY$ ( 14 ) ; "-------------------" 4790 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 16 ) ; "1. LOCK<34>$FD0" 4800 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 18 ) ; "2. SKIFT DISKETTERNE UD" 4810 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 20 ) ; "3. INIT<34>$FD0" 4820 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 22 ) ; "4. CON" 4830 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 12 ) ; 4840 STOP «nul» 4850 ELSE 4860 ENDIF 4870 UNTIL OK 4880 ENDPROC ISKONT«nul» 4890 REM -------------------------------------------------------------------------«nul» 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 LASVALG«nul» 5170 REM -------------------------------------------------------------------------«nul» 5180 PROC OMR]DVAL 5190 LET CHECKL$ = KLASSE$ ( 1 ) , ".G" 5200 EXEC DISKONT 5210 LET OMR]DE$ = "" 5220 FOR T[LLER = 1 TO LEN ( KLKODE$ ) STEP 4 5230 IF KLASSE$ = KLKODE$ ( T[LLER , T[LLER + 1 ) THEN 5240 LET OMR]DE$ = KLKODE$ ( T[LLER + 2 , T[LLER + 3 ) T[LLER = LEN ( KLKODE$ ) 5250 ENDIF 5260 NEXT 5270 IF OMR]DE$ = "" THEN 5280 LET OMR]DE = 0 5290 ELSE 5300 LET OMR]DE = 1 5310 CONNECT OMR]DE$ , 1 5320 ENDIF 5330 ENDPROC MRÅDVAL«nul» 5340 REM -------------------------------------------------------------------------«nul» 5350 PROC FILORDEN 5360 CONNECT "OVERSIGT" , 1 5370 CASE KLTRIN$ OF 5380 STOP «nul»2 5390 WHEN "1.G" 5400 LET KLTRIN$ = "2.G" 5410 WHEN "2.G" 5420 LET KLTRIN$ = "3.G" 5430 WHEN "3.G" 5440 LET KLTRIN$ = "1.G" 5450 ENDCASE «nul» 5460 FOR I = 1 TO LEN ( KLKODE$ ) STEP 4 5470 LET KLKODE$ ( I ) = KLTRIN$ ( 1 ) 5480 NEXT 5490 OPEN FILE ( 1 , 0 ) "KL-KODE" 5500 WRITE FILE ( 1 , 1 ) KLKODE$ 5510 WRITE FILE ( 1 , 2 ) KLTRIN$ 5520 CLOSE FILE ( 1 ) 5530 ENDPROC ILORDEN«nul» 5540 REM -----------------------------------------------------------------------«nul»- 5550 PROC NULSTIL 5560 FOR I = 1 TO LEN ( KLKODE$ ) - 2 STEP 4 5570 CONNECT KLKODE$ ( I + 2 , I + 3 ) , 1 5580 OPEN FILE ( 1 , 0 ) "NUMERISK" 5590 FOR J = 1 TO 30 5600 WRITE FILE ( 1 , J ) 0 , 0 , 0 , 0 5610 NEXT 5620 CLOSE FILE ( 1 ) 5630 NEXT 5640 ENDPROC ULSTIL«nul» 5650 REM -------------------------------------------------------------------------«nul» 5660 PROC FILBYTTE 5670 CONNECT "OVERSIGT" , 1 5680 OPEN FILE ( 1 , 0 ) "KL-KODE" 5690 READ FILE ( 1 , 1 ) KLKODE$ 5700 READ FILE ( 1 , 3 ) FLNAVNE$ 5710 MAT READ FILE ( 1 , 4 ) MATRIKS 5720 CLOSE FILE ( 1 ) 5730 LET T[LLER1 = 3 T[LLER2 = 1 ANTAL = 1 ST\RELSE = 1 5740 WHILE T[LLER1 <= LEN ( KLKODE$ ) DO 5750 CONNECT KLKODE$ ( T[LLER1 , T[LLER1 + 1 ) , 1 5760 LET T[LLER1 = T[LLER1 + 4 DELER = LEN ( FLNAVNE$ ) 5770 IF BOOLSK THEN 5780 REPEAT 5790 DELETE FLNAVNE$ ( DELER - 7 , DELER ) 5800 LET DELER = DELER - 8 5810 UNTIL DELER = 0 5820 ENDIF 5830 LET DELER = 1 5840 REPEAT 5850 CREATE FLNAVNE$ ( T[LLER2 , T[LLER2 + 7 ) , MATRIKS ( 1 , ANTAL ) , MATRIKS ( 2 , ST\RELSE ) 5860 LET ANTAL = ANTAL + 1 ST\RELSE = ST\RELSE + 1 T[LLER2 = T[LLER2 + 8 5870 UNTIL T[LLER2 - 1 = LEN ( FLNAVNE$ ) 5880 OPEN FILE ( 1 , 0 ) "NUMERISK" 5890 FOR I = 1 TO 30 5900 WRITE FILE ( 1 , I ) 0 , 0 , 0 , 0 5910 NEXT 5920 CLOSE FILE ( 1 ) 5930 LET T[LLER2 = 1 ANTAL = 1 ST\RELSE = 1 5940 ENDWHILE 5950 ENDPROC ILBYTTE«nul» 5960 REM -----------------------------------------------------------------------«nul»- 5970 PROC OPDATER 5980 REPEAT 5990 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 1 ) ; "<30>" 6000 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 6010 PRINT "<134>" ; XY$ ( 30 ) ; XY$ ( 1 ) ; "OPDATERING" 6020 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 5 ) ; "A : INDSKRIVNING AF 1.G. SLETTELSE AF 3.G" 6030 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 7 ) ; "B : OPRYKNING AF 1.G TIL 2.G. INDSKRIVNING AF GREN+VALGFAG" 6040 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 9 ) ; "C : OPRYKNING AF 2.G TIL 3.G" 6050 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 11 ) ; "D : TILBAGE TIL HOVEDOPLYSNINGEN" 6060 PRINT "<134>" ; XY$ ( 13 ) ; XY$ ( 14 ) ; "---------------------------------------------------------------" 6070 REPEAT 6080 PRINT "<134>" ; XY$ ( 30 ) ; XY$ ( 18 ) ; 6090 INPUT "HVILKEN FUNKTION : <31>" , FUNKVALG$ 6100 UNTIL FUNKVALG$ >= "A" AND FUNKVALG$ <= "D" 6110 CASE FUNKVALG$ OF 6120 REM «nul»2 6130 WHEN "A" 6140 CONNECT "OVERSIGT" , 1 6150 OPEN FILE ( 1 , 0 ) "TID" 6160 READ FILE ( 1 , 1 ) ]R , M]NED , DATO 6170 CLOSE FILE ( 1 ) 6180 IF AKT]R <> ]R THEN 6190 OPEN FILE ( 1 , 0 ) "TID" 6200 WRITE FILE ( 1 , 1 ) AKT]R , AKTM]NED , AKTDATO 6210 CLOSE FILE ( 1 ) 6220 LET CHECKL$ = "3.G" ALT = 1 BOOLSK = 1 F\RSTEG = 1 6230 EXEC DISKONT 6240 EXEC FILORDEN 6250 EXEC FILBYTTE 6260 EXEC KLASVALG 6270 ELSE 6280 LET CHECKL$ = "1.G" ALT = 0 BOOLSK = 0 F\RSTEG = 1 6290 EXEC DISKONT 6300 EXEC KLASVALG 6310 ENDIF 6320 WHEN "B" 6330 CONNECT "OVERSIGT" , 1 6340 OPEN FILE ( 1 , 0 ) "TID" 6350 READ FILE ( 1 , 1 ) ]R , M]NED , DATO 6360 CLOSE FILE ( 1 ) 6370 IF ]R = AKT]R AND M]NED = AKTM]NED OR M]NED + 1 = AKTM]NED THEN 6380 LET CHECKL$ = "2.G" F\RSTEG = 0 6390 ELSE 6400 LET CHECKL$ = "1.G" F\RSTEG = 0 6410 ENDIF 6420 EXEC DISKONT 6430 IF CHECKL$ = "1.G" THEN 6440 EXEC NULSTIL 6450 EXEC FILORDEN 6460 ENDIF 6470 OPEN FILE ( 1 , 0 ) "TID" 6480 WRITE FILE ( 1 , 1 ) AKT]R , AKTM]NED , AKTDATO 6490 CLOSE FILE ( 1 ) 6500 EXEC KLASVALG 6510 WHEN "C" 6520 LET CHECKL$ = "2.G" 6530 EXEC DISKONT 6540 EXEC NULSTIL 6550 EXEC FILORDEN 6560 ENDCASE «nul» 6570 UNTIL FUNKVALG$ = "D" 6580 ENDPROC PDATER«nul» 6590 REM -----------------------------------------------------------------------«nul»- 6600 OPEN FILE ( 2 , 1 ) "POST-NR." 6610 OPEN FILE ( 1 , 1 ) "NUTID" 6620 READ FILE ( 1 ) AKT]R , AKTM]NED , AKTDATO 6630 READ FILE ( 2 ) POSTTEXT$ 6640 MAT READ FILE ( 2 ) POSTMAT 6650 CLOSE 6660 PRINT "<140><134>" ; XY$ ( 13 ) ; XY$ ( 2 ) ; "---------------------------------------------------------------" 6670 EXEC OPDATER 6680 CONNECT "LIB" , 1 6690 ENTER "PROGVALG"
FNA definition = 0xffff
FNB definition = 0xffff
FNC definition = 0xffff
FND definition = 0xffff
FNE definition = 0xffff
FNF definition = 0xffff
FNG definition = 0xffff
FNH definition = 0xffff
FNI definition = 0xffff
FNJ definition = 0xffff
FNK definition = 0xffff
FNL definition = 0xffff
FNM definition = 0xffff
FNN definition = 0xffff
FNO definition = 0xffff
FNP definition = 0xffff
FNQ definition = 0xffff
FNR definition = 0xffff
FNS definition = 0xffff
FNT definition = 0xffff
FNU definition = 0xffff
FNV definition = 0xffff
FNW definition = 0xffff
FNX definition = 0xffff
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x1ab0
stack[1] = 0x1a10
stack[2] = 0x145b
stack[3] = 0x10c3
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x0098
Loop Top = 0x1593
To Val = 42 (0x422a0000)
Step Val = 4 (0x41400000)
Var# = 0x00a4
Loop Top = 0x1632
To Val = 30 (0x421e0000)
Step Val = 1 (0x41100000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x17c3
stack[1] = 0x18ba
stack[2] = 0x106e
stack[3] = 0x1076
stack[4] = 0x0441
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x13e8
stack[1] = 0x0373
stack[2] = 0x0720
stack[3] = 0x08d2
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0001
stack[1] = 0x0000
stack[2] = 0x0001
stack[3] = 0x0000
stack[4] = 0x0001
stack[5] = 0x0000
stack[6] = 0x0001
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x00 ELEVPLOT
0x82 0xffff 0x00 PLOTTER
0x83 0xffff 0x00 T[LLER
0x84 0xffff 0x02 XY$
0x85 0xffff 0x00 T[LLER1
0x86 0xffff 0x00 ENRRNR
0x87 0xffff 0x00 RNR
0x88 0xffff 0x00 KONSTANT
0x89 0xffff 0x00 NR
0x8a 0xffff 0x02 GREN$
0x8b 0xffff 0x02 ENAVN$
0x8c 0xffff 0x02 FNAVN$
0x8d 0xffff 0x02 MNAVN$
0x8e 0xffff 0x00 ELOPLYS
0x8f 0xffff 0x00 FORTS[T
0x90 0xffff 0x00 DELING
0x91 0xffff 0x00 RETTER
0x92 0xffff 0x00 SPRING
0x93 0xffff 0x02 KLASSE$
0x94 0xffff 0x00 KONTROL
0x95 0xffff 0x00 RYKKER
0x96 0xffff 0x00 STOPPER
0x97 0xffff 0x02 CPR$
0x98 0xffff 0x00 I
0x99 0xffff 0x02 NAVN$
0x9a 0xffff 0x02 EADR$
0x9b 0xffff 0x02 POGBY$
0x9c 0xffff 0x00 STEPPER
0x9d 0xffff 0x00 SLUT
0x9e 0xffff 0x00 POSTMAT
0x9f 0xffff 0x02 POSTTEXT$
0xa0 0xffff 0x02 UDL[G$
0xa1 0xffff 0x00 UDL[G
0xa2 0xffff 0x02 ETLF$
0xa3 0xffff 0x00 FEJL
0xa4 0xffff 0x00 J
0xa5 0xffff 0x02 TITAL$
0xa6 0xffff 0x02 FENAVN$
0xa7 0xffff 0x02 FFNAVN$
0xa8 0xffff 0x02 K\N$
0xa9 0xffff 0x02 STILLING$
0xaa 0xffff 0x02 FADR$
0xab 0xffff 0x02 FPOGBY$
0xac 0xffff 0x02 FTLF$
0xad 0xffff 0x02 SPROGET$
0xae 0xffff 0x02 SPROGFR$
0xaf 0xffff 0x00 A
0xb0 0xffff 0x00 B
0xb1 0xffff 0x00 GRENFAG
0xb2 0xffff 0x00 OMGANG
0xb3 0xffff 0x00 PT[LLER
0xb4 0xffff 0x00 T[LLER2
0xb5 0xffff 0x00 GRENRET
0xb6 0xffff 0x00 IORDEN
0xb7 0xffff 0x02 VALGFAG$
0xb8 0xffff 0x00 MYNDIG
0xb9 0xffff 0x02 FORMUS$
0xba 0xffff 0x00 DISKONT
0xbb 0xffff 0x00 OK
0xbc 0xffff 0x02 KLKODE$
0xbd 0xffff 0x02 KLTRIN$
0xbe 0xffff 0x02 GRENKODE$
0xbf 0xffff 0x00 GRENMAT
0xc0 0xffff 0x02 CHECKL$
0xc1 0xffff 0x00 KLASVALG
0xc2 0xffff 0x02 FUNKVALG$
0xc3 0xffff 0x00 OMR]DVAL
0xc4 0xffff 0x00 OMR]DE
0xc5 0xffff 0x00 F\RSTEG
0xc6 0xffff 0x02 OMR]DE$
0xc7 0xffff 0x00 FILORDEN
0xc8 0xffff 0x00 NULSTIL
0xc9 0xffff 0x00 FILBYTTE
0xca 0xffff 0x02 FLNAVNE$
0xcb 0xffff 0x00 MATRIKS
0xcc 0xffff 0x00 ANTAL
0xcd 0xffff 0x00 ST\RELSE
0xce 0xffff 0x00 DELER
0xcf 0xffff 0x00 BOOLSK
0xd0 0xffff 0x00 OPDATER
0xd1 0xffff 0x00 ]R
0xd2 0xffff 0x00 M]NED
0xd3 0xffff 0x00 DATO
0xd4 0xffff 0x00 AKT]R
0xd5 0xffff 0x00 AKTM]NED
0xd6 0xffff 0x00 AKTDATO
0xd7 0xffff 0x00 ALT
0xd8 0xffff 0x00 FINDER
0xd9 0xffff 0x00 T[LLER3
0xda 0xffff 0x00 NRRET
0xdb 0xffff 0x00 PLOTRET
0xdc 0xffff 0x02 NYKL$
0xdd 0xffff 0x02 A$
.magic = 0x5356 .u_pas = 0x1ae1 // Length of UPAS in words .u_das = 0x023e // Length of UDAS in words .u_dvs = 0x023e // Start på savede variabel indhold (word adr) .u_nds = 0x0042 // Address på næste prog.sætning (word adr) .u_cps = 0x0000 // Address på curr prog.sætning (word adr) .u_tll = 0x0000 // Page størrelse .u_tts = 0x000e // TAP størrelse .u_ran = 0x0000 // Random tal .u_cdl = 0x0042 // Current DATA sætning ptr .u_cdb = 0x0000 // Current DATA byte ptr .u_esa = 0xffff // ON ESE (word adr) .u_era = 0xffff // ON ERR (word adr) .u_cas = 0x0000 // CASE dybde .u_las = 0xffff // last (-1)