|
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: 9290 (0x244a)
Types: COMAL_SAVE
Notes: KLLISTE , KLLISTE::KLLISTE
Names: »KLLISTE«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
SAVE filename: "KLLISTE" 0005 REM PROGRAM NR. 29121980«nul»# 0006 REM PROGRAMNAVN : KLLISTER«nul» 0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA«nul» 0020 DIM GREN$ ( 5 ) , ENAVN$ ( 14 ) , FNAVN$ ( 14 ) , MNAVN$ ( 14 ) , NAVN$ ( 28 ) 0030 DIM EADR$ ( 30 ) , POGBY$ ( 14 ) , CPR$ ( 13 ) , ETLF$ ( 7 ) , ADR$ ( 44 ) 0040 REM ----------------------------------------------------------------------- DIVERSE VARIABLER«nul»D 0050 DIM KLKODE$ ( 60 ) , KLTRIN$ ( 3 ) , HOLDKODE$ ( 80 ) , FUNKVALG$ ( 2 ) , KLASSE$ ( 8 ) , CHECKL$ ( 4 ) 0060 DIM GRENKODE$ ( 50 ) , OBJECT$ ( 7 ) , KLAS$ ( 3 ) , CHECGREN$ ( 2 ) , M]NEDER$ ( 120 ) , M]NED$ ( 10 ) 0070 DIM OMR]DE$ ( 2 ) , KLDISK$ ( 9 ) , FORMAT$ ( 118 ) , XY$ ( 80 ) , SVAR$ ( 5 ) , MYNDIG$ ( 23 ) 0075 DIM OVERLINE$ ( 118 ) 0080 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER«nul»T 0090 DIM ENRRNR ( 1 , 30 ) , GRENMAT ( 20 ) 0100 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER«nul» 0110 LET XY$ = "`abcdefghij" 0120 LET XY$ = XY$ , "klmnopqrst" 0130 LET XY$ = XY$ , "uvwxyæøå~" 0140 LET XY$ = XY$ , "<127>" 0150 LET XY$ = XY$ , "@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0160 LET XY$ = XY$ , " !<34>#$%&'()*+,-./" 0165 LET OVERLINE$ = "nr gr my/umy cpr" 0166 LET OVERLINE$ = OVERLINE$ , " efternavn fornavn" 0167 LET OVERLINE$ = OVERLINE$ , " adresse tlf.nr." 0170 LET FORMAT$ = "## # ## ########### ##############, #################### ######################################## ######" 0180 REM -------------------------------------------------------------------------«nul» 0190 PROC FORMAT 0200 CASE FORMAT OF 0210 REM «nul»2 0220 WHEN 1 0230 PAGE = 0 0240 PRINT FILE ( 7 ) TAB ( 70 ) ; " " ; M]NED$ 0250 LET ANTAL = 0 0260 FOR I = 1 TO 2 0270 PRINT FILE ( 7 ) "<14> KLASSELISTE FOR " ; KLASSE$ ; "<13>" ; 0280 NEXT 0290 PRINT FILE ( 7 ) 0300 FOR I = 1 TO 2 0310 PRINT FILE ( 7 ) "<14> -----------------------------<13>" ; "<13>" ; 0320 NEXT 0330 PRINT FILE ( 7 ) 0340 PRINT FILE ( 7 ) OVERLINE$ 0350 PRINT FILE ( 7 ) "<14>-----------------------------------------------------------<10>" 0360 WHEN 2 0370 IF GREN$ = "@" THEN LET GREN$ = " " 0380 IF MYNDIG THEN 0390 LET MYNDIG$ = "M" 0400 ELSE 0410 LET MYNDIG$ = "UM" 0420 ENDIF 0430 LET NAVN$ = FNAVN$ , MNAVN$ ADR$ = EADR$ , ", " , POGBY$ 0440 PRINT FILE ( 7 ) FORMAT$ , NR , GREN$ , MYNDIG$ , CPR$ , ENAVN$ , NAVN$ , ADR$ , ETLF$ 0450 IF ANTAL / 3 = INT ( ANTAL / 3 ) THEN 0460 PRINT FILE ( 7 ) "<14>-----------------------------------------------------------" 0470 ENDIF 0480 WHEN 3 0490 PRINT FILE ( 7 ) "<10>" 0500 FOR I = 1 TO 2 0510 PRINT FILE ( 7 ) "<14> -----------------------------" ; "<13>" ; 0520 NEXT 0530 PRINT FILE ( 7 ) "<12>" 0540 PAGE = 80 0550 ENDCASE FORMAT«nul» 0560 ENDPROC ORMAT«nul» 0570 REM -------------------------------------------------------------------------«nul» 0580 PROC KLASL[S 0590 OPEN FILE ( 7 , 11 ) "$LPT" 0600 LET FORMAT = 1 0610 EXEC FORMAT 0620 LET FORMAT = 2 0630 FOR ENR = 1 TO 30 0640 IF ENRRNR ( 1 , ENR ) < 100 AND ENRRNR ( 1 , ENR ) <> 0 THEN 0650 READ FILE ( 1 , ENRRNR ( 1 , ENR ) ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 0660 READ FILE ( 2 , ENRRNR ( 1 , ENR ) ) EADR$ , POGBY$ , CPR$ , ETLF$ 0670 LET ANTAL = NR 0680 EXEC FORMAT 0690 ENDIF 0700 NEXT 0710 LET FORMAT = 3 0720 EXEC FORMAT 0730 CLOSE FILE ( 7 ) 0740 ENDPROC LASLÆS«nul» 0750 REM -------------------------------------------------------------------------«nul» 0760 PROC CONNKLAS 0770 LET STED = 3 0780 REPEAT 0790 CONNECT KLKODE$ ( STED , STED + 1 ) , 1 0800 LET KLASSE$ = KLKODE$ ( STED - 2 , STED - 1 ) OK = 0 0810 PRINT "<134>" ; XY$ ( 56 ) ; XY$ ( 1 ) ; "FOR " ; KLKODE$ ( STED - 2 , STED - 1 ) 0820 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 0830 OPEN FILE ( 2 , 0 ) "AD-CP-TL" 0840 OPEN FILE ( 5 , 1 ) "ENR-RNR." 0850 MAT READ FILE ( 5 ) ENRRNR 0860 CLOSE FILE ( 5 ) 0870 FOR I = 1 TO 30 0880 IF ENRRNR ( 1 , I ) > 0 AND ENRRNR ( 1 , I ) < 31 THEN LET OK = 1 0890 NEXT 0900 IF OK THEN 0910 EXEC KLASL[S 0920 ENDIF 0930 CLOSE 0940 LET STED = STED + 4 0950 UNTIL STED = 43 0960 PRINT "<134>" ; XY$ ( 56 ) ; XY$ ( 1 ) ; "<30>" 0970 ENDPROC ONNKLAS«nul» 0980 REM -------------------------------------------------------------------------«nul» 0990 PROC CONNGREN 1000 OPEN FILE ( 7 , 11 ) "$LPT" 1010 LET T[LLER = 1 1020 REPEAT 1030 LET OBJECT$ = GRENKODE$ ( GRENMAT ( T[LLER ) , GRENMAT ( T[LLER + 1 ) - 1 ) 1040 LET FORMAT = 1 KLASSE$ = KLTRIN$ ( 1 ) , OBJECT$ 1050 LET CHECGREN$ = OBJECT$ ( LEN ( OBJECT$ ) ) 1060 EXEC FORMAT 1070 FOR B = 1 TO LEN ( OBJECT$ ) - 1 1080 LET KLAS$ = KLTRIN$ ( 1 ) , OBJECT$ ( B ) C = - 3 1090 REPEAT 1100 LET C = C + 4 1110 UNTIL KLKODE$ ( C , C + 1 ) = KLAS$ OR C >= 40 1120 IF KLKODE$ ( C , C + 1 ) = KLAS$ THEN 1130 CONNECT KLKODE$ ( C + 2 , C + 3 ) , 1 1140 PRINT "<134>" ; XY$ ( 56 ) ; XY$ ( 1 ) ; "FOR<30> " ; KLASSE$ 1150 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 1160 OPEN FILE ( 2 , 0 ) "AD-CP-TL" 1170 OPEN FILE ( 5 , 1 ) "ENR-RNR." 1180 MAT READ FILE ( 5 ) ENRRNR 1190 CLOSE FILE ( 5 ) 1200 EXEC KLASSCAN 1210 CLOSE FILE ( 1 ) 1220 CLOSE FILE ( 2 ) 1230 ENDIF 1240 NEXT 1250 LET FORMAT = 3 T[LLER = T[LLER + 1 ANTAL = 0 1260 EXEC FORMAT 1270 UNTIL NOT GRENMAT ( T[LLER + 1 ) 1280 PRINT "<134>" ; XY$ ( 56 ) ; XY$ ( 1 ) ; "<30>" 1290 CLOSE FILE ( 7 ) 1300 ENDPROC ONNGREN«nul» 1310 REM -------------------------------------------------------------------------«nul» 1320 PROC KLASSCAN 1330 FOR ENR = 1 TO 30 1340 IF ENRRNR ( 1 , ENR ) < 100 AND ENRRNR ( 1 , ENR ) <> 0 THEN 1350 LET RNR = ENRRNR ( 1 , ENR ) 1360 READ FILE ( 1 , RNR ) NR , GREN$ 1370 IF GREN$ = CHECGREN$ THEN 1380 READ FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ , MYNDIG 1390 READ FILE ( 2 , RNR ) EADR$ , POGBY$ , CPR$ , ETLF$ 1400 LET ANTAL = ANTAL + 1 NR = ANTAL 1410 LET FORMAT = 2 1420 EXEC FORMAT 1430 ENDIF 1440 ENDIF 1450 NEXT 1460 ENDPROC LASSCAN«nul» 1470 REM -------------------------------------------------------------------------«nul» 1480 PROC DISKONT 1490 REPEAT 1500 LET OK = 1 1510 CONNECT "OVERSIGT" , 1 1520 OPEN FILE ( 1 , 0 ) "KL-KODE" 1530 OPEN FILE ( 2 , 1 ) "GRENKODE" 1540 READ FILE ( 1 , 1 ) KLKODE$ 1550 READ FILE ( 1 , 2 ) KLTRIN$ 1560 READ FILE ( 2 ) GRENKODE$ 1570 MAT READ FILE ( 2 ) GRENMAT 1580 CLOSE 1590 IF KLTRIN$ <> CHECKL$ THEN 1600 RELEASE 1610 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 1620 LET OK = 0 1630 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; "DISKETTE <34>" ; KLTRIN$ ; "<34> ER INDSAT I FD0" 1640 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "DISKETTE <34>" ; CHECKL$ ; "<34> SKAL INDSÆTTES I FD0" 1650 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 13 ) ; "TAST FØLGENDE :" 1660 PRINT "<134>" ; XY$ ( 43 ) ; XY$ ( 14 ) ; "-------------------" 1670 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 16 ) ; "1. LOCK<34>$FD0" 1680 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 18 ) ; "2. SKIFT DISKETTERNE UD" 1690 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 20 ) ; "3. INIT<34>$FD0" 1700 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 22 ) ; "4. CON" 1710 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 12 ) ; 1720 STOP «nul» 1730 ELSE 1740 ENDIF 1750 UNTIL OK 1760 ENDPROC ISKONT«nul» 1770 REM -----------------------------------------------------------------------«nul»«nul» 1780 PROC KLLISTER 1790 REPEAT 1800 PRINT "<140><134>" ; XY$ ( 27 ) ; XY$ ( 1 ) ; "UDSKRIVNING AF KLASSELISTER" 1810 PRINT "<134>" ; XY$ ( 13 ) ; XY$ ( 2 ) ; "-------------------------------------------------" 1820 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 5 ) ; "A : RENE KLASSELISTER FOR ALLE KLASSER" 1830 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 7 ) ; "B : RENE KLASSELISTER FOR ET KLASSETRIN" 1840 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 9 ) ; "C : RENE KLASSELISTER FOR EN ENKELT KLASSE" 1850 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 11 ) ; "D : HOLD LISTER FOR ALLE HOLD" 1860 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 13 ) ; "E : HOLD LISTER FOR ENKELT KLASSETRIN" 1870 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 15 ) ; "F : HOLD LISTE FOR ENKELT HOLD" 1880 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 17 ) ; "G : TILBAGE TIL HOVEDOPLYSNINGEN" 1890 PRINT "<134>" ; XY$ ( 13 ) ; XY$ ( 20 ) ; "-------------------------------------------------" 1900 REPEAT 1910 PRINT "<134>" ; XY$ ( 30 ) ; XY$ ( 23 ) ; 1920 INPUT "HVILKEN FUNKTION : <30>" , FUNKVALG$ 1930 UNTIL FUNKVALG$ >= "A" AND FUNKVALG$ <= "G" 1940 CASE FUNKVALG$ OF 1950 REM «nul»2 1960 WHEN "A" 1970 LET KLDISK$ = "1.G2.G3.G" 1980 FOR J = 1 TO 7 STEP 3 1990 LET CHECKL$ = KLDISK$ ( J , J + 2 ) 2000 EXEC DISKONT 2010 EXEC CONNKLAS 2020 NEXT 2030 WHEN "B" 2040 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2050 REPEAT 2060 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2070 INPUT "FOR HVILKET KLASSETRIN SKAL LISTERNE UDSKRIVES : <30>" , KLTRIN$ 2080 UNTIL KLTRIN$ ( 1 ) >= "1" AND KLTRIN$ ( 1 ) <= "3" OR KLTRIN$ = "INGEN" 2090 IF KLTRIN$ <> "INGEN" THEN 2100 LET CHECKL$ = KLTRIN$ ( 1 ) , ".G" 2110 EXEC DISKONT 2120 EXEC CONNKLAS 2130 ENDIF 2140 WHEN "C" 2150 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2160 REPEAT 2170 REPEAT 2180 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2190 INPUT "FOR HVILKEN KLASSE SKAL LISTEN UDSKRIVES :<30> " , KLASSE$ 2200 UNTIL KLASSE$ ( 1 ) >= "1" AND KLASSE$ ( 1 ) <= "3" AND LEN ( KLASSE$ ) >= 2 OR KLASSE$ = "INGEN" 2210 LET CHECKL$ = KLASSE$ ( 1 ) , ".G" IORDEN = 1 2220 EXEC DISKONT 2230 LET I = 1 2240 REPEAT 2250 IF KLKODE$ ( I , I + 1 ) = KLASSE$ THEN 2260 LET OMR]DE$ = KLKODE$ ( I + 2 , I + 3 ) 2270 ENDIF 2280 LET I = I + 4 2290 UNTIL KLKODE$ ( I - 4 , I - 3 ) = KLASSE$ 2300 LET I = I - 4 2310 IF KLKODE$ ( I , I + 1 ) <> KLASSE$ THEN 2320 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; KLASSE$ ; " FINDES IKKE I <34>" ; CHECKL$ ; "<34><7><30>" 2330 DELAY = 2 2340 LET IORDEN = 0 2350 ENDIF 2360 UNTIL IORDEN 2370 CONNECT OMR]DE$ , 1 2380 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 2390 OPEN FILE ( 2 , 0 ) "AD-CP-TL" 2400 OPEN FILE ( 5 , 1 ) "ENR-RNR." 2410 MAT READ FILE ( 5 ) ENRRNR 2420 CLOSE FILE ( 5 ) 2430 EXEC KLASL[S 2440 CLOSE 2450 WHEN "D" 2460 LET KLDISK$ = "2.G3.G" 2470 FOR A = 1 TO 4 STEP 3 2480 LET CHECKL$ = KLDISK$ ( A , A + 2 ) 2490 EXEC DISKONT 2500 EXEC CONNGREN 2510 NEXT 2520 WHEN "E" 2530 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2540 REPEAT 2550 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2560 INPUT "FOR HVILKET KLASSETRIN SKAL LISTERNE UDSKRIVES <30>:" , KLTRIN$ 2570 UNTIL KLTRIN$ ( 1 ) = "2" OR KLTRIN$ ( 1 ) = "3" OR KLTRIN$ = "INGEN" 2580 IF KLTRIN$ <> "INGEN" THEN 2590 LET CHECKL$ = KLTRIN$ ( 1 ) , ".G" 2600 EXEC DISKONT 2610 EXEC CONNGREN 2620 ENDIF 2630 WHEN "F" 2640 REPEAT 2650 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2660 REPEAT 2670 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2680 INPUT "FOR HVILKET HOLD SKAL LISTEN UDSKRIVES<30> :" , KLASSE$ 2690 UNTIL ( ( KLASSE$ ( 1 ) = "2" OR KLASSE$ ( 1 ) = "3" ) AND LEN ( KLASSE$ ) >= 3 ) OR KLASSE$ = "INGEN" 2700 IF KLASSE$ <> "INGEN" THEN 2710 LET CHECKL$ = KLASSE$ ( 1 ) , ".G" A = 0 2720 EXEC DISKONT 2730 REPEAT 2740 LET A = A + 1 2750 UNTIL KLASSE$ ( 2 , LEN ( KLASSE$ ) ) = GRENKODE$ ( GRENMAT ( A ) , GRENMAT ( A + 1 ) - 1 ) OR NOT GRENMAT ( A + 2 ) 2760 IF KLASSE$ ( 2 , LEN ( KLASSE$ ) ) = GRENKODE$ ( GRENMAT ( A ) , GRENMAT ( A + 1 ) - 1 ) THEN 2770 LET OBJECT$ = KLASSE$ ( 2 , LEN ( KLASSE$ ) ) CHECGREN$ = KLASSE$ ( LEN ( KLASSE$ ) ) FORMAT = 1 2780 OPEN FILE ( 7 , 11 ) "$LPT" 2790 EXEC FORMAT 2800 FOR B = 1 TO LEN ( OBJECT$ ) - 1 2810 LET KLAS$ = KLTRIN$ ( 1 ) , OBJECT$ ( B ) C = - 3 2820 REPEAT 2830 LET C = C + 4 2840 UNTIL KLKODE$ ( C , C + 1 ) = KLAS$ OR C >= 40 2850 IF KLKODE$ ( C , C + 1 ) = KLAS$ THEN 2860 CONNECT KLKODE$ ( C + 2 , C + 3 ) , 1 2870 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 2880 OPEN FILE ( 2 , 0 ) "AD-CP-TL" 2890 OPEN FILE ( 5 , 1 ) "ENR-RNR." 2900 MAT READ FILE ( 5 ) ENRRNR 2910 CLOSE FILE ( 5 ) 2920 EXEC KLASSCAN 2930 ELSE 2940 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "<31><7>" ; KLAS$ ; "FINDES IKKE I " ; KLTRIN$ 2950 DELAY = 2 2960 ENDIF 2970 CLOSE FILE ( 1 ) 2980 CLOSE FILE ( 2 ) 2990 NEXT 3000 LET FORMAT = 3 3010 EXEC FORMAT 3020 CLOSE FILE ( 7 ) 3030 ELSE 3040 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "<31><7>KOMBINATIONEN " ; KLASSE$ ( 2 , LEN ( KLASSE$ ) ) ; " FINDES IKKE I " ; KLTRIN$ 3050 DELAY = 2 3060 ENDIF 3070 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 3080 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 3090 INPUT "SKAL DER SKRIVES FLERE ENKELTE LISTER : " , SVAR$ 3100 ELSE 3110 LET SVAR$ = "NEJ" 3120 ENDIF 3130 UNTIL SVAR$ <> "JA" 3140 WHEN "G" 3150 REM «nul» 3160 ENDCASE «nul» 3170 UNTIL FUNKVALG$ = "G" 3180 ENDPROC LLISTER«nul» 3190 REM -----------------------------------------------------------------------«nul»«nul» 3200 OPEN FILE ( 1 , 1 ) "NUTID" 3210 OPEN FILE ( 2 , 1 ) "MÅNEDER" 3220 READ FILE ( 1 ) ]R , M]NED 3230 READ FILE ( 2 ) M]NEDER$ 3240 CLOSE 3250 LET M]NED$ = M]NEDER$ ( M]NED * 10 - 9 , M]NED * 10 ) 3260 EXEC KLLISTER 3270 CONNECT "LIB" , 1 3280 PRINT "<29>" 3290 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] = 0x1075
stack[1] = 0x0d58
stack[2] = 0x0546
stack[3] = 0x07dd
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x0089
Loop Top = 0x0468
To Val = 2 (0x41200000)
Step Val = 1 (0x41100000)
Var# = 0x00a1
Loop Top = 0x0784
To Val = 30 (0x421e0000)
Step Val = 1 (0x41100000)
Var# = 0x00a1
Loop Top = 0x0784
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)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x09c3
stack[1] = 0x0b20
stack[2] = 0x0ca3
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0000
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
IF-ELSE stack pointer = 0x0000
stack[0] = 0x0000
stack[1] = 0x0001
stack[2] = 0x0000
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0001
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x00 ]R
0x82 0xffff 0x00 M]NED
0x83 0xffff 0x02 M]NEDER$
0x84 0xffff 0x02 M]NED$
0x85 0xffff 0x00 KLLISTER
0x86 0xffff 0x02 XY$
0x87 0xffff 0x02 FUNKVALG$
0x88 0xffff 0x02 KLDISK$
0x89 0xffff 0x00 I
0x8a 0xffff 0x02 CHECKL$
0x8b 0xffff 0x00 DISKONT
0x8c 0xffff 0x00 CONNKLAS
0x8d 0xffff 0x02 KLTRIN$
0x8e 0xffff 0x02 KLASSE$
0x8f 0xffff 0x00 IORDEN
0x90 0xffff 0x02 KLKODE$
0x91 0xffff 0x02 OMR]DE$
0x92 0xffff 0x00 ENRRNR
0x93 0xffff 0x00 KLASL[S
0x94 0xffff 0x00 A
0x95 0xffff 0x00 CONNGREN
0x96 0xffff 0x02 GRENKODE$
0x97 0xffff 0x00 GRENMAT
0x98 0xffff 0x02 OBJECT$
0x99 0xffff 0x02 CHECGREN$
0x9a 0xffff 0x00 FORMAT
0x9b 0xffff 0x00 B
0x9c 0xffff 0x02 KLAS$
0x9d 0xffff 0x00 C
0x9e 0xffff 0x00 KLASSCAN
0x9f 0xffff 0x02 SVAR$
0xa0 0xffff 0x00 OK
0xa1 0xffff 0x00 ENR
0xa2 0xffff 0x00 RNR
0xa3 0xffff 0x00 NR
0xa4 0xffff 0x02 GREN$
0xa5 0xffff 0x02 ENAVN$
0xa6 0xffff 0x02 FNAVN$
0xa7 0xffff 0x02 MNAVN$
0xa8 0xffff 0x00 MYNDIG
0xa9 0xffff 0x02 EADR$
0xaa 0xffff 0x02 POGBY$
0xab 0xffff 0x02 CPR$
0xac 0xffff 0x02 ETLF$
0xad 0xffff 0x00 ANTAL
0xae 0xffff 0x00 T[LLER
0xaf 0xffff 0x00 STED
0xb0 0xffff 0x00 ENTET
0xb1 0xffff 0x02 MYNDIG$
0xb2 0xffff 0x02 NAVN$
0xb3 0xffff 0x02 ADR$
0xb4 0xffff 0x02 FORMAT$
0xb5 0xffff 0x02 HOLDKODE$
0xb6 0xffff 0x00 DELET
0xb7 0xffff 0x00 J
0xb8 0xffff 0x00 COBNNECT
0xb9 0xffff 0x00 COMNECT
0xba 0xffff 0x02 OVERLINE$
.magic = 0x5356 .u_pas = 0x1087 // Length of UPAS in words .u_das = 0x018f // Length of UDAS in words .u_dvs = 0x018f // 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 = 0x0050 // 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)