|
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 - download
Length: 7367 (0x1cc7)
Types: SPC/1-COMAL-BCD
Notes: Mikados_B
Names: »OPSTART.B«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »OPSTART.B«
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
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,) 4d 87 4d 87 ┆M M ┆