|
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: 9512 (0x2528)
Types: COMAL_SAVE
Notes: ======= , LIB::=======
Names: »=======«
└─⟦769c4124f⟧ Bits:30007877 (PROGRAM DISKETTE 80.04.08 (KOPI 2) OMRÅDER: LIB KEY: 1)
└─⟦this⟧
└─⟦b83d0ae16⟧ Bits:30007874 (PROGRAM DISKETTE 29.12.80 OMRÅDE: LIB NØGLE: 1)
└─⟦this⟧
SAVE filename: "FORLIST" 0005 REM PROGRAM NR. 28121980«nul» 0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA«nul» 0020 DIM CPR$ ( 13 ) , ENAVN$ ( 14 ) , FNAVN$ ( 14 ) , MNAVN$ ( 14 ) , NAVN$ ( 42 ) 0030 REM ----------------------------------------------------------------------- DIVERSE STRING VARIABLER«nul» 0040 DIM FUNKVALG$ ( 2 ) , CHECKL$ ( 4 ) , KLTRIN$ ( 4 ) , BREV$ ( 2 ) , KLKODE$ ( 60 ) 0050 DIM KLASSE$ ( 10 ) , OMR]DE$ ( 2 ) , GREN$ ( 5 ) , M]NEDER$ ( 128 ) , M]NED$ ( 10 ) , XY$ ( 80 ) 0060 DIM GRENKODE$ ( 50 ) , HOLD$ ( 2 ) , OMR]DER$ ( 10 ) , GRENE$ ( 10 ) 0070 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER«nul»B 0080 DIM ENRRNR ( 1 , 30 ) , GRENMAT ( 20 ) 0090 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER«nul» 0100 LET XY$ = "`abcdefghij" 0110 LET XY$ = XY$ , "klmnopqrst" 0120 LET XY$ = XY$ , "uvwxyzæøå~" 0130 LET XY$ = XY$ , "<127>" 0140 LET XY$ = XY$ , "@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0150 LET XY$ = XY$ , " !<34>#$%&'()*+,-./" 0160 REM -----------------------------------------------------------------------TILDELING AF FUNKTIONER«nul» 0170 DEF FNX ( VAR98 ) = [LVAR] * 10 - 9 0180 REM -------------------------------------------------------------------------«nul»- 0190 PROC BREVVALG 0200 IF ]RPRO <= 15 THEN 0210 IF M]NEDPRO >= 20 THEN 0220 LET BREV$ = "A" 0230 ELSE 0240 LET BREV$ = " " 0250 ENDIF 0260 ELSE 0270 IF ]RPRO <= 20 THEN 0280 LET BREV$ = "B" 0290 ELSE 0300 LET BREV$ = "C" 0310 ENDIF 0320 ENDIF 0330 ENDPROC REVVALG«nul» 0340 REM -------------------------------------------------------------------------«nul»- 0350 PROC CONNKLAS 0360 LET STED = 3 0370 REPEAT 0380 CONNECT KLKODE$ ( STED , STED + 1 ) , 1 0390 EXEC KLASL[S 0400 LET STED = STED + 4 0410 CLOSE 0420 UNTIL STED = 43 0430 ENDPROC ONNKLAS«nul» 0440 REM -------------------------------------------------------------------------«nul»- 0450 PROC FORMAT 0460 PAGE = 0 0470 IF FORMTOP THEN 0480 PRINT FILE ( 7 ) TAB ( 68 ) ; M]NED$ ; 0490 PRINT FILE ( 7 ) "19##" , ]R 0500 PRINT FILE ( 7 ) 0510 FOR I = 1 TO 2 0520 PRINT FILE ( 7 ) "<14> FORSØMMELSESLISTE FOR " ; KLASSE$ ; "<13>" ; 0530 NEXT 0540 PRINT FILE ( 7 ) "<10>" 0550 FOR I = 1 TO 2 0560 PRINT FILE ( 7 ) "<14> ----------------------------------" ; "<13>" ; 0570 NEXT 0580 PRINT FILE ( 7 ) "<10><10>" 0590 PRINT FILE ( 7 ) ; TAB ( 30 ) ; 0600 PRINT FILE ( 7 ) "###### ! forsm utimer måned% år% brev" , KLASSE$ 0610 PRINT FILE ( 7 ) "-------------------------------------------+---------------------------------------" 0620 PRINT FILE ( 7 ) ; TAB ( 43 ) ; "!" 0630 ELSE 0640 IF NOT TERMINAT THEN 0650 LET NAVN$ = ENAVN$ , ", " , FNAVN$ , MNAVN$ 0660 PRINT FILE ( 7 ) TAB ( 6 ) ; 0670 PRINT FILE ( 7 ) "## ############################### ! ### #### ###% ###% #" , NR , NAVN$ , PJ[K , TIMER , M]NEDPRO , ]RPRO , BREV$ 0680 PRINT FILE ( 7 ) "-------------------------------------------+---------------------------------------" 0690 ELSE 0700 PRINT FILE ( 7 ) "<10>" 0710 FOR I = 1 TO 2 0720 PRINT FILE ( 7 ) "<14> ----------------------------------" ; "<13>" ; 0730 NEXT 0740 PRINT FILE ( 7 ) "<12>" 0750 ENDIF 0760 ENDIF 0770 ENDPROC NFORMAT«nul» 0780 REM -------------------------------------------------------------------------«nul»- 0790 PROC CONNOM 0800 LET KLASSE$ = CHECKL$ ( 1 ) , GRENE$ 0810 PRINT "<134>" ; XY$ ( 57 ) ; XY$ ( 1 ) ; "FOR " ; KLASSE$ ; "<30>" 0820 LET T[LLER1 = 1 T[LLER2 = 2 FORTS[T = 1 0830 WHILE T[LLER1 <= LEN ( OMR]DER$ ) DO 0840 LET T[LLER2 = 2 0850 WHILE T[LLER2 <= LEN ( KLKODE$ ) AND FORTS[T DO 0860 IF KLKODE$ ( T[LLER2 ) = OMR]DER$ ( T[LLER1 ) THEN 0870 LET OMR]DE$ = KLKODE$ ( T[LLER2 + 1 , T[LLER2 + 2 ) FORTS[T = 0 0880 ENDIF 0890 LET T[LLER2 = T[LLER2 + 4 0900 ENDWHILE 0910 IF T[LLER1 = 1 THEN 0920 LET OMGANG = 1 0930 ELSE 0940 LET OMGANG = 0 0950 ENDIF 0960 CLOSE 0970 CONNECT OMR]DE$ , 1 0980 EXEC DATAS\GE 0990 LET T[LLER1 = T[LLER1 + 1 FORTS[T = 1 1000 ENDWHILE 1010 LET TERMINAT = 1 1020 EXEC FORMAT 1030 CLOSE 1040 PRINT "<134>" ; XY$ ( 57 ) ; XY$ ( 1 ) ; "<30>" 1050 ENDPROC ONNOM«nul» 1060 REM -------------------------------------------------------------------------«nul»- 1070 PROC DISKONT 1080 REPEAT 1090 LET OK = 1 1100 CONNECT "OVERSIGT" , 1 1110 OPEN FILE ( 1 , 0 ) "KL-KODE" 1120 OPEN FILE ( 2 , 1 ) "GRENKODE" 1130 READ FILE ( 1 , 1 ) KLKODE$ 1140 READ FILE ( 1 , 2 ) KLTRIN$ 1150 READ FILE ( 2 ) GRENKODE$ 1160 MAT READ FILE ( 2 ) GRENMAT 1170 CLOSE 1180 IF KLTRIN$ <> CHECKL$ THEN 1190 RELEASE 1200 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 1210 LET OK = 0 1220 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; "DISKETTE <34>" ; KLTRIN$ ; "<34> ER INDSAT I FD0" 1230 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 10 ) ; "DISKETTE <34>" ; CHECKL$ ; "<34> SKAL INDSÆTTES I FD0" 1240 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 13 ) ; "TAST FØLGENDE :" 1250 PRINT "<134>" ; XY$ ( 43 ) ; XY$ ( 14 ) ; "-------------------" 1260 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 16 ) ; "1. LOCK<34>$FD0" 1270 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 18 ) ; "2. SKIFT DISKETTERNE UD" 1280 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 20 ) ; "3. INIT<34>$FD0" 1290 PRINT "<134>" ; XY$ ( 45 ) ; XY$ ( 22 ) ; "4. CON" 1300 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 12 ) ; 1310 STOP «nul» 1320 ELSE 1330 ENDIF 1340 UNTIL OK 1350 ENDPROC ISKONT«nul» 1360 REM -------------------------------------------------------------------------«nul»- 1370 PROC KLASL[S 1380 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 1390 OPEN FILE ( 2 , 0 ) "NUMERISK" 1400 OPEN FILE ( 4 , 1 ) "ENR-RNR." 1410 OPEN FILE ( 7 , 11 ) "$LPT" 1420 MAT READ FILE ( 4 ) ENRRNR 1430 CLOSE FILE ( 4 ) 1440 LET FORMTOP = 1 T[LLER = 0 TERMINAT = 0 KONTROL = 0 1450 REPEAT 1460 LET KONTROL = KONTROL + 1 1470 UNTIL ENRRNR ( 1 , KONTROL ) >= 1 AND ENRRNR ( 1 , KONTROL ) <= 30 OR KONTROL = 30 1480 PRINT "<134>" ; XY$ ( 57 ) ; XY$ ( 1 ) ; "FOR " ; KLKODE$ ( STED - 2 , STED - 1 ) 1490 IF KONTROL >= 1 AND KONTROL <= 30 AND ENRRNR ( 1 , KONTROL ) >= 1 AND ENRRNR ( 1 , KONTROL ) <= 30 THEN 1500 LET KLASSE$ = KLKODE$ ( STED - 2 , STED - 1 ) 1510 EXEC FORMAT 1520 LET FORMTOP = 0 OMGANG = 0 1530 WHILE T[LLER <= 30 DO 1540 IF T[LLER <= 29 THEN 1550 REPEAT 1560 LET T[LLER = T[LLER + 1 1570 UNTIL ( ENRRNR ( 1 , T[LLER ) <> 0 AND ENRRNR ( 1 , T[LLER ) < 100 ) OR T[LLER = 30 1580 LET RNR = ENRRNR ( 1 , T[LLER ) 1590 IF RNR >= 1 AND RNR <= 30 AND T[LLER <= 30 THEN 1600 READ FILE ( 1 , RNR ) NR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ 1610 READ FILE ( 2 , RNR ) PJ[K , SUMPJ[K , TIMER , SUMTIMER 1620 IF TIMER <> 0 THEN 1630 LET M]NEDPRO = ( PJ[K * 100 ) / TIMER ]RPRO = ( SUMPJ[K * 100 ) / SUMTIMER 1640 EXEC BREVVALG 1650 ELSE 1660 LET M]NEDPRO = 0 ]RPRO = 0 1670 ENDIF 1680 EXEC FORMAT 1690 ELSE 1700 LET T[LLER = 31 1710 ENDIF 1720 ENDIF 1730 ENDWHILE 1740 LET TERMINAT = 1 1750 EXEC FORMAT 1760 ENDIF 1770 CLOSE 1780 ENDPROC LASLÆS«nul» 1790 REM -------------------------------------------------------------------------«nul»- 1800 PROC DATAS\GE 1810 IF OMGANG THEN 1820 LET FORMTOP = 1 NR = 1 1830 ELSE 1840 LET FORMTOP = 0 1850 ENDIF 1860 LET TERMINAT = 0 KONTROL = 1 1870 LET KLASSE$ = CHECKL$ ( 1 ) , GRENE$ 1880 OPEN FILE ( 1 , 0 ) "NR-GR-NA" 1890 OPEN FILE ( 2 , 0 ) "NUMERISK" 1900 OPEN FILE ( 3 , 1 ) "ENR-RNR." 1910 OPEN FILE ( 7 , 11 ) "$LPT" 1920 MAT READ FILE ( 3 ) ENRRNR 1930 CLOSE FILE ( 3 ) 1940 IF OMGANG THEN EXEC FORMAT 1950 LET FORMTOP = 0 1960 WHILE KONTROL <= 30 AND ENRRNR ( 1 , KONTROL ) <> 0 DO 1970 LET RNR = ENRRNR ( 1 , KONTROL ) 1980 IF RNR >= 1 AND RNR <= 30 THEN 1990 READ FILE ( 1 , RNR ) CNR , GREN$ 2000 IF GREN$ ( LEN ( GREN$ ) ) = HOLD$ THEN 2010 READ FILE ( 1 , RNR ) CNR , GREN$ , ENAVN$ , FNAVN$ , MNAVN$ 2020 READ FILE ( 2 , RNR ) PJ[K , SUMPJ[K , TIMER , SUMTIMER 2030 IF TIMER <> 0 THEN 2040 LET M]NEDPRO = ( PJ[K * 100 ) / TIMER ]RPRO = ( SUMPJ[K * 100 ) / SUMTIMER 2050 EXEC BREVVALG 2060 EXEC FORMAT 2070 LET NR = NR + 1 2080 ENDIF 2090 ENDIF 2100 ENDIF 2110 LET KONTROL = KONTROL + 1 2120 ENDWHILE 2130 ENDPROC ATASØGE«nul» 2140 REM -------------------------------------------------------------------------«nul»- 2150 PROC GRENVALG 2160 LET GREN = 1 2170 REPEAT 2180 LET GRENE$ = GRENKODE$ ( GRENMAT ( GREN ) , GRENMAT ( GREN + 1 ) - 1 ) 2190 LET OMR]DER$ = GRENE$ ( 1 , LEN ( GRENE$ ) - 1 ) HOLD$ = GRENE$ ( LEN ( GRENE$ ) ) 2200 EXEC CONNOM 2210 LET GREN = GREN + 1 2220 UNTIL GRENMAT ( GREN + 1 ) = 0 2230 ENDPROC RENVALG«nul» 2240 REM -------------------------------------------------------------------------«nul»«nul» 2250 PROC INFORMAT 2260 REPEAT 2270 PRINT "<140><134>" ; XY$ ( 13 ) ; XY$ ( 2 ) ; "------------------------------------------------------------" 2280 PRINT "<134>" ; XY$ ( 23 ) ; XY$ ( 1 ) ; "UDSKRIVNING AF FORSØMMELSESLISTER" 2290 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 5 ) ; "A : RENE FORSØMMELSESLISTER FOR ALLE KLASSER" 2300 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 7 ) ; "B : RENE FORSØMMELSESLISTER FOR ENKELT KLASSETRIN" 2310 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 9 ) ; "C : RENE FORSØMMELSESLISTER FOR EN ENKELT KLASSE" 2320 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 11 ) ; "D : HOLD FORSØMMELSESLISTER FOR ALLE KLASSER" 2330 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 13 ) ; "E : HOLD FORSØMMELSESLISTER FOR ENKELT KLASSETRIN" 2340 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 15 ) ; "F : HOLD FORSØMMELSESLISTER FOR EN ENKELT KLASSE" 2350 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 17 ) ; "G : TILBAGE TIL HOVEDOPLYSNING" 2360 PRINT "<134>" ; XY$ ( 13 ) ; XY$ ( 20 ) ; "------------------------------------------------------------" 2370 REPEAT 2380 PRINT "<134>" ; XY$ ( 26 ) ; XY$ ( 23 ) ; 2390 INPUT "HVILKEN PROCEDURE VÆLGES : " , FUNKVALG$ 2400 UNTIL FUNKVALG$ >= "A" AND FUNKVALG$ <= "G" 2410 CASE FUNKVALG$ OF 2420 REM «nul»2 2430 WHEN "A" 2440 LET TRIN = 1 2450 WHILE TRIN <= 3 DO 2460 CASE TRIN OF 2470 REM «nul»2 2480 WHEN 1 2490 LET CHECKL$ = "1.G" 2500 WHEN 2 2510 LET CHECKL$ = "2.G" 2520 WHEN 3 2530 LET CHECKL$ = "3.G" 2540 ENDCASE «nul» 2550 EXEC DISKONT 2560 EXEC CONNKLAS 2570 LET TRIN = TRIN + 1 2580 ENDWHILE 2590 WHEN "B" 2600 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2610 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2620 INPUT "FOR HVILKET KLASSETRIN ØNSKES LISTERNE UDSKREVET : " , CHECKL$ 2630 EXEC DISKONT 2640 EXEC CONNKLAS 2650 WHEN "C" 2660 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2670 REPEAT 2680 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2690 INPUT "FORHVILKEN KLASSE ØNSKES LISTEN UDSKREVET : " , KLASSE$ 2700 UNTIL KLASSE$ ( 1 ) >= "1" AND KLASSE$ ( 1 ) <= "3" OR KLASSE$ ( 1 ) = "I" 2710 WHILE KLASSE$ ( 1 , 2 ) <> "IN" DO 2720 LET CHECKL$ = KLASSE$ ( 1 ) , ".G" 2730 EXEC DISKONT 2740 LET T[LLER = 1 2750 WHILE T[LLER < LEN ( KLKODE$ ) DO 2760 IF KLASSE$ ( 1 , 2 ) = KLKODE$ ( T[LLER , T[LLER + 1 ) THEN 2770 LET OMR]DE$ = KLKODE$ ( T[LLER + 2 , T[LLER + 3 ) 2780 LET STED = T[LLER + 2 T[LLER = LEN ( KLKODE$ ) 2790 ENDIF 2800 LET T[LLER = T[LLER + 4 2810 ENDWHILE 2820 IF LEN ( OMR]DE$ ) = 0 THEN 2830 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; "FEJL-INDTASTNING :<7><30>" 2840 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 9 ) ; KLASSE$ ; " INDEHOLDES IKKE I SYSTEMET <30>" 2850 DELAY = 5 2860 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 2870 ELSE 2880 CONNECT OMR]DE$ , 1 2890 ENDIF 2900 IF LEN ( OMR]DE$ ) <> 0 THEN EXEC KLASL[S 2910 REPEAT 2920 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 2930 INPUT "FOR HVILKEN KLASSE ØNSKES LISTEN UDSKREVET : <30>" , KLASSE$ 2940 UNTIL KLASSE$ ( 1 ) >= "1" AND KLASSE$ ( 1 ) <= "3" OR KLASSE$ ( 1 ) = "I" 2950 ENDWHILE 2960 WHEN "D" 2970 LET TRIN = 2 2980 WHILE TRIN <= 3 DO 2990 CASE TRIN OF 3000 REM «nul»2 3010 WHEN 2 3020 LET CHECKL$ = "2.G" 3030 WHEN 3 3040 LET CHECKL$ = "3.G" 3050 ENDCASE «nul» 3060 EXEC DISKONT 3070 EXEC GRENVALG 3080 LET TRIN = TRIN + 1 3090 ENDWHILE 3100 WHEN "E" 3110 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 3120 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 3130 INPUT "FOR HVILKET KLASSETRIN ØNSKES LISTERNE UDSKREVET : <30>" , CHECKL$ 3140 EXEC DISKONT 3150 EXEC GRENVALG 3160 WHEN "F" 3170 REPEAT 3180 LET FORTS[TE = 0 SLUT = 0 3190 PRINT "<134>" ; XY$ ( 1 ) ; XY$ ( 3 ) ; "<31>" 3200 REPEAT 3210 REPEAT 3220 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 8 ) ; 3230 INPUT "FOR HVILKEN HOLDKLASSE ØNSKES LISTERNE UDSKREVET : <30>" , KLASSE$ 3240 UNTIL KLASSE$ ( 1 ) >= "1" AND KLASSE$ ( 1 ) <= "3" OR KLASSE$ ( 1 ) = "I" 3250 IF KLASSE$ ( 1 ) <> "I" THEN 3260 LET CHECKL$ = KLASSE$ ( 1 ) , ".G" 3270 EXEC DISKONT 3280 LET RYK = 1 FUNDET = 0 3290 REPEAT 3300 IF GRENKODE$ ( GRENMAT ( RYK ) , GRENMAT ( RYK + 1 ) - 1 ) = KLASSE$ ( 2 , LEN ( KLASSE$ ) ) THEN 3310 LET OMR]DER$ = KLASSE$ ( 2 , LEN ( KLASSE$ ) - 1 ) HOLD$ = KLASSE$ ( LEN ( KLASSE$ ) ) 3320 LET GRENE$ = KLASSE$ ( 2 , LEN ( KLASSE$ ) ) 3330 LET FUNDET = 1 3340 ENDIF 3350 LET RYK = RYK + 1 3360 UNTIL GRENMAT ( RYK + 1 ) = 0 OR FUNDET 3370 IF NOT FUNDET THEN 3380 PRINT "<134>" ; XY$ ( 15 ) ; XY$ ( 15 ) ; KLASSE$ ; " EKSISTERER IKKE ! <7><30>" 3390 ELSE 3400 LET FORTS[TE = 1 3410 ENDIF 3420 ELSE 3430 LET SLUT = 1 3440 ENDIF 3450 UNTIL FORTS[TE OR SLUT 3460 IF NOT SLUT THEN 3470 EXEC CONNOM 3480 ENDIF 3490 UNTIL KLASSE$ ( 1 ) = "I" 3500 ENDCASE «nul» 3510 UNTIL FUNKVALG$ = "G" 3520 ENDPROC NFORMAT«nul» 3530 REM -------------------------------------------------------------------------«nul»«nul» 3540 OPEN FILE ( 1 , 1 ) "NUTID" 3550 READ FILE ( 1 ) ]R , M]NED , DATO 3560 CLOSE FILE ( 1 ) 3570 OPEN FILE ( 1 , 1 ) "MÅNEDER" 3580 READ FILE ( 1 ) M]NEDER$ 3590 CLOSE FILE ( 1 ) 3600 LET M]NED$ = M]NEDER$ ( FNX ( M]NED ) , FNX ( M]NED ) + 9 ) 3610 EXEC INFORMAT 3620 CONNECT "LIB" , 1 3630 ENTER "PROGVALG" 3640 PRINT "<29>"
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 = 0x0212
FNY definition = 0xffff
FNZ definition = 0xffff
FN[ definition = 0xffff
FN\ definition = 0xffff
FN] definition = 0xffff
GOSUB-RETURN stack pointer = 0x0000
stack[0] = 0x10cd
stack[1] = 0x0ccd
stack[2] = 0x02c2
stack[3] = 0x08e9
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
FOR-NEXT stack pointer = 0x0000
Var# = 0x00b9
Loop Top = 0x049e
To Val = 2 (0x41200000)
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)
Var# = 0x0000
Loop Top = 0x0000
To Val = 0 (0x00000000)
Step Val = 0 (0x00000000)
REPEAT-UNTIL stack pointer = 0x0000
stack[0] = 0x0ace
stack[1] = 0x05f0
stack[2] = 0x07d2
stack[3] = 0x0000
stack[4] = 0x0000
stack[5] = 0x0000
stack[6] = 0x0000
WHILE-ENDWHILE stack pointer = 0x0000
stack[0] = 0x0c95
stack[1] = 0x0842
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] = 0x0001
stack[3] = 0x0001
stack[4] = 0x0000
stack[5] = 0x0001
stack[6] = 0x0000
Variables:
0x80 0xffff 0x00
0x81 0xffff 0x00 ]R
0x82 0xffff 0x00 M]NED
0x83 0xffff 0x00 DATO
0x84 0xffff 0x02 M]NEDER$
0x85 0xffff 0x02 M]NED$
0x86 0xffff 0x00 INFORMAT
0x87 0xffff 0x02 XY$
0x88 0xffff 0x02 FUNKVALG$
0x89 0xffff 0x00 TRIN
0x8a 0xffff 0x02 CHECKL$
0x8b 0xffff 0x00 DISKONT
0x8c 0xffff 0x00 CONNKLAS
0x8d 0xffff 0x02 KLASSE$
0x8e 0xffff 0x00 T[LLER
0x8f 0xffff 0x02 KLKODE$
0x90 0xffff 0x02 OMR]DE$
0x91 0xffff 0x00 STED
0x92 0xffff 0x00 KLASL[S
0x93 0xffff 0x00 GRENVALG
0x94 0xffff 0x00 FORTS[TE
0x95 0xffff 0x00 SLUT
0x96 0xffff 0x00 RYK
0x97 0xffff 0x00 FUNDET
0x98 0xffff 0x02 GRENKODE$
0x99 0xffff 0x00 GRENMAT
0x9a 0xffff 0x02 OMR]DER$
0x9b 0xffff 0x02 HOLD$
0x9c 0xffff 0x02 GRENE$
0x9d 0xffff 0x00 CONNOM
0x9e 0xffff 0x00 GREN
0x9f 0xffff 0x00 DATAS\GE
0xa0 0xffff 0x00 OMGANG
0xa1 0xffff 0x00 FORMTOP
0xa2 0xffff 0x00 NR
0xa3 0xffff 0x00 TERMINAT
0xa4 0xffff 0x00 KONTROL
0xa5 0xffff 0x00 ENRRNR
0xa6 0xffff 0x00 FORMAT
0xa7 0xffff 0x00 RNR
0xa8 0xffff 0x00 CNR
0xa9 0xffff 0x02 GREN$
0xaa 0xffff 0x02 ENAVN$
0xab 0xffff 0x02 FNAVN$
0xac 0xffff 0x02 MNAVN$
0xad 0xffff 0x00 PJ[K
0xae 0xffff 0x00 SUMPJ[K
0xaf 0xffff 0x00 TIMER
0xb0 0xffff 0x00 SUMTIMER
0xb1 0xffff 0x00 M]NEDPRO
0xb2 0xffff 0x00 ]RPRO
0xb3 0xffff 0x00 BREVVALG
0xb4 0xffff 0x00 OK
0xb5 0xffff 0x02 KLTRIN$
0xb6 0xffff 0x00 T[LLER1
0xb7 0xffff 0x00 T[LLER2
0xb8 0xffff 0x00 FORTS[T
0xb9 0xffff 0x00 I
0xba 0xffff 0x02 NAVN$
0xbb 0xffff 0x02 BREV$
0xbc 0xffff 0x02 CPR$
.magic = 0x5356 .u_pas = 0x10ec // Length of UPAS in words .u_das = 0x0199 // Length of UDAS in words .u_dvs = 0x0199 // 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)