|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7367 (0x1cc7)
Types: SPC/1-COMAL-BCD
Notes: Mikados_B
Names: »OPSTART«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »OPSTART«
0100 DIM TEK $ ( 25 ) , SVAR1 $ ( 1 ) , SVAR2 $ ( 1 ) , A $ ( 8 ) , B $ ( 17 ) , N $ ( 6 ) , T ( 9 ) , T1 ( 9 ) , T2 ( 9 )
0110 DIM DAT $ ( 8 ) , T3 ( 9 ) , C $ ( 8 )
0120 PROC TESTSYS
0130 A $ = "P641220:"
0140 B $ = A $ + "SYSTEM1"
0150 REPEAT
0160 OPEN B $ , R
0170 IF STATUS ( B $ ) >< 0 THEN
0180 CLEAR
0190 CURSOR 11 , 11
0200 PRINT "Pladen…" ; A $ ( 1 : 7 ) ; "…er…ikke…monteret."
0210 CURSOR 11 , 13
0220 INPUT "Tast…RETURN…n}r…dette…er…gjort." , TEK $
0230 FEJL1 = 1
0240 ELSE
0250 FEJL1 = 0
0260 ENDIF
0270 UNTIL FEJL1 = 0
0280 CLEAR
0290 GET B $ , 2 : MKAS , MBH
0300 EXEC FEJL ( 1 , 1 , B $ )
0310 GET B $ , 4 : MKMID , MFAK
0320 EXEC FEJL ( 1 , 1 , B $ )
0330 CLOSE B $
0340 EXEC FEJL ( 1 , 2 , B $ )
0350 B $ = A $ + "SYSTEM2"
0360 OPEN B $ , W
0370 EXEC FEJL ( 1 , 3 , B $ )
0380 GET B $ , 2 : T ( 1 ) , T ( 2 ) , T ( 3 ) , T ( 4 ) , T ( 5 ) , T ( 6 ) , T ( 7 ) , T ( 8 ) , T ( 9 )
0390 EXEC FEJL ( 1 , 4 , B $ )
0400 GET B $ , 12 : T1 ( 1 ) , T1 ( 2 ) , T1 ( 3 ) , T1 ( 4 ) , T1 ( 5 ) , T1 ( 6 ) , T1 ( 7 ) , T1 ( 8 ) , T1 ( 9 )
0410 EXEC FEJL ( 1 , 5 , B $ )
0420 GET B $ , 13 : T2 ( 1 ) , T2 ( 2 ) , T2 ( 3 ) , T2 ( 4 ) , T2 ( 5 ) , T2 ( 6 ) , T2 ( 7 ) , T2 ( 8 ) , T2 ( 9 )
0430 EXEC FEJL ( 1 , 6 , B $ )
0440 GET B $ , 17 : T3 ( 1 ) , T3 ( 2 ) , T3 ( 3 ) , T3 ( 4 ) , T3 ( 5 ) , T3 ( 6 ) , T3 ( 7 ) , T3 ( 8 ) , T3 ( 9 )
0450 EXEC FEJL ( 1 , 7 , B $ )
0460 IF T3 ( 1 ) = 0 THEN
0470 CURSOR 21 , 11
0480 PRINT "Godmorgen.…H}ber…at…vi…m}…f}…en…god…dag…sammen."
0490 CURSOR 21 , 13
0500 PRINT "Indtast…dato…som…]]MMDD,…hvor…]]…er…}ret,…MM…er"
0510 REPEAT
0520 CURSOR 21 , 15
0530 INPUT "m}neden…og…DD…er…dagen:" , DAT $
0540 P = 0 ; TEST2 = 0
0550 FOR I = 1 TO 6
0560 P1 = INT ( ORD ( DAT $ ( I ) ) - 48 )
0570 IF P1 >= 0 AND P1 =< 9 THEN
0580 P = P * 10 + P1
0590 ELSE
0600 TEST2 = 1
0610 ENDIF
0620 NEXT I
0630 IF TEST2 = 0 THEN I = ( P DIV 100 ) MOD 100
0640 UNTIL TEST2 = 0 AND I < 13 AND P MOD 100 < 32 AND P DIV 10000 > 78
0650 T ( 7 ) = P ; T3 ( 1 ) = 1
0660 PUT B $ , 2 : T ( 1 ) , T ( 2 ) , T ( 3 ) , T ( 4 ) , T ( 5 ) , T ( 6 ) , T ( 7 ) , T ( 8 ) , T ( 9 )
0670 EXEC FEJL ( 1 , 8 , B $ )
0680 PUT B $ , 17 : T3 ( 1 ) , T3 ( 2 ) , T3 ( 3 ) , T3 ( 4 ) , T3 ( 5 ) , T3 ( 6 ) , T3 ( 7 ) , T3 ( 8 ) , T3 ( 9 )
0690 EXEC FEJL ( 1 , 9 , B $ )
0700 ENDIF
0710 CLOSE B $
0720 EXEC FEJL ( 1 , 10 , B $ )
0730 ENDPROC
0740 PROC BIL
0750 CLEAR
0760 CURSOR 20 , 9
0770 PRINT "*****************************************"
0780 CURSOR 20 , 10
0790 PRINT "*" ; TAB ( 41 ) ; "*"
0800 CURSOR 20 , 11
0810 PRINT "*" ; TAB ( 11 ) ; TEK $ ; TAB ( 41 ) ; "*"
0820 CURSOR 20 , 12
0830 PRINT "*" ; TAB ( 41 ) ; "*"
0840 CURSOR 20 , 13
0850 PRINT "*****************************************"
0860 ENDPROC
0870 PROC FEJL ( NR1 , NR2 , NR3 )
0880 IF STATUS ( NR3 $ ) >< 0 THEN
0890 PRINT STATUS ( NR3 $ ) , NR1 , NR2 , NR3 $
0900 STOP
0910 ENDIF
0920 ENDPROC
0930 EXEC TESTSYS
0940 A $ = "P641210:" ; C $ = "P641215:"
0950 GENT = 0
0960 REPEAT
0970 TEK $ = "…………………………………………………………………"
0980 CLEAR
0990 CURSOR 21 , 1
1000 PRINT "Programvalg."
1010 CURSOR 11 , 4
1020 PRINT "1:…Kartoteksvedligeholdelse."
1030 CURSOR 11 , 6
1040 PRINT "2:…Fakturering."
1050 CURSOR 11 , 8
1060 PRINT "3:…Bogf|ring."
1070 CURSOR 11 , 10
1080 PRINT "4:…Sp|rge-…og…listeprogrammer."
1090 CURSOR 11 , 12
1100 PRINT "5:…Sikkerhedskopiering."
1110 CURSOR 11 , 14
1120 PRINT "6:…Dagsafslutning."
1130 CURSOR 11 , 16
1140 PRINT "7:…M}nedsafslutning."
1150 CURSOR 11 , 18
1160 PRINT "8:…]rsafslutning."
1170 REPEAT
1180 CURSOR 11 , 21
1190 INPUT "V{lg…1-8:" , SVAR1 $
1200 UNTIL SVAR1 $ >= "1" AND SVAR1 $ =< "8"
1210 CLEAR
1220 CURSOR 21 , 1
1230 FEJL1 = 0 ; D = 0 ; E = 0 ; F = 0
1240 CASE SVAR1 $ OF
1250 WHEN "1"
1260 PRINT "Programvalg:…Kartoteksvedligeholdelse."
1270 CURSOR 11 , 4
1280 PRINT "1:…Kundekontovedligeholdelse."
1290 CURSOR 11 , 6
1300 PRINT "2:…Finanskontovedligeholdelse."
1310 CURSOR 11 , 8
1320 PRINT "3:…Kreditorkontovedligeholdelse."
1330 CURSOR 11 , 10
1340 PRINT "4:…Varevedligeholdelse."
1350 CURSOR 11 , 12
1360 PRINT "5:…Systemvedligeholdelse."
1390 REPEAT
1400 CURSOR 11 , 15
1410 INPUT "V{lg…1-5:" , SVAR2 $
1420 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "5"
1430 CASE SVAR2 $ OF
1440 FEJL1 = 1
1450 WHEN "1"
1460 TEK $ = "Kundekontovedligeholdelse." ; B $ = A $ + "DEBVEDL"
1470 WHEN "2"
1480 TEK $ = "Finanskontovedligeholdelse." ; B $ = A $ + "FINVEDL"
1490 WHEN "3"
1500 TEK $ = "Kreditorkontovedligeholdelse" ; B $ = A $ + "KREVEDL"
1510 WHEN "4"
1520 TEK $ = "Varevedligeholdelse." ; B $ = A $ + "VAREVEDL"
1530 WHEN "5"
1540 TEK $ = "Systemvedligeholdelse" ; B $ = A $ + "SYSVEDL"
1570 ENDCASE
1580 WHEN "2"
1590 PRINT "Programvalg.…Fakturering."
1600 CURSOR 11 , 4
1610 PRINT "1:…Fakturering."
1620 CURSOR 11 , 6
1630 PRINT "2:…Udskrivning…af…fakturaer."
1640 CURSOR 11 , 8
1650 PRINT "3:…Udskrivning…af…fakturajournal."
1660 REPEAT
1670 CURSOR 11 , 11
1680 INPUT "V{lg…1-3:" , SVAR2 $
1690 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "3"
1700 CURSOR 21 , 11
1710 CASE SVAR2 $ OF
1720 FEJL1 = 1
1730 WHEN "1"
1740 IF T1 ( 4 ) < MFAK * 20 OR T1 ( 8 ) < MFAK THEN
1750 TEK $ = "Fakturering." ; B $ = A $ + "FAKTURA"
1760 ELSE
1770 PRINT "Der…er…ikke…plads…til…flere…fakturaer."
1780 FEJL1 = 1
1790 ENDIF
1800 WHEN "2"
1810 IF T1 ( 4 ) > 0 THEN
1820 TEK $ = "Udskrivning…af…fakturaer." ; B $ = A $ + "FAKUD"
1830 ELSE
1840 PRINT "Der…ikke…nogle…fakturaer…at…udskrive."
1850 FEJL1 = 1
1860 ENDIF
1870 WHEN "3"
1880 IF T1 ( 7 ) > 0 THEN
1890 TEK $ = "Fakturajournal." ; B $ = A $ + "FJOUR"
1900 ELSE
1910 PRINT "Der…kan…ikke…udskrives…fakturajournal."
1920 FEJL1 = 1
1930 ENDIF
1940 ENDCASE
1950 IF FEJL1 = 1 THEN
1960 CURSOR 21 , 13
1970 INPUT "Tast…RETURN" , TEK $
1980 ENDIF
1990 WHEN "3"
2000 PRINT "Programvalg.…Bogf|ring."
2010 CURSOR 11 , 4
2020 PRINT "1:…Kasserapport."
2030 CURSOR 11 , 6
2040 PRINT "2:…Posteringsark."
2050 REPEAT
2060 CURSOR 11 , 9
2070 INPUT "V{lg…1-2:" , SVAR2 $
2080 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "2"
2090 CASE SVAR2 $ OF
2100 FEJL1 = 1
2110 WHEN "1"
2120 TEK $ = "Kasserapport." ; B $ = A $ + "KASRAP"
2130 WHEN "2"
2140 TEK $ = "Posteringsark" ; B $ = A $ + "PSTERING"
2150 ENDCASE
2160 WHEN "4"
2170 PRINT "Programvalg.…Sp|rge-…og…listeprogrammer."
2180 CURSOR 11 , 4
2190 PRINT "1:…Kontosp|rgeprogram."
2200 CURSOR 11 , 6
2210 PRINT "2:…Debitorlister"
2220 CURSOR 11 , 8
2230 PRINT "3:…Balancer."
2260 REPEAT
2270 CURSOR 11 , 11
2280 INPUT "V{lg…1-3:" , SVAR2 $
2290 UNTIL SVAR2 $ >= "0" AND SVAR2 $ < "4"
2300 CASE SVAR2 $ OF
2310 FEJL1 = 1
2320 WHEN "1"
2330 TEK $ = "Kontosp|rgeprogram" ; B $ = A $ + "KSP1"
2340 WHEN "2"
2350 TEK $ = "Debitorlister" ; B $ = A $ + "DEBLIST"
2360 WHEN "3"
2370 TEK $ = "Balancer" ; B $ = A $ + "BALANCE"
2400 ENDCASE
2410 WHEN "6"
2420 TEK $ = "Dagsafslutning." ; B $ = A $ + "BJ" ; E = 1
2430 WHEN "8"
2440 TEK $ = "]rsafslutning." ; B $ = C $ + "]RSAFS" ; D = 1 ; E = 4
2450 CLEAR
2460 REPEAT
2470 CURSOR 20 , 13
2480 INPUT "Er…m}nedsafslutning…foretaget…(J/N)…" , SVAR2 $
2490 UNTIL SVAR2 $ = "J" OR SVAR2 $ = "N" OR SVAR2 $ = "j" OR SVAR2 $ = "n"
2500 IF SVAR2 $ = "n" OR SVAR2 $ = "N" THEN FEJL1 = 1
2510 WHEN "5"
2520 TEK $ = "Sikkerhedskopiering" ; B $ = C $ + "SKOPI" ; D = 1
2530 WHEN "7"
2540 PRINT "Programvalg.…M}nedsafslutning."
2550 CURSOR 11 , 4
2560 PRINT "1:…M}nedsafslutning."
2570 CURSOR 11 , 6
2580 PRINT "2:…Renteberegning."
2590 REPEAT
2600 CURSOR 11 , 9
2610 INPUT "V{lg…1-2:" , SVAR2 $
2620 UNTIL SVAR2 $ >= "0" AND SVAR2 $ < "3"
2630 CASE SVAR2 $ OF
2640 FEJL1 = 1
2650 WHEN "1"
2660 TEK $ = "M}nedsafslutning" ; B $ = A $ + "MAFSLUT" ; E = 3
2670 WHEN "2"
2680 TEK $ = "Renteberegning." ; B $ = C $ + "RENTE" ; D = 1 ; E = 2
2690 ENDCASE
2700 ENDCASE
2710 IF T1 ( 2 ) > 0 OR T1 ( 4 ) > 0 OR T1 ( 1 ) > 0 THEN F = 1
2720 IF ( F = 1 OR ( T2 ( 1 ) > 0 AND E > 1 ) OR ( T2 ( 8 ) > 0 AND E > 2 ) ) AND E > 0 THEN
2730 CLEAR
2740 CURSOR 20 , 4
2750 PRINT TEK $ ; "…kan…ikke…foretages…,…da…:"
2760 IF T1 ( 2 ) >< 0 THEN
2770 CURSOR 20 , 6
2780 PRINT "1.…Kasserapport…ikke…afstemt"
2790 ENDIF
2800 IF T1 ( 1 ) >< 0 THEN
2810 CURSOR 20 , 8
2820 PRINT "2.Posteringsark…ikke…afsluttet"
2830 ENDIF
2840 IF T1 ( 4 ) >< 0 THEN
2850 CURSOR 20 , 10
2860 PRINT "3.…Fakturaer…ikke…udskrevet"
2870 ENDIF
2880 IF T2 ( 1 ) > 0 AND E > 1 THEN
2890 CURSOR 20 , 12
2900 PRINT "4.…Dagsafslutning…ikke…foretaget"
2910 ENDIF
2920 IF T2 ( 8 ) > 0 AND E > 2 THEN
2930 CURSOR 20 , 14
2940 PRINT "5.…Rentebogf|ring…ikke…foretaget"
2950 ENDIF
2960 REPEAT
2970 CURSOR 20 , 16
2980 INPUT "Tast…RETURN" , SVAR1 $
2990 UNTIL ORD ( SVAR1 $ ) = 255
3000 FEJL1 = 1
3010 ENDIF
3020 IF FEJL1 = 0 THEN
3030 EXEC BIL
3040 IF D = 1 THEN
3050 REPEAT
3060 CURSOR 20 , 15
3070 INPUT "Is{t…plade…nr…15…og…tast…RETURN…" , SVAR1 $
3080 UNTIL ORD ( SVAR1 $ ) = 255
3090 ENDIF
3100 CHAIN B $
3110 ENDIF
3120 UNTIL GENT = 1
3130 END
4d87
0x0000…0073 (0,) 87c0 0100 DIM TEK $ ( 25 ) , SVAR1 $ ( 1 ) , SVAR2 $ ( 1 ) , A $ ( 8 ) , B $ ( 17 ) , N $ ( 6 ) , T ( 9 ) , T1 ( 9 ) , T2 ( 9 )
0x0000…0073 LineComalBcd {
0x0000…0073 ptr = 0x87c0 // 0x0 @0x0
0x0000…0073 lno = 0x0100 // 0x2 @0x2
0x0000…0073 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…0073 at0005 = ╱54╱T╱ // 0x5 @0x5
0x0000…0073 at0006 = ╱45╱E╱ // 0x6 @0x6
0x0000…0073 at0007 = ╱4b╱K╱ // 0x7 @0x7
0x0000…0073 at0008 = ╱ef╱ $ ╱ // 0x8 @0x8
0x0000…0073 at0009 = ╱ed╱ ( ╱ // 0x9 @0x9
0x0000…0073 at000a = ╱32╱2╱ // 0xa @0xa
0x0000…0073 at000b = ╱35╱5╱ // 0xb @0xb
0x0000…0073 at000c = ╱fe0000c805╱ // 0xc @0xc
0x0000…0073 at0011 = ╱ee╱ ) ╱ // 0x11 @0x11
0x0000…0073 at0012 = ╱ec╱ , ╱ // 0x12 @0x12
0x0000…0073 at0013 = ╱53╱S╱ // 0x13 @0x13
0x0000…0073 at0014 = ╱56╱V╱ // 0x14 @0x14
0x0000…0073 at0015 = ╱41╱A╱ // 0x15 @0x15
0x0000…0073 at0016 = ╱52╱R╱ // 0x16 @0x16
0x0000…0073 at0017 = ╱31╱1╱ // 0x17 @0x17
0x0000…0073 at0018 = ╱ef╱ $ ╱ // 0x18 @0x18
0x0000…0073 at0019 = ╱ed╱ ( ╱ // 0x19 @0x19
0x0000…0073 at001a = ╱31╱1╱ // 0x1a @0x1a
0x0000…0073 at001b = ╱fe00008001╱ // 0x1b @0x1b
0x0000…0073 at0020 = ╱ee╱ ) ╱ // 0x20 @0x20
0x0000…0073 at0021 = ╱ec╱ , ╱ // 0x21 @0x21
0x0000…0073 at0022 = ╱53╱S╱ // 0x22 @0x22
0x0000…0073 at0023 = ╱56╱V╱ // 0x23 @0x23
0x0000…0073 at0024 = ╱41╱A╱ // 0x24 @0x24
0x0000…0073 at0025 = ╱52╱R╱ // 0x25 @0x25
0x0000…0073 at0026 = ╱32╱2╱ // 0x26 @0x26
0x0000…0073 at0027 = ╱ef╱ $ ╱ // 0x27 @0x27
0x0000…0073 at0028 = ╱ed╱ ( ╱ // 0x28 @0x28
0x0000…0073 at0029 = ╱31╱1╱ // 0x29 @0x29
0x0000…0073 at002a = ╱fe00008001╱ // 0x2a @0x2a
0x0000…0073 at002f = ╱ee╱ ) ╱ // 0x2f @0x2f
0x0000…0073 at0030 = ╱ec╱ , ╱ // 0x30 @0x30
0x0000…0073 at0031 = ╱41╱A╱ // 0x31 @0x31
0x0000…0073 at0032 = ╱ef╱ $ ╱ // 0x32 @0x32
0x0000…0073 at0033 = ╱ed╱ ( ╱ // 0x33 @0x33
0x0000…0073 at0034 = ╱38╱8╱ // 0x34 @0x34
0x0000…0073 at0035 = ╱fe00008004╱ // 0x35 @0x35
0x0000…0073 at003a = ╱ee╱ ) ╱ // 0x3a @0x3a
0x0000…0073 at003b = ╱ec╱ , ╱ // 0x3b @0x3b
0x0000…0073 at003c = ╱42╱B╱ // 0x3c @0x3c
0x0000…0073 at003d = ╱ef╱ $ ╱ // 0x3d @0x3d
0x0000…0073 at003e = ╱ed╱ ( ╱ // 0x3e @0x3e
0x0000…0073 at003f = ╱31╱1╱ // 0x3f @0x3f
0x0000…0073 at0040 = ╱37╱7╱ // 0x40 @0x40
0x0000…0073 at0041 = ╱fe00008805╱ // 0x41 @0x41
0x0000…0073 at0046 = ╱ee╱ ) ╱ // 0x46 @0x46
0x0000…0073 at0047 = ╱ec╱ , ╱ // 0x47 @0x47
0x0000…0073 at0048 = ╱4e╱N╱ // 0x48 @0x48
0x0000…0073 at0049 = ╱ef╱ $ ╱ // 0x49 @0x49
0x0000…0073 at004a = ╱ed╱ ( ╱ // 0x4a @0x4a
0x0000…0073 at004b = ╱36╱6╱ // 0x4b @0x4b
0x0000…0073 at004c = ╱fe0000c003╱ // 0x4c @0x4c
0x0000…0073 at0051 = ╱ee╱ ) ╱ // 0x51 @0x51
0x0000…0073 at0052 = ╱ec╱ , ╱ // 0x52 @0x52
0x0000…0073 at0053 = ╱54╱T╱ // 0x53 @0x53
0x0000…0073 at0054 = ╱ed╱ ( ╱ // 0x54 @0x54
0x0000…0073 at0055 = ╱39╱9╱ // 0x55 @0x55
0x0000…0073 at0056 = ╱fe00009004╱ // 0x56 @0x56
0x0000…0073 at005b = ╱ee╱ ) ╱ // 0x5b @0x5b
0x0000…0073 at005c = ╱ec╱ , ╱ // 0x5c @0x5c
0x0000…0073 at005d = ╱54╱T╱ // 0x5d @0x5d
0x0000…0073 at005e = ╱31╱1╱ // 0x5e @0x5e
0x0000…0073 at005f = ╱ed╱ ( ╱ // 0x5f @0x5f
0x0000…0073 at0060 = ╱39╱9╱ // 0x60 @0x60
0x0000…0073 at0061 = ╱fe00009004╱ // 0x61 @0x61
0x0000…0073 at0066 = ╱ee╱ ) ╱ // 0x66 @0x66
0x0000…0073 at0067 = ╱ec╱ , ╱ // 0x67 @0x67
0x0000…0073 at0068 = ╱54╱T╱ // 0x68 @0x68
0x0000…0073 at0069 = ╱32╱2╱ // 0x69 @0x69
0x0000…0073 at006a = ╱ed╱ ( ╱ // 0x6a @0x6a
0x0000…0073 at006b = ╱39╱9╱ // 0x6b @0x6b
0x0000…0073 at006c = ╱fe00009004╱ // 0x6c @0x6c
0x0000…0073 at0071 = ╱ee╱ ) ╱ // 0x71 @0x71
0x0000…0073 at0072 = EOL // 0x72 @0x72
0x0000…0073 }
0x0073…009b 87e8 0110 DIM DAT $ ( 8 ) , T3 ( 9 ) , C $ ( 8 )
0x0073…009b LineComalBcd {
0x0073…009b ptr = 0x87e8 // 0x73 @0x0
0x0073…009b lno = 0x0110 // 0x75 @0x2
0x0073…009b at0004 = ╱87╱ DIM ╱ // 0x77 @0x4
0x0073…009b at0005 = ╱44╱D╱ // 0x78 @0x5
0x0073…009b at0006 = ╱41╱A╱ // 0x79 @0x6
0x0073…009b at0007 = ╱54╱T╱ // 0x7a @0x7
0x0073…009b at0008 = ╱ef╱ $ ╱ // 0x7b @0x8
0x0073…009b at0009 = ╱ed╱ ( ╱ // 0x7c @0x9
0x0073…009b at000a = ╱38╱8╱ // 0x7d @0xa
0x0073…009b at000b = ╱fe00008004╱ // 0x7e @0xb
0x0073…009b at0010 = ╱ee╱ ) ╱ // 0x83 @0x10
0x0073…009b at0011 = ╱ec╱ , ╱ // 0x84 @0x11
0x0073…009b at0012 = ╱54╱T╱ // 0x85 @0x12
0x0073…009b at0013 = ╱33╱3╱ // 0x86 @0x13
0x0073…009b at0014 = ╱ed╱ ( ╱ // 0x87 @0x14
0x0073…009b at0015 = ╱39╱9╱ // 0x88 @0x15
0x0073…009b at0016 = ╱fe00009004╱ // 0x89 @0x16
0x0073…009b at001b = ╱ee╱ ) ╱ // 0x8e @0x1b
0x0073…009b at001c = ╱ec╱ , ╱ // 0x8f @0x1c
0x0073…009b at001d = ╱43╱C╱ // 0x90 @0x1d
0x0073…009b at001e = ╱ef╱ $ ╱ // 0x91 @0x1e
0x0073…009b at001f = ╱ed╱ ( ╱ // 0x92 @0x1f
0x0073…009b at0020 = ╱38╱8╱ // 0x93 @0x20
0x0073…009b at0021 = ╱fe00008004╱ // 0x94 @0x21
0x0073…009b at0026 = ╱ee╱ ) ╱ // 0x99 @0x26
0x0073…009b at0027 = EOL // 0x9a @0x27
0x0073…009b }
0x009b…00a8 87f5 0120 PROC TESTSYS
0x009b…00a8 LineComalBcd {
0x009b…00a8 ptr = 0x87f5 // 0x9b @0x0
0x009b…00a8 lno = 0x0120 // 0x9d @0x2
0x009b…00a8 at0004 = ╱9e╱ PROC ╱ // 0x9f @0x4
0x009b…00a8 at0005 = ╱54╱T╱ // 0xa0 @0x5
0x009b…00a8 at0006 = ╱45╱E╱ // 0xa1 @0x6
0x009b…00a8 at0007 = ╱53╱S╱ // 0xa2 @0x7
0x009b…00a8 at0008 = ╱54╱T╱ // 0xa3 @0x8
0x009b…00a8 at0009 = ╱53╱S╱ // 0xa4 @0x9
0x009b…00a8 at000a = ╱59╱Y╱ // 0xa5 @0xa
0x009b…00a8 at000b = ╱53╱S╱ // 0xa6 @0xb
0x009b…00a8 at000c = EOL // 0xa7 @0xc
0x009b…00a8 }
0x00a8…00ba 8807 0130 A $ = "P641220:"
0x00a8…00ba LineComalBcd {
0x00a8…00ba ptr = 0x8807 // 0xa8 @0x0
0x00a8…00ba lno = 0x0130 // 0xaa @0x2
0x00a8…00ba at0004 = ╱41╱A╱ // 0xac @0x4
0x00a8…00ba at0005 = ╱ef╱ $ ╱ // 0xad @0x5
0x00a8…00ba at0006 = ╱dc╱ = ╱ // 0xae @0x6
0x00a8…00ba at0007 = ╱22╱"╱ // 0xaf @0x7
0x00a8…00ba at0008 = ╱50╱P╱ // 0xb0 @0x8
0x00a8…00ba at0009 = ╱36╱6╱ // 0xb1 @0x9
0x00a8…00ba at000a = ╱34╱4╱ // 0xb2 @0xa
0x00a8…00ba at000b = ╱31╱1╱ // 0xb3 @0xb
0x00a8…00ba at000c = ╱32╱2╱ // 0xb4 @0xc
0x00a8…00ba at000d = ╱32╱2╱ // 0xb5 @0xd
0x00a8…00ba at000e = ╱30╱0╱ // 0xb6 @0xe
0x00a8…00ba at000f = ╱3a╱:╱ // 0xb7 @0xf
0x00a8…00ba at0010 = ╱22╱"╱ // 0xb8 @0x10
0x00a8…00ba at0011 = EOL // 0xb9 @0x11
0x00a8…00ba }
0x00ba…00ce 881b 0140 B $ = A $ + "SYSTEM1"
0x00ba…00ce LineComalBcd {
0x00ba…00ce ptr = 0x881b // 0xba @0x0
0x00ba…00ce lno = 0x0140 // 0xbc @0x2
0x00ba…00ce at0004 = ╱42╱B╱ // 0xbe @0x4
0x00ba…00ce at0005 = ╱ef╱ $ ╱ // 0xbf @0x5
0x00ba…00ce at0006 = ╱dc╱ = ╱ // 0xc0 @0x6
0x00ba…00ce at0007 = ╱41╱A╱ // 0xc1 @0x7
0x00ba…00ce at0008 = ╱ef╱ $ ╱ // 0xc2 @0x8
0x00ba…00ce at0009 = ╱f1╱ + ╱ // 0xc3 @0x9
0x00ba…00ce at000a = ╱22╱"╱ // 0xc4 @0xa
0x00ba…00ce at000b = ╱53╱S╱ // 0xc5 @0xb
0x00ba…00ce at000c = ╱59╱Y╱ // 0xc6 @0xc
0x00ba…00ce at000d = ╱53╱S╱ // 0xc7 @0xd
0x00ba…00ce at000e = ╱54╱T╱ // 0xc8 @0xe
0x00ba…00ce at000f = ╱45╱E╱ // 0xc9 @0xf
0x00ba…00ce at0010 = ╱4d╱M╱ // 0xca @0x10
0x00ba…00ce at0011 = ╱31╱1╱ // 0xcb @0x11
0x00ba…00ce at0012 = ╱22╱"╱ // 0xcc @0x12
0x00ba…00ce at0013 = EOL // 0xcd @0x13
0x00ba…00ce }
0x00ce…00d4 8821 0150 REPEAT
0x00ce…00d4 LineComalBcd {
0x00ce…00d4 ptr = 0x8821 // 0xce @0x0
0x00ce…00d4 lno = 0x0150 // 0xd0 @0x2
0x00ce…00d4 at0004 = ╱97╱ REPEAT ╱ // 0xd2 @0x4
0x00ce…00d4 at0005 = EOL // 0xd3 @0x5
0x00ce…00d4 }
0x00d4…00de 882b 0160 OPEN B $ , R
0x00d4…00de LineComalBcd {
0x00d4…00de ptr = 0x882b // 0xd4 @0x0
0x00d4…00de lno = 0x0160 // 0xd6 @0x2
0x00d4…00de at0004 = ╱a7╱ OPEN ╱ // 0xd8 @0x4
0x00d4…00de at0005 = ╱42╱B╱ // 0xd9 @0x5
0x00d4…00de at0006 = ╱ef╱ $ ╱ // 0xda @0x6
0x00d4…00de at0007 = ╱ec╱ , ╱ // 0xdb @0x7
0x00d4…00de at0008 = ╱52╱R╱ // 0xdc @0x8
0x00d4…00de at0009 = EOL // 0xdd @0x9
0x00d4…00de }
0x00de…00f1 883e 0170 IF STATUS ( B $ ) >< 0 THEN
0x00de…00f1 LineComalBcd {
0x00de…00f1 ptr = 0x883e // 0xde @0x0
0x00de…00f1 lno = 0x0170 // 0xe0 @0x2
0x00de…00f1 at0004 = ╱9c╱ IF ╱ // 0xe2 @0x4
0x00de…00f1 at0005 = ╱ce╱ STATUS ╱ // 0xe3 @0x5
0x00de…00f1 at0006 = ╱ed╱ ( ╱ // 0xe4 @0x6
0x00de…00f1 at0007 = ╱42╱B╱ // 0xe5 @0x7
0x00de…00f1 at0008 = ╱ef╱ $ ╱ // 0xe6 @0x8
0x00de…00f1 at0009 = ╱ee╱ ) ╱ // 0xe7 @0x9
0x00de…00f1 at000a = ╱e1╱ >< ╱ // 0xe8 @0xa
0x00de…00f1 at000b = ╱30╱0╱ // 0xe9 @0xb
0x00de…00f1 at000c = ╱fe00000000╱ // 0xea @0xc
0x00de…00f1 at0011 = ╱b6╱ THEN ╱ // 0xef @0x11
0x00de…00f1 at0012 = EOL // 0xf0 @0x12
0x00de…00f1 }
0x00f1…00f7 8844 0180 CLEAR
0x00f1…00f7 LineComalBcd {
0x00f1…00f7 ptr = 0x8844 // 0xf1 @0x0
0x00f1…00f7 lno = 0x0180 // 0xf3 @0x2
0x00f1…00f7 at0004 = ╱a0╱ CLEAR ╱ // 0xf5 @0x4
0x00f1…00f7 at0005 = EOL // 0xf6 @0x5
0x00f1…00f7 }
0x00f7…010c 8859 0190 CURSOR 11 , 11
0x00f7…010c LineComalBcd {
0x00f7…010c ptr = 0x8859 // 0xf7 @0x0
0x00f7…010c lno = 0x0190 // 0xf9 @0x2
0x00f7…010c at0004 = ╱a1╱ CURSOR ╱ // 0xfb @0x4
0x00f7…010c at0005 = ╱31╱1╱ // 0xfc @0x5
0x00f7…010c at0006 = ╱31╱1╱ // 0xfd @0x6
0x00f7…010c at0007 = ╱fe0000b004╱ // 0xfe @0x7
0x00f7…010c at000c = ╱ec╱ , ╱ // 0x103 @0xc
0x00f7…010c at000d = ╱31╱1╱ // 0x104 @0xd
0x00f7…010c at000e = ╱31╱1╱ // 0x105 @0xe
0x00f7…010c at000f = ╱fe0000b004╱ // 0x106 @0xf
0x00f7…010c at0014 = EOL // 0x10b @0x14
0x00f7…010c }
0x010c…0142 888f 0200 PRINT "Pladen…" ; A $ ( 1 : 7 ) ; "…er…ikke…monteret."
0x010c…0142 LineComalBcd {
0x010c…0142 ptr = 0x888f // 0x10c @0x0
0x010c…0142 lno = 0x0200 // 0x10e @0x2
0x010c…0142 at0004 = ╱92╱ PRINT ╱ // 0x110 @0x4
0x010c…0142 at0005 = ╱22╱"╱ // 0x111 @0x5
0x010c…0142 at0006 = ╱50╱P╱ // 0x112 @0x6
0x010c…0142 at0007 = ╱6c╱l╱ // 0x113 @0x7
0x010c…0142 at0008 = ╱61╱a╱ // 0x114 @0x8
0x010c…0142 at0009 = ╱64╱d╱ // 0x115 @0x9
0x010c…0142 at000a = ╱65╱e╱ // 0x116 @0xa
0x010c…0142 at000b = ╱6e╱n╱ // 0x117 @0xb
0x010c…0142 at000c = ╱20╱…╱ // 0x118 @0xc
0x010c…0142 at000d = ╱22╱"╱ // 0x119 @0xd
0x010c…0142 at000e = ╱eb╱ ; ╱ // 0x11a @0xe
0x010c…0142 at000f = ╱41╱A╱ // 0x11b @0xf
0x010c…0142 at0010 = ╱ef╱ $ ╱ // 0x11c @0x10
0x010c…0142 at0011 = ╱ed╱ ( ╱ // 0x11d @0x11
0x010c…0142 at0012 = ╱31╱1╱ // 0x11e @0x12
0x010c…0142 at0013 = ╱fe00008001╱ // 0x11f @0x13
0x010c…0142 at0018 = ╱f0╱ : ╱ // 0x124 @0x18
0x010c…0142 at0019 = ╱37╱7╱ // 0x125 @0x19
0x010c…0142 at001a = ╱fe0000e003╱ // 0x126 @0x1a
0x010c…0142 at001f = ╱ee╱ ) ╱ // 0x12b @0x1f
0x010c…0142 at0020 = ╱eb╱ ; ╱ // 0x12c @0x20
0x010c…0142 at0021 = ╱22╱"╱ // 0x12d @0x21
0x010c…0142 at0022 = ╱20╱…╱ // 0x12e @0x22
0x010c…0142 at0023 = ╱65╱e╱ // 0x12f @0x23
0x010c…0142 at0024 = ╱72╱r╱ // 0x130 @0x24
0x010c…0142 at0025 = ╱20╱…╱ // 0x131 @0x25
0x010c…0142 at0026 = ╱69╱i╱ // 0x132 @0x26
0x010c…0142 at0027 = ╱6b╱k╱ // 0x133 @0x27
0x010c…0142 at0028 = ╱6b╱k╱ // 0x134 @0x28
0x010c…0142 at0029 = ╱65╱e╱ // 0x135 @0x29
0x010c…0142 at002a = ╱20╱…╱ // 0x136 @0x2a
0x010c…0142 at002b = ╱6d╱m╱ // 0x137 @0x2b
0x010c…0142 at002c = ╱6f╱o╱ // 0x138 @0x2c
0x010c…0142 at002d = ╱6e╱n╱ // 0x139 @0x2d
0x010c…0142 at002e = ╱74╱t╱ // 0x13a @0x2e
0x010c…0142 at002f = ╱65╱e╱ // 0x13b @0x2f
0x010c…0142 at0030 = ╱72╱r╱ // 0x13c @0x30
0x010c…0142 at0031 = ╱65╱e╱ // 0x13d @0x31
0x010c…0142 at0032 = ╱74╱t╱ // 0x13e @0x32
0x010c…0142 at0033 = ╱2e╱.╱ // 0x13f @0x33
0x010c…0142 at0034 = ╱22╱"╱ // 0x140 @0x34
0x010c…0142 at0035 = EOL // 0x141 @0x35
0x010c…0142 }
0x0142…0157 88a4 0210 CURSOR 11 , 13
0x0142…0157 LineComalBcd {
0x0142…0157 ptr = 0x88a4 // 0x142 @0x0
0x0142…0157 lno = 0x0210 // 0x144 @0x2
0x0142…0157 at0004 = ╱a1╱ CURSOR ╱ // 0x146 @0x4
0x0142…0157 at0005 = ╱31╱1╱ // 0x147 @0x5
0x0142…0157 at0006 = ╱31╱1╱ // 0x148 @0x6
0x0142…0157 at0007 = ╱fe0000b004╱ // 0x149 @0x7
0x0142…0157 at000c = ╱ec╱ , ╱ // 0x14e @0xc
0x0142…0157 at000d = ╱31╱1╱ // 0x14f @0xd
0x0142…0157 at000e = ╱33╱3╱ // 0x150 @0xe
0x0142…0157 at000f = ╱fe0000d004╱ // 0x151 @0xf
0x0142…0157 at0014 = EOL // 0x156 @0x14
0x0142…0157 }
0x0157…0183 88d0 0220 INPUT "Tast…RETURN…n}r…dette…er…gjort." , TEK $
0x0157…0183 LineComalBcd {
0x0157…0183 ptr = 0x88d0 // 0x157 @0x0
0x0157…0183 lno = 0x0220 // 0x159 @0x2
0x0157…0183 at0004 = ╱91╱ INPUT ╱ // 0x15b @0x4
0x0157…0183 at0005 = ╱22╱"╱ // 0x15c @0x5
0x0157…0183 at0006 = ╱54╱T╱ // 0x15d @0x6
0x0157…0183 at0007 = ╱61╱a╱ // 0x15e @0x7
0x0157…0183 at0008 = ╱73╱s╱ // 0x15f @0x8
0x0157…0183 at0009 = ╱74╱t╱ // 0x160 @0x9
0x0157…0183 at000a = ╱20╱…╱ // 0x161 @0xa
0x0157…0183 at000b = ╱52╱R╱ // 0x162 @0xb
0x0157…0183 at000c = ╱45╱E╱ // 0x163 @0xc
0x0157…0183 at000d = ╱54╱T╱ // 0x164 @0xd
0x0157…0183 at000e = ╱55╱U╱ // 0x165 @0xe
0x0157…0183 at000f = ╱52╱R╱ // 0x166 @0xf
0x0157…0183 at0010 = ╱4e╱N╱ // 0x167 @0x10
0x0157…0183 at0011 = ╱20╱…╱ // 0x168 @0x11
0x0157…0183 at0012 = ╱6e╱n╱ // 0x169 @0x12
0x0157…0183 at0013 = ╱7d╱}╱ // 0x16a @0x13
0x0157…0183 at0014 = ╱72╱r╱ // 0x16b @0x14
0x0157…0183 at0015 = ╱20╱…╱ // 0x16c @0x15
0x0157…0183 at0016 = ╱64╱d╱ // 0x16d @0x16
0x0157…0183 at0017 = ╱65╱e╱ // 0x16e @0x17
0x0157…0183 at0018 = ╱74╱t╱ // 0x16f @0x18
0x0157…0183 at0019 = ╱74╱t╱ // 0x170 @0x19
0x0157…0183 at001a = ╱65╱e╱ // 0x171 @0x1a
0x0157…0183 at001b = ╱20╱…╱ // 0x172 @0x1b
0x0157…0183 at001c = ╱65╱e╱ // 0x173 @0x1c
0x0157…0183 at001d = ╱72╱r╱ // 0x174 @0x1d
0x0157…0183 at001e = ╱20╱…╱ // 0x175 @0x1e
0x0157…0183 at001f = ╱67╱g╱ // 0x176 @0x1f
0x0157…0183 at0020 = ╱6a╱j╱ // 0x177 @0x20
0x0157…0183 at0021 = ╱6f╱o╱ // 0x178 @0x21
0x0157…0183 at0022 = ╱72╱r╱ // 0x179 @0x22
0x0157…0183 at0023 = ╱74╱t╱ // 0x17a @0x23
0x0157…0183 at0024 = ╱2e╱.╱ // 0x17b @0x24
0x0157…0183 at0025 = ╱22╱"╱ // 0x17c @0x25
0x0157…0183 at0026 = ╱ec╱ , ╱ // 0x17d @0x26
0x0157…0183 at0027 = ╱54╱T╱ // 0x17e @0x27
0x0157…0183 at0028 = ╱45╱E╱ // 0x17f @0x28
0x0157…0183 at0029 = ╱4b╱K╱ // 0x180 @0x29
0x0157…0183 at002a = ╱ef╱ $ ╱ // 0x181 @0x2a
0x0157…0183 at002b = EOL // 0x182 @0x2b
0x0157…0183 }
0x0183…0194 88e1 0230 FEJL1 = 1
0x0183…0194 LineComalBcd {
0x0183…0194 ptr = 0x88e1 // 0x183 @0x0
0x0183…0194 lno = 0x0230 // 0x185 @0x2
0x0183…0194 at0004 = ╱46╱F╱ // 0x187 @0x4
0x0183…0194 at0005 = ╱45╱E╱ // 0x188 @0x5
0x0183…0194 at0006 = ╱4a╱J╱ // 0x189 @0x6
0x0183…0194 at0007 = ╱4c╱L╱ // 0x18a @0x7
0x0183…0194 at0008 = ╱31╱1╱ // 0x18b @0x8
0x0183…0194 at0009 = ╱dc╱ = ╱ // 0x18c @0x9
0x0183…0194 at000a = ╱31╱1╱ // 0x18d @0xa
0x0183…0194 at000b = ╱fe00008001╱ // 0x18e @0xb
0x0183…0194 at0010 = EOL // 0x193 @0x10
0x0183…0194 }
0x0194…019a 88e7 0240 ELSE
0x0194…019a LineComalBcd {
0x0194…019a ptr = 0x88e7 // 0x194 @0x0
0x0194…019a lno = 0x0240 // 0x196 @0x2
0x0194…019a at0004 = ╱9a╱ ELSE ╱ // 0x198 @0x4
0x0194…019a at0005 = EOL // 0x199 @0x5
0x0194…019a }
0x019a…01ab 88f8 0250 FEJL1 = 0
0x019a…01ab LineComalBcd {
0x019a…01ab ptr = 0x88f8 // 0x19a @0x0
0x019a…01ab lno = 0x0250 // 0x19c @0x2
0x019a…01ab at0004 = ╱46╱F╱ // 0x19e @0x4
0x019a…01ab at0005 = ╱45╱E╱ // 0x19f @0x5
0x019a…01ab at0006 = ╱4a╱J╱ // 0x1a0 @0x6
0x019a…01ab at0007 = ╱4c╱L╱ // 0x1a1 @0x7
0x019a…01ab at0008 = ╱31╱1╱ // 0x1a2 @0x8
0x019a…01ab at0009 = ╱dc╱ = ╱ // 0x1a3 @0x9
0x019a…01ab at000a = ╱30╱0╱ // 0x1a4 @0xa
0x019a…01ab at000b = ╱fe00000000╱ // 0x1a5 @0xb
0x019a…01ab at0010 = EOL // 0x1aa @0x10
0x019a…01ab }
0x01ab…01b1 88fe 0260 ENDIF
0x01ab…01b1 LineComalBcd {
0x01ab…01b1 ptr = 0x88fe // 0x1ab @0x0
0x01ab…01b1 lno = 0x0260 // 0x1ad @0x2
0x01ab…01b1 at0004 = ╱9b╱ ENDIF ╱ // 0x1af @0x4
0x01ab…01b1 at0005 = EOL // 0x1b0 @0x5
0x01ab…01b1 }
0x01b1…01c3 8910 0270 UNTIL FEJL1 = 0
0x01b1…01c3 LineComalBcd {
0x01b1…01c3 ptr = 0x8910 // 0x1b1 @0x0
0x01b1…01c3 lno = 0x0270 // 0x1b3 @0x2
0x01b1…01c3 at0004 = ╱98╱ UNTIL ╱ // 0x1b5 @0x4
0x01b1…01c3 at0005 = ╱46╱F╱ // 0x1b6 @0x5
0x01b1…01c3 at0006 = ╱45╱E╱ // 0x1b7 @0x6
0x01b1…01c3 at0007 = ╱4a╱J╱ // 0x1b8 @0x7
0x01b1…01c3 at0008 = ╱4c╱L╱ // 0x1b9 @0x8
0x01b1…01c3 at0009 = ╱31╱1╱ // 0x1ba @0x9
0x01b1…01c3 at000a = ╱dc╱ = ╱ // 0x1bb @0xa
0x01b1…01c3 at000b = ╱30╱0╱ // 0x1bc @0xb
0x01b1…01c3 at000c = ╱fe00000000╱ // 0x1bd @0xc
0x01b1…01c3 at0011 = EOL // 0x1c2 @0x11
0x01b1…01c3 }
0x01c3…01c9 8916 0280 CLEAR
0x01c3…01c9 LineComalBcd {
0x01c3…01c9 ptr = 0x8916 // 0x1c3 @0x0
0x01c3…01c9 lno = 0x0280 // 0x1c5 @0x2
0x01c3…01c9 at0004 = ╱a0╱ CLEAR ╱ // 0x1c7 @0x4
0x01c3…01c9 at0005 = EOL // 0x1c8 @0x5
0x01c3…01c9 }
0x01c9…01e1 892e 0290 GET B $ , 2 : MKAS , MBH
0x01c9…01e1 LineComalBcd {
0x01c9…01e1 ptr = 0x892e // 0x1c9 @0x0
0x01c9…01e1 lno = 0x0290 // 0x1cb @0x2
0x01c9…01e1 at0004 = ╱a9╱ GET ╱ // 0x1cd @0x4
0x01c9…01e1 at0005 = ╱42╱B╱ // 0x1ce @0x5
0x01c9…01e1 at0006 = ╱ef╱ $ ╱ // 0x1cf @0x6
0x01c9…01e1 at0007 = ╱ec╱ , ╱ // 0x1d0 @0x7
0x01c9…01e1 at0008 = ╱32╱2╱ // 0x1d1 @0x8
0x01c9…01e1 at0009 = ╱fe00008002╱ // 0x1d2 @0x9
0x01c9…01e1 at000e = ╱f0╱ : ╱ // 0x1d7 @0xe
0x01c9…01e1 at000f = ╱4d╱M╱ // 0x1d8 @0xf
0x01c9…01e1 at0010 = ╱4b╱K╱ // 0x1d9 @0x10
0x01c9…01e1 at0011 = ╱41╱A╱ // 0x1da @0x11
0x01c9…01e1 at0012 = ╱53╱S╱ // 0x1db @0x12
0x01c9…01e1 at0013 = ╱ec╱ , ╱ // 0x1dc @0x13
0x01c9…01e1 at0014 = ╱4d╱M╱ // 0x1dd @0x14
0x01c9…01e1 at0015 = ╱42╱B╱ // 0x1de @0x15
0x01c9…01e1 at0016 = ╱48╱H╱ // 0x1df @0x16
0x01c9…01e1 at0017 = EOL // 0x1e0 @0x17
0x01c9…01e1 }
0x01e1…01fd 894a 0300 EXEC FEJL ( 1 , 1 , B $ )
0x01e1…01fd LineComalBcd {
0x01e1…01fd ptr = 0x894a // 0x1e1 @0x0
0x01e1…01fd lno = 0x0300 // 0x1e3 @0x2
0x01e1…01fd at0004 = ╱9d╱ EXEC ╱ // 0x1e5 @0x4
0x01e1…01fd at0005 = ╱46╱F╱ // 0x1e6 @0x5
0x01e1…01fd at0006 = ╱45╱E╱ // 0x1e7 @0x6
0x01e1…01fd at0007 = ╱4a╱J╱ // 0x1e8 @0x7
0x01e1…01fd at0008 = ╱4c╱L╱ // 0x1e9 @0x8
0x01e1…01fd at0009 = ╱ed╱ ( ╱ // 0x1ea @0x9
0x01e1…01fd at000a = ╱31╱1╱ // 0x1eb @0xa
0x01e1…01fd at000b = ╱fe00008001╱ // 0x1ec @0xb
0x01e1…01fd at0010 = ╱ec╱ , ╱ // 0x1f1 @0x10
0x01e1…01fd at0011 = ╱31╱1╱ // 0x1f2 @0x11
0x01e1…01fd at0012 = ╱fe00008001╱ // 0x1f3 @0x12
0x01e1…01fd at0017 = ╱ec╱ , ╱ // 0x1f8 @0x17
0x01e1…01fd at0018 = ╱42╱B╱ // 0x1f9 @0x18
0x01e1…01fd at0019 = ╱ef╱ $ ╱ // 0x1fa @0x19
0x01e1…01fd at001a = ╱ee╱ ) ╱ // 0x1fb @0x1a
0x01e1…01fd at001b = EOL // 0x1fc @0x1b
0x01e1…01fd }
0x01fd…0217 8964 0310 GET B $ , 4 : MKMID , MFAK
0x01fd…0217 LineComalBcd {
0x01fd…0217 ptr = 0x8964 // 0x1fd @0x0
0x01fd…0217 lno = 0x0310 // 0x1ff @0x2
0x01fd…0217 at0004 = ╱a9╱ GET ╱ // 0x201 @0x4
0x01fd…0217 at0005 = ╱42╱B╱ // 0x202 @0x5
0x01fd…0217 at0006 = ╱ef╱ $ ╱ // 0x203 @0x6
0x01fd…0217 at0007 = ╱ec╱ , ╱ // 0x204 @0x7
0x01fd…0217 at0008 = ╱34╱4╱ // 0x205 @0x8
0x01fd…0217 at0009 = ╱fe00008003╱ // 0x206 @0x9
0x01fd…0217 at000e = ╱f0╱ : ╱ // 0x20b @0xe
0x01fd…0217 at000f = ╱4d╱M╱ // 0x20c @0xf
0x01fd…0217 at0010 = ╱4b╱K╱ // 0x20d @0x10
0x01fd…0217 at0011 = ╱4d╱M╱ // 0x20e @0x11
0x01fd…0217 at0012 = ╱49╱I╱ // 0x20f @0x12
0x01fd…0217 at0013 = ╱44╱D╱ // 0x210 @0x13
0x01fd…0217 at0014 = ╱ec╱ , ╱ // 0x211 @0x14
0x01fd…0217 at0015 = ╱4d╱M╱ // 0x212 @0x15
0x01fd…0217 at0016 = ╱46╱F╱ // 0x213 @0x16
0x01fd…0217 at0017 = ╱41╱A╱ // 0x214 @0x17
0x01fd…0217 at0018 = ╱4b╱K╱ // 0x215 @0x18
0x01fd…0217 at0019 = EOL // 0x216 @0x19
0x01fd…0217 }
0x0217…0233 8980 0320 EXEC FEJL ( 1 , 1 , B $ )
0x0217…0233 LineComalBcd {
0x0217…0233 ptr = 0x8980 // 0x217 @0x0
0x0217…0233 lno = 0x0320 // 0x219 @0x2
0x0217…0233 at0004 = ╱9d╱ EXEC ╱ // 0x21b @0x4
0x0217…0233 at0005 = ╱46╱F╱ // 0x21c @0x5
0x0217…0233 at0006 = ╱45╱E╱ // 0x21d @0x6
0x0217…0233 at0007 = ╱4a╱J╱ // 0x21e @0x7
0x0217…0233 at0008 = ╱4c╱L╱ // 0x21f @0x8
0x0217…0233 at0009 = ╱ed╱ ( ╱ // 0x220 @0x9
0x0217…0233 at000a = ╱31╱1╱ // 0x221 @0xa
0x0217…0233 at000b = ╱fe00008001╱ // 0x222 @0xb
0x0217…0233 at0010 = ╱ec╱ , ╱ // 0x227 @0x10
0x0217…0233 at0011 = ╱31╱1╱ // 0x228 @0x11
0x0217…0233 at0012 = ╱fe00008001╱ // 0x229 @0x12
0x0217…0233 at0017 = ╱ec╱ , ╱ // 0x22e @0x17
0x0217…0233 at0018 = ╱42╱B╱ // 0x22f @0x18
0x0217…0233 at0019 = ╱ef╱ $ ╱ // 0x230 @0x19
0x0217…0233 at001a = ╱ee╱ ) ╱ // 0x231 @0x1a
0x0217…0233 at001b = EOL // 0x232 @0x1b
0x0217…0233 }
0x0233…023b 8988 0330 CLOSE B $
0x0233…023b LineComalBcd {
0x0233…023b ptr = 0x8988 // 0x233 @0x0
0x0233…023b lno = 0x0330 // 0x235 @0x2
0x0233…023b at0004 = ╱a8╱ CLOSE ╱ // 0x237 @0x4
0x0233…023b at0005 = ╱42╱B╱ // 0x238 @0x5
0x0233…023b at0006 = ╱ef╱ $ ╱ // 0x239 @0x6
0x0233…023b at0007 = EOL // 0x23a @0x7
0x0233…023b }
0x023b…0257 89a4 0340 EXEC FEJL ( 1 , 2 , B $ )
0x023b…0257 LineComalBcd {
0x023b…0257 ptr = 0x89a4 // 0x23b @0x0
0x023b…0257 lno = 0x0340 // 0x23d @0x2
0x023b…0257 at0004 = ╱9d╱ EXEC ╱ // 0x23f @0x4
0x023b…0257 at0005 = ╱46╱F╱ // 0x240 @0x5
0x023b…0257 at0006 = ╱45╱E╱ // 0x241 @0x6
0x023b…0257 at0007 = ╱4a╱J╱ // 0x242 @0x7
0x023b…0257 at0008 = ╱4c╱L╱ // 0x243 @0x8
0x023b…0257 at0009 = ╱ed╱ ( ╱ // 0x244 @0x9
0x023b…0257 at000a = ╱31╱1╱ // 0x245 @0xa
0x023b…0257 at000b = ╱fe00008001╱ // 0x246 @0xb
0x023b…0257 at0010 = ╱ec╱ , ╱ // 0x24b @0x10
0x023b…0257 at0011 = ╱32╱2╱ // 0x24c @0x11
0x023b…0257 at0012 = ╱fe00008002╱ // 0x24d @0x12
0x023b…0257 at0017 = ╱ec╱ , ╱ // 0x252 @0x17
0x023b…0257 at0018 = ╱42╱B╱ // 0x253 @0x18
0x023b…0257 at0019 = ╱ef╱ $ ╱ // 0x254 @0x19
0x023b…0257 at001a = ╱ee╱ ) ╱ // 0x255 @0x1a
0x023b…0257 at001b = EOL // 0x256 @0x1b
0x023b…0257 }
0x0257…026b 89b8 0350 B $ = A $ + "SYSTEM2"
0x0257…026b LineComalBcd {
0x0257…026b ptr = 0x89b8 // 0x257 @0x0
0x0257…026b lno = 0x0350 // 0x259 @0x2
0x0257…026b at0004 = ╱42╱B╱ // 0x25b @0x4
0x0257…026b at0005 = ╱ef╱ $ ╱ // 0x25c @0x5
0x0257…026b at0006 = ╱dc╱ = ╱ // 0x25d @0x6
0x0257…026b at0007 = ╱41╱A╱ // 0x25e @0x7
0x0257…026b at0008 = ╱ef╱ $ ╱ // 0x25f @0x8
0x0257…026b at0009 = ╱f1╱ + ╱ // 0x260 @0x9
0x0257…026b at000a = ╱22╱"╱ // 0x261 @0xa
0x0257…026b at000b = ╱53╱S╱ // 0x262 @0xb
0x0257…026b at000c = ╱59╱Y╱ // 0x263 @0xc
0x0257…026b at000d = ╱53╱S╱ // 0x264 @0xd
0x0257…026b at000e = ╱54╱T╱ // 0x265 @0xe
0x0257…026b at000f = ╱45╱E╱ // 0x266 @0xf
0x0257…026b at0010 = ╱4d╱M╱ // 0x267 @0x10
0x0257…026b at0011 = ╱32╱2╱ // 0x268 @0x11
0x0257…026b at0012 = ╱22╱"╱ // 0x269 @0x12
0x0257…026b at0013 = EOL // 0x26a @0x13
0x0257…026b }
0x026b…0275 89c2 0360 OPEN B $ , W
0x026b…0275 LineComalBcd {
0x026b…0275 ptr = 0x89c2 // 0x26b @0x0
0x026b…0275 lno = 0x0360 // 0x26d @0x2
0x026b…0275 at0004 = ╱a7╱ OPEN ╱ // 0x26f @0x4
0x026b…0275 at0005 = ╱42╱B╱ // 0x270 @0x5
0x026b…0275 at0006 = ╱ef╱ $ ╱ // 0x271 @0x6
0x026b…0275 at0007 = ╱ec╱ , ╱ // 0x272 @0x7
0x026b…0275 at0008 = ╱57╱W╱ // 0x273 @0x8
0x026b…0275 at0009 = EOL // 0x274 @0x9
0x026b…0275 }
0x0275…0291 89de 0370 EXEC FEJL ( 1 , 3 , B $ )
0x0275…0291 LineComalBcd {
0x0275…0291 ptr = 0x89de // 0x275 @0x0
0x0275…0291 lno = 0x0370 // 0x277 @0x2
0x0275…0291 at0004 = ╱9d╱ EXEC ╱ // 0x279 @0x4
0x0275…0291 at0005 = ╱46╱F╱ // 0x27a @0x5
0x0275…0291 at0006 = ╱45╱E╱ // 0x27b @0x6
0x0275…0291 at0007 = ╱4a╱J╱ // 0x27c @0x7
0x0275…0291 at0008 = ╱4c╱L╱ // 0x27d @0x8
0x0275…0291 at0009 = ╱ed╱ ( ╱ // 0x27e @0x9
0x0275…0291 at000a = ╱31╱1╱ // 0x27f @0xa
0x0275…0291 at000b = ╱fe00008001╱ // 0x280 @0xb
0x0275…0291 at0010 = ╱ec╱ , ╱ // 0x285 @0x10
0x0275…0291 at0011 = ╱33╱3╱ // 0x286 @0x11
0x0275…0291 at0012 = ╱fe0000c002╱ // 0x287 @0x12
0x0275…0291 at0017 = ╱ec╱ , ╱ // 0x28c @0x17
0x0275…0291 at0018 = ╱42╱B╱ // 0x28d @0x18
0x0275…0291 at0019 = ╱ef╱ $ ╱ // 0x28e @0x19
0x0275…0291 at001a = ╱ee╱ ) ╱ // 0x28f @0x1a
0x0275…0291 at001b = EOL // 0x290 @0x1b
0x0275…0291 }
0x0291…02fa 8a47 0380 GET B $ , 2 : T ( 1 ) , T ( 2 ) , T ( 3 ) , T ( 4 ) , T ( 5 ) , T ( 6 ) , T ( 7 ) , T ( 8 ) , T ( 9 )
0x0291…02fa LineComalBcd {
0x0291…02fa ptr = 0x8a47 // 0x291 @0x0
0x0291…02fa lno = 0x0380 // 0x293 @0x2
0x0291…02fa at0004 = ╱a9╱ GET ╱ // 0x295 @0x4
0x0291…02fa at0005 = ╱42╱B╱ // 0x296 @0x5
0x0291…02fa at0006 = ╱ef╱ $ ╱ // 0x297 @0x6
0x0291…02fa at0007 = ╱ec╱ , ╱ // 0x298 @0x7
0x0291…02fa at0008 = ╱32╱2╱ // 0x299 @0x8
0x0291…02fa at0009 = ╱fe00008002╱ // 0x29a @0x9
0x0291…02fa at000e = ╱f0╱ : ╱ // 0x29f @0xe
0x0291…02fa at000f = ╱54╱T╱ // 0x2a0 @0xf
0x0291…02fa at0010 = ╱ed╱ ( ╱ // 0x2a1 @0x10
0x0291…02fa at0011 = ╱31╱1╱ // 0x2a2 @0x11
0x0291…02fa at0012 = ╱fe00008001╱ // 0x2a3 @0x12
0x0291…02fa at0017 = ╱ee╱ ) ╱ // 0x2a8 @0x17
0x0291…02fa at0018 = ╱ec╱ , ╱ // 0x2a9 @0x18
0x0291…02fa at0019 = ╱54╱T╱ // 0x2aa @0x19
0x0291…02fa at001a = ╱ed╱ ( ╱ // 0x2ab @0x1a
0x0291…02fa at001b = ╱32╱2╱ // 0x2ac @0x1b
0x0291…02fa at001c = ╱fe00008002╱ // 0x2ad @0x1c
0x0291…02fa at0021 = ╱ee╱ ) ╱ // 0x2b2 @0x21
0x0291…02fa at0022 = ╱ec╱ , ╱ // 0x2b3 @0x22
0x0291…02fa at0023 = ╱54╱T╱ // 0x2b4 @0x23
0x0291…02fa at0024 = ╱ed╱ ( ╱ // 0x2b5 @0x24
0x0291…02fa at0025 = ╱33╱3╱ // 0x2b6 @0x25
0x0291…02fa at0026 = ╱fe0000c002╱ // 0x2b7 @0x26
0x0291…02fa at002b = ╱ee╱ ) ╱ // 0x2bc @0x2b
0x0291…02fa at002c = ╱ec╱ , ╱ // 0x2bd @0x2c
0x0291…02fa at002d = ╱54╱T╱ // 0x2be @0x2d
0x0291…02fa at002e = ╱ed╱ ( ╱ // 0x2bf @0x2e
0x0291…02fa at002f = ╱34╱4╱ // 0x2c0 @0x2f
0x0291…02fa at0030 = ╱fe00008003╱ // 0x2c1 @0x30
0x0291…02fa at0035 = ╱ee╱ ) ╱ // 0x2c6 @0x35
0x0291…02fa at0036 = ╱ec╱ , ╱ // 0x2c7 @0x36
0x0291…02fa at0037 = ╱54╱T╱ // 0x2c8 @0x37
0x0291…02fa at0038 = ╱ed╱ ( ╱ // 0x2c9 @0x38
0x0291…02fa at0039 = ╱35╱5╱ // 0x2ca @0x39
0x0291…02fa at003a = ╱fe0000a003╱ // 0x2cb @0x3a
0x0291…02fa at003f = ╱ee╱ ) ╱ // 0x2d0 @0x3f
0x0291…02fa at0040 = ╱ec╱ , ╱ // 0x2d1 @0x40
0x0291…02fa at0041 = ╱54╱T╱ // 0x2d2 @0x41
0x0291…02fa at0042 = ╱ed╱ ( ╱ // 0x2d3 @0x42
0x0291…02fa at0043 = ╱36╱6╱ // 0x2d4 @0x43
0x0291…02fa at0044 = ╱fe0000c003╱ // 0x2d5 @0x44
0x0291…02fa at0049 = ╱ee╱ ) ╱ // 0x2da @0x49
0x0291…02fa at004a = ╱ec╱ , ╱ // 0x2db @0x4a
0x0291…02fa at004b = ╱54╱T╱ // 0x2dc @0x4b
0x0291…02fa at004c = ╱ed╱ ( ╱ // 0x2dd @0x4c
0x0291…02fa at004d = ╱37╱7╱ // 0x2de @0x4d
0x0291…02fa at004e = ╱fe0000e003╱ // 0x2df @0x4e
0x0291…02fa at0053 = ╱ee╱ ) ╱ // 0x2e4 @0x53
0x0291…02fa at0054 = ╱ec╱ , ╱ // 0x2e5 @0x54
0x0291…02fa at0055 = ╱54╱T╱ // 0x2e6 @0x55
0x0291…02fa at0056 = ╱ed╱ ( ╱ // 0x2e7 @0x56
0x0291…02fa at0057 = ╱38╱8╱ // 0x2e8 @0x57
0x0291…02fa at0058 = ╱fe00008004╱ // 0x2e9 @0x58
0x0291…02fa at005d = ╱ee╱ ) ╱ // 0x2ee @0x5d
0x0291…02fa at005e = ╱ec╱ , ╱ // 0x2ef @0x5e
0x0291…02fa at005f = ╱54╱T╱ // 0x2f0 @0x5f
0x0291…02fa at0060 = ╱ed╱ ( ╱ // 0x2f1 @0x60
0x0291…02fa at0061 = ╱39╱9╱ // 0x2f2 @0x61
0x0291…02fa at0062 = ╱fe00009004╱ // 0x2f3 @0x62
0x0291…02fa at0067 = ╱ee╱ ) ╱ // 0x2f8 @0x67
0x0291…02fa at0068 = EOL // 0x2f9 @0x68
0x0291…02fa }
0x02fa…0316 8a63 0390 EXEC FEJL ( 1 , 4 , B $ )
0x02fa…0316 LineComalBcd {
0x02fa…0316 ptr = 0x8a63 // 0x2fa @0x0
0x02fa…0316 lno = 0x0390 // 0x2fc @0x2
0x02fa…0316 at0004 = ╱9d╱ EXEC ╱ // 0x2fe @0x4
0x02fa…0316 at0005 = ╱46╱F╱ // 0x2ff @0x5
0x02fa…0316 at0006 = ╱45╱E╱ // 0x300 @0x6
0x02fa…0316 at0007 = ╱4a╱J╱ // 0x301 @0x7
0x02fa…0316 at0008 = ╱4c╱L╱ // 0x302 @0x8
0x02fa…0316 at0009 = ╱ed╱ ( ╱ // 0x303 @0x9
0x02fa…0316 at000a = ╱31╱1╱ // 0x304 @0xa
0x02fa…0316 at000b = ╱fe00008001╱ // 0x305 @0xb
0x02fa…0316 at0010 = ╱ec╱ , ╱ // 0x30a @0x10
0x02fa…0316 at0011 = ╱34╱4╱ // 0x30b @0x11
0x02fa…0316 at0012 = ╱fe00008003╱ // 0x30c @0x12
0x02fa…0316 at0017 = ╱ec╱ , ╱ // 0x311 @0x17
0x02fa…0316 at0018 = ╱42╱B╱ // 0x312 @0x18
0x02fa…0316 at0019 = ╱ef╱ $ ╱ // 0x313 @0x19
0x02fa…0316 at001a = ╱ee╱ ) ╱ // 0x314 @0x1a
0x02fa…0316 at001b = EOL // 0x315 @0x1b
0x02fa…0316 }
0x0316…0389 8ad6 0400 GET B $ , 12 : T1 ( 1 ) , T1 ( 2 ) , T1 ( 3 ) , T1 ( 4 ) , T1 ( 5 ) , T1 ( 6 ) , T1 ( 7 ) , T1 ( 8 ) , T1 ( 9 )
0x0316…0389 LineComalBcd {
0x0316…0389 ptr = 0x8ad6 // 0x316 @0x0
0x0316…0389 lno = 0x0400 // 0x318 @0x2
0x0316…0389 at0004 = ╱a9╱ GET ╱ // 0x31a @0x4
0x0316…0389 at0005 = ╱42╱B╱ // 0x31b @0x5
0x0316…0389 at0006 = ╱ef╱ $ ╱ // 0x31c @0x6
0x0316…0389 at0007 = ╱ec╱ , ╱ // 0x31d @0x7
0x0316…0389 at0008 = ╱31╱1╱ // 0x31e @0x8
0x0316…0389 at0009 = ╱32╱2╱ // 0x31f @0x9
0x0316…0389 at000a = ╱fe0000c004╱ // 0x320 @0xa
0x0316…0389 at000f = ╱f0╱ : ╱ // 0x325 @0xf
0x0316…0389 at0010 = ╱54╱T╱ // 0x326 @0x10
0x0316…0389 at0011 = ╱31╱1╱ // 0x327 @0x11
0x0316…0389 at0012 = ╱ed╱ ( ╱ // 0x328 @0x12
0x0316…0389 at0013 = ╱31╱1╱ // 0x329 @0x13
0x0316…0389 at0014 = ╱fe00008001╱ // 0x32a @0x14
0x0316…0389 at0019 = ╱ee╱ ) ╱ // 0x32f @0x19
0x0316…0389 at001a = ╱ec╱ , ╱ // 0x330 @0x1a
0x0316…0389 at001b = ╱54╱T╱ // 0x331 @0x1b
0x0316…0389 at001c = ╱31╱1╱ // 0x332 @0x1c
0x0316…0389 at001d = ╱ed╱ ( ╱ // 0x333 @0x1d
0x0316…0389 at001e = ╱32╱2╱ // 0x334 @0x1e
0x0316…0389 at001f = ╱fe00008002╱ // 0x335 @0x1f
0x0316…0389 at0024 = ╱ee╱ ) ╱ // 0x33a @0x24
0x0316…0389 at0025 = ╱ec╱ , ╱ // 0x33b @0x25
0x0316…0389 at0026 = ╱54╱T╱ // 0x33c @0x26
0x0316…0389 at0027 = ╱31╱1╱ // 0x33d @0x27
0x0316…0389 at0028 = ╱ed╱ ( ╱ // 0x33e @0x28
0x0316…0389 at0029 = ╱33╱3╱ // 0x33f @0x29
0x0316…0389 at002a = ╱fe0000c002╱ // 0x340 @0x2a
0x0316…0389 at002f = ╱ee╱ ) ╱ // 0x345 @0x2f
0x0316…0389 at0030 = ╱ec╱ , ╱ // 0x346 @0x30
0x0316…0389 at0031 = ╱54╱T╱ // 0x347 @0x31
0x0316…0389 at0032 = ╱31╱1╱ // 0x348 @0x32
0x0316…0389 at0033 = ╱ed╱ ( ╱ // 0x349 @0x33
0x0316…0389 at0034 = ╱34╱4╱ // 0x34a @0x34
0x0316…0389 at0035 = ╱fe00008003╱ // 0x34b @0x35
0x0316…0389 at003a = ╱ee╱ ) ╱ // 0x350 @0x3a
0x0316…0389 at003b = ╱ec╱ , ╱ // 0x351 @0x3b
0x0316…0389 at003c = ╱54╱T╱ // 0x352 @0x3c
0x0316…0389 at003d = ╱31╱1╱ // 0x353 @0x3d
0x0316…0389 at003e = ╱ed╱ ( ╱ // 0x354 @0x3e
0x0316…0389 at003f = ╱35╱5╱ // 0x355 @0x3f
0x0316…0389 at0040 = ╱fe0000a003╱ // 0x356 @0x40
0x0316…0389 at0045 = ╱ee╱ ) ╱ // 0x35b @0x45
0x0316…0389 at0046 = ╱ec╱ , ╱ // 0x35c @0x46
0x0316…0389 at0047 = ╱54╱T╱ // 0x35d @0x47
0x0316…0389 at0048 = ╱31╱1╱ // 0x35e @0x48
0x0316…0389 at0049 = ╱ed╱ ( ╱ // 0x35f @0x49
0x0316…0389 at004a = ╱36╱6╱ // 0x360 @0x4a
0x0316…0389 at004b = ╱fe0000c003╱ // 0x361 @0x4b
0x0316…0389 at0050 = ╱ee╱ ) ╱ // 0x366 @0x50
0x0316…0389 at0051 = ╱ec╱ , ╱ // 0x367 @0x51
0x0316…0389 at0052 = ╱54╱T╱ // 0x368 @0x52
0x0316…0389 at0053 = ╱31╱1╱ // 0x369 @0x53
0x0316…0389 at0054 = ╱ed╱ ( ╱ // 0x36a @0x54
0x0316…0389 at0055 = ╱37╱7╱ // 0x36b @0x55
0x0316…0389 at0056 = ╱fe0000e003╱ // 0x36c @0x56
0x0316…0389 at005b = ╱ee╱ ) ╱ // 0x371 @0x5b
0x0316…0389 at005c = ╱ec╱ , ╱ // 0x372 @0x5c
0x0316…0389 at005d = ╱54╱T╱ // 0x373 @0x5d
0x0316…0389 at005e = ╱31╱1╱ // 0x374 @0x5e
0x0316…0389 at005f = ╱ed╱ ( ╱ // 0x375 @0x5f
0x0316…0389 at0060 = ╱38╱8╱ // 0x376 @0x60
0x0316…0389 at0061 = ╱fe00008004╱ // 0x377 @0x61
0x0316…0389 at0066 = ╱ee╱ ) ╱ // 0x37c @0x66
0x0316…0389 at0067 = ╱ec╱ , ╱ // 0x37d @0x67
0x0316…0389 at0068 = ╱54╱T╱ // 0x37e @0x68
0x0316…0389 at0069 = ╱31╱1╱ // 0x37f @0x69
0x0316…0389 at006a = ╱ed╱ ( ╱ // 0x380 @0x6a
0x0316…0389 at006b = ╱39╱9╱ // 0x381 @0x6b
0x0316…0389 at006c = ╱fe00009004╱ // 0x382 @0x6c
0x0316…0389 at0071 = ╱ee╱ ) ╱ // 0x387 @0x71
0x0316…0389 at0072 = EOL // 0x388 @0x72
0x0316…0389 }
0x0389…03a5 8af2 0410 EXEC FEJL ( 1 , 5 , B $ )
0x0389…03a5 LineComalBcd {
0x0389…03a5 ptr = 0x8af2 // 0x389 @0x0
0x0389…03a5 lno = 0x0410 // 0x38b @0x2
0x0389…03a5 at0004 = ╱9d╱ EXEC ╱ // 0x38d @0x4
0x0389…03a5 at0005 = ╱46╱F╱ // 0x38e @0x5
0x0389…03a5 at0006 = ╱45╱E╱ // 0x38f @0x6
0x0389…03a5 at0007 = ╱4a╱J╱ // 0x390 @0x7
0x0389…03a5 at0008 = ╱4c╱L╱ // 0x391 @0x8
0x0389…03a5 at0009 = ╱ed╱ ( ╱ // 0x392 @0x9
0x0389…03a5 at000a = ╱31╱1╱ // 0x393 @0xa
0x0389…03a5 at000b = ╱fe00008001╱ // 0x394 @0xb
0x0389…03a5 at0010 = ╱ec╱ , ╱ // 0x399 @0x10
0x0389…03a5 at0011 = ╱35╱5╱ // 0x39a @0x11
0x0389…03a5 at0012 = ╱fe0000a003╱ // 0x39b @0x12
0x0389…03a5 at0017 = ╱ec╱ , ╱ // 0x3a0 @0x17
0x0389…03a5 at0018 = ╱42╱B╱ // 0x3a1 @0x18
0x0389…03a5 at0019 = ╱ef╱ $ ╱ // 0x3a2 @0x19
0x0389…03a5 at001a = ╱ee╱ ) ╱ // 0x3a3 @0x1a
0x0389…03a5 at001b = EOL // 0x3a4 @0x1b
0x0389…03a5 }
0x03a5…0418 8b65 0420 GET B $ , 13 : T2 ( 1 ) , T2 ( 2 ) , T2 ( 3 ) , T2 ( 4 ) , T2 ( 5 ) , T2 ( 6 ) , T2 ( 7 ) , T2 ( 8 ) , T2 ( 9 )
0x03a5…0418 LineComalBcd {
0x03a5…0418 ptr = 0x8b65 // 0x3a5 @0x0
0x03a5…0418 lno = 0x0420 // 0x3a7 @0x2
0x03a5…0418 at0004 = ╱a9╱ GET ╱ // 0x3a9 @0x4
0x03a5…0418 at0005 = ╱42╱B╱ // 0x3aa @0x5
0x03a5…0418 at0006 = ╱ef╱ $ ╱ // 0x3ab @0x6
0x03a5…0418 at0007 = ╱ec╱ , ╱ // 0x3ac @0x7
0x03a5…0418 at0008 = ╱31╱1╱ // 0x3ad @0x8
0x03a5…0418 at0009 = ╱33╱3╱ // 0x3ae @0x9
0x03a5…0418 at000a = ╱fe0000d004╱ // 0x3af @0xa
0x03a5…0418 at000f = ╱f0╱ : ╱ // 0x3b4 @0xf
0x03a5…0418 at0010 = ╱54╱T╱ // 0x3b5 @0x10
0x03a5…0418 at0011 = ╱32╱2╱ // 0x3b6 @0x11
0x03a5…0418 at0012 = ╱ed╱ ( ╱ // 0x3b7 @0x12
0x03a5…0418 at0013 = ╱31╱1╱ // 0x3b8 @0x13
0x03a5…0418 at0014 = ╱fe00008001╱ // 0x3b9 @0x14
0x03a5…0418 at0019 = ╱ee╱ ) ╱ // 0x3be @0x19
0x03a5…0418 at001a = ╱ec╱ , ╱ // 0x3bf @0x1a
0x03a5…0418 at001b = ╱54╱T╱ // 0x3c0 @0x1b
0x03a5…0418 at001c = ╱32╱2╱ // 0x3c1 @0x1c
0x03a5…0418 at001d = ╱ed╱ ( ╱ // 0x3c2 @0x1d
0x03a5…0418 at001e = ╱32╱2╱ // 0x3c3 @0x1e
0x03a5…0418 at001f = ╱fe00008002╱ // 0x3c4 @0x1f
0x03a5…0418 at0024 = ╱ee╱ ) ╱ // 0x3c9 @0x24
0x03a5…0418 at0025 = ╱ec╱ , ╱ // 0x3ca @0x25
0x03a5…0418 at0026 = ╱54╱T╱ // 0x3cb @0x26
0x03a5…0418 at0027 = ╱32╱2╱ // 0x3cc @0x27
0x03a5…0418 at0028 = ╱ed╱ ( ╱ // 0x3cd @0x28
0x03a5…0418 at0029 = ╱33╱3╱ // 0x3ce @0x29
0x03a5…0418 at002a = ╱fe0000c002╱ // 0x3cf @0x2a
0x03a5…0418 at002f = ╱ee╱ ) ╱ // 0x3d4 @0x2f
0x03a5…0418 at0030 = ╱ec╱ , ╱ // 0x3d5 @0x30
0x03a5…0418 at0031 = ╱54╱T╱ // 0x3d6 @0x31
0x03a5…0418 at0032 = ╱32╱2╱ // 0x3d7 @0x32
0x03a5…0418 at0033 = ╱ed╱ ( ╱ // 0x3d8 @0x33
0x03a5…0418 at0034 = ╱34╱4╱ // 0x3d9 @0x34
0x03a5…0418 at0035 = ╱fe00008003╱ // 0x3da @0x35
0x03a5…0418 at003a = ╱ee╱ ) ╱ // 0x3df @0x3a
0x03a5…0418 at003b = ╱ec╱ , ╱ // 0x3e0 @0x3b
0x03a5…0418 at003c = ╱54╱T╱ // 0x3e1 @0x3c
0x03a5…0418 at003d = ╱32╱2╱ // 0x3e2 @0x3d
0x03a5…0418 at003e = ╱ed╱ ( ╱ // 0x3e3 @0x3e
0x03a5…0418 at003f = ╱35╱5╱ // 0x3e4 @0x3f
0x03a5…0418 at0040 = ╱fe0000a003╱ // 0x3e5 @0x40
0x03a5…0418 at0045 = ╱ee╱ ) ╱ // 0x3ea @0x45
0x03a5…0418 at0046 = ╱ec╱ , ╱ // 0x3eb @0x46
0x03a5…0418 at0047 = ╱54╱T╱ // 0x3ec @0x47
0x03a5…0418 at0048 = ╱32╱2╱ // 0x3ed @0x48
0x03a5…0418 at0049 = ╱ed╱ ( ╱ // 0x3ee @0x49
0x03a5…0418 at004a = ╱36╱6╱ // 0x3ef @0x4a
0x03a5…0418 at004b = ╱fe0000c003╱ // 0x3f0 @0x4b
0x03a5…0418 at0050 = ╱ee╱ ) ╱ // 0x3f5 @0x50
0x03a5…0418 at0051 = ╱ec╱ , ╱ // 0x3f6 @0x51
0x03a5…0418 at0052 = ╱54╱T╱ // 0x3f7 @0x52
0x03a5…0418 at0053 = ╱32╱2╱ // 0x3f8 @0x53
0x03a5…0418 at0054 = ╱ed╱ ( ╱ // 0x3f9 @0x54
0x03a5…0418 at0055 = ╱37╱7╱ // 0x3fa @0x55
0x03a5…0418 at0056 = ╱fe0000e003╱ // 0x3fb @0x56
0x03a5…0418 at005b = ╱ee╱ ) ╱ // 0x400 @0x5b
0x03a5…0418 at005c = ╱ec╱ , ╱ // 0x401 @0x5c
0x03a5…0418 at005d = ╱54╱T╱ // 0x402 @0x5d
0x03a5…0418 at005e = ╱32╱2╱ // 0x403 @0x5e
0x03a5…0418 at005f = ╱ed╱ ( ╱ // 0x404 @0x5f
0x03a5…0418 at0060 = ╱38╱8╱ // 0x405 @0x60
0x03a5…0418 at0061 = ╱fe00008004╱ // 0x406 @0x61
0x03a5…0418 at0066 = ╱ee╱ ) ╱ // 0x40b @0x66
0x03a5…0418 at0067 = ╱ec╱ , ╱ // 0x40c @0x67
0x03a5…0418 at0068 = ╱54╱T╱ // 0x40d @0x68
0x03a5…0418 at0069 = ╱32╱2╱ // 0x40e @0x69
0x03a5…0418 at006a = ╱ed╱ ( ╱ // 0x40f @0x6a
0x03a5…0418 at006b = ╱39╱9╱ // 0x410 @0x6b
0x03a5…0418 at006c = ╱fe00009004╱ // 0x411 @0x6c
0x03a5…0418 at0071 = ╱ee╱ ) ╱ // 0x416 @0x71
0x03a5…0418 at0072 = EOL // 0x417 @0x72
0x03a5…0418 }
0x0418…0434 8b81 0430 EXEC FEJL ( 1 , 6 , B $ )
0x0418…0434 LineComalBcd {
0x0418…0434 ptr = 0x8b81 // 0x418 @0x0
0x0418…0434 lno = 0x0430 // 0x41a @0x2
0x0418…0434 at0004 = ╱9d╱ EXEC ╱ // 0x41c @0x4
0x0418…0434 at0005 = ╱46╱F╱ // 0x41d @0x5
0x0418…0434 at0006 = ╱45╱E╱ // 0x41e @0x6
0x0418…0434 at0007 = ╱4a╱J╱ // 0x41f @0x7
0x0418…0434 at0008 = ╱4c╱L╱ // 0x420 @0x8
0x0418…0434 at0009 = ╱ed╱ ( ╱ // 0x421 @0x9
0x0418…0434 at000a = ╱31╱1╱ // 0x422 @0xa
0x0418…0434 at000b = ╱fe00008001╱ // 0x423 @0xb
0x0418…0434 at0010 = ╱ec╱ , ╱ // 0x428 @0x10
0x0418…0434 at0011 = ╱36╱6╱ // 0x429 @0x11
0x0418…0434 at0012 = ╱fe0000c003╱ // 0x42a @0x12
0x0418…0434 at0017 = ╱ec╱ , ╱ // 0x42f @0x17
0x0418…0434 at0018 = ╱42╱B╱ // 0x430 @0x18
0x0418…0434 at0019 = ╱ef╱ $ ╱ // 0x431 @0x19
0x0418…0434 at001a = ╱ee╱ ) ╱ // 0x432 @0x1a
0x0418…0434 at001b = EOL // 0x433 @0x1b
0x0418…0434 }
0x0434…04a7 8bf4 0440 GET B $ , 17 : T3 ( 1 ) , T3 ( 2 ) , T3 ( 3 ) , T3 ( 4 ) , T3 ( 5 ) , T3 ( 6 ) , T3 ( 7 ) , T3 ( 8 ) , T3 ( 9 )
0x0434…04a7 LineComalBcd {
0x0434…04a7 ptr = 0x8bf4 // 0x434 @0x0
0x0434…04a7 lno = 0x0440 // 0x436 @0x2
0x0434…04a7 at0004 = ╱a9╱ GET ╱ // 0x438 @0x4
0x0434…04a7 at0005 = ╱42╱B╱ // 0x439 @0x5
0x0434…04a7 at0006 = ╱ef╱ $ ╱ // 0x43a @0x6
0x0434…04a7 at0007 = ╱ec╱ , ╱ // 0x43b @0x7
0x0434…04a7 at0008 = ╱31╱1╱ // 0x43c @0x8
0x0434…04a7 at0009 = ╱37╱7╱ // 0x43d @0x9
0x0434…04a7 at000a = ╱fe00008805╱ // 0x43e @0xa
0x0434…04a7 at000f = ╱f0╱ : ╱ // 0x443 @0xf
0x0434…04a7 at0010 = ╱54╱T╱ // 0x444 @0x10
0x0434…04a7 at0011 = ╱33╱3╱ // 0x445 @0x11
0x0434…04a7 at0012 = ╱ed╱ ( ╱ // 0x446 @0x12
0x0434…04a7 at0013 = ╱31╱1╱ // 0x447 @0x13
0x0434…04a7 at0014 = ╱fe00008001╱ // 0x448 @0x14
0x0434…04a7 at0019 = ╱ee╱ ) ╱ // 0x44d @0x19
0x0434…04a7 at001a = ╱ec╱ , ╱ // 0x44e @0x1a
0x0434…04a7 at001b = ╱54╱T╱ // 0x44f @0x1b
0x0434…04a7 at001c = ╱33╱3╱ // 0x450 @0x1c
0x0434…04a7 at001d = ╱ed╱ ( ╱ // 0x451 @0x1d
0x0434…04a7 at001e = ╱32╱2╱ // 0x452 @0x1e
0x0434…04a7 at001f = ╱fe00008002╱ // 0x453 @0x1f
0x0434…04a7 at0024 = ╱ee╱ ) ╱ // 0x458 @0x24
0x0434…04a7 at0025 = ╱ec╱ , ╱ // 0x459 @0x25
0x0434…04a7 at0026 = ╱54╱T╱ // 0x45a @0x26
0x0434…04a7 at0027 = ╱33╱3╱ // 0x45b @0x27
0x0434…04a7 at0028 = ╱ed╱ ( ╱ // 0x45c @0x28
0x0434…04a7 at0029 = ╱33╱3╱ // 0x45d @0x29
0x0434…04a7 at002a = ╱fe0000c002╱ // 0x45e @0x2a
0x0434…04a7 at002f = ╱ee╱ ) ╱ // 0x463 @0x2f
0x0434…04a7 at0030 = ╱ec╱ , ╱ // 0x464 @0x30
0x0434…04a7 at0031 = ╱54╱T╱ // 0x465 @0x31
0x0434…04a7 at0032 = ╱33╱3╱ // 0x466 @0x32
0x0434…04a7 at0033 = ╱ed╱ ( ╱ // 0x467 @0x33
0x0434…04a7 at0034 = ╱34╱4╱ // 0x468 @0x34
0x0434…04a7 at0035 = ╱fe00008003╱ // 0x469 @0x35
0x0434…04a7 at003a = ╱ee╱ ) ╱ // 0x46e @0x3a
0x0434…04a7 at003b = ╱ec╱ , ╱ // 0x46f @0x3b
0x0434…04a7 at003c = ╱54╱T╱ // 0x470 @0x3c
0x0434…04a7 at003d = ╱33╱3╱ // 0x471 @0x3d
0x0434…04a7 at003e = ╱ed╱ ( ╱ // 0x472 @0x3e
0x0434…04a7 at003f = ╱35╱5╱ // 0x473 @0x3f
0x0434…04a7 at0040 = ╱fe0000a003╱ // 0x474 @0x40
0x0434…04a7 at0045 = ╱ee╱ ) ╱ // 0x479 @0x45
0x0434…04a7 at0046 = ╱ec╱ , ╱ // 0x47a @0x46
0x0434…04a7 at0047 = ╱54╱T╱ // 0x47b @0x47
0x0434…04a7 at0048 = ╱33╱3╱ // 0x47c @0x48
0x0434…04a7 at0049 = ╱ed╱ ( ╱ // 0x47d @0x49
0x0434…04a7 at004a = ╱36╱6╱ // 0x47e @0x4a
0x0434…04a7 at004b = ╱fe0000c003╱ // 0x47f @0x4b
0x0434…04a7 at0050 = ╱ee╱ ) ╱ // 0x484 @0x50
0x0434…04a7 at0051 = ╱ec╱ , ╱ // 0x485 @0x51
0x0434…04a7 at0052 = ╱54╱T╱ // 0x486 @0x52
0x0434…04a7 at0053 = ╱33╱3╱ // 0x487 @0x53
0x0434…04a7 at0054 = ╱ed╱ ( ╱ // 0x488 @0x54
0x0434…04a7 at0055 = ╱37╱7╱ // 0x489 @0x55
0x0434…04a7 at0056 = ╱fe0000e003╱ // 0x48a @0x56
0x0434…04a7 at005b = ╱ee╱ ) ╱ // 0x48f @0x5b
0x0434…04a7 at005c = ╱ec╱ , ╱ // 0x490 @0x5c
0x0434…04a7 at005d = ╱54╱T╱ // 0x491 @0x5d
0x0434…04a7 at005e = ╱33╱3╱ // 0x492 @0x5e
0x0434…04a7 at005f = ╱ed╱ ( ╱ // 0x493 @0x5f
0x0434…04a7 at0060 = ╱38╱8╱ // 0x494 @0x60
0x0434…04a7 at0061 = ╱fe00008004╱ // 0x495 @0x61
0x0434…04a7 at0066 = ╱ee╱ ) ╱ // 0x49a @0x66
0x0434…04a7 at0067 = ╱ec╱ , ╱ // 0x49b @0x67
0x0434…04a7 at0068 = ╱54╱T╱ // 0x49c @0x68
0x0434…04a7 at0069 = ╱33╱3╱ // 0x49d @0x69
0x0434…04a7 at006a = ╱ed╱ ( ╱ // 0x49e @0x6a
0x0434…04a7 at006b = ╱39╱9╱ // 0x49f @0x6b
0x0434…04a7 at006c = ╱fe00009004╱ // 0x4a0 @0x6c
0x0434…04a7 at0071 = ╱ee╱ ) ╱ // 0x4a5 @0x71
0x0434…04a7 at0072 = EOL // 0x4a6 @0x72
0x0434…04a7 }
0x04a7…04c3 8c10 0450 EXEC FEJL ( 1 , 7 , B $ )
0x04a7…04c3 LineComalBcd {
0x04a7…04c3 ptr = 0x8c10 // 0x4a7 @0x0
0x04a7…04c3 lno = 0x0450 // 0x4a9 @0x2
0x04a7…04c3 at0004 = ╱9d╱ EXEC ╱ // 0x4ab @0x4
0x04a7…04c3 at0005 = ╱46╱F╱ // 0x4ac @0x5
0x04a7…04c3 at0006 = ╱45╱E╱ // 0x4ad @0x6
0x04a7…04c3 at0007 = ╱4a╱J╱ // 0x4ae @0x7
0x04a7…04c3 at0008 = ╱4c╱L╱ // 0x4af @0x8
0x04a7…04c3 at0009 = ╱ed╱ ( ╱ // 0x4b0 @0x9
0x04a7…04c3 at000a = ╱31╱1╱ // 0x4b1 @0xa
0x04a7…04c3 at000b = ╱fe00008001╱ // 0x4b2 @0xb
0x04a7…04c3 at0010 = ╱ec╱ , ╱ // 0x4b7 @0x10
0x04a7…04c3 at0011 = ╱37╱7╱ // 0x4b8 @0x11
0x04a7…04c3 at0012 = ╱fe0000e003╱ // 0x4b9 @0x12
0x04a7…04c3 at0017 = ╱ec╱ , ╱ // 0x4be @0x17
0x04a7…04c3 at0018 = ╱42╱B╱ // 0x4bf @0x18
0x04a7…04c3 at0019 = ╱ef╱ $ ╱ // 0x4c0 @0x19
0x04a7…04c3 at001a = ╱ee╱ ) ╱ // 0x4c1 @0x1a
0x04a7…04c3 at001b = EOL // 0x4c2 @0x1b
0x04a7…04c3 }
0x04c3…04db 8c28 0460 IF T3 ( 1 ) = 0 THEN
0x04c3…04db LineComalBcd {
0x04c3…04db ptr = 0x8c28 // 0x4c3 @0x0
0x04c3…04db lno = 0x0460 // 0x4c5 @0x2
0x04c3…04db at0004 = ╱9c╱ IF ╱ // 0x4c7 @0x4
0x04c3…04db at0005 = ╱54╱T╱ // 0x4c8 @0x5
0x04c3…04db at0006 = ╱33╱3╱ // 0x4c9 @0x6
0x04c3…04db at0007 = ╱ed╱ ( ╱ // 0x4ca @0x7
0x04c3…04db at0008 = ╱31╱1╱ // 0x4cb @0x8
0x04c3…04db at0009 = ╱fe00008001╱ // 0x4cc @0x9
0x04c3…04db at000e = ╱ee╱ ) ╱ // 0x4d1 @0xe
0x04c3…04db at000f = ╱dc╱ = ╱ // 0x4d2 @0xf
0x04c3…04db at0010 = ╱30╱0╱ // 0x4d3 @0x10
0x04c3…04db at0011 = ╱fe00000000╱ // 0x4d4 @0x11
0x04c3…04db at0016 = ╱b6╱ THEN ╱ // 0x4d9 @0x16
0x04c3…04db at0017 = EOL // 0x4da @0x17
0x04c3…04db }
0x04db…04f0 8c3d 0470 CURSOR 21 , 11
0x04db…04f0 LineComalBcd {
0x04db…04f0 ptr = 0x8c3d // 0x4db @0x0
0x04db…04f0 lno = 0x0470 // 0x4dd @0x2
0x04db…04f0 at0004 = ╱a1╱ CURSOR ╱ // 0x4df @0x4
0x04db…04f0 at0005 = ╱32╱2╱ // 0x4e0 @0x5
0x04db…04f0 at0006 = ╱31╱1╱ // 0x4e1 @0x6
0x04db…04f0 at0007 = ╱fe0000a805╱ // 0x4e2 @0x7
0x04db…04f0 at000c = ╱ec╱ , ╱ // 0x4e7 @0xc
0x04db…04f0 at000d = ╱31╱1╱ // 0x4e8 @0xd
0x04db…04f0 at000e = ╱31╱1╱ // 0x4e9 @0xe
0x04db…04f0 at000f = ╱fe0000b004╱ // 0x4ea @0xf
0x04db…04f0 at0014 = EOL // 0x4ef @0x14
0x04db…04f0 }
0x04f0…0527 8c74 0480 PRINT "Godmorgen.…H}ber…at…vi…m}…f}…en…god…dag…sammen."
0x04f0…0527 LineComalBcd {
0x04f0…0527 ptr = 0x8c74 // 0x4f0 @0x0
0x04f0…0527 lno = 0x0480 // 0x4f2 @0x2
0x04f0…0527 at0004 = ╱92╱ PRINT ╱ // 0x4f4 @0x4
0x04f0…0527 at0005 = ╱22╱"╱ // 0x4f5 @0x5
0x04f0…0527 at0006 = ╱47╱G╱ // 0x4f6 @0x6
0x04f0…0527 at0007 = ╱6f╱o╱ // 0x4f7 @0x7
0x04f0…0527 at0008 = ╱64╱d╱ // 0x4f8 @0x8
0x04f0…0527 at0009 = ╱6d╱m╱ // 0x4f9 @0x9
0x04f0…0527 at000a = ╱6f╱o╱ // 0x4fa @0xa
0x04f0…0527 at000b = ╱72╱r╱ // 0x4fb @0xb
0x04f0…0527 at000c = ╱67╱g╱ // 0x4fc @0xc
0x04f0…0527 at000d = ╱65╱e╱ // 0x4fd @0xd
0x04f0…0527 at000e = ╱6e╱n╱ // 0x4fe @0xe
0x04f0…0527 at000f = ╱2e╱.╱ // 0x4ff @0xf
0x04f0…0527 at0010 = ╱20╱…╱ // 0x500 @0x10
0x04f0…0527 at0011 = ╱48╱H╱ // 0x501 @0x11
0x04f0…0527 at0012 = ╱7d╱}╱ // 0x502 @0x12
0x04f0…0527 at0013 = ╱62╱b╱ // 0x503 @0x13
0x04f0…0527 at0014 = ╱65╱e╱ // 0x504 @0x14
0x04f0…0527 at0015 = ╱72╱r╱ // 0x505 @0x15
0x04f0…0527 at0016 = ╱20╱…╱ // 0x506 @0x16
0x04f0…0527 at0017 = ╱61╱a╱ // 0x507 @0x17
0x04f0…0527 at0018 = ╱74╱t╱ // 0x508 @0x18
0x04f0…0527 at0019 = ╱20╱…╱ // 0x509 @0x19
0x04f0…0527 at001a = ╱76╱v╱ // 0x50a @0x1a
0x04f0…0527 at001b = ╱69╱i╱ // 0x50b @0x1b
0x04f0…0527 at001c = ╱20╱…╱ // 0x50c @0x1c
0x04f0…0527 at001d = ╱6d╱m╱ // 0x50d @0x1d
0x04f0…0527 at001e = ╱7d╱}╱ // 0x50e @0x1e
0x04f0…0527 at001f = ╱20╱…╱ // 0x50f @0x1f
0x04f0…0527 at0020 = ╱66╱f╱ // 0x510 @0x20
0x04f0…0527 at0021 = ╱7d╱}╱ // 0x511 @0x21
0x04f0…0527 at0022 = ╱20╱…╱ // 0x512 @0x22
0x04f0…0527 at0023 = ╱65╱e╱ // 0x513 @0x23
0x04f0…0527 at0024 = ╱6e╱n╱ // 0x514 @0x24
0x04f0…0527 at0025 = ╱20╱…╱ // 0x515 @0x25
0x04f0…0527 at0026 = ╱67╱g╱ // 0x516 @0x26
0x04f0…0527 at0027 = ╱6f╱o╱ // 0x517 @0x27
0x04f0…0527 at0028 = ╱64╱d╱ // 0x518 @0x28
0x04f0…0527 at0029 = ╱20╱…╱ // 0x519 @0x29
0x04f0…0527 at002a = ╱64╱d╱ // 0x51a @0x2a
0x04f0…0527 at002b = ╱61╱a╱ // 0x51b @0x2b
0x04f0…0527 at002c = ╱67╱g╱ // 0x51c @0x2c
0x04f0…0527 at002d = ╱20╱…╱ // 0x51d @0x2d
0x04f0…0527 at002e = ╱73╱s╱ // 0x51e @0x2e
0x04f0…0527 at002f = ╱61╱a╱ // 0x51f @0x2f
0x04f0…0527 at0030 = ╱6d╱m╱ // 0x520 @0x30
0x04f0…0527 at0031 = ╱6d╱m╱ // 0x521 @0x31
0x04f0…0527 at0032 = ╱65╱e╱ // 0x522 @0x32
0x04f0…0527 at0033 = ╱6e╱n╱ // 0x523 @0x33
0x04f0…0527 at0034 = ╱2e╱.╱ // 0x524 @0x34
0x04f0…0527 at0035 = ╱22╱"╱ // 0x525 @0x35
0x04f0…0527 at0036 = EOL // 0x526 @0x36
0x04f0…0527 }
0x0527…053c 8c89 0490 CURSOR 21 , 13
0x0527…053c LineComalBcd {
0x0527…053c ptr = 0x8c89 // 0x527 @0x0
0x0527…053c lno = 0x0490 // 0x529 @0x2
0x0527…053c at0004 = ╱a1╱ CURSOR ╱ // 0x52b @0x4
0x0527…053c at0005 = ╱32╱2╱ // 0x52c @0x5
0x0527…053c at0006 = ╱31╱1╱ // 0x52d @0x6
0x0527…053c at0007 = ╱fe0000a805╱ // 0x52e @0x7
0x0527…053c at000c = ╱ec╱ , ╱ // 0x533 @0xc
0x0527…053c at000d = ╱31╱1╱ // 0x534 @0xd
0x0527…053c at000e = ╱33╱3╱ // 0x535 @0xe
0x0527…053c at000f = ╱fe0000d004╱ // 0x536 @0xf
0x0527…053c at0014 = EOL // 0x53b @0x14
0x0527…053c }
0x053c…0573 8cc0 0500 PRINT "Indtast…dato…som…]]MMDD,…hvor…]]…er…}ret,…MM…er"
0x053c…0573 LineComalBcd {
0x053c…0573 ptr = 0x8cc0 // 0x53c @0x0
0x053c…0573 lno = 0x0500 // 0x53e @0x2
0x053c…0573 at0004 = ╱92╱ PRINT ╱ // 0x540 @0x4
0x053c…0573 at0005 = ╱22╱"╱ // 0x541 @0x5
0x053c…0573 at0006 = ╱49╱I╱ // 0x542 @0x6
0x053c…0573 at0007 = ╱6e╱n╱ // 0x543 @0x7
0x053c…0573 at0008 = ╱64╱d╱ // 0x544 @0x8
0x053c…0573 at0009 = ╱74╱t╱ // 0x545 @0x9
0x053c…0573 at000a = ╱61╱a╱ // 0x546 @0xa
0x053c…0573 at000b = ╱73╱s╱ // 0x547 @0xb
0x053c…0573 at000c = ╱74╱t╱ // 0x548 @0xc
0x053c…0573 at000d = ╱20╱…╱ // 0x549 @0xd
0x053c…0573 at000e = ╱64╱d╱ // 0x54a @0xe
0x053c…0573 at000f = ╱61╱a╱ // 0x54b @0xf
0x053c…0573 at0010 = ╱74╱t╱ // 0x54c @0x10
0x053c…0573 at0011 = ╱6f╱o╱ // 0x54d @0x11
0x053c…0573 at0012 = ╱20╱…╱ // 0x54e @0x12
0x053c…0573 at0013 = ╱73╱s╱ // 0x54f @0x13
0x053c…0573 at0014 = ╱6f╱o╱ // 0x550 @0x14
0x053c…0573 at0015 = ╱6d╱m╱ // 0x551 @0x15
0x053c…0573 at0016 = ╱20╱…╱ // 0x552 @0x16
0x053c…0573 at0017 = ╱5d╱]╱ // 0x553 @0x17
0x053c…0573 at0018 = ╱5d╱]╱ // 0x554 @0x18
0x053c…0573 at0019 = ╱4d╱M╱ // 0x555 @0x19
0x053c…0573 at001a = ╱4d╱M╱ // 0x556 @0x1a
0x053c…0573 at001b = ╱44╱D╱ // 0x557 @0x1b
0x053c…0573 at001c = ╱44╱D╱ // 0x558 @0x1c
0x053c…0573 at001d = ╱2c╱,╱ // 0x559 @0x1d
0x053c…0573 at001e = ╱20╱…╱ // 0x55a @0x1e
0x053c…0573 at001f = ╱68╱h╱ // 0x55b @0x1f
0x053c…0573 at0020 = ╱76╱v╱ // 0x55c @0x20
0x053c…0573 at0021 = ╱6f╱o╱ // 0x55d @0x21
0x053c…0573 at0022 = ╱72╱r╱ // 0x55e @0x22
0x053c…0573 at0023 = ╱20╱…╱ // 0x55f @0x23
0x053c…0573 at0024 = ╱5d╱]╱ // 0x560 @0x24
0x053c…0573 at0025 = ╱5d╱]╱ // 0x561 @0x25
0x053c…0573 at0026 = ╱20╱…╱ // 0x562 @0x26
0x053c…0573 at0027 = ╱65╱e╱ // 0x563 @0x27
0x053c…0573 at0028 = ╱72╱r╱ // 0x564 @0x28
0x053c…0573 at0029 = ╱20╱…╱ // 0x565 @0x29
0x053c…0573 at002a = ╱7d╱}╱ // 0x566 @0x2a
0x053c…0573 at002b = ╱72╱r╱ // 0x567 @0x2b
0x053c…0573 at002c = ╱65╱e╱ // 0x568 @0x2c
0x053c…0573 at002d = ╱74╱t╱ // 0x569 @0x2d
0x053c…0573 at002e = ╱2c╱,╱ // 0x56a @0x2e
0x053c…0573 at002f = ╱20╱…╱ // 0x56b @0x2f
0x053c…0573 at0030 = ╱4d╱M╱ // 0x56c @0x30
0x053c…0573 at0031 = ╱4d╱M╱ // 0x56d @0x31
0x053c…0573 at0032 = ╱20╱…╱ // 0x56e @0x32
0x053c…0573 at0033 = ╱65╱e╱ // 0x56f @0x33
0x053c…0573 at0034 = ╱72╱r╱ // 0x570 @0x34
0x053c…0573 at0035 = ╱22╱"╱ // 0x571 @0x35
0x053c…0573 at0036 = EOL // 0x572 @0x36
0x053c…0573 }
0x0573…0579 8cc6 0510 REPEAT
0x0573…0579 LineComalBcd {
0x0573…0579 ptr = 0x8cc6 // 0x573 @0x0
0x0573…0579 lno = 0x0510 // 0x575 @0x2
0x0573…0579 at0004 = ╱97╱ REPEAT ╱ // 0x577 @0x4
0x0573…0579 at0005 = EOL // 0x578 @0x5
0x0573…0579 }
0x0579…058e 8cdb 0520 CURSOR 21 , 15
0x0579…058e LineComalBcd {
0x0579…058e ptr = 0x8cdb // 0x579 @0x0
0x0579…058e lno = 0x0520 // 0x57b @0x2
0x0579…058e at0004 = ╱a1╱ CURSOR ╱ // 0x57d @0x4
0x0579…058e at0005 = ╱32╱2╱ // 0x57e @0x5
0x0579…058e at0006 = ╱31╱1╱ // 0x57f @0x6
0x0579…058e at0007 = ╱fe0000a805╱ // 0x580 @0x7
0x0579…058e at000c = ╱ec╱ , ╱ // 0x585 @0xc
0x0579…058e at000d = ╱31╱1╱ // 0x586 @0xd
0x0579…058e at000e = ╱35╱5╱ // 0x587 @0xe
0x0579…058e at000f = ╱fe0000f004╱ // 0x588 @0xf
0x0579…058e at0014 = EOL // 0x58d @0x14
0x0579…058e }
0x058e…05b2 8cff 0530 INPUT "m}neden…og…DD…er…dagen:" , DAT $
0x058e…05b2 LineComalBcd {
0x058e…05b2 ptr = 0x8cff // 0x58e @0x0
0x058e…05b2 lno = 0x0530 // 0x590 @0x2
0x058e…05b2 at0004 = ╱91╱ INPUT ╱ // 0x592 @0x4
0x058e…05b2 at0005 = ╱22╱"╱ // 0x593 @0x5
0x058e…05b2 at0006 = ╱6d╱m╱ // 0x594 @0x6
0x058e…05b2 at0007 = ╱7d╱}╱ // 0x595 @0x7
0x058e…05b2 at0008 = ╱6e╱n╱ // 0x596 @0x8
0x058e…05b2 at0009 = ╱65╱e╱ // 0x597 @0x9
0x058e…05b2 at000a = ╱64╱d╱ // 0x598 @0xa
0x058e…05b2 at000b = ╱65╱e╱ // 0x599 @0xb
0x058e…05b2 at000c = ╱6e╱n╱ // 0x59a @0xc
0x058e…05b2 at000d = ╱20╱…╱ // 0x59b @0xd
0x058e…05b2 at000e = ╱6f╱o╱ // 0x59c @0xe
0x058e…05b2 at000f = ╱67╱g╱ // 0x59d @0xf
0x058e…05b2 at0010 = ╱20╱…╱ // 0x59e @0x10
0x058e…05b2 at0011 = ╱44╱D╱ // 0x59f @0x11
0x058e…05b2 at0012 = ╱44╱D╱ // 0x5a0 @0x12
0x058e…05b2 at0013 = ╱20╱…╱ // 0x5a1 @0x13
0x058e…05b2 at0014 = ╱65╱e╱ // 0x5a2 @0x14
0x058e…05b2 at0015 = ╱72╱r╱ // 0x5a3 @0x15
0x058e…05b2 at0016 = ╱20╱…╱ // 0x5a4 @0x16
0x058e…05b2 at0017 = ╱64╱d╱ // 0x5a5 @0x17
0x058e…05b2 at0018 = ╱61╱a╱ // 0x5a6 @0x18
0x058e…05b2 at0019 = ╱67╱g╱ // 0x5a7 @0x19
0x058e…05b2 at001a = ╱65╱e╱ // 0x5a8 @0x1a
0x058e…05b2 at001b = ╱6e╱n╱ // 0x5a9 @0x1b
0x058e…05b2 at001c = ╱3a╱:╱ // 0x5aa @0x1c
0x058e…05b2 at001d = ╱22╱"╱ // 0x5ab @0x1d
0x058e…05b2 at001e = ╱ec╱ , ╱ // 0x5ac @0x1e
0x058e…05b2 at001f = ╱44╱D╱ // 0x5ad @0x1f
0x058e…05b2 at0020 = ╱41╱A╱ // 0x5ae @0x20
0x058e…05b2 at0021 = ╱54╱T╱ // 0x5af @0x21
0x058e…05b2 at0022 = ╱ef╱ $ ╱ // 0x5b0 @0x22
0x058e…05b2 at0023 = EOL // 0x5b1 @0x23
0x058e…05b2 }
0x05b2…05cc 8d19 0540 P = 0 ; TEST2 = 0
0x05b2…05cc LineComalBcd {
0x05b2…05cc ptr = 0x8d19 // 0x5b2 @0x0
0x05b2…05cc lno = 0x0540 // 0x5b4 @0x2
0x05b2…05cc at0004 = ╱50╱P╱ // 0x5b6 @0x4
0x05b2…05cc at0005 = ╱dc╱ = ╱ // 0x5b7 @0x5
0x05b2…05cc at0006 = ╱30╱0╱ // 0x5b8 @0x6
0x05b2…05cc at0007 = ╱fe00000000╱ // 0x5b9 @0x7
0x05b2…05cc at000c = ╱eb╱ ; ╱ // 0x5be @0xc
0x05b2…05cc at000d = ╱54╱T╱ // 0x5bf @0xd
0x05b2…05cc at000e = ╱45╱E╱ // 0x5c0 @0xe
0x05b2…05cc at000f = ╱53╱S╱ // 0x5c1 @0xf
0x05b2…05cc at0010 = ╱54╱T╱ // 0x5c2 @0x10
0x05b2…05cc at0011 = ╱32╱2╱ // 0x5c3 @0x11
0x05b2…05cc at0012 = ╱dc╱ = ╱ // 0x5c4 @0x12
0x05b2…05cc at0013 = ╱30╱0╱ // 0x5c5 @0x13
0x05b2…05cc at0014 = ╱fe00000000╱ // 0x5c6 @0x14
0x05b2…05cc at0019 = EOL // 0x5cb @0x19
0x05b2…05cc }
0x05cc…05e1 8d2e 0550 FOR I = 1 TO 6
0x05cc…05e1 LineComalBcd {
0x05cc…05e1 ptr = 0x8d2e // 0x5cc @0x0
0x05cc…05e1 lno = 0x0550 // 0x5ce @0x2
0x05cc…05e1 at0004 = ╱83╱ FOR ╱ // 0x5d0 @0x4
0x05cc…05e1 at0005 = ╱49╱I╱ // 0x5d1 @0x5
0x05cc…05e1 at0006 = ╱dc╱ = ╱ // 0x5d2 @0x6
0x05cc…05e1 at0007 = ╱31╱1╱ // 0x5d3 @0x7
0x05cc…05e1 at0008 = ╱fe00008001╱ // 0x5d4 @0x8
0x05cc…05e1 at000d = ╱b7╱ TO ╱ // 0x5d9 @0xd
0x05cc…05e1 at000e = ╱36╱6╱ // 0x5da @0xe
0x05cc…05e1 at000f = ╱fe0000c003╱ // 0x5db @0xf
0x05cc…05e1 at0014 = EOL // 0x5e0 @0x14
0x05cc…05e1 }
0x05e1…05fe 8d4b 0560 P1 = INT ( ORD ( DAT $ ( I ) ) - 48 )
0x05e1…05fe LineComalBcd {
0x05e1…05fe ptr = 0x8d4b // 0x5e1 @0x0
0x05e1…05fe lno = 0x0560 // 0x5e3 @0x2
0x05e1…05fe at0004 = ╱50╱P╱ // 0x5e5 @0x4
0x05e1…05fe at0005 = ╱31╱1╱ // 0x5e6 @0x5
0x05e1…05fe at0006 = ╱dc╱ = ╱ // 0x5e7 @0x6
0x05e1…05fe at0007 = ╱c6╱ INT ╱ // 0x5e8 @0x7
0x05e1…05fe at0008 = ╱ed╱ ( ╱ // 0x5e9 @0x8
0x05e1…05fe at0009 = ╱cd╱ ORD ╱ // 0x5ea @0x9
0x05e1…05fe at000a = ╱ed╱ ( ╱ // 0x5eb @0xa
0x05e1…05fe at000b = ╱44╱D╱ // 0x5ec @0xb
0x05e1…05fe at000c = ╱41╱A╱ // 0x5ed @0xc
0x05e1…05fe at000d = ╱54╱T╱ // 0x5ee @0xd
0x05e1…05fe at000e = ╱ef╱ $ ╱ // 0x5ef @0xe
0x05e1…05fe at000f = ╱ed╱ ( ╱ // 0x5f0 @0xf
0x05e1…05fe at0010 = ╱49╱I╱ // 0x5f1 @0x10
0x05e1…05fe at0011 = ╱ee╱ ) ╱ // 0x5f2 @0x11
0x05e1…05fe at0012 = ╱ee╱ ) ╱ // 0x5f3 @0x12
0x05e1…05fe at0013 = ╱e3╱ - ╱ // 0x5f4 @0x13
0x05e1…05fe at0014 = ╱34╱4╱ // 0x5f5 @0x14
0x05e1…05fe at0015 = ╱38╱8╱ // 0x5f6 @0x15
0x05e1…05fe at0016 = ╱fe0000c006╱ // 0x5f7 @0x16
0x05e1…05fe at001b = ╱ee╱ ) ╱ // 0x5fc @0x1b
0x05e1…05fe at001c = EOL // 0x5fd @0x1c
0x05e1…05fe }
0x05fe…0618 8d65 0570 IF P1 >= 0 AND P1 =< 9 THEN
0x05fe…0618 LineComalBcd {
0x05fe…0618 ptr = 0x8d65 // 0x5fe @0x0
0x05fe…0618 lno = 0x0570 // 0x600 @0x2
0x05fe…0618 at0004 = ╱9c╱ IF ╱ // 0x602 @0x4
0x05fe…0618 at0005 = ╱50╱P╱ // 0x603 @0x5
0x05fe…0618 at0006 = ╱31╱1╱ // 0x604 @0x6
0x05fe…0618 at0007 = ╱e0╱ >= ╱ // 0x605 @0x7
0x05fe…0618 at0008 = ╱30╱0╱ // 0x606 @0x8
0x05fe…0618 at0009 = ╱fe00000000╱ // 0x607 @0x9
0x05fe…0618 at000e = ╱da╱ AND ╱ // 0x60c @0xe
0x05fe…0618 at000f = ╱50╱P╱ // 0x60d @0xf
0x05fe…0618 at0010 = ╱31╱1╱ // 0x60e @0x10
0x05fe…0618 at0011 = ╱df╱ =< ╱ // 0x60f @0x11
0x05fe…0618 at0012 = ╱39╱9╱ // 0x610 @0x12
0x05fe…0618 at0013 = ╱fe00009004╱ // 0x611 @0x13
0x05fe…0618 at0018 = ╱b6╱ THEN ╱ // 0x616 @0x18
0x05fe…0618 at0019 = EOL // 0x617 @0x19
0x05fe…0618 }
0x0618…062b 8d78 0580 P = P * 10 + P1
0x0618…062b LineComalBcd {
0x0618…062b ptr = 0x8d78 // 0x618 @0x0
0x0618…062b lno = 0x0580 // 0x61a @0x2
0x0618…062b at0004 = ╱50╱P╱ // 0x61c @0x4
0x0618…062b at0005 = ╱dc╱ = ╱ // 0x61d @0x5
0x0618…062b at0006 = ╱50╱P╱ // 0x61e @0x6
0x0618…062b at0007 = ╱e4╱ * ╱ // 0x61f @0x7
0x0618…062b at0008 = ╱31╱1╱ // 0x620 @0x8
0x0618…062b at0009 = ╱30╱0╱ // 0x621 @0x9
0x0618…062b at000a = ╱fe0000a004╱ // 0x622 @0xa
0x0618…062b at000f = ╱e2╱ + ╱ // 0x627 @0xf
0x0618…062b at0010 = ╱50╱P╱ // 0x628 @0x10
0x0618…062b at0011 = ╱31╱1╱ // 0x629 @0x11
0x0618…062b at0012 = EOL // 0x62a @0x12
0x0618…062b }
0x062b…0631 8d7e 0590 ELSE
0x062b…0631 LineComalBcd {
0x062b…0631 ptr = 0x8d7e // 0x62b @0x0
0x062b…0631 lno = 0x0590 // 0x62d @0x2
0x062b…0631 at0004 = ╱9a╱ ELSE ╱ // 0x62f @0x4
0x062b…0631 at0005 = EOL // 0x630 @0x5
0x062b…0631 }
0x0631…0642 8d8f 0600 TEST2 = 1
0x0631…0642 LineComalBcd {
0x0631…0642 ptr = 0x8d8f // 0x631 @0x0
0x0631…0642 lno = 0x0600 // 0x633 @0x2
0x0631…0642 at0004 = ╱54╱T╱ // 0x635 @0x4
0x0631…0642 at0005 = ╱45╱E╱ // 0x636 @0x5
0x0631…0642 at0006 = ╱53╱S╱ // 0x637 @0x6
0x0631…0642 at0007 = ╱54╱T╱ // 0x638 @0x7
0x0631…0642 at0008 = ╱32╱2╱ // 0x639 @0x8
0x0631…0642 at0009 = ╱dc╱ = ╱ // 0x63a @0x9
0x0631…0642 at000a = ╱31╱1╱ // 0x63b @0xa
0x0631…0642 at000b = ╱fe00008001╱ // 0x63c @0xb
0x0631…0642 at0010 = EOL // 0x641 @0x10
0x0631…0642 }
0x0642…0648 8d95 0610 ENDIF
0x0642…0648 LineComalBcd {
0x0642…0648 ptr = 0x8d95 // 0x642 @0x0
0x0642…0648 lno = 0x0610 // 0x644 @0x2
0x0642…0648 at0004 = ╱9b╱ ENDIF ╱ // 0x646 @0x4
0x0642…0648 at0005 = EOL // 0x647 @0x5
0x0642…0648 }
0x0648…064f 8d9c 0620 NEXT I
0x0648…064f LineComalBcd {
0x0648…064f ptr = 0x8d9c // 0x648 @0x0
0x0648…064f lno = 0x0620 // 0x64a @0x2
0x0648…064f at0004 = ╱84╱ NEXT ╱ // 0x64c @0x4
0x0648…064f at0005 = ╱49╱I╱ // 0x64d @0x5
0x0648…064f at0006 = EOL // 0x64e @0x6
0x0648…064f }
0x064f…0679 8dc6 0630 IF TEST2 = 0 THEN I = ( P DIV 100 ) MOD 100
0x064f…0679 LineComalBcd {
0x064f…0679 ptr = 0x8dc6 // 0x64f @0x0
0x064f…0679 lno = 0x0630 // 0x651 @0x2
0x064f…0679 at0004 = ╱82╱ IF ╱ // 0x653 @0x4
0x064f…0679 at0005 = ╱54╱T╱ // 0x654 @0x5
0x064f…0679 at0006 = ╱45╱E╱ // 0x655 @0x6
0x064f…0679 at0007 = ╱53╱S╱ // 0x656 @0x7
0x064f…0679 at0008 = ╱54╱T╱ // 0x657 @0x8
0x064f…0679 at0009 = ╱32╱2╱ // 0x658 @0x9
0x064f…0679 at000a = ╱dc╱ = ╱ // 0x659 @0xa
0x064f…0679 at000b = ╱30╱0╱ // 0x65a @0xb
0x064f…0679 at000c = ╱fe00000000╱ // 0x65b @0xc
0x064f…0679 at0011 = ╱b6╱ THEN ╱ // 0x660 @0x11
0x064f…0679 at0012 = ╱49╱I╱ // 0x661 @0x12
0x064f…0679 at0013 = ╱dc╱ = ╱ // 0x662 @0x13
0x064f…0679 at0014 = ╱ed╱ ( ╱ // 0x663 @0x14
0x064f…0679 at0015 = ╱50╱P╱ // 0x664 @0x15
0x064f…0679 at0016 = ╱e7╱ DIV ╱ // 0x665 @0x16
0x064f…0679 at0017 = ╱31╱1╱ // 0x666 @0x17
0x064f…0679 at0018 = ╱30╱0╱ // 0x667 @0x18
0x064f…0679 at0019 = ╱30╱0╱ // 0x668 @0x19
0x064f…0679 at001a = ╱fe0000c807╱ // 0x669 @0x1a
0x064f…0679 at001f = ╱ee╱ ) ╱ // 0x66e @0x1f
0x064f…0679 at0020 = ╱e8╱ MOD ╱ // 0x66f @0x20
0x064f…0679 at0021 = ╱31╱1╱ // 0x670 @0x21
0x064f…0679 at0022 = ╱30╱0╱ // 0x671 @0x22
0x064f…0679 at0023 = ╱30╱0╱ // 0x672 @0x23
0x064f…0679 at0024 = ╱fe0000c807╱ // 0x673 @0x24
0x064f…0679 at0029 = EOL // 0x678 @0x29
0x064f…0679 }
0x0679…06bd 8e0a 0640 UNTIL TEST2 = 0 AND I < 13 AND P MOD 100 < 32 AND P DIV 10000 > 78
0x0679…06bd LineComalBcd {
0x0679…06bd ptr = 0x8e0a // 0x679 @0x0
0x0679…06bd lno = 0x0640 // 0x67b @0x2
0x0679…06bd at0004 = ╱98╱ UNTIL ╱ // 0x67d @0x4
0x0679…06bd at0005 = ╱54╱T╱ // 0x67e @0x5
0x0679…06bd at0006 = ╱45╱E╱ // 0x67f @0x6
0x0679…06bd at0007 = ╱53╱S╱ // 0x680 @0x7
0x0679…06bd at0008 = ╱54╱T╱ // 0x681 @0x8
0x0679…06bd at0009 = ╱32╱2╱ // 0x682 @0x9
0x0679…06bd at000a = ╱dc╱ = ╱ // 0x683 @0xa
0x0679…06bd at000b = ╱30╱0╱ // 0x684 @0xb
0x0679…06bd at000c = ╱fe00000000╱ // 0x685 @0xc
0x0679…06bd at0011 = ╱da╱ AND ╱ // 0x68a @0x11
0x0679…06bd at0012 = ╱49╱I╱ // 0x68b @0x12
0x0679…06bd at0013 = ╱dd╱ < ╱ // 0x68c @0x13
0x0679…06bd at0014 = ╱31╱1╱ // 0x68d @0x14
0x0679…06bd at0015 = ╱33╱3╱ // 0x68e @0x15
0x0679…06bd at0016 = ╱fe0000d004╱ // 0x68f @0x16
0x0679…06bd at001b = ╱da╱ AND ╱ // 0x694 @0x1b
0x0679…06bd at001c = ╱50╱P╱ // 0x695 @0x1c
0x0679…06bd at001d = ╱e8╱ MOD ╱ // 0x696 @0x1d
0x0679…06bd at001e = ╱31╱1╱ // 0x697 @0x1e
0x0679…06bd at001f = ╱30╱0╱ // 0x698 @0x1f
0x0679…06bd at0020 = ╱30╱0╱ // 0x699 @0x20
0x0679…06bd at0021 = ╱fe0000c807╱ // 0x69a @0x21
0x0679…06bd at0026 = ╱dd╱ < ╱ // 0x69f @0x26
0x0679…06bd at0027 = ╱33╱3╱ // 0x6a0 @0x27
0x0679…06bd at0028 = ╱32╱2╱ // 0x6a1 @0x28
0x0679…06bd at0029 = ╱fe00008006╱ // 0x6a2 @0x29
0x0679…06bd at002e = ╱da╱ AND ╱ // 0x6a7 @0x2e
0x0679…06bd at002f = ╱50╱P╱ // 0x6a8 @0x2f
0x0679…06bd at0030 = ╱e7╱ DIV ╱ // 0x6a9 @0x30
0x0679…06bd at0031 = ╱31╱1╱ // 0x6aa @0x31
0x0679…06bd at0032 = ╱30╱0╱ // 0x6ab @0x32
0x0679…06bd at0033 = ╱30╱0╱ // 0x6ac @0x33
0x0679…06bd at0034 = ╱30╱0╱ // 0x6ad @0x34
0x0679…06bd at0035 = ╱30╱0╱ // 0x6ae @0x35
0x0679…06bd at0036 = ╱fe00409c0e╱ // 0x6af @0x36
0x0679…06bd at003b = ╱de╱ > ╱ // 0x6b4 @0x3b
0x0679…06bd at003c = ╱37╱7╱ // 0x6b5 @0x3c
0x0679…06bd at003d = ╱38╱8╱ // 0x6b6 @0x3d
0x0679…06bd at003e = ╱fe00009c07╱ // 0x6b7 @0x3e
0x0679…06bd at0043 = EOL // 0x6bc @0x43
0x0679…06bd }
0x06bd…06df 8e2c 0650 T ( 7 ) = P ; T3 ( 1 ) = 1
0x06bd…06df LineComalBcd {
0x06bd…06df ptr = 0x8e2c // 0x6bd @0x0
0x06bd…06df lno = 0x0650 // 0x6bf @0x2
0x06bd…06df at0004 = ╱54╱T╱ // 0x6c1 @0x4
0x06bd…06df at0005 = ╱ed╱ ( ╱ // 0x6c2 @0x5
0x06bd…06df at0006 = ╱37╱7╱ // 0x6c3 @0x6
0x06bd…06df at0007 = ╱fe0000e003╱ // 0x6c4 @0x7
0x06bd…06df at000c = ╱ee╱ ) ╱ // 0x6c9 @0xc
0x06bd…06df at000d = ╱dc╱ = ╱ // 0x6ca @0xd
0x06bd…06df at000e = ╱50╱P╱ // 0x6cb @0xe
0x06bd…06df at000f = ╱eb╱ ; ╱ // 0x6cc @0xf
0x06bd…06df at0010 = ╱54╱T╱ // 0x6cd @0x10
0x06bd…06df at0011 = ╱33╱3╱ // 0x6ce @0x11
0x06bd…06df at0012 = ╱ed╱ ( ╱ // 0x6cf @0x12
0x06bd…06df at0013 = ╱31╱1╱ // 0x6d0 @0x13
0x06bd…06df at0014 = ╱fe00008001╱ // 0x6d1 @0x14
0x06bd…06df at0019 = ╱ee╱ ) ╱ // 0x6d6 @0x19
0x06bd…06df at001a = ╱dc╱ = ╱ // 0x6d7 @0x1a
0x06bd…06df at001b = ╱31╱1╱ // 0x6d8 @0x1b
0x06bd…06df at001c = ╱fe00008001╱ // 0x6d9 @0x1c
0x06bd…06df at0021 = EOL // 0x6de @0x21
0x06bd…06df }
0x06df…0748 8e95 0660 PUT B $ , 2 : T ( 1 ) , T ( 2 ) , T ( 3 ) , T ( 4 ) , T ( 5 ) , T ( 6 ) , T ( 7 ) , T ( 8 ) , T ( 9 )
0x06df…0748 LineComalBcd {
0x06df…0748 ptr = 0x8e95 // 0x6df @0x0
0x06df…0748 lno = 0x0660 // 0x6e1 @0x2
0x06df…0748 at0004 = ╱aa╱ PUT ╱ // 0x6e3 @0x4
0x06df…0748 at0005 = ╱42╱B╱ // 0x6e4 @0x5
0x06df…0748 at0006 = ╱ef╱ $ ╱ // 0x6e5 @0x6
0x06df…0748 at0007 = ╱ec╱ , ╱ // 0x6e6 @0x7
0x06df…0748 at0008 = ╱32╱2╱ // 0x6e7 @0x8
0x06df…0748 at0009 = ╱fe00008002╱ // 0x6e8 @0x9
0x06df…0748 at000e = ╱f0╱ : ╱ // 0x6ed @0xe
0x06df…0748 at000f = ╱54╱T╱ // 0x6ee @0xf
0x06df…0748 at0010 = ╱ed╱ ( ╱ // 0x6ef @0x10
0x06df…0748 at0011 = ╱31╱1╱ // 0x6f0 @0x11
0x06df…0748 at0012 = ╱fe00008001╱ // 0x6f1 @0x12
0x06df…0748 at0017 = ╱ee╱ ) ╱ // 0x6f6 @0x17
0x06df…0748 at0018 = ╱ec╱ , ╱ // 0x6f7 @0x18
0x06df…0748 at0019 = ╱54╱T╱ // 0x6f8 @0x19
0x06df…0748 at001a = ╱ed╱ ( ╱ // 0x6f9 @0x1a
0x06df…0748 at001b = ╱32╱2╱ // 0x6fa @0x1b
0x06df…0748 at001c = ╱fe00008002╱ // 0x6fb @0x1c
0x06df…0748 at0021 = ╱ee╱ ) ╱ // 0x700 @0x21
0x06df…0748 at0022 = ╱ec╱ , ╱ // 0x701 @0x22
0x06df…0748 at0023 = ╱54╱T╱ // 0x702 @0x23
0x06df…0748 at0024 = ╱ed╱ ( ╱ // 0x703 @0x24
0x06df…0748 at0025 = ╱33╱3╱ // 0x704 @0x25
0x06df…0748 at0026 = ╱fe0000c002╱ // 0x705 @0x26
0x06df…0748 at002b = ╱ee╱ ) ╱ // 0x70a @0x2b
0x06df…0748 at002c = ╱ec╱ , ╱ // 0x70b @0x2c
0x06df…0748 at002d = ╱54╱T╱ // 0x70c @0x2d
0x06df…0748 at002e = ╱ed╱ ( ╱ // 0x70d @0x2e
0x06df…0748 at002f = ╱34╱4╱ // 0x70e @0x2f
0x06df…0748 at0030 = ╱fe00008003╱ // 0x70f @0x30
0x06df…0748 at0035 = ╱ee╱ ) ╱ // 0x714 @0x35
0x06df…0748 at0036 = ╱ec╱ , ╱ // 0x715 @0x36
0x06df…0748 at0037 = ╱54╱T╱ // 0x716 @0x37
0x06df…0748 at0038 = ╱ed╱ ( ╱ // 0x717 @0x38
0x06df…0748 at0039 = ╱35╱5╱ // 0x718 @0x39
0x06df…0748 at003a = ╱fe0000a003╱ // 0x719 @0x3a
0x06df…0748 at003f = ╱ee╱ ) ╱ // 0x71e @0x3f
0x06df…0748 at0040 = ╱ec╱ , ╱ // 0x71f @0x40
0x06df…0748 at0041 = ╱54╱T╱ // 0x720 @0x41
0x06df…0748 at0042 = ╱ed╱ ( ╱ // 0x721 @0x42
0x06df…0748 at0043 = ╱36╱6╱ // 0x722 @0x43
0x06df…0748 at0044 = ╱fe0000c003╱ // 0x723 @0x44
0x06df…0748 at0049 = ╱ee╱ ) ╱ // 0x728 @0x49
0x06df…0748 at004a = ╱ec╱ , ╱ // 0x729 @0x4a
0x06df…0748 at004b = ╱54╱T╱ // 0x72a @0x4b
0x06df…0748 at004c = ╱ed╱ ( ╱ // 0x72b @0x4c
0x06df…0748 at004d = ╱37╱7╱ // 0x72c @0x4d
0x06df…0748 at004e = ╱fe0000e003╱ // 0x72d @0x4e
0x06df…0748 at0053 = ╱ee╱ ) ╱ // 0x732 @0x53
0x06df…0748 at0054 = ╱ec╱ , ╱ // 0x733 @0x54
0x06df…0748 at0055 = ╱54╱T╱ // 0x734 @0x55
0x06df…0748 at0056 = ╱ed╱ ( ╱ // 0x735 @0x56
0x06df…0748 at0057 = ╱38╱8╱ // 0x736 @0x57
0x06df…0748 at0058 = ╱fe00008004╱ // 0x737 @0x58
0x06df…0748 at005d = ╱ee╱ ) ╱ // 0x73c @0x5d
0x06df…0748 at005e = ╱ec╱ , ╱ // 0x73d @0x5e
0x06df…0748 at005f = ╱54╱T╱ // 0x73e @0x5f
0x06df…0748 at0060 = ╱ed╱ ( ╱ // 0x73f @0x60
0x06df…0748 at0061 = ╱39╱9╱ // 0x740 @0x61
0x06df…0748 at0062 = ╱fe00009004╱ // 0x741 @0x62
0x06df…0748 at0067 = ╱ee╱ ) ╱ // 0x746 @0x67
0x06df…0748 at0068 = EOL // 0x747 @0x68
0x06df…0748 }
0x0748…0764 8eb1 0670 EXEC FEJL ( 1 , 8 , B $ )
0x0748…0764 LineComalBcd {
0x0748…0764 ptr = 0x8eb1 // 0x748 @0x0
0x0748…0764 lno = 0x0670 // 0x74a @0x2
0x0748…0764 at0004 = ╱9d╱ EXEC ╱ // 0x74c @0x4
0x0748…0764 at0005 = ╱46╱F╱ // 0x74d @0x5
0x0748…0764 at0006 = ╱45╱E╱ // 0x74e @0x6
0x0748…0764 at0007 = ╱4a╱J╱ // 0x74f @0x7
0x0748…0764 at0008 = ╱4c╱L╱ // 0x750 @0x8
0x0748…0764 at0009 = ╱ed╱ ( ╱ // 0x751 @0x9
0x0748…0764 at000a = ╱31╱1╱ // 0x752 @0xa
0x0748…0764 at000b = ╱fe00008001╱ // 0x753 @0xb
0x0748…0764 at0010 = ╱ec╱ , ╱ // 0x758 @0x10
0x0748…0764 at0011 = ╱38╱8╱ // 0x759 @0x11
0x0748…0764 at0012 = ╱fe00008004╱ // 0x75a @0x12
0x0748…0764 at0017 = ╱ec╱ , ╱ // 0x75f @0x17
0x0748…0764 at0018 = ╱42╱B╱ // 0x760 @0x18
0x0748…0764 at0019 = ╱ef╱ $ ╱ // 0x761 @0x19
0x0748…0764 at001a = ╱ee╱ ) ╱ // 0x762 @0x1a
0x0748…0764 at001b = EOL // 0x763 @0x1b
0x0748…0764 }
0x0764…07d7 8f24 0680 PUT B $ , 17 : T3 ( 1 ) , T3 ( 2 ) , T3 ( 3 ) , T3 ( 4 ) , T3 ( 5 ) , T3 ( 6 ) , T3 ( 7 ) , T3 ( 8 ) , T3 ( 9 )
0x0764…07d7 LineComalBcd {
0x0764…07d7 ptr = 0x8f24 // 0x764 @0x0
0x0764…07d7 lno = 0x0680 // 0x766 @0x2
0x0764…07d7 at0004 = ╱aa╱ PUT ╱ // 0x768 @0x4
0x0764…07d7 at0005 = ╱42╱B╱ // 0x769 @0x5
0x0764…07d7 at0006 = ╱ef╱ $ ╱ // 0x76a @0x6
0x0764…07d7 at0007 = ╱ec╱ , ╱ // 0x76b @0x7
0x0764…07d7 at0008 = ╱31╱1╱ // 0x76c @0x8
0x0764…07d7 at0009 = ╱37╱7╱ // 0x76d @0x9
0x0764…07d7 at000a = ╱fe00008805╱ // 0x76e @0xa
0x0764…07d7 at000f = ╱f0╱ : ╱ // 0x773 @0xf
0x0764…07d7 at0010 = ╱54╱T╱ // 0x774 @0x10
0x0764…07d7 at0011 = ╱33╱3╱ // 0x775 @0x11
0x0764…07d7 at0012 = ╱ed╱ ( ╱ // 0x776 @0x12
0x0764…07d7 at0013 = ╱31╱1╱ // 0x777 @0x13
0x0764…07d7 at0014 = ╱fe00008001╱ // 0x778 @0x14
0x0764…07d7 at0019 = ╱ee╱ ) ╱ // 0x77d @0x19
0x0764…07d7 at001a = ╱ec╱ , ╱ // 0x77e @0x1a
0x0764…07d7 at001b = ╱54╱T╱ // 0x77f @0x1b
0x0764…07d7 at001c = ╱33╱3╱ // 0x780 @0x1c
0x0764…07d7 at001d = ╱ed╱ ( ╱ // 0x781 @0x1d
0x0764…07d7 at001e = ╱32╱2╱ // 0x782 @0x1e
0x0764…07d7 at001f = ╱fe00008002╱ // 0x783 @0x1f
0x0764…07d7 at0024 = ╱ee╱ ) ╱ // 0x788 @0x24
0x0764…07d7 at0025 = ╱ec╱ , ╱ // 0x789 @0x25
0x0764…07d7 at0026 = ╱54╱T╱ // 0x78a @0x26
0x0764…07d7 at0027 = ╱33╱3╱ // 0x78b @0x27
0x0764…07d7 at0028 = ╱ed╱ ( ╱ // 0x78c @0x28
0x0764…07d7 at0029 = ╱33╱3╱ // 0x78d @0x29
0x0764…07d7 at002a = ╱fe0000c002╱ // 0x78e @0x2a
0x0764…07d7 at002f = ╱ee╱ ) ╱ // 0x793 @0x2f
0x0764…07d7 at0030 = ╱ec╱ , ╱ // 0x794 @0x30
0x0764…07d7 at0031 = ╱54╱T╱ // 0x795 @0x31
0x0764…07d7 at0032 = ╱33╱3╱ // 0x796 @0x32
0x0764…07d7 at0033 = ╱ed╱ ( ╱ // 0x797 @0x33
0x0764…07d7 at0034 = ╱34╱4╱ // 0x798 @0x34
0x0764…07d7 at0035 = ╱fe00008003╱ // 0x799 @0x35
0x0764…07d7 at003a = ╱ee╱ ) ╱ // 0x79e @0x3a
0x0764…07d7 at003b = ╱ec╱ , ╱ // 0x79f @0x3b
0x0764…07d7 at003c = ╱54╱T╱ // 0x7a0 @0x3c
0x0764…07d7 at003d = ╱33╱3╱ // 0x7a1 @0x3d
0x0764…07d7 at003e = ╱ed╱ ( ╱ // 0x7a2 @0x3e
0x0764…07d7 at003f = ╱35╱5╱ // 0x7a3 @0x3f
0x0764…07d7 at0040 = ╱fe0000a003╱ // 0x7a4 @0x40
0x0764…07d7 at0045 = ╱ee╱ ) ╱ // 0x7a9 @0x45
0x0764…07d7 at0046 = ╱ec╱ , ╱ // 0x7aa @0x46
0x0764…07d7 at0047 = ╱54╱T╱ // 0x7ab @0x47
0x0764…07d7 at0048 = ╱33╱3╱ // 0x7ac @0x48
0x0764…07d7 at0049 = ╱ed╱ ( ╱ // 0x7ad @0x49
0x0764…07d7 at004a = ╱36╱6╱ // 0x7ae @0x4a
0x0764…07d7 at004b = ╱fe0000c003╱ // 0x7af @0x4b
0x0764…07d7 at0050 = ╱ee╱ ) ╱ // 0x7b4 @0x50
0x0764…07d7 at0051 = ╱ec╱ , ╱ // 0x7b5 @0x51
0x0764…07d7 at0052 = ╱54╱T╱ // 0x7b6 @0x52
0x0764…07d7 at0053 = ╱33╱3╱ // 0x7b7 @0x53
0x0764…07d7 at0054 = ╱ed╱ ( ╱ // 0x7b8 @0x54
0x0764…07d7 at0055 = ╱37╱7╱ // 0x7b9 @0x55
0x0764…07d7 at0056 = ╱fe0000e003╱ // 0x7ba @0x56
0x0764…07d7 at005b = ╱ee╱ ) ╱ // 0x7bf @0x5b
0x0764…07d7 at005c = ╱ec╱ , ╱ // 0x7c0 @0x5c
0x0764…07d7 at005d = ╱54╱T╱ // 0x7c1 @0x5d
0x0764…07d7 at005e = ╱33╱3╱ // 0x7c2 @0x5e
0x0764…07d7 at005f = ╱ed╱ ( ╱ // 0x7c3 @0x5f
0x0764…07d7 at0060 = ╱38╱8╱ // 0x7c4 @0x60
0x0764…07d7 at0061 = ╱fe00008004╱ // 0x7c5 @0x61
0x0764…07d7 at0066 = ╱ee╱ ) ╱ // 0x7ca @0x66
0x0764…07d7 at0067 = ╱ec╱ , ╱ // 0x7cb @0x67
0x0764…07d7 at0068 = ╱54╱T╱ // 0x7cc @0x68
0x0764…07d7 at0069 = ╱33╱3╱ // 0x7cd @0x69
0x0764…07d7 at006a = ╱ed╱ ( ╱ // 0x7ce @0x6a
0x0764…07d7 at006b = ╱39╱9╱ // 0x7cf @0x6b
0x0764…07d7 at006c = ╱fe00009004╱ // 0x7d0 @0x6c
0x0764…07d7 at0071 = ╱ee╱ ) ╱ // 0x7d5 @0x71
0x0764…07d7 at0072 = EOL // 0x7d6 @0x72
0x0764…07d7 }
0x07d7…07f3 8f40 0690 EXEC FEJL ( 1 , 9 , B $ )
0x07d7…07f3 LineComalBcd {
0x07d7…07f3 ptr = 0x8f40 // 0x7d7 @0x0
0x07d7…07f3 lno = 0x0690 // 0x7d9 @0x2
0x07d7…07f3 at0004 = ╱9d╱ EXEC ╱ // 0x7db @0x4
0x07d7…07f3 at0005 = ╱46╱F╱ // 0x7dc @0x5
0x07d7…07f3 at0006 = ╱45╱E╱ // 0x7dd @0x6
0x07d7…07f3 at0007 = ╱4a╱J╱ // 0x7de @0x7
0x07d7…07f3 at0008 = ╱4c╱L╱ // 0x7df @0x8
0x07d7…07f3 at0009 = ╱ed╱ ( ╱ // 0x7e0 @0x9
0x07d7…07f3 at000a = ╱31╱1╱ // 0x7e1 @0xa
0x07d7…07f3 at000b = ╱fe00008001╱ // 0x7e2 @0xb
0x07d7…07f3 at0010 = ╱ec╱ , ╱ // 0x7e7 @0x10
0x07d7…07f3 at0011 = ╱39╱9╱ // 0x7e8 @0x11
0x07d7…07f3 at0012 = ╱fe00009004╱ // 0x7e9 @0x12
0x07d7…07f3 at0017 = ╱ec╱ , ╱ // 0x7ee @0x17
0x07d7…07f3 at0018 = ╱42╱B╱ // 0x7ef @0x18
0x07d7…07f3 at0019 = ╱ef╱ $ ╱ // 0x7f0 @0x19
0x07d7…07f3 at001a = ╱ee╱ ) ╱ // 0x7f1 @0x1a
0x07d7…07f3 at001b = EOL // 0x7f2 @0x1b
0x07d7…07f3 }
0x07f3…07f9 8f46 0700 ENDIF
0x07f3…07f9 LineComalBcd {
0x07f3…07f9 ptr = 0x8f46 // 0x7f3 @0x0
0x07f3…07f9 lno = 0x0700 // 0x7f5 @0x2
0x07f3…07f9 at0004 = ╱9b╱ ENDIF ╱ // 0x7f7 @0x4
0x07f3…07f9 at0005 = EOL // 0x7f8 @0x5
0x07f3…07f9 }
0x07f9…0801 8f4e 0710 CLOSE B $
0x07f9…0801 LineComalBcd {
0x07f9…0801 ptr = 0x8f4e // 0x7f9 @0x0
0x07f9…0801 lno = 0x0710 // 0x7fb @0x2
0x07f9…0801 at0004 = ╱a8╱ CLOSE ╱ // 0x7fd @0x4
0x07f9…0801 at0005 = ╱42╱B╱ // 0x7fe @0x5
0x07f9…0801 at0006 = ╱ef╱ $ ╱ // 0x7ff @0x6
0x07f9…0801 at0007 = EOL // 0x800 @0x7
0x07f9…0801 }
0x0801…081e 8f6b 0720 EXEC FEJL ( 1 , 10 , B $ )
0x0801…081e LineComalBcd {
0x0801…081e ptr = 0x8f6b // 0x801 @0x0
0x0801…081e lno = 0x0720 // 0x803 @0x2
0x0801…081e at0004 = ╱9d╱ EXEC ╱ // 0x805 @0x4
0x0801…081e at0005 = ╱46╱F╱ // 0x806 @0x5
0x0801…081e at0006 = ╱45╱E╱ // 0x807 @0x6
0x0801…081e at0007 = ╱4a╱J╱ // 0x808 @0x7
0x0801…081e at0008 = ╱4c╱L╱ // 0x809 @0x8
0x0801…081e at0009 = ╱ed╱ ( ╱ // 0x80a @0x9
0x0801…081e at000a = ╱31╱1╱ // 0x80b @0xa
0x0801…081e at000b = ╱fe00008001╱ // 0x80c @0xb
0x0801…081e at0010 = ╱ec╱ , ╱ // 0x811 @0x10
0x0801…081e at0011 = ╱31╱1╱ // 0x812 @0x11
0x0801…081e at0012 = ╱30╱0╱ // 0x813 @0x12
0x0801…081e at0013 = ╱fe0000a004╱ // 0x814 @0x13
0x0801…081e at0018 = ╱ec╱ , ╱ // 0x819 @0x18
0x0801…081e at0019 = ╱42╱B╱ // 0x81a @0x19
0x0801…081e at001a = ╱ef╱ $ ╱ // 0x81b @0x1a
0x0801…081e at001b = ╱ee╱ ) ╱ // 0x81c @0x1b
0x0801…081e at001c = EOL // 0x81d @0x1c
0x0801…081e }
0x081e…0824 8f71 0730 ENDPROC
0x081e…0824 LineComalBcd {
0x081e…0824 ptr = 0x8f71 // 0x81e @0x0
0x081e…0824 lno = 0x0730 // 0x820 @0x2
0x081e…0824 at0004 = ╱9f╱ ENDPROC ╱ // 0x822 @0x4
0x081e…0824 at0005 = EOL // 0x823 @0x5
0x081e…0824 }
0x0824…082d 8f7a 0740 PROC BIL
0x0824…082d LineComalBcd {
0x0824…082d ptr = 0x8f7a // 0x824 @0x0
0x0824…082d lno = 0x0740 // 0x826 @0x2
0x0824…082d at0004 = ╱9e╱ PROC ╱ // 0x828 @0x4
0x0824…082d at0005 = ╱42╱B╱ // 0x829 @0x5
0x0824…082d at0006 = ╱49╱I╱ // 0x82a @0x6
0x0824…082d at0007 = ╱4c╱L╱ // 0x82b @0x7
0x0824…082d at0008 = EOL // 0x82c @0x8
0x0824…082d }
0x082d…0833 8f80 0750 CLEAR
0x082d…0833 LineComalBcd {
0x082d…0833 ptr = 0x8f80 // 0x82d @0x0
0x082d…0833 lno = 0x0750 // 0x82f @0x2
0x082d…0833 at0004 = ╱a0╱ CLEAR ╱ // 0x831 @0x4
0x082d…0833 at0005 = EOL // 0x832 @0x5
0x082d…0833 }
0x0833…0847 8f94 0760 CURSOR 20 , 9
0x0833…0847 LineComalBcd {
0x0833…0847 ptr = 0x8f94 // 0x833 @0x0
0x0833…0847 lno = 0x0760 // 0x835 @0x2
0x0833…0847 at0004 = ╱a1╱ CURSOR ╱ // 0x837 @0x4
0x0833…0847 at0005 = ╱32╱2╱ // 0x838 @0x5
0x0833…0847 at0006 = ╱30╱0╱ // 0x839 @0x6
0x0833…0847 at0007 = ╱fe0000a005╱ // 0x83a @0x7
0x0833…0847 at000c = ╱ec╱ , ╱ // 0x83f @0xc
0x0833…0847 at000d = ╱39╱9╱ // 0x840 @0xd
0x0833…0847 at000e = ╱fe00009004╱ // 0x841 @0xe
0x0833…0847 at0013 = EOL // 0x846 @0x13
0x0833…0847 }
0x0847…0878 8fc5 0770 PRINT "*****************************************"
0x0847…0878 LineComalBcd {
0x0847…0878 ptr = 0x8fc5 // 0x847 @0x0
0x0847…0878 lno = 0x0770 // 0x849 @0x2
0x0847…0878 at0004 = ╱92╱ PRINT ╱ // 0x84b @0x4
0x0847…0878 at0005 = ╱22╱"╱ // 0x84c @0x5
0x0847…0878 at0006 = ╱2a╱*╱ // 0x84d @0x6
0x0847…0878 at0007 = ╱2a╱*╱ // 0x84e @0x7
0x0847…0878 at0008 = ╱2a╱*╱ // 0x84f @0x8
0x0847…0878 at0009 = ╱2a╱*╱ // 0x850 @0x9
0x0847…0878 at000a = ╱2a╱*╱ // 0x851 @0xa
0x0847…0878 at000b = ╱2a╱*╱ // 0x852 @0xb
0x0847…0878 at000c = ╱2a╱*╱ // 0x853 @0xc
0x0847…0878 at000d = ╱2a╱*╱ // 0x854 @0xd
0x0847…0878 at000e = ╱2a╱*╱ // 0x855 @0xe
0x0847…0878 at000f = ╱2a╱*╱ // 0x856 @0xf
0x0847…0878 at0010 = ╱2a╱*╱ // 0x857 @0x10
0x0847…0878 at0011 = ╱2a╱*╱ // 0x858 @0x11
0x0847…0878 at0012 = ╱2a╱*╱ // 0x859 @0x12
0x0847…0878 at0013 = ╱2a╱*╱ // 0x85a @0x13
0x0847…0878 at0014 = ╱2a╱*╱ // 0x85b @0x14
0x0847…0878 at0015 = ╱2a╱*╱ // 0x85c @0x15
0x0847…0878 at0016 = ╱2a╱*╱ // 0x85d @0x16
0x0847…0878 at0017 = ╱2a╱*╱ // 0x85e @0x17
0x0847…0878 at0018 = ╱2a╱*╱ // 0x85f @0x18
0x0847…0878 at0019 = ╱2a╱*╱ // 0x860 @0x19
0x0847…0878 at001a = ╱2a╱*╱ // 0x861 @0x1a
0x0847…0878 at001b = ╱2a╱*╱ // 0x862 @0x1b
0x0847…0878 at001c = ╱2a╱*╱ // 0x863 @0x1c
0x0847…0878 at001d = ╱2a╱*╱ // 0x864 @0x1d
0x0847…0878 at001e = ╱2a╱*╱ // 0x865 @0x1e
0x0847…0878 at001f = ╱2a╱*╱ // 0x866 @0x1f
0x0847…0878 at0020 = ╱2a╱*╱ // 0x867 @0x20
0x0847…0878 at0021 = ╱2a╱*╱ // 0x868 @0x21
0x0847…0878 at0022 = ╱2a╱*╱ // 0x869 @0x22
0x0847…0878 at0023 = ╱2a╱*╱ // 0x86a @0x23
0x0847…0878 at0024 = ╱2a╱*╱ // 0x86b @0x24
0x0847…0878 at0025 = ╱2a╱*╱ // 0x86c @0x25
0x0847…0878 at0026 = ╱2a╱*╱ // 0x86d @0x26
0x0847…0878 at0027 = ╱2a╱*╱ // 0x86e @0x27
0x0847…0878 at0028 = ╱2a╱*╱ // 0x86f @0x28
0x0847…0878 at0029 = ╱2a╱*╱ // 0x870 @0x29
0x0847…0878 at002a = ╱2a╱*╱ // 0x871 @0x2a
0x0847…0878 at002b = ╱2a╱*╱ // 0x872 @0x2b
0x0847…0878 at002c = ╱2a╱*╱ // 0x873 @0x2c
0x0847…0878 at002d = ╱2a╱*╱ // 0x874 @0x2d
0x0847…0878 at002e = ╱2a╱*╱ // 0x875 @0x2e
0x0847…0878 at002f = ╱22╱"╱ // 0x876 @0x2f
0x0847…0878 at0030 = EOL // 0x877 @0x30
0x0847…0878 }
0x0878…088d 8fda 0780 CURSOR 20 , 10
0x0878…088d LineComalBcd {
0x0878…088d ptr = 0x8fda // 0x878 @0x0
0x0878…088d lno = 0x0780 // 0x87a @0x2
0x0878…088d at0004 = ╱a1╱ CURSOR ╱ // 0x87c @0x4
0x0878…088d at0005 = ╱32╱2╱ // 0x87d @0x5
0x0878…088d at0006 = ╱30╱0╱ // 0x87e @0x6
0x0878…088d at0007 = ╱fe0000a005╱ // 0x87f @0x7
0x0878…088d at000c = ╱ec╱ , ╱ // 0x884 @0xc
0x0878…088d at000d = ╱31╱1╱ // 0x885 @0xd
0x0878…088d at000e = ╱30╱0╱ // 0x886 @0xe
0x0878…088d at000f = ╱fe0000a004╱ // 0x887 @0xf
0x0878…088d at0014 = EOL // 0x88c @0x14
0x0878…088d }
0x088d…08a5 8ff2 0790 PRINT "*" ; TAB ( 41 ) ; "*"
0x088d…08a5 LineComalBcd {
0x088d…08a5 ptr = 0x8ff2 // 0x88d @0x0
0x088d…08a5 lno = 0x0790 // 0x88f @0x2
0x088d…08a5 at0004 = ╱92╱ PRINT ╱ // 0x891 @0x4
0x088d…08a5 at0005 = ╱22╱"╱ // 0x892 @0x5
0x088d…08a5 at0006 = ╱2a╱*╱ // 0x893 @0x6
0x088d…08a5 at0007 = ╱22╱"╱ // 0x894 @0x7
0x088d…08a5 at0008 = ╱eb╱ ; ╱ // 0x895 @0x8
0x088d…08a5 at0009 = ╱d2╱ TAB ╱ // 0x896 @0x9
0x088d…08a5 at000a = ╱ed╱ ( ╱ // 0x897 @0xa
0x088d…08a5 at000b = ╱34╱4╱ // 0x898 @0xb
0x088d…08a5 at000c = ╱31╱1╱ // 0x899 @0xc
0x088d…08a5 at000d = ╱fe0000a406╱ // 0x89a @0xd
0x088d…08a5 at0012 = ╱ee╱ ) ╱ // 0x89f @0x12
0x088d…08a5 at0013 = ╱eb╱ ; ╱ // 0x8a0 @0x13
0x088d…08a5 at0014 = ╱22╱"╱ // 0x8a1 @0x14
0x088d…08a5 at0015 = ╱2a╱*╱ // 0x8a2 @0x15
0x088d…08a5 at0016 = ╱22╱"╱ // 0x8a3 @0x16
0x088d…08a5 at0017 = EOL // 0x8a4 @0x17
0x088d…08a5 }
0x08a5…08ba 9007 0800 CURSOR 20 , 11
0x08a5…08ba LineComalBcd {
0x08a5…08ba ptr = 0x9007 // 0x8a5 @0x0
0x08a5…08ba lno = 0x0800 // 0x8a7 @0x2
0x08a5…08ba at0004 = ╱a1╱ CURSOR ╱ // 0x8a9 @0x4
0x08a5…08ba at0005 = ╱32╱2╱ // 0x8aa @0x5
0x08a5…08ba at0006 = ╱30╱0╱ // 0x8ab @0x6
0x08a5…08ba at0007 = ╱fe0000a005╱ // 0x8ac @0x7
0x08a5…08ba at000c = ╱ec╱ , ╱ // 0x8b1 @0xc
0x08a5…08ba at000d = ╱31╱1╱ // 0x8b2 @0xd
0x08a5…08ba at000e = ╱31╱1╱ // 0x8b3 @0xe
0x08a5…08ba at000f = ╱fe0000b004╱ // 0x8b4 @0xf
0x08a5…08ba at0014 = EOL // 0x8b9 @0x14
0x08a5…08ba }
0x08ba…08e2 902f 0810 PRINT "*" ; TAB ( 11 ) ; TEK $ ; TAB ( 41 ) ; "*"
0x08ba…08e2 LineComalBcd {
0x08ba…08e2 ptr = 0x902f // 0x8ba @0x0
0x08ba…08e2 lno = 0x0810 // 0x8bc @0x2
0x08ba…08e2 at0004 = ╱92╱ PRINT ╱ // 0x8be @0x4
0x08ba…08e2 at0005 = ╱22╱"╱ // 0x8bf @0x5
0x08ba…08e2 at0006 = ╱2a╱*╱ // 0x8c0 @0x6
0x08ba…08e2 at0007 = ╱22╱"╱ // 0x8c1 @0x7
0x08ba…08e2 at0008 = ╱eb╱ ; ╱ // 0x8c2 @0x8
0x08ba…08e2 at0009 = ╱d2╱ TAB ╱ // 0x8c3 @0x9
0x08ba…08e2 at000a = ╱ed╱ ( ╱ // 0x8c4 @0xa
0x08ba…08e2 at000b = ╱31╱1╱ // 0x8c5 @0xb
0x08ba…08e2 at000c = ╱31╱1╱ // 0x8c6 @0xc
0x08ba…08e2 at000d = ╱fe0000b004╱ // 0x8c7 @0xd
0x08ba…08e2 at0012 = ╱ee╱ ) ╱ // 0x8cc @0x12
0x08ba…08e2 at0013 = ╱eb╱ ; ╱ // 0x8cd @0x13
0x08ba…08e2 at0014 = ╱54╱T╱ // 0x8ce @0x14
0x08ba…08e2 at0015 = ╱45╱E╱ // 0x8cf @0x15
0x08ba…08e2 at0016 = ╱4b╱K╱ // 0x8d0 @0x16
0x08ba…08e2 at0017 = ╱ef╱ $ ╱ // 0x8d1 @0x17
0x08ba…08e2 at0018 = ╱eb╱ ; ╱ // 0x8d2 @0x18
0x08ba…08e2 at0019 = ╱d2╱ TAB ╱ // 0x8d3 @0x19
0x08ba…08e2 at001a = ╱ed╱ ( ╱ // 0x8d4 @0x1a
0x08ba…08e2 at001b = ╱34╱4╱ // 0x8d5 @0x1b
0x08ba…08e2 at001c = ╱31╱1╱ // 0x8d6 @0x1c
0x08ba…08e2 at001d = ╱fe0000a406╱ // 0x8d7 @0x1d
0x08ba…08e2 at0022 = ╱ee╱ ) ╱ // 0x8dc @0x22
0x08ba…08e2 at0023 = ╱eb╱ ; ╱ // 0x8dd @0x23
0x08ba…08e2 at0024 = ╱22╱"╱ // 0x8de @0x24
0x08ba…08e2 at0025 = ╱2a╱*╱ // 0x8df @0x25
0x08ba…08e2 at0026 = ╱22╱"╱ // 0x8e0 @0x26
0x08ba…08e2 at0027 = EOL // 0x8e1 @0x27
0x08ba…08e2 }
0x08e2…08f7 9044 0820 CURSOR 20 , 12
0x08e2…08f7 LineComalBcd {
0x08e2…08f7 ptr = 0x9044 // 0x8e2 @0x0
0x08e2…08f7 lno = 0x0820 // 0x8e4 @0x2
0x08e2…08f7 at0004 = ╱a1╱ CURSOR ╱ // 0x8e6 @0x4
0x08e2…08f7 at0005 = ╱32╱2╱ // 0x8e7 @0x5
0x08e2…08f7 at0006 = ╱30╱0╱ // 0x8e8 @0x6
0x08e2…08f7 at0007 = ╱fe0000a005╱ // 0x8e9 @0x7
0x08e2…08f7 at000c = ╱ec╱ , ╱ // 0x8ee @0xc
0x08e2…08f7 at000d = ╱31╱1╱ // 0x8ef @0xd
0x08e2…08f7 at000e = ╱32╱2╱ // 0x8f0 @0xe
0x08e2…08f7 at000f = ╱fe0000c004╱ // 0x8f1 @0xf
0x08e2…08f7 at0014 = EOL // 0x8f6 @0x14
0x08e2…08f7 }
0x08f7…090f 905c 0830 PRINT "*" ; TAB ( 41 ) ; "*"
0x08f7…090f LineComalBcd {
0x08f7…090f ptr = 0x905c // 0x8f7 @0x0
0x08f7…090f lno = 0x0830 // 0x8f9 @0x2
0x08f7…090f at0004 = ╱92╱ PRINT ╱ // 0x8fb @0x4
0x08f7…090f at0005 = ╱22╱"╱ // 0x8fc @0x5
0x08f7…090f at0006 = ╱2a╱*╱ // 0x8fd @0x6
0x08f7…090f at0007 = ╱22╱"╱ // 0x8fe @0x7
0x08f7…090f at0008 = ╱eb╱ ; ╱ // 0x8ff @0x8
0x08f7…090f at0009 = ╱d2╱ TAB ╱ // 0x900 @0x9
0x08f7…090f at000a = ╱ed╱ ( ╱ // 0x901 @0xa
0x08f7…090f at000b = ╱34╱4╱ // 0x902 @0xb
0x08f7…090f at000c = ╱31╱1╱ // 0x903 @0xc
0x08f7…090f at000d = ╱fe0000a406╱ // 0x904 @0xd
0x08f7…090f at0012 = ╱ee╱ ) ╱ // 0x909 @0x12
0x08f7…090f at0013 = ╱eb╱ ; ╱ // 0x90a @0x13
0x08f7…090f at0014 = ╱22╱"╱ // 0x90b @0x14
0x08f7…090f at0015 = ╱2a╱*╱ // 0x90c @0x15
0x08f7…090f at0016 = ╱22╱"╱ // 0x90d @0x16
0x08f7…090f at0017 = EOL // 0x90e @0x17
0x08f7…090f }
0x090f…0924 9071 0840 CURSOR 20 , 13
0x090f…0924 LineComalBcd {
0x090f…0924 ptr = 0x9071 // 0x90f @0x0
0x090f…0924 lno = 0x0840 // 0x911 @0x2
0x090f…0924 at0004 = ╱a1╱ CURSOR ╱ // 0x913 @0x4
0x090f…0924 at0005 = ╱32╱2╱ // 0x914 @0x5
0x090f…0924 at0006 = ╱30╱0╱ // 0x915 @0x6
0x090f…0924 at0007 = ╱fe0000a005╱ // 0x916 @0x7
0x090f…0924 at000c = ╱ec╱ , ╱ // 0x91b @0xc
0x090f…0924 at000d = ╱31╱1╱ // 0x91c @0xd
0x090f…0924 at000e = ╱33╱3╱ // 0x91d @0xe
0x090f…0924 at000f = ╱fe0000d004╱ // 0x91e @0xf
0x090f…0924 at0014 = EOL // 0x923 @0x14
0x090f…0924 }
0x0924…0955 90a2 0850 PRINT "*****************************************"
0x0924…0955 LineComalBcd {
0x0924…0955 ptr = 0x90a2 // 0x924 @0x0
0x0924…0955 lno = 0x0850 // 0x926 @0x2
0x0924…0955 at0004 = ╱92╱ PRINT ╱ // 0x928 @0x4
0x0924…0955 at0005 = ╱22╱"╱ // 0x929 @0x5
0x0924…0955 at0006 = ╱2a╱*╱ // 0x92a @0x6
0x0924…0955 at0007 = ╱2a╱*╱ // 0x92b @0x7
0x0924…0955 at0008 = ╱2a╱*╱ // 0x92c @0x8
0x0924…0955 at0009 = ╱2a╱*╱ // 0x92d @0x9
0x0924…0955 at000a = ╱2a╱*╱ // 0x92e @0xa
0x0924…0955 at000b = ╱2a╱*╱ // 0x92f @0xb
0x0924…0955 at000c = ╱2a╱*╱ // 0x930 @0xc
0x0924…0955 at000d = ╱2a╱*╱ // 0x931 @0xd
0x0924…0955 at000e = ╱2a╱*╱ // 0x932 @0xe
0x0924…0955 at000f = ╱2a╱*╱ // 0x933 @0xf
0x0924…0955 at0010 = ╱2a╱*╱ // 0x934 @0x10
0x0924…0955 at0011 = ╱2a╱*╱ // 0x935 @0x11
0x0924…0955 at0012 = ╱2a╱*╱ // 0x936 @0x12
0x0924…0955 at0013 = ╱2a╱*╱ // 0x937 @0x13
0x0924…0955 at0014 = ╱2a╱*╱ // 0x938 @0x14
0x0924…0955 at0015 = ╱2a╱*╱ // 0x939 @0x15
0x0924…0955 at0016 = ╱2a╱*╱ // 0x93a @0x16
0x0924…0955 at0017 = ╱2a╱*╱ // 0x93b @0x17
0x0924…0955 at0018 = ╱2a╱*╱ // 0x93c @0x18
0x0924…0955 at0019 = ╱2a╱*╱ // 0x93d @0x19
0x0924…0955 at001a = ╱2a╱*╱ // 0x93e @0x1a
0x0924…0955 at001b = ╱2a╱*╱ // 0x93f @0x1b
0x0924…0955 at001c = ╱2a╱*╱ // 0x940 @0x1c
0x0924…0955 at001d = ╱2a╱*╱ // 0x941 @0x1d
0x0924…0955 at001e = ╱2a╱*╱ // 0x942 @0x1e
0x0924…0955 at001f = ╱2a╱*╱ // 0x943 @0x1f
0x0924…0955 at0020 = ╱2a╱*╱ // 0x944 @0x20
0x0924…0955 at0021 = ╱2a╱*╱ // 0x945 @0x21
0x0924…0955 at0022 = ╱2a╱*╱ // 0x946 @0x22
0x0924…0955 at0023 = ╱2a╱*╱ // 0x947 @0x23
0x0924…0955 at0024 = ╱2a╱*╱ // 0x948 @0x24
0x0924…0955 at0025 = ╱2a╱*╱ // 0x949 @0x25
0x0924…0955 at0026 = ╱2a╱*╱ // 0x94a @0x26
0x0924…0955 at0027 = ╱2a╱*╱ // 0x94b @0x27
0x0924…0955 at0028 = ╱2a╱*╱ // 0x94c @0x28
0x0924…0955 at0029 = ╱2a╱*╱ // 0x94d @0x29
0x0924…0955 at002a = ╱2a╱*╱ // 0x94e @0x2a
0x0924…0955 at002b = ╱2a╱*╱ // 0x94f @0x2b
0x0924…0955 at002c = ╱2a╱*╱ // 0x950 @0x2c
0x0924…0955 at002d = ╱2a╱*╱ // 0x951 @0x2d
0x0924…0955 at002e = ╱2a╱*╱ // 0x952 @0x2e
0x0924…0955 at002f = ╱22╱"╱ // 0x953 @0x2f
0x0924…0955 at0030 = EOL // 0x954 @0x30
0x0924…0955 }
0x0955…095b 90a8 0860 ENDPROC
0x0955…095b LineComalBcd {
0x0955…095b ptr = 0x90a8 // 0x955 @0x0
0x0955…095b lno = 0x0860 // 0x957 @0x2
0x0955…095b at0004 = ╱9f╱ ENDPROC ╱ // 0x959 @0x4
0x0955…095b at0005 = EOL // 0x95a @0x5
0x0955…095b }
0x095b…0972 90bf 0870 PROC FEJL ( NR1 , NR2 , NR3 )
0x095b…0972 LineComalBcd {
0x095b…0972 ptr = 0x90bf // 0x95b @0x0
0x095b…0972 lno = 0x0870 // 0x95d @0x2
0x095b…0972 at0004 = ╱9e╱ PROC ╱ // 0x95f @0x4
0x095b…0972 at0005 = ╱46╱F╱ // 0x960 @0x5
0x095b…0972 at0006 = ╱45╱E╱ // 0x961 @0x6
0x095b…0972 at0007 = ╱4a╱J╱ // 0x962 @0x7
0x095b…0972 at0008 = ╱4c╱L╱ // 0x963 @0x8
0x095b…0972 at0009 = ╱ed╱ ( ╱ // 0x964 @0x9
0x095b…0972 at000a = ╱4e╱N╱ // 0x965 @0xa
0x095b…0972 at000b = ╱52╱R╱ // 0x966 @0xb
0x095b…0972 at000c = ╱31╱1╱ // 0x967 @0xc
0x095b…0972 at000d = ╱ec╱ , ╱ // 0x968 @0xd
0x095b…0972 at000e = ╱4e╱N╱ // 0x969 @0xe
0x095b…0972 at000f = ╱52╱R╱ // 0x96a @0xf
0x095b…0972 at0010 = ╱32╱2╱ // 0x96b @0x10
0x095b…0972 at0011 = ╱ec╱ , ╱ // 0x96c @0x11
0x095b…0972 at0012 = ╱4e╱N╱ // 0x96d @0x12
0x095b…0972 at0013 = ╱52╱R╱ // 0x96e @0x13
0x095b…0972 at0014 = ╱33╱3╱ // 0x96f @0x14
0x095b…0972 at0015 = ╱ee╱ ) ╱ // 0x970 @0x15
0x095b…0972 at0016 = EOL // 0x971 @0x16
0x095b…0972 }
0x0972…0987 90d4 0880 IF STATUS ( NR3 $ ) >< 0 THEN
0x0972…0987 LineComalBcd {
0x0972…0987 ptr = 0x90d4 // 0x972 @0x0
0x0972…0987 lno = 0x0880 // 0x974 @0x2
0x0972…0987 at0004 = ╱9c╱ IF ╱ // 0x976 @0x4
0x0972…0987 at0005 = ╱ce╱ STATUS ╱ // 0x977 @0x5
0x0972…0987 at0006 = ╱ed╱ ( ╱ // 0x978 @0x6
0x0972…0987 at0007 = ╱4e╱N╱ // 0x979 @0x7
0x0972…0987 at0008 = ╱52╱R╱ // 0x97a @0x8
0x0972…0987 at0009 = ╱33╱3╱ // 0x97b @0x9
0x0972…0987 at000a = ╱ef╱ $ ╱ // 0x97c @0xa
0x0972…0987 at000b = ╱ee╱ ) ╱ // 0x97d @0xb
0x0972…0987 at000c = ╱e1╱ >< ╱ // 0x97e @0xc
0x0972…0987 at000d = ╱30╱0╱ // 0x97f @0xd
0x0972…0987 at000e = ╱fe00000000╱ // 0x980 @0xe
0x0972…0987 at0013 = ╱b6╱ THEN ╱ // 0x985 @0x13
0x0972…0987 at0014 = EOL // 0x986 @0x14
0x0972…0987 }
0x0987…09a1 90ee 0890 PRINT STATUS ( NR3 $ ) , NR1 , NR2 , NR3 $
0x0987…09a1 LineComalBcd {
0x0987…09a1 ptr = 0x90ee // 0x987 @0x0
0x0987…09a1 lno = 0x0890 // 0x989 @0x2
0x0987…09a1 at0004 = ╱92╱ PRINT ╱ // 0x98b @0x4
0x0987…09a1 at0005 = ╱ce╱ STATUS ╱ // 0x98c @0x5
0x0987…09a1 at0006 = ╱ed╱ ( ╱ // 0x98d @0x6
0x0987…09a1 at0007 = ╱4e╱N╱ // 0x98e @0x7
0x0987…09a1 at0008 = ╱52╱R╱ // 0x98f @0x8
0x0987…09a1 at0009 = ╱33╱3╱ // 0x990 @0x9
0x0987…09a1 at000a = ╱ef╱ $ ╱ // 0x991 @0xa
0x0987…09a1 at000b = ╱ee╱ ) ╱ // 0x992 @0xb
0x0987…09a1 at000c = ╱ec╱ , ╱ // 0x993 @0xc
0x0987…09a1 at000d = ╱4e╱N╱ // 0x994 @0xd
0x0987…09a1 at000e = ╱52╱R╱ // 0x995 @0xe
0x0987…09a1 at000f = ╱31╱1╱ // 0x996 @0xf
0x0987…09a1 at0010 = ╱ec╱ , ╱ // 0x997 @0x10
0x0987…09a1 at0011 = ╱4e╱N╱ // 0x998 @0x11
0x0987…09a1 at0012 = ╱52╱R╱ // 0x999 @0x12
0x0987…09a1 at0013 = ╱32╱2╱ // 0x99a @0x13
0x0987…09a1 at0014 = ╱ec╱ , ╱ // 0x99b @0x14
0x0987…09a1 at0015 = ╱4e╱N╱ // 0x99c @0x15
0x0987…09a1 at0016 = ╱52╱R╱ // 0x99d @0x16
0x0987…09a1 at0017 = ╱33╱3╱ // 0x99e @0x17
0x0987…09a1 at0018 = ╱ef╱ $ ╱ // 0x99f @0x18
0x0987…09a1 at0019 = EOL // 0x9a0 @0x19
0x0987…09a1 }
0x09a1…09a7 90f4 0900 STOP
0x09a1…09a7 LineComalBcd {
0x09a1…09a7 ptr = 0x90f4 // 0x9a1 @0x0
0x09a1…09a7 lno = 0x0900 // 0x9a3 @0x2
0x09a1…09a7 at0004 = ╱8d╱ STOP ╱ // 0x9a5 @0x4
0x09a1…09a7 at0005 = EOL // 0x9a6 @0x5
0x09a1…09a7 }
0x09a7…09ad 90fa 0910 ENDIF
0x09a7…09ad LineComalBcd {
0x09a7…09ad ptr = 0x90fa // 0x9a7 @0x0
0x09a7…09ad lno = 0x0910 // 0x9a9 @0x2
0x09a7…09ad at0004 = ╱9b╱ ENDIF ╱ // 0x9ab @0x4
0x09a7…09ad at0005 = EOL // 0x9ac @0x5
0x09a7…09ad }
0x09ad…09b3 9100 0920 ENDPROC
0x09ad…09b3 LineComalBcd {
0x09ad…09b3 ptr = 0x9100 // 0x9ad @0x0
0x09ad…09b3 lno = 0x0920 // 0x9af @0x2
0x09ad…09b3 at0004 = ╱9f╱ ENDPROC ╱ // 0x9b1 @0x4
0x09ad…09b3 at0005 = EOL // 0x9b2 @0x5
0x09ad…09b3 }
0x09b3…09c0 910d 0930 EXEC TESTSYS
0x09b3…09c0 LineComalBcd {
0x09b3…09c0 ptr = 0x910d // 0x9b3 @0x0
0x09b3…09c0 lno = 0x0930 // 0x9b5 @0x2
0x09b3…09c0 at0004 = ╱9d╱ EXEC ╱ // 0x9b7 @0x4
0x09b3…09c0 at0005 = ╱54╱T╱ // 0x9b8 @0x5
0x09b3…09c0 at0006 = ╱45╱E╱ // 0x9b9 @0x6
0x09b3…09c0 at0007 = ╱53╱S╱ // 0x9ba @0x7
0x09b3…09c0 at0008 = ╱54╱T╱ // 0x9bb @0x8
0x09b3…09c0 at0009 = ╱53╱S╱ // 0x9bc @0x9
0x09b3…09c0 at000a = ╱59╱Y╱ // 0x9bd @0xa
0x09b3…09c0 at000b = ╱53╱S╱ // 0x9be @0xb
0x09b3…09c0 at000c = EOL // 0x9bf @0xc
0x09b3…09c0 }
0x09c0…09e0 912d 0940 A $ = "P641210:" ; C $ = "P641215:"
0x09c0…09e0 LineComalBcd {
0x09c0…09e0 ptr = 0x912d // 0x9c0 @0x0
0x09c0…09e0 lno = 0x0940 // 0x9c2 @0x2
0x09c0…09e0 at0004 = ╱41╱A╱ // 0x9c4 @0x4
0x09c0…09e0 at0005 = ╱ef╱ $ ╱ // 0x9c5 @0x5
0x09c0…09e0 at0006 = ╱dc╱ = ╱ // 0x9c6 @0x6
0x09c0…09e0 at0007 = ╱22╱"╱ // 0x9c7 @0x7
0x09c0…09e0 at0008 = ╱50╱P╱ // 0x9c8 @0x8
0x09c0…09e0 at0009 = ╱36╱6╱ // 0x9c9 @0x9
0x09c0…09e0 at000a = ╱34╱4╱ // 0x9ca @0xa
0x09c0…09e0 at000b = ╱31╱1╱ // 0x9cb @0xb
0x09c0…09e0 at000c = ╱32╱2╱ // 0x9cc @0xc
0x09c0…09e0 at000d = ╱31╱1╱ // 0x9cd @0xd
0x09c0…09e0 at000e = ╱30╱0╱ // 0x9ce @0xe
0x09c0…09e0 at000f = ╱3a╱:╱ // 0x9cf @0xf
0x09c0…09e0 at0010 = ╱22╱"╱ // 0x9d0 @0x10
0x09c0…09e0 at0011 = ╱eb╱ ; ╱ // 0x9d1 @0x11
0x09c0…09e0 at0012 = ╱43╱C╱ // 0x9d2 @0x12
0x09c0…09e0 at0013 = ╱ef╱ $ ╱ // 0x9d3 @0x13
0x09c0…09e0 at0014 = ╱dc╱ = ╱ // 0x9d4 @0x14
0x09c0…09e0 at0015 = ╱22╱"╱ // 0x9d5 @0x15
0x09c0…09e0 at0016 = ╱50╱P╱ // 0x9d6 @0x16
0x09c0…09e0 at0017 = ╱36╱6╱ // 0x9d7 @0x17
0x09c0…09e0 at0018 = ╱34╱4╱ // 0x9d8 @0x18
0x09c0…09e0 at0019 = ╱31╱1╱ // 0x9d9 @0x19
0x09c0…09e0 at001a = ╱32╱2╱ // 0x9da @0x1a
0x09c0…09e0 at001b = ╱31╱1╱ // 0x9db @0x1b
0x09c0…09e0 at001c = ╱35╱5╱ // 0x9dc @0x1c
0x09c0…09e0 at001d = ╱3a╱:╱ // 0x9dd @0x1d
0x09c0…09e0 at001e = ╱22╱"╱ // 0x9de @0x1e
0x09c0…09e0 at001f = EOL // 0x9df @0x1f
0x09c0…09e0 }
0x09e0…09f0 913d 0950 GENT = 0
0x09e0…09f0 LineComalBcd {
0x09e0…09f0 ptr = 0x913d // 0x9e0 @0x0
0x09e0…09f0 lno = 0x0950 // 0x9e2 @0x2
0x09e0…09f0 at0004 = ╱47╱G╱ // 0x9e4 @0x4
0x09e0…09f0 at0005 = ╱45╱E╱ // 0x9e5 @0x5
0x09e0…09f0 at0006 = ╱4e╱N╱ // 0x9e6 @0x6
0x09e0…09f0 at0007 = ╱54╱T╱ // 0x9e7 @0x7
0x09e0…09f0 at0008 = ╱dc╱ = ╱ // 0x9e8 @0x8
0x09e0…09f0 at0009 = ╱30╱0╱ // 0x9e9 @0x9
0x09e0…09f0 at000a = ╱fe00000000╱ // 0x9ea @0xa
0x09e0…09f0 at000f = EOL // 0x9ef @0xf
0x09e0…09f0 }
0x09f0…09f6 9143 0960 REPEAT
0x09f0…09f6 LineComalBcd {
0x09f0…09f6 ptr = 0x9143 // 0x9f0 @0x0
0x09f0…09f6 lno = 0x0960 // 0x9f2 @0x2
0x09f0…09f6 at0004 = ╱97╱ REPEAT ╱ // 0x9f4 @0x4
0x09f0…09f6 at0005 = EOL // 0x9f5 @0x5
0x09f0…09f6 }
0x09f6…0a1b 9168 0970 TEK $ = "…………………………………………………………………"
0x09f6…0a1b LineComalBcd {
0x09f6…0a1b ptr = 0x9168 // 0x9f6 @0x0
0x09f6…0a1b lno = 0x0970 // 0x9f8 @0x2
0x09f6…0a1b at0004 = ╱54╱T╱ // 0x9fa @0x4
0x09f6…0a1b at0005 = ╱45╱E╱ // 0x9fb @0x5
0x09f6…0a1b at0006 = ╱4b╱K╱ // 0x9fc @0x6
0x09f6…0a1b at0007 = ╱ef╱ $ ╱ // 0x9fd @0x7
0x09f6…0a1b at0008 = ╱dc╱ = ╱ // 0x9fe @0x8
0x09f6…0a1b at0009 = ╱22╱"╱ // 0x9ff @0x9
0x09f6…0a1b at000a = ╱20╱…╱ // 0xa00 @0xa
0x09f6…0a1b at000b = ╱20╱…╱ // 0xa01 @0xb
0x09f6…0a1b at000c = ╱20╱…╱ // 0xa02 @0xc
0x09f6…0a1b at000d = ╱20╱…╱ // 0xa03 @0xd
0x09f6…0a1b at000e = ╱20╱…╱ // 0xa04 @0xe
0x09f6…0a1b at000f = ╱20╱…╱ // 0xa05 @0xf
0x09f6…0a1b at0010 = ╱20╱…╱ // 0xa06 @0x10
0x09f6…0a1b at0011 = ╱20╱…╱ // 0xa07 @0x11
0x09f6…0a1b at0012 = ╱20╱…╱ // 0xa08 @0x12
0x09f6…0a1b at0013 = ╱20╱…╱ // 0xa09 @0x13
0x09f6…0a1b at0014 = ╱20╱…╱ // 0xa0a @0x14
0x09f6…0a1b at0015 = ╱20╱…╱ // 0xa0b @0x15
0x09f6…0a1b at0016 = ╱20╱…╱ // 0xa0c @0x16
0x09f6…0a1b at0017 = ╱20╱…╱ // 0xa0d @0x17
0x09f6…0a1b at0018 = ╱20╱…╱ // 0xa0e @0x18
0x09f6…0a1b at0019 = ╱20╱…╱ // 0xa0f @0x19
0x09f6…0a1b at001a = ╱20╱…╱ // 0xa10 @0x1a
0x09f6…0a1b at001b = ╱20╱…╱ // 0xa11 @0x1b
0x09f6…0a1b at001c = ╱20╱…╱ // 0xa12 @0x1c
0x09f6…0a1b at001d = ╱20╱…╱ // 0xa13 @0x1d
0x09f6…0a1b at001e = ╱20╱…╱ // 0xa14 @0x1e
0x09f6…0a1b at001f = ╱20╱…╱ // 0xa15 @0x1f
0x09f6…0a1b at0020 = ╱20╱…╱ // 0xa16 @0x20
0x09f6…0a1b at0021 = ╱20╱…╱ // 0xa17 @0x21
0x09f6…0a1b at0022 = ╱20╱…╱ // 0xa18 @0x22
0x09f6…0a1b at0023 = ╱22╱"╱ // 0xa19 @0x23
0x09f6…0a1b at0024 = EOL // 0xa1a @0x24
0x09f6…0a1b }
0x0a1b…0a21 916e 0980 CLEAR
0x0a1b…0a21 LineComalBcd {
0x0a1b…0a21 ptr = 0x916e // 0xa1b @0x0
0x0a1b…0a21 lno = 0x0980 // 0xa1d @0x2
0x0a1b…0a21 at0004 = ╱a0╱ CLEAR ╱ // 0xa1f @0x4
0x0a1b…0a21 at0005 = EOL // 0xa20 @0x5
0x0a1b…0a21 }
0x0a21…0a35 9182 0990 CURSOR 21 , 1
0x0a21…0a35 LineComalBcd {
0x0a21…0a35 ptr = 0x9182 // 0xa21 @0x0
0x0a21…0a35 lno = 0x0990 // 0xa23 @0x2
0x0a21…0a35 at0004 = ╱a1╱ CURSOR ╱ // 0xa25 @0x4
0x0a21…0a35 at0005 = ╱32╱2╱ // 0xa26 @0x5
0x0a21…0a35 at0006 = ╱31╱1╱ // 0xa27 @0x6
0x0a21…0a35 at0007 = ╱fe0000a805╱ // 0xa28 @0x7
0x0a21…0a35 at000c = ╱ec╱ , ╱ // 0xa2d @0xc
0x0a21…0a35 at000d = ╱31╱1╱ // 0xa2e @0xd
0x0a21…0a35 at000e = ╱fe00008001╱ // 0xa2f @0xe
0x0a21…0a35 at0013 = EOL // 0xa34 @0x13
0x0a21…0a35 }
0x0a35…0a49 9196 1000 PRINT "Programvalg."
0x0a35…0a49 LineComalBcd {
0x0a35…0a49 ptr = 0x9196 // 0xa35 @0x0
0x0a35…0a49 lno = 0x1000 // 0xa37 @0x2
0x0a35…0a49 at0004 = ╱92╱ PRINT ╱ // 0xa39 @0x4
0x0a35…0a49 at0005 = ╱22╱"╱ // 0xa3a @0x5
0x0a35…0a49 at0006 = ╱50╱P╱ // 0xa3b @0x6
0x0a35…0a49 at0007 = ╱72╱r╱ // 0xa3c @0x7
0x0a35…0a49 at0008 = ╱6f╱o╱ // 0xa3d @0x8
0x0a35…0a49 at0009 = ╱67╱g╱ // 0xa3e @0x9
0x0a35…0a49 at000a = ╱72╱r╱ // 0xa3f @0xa
0x0a35…0a49 at000b = ╱61╱a╱ // 0xa40 @0xb
0x0a35…0a49 at000c = ╱6d╱m╱ // 0xa41 @0xc
0x0a35…0a49 at000d = ╱76╱v╱ // 0xa42 @0xd
0x0a35…0a49 at000e = ╱61╱a╱ // 0xa43 @0xe
0x0a35…0a49 at000f = ╱6c╱l╱ // 0xa44 @0xf
0x0a35…0a49 at0010 = ╱67╱g╱ // 0xa45 @0x10
0x0a35…0a49 at0011 = ╱2e╱.╱ // 0xa46 @0x11
0x0a35…0a49 at0012 = ╱22╱"╱ // 0xa47 @0x12
0x0a35…0a49 at0013 = EOL // 0xa48 @0x13
0x0a35…0a49 }
0x0a49…0a5d 91aa 1010 CURSOR 11 , 4
0x0a49…0a5d LineComalBcd {
0x0a49…0a5d ptr = 0x91aa // 0xa49 @0x0
0x0a49…0a5d lno = 0x1010 // 0xa4b @0x2
0x0a49…0a5d at0004 = ╱a1╱ CURSOR ╱ // 0xa4d @0x4
0x0a49…0a5d at0005 = ╱31╱1╱ // 0xa4e @0x5
0x0a49…0a5d at0006 = ╱31╱1╱ // 0xa4f @0x6
0x0a49…0a5d at0007 = ╱fe0000b004╱ // 0xa50 @0x7
0x0a49…0a5d at000c = ╱ec╱ , ╱ // 0xa55 @0xc
0x0a49…0a5d at000d = ╱34╱4╱ // 0xa56 @0xd
0x0a49…0a5d at000e = ╱fe00008003╱ // 0xa57 @0xe
0x0a49…0a5d at0013 = EOL // 0xa5c @0x13
0x0a49…0a5d }
0x0a5d…0a81 91ce 1020 PRINT "1:…Kartoteksvedligeholdelse."
0x0a5d…0a81 LineComalBcd {
0x0a5d…0a81 ptr = 0x91ce // 0xa5d @0x0
0x0a5d…0a81 lno = 0x1020 // 0xa5f @0x2
0x0a5d…0a81 at0004 = ╱92╱ PRINT ╱ // 0xa61 @0x4
0x0a5d…0a81 at0005 = ╱22╱"╱ // 0xa62 @0x5
0x0a5d…0a81 at0006 = ╱31╱1╱ // 0xa63 @0x6
0x0a5d…0a81 at0007 = ╱3a╱:╱ // 0xa64 @0x7
0x0a5d…0a81 at0008 = ╱20╱…╱ // 0xa65 @0x8
0x0a5d…0a81 at0009 = ╱4b╱K╱ // 0xa66 @0x9
0x0a5d…0a81 at000a = ╱61╱a╱ // 0xa67 @0xa
0x0a5d…0a81 at000b = ╱72╱r╱ // 0xa68 @0xb
0x0a5d…0a81 at000c = ╱74╱t╱ // 0xa69 @0xc
0x0a5d…0a81 at000d = ╱6f╱o╱ // 0xa6a @0xd
0x0a5d…0a81 at000e = ╱74╱t╱ // 0xa6b @0xe
0x0a5d…0a81 at000f = ╱65╱e╱ // 0xa6c @0xf
0x0a5d…0a81 at0010 = ╱6b╱k╱ // 0xa6d @0x10
0x0a5d…0a81 at0011 = ╱73╱s╱ // 0xa6e @0x11
0x0a5d…0a81 at0012 = ╱76╱v╱ // 0xa6f @0x12
0x0a5d…0a81 at0013 = ╱65╱e╱ // 0xa70 @0x13
0x0a5d…0a81 at0014 = ╱64╱d╱ // 0xa71 @0x14
0x0a5d…0a81 at0015 = ╱6c╱l╱ // 0xa72 @0x15
0x0a5d…0a81 at0016 = ╱69╱i╱ // 0xa73 @0x16
0x0a5d…0a81 at0017 = ╱67╱g╱ // 0xa74 @0x17
0x0a5d…0a81 at0018 = ╱65╱e╱ // 0xa75 @0x18
0x0a5d…0a81 at0019 = ╱68╱h╱ // 0xa76 @0x19
0x0a5d…0a81 at001a = ╱6f╱o╱ // 0xa77 @0x1a
0x0a5d…0a81 at001b = ╱6c╱l╱ // 0xa78 @0x1b
0x0a5d…0a81 at001c = ╱64╱d╱ // 0xa79 @0x1c
0x0a5d…0a81 at001d = ╱65╱e╱ // 0xa7a @0x1d
0x0a5d…0a81 at001e = ╱6c╱l╱ // 0xa7b @0x1e
0x0a5d…0a81 at001f = ╱73╱s╱ // 0xa7c @0x1f
0x0a5d…0a81 at0020 = ╱65╱e╱ // 0xa7d @0x20
0x0a5d…0a81 at0021 = ╱2e╱.╱ // 0xa7e @0x21
0x0a5d…0a81 at0022 = ╱22╱"╱ // 0xa7f @0x22
0x0a5d…0a81 at0023 = EOL // 0xa80 @0x23
0x0a5d…0a81 }
0x0a81…0a95 91e2 1030 CURSOR 11 , 6
0x0a81…0a95 LineComalBcd {
0x0a81…0a95 ptr = 0x91e2 // 0xa81 @0x0
0x0a81…0a95 lno = 0x1030 // 0xa83 @0x2
0x0a81…0a95 at0004 = ╱a1╱ CURSOR ╱ // 0xa85 @0x4
0x0a81…0a95 at0005 = ╱31╱1╱ // 0xa86 @0x5
0x0a81…0a95 at0006 = ╱31╱1╱ // 0xa87 @0x6
0x0a81…0a95 at0007 = ╱fe0000b004╱ // 0xa88 @0x7
0x0a81…0a95 at000c = ╱ec╱ , ╱ // 0xa8d @0xc
0x0a81…0a95 at000d = ╱36╱6╱ // 0xa8e @0xd
0x0a81…0a95 at000e = ╱fe0000c003╱ // 0xa8f @0xe
0x0a81…0a95 at0013 = EOL // 0xa94 @0x13
0x0a81…0a95 }
0x0a95…0aac 91f9 1040 PRINT "2:…Fakturering."
0x0a95…0aac LineComalBcd {
0x0a95…0aac ptr = 0x91f9 // 0xa95 @0x0
0x0a95…0aac lno = 0x1040 // 0xa97 @0x2
0x0a95…0aac at0004 = ╱92╱ PRINT ╱ // 0xa99 @0x4
0x0a95…0aac at0005 = ╱22╱"╱ // 0xa9a @0x5
0x0a95…0aac at0006 = ╱32╱2╱ // 0xa9b @0x6
0x0a95…0aac at0007 = ╱3a╱:╱ // 0xa9c @0x7
0x0a95…0aac at0008 = ╱20╱…╱ // 0xa9d @0x8
0x0a95…0aac at0009 = ╱46╱F╱ // 0xa9e @0x9
0x0a95…0aac at000a = ╱61╱a╱ // 0xa9f @0xa
0x0a95…0aac at000b = ╱6b╱k╱ // 0xaa0 @0xb
0x0a95…0aac at000c = ╱74╱t╱ // 0xaa1 @0xc
0x0a95…0aac at000d = ╱75╱u╱ // 0xaa2 @0xd
0x0a95…0aac at000e = ╱72╱r╱ // 0xaa3 @0xe
0x0a95…0aac at000f = ╱65╱e╱ // 0xaa4 @0xf
0x0a95…0aac at0010 = ╱72╱r╱ // 0xaa5 @0x10
0x0a95…0aac at0011 = ╱69╱i╱ // 0xaa6 @0x11
0x0a95…0aac at0012 = ╱6e╱n╱ // 0xaa7 @0x12
0x0a95…0aac at0013 = ╱67╱g╱ // 0xaa8 @0x13
0x0a95…0aac at0014 = ╱2e╱.╱ // 0xaa9 @0x14
0x0a95…0aac at0015 = ╱22╱"╱ // 0xaaa @0x15
0x0a95…0aac at0016 = EOL // 0xaab @0x16
0x0a95…0aac }
0x0aac…0ac0 920d 1050 CURSOR 11 , 8
0x0aac…0ac0 LineComalBcd {
0x0aac…0ac0 ptr = 0x920d // 0xaac @0x0
0x0aac…0ac0 lno = 0x1050 // 0xaae @0x2
0x0aac…0ac0 at0004 = ╱a1╱ CURSOR ╱ // 0xab0 @0x4
0x0aac…0ac0 at0005 = ╱31╱1╱ // 0xab1 @0x5
0x0aac…0ac0 at0006 = ╱31╱1╱ // 0xab2 @0x6
0x0aac…0ac0 at0007 = ╱fe0000b004╱ // 0xab3 @0x7
0x0aac…0ac0 at000c = ╱ec╱ , ╱ // 0xab8 @0xc
0x0aac…0ac0 at000d = ╱38╱8╱ // 0xab9 @0xd
0x0aac…0ac0 at000e = ╱fe00008004╱ // 0xaba @0xe
0x0aac…0ac0 at0013 = EOL // 0xabf @0x13
0x0aac…0ac0 }
0x0ac0…0ad5 9222 1060 PRINT "3:…Bogf|ring."
0x0ac0…0ad5 LineComalBcd {
0x0ac0…0ad5 ptr = 0x9222 // 0xac0 @0x0
0x0ac0…0ad5 lno = 0x1060 // 0xac2 @0x2
0x0ac0…0ad5 at0004 = ╱92╱ PRINT ╱ // 0xac4 @0x4
0x0ac0…0ad5 at0005 = ╱22╱"╱ // 0xac5 @0x5
0x0ac0…0ad5 at0006 = ╱33╱3╱ // 0xac6 @0x6
0x0ac0…0ad5 at0007 = ╱3a╱:╱ // 0xac7 @0x7
0x0ac0…0ad5 at0008 = ╱20╱…╱ // 0xac8 @0x8
0x0ac0…0ad5 at0009 = ╱42╱B╱ // 0xac9 @0x9
0x0ac0…0ad5 at000a = ╱6f╱o╱ // 0xaca @0xa
0x0ac0…0ad5 at000b = ╱67╱g╱ // 0xacb @0xb
0x0ac0…0ad5 at000c = ╱66╱f╱ // 0xacc @0xc
0x0ac0…0ad5 at000d = ╱7c╱|╱ // 0xacd @0xd
0x0ac0…0ad5 at000e = ╱72╱r╱ // 0xace @0xe
0x0ac0…0ad5 at000f = ╱69╱i╱ // 0xacf @0xf
0x0ac0…0ad5 at0010 = ╱6e╱n╱ // 0xad0 @0x10
0x0ac0…0ad5 at0011 = ╱67╱g╱ // 0xad1 @0x11
0x0ac0…0ad5 at0012 = ╱2e╱.╱ // 0xad2 @0x12
0x0ac0…0ad5 at0013 = ╱22╱"╱ // 0xad3 @0x13
0x0ac0…0ad5 at0014 = EOL // 0xad4 @0x14
0x0ac0…0ad5 }
0x0ad5…0aea 9237 1070 CURSOR 11 , 10
0x0ad5…0aea LineComalBcd {
0x0ad5…0aea ptr = 0x9237 // 0xad5 @0x0
0x0ad5…0aea lno = 0x1070 // 0xad7 @0x2
0x0ad5…0aea at0004 = ╱a1╱ CURSOR ╱ // 0xad9 @0x4
0x0ad5…0aea at0005 = ╱31╱1╱ // 0xada @0x5
0x0ad5…0aea at0006 = ╱31╱1╱ // 0xadb @0x6
0x0ad5…0aea at0007 = ╱fe0000b004╱ // 0xadc @0x7
0x0ad5…0aea at000c = ╱ec╱ , ╱ // 0xae1 @0xc
0x0ad5…0aea at000d = ╱31╱1╱ // 0xae2 @0xd
0x0ad5…0aea at000e = ╱30╱0╱ // 0xae3 @0xe
0x0ad5…0aea at000f = ╱fe0000a004╱ // 0xae4 @0xf
0x0ad5…0aea at0014 = EOL // 0xae9 @0x14
0x0ad5…0aea }
0x0aea…0b10 925d 1080 PRINT "4:…Sp|rge-…og…listeprogrammer."
0x0aea…0b10 LineComalBcd {
0x0aea…0b10 ptr = 0x925d // 0xaea @0x0
0x0aea…0b10 lno = 0x1080 // 0xaec @0x2
0x0aea…0b10 at0004 = ╱92╱ PRINT ╱ // 0xaee @0x4
0x0aea…0b10 at0005 = ╱22╱"╱ // 0xaef @0x5
0x0aea…0b10 at0006 = ╱34╱4╱ // 0xaf0 @0x6
0x0aea…0b10 at0007 = ╱3a╱:╱ // 0xaf1 @0x7
0x0aea…0b10 at0008 = ╱20╱…╱ // 0xaf2 @0x8
0x0aea…0b10 at0009 = ╱53╱S╱ // 0xaf3 @0x9
0x0aea…0b10 at000a = ╱70╱p╱ // 0xaf4 @0xa
0x0aea…0b10 at000b = ╱7c╱|╱ // 0xaf5 @0xb
0x0aea…0b10 at000c = ╱72╱r╱ // 0xaf6 @0xc
0x0aea…0b10 at000d = ╱67╱g╱ // 0xaf7 @0xd
0x0aea…0b10 at000e = ╱65╱e╱ // 0xaf8 @0xe
0x0aea…0b10 at000f = ╱2d╱-╱ // 0xaf9 @0xf
0x0aea…0b10 at0010 = ╱20╱…╱ // 0xafa @0x10
0x0aea…0b10 at0011 = ╱6f╱o╱ // 0xafb @0x11
0x0aea…0b10 at0012 = ╱67╱g╱ // 0xafc @0x12
0x0aea…0b10 at0013 = ╱20╱…╱ // 0xafd @0x13
0x0aea…0b10 at0014 = ╱6c╱l╱ // 0xafe @0x14
0x0aea…0b10 at0015 = ╱69╱i╱ // 0xaff @0x15
0x0aea…0b10 at0016 = ╱73╱s╱ // 0xb00 @0x16
0x0aea…0b10 at0017 = ╱74╱t╱ // 0xb01 @0x17
0x0aea…0b10 at0018 = ╱65╱e╱ // 0xb02 @0x18
0x0aea…0b10 at0019 = ╱70╱p╱ // 0xb03 @0x19
0x0aea…0b10 at001a = ╱72╱r╱ // 0xb04 @0x1a
0x0aea…0b10 at001b = ╱6f╱o╱ // 0xb05 @0x1b
0x0aea…0b10 at001c = ╱67╱g╱ // 0xb06 @0x1c
0x0aea…0b10 at001d = ╱72╱r╱ // 0xb07 @0x1d
0x0aea…0b10 at001e = ╱61╱a╱ // 0xb08 @0x1e
0x0aea…0b10 at001f = ╱6d╱m╱ // 0xb09 @0x1f
0x0aea…0b10 at0020 = ╱6d╱m╱ // 0xb0a @0x20
0x0aea…0b10 at0021 = ╱65╱e╱ // 0xb0b @0x21
0x0aea…0b10 at0022 = ╱72╱r╱ // 0xb0c @0x22
0x0aea…0b10 at0023 = ╱2e╱.╱ // 0xb0d @0x23
0x0aea…0b10 at0024 = ╱22╱"╱ // 0xb0e @0x24
0x0aea…0b10 at0025 = EOL // 0xb0f @0x25
0x0aea…0b10 }
0x0b10…0b25 9272 1090 CURSOR 11 , 12
0x0b10…0b25 LineComalBcd {
0x0b10…0b25 ptr = 0x9272 // 0xb10 @0x0
0x0b10…0b25 lno = 0x1090 // 0xb12 @0x2
0x0b10…0b25 at0004 = ╱a1╱ CURSOR ╱ // 0xb14 @0x4
0x0b10…0b25 at0005 = ╱31╱1╱ // 0xb15 @0x5
0x0b10…0b25 at0006 = ╱31╱1╱ // 0xb16 @0x6
0x0b10…0b25 at0007 = ╱fe0000b004╱ // 0xb17 @0x7
0x0b10…0b25 at000c = ╱ec╱ , ╱ // 0xb1c @0xc
0x0b10…0b25 at000d = ╱31╱1╱ // 0xb1d @0xd
0x0b10…0b25 at000e = ╱32╱2╱ // 0xb1e @0xe
0x0b10…0b25 at000f = ╱fe0000c004╱ // 0xb1f @0xf
0x0b10…0b25 at0014 = EOL // 0xb24 @0x14
0x0b10…0b25 }
0x0b25…0b44 9291 1100 PRINT "5:…Sikkerhedskopiering."
0x0b25…0b44 LineComalBcd {
0x0b25…0b44 ptr = 0x9291 // 0xb25 @0x0
0x0b25…0b44 lno = 0x1100 // 0xb27 @0x2
0x0b25…0b44 at0004 = ╱92╱ PRINT ╱ // 0xb29 @0x4
0x0b25…0b44 at0005 = ╱22╱"╱ // 0xb2a @0x5
0x0b25…0b44 at0006 = ╱35╱5╱ // 0xb2b @0x6
0x0b25…0b44 at0007 = ╱3a╱:╱ // 0xb2c @0x7
0x0b25…0b44 at0008 = ╱20╱…╱ // 0xb2d @0x8
0x0b25…0b44 at0009 = ╱53╱S╱ // 0xb2e @0x9
0x0b25…0b44 at000a = ╱69╱i╱ // 0xb2f @0xa
0x0b25…0b44 at000b = ╱6b╱k╱ // 0xb30 @0xb
0x0b25…0b44 at000c = ╱6b╱k╱ // 0xb31 @0xc
0x0b25…0b44 at000d = ╱65╱e╱ // 0xb32 @0xd
0x0b25…0b44 at000e = ╱72╱r╱ // 0xb33 @0xe
0x0b25…0b44 at000f = ╱68╱h╱ // 0xb34 @0xf
0x0b25…0b44 at0010 = ╱65╱e╱ // 0xb35 @0x10
0x0b25…0b44 at0011 = ╱64╱d╱ // 0xb36 @0x11
0x0b25…0b44 at0012 = ╱73╱s╱ // 0xb37 @0x12
0x0b25…0b44 at0013 = ╱6b╱k╱ // 0xb38 @0x13
0x0b25…0b44 at0014 = ╱6f╱o╱ // 0xb39 @0x14
0x0b25…0b44 at0015 = ╱70╱p╱ // 0xb3a @0x15
0x0b25…0b44 at0016 = ╱69╱i╱ // 0xb3b @0x16
0x0b25…0b44 at0017 = ╱65╱e╱ // 0xb3c @0x17
0x0b25…0b44 at0018 = ╱72╱r╱ // 0xb3d @0x18
0x0b25…0b44 at0019 = ╱69╱i╱ // 0xb3e @0x19
0x0b25…0b44 at001a = ╱6e╱n╱ // 0xb3f @0x1a
0x0b25…0b44 at001b = ╱67╱g╱ // 0xb40 @0x1b
0x0b25…0b44 at001c = ╱2e╱.╱ // 0xb41 @0x1c
0x0b25…0b44 at001d = ╱22╱"╱ // 0xb42 @0x1d
0x0b25…0b44 at001e = EOL // 0xb43 @0x1e
0x0b25…0b44 }
0x0b44…0b59 92a6 1110 CURSOR 11 , 14
0x0b44…0b59 LineComalBcd {
0x0b44…0b59 ptr = 0x92a6 // 0xb44 @0x0
0x0b44…0b59 lno = 0x1110 // 0xb46 @0x2
0x0b44…0b59 at0004 = ╱a1╱ CURSOR ╱ // 0xb48 @0x4
0x0b44…0b59 at0005 = ╱31╱1╱ // 0xb49 @0x5
0x0b44…0b59 at0006 = ╱31╱1╱ // 0xb4a @0x6
0x0b44…0b59 at0007 = ╱fe0000b004╱ // 0xb4b @0x7
0x0b44…0b59 at000c = ╱ec╱ , ╱ // 0xb50 @0xc
0x0b44…0b59 at000d = ╱31╱1╱ // 0xb51 @0xd
0x0b44…0b59 at000e = ╱34╱4╱ // 0xb52 @0xe
0x0b44…0b59 at000f = ╱fe0000e004╱ // 0xb53 @0xf
0x0b44…0b59 at0014 = EOL // 0xb58 @0x14
0x0b44…0b59 }
0x0b59…0b73 92c0 1120 PRINT "6:…Dagsafslutning."
0x0b59…0b73 LineComalBcd {
0x0b59…0b73 ptr = 0x92c0 // 0xb59 @0x0
0x0b59…0b73 lno = 0x1120 // 0xb5b @0x2
0x0b59…0b73 at0004 = ╱92╱ PRINT ╱ // 0xb5d @0x4
0x0b59…0b73 at0005 = ╱22╱"╱ // 0xb5e @0x5
0x0b59…0b73 at0006 = ╱36╱6╱ // 0xb5f @0x6
0x0b59…0b73 at0007 = ╱3a╱:╱ // 0xb60 @0x7
0x0b59…0b73 at0008 = ╱20╱…╱ // 0xb61 @0x8
0x0b59…0b73 at0009 = ╱44╱D╱ // 0xb62 @0x9
0x0b59…0b73 at000a = ╱61╱a╱ // 0xb63 @0xa
0x0b59…0b73 at000b = ╱67╱g╱ // 0xb64 @0xb
0x0b59…0b73 at000c = ╱73╱s╱ // 0xb65 @0xc
0x0b59…0b73 at000d = ╱61╱a╱ // 0xb66 @0xd
0x0b59…0b73 at000e = ╱66╱f╱ // 0xb67 @0xe
0x0b59…0b73 at000f = ╱73╱s╱ // 0xb68 @0xf
0x0b59…0b73 at0010 = ╱6c╱l╱ // 0xb69 @0x10
0x0b59…0b73 at0011 = ╱75╱u╱ // 0xb6a @0x11
0x0b59…0b73 at0012 = ╱74╱t╱ // 0xb6b @0x12
0x0b59…0b73 at0013 = ╱6e╱n╱ // 0xb6c @0x13
0x0b59…0b73 at0014 = ╱69╱i╱ // 0xb6d @0x14
0x0b59…0b73 at0015 = ╱6e╱n╱ // 0xb6e @0x15
0x0b59…0b73 at0016 = ╱67╱g╱ // 0xb6f @0x16
0x0b59…0b73 at0017 = ╱2e╱.╱ // 0xb70 @0x17
0x0b59…0b73 at0018 = ╱22╱"╱ // 0xb71 @0x18
0x0b59…0b73 at0019 = EOL // 0xb72 @0x19
0x0b59…0b73 }
0x0b73…0b88 92d5 1130 CURSOR 11 , 16
0x0b73…0b88 LineComalBcd {
0x0b73…0b88 ptr = 0x92d5 // 0xb73 @0x0
0x0b73…0b88 lno = 0x1130 // 0xb75 @0x2
0x0b73…0b88 at0004 = ╱a1╱ CURSOR ╱ // 0xb77 @0x4
0x0b73…0b88 at0005 = ╱31╱1╱ // 0xb78 @0x5
0x0b73…0b88 at0006 = ╱31╱1╱ // 0xb79 @0x6
0x0b73…0b88 at0007 = ╱fe0000b004╱ // 0xb7a @0x7
0x0b73…0b88 at000c = ╱ec╱ , ╱ // 0xb7f @0xc
0x0b73…0b88 at000d = ╱31╱1╱ // 0xb80 @0xd
0x0b73…0b88 at000e = ╱36╱6╱ // 0xb81 @0xe
0x0b73…0b88 at000f = ╱fe00008005╱ // 0xb82 @0xf
0x0b73…0b88 at0014 = EOL // 0xb87 @0x14
0x0b73…0b88 }
0x0b88…0ba4 92f1 1140 PRINT "7:…M}nedsafslutning."
0x0b88…0ba4 LineComalBcd {
0x0b88…0ba4 ptr = 0x92f1 // 0xb88 @0x0
0x0b88…0ba4 lno = 0x1140 // 0xb8a @0x2
0x0b88…0ba4 at0004 = ╱92╱ PRINT ╱ // 0xb8c @0x4
0x0b88…0ba4 at0005 = ╱22╱"╱ // 0xb8d @0x5
0x0b88…0ba4 at0006 = ╱37╱7╱ // 0xb8e @0x6
0x0b88…0ba4 at0007 = ╱3a╱:╱ // 0xb8f @0x7
0x0b88…0ba4 at0008 = ╱20╱…╱ // 0xb90 @0x8
0x0b88…0ba4 at0009 = ╱4d╱M╱ // 0xb91 @0x9
0x0b88…0ba4 at000a = ╱7d╱}╱ // 0xb92 @0xa
0x0b88…0ba4 at000b = ╱6e╱n╱ // 0xb93 @0xb
0x0b88…0ba4 at000c = ╱65╱e╱ // 0xb94 @0xc
0x0b88…0ba4 at000d = ╱64╱d╱ // 0xb95 @0xd
0x0b88…0ba4 at000e = ╱73╱s╱ // 0xb96 @0xe
0x0b88…0ba4 at000f = ╱61╱a╱ // 0xb97 @0xf
0x0b88…0ba4 at0010 = ╱66╱f╱ // 0xb98 @0x10
0x0b88…0ba4 at0011 = ╱73╱s╱ // 0xb99 @0x11
0x0b88…0ba4 at0012 = ╱6c╱l╱ // 0xb9a @0x12
0x0b88…0ba4 at0013 = ╱75╱u╱ // 0xb9b @0x13
0x0b88…0ba4 at0014 = ╱74╱t╱ // 0xb9c @0x14
0x0b88…0ba4 at0015 = ╱6e╱n╱ // 0xb9d @0x15
0x0b88…0ba4 at0016 = ╱69╱i╱ // 0xb9e @0x16
0x0b88…0ba4 at0017 = ╱6e╱n╱ // 0xb9f @0x17
0x0b88…0ba4 at0018 = ╱67╱g╱ // 0xba0 @0x18
0x0b88…0ba4 at0019 = ╱2e╱.╱ // 0xba1 @0x19
0x0b88…0ba4 at001a = ╱22╱"╱ // 0xba2 @0x1a
0x0b88…0ba4 at001b = EOL // 0xba3 @0x1b
0x0b88…0ba4 }
0x0ba4…0bb9 9306 1150 CURSOR 11 , 18
0x0ba4…0bb9 LineComalBcd {
0x0ba4…0bb9 ptr = 0x9306 // 0xba4 @0x0
0x0ba4…0bb9 lno = 0x1150 // 0xba6 @0x2
0x0ba4…0bb9 at0004 = ╱a1╱ CURSOR ╱ // 0xba8 @0x4
0x0ba4…0bb9 at0005 = ╱31╱1╱ // 0xba9 @0x5
0x0ba4…0bb9 at0006 = ╱31╱1╱ // 0xbaa @0x6
0x0ba4…0bb9 at0007 = ╱fe0000b004╱ // 0xbab @0x7
0x0ba4…0bb9 at000c = ╱ec╱ , ╱ // 0xbb0 @0xc
0x0ba4…0bb9 at000d = ╱31╱1╱ // 0xbb1 @0xd
0x0ba4…0bb9 at000e = ╱38╱8╱ // 0xbb2 @0xe
0x0ba4…0bb9 at000f = ╱fe00009005╱ // 0xbb3 @0xf
0x0ba4…0bb9 at0014 = EOL // 0xbb8 @0x14
0x0ba4…0bb9 }
0x0bb9…0bd2 931f 1160 PRINT "8:…]rsafslutning."
0x0bb9…0bd2 LineComalBcd {
0x0bb9…0bd2 ptr = 0x931f // 0xbb9 @0x0
0x0bb9…0bd2 lno = 0x1160 // 0xbbb @0x2
0x0bb9…0bd2 at0004 = ╱92╱ PRINT ╱ // 0xbbd @0x4
0x0bb9…0bd2 at0005 = ╱22╱"╱ // 0xbbe @0x5
0x0bb9…0bd2 at0006 = ╱38╱8╱ // 0xbbf @0x6
0x0bb9…0bd2 at0007 = ╱3a╱:╱ // 0xbc0 @0x7
0x0bb9…0bd2 at0008 = ╱20╱…╱ // 0xbc1 @0x8
0x0bb9…0bd2 at0009 = ╱5d╱]╱ // 0xbc2 @0x9
0x0bb9…0bd2 at000a = ╱72╱r╱ // 0xbc3 @0xa
0x0bb9…0bd2 at000b = ╱73╱s╱ // 0xbc4 @0xb
0x0bb9…0bd2 at000c = ╱61╱a╱ // 0xbc5 @0xc
0x0bb9…0bd2 at000d = ╱66╱f╱ // 0xbc6 @0xd
0x0bb9…0bd2 at000e = ╱73╱s╱ // 0xbc7 @0xe
0x0bb9…0bd2 at000f = ╱6c╱l╱ // 0xbc8 @0xf
0x0bb9…0bd2 at0010 = ╱75╱u╱ // 0xbc9 @0x10
0x0bb9…0bd2 at0011 = ╱74╱t╱ // 0xbca @0x11
0x0bb9…0bd2 at0012 = ╱6e╱n╱ // 0xbcb @0x12
0x0bb9…0bd2 at0013 = ╱69╱i╱ // 0xbcc @0x13
0x0bb9…0bd2 at0014 = ╱6e╱n╱ // 0xbcd @0x14
0x0bb9…0bd2 at0015 = ╱67╱g╱ // 0xbce @0x15
0x0bb9…0bd2 at0016 = ╱2e╱.╱ // 0xbcf @0x16
0x0bb9…0bd2 at0017 = ╱22╱"╱ // 0xbd0 @0x17
0x0bb9…0bd2 at0018 = EOL // 0xbd1 @0x18
0x0bb9…0bd2 }
0x0bd2…0bd8 9325 1170 REPEAT
0x0bd2…0bd8 LineComalBcd {
0x0bd2…0bd8 ptr = 0x9325 // 0xbd2 @0x0
0x0bd2…0bd8 lno = 0x1170 // 0xbd4 @0x2
0x0bd2…0bd8 at0004 = ╱97╱ REPEAT ╱ // 0xbd6 @0x4
0x0bd2…0bd8 at0005 = EOL // 0xbd7 @0x5
0x0bd2…0bd8 }
0x0bd8…0bed 933a 1180 CURSOR 11 , 21
0x0bd8…0bed LineComalBcd {
0x0bd8…0bed ptr = 0x933a // 0xbd8 @0x0
0x0bd8…0bed lno = 0x1180 // 0xbda @0x2
0x0bd8…0bed at0004 = ╱a1╱ CURSOR ╱ // 0xbdc @0x4
0x0bd8…0bed at0005 = ╱31╱1╱ // 0xbdd @0x5
0x0bd8…0bed at0006 = ╱31╱1╱ // 0xbde @0x6
0x0bd8…0bed at0007 = ╱fe0000b004╱ // 0xbdf @0x7
0x0bd8…0bed at000c = ╱ec╱ , ╱ // 0xbe4 @0xc
0x0bd8…0bed at000d = ╱32╱2╱ // 0xbe5 @0xd
0x0bd8…0bed at000e = ╱31╱1╱ // 0xbe6 @0xe
0x0bd8…0bed at000f = ╱fe0000a805╱ // 0xbe7 @0xf
0x0bd8…0bed at0014 = EOL // 0xbec @0x14
0x0bd8…0bed }
0x0bed…0c05 9352 1190 INPUT "V{lg…1-8:" , SVAR1 $
0x0bed…0c05 LineComalBcd {
0x0bed…0c05 ptr = 0x9352 // 0xbed @0x0
0x0bed…0c05 lno = 0x1190 // 0xbef @0x2
0x0bed…0c05 at0004 = ╱91╱ INPUT ╱ // 0xbf1 @0x4
0x0bed…0c05 at0005 = ╱22╱"╱ // 0xbf2 @0x5
0x0bed…0c05 at0006 = ╱56╱V╱ // 0xbf3 @0x6
0x0bed…0c05 at0007 = ╱7b╱{╱ // 0xbf4 @0x7
0x0bed…0c05 at0008 = ╱6c╱l╱ // 0xbf5 @0x8
0x0bed…0c05 at0009 = ╱67╱g╱ // 0xbf6 @0x9
0x0bed…0c05 at000a = ╱20╱…╱ // 0xbf7 @0xa
0x0bed…0c05 at000b = ╱31╱1╱ // 0xbf8 @0xb
0x0bed…0c05 at000c = ╱2d╱-╱ // 0xbf9 @0xc
0x0bed…0c05 at000d = ╱38╱8╱ // 0xbfa @0xd
0x0bed…0c05 at000e = ╱3a╱:╱ // 0xbfb @0xe
0x0bed…0c05 at000f = ╱22╱"╱ // 0xbfc @0xf
0x0bed…0c05 at0010 = ╱ec╱ , ╱ // 0xbfd @0x10
0x0bed…0c05 at0011 = ╱53╱S╱ // 0xbfe @0x11
0x0bed…0c05 at0012 = ╱56╱V╱ // 0xbff @0x12
0x0bed…0c05 at0013 = ╱41╱A╱ // 0xc00 @0x13
0x0bed…0c05 at0014 = ╱52╱R╱ // 0xc01 @0x14
0x0bed…0c05 at0015 = ╱31╱1╱ // 0xc02 @0x15
0x0bed…0c05 at0016 = ╱ef╱ $ ╱ // 0xc03 @0x16
0x0bed…0c05 at0017 = EOL // 0xc04 @0x17
0x0bed…0c05 }
0x0c05…0c20 936d 1200 UNTIL SVAR1 $ >= "1" AND SVAR1 $ =< "8"
0x0c05…0c20 LineComalBcd {
0x0c05…0c20 ptr = 0x936d // 0xc05 @0x0
0x0c05…0c20 lno = 0x1200 // 0xc07 @0x2
0x0c05…0c20 at0004 = ╱98╱ UNTIL ╱ // 0xc09 @0x4
0x0c05…0c20 at0005 = ╱53╱S╱ // 0xc0a @0x5
0x0c05…0c20 at0006 = ╱56╱V╱ // 0xc0b @0x6
0x0c05…0c20 at0007 = ╱41╱A╱ // 0xc0c @0x7
0x0c05…0c20 at0008 = ╱52╱R╱ // 0xc0d @0x8
0x0c05…0c20 at0009 = ╱31╱1╱ // 0xc0e @0x9
0x0c05…0c20 at000a = ╱ef╱ $ ╱ // 0xc0f @0xa
0x0c05…0c20 at000b = ╱e0╱ >= ╱ // 0xc10 @0xb
0x0c05…0c20 at000c = ╱22╱"╱ // 0xc11 @0xc
0x0c05…0c20 at000d = ╱31╱1╱ // 0xc12 @0xd
0x0c05…0c20 at000e = ╱22╱"╱ // 0xc13 @0xe
0x0c05…0c20 at000f = ╱da╱ AND ╱ // 0xc14 @0xf
0x0c05…0c20 at0010 = ╱53╱S╱ // 0xc15 @0x10
0x0c05…0c20 at0011 = ╱56╱V╱ // 0xc16 @0x11
0x0c05…0c20 at0012 = ╱41╱A╱ // 0xc17 @0x12
0x0c05…0c20 at0013 = ╱52╱R╱ // 0xc18 @0x13
0x0c05…0c20 at0014 = ╱31╱1╱ // 0xc19 @0x14
0x0c05…0c20 at0015 = ╱ef╱ $ ╱ // 0xc1a @0x15
0x0c05…0c20 at0016 = ╱df╱ =< ╱ // 0xc1b @0x16
0x0c05…0c20 at0017 = ╱22╱"╱ // 0xc1c @0x17
0x0c05…0c20 at0018 = ╱38╱8╱ // 0xc1d @0x18
0x0c05…0c20 at0019 = ╱22╱"╱ // 0xc1e @0x19
0x0c05…0c20 at001a = EOL // 0xc1f @0x1a
0x0c05…0c20 }
0x0c20…0c26 9373 1210 CLEAR
0x0c20…0c26 LineComalBcd {
0x0c20…0c26 ptr = 0x9373 // 0xc20 @0x0
0x0c20…0c26 lno = 0x1210 // 0xc22 @0x2
0x0c20…0c26 at0004 = ╱a0╱ CLEAR ╱ // 0xc24 @0x4
0x0c20…0c26 at0005 = EOL // 0xc25 @0x5
0x0c20…0c26 }
0x0c26…0c3a 9387 1220 CURSOR 21 , 1
0x0c26…0c3a LineComalBcd {
0x0c26…0c3a ptr = 0x9387 // 0xc26 @0x0
0x0c26…0c3a lno = 0x1220 // 0xc28 @0x2
0x0c26…0c3a at0004 = ╱a1╱ CURSOR ╱ // 0xc2a @0x4
0x0c26…0c3a at0005 = ╱32╱2╱ // 0xc2b @0x5
0x0c26…0c3a at0006 = ╱31╱1╱ // 0xc2c @0x6
0x0c26…0c3a at0007 = ╱fe0000a805╱ // 0xc2d @0x7
0x0c26…0c3a at000c = ╱ec╱ , ╱ // 0xc32 @0xc
0x0c26…0c3a at000d = ╱31╱1╱ // 0xc33 @0xd
0x0c26…0c3a at000e = ╱fe00008001╱ // 0xc34 @0xe
0x0c26…0c3a at0013 = EOL // 0xc39 @0x13
0x0c26…0c3a }
0x0c3a…0c66 93b3 1230 FEJL1 = 0 ; D = 0 ; E = 0 ; F = 0
0x0c3a…0c66 LineComalBcd {
0x0c3a…0c66 ptr = 0x93b3 // 0xc3a @0x0
0x0c3a…0c66 lno = 0x1230 // 0xc3c @0x2
0x0c3a…0c66 at0004 = ╱46╱F╱ // 0xc3e @0x4
0x0c3a…0c66 at0005 = ╱45╱E╱ // 0xc3f @0x5
0x0c3a…0c66 at0006 = ╱4a╱J╱ // 0xc40 @0x6
0x0c3a…0c66 at0007 = ╱4c╱L╱ // 0xc41 @0x7
0x0c3a…0c66 at0008 = ╱31╱1╱ // 0xc42 @0x8
0x0c3a…0c66 at0009 = ╱dc╱ = ╱ // 0xc43 @0x9
0x0c3a…0c66 at000a = ╱30╱0╱ // 0xc44 @0xa
0x0c3a…0c66 at000b = ╱fe00000000╱ // 0xc45 @0xb
0x0c3a…0c66 at0010 = ╱eb╱ ; ╱ // 0xc4a @0x10
0x0c3a…0c66 at0011 = ╱44╱D╱ // 0xc4b @0x11
0x0c3a…0c66 at0012 = ╱dc╱ = ╱ // 0xc4c @0x12
0x0c3a…0c66 at0013 = ╱30╱0╱ // 0xc4d @0x13
0x0c3a…0c66 at0014 = ╱fe00000000╱ // 0xc4e @0x14
0x0c3a…0c66 at0019 = ╱eb╱ ; ╱ // 0xc53 @0x19
0x0c3a…0c66 at001a = ╱45╱E╱ // 0xc54 @0x1a
0x0c3a…0c66 at001b = ╱dc╱ = ╱ // 0xc55 @0x1b
0x0c3a…0c66 at001c = ╱30╱0╱ // 0xc56 @0x1c
0x0c3a…0c66 at001d = ╱fe00000000╱ // 0xc57 @0x1d
0x0c3a…0c66 at0022 = ╱eb╱ ; ╱ // 0xc5c @0x22
0x0c3a…0c66 at0023 = ╱46╱F╱ // 0xc5d @0x23
0x0c3a…0c66 at0024 = ╱dc╱ = ╱ // 0xc5e @0x24
0x0c3a…0c66 at0025 = ╱30╱0╱ // 0xc5f @0x25
0x0c3a…0c66 at0026 = ╱fe00000000╱ // 0xc60 @0x26
0x0c3a…0c66 at002b = EOL // 0xc65 @0x2b
0x0c3a…0c66 }
0x0c66…0c74 93c1 1240 CASE SVAR1 $ OF
0x0c66…0c74 LineComalBcd {
0x0c66…0c74 ptr = 0x93c1 // 0xc66 @0x0
0x0c66…0c74 lno = 0x1240 // 0xc68 @0x2
0x0c66…0c74 at0004 = ╱a200╱ CASE ╱ // 0xc6a @0x4
0x0c66…0c74 at0006 = ╱53╱S╱ // 0xc6c @0x6
0x0c66…0c74 at0007 = ╱56╱V╱ // 0xc6d @0x7
0x0c66…0c74 at0008 = ╱41╱A╱ // 0xc6e @0x8
0x0c66…0c74 at0009 = ╱52╱R╱ // 0xc6f @0x9
0x0c66…0c74 at000a = ╱31╱1╱ // 0xc70 @0xa
0x0c66…0c74 at000b = ╱ef╱ $ ╱ // 0xc71 @0xb
0x0c66…0c74 at000c = ╱ba╱ OF ╱ // 0xc72 @0xc
0x0c66…0c74 at000d = EOL // 0xc73 @0xd
0x0c66…0c74 }
0x0c74…0c7e 93cb 1250 WHEN "1"
0x0c74…0c7e LineComalBcd {
0x0c74…0c7e ptr = 0x93cb // 0xc74 @0x0
0x0c74…0c7e lno = 0x1250 // 0xc76 @0x2
0x0c74…0c7e at0004 = ╱a300╱ WHEN ╱ // 0xc78 @0x4
0x0c74…0c7e at0006 = ╱22╱"╱ // 0xc7a @0x6
0x0c74…0c7e at0007 = ╱31╱1╱ // 0xc7b @0x7
0x0c74…0c7e at0008 = ╱22╱"╱ // 0xc7c @0x8
0x0c74…0c7e at0009 = EOL // 0xc7d @0x9
0x0c74…0c7e }
0x0c7e…0cac 93f9 1260 PRINT "Programvalg:…Kartoteksvedligeholdelse."
0x0c7e…0cac LineComalBcd {
0x0c7e…0cac ptr = 0x93f9 // 0xc7e @0x0
0x0c7e…0cac lno = 0x1260 // 0xc80 @0x2
0x0c7e…0cac at0004 = ╱92╱ PRINT ╱ // 0xc82 @0x4
0x0c7e…0cac at0005 = ╱22╱"╱ // 0xc83 @0x5
0x0c7e…0cac at0006 = ╱50╱P╱ // 0xc84 @0x6
0x0c7e…0cac at0007 = ╱72╱r╱ // 0xc85 @0x7
0x0c7e…0cac at0008 = ╱6f╱o╱ // 0xc86 @0x8
0x0c7e…0cac at0009 = ╱67╱g╱ // 0xc87 @0x9
0x0c7e…0cac at000a = ╱72╱r╱ // 0xc88 @0xa
0x0c7e…0cac at000b = ╱61╱a╱ // 0xc89 @0xb
0x0c7e…0cac at000c = ╱6d╱m╱ // 0xc8a @0xc
0x0c7e…0cac at000d = ╱76╱v╱ // 0xc8b @0xd
0x0c7e…0cac at000e = ╱61╱a╱ // 0xc8c @0xe
0x0c7e…0cac at000f = ╱6c╱l╱ // 0xc8d @0xf
0x0c7e…0cac at0010 = ╱67╱g╱ // 0xc8e @0x10
0x0c7e…0cac at0011 = ╱3a╱:╱ // 0xc8f @0x11
0x0c7e…0cac at0012 = ╱20╱…╱ // 0xc90 @0x12
0x0c7e…0cac at0013 = ╱4b╱K╱ // 0xc91 @0x13
0x0c7e…0cac at0014 = ╱61╱a╱ // 0xc92 @0x14
0x0c7e…0cac at0015 = ╱72╱r╱ // 0xc93 @0x15
0x0c7e…0cac at0016 = ╱74╱t╱ // 0xc94 @0x16
0x0c7e…0cac at0017 = ╱6f╱o╱ // 0xc95 @0x17
0x0c7e…0cac at0018 = ╱74╱t╱ // 0xc96 @0x18
0x0c7e…0cac at0019 = ╱65╱e╱ // 0xc97 @0x19
0x0c7e…0cac at001a = ╱6b╱k╱ // 0xc98 @0x1a
0x0c7e…0cac at001b = ╱73╱s╱ // 0xc99 @0x1b
0x0c7e…0cac at001c = ╱76╱v╱ // 0xc9a @0x1c
0x0c7e…0cac at001d = ╱65╱e╱ // 0xc9b @0x1d
0x0c7e…0cac at001e = ╱64╱d╱ // 0xc9c @0x1e
0x0c7e…0cac at001f = ╱6c╱l╱ // 0xc9d @0x1f
0x0c7e…0cac at0020 = ╱69╱i╱ // 0xc9e @0x20
0x0c7e…0cac at0021 = ╱67╱g╱ // 0xc9f @0x21
0x0c7e…0cac at0022 = ╱65╱e╱ // 0xca0 @0x22
0x0c7e…0cac at0023 = ╱68╱h╱ // 0xca1 @0x23
0x0c7e…0cac at0024 = ╱6f╱o╱ // 0xca2 @0x24
0x0c7e…0cac at0025 = ╱6c╱l╱ // 0xca3 @0x25
0x0c7e…0cac at0026 = ╱64╱d╱ // 0xca4 @0x26
0x0c7e…0cac at0027 = ╱65╱e╱ // 0xca5 @0x27
0x0c7e…0cac at0028 = ╱6c╱l╱ // 0xca6 @0x28
0x0c7e…0cac at0029 = ╱73╱s╱ // 0xca7 @0x29
0x0c7e…0cac at002a = ╱65╱e╱ // 0xca8 @0x2a
0x0c7e…0cac at002b = ╱2e╱.╱ // 0xca9 @0x2b
0x0c7e…0cac at002c = ╱22╱"╱ // 0xcaa @0x2c
0x0c7e…0cac at002d = EOL // 0xcab @0x2d
0x0c7e…0cac }
0x0cac…0cc0 940d 1270 CURSOR 11 , 4
0x0cac…0cc0 LineComalBcd {
0x0cac…0cc0 ptr = 0x940d // 0xcac @0x0
0x0cac…0cc0 lno = 0x1270 // 0xcae @0x2
0x0cac…0cc0 at0004 = ╱a1╱ CURSOR ╱ // 0xcb0 @0x4
0x0cac…0cc0 at0005 = ╱31╱1╱ // 0xcb1 @0x5
0x0cac…0cc0 at0006 = ╱31╱1╱ // 0xcb2 @0x6
0x0cac…0cc0 at0007 = ╱fe0000b004╱ // 0xcb3 @0x7
0x0cac…0cc0 at000c = ╱ec╱ , ╱ // 0xcb8 @0xc
0x0cac…0cc0 at000d = ╱34╱4╱ // 0xcb9 @0xd
0x0cac…0cc0 at000e = ╱fe00008003╱ // 0xcba @0xe
0x0cac…0cc0 at0013 = EOL // 0xcbf @0x13
0x0cac…0cc0 }
0x0cc0…0ce5 9432 1280 PRINT "1:…Kundekontovedligeholdelse."
0x0cc0…0ce5 LineComalBcd {
0x0cc0…0ce5 ptr = 0x9432 // 0xcc0 @0x0
0x0cc0…0ce5 lno = 0x1280 // 0xcc2 @0x2
0x0cc0…0ce5 at0004 = ╱92╱ PRINT ╱ // 0xcc4 @0x4
0x0cc0…0ce5 at0005 = ╱22╱"╱ // 0xcc5 @0x5
0x0cc0…0ce5 at0006 = ╱31╱1╱ // 0xcc6 @0x6
0x0cc0…0ce5 at0007 = ╱3a╱:╱ // 0xcc7 @0x7
0x0cc0…0ce5 at0008 = ╱20╱…╱ // 0xcc8 @0x8
0x0cc0…0ce5 at0009 = ╱4b╱K╱ // 0xcc9 @0x9
0x0cc0…0ce5 at000a = ╱75╱u╱ // 0xcca @0xa
0x0cc0…0ce5 at000b = ╱6e╱n╱ // 0xccb @0xb
0x0cc0…0ce5 at000c = ╱64╱d╱ // 0xccc @0xc
0x0cc0…0ce5 at000d = ╱65╱e╱ // 0xccd @0xd
0x0cc0…0ce5 at000e = ╱6b╱k╱ // 0xcce @0xe
0x0cc0…0ce5 at000f = ╱6f╱o╱ // 0xccf @0xf
0x0cc0…0ce5 at0010 = ╱6e╱n╱ // 0xcd0 @0x10
0x0cc0…0ce5 at0011 = ╱74╱t╱ // 0xcd1 @0x11
0x0cc0…0ce5 at0012 = ╱6f╱o╱ // 0xcd2 @0x12
0x0cc0…0ce5 at0013 = ╱76╱v╱ // 0xcd3 @0x13
0x0cc0…0ce5 at0014 = ╱65╱e╱ // 0xcd4 @0x14
0x0cc0…0ce5 at0015 = ╱64╱d╱ // 0xcd5 @0x15
0x0cc0…0ce5 at0016 = ╱6c╱l╱ // 0xcd6 @0x16
0x0cc0…0ce5 at0017 = ╱69╱i╱ // 0xcd7 @0x17
0x0cc0…0ce5 at0018 = ╱67╱g╱ // 0xcd8 @0x18
0x0cc0…0ce5 at0019 = ╱65╱e╱ // 0xcd9 @0x19
0x0cc0…0ce5 at001a = ╱68╱h╱ // 0xcda @0x1a
0x0cc0…0ce5 at001b = ╱6f╱o╱ // 0xcdb @0x1b
0x0cc0…0ce5 at001c = ╱6c╱l╱ // 0xcdc @0x1c
0x0cc0…0ce5 at001d = ╱64╱d╱ // 0xcdd @0x1d
0x0cc0…0ce5 at001e = ╱65╱e╱ // 0xcde @0x1e
0x0cc0…0ce5 at001f = ╱6c╱l╱ // 0xcdf @0x1f
0x0cc0…0ce5 at0020 = ╱73╱s╱ // 0xce0 @0x20
0x0cc0…0ce5 at0021 = ╱65╱e╱ // 0xce1 @0x21
0x0cc0…0ce5 at0022 = ╱2e╱.╱ // 0xce2 @0x22
0x0cc0…0ce5 at0023 = ╱22╱"╱ // 0xce3 @0x23
0x0cc0…0ce5 at0024 = EOL // 0xce4 @0x24
0x0cc0…0ce5 }
0x0ce5…0cf9 9446 1290 CURSOR 11 , 6
0x0ce5…0cf9 LineComalBcd {
0x0ce5…0cf9 ptr = 0x9446 // 0xce5 @0x0
0x0ce5…0cf9 lno = 0x1290 // 0xce7 @0x2
0x0ce5…0cf9 at0004 = ╱a1╱ CURSOR ╱ // 0xce9 @0x4
0x0ce5…0cf9 at0005 = ╱31╱1╱ // 0xcea @0x5
0x0ce5…0cf9 at0006 = ╱31╱1╱ // 0xceb @0x6
0x0ce5…0cf9 at0007 = ╱fe0000b004╱ // 0xcec @0x7
0x0ce5…0cf9 at000c = ╱ec╱ , ╱ // 0xcf1 @0xc
0x0ce5…0cf9 at000d = ╱36╱6╱ // 0xcf2 @0xd
0x0ce5…0cf9 at000e = ╱fe0000c003╱ // 0xcf3 @0xe
0x0ce5…0cf9 at0013 = EOL // 0xcf8 @0x13
0x0ce5…0cf9 }
0x0cf9…0d1f 946c 1300 PRINT "2:…Finanskontovedligeholdelse."
0x0cf9…0d1f LineComalBcd {
0x0cf9…0d1f ptr = 0x946c // 0xcf9 @0x0
0x0cf9…0d1f lno = 0x1300 // 0xcfb @0x2
0x0cf9…0d1f at0004 = ╱92╱ PRINT ╱ // 0xcfd @0x4
0x0cf9…0d1f at0005 = ╱22╱"╱ // 0xcfe @0x5
0x0cf9…0d1f at0006 = ╱32╱2╱ // 0xcff @0x6
0x0cf9…0d1f at0007 = ╱3a╱:╱ // 0xd00 @0x7
0x0cf9…0d1f at0008 = ╱20╱…╱ // 0xd01 @0x8
0x0cf9…0d1f at0009 = ╱46╱F╱ // 0xd02 @0x9
0x0cf9…0d1f at000a = ╱69╱i╱ // 0xd03 @0xa
0x0cf9…0d1f at000b = ╱6e╱n╱ // 0xd04 @0xb
0x0cf9…0d1f at000c = ╱61╱a╱ // 0xd05 @0xc
0x0cf9…0d1f at000d = ╱6e╱n╱ // 0xd06 @0xd
0x0cf9…0d1f at000e = ╱73╱s╱ // 0xd07 @0xe
0x0cf9…0d1f at000f = ╱6b╱k╱ // 0xd08 @0xf
0x0cf9…0d1f at0010 = ╱6f╱o╱ // 0xd09 @0x10
0x0cf9…0d1f at0011 = ╱6e╱n╱ // 0xd0a @0x11
0x0cf9…0d1f at0012 = ╱74╱t╱ // 0xd0b @0x12
0x0cf9…0d1f at0013 = ╱6f╱o╱ // 0xd0c @0x13
0x0cf9…0d1f at0014 = ╱76╱v╱ // 0xd0d @0x14
0x0cf9…0d1f at0015 = ╱65╱e╱ // 0xd0e @0x15
0x0cf9…0d1f at0016 = ╱64╱d╱ // 0xd0f @0x16
0x0cf9…0d1f at0017 = ╱6c╱l╱ // 0xd10 @0x17
0x0cf9…0d1f at0018 = ╱69╱i╱ // 0xd11 @0x18
0x0cf9…0d1f at0019 = ╱67╱g╱ // 0xd12 @0x19
0x0cf9…0d1f at001a = ╱65╱e╱ // 0xd13 @0x1a
0x0cf9…0d1f at001b = ╱68╱h╱ // 0xd14 @0x1b
0x0cf9…0d1f at001c = ╱6f╱o╱ // 0xd15 @0x1c
0x0cf9…0d1f at001d = ╱6c╱l╱ // 0xd16 @0x1d
0x0cf9…0d1f at001e = ╱64╱d╱ // 0xd17 @0x1e
0x0cf9…0d1f at001f = ╱65╱e╱ // 0xd18 @0x1f
0x0cf9…0d1f at0020 = ╱6c╱l╱ // 0xd19 @0x20
0x0cf9…0d1f at0021 = ╱73╱s╱ // 0xd1a @0x21
0x0cf9…0d1f at0022 = ╱65╱e╱ // 0xd1b @0x22
0x0cf9…0d1f at0023 = ╱2e╱.╱ // 0xd1c @0x23
0x0cf9…0d1f at0024 = ╱22╱"╱ // 0xd1d @0x24
0x0cf9…0d1f at0025 = EOL // 0xd1e @0x25
0x0cf9…0d1f }
0x0d1f…0d33 9480 1310 CURSOR 11 , 8
0x0d1f…0d33 LineComalBcd {
0x0d1f…0d33 ptr = 0x9480 // 0xd1f @0x0
0x0d1f…0d33 lno = 0x1310 // 0xd21 @0x2
0x0d1f…0d33 at0004 = ╱a1╱ CURSOR ╱ // 0xd23 @0x4
0x0d1f…0d33 at0005 = ╱31╱1╱ // 0xd24 @0x5
0x0d1f…0d33 at0006 = ╱31╱1╱ // 0xd25 @0x6
0x0d1f…0d33 at0007 = ╱fe0000b004╱ // 0xd26 @0x7
0x0d1f…0d33 at000c = ╱ec╱ , ╱ // 0xd2b @0xc
0x0d1f…0d33 at000d = ╱38╱8╱ // 0xd2c @0xd
0x0d1f…0d33 at000e = ╱fe00008004╱ // 0xd2d @0xe
0x0d1f…0d33 at0013 = EOL // 0xd32 @0x13
0x0d1f…0d33 }
0x0d33…0d5b 94a8 1320 PRINT "3:…Kreditorkontovedligeholdelse."
0x0d33…0d5b LineComalBcd {
0x0d33…0d5b ptr = 0x94a8 // 0xd33 @0x0
0x0d33…0d5b lno = 0x1320 // 0xd35 @0x2
0x0d33…0d5b at0004 = ╱92╱ PRINT ╱ // 0xd37 @0x4
0x0d33…0d5b at0005 = ╱22╱"╱ // 0xd38 @0x5
0x0d33…0d5b at0006 = ╱33╱3╱ // 0xd39 @0x6
0x0d33…0d5b at0007 = ╱3a╱:╱ // 0xd3a @0x7
0x0d33…0d5b at0008 = ╱20╱…╱ // 0xd3b @0x8
0x0d33…0d5b at0009 = ╱4b╱K╱ // 0xd3c @0x9
0x0d33…0d5b at000a = ╱72╱r╱ // 0xd3d @0xa
0x0d33…0d5b at000b = ╱65╱e╱ // 0xd3e @0xb
0x0d33…0d5b at000c = ╱64╱d╱ // 0xd3f @0xc
0x0d33…0d5b at000d = ╱69╱i╱ // 0xd40 @0xd
0x0d33…0d5b at000e = ╱74╱t╱ // 0xd41 @0xe
0x0d33…0d5b at000f = ╱6f╱o╱ // 0xd42 @0xf
0x0d33…0d5b at0010 = ╱72╱r╱ // 0xd43 @0x10
0x0d33…0d5b at0011 = ╱6b╱k╱ // 0xd44 @0x11
0x0d33…0d5b at0012 = ╱6f╱o╱ // 0xd45 @0x12
0x0d33…0d5b at0013 = ╱6e╱n╱ // 0xd46 @0x13
0x0d33…0d5b at0014 = ╱74╱t╱ // 0xd47 @0x14
0x0d33…0d5b at0015 = ╱6f╱o╱ // 0xd48 @0x15
0x0d33…0d5b at0016 = ╱76╱v╱ // 0xd49 @0x16
0x0d33…0d5b at0017 = ╱65╱e╱ // 0xd4a @0x17
0x0d33…0d5b at0018 = ╱64╱d╱ // 0xd4b @0x18
0x0d33…0d5b at0019 = ╱6c╱l╱ // 0xd4c @0x19
0x0d33…0d5b at001a = ╱69╱i╱ // 0xd4d @0x1a
0x0d33…0d5b at001b = ╱67╱g╱ // 0xd4e @0x1b
0x0d33…0d5b at001c = ╱65╱e╱ // 0xd4f @0x1c
0x0d33…0d5b at001d = ╱68╱h╱ // 0xd50 @0x1d
0x0d33…0d5b at001e = ╱6f╱o╱ // 0xd51 @0x1e
0x0d33…0d5b at001f = ╱6c╱l╱ // 0xd52 @0x1f
0x0d33…0d5b at0020 = ╱64╱d╱ // 0xd53 @0x20
0x0d33…0d5b at0021 = ╱65╱e╱ // 0xd54 @0x21
0x0d33…0d5b at0022 = ╱6c╱l╱ // 0xd55 @0x22
0x0d33…0d5b at0023 = ╱73╱s╱ // 0xd56 @0x23
0x0d33…0d5b at0024 = ╱65╱e╱ // 0xd57 @0x24
0x0d33…0d5b at0025 = ╱2e╱.╱ // 0xd58 @0x25
0x0d33…0d5b at0026 = ╱22╱"╱ // 0xd59 @0x26
0x0d33…0d5b at0027 = EOL // 0xd5a @0x27
0x0d33…0d5b }
0x0d5b…0d70 94bd 1330 CURSOR 11 , 10
0x0d5b…0d70 LineComalBcd {
0x0d5b…0d70 ptr = 0x94bd // 0xd5b @0x0
0x0d5b…0d70 lno = 0x1330 // 0xd5d @0x2
0x0d5b…0d70 at0004 = ╱a1╱ CURSOR ╱ // 0xd5f @0x4
0x0d5b…0d70 at0005 = ╱31╱1╱ // 0xd60 @0x5
0x0d5b…0d70 at0006 = ╱31╱1╱ // 0xd61 @0x6
0x0d5b…0d70 at0007 = ╱fe0000b004╱ // 0xd62 @0x7
0x0d5b…0d70 at000c = ╱ec╱ , ╱ // 0xd67 @0xc
0x0d5b…0d70 at000d = ╱31╱1╱ // 0xd68 @0xd
0x0d5b…0d70 at000e = ╱30╱0╱ // 0xd69 @0xe
0x0d5b…0d70 at000f = ╱fe0000a004╱ // 0xd6a @0xf
0x0d5b…0d70 at0014 = EOL // 0xd6f @0x14
0x0d5b…0d70 }
0x0d70…0d8f 94dc 1340 PRINT "4:…Varevedligeholdelse."
0x0d70…0d8f LineComalBcd {
0x0d70…0d8f ptr = 0x94dc // 0xd70 @0x0
0x0d70…0d8f lno = 0x1340 // 0xd72 @0x2
0x0d70…0d8f at0004 = ╱92╱ PRINT ╱ // 0xd74 @0x4
0x0d70…0d8f at0005 = ╱22╱"╱ // 0xd75 @0x5
0x0d70…0d8f at0006 = ╱34╱4╱ // 0xd76 @0x6
0x0d70…0d8f at0007 = ╱3a╱:╱ // 0xd77 @0x7
0x0d70…0d8f at0008 = ╱20╱…╱ // 0xd78 @0x8
0x0d70…0d8f at0009 = ╱56╱V╱ // 0xd79 @0x9
0x0d70…0d8f at000a = ╱61╱a╱ // 0xd7a @0xa
0x0d70…0d8f at000b = ╱72╱r╱ // 0xd7b @0xb
0x0d70…0d8f at000c = ╱65╱e╱ // 0xd7c @0xc
0x0d70…0d8f at000d = ╱76╱v╱ // 0xd7d @0xd
0x0d70…0d8f at000e = ╱65╱e╱ // 0xd7e @0xe
0x0d70…0d8f at000f = ╱64╱d╱ // 0xd7f @0xf
0x0d70…0d8f at0010 = ╱6c╱l╱ // 0xd80 @0x10
0x0d70…0d8f at0011 = ╱69╱i╱ // 0xd81 @0x11
0x0d70…0d8f at0012 = ╱67╱g╱ // 0xd82 @0x12
0x0d70…0d8f at0013 = ╱65╱e╱ // 0xd83 @0x13
0x0d70…0d8f at0014 = ╱68╱h╱ // 0xd84 @0x14
0x0d70…0d8f at0015 = ╱6f╱o╱ // 0xd85 @0x15
0x0d70…0d8f at0016 = ╱6c╱l╱ // 0xd86 @0x16
0x0d70…0d8f at0017 = ╱64╱d╱ // 0xd87 @0x17
0x0d70…0d8f at0018 = ╱65╱e╱ // 0xd88 @0x18
0x0d70…0d8f at0019 = ╱6c╱l╱ // 0xd89 @0x19
0x0d70…0d8f at001a = ╱73╱s╱ // 0xd8a @0x1a
0x0d70…0d8f at001b = ╱65╱e╱ // 0xd8b @0x1b
0x0d70…0d8f at001c = ╱2e╱.╱ // 0xd8c @0x1c
0x0d70…0d8f at001d = ╱22╱"╱ // 0xd8d @0x1d
0x0d70…0d8f at001e = EOL // 0xd8e @0x1e
0x0d70…0d8f }
0x0d8f…0da4 94f1 1350 CURSOR 11 , 12
0x0d8f…0da4 LineComalBcd {
0x0d8f…0da4 ptr = 0x94f1 // 0xd8f @0x0
0x0d8f…0da4 lno = 0x1350 // 0xd91 @0x2
0x0d8f…0da4 at0004 = ╱a1╱ CURSOR ╱ // 0xd93 @0x4
0x0d8f…0da4 at0005 = ╱31╱1╱ // 0xd94 @0x5
0x0d8f…0da4 at0006 = ╱31╱1╱ // 0xd95 @0x6
0x0d8f…0da4 at0007 = ╱fe0000b004╱ // 0xd96 @0x7
0x0d8f…0da4 at000c = ╱ec╱ , ╱ // 0xd9b @0xc
0x0d8f…0da4 at000d = ╱31╱1╱ // 0xd9c @0xd
0x0d8f…0da4 at000e = ╱32╱2╱ // 0xd9d @0xe
0x0d8f…0da4 at000f = ╱fe0000c004╱ // 0xd9e @0xf
0x0d8f…0da4 at0014 = EOL // 0xda3 @0x14
0x0d8f…0da4 }
0x0da4…0dc5 9512 1360 PRINT "5:…Systemvedligeholdelse."
0x0da4…0dc5 LineComalBcd {
0x0da4…0dc5 ptr = 0x9512 // 0xda4 @0x0
0x0da4…0dc5 lno = 0x1360 // 0xda6 @0x2
0x0da4…0dc5 at0004 = ╱92╱ PRINT ╱ // 0xda8 @0x4
0x0da4…0dc5 at0005 = ╱22╱"╱ // 0xda9 @0x5
0x0da4…0dc5 at0006 = ╱35╱5╱ // 0xdaa @0x6
0x0da4…0dc5 at0007 = ╱3a╱:╱ // 0xdab @0x7
0x0da4…0dc5 at0008 = ╱20╱…╱ // 0xdac @0x8
0x0da4…0dc5 at0009 = ╱53╱S╱ // 0xdad @0x9
0x0da4…0dc5 at000a = ╱79╱y╱ // 0xdae @0xa
0x0da4…0dc5 at000b = ╱73╱s╱ // 0xdaf @0xb
0x0da4…0dc5 at000c = ╱74╱t╱ // 0xdb0 @0xc
0x0da4…0dc5 at000d = ╱65╱e╱ // 0xdb1 @0xd
0x0da4…0dc5 at000e = ╱6d╱m╱ // 0xdb2 @0xe
0x0da4…0dc5 at000f = ╱76╱v╱ // 0xdb3 @0xf
0x0da4…0dc5 at0010 = ╱65╱e╱ // 0xdb4 @0x10
0x0da4…0dc5 at0011 = ╱64╱d╱ // 0xdb5 @0x11
0x0da4…0dc5 at0012 = ╱6c╱l╱ // 0xdb6 @0x12
0x0da4…0dc5 at0013 = ╱69╱i╱ // 0xdb7 @0x13
0x0da4…0dc5 at0014 = ╱67╱g╱ // 0xdb8 @0x14
0x0da4…0dc5 at0015 = ╱65╱e╱ // 0xdb9 @0x15
0x0da4…0dc5 at0016 = ╱68╱h╱ // 0xdba @0x16
0x0da4…0dc5 at0017 = ╱6f╱o╱ // 0xdbb @0x17
0x0da4…0dc5 at0018 = ╱6c╱l╱ // 0xdbc @0x18
0x0da4…0dc5 at0019 = ╱64╱d╱ // 0xdbd @0x19
0x0da4…0dc5 at001a = ╱65╱e╱ // 0xdbe @0x1a
0x0da4…0dc5 at001b = ╱6c╱l╱ // 0xdbf @0x1b
0x0da4…0dc5 at001c = ╱73╱s╱ // 0xdc0 @0x1c
0x0da4…0dc5 at001d = ╱65╱e╱ // 0xdc1 @0x1d
0x0da4…0dc5 at001e = ╱2e╱.╱ // 0xdc2 @0x1e
0x0da4…0dc5 at001f = ╱22╱"╱ // 0xdc3 @0x1f
0x0da4…0dc5 at0020 = EOL // 0xdc4 @0x20
0x0da4…0dc5 }
0x0dc5…0dcb 9518 1390 REPEAT
0x0dc5…0dcb LineComalBcd {
0x0dc5…0dcb ptr = 0x9518 // 0xdc5 @0x0
0x0dc5…0dcb lno = 0x1390 // 0xdc7 @0x2
0x0dc5…0dcb at0004 = ╱97╱ REPEAT ╱ // 0xdc9 @0x4
0x0dc5…0dcb at0005 = EOL // 0xdca @0x5
0x0dc5…0dcb }
0x0dcb…0de0 952d 1400 CURSOR 11 , 15
0x0dcb…0de0 LineComalBcd {
0x0dcb…0de0 ptr = 0x952d // 0xdcb @0x0
0x0dcb…0de0 lno = 0x1400 // 0xdcd @0x2
0x0dcb…0de0 at0004 = ╱a1╱ CURSOR ╱ // 0xdcf @0x4
0x0dcb…0de0 at0005 = ╱31╱1╱ // 0xdd0 @0x5
0x0dcb…0de0 at0006 = ╱31╱1╱ // 0xdd1 @0x6
0x0dcb…0de0 at0007 = ╱fe0000b004╱ // 0xdd2 @0x7
0x0dcb…0de0 at000c = ╱ec╱ , ╱ // 0xdd7 @0xc
0x0dcb…0de0 at000d = ╱31╱1╱ // 0xdd8 @0xd
0x0dcb…0de0 at000e = ╱35╱5╱ // 0xdd9 @0xe
0x0dcb…0de0 at000f = ╱fe0000f004╱ // 0xdda @0xf
0x0dcb…0de0 at0014 = EOL // 0xddf @0x14
0x0dcb…0de0 }
0x0de0…0df8 9545 1410 INPUT "V{lg…1-5:" , SVAR2 $
0x0de0…0df8 LineComalBcd {
0x0de0…0df8 ptr = 0x9545 // 0xde0 @0x0
0x0de0…0df8 lno = 0x1410 // 0xde2 @0x2
0x0de0…0df8 at0004 = ╱91╱ INPUT ╱ // 0xde4 @0x4
0x0de0…0df8 at0005 = ╱22╱"╱ // 0xde5 @0x5
0x0de0…0df8 at0006 = ╱56╱V╱ // 0xde6 @0x6
0x0de0…0df8 at0007 = ╱7b╱{╱ // 0xde7 @0x7
0x0de0…0df8 at0008 = ╱6c╱l╱ // 0xde8 @0x8
0x0de0…0df8 at0009 = ╱67╱g╱ // 0xde9 @0x9
0x0de0…0df8 at000a = ╱20╱…╱ // 0xdea @0xa
0x0de0…0df8 at000b = ╱31╱1╱ // 0xdeb @0xb
0x0de0…0df8 at000c = ╱2d╱-╱ // 0xdec @0xc
0x0de0…0df8 at000d = ╱35╱5╱ // 0xded @0xd
0x0de0…0df8 at000e = ╱3a╱:╱ // 0xdee @0xe
0x0de0…0df8 at000f = ╱22╱"╱ // 0xdef @0xf
0x0de0…0df8 at0010 = ╱ec╱ , ╱ // 0xdf0 @0x10
0x0de0…0df8 at0011 = ╱53╱S╱ // 0xdf1 @0x11
0x0de0…0df8 at0012 = ╱56╱V╱ // 0xdf2 @0x12
0x0de0…0df8 at0013 = ╱41╱A╱ // 0xdf3 @0x13
0x0de0…0df8 at0014 = ╱52╱R╱ // 0xdf4 @0x14
0x0de0…0df8 at0015 = ╱32╱2╱ // 0xdf5 @0x15
0x0de0…0df8 at0016 = ╱ef╱ $ ╱ // 0xdf6 @0x16
0x0de0…0df8 at0017 = EOL // 0xdf7 @0x17
0x0de0…0df8 }
0x0df8…0e13 9560 1420 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "5"
0x0df8…0e13 LineComalBcd {
0x0df8…0e13 ptr = 0x9560 // 0xdf8 @0x0
0x0df8…0e13 lno = 0x1420 // 0xdfa @0x2
0x0df8…0e13 at0004 = ╱98╱ UNTIL ╱ // 0xdfc @0x4
0x0df8…0e13 at0005 = ╱53╱S╱ // 0xdfd @0x5
0x0df8…0e13 at0006 = ╱56╱V╱ // 0xdfe @0x6
0x0df8…0e13 at0007 = ╱41╱A╱ // 0xdff @0x7
0x0df8…0e13 at0008 = ╱52╱R╱ // 0xe00 @0x8
0x0df8…0e13 at0009 = ╱32╱2╱ // 0xe01 @0x9
0x0df8…0e13 at000a = ╱ef╱ $ ╱ // 0xe02 @0xa
0x0df8…0e13 at000b = ╱e0╱ >= ╱ // 0xe03 @0xb
0x0df8…0e13 at000c = ╱22╱"╱ // 0xe04 @0xc
0x0df8…0e13 at000d = ╱30╱0╱ // 0xe05 @0xd
0x0df8…0e13 at000e = ╱22╱"╱ // 0xe06 @0xe
0x0df8…0e13 at000f = ╱da╱ AND ╱ // 0xe07 @0xf
0x0df8…0e13 at0010 = ╱53╱S╱ // 0xe08 @0x10
0x0df8…0e13 at0011 = ╱56╱V╱ // 0xe09 @0x11
0x0df8…0e13 at0012 = ╱41╱A╱ // 0xe0a @0x12
0x0df8…0e13 at0013 = ╱52╱R╱ // 0xe0b @0x13
0x0df8…0e13 at0014 = ╱32╱2╱ // 0xe0c @0x14
0x0df8…0e13 at0015 = ╱ef╱ $ ╱ // 0xe0d @0x15
0x0df8…0e13 at0016 = ╱df╱ =< ╱ // 0xe0e @0x16
0x0df8…0e13 at0017 = ╱22╱"╱ // 0xe0f @0x17
0x0df8…0e13 at0018 = ╱35╱5╱ // 0xe10 @0x18
0x0df8…0e13 at0019 = ╱22╱"╱ // 0xe11 @0x19
0x0df8…0e13 at001a = EOL // 0xe12 @0x1a
0x0df8…0e13 }
0x0e13…0e21 956e 1430 CASE SVAR2 $ OF
0x0e13…0e21 LineComalBcd {
0x0e13…0e21 ptr = 0x956e // 0xe13 @0x0
0x0e13…0e21 lno = 0x1430 // 0xe15 @0x2
0x0e13…0e21 at0004 = ╱a200╱ CASE ╱ // 0xe17 @0x4
0x0e13…0e21 at0006 = ╱53╱S╱ // 0xe19 @0x6
0x0e13…0e21 at0007 = ╱56╱V╱ // 0xe1a @0x7
0x0e13…0e21 at0008 = ╱41╱A╱ // 0xe1b @0x8
0x0e13…0e21 at0009 = ╱52╱R╱ // 0xe1c @0x9
0x0e13…0e21 at000a = ╱32╱2╱ // 0xe1d @0xa
0x0e13…0e21 at000b = ╱ef╱ $ ╱ // 0xe1e @0xb
0x0e13…0e21 at000c = ╱ba╱ OF ╱ // 0xe1f @0xc
0x0e13…0e21 at000d = EOL // 0xe20 @0xd
0x0e13…0e21 }
0x0e21…0e32 957f 1440 FEJL1 = 1
0x0e21…0e32 LineComalBcd {
0x0e21…0e32 ptr = 0x957f // 0xe21 @0x0
0x0e21…0e32 lno = 0x1440 // 0xe23 @0x2
0x0e21…0e32 at0004 = ╱46╱F╱ // 0xe25 @0x4
0x0e21…0e32 at0005 = ╱45╱E╱ // 0xe26 @0x5
0x0e21…0e32 at0006 = ╱4a╱J╱ // 0xe27 @0x6
0x0e21…0e32 at0007 = ╱4c╱L╱ // 0xe28 @0x7
0x0e21…0e32 at0008 = ╱31╱1╱ // 0xe29 @0x8
0x0e21…0e32 at0009 = ╱dc╱ = ╱ // 0xe2a @0x9
0x0e21…0e32 at000a = ╱31╱1╱ // 0xe2b @0xa
0x0e21…0e32 at000b = ╱fe00008001╱ // 0xe2c @0xb
0x0e21…0e32 at0010 = EOL // 0xe31 @0x10
0x0e21…0e32 }
0x0e32…0e3c 9589 1450 WHEN "1"
0x0e32…0e3c LineComalBcd {
0x0e32…0e3c ptr = 0x9589 // 0xe32 @0x0
0x0e32…0e3c lno = 0x1450 // 0xe34 @0x2
0x0e32…0e3c at0004 = ╱a300╱ WHEN ╱ // 0xe36 @0x4
0x0e32…0e3c at0006 = ╱22╱"╱ // 0xe38 @0x6
0x0e32…0e3c at0007 = ╱31╱1╱ // 0xe39 @0x7
0x0e32…0e3c at0008 = ╱22╱"╱ // 0xe3a @0x8
0x0e32…0e3c at0009 = EOL // 0xe3b @0x9
0x0e32…0e3c }
0x0e3c…0e72 95bf 1460 TEK $ = "Kundekontovedligeholdelse." ; B $ = A $ + "DEBVEDL"
0x0e3c…0e72 LineComalBcd {
0x0e3c…0e72 ptr = 0x95bf // 0xe3c @0x0
0x0e3c…0e72 lno = 0x1460 // 0xe3e @0x2
0x0e3c…0e72 at0004 = ╱54╱T╱ // 0xe40 @0x4
0x0e3c…0e72 at0005 = ╱45╱E╱ // 0xe41 @0x5
0x0e3c…0e72 at0006 = ╱4b╱K╱ // 0xe42 @0x6
0x0e3c…0e72 at0007 = ╱ef╱ $ ╱ // 0xe43 @0x7
0x0e3c…0e72 at0008 = ╱dc╱ = ╱ // 0xe44 @0x8
0x0e3c…0e72 at0009 = ╱22╱"╱ // 0xe45 @0x9
0x0e3c…0e72 at000a = ╱4b╱K╱ // 0xe46 @0xa
0x0e3c…0e72 at000b = ╱75╱u╱ // 0xe47 @0xb
0x0e3c…0e72 at000c = ╱6e╱n╱ // 0xe48 @0xc
0x0e3c…0e72 at000d = ╱64╱d╱ // 0xe49 @0xd
0x0e3c…0e72 at000e = ╱65╱e╱ // 0xe4a @0xe
0x0e3c…0e72 at000f = ╱6b╱k╱ // 0xe4b @0xf
0x0e3c…0e72 at0010 = ╱6f╱o╱ // 0xe4c @0x10
0x0e3c…0e72 at0011 = ╱6e╱n╱ // 0xe4d @0x11
0x0e3c…0e72 at0012 = ╱74╱t╱ // 0xe4e @0x12
0x0e3c…0e72 at0013 = ╱6f╱o╱ // 0xe4f @0x13
0x0e3c…0e72 at0014 = ╱76╱v╱ // 0xe50 @0x14
0x0e3c…0e72 at0015 = ╱65╱e╱ // 0xe51 @0x15
0x0e3c…0e72 at0016 = ╱64╱d╱ // 0xe52 @0x16
0x0e3c…0e72 at0017 = ╱6c╱l╱ // 0xe53 @0x17
0x0e3c…0e72 at0018 = ╱69╱i╱ // 0xe54 @0x18
0x0e3c…0e72 at0019 = ╱67╱g╱ // 0xe55 @0x19
0x0e3c…0e72 at001a = ╱65╱e╱ // 0xe56 @0x1a
0x0e3c…0e72 at001b = ╱68╱h╱ // 0xe57 @0x1b
0x0e3c…0e72 at001c = ╱6f╱o╱ // 0xe58 @0x1c
0x0e3c…0e72 at001d = ╱6c╱l╱ // 0xe59 @0x1d
0x0e3c…0e72 at001e = ╱64╱d╱ // 0xe5a @0x1e
0x0e3c…0e72 at001f = ╱65╱e╱ // 0xe5b @0x1f
0x0e3c…0e72 at0020 = ╱6c╱l╱ // 0xe5c @0x20
0x0e3c…0e72 at0021 = ╱73╱s╱ // 0xe5d @0x21
0x0e3c…0e72 at0022 = ╱65╱e╱ // 0xe5e @0x22
0x0e3c…0e72 at0023 = ╱2e╱.╱ // 0xe5f @0x23
0x0e3c…0e72 at0024 = ╱22╱"╱ // 0xe60 @0x24
0x0e3c…0e72 at0025 = ╱eb╱ ; ╱ // 0xe61 @0x25
0x0e3c…0e72 at0026 = ╱42╱B╱ // 0xe62 @0x26
0x0e3c…0e72 at0027 = ╱ef╱ $ ╱ // 0xe63 @0x27
0x0e3c…0e72 at0028 = ╱dc╱ = ╱ // 0xe64 @0x28
0x0e3c…0e72 at0029 = ╱41╱A╱ // 0xe65 @0x29
0x0e3c…0e72 at002a = ╱ef╱ $ ╱ // 0xe66 @0x2a
0x0e3c…0e72 at002b = ╱f1╱ + ╱ // 0xe67 @0x2b
0x0e3c…0e72 at002c = ╱22╱"╱ // 0xe68 @0x2c
0x0e3c…0e72 at002d = ╱44╱D╱ // 0xe69 @0x2d
0x0e3c…0e72 at002e = ╱45╱E╱ // 0xe6a @0x2e
0x0e3c…0e72 at002f = ╱42╱B╱ // 0xe6b @0x2f
0x0e3c…0e72 at0030 = ╱56╱V╱ // 0xe6c @0x30
0x0e3c…0e72 at0031 = ╱45╱E╱ // 0xe6d @0x31
0x0e3c…0e72 at0032 = ╱44╱D╱ // 0xe6e @0x32
0x0e3c…0e72 at0033 = ╱4c╱L╱ // 0xe6f @0x33
0x0e3c…0e72 at0034 = ╱22╱"╱ // 0xe70 @0x34
0x0e3c…0e72 at0035 = EOL // 0xe71 @0x35
0x0e3c…0e72 }
0x0e72…0e7c 95c9 1470 WHEN "2"
0x0e72…0e7c LineComalBcd {
0x0e72…0e7c ptr = 0x95c9 // 0xe72 @0x0
0x0e72…0e7c lno = 0x1470 // 0xe74 @0x2
0x0e72…0e7c at0004 = ╱a300╱ WHEN ╱ // 0xe76 @0x4
0x0e72…0e7c at0006 = ╱22╱"╱ // 0xe78 @0x6
0x0e72…0e7c at0007 = ╱32╱2╱ // 0xe79 @0x7
0x0e72…0e7c at0008 = ╱22╱"╱ // 0xe7a @0x8
0x0e72…0e7c at0009 = EOL // 0xe7b @0x9
0x0e72…0e7c }
0x0e7c…0eb3 9600 1480 TEK $ = "Finanskontovedligeholdelse." ; B $ = A $ + "FINVEDL"
0x0e7c…0eb3 LineComalBcd {
0x0e7c…0eb3 ptr = 0x9600 // 0xe7c @0x0
0x0e7c…0eb3 lno = 0x1480 // 0xe7e @0x2
0x0e7c…0eb3 at0004 = ╱54╱T╱ // 0xe80 @0x4
0x0e7c…0eb3 at0005 = ╱45╱E╱ // 0xe81 @0x5
0x0e7c…0eb3 at0006 = ╱4b╱K╱ // 0xe82 @0x6
0x0e7c…0eb3 at0007 = ╱ef╱ $ ╱ // 0xe83 @0x7
0x0e7c…0eb3 at0008 = ╱dc╱ = ╱ // 0xe84 @0x8
0x0e7c…0eb3 at0009 = ╱22╱"╱ // 0xe85 @0x9
0x0e7c…0eb3 at000a = ╱46╱F╱ // 0xe86 @0xa
0x0e7c…0eb3 at000b = ╱69╱i╱ // 0xe87 @0xb
0x0e7c…0eb3 at000c = ╱6e╱n╱ // 0xe88 @0xc
0x0e7c…0eb3 at000d = ╱61╱a╱ // 0xe89 @0xd
0x0e7c…0eb3 at000e = ╱6e╱n╱ // 0xe8a @0xe
0x0e7c…0eb3 at000f = ╱73╱s╱ // 0xe8b @0xf
0x0e7c…0eb3 at0010 = ╱6b╱k╱ // 0xe8c @0x10
0x0e7c…0eb3 at0011 = ╱6f╱o╱ // 0xe8d @0x11
0x0e7c…0eb3 at0012 = ╱6e╱n╱ // 0xe8e @0x12
0x0e7c…0eb3 at0013 = ╱74╱t╱ // 0xe8f @0x13
0x0e7c…0eb3 at0014 = ╱6f╱o╱ // 0xe90 @0x14
0x0e7c…0eb3 at0015 = ╱76╱v╱ // 0xe91 @0x15
0x0e7c…0eb3 at0016 = ╱65╱e╱ // 0xe92 @0x16
0x0e7c…0eb3 at0017 = ╱64╱d╱ // 0xe93 @0x17
0x0e7c…0eb3 at0018 = ╱6c╱l╱ // 0xe94 @0x18
0x0e7c…0eb3 at0019 = ╱69╱i╱ // 0xe95 @0x19
0x0e7c…0eb3 at001a = ╱67╱g╱ // 0xe96 @0x1a
0x0e7c…0eb3 at001b = ╱65╱e╱ // 0xe97 @0x1b
0x0e7c…0eb3 at001c = ╱68╱h╱ // 0xe98 @0x1c
0x0e7c…0eb3 at001d = ╱6f╱o╱ // 0xe99 @0x1d
0x0e7c…0eb3 at001e = ╱6c╱l╱ // 0xe9a @0x1e
0x0e7c…0eb3 at001f = ╱64╱d╱ // 0xe9b @0x1f
0x0e7c…0eb3 at0020 = ╱65╱e╱ // 0xe9c @0x20
0x0e7c…0eb3 at0021 = ╱6c╱l╱ // 0xe9d @0x21
0x0e7c…0eb3 at0022 = ╱73╱s╱ // 0xe9e @0x22
0x0e7c…0eb3 at0023 = ╱65╱e╱ // 0xe9f @0x23
0x0e7c…0eb3 at0024 = ╱2e╱.╱ // 0xea0 @0x24
0x0e7c…0eb3 at0025 = ╱22╱"╱ // 0xea1 @0x25
0x0e7c…0eb3 at0026 = ╱eb╱ ; ╱ // 0xea2 @0x26
0x0e7c…0eb3 at0027 = ╱42╱B╱ // 0xea3 @0x27
0x0e7c…0eb3 at0028 = ╱ef╱ $ ╱ // 0xea4 @0x28
0x0e7c…0eb3 at0029 = ╱dc╱ = ╱ // 0xea5 @0x29
0x0e7c…0eb3 at002a = ╱41╱A╱ // 0xea6 @0x2a
0x0e7c…0eb3 at002b = ╱ef╱ $ ╱ // 0xea7 @0x2b
0x0e7c…0eb3 at002c = ╱f1╱ + ╱ // 0xea8 @0x2c
0x0e7c…0eb3 at002d = ╱22╱"╱ // 0xea9 @0x2d
0x0e7c…0eb3 at002e = ╱46╱F╱ // 0xeaa @0x2e
0x0e7c…0eb3 at002f = ╱49╱I╱ // 0xeab @0x2f
0x0e7c…0eb3 at0030 = ╱4e╱N╱ // 0xeac @0x30
0x0e7c…0eb3 at0031 = ╱56╱V╱ // 0xead @0x31
0x0e7c…0eb3 at0032 = ╱45╱E╱ // 0xeae @0x32
0x0e7c…0eb3 at0033 = ╱44╱D╱ // 0xeaf @0x33
0x0e7c…0eb3 at0034 = ╱4c╱L╱ // 0xeb0 @0x34
0x0e7c…0eb3 at0035 = ╱22╱"╱ // 0xeb1 @0x35
0x0e7c…0eb3 at0036 = EOL // 0xeb2 @0x36
0x0e7c…0eb3 }
0x0eb3…0ebd 960a 1490 WHEN "3"
0x0eb3…0ebd LineComalBcd {
0x0eb3…0ebd ptr = 0x960a // 0xeb3 @0x0
0x0eb3…0ebd lno = 0x1490 // 0xeb5 @0x2
0x0eb3…0ebd at0004 = ╱a300╱ WHEN ╱ // 0xeb7 @0x4
0x0eb3…0ebd at0006 = ╱22╱"╱ // 0xeb9 @0x6
0x0eb3…0ebd at0007 = ╱33╱3╱ // 0xeba @0x7
0x0eb3…0ebd at0008 = ╱22╱"╱ // 0xebb @0x8
0x0eb3…0ebd at0009 = EOL // 0xebc @0x9
0x0eb3…0ebd }
0x0ebd…0ef5 (49,) 9642 1500 TEK $ = "Kreditorkontovedligeholdelse" ; B $ = A $ + "KREVEDL"
0x0ebd…0ef5 LineComalBcd {
0x0ebd…0ef5 ptr = 0x9642 // 0xebd @0x0
0x0ebd…0ef5 lno = 0x1500 // 0xebf @0x2
0x0ebd…0ef5 at0004 = ╱54╱T╱ // 0xec1 @0x4
0x0ebd…0ef5 at0005 = ╱45╱E╱ // 0xec2 @0x5
0x0ebd…0ef5 at0006 = ╱4b╱K╱ // 0xec3 @0x6
0x0ebd…0ef5 at0007 = ╱ef╱ $ ╱ // 0xec4 @0x7
0x0ebd…0ef5 at0008 = ╱dc╱ = ╱ // 0xec5 @0x8
0x0ebd…0ef5 at0009 = ╱22╱"╱ // 0xec6 @0x9
0x0ebd…0ef5 at000a = ╱4b╱K╱ // 0xec7 @0xa
0x0ebd…0ef5 at000b = ╱72╱r╱ // 0xec8 @0xb
0x0ebd…0ef5 at000c = ╱65╱e╱ // 0xec9 @0xc
0x0ebd…0ef5 at000d = ╱64╱d╱ // 0xeca @0xd
0x0ebd…0ef5 at000e = ╱69╱i╱ // 0xecb @0xe
0x0ebd…0ef5 at000f = ╱74╱t╱ // 0xecc @0xf
0x0ebd…0ef5 at0010 = ╱6f╱o╱ // 0xecd @0x10
0x0ebd…0ef5 at0011 = ╱72╱r╱ // 0xece @0x11
0x0ebd…0ef5 at0012 = ╱6b╱k╱ // 0xecf @0x12
0x0ebd…0ef5 at0013 = ╱6f╱o╱ // 0xed0 @0x13
0x0ebd…0ef5 at0014 = ╱6e╱n╱ // 0xed1 @0x14
0x0ebd…0ef5 at0015 = ╱74╱t╱ // 0xed2 @0x15
0x0ebd…0ef5 at0016 = ╱6f╱o╱ // 0xed3 @0x16
0x0ebd…0ef5 at0017 = ╱76╱v╱ // 0xed4 @0x17
0x0ebd…0ef5 at0018 = ╱65╱e╱ // 0xed5 @0x18
0x0ebd…0ef5 at0019 = ╱64╱d╱ // 0xed6 @0x19
0x0ebd…0ef5 at001a = ╱6c╱l╱ // 0xed7 @0x1a
0x0ebd…0ef5 at001b = ╱69╱i╱ // 0xed8 @0x1b
0x0ebd…0ef5 at001c = ╱67╱g╱ // 0xed9 @0x1c
0x0ebd…0ef5 at001d = ╱65╱e╱ // 0xeda @0x1d
0x0ebd…0ef5 at001e = ╱68╱h╱ // 0xedb @0x1e
0x0ebd…0ef5 at001f = ╱6f╱o╱ // 0xedc @0x1f
0x0ebd…0ef5 at0020 = ╱6c╱l╱ // 0xedd @0x20
0x0ebd…0ef5 at0021 = ╱64╱d╱ // 0xede @0x21
0x0ebd…0ef5 at0022 = ╱65╱e╱ // 0xedf @0x22
0x0ebd…0ef5 at0023 = ╱6c╱l╱ // 0xee0 @0x23
0x0ebd…0ef5 at0024 = ╱73╱s╱ // 0xee1 @0x24
0x0ebd…0ef5 at0025 = ╱65╱e╱ // 0xee2 @0x25
0x0ebd…0ef5 at0026 = ╱22╱"╱ // 0xee3 @0x26
0x0ebd…0ef5 at0027 = ╱eb╱ ; ╱ // 0xee4 @0x27
0x0ebd…0ef5 at0028 = ╱42╱B╱ // 0xee5 @0x28
0x0ebd…0ef5 at0029 = ╱ef╱ $ ╱ // 0xee6 @0x29
0x0ebd…0ef5 at002a = ╱dc╱ = ╱ // 0xee7 @0x2a
0x0ebd…0ef5 at002b = ╱41╱A╱ // 0xee8 @0x2b
0x0ebd…0ef5 at002c = ╱ef╱ $ ╱ // 0xee9 @0x2c
0x0ebd…0ef5 at002d = ╱f1╱ + ╱ // 0xeea @0x2d
0x0ebd…0ef5 at002e = ╱22╱"╱ // 0xeeb @0x2e
0x0ebd…0ef5 at002f = ╱4b╱K╱ // 0xeec @0x2f
0x0ebd…0ef5 at0030 = ╱52╱R╱ // 0xeed @0x30
0x0ebd…0ef5 at0031 = ╱45╱E╱ // 0xeee @0x31
0x0ebd…0ef5 at0032 = ╱56╱V╱ // 0xeef @0x32
0x0ebd…0ef5 at0033 = ╱45╱E╱ // 0xef0 @0x33
0x0ebd…0ef5 at0034 = ╱44╱D╱ // 0xef1 @0x34
0x0ebd…0ef5 at0035 = ╱4c╱L╱ // 0xef2 @0x35
0x0ebd…0ef5 at0036 = ╱22╱"╱ // 0xef3 @0x36
0x0ebd…0ef5 at0037 = EOL // 0xef4 @0x37
0x0ebd…0ef5 }
0x0ef5…0eff 964c 1510 WHEN "4"
0x0ef5…0eff LineComalBcd {
0x0ef5…0eff ptr = 0x964c // 0xef5 @0x0
0x0ef5…0eff lno = 0x1510 // 0xef7 @0x2
0x0ef5…0eff at0004 = ╱a300╱ WHEN ╱ // 0xef9 @0x4
0x0ef5…0eff at0006 = ╱22╱"╱ // 0xefb @0x6
0x0ef5…0eff at0007 = ╱34╱4╱ // 0xefc @0x7
0x0ef5…0eff at0008 = ╱22╱"╱ // 0xefd @0x8
0x0ef5…0eff at0009 = EOL // 0xefe @0x9
0x0ef5…0eff }
0x0eff…0f30 967d 1520 TEK $ = "Varevedligeholdelse." ; B $ = A $ + "VAREVEDL"
0x0eff…0f30 LineComalBcd {
0x0eff…0f30 ptr = 0x967d // 0xeff @0x0
0x0eff…0f30 lno = 0x1520 // 0xf01 @0x2
0x0eff…0f30 at0004 = ╱54╱T╱ // 0xf03 @0x4
0x0eff…0f30 at0005 = ╱45╱E╱ // 0xf04 @0x5
0x0eff…0f30 at0006 = ╱4b╱K╱ // 0xf05 @0x6
0x0eff…0f30 at0007 = ╱ef╱ $ ╱ // 0xf06 @0x7
0x0eff…0f30 at0008 = ╱dc╱ = ╱ // 0xf07 @0x8
0x0eff…0f30 at0009 = ╱22╱"╱ // 0xf08 @0x9
0x0eff…0f30 at000a = ╱56╱V╱ // 0xf09 @0xa
0x0eff…0f30 at000b = ╱61╱a╱ // 0xf0a @0xb
0x0eff…0f30 at000c = ╱72╱r╱ // 0xf0b @0xc
0x0eff…0f30 at000d = ╱65╱e╱ // 0xf0c @0xd
0x0eff…0f30 at000e = ╱76╱v╱ // 0xf0d @0xe
0x0eff…0f30 at000f = ╱65╱e╱ // 0xf0e @0xf
0x0eff…0f30 at0010 = ╱64╱d╱ // 0xf0f @0x10
0x0eff…0f30 at0011 = ╱6c╱l╱ // 0xf10 @0x11
0x0eff…0f30 at0012 = ╱69╱i╱ // 0xf11 @0x12
0x0eff…0f30 at0013 = ╱67╱g╱ // 0xf12 @0x13
0x0eff…0f30 at0014 = ╱65╱e╱ // 0xf13 @0x14
0x0eff…0f30 at0015 = ╱68╱h╱ // 0xf14 @0x15
0x0eff…0f30 at0016 = ╱6f╱o╱ // 0xf15 @0x16
0x0eff…0f30 at0017 = ╱6c╱l╱ // 0xf16 @0x17
0x0eff…0f30 at0018 = ╱64╱d╱ // 0xf17 @0x18
0x0eff…0f30 at0019 = ╱65╱e╱ // 0xf18 @0x19
0x0eff…0f30 at001a = ╱6c╱l╱ // 0xf19 @0x1a
0x0eff…0f30 at001b = ╱73╱s╱ // 0xf1a @0x1b
0x0eff…0f30 at001c = ╱65╱e╱ // 0xf1b @0x1c
0x0eff…0f30 at001d = ╱2e╱.╱ // 0xf1c @0x1d
0x0eff…0f30 at001e = ╱22╱"╱ // 0xf1d @0x1e
0x0eff…0f30 at001f = ╱eb╱ ; ╱ // 0xf1e @0x1f
0x0eff…0f30 at0020 = ╱42╱B╱ // 0xf1f @0x20
0x0eff…0f30 at0021 = ╱ef╱ $ ╱ // 0xf20 @0x21
0x0eff…0f30 at0022 = ╱dc╱ = ╱ // 0xf21 @0x22
0x0eff…0f30 at0023 = ╱41╱A╱ // 0xf22 @0x23
0x0eff…0f30 at0024 = ╱ef╱ $ ╱ // 0xf23 @0x24
0x0eff…0f30 at0025 = ╱f1╱ + ╱ // 0xf24 @0x25
0x0eff…0f30 at0026 = ╱22╱"╱ // 0xf25 @0x26
0x0eff…0f30 at0027 = ╱56╱V╱ // 0xf26 @0x27
0x0eff…0f30 at0028 = ╱41╱A╱ // 0xf27 @0x28
0x0eff…0f30 at0029 = ╱52╱R╱ // 0xf28 @0x29
0x0eff…0f30 at002a = ╱45╱E╱ // 0xf29 @0x2a
0x0eff…0f30 at002b = ╱56╱V╱ // 0xf2a @0x2b
0x0eff…0f30 at002c = ╱45╱E╱ // 0xf2b @0x2c
0x0eff…0f30 at002d = ╱44╱D╱ // 0xf2c @0x2d
0x0eff…0f30 at002e = ╱4c╱L╱ // 0xf2d @0x2e
0x0eff…0f30 at002f = ╱22╱"╱ // 0xf2e @0x2f
0x0eff…0f30 at0030 = EOL // 0xf2f @0x30
0x0eff…0f30 }
0x0f30…0f3a 9687 1530 WHEN "5"
0x0f30…0f3a LineComalBcd {
0x0f30…0f3a ptr = 0x9687 // 0xf30 @0x0
0x0f30…0f3a lno = 0x1530 // 0xf32 @0x2
0x0f30…0f3a at0004 = ╱a300╱ WHEN ╱ // 0xf34 @0x4
0x0f30…0f3a at0006 = ╱22╱"╱ // 0xf36 @0x6
0x0f30…0f3a at0007 = ╱35╱5╱ // 0xf37 @0x7
0x0f30…0f3a at0008 = ╱22╱"╱ // 0xf38 @0x8
0x0f30…0f3a at0009 = EOL // 0xf39 @0x9
0x0f30…0f3a }
0x0f3a…0f6b 96b8 1540 TEK $ = "Systemvedligeholdelse" ; B $ = A $ + "SYSVEDL"
0x0f3a…0f6b LineComalBcd {
0x0f3a…0f6b ptr = 0x96b8 // 0xf3a @0x0
0x0f3a…0f6b lno = 0x1540 // 0xf3c @0x2
0x0f3a…0f6b at0004 = ╱54╱T╱ // 0xf3e @0x4
0x0f3a…0f6b at0005 = ╱45╱E╱ // 0xf3f @0x5
0x0f3a…0f6b at0006 = ╱4b╱K╱ // 0xf40 @0x6
0x0f3a…0f6b at0007 = ╱ef╱ $ ╱ // 0xf41 @0x7
0x0f3a…0f6b at0008 = ╱dc╱ = ╱ // 0xf42 @0x8
0x0f3a…0f6b at0009 = ╱22╱"╱ // 0xf43 @0x9
0x0f3a…0f6b at000a = ╱53╱S╱ // 0xf44 @0xa
0x0f3a…0f6b at000b = ╱79╱y╱ // 0xf45 @0xb
0x0f3a…0f6b at000c = ╱73╱s╱ // 0xf46 @0xc
0x0f3a…0f6b at000d = ╱74╱t╱ // 0xf47 @0xd
0x0f3a…0f6b at000e = ╱65╱e╱ // 0xf48 @0xe
0x0f3a…0f6b at000f = ╱6d╱m╱ // 0xf49 @0xf
0x0f3a…0f6b at0010 = ╱76╱v╱ // 0xf4a @0x10
0x0f3a…0f6b at0011 = ╱65╱e╱ // 0xf4b @0x11
0x0f3a…0f6b at0012 = ╱64╱d╱ // 0xf4c @0x12
0x0f3a…0f6b at0013 = ╱6c╱l╱ // 0xf4d @0x13
0x0f3a…0f6b at0014 = ╱69╱i╱ // 0xf4e @0x14
0x0f3a…0f6b at0015 = ╱67╱g╱ // 0xf4f @0x15
0x0f3a…0f6b at0016 = ╱65╱e╱ // 0xf50 @0x16
0x0f3a…0f6b at0017 = ╱68╱h╱ // 0xf51 @0x17
0x0f3a…0f6b at0018 = ╱6f╱o╱ // 0xf52 @0x18
0x0f3a…0f6b at0019 = ╱6c╱l╱ // 0xf53 @0x19
0x0f3a…0f6b at001a = ╱64╱d╱ // 0xf54 @0x1a
0x0f3a…0f6b at001b = ╱65╱e╱ // 0xf55 @0x1b
0x0f3a…0f6b at001c = ╱6c╱l╱ // 0xf56 @0x1c
0x0f3a…0f6b at001d = ╱73╱s╱ // 0xf57 @0x1d
0x0f3a…0f6b at001e = ╱65╱e╱ // 0xf58 @0x1e
0x0f3a…0f6b at001f = ╱22╱"╱ // 0xf59 @0x1f
0x0f3a…0f6b at0020 = ╱eb╱ ; ╱ // 0xf5a @0x20
0x0f3a…0f6b at0021 = ╱42╱B╱ // 0xf5b @0x21
0x0f3a…0f6b at0022 = ╱ef╱ $ ╱ // 0xf5c @0x22
0x0f3a…0f6b at0023 = ╱dc╱ = ╱ // 0xf5d @0x23
0x0f3a…0f6b at0024 = ╱41╱A╱ // 0xf5e @0x24
0x0f3a…0f6b at0025 = ╱ef╱ $ ╱ // 0xf5f @0x25
0x0f3a…0f6b at0026 = ╱f1╱ + ╱ // 0xf60 @0x26
0x0f3a…0f6b at0027 = ╱22╱"╱ // 0xf61 @0x27
0x0f3a…0f6b at0028 = ╱53╱S╱ // 0xf62 @0x28
0x0f3a…0f6b at0029 = ╱59╱Y╱ // 0xf63 @0x29
0x0f3a…0f6b at002a = ╱53╱S╱ // 0xf64 @0x2a
0x0f3a…0f6b at002b = ╱56╱V╱ // 0xf65 @0x2b
0x0f3a…0f6b at002c = ╱45╱E╱ // 0xf66 @0x2c
0x0f3a…0f6b at002d = ╱44╱D╱ // 0xf67 @0x2d
0x0f3a…0f6b at002e = ╱4c╱L╱ // 0xf68 @0x2e
0x0f3a…0f6b at002f = ╱22╱"╱ // 0xf69 @0x2f
0x0f3a…0f6b at0030 = EOL // 0xf6a @0x30
0x0f3a…0f6b }
0x0f6b…0f71 96be 1570 ENDCASE
0x0f6b…0f71 LineComalBcd {
0x0f6b…0f71 ptr = 0x96be // 0xf6b @0x0
0x0f6b…0f71 lno = 0x1570 // 0xf6d @0x2
0x0f6b…0f71 at0004 = ╱a4╱ ENDCASE ╱ // 0xf6f @0x4
0x0f6b…0f71 at0005 = EOL // 0xf70 @0x5
0x0f6b…0f71 }
0x0f71…0f7b 96c8 1580 WHEN "2"
0x0f71…0f7b LineComalBcd {
0x0f71…0f7b ptr = 0x96c8 // 0xf71 @0x0
0x0f71…0f7b lno = 0x1580 // 0xf73 @0x2
0x0f71…0f7b at0004 = ╱a300╱ WHEN ╱ // 0xf75 @0x4
0x0f71…0f7b at0006 = ╱22╱"╱ // 0xf77 @0x6
0x0f71…0f7b at0007 = ╱32╱2╱ // 0xf78 @0x7
0x0f71…0f7b at0008 = ╱22╱"╱ // 0xf79 @0x8
0x0f71…0f7b at0009 = EOL // 0xf7a @0x9
0x0f71…0f7b }
0x0f7b…0f9c 96e9 1590 PRINT "Programvalg.…Fakturering."
0x0f7b…0f9c LineComalBcd {
0x0f7b…0f9c ptr = 0x96e9 // 0xf7b @0x0
0x0f7b…0f9c lno = 0x1590 // 0xf7d @0x2
0x0f7b…0f9c at0004 = ╱92╱ PRINT ╱ // 0xf7f @0x4
0x0f7b…0f9c at0005 = ╱22╱"╱ // 0xf80 @0x5
0x0f7b…0f9c at0006 = ╱50╱P╱ // 0xf81 @0x6
0x0f7b…0f9c at0007 = ╱72╱r╱ // 0xf82 @0x7
0x0f7b…0f9c at0008 = ╱6f╱o╱ // 0xf83 @0x8
0x0f7b…0f9c at0009 = ╱67╱g╱ // 0xf84 @0x9
0x0f7b…0f9c at000a = ╱72╱r╱ // 0xf85 @0xa
0x0f7b…0f9c at000b = ╱61╱a╱ // 0xf86 @0xb
0x0f7b…0f9c at000c = ╱6d╱m╱ // 0xf87 @0xc
0x0f7b…0f9c at000d = ╱76╱v╱ // 0xf88 @0xd
0x0f7b…0f9c at000e = ╱61╱a╱ // 0xf89 @0xe
0x0f7b…0f9c at000f = ╱6c╱l╱ // 0xf8a @0xf
0x0f7b…0f9c at0010 = ╱67╱g╱ // 0xf8b @0x10
0x0f7b…0f9c at0011 = ╱2e╱.╱ // 0xf8c @0x11
0x0f7b…0f9c at0012 = ╱20╱…╱ // 0xf8d @0x12
0x0f7b…0f9c at0013 = ╱46╱F╱ // 0xf8e @0x13
0x0f7b…0f9c at0014 = ╱61╱a╱ // 0xf8f @0x14
0x0f7b…0f9c at0015 = ╱6b╱k╱ // 0xf90 @0x15
0x0f7b…0f9c at0016 = ╱74╱t╱ // 0xf91 @0x16
0x0f7b…0f9c at0017 = ╱75╱u╱ // 0xf92 @0x17
0x0f7b…0f9c at0018 = ╱72╱r╱ // 0xf93 @0x18
0x0f7b…0f9c at0019 = ╱65╱e╱ // 0xf94 @0x19
0x0f7b…0f9c at001a = ╱72╱r╱ // 0xf95 @0x1a
0x0f7b…0f9c at001b = ╱69╱i╱ // 0xf96 @0x1b
0x0f7b…0f9c at001c = ╱6e╱n╱ // 0xf97 @0x1c
0x0f7b…0f9c at001d = ╱67╱g╱ // 0xf98 @0x1d
0x0f7b…0f9c at001e = ╱2e╱.╱ // 0xf99 @0x1e
0x0f7b…0f9c at001f = ╱22╱"╱ // 0xf9a @0x1f
0x0f7b…0f9c at0020 = EOL // 0xf9b @0x20
0x0f7b…0f9c }
0x0f9c…0fb0 96fd 1600 CURSOR 11 , 4
0x0f9c…0fb0 LineComalBcd {
0x0f9c…0fb0 ptr = 0x96fd // 0xf9c @0x0
0x0f9c…0fb0 lno = 0x1600 // 0xf9e @0x2
0x0f9c…0fb0 at0004 = ╱a1╱ CURSOR ╱ // 0xfa0 @0x4
0x0f9c…0fb0 at0005 = ╱31╱1╱ // 0xfa1 @0x5
0x0f9c…0fb0 at0006 = ╱31╱1╱ // 0xfa2 @0x6
0x0f9c…0fb0 at0007 = ╱fe0000b004╱ // 0xfa3 @0x7
0x0f9c…0fb0 at000c = ╱ec╱ , ╱ // 0xfa8 @0xc
0x0f9c…0fb0 at000d = ╱34╱4╱ // 0xfa9 @0xd
0x0f9c…0fb0 at000e = ╱fe00008003╱ // 0xfaa @0xe
0x0f9c…0fb0 at0013 = EOL // 0xfaf @0x13
0x0f9c…0fb0 }
0x0fb0…0fc7 9714 1610 PRINT "1:…Fakturering."
0x0fb0…0fc7 LineComalBcd {
0x0fb0…0fc7 ptr = 0x9714 // 0xfb0 @0x0
0x0fb0…0fc7 lno = 0x1610 // 0xfb2 @0x2
0x0fb0…0fc7 at0004 = ╱92╱ PRINT ╱ // 0xfb4 @0x4
0x0fb0…0fc7 at0005 = ╱22╱"╱ // 0xfb5 @0x5
0x0fb0…0fc7 at0006 = ╱31╱1╱ // 0xfb6 @0x6
0x0fb0…0fc7 at0007 = ╱3a╱:╱ // 0xfb7 @0x7
0x0fb0…0fc7 at0008 = ╱20╱…╱ // 0xfb8 @0x8
0x0fb0…0fc7 at0009 = ╱46╱F╱ // 0xfb9 @0x9
0x0fb0…0fc7 at000a = ╱61╱a╱ // 0xfba @0xa
0x0fb0…0fc7 at000b = ╱6b╱k╱ // 0xfbb @0xb
0x0fb0…0fc7 at000c = ╱74╱t╱ // 0xfbc @0xc
0x0fb0…0fc7 at000d = ╱75╱u╱ // 0xfbd @0xd
0x0fb0…0fc7 at000e = ╱72╱r╱ // 0xfbe @0xe
0x0fb0…0fc7 at000f = ╱65╱e╱ // 0xfbf @0xf
0x0fb0…0fc7 at0010 = ╱72╱r╱ // 0xfc0 @0x10
0x0fb0…0fc7 at0011 = ╱69╱i╱ // 0xfc1 @0x11
0x0fb0…0fc7 at0012 = ╱6e╱n╱ // 0xfc2 @0x12
0x0fb0…0fc7 at0013 = ╱67╱g╱ // 0xfc3 @0x13
0x0fb0…0fc7 at0014 = ╱2e╱.╱ // 0xfc4 @0x14
0x0fb0…0fc7 at0015 = ╱22╱"╱ // 0xfc5 @0x15
0x0fb0…0fc7 at0016 = EOL // 0xfc6 @0x16
0x0fb0…0fc7 }
0x0fc7…0fdb 9728 1620 CURSOR 11 , 6
0x0fc7…0fdb LineComalBcd {
0x0fc7…0fdb ptr = 0x9728 // 0xfc7 @0x0
0x0fc7…0fdb lno = 0x1620 // 0xfc9 @0x2
0x0fc7…0fdb at0004 = ╱a1╱ CURSOR ╱ // 0xfcb @0x4
0x0fc7…0fdb at0005 = ╱31╱1╱ // 0xfcc @0x5
0x0fc7…0fdb at0006 = ╱31╱1╱ // 0xfcd @0x6
0x0fc7…0fdb at0007 = ╱fe0000b004╱ // 0xfce @0x7
0x0fc7…0fdb at000c = ╱ec╱ , ╱ // 0xfd3 @0xc
0x0fc7…0fdb at000d = ╱36╱6╱ // 0xfd4 @0xd
0x0fc7…0fdb at000e = ╱fe0000c003╱ // 0xfd5 @0xe
0x0fc7…0fdb at0013 = EOL // 0xfda @0x13
0x0fc7…0fdb }
0x0fdb…0fff 974c 1630 PRINT "2:…Udskrivning…af…fakturaer."
0x0fdb…0fff LineComalBcd {
0x0fdb…0fff ptr = 0x974c // 0xfdb @0x0
0x0fdb…0fff lno = 0x1630 // 0xfdd @0x2
0x0fdb…0fff at0004 = ╱92╱ PRINT ╱ // 0xfdf @0x4
0x0fdb…0fff at0005 = ╱22╱"╱ // 0xfe0 @0x5
0x0fdb…0fff at0006 = ╱32╱2╱ // 0xfe1 @0x6
0x0fdb…0fff at0007 = ╱3a╱:╱ // 0xfe2 @0x7
0x0fdb…0fff at0008 = ╱20╱…╱ // 0xfe3 @0x8
0x0fdb…0fff at0009 = ╱55╱U╱ // 0xfe4 @0x9
0x0fdb…0fff at000a = ╱64╱d╱ // 0xfe5 @0xa
0x0fdb…0fff at000b = ╱73╱s╱ // 0xfe6 @0xb
0x0fdb…0fff at000c = ╱6b╱k╱ // 0xfe7 @0xc
0x0fdb…0fff at000d = ╱72╱r╱ // 0xfe8 @0xd
0x0fdb…0fff at000e = ╱69╱i╱ // 0xfe9 @0xe
0x0fdb…0fff at000f = ╱76╱v╱ // 0xfea @0xf
0x0fdb…0fff at0010 = ╱6e╱n╱ // 0xfeb @0x10
0x0fdb…0fff at0011 = ╱69╱i╱ // 0xfec @0x11
0x0fdb…0fff at0012 = ╱6e╱n╱ // 0xfed @0x12
0x0fdb…0fff at0013 = ╱67╱g╱ // 0xfee @0x13
0x0fdb…0fff at0014 = ╱20╱…╱ // 0xfef @0x14
0x0fdb…0fff at0015 = ╱61╱a╱ // 0xff0 @0x15
0x0fdb…0fff at0016 = ╱66╱f╱ // 0xff1 @0x16
0x0fdb…0fff at0017 = ╱20╱…╱ // 0xff2 @0x17
0x0fdb…0fff at0018 = ╱66╱f╱ // 0xff3 @0x18
0x0fdb…0fff at0019 = ╱61╱a╱ // 0xff4 @0x19
0x0fdb…0fff at001a = ╱6b╱k╱ // 0xff5 @0x1a
0x0fdb…0fff at001b = ╱74╱t╱ // 0xff6 @0x1b
0x0fdb…0fff at001c = ╱75╱u╱ // 0xff7 @0x1c
0x0fdb…0fff at001d = ╱72╱r╱ // 0xff8 @0x1d
0x0fdb…0fff at001e = ╱61╱a╱ // 0xff9 @0x1e
0x0fdb…0fff at001f = ╱65╱e╱ // 0xffa @0x1f
0x0fdb…0fff at0020 = ╱72╱r╱ // 0xffb @0x20
0x0fdb…0fff at0021 = ╱2e╱.╱ // 0xffc @0x21
0x0fdb…0fff at0022 = ╱22╱"╱ // 0xffd @0x22
0x0fdb…0fff at0023 = EOL // 0xffe @0x23
0x0fdb…0fff }
0x0fff…1013 9760 1640 CURSOR 11 , 8
0x0fff…1013 LineComalBcd {
0x0fff…1013 ptr = 0x9760 // 0xfff @0x0
0x0fff…1013 lno = 0x1640 // 0x1001 @0x2
0x0fff…1013 at0004 = ╱a1╱ CURSOR ╱ // 0x1003 @0x4
0x0fff…1013 at0005 = ╱31╱1╱ // 0x1004 @0x5
0x0fff…1013 at0006 = ╱31╱1╱ // 0x1005 @0x6
0x0fff…1013 at0007 = ╱fe0000b004╱ // 0x1006 @0x7
0x0fff…1013 at000c = ╱ec╱ , ╱ // 0x100b @0xc
0x0fff…1013 at000d = ╱38╱8╱ // 0x100c @0xd
0x0fff…1013 at000e = ╱fe00008004╱ // 0x100d @0xe
0x0fff…1013 at0013 = EOL // 0x1012 @0x13
0x0fff…1013 }
0x1013…103c 9789 1650 PRINT "3:…Udskrivning…af…fakturajournal."
0x1013…103c LineComalBcd {
0x1013…103c ptr = 0x9789 // 0x1013 @0x0
0x1013…103c lno = 0x1650 // 0x1015 @0x2
0x1013…103c at0004 = ╱92╱ PRINT ╱ // 0x1017 @0x4
0x1013…103c at0005 = ╱22╱"╱ // 0x1018 @0x5
0x1013…103c at0006 = ╱33╱3╱ // 0x1019 @0x6
0x1013…103c at0007 = ╱3a╱:╱ // 0x101a @0x7
0x1013…103c at0008 = ╱20╱…╱ // 0x101b @0x8
0x1013…103c at0009 = ╱55╱U╱ // 0x101c @0x9
0x1013…103c at000a = ╱64╱d╱ // 0x101d @0xa
0x1013…103c at000b = ╱73╱s╱ // 0x101e @0xb
0x1013…103c at000c = ╱6b╱k╱ // 0x101f @0xc
0x1013…103c at000d = ╱72╱r╱ // 0x1020 @0xd
0x1013…103c at000e = ╱69╱i╱ // 0x1021 @0xe
0x1013…103c at000f = ╱76╱v╱ // 0x1022 @0xf
0x1013…103c at0010 = ╱6e╱n╱ // 0x1023 @0x10
0x1013…103c at0011 = ╱69╱i╱ // 0x1024 @0x11
0x1013…103c at0012 = ╱6e╱n╱ // 0x1025 @0x12
0x1013…103c at0013 = ╱67╱g╱ // 0x1026 @0x13
0x1013…103c at0014 = ╱20╱…╱ // 0x1027 @0x14
0x1013…103c at0015 = ╱61╱a╱ // 0x1028 @0x15
0x1013…103c at0016 = ╱66╱f╱ // 0x1029 @0x16
0x1013…103c at0017 = ╱20╱…╱ // 0x102a @0x17
0x1013…103c at0018 = ╱66╱f╱ // 0x102b @0x18
0x1013…103c at0019 = ╱61╱a╱ // 0x102c @0x19
0x1013…103c at001a = ╱6b╱k╱ // 0x102d @0x1a
0x1013…103c at001b = ╱74╱t╱ // 0x102e @0x1b
0x1013…103c at001c = ╱75╱u╱ // 0x102f @0x1c
0x1013…103c at001d = ╱72╱r╱ // 0x1030 @0x1d
0x1013…103c at001e = ╱61╱a╱ // 0x1031 @0x1e
0x1013…103c at001f = ╱6a╱j╱ // 0x1032 @0x1f
0x1013…103c at0020 = ╱6f╱o╱ // 0x1033 @0x20
0x1013…103c at0021 = ╱75╱u╱ // 0x1034 @0x21
0x1013…103c at0022 = ╱72╱r╱ // 0x1035 @0x22
0x1013…103c at0023 = ╱6e╱n╱ // 0x1036 @0x23
0x1013…103c at0024 = ╱61╱a╱ // 0x1037 @0x24
0x1013…103c at0025 = ╱6c╱l╱ // 0x1038 @0x25
0x1013…103c at0026 = ╱2e╱.╱ // 0x1039 @0x26
0x1013…103c at0027 = ╱22╱"╱ // 0x103a @0x27
0x1013…103c at0028 = EOL // 0x103b @0x28
0x1013…103c }
0x103c…1042 978f 1660 REPEAT
0x103c…1042 LineComalBcd {
0x103c…1042 ptr = 0x978f // 0x103c @0x0
0x103c…1042 lno = 0x1660 // 0x103e @0x2
0x103c…1042 at0004 = ╱97╱ REPEAT ╱ // 0x1040 @0x4
0x103c…1042 at0005 = EOL // 0x1041 @0x5
0x103c…1042 }
0x1042…1057 97a4 1670 CURSOR 11 , 11
0x1042…1057 LineComalBcd {
0x1042…1057 ptr = 0x97a4 // 0x1042 @0x0
0x1042…1057 lno = 0x1670 // 0x1044 @0x2
0x1042…1057 at0004 = ╱a1╱ CURSOR ╱ // 0x1046 @0x4
0x1042…1057 at0005 = ╱31╱1╱ // 0x1047 @0x5
0x1042…1057 at0006 = ╱31╱1╱ // 0x1048 @0x6
0x1042…1057 at0007 = ╱fe0000b004╱ // 0x1049 @0x7
0x1042…1057 at000c = ╱ec╱ , ╱ // 0x104e @0xc
0x1042…1057 at000d = ╱31╱1╱ // 0x104f @0xd
0x1042…1057 at000e = ╱31╱1╱ // 0x1050 @0xe
0x1042…1057 at000f = ╱fe0000b004╱ // 0x1051 @0xf
0x1042…1057 at0014 = EOL // 0x1056 @0x14
0x1042…1057 }
0x1057…106f 97bc 1680 INPUT "V{lg…1-3:" , SVAR2 $
0x1057…106f LineComalBcd {
0x1057…106f ptr = 0x97bc // 0x1057 @0x0
0x1057…106f lno = 0x1680 // 0x1059 @0x2
0x1057…106f at0004 = ╱91╱ INPUT ╱ // 0x105b @0x4
0x1057…106f at0005 = ╱22╱"╱ // 0x105c @0x5
0x1057…106f at0006 = ╱56╱V╱ // 0x105d @0x6
0x1057…106f at0007 = ╱7b╱{╱ // 0x105e @0x7
0x1057…106f at0008 = ╱6c╱l╱ // 0x105f @0x8
0x1057…106f at0009 = ╱67╱g╱ // 0x1060 @0x9
0x1057…106f at000a = ╱20╱…╱ // 0x1061 @0xa
0x1057…106f at000b = ╱31╱1╱ // 0x1062 @0xb
0x1057…106f at000c = ╱2d╱-╱ // 0x1063 @0xc
0x1057…106f at000d = ╱33╱3╱ // 0x1064 @0xd
0x1057…106f at000e = ╱3a╱:╱ // 0x1065 @0xe
0x1057…106f at000f = ╱22╱"╱ // 0x1066 @0xf
0x1057…106f at0010 = ╱ec╱ , ╱ // 0x1067 @0x10
0x1057…106f at0011 = ╱53╱S╱ // 0x1068 @0x11
0x1057…106f at0012 = ╱56╱V╱ // 0x1069 @0x12
0x1057…106f at0013 = ╱41╱A╱ // 0x106a @0x13
0x1057…106f at0014 = ╱52╱R╱ // 0x106b @0x14
0x1057…106f at0015 = ╱32╱2╱ // 0x106c @0x15
0x1057…106f at0016 = ╱ef╱ $ ╱ // 0x106d @0x16
0x1057…106f at0017 = EOL // 0x106e @0x17
0x1057…106f }
0x106f…108a 97d7 1690 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "3"
0x106f…108a LineComalBcd {
0x106f…108a ptr = 0x97d7 // 0x106f @0x0
0x106f…108a lno = 0x1690 // 0x1071 @0x2
0x106f…108a at0004 = ╱98╱ UNTIL ╱ // 0x1073 @0x4
0x106f…108a at0005 = ╱53╱S╱ // 0x1074 @0x5
0x106f…108a at0006 = ╱56╱V╱ // 0x1075 @0x6
0x106f…108a at0007 = ╱41╱A╱ // 0x1076 @0x7
0x106f…108a at0008 = ╱52╱R╱ // 0x1077 @0x8
0x106f…108a at0009 = ╱32╱2╱ // 0x1078 @0x9
0x106f…108a at000a = ╱ef╱ $ ╱ // 0x1079 @0xa
0x106f…108a at000b = ╱e0╱ >= ╱ // 0x107a @0xb
0x106f…108a at000c = ╱22╱"╱ // 0x107b @0xc
0x106f…108a at000d = ╱30╱0╱ // 0x107c @0xd
0x106f…108a at000e = ╱22╱"╱ // 0x107d @0xe
0x106f…108a at000f = ╱da╱ AND ╱ // 0x107e @0xf
0x106f…108a at0010 = ╱53╱S╱ // 0x107f @0x10
0x106f…108a at0011 = ╱56╱V╱ // 0x1080 @0x11
0x106f…108a at0012 = ╱41╱A╱ // 0x1081 @0x12
0x106f…108a at0013 = ╱52╱R╱ // 0x1082 @0x13
0x106f…108a at0014 = ╱32╱2╱ // 0x1083 @0x14
0x106f…108a at0015 = ╱ef╱ $ ╱ // 0x1084 @0x15
0x106f…108a at0016 = ╱df╱ =< ╱ // 0x1085 @0x16
0x106f…108a at0017 = ╱22╱"╱ // 0x1086 @0x17
0x106f…108a at0018 = ╱33╱3╱ // 0x1087 @0x18
0x106f…108a at0019 = ╱22╱"╱ // 0x1088 @0x19
0x106f…108a at001a = EOL // 0x1089 @0x1a
0x106f…108a }
0x108a…109f 97ec 1700 CURSOR 21 , 11
0x108a…109f LineComalBcd {
0x108a…109f ptr = 0x97ec // 0x108a @0x0
0x108a…109f lno = 0x1700 // 0x108c @0x2
0x108a…109f at0004 = ╱a1╱ CURSOR ╱ // 0x108e @0x4
0x108a…109f at0005 = ╱32╱2╱ // 0x108f @0x5
0x108a…109f at0006 = ╱31╱1╱ // 0x1090 @0x6
0x108a…109f at0007 = ╱fe0000a805╱ // 0x1091 @0x7
0x108a…109f at000c = ╱ec╱ , ╱ // 0x1096 @0xc
0x108a…109f at000d = ╱31╱1╱ // 0x1097 @0xd
0x108a…109f at000e = ╱31╱1╱ // 0x1098 @0xe
0x108a…109f at000f = ╱fe0000b004╱ // 0x1099 @0xf
0x108a…109f at0014 = EOL // 0x109e @0x14
0x108a…109f }
0x109f…10ad 97fa 1710 CASE SVAR2 $ OF
0x109f…10ad LineComalBcd {
0x109f…10ad ptr = 0x97fa // 0x109f @0x0
0x109f…10ad lno = 0x1710 // 0x10a1 @0x2
0x109f…10ad at0004 = ╱a200╱ CASE ╱ // 0x10a3 @0x4
0x109f…10ad at0006 = ╱53╱S╱ // 0x10a5 @0x6
0x109f…10ad at0007 = ╱56╱V╱ // 0x10a6 @0x7
0x109f…10ad at0008 = ╱41╱A╱ // 0x10a7 @0x8
0x109f…10ad at0009 = ╱52╱R╱ // 0x10a8 @0x9
0x109f…10ad at000a = ╱32╱2╱ // 0x10a9 @0xa
0x109f…10ad at000b = ╱ef╱ $ ╱ // 0x10aa @0xb
0x109f…10ad at000c = ╱ba╱ OF ╱ // 0x10ab @0xc
0x109f…10ad at000d = EOL // 0x10ac @0xd
0x109f…10ad }
0x10ad…10be 980b 1720 FEJL1 = 1
0x10ad…10be LineComalBcd {
0x10ad…10be ptr = 0x980b // 0x10ad @0x0
0x10ad…10be lno = 0x1720 // 0x10af @0x2
0x10ad…10be at0004 = ╱46╱F╱ // 0x10b1 @0x4
0x10ad…10be at0005 = ╱45╱E╱ // 0x10b2 @0x5
0x10ad…10be at0006 = ╱4a╱J╱ // 0x10b3 @0x6
0x10ad…10be at0007 = ╱4c╱L╱ // 0x10b4 @0x7
0x10ad…10be at0008 = ╱31╱1╱ // 0x10b5 @0x8
0x10ad…10be at0009 = ╱dc╱ = ╱ // 0x10b6 @0x9
0x10ad…10be at000a = ╱31╱1╱ // 0x10b7 @0xa
0x10ad…10be at000b = ╱fe00008001╱ // 0x10b8 @0xb
0x10ad…10be at0010 = EOL // 0x10bd @0x10
0x10ad…10be }
0x10be…10c8 9815 1730 WHEN "1"
0x10be…10c8 LineComalBcd {
0x10be…10c8 ptr = 0x9815 // 0x10be @0x0
0x10be…10c8 lno = 0x1730 // 0x10c0 @0x2
0x10be…10c8 at0004 = ╱a300╱ WHEN ╱ // 0x10c2 @0x4
0x10be…10c8 at0006 = ╱22╱"╱ // 0x10c4 @0x6
0x10be…10c8 at0007 = ╱31╱1╱ // 0x10c5 @0x7
0x10be…10c8 at0008 = ╱22╱"╱ // 0x10c6 @0x8
0x10be…10c8 at0009 = EOL // 0x10c7 @0x9
0x10be…10c8 }
0x10c8…10f6 9843 1740 IF T1 ( 4 ) < MFAK * 20 OR T1 ( 8 ) < MFAK THEN
0x10c8…10f6 LineComalBcd {
0x10c8…10f6 ptr = 0x9843 // 0x10c8 @0x0
0x10c8…10f6 lno = 0x1740 // 0x10ca @0x2
0x10c8…10f6 at0004 = ╱9c╱ IF ╱ // 0x10cc @0x4
0x10c8…10f6 at0005 = ╱54╱T╱ // 0x10cd @0x5
0x10c8…10f6 at0006 = ╱31╱1╱ // 0x10ce @0x6
0x10c8…10f6 at0007 = ╱ed╱ ( ╱ // 0x10cf @0x7
0x10c8…10f6 at0008 = ╱34╱4╱ // 0x10d0 @0x8
0x10c8…10f6 at0009 = ╱fe00008003╱ // 0x10d1 @0x9
0x10c8…10f6 at000e = ╱ee╱ ) ╱ // 0x10d6 @0xe
0x10c8…10f6 at000f = ╱dd╱ < ╱ // 0x10d7 @0xf
0x10c8…10f6 at0010 = ╱4d╱M╱ // 0x10d8 @0x10
0x10c8…10f6 at0011 = ╱46╱F╱ // 0x10d9 @0x11
0x10c8…10f6 at0012 = ╱41╱A╱ // 0x10da @0x12
0x10c8…10f6 at0013 = ╱4b╱K╱ // 0x10db @0x13
0x10c8…10f6 at0014 = ╱e4╱ * ╱ // 0x10dc @0x14
0x10c8…10f6 at0015 = ╱32╱2╱ // 0x10dd @0x15
0x10c8…10f6 at0016 = ╱30╱0╱ // 0x10de @0x16
0x10c8…10f6 at0017 = ╱fe0000a005╱ // 0x10df @0x17
0x10c8…10f6 at001c = ╱db╱ OR ╱ // 0x10e4 @0x1c
0x10c8…10f6 at001d = ╱54╱T╱ // 0x10e5 @0x1d
0x10c8…10f6 at001e = ╱31╱1╱ // 0x10e6 @0x1e
0x10c8…10f6 at001f = ╱ed╱ ( ╱ // 0x10e7 @0x1f
0x10c8…10f6 at0020 = ╱38╱8╱ // 0x10e8 @0x20
0x10c8…10f6 at0021 = ╱fe00008004╱ // 0x10e9 @0x21
0x10c8…10f6 at0026 = ╱ee╱ ) ╱ // 0x10ee @0x26
0x10c8…10f6 at0027 = ╱dd╱ < ╱ // 0x10ef @0x27
0x10c8…10f6 at0028 = ╱4d╱M╱ // 0x10f0 @0x28
0x10c8…10f6 at0029 = ╱46╱F╱ // 0x10f1 @0x29
0x10c8…10f6 at002a = ╱41╱A╱ // 0x10f2 @0x2a
0x10c8…10f6 at002b = ╱4b╱K╱ // 0x10f3 @0x2b
0x10c8…10f6 at002c = ╱b6╱ THEN ╱ // 0x10f4 @0x2c
0x10c8…10f6 at002d = EOL // 0x10f5 @0x2d
0x10c8…10f6 }
0x10f6…111e 986b 1750 TEK $ = "Fakturering." ; B $ = A $ + "FAKTURA"
0x10f6…111e LineComalBcd {
0x10f6…111e ptr = 0x986b // 0x10f6 @0x0
0x10f6…111e lno = 0x1750 // 0x10f8 @0x2
0x10f6…111e at0004 = ╱54╱T╱ // 0x10fa @0x4
0x10f6…111e at0005 = ╱45╱E╱ // 0x10fb @0x5
0x10f6…111e at0006 = ╱4b╱K╱ // 0x10fc @0x6
0x10f6…111e at0007 = ╱ef╱ $ ╱ // 0x10fd @0x7
0x10f6…111e at0008 = ╱dc╱ = ╱ // 0x10fe @0x8
0x10f6…111e at0009 = ╱22╱"╱ // 0x10ff @0x9
0x10f6…111e at000a = ╱46╱F╱ // 0x1100 @0xa
0x10f6…111e at000b = ╱61╱a╱ // 0x1101 @0xb
0x10f6…111e at000c = ╱6b╱k╱ // 0x1102 @0xc
0x10f6…111e at000d = ╱74╱t╱ // 0x1103 @0xd
0x10f6…111e at000e = ╱75╱u╱ // 0x1104 @0xe
0x10f6…111e at000f = ╱72╱r╱ // 0x1105 @0xf
0x10f6…111e at0010 = ╱65╱e╱ // 0x1106 @0x10
0x10f6…111e at0011 = ╱72╱r╱ // 0x1107 @0x11
0x10f6…111e at0012 = ╱69╱i╱ // 0x1108 @0x12
0x10f6…111e at0013 = ╱6e╱n╱ // 0x1109 @0x13
0x10f6…111e at0014 = ╱67╱g╱ // 0x110a @0x14
0x10f6…111e at0015 = ╱2e╱.╱ // 0x110b @0x15
0x10f6…111e at0016 = ╱22╱"╱ // 0x110c @0x16
0x10f6…111e at0017 = ╱eb╱ ; ╱ // 0x110d @0x17
0x10f6…111e at0018 = ╱42╱B╱ // 0x110e @0x18
0x10f6…111e at0019 = ╱ef╱ $ ╱ // 0x110f @0x19
0x10f6…111e at001a = ╱dc╱ = ╱ // 0x1110 @0x1a
0x10f6…111e at001b = ╱41╱A╱ // 0x1111 @0x1b
0x10f6…111e at001c = ╱ef╱ $ ╱ // 0x1112 @0x1c
0x10f6…111e at001d = ╱f1╱ + ╱ // 0x1113 @0x1d
0x10f6…111e at001e = ╱22╱"╱ // 0x1114 @0x1e
0x10f6…111e at001f = ╱46╱F╱ // 0x1115 @0x1f
0x10f6…111e at0020 = ╱41╱A╱ // 0x1116 @0x20
0x10f6…111e at0021 = ╱4b╱K╱ // 0x1117 @0x21
0x10f6…111e at0022 = ╱54╱T╱ // 0x1118 @0x22
0x10f6…111e at0023 = ╱55╱U╱ // 0x1119 @0x23
0x10f6…111e at0024 = ╱52╱R╱ // 0x111a @0x24
0x10f6…111e at0025 = ╱41╱A╱ // 0x111b @0x25
0x10f6…111e at0026 = ╱22╱"╱ // 0x111c @0x26
0x10f6…111e at0027 = EOL // 0x111d @0x27
0x10f6…111e }
0x111e…1124 9871 1760 ELSE
0x111e…1124 LineComalBcd {
0x111e…1124 ptr = 0x9871 // 0x111e @0x0
0x111e…1124 lno = 0x1760 // 0x1120 @0x2
0x111e…1124 at0004 = ╱9a╱ ELSE ╱ // 0x1122 @0x4
0x111e…1124 at0005 = EOL // 0x1123 @0x5
0x111e…1124 }
0x1124…1152 989f 1770 PRINT "Der…er…ikke…plads…til…flere…fakturaer."
0x1124…1152 LineComalBcd {
0x1124…1152 ptr = 0x989f // 0x1124 @0x0
0x1124…1152 lno = 0x1770 // 0x1126 @0x2
0x1124…1152 at0004 = ╱92╱ PRINT ╱ // 0x1128 @0x4
0x1124…1152 at0005 = ╱22╱"╱ // 0x1129 @0x5
0x1124…1152 at0006 = ╱44╱D╱ // 0x112a @0x6
0x1124…1152 at0007 = ╱65╱e╱ // 0x112b @0x7
0x1124…1152 at0008 = ╱72╱r╱ // 0x112c @0x8
0x1124…1152 at0009 = ╱20╱…╱ // 0x112d @0x9
0x1124…1152 at000a = ╱65╱e╱ // 0x112e @0xa
0x1124…1152 at000b = ╱72╱r╱ // 0x112f @0xb
0x1124…1152 at000c = ╱20╱…╱ // 0x1130 @0xc
0x1124…1152 at000d = ╱69╱i╱ // 0x1131 @0xd
0x1124…1152 at000e = ╱6b╱k╱ // 0x1132 @0xe
0x1124…1152 at000f = ╱6b╱k╱ // 0x1133 @0xf
0x1124…1152 at0010 = ╱65╱e╱ // 0x1134 @0x10
0x1124…1152 at0011 = ╱20╱…╱ // 0x1135 @0x11
0x1124…1152 at0012 = ╱70╱p╱ // 0x1136 @0x12
0x1124…1152 at0013 = ╱6c╱l╱ // 0x1137 @0x13
0x1124…1152 at0014 = ╱61╱a╱ // 0x1138 @0x14
0x1124…1152 at0015 = ╱64╱d╱ // 0x1139 @0x15
0x1124…1152 at0016 = ╱73╱s╱ // 0x113a @0x16
0x1124…1152 at0017 = ╱20╱…╱ // 0x113b @0x17
0x1124…1152 at0018 = ╱74╱t╱ // 0x113c @0x18
0x1124…1152 at0019 = ╱69╱i╱ // 0x113d @0x19
0x1124…1152 at001a = ╱6c╱l╱ // 0x113e @0x1a
0x1124…1152 at001b = ╱20╱…╱ // 0x113f @0x1b
0x1124…1152 at001c = ╱66╱f╱ // 0x1140 @0x1c
0x1124…1152 at001d = ╱6c╱l╱ // 0x1141 @0x1d
0x1124…1152 at001e = ╱65╱e╱ // 0x1142 @0x1e
0x1124…1152 at001f = ╱72╱r╱ // 0x1143 @0x1f
0x1124…1152 at0020 = ╱65╱e╱ // 0x1144 @0x20
0x1124…1152 at0021 = ╱20╱…╱ // 0x1145 @0x21
0x1124…1152 at0022 = ╱66╱f╱ // 0x1146 @0x22
0x1124…1152 at0023 = ╱61╱a╱ // 0x1147 @0x23
0x1124…1152 at0024 = ╱6b╱k╱ // 0x1148 @0x24
0x1124…1152 at0025 = ╱74╱t╱ // 0x1149 @0x25
0x1124…1152 at0026 = ╱75╱u╱ // 0x114a @0x26
0x1124…1152 at0027 = ╱72╱r╱ // 0x114b @0x27
0x1124…1152 at0028 = ╱61╱a╱ // 0x114c @0x28
0x1124…1152 at0029 = ╱65╱e╱ // 0x114d @0x29
0x1124…1152 at002a = ╱72╱r╱ // 0x114e @0x2a
0x1124…1152 at002b = ╱2e╱.╱ // 0x114f @0x2b
0x1124…1152 at002c = ╱22╱"╱ // 0x1150 @0x2c
0x1124…1152 at002d = EOL // 0x1151 @0x2d
0x1124…1152 }
0x1152…1163 98b0 1780 FEJL1 = 1
0x1152…1163 LineComalBcd {
0x1152…1163 ptr = 0x98b0 // 0x1152 @0x0
0x1152…1163 lno = 0x1780 // 0x1154 @0x2
0x1152…1163 at0004 = ╱46╱F╱ // 0x1156 @0x4
0x1152…1163 at0005 = ╱45╱E╱ // 0x1157 @0x5
0x1152…1163 at0006 = ╱4a╱J╱ // 0x1158 @0x6
0x1152…1163 at0007 = ╱4c╱L╱ // 0x1159 @0x7
0x1152…1163 at0008 = ╱31╱1╱ // 0x115a @0x8
0x1152…1163 at0009 = ╱dc╱ = ╱ // 0x115b @0x9
0x1152…1163 at000a = ╱31╱1╱ // 0x115c @0xa
0x1152…1163 at000b = ╱fe00008001╱ // 0x115d @0xb
0x1152…1163 at0010 = EOL // 0x1162 @0x10
0x1152…1163 }
0x1163…1169 98b6 1790 ENDIF
0x1163…1169 LineComalBcd {
0x1163…1169 ptr = 0x98b6 // 0x1163 @0x0
0x1163…1169 lno = 0x1790 // 0x1165 @0x2
0x1163…1169 at0004 = ╱9b╱ ENDIF ╱ // 0x1167 @0x4
0x1163…1169 at0005 = EOL // 0x1168 @0x5
0x1163…1169 }
0x1169…1173 98c0 1800 WHEN "2"
0x1169…1173 LineComalBcd {
0x1169…1173 ptr = 0x98c0 // 0x1169 @0x0
0x1169…1173 lno = 0x1800 // 0x116b @0x2
0x1169…1173 at0004 = ╱a300╱ WHEN ╱ // 0x116d @0x4
0x1169…1173 at0006 = ╱22╱"╱ // 0x116f @0x6
0x1169…1173 at0007 = ╱32╱2╱ // 0x1170 @0x7
0x1169…1173 at0008 = ╱22╱"╱ // 0x1171 @0x8
0x1169…1173 at0009 = EOL // 0x1172 @0x9
0x1169…1173 }
0x1173…118b 98d8 1810 IF T1 ( 4 ) > 0 THEN
0x1173…118b LineComalBcd {
0x1173…118b ptr = 0x98d8 // 0x1173 @0x0
0x1173…118b lno = 0x1810 // 0x1175 @0x2
0x1173…118b at0004 = ╱9c╱ IF ╱ // 0x1177 @0x4
0x1173…118b at0005 = ╱54╱T╱ // 0x1178 @0x5
0x1173…118b at0006 = ╱31╱1╱ // 0x1179 @0x6
0x1173…118b at0007 = ╱ed╱ ( ╱ // 0x117a @0x7
0x1173…118b at0008 = ╱34╱4╱ // 0x117b @0x8
0x1173…118b at0009 = ╱fe00008003╱ // 0x117c @0x9
0x1173…118b at000e = ╱ee╱ ) ╱ // 0x1181 @0xe
0x1173…118b at000f = ╱de╱ > ╱ // 0x1182 @0xf
0x1173…118b at0010 = ╱30╱0╱ // 0x1183 @0x10
0x1173…118b at0011 = ╱fe00000000╱ // 0x1184 @0x11
0x1173…118b at0016 = ╱b6╱ THEN ╱ // 0x1189 @0x16
0x1173…118b at0017 = EOL // 0x118a @0x17
0x1173…118b }
0x118b…11be 990b 1820 TEK $ = "Udskrivning…af…fakturaer." ; B $ = A $ + "FAKUD"
0x118b…11be LineComalBcd {
0x118b…11be ptr = 0x990b // 0x118b @0x0
0x118b…11be lno = 0x1820 // 0x118d @0x2
0x118b…11be at0004 = ╱54╱T╱ // 0x118f @0x4
0x118b…11be at0005 = ╱45╱E╱ // 0x1190 @0x5
0x118b…11be at0006 = ╱4b╱K╱ // 0x1191 @0x6
0x118b…11be at0007 = ╱ef╱ $ ╱ // 0x1192 @0x7
0x118b…11be at0008 = ╱dc╱ = ╱ // 0x1193 @0x8
0x118b…11be at0009 = ╱22╱"╱ // 0x1194 @0x9
0x118b…11be at000a = ╱55╱U╱ // 0x1195 @0xa
0x118b…11be at000b = ╱64╱d╱ // 0x1196 @0xb
0x118b…11be at000c = ╱73╱s╱ // 0x1197 @0xc
0x118b…11be at000d = ╱6b╱k╱ // 0x1198 @0xd
0x118b…11be at000e = ╱72╱r╱ // 0x1199 @0xe
0x118b…11be at000f = ╱69╱i╱ // 0x119a @0xf
0x118b…11be at0010 = ╱76╱v╱ // 0x119b @0x10
0x118b…11be at0011 = ╱6e╱n╱ // 0x119c @0x11
0x118b…11be at0012 = ╱69╱i╱ // 0x119d @0x12
0x118b…11be at0013 = ╱6e╱n╱ // 0x119e @0x13
0x118b…11be at0014 = ╱67╱g╱ // 0x119f @0x14
0x118b…11be at0015 = ╱20╱…╱ // 0x11a0 @0x15
0x118b…11be at0016 = ╱61╱a╱ // 0x11a1 @0x16
0x118b…11be at0017 = ╱66╱f╱ // 0x11a2 @0x17
0x118b…11be at0018 = ╱20╱…╱ // 0x11a3 @0x18
0x118b…11be at0019 = ╱66╱f╱ // 0x11a4 @0x19
0x118b…11be at001a = ╱61╱a╱ // 0x11a5 @0x1a
0x118b…11be at001b = ╱6b╱k╱ // 0x11a6 @0x1b
0x118b…11be at001c = ╱74╱t╱ // 0x11a7 @0x1c
0x118b…11be at001d = ╱75╱u╱ // 0x11a8 @0x1d
0x118b…11be at001e = ╱72╱r╱ // 0x11a9 @0x1e
0x118b…11be at001f = ╱61╱a╱ // 0x11aa @0x1f
0x118b…11be at0020 = ╱65╱e╱ // 0x11ab @0x20
0x118b…11be at0021 = ╱72╱r╱ // 0x11ac @0x21
0x118b…11be at0022 = ╱2e╱.╱ // 0x11ad @0x22
0x118b…11be at0023 = ╱22╱"╱ // 0x11ae @0x23
0x118b…11be at0024 = ╱eb╱ ; ╱ // 0x11af @0x24
0x118b…11be at0025 = ╱42╱B╱ // 0x11b0 @0x25
0x118b…11be at0026 = ╱ef╱ $ ╱ // 0x11b1 @0x26
0x118b…11be at0027 = ╱dc╱ = ╱ // 0x11b2 @0x27
0x118b…11be at0028 = ╱41╱A╱ // 0x11b3 @0x28
0x118b…11be at0029 = ╱ef╱ $ ╱ // 0x11b4 @0x29
0x118b…11be at002a = ╱f1╱ + ╱ // 0x11b5 @0x2a
0x118b…11be at002b = ╱22╱"╱ // 0x11b6 @0x2b
0x118b…11be at002c = ╱46╱F╱ // 0x11b7 @0x2c
0x118b…11be at002d = ╱41╱A╱ // 0x11b8 @0x2d
0x118b…11be at002e = ╱4b╱K╱ // 0x11b9 @0x2e
0x118b…11be at002f = ╱55╱U╱ // 0x11ba @0x2f
0x118b…11be at0030 = ╱44╱D╱ // 0x11bb @0x30
0x118b…11be at0031 = ╱22╱"╱ // 0x11bc @0x31
0x118b…11be at0032 = EOL // 0x11bd @0x32
0x118b…11be }
0x11be…11c4 9911 1830 ELSE
0x11be…11c4 LineComalBcd {
0x11be…11c4 ptr = 0x9911 // 0x11be @0x0
0x11be…11c4 lno = 0x1830 // 0x11c0 @0x2
0x11be…11c4 at0004 = ╱9a╱ ELSE ╱ // 0x11c2 @0x4
0x11be…11c4 at0005 = EOL // 0x11c3 @0x5
0x11be…11c4 }
0x11c4…11f1 993e 1840 PRINT "Der…ikke…nogle…fakturaer…at…udskrive."
0x11c4…11f1 LineComalBcd {
0x11c4…11f1 ptr = 0x993e // 0x11c4 @0x0
0x11c4…11f1 lno = 0x1840 // 0x11c6 @0x2
0x11c4…11f1 at0004 = ╱92╱ PRINT ╱ // 0x11c8 @0x4
0x11c4…11f1 at0005 = ╱22╱"╱ // 0x11c9 @0x5
0x11c4…11f1 at0006 = ╱44╱D╱ // 0x11ca @0x6
0x11c4…11f1 at0007 = ╱65╱e╱ // 0x11cb @0x7
0x11c4…11f1 at0008 = ╱72╱r╱ // 0x11cc @0x8
0x11c4…11f1 at0009 = ╱20╱…╱ // 0x11cd @0x9
0x11c4…11f1 at000a = ╱69╱i╱ // 0x11ce @0xa
0x11c4…11f1 at000b = ╱6b╱k╱ // 0x11cf @0xb
0x11c4…11f1 at000c = ╱6b╱k╱ // 0x11d0 @0xc
0x11c4…11f1 at000d = ╱65╱e╱ // 0x11d1 @0xd
0x11c4…11f1 at000e = ╱20╱…╱ // 0x11d2 @0xe
0x11c4…11f1 at000f = ╱6e╱n╱ // 0x11d3 @0xf
0x11c4…11f1 at0010 = ╱6f╱o╱ // 0x11d4 @0x10
0x11c4…11f1 at0011 = ╱67╱g╱ // 0x11d5 @0x11
0x11c4…11f1 at0012 = ╱6c╱l╱ // 0x11d6 @0x12
0x11c4…11f1 at0013 = ╱65╱e╱ // 0x11d7 @0x13
0x11c4…11f1 at0014 = ╱20╱…╱ // 0x11d8 @0x14
0x11c4…11f1 at0015 = ╱66╱f╱ // 0x11d9 @0x15
0x11c4…11f1 at0016 = ╱61╱a╱ // 0x11da @0x16
0x11c4…11f1 at0017 = ╱6b╱k╱ // 0x11db @0x17
0x11c4…11f1 at0018 = ╱74╱t╱ // 0x11dc @0x18
0x11c4…11f1 at0019 = ╱75╱u╱ // 0x11dd @0x19
0x11c4…11f1 at001a = ╱72╱r╱ // 0x11de @0x1a
0x11c4…11f1 at001b = ╱61╱a╱ // 0x11df @0x1b
0x11c4…11f1 at001c = ╱65╱e╱ // 0x11e0 @0x1c
0x11c4…11f1 at001d = ╱72╱r╱ // 0x11e1 @0x1d
0x11c4…11f1 at001e = ╱20╱…╱ // 0x11e2 @0x1e
0x11c4…11f1 at001f = ╱61╱a╱ // 0x11e3 @0x1f
0x11c4…11f1 at0020 = ╱74╱t╱ // 0x11e4 @0x20
0x11c4…11f1 at0021 = ╱20╱…╱ // 0x11e5 @0x21
0x11c4…11f1 at0022 = ╱75╱u╱ // 0x11e6 @0x22
0x11c4…11f1 at0023 = ╱64╱d╱ // 0x11e7 @0x23
0x11c4…11f1 at0024 = ╱73╱s╱ // 0x11e8 @0x24
0x11c4…11f1 at0025 = ╱6b╱k╱ // 0x11e9 @0x25
0x11c4…11f1 at0026 = ╱72╱r╱ // 0x11ea @0x26
0x11c4…11f1 at0027 = ╱69╱i╱ // 0x11eb @0x27
0x11c4…11f1 at0028 = ╱76╱v╱ // 0x11ec @0x28
0x11c4…11f1 at0029 = ╱65╱e╱ // 0x11ed @0x29
0x11c4…11f1 at002a = ╱2e╱.╱ // 0x11ee @0x2a
0x11c4…11f1 at002b = ╱22╱"╱ // 0x11ef @0x2b
0x11c4…11f1 at002c = EOL // 0x11f0 @0x2c
0x11c4…11f1 }
0x11f1…1202 994f 1850 FEJL1 = 1
0x11f1…1202 LineComalBcd {
0x11f1…1202 ptr = 0x994f // 0x11f1 @0x0
0x11f1…1202 lno = 0x1850 // 0x11f3 @0x2
0x11f1…1202 at0004 = ╱46╱F╱ // 0x11f5 @0x4
0x11f1…1202 at0005 = ╱45╱E╱ // 0x11f6 @0x5
0x11f1…1202 at0006 = ╱4a╱J╱ // 0x11f7 @0x6
0x11f1…1202 at0007 = ╱4c╱L╱ // 0x11f8 @0x7
0x11f1…1202 at0008 = ╱31╱1╱ // 0x11f9 @0x8
0x11f1…1202 at0009 = ╱dc╱ = ╱ // 0x11fa @0x9
0x11f1…1202 at000a = ╱31╱1╱ // 0x11fb @0xa
0x11f1…1202 at000b = ╱fe00008001╱ // 0x11fc @0xb
0x11f1…1202 at0010 = EOL // 0x1201 @0x10
0x11f1…1202 }
0x1202…1208 9955 1860 ENDIF
0x1202…1208 LineComalBcd {
0x1202…1208 ptr = 0x9955 // 0x1202 @0x0
0x1202…1208 lno = 0x1860 // 0x1204 @0x2
0x1202…1208 at0004 = ╱9b╱ ENDIF ╱ // 0x1206 @0x4
0x1202…1208 at0005 = EOL // 0x1207 @0x5
0x1202…1208 }
0x1208…1212 995f 1870 WHEN "3"
0x1208…1212 LineComalBcd {
0x1208…1212 ptr = 0x995f // 0x1208 @0x0
0x1208…1212 lno = 0x1870 // 0x120a @0x2
0x1208…1212 at0004 = ╱a300╱ WHEN ╱ // 0x120c @0x4
0x1208…1212 at0006 = ╱22╱"╱ // 0x120e @0x6
0x1208…1212 at0007 = ╱33╱3╱ // 0x120f @0x7
0x1208…1212 at0008 = ╱22╱"╱ // 0x1210 @0x8
0x1208…1212 at0009 = EOL // 0x1211 @0x9
0x1208…1212 }
0x1212…122a 9977 1880 IF T1 ( 7 ) > 0 THEN
0x1212…122a LineComalBcd {
0x1212…122a ptr = 0x9977 // 0x1212 @0x0
0x1212…122a lno = 0x1880 // 0x1214 @0x2
0x1212…122a at0004 = ╱9c╱ IF ╱ // 0x1216 @0x4
0x1212…122a at0005 = ╱54╱T╱ // 0x1217 @0x5
0x1212…122a at0006 = ╱31╱1╱ // 0x1218 @0x6
0x1212…122a at0007 = ╱ed╱ ( ╱ // 0x1219 @0x7
0x1212…122a at0008 = ╱37╱7╱ // 0x121a @0x8
0x1212…122a at0009 = ╱fe0000e003╱ // 0x121b @0x9
0x1212…122a at000e = ╱ee╱ ) ╱ // 0x1220 @0xe
0x1212…122a at000f = ╱de╱ > ╱ // 0x1221 @0xf
0x1212…122a at0010 = ╱30╱0╱ // 0x1222 @0x10
0x1212…122a at0011 = ╱fe00000000╱ // 0x1223 @0x11
0x1212…122a at0016 = ╱b6╱ THEN ╱ // 0x1228 @0x16
0x1212…122a at0017 = EOL // 0x1229 @0x17
0x1212…122a }
0x122a…1253 99a0 1890 TEK $ = "Fakturajournal." ; B $ = A $ + "FJOUR"
0x122a…1253 LineComalBcd {
0x122a…1253 ptr = 0x99a0 // 0x122a @0x0
0x122a…1253 lno = 0x1890 // 0x122c @0x2
0x122a…1253 at0004 = ╱54╱T╱ // 0x122e @0x4
0x122a…1253 at0005 = ╱45╱E╱ // 0x122f @0x5
0x122a…1253 at0006 = ╱4b╱K╱ // 0x1230 @0x6
0x122a…1253 at0007 = ╱ef╱ $ ╱ // 0x1231 @0x7
0x122a…1253 at0008 = ╱dc╱ = ╱ // 0x1232 @0x8
0x122a…1253 at0009 = ╱22╱"╱ // 0x1233 @0x9
0x122a…1253 at000a = ╱46╱F╱ // 0x1234 @0xa
0x122a…1253 at000b = ╱61╱a╱ // 0x1235 @0xb
0x122a…1253 at000c = ╱6b╱k╱ // 0x1236 @0xc
0x122a…1253 at000d = ╱74╱t╱ // 0x1237 @0xd
0x122a…1253 at000e = ╱75╱u╱ // 0x1238 @0xe
0x122a…1253 at000f = ╱72╱r╱ // 0x1239 @0xf
0x122a…1253 at0010 = ╱61╱a╱ // 0x123a @0x10
0x122a…1253 at0011 = ╱6a╱j╱ // 0x123b @0x11
0x122a…1253 at0012 = ╱6f╱o╱ // 0x123c @0x12
0x122a…1253 at0013 = ╱75╱u╱ // 0x123d @0x13
0x122a…1253 at0014 = ╱72╱r╱ // 0x123e @0x14
0x122a…1253 at0015 = ╱6e╱n╱ // 0x123f @0x15
0x122a…1253 at0016 = ╱61╱a╱ // 0x1240 @0x16
0x122a…1253 at0017 = ╱6c╱l╱ // 0x1241 @0x17
0x122a…1253 at0018 = ╱2e╱.╱ // 0x1242 @0x18
0x122a…1253 at0019 = ╱22╱"╱ // 0x1243 @0x19
0x122a…1253 at001a = ╱eb╱ ; ╱ // 0x1244 @0x1a
0x122a…1253 at001b = ╱42╱B╱ // 0x1245 @0x1b
0x122a…1253 at001c = ╱ef╱ $ ╱ // 0x1246 @0x1c
0x122a…1253 at001d = ╱dc╱ = ╱ // 0x1247 @0x1d
0x122a…1253 at001e = ╱41╱A╱ // 0x1248 @0x1e
0x122a…1253 at001f = ╱ef╱ $ ╱ // 0x1249 @0x1f
0x122a…1253 at0020 = ╱f1╱ + ╱ // 0x124a @0x20
0x122a…1253 at0021 = ╱22╱"╱ // 0x124b @0x21
0x122a…1253 at0022 = ╱46╱F╱ // 0x124c @0x22
0x122a…1253 at0023 = ╱4a╱J╱ // 0x124d @0x23
0x122a…1253 at0024 = ╱4f╱O╱ // 0x124e @0x24
0x122a…1253 at0025 = ╱55╱U╱ // 0x124f @0x25
0x122a…1253 at0026 = ╱52╱R╱ // 0x1250 @0x26
0x122a…1253 at0027 = ╱22╱"╱ // 0x1251 @0x27
0x122a…1253 at0028 = EOL // 0x1252 @0x28
0x122a…1253 }
0x1253…1259 99a6 1900 ELSE
0x1253…1259 LineComalBcd {
0x1253…1259 ptr = 0x99a6 // 0x1253 @0x0
0x1253…1259 lno = 0x1900 // 0x1255 @0x2
0x1253…1259 at0004 = ╱9a╱ ELSE ╱ // 0x1257 @0x4
0x1253…1259 at0005 = EOL // 0x1258 @0x5
0x1253…1259 }
0x1259…1287 (61,) 99d4 1910 PRINT "Der…kan…ikke…udskrives…fakturajournal."
0x1259…1287 LineComalBcd {
0x1259…1287 ptr = 0x99d4 // 0x1259 @0x0
0x1259…1287 lno = 0x1910 // 0x125b @0x2
0x1259…1287 at0004 = ╱92╱ PRINT ╱ // 0x125d @0x4
0x1259…1287 at0005 = ╱22╱"╱ // 0x125e @0x5
0x1259…1287 at0006 = ╱44╱D╱ // 0x125f @0x6
0x1259…1287 at0007 = ╱65╱e╱ // 0x1260 @0x7
0x1259…1287 at0008 = ╱72╱r╱ // 0x1261 @0x8
0x1259…1287 at0009 = ╱20╱…╱ // 0x1262 @0x9
0x1259…1287 at000a = ╱6b╱k╱ // 0x1263 @0xa
0x1259…1287 at000b = ╱61╱a╱ // 0x1264 @0xb
0x1259…1287 at000c = ╱6e╱n╱ // 0x1265 @0xc
0x1259…1287 at000d = ╱20╱…╱ // 0x1266 @0xd
0x1259…1287 at000e = ╱69╱i╱ // 0x1267 @0xe
0x1259…1287 at000f = ╱6b╱k╱ // 0x1268 @0xf
0x1259…1287 at0010 = ╱6b╱k╱ // 0x1269 @0x10
0x1259…1287 at0011 = ╱65╱e╱ // 0x126a @0x11
0x1259…1287 at0012 = ╱20╱…╱ // 0x126b @0x12
0x1259…1287 at0013 = ╱75╱u╱ // 0x126c @0x13
0x1259…1287 at0014 = ╱64╱d╱ // 0x126d @0x14
0x1259…1287 at0015 = ╱73╱s╱ // 0x126e @0x15
0x1259…1287 at0016 = ╱6b╱k╱ // 0x126f @0x16
0x1259…1287 at0017 = ╱72╱r╱ // 0x1270 @0x17
0x1259…1287 at0018 = ╱69╱i╱ // 0x1271 @0x18
0x1259…1287 at0019 = ╱76╱v╱ // 0x1272 @0x19
0x1259…1287 at001a = ╱65╱e╱ // 0x1273 @0x1a
0x1259…1287 at001b = ╱73╱s╱ // 0x1274 @0x1b
0x1259…1287 at001c = ╱20╱…╱ // 0x1275 @0x1c
0x1259…1287 at001d = ╱66╱f╱ // 0x1276 @0x1d
0x1259…1287 at001e = ╱61╱a╱ // 0x1277 @0x1e
0x1259…1287 at001f = ╱6b╱k╱ // 0x1278 @0x1f
0x1259…1287 at0020 = ╱74╱t╱ // 0x1279 @0x20
0x1259…1287 at0021 = ╱75╱u╱ // 0x127a @0x21
0x1259…1287 at0022 = ╱72╱r╱ // 0x127b @0x22
0x1259…1287 at0023 = ╱61╱a╱ // 0x127c @0x23
0x1259…1287 at0024 = ╱6a╱j╱ // 0x127d @0x24
0x1259…1287 at0025 = ╱6f╱o╱ // 0x127e @0x25
0x1259…1287 at0026 = ╱75╱u╱ // 0x127f @0x26
0x1259…1287 at0027 = ╱72╱r╱ // 0x1280 @0x27
0x1259…1287 at0028 = ╱6e╱n╱ // 0x1281 @0x28
0x1259…1287 at0029 = ╱61╱a╱ // 0x1282 @0x29
0x1259…1287 at002a = ╱6c╱l╱ // 0x1283 @0x2a
0x1259…1287 at002b = ╱2e╱.╱ // 0x1284 @0x2b
0x1259…1287 at002c = ╱22╱"╱ // 0x1285 @0x2c
0x1259…1287 at002d = EOL // 0x1286 @0x2d
0x1259…1287 }
0x1287…1298 99e5 1920 FEJL1 = 1
0x1287…1298 LineComalBcd {
0x1287…1298 ptr = 0x99e5 // 0x1287 @0x0
0x1287…1298 lno = 0x1920 // 0x1289 @0x2
0x1287…1298 at0004 = ╱46╱F╱ // 0x128b @0x4
0x1287…1298 at0005 = ╱45╱E╱ // 0x128c @0x5
0x1287…1298 at0006 = ╱4a╱J╱ // 0x128d @0x6
0x1287…1298 at0007 = ╱4c╱L╱ // 0x128e @0x7
0x1287…1298 at0008 = ╱31╱1╱ // 0x128f @0x8
0x1287…1298 at0009 = ╱dc╱ = ╱ // 0x1290 @0x9
0x1287…1298 at000a = ╱31╱1╱ // 0x1291 @0xa
0x1287…1298 at000b = ╱fe00008001╱ // 0x1292 @0xb
0x1287…1298 at0010 = EOL // 0x1297 @0x10
0x1287…1298 }
0x1298…129e 99eb 1930 ENDIF
0x1298…129e LineComalBcd {
0x1298…129e ptr = 0x99eb // 0x1298 @0x0
0x1298…129e lno = 0x1930 // 0x129a @0x2
0x1298…129e at0004 = ╱9b╱ ENDIF ╱ // 0x129c @0x4
0x1298…129e at0005 = EOL // 0x129d @0x5
0x1298…129e }
0x129e…12a4 99f1 1940 ENDCASE
0x129e…12a4 LineComalBcd {
0x129e…12a4 ptr = 0x99f1 // 0x129e @0x0
0x129e…12a4 lno = 0x1940 // 0x12a0 @0x2
0x129e…12a4 at0004 = ╱a4╱ ENDCASE ╱ // 0x12a2 @0x4
0x129e…12a4 at0005 = EOL // 0x12a3 @0x5
0x129e…12a4 }
0x12a4…12b7 9a04 1950 IF FEJL1 = 1 THEN
0x12a4…12b7 LineComalBcd {
0x12a4…12b7 ptr = 0x9a04 // 0x12a4 @0x0
0x12a4…12b7 lno = 0x1950 // 0x12a6 @0x2
0x12a4…12b7 at0004 = ╱9c╱ IF ╱ // 0x12a8 @0x4
0x12a4…12b7 at0005 = ╱46╱F╱ // 0x12a9 @0x5
0x12a4…12b7 at0006 = ╱45╱E╱ // 0x12aa @0x6
0x12a4…12b7 at0007 = ╱4a╱J╱ // 0x12ab @0x7
0x12a4…12b7 at0008 = ╱4c╱L╱ // 0x12ac @0x8
0x12a4…12b7 at0009 = ╱31╱1╱ // 0x12ad @0x9
0x12a4…12b7 at000a = ╱dc╱ = ╱ // 0x12ae @0xa
0x12a4…12b7 at000b = ╱31╱1╱ // 0x12af @0xb
0x12a4…12b7 at000c = ╱fe00008001╱ // 0x12b0 @0xc
0x12a4…12b7 at0011 = ╱b6╱ THEN ╱ // 0x12b5 @0x11
0x12a4…12b7 at0012 = EOL // 0x12b6 @0x12
0x12a4…12b7 }
0x12b7…12cc 9a19 1960 CURSOR 21 , 13
0x12b7…12cc LineComalBcd {
0x12b7…12cc ptr = 0x9a19 // 0x12b7 @0x0
0x12b7…12cc lno = 0x1960 // 0x12b9 @0x2
0x12b7…12cc at0004 = ╱a1╱ CURSOR ╱ // 0x12bb @0x4
0x12b7…12cc at0005 = ╱32╱2╱ // 0x12bc @0x5
0x12b7…12cc at0006 = ╱31╱1╱ // 0x12bd @0x6
0x12b7…12cc at0007 = ╱fe0000a805╱ // 0x12be @0x7
0x12b7…12cc at000c = ╱ec╱ , ╱ // 0x12c3 @0xc
0x12b7…12cc at000d = ╱31╱1╱ // 0x12c4 @0xd
0x12b7…12cc at000e = ╱33╱3╱ // 0x12c5 @0xe
0x12b7…12cc at000f = ╱fe0000d004╱ // 0x12c6 @0xf
0x12b7…12cc at0014 = EOL // 0x12cb @0x14
0x12b7…12cc }
0x12cc…12e4 9a31 1970 INPUT "Tast…RETURN" , TEK $
0x12cc…12e4 LineComalBcd {
0x12cc…12e4 ptr = 0x9a31 // 0x12cc @0x0
0x12cc…12e4 lno = 0x1970 // 0x12ce @0x2
0x12cc…12e4 at0004 = ╱91╱ INPUT ╱ // 0x12d0 @0x4
0x12cc…12e4 at0005 = ╱22╱"╱ // 0x12d1 @0x5
0x12cc…12e4 at0006 = ╱54╱T╱ // 0x12d2 @0x6
0x12cc…12e4 at0007 = ╱61╱a╱ // 0x12d3 @0x7
0x12cc…12e4 at0008 = ╱73╱s╱ // 0x12d4 @0x8
0x12cc…12e4 at0009 = ╱74╱t╱ // 0x12d5 @0x9
0x12cc…12e4 at000a = ╱20╱…╱ // 0x12d6 @0xa
0x12cc…12e4 at000b = ╱52╱R╱ // 0x12d7 @0xb
0x12cc…12e4 at000c = ╱45╱E╱ // 0x12d8 @0xc
0x12cc…12e4 at000d = ╱54╱T╱ // 0x12d9 @0xd
0x12cc…12e4 at000e = ╱55╱U╱ // 0x12da @0xe
0x12cc…12e4 at000f = ╱52╱R╱ // 0x12db @0xf
0x12cc…12e4 at0010 = ╱4e╱N╱ // 0x12dc @0x10
0x12cc…12e4 at0011 = ╱22╱"╱ // 0x12dd @0x11
0x12cc…12e4 at0012 = ╱ec╱ , ╱ // 0x12de @0x12
0x12cc…12e4 at0013 = ╱54╱T╱ // 0x12df @0x13
0x12cc…12e4 at0014 = ╱45╱E╱ // 0x12e0 @0x14
0x12cc…12e4 at0015 = ╱4b╱K╱ // 0x12e1 @0x15
0x12cc…12e4 at0016 = ╱ef╱ $ ╱ // 0x12e2 @0x16
0x12cc…12e4 at0017 = EOL // 0x12e3 @0x17
0x12cc…12e4 }
0x12e4…12ea 9a37 1980 ENDIF
0x12e4…12ea LineComalBcd {
0x12e4…12ea ptr = 0x9a37 // 0x12e4 @0x0
0x12e4…12ea lno = 0x1980 // 0x12e6 @0x2
0x12e4…12ea at0004 = ╱9b╱ ENDIF ╱ // 0x12e8 @0x4
0x12e4…12ea at0005 = EOL // 0x12e9 @0x5
0x12e4…12ea }
0x12ea…12f4 9a41 1990 WHEN "3"
0x12ea…12f4 LineComalBcd {
0x12ea…12f4 ptr = 0x9a41 // 0x12ea @0x0
0x12ea…12f4 lno = 0x1990 // 0x12ec @0x2
0x12ea…12f4 at0004 = ╱a300╱ WHEN ╱ // 0x12ee @0x4
0x12ea…12f4 at0006 = ╱22╱"╱ // 0x12f0 @0x6
0x12ea…12f4 at0007 = ╱33╱3╱ // 0x12f1 @0x7
0x12ea…12f4 at0008 = ╱22╱"╱ // 0x12f2 @0x8
0x12ea…12f4 at0009 = EOL // 0x12f3 @0x9
0x12ea…12f4 }
0x12f4…1313 9a60 2000 PRINT "Programvalg.…Bogf|ring."
0x12f4…1313 LineComalBcd {
0x12f4…1313 ptr = 0x9a60 // 0x12f4 @0x0
0x12f4…1313 lno = 0x2000 // 0x12f6 @0x2
0x12f4…1313 at0004 = ╱92╱ PRINT ╱ // 0x12f8 @0x4
0x12f4…1313 at0005 = ╱22╱"╱ // 0x12f9 @0x5
0x12f4…1313 at0006 = ╱50╱P╱ // 0x12fa @0x6
0x12f4…1313 at0007 = ╱72╱r╱ // 0x12fb @0x7
0x12f4…1313 at0008 = ╱6f╱o╱ // 0x12fc @0x8
0x12f4…1313 at0009 = ╱67╱g╱ // 0x12fd @0x9
0x12f4…1313 at000a = ╱72╱r╱ // 0x12fe @0xa
0x12f4…1313 at000b = ╱61╱a╱ // 0x12ff @0xb
0x12f4…1313 at000c = ╱6d╱m╱ // 0x1300 @0xc
0x12f4…1313 at000d = ╱76╱v╱ // 0x1301 @0xd
0x12f4…1313 at000e = ╱61╱a╱ // 0x1302 @0xe
0x12f4…1313 at000f = ╱6c╱l╱ // 0x1303 @0xf
0x12f4…1313 at0010 = ╱67╱g╱ // 0x1304 @0x10
0x12f4…1313 at0011 = ╱2e╱.╱ // 0x1305 @0x11
0x12f4…1313 at0012 = ╱20╱…╱ // 0x1306 @0x12
0x12f4…1313 at0013 = ╱42╱B╱ // 0x1307 @0x13
0x12f4…1313 at0014 = ╱6f╱o╱ // 0x1308 @0x14
0x12f4…1313 at0015 = ╱67╱g╱ // 0x1309 @0x15
0x12f4…1313 at0016 = ╱66╱f╱ // 0x130a @0x16
0x12f4…1313 at0017 = ╱7c╱|╱ // 0x130b @0x17
0x12f4…1313 at0018 = ╱72╱r╱ // 0x130c @0x18
0x12f4…1313 at0019 = ╱69╱i╱ // 0x130d @0x19
0x12f4…1313 at001a = ╱6e╱n╱ // 0x130e @0x1a
0x12f4…1313 at001b = ╱67╱g╱ // 0x130f @0x1b
0x12f4…1313 at001c = ╱2e╱.╱ // 0x1310 @0x1c
0x12f4…1313 at001d = ╱22╱"╱ // 0x1311 @0x1d
0x12f4…1313 at001e = EOL // 0x1312 @0x1e
0x12f4…1313 }
0x1313…1327 9a74 2010 CURSOR 11 , 4
0x1313…1327 LineComalBcd {
0x1313…1327 ptr = 0x9a74 // 0x1313 @0x0
0x1313…1327 lno = 0x2010 // 0x1315 @0x2
0x1313…1327 at0004 = ╱a1╱ CURSOR ╱ // 0x1317 @0x4
0x1313…1327 at0005 = ╱31╱1╱ // 0x1318 @0x5
0x1313…1327 at0006 = ╱31╱1╱ // 0x1319 @0x6
0x1313…1327 at0007 = ╱fe0000b004╱ // 0x131a @0x7
0x1313…1327 at000c = ╱ec╱ , ╱ // 0x131f @0xc
0x1313…1327 at000d = ╱34╱4╱ // 0x1320 @0xd
0x1313…1327 at000e = ╱fe00008003╱ // 0x1321 @0xe
0x1313…1327 at0013 = EOL // 0x1326 @0x13
0x1313…1327 }
0x1327…133f 9a8c 2020 PRINT "1:…Kasserapport."
0x1327…133f LineComalBcd {
0x1327…133f ptr = 0x9a8c // 0x1327 @0x0
0x1327…133f lno = 0x2020 // 0x1329 @0x2
0x1327…133f at0004 = ╱92╱ PRINT ╱ // 0x132b @0x4
0x1327…133f at0005 = ╱22╱"╱ // 0x132c @0x5
0x1327…133f at0006 = ╱31╱1╱ // 0x132d @0x6
0x1327…133f at0007 = ╱3a╱:╱ // 0x132e @0x7
0x1327…133f at0008 = ╱20╱…╱ // 0x132f @0x8
0x1327…133f at0009 = ╱4b╱K╱ // 0x1330 @0x9
0x1327…133f at000a = ╱61╱a╱ // 0x1331 @0xa
0x1327…133f at000b = ╱73╱s╱ // 0x1332 @0xb
0x1327…133f at000c = ╱73╱s╱ // 0x1333 @0xc
0x1327…133f at000d = ╱65╱e╱ // 0x1334 @0xd
0x1327…133f at000e = ╱72╱r╱ // 0x1335 @0xe
0x1327…133f at000f = ╱61╱a╱ // 0x1336 @0xf
0x1327…133f at0010 = ╱70╱p╱ // 0x1337 @0x10
0x1327…133f at0011 = ╱70╱p╱ // 0x1338 @0x11
0x1327…133f at0012 = ╱6f╱o╱ // 0x1339 @0x12
0x1327…133f at0013 = ╱72╱r╱ // 0x133a @0x13
0x1327…133f at0014 = ╱74╱t╱ // 0x133b @0x14
0x1327…133f at0015 = ╱2e╱.╱ // 0x133c @0x15
0x1327…133f at0016 = ╱22╱"╱ // 0x133d @0x16
0x1327…133f at0017 = EOL // 0x133e @0x17
0x1327…133f }
0x133f…1353 9aa0 2030 CURSOR 11 , 6
0x133f…1353 LineComalBcd {
0x133f…1353 ptr = 0x9aa0 // 0x133f @0x0
0x133f…1353 lno = 0x2030 // 0x1341 @0x2
0x133f…1353 at0004 = ╱a1╱ CURSOR ╱ // 0x1343 @0x4
0x133f…1353 at0005 = ╱31╱1╱ // 0x1344 @0x5
0x133f…1353 at0006 = ╱31╱1╱ // 0x1345 @0x6
0x133f…1353 at0007 = ╱fe0000b004╱ // 0x1346 @0x7
0x133f…1353 at000c = ╱ec╱ , ╱ // 0x134b @0xc
0x133f…1353 at000d = ╱36╱6╱ // 0x134c @0xd
0x133f…1353 at000e = ╱fe0000c003╱ // 0x134d @0xe
0x133f…1353 at0013 = EOL // 0x1352 @0x13
0x133f…1353 }
0x1353…136c 9ab9 2040 PRINT "2:…Posteringsark."
0x1353…136c LineComalBcd {
0x1353…136c ptr = 0x9ab9 // 0x1353 @0x0
0x1353…136c lno = 0x2040 // 0x1355 @0x2
0x1353…136c at0004 = ╱92╱ PRINT ╱ // 0x1357 @0x4
0x1353…136c at0005 = ╱22╱"╱ // 0x1358 @0x5
0x1353…136c at0006 = ╱32╱2╱ // 0x1359 @0x6
0x1353…136c at0007 = ╱3a╱:╱ // 0x135a @0x7
0x1353…136c at0008 = ╱20╱…╱ // 0x135b @0x8
0x1353…136c at0009 = ╱50╱P╱ // 0x135c @0x9
0x1353…136c at000a = ╱6f╱o╱ // 0x135d @0xa
0x1353…136c at000b = ╱73╱s╱ // 0x135e @0xb
0x1353…136c at000c = ╱74╱t╱ // 0x135f @0xc
0x1353…136c at000d = ╱65╱e╱ // 0x1360 @0xd
0x1353…136c at000e = ╱72╱r╱ // 0x1361 @0xe
0x1353…136c at000f = ╱69╱i╱ // 0x1362 @0xf
0x1353…136c at0010 = ╱6e╱n╱ // 0x1363 @0x10
0x1353…136c at0011 = ╱67╱g╱ // 0x1364 @0x11
0x1353…136c at0012 = ╱73╱s╱ // 0x1365 @0x12
0x1353…136c at0013 = ╱61╱a╱ // 0x1366 @0x13
0x1353…136c at0014 = ╱72╱r╱ // 0x1367 @0x14
0x1353…136c at0015 = ╱6b╱k╱ // 0x1368 @0x15
0x1353…136c at0016 = ╱2e╱.╱ // 0x1369 @0x16
0x1353…136c at0017 = ╱22╱"╱ // 0x136a @0x17
0x1353…136c at0018 = EOL // 0x136b @0x18
0x1353…136c }
0x136c…1372 9abf 2050 REPEAT
0x136c…1372 LineComalBcd {
0x136c…1372 ptr = 0x9abf // 0x136c @0x0
0x136c…1372 lno = 0x2050 // 0x136e @0x2
0x136c…1372 at0004 = ╱97╱ REPEAT ╱ // 0x1370 @0x4
0x136c…1372 at0005 = EOL // 0x1371 @0x5
0x136c…1372 }
0x1372…1386 9ad3 2060 CURSOR 11 , 9
0x1372…1386 LineComalBcd {
0x1372…1386 ptr = 0x9ad3 // 0x1372 @0x0
0x1372…1386 lno = 0x2060 // 0x1374 @0x2
0x1372…1386 at0004 = ╱a1╱ CURSOR ╱ // 0x1376 @0x4
0x1372…1386 at0005 = ╱31╱1╱ // 0x1377 @0x5
0x1372…1386 at0006 = ╱31╱1╱ // 0x1378 @0x6
0x1372…1386 at0007 = ╱fe0000b004╱ // 0x1379 @0x7
0x1372…1386 at000c = ╱ec╱ , ╱ // 0x137e @0xc
0x1372…1386 at000d = ╱39╱9╱ // 0x137f @0xd
0x1372…1386 at000e = ╱fe00009004╱ // 0x1380 @0xe
0x1372…1386 at0013 = EOL // 0x1385 @0x13
0x1372…1386 }
0x1386…139e 9aeb 2070 INPUT "V{lg…1-2:" , SVAR2 $
0x1386…139e LineComalBcd {
0x1386…139e ptr = 0x9aeb // 0x1386 @0x0
0x1386…139e lno = 0x2070 // 0x1388 @0x2
0x1386…139e at0004 = ╱91╱ INPUT ╱ // 0x138a @0x4
0x1386…139e at0005 = ╱22╱"╱ // 0x138b @0x5
0x1386…139e at0006 = ╱56╱V╱ // 0x138c @0x6
0x1386…139e at0007 = ╱7b╱{╱ // 0x138d @0x7
0x1386…139e at0008 = ╱6c╱l╱ // 0x138e @0x8
0x1386…139e at0009 = ╱67╱g╱ // 0x138f @0x9
0x1386…139e at000a = ╱20╱…╱ // 0x1390 @0xa
0x1386…139e at000b = ╱31╱1╱ // 0x1391 @0xb
0x1386…139e at000c = ╱2d╱-╱ // 0x1392 @0xc
0x1386…139e at000d = ╱32╱2╱ // 0x1393 @0xd
0x1386…139e at000e = ╱3a╱:╱ // 0x1394 @0xe
0x1386…139e at000f = ╱22╱"╱ // 0x1395 @0xf
0x1386…139e at0010 = ╱ec╱ , ╱ // 0x1396 @0x10
0x1386…139e at0011 = ╱53╱S╱ // 0x1397 @0x11
0x1386…139e at0012 = ╱56╱V╱ // 0x1398 @0x12
0x1386…139e at0013 = ╱41╱A╱ // 0x1399 @0x13
0x1386…139e at0014 = ╱52╱R╱ // 0x139a @0x14
0x1386…139e at0015 = ╱32╱2╱ // 0x139b @0x15
0x1386…139e at0016 = ╱ef╱ $ ╱ // 0x139c @0x16
0x1386…139e at0017 = EOL // 0x139d @0x17
0x1386…139e }
0x139e…13b9 9b06 2080 UNTIL SVAR2 $ >= "0" AND SVAR2 $ =< "2"
0x139e…13b9 LineComalBcd {
0x139e…13b9 ptr = 0x9b06 // 0x139e @0x0
0x139e…13b9 lno = 0x2080 // 0x13a0 @0x2
0x139e…13b9 at0004 = ╱98╱ UNTIL ╱ // 0x13a2 @0x4
0x139e…13b9 at0005 = ╱53╱S╱ // 0x13a3 @0x5
0x139e…13b9 at0006 = ╱56╱V╱ // 0x13a4 @0x6
0x139e…13b9 at0007 = ╱41╱A╱ // 0x13a5 @0x7
0x139e…13b9 at0008 = ╱52╱R╱ // 0x13a6 @0x8
0x139e…13b9 at0009 = ╱32╱2╱ // 0x13a7 @0x9
0x139e…13b9 at000a = ╱ef╱ $ ╱ // 0x13a8 @0xa
0x139e…13b9 at000b = ╱e0╱ >= ╱ // 0x13a9 @0xb
0x139e…13b9 at000c = ╱22╱"╱ // 0x13aa @0xc
0x139e…13b9 at000d = ╱30╱0╱ // 0x13ab @0xd
0x139e…13b9 at000e = ╱22╱"╱ // 0x13ac @0xe
0x139e…13b9 at000f = ╱da╱ AND ╱ // 0x13ad @0xf
0x139e…13b9 at0010 = ╱53╱S╱ // 0x13ae @0x10
0x139e…13b9 at0011 = ╱56╱V╱ // 0x13af @0x11
0x139e…13b9 at0012 = ╱41╱A╱ // 0x13b0 @0x12
0x139e…13b9 at0013 = ╱52╱R╱ // 0x13b1 @0x13
0x139e…13b9 at0014 = ╱32╱2╱ // 0x13b2 @0x14
0x139e…13b9 at0015 = ╱ef╱ $ ╱ // 0x13b3 @0x15
0x139e…13b9 at0016 = ╱df╱ =< ╱ // 0x13b4 @0x16
0x139e…13b9 at0017 = ╱22╱"╱ // 0x13b5 @0x17
0x139e…13b9 at0018 = ╱32╱2╱ // 0x13b6 @0x18
0x139e…13b9 at0019 = ╱22╱"╱ // 0x13b7 @0x19
0x139e…13b9 at001a = EOL // 0x13b8 @0x1a
0x139e…13b9 }
0x13b9…13c7 9b14 2090 CASE SVAR2 $ OF
0x13b9…13c7 LineComalBcd {
0x13b9…13c7 ptr = 0x9b14 // 0x13b9 @0x0
0x13b9…13c7 lno = 0x2090 // 0x13bb @0x2
0x13b9…13c7 at0004 = ╱a200╱ CASE ╱ // 0x13bd @0x4
0x13b9…13c7 at0006 = ╱53╱S╱ // 0x13bf @0x6
0x13b9…13c7 at0007 = ╱56╱V╱ // 0x13c0 @0x7
0x13b9…13c7 at0008 = ╱41╱A╱ // 0x13c1 @0x8
0x13b9…13c7 at0009 = ╱52╱R╱ // 0x13c2 @0x9
0x13b9…13c7 at000a = ╱32╱2╱ // 0x13c3 @0xa
0x13b9…13c7 at000b = ╱ef╱ $ ╱ // 0x13c4 @0xb
0x13b9…13c7 at000c = ╱ba╱ OF ╱ // 0x13c5 @0xc
0x13b9…13c7 at000d = EOL // 0x13c6 @0xd
0x13b9…13c7 }
0x13c7…13d8 9b25 2100 FEJL1 = 1
0x13c7…13d8 LineComalBcd {
0x13c7…13d8 ptr = 0x9b25 // 0x13c7 @0x0
0x13c7…13d8 lno = 0x2100 // 0x13c9 @0x2
0x13c7…13d8 at0004 = ╱46╱F╱ // 0x13cb @0x4
0x13c7…13d8 at0005 = ╱45╱E╱ // 0x13cc @0x5
0x13c7…13d8 at0006 = ╱4a╱J╱ // 0x13cd @0x6
0x13c7…13d8 at0007 = ╱4c╱L╱ // 0x13ce @0x7
0x13c7…13d8 at0008 = ╱31╱1╱ // 0x13cf @0x8
0x13c7…13d8 at0009 = ╱dc╱ = ╱ // 0x13d0 @0x9
0x13c7…13d8 at000a = ╱31╱1╱ // 0x13d1 @0xa
0x13c7…13d8 at000b = ╱fe00008001╱ // 0x13d2 @0xb
0x13c7…13d8 at0010 = EOL // 0x13d7 @0x10
0x13c7…13d8 }
0x13d8…13e2 9b2f 2110 WHEN "1"
0x13d8…13e2 LineComalBcd {
0x13d8…13e2 ptr = 0x9b2f // 0x13d8 @0x0
0x13d8…13e2 lno = 0x2110 // 0x13da @0x2
0x13d8…13e2 at0004 = ╱a300╱ WHEN ╱ // 0x13dc @0x4
0x13d8…13e2 at0006 = ╱22╱"╱ // 0x13de @0x6
0x13d8…13e2 at0007 = ╱31╱1╱ // 0x13df @0x7
0x13d8…13e2 at0008 = ╱22╱"╱ // 0x13e0 @0x8
0x13d8…13e2 at0009 = EOL // 0x13e1 @0x9
0x13d8…13e2 }
0x13e2…140a 9b57 2120 TEK $ = "Kasserapport." ; B $ = A $ + "KASRAP"
0x13e2…140a LineComalBcd {
0x13e2…140a ptr = 0x9b57 // 0x13e2 @0x0
0x13e2…140a lno = 0x2120 // 0x13e4 @0x2
0x13e2…140a at0004 = ╱54╱T╱ // 0x13e6 @0x4
0x13e2…140a at0005 = ╱45╱E╱ // 0x13e7 @0x5
0x13e2…140a at0006 = ╱4b╱K╱ // 0x13e8 @0x6
0x13e2…140a at0007 = ╱ef╱ $ ╱ // 0x13e9 @0x7
0x13e2…140a at0008 = ╱dc╱ = ╱ // 0x13ea @0x8
0x13e2…140a at0009 = ╱22╱"╱ // 0x13eb @0x9
0x13e2…140a at000a = ╱4b╱K╱ // 0x13ec @0xa
0x13e2…140a at000b = ╱61╱a╱ // 0x13ed @0xb
0x13e2…140a at000c = ╱73╱s╱ // 0x13ee @0xc
0x13e2…140a at000d = ╱73╱s╱ // 0x13ef @0xd
0x13e2…140a at000e = ╱65╱e╱ // 0x13f0 @0xe
0x13e2…140a at000f = ╱72╱r╱ // 0x13f1 @0xf
0x13e2…140a at0010 = ╱61╱a╱ // 0x13f2 @0x10
0x13e2…140a at0011 = ╱70╱p╱ // 0x13f3 @0x11
0x13e2…140a at0012 = ╱70╱p╱ // 0x13f4 @0x12
0x13e2…140a at0013 = ╱6f╱o╱ // 0x13f5 @0x13
0x13e2…140a at0014 = ╱72╱r╱ // 0x13f6 @0x14
0x13e2…140a at0015 = ╱74╱t╱ // 0x13f7 @0x15
0x13e2…140a at0016 = ╱2e╱.╱ // 0x13f8 @0x16
0x13e2…140a at0017 = ╱22╱"╱ // 0x13f9 @0x17
0x13e2…140a at0018 = ╱eb╱ ; ╱ // 0x13fa @0x18
0x13e2…140a at0019 = ╱42╱B╱ // 0x13fb @0x19
0x13e2…140a at001a = ╱ef╱ $ ╱ // 0x13fc @0x1a
0x13e2…140a at001b = ╱dc╱ = ╱ // 0x13fd @0x1b
0x13e2…140a at001c = ╱41╱A╱ // 0x13fe @0x1c
0x13e2…140a at001d = ╱ef╱ $ ╱ // 0x13ff @0x1d
0x13e2…140a at001e = ╱f1╱ + ╱ // 0x1400 @0x1e
0x13e2…140a at001f = ╱22╱"╱ // 0x1401 @0x1f
0x13e2…140a at0020 = ╱4b╱K╱ // 0x1402 @0x20
0x13e2…140a at0021 = ╱41╱A╱ // 0x1403 @0x21
0x13e2…140a at0022 = ╱53╱S╱ // 0x1404 @0x22
0x13e2…140a at0023 = ╱52╱R╱ // 0x1405 @0x23
0x13e2…140a at0024 = ╱41╱A╱ // 0x1406 @0x24
0x13e2…140a at0025 = ╱50╱P╱ // 0x1407 @0x25
0x13e2…140a at0026 = ╱22╱"╱ // 0x1408 @0x26
0x13e2…140a at0027 = EOL // 0x1409 @0x27
0x13e2…140a }
0x140a…1414 9b61 2130 WHEN "2"
0x140a…1414 LineComalBcd {
0x140a…1414 ptr = 0x9b61 // 0x140a @0x0
0x140a…1414 lno = 0x2130 // 0x140c @0x2
0x140a…1414 at0004 = ╱a300╱ WHEN ╱ // 0x140e @0x4
0x140a…1414 at0006 = ╱22╱"╱ // 0x1410 @0x6
0x140a…1414 at0007 = ╱32╱2╱ // 0x1411 @0x7
0x140a…1414 at0008 = ╱22╱"╱ // 0x1412 @0x8
0x140a…1414 at0009 = EOL // 0x1413 @0x9
0x140a…1414 }
0x1414…143e 9b8b 2140 TEK $ = "Posteringsark" ; B $ = A $ + "PSTERING"
0x1414…143e LineComalBcd {
0x1414…143e ptr = 0x9b8b // 0x1414 @0x0
0x1414…143e lno = 0x2140 // 0x1416 @0x2
0x1414…143e at0004 = ╱54╱T╱ // 0x1418 @0x4
0x1414…143e at0005 = ╱45╱E╱ // 0x1419 @0x5
0x1414…143e at0006 = ╱4b╱K╱ // 0x141a @0x6
0x1414…143e at0007 = ╱ef╱ $ ╱ // 0x141b @0x7
0x1414…143e at0008 = ╱dc╱ = ╱ // 0x141c @0x8
0x1414…143e at0009 = ╱22╱"╱ // 0x141d @0x9
0x1414…143e at000a = ╱50╱P╱ // 0x141e @0xa
0x1414…143e at000b = ╱6f╱o╱ // 0x141f @0xb
0x1414…143e at000c = ╱73╱s╱ // 0x1420 @0xc
0x1414…143e at000d = ╱74╱t╱ // 0x1421 @0xd
0x1414…143e at000e = ╱65╱e╱ // 0x1422 @0xe
0x1414…143e at000f = ╱72╱r╱ // 0x1423 @0xf
0x1414…143e at0010 = ╱69╱i╱ // 0x1424 @0x10
0x1414…143e at0011 = ╱6e╱n╱ // 0x1425 @0x11
0x1414…143e at0012 = ╱67╱g╱ // 0x1426 @0x12
0x1414…143e at0013 = ╱73╱s╱ // 0x1427 @0x13
0x1414…143e at0014 = ╱61╱a╱ // 0x1428 @0x14
0x1414…143e at0015 = ╱72╱r╱ // 0x1429 @0x15
0x1414…143e at0016 = ╱6b╱k╱ // 0x142a @0x16
0x1414…143e at0017 = ╱22╱"╱ // 0x142b @0x17
0x1414…143e at0018 = ╱eb╱ ; ╱ // 0x142c @0x18
0x1414…143e at0019 = ╱42╱B╱ // 0x142d @0x19
0x1414…143e at001a = ╱ef╱ $ ╱ // 0x142e @0x1a
0x1414…143e at001b = ╱dc╱ = ╱ // 0x142f @0x1b
0x1414…143e at001c = ╱41╱A╱ // 0x1430 @0x1c
0x1414…143e at001d = ╱ef╱ $ ╱ // 0x1431 @0x1d
0x1414…143e at001e = ╱f1╱ + ╱ // 0x1432 @0x1e
0x1414…143e at001f = ╱22╱"╱ // 0x1433 @0x1f
0x1414…143e at0020 = ╱50╱P╱ // 0x1434 @0x20
0x1414…143e at0021 = ╱53╱S╱ // 0x1435 @0x21
0x1414…143e at0022 = ╱54╱T╱ // 0x1436 @0x22
0x1414…143e at0023 = ╱45╱E╱ // 0x1437 @0x23
0x1414…143e at0024 = ╱52╱R╱ // 0x1438 @0x24
0x1414…143e at0025 = ╱49╱I╱ // 0x1439 @0x25
0x1414…143e at0026 = ╱4e╱N╱ // 0x143a @0x26
0x1414…143e at0027 = ╱47╱G╱ // 0x143b @0x27
0x1414…143e at0028 = ╱22╱"╱ // 0x143c @0x28
0x1414…143e at0029 = EOL // 0x143d @0x29
0x1414…143e }
0x143e…1444 9b91 2150 ENDCASE
0x143e…1444 LineComalBcd {
0x143e…1444 ptr = 0x9b91 // 0x143e @0x0
0x143e…1444 lno = 0x2150 // 0x1440 @0x2
0x143e…1444 at0004 = ╱a4╱ ENDCASE ╱ // 0x1442 @0x4
0x143e…1444 at0005 = EOL // 0x1443 @0x5
0x143e…1444 }
0x1444…144e 9b9b 2160 WHEN "4"
0x1444…144e LineComalBcd {
0x1444…144e ptr = 0x9b9b // 0x1444 @0x0
0x1444…144e lno = 0x2160 // 0x1446 @0x2
0x1444…144e at0004 = ╱a300╱ WHEN ╱ // 0x1448 @0x4
0x1444…144e at0006 = ╱22╱"╱ // 0x144a @0x6
0x1444…144e at0007 = ╱34╱4╱ // 0x144b @0x7
0x1444…144e at0008 = ╱22╱"╱ // 0x144c @0x8
0x1444…144e at0009 = EOL // 0x144d @0x9
0x1444…144e }
0x144e…147e 9bcb 2170 PRINT "Programvalg.…Sp|rge-…og…listeprogrammer."
0x144e…147e LineComalBcd {
0x144e…147e ptr = 0x9bcb // 0x144e @0x0
0x144e…147e lno = 0x2170 // 0x1450 @0x2
0x144e…147e at0004 = ╱92╱ PRINT ╱ // 0x1452 @0x4
0x144e…147e at0005 = ╱22╱"╱ // 0x1453 @0x5
0x144e…147e at0006 = ╱50╱P╱ // 0x1454 @0x6
0x144e…147e at0007 = ╱72╱r╱ // 0x1455 @0x7
0x144e…147e at0008 = ╱6f╱o╱ // 0x1456 @0x8
0x144e…147e at0009 = ╱67╱g╱ // 0x1457 @0x9
0x144e…147e at000a = ╱72╱r╱ // 0x1458 @0xa
0x144e…147e at000b = ╱61╱a╱ // 0x1459 @0xb
0x144e…147e at000c = ╱6d╱m╱ // 0x145a @0xc
0x144e…147e at000d = ╱76╱v╱ // 0x145b @0xd
0x144e…147e at000e = ╱61╱a╱ // 0x145c @0xe
0x144e…147e at000f = ╱6c╱l╱ // 0x145d @0xf
0x144e…147e at0010 = ╱67╱g╱ // 0x145e @0x10
0x144e…147e at0011 = ╱2e╱.╱ // 0x145f @0x11
0x144e…147e at0012 = ╱20╱…╱ // 0x1460 @0x12
0x144e…147e at0013 = ╱53╱S╱ // 0x1461 @0x13
0x144e…147e at0014 = ╱70╱p╱ // 0x1462 @0x14
0x144e…147e at0015 = ╱7c╱|╱ // 0x1463 @0x15
0x144e…147e at0016 = ╱72╱r╱ // 0x1464 @0x16
0x144e…147e at0017 = ╱67╱g╱ // 0x1465 @0x17
0x144e…147e at0018 = ╱65╱e╱ // 0x1466 @0x18
0x144e…147e at0019 = ╱2d╱-╱ // 0x1467 @0x19
0x144e…147e at001a = ╱20╱…╱ // 0x1468 @0x1a
0x144e…147e at001b = ╱6f╱o╱ // 0x1469 @0x1b
0x144e…147e at001c = ╱67╱g╱ // 0x146a @0x1c
0x144e…147e at001d = ╱20╱…╱ // 0x146b @0x1d
0x144e…147e at001e = ╱6c╱l╱ // 0x146c @0x1e
0x144e…147e at001f = ╱69╱i╱ // 0x146d @0x1f
0x144e…147e at0020 = ╱73╱s╱ // 0x146e @0x20
0x144e…147e at0021 = ╱74╱t╱ // 0x146f @0x21
0x144e…147e at0022 = ╱65╱e╱ // 0x1470 @0x22
0x144e…147e at0023 = ╱70╱p╱ // 0x1471 @0x23
0x144e…147e at0024 = ╱72╱r╱ // 0x1472 @0x24
0x144e…147e at0025 = ╱6f╱o╱ // 0x1473 @0x25
0x144e…147e at0026 = ╱67╱g╱ // 0x1474 @0x26
0x144e…147e at0027 = ╱72╱r╱ // 0x1475 @0x27
0x144e…147e at0028 = ╱61╱a╱ // 0x1476 @0x28
0x144e…147e at0029 = ╱6d╱m╱ // 0x1477 @0x29
0x144e…147e at002a = ╱6d╱m╱ // 0x1478 @0x2a
0x144e…147e at002b = ╱65╱e╱ // 0x1479 @0x2b
0x144e…147e at002c = ╱72╱r╱ // 0x147a @0x2c
0x144e…147e at002d = ╱2e╱.╱ // 0x147b @0x2d
0x144e…147e at002e = ╱22╱"╱ // 0x147c @0x2e
0x144e…147e at002f = EOL // 0x147d @0x2f
0x144e…147e }
0x147e…1492 9bdf 2180 CURSOR 11 , 4
0x147e…1492 LineComalBcd {
0x147e…1492 ptr = 0x9bdf // 0x147e @0x0
0x147e…1492 lno = 0x2180 // 0x1480 @0x2
0x147e…1492 at0004 = ╱a1╱ CURSOR ╱ // 0x1482 @0x4
0x147e…1492 at0005 = ╱31╱1╱ // 0x1483 @0x5
0x147e…1492 at0006 = ╱31╱1╱ // 0x1484 @0x6
0x147e…1492 at0007 = ╱fe0000b004╱ // 0x1485 @0x7
0x147e…1492 at000c = ╱ec╱ , ╱ // 0x148a @0xc
0x147e…1492 at000d = ╱34╱4╱ // 0x148b @0xd
0x147e…1492 at000e = ╱fe00008003╱ // 0x148c @0xe
0x147e…1492 at0013 = EOL // 0x1491 @0x13
0x147e…1492 }
0x1492…14b0 9bfd 2190 PRINT "1:…Kontosp|rgeprogram."
0x1492…14b0 LineComalBcd {
0x1492…14b0 ptr = 0x9bfd // 0x1492 @0x0
0x1492…14b0 lno = 0x2190 // 0x1494 @0x2
0x1492…14b0 at0004 = ╱92╱ PRINT ╱ // 0x1496 @0x4
0x1492…14b0 at0005 = ╱22╱"╱ // 0x1497 @0x5
0x1492…14b0 at0006 = ╱31╱1╱ // 0x1498 @0x6
0x1492…14b0 at0007 = ╱3a╱:╱ // 0x1499 @0x7
0x1492…14b0 at0008 = ╱20╱…╱ // 0x149a @0x8
0x1492…14b0 at0009 = ╱4b╱K╱ // 0x149b @0x9
0x1492…14b0 at000a = ╱6f╱o╱ // 0x149c @0xa
0x1492…14b0 at000b = ╱6e╱n╱ // 0x149d @0xb
0x1492…14b0 at000c = ╱74╱t╱ // 0x149e @0xc
0x1492…14b0 at000d = ╱6f╱o╱ // 0x149f @0xd
0x1492…14b0 at000e = ╱73╱s╱ // 0x14a0 @0xe
0x1492…14b0 at000f = ╱70╱p╱ // 0x14a1 @0xf
0x1492…14b0 at0010 = ╱7c╱|╱ // 0x14a2 @0x10
0x1492…14b0 at0011 = ╱72╱r╱ // 0x14a3 @0x11
0x1492…14b0 at0012 = ╱67╱g╱ // 0x14a4 @0x12
0x1492…14b0 at0013 = ╱65╱e╱ // 0x14a5 @0x13
0x1492…14b0 at0014 = ╱70╱p╱ // 0x14a6 @0x14
0x1492…14b0 at0015 = ╱72╱r╱ // 0x14a7 @0x15
0x1492…14b0 at0016 = ╱6f╱o╱ // 0x14a8 @0x16
0x1492…14b0 at0017 = ╱67╱g╱ // 0x14a9 @0x17
0x1492…14b0 at0018 = ╱72╱r╱ // 0x14aa @0x18
0x1492…14b0 at0019 = ╱61╱a╱ // 0x14ab @0x19
0x1492…14b0 at001a = ╱6d╱m╱ // 0x14ac @0x1a
0x1492…14b0 at001b = ╱2e╱.╱ // 0x14ad @0x1b
0x1492…14b0 at001c = ╱22╱"╱ // 0x14ae @0x1c
0x1492…14b0 at001d = EOL // 0x14af @0x1d
0x1492…14b0 }
0x14b0…14c4 9c11 2200 CURSOR 11 , 6
0x14b0…14c4 LineComalBcd {
0x14b0…14c4 ptr = 0x9c11 // 0x14b0 @0x0
0x14b0…14c4 lno = 0x2200 // 0x14b2 @0x2
0x14b0…14c4 at0004 = ╱a1╱ CURSOR ╱ // 0x14b4 @0x4
0x14b0…14c4 at0005 = ╱31╱1╱ // 0x14b5 @0x5
0x14b0…14c4 at0006 = ╱31╱1╱ // 0x14b6 @0x6
0x14b0…14c4 at0007 = ╱fe0000b004╱ // 0x14b7 @0x7
0x14b0…14c4 at000c = ╱ec╱ , ╱ // 0x14bc @0xc
0x14b0…14c4 at000d = ╱36╱6╱ // 0x14bd @0xd
0x14b0…14c4 at000e = ╱fe0000c003╱ // 0x14be @0xe
0x14b0…14c4 at0013 = EOL // 0x14c3 @0x13
0x14b0…14c4 }
0x14c4…14dc 9c29 2210 PRINT "2:…Debitorlister"
0x14c4…14dc LineComalBcd {
0x14c4…14dc ptr = 0x9c29 // 0x14c4 @0x0
0x14c4…14dc lno = 0x2210 // 0x14c6 @0x2
0x14c4…14dc at0004 = ╱92╱ PRINT ╱ // 0x14c8 @0x4
0x14c4…14dc at0005 = ╱22╱"╱ // 0x14c9 @0x5
0x14c4…14dc at0006 = ╱32╱2╱ // 0x14ca @0x6
0x14c4…14dc at0007 = ╱3a╱:╱ // 0x14cb @0x7
0x14c4…14dc at0008 = ╱20╱…╱ // 0x14cc @0x8
0x14c4…14dc at0009 = ╱44╱D╱ // 0x14cd @0x9
0x14c4…14dc at000a = ╱65╱e╱ // 0x14ce @0xa
0x14c4…14dc at000b = ╱62╱b╱ // 0x14cf @0xb
0x14c4…14dc at000c = ╱69╱i╱ // 0x14d0 @0xc
0x14c4…14dc at000d = ╱74╱t╱ // 0x14d1 @0xd
0x14c4…14dc at000e = ╱6f╱o╱ // 0x14d2 @0xe
0x14c4…14dc at000f = ╱72╱r╱ // 0x14d3 @0xf
0x14c4…14dc at0010 = ╱6c╱l╱ // 0x14d4 @0x10
0x14c4…14dc at0011 = ╱69╱i╱ // 0x14d5 @0x11
0x14c4…14dc at0012 = ╱73╱s╱ // 0x14d6 @0x12
0x14c4…14dc at0013 = ╱74╱t╱ // 0x14d7 @0x13
0x14c4…14dc at0014 = ╱65╱e╱ // 0x14d8 @0x14
0x14c4…14dc at0015 = ╱72╱r╱ // 0x14d9 @0x15
0x14c4…14dc at0016 = ╱22╱"╱ // 0x14da @0x16
0x14c4…14dc at0017 = EOL // 0x14db @0x17
0x14c4…14dc }
0x14dc…14f0 9c3d 2220 CURSOR 11 , 8
0x14dc…14f0 LineComalBcd {
0x14dc…14f0 ptr = 0x9c3d // 0x14dc @0x0
0x14dc…14f0 lno = 0x2220 // 0x14de @0x2
0x14dc…14f0 at0004 = ╱a1╱ CURSOR ╱ // 0x14e0 @0x4
0x14dc…14f0 at0005 = ╱31╱1╱ // 0x14e1 @0x5
0x14dc…14f0 at0006 = ╱31╱1╱ // 0x14e2 @0x6
0x14dc…14f0 at0007 = ╱fe0000b004╱ // 0x14e3 @0x7
0x14dc…14f0 at000c = ╱ec╱ , ╱ // 0x14e8 @0xc
0x14dc…14f0 at000d = ╱38╱8╱ // 0x14e9 @0xd
0x14dc…14f0 at000e = ╱fe00008004╱ // 0x14ea @0xe
0x14dc…14f0 at0013 = EOL // 0x14ef @0x13
0x14dc…14f0 }
0x14f0…1504 9c51 2230 PRINT "3:…Balancer."
0x14f0…1504 LineComalBcd {
0x14f0…1504 ptr = 0x9c51 // 0x14f0 @0x0
0x14f0…1504 lno = 0x2230 // 0x14f2 @0x2
0x14f0…1504 at0004 = ╱92╱ PRINT ╱ // 0x14f4 @0x4
0x14f0…1504 at0005 = ╱22╱"╱ // 0x14f5 @0x5
0x14f0…1504 at0006 = ╱33╱3╱ // 0x14f6 @0x6
0x14f0…1504 at0007 = ╱3a╱:╱ // 0x14f7 @0x7
0x14f0…1504 at0008 = ╱20╱…╱ // 0x14f8 @0x8
0x14f0…1504 at0009 = ╱42╱B╱ // 0x14f9 @0x9
0x14f0…1504 at000a = ╱61╱a╱ // 0x14fa @0xa
0x14f0…1504 at000b = ╱6c╱l╱ // 0x14fb @0xb
0x14f0…1504 at000c = ╱61╱a╱ // 0x14fc @0xc
0x14f0…1504 at000d = ╱6e╱n╱ // 0x14fd @0xd
0x14f0…1504 at000e = ╱63╱c╱ // 0x14fe @0xe
0x14f0…1504 at000f = ╱65╱e╱ // 0x14ff @0xf
0x14f0…1504 at0010 = ╱72╱r╱ // 0x1500 @0x10
0x14f0…1504 at0011 = ╱2e╱.╱ // 0x1501 @0x11
0x14f0…1504 at0012 = ╱22╱"╱ // 0x1502 @0x12
0x14f0…1504 at0013 = EOL // 0x1503 @0x13
0x14f0…1504 }
0x1504…150a 9c57 2260 REPEAT
0x1504…150a LineComalBcd {
0x1504…150a ptr = 0x9c57 // 0x1504 @0x0
0x1504…150a lno = 0x2260 // 0x1506 @0x2
0x1504…150a at0004 = ╱97╱ REPEAT ╱ // 0x1508 @0x4
0x1504…150a at0005 = EOL // 0x1509 @0x5
0x1504…150a }
0x150a…151f 9c6c 2270 CURSOR 11 , 11
0x150a…151f LineComalBcd {
0x150a…151f ptr = 0x9c6c // 0x150a @0x0
0x150a…151f lno = 0x2270 // 0x150c @0x2
0x150a…151f at0004 = ╱a1╱ CURSOR ╱ // 0x150e @0x4
0x150a…151f at0005 = ╱31╱1╱ // 0x150f @0x5
0x150a…151f at0006 = ╱31╱1╱ // 0x1510 @0x6
0x150a…151f at0007 = ╱fe0000b004╱ // 0x1511 @0x7
0x150a…151f at000c = ╱ec╱ , ╱ // 0x1516 @0xc
0x150a…151f at000d = ╱31╱1╱ // 0x1517 @0xd
0x150a…151f at000e = ╱31╱1╱ // 0x1518 @0xe
0x150a…151f at000f = ╱fe0000b004╱ // 0x1519 @0xf
0x150a…151f at0014 = EOL // 0x151e @0x14
0x150a…151f }
0x151f…1537 9c84 2280 INPUT "V{lg…1-3:" , SVAR2 $
0x151f…1537 LineComalBcd {
0x151f…1537 ptr = 0x9c84 // 0x151f @0x0
0x151f…1537 lno = 0x2280 // 0x1521 @0x2
0x151f…1537 at0004 = ╱91╱ INPUT ╱ // 0x1523 @0x4
0x151f…1537 at0005 = ╱22╱"╱ // 0x1524 @0x5
0x151f…1537 at0006 = ╱56╱V╱ // 0x1525 @0x6
0x151f…1537 at0007 = ╱7b╱{╱ // 0x1526 @0x7
0x151f…1537 at0008 = ╱6c╱l╱ // 0x1527 @0x8
0x151f…1537 at0009 = ╱67╱g╱ // 0x1528 @0x9
0x151f…1537 at000a = ╱20╱…╱ // 0x1529 @0xa
0x151f…1537 at000b = ╱31╱1╱ // 0x152a @0xb
0x151f…1537 at000c = ╱2d╱-╱ // 0x152b @0xc
0x151f…1537 at000d = ╱33╱3╱ // 0x152c @0xd
0x151f…1537 at000e = ╱3a╱:╱ // 0x152d @0xe
0x151f…1537 at000f = ╱22╱"╱ // 0x152e @0xf
0x151f…1537 at0010 = ╱ec╱ , ╱ // 0x152f @0x10
0x151f…1537 at0011 = ╱53╱S╱ // 0x1530 @0x11
0x151f…1537 at0012 = ╱56╱V╱ // 0x1531 @0x12
0x151f…1537 at0013 = ╱41╱A╱ // 0x1532 @0x13
0x151f…1537 at0014 = ╱52╱R╱ // 0x1533 @0x14
0x151f…1537 at0015 = ╱32╱2╱ // 0x1534 @0x15
0x151f…1537 at0016 = ╱ef╱ $ ╱ // 0x1535 @0x16
0x151f…1537 at0017 = EOL // 0x1536 @0x17
0x151f…1537 }
0x1537…1552 9c9f 2290 UNTIL SVAR2 $ >= "0" AND SVAR2 $ < "4"
0x1537…1552 LineComalBcd {
0x1537…1552 ptr = 0x9c9f // 0x1537 @0x0
0x1537…1552 lno = 0x2290 // 0x1539 @0x2
0x1537…1552 at0004 = ╱98╱ UNTIL ╱ // 0x153b @0x4
0x1537…1552 at0005 = ╱53╱S╱ // 0x153c @0x5
0x1537…1552 at0006 = ╱56╱V╱ // 0x153d @0x6
0x1537…1552 at0007 = ╱41╱A╱ // 0x153e @0x7
0x1537…1552 at0008 = ╱52╱R╱ // 0x153f @0x8
0x1537…1552 at0009 = ╱32╱2╱ // 0x1540 @0x9
0x1537…1552 at000a = ╱ef╱ $ ╱ // 0x1541 @0xa
0x1537…1552 at000b = ╱e0╱ >= ╱ // 0x1542 @0xb
0x1537…1552 at000c = ╱22╱"╱ // 0x1543 @0xc
0x1537…1552 at000d = ╱30╱0╱ // 0x1544 @0xd
0x1537…1552 at000e = ╱22╱"╱ // 0x1545 @0xe
0x1537…1552 at000f = ╱da╱ AND ╱ // 0x1546 @0xf
0x1537…1552 at0010 = ╱53╱S╱ // 0x1547 @0x10
0x1537…1552 at0011 = ╱56╱V╱ // 0x1548 @0x11
0x1537…1552 at0012 = ╱41╱A╱ // 0x1549 @0x12
0x1537…1552 at0013 = ╱52╱R╱ // 0x154a @0x13
0x1537…1552 at0014 = ╱32╱2╱ // 0x154b @0x14
0x1537…1552 at0015 = ╱ef╱ $ ╱ // 0x154c @0x15
0x1537…1552 at0016 = ╱dd╱ < ╱ // 0x154d @0x16
0x1537…1552 at0017 = ╱22╱"╱ // 0x154e @0x17
0x1537…1552 at0018 = ╱34╱4╱ // 0x154f @0x18
0x1537…1552 at0019 = ╱22╱"╱ // 0x1550 @0x19
0x1537…1552 at001a = EOL // 0x1551 @0x1a
0x1537…1552 }
0x1552…1560 9cad 2300 CASE SVAR2 $ OF
0x1552…1560 LineComalBcd {
0x1552…1560 ptr = 0x9cad // 0x1552 @0x0
0x1552…1560 lno = 0x2300 // 0x1554 @0x2
0x1552…1560 at0004 = ╱a200╱ CASE ╱ // 0x1556 @0x4
0x1552…1560 at0006 = ╱53╱S╱ // 0x1558 @0x6
0x1552…1560 at0007 = ╱56╱V╱ // 0x1559 @0x7
0x1552…1560 at0008 = ╱41╱A╱ // 0x155a @0x8
0x1552…1560 at0009 = ╱52╱R╱ // 0x155b @0x9
0x1552…1560 at000a = ╱32╱2╱ // 0x155c @0xa
0x1552…1560 at000b = ╱ef╱ $ ╱ // 0x155d @0xb
0x1552…1560 at000c = ╱ba╱ OF ╱ // 0x155e @0xc
0x1552…1560 at000d = EOL // 0x155f @0xd
0x1552…1560 }
0x1560…1571 9cbe 2310 FEJL1 = 1
0x1560…1571 LineComalBcd {
0x1560…1571 ptr = 0x9cbe // 0x1560 @0x0
0x1560…1571 lno = 0x2310 // 0x1562 @0x2
0x1560…1571 at0004 = ╱46╱F╱ // 0x1564 @0x4
0x1560…1571 at0005 = ╱45╱E╱ // 0x1565 @0x5
0x1560…1571 at0006 = ╱4a╱J╱ // 0x1566 @0x6
0x1560…1571 at0007 = ╱4c╱L╱ // 0x1567 @0x7
0x1560…1571 at0008 = ╱31╱1╱ // 0x1568 @0x8
0x1560…1571 at0009 = ╱dc╱ = ╱ // 0x1569 @0x9
0x1560…1571 at000a = ╱31╱1╱ // 0x156a @0xa
0x1560…1571 at000b = ╱fe00008001╱ // 0x156b @0xb
0x1560…1571 at0010 = EOL // 0x1570 @0x10
0x1560…1571 }
0x1571…157b 9cc8 2320 WHEN "1"
0x1571…157b LineComalBcd {
0x1571…157b ptr = 0x9cc8 // 0x1571 @0x0
0x1571…157b lno = 0x2320 // 0x1573 @0x2
0x1571…157b at0004 = ╱a300╱ WHEN ╱ // 0x1575 @0x4
0x1571…157b at0006 = ╱22╱"╱ // 0x1577 @0x6
0x1571…157b at0007 = ╱31╱1╱ // 0x1578 @0x7
0x1571…157b at0008 = ╱22╱"╱ // 0x1579 @0x8
0x1571…157b at0009 = EOL // 0x157a @0x9
0x1571…157b }
0x157b…15a6 9cf3 2330 TEK $ = "Kontosp|rgeprogram" ; B $ = A $ + "KSP1"
0x157b…15a6 LineComalBcd {
0x157b…15a6 ptr = 0x9cf3 // 0x157b @0x0
0x157b…15a6 lno = 0x2330 // 0x157d @0x2
0x157b…15a6 at0004 = ╱54╱T╱ // 0x157f @0x4
0x157b…15a6 at0005 = ╱45╱E╱ // 0x1580 @0x5
0x157b…15a6 at0006 = ╱4b╱K╱ // 0x1581 @0x6
0x157b…15a6 at0007 = ╱ef╱ $ ╱ // 0x1582 @0x7
0x157b…15a6 at0008 = ╱dc╱ = ╱ // 0x1583 @0x8
0x157b…15a6 at0009 = ╱22╱"╱ // 0x1584 @0x9
0x157b…15a6 at000a = ╱4b╱K╱ // 0x1585 @0xa
0x157b…15a6 at000b = ╱6f╱o╱ // 0x1586 @0xb
0x157b…15a6 at000c = ╱6e╱n╱ // 0x1587 @0xc
0x157b…15a6 at000d = ╱74╱t╱ // 0x1588 @0xd
0x157b…15a6 at000e = ╱6f╱o╱ // 0x1589 @0xe
0x157b…15a6 at000f = ╱73╱s╱ // 0x158a @0xf
0x157b…15a6 at0010 = ╱70╱p╱ // 0x158b @0x10
0x157b…15a6 at0011 = ╱7c╱|╱ // 0x158c @0x11
0x157b…15a6 at0012 = ╱72╱r╱ // 0x158d @0x12
0x157b…15a6 at0013 = ╱67╱g╱ // 0x158e @0x13
0x157b…15a6 at0014 = ╱65╱e╱ // 0x158f @0x14
0x157b…15a6 at0015 = ╱70╱p╱ // 0x1590 @0x15
0x157b…15a6 at0016 = ╱72╱r╱ // 0x1591 @0x16
0x157b…15a6 at0017 = ╱6f╱o╱ // 0x1592 @0x17
0x157b…15a6 at0018 = ╱67╱g╱ // 0x1593 @0x18
0x157b…15a6 at0019 = ╱72╱r╱ // 0x1594 @0x19
0x157b…15a6 at001a = ╱61╱a╱ // 0x1595 @0x1a
0x157b…15a6 at001b = ╱6d╱m╱ // 0x1596 @0x1b
0x157b…15a6 at001c = ╱22╱"╱ // 0x1597 @0x1c
0x157b…15a6 at001d = ╱eb╱ ; ╱ // 0x1598 @0x1d
0x157b…15a6 at001e = ╱42╱B╱ // 0x1599 @0x1e
0x157b…15a6 at001f = ╱ef╱ $ ╱ // 0x159a @0x1f
0x157b…15a6 at0020 = ╱dc╱ = ╱ // 0x159b @0x20
0x157b…15a6 at0021 = ╱41╱A╱ // 0x159c @0x21
0x157b…15a6 at0022 = ╱ef╱ $ ╱ // 0x159d @0x22
0x157b…15a6 at0023 = ╱f1╱ + ╱ // 0x159e @0x23
0x157b…15a6 at0024 = ╱22╱"╱ // 0x159f @0x24
0x157b…15a6 at0025 = ╱4b╱K╱ // 0x15a0 @0x25
0x157b…15a6 at0026 = ╱53╱S╱ // 0x15a1 @0x26
0x157b…15a6 at0027 = ╱50╱P╱ // 0x15a2 @0x27
0x157b…15a6 at0028 = ╱31╱1╱ // 0x15a3 @0x28
0x157b…15a6 at0029 = ╱22╱"╱ // 0x15a4 @0x29
0x157b…15a6 at002a = EOL // 0x15a5 @0x2a
0x157b…15a6 }
0x15a6…15b0 9cfd 2340 WHEN "2"
0x15a6…15b0 LineComalBcd {
0x15a6…15b0 ptr = 0x9cfd // 0x15a6 @0x0
0x15a6…15b0 lno = 0x2340 // 0x15a8 @0x2
0x15a6…15b0 at0004 = ╱a300╱ WHEN ╱ // 0x15aa @0x4
0x15a6…15b0 at0006 = ╱22╱"╱ // 0x15ac @0x6
0x15a6…15b0 at0007 = ╱32╱2╱ // 0x15ad @0x7
0x15a6…15b0 at0008 = ╱22╱"╱ // 0x15ae @0x8
0x15a6…15b0 at0009 = EOL // 0x15af @0x9
0x15a6…15b0 }
0x15b0…15d9 9d26 2350 TEK $ = "Debitorlister" ; B $ = A $ + "DEBLIST"
0x15b0…15d9 LineComalBcd {
0x15b0…15d9 ptr = 0x9d26 // 0x15b0 @0x0
0x15b0…15d9 lno = 0x2350 // 0x15b2 @0x2
0x15b0…15d9 at0004 = ╱54╱T╱ // 0x15b4 @0x4
0x15b0…15d9 at0005 = ╱45╱E╱ // 0x15b5 @0x5
0x15b0…15d9 at0006 = ╱4b╱K╱ // 0x15b6 @0x6
0x15b0…15d9 at0007 = ╱ef╱ $ ╱ // 0x15b7 @0x7
0x15b0…15d9 at0008 = ╱dc╱ = ╱ // 0x15b8 @0x8
0x15b0…15d9 at0009 = ╱22╱"╱ // 0x15b9 @0x9
0x15b0…15d9 at000a = ╱44╱D╱ // 0x15ba @0xa
0x15b0…15d9 at000b = ╱65╱e╱ // 0x15bb @0xb
0x15b0…15d9 at000c = ╱62╱b╱ // 0x15bc @0xc
0x15b0…15d9 at000d = ╱69╱i╱ // 0x15bd @0xd
0x15b0…15d9 at000e = ╱74╱t╱ // 0x15be @0xe
0x15b0…15d9 at000f = ╱6f╱o╱ // 0x15bf @0xf
0x15b0…15d9 at0010 = ╱72╱r╱ // 0x15c0 @0x10
0x15b0…15d9 at0011 = ╱6c╱l╱ // 0x15c1 @0x11
0x15b0…15d9 at0012 = ╱69╱i╱ // 0x15c2 @0x12
0x15b0…15d9 at0013 = ╱73╱s╱ // 0x15c3 @0x13
0x15b0…15d9 at0014 = ╱74╱t╱ // 0x15c4 @0x14
0x15b0…15d9 at0015 = ╱65╱e╱ // 0x15c5 @0x15
0x15b0…15d9 at0016 = ╱72╱r╱ // 0x15c6 @0x16
0x15b0…15d9 at0017 = ╱22╱"╱ // 0x15c7 @0x17
0x15b0…15d9 at0018 = ╱eb╱ ; ╱ // 0x15c8 @0x18
0x15b0…15d9 at0019 = ╱42╱B╱ // 0x15c9 @0x19
0x15b0…15d9 at001a = ╱ef╱ $ ╱ // 0x15ca @0x1a
0x15b0…15d9 at001b = ╱dc╱ = ╱ // 0x15cb @0x1b
0x15b0…15d9 at001c = ╱41╱A╱ // 0x15cc @0x1c
0x15b0…15d9 at001d = ╱ef╱ $ ╱ // 0x15cd @0x1d
0x15b0…15d9 at001e = ╱f1╱ + ╱ // 0x15ce @0x1e
0x15b0…15d9 at001f = ╱22╱"╱ // 0x15cf @0x1f
0x15b0…15d9 at0020 = ╱44╱D╱ // 0x15d0 @0x20
0x15b0…15d9 at0021 = ╱45╱E╱ // 0x15d1 @0x21
0x15b0…15d9 at0022 = ╱42╱B╱ // 0x15d2 @0x22
0x15b0…15d9 at0023 = ╱4c╱L╱ // 0x15d3 @0x23
0x15b0…15d9 at0024 = ╱49╱I╱ // 0x15d4 @0x24
0x15b0…15d9 at0025 = ╱53╱S╱ // 0x15d5 @0x25
0x15b0…15d9 at0026 = ╱54╱T╱ // 0x15d6 @0x26
0x15b0…15d9 at0027 = ╱22╱"╱ // 0x15d7 @0x27
0x15b0…15d9 at0028 = EOL // 0x15d8 @0x28
0x15b0…15d9 }
0x15d9…15e3 9d30 2360 WHEN "3"
0x15d9…15e3 LineComalBcd {
0x15d9…15e3 ptr = 0x9d30 // 0x15d9 @0x0
0x15d9…15e3 lno = 0x2360 // 0x15db @0x2
0x15d9…15e3 at0004 = ╱a300╱ WHEN ╱ // 0x15dd @0x4
0x15d9…15e3 at0006 = ╱22╱"╱ // 0x15df @0x6
0x15d9…15e3 at0007 = ╱33╱3╱ // 0x15e0 @0x7
0x15d9…15e3 at0008 = ╱22╱"╱ // 0x15e1 @0x8
0x15d9…15e3 at0009 = EOL // 0x15e2 @0x9
0x15d9…15e3 }
0x15e3…1607 9d54 2370 TEK $ = "Balancer" ; B $ = A $ + "BALANCE"
0x15e3…1607 LineComalBcd {
0x15e3…1607 ptr = 0x9d54 // 0x15e3 @0x0
0x15e3…1607 lno = 0x2370 // 0x15e5 @0x2
0x15e3…1607 at0004 = ╱54╱T╱ // 0x15e7 @0x4
0x15e3…1607 at0005 = ╱45╱E╱ // 0x15e8 @0x5
0x15e3…1607 at0006 = ╱4b╱K╱ // 0x15e9 @0x6
0x15e3…1607 at0007 = ╱ef╱ $ ╱ // 0x15ea @0x7
0x15e3…1607 at0008 = ╱dc╱ = ╱ // 0x15eb @0x8
0x15e3…1607 at0009 = ╱22╱"╱ // 0x15ec @0x9
0x15e3…1607 at000a = ╱42╱B╱ // 0x15ed @0xa
0x15e3…1607 at000b = ╱61╱a╱ // 0x15ee @0xb
0x15e3…1607 at000c = ╱6c╱l╱ // 0x15ef @0xc
0x15e3…1607 at000d = ╱61╱a╱ // 0x15f0 @0xd
0x15e3…1607 at000e = ╱6e╱n╱ // 0x15f1 @0xe
0x15e3…1607 at000f = ╱63╱c╱ // 0x15f2 @0xf
0x15e3…1607 at0010 = ╱65╱e╱ // 0x15f3 @0x10
0x15e3…1607 at0011 = ╱72╱r╱ // 0x15f4 @0x11
0x15e3…1607 at0012 = ╱22╱"╱ // 0x15f5 @0x12
0x15e3…1607 at0013 = ╱eb╱ ; ╱ // 0x15f6 @0x13
0x15e3…1607 at0014 = ╱42╱B╱ // 0x15f7 @0x14
0x15e3…1607 at0015 = ╱ef╱ $ ╱ // 0x15f8 @0x15
0x15e3…1607 at0016 = ╱dc╱ = ╱ // 0x15f9 @0x16
0x15e3…1607 at0017 = ╱41╱A╱ // 0x15fa @0x17
0x15e3…1607 at0018 = ╱ef╱ $ ╱ // 0x15fb @0x18
0x15e3…1607 at0019 = ╱f1╱ + ╱ // 0x15fc @0x19
0x15e3…1607 at001a = ╱22╱"╱ // 0x15fd @0x1a
0x15e3…1607 at001b = ╱42╱B╱ // 0x15fe @0x1b
0x15e3…1607 at001c = ╱41╱A╱ // 0x15ff @0x1c
0x15e3…1607 at001d = ╱4c╱L╱ // 0x1600 @0x1d
0x15e3…1607 at001e = ╱41╱A╱ // 0x1601 @0x1e
0x15e3…1607 at001f = ╱4e╱N╱ // 0x1602 @0x1f
0x15e3…1607 at0020 = ╱43╱C╱ // 0x1603 @0x20
0x15e3…1607 at0021 = ╱45╱E╱ // 0x1604 @0x21
0x15e3…1607 at0022 = ╱22╱"╱ // 0x1605 @0x22
0x15e3…1607 at0023 = EOL // 0x1606 @0x23
0x15e3…1607 }
0x1607…160d 9d5a 2400 ENDCASE
0x1607…160d LineComalBcd {
0x1607…160d ptr = 0x9d5a // 0x1607 @0x0
0x1607…160d lno = 0x2400 // 0x1609 @0x2
0x1607…160d at0004 = ╱a4╱ ENDCASE ╱ // 0x160b @0x4
0x1607…160d at0005 = EOL // 0x160c @0x5
0x1607…160d }
0x160d…1617 9d64 2410 WHEN "6"
0x160d…1617 LineComalBcd {
0x160d…1617 ptr = 0x9d64 // 0x160d @0x0
0x160d…1617 lno = 0x2410 // 0x160f @0x2
0x160d…1617 at0004 = ╱a300╱ WHEN ╱ // 0x1611 @0x4
0x160d…1617 at0006 = ╱22╱"╱ // 0x1613 @0x6
0x160d…1617 at0007 = ╱36╱6╱ // 0x1614 @0x7
0x160d…1617 at0008 = ╱22╱"╱ // 0x1615 @0x8
0x160d…1617 at0009 = EOL // 0x1616 @0x9
0x160d…1617 }
0x1617…1646 9d93 2420 TEK $ = "Dagsafslutning." ; B $ = A $ + "BJ" ; E = 1
0x1617…1646 LineComalBcd {
0x1617…1646 ptr = 0x9d93 // 0x1617 @0x0
0x1617…1646 lno = 0x2420 // 0x1619 @0x2
0x1617…1646 at0004 = ╱54╱T╱ // 0x161b @0x4
0x1617…1646 at0005 = ╱45╱E╱ // 0x161c @0x5
0x1617…1646 at0006 = ╱4b╱K╱ // 0x161d @0x6
0x1617…1646 at0007 = ╱ef╱ $ ╱ // 0x161e @0x7
0x1617…1646 at0008 = ╱dc╱ = ╱ // 0x161f @0x8
0x1617…1646 at0009 = ╱22╱"╱ // 0x1620 @0x9
0x1617…1646 at000a = ╱44╱D╱ // 0x1621 @0xa
0x1617…1646 at000b = ╱61╱a╱ // 0x1622 @0xb
0x1617…1646 at000c = ╱67╱g╱ // 0x1623 @0xc
0x1617…1646 at000d = ╱73╱s╱ // 0x1624 @0xd
0x1617…1646 at000e = ╱61╱a╱ // 0x1625 @0xe
0x1617…1646 at000f = ╱66╱f╱ // 0x1626 @0xf
0x1617…1646 at0010 = ╱73╱s╱ // 0x1627 @0x10
0x1617…1646 at0011 = ╱6c╱l╱ // 0x1628 @0x11
0x1617…1646 at0012 = ╱75╱u╱ // 0x1629 @0x12
0x1617…1646 at0013 = ╱74╱t╱ // 0x162a @0x13
0x1617…1646 at0014 = ╱6e╱n╱ // 0x162b @0x14
0x1617…1646 at0015 = ╱69╱i╱ // 0x162c @0x15
0x1617…1646 at0016 = ╱6e╱n╱ // 0x162d @0x16
0x1617…1646 at0017 = ╱67╱g╱ // 0x162e @0x17
0x1617…1646 at0018 = ╱2e╱.╱ // 0x162f @0x18
0x1617…1646 at0019 = ╱22╱"╱ // 0x1630 @0x19
0x1617…1646 at001a = ╱eb╱ ; ╱ // 0x1631 @0x1a
0x1617…1646 at001b = ╱42╱B╱ // 0x1632 @0x1b
0x1617…1646 at001c = ╱ef╱ $ ╱ // 0x1633 @0x1c
0x1617…1646 at001d = ╱dc╱ = ╱ // 0x1634 @0x1d
0x1617…1646 at001e = ╱41╱A╱ // 0x1635 @0x1e
0x1617…1646 at001f = ╱ef╱ $ ╱ // 0x1636 @0x1f
0x1617…1646 at0020 = ╱f1╱ + ╱ // 0x1637 @0x20
0x1617…1646 at0021 = ╱22╱"╱ // 0x1638 @0x21
0x1617…1646 at0022 = ╱42╱B╱ // 0x1639 @0x22
0x1617…1646 at0023 = ╱4a╱J╱ // 0x163a @0x23
0x1617…1646 at0024 = ╱22╱"╱ // 0x163b @0x24
0x1617…1646 at0025 = ╱eb╱ ; ╱ // 0x163c @0x25
0x1617…1646 at0026 = ╱45╱E╱ // 0x163d @0x26
0x1617…1646 at0027 = ╱dc╱ = ╱ // 0x163e @0x27
0x1617…1646 at0028 = ╱31╱1╱ // 0x163f @0x28
0x1617…1646 at0029 = ╱fe00008001╱ // 0x1640 @0x29
0x1617…1646 at002e = EOL // 0x1645 @0x2e
0x1617…1646 }
0x1646…1650 9d9d 2430 WHEN "8"
0x1646…1650 LineComalBcd {
0x1646…1650 ptr = 0x9d9d // 0x1646 @0x0
0x1646…1650 lno = 0x2430 // 0x1648 @0x2
0x1646…1650 at0004 = ╱a300╱ WHEN ╱ // 0x164a @0x4
0x1646…1650 at0006 = ╱22╱"╱ // 0x164c @0x6
0x1646…1650 at0007 = ╱38╱8╱ // 0x164d @0x7
0x1646…1650 at0008 = ╱22╱"╱ // 0x164e @0x8
0x1646…1650 at0009 = EOL // 0x164f @0x9
0x1646…1650 }
0x1650…168b 9dd8 2440 TEK $ = "]rsafslutning." ; B $ = C $ + "]RSAFS" ; D = 1 ; E = 4
0x1650…168b LineComalBcd {
0x1650…168b ptr = 0x9dd8 // 0x1650 @0x0
0x1650…168b lno = 0x2440 // 0x1652 @0x2
0x1650…168b at0004 = ╱54╱T╱ // 0x1654 @0x4
0x1650…168b at0005 = ╱45╱E╱ // 0x1655 @0x5
0x1650…168b at0006 = ╱4b╱K╱ // 0x1656 @0x6
0x1650…168b at0007 = ╱ef╱ $ ╱ // 0x1657 @0x7
0x1650…168b at0008 = ╱dc╱ = ╱ // 0x1658 @0x8
0x1650…168b at0009 = ╱22╱"╱ // 0x1659 @0x9
0x1650…168b at000a = ╱5d╱]╱ // 0x165a @0xa
0x1650…168b at000b = ╱72╱r╱ // 0x165b @0xb
0x1650…168b at000c = ╱73╱s╱ // 0x165c @0xc
0x1650…168b at000d = ╱61╱a╱ // 0x165d @0xd
0x1650…168b at000e = ╱66╱f╱ // 0x165e @0xe
0x1650…168b at000f = ╱73╱s╱ // 0x165f @0xf
0x1650…168b at0010 = ╱6c╱l╱ // 0x1660 @0x10
0x1650…168b at0011 = ╱75╱u╱ // 0x1661 @0x11
0x1650…168b at0012 = ╱74╱t╱ // 0x1662 @0x12
0x1650…168b at0013 = ╱6e╱n╱ // 0x1663 @0x13
0x1650…168b at0014 = ╱69╱i╱ // 0x1664 @0x14
0x1650…168b at0015 = ╱6e╱n╱ // 0x1665 @0x15
0x1650…168b at0016 = ╱67╱g╱ // 0x1666 @0x16
0x1650…168b at0017 = ╱2e╱.╱ // 0x1667 @0x17
0x1650…168b at0018 = ╱22╱"╱ // 0x1668 @0x18
0x1650…168b at0019 = ╱eb╱ ; ╱ // 0x1669 @0x19
0x1650…168b at001a = ╱42╱B╱ // 0x166a @0x1a
0x1650…168b at001b = ╱ef╱ $ ╱ // 0x166b @0x1b
0x1650…168b at001c = ╱dc╱ = ╱ // 0x166c @0x1c
0x1650…168b at001d = ╱43╱C╱ // 0x166d @0x1d
0x1650…168b at001e = ╱ef╱ $ ╱ // 0x166e @0x1e
0x1650…168b at001f = ╱f1╱ + ╱ // 0x166f @0x1f
0x1650…168b at0020 = ╱22╱"╱ // 0x1670 @0x20
0x1650…168b at0021 = ╱5d╱]╱ // 0x1671 @0x21
0x1650…168b at0022 = ╱52╱R╱ // 0x1672 @0x22
0x1650…168b at0023 = ╱53╱S╱ // 0x1673 @0x23
0x1650…168b at0024 = ╱41╱A╱ // 0x1674 @0x24
0x1650…168b at0025 = ╱46╱F╱ // 0x1675 @0x25
0x1650…168b at0026 = ╱53╱S╱ // 0x1676 @0x26
0x1650…168b at0027 = ╱22╱"╱ // 0x1677 @0x27
0x1650…168b at0028 = ╱eb╱ ; ╱ // 0x1678 @0x28
0x1650…168b at0029 = ╱44╱D╱ // 0x1679 @0x29
0x1650…168b at002a = ╱dc╱ = ╱ // 0x167a @0x2a
0x1650…168b at002b = ╱31╱1╱ // 0x167b @0x2b
0x1650…168b at002c = ╱fe00008001╱ // 0x167c @0x2c
0x1650…168b at0031 = ╱eb╱ ; ╱ // 0x1681 @0x31
0x1650…168b at0032 = ╱45╱E╱ // 0x1682 @0x32
0x1650…168b at0033 = ╱dc╱ = ╱ // 0x1683 @0x33
0x1650…168b at0034 = ╱34╱4╱ // 0x1684 @0x34
0x1650…168b at0035 = ╱fe00008003╱ // 0x1685 @0x35
0x1650…168b at003a = EOL // 0x168a @0x3a
0x1650…168b }
0x168b…1691 9dde 2450 CLEAR
0x168b…1691 LineComalBcd {
0x168b…1691 ptr = 0x9dde // 0x168b @0x0
0x168b…1691 lno = 0x2450 // 0x168d @0x2
0x168b…1691 at0004 = ╱a0╱ CLEAR ╱ // 0x168f @0x4
0x168b…1691 at0005 = EOL // 0x1690 @0x5
0x168b…1691 }
0x1691…1697 9de4 2460 REPEAT
0x1691…1697 LineComalBcd {
0x1691…1697 ptr = 0x9de4 // 0x1691 @0x0
0x1691…1697 lno = 0x2460 // 0x1693 @0x2
0x1691…1697 at0004 = ╱97╱ REPEAT ╱ // 0x1695 @0x4
0x1691…1697 at0005 = EOL // 0x1696 @0x5
0x1691…1697 }
0x1697…16ac 9df9 2470 CURSOR 20 , 13
0x1697…16ac LineComalBcd {
0x1697…16ac ptr = 0x9df9 // 0x1697 @0x0
0x1697…16ac lno = 0x2470 // 0x1699 @0x2
0x1697…16ac at0004 = ╱a1╱ CURSOR ╱ // 0x169b @0x4
0x1697…16ac at0005 = ╱32╱2╱ // 0x169c @0x5
0x1697…16ac at0006 = ╱30╱0╱ // 0x169d @0x6
0x1697…16ac at0007 = ╱fe0000a005╱ // 0x169e @0x7
0x1697…16ac at000c = ╱ec╱ , ╱ // 0x16a3 @0xc
0x1697…16ac at000d = ╱31╱1╱ // 0x16a4 @0xd
0x1697…16ac at000e = ╱33╱3╱ // 0x16a5 @0xe
0x1697…16ac at000f = ╱fe0000d004╱ // 0x16a6 @0xf
0x1697…16ac at0014 = EOL // 0x16ab @0x14
0x1697…16ac }
0x16ac…16df 9e2c 2480 INPUT "Er…m}nedsafslutning…foretaget…(J/N)…" , SVAR2 $
0x16ac…16df LineComalBcd {
0x16ac…16df ptr = 0x9e2c // 0x16ac @0x0
0x16ac…16df lno = 0x2480 // 0x16ae @0x2
0x16ac…16df at0004 = ╱91╱ INPUT ╱ // 0x16b0 @0x4
0x16ac…16df at0005 = ╱22╱"╱ // 0x16b1 @0x5
0x16ac…16df at0006 = ╱45╱E╱ // 0x16b2 @0x6
0x16ac…16df at0007 = ╱72╱r╱ // 0x16b3 @0x7
0x16ac…16df at0008 = ╱20╱…╱ // 0x16b4 @0x8
0x16ac…16df at0009 = ╱6d╱m╱ // 0x16b5 @0x9
0x16ac…16df at000a = ╱7d╱}╱ // 0x16b6 @0xa
0x16ac…16df at000b = ╱6e╱n╱ // 0x16b7 @0xb
0x16ac…16df at000c = ╱65╱e╱ // 0x16b8 @0xc
0x16ac…16df at000d = ╱64╱d╱ // 0x16b9 @0xd
0x16ac…16df at000e = ╱73╱s╱ // 0x16ba @0xe
0x16ac…16df at000f = ╱61╱a╱ // 0x16bb @0xf
0x16ac…16df at0010 = ╱66╱f╱ // 0x16bc @0x10
0x16ac…16df at0011 = ╱73╱s╱ // 0x16bd @0x11
0x16ac…16df at0012 = ╱6c╱l╱ // 0x16be @0x12
0x16ac…16df at0013 = ╱75╱u╱ // 0x16bf @0x13
0x16ac…16df at0014 = ╱74╱t╱ // 0x16c0 @0x14
0x16ac…16df at0015 = ╱6e╱n╱ // 0x16c1 @0x15
0x16ac…16df at0016 = ╱69╱i╱ // 0x16c2 @0x16
0x16ac…16df at0017 = ╱6e╱n╱ // 0x16c3 @0x17
0x16ac…16df at0018 = ╱67╱g╱ // 0x16c4 @0x18
0x16ac…16df at0019 = ╱20╱…╱ // 0x16c5 @0x19
0x16ac…16df at001a = ╱66╱f╱ // 0x16c6 @0x1a
0x16ac…16df at001b = ╱6f╱o╱ // 0x16c7 @0x1b
0x16ac…16df at001c = ╱72╱r╱ // 0x16c8 @0x1c
0x16ac…16df at001d = ╱65╱e╱ // 0x16c9 @0x1d
0x16ac…16df at001e = ╱74╱t╱ // 0x16ca @0x1e
0x16ac…16df at001f = ╱61╱a╱ // 0x16cb @0x1f
0x16ac…16df at0020 = ╱67╱g╱ // 0x16cc @0x20
0x16ac…16df at0021 = ╱65╱e╱ // 0x16cd @0x21
0x16ac…16df at0022 = ╱74╱t╱ // 0x16ce @0x22
0x16ac…16df at0023 = ╱20╱…╱ // 0x16cf @0x23
0x16ac…16df at0024 = ╱28╱(╱ // 0x16d0 @0x24
0x16ac…16df at0025 = ╱4a╱J╱ // 0x16d1 @0x25
0x16ac…16df at0026 = ╱2f╱/╱ // 0x16d2 @0x26
0x16ac…16df at0027 = ╱4e╱N╱ // 0x16d3 @0x27
0x16ac…16df at0028 = ╱29╱)╱ // 0x16d4 @0x28
0x16ac…16df at0029 = ╱20╱…╱ // 0x16d5 @0x29
0x16ac…16df at002a = ╱22╱"╱ // 0x16d6 @0x2a
0x16ac…16df at002b = ╱ec╱ , ╱ // 0x16d7 @0x2b
0x16ac…16df at002c = ╱53╱S╱ // 0x16d8 @0x2c
0x16ac…16df at002d = ╱56╱V╱ // 0x16d9 @0x2d
0x16ac…16df at002e = ╱41╱A╱ // 0x16da @0x2e
0x16ac…16df at002f = ╱52╱R╱ // 0x16db @0x2f
0x16ac…16df at0030 = ╱32╱2╱ // 0x16dc @0x30
0x16ac…16df at0031 = ╱ef╱ $ ╱ // 0x16dd @0x31
0x16ac…16df at0032 = EOL // 0x16de @0x32
0x16ac…16df }
0x16df…1710 9e5d 2490 UNTIL SVAR2 $ = "J" OR SVAR2 $ = "N" OR SVAR2 $ = "j" OR SVAR2 $ = "n"
0x16df…1710 LineComalBcd {
0x16df…1710 ptr = 0x9e5d // 0x16df @0x0
0x16df…1710 lno = 0x2490 // 0x16e1 @0x2
0x16df…1710 at0004 = ╱98╱ UNTIL ╱ // 0x16e3 @0x4
0x16df…1710 at0005 = ╱53╱S╱ // 0x16e4 @0x5
0x16df…1710 at0006 = ╱56╱V╱ // 0x16e5 @0x6
0x16df…1710 at0007 = ╱41╱A╱ // 0x16e6 @0x7
0x16df…1710 at0008 = ╱52╱R╱ // 0x16e7 @0x8
0x16df…1710 at0009 = ╱32╱2╱ // 0x16e8 @0x9
0x16df…1710 at000a = ╱ef╱ $ ╱ // 0x16e9 @0xa
0x16df…1710 at000b = ╱dc╱ = ╱ // 0x16ea @0xb
0x16df…1710 at000c = ╱22╱"╱ // 0x16eb @0xc
0x16df…1710 at000d = ╱4a╱J╱ // 0x16ec @0xd
0x16df…1710 at000e = ╱22╱"╱ // 0x16ed @0xe
0x16df…1710 at000f = ╱db╱ OR ╱ // 0x16ee @0xf
0x16df…1710 at0010 = ╱53╱S╱ // 0x16ef @0x10
0x16df…1710 at0011 = ╱56╱V╱ // 0x16f0 @0x11
0x16df…1710 at0012 = ╱41╱A╱ // 0x16f1 @0x12
0x16df…1710 at0013 = ╱52╱R╱ // 0x16f2 @0x13
0x16df…1710 at0014 = ╱32╱2╱ // 0x16f3 @0x14
0x16df…1710 at0015 = ╱ef╱ $ ╱ // 0x16f4 @0x15
0x16df…1710 at0016 = ╱dc╱ = ╱ // 0x16f5 @0x16
0x16df…1710 at0017 = ╱22╱"╱ // 0x16f6 @0x17
0x16df…1710 at0018 = ╱4e╱N╱ // 0x16f7 @0x18
0x16df…1710 at0019 = ╱22╱"╱ // 0x16f8 @0x19
0x16df…1710 at001a = ╱db╱ OR ╱ // 0x16f9 @0x1a
0x16df…1710 at001b = ╱53╱S╱ // 0x16fa @0x1b
0x16df…1710 at001c = ╱56╱V╱ // 0x16fb @0x1c
0x16df…1710 at001d = ╱41╱A╱ // 0x16fc @0x1d
0x16df…1710 at001e = ╱52╱R╱ // 0x16fd @0x1e
0x16df…1710 at001f = ╱32╱2╱ // 0x16fe @0x1f
0x16df…1710 at0020 = ╱ef╱ $ ╱ // 0x16ff @0x20
0x16df…1710 at0021 = ╱dc╱ = ╱ // 0x1700 @0x21
0x16df…1710 at0022 = ╱22╱"╱ // 0x1701 @0x22
0x16df…1710 at0023 = ╱6a╱j╱ // 0x1702 @0x23
0x16df…1710 at0024 = ╱22╱"╱ // 0x1703 @0x24
0x16df…1710 at0025 = ╱db╱ OR ╱ // 0x1704 @0x25
0x16df…1710 at0026 = ╱53╱S╱ // 0x1705 @0x26
0x16df…1710 at0027 = ╱56╱V╱ // 0x1706 @0x27
0x16df…1710 at0028 = ╱41╱A╱ // 0x1707 @0x28
0x16df…1710 at0029 = ╱52╱R╱ // 0x1708 @0x29
0x16df…1710 at002a = ╱32╱2╱ // 0x1709 @0x2a
0x16df…1710 at002b = ╱ef╱ $ ╱ // 0x170a @0x2b
0x16df…1710 at002c = ╱dc╱ = ╱ // 0x170b @0x2c
0x16df…1710 at002d = ╱22╱"╱ // 0x170c @0x2d
0x16df…1710 at002e = ╱6e╱n╱ // 0x170d @0x2e
0x16df…1710 at002f = ╱22╱"╱ // 0x170e @0x2f
0x16df…1710 at0030 = EOL // 0x170f @0x30
0x16df…1710 }
0x1710…1738 9e85 2500 IF SVAR2 $ = "n" OR SVAR2 $ = "N" THEN FEJL1 = 1
0x1710…1738 LineComalBcd {
0x1710…1738 ptr = 0x9e85 // 0x1710 @0x0
0x1710…1738 lno = 0x2500 // 0x1712 @0x2
0x1710…1738 at0004 = ╱82╱ IF ╱ // 0x1714 @0x4
0x1710…1738 at0005 = ╱53╱S╱ // 0x1715 @0x5
0x1710…1738 at0006 = ╱56╱V╱ // 0x1716 @0x6
0x1710…1738 at0007 = ╱41╱A╱ // 0x1717 @0x7
0x1710…1738 at0008 = ╱52╱R╱ // 0x1718 @0x8
0x1710…1738 at0009 = ╱32╱2╱ // 0x1719 @0x9
0x1710…1738 at000a = ╱ef╱ $ ╱ // 0x171a @0xa
0x1710…1738 at000b = ╱dc╱ = ╱ // 0x171b @0xb
0x1710…1738 at000c = ╱22╱"╱ // 0x171c @0xc
0x1710…1738 at000d = ╱6e╱n╱ // 0x171d @0xd
0x1710…1738 at000e = ╱22╱"╱ // 0x171e @0xe
0x1710…1738 at000f = ╱db╱ OR ╱ // 0x171f @0xf
0x1710…1738 at0010 = ╱53╱S╱ // 0x1720 @0x10
0x1710…1738 at0011 = ╱56╱V╱ // 0x1721 @0x11
0x1710…1738 at0012 = ╱41╱A╱ // 0x1722 @0x12
0x1710…1738 at0013 = ╱52╱R╱ // 0x1723 @0x13
0x1710…1738 at0014 = ╱32╱2╱ // 0x1724 @0x14
0x1710…1738 at0015 = ╱ef╱ $ ╱ // 0x1725 @0x15
0x1710…1738 at0016 = ╱dc╱ = ╱ // 0x1726 @0x16
0x1710…1738 at0017 = ╱22╱"╱ // 0x1727 @0x17
0x1710…1738 at0018 = ╱4e╱N╱ // 0x1728 @0x18
0x1710…1738 at0019 = ╱22╱"╱ // 0x1729 @0x19
0x1710…1738 at001a = ╱b6╱ THEN ╱ // 0x172a @0x1a
0x1710…1738 at001b = ╱46╱F╱ // 0x172b @0x1b
0x1710…1738 at001c = ╱45╱E╱ // 0x172c @0x1c
0x1710…1738 at001d = ╱4a╱J╱ // 0x172d @0x1d
0x1710…1738 at001e = ╱4c╱L╱ // 0x172e @0x1e
0x1710…1738 at001f = ╱31╱1╱ // 0x172f @0x1f
0x1710…1738 at0020 = ╱dc╱ = ╱ // 0x1730 @0x20
0x1710…1738 at0021 = ╱31╱1╱ // 0x1731 @0x21
0x1710…1738 at0022 = ╱fe00008001╱ // 0x1732 @0x22
0x1710…1738 at0027 = EOL // 0x1737 @0x27
0x1710…1738 }
0x1738…1742 9e8f 2510 WHEN "5"
0x1738…1742 LineComalBcd {
0x1738…1742 ptr = 0x9e8f // 0x1738 @0x0
0x1738…1742 lno = 0x2510 // 0x173a @0x2
0x1738…1742 at0004 = ╱a300╱ WHEN ╱ // 0x173c @0x4
0x1738…1742 at0006 = ╱22╱"╱ // 0x173e @0x6
0x1738…1742 at0007 = ╱35╱5╱ // 0x173f @0x7
0x1738…1742 at0008 = ╱22╱"╱ // 0x1740 @0x8
0x1738…1742 at0009 = EOL // 0x1741 @0x9
0x1738…1742 }
0x1742…1778 9ec5 2520 TEK $ = "Sikkerhedskopiering" ; B $ = C $ + "SKOPI" ; D = 1
0x1742…1778 LineComalBcd {
0x1742…1778 ptr = 0x9ec5 // 0x1742 @0x0
0x1742…1778 lno = 0x2520 // 0x1744 @0x2
0x1742…1778 at0004 = ╱54╱T╱ // 0x1746 @0x4
0x1742…1778 at0005 = ╱45╱E╱ // 0x1747 @0x5
0x1742…1778 at0006 = ╱4b╱K╱ // 0x1748 @0x6
0x1742…1778 at0007 = ╱ef╱ $ ╱ // 0x1749 @0x7
0x1742…1778 at0008 = ╱dc╱ = ╱ // 0x174a @0x8
0x1742…1778 at0009 = ╱22╱"╱ // 0x174b @0x9
0x1742…1778 at000a = ╱53╱S╱ // 0x174c @0xa
0x1742…1778 at000b = ╱69╱i╱ // 0x174d @0xb
0x1742…1778 at000c = ╱6b╱k╱ // 0x174e @0xc
0x1742…1778 at000d = ╱6b╱k╱ // 0x174f @0xd
0x1742…1778 at000e = ╱65╱e╱ // 0x1750 @0xe
0x1742…1778 at000f = ╱72╱r╱ // 0x1751 @0xf
0x1742…1778 at0010 = ╱68╱h╱ // 0x1752 @0x10
0x1742…1778 at0011 = ╱65╱e╱ // 0x1753 @0x11
0x1742…1778 at0012 = ╱64╱d╱ // 0x1754 @0x12
0x1742…1778 at0013 = ╱73╱s╱ // 0x1755 @0x13
0x1742…1778 at0014 = ╱6b╱k╱ // 0x1756 @0x14
0x1742…1778 at0015 = ╱6f╱o╱ // 0x1757 @0x15
0x1742…1778 at0016 = ╱70╱p╱ // 0x1758 @0x16
0x1742…1778 at0017 = ╱69╱i╱ // 0x1759 @0x17
0x1742…1778 at0018 = ╱65╱e╱ // 0x175a @0x18
0x1742…1778 at0019 = ╱72╱r╱ // 0x175b @0x19
0x1742…1778 at001a = ╱69╱i╱ // 0x175c @0x1a
0x1742…1778 at001b = ╱6e╱n╱ // 0x175d @0x1b
0x1742…1778 at001c = ╱67╱g╱ // 0x175e @0x1c
0x1742…1778 at001d = ╱22╱"╱ // 0x175f @0x1d
0x1742…1778 at001e = ╱eb╱ ; ╱ // 0x1760 @0x1e
0x1742…1778 at001f = ╱42╱B╱ // 0x1761 @0x1f
0x1742…1778 at0020 = ╱ef╱ $ ╱ // 0x1762 @0x20
0x1742…1778 at0021 = ╱dc╱ = ╱ // 0x1763 @0x21
0x1742…1778 at0022 = ╱43╱C╱ // 0x1764 @0x22
0x1742…1778 at0023 = ╱ef╱ $ ╱ // 0x1765 @0x23
0x1742…1778 at0024 = ╱f1╱ + ╱ // 0x1766 @0x24
0x1742…1778 at0025 = ╱22╱"╱ // 0x1767 @0x25
0x1742…1778 at0026 = ╱53╱S╱ // 0x1768 @0x26
0x1742…1778 at0027 = ╱4b╱K╱ // 0x1769 @0x27
0x1742…1778 at0028 = ╱4f╱O╱ // 0x176a @0x28
0x1742…1778 at0029 = ╱50╱P╱ // 0x176b @0x29
0x1742…1778 at002a = ╱49╱I╱ // 0x176c @0x2a
0x1742…1778 at002b = ╱22╱"╱ // 0x176d @0x2b
0x1742…1778 at002c = ╱eb╱ ; ╱ // 0x176e @0x2c
0x1742…1778 at002d = ╱44╱D╱ // 0x176f @0x2d
0x1742…1778 at002e = ╱dc╱ = ╱ // 0x1770 @0x2e
0x1742…1778 at002f = ╱31╱1╱ // 0x1771 @0x2f
0x1742…1778 at0030 = ╱fe00008001╱ // 0x1772 @0x30
0x1742…1778 at0035 = EOL // 0x1777 @0x35
0x1742…1778 }
0x1778…1782 9ecf 2530 WHEN "7"
0x1778…1782 LineComalBcd {
0x1778…1782 ptr = 0x9ecf // 0x1778 @0x0
0x1778…1782 lno = 0x2530 // 0x177a @0x2
0x1778…1782 at0004 = ╱a300╱ WHEN ╱ // 0x177c @0x4
0x1778…1782 at0006 = ╱22╱"╱ // 0x177e @0x6
0x1778…1782 at0007 = ╱37╱7╱ // 0x177f @0x7
0x1778…1782 at0008 = ╱22╱"╱ // 0x1780 @0x8
0x1778…1782 at0009 = EOL // 0x1781 @0x9
0x1778…1782 }
0x1782…17a8 9ef5 2540 PRINT "Programvalg.…M}nedsafslutning."
0x1782…17a8 LineComalBcd {
0x1782…17a8 ptr = 0x9ef5 // 0x1782 @0x0
0x1782…17a8 lno = 0x2540 // 0x1784 @0x2
0x1782…17a8 at0004 = ╱92╱ PRINT ╱ // 0x1786 @0x4
0x1782…17a8 at0005 = ╱22╱"╱ // 0x1787 @0x5
0x1782…17a8 at0006 = ╱50╱P╱ // 0x1788 @0x6
0x1782…17a8 at0007 = ╱72╱r╱ // 0x1789 @0x7
0x1782…17a8 at0008 = ╱6f╱o╱ // 0x178a @0x8
0x1782…17a8 at0009 = ╱67╱g╱ // 0x178b @0x9
0x1782…17a8 at000a = ╱72╱r╱ // 0x178c @0xa
0x1782…17a8 at000b = ╱61╱a╱ // 0x178d @0xb
0x1782…17a8 at000c = ╱6d╱m╱ // 0x178e @0xc
0x1782…17a8 at000d = ╱76╱v╱ // 0x178f @0xd
0x1782…17a8 at000e = ╱61╱a╱ // 0x1790 @0xe
0x1782…17a8 at000f = ╱6c╱l╱ // 0x1791 @0xf
0x1782…17a8 at0010 = ╱67╱g╱ // 0x1792 @0x10
0x1782…17a8 at0011 = ╱2e╱.╱ // 0x1793 @0x11
0x1782…17a8 at0012 = ╱20╱…╱ // 0x1794 @0x12
0x1782…17a8 at0013 = ╱4d╱M╱ // 0x1795 @0x13
0x1782…17a8 at0014 = ╱7d╱}╱ // 0x1796 @0x14
0x1782…17a8 at0015 = ╱6e╱n╱ // 0x1797 @0x15
0x1782…17a8 at0016 = ╱65╱e╱ // 0x1798 @0x16
0x1782…17a8 at0017 = ╱64╱d╱ // 0x1799 @0x17
0x1782…17a8 at0018 = ╱73╱s╱ // 0x179a @0x18
0x1782…17a8 at0019 = ╱61╱a╱ // 0x179b @0x19
0x1782…17a8 at001a = ╱66╱f╱ // 0x179c @0x1a
0x1782…17a8 at001b = ╱73╱s╱ // 0x179d @0x1b
0x1782…17a8 at001c = ╱6c╱l╱ // 0x179e @0x1c
0x1782…17a8 at001d = ╱75╱u╱ // 0x179f @0x1d
0x1782…17a8 at001e = ╱74╱t╱ // 0x17a0 @0x1e
0x1782…17a8 at001f = ╱6e╱n╱ // 0x17a1 @0x1f
0x1782…17a8 at0020 = ╱69╱i╱ // 0x17a2 @0x20
0x1782…17a8 at0021 = ╱6e╱n╱ // 0x17a3 @0x21
0x1782…17a8 at0022 = ╱67╱g╱ // 0x17a4 @0x22
0x1782…17a8 at0023 = ╱2e╱.╱ // 0x17a5 @0x23
0x1782…17a8 at0024 = ╱22╱"╱ // 0x17a6 @0x24
0x1782…17a8 at0025 = EOL // 0x17a7 @0x25
0x1782…17a8 }
0x17a8…17bc 9f09 2550 CURSOR 11 , 4
0x17a8…17bc LineComalBcd {
0x17a8…17bc ptr = 0x9f09 // 0x17a8 @0x0
0x17a8…17bc lno = 0x2550 // 0x17aa @0x2
0x17a8…17bc at0004 = ╱a1╱ CURSOR ╱ // 0x17ac @0x4
0x17a8…17bc at0005 = ╱31╱1╱ // 0x17ad @0x5
0x17a8…17bc at0006 = ╱31╱1╱ // 0x17ae @0x6
0x17a8…17bc at0007 = ╱fe0000b004╱ // 0x17af @0x7
0x17a8…17bc at000c = ╱ec╱ , ╱ // 0x17b4 @0xc
0x17a8…17bc at000d = ╱34╱4╱ // 0x17b5 @0xd
0x17a8…17bc at000e = ╱fe00008003╱ // 0x17b6 @0xe
0x17a8…17bc at0013 = EOL // 0x17bb @0x13
0x17a8…17bc }
0x17bc…17d8 9f25 2560 PRINT "1:…M}nedsafslutning."
0x17bc…17d8 LineComalBcd {
0x17bc…17d8 ptr = 0x9f25 // 0x17bc @0x0
0x17bc…17d8 lno = 0x2560 // 0x17be @0x2
0x17bc…17d8 at0004 = ╱92╱ PRINT ╱ // 0x17c0 @0x4
0x17bc…17d8 at0005 = ╱22╱"╱ // 0x17c1 @0x5
0x17bc…17d8 at0006 = ╱31╱1╱ // 0x17c2 @0x6
0x17bc…17d8 at0007 = ╱3a╱:╱ // 0x17c3 @0x7
0x17bc…17d8 at0008 = ╱20╱…╱ // 0x17c4 @0x8
0x17bc…17d8 at0009 = ╱4d╱M╱ // 0x17c5 @0x9
0x17bc…17d8 at000a = ╱7d╱}╱ // 0x17c6 @0xa
0x17bc…17d8 at000b = ╱6e╱n╱ // 0x17c7 @0xb
0x17bc…17d8 at000c = ╱65╱e╱ // 0x17c8 @0xc
0x17bc…17d8 at000d = ╱64╱d╱ // 0x17c9 @0xd
0x17bc…17d8 at000e = ╱73╱s╱ // 0x17ca @0xe
0x17bc…17d8 at000f = ╱61╱a╱ // 0x17cb @0xf
0x17bc…17d8 at0010 = ╱66╱f╱ // 0x17cc @0x10
0x17bc…17d8 at0011 = ╱73╱s╱ // 0x17cd @0x11
0x17bc…17d8 at0012 = ╱6c╱l╱ // 0x17ce @0x12
0x17bc…17d8 at0013 = ╱75╱u╱ // 0x17cf @0x13
0x17bc…17d8 at0014 = ╱74╱t╱ // 0x17d0 @0x14
0x17bc…17d8 at0015 = ╱6e╱n╱ // 0x17d1 @0x15
0x17bc…17d8 at0016 = ╱69╱i╱ // 0x17d2 @0x16
0x17bc…17d8 at0017 = ╱6e╱n╱ // 0x17d3 @0x17
0x17bc…17d8 at0018 = ╱67╱g╱ // 0x17d4 @0x18
0x17bc…17d8 at0019 = ╱2e╱.╱ // 0x17d5 @0x19
0x17bc…17d8 at001a = ╱22╱"╱ // 0x17d6 @0x1a
0x17bc…17d8 at001b = EOL // 0x17d7 @0x1b
0x17bc…17d8 }
0x17d8…17ec 9f39 2570 CURSOR 11 , 6
0x17d8…17ec LineComalBcd {
0x17d8…17ec ptr = 0x9f39 // 0x17d8 @0x0
0x17d8…17ec lno = 0x2570 // 0x17da @0x2
0x17d8…17ec at0004 = ╱a1╱ CURSOR ╱ // 0x17dc @0x4
0x17d8…17ec at0005 = ╱31╱1╱ // 0x17dd @0x5
0x17d8…17ec at0006 = ╱31╱1╱ // 0x17de @0x6
0x17d8…17ec at0007 = ╱fe0000b004╱ // 0x17df @0x7
0x17d8…17ec at000c = ╱ec╱ , ╱ // 0x17e4 @0xc
0x17d8…17ec at000d = ╱36╱6╱ // 0x17e5 @0xd
0x17d8…17ec at000e = ╱fe0000c003╱ // 0x17e6 @0xe
0x17d8…17ec at0013 = EOL // 0x17eb @0x13
0x17d8…17ec }
0x17ec…1806 9f53 2580 PRINT "2:…Renteberegning."
0x17ec…1806 LineComalBcd {
0x17ec…1806 ptr = 0x9f53 // 0x17ec @0x0
0x17ec…1806 lno = 0x2580 // 0x17ee @0x2
0x17ec…1806 at0004 = ╱92╱ PRINT ╱ // 0x17f0 @0x4
0x17ec…1806 at0005 = ╱22╱"╱ // 0x17f1 @0x5
0x17ec…1806 at0006 = ╱32╱2╱ // 0x17f2 @0x6
0x17ec…1806 at0007 = ╱3a╱:╱ // 0x17f3 @0x7
0x17ec…1806 at0008 = ╱20╱…╱ // 0x17f4 @0x8
0x17ec…1806 at0009 = ╱52╱R╱ // 0x17f5 @0x9
0x17ec…1806 at000a = ╱65╱e╱ // 0x17f6 @0xa
0x17ec…1806 at000b = ╱6e╱n╱ // 0x17f7 @0xb
0x17ec…1806 at000c = ╱74╱t╱ // 0x17f8 @0xc
0x17ec…1806 at000d = ╱65╱e╱ // 0x17f9 @0xd
0x17ec…1806 at000e = ╱62╱b╱ // 0x17fa @0xe
0x17ec…1806 at000f = ╱65╱e╱ // 0x17fb @0xf
0x17ec…1806 at0010 = ╱72╱r╱ // 0x17fc @0x10
0x17ec…1806 at0011 = ╱65╱e╱ // 0x17fd @0x11
0x17ec…1806 at0012 = ╱67╱g╱ // 0x17fe @0x12
0x17ec…1806 at0013 = ╱6e╱n╱ // 0x17ff @0x13
0x17ec…1806 at0014 = ╱69╱i╱ // 0x1800 @0x14
0x17ec…1806 at0015 = ╱6e╱n╱ // 0x1801 @0x15
0x17ec…1806 at0016 = ╱67╱g╱ // 0x1802 @0x16
0x17ec…1806 at0017 = ╱2e╱.╱ // 0x1803 @0x17
0x17ec…1806 at0018 = ╱22╱"╱ // 0x1804 @0x18
0x17ec…1806 at0019 = EOL // 0x1805 @0x19
0x17ec…1806 }
0x1806…180c 9f59 2590 REPEAT
0x1806…180c LineComalBcd {
0x1806…180c ptr = 0x9f59 // 0x1806 @0x0
0x1806…180c lno = 0x2590 // 0x1808 @0x2
0x1806…180c at0004 = ╱97╱ REPEAT ╱ // 0x180a @0x4
0x1806…180c at0005 = EOL // 0x180b @0x5
0x1806…180c }
0x180c…1820 9f6d 2600 CURSOR 11 , 9
0x180c…1820 LineComalBcd {
0x180c…1820 ptr = 0x9f6d // 0x180c @0x0
0x180c…1820 lno = 0x2600 // 0x180e @0x2
0x180c…1820 at0004 = ╱a1╱ CURSOR ╱ // 0x1810 @0x4
0x180c…1820 at0005 = ╱31╱1╱ // 0x1811 @0x5
0x180c…1820 at0006 = ╱31╱1╱ // 0x1812 @0x6
0x180c…1820 at0007 = ╱fe0000b004╱ // 0x1813 @0x7
0x180c…1820 at000c = ╱ec╱ , ╱ // 0x1818 @0xc
0x180c…1820 at000d = ╱39╱9╱ // 0x1819 @0xd
0x180c…1820 at000e = ╱fe00009004╱ // 0x181a @0xe
0x180c…1820 at0013 = EOL // 0x181f @0x13
0x180c…1820 }
0x1820…1838 9f85 2610 INPUT "V{lg…1-2:" , SVAR2 $
0x1820…1838 LineComalBcd {
0x1820…1838 ptr = 0x9f85 // 0x1820 @0x0
0x1820…1838 lno = 0x2610 // 0x1822 @0x2
0x1820…1838 at0004 = ╱91╱ INPUT ╱ // 0x1824 @0x4
0x1820…1838 at0005 = ╱22╱"╱ // 0x1825 @0x5
0x1820…1838 at0006 = ╱56╱V╱ // 0x1826 @0x6
0x1820…1838 at0007 = ╱7b╱{╱ // 0x1827 @0x7
0x1820…1838 at0008 = ╱6c╱l╱ // 0x1828 @0x8
0x1820…1838 at0009 = ╱67╱g╱ // 0x1829 @0x9
0x1820…1838 at000a = ╱20╱…╱ // 0x182a @0xa
0x1820…1838 at000b = ╱31╱1╱ // 0x182b @0xb
0x1820…1838 at000c = ╱2d╱-╱ // 0x182c @0xc
0x1820…1838 at000d = ╱32╱2╱ // 0x182d @0xd
0x1820…1838 at000e = ╱3a╱:╱ // 0x182e @0xe
0x1820…1838 at000f = ╱22╱"╱ // 0x182f @0xf
0x1820…1838 at0010 = ╱ec╱ , ╱ // 0x1830 @0x10
0x1820…1838 at0011 = ╱53╱S╱ // 0x1831 @0x11
0x1820…1838 at0012 = ╱56╱V╱ // 0x1832 @0x12
0x1820…1838 at0013 = ╱41╱A╱ // 0x1833 @0x13
0x1820…1838 at0014 = ╱52╱R╱ // 0x1834 @0x14
0x1820…1838 at0015 = ╱32╱2╱ // 0x1835 @0x15
0x1820…1838 at0016 = ╱ef╱ $ ╱ // 0x1836 @0x16
0x1820…1838 at0017 = EOL // 0x1837 @0x17
0x1820…1838 }
0x1838…1853 9fa0 2620 UNTIL SVAR2 $ >= "0" AND SVAR2 $ < "3"
0x1838…1853 LineComalBcd {
0x1838…1853 ptr = 0x9fa0 // 0x1838 @0x0
0x1838…1853 lno = 0x2620 // 0x183a @0x2
0x1838…1853 at0004 = ╱98╱ UNTIL ╱ // 0x183c @0x4
0x1838…1853 at0005 = ╱53╱S╱ // 0x183d @0x5
0x1838…1853 at0006 = ╱56╱V╱ // 0x183e @0x6
0x1838…1853 at0007 = ╱41╱A╱ // 0x183f @0x7
0x1838…1853 at0008 = ╱52╱R╱ // 0x1840 @0x8
0x1838…1853 at0009 = ╱32╱2╱ // 0x1841 @0x9
0x1838…1853 at000a = ╱ef╱ $ ╱ // 0x1842 @0xa
0x1838…1853 at000b = ╱e0╱ >= ╱ // 0x1843 @0xb
0x1838…1853 at000c = ╱22╱"╱ // 0x1844 @0xc
0x1838…1853 at000d = ╱30╱0╱ // 0x1845 @0xd
0x1838…1853 at000e = ╱22╱"╱ // 0x1846 @0xe
0x1838…1853 at000f = ╱da╱ AND ╱ // 0x1847 @0xf
0x1838…1853 at0010 = ╱53╱S╱ // 0x1848 @0x10
0x1838…1853 at0011 = ╱56╱V╱ // 0x1849 @0x11
0x1838…1853 at0012 = ╱41╱A╱ // 0x184a @0x12
0x1838…1853 at0013 = ╱52╱R╱ // 0x184b @0x13
0x1838…1853 at0014 = ╱32╱2╱ // 0x184c @0x14
0x1838…1853 at0015 = ╱ef╱ $ ╱ // 0x184d @0x15
0x1838…1853 at0016 = ╱dd╱ < ╱ // 0x184e @0x16
0x1838…1853 at0017 = ╱22╱"╱ // 0x184f @0x17
0x1838…1853 at0018 = ╱33╱3╱ // 0x1850 @0x18
0x1838…1853 at0019 = ╱22╱"╱ // 0x1851 @0x19
0x1838…1853 at001a = EOL // 0x1852 @0x1a
0x1838…1853 }
0x1853…1861 9fae 2630 CASE SVAR2 $ OF
0x1853…1861 LineComalBcd {
0x1853…1861 ptr = 0x9fae // 0x1853 @0x0
0x1853…1861 lno = 0x2630 // 0x1855 @0x2
0x1853…1861 at0004 = ╱a200╱ CASE ╱ // 0x1857 @0x4
0x1853…1861 at0006 = ╱53╱S╱ // 0x1859 @0x6
0x1853…1861 at0007 = ╱56╱V╱ // 0x185a @0x7
0x1853…1861 at0008 = ╱41╱A╱ // 0x185b @0x8
0x1853…1861 at0009 = ╱52╱R╱ // 0x185c @0x9
0x1853…1861 at000a = ╱32╱2╱ // 0x185d @0xa
0x1853…1861 at000b = ╱ef╱ $ ╱ // 0x185e @0xb
0x1853…1861 at000c = ╱ba╱ OF ╱ // 0x185f @0xc
0x1853…1861 at000d = EOL // 0x1860 @0xd
0x1853…1861 }
0x1861…1872 9fbf 2640 FEJL1 = 1
0x1861…1872 LineComalBcd {
0x1861…1872 ptr = 0x9fbf // 0x1861 @0x0
0x1861…1872 lno = 0x2640 // 0x1863 @0x2
0x1861…1872 at0004 = ╱46╱F╱ // 0x1865 @0x4
0x1861…1872 at0005 = ╱45╱E╱ // 0x1866 @0x5
0x1861…1872 at0006 = ╱4a╱J╱ // 0x1867 @0x6
0x1861…1872 at0007 = ╱4c╱L╱ // 0x1868 @0x7
0x1861…1872 at0008 = ╱31╱1╱ // 0x1869 @0x8
0x1861…1872 at0009 = ╱dc╱ = ╱ // 0x186a @0x9
0x1861…1872 at000a = ╱31╱1╱ // 0x186b @0xa
0x1861…1872 at000b = ╱fe00008001╱ // 0x186c @0xb
0x1861…1872 at0010 = EOL // 0x1871 @0x10
0x1861…1872 }
0x1872…187c 9fc9 2650 WHEN "1"
0x1872…187c LineComalBcd {
0x1872…187c ptr = 0x9fc9 // 0x1872 @0x0
0x1872…187c lno = 0x2650 // 0x1874 @0x2
0x1872…187c at0004 = ╱a300╱ WHEN ╱ // 0x1876 @0x4
0x1872…187c at0006 = ╱22╱"╱ // 0x1878 @0x6
0x1872…187c at0007 = ╱31╱1╱ // 0x1879 @0x7
0x1872…187c at0008 = ╱22╱"╱ // 0x187a @0x8
0x1872…187c at0009 = EOL // 0x187b @0x9
0x1872…187c }
0x187c…18b1 9ffe 2660 TEK $ = "M}nedsafslutning" ; B $ = A $ + "MAFSLUT" ; E = 3
0x187c…18b1 LineComalBcd {
0x187c…18b1 ptr = 0x9ffe // 0x187c @0x0
0x187c…18b1 lno = 0x2660 // 0x187e @0x2
0x187c…18b1 at0004 = ╱54╱T╱ // 0x1880 @0x4
0x187c…18b1 at0005 = ╱45╱E╱ // 0x1881 @0x5
0x187c…18b1 at0006 = ╱4b╱K╱ // 0x1882 @0x6
0x187c…18b1 at0007 = ╱ef╱ $ ╱ // 0x1883 @0x7
0x187c…18b1 at0008 = ╱dc╱ = ╱ // 0x1884 @0x8
0x187c…18b1 at0009 = ╱22╱"╱ // 0x1885 @0x9
0x187c…18b1 at000a = ╱4d╱M╱ // 0x1886 @0xa
0x187c…18b1 at000b = ╱7d╱}╱ // 0x1887 @0xb
0x187c…18b1 at000c = ╱6e╱n╱ // 0x1888 @0xc
0x187c…18b1 at000d = ╱65╱e╱ // 0x1889 @0xd
0x187c…18b1 at000e = ╱64╱d╱ // 0x188a @0xe
0x187c…18b1 at000f = ╱73╱s╱ // 0x188b @0xf
0x187c…18b1 at0010 = ╱61╱a╱ // 0x188c @0x10
0x187c…18b1 at0011 = ╱66╱f╱ // 0x188d @0x11
0x187c…18b1 at0012 = ╱73╱s╱ // 0x188e @0x12
0x187c…18b1 at0013 = ╱6c╱l╱ // 0x188f @0x13
0x187c…18b1 at0014 = ╱75╱u╱ // 0x1890 @0x14
0x187c…18b1 at0015 = ╱74╱t╱ // 0x1891 @0x15
0x187c…18b1 at0016 = ╱6e╱n╱ // 0x1892 @0x16
0x187c…18b1 at0017 = ╱69╱i╱ // 0x1893 @0x17
0x187c…18b1 at0018 = ╱6e╱n╱ // 0x1894 @0x18
0x187c…18b1 at0019 = ╱67╱g╱ // 0x1895 @0x19
0x187c…18b1 at001a = ╱22╱"╱ // 0x1896 @0x1a
0x187c…18b1 at001b = ╱eb╱ ; ╱ // 0x1897 @0x1b
0x187c…18b1 at001c = ╱42╱B╱ // 0x1898 @0x1c
0x187c…18b1 at001d = ╱ef╱ $ ╱ // 0x1899 @0x1d
0x187c…18b1 at001e = ╱dc╱ = ╱ // 0x189a @0x1e
0x187c…18b1 at001f = ╱41╱A╱ // 0x189b @0x1f
0x187c…18b1 at0020 = ╱ef╱ $ ╱ // 0x189c @0x20
0x187c…18b1 at0021 = ╱f1╱ + ╱ // 0x189d @0x21
0x187c…18b1 at0022 = ╱22╱"╱ // 0x189e @0x22
0x187c…18b1 at0023 = ╱4d╱M╱ // 0x189f @0x23
0x187c…18b1 at0024 = ╱41╱A╱ // 0x18a0 @0x24
0x187c…18b1 at0025 = ╱46╱F╱ // 0x18a1 @0x25
0x187c…18b1 at0026 = ╱53╱S╱ // 0x18a2 @0x26
0x187c…18b1 at0027 = ╱4c╱L╱ // 0x18a3 @0x27
0x187c…18b1 at0028 = ╱55╱U╱ // 0x18a4 @0x28
0x187c…18b1 at0029 = ╱54╱T╱ // 0x18a5 @0x29
0x187c…18b1 at002a = ╱22╱"╱ // 0x18a6 @0x2a
0x187c…18b1 at002b = ╱eb╱ ; ╱ // 0x18a7 @0x2b
0x187c…18b1 at002c = ╱45╱E╱ // 0x18a8 @0x2c
0x187c…18b1 at002d = ╱dc╱ = ╱ // 0x18a9 @0x2d
0x187c…18b1 at002e = ╱33╱3╱ // 0x18aa @0x2e
0x187c…18b1 at002f = ╱fe0000c002╱ // 0x18ab @0x2f
0x187c…18b1 at0034 = EOL // 0x18b0 @0x34
0x187c…18b1 }
0x18b1…18bb a008 2670 WHEN "2"
0x18b1…18bb LineComalBcd {
0x18b1…18bb ptr = 0xa008 // 0x18b1 @0x0
0x18b1…18bb lno = 0x2670 // 0x18b3 @0x2
0x18b1…18bb at0004 = ╱a300╱ WHEN ╱ // 0x18b5 @0x4
0x18b1…18bb at0006 = ╱22╱"╱ // 0x18b7 @0x6
0x18b1…18bb at0007 = ╱32╱2╱ // 0x18b8 @0x7
0x18b1…18bb at0008 = ╱22╱"╱ // 0x18b9 @0x8
0x18b1…18bb at0009 = EOL // 0x18ba @0x9
0x18b1…18bb }
0x18bb…18f6 a043 2680 TEK $ = "Renteberegning." ; B $ = C $ + "RENTE" ; D = 1 ; E = 2
0x18bb…18f6 LineComalBcd {
0x18bb…18f6 ptr = 0xa043 // 0x18bb @0x0
0x18bb…18f6 lno = 0x2680 // 0x18bd @0x2
0x18bb…18f6 at0004 = ╱54╱T╱ // 0x18bf @0x4
0x18bb…18f6 at0005 = ╱45╱E╱ // 0x18c0 @0x5
0x18bb…18f6 at0006 = ╱4b╱K╱ // 0x18c1 @0x6
0x18bb…18f6 at0007 = ╱ef╱ $ ╱ // 0x18c2 @0x7
0x18bb…18f6 at0008 = ╱dc╱ = ╱ // 0x18c3 @0x8
0x18bb…18f6 at0009 = ╱22╱"╱ // 0x18c4 @0x9
0x18bb…18f6 at000a = ╱52╱R╱ // 0x18c5 @0xa
0x18bb…18f6 at000b = ╱65╱e╱ // 0x18c6 @0xb
0x18bb…18f6 at000c = ╱6e╱n╱ // 0x18c7 @0xc
0x18bb…18f6 at000d = ╱74╱t╱ // 0x18c8 @0xd
0x18bb…18f6 at000e = ╱65╱e╱ // 0x18c9 @0xe
0x18bb…18f6 at000f = ╱62╱b╱ // 0x18ca @0xf
0x18bb…18f6 at0010 = ╱65╱e╱ // 0x18cb @0x10
0x18bb…18f6 at0011 = ╱72╱r╱ // 0x18cc @0x11
0x18bb…18f6 at0012 = ╱65╱e╱ // 0x18cd @0x12
0x18bb…18f6 at0013 = ╱67╱g╱ // 0x18ce @0x13
0x18bb…18f6 at0014 = ╱6e╱n╱ // 0x18cf @0x14
0x18bb…18f6 at0015 = ╱69╱i╱ // 0x18d0 @0x15
0x18bb…18f6 at0016 = ╱6e╱n╱ // 0x18d1 @0x16
0x18bb…18f6 at0017 = ╱67╱g╱ // 0x18d2 @0x17
0x18bb…18f6 at0018 = ╱2e╱.╱ // 0x18d3 @0x18
0x18bb…18f6 at0019 = ╱22╱"╱ // 0x18d4 @0x19
0x18bb…18f6 at001a = ╱eb╱ ; ╱ // 0x18d5 @0x1a
0x18bb…18f6 at001b = ╱42╱B╱ // 0x18d6 @0x1b
0x18bb…18f6 at001c = ╱ef╱ $ ╱ // 0x18d7 @0x1c
0x18bb…18f6 at001d = ╱dc╱ = ╱ // 0x18d8 @0x1d
0x18bb…18f6 at001e = ╱43╱C╱ // 0x18d9 @0x1e
0x18bb…18f6 at001f = ╱ef╱ $ ╱ // 0x18da @0x1f
0x18bb…18f6 at0020 = ╱f1╱ + ╱ // 0x18db @0x20
0x18bb…18f6 at0021 = ╱22╱"╱ // 0x18dc @0x21
0x18bb…18f6 at0022 = ╱52╱R╱ // 0x18dd @0x22
0x18bb…18f6 at0023 = ╱45╱E╱ // 0x18de @0x23
0x18bb…18f6 at0024 = ╱4e╱N╱ // 0x18df @0x24
0x18bb…18f6 at0025 = ╱54╱T╱ // 0x18e0 @0x25
0x18bb…18f6 at0026 = ╱45╱E╱ // 0x18e1 @0x26
0x18bb…18f6 at0027 = ╱22╱"╱ // 0x18e2 @0x27
0x18bb…18f6 at0028 = ╱eb╱ ; ╱ // 0x18e3 @0x28
0x18bb…18f6 at0029 = ╱44╱D╱ // 0x18e4 @0x29
0x18bb…18f6 at002a = ╱dc╱ = ╱ // 0x18e5 @0x2a
0x18bb…18f6 at002b = ╱31╱1╱ // 0x18e6 @0x2b
0x18bb…18f6 at002c = ╱fe00008001╱ // 0x18e7 @0x2c
0x18bb…18f6 at0031 = ╱eb╱ ; ╱ // 0x18ec @0x31
0x18bb…18f6 at0032 = ╱45╱E╱ // 0x18ed @0x32
0x18bb…18f6 at0033 = ╱dc╱ = ╱ // 0x18ee @0x33
0x18bb…18f6 at0034 = ╱32╱2╱ // 0x18ef @0x34
0x18bb…18f6 at0035 = ╱fe00008002╱ // 0x18f0 @0x35
0x18bb…18f6 at003a = EOL // 0x18f5 @0x3a
0x18bb…18f6 }
0x18f6…18fc a049 2690 ENDCASE
0x18f6…18fc LineComalBcd {
0x18f6…18fc ptr = 0xa049 // 0x18f6 @0x0
0x18f6…18fc lno = 0x2690 // 0x18f8 @0x2
0x18f6…18fc at0004 = ╱a4╱ ENDCASE ╱ // 0x18fa @0x4
0x18f6…18fc at0005 = EOL // 0x18fb @0x5
0x18f6…18fc }
0x18fc…1902 a04f 2700 ENDCASE
0x18fc…1902 LineComalBcd {
0x18fc…1902 ptr = 0xa04f // 0x18fc @0x0
0x18fc…1902 lno = 0x2700 // 0x18fe @0x2
0x18fc…1902 at0004 = ╱a4╱ ENDCASE ╱ // 0x1900 @0x4
0x18fc…1902 at0005 = EOL // 0x1901 @0x5
0x18fc…1902 }
0x1902…1946 a093 2710 IF T1 ( 2 ) > 0 OR T1 ( 4 ) > 0 OR T1 ( 1 ) > 0 THEN F = 1
0x1902…1946 LineComalBcd {
0x1902…1946 ptr = 0xa093 // 0x1902 @0x0
0x1902…1946 lno = 0x2710 // 0x1904 @0x2
0x1902…1946 at0004 = ╱82╱ IF ╱ // 0x1906 @0x4
0x1902…1946 at0005 = ╱54╱T╱ // 0x1907 @0x5
0x1902…1946 at0006 = ╱31╱1╱ // 0x1908 @0x6
0x1902…1946 at0007 = ╱ed╱ ( ╱ // 0x1909 @0x7
0x1902…1946 at0008 = ╱32╱2╱ // 0x190a @0x8
0x1902…1946 at0009 = ╱fe00008002╱ // 0x190b @0x9
0x1902…1946 at000e = ╱ee╱ ) ╱ // 0x1910 @0xe
0x1902…1946 at000f = ╱de╱ > ╱ // 0x1911 @0xf
0x1902…1946 at0010 = ╱30╱0╱ // 0x1912 @0x10
0x1902…1946 at0011 = ╱fe00000000╱ // 0x1913 @0x11
0x1902…1946 at0016 = ╱db╱ OR ╱ // 0x1918 @0x16
0x1902…1946 at0017 = ╱54╱T╱ // 0x1919 @0x17
0x1902…1946 at0018 = ╱31╱1╱ // 0x191a @0x18
0x1902…1946 at0019 = ╱ed╱ ( ╱ // 0x191b @0x19
0x1902…1946 at001a = ╱34╱4╱ // 0x191c @0x1a
0x1902…1946 at001b = ╱fe00008003╱ // 0x191d @0x1b
0x1902…1946 at0020 = ╱ee╱ ) ╱ // 0x1922 @0x20
0x1902…1946 at0021 = ╱de╱ > ╱ // 0x1923 @0x21
0x1902…1946 at0022 = ╱30╱0╱ // 0x1924 @0x22
0x1902…1946 at0023 = ╱fe00000000╱ // 0x1925 @0x23
0x1902…1946 at0028 = ╱db╱ OR ╱ // 0x192a @0x28
0x1902…1946 at0029 = ╱54╱T╱ // 0x192b @0x29
0x1902…1946 at002a = ╱31╱1╱ // 0x192c @0x2a
0x1902…1946 at002b = ╱ed╱ ( ╱ // 0x192d @0x2b
0x1902…1946 at002c = ╱31╱1╱ // 0x192e @0x2c
0x1902…1946 at002d = ╱fe00008001╱ // 0x192f @0x2d
0x1902…1946 at0032 = ╱ee╱ ) ╱ // 0x1934 @0x32
0x1902…1946 at0033 = ╱de╱ > ╱ // 0x1935 @0x33
0x1902…1946 at0034 = ╱30╱0╱ // 0x1936 @0x34
0x1902…1946 at0035 = ╱fe00000000╱ // 0x1937 @0x35
0x1902…1946 at003a = ╱b6╱ THEN ╱ // 0x193c @0x3a
0x1902…1946 at003b = ╱46╱F╱ // 0x193d @0x3b
0x1902…1946 at003c = ╱dc╱ = ╱ // 0x193e @0x3c
0x1902…1946 at003d = ╱31╱1╱ // 0x193f @0x3d
0x1902…1946 at003e = ╱fe00008001╱ // 0x1940 @0x3e
0x1902…1946 at0043 = EOL // 0x1945 @0x43
0x1902…1946 }
0x1946…199a a0e7 2720 IF ( F = 1 OR ( T2 ( 1 ) > 0 AND E > 1 ) OR ( T2 ( 8 ) > 0 AND E > 2 ) ) AND E > 0 THEN
0x1946…199a LineComalBcd {
0x1946…199a ptr = 0xa0e7 // 0x1946 @0x0
0x1946…199a lno = 0x2720 // 0x1948 @0x2
0x1946…199a at0004 = ╱9c╱ IF ╱ // 0x194a @0x4
0x1946…199a at0005 = ╱ed╱ ( ╱ // 0x194b @0x5
0x1946…199a at0006 = ╱46╱F╱ // 0x194c @0x6
0x1946…199a at0007 = ╱dc╱ = ╱ // 0x194d @0x7
0x1946…199a at0008 = ╱31╱1╱ // 0x194e @0x8
0x1946…199a at0009 = ╱fe00008001╱ // 0x194f @0x9
0x1946…199a at000e = ╱db╱ OR ╱ // 0x1954 @0xe
0x1946…199a at000f = ╱ed╱ ( ╱ // 0x1955 @0xf
0x1946…199a at0010 = ╱54╱T╱ // 0x1956 @0x10
0x1946…199a at0011 = ╱32╱2╱ // 0x1957 @0x11
0x1946…199a at0012 = ╱ed╱ ( ╱ // 0x1958 @0x12
0x1946…199a at0013 = ╱31╱1╱ // 0x1959 @0x13
0x1946…199a at0014 = ╱fe00008001╱ // 0x195a @0x14
0x1946…199a at0019 = ╱ee╱ ) ╱ // 0x195f @0x19
0x1946…199a at001a = ╱de╱ > ╱ // 0x1960 @0x1a
0x1946…199a at001b = ╱30╱0╱ // 0x1961 @0x1b
0x1946…199a at001c = ╱fe00000000╱ // 0x1962 @0x1c
0x1946…199a at0021 = ╱da╱ AND ╱ // 0x1967 @0x21
0x1946…199a at0022 = ╱45╱E╱ // 0x1968 @0x22
0x1946…199a at0023 = ╱de╱ > ╱ // 0x1969 @0x23
0x1946…199a at0024 = ╱31╱1╱ // 0x196a @0x24
0x1946…199a at0025 = ╱fe00008001╱ // 0x196b @0x25
0x1946…199a at002a = ╱ee╱ ) ╱ // 0x1970 @0x2a
0x1946…199a at002b = ╱db╱ OR ╱ // 0x1971 @0x2b
0x1946…199a at002c = ╱ed╱ ( ╱ // 0x1972 @0x2c
0x1946…199a at002d = ╱54╱T╱ // 0x1973 @0x2d
0x1946…199a at002e = ╱32╱2╱ // 0x1974 @0x2e
0x1946…199a at002f = ╱ed╱ ( ╱ // 0x1975 @0x2f
0x1946…199a at0030 = ╱38╱8╱ // 0x1976 @0x30
0x1946…199a at0031 = ╱fe00008004╱ // 0x1977 @0x31
0x1946…199a at0036 = ╱ee╱ ) ╱ // 0x197c @0x36
0x1946…199a at0037 = ╱de╱ > ╱ // 0x197d @0x37
0x1946…199a at0038 = ╱30╱0╱ // 0x197e @0x38
0x1946…199a at0039 = ╱fe00000000╱ // 0x197f @0x39
0x1946…199a at003e = ╱da╱ AND ╱ // 0x1984 @0x3e
0x1946…199a at003f = ╱45╱E╱ // 0x1985 @0x3f
0x1946…199a at0040 = ╱de╱ > ╱ // 0x1986 @0x40
0x1946…199a at0041 = ╱32╱2╱ // 0x1987 @0x41
0x1946…199a at0042 = ╱fe00008002╱ // 0x1988 @0x42
0x1946…199a at0047 = ╱ee╱ ) ╱ // 0x198d @0x47
0x1946…199a at0048 = ╱ee╱ ) ╱ // 0x198e @0x48
0x1946…199a at0049 = ╱da╱ AND ╱ // 0x198f @0x49
0x1946…199a at004a = ╱45╱E╱ // 0x1990 @0x4a
0x1946…199a at004b = ╱de╱ > ╱ // 0x1991 @0x4b
0x1946…199a at004c = ╱30╱0╱ // 0x1992 @0x4c
0x1946…199a at004d = ╱fe00000000╱ // 0x1993 @0x4d
0x1946…199a at0052 = ╱b6╱ THEN ╱ // 0x1998 @0x52
0x1946…199a at0053 = EOL // 0x1999 @0x53
0x1946…199a }
0x199a…19a0 a0ed 2730 CLEAR
0x199a…19a0 LineComalBcd {
0x199a…19a0 ptr = 0xa0ed // 0x199a @0x0
0x199a…19a0 lno = 0x2730 // 0x199c @0x2
0x199a…19a0 at0004 = ╱a0╱ CLEAR ╱ // 0x199e @0x4
0x199a…19a0 at0005 = EOL // 0x199f @0x5
0x199a…19a0 }
0x19a0…19b4 a101 2740 CURSOR 20 , 4
0x19a0…19b4 LineComalBcd {
0x19a0…19b4 ptr = 0xa101 // 0x19a0 @0x0
0x19a0…19b4 lno = 0x2740 // 0x19a2 @0x2
0x19a0…19b4 at0004 = ╱a1╱ CURSOR ╱ // 0x19a4 @0x4
0x19a0…19b4 at0005 = ╱32╱2╱ // 0x19a5 @0x5
0x19a0…19b4 at0006 = ╱30╱0╱ // 0x19a6 @0x6
0x19a0…19b4 at0007 = ╱fe0000a005╱ // 0x19a7 @0x7
0x19a0…19b4 at000c = ╱ec╱ , ╱ // 0x19ac @0xc
0x19a0…19b4 at000d = ╱34╱4╱ // 0x19ad @0xd
0x19a0…19b4 at000e = ╱fe00008003╱ // 0x19ae @0xe
0x19a0…19b4 at0013 = EOL // 0x19b3 @0x13
0x19a0…19b4 }
0x19b4…19db a128 2750 PRINT TEK $ ; "…kan…ikke…foretages…,…da…:"
0x19b4…19db LineComalBcd {
0x19b4…19db ptr = 0xa128 // 0x19b4 @0x0
0x19b4…19db lno = 0x2750 // 0x19b6 @0x2
0x19b4…19db at0004 = ╱92╱ PRINT ╱ // 0x19b8 @0x4
0x19b4…19db at0005 = ╱54╱T╱ // 0x19b9 @0x5
0x19b4…19db at0006 = ╱45╱E╱ // 0x19ba @0x6
0x19b4…19db at0007 = ╱4b╱K╱ // 0x19bb @0x7
0x19b4…19db at0008 = ╱ef╱ $ ╱ // 0x19bc @0x8
0x19b4…19db at0009 = ╱eb╱ ; ╱ // 0x19bd @0x9
0x19b4…19db at000a = ╱22╱"╱ // 0x19be @0xa
0x19b4…19db at000b = ╱20╱…╱ // 0x19bf @0xb
0x19b4…19db at000c = ╱6b╱k╱ // 0x19c0 @0xc
0x19b4…19db at000d = ╱61╱a╱ // 0x19c1 @0xd
0x19b4…19db at000e = ╱6e╱n╱ // 0x19c2 @0xe
0x19b4…19db at000f = ╱20╱…╱ // 0x19c3 @0xf
0x19b4…19db at0010 = ╱69╱i╱ // 0x19c4 @0x10
0x19b4…19db at0011 = ╱6b╱k╱ // 0x19c5 @0x11
0x19b4…19db at0012 = ╱6b╱k╱ // 0x19c6 @0x12
0x19b4…19db at0013 = ╱65╱e╱ // 0x19c7 @0x13
0x19b4…19db at0014 = ╱20╱…╱ // 0x19c8 @0x14
0x19b4…19db at0015 = ╱66╱f╱ // 0x19c9 @0x15
0x19b4…19db at0016 = ╱6f╱o╱ // 0x19ca @0x16
0x19b4…19db at0017 = ╱72╱r╱ // 0x19cb @0x17
0x19b4…19db at0018 = ╱65╱e╱ // 0x19cc @0x18
0x19b4…19db at0019 = ╱74╱t╱ // 0x19cd @0x19
0x19b4…19db at001a = ╱61╱a╱ // 0x19ce @0x1a
0x19b4…19db at001b = ╱67╱g╱ // 0x19cf @0x1b
0x19b4…19db at001c = ╱65╱e╱ // 0x19d0 @0x1c
0x19b4…19db at001d = ╱73╱s╱ // 0x19d1 @0x1d
0x19b4…19db at001e = ╱20╱…╱ // 0x19d2 @0x1e
0x19b4…19db at001f = ╱2c╱,╱ // 0x19d3 @0x1f
0x19b4…19db at0020 = ╱20╱…╱ // 0x19d4 @0x20
0x19b4…19db at0021 = ╱64╱d╱ // 0x19d5 @0x21
0x19b4…19db at0022 = ╱61╱a╱ // 0x19d6 @0x22
0x19b4…19db at0023 = ╱20╱…╱ // 0x19d7 @0x23
0x19b4…19db at0024 = ╱3a╱:╱ // 0x19d8 @0x24
0x19b4…19db at0025 = ╱22╱"╱ // 0x19d9 @0x25
0x19b4…19db at0026 = EOL // 0x19da @0x26
0x19b4…19db }
0x19db…19f3 a140 2760 IF T1 ( 2 ) >< 0 THEN
0x19db…19f3 LineComalBcd {
0x19db…19f3 ptr = 0xa140 // 0x19db @0x0
0x19db…19f3 lno = 0x2760 // 0x19dd @0x2
0x19db…19f3 at0004 = ╱9c╱ IF ╱ // 0x19df @0x4
0x19db…19f3 at0005 = ╱54╱T╱ // 0x19e0 @0x5
0x19db…19f3 at0006 = ╱31╱1╱ // 0x19e1 @0x6
0x19db…19f3 at0007 = ╱ed╱ ( ╱ // 0x19e2 @0x7
0x19db…19f3 at0008 = ╱32╱2╱ // 0x19e3 @0x8
0x19db…19f3 at0009 = ╱fe00008002╱ // 0x19e4 @0x9
0x19db…19f3 at000e = ╱ee╱ ) ╱ // 0x19e9 @0xe
0x19db…19f3 at000f = ╱e1╱ >< ╱ // 0x19ea @0xf
0x19db…19f3 at0010 = ╱30╱0╱ // 0x19eb @0x10
0x19db…19f3 at0011 = ╱fe00000000╱ // 0x19ec @0x11
0x19db…19f3 at0016 = ╱b6╱ THEN ╱ // 0x19f1 @0x16
0x19db…19f3 at0017 = EOL // 0x19f2 @0x17
0x19db…19f3 }
0x19f3…1a07 a154 2770 CURSOR 20 , 6
0x19f3…1a07 LineComalBcd {
0x19f3…1a07 ptr = 0xa154 // 0x19f3 @0x0
0x19f3…1a07 lno = 0x2770 // 0x19f5 @0x2
0x19f3…1a07 at0004 = ╱a1╱ CURSOR ╱ // 0x19f7 @0x4
0x19f3…1a07 at0005 = ╱32╱2╱ // 0x19f8 @0x5
0x19f3…1a07 at0006 = ╱30╱0╱ // 0x19f9 @0x6
0x19f3…1a07 at0007 = ╱fe0000a005╱ // 0x19fa @0x7
0x19f3…1a07 at000c = ╱ec╱ , ╱ // 0x19ff @0xc
0x19f3…1a07 at000d = ╱36╱6╱ // 0x1a00 @0xd
0x19f3…1a07 at000e = ╱fe0000c003╱ // 0x1a01 @0xe
0x19f3…1a07 at0013 = EOL // 0x1a06 @0x13
0x19f3…1a07 }
0x1a07…1a2b a178 2780 PRINT "1.…Kasserapport…ikke…afstemt"
0x1a07…1a2b LineComalBcd {
0x1a07…1a2b ptr = 0xa178 // 0x1a07 @0x0
0x1a07…1a2b lno = 0x2780 // 0x1a09 @0x2
0x1a07…1a2b at0004 = ╱92╱ PRINT ╱ // 0x1a0b @0x4
0x1a07…1a2b at0005 = ╱22╱"╱ // 0x1a0c @0x5
0x1a07…1a2b at0006 = ╱31╱1╱ // 0x1a0d @0x6
0x1a07…1a2b at0007 = ╱2e╱.╱ // 0x1a0e @0x7
0x1a07…1a2b at0008 = ╱20╱…╱ // 0x1a0f @0x8
0x1a07…1a2b at0009 = ╱4b╱K╱ // 0x1a10 @0x9
0x1a07…1a2b at000a = ╱61╱a╱ // 0x1a11 @0xa
0x1a07…1a2b at000b = ╱73╱s╱ // 0x1a12 @0xb
0x1a07…1a2b at000c = ╱73╱s╱ // 0x1a13 @0xc
0x1a07…1a2b at000d = ╱65╱e╱ // 0x1a14 @0xd
0x1a07…1a2b at000e = ╱72╱r╱ // 0x1a15 @0xe
0x1a07…1a2b at000f = ╱61╱a╱ // 0x1a16 @0xf
0x1a07…1a2b at0010 = ╱70╱p╱ // 0x1a17 @0x10
0x1a07…1a2b at0011 = ╱70╱p╱ // 0x1a18 @0x11
0x1a07…1a2b at0012 = ╱6f╱o╱ // 0x1a19 @0x12
0x1a07…1a2b at0013 = ╱72╱r╱ // 0x1a1a @0x13
0x1a07…1a2b at0014 = ╱74╱t╱ // 0x1a1b @0x14
0x1a07…1a2b at0015 = ╱20╱…╱ // 0x1a1c @0x15
0x1a07…1a2b at0016 = ╱69╱i╱ // 0x1a1d @0x16
0x1a07…1a2b at0017 = ╱6b╱k╱ // 0x1a1e @0x17
0x1a07…1a2b at0018 = ╱6b╱k╱ // 0x1a1f @0x18
0x1a07…1a2b at0019 = ╱65╱e╱ // 0x1a20 @0x19
0x1a07…1a2b at001a = ╱20╱…╱ // 0x1a21 @0x1a
0x1a07…1a2b at001b = ╱61╱a╱ // 0x1a22 @0x1b
0x1a07…1a2b at001c = ╱66╱f╱ // 0x1a23 @0x1c
0x1a07…1a2b at001d = ╱73╱s╱ // 0x1a24 @0x1d
0x1a07…1a2b at001e = ╱74╱t╱ // 0x1a25 @0x1e
0x1a07…1a2b at001f = ╱65╱e╱ // 0x1a26 @0x1f
0x1a07…1a2b at0020 = ╱6d╱m╱ // 0x1a27 @0x20
0x1a07…1a2b at0021 = ╱74╱t╱ // 0x1a28 @0x21
0x1a07…1a2b at0022 = ╱22╱"╱ // 0x1a29 @0x22
0x1a07…1a2b at0023 = EOL // 0x1a2a @0x23
0x1a07…1a2b }
0x1a2b…1a31 (87,) a17e 2790 ENDIF
0x1a2b…1a31 LineComalBcd {
0x1a2b…1a31 ptr = 0xa17e // 0x1a2b @0x0
0x1a2b…1a31 lno = 0x2790 // 0x1a2d @0x2
0x1a2b…1a31 at0004 = ╱9b╱ ENDIF ╱ // 0x1a2f @0x4
0x1a2b…1a31 at0005 = EOL // 0x1a30 @0x5
0x1a2b…1a31 }
0x1a31…1a49 a196 2800 IF T1 ( 1 ) >< 0 THEN
0x1a31…1a49 LineComalBcd {
0x1a31…1a49 ptr = 0xa196 // 0x1a31 @0x0
0x1a31…1a49 lno = 0x2800 // 0x1a33 @0x2
0x1a31…1a49 at0004 = ╱9c╱ IF ╱ // 0x1a35 @0x4
0x1a31…1a49 at0005 = ╱54╱T╱ // 0x1a36 @0x5
0x1a31…1a49 at0006 = ╱31╱1╱ // 0x1a37 @0x6
0x1a31…1a49 at0007 = ╱ed╱ ( ╱ // 0x1a38 @0x7
0x1a31…1a49 at0008 = ╱31╱1╱ // 0x1a39 @0x8
0x1a31…1a49 at0009 = ╱fe00008001╱ // 0x1a3a @0x9
0x1a31…1a49 at000e = ╱ee╱ ) ╱ // 0x1a3f @0xe
0x1a31…1a49 at000f = ╱e1╱ >< ╱ // 0x1a40 @0xf
0x1a31…1a49 at0010 = ╱30╱0╱ // 0x1a41 @0x10
0x1a31…1a49 at0011 = ╱fe00000000╱ // 0x1a42 @0x11
0x1a31…1a49 at0016 = ╱b6╱ THEN ╱ // 0x1a47 @0x16
0x1a31…1a49 at0017 = EOL // 0x1a48 @0x17
0x1a31…1a49 }
0x1a49…1a5d a1aa 2810 CURSOR 20 , 8
0x1a49…1a5d LineComalBcd {
0x1a49…1a5d ptr = 0xa1aa // 0x1a49 @0x0
0x1a49…1a5d lno = 0x2810 // 0x1a4b @0x2
0x1a49…1a5d at0004 = ╱a1╱ CURSOR ╱ // 0x1a4d @0x4
0x1a49…1a5d at0005 = ╱32╱2╱ // 0x1a4e @0x5
0x1a49…1a5d at0006 = ╱30╱0╱ // 0x1a4f @0x6
0x1a49…1a5d at0007 = ╱fe0000a005╱ // 0x1a50 @0x7
0x1a49…1a5d at000c = ╱ec╱ , ╱ // 0x1a55 @0xc
0x1a49…1a5d at000d = ╱38╱8╱ // 0x1a56 @0xd
0x1a49…1a5d at000e = ╱fe00008004╱ // 0x1a57 @0xe
0x1a49…1a5d at0013 = EOL // 0x1a5c @0x13
0x1a49…1a5d }
0x1a5d…1a83 a1d0 2820 PRINT "2.Posteringsark…ikke…afsluttet"
0x1a5d…1a83 LineComalBcd {
0x1a5d…1a83 ptr = 0xa1d0 // 0x1a5d @0x0
0x1a5d…1a83 lno = 0x2820 // 0x1a5f @0x2
0x1a5d…1a83 at0004 = ╱92╱ PRINT ╱ // 0x1a61 @0x4
0x1a5d…1a83 at0005 = ╱22╱"╱ // 0x1a62 @0x5
0x1a5d…1a83 at0006 = ╱32╱2╱ // 0x1a63 @0x6
0x1a5d…1a83 at0007 = ╱2e╱.╱ // 0x1a64 @0x7
0x1a5d…1a83 at0008 = ╱50╱P╱ // 0x1a65 @0x8
0x1a5d…1a83 at0009 = ╱6f╱o╱ // 0x1a66 @0x9
0x1a5d…1a83 at000a = ╱73╱s╱ // 0x1a67 @0xa
0x1a5d…1a83 at000b = ╱74╱t╱ // 0x1a68 @0xb
0x1a5d…1a83 at000c = ╱65╱e╱ // 0x1a69 @0xc
0x1a5d…1a83 at000d = ╱72╱r╱ // 0x1a6a @0xd
0x1a5d…1a83 at000e = ╱69╱i╱ // 0x1a6b @0xe
0x1a5d…1a83 at000f = ╱6e╱n╱ // 0x1a6c @0xf
0x1a5d…1a83 at0010 = ╱67╱g╱ // 0x1a6d @0x10
0x1a5d…1a83 at0011 = ╱73╱s╱ // 0x1a6e @0x11
0x1a5d…1a83 at0012 = ╱61╱a╱ // 0x1a6f @0x12
0x1a5d…1a83 at0013 = ╱72╱r╱ // 0x1a70 @0x13
0x1a5d…1a83 at0014 = ╱6b╱k╱ // 0x1a71 @0x14
0x1a5d…1a83 at0015 = ╱20╱…╱ // 0x1a72 @0x15
0x1a5d…1a83 at0016 = ╱69╱i╱ // 0x1a73 @0x16
0x1a5d…1a83 at0017 = ╱6b╱k╱ // 0x1a74 @0x17
0x1a5d…1a83 at0018 = ╱6b╱k╱ // 0x1a75 @0x18
0x1a5d…1a83 at0019 = ╱65╱e╱ // 0x1a76 @0x19
0x1a5d…1a83 at001a = ╱20╱…╱ // 0x1a77 @0x1a
0x1a5d…1a83 at001b = ╱61╱a╱ // 0x1a78 @0x1b
0x1a5d…1a83 at001c = ╱66╱f╱ // 0x1a79 @0x1c
0x1a5d…1a83 at001d = ╱73╱s╱ // 0x1a7a @0x1d
0x1a5d…1a83 at001e = ╱6c╱l╱ // 0x1a7b @0x1e
0x1a5d…1a83 at001f = ╱75╱u╱ // 0x1a7c @0x1f
0x1a5d…1a83 at0020 = ╱74╱t╱ // 0x1a7d @0x20
0x1a5d…1a83 at0021 = ╱74╱t╱ // 0x1a7e @0x21
0x1a5d…1a83 at0022 = ╱65╱e╱ // 0x1a7f @0x22
0x1a5d…1a83 at0023 = ╱74╱t╱ // 0x1a80 @0x23
0x1a5d…1a83 at0024 = ╱22╱"╱ // 0x1a81 @0x24
0x1a5d…1a83 at0025 = EOL // 0x1a82 @0x25
0x1a5d…1a83 }
0x1a83…1a89 a1d6 2830 ENDIF
0x1a83…1a89 LineComalBcd {
0x1a83…1a89 ptr = 0xa1d6 // 0x1a83 @0x0
0x1a83…1a89 lno = 0x2830 // 0x1a85 @0x2
0x1a83…1a89 at0004 = ╱9b╱ ENDIF ╱ // 0x1a87 @0x4
0x1a83…1a89 at0005 = EOL // 0x1a88 @0x5
0x1a83…1a89 }
0x1a89…1aa1 a1ee 2840 IF T1 ( 4 ) >< 0 THEN
0x1a89…1aa1 LineComalBcd {
0x1a89…1aa1 ptr = 0xa1ee // 0x1a89 @0x0
0x1a89…1aa1 lno = 0x2840 // 0x1a8b @0x2
0x1a89…1aa1 at0004 = ╱9c╱ IF ╱ // 0x1a8d @0x4
0x1a89…1aa1 at0005 = ╱54╱T╱ // 0x1a8e @0x5
0x1a89…1aa1 at0006 = ╱31╱1╱ // 0x1a8f @0x6
0x1a89…1aa1 at0007 = ╱ed╱ ( ╱ // 0x1a90 @0x7
0x1a89…1aa1 at0008 = ╱34╱4╱ // 0x1a91 @0x8
0x1a89…1aa1 at0009 = ╱fe00008003╱ // 0x1a92 @0x9
0x1a89…1aa1 at000e = ╱ee╱ ) ╱ // 0x1a97 @0xe
0x1a89…1aa1 at000f = ╱e1╱ >< ╱ // 0x1a98 @0xf
0x1a89…1aa1 at0010 = ╱30╱0╱ // 0x1a99 @0x10
0x1a89…1aa1 at0011 = ╱fe00000000╱ // 0x1a9a @0x11
0x1a89…1aa1 at0016 = ╱b6╱ THEN ╱ // 0x1a9f @0x16
0x1a89…1aa1 at0017 = EOL // 0x1aa0 @0x17
0x1a89…1aa1 }
0x1aa1…1ab6 a203 2850 CURSOR 20 , 10
0x1aa1…1ab6 LineComalBcd {
0x1aa1…1ab6 ptr = 0xa203 // 0x1aa1 @0x0
0x1aa1…1ab6 lno = 0x2850 // 0x1aa3 @0x2
0x1aa1…1ab6 at0004 = ╱a1╱ CURSOR ╱ // 0x1aa5 @0x4
0x1aa1…1ab6 at0005 = ╱32╱2╱ // 0x1aa6 @0x5
0x1aa1…1ab6 at0006 = ╱30╱0╱ // 0x1aa7 @0x6
0x1aa1…1ab6 at0007 = ╱fe0000a005╱ // 0x1aa8 @0x7
0x1aa1…1ab6 at000c = ╱ec╱ , ╱ // 0x1aad @0xc
0x1aa1…1ab6 at000d = ╱31╱1╱ // 0x1aae @0xd
0x1aa1…1ab6 at000e = ╱30╱0╱ // 0x1aaf @0xe
0x1aa1…1ab6 at000f = ╱fe0000a004╱ // 0x1ab0 @0xf
0x1aa1…1ab6 at0014 = EOL // 0x1ab5 @0x14
0x1aa1…1ab6 }
0x1ab6…1ad9 a226 2860 PRINT "3.…Fakturaer…ikke…udskrevet"
0x1ab6…1ad9 LineComalBcd {
0x1ab6…1ad9 ptr = 0xa226 // 0x1ab6 @0x0
0x1ab6…1ad9 lno = 0x2860 // 0x1ab8 @0x2
0x1ab6…1ad9 at0004 = ╱92╱ PRINT ╱ // 0x1aba @0x4
0x1ab6…1ad9 at0005 = ╱22╱"╱ // 0x1abb @0x5
0x1ab6…1ad9 at0006 = ╱33╱3╱ // 0x1abc @0x6
0x1ab6…1ad9 at0007 = ╱2e╱.╱ // 0x1abd @0x7
0x1ab6…1ad9 at0008 = ╱20╱…╱ // 0x1abe @0x8
0x1ab6…1ad9 at0009 = ╱46╱F╱ // 0x1abf @0x9
0x1ab6…1ad9 at000a = ╱61╱a╱ // 0x1ac0 @0xa
0x1ab6…1ad9 at000b = ╱6b╱k╱ // 0x1ac1 @0xb
0x1ab6…1ad9 at000c = ╱74╱t╱ // 0x1ac2 @0xc
0x1ab6…1ad9 at000d = ╱75╱u╱ // 0x1ac3 @0xd
0x1ab6…1ad9 at000e = ╱72╱r╱ // 0x1ac4 @0xe
0x1ab6…1ad9 at000f = ╱61╱a╱ // 0x1ac5 @0xf
0x1ab6…1ad9 at0010 = ╱65╱e╱ // 0x1ac6 @0x10
0x1ab6…1ad9 at0011 = ╱72╱r╱ // 0x1ac7 @0x11
0x1ab6…1ad9 at0012 = ╱20╱…╱ // 0x1ac8 @0x12
0x1ab6…1ad9 at0013 = ╱69╱i╱ // 0x1ac9 @0x13
0x1ab6…1ad9 at0014 = ╱6b╱k╱ // 0x1aca @0x14
0x1ab6…1ad9 at0015 = ╱6b╱k╱ // 0x1acb @0x15
0x1ab6…1ad9 at0016 = ╱65╱e╱ // 0x1acc @0x16
0x1ab6…1ad9 at0017 = ╱20╱…╱ // 0x1acd @0x17
0x1ab6…1ad9 at0018 = ╱75╱u╱ // 0x1ace @0x18
0x1ab6…1ad9 at0019 = ╱64╱d╱ // 0x1acf @0x19
0x1ab6…1ad9 at001a = ╱73╱s╱ // 0x1ad0 @0x1a
0x1ab6…1ad9 at001b = ╱6b╱k╱ // 0x1ad1 @0x1b
0x1ab6…1ad9 at001c = ╱72╱r╱ // 0x1ad2 @0x1c
0x1ab6…1ad9 at001d = ╱65╱e╱ // 0x1ad3 @0x1d
0x1ab6…1ad9 at001e = ╱76╱v╱ // 0x1ad4 @0x1e
0x1ab6…1ad9 at001f = ╱65╱e╱ // 0x1ad5 @0x1f
0x1ab6…1ad9 at0020 = ╱74╱t╱ // 0x1ad6 @0x20
0x1ab6…1ad9 at0021 = ╱22╱"╱ // 0x1ad7 @0x21
0x1ab6…1ad9 at0022 = EOL // 0x1ad8 @0x22
0x1ab6…1ad9 }
0x1ad9…1adf a22c 2870 ENDIF
0x1ad9…1adf LineComalBcd {
0x1ad9…1adf ptr = 0xa22c // 0x1ad9 @0x0
0x1ad9…1adf lno = 0x2870 // 0x1adb @0x2
0x1ad9…1adf at0004 = ╱9b╱ ENDIF ╱ // 0x1add @0x4
0x1ad9…1adf at0005 = EOL // 0x1ade @0x5
0x1ad9…1adf }
0x1adf…1b00 a24d 2880 IF T2 ( 1 ) > 0 AND E > 1 THEN
0x1adf…1b00 LineComalBcd {
0x1adf…1b00 ptr = 0xa24d // 0x1adf @0x0
0x1adf…1b00 lno = 0x2880 // 0x1ae1 @0x2
0x1adf…1b00 at0004 = ╱9c╱ IF ╱ // 0x1ae3 @0x4
0x1adf…1b00 at0005 = ╱54╱T╱ // 0x1ae4 @0x5
0x1adf…1b00 at0006 = ╱32╱2╱ // 0x1ae5 @0x6
0x1adf…1b00 at0007 = ╱ed╱ ( ╱ // 0x1ae6 @0x7
0x1adf…1b00 at0008 = ╱31╱1╱ // 0x1ae7 @0x8
0x1adf…1b00 at0009 = ╱fe00008001╱ // 0x1ae8 @0x9
0x1adf…1b00 at000e = ╱ee╱ ) ╱ // 0x1aed @0xe
0x1adf…1b00 at000f = ╱de╱ > ╱ // 0x1aee @0xf
0x1adf…1b00 at0010 = ╱30╱0╱ // 0x1aef @0x10
0x1adf…1b00 at0011 = ╱fe00000000╱ // 0x1af0 @0x11
0x1adf…1b00 at0016 = ╱da╱ AND ╱ // 0x1af5 @0x16
0x1adf…1b00 at0017 = ╱45╱E╱ // 0x1af6 @0x17
0x1adf…1b00 at0018 = ╱de╱ > ╱ // 0x1af7 @0x18
0x1adf…1b00 at0019 = ╱31╱1╱ // 0x1af8 @0x19
0x1adf…1b00 at001a = ╱fe00008001╱ // 0x1af9 @0x1a
0x1adf…1b00 at001f = ╱b6╱ THEN ╱ // 0x1afe @0x1f
0x1adf…1b00 at0020 = EOL // 0x1aff @0x20
0x1adf…1b00 }
0x1b00…1b15 a262 2890 CURSOR 20 , 12
0x1b00…1b15 LineComalBcd {
0x1b00…1b15 ptr = 0xa262 // 0x1b00 @0x0
0x1b00…1b15 lno = 0x2890 // 0x1b02 @0x2
0x1b00…1b15 at0004 = ╱a1╱ CURSOR ╱ // 0x1b04 @0x4
0x1b00…1b15 at0005 = ╱32╱2╱ // 0x1b05 @0x5
0x1b00…1b15 at0006 = ╱30╱0╱ // 0x1b06 @0x6
0x1b00…1b15 at0007 = ╱fe0000a005╱ // 0x1b07 @0x7
0x1b00…1b15 at000c = ╱ec╱ , ╱ // 0x1b0c @0xc
0x1b00…1b15 at000d = ╱31╱1╱ // 0x1b0d @0xd
0x1b00…1b15 at000e = ╱32╱2╱ // 0x1b0e @0xe
0x1b00…1b15 at000f = ╱fe0000c004╱ // 0x1b0f @0xf
0x1b00…1b15 at0014 = EOL // 0x1b14 @0x14
0x1b00…1b15 }
0x1b15…1b3d a28a 2900 PRINT "4.…Dagsafslutning…ikke…foretaget"
0x1b15…1b3d LineComalBcd {
0x1b15…1b3d ptr = 0xa28a // 0x1b15 @0x0
0x1b15…1b3d lno = 0x2900 // 0x1b17 @0x2
0x1b15…1b3d at0004 = ╱92╱ PRINT ╱ // 0x1b19 @0x4
0x1b15…1b3d at0005 = ╱22╱"╱ // 0x1b1a @0x5
0x1b15…1b3d at0006 = ╱34╱4╱ // 0x1b1b @0x6
0x1b15…1b3d at0007 = ╱2e╱.╱ // 0x1b1c @0x7
0x1b15…1b3d at0008 = ╱20╱…╱ // 0x1b1d @0x8
0x1b15…1b3d at0009 = ╱44╱D╱ // 0x1b1e @0x9
0x1b15…1b3d at000a = ╱61╱a╱ // 0x1b1f @0xa
0x1b15…1b3d at000b = ╱67╱g╱ // 0x1b20 @0xb
0x1b15…1b3d at000c = ╱73╱s╱ // 0x1b21 @0xc
0x1b15…1b3d at000d = ╱61╱a╱ // 0x1b22 @0xd
0x1b15…1b3d at000e = ╱66╱f╱ // 0x1b23 @0xe
0x1b15…1b3d at000f = ╱73╱s╱ // 0x1b24 @0xf
0x1b15…1b3d at0010 = ╱6c╱l╱ // 0x1b25 @0x10
0x1b15…1b3d at0011 = ╱75╱u╱ // 0x1b26 @0x11
0x1b15…1b3d at0012 = ╱74╱t╱ // 0x1b27 @0x12
0x1b15…1b3d at0013 = ╱6e╱n╱ // 0x1b28 @0x13
0x1b15…1b3d at0014 = ╱69╱i╱ // 0x1b29 @0x14
0x1b15…1b3d at0015 = ╱6e╱n╱ // 0x1b2a @0x15
0x1b15…1b3d at0016 = ╱67╱g╱ // 0x1b2b @0x16
0x1b15…1b3d at0017 = ╱20╱…╱ // 0x1b2c @0x17
0x1b15…1b3d at0018 = ╱69╱i╱ // 0x1b2d @0x18
0x1b15…1b3d at0019 = ╱6b╱k╱ // 0x1b2e @0x19
0x1b15…1b3d at001a = ╱6b╱k╱ // 0x1b2f @0x1a
0x1b15…1b3d at001b = ╱65╱e╱ // 0x1b30 @0x1b
0x1b15…1b3d at001c = ╱20╱…╱ // 0x1b31 @0x1c
0x1b15…1b3d at001d = ╱66╱f╱ // 0x1b32 @0x1d
0x1b15…1b3d at001e = ╱6f╱o╱ // 0x1b33 @0x1e
0x1b15…1b3d at001f = ╱72╱r╱ // 0x1b34 @0x1f
0x1b15…1b3d at0020 = ╱65╱e╱ // 0x1b35 @0x20
0x1b15…1b3d at0021 = ╱74╱t╱ // 0x1b36 @0x21
0x1b15…1b3d at0022 = ╱61╱a╱ // 0x1b37 @0x22
0x1b15…1b3d at0023 = ╱67╱g╱ // 0x1b38 @0x23
0x1b15…1b3d at0024 = ╱65╱e╱ // 0x1b39 @0x24
0x1b15…1b3d at0025 = ╱74╱t╱ // 0x1b3a @0x25
0x1b15…1b3d at0026 = ╱22╱"╱ // 0x1b3b @0x26
0x1b15…1b3d at0027 = EOL // 0x1b3c @0x27
0x1b15…1b3d }
0x1b3d…1b43 a290 2910 ENDIF
0x1b3d…1b43 LineComalBcd {
0x1b3d…1b43 ptr = 0xa290 // 0x1b3d @0x0
0x1b3d…1b43 lno = 0x2910 // 0x1b3f @0x2
0x1b3d…1b43 at0004 = ╱9b╱ ENDIF ╱ // 0x1b41 @0x4
0x1b3d…1b43 at0005 = EOL // 0x1b42 @0x5
0x1b3d…1b43 }
0x1b43…1b64 a2b1 2920 IF T2 ( 8 ) > 0 AND E > 2 THEN
0x1b43…1b64 LineComalBcd {
0x1b43…1b64 ptr = 0xa2b1 // 0x1b43 @0x0
0x1b43…1b64 lno = 0x2920 // 0x1b45 @0x2
0x1b43…1b64 at0004 = ╱9c╱ IF ╱ // 0x1b47 @0x4
0x1b43…1b64 at0005 = ╱54╱T╱ // 0x1b48 @0x5
0x1b43…1b64 at0006 = ╱32╱2╱ // 0x1b49 @0x6
0x1b43…1b64 at0007 = ╱ed╱ ( ╱ // 0x1b4a @0x7
0x1b43…1b64 at0008 = ╱38╱8╱ // 0x1b4b @0x8
0x1b43…1b64 at0009 = ╱fe00008004╱ // 0x1b4c @0x9
0x1b43…1b64 at000e = ╱ee╱ ) ╱ // 0x1b51 @0xe
0x1b43…1b64 at000f = ╱de╱ > ╱ // 0x1b52 @0xf
0x1b43…1b64 at0010 = ╱30╱0╱ // 0x1b53 @0x10
0x1b43…1b64 at0011 = ╱fe00000000╱ // 0x1b54 @0x11
0x1b43…1b64 at0016 = ╱da╱ AND ╱ // 0x1b59 @0x16
0x1b43…1b64 at0017 = ╱45╱E╱ // 0x1b5a @0x17
0x1b43…1b64 at0018 = ╱de╱ > ╱ // 0x1b5b @0x18
0x1b43…1b64 at0019 = ╱32╱2╱ // 0x1b5c @0x19
0x1b43…1b64 at001a = ╱fe00008002╱ // 0x1b5d @0x1a
0x1b43…1b64 at001f = ╱b6╱ THEN ╱ // 0x1b62 @0x1f
0x1b43…1b64 at0020 = EOL // 0x1b63 @0x20
0x1b43…1b64 }
0x1b64…1b79 a2c6 2930 CURSOR 20 , 14
0x1b64…1b79 LineComalBcd {
0x1b64…1b79 ptr = 0xa2c6 // 0x1b64 @0x0
0x1b64…1b79 lno = 0x2930 // 0x1b66 @0x2
0x1b64…1b79 at0004 = ╱a1╱ CURSOR ╱ // 0x1b68 @0x4
0x1b64…1b79 at0005 = ╱32╱2╱ // 0x1b69 @0x5
0x1b64…1b79 at0006 = ╱30╱0╱ // 0x1b6a @0x6
0x1b64…1b79 at0007 = ╱fe0000a005╱ // 0x1b6b @0x7
0x1b64…1b79 at000c = ╱ec╱ , ╱ // 0x1b70 @0xc
0x1b64…1b79 at000d = ╱31╱1╱ // 0x1b71 @0xd
0x1b64…1b79 at000e = ╱34╱4╱ // 0x1b72 @0xe
0x1b64…1b79 at000f = ╱fe0000e004╱ // 0x1b73 @0xf
0x1b64…1b79 at0014 = EOL // 0x1b78 @0x14
0x1b64…1b79 }
0x1b79…1ba1 a2ee 2940 PRINT "5.…Rentebogf|ring…ikke…foretaget"
0x1b79…1ba1 LineComalBcd {
0x1b79…1ba1 ptr = 0xa2ee // 0x1b79 @0x0
0x1b79…1ba1 lno = 0x2940 // 0x1b7b @0x2
0x1b79…1ba1 at0004 = ╱92╱ PRINT ╱ // 0x1b7d @0x4
0x1b79…1ba1 at0005 = ╱22╱"╱ // 0x1b7e @0x5
0x1b79…1ba1 at0006 = ╱35╱5╱ // 0x1b7f @0x6
0x1b79…1ba1 at0007 = ╱2e╱.╱ // 0x1b80 @0x7
0x1b79…1ba1 at0008 = ╱20╱…╱ // 0x1b81 @0x8
0x1b79…1ba1 at0009 = ╱52╱R╱ // 0x1b82 @0x9
0x1b79…1ba1 at000a = ╱65╱e╱ // 0x1b83 @0xa
0x1b79…1ba1 at000b = ╱6e╱n╱ // 0x1b84 @0xb
0x1b79…1ba1 at000c = ╱74╱t╱ // 0x1b85 @0xc
0x1b79…1ba1 at000d = ╱65╱e╱ // 0x1b86 @0xd
0x1b79…1ba1 at000e = ╱62╱b╱ // 0x1b87 @0xe
0x1b79…1ba1 at000f = ╱6f╱o╱ // 0x1b88 @0xf
0x1b79…1ba1 at0010 = ╱67╱g╱ // 0x1b89 @0x10
0x1b79…1ba1 at0011 = ╱66╱f╱ // 0x1b8a @0x11
0x1b79…1ba1 at0012 = ╱7c╱|╱ // 0x1b8b @0x12
0x1b79…1ba1 at0013 = ╱72╱r╱ // 0x1b8c @0x13
0x1b79…1ba1 at0014 = ╱69╱i╱ // 0x1b8d @0x14
0x1b79…1ba1 at0015 = ╱6e╱n╱ // 0x1b8e @0x15
0x1b79…1ba1 at0016 = ╱67╱g╱ // 0x1b8f @0x16
0x1b79…1ba1 at0017 = ╱20╱…╱ // 0x1b90 @0x17
0x1b79…1ba1 at0018 = ╱69╱i╱ // 0x1b91 @0x18
0x1b79…1ba1 at0019 = ╱6b╱k╱ // 0x1b92 @0x19
0x1b79…1ba1 at001a = ╱6b╱k╱ // 0x1b93 @0x1a
0x1b79…1ba1 at001b = ╱65╱e╱ // 0x1b94 @0x1b
0x1b79…1ba1 at001c = ╱20╱…╱ // 0x1b95 @0x1c
0x1b79…1ba1 at001d = ╱66╱f╱ // 0x1b96 @0x1d
0x1b79…1ba1 at001e = ╱6f╱o╱ // 0x1b97 @0x1e
0x1b79…1ba1 at001f = ╱72╱r╱ // 0x1b98 @0x1f
0x1b79…1ba1 at0020 = ╱65╱e╱ // 0x1b99 @0x20
0x1b79…1ba1 at0021 = ╱74╱t╱ // 0x1b9a @0x21
0x1b79…1ba1 at0022 = ╱61╱a╱ // 0x1b9b @0x22
0x1b79…1ba1 at0023 = ╱67╱g╱ // 0x1b9c @0x23
0x1b79…1ba1 at0024 = ╱65╱e╱ // 0x1b9d @0x24
0x1b79…1ba1 at0025 = ╱74╱t╱ // 0x1b9e @0x25
0x1b79…1ba1 at0026 = ╱22╱"╱ // 0x1b9f @0x26
0x1b79…1ba1 at0027 = EOL // 0x1ba0 @0x27
0x1b79…1ba1 }
0x1ba1…1ba7 a2f4 2950 ENDIF
0x1ba1…1ba7 LineComalBcd {
0x1ba1…1ba7 ptr = 0xa2f4 // 0x1ba1 @0x0
0x1ba1…1ba7 lno = 0x2950 // 0x1ba3 @0x2
0x1ba1…1ba7 at0004 = ╱9b╱ ENDIF ╱ // 0x1ba5 @0x4
0x1ba1…1ba7 at0005 = EOL // 0x1ba6 @0x5
0x1ba1…1ba7 }
0x1ba7…1bad a2fa 2960 REPEAT
0x1ba7…1bad LineComalBcd {
0x1ba7…1bad ptr = 0xa2fa // 0x1ba7 @0x0
0x1ba7…1bad lno = 0x2960 // 0x1ba9 @0x2
0x1ba7…1bad at0004 = ╱97╱ REPEAT ╱ // 0x1bab @0x4
0x1ba7…1bad at0005 = EOL // 0x1bac @0x5
0x1ba7…1bad }
0x1bad…1bc2 a30f 2970 CURSOR 20 , 16
0x1bad…1bc2 LineComalBcd {
0x1bad…1bc2 ptr = 0xa30f // 0x1bad @0x0
0x1bad…1bc2 lno = 0x2970 // 0x1baf @0x2
0x1bad…1bc2 at0004 = ╱a1╱ CURSOR ╱ // 0x1bb1 @0x4
0x1bad…1bc2 at0005 = ╱32╱2╱ // 0x1bb2 @0x5
0x1bad…1bc2 at0006 = ╱30╱0╱ // 0x1bb3 @0x6
0x1bad…1bc2 at0007 = ╱fe0000a005╱ // 0x1bb4 @0x7
0x1bad…1bc2 at000c = ╱ec╱ , ╱ // 0x1bb9 @0xc
0x1bad…1bc2 at000d = ╱31╱1╱ // 0x1bba @0xd
0x1bad…1bc2 at000e = ╱36╱6╱ // 0x1bbb @0xe
0x1bad…1bc2 at000f = ╱fe00008005╱ // 0x1bbc @0xf
0x1bad…1bc2 at0014 = EOL // 0x1bc1 @0x14
0x1bad…1bc2 }
0x1bc2…1bdc a329 2980 INPUT "Tast…RETURN" , SVAR1 $
0x1bc2…1bdc LineComalBcd {
0x1bc2…1bdc ptr = 0xa329 // 0x1bc2 @0x0
0x1bc2…1bdc lno = 0x2980 // 0x1bc4 @0x2
0x1bc2…1bdc at0004 = ╱91╱ INPUT ╱ // 0x1bc6 @0x4
0x1bc2…1bdc at0005 = ╱22╱"╱ // 0x1bc7 @0x5
0x1bc2…1bdc at0006 = ╱54╱T╱ // 0x1bc8 @0x6
0x1bc2…1bdc at0007 = ╱61╱a╱ // 0x1bc9 @0x7
0x1bc2…1bdc at0008 = ╱73╱s╱ // 0x1bca @0x8
0x1bc2…1bdc at0009 = ╱74╱t╱ // 0x1bcb @0x9
0x1bc2…1bdc at000a = ╱20╱…╱ // 0x1bcc @0xa
0x1bc2…1bdc at000b = ╱52╱R╱ // 0x1bcd @0xb
0x1bc2…1bdc at000c = ╱45╱E╱ // 0x1bce @0xc
0x1bc2…1bdc at000d = ╱54╱T╱ // 0x1bcf @0xd
0x1bc2…1bdc at000e = ╱55╱U╱ // 0x1bd0 @0xe
0x1bc2…1bdc at000f = ╱52╱R╱ // 0x1bd1 @0xf
0x1bc2…1bdc at0010 = ╱4e╱N╱ // 0x1bd2 @0x10
0x1bc2…1bdc at0011 = ╱22╱"╱ // 0x1bd3 @0x11
0x1bc2…1bdc at0012 = ╱ec╱ , ╱ // 0x1bd4 @0x12
0x1bc2…1bdc at0013 = ╱53╱S╱ // 0x1bd5 @0x13
0x1bc2…1bdc at0014 = ╱56╱V╱ // 0x1bd6 @0x14
0x1bc2…1bdc at0015 = ╱41╱A╱ // 0x1bd7 @0x15
0x1bc2…1bdc at0016 = ╱52╱R╱ // 0x1bd8 @0x16
0x1bc2…1bdc at0017 = ╱31╱1╱ // 0x1bd9 @0x17
0x1bc2…1bdc at0018 = ╱ef╱ $ ╱ // 0x1bda @0x18
0x1bc2…1bdc at0019 = EOL // 0x1bdb @0x19
0x1bc2…1bdc }
0x1bdc…1bf4 a341 2990 UNTIL ORD ( SVAR1 $ ) = 255
0x1bdc…1bf4 LineComalBcd {
0x1bdc…1bf4 ptr = 0xa341 // 0x1bdc @0x0
0x1bdc…1bf4 lno = 0x2990 // 0x1bde @0x2
0x1bdc…1bf4 at0004 = ╱98╱ UNTIL ╱ // 0x1be0 @0x4
0x1bdc…1bf4 at0005 = ╱cd╱ ORD ╱ // 0x1be1 @0x5
0x1bdc…1bf4 at0006 = ╱ed╱ ( ╱ // 0x1be2 @0x6
0x1bdc…1bf4 at0007 = ╱53╱S╱ // 0x1be3 @0x7
0x1bdc…1bf4 at0008 = ╱56╱V╱ // 0x1be4 @0x8
0x1bdc…1bf4 at0009 = ╱41╱A╱ // 0x1be5 @0x9
0x1bdc…1bf4 at000a = ╱52╱R╱ // 0x1be6 @0xa
0x1bdc…1bf4 at000b = ╱31╱1╱ // 0x1be7 @0xb
0x1bdc…1bf4 at000c = ╱ef╱ $ ╱ // 0x1be8 @0xc
0x1bdc…1bf4 at000d = ╱ee╱ ) ╱ // 0x1be9 @0xd
0x1bdc…1bf4 at000e = ╱dc╱ = ╱ // 0x1bea @0xe
0x1bdc…1bf4 at000f = ╱32╱2╱ // 0x1beb @0xf
0x1bdc…1bf4 at0010 = ╱35╱5╱ // 0x1bec @0x10
0x1bdc…1bf4 at0011 = ╱35╱5╱ // 0x1bed @0x11
0x1bdc…1bf4 at0012 = ╱fe0000ff08╱ // 0x1bee @0x12
0x1bdc…1bf4 at0017 = EOL // 0x1bf3 @0x17
0x1bdc…1bf4 }
0x1bf4…1c05 a352 3000 FEJL1 = 1
0x1bf4…1c05 LineComalBcd {
0x1bf4…1c05 ptr = 0xa352 // 0x1bf4 @0x0
0x1bf4…1c05 lno = 0x3000 // 0x1bf6 @0x2
0x1bf4…1c05 at0004 = ╱46╱F╱ // 0x1bf8 @0x4
0x1bf4…1c05 at0005 = ╱45╱E╱ // 0x1bf9 @0x5
0x1bf4…1c05 at0006 = ╱4a╱J╱ // 0x1bfa @0x6
0x1bf4…1c05 at0007 = ╱4c╱L╱ // 0x1bfb @0x7
0x1bf4…1c05 at0008 = ╱31╱1╱ // 0x1bfc @0x8
0x1bf4…1c05 at0009 = ╱dc╱ = ╱ // 0x1bfd @0x9
0x1bf4…1c05 at000a = ╱31╱1╱ // 0x1bfe @0xa
0x1bf4…1c05 at000b = ╱fe00008001╱ // 0x1bff @0xb
0x1bf4…1c05 at0010 = EOL // 0x1c04 @0x10
0x1bf4…1c05 }
0x1c05…1c0b a358 3010 ENDIF
0x1c05…1c0b LineComalBcd {
0x1c05…1c0b ptr = 0xa358 // 0x1c05 @0x0
0x1c05…1c0b lno = 0x3010 // 0x1c07 @0x2
0x1c05…1c0b at0004 = ╱9b╱ ENDIF ╱ // 0x1c09 @0x4
0x1c05…1c0b at0005 = EOL // 0x1c0a @0x5
0x1c05…1c0b }
0x1c0b…1c1e a36b 3020 IF FEJL1 = 0 THEN
0x1c0b…1c1e LineComalBcd {
0x1c0b…1c1e ptr = 0xa36b // 0x1c0b @0x0
0x1c0b…1c1e lno = 0x3020 // 0x1c0d @0x2
0x1c0b…1c1e at0004 = ╱9c╱ IF ╱ // 0x1c0f @0x4
0x1c0b…1c1e at0005 = ╱46╱F╱ // 0x1c10 @0x5
0x1c0b…1c1e at0006 = ╱45╱E╱ // 0x1c11 @0x6
0x1c0b…1c1e at0007 = ╱4a╱J╱ // 0x1c12 @0x7
0x1c0b…1c1e at0008 = ╱4c╱L╱ // 0x1c13 @0x8
0x1c0b…1c1e at0009 = ╱31╱1╱ // 0x1c14 @0x9
0x1c0b…1c1e at000a = ╱dc╱ = ╱ // 0x1c15 @0xa
0x1c0b…1c1e at000b = ╱30╱0╱ // 0x1c16 @0xb
0x1c0b…1c1e at000c = ╱fe00000000╱ // 0x1c17 @0xc
0x1c0b…1c1e at0011 = ╱b6╱ THEN ╱ // 0x1c1c @0x11
0x1c0b…1c1e at0012 = EOL // 0x1c1d @0x12
0x1c0b…1c1e }
0x1c1e…1c27 a374 3030 EXEC BIL
0x1c1e…1c27 LineComalBcd {
0x1c1e…1c27 ptr = 0xa374 // 0x1c1e @0x0
0x1c1e…1c27 lno = 0x3030 // 0x1c20 @0x2
0x1c1e…1c27 at0004 = ╱9d╱ EXEC ╱ // 0x1c22 @0x4
0x1c1e…1c27 at0005 = ╱42╱B╱ // 0x1c23 @0x5
0x1c1e…1c27 at0006 = ╱49╱I╱ // 0x1c24 @0x6
0x1c1e…1c27 at0007 = ╱4c╱L╱ // 0x1c25 @0x7
0x1c1e…1c27 at0008 = EOL // 0x1c26 @0x8
0x1c1e…1c27 }
0x1c27…1c36 a383 3040 IF D = 1 THEN
0x1c27…1c36 LineComalBcd {
0x1c27…1c36 ptr = 0xa383 // 0x1c27 @0x0
0x1c27…1c36 lno = 0x3040 // 0x1c29 @0x2
0x1c27…1c36 at0004 = ╱9c╱ IF ╱ // 0x1c2b @0x4
0x1c27…1c36 at0005 = ╱44╱D╱ // 0x1c2c @0x5
0x1c27…1c36 at0006 = ╱dc╱ = ╱ // 0x1c2d @0x6
0x1c27…1c36 at0007 = ╱31╱1╱ // 0x1c2e @0x7
0x1c27…1c36 at0008 = ╱fe00008001╱ // 0x1c2f @0x8
0x1c27…1c36 at000d = ╱b6╱ THEN ╱ // 0x1c34 @0xd
0x1c27…1c36 at000e = EOL // 0x1c35 @0xe
0x1c27…1c36 }
0x1c36…1c3c a389 3050 REPEAT
0x1c36…1c3c LineComalBcd {
0x1c36…1c3c ptr = 0xa389 // 0x1c36 @0x0
0x1c36…1c3c lno = 0x3050 // 0x1c38 @0x2
0x1c36…1c3c at0004 = ╱97╱ REPEAT ╱ // 0x1c3a @0x4
0x1c36…1c3c at0005 = EOL // 0x1c3b @0x5
0x1c36…1c3c }
0x1c3c…1c51 a39e 3060 CURSOR 20 , 15
0x1c3c…1c51 LineComalBcd {
0x1c3c…1c51 ptr = 0xa39e // 0x1c3c @0x0
0x1c3c…1c51 lno = 0x3060 // 0x1c3e @0x2
0x1c3c…1c51 at0004 = ╱a1╱ CURSOR ╱ // 0x1c40 @0x4
0x1c3c…1c51 at0005 = ╱32╱2╱ // 0x1c41 @0x5
0x1c3c…1c51 at0006 = ╱30╱0╱ // 0x1c42 @0x6
0x1c3c…1c51 at0007 = ╱fe0000a005╱ // 0x1c43 @0x7
0x1c3c…1c51 at000c = ╱ec╱ , ╱ // 0x1c48 @0xc
0x1c3c…1c51 at000d = ╱31╱1╱ // 0x1c49 @0xd
0x1c3c…1c51 at000e = ╱35╱5╱ // 0x1c4a @0xe
0x1c3c…1c51 at000f = ╱fe0000f004╱ // 0x1c4b @0xf
0x1c3c…1c51 at0014 = EOL // 0x1c50 @0x14
0x1c3c…1c51 }
0x1c51…1c80 a3cd 3070 INPUT "Is{t…plade…nr…15…og…tast…RETURN…" , SVAR1 $
0x1c51…1c80 LineComalBcd {
0x1c51…1c80 ptr = 0xa3cd // 0x1c51 @0x0
0x1c51…1c80 lno = 0x3070 // 0x1c53 @0x2
0x1c51…1c80 at0004 = ╱91╱ INPUT ╱ // 0x1c55 @0x4
0x1c51…1c80 at0005 = ╱22╱"╱ // 0x1c56 @0x5
0x1c51…1c80 at0006 = ╱49╱I╱ // 0x1c57 @0x6
0x1c51…1c80 at0007 = ╱73╱s╱ // 0x1c58 @0x7
0x1c51…1c80 at0008 = ╱7b╱{╱ // 0x1c59 @0x8
0x1c51…1c80 at0009 = ╱74╱t╱ // 0x1c5a @0x9
0x1c51…1c80 at000a = ╱20╱…╱ // 0x1c5b @0xa
0x1c51…1c80 at000b = ╱70╱p╱ // 0x1c5c @0xb
0x1c51…1c80 at000c = ╱6c╱l╱ // 0x1c5d @0xc
0x1c51…1c80 at000d = ╱61╱a╱ // 0x1c5e @0xd
0x1c51…1c80 at000e = ╱64╱d╱ // 0x1c5f @0xe
0x1c51…1c80 at000f = ╱65╱e╱ // 0x1c60 @0xf
0x1c51…1c80 at0010 = ╱20╱…╱ // 0x1c61 @0x10
0x1c51…1c80 at0011 = ╱6e╱n╱ // 0x1c62 @0x11
0x1c51…1c80 at0012 = ╱72╱r╱ // 0x1c63 @0x12
0x1c51…1c80 at0013 = ╱20╱…╱ // 0x1c64 @0x13
0x1c51…1c80 at0014 = ╱31╱1╱ // 0x1c65 @0x14
0x1c51…1c80 at0015 = ╱35╱5╱ // 0x1c66 @0x15
0x1c51…1c80 at0016 = ╱20╱…╱ // 0x1c67 @0x16
0x1c51…1c80 at0017 = ╱6f╱o╱ // 0x1c68 @0x17
0x1c51…1c80 at0018 = ╱67╱g╱ // 0x1c69 @0x18
0x1c51…1c80 at0019 = ╱20╱…╱ // 0x1c6a @0x19
0x1c51…1c80 at001a = ╱74╱t╱ // 0x1c6b @0x1a
0x1c51…1c80 at001b = ╱61╱a╱ // 0x1c6c @0x1b
0x1c51…1c80 at001c = ╱73╱s╱ // 0x1c6d @0x1c
0x1c51…1c80 at001d = ╱74╱t╱ // 0x1c6e @0x1d
0x1c51…1c80 at001e = ╱20╱…╱ // 0x1c6f @0x1e
0x1c51…1c80 at001f = ╱52╱R╱ // 0x1c70 @0x1f
0x1c51…1c80 at0020 = ╱45╱E╱ // 0x1c71 @0x20
0x1c51…1c80 at0021 = ╱54╱T╱ // 0x1c72 @0x21
0x1c51…1c80 at0022 = ╱55╱U╱ // 0x1c73 @0x22
0x1c51…1c80 at0023 = ╱52╱R╱ // 0x1c74 @0x23
0x1c51…1c80 at0024 = ╱4e╱N╱ // 0x1c75 @0x24
0x1c51…1c80 at0025 = ╱20╱…╱ // 0x1c76 @0x25
0x1c51…1c80 at0026 = ╱22╱"╱ // 0x1c77 @0x26
0x1c51…1c80 at0027 = ╱ec╱ , ╱ // 0x1c78 @0x27
0x1c51…1c80 at0028 = ╱53╱S╱ // 0x1c79 @0x28
0x1c51…1c80 at0029 = ╱56╱V╱ // 0x1c7a @0x29
0x1c51…1c80 at002a = ╱41╱A╱ // 0x1c7b @0x2a
0x1c51…1c80 at002b = ╱52╱R╱ // 0x1c7c @0x2b
0x1c51…1c80 at002c = ╱31╱1╱ // 0x1c7d @0x2c
0x1c51…1c80 at002d = ╱ef╱ $ ╱ // 0x1c7e @0x2d
0x1c51…1c80 at002e = EOL // 0x1c7f @0x2e
0x1c51…1c80 }
0x1c80…1c98 a3e5 3080 UNTIL ORD ( SVAR1 $ ) = 255
0x1c80…1c98 LineComalBcd {
0x1c80…1c98 ptr = 0xa3e5 // 0x1c80 @0x0
0x1c80…1c98 lno = 0x3080 // 0x1c82 @0x2
0x1c80…1c98 at0004 = ╱98╱ UNTIL ╱ // 0x1c84 @0x4
0x1c80…1c98 at0005 = ╱cd╱ ORD ╱ // 0x1c85 @0x5
0x1c80…1c98 at0006 = ╱ed╱ ( ╱ // 0x1c86 @0x6
0x1c80…1c98 at0007 = ╱53╱S╱ // 0x1c87 @0x7
0x1c80…1c98 at0008 = ╱56╱V╱ // 0x1c88 @0x8
0x1c80…1c98 at0009 = ╱41╱A╱ // 0x1c89 @0x9
0x1c80…1c98 at000a = ╱52╱R╱ // 0x1c8a @0xa
0x1c80…1c98 at000b = ╱31╱1╱ // 0x1c8b @0xb
0x1c80…1c98 at000c = ╱ef╱ $ ╱ // 0x1c8c @0xc
0x1c80…1c98 at000d = ╱ee╱ ) ╱ // 0x1c8d @0xd
0x1c80…1c98 at000e = ╱dc╱ = ╱ // 0x1c8e @0xe
0x1c80…1c98 at000f = ╱32╱2╱ // 0x1c8f @0xf
0x1c80…1c98 at0010 = ╱35╱5╱ // 0x1c90 @0x10
0x1c80…1c98 at0011 = ╱35╱5╱ // 0x1c91 @0x11
0x1c80…1c98 at0012 = ╱fe0000ff08╱ // 0x1c92 @0x12
0x1c80…1c98 at0017 = EOL // 0x1c97 @0x17
0x1c80…1c98 }
0x1c98…1c9e a3eb 3090 ENDIF
0x1c98…1c9e LineComalBcd {
0x1c98…1c9e ptr = 0xa3eb // 0x1c98 @0x0
0x1c98…1c9e lno = 0x3090 // 0x1c9a @0x2
0x1c98…1c9e at0004 = ╱9b╱ ENDIF ╱ // 0x1c9c @0x4
0x1c98…1c9e at0005 = EOL // 0x1c9d @0x5
0x1c98…1c9e }
0x1c9e…1ca6 a3f3 3100 CHAIN B $
0x1c9e…1ca6 LineComalBcd {
0x1c9e…1ca6 ptr = 0xa3f3 // 0x1c9e @0x0
0x1c9e…1ca6 lno = 0x3100 // 0x1ca0 @0x2
0x1c9e…1ca6 at0004 = ╱ac╱ CHAIN ╱ // 0x1ca2 @0x4
0x1c9e…1ca6 at0005 = ╱42╱B╱ // 0x1ca3 @0x5
0x1c9e…1ca6 at0006 = ╱ef╱ $ ╱ // 0x1ca4 @0x6
0x1c9e…1ca6 at0007 = EOL // 0x1ca5 @0x7
0x1c9e…1ca6 }
0x1ca6…1cac a3f9 3110 ENDIF
0x1ca6…1cac LineComalBcd {
0x1ca6…1cac ptr = 0xa3f9 // 0x1ca6 @0x0
0x1ca6…1cac lno = 0x3110 // 0x1ca8 @0x2
0x1ca6…1cac at0004 = ╱9b╱ ENDIF ╱ // 0x1caa @0x4
0x1ca6…1cac at0005 = EOL // 0x1cab @0x5
0x1ca6…1cac }
0x1cac…1cbd a40a 3120 UNTIL GENT = 1
0x1cac…1cbd LineComalBcd {
0x1cac…1cbd ptr = 0xa40a // 0x1cac @0x0
0x1cac…1cbd lno = 0x3120 // 0x1cae @0x2
0x1cac…1cbd at0004 = ╱98╱ UNTIL ╱ // 0x1cb0 @0x4
0x1cac…1cbd at0005 = ╱47╱G╱ // 0x1cb1 @0x5
0x1cac…1cbd at0006 = ╱45╱E╱ // 0x1cb2 @0x6
0x1cac…1cbd at0007 = ╱4e╱N╱ // 0x1cb3 @0x7
0x1cac…1cbd at0008 = ╱54╱T╱ // 0x1cb4 @0x8
0x1cac…1cbd at0009 = ╱dc╱ = ╱ // 0x1cb5 @0x9
0x1cac…1cbd at000a = ╱31╱1╱ // 0x1cb6 @0xa
0x1cac…1cbd at000b = ╱fe00008001╱ // 0x1cb7 @0xb
0x1cac…1cbd at0010 = EOL // 0x1cbc @0x10
0x1cac…1cbd }
0x1cbd…1cc3 0000 3130 END
0x1cbd…1cc3 LineComalBcd {
0x1cbd…1cc3 ptr = 0x0000 // 0x1cbd @0x0
0x1cbd…1cc3 lno = 0x3130 // 0x1cbf @0x2
0x1cbd…1cc3 at0004 = ╱8c╱ END ╱ // 0x1cc1 @0x4
0x1cbd…1cc3 at0005 = EOL // 0x1cc2 @0x5
0x1cbd…1cc3 }
0x1cc3…1cc7 (96,) 874d 4d87
0x1cc3…1cc7 LineComalBcd {
0x1cc3…1cc7 ptr = 0x874d // 0x1cc3 @0x0
0x1cc3…1cc7 lno = 0x4d87 // 0x1cc5 @0x2
0x1cc3…1cc7 }