|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »OPSTART.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »OPSTART.K«
0100 DIM TEK$(30),SVAR1$(2),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9) 0110 DIM DAT$(8),T3(9),C$(8),C1$(8),K$(17) 0120 PROC TESTSYS 0130 A$="P641220:";B$=A$+"SYSTEM1" 0140 REPEAT 0150 FEJL1=0 0160 OPEN B$,R 0170 IF STATUS(B$)<>0 THEN 0180 CLEAR 0190 CURSOR 11,11 0200 PRINT "Pladen ";A$(6:2);" er ikke monteret." 0210 CURSOR 11,13 0220 INPUT "Tast RETURN når dette er gjort.",TEK$ 0230 FEJL1=1 0240 ENDIF 0250 UNTIL FEJL1=0 0260 CLEAR 0270 GET B$,2:MKAS,MPOS,MBH 0280 EXEC FEJL(1,1,B$) 0290 GET B$,4:MKMID,MFAK 0300 EXEC FEJL(1,1,B$) 0310 GET B$,5:MKRGR,MFKL 0320 EXEC FEJL(2,10,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 T3(2)=0 0470 PUT B$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 0480 EXEC FEJL(1,8,B$) 0490 CLOSE B$ 0500 EXEC FEJL(5,1,B$) 0510 ENDPROC 0520 PROC BIL 0530 XY=(39-LEN(TEK$)) DIV 2 0540 CLEAR 0550 CURSOR 20,9 0560 PRINT "*****************************************" 0570 CURSOR 20,10 0580 PRINT "*";TAB(41);"*" 0590 CURSOR 20,11 0600 PRINT "*";TAB(XY);TEK$;TAB(41);"*" 0610 CURSOR 20,12 0620 PRINT "*";TAB(41);"*" 0630 CURSOR 20,13 0640 PRINT "*****************************************" 0650 ENDPROC 0660 PROC FEJL(NR1,NR2,NR3) 0670 IF STATUS(NR3$)<>0 THEN 0680 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0690 STOP 0700 ENDIF 0710 ENDPROC 0720 EXEC TESTSYS 0730 A$="P641210:";C$="P641210:";GENT=0 0740 REPEAT 0750 TEK$=" " 0760 CLEAR 0770 CURSOR 21,1 0780 PRINT "Programvalg." 0790 CURSOR 11,2 0800 PRINT "0: Start" 0810 CURSOR 11,4 0820 PRINT "1: Kartoteksvedligeholdelse." 0830 CURSOR 11,6 0840 PRINT "2: Fakturering." 0850 CURSOR 11,8 0860 PRINT "3: Bogføring." 0870 CURSOR 11,10 0880 PRINT "4: Spørge- og listeprogrammer." 0890 CURSOR 11,12 0900 PRINT "5: Sikkerhedskopiering." 0910 CURSOR 11,14 0920 PRINT "6: Dagsafslutning." 0930 CURSOR 11,16 0940 PRINT "7: Månedsafslutning." 0950 CURSOR 11,18 0960 PRINT "8: Årsafslutning." 0970 CURSOR 11,20 0980 PRINT "9: Entrepriser." 0982 CURSOR 10,22 0983 PRINT "10: Løn." 0990 REPEAT 1000 CURSOR 11,23 1010 INPUT "Vælg 0-10:",SVAR1$ 1020 UNTIL SVAR1$=>"0" OR SVAR1$<="10" 1030 CLEAR 1040 CURSOR 21,1 1050 FEJL1,D,E,F=0 1060 CASE SVAR1$ OF 1070 WHEN "0" 1080 TEK$="START";B$=A$+"START" 1090 WHEN "1" 1100 PRINT "Programvalg: Kartoteksvedligeholdelse." 1110 CURSOR 11,4 1120 PRINT "1: Kundekontovedligeholdelse." 1130 CURSOR 11,6 1140 PRINT "2: Finanskontovedligeholdelse." 1150 CURSOR 11,8 1160 PRINT "3: Kreditorkontovedligeholdelse." 1170 CURSOR 11,10 1180 PRINT "4: Varevedligeholdelse." 1190 CURSOR 11,12 1200 PRINT "5: Systemvedligeholdelse." 1210 REPEAT 1220 CURSOR 11,15 1230 INPUT "Vælg 1-5:",SVAR2$ 1240 UNTIL SVAR2$=>"0" AND SVAR2$<="5" 1250 CASE SVAR2$ OF 1260 FEJL1=1 1270 WHEN "1" 1280 TEK$="Kundekontovedligeholdelse.";B$=A$+"DEBVEDL" 1290 WHEN "2" 1300 TEK$="Finanskontovedligeholdelse.";B$=A$+"FINVEDL" 1310 WHEN "3" 1320 TEK$="Kreditorkontovedligeholdelse";B$=A$+"KREVEDL" 1330 WHEN "4" 1340 TEK$="Varevedligeholdelse.";B$=A$+"VAREVEDL" 1350 WHEN "5" 1360 TEK$="Systemvedligeholdelse";B$=A$+"SYSVEDL" 1370 ENDCASE 1380 WHEN "2" 1390 PRINT "Programvalg. Fakturering." 1400 CURSOR 11,4 1410 PRINT "1: Fakturering." 1420 CURSOR 11,6 1430 PRINT "2: Udskrivning af fakturaer." 1440 REPEAT 1450 CURSOR 11,9 1460 INPUT "Vælg 1-2:",SVAR2$ 1470 UNTIL SVAR2$=>"0" AND SVAR2$<="2" 1480 CURSOR 21,11 1490 CASE SVAR2$ OF 1500 FEJL1=1 1510 WHEN "1" 1520 IF T1(4)<(MFKL+5)*MFAK-15+2*MFKL OR T1(8)<MFAK THEN 1530 TEK$="Fakturering.";B$=A$+"FAKTURA" 1540 ELSE 1550 PRINT "Der er ikke plads til flere fakturaer." 1560 FEJL1=1 1570 ENDIF 1580 WHEN "2" 1590 IF T1(4)>0 THEN 1600 TEK$="Udskrivning af fakturaer.";B$=A$+"FAKUD" 1610 ELSE 1620 PRINT "Der ikke nogle fakturaer at udskrive." 1630 FEJL1=1 1640 ENDIF 1650 ENDCASE 1660 IF FEJL1=1 THEN 1670 CURSOR 21,13 1680 INPUT "Tast RETURN",TEK$ 1690 ENDIF 1700 WHEN "3" 1710 PRINT "Programvalg. Bogføring." 1720 CURSOR 11,4 1730 PRINT "1: Kasserapport." 1740 CURSOR 11,6 1750 PRINT "2: Posteringsark." 1760 REPEAT 1770 CURSOR 11,9 1780 INPUT "Vælg 1-2:",SVAR2$ 1790 UNTIL SVAR2$=>"0" AND SVAR2$<="2" 1800 IF T2(1)>MBH-3 THEN 1810 FEJL1=1 1820 CURSOR 5,11 1830 PRINT "Ikke plads til flere posteringer, dagsafslutning skal foretages"; 1840 INPUT ", tast RETURN",TEK$ 1850 ELSE 1860 CASE SVAR2$ OF 1870 FEJL1=1 1880 WHEN "1" 1890 TEK$="Kasserapport.";B$=A$+"KASRAP" 1900 WHEN "2" 1910 TEK$="Posteringsark";B$=A$+"PSTERING" 1920 ENDCASE 1930 ENDIF 1940 WHEN "4" 1950 PRINT "Programvalg. Spørge- og listeprogrammer." 1960 CURSOR 11,4 1970 PRINT "1: Kontospørgeprogram." 1980 CURSOR 11,6 1990 PRINT "2: Debitorlister" 2000 CURSOR 11,8 2010 PRINT "3: Balancer." 2020 CURSOR 11,10 2030 PRINT "4: Kreditorlister." 2040 REPEAT 2050 CURSOR 11,13 2060 INPUT "Vælg 1-4:",SVAR2$ 2070 UNTIL SVAR2$=>"0" AND SVAR2$<"5" 2080 CASE SVAR2$ OF 2090 FEJL1=1 2100 WHEN "1" 2110 TEK$="Kontospørgeprogram";B$=A$+"KSP1" 2120 WHEN "2" 2130 TEK$="Debitorlister";B$=A$+"DEBLIST" 2140 WHEN "3" 2150 TEK$="Balancer";B$=A$+"BALANCE" 2160 WHEN "4" 2170 TEK$="Kreditorlister";B$=C$+"KRELIST";D=1 2180 ENDCASE 2190 WHEN "6" 2200 TEK$="Dagsafslutning.";B$=C$+"ÅKOPI";E=1;D=1 2210 WHEN "8" 2220 TEK$="Årsafslutning.";B$=C$+"ÅRSAFS";D=1;E=4 2230 CLEAR 2240 REPEAT 2250 CURSOR 20,13 2260 INPUT "Er månedsafslutning foretaget (J/N) ",SVAR2$ 2270 UNTIL SVAR2$="J" OR SVAR2$="N" OR SVAR2$="j" OR SVAR2$="n" 2280 IF SVAR2$="n" OR SVAR2$="N" THEN FEJL1=1 2290 WHEN "5" 2300 TEK$="Sikkerhedskopiering";B$=C$+"SKOPI";D=1 2310 WHEN "9" 2320 PRINT "Programvalg. Entrepriser." 2330 CURSOR 11,4 2340 PRINT "1: Entreprisevedligeholdelse" 2350 CURSOR 11,6 2360 PRINT "2: Underkontovedligeholdelse" 2370 CURSOR 11,8 2380 PRINT "3: Entreprisespørgeprogram" 2390 CURSOR 11,10 2400 PRINT "4: Entreprisebalancer" 2410 REPEAT 2420 CURSOR 11,13 2430 INPUT "Vælg 1-4:",SVAR2$ 2440 UNTIL SVAR2$=>"0" AND SVAR2$<"5" 2450 CASE SVAR2$ OF 2460 FEJL1=1 2470 WHEN "1" 2480 TEK$="Enterprisevedligeholdelse";B$=C$+"ENTVEDL";D=1 2490 WHEN "2" 2500 TEK$="Underkontovedligeholdelse";B$=C$+"UNKVEDL";D=1 2510 WHEN "3" 2520 TEK$="Enterprisespørgeprogram";B$=C$+"ENTKSP1";D=1 2530 WHEN "4" 2540 TEK$="Entreprisebalancer";B$=C$+"ENTBAL";D=1 2550 ENDCASE 2560 WHEN "7" 2570 PRINT "Programvalg. Månedsafslutning." 2580 CURSOR 11,4 2590 PRINT "1: Månedsafslutning." 2600 CURSOR 11,6 2610 PRINT "2: Renteberegning." 2620 REPEAT 2630 CURSOR 11,9 2640 INPUT "Vælg 1-2:",SVAR2$ 2650 UNTIL SVAR2$=>"0" AND SVAR2$<"3" 2660 CASE SVAR2$ OF 2670 FEJL1=1 2680 WHEN "1" 2690 TEK$="Månedsafslutning";B$=C$+"ÅKOPI";E=3;D=1;T3(2)=1 2700 WHEN "2" 2710 TEK$="Renteberegning.";B$=C$+"RENTE";D=1;E=2 2720 ENDCASE 2721 WHEN "10" 2722 TEK$="Løn.";B$=C$+"STARTB" 2730 ENDCASE 2740 IF T1(2)>0 OR T1(4)>0 OR T1(1)>0 THEN F=1 2750 IF (F=1 OR (T2(1)>0 AND E>1) OR (T2(8)>0 AND E>2)) AND E>0 THEN 2760 CLEAR 2770 CURSOR 20,4 2780 PRINT TEK$;" kan ikke foretages , da :" 2790 IF T1(2)<>0 THEN 2800 CURSOR 20,6 2810 PRINT "1. Kasserapport ikke afstemt" 2820 ENDIF 2830 IF T1(1)<>0 THEN 2840 CURSOR 20,8 2850 PRINT "2.Posteringsark ikke afsluttet" 2860 ENDIF 2870 IF T1(4)<>0 THEN 2880 CURSOR 20,10 2890 PRINT "3. Fakturaer ikke udskrevet" 2900 ENDIF 2910 IF T2(1)>0 AND E>1 THEN 2920 CURSOR 20,12 2930 PRINT "4. Dagsafslutning ikke foretaget" 2940 ENDIF 2950 IF T2(8)>0 AND E>2 THEN 2960 CURSOR 20,14 2970 PRINT "5. Rentebogføring ikke foretaget" 2980 ENDIF 2990 REPEAT 3000 CURSOR 20,16 3010 INPUT "Tast RETURN",SVAR1$ 3020 UNTIL ORD(SVAR1$)=255 3030 FEJL1=1 3040 ENDIF 3050 IF FEJL1=0 THEN 3060 EXEC BIL 3070 K$="P641220:SYSTEM2" 3080 OPEN K$,W 3090 EXEC FEJL(11,1,K$) 3100 PUT K$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9) 3110 EXEC FEJL(1,8,K$) 3120 PUT K$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 3130 EXEC FEJL(1,9,K$) 3140 CLOSE K$ 3150 EXEC FEJL(11,2,K$) 3160 IF D=9 THEN 3170 REPEAT 3180 CURSOR 20,15 3190 INPUT "Isæt plade nr 15 og tast RETURN ",SVAR1$ 3200 UNTIL ORD(SVAR1$)=255 3210 ENDIF 3220 CHAIN B$ 3230 ENDIF 3240 UNTIL GENT=1
0x0000…004b Line {l1=0x49, l2=»0100 DIM TEK$(30),SVAR1$(2),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9)«, l3=0x49}
0x004b…0077 Line {l1=0x2a, l2=»0110 DIM DAT$(8),T3(9),C$(8),C1$(8),K$(17)«, l3=0x2a}
0x0077…008a Line {l1=0x11, l2=»0120 PROC TESTSYS«, l3=0x11}
0x008a…00ae Line {l1=0x22, l2=»0130 A$="P641220:";B$=A$+"SYSTEM1"«, l3=0x22}
0x00ae…00bc Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x00bc…00ca Line {l1=0x0c, l2=»0150 FEJL1=0«, l3=0x0c}
0x00ca…00da Line {l1=0x0e, l2=»0160 OPEN B$,R«, l3=0x0e}
0x00da…00f7 Line {l1=0x1b, l2=»0170 IF STATUS(B$)<>0 THEN «, l3=0x1b}
0x00f7…0104 Line {l1=0x0b, l2=»0180 CLEAR «, l3=0x0b}
0x0104…0117 Line {l1=0x11, l2=»0190 CURSOR 11,11«, l3=0x11}
0x0117…014b Line {l1=0x32, l2=»0200 PRINT "Pladen ";A$(6:2);" er ikke monteret."«, l3=0x32}
0x014b…015e Line {l1=0x11, l2=»0210 CURSOR 11,13«, l3=0x11}
0x015e…0191 Line {l1=0x31, l2=»0220 INPUT "Tast RETURN når dette er gjort.",TEK$«, l3=0x31}
0x0191…019f Line {l1=0x0c, l2=»0230 FEJL1=1«, l3=0x0c}
0x019f…01ac Line {l1=0x0b, l2=»0240 ENDIF «, l3=0x0b}
0x01ac…01c0 Line {l1=0x12, l2=»0250 UNTIL FEJL1=0«, l3=0x12}
0x01c0…01cd Line {l1=0x0b, l2=»0260 CLEAR «, l3=0x0b}
0x01cd…01ea Line {l1=0x1b, l2=»0270 GET B$,2:MKAS,MPOS,MBH«, l3=0x1b}
0x01ea…0202 Line {l1=0x16, l2=»0280 EXEC FEJL(1,1,B$)«, l3=0x16}
0x0202…021c Line {l1=0x18, l2=»0290 GET B$,4:MKMID,MFAK«, l3=0x18}
0x021c…0234 Line {l1=0x16, l2=»0300 EXEC FEJL(1,1,B$)«, l3=0x16}
0x0234…024e Line {l1=0x18, l2=»0310 GET B$,5:MKRGR,MFKL«, l3=0x18}
0x024e…0267 Line {l1=0x17, l2=»0320 EXEC FEJL(2,10,B$)«, l3=0x17}
0x0267…0276 Line {l1=0x0d, l2=»0330 CLOSE B$«, l3=0x0d}
0x0276…028e Line {l1=0x16, l2=»0340 EXEC FEJL(1,2,B$)«, l3=0x16}
0x028e…02a4 Line {l1=0x14, l2=»0350 B$=A$+"SYSTEM2"«, l3=0x14}
0x02a4…02b4 Line {l1=0x0e, l2=»0360 OPEN B$,W«, l3=0x0e}
0x02b4…02cc Line {l1=0x16, l2=»0370 EXEC FEJL(1,3,B$)«, l3=0x16}
0x02cc…0308 Line {l1=0x3a, l2=»0380 GET B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)«, l3=0x3a}
0x0308…0320 Line {l1=0x16, l2=»0390 EXEC FEJL(1,4,B$)«, l3=0x16}
0x0320…0366 Line {l1=0x44, l2=»0400 GET B$,12:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0366…037e Line {l1=0x16, l2=»0410 EXEC FEJL(1,5,B$)«, l3=0x16}
0x037e…03c4 Line {l1=0x44, l2=»0420 GET B$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x44}
0x03c4…03dc Line {l1=0x16, l2=»0430 EXEC FEJL(1,6,B$)«, l3=0x16}
0x03dc…0422 Line {l1=0x44, l2=»0440 GET B$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x44}
0x0422…043a Line {l1=0x16, l2=»0450 EXEC FEJL(1,7,B$)«, l3=0x16}
0x043a…0448 Line {l1=0x0c, l2=»0460 T3(2)=0«, l3=0x0c}
0x0448…048e Line {l1=0x44, l2=»0470 PUT B$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x44}
0x048e…04a6 Line {l1=0x16, l2=»0480 EXEC FEJL(1,8,B$)«, l3=0x16}
0x04a6…04b5 Line {l1=0x0d, l2=»0490 CLOSE B$«, l3=0x0d}
0x04b5…04cd Line {l1=0x16, l2=»0500 EXEC FEJL(5,1,B$)«, l3=0x16}
0x04cd…04dc Line {l1=0x0d, l2=»0510 ENDPROC «, l3=0x0d}
0x04dc…04eb Line {l1=0x0d, l2=»0520 PROC BIL«, l3=0x0d}
0x04eb…0509 Line {l1=0x1c, l2=»0530 XY=(39-LEN(TEK$)) DIV 2«, l3=0x1c}
0x0509…0516 Line {l1=0x0b, l2=»0540 CLEAR «, l3=0x0b}
0x0516…0528 Line {l1=0x10, l2=»0550 CURSOR 20,9«, l3=0x10}
0x0528…0560 Line {l1=0x36, l2=»0560 PRINT "*****************************************"«, l3=0x36}
0x0560…0573 Line {l1=0x11, l2=»0570 CURSOR 20,10«, l3=0x11}
0x0573…058f Line {l1=0x1a, l2=»0580 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x058f…05a2 Line {l1=0x11, l2=»0590 CURSOR 20,11«, l3=0x11}
0x05a2…05cb Line {l1=0x27, l2=»0600 PRINT "*";TAB(XY);TEK$;TAB(41);"*"«, l3=0x27}
0x05cb…05de Line {l1=0x11, l2=»0610 CURSOR 20,12«, l3=0x11}
0x05de…05fa Line {l1=0x1a, l2=»0620 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x05fa…060d Line {l1=0x11, l2=»0630 CURSOR 20,13«, l3=0x11}
0x060d…0645 Line {l1=0x36, l2=»0640 PRINT "*****************************************"«, l3=0x36}
0x0645…0654 Line {l1=0x0d, l2=»0650 ENDPROC «, l3=0x0d}
0x0654…0671 Line {l1=0x1b, l2=»0660 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x0671…0690 Line {l1=0x1d, l2=»0670 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0690…06b6 Line {l1=0x24, l2=»0680 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x06b6…06c2 Line {l1=0x0a, l2=»0690 STOP «, l3=0x0a}
0x06c2…06cf Line {l1=0x0b, l2=»0700 ENDIF «, l3=0x0b}
0x06cf…06de Line {l1=0x0d, l2=»0710 ENDPROC «, l3=0x0d}
0x06de…06f1 Line {l1=0x11, l2=»0720 EXEC TESTSYS«, l3=0x11}
0x06f1…071a Line {l1=0x27, l2=»0730 A$="P641210:";C$="P641210:";GENT=0«, l3=0x27}
0x071a…0728 Line {l1=0x0c, l2=»0740 REPEAT «, l3=0x0c}
0x0728…0754 Line {l1=0x2a, l2=»0750 TEK$=" "«, l3=0x2a}
0x0754…0761 Line {l1=0x0b, l2=»0760 CLEAR «, l3=0x0b}
0x0761…0773 Line {l1=0x10, l2=»0770 CURSOR 21,1«, l3=0x10}
0x0773…078e Line {l1=0x19, l2=»0780 PRINT "Programvalg."«, l3=0x19}
0x078e…07a0 Line {l1=0x10, l2=»0790 CURSOR 11,2«, l3=0x10}
0x07a0…07b7 Line {l1=0x15, l2=»0800 PRINT "0: Start"«, l3=0x15}
0x07b7…07c9 Line {l1=0x10, l2=»0810 CURSOR 11,4«, l3=0x10}
0x07c9…07f4 Line {l1=0x29, l2=»0820 PRINT "1: Kartoteksvedligeholdelse."«, l3=0x29}
0x07f4…0806 Line {l1=0x10, l2=»0830 CURSOR 11,6«, l3=0x10}
0x0806…0824 Line {l1=0x1c, l2=»0840 PRINT "2: Fakturering."«, l3=0x1c}
0x0824…0836 Line {l1=0x10, l2=»0850 CURSOR 11,8«, l3=0x10}
0x0836…0852 Line {l1=0x1a, l2=»0860 PRINT "3: Bogføring."«, l3=0x1a}
0x0852…0865 Line {l1=0x11, l2=»0870 CURSOR 11,10«, l3=0x11}
0x0865…0892 Line {l1=0x2b, l2=»0880 PRINT "4: Spørge- og listeprogrammer."«, l3=0x2b}
0x0892…08a5 Line {l1=0x11, l2=»0890 CURSOR 11,12«, l3=0x11}
0x08a5…08cb Line {l1=0x24, l2=»0900 PRINT "5: Sikkerhedskopiering."«, l3=0x24}
0x08cb…08de Line {l1=0x11, l2=»0910 CURSOR 11,14«, l3=0x11}
0x08de…08ff Line {l1=0x1f, l2=»0920 PRINT "6: Dagsafslutning."«, l3=0x1f}
0x08ff…0912 Line {l1=0x11, l2=»0930 CURSOR 11,16«, l3=0x11}
0x0912…0935 Line {l1=0x21, l2=»0940 PRINT "7: Månedsafslutning."«, l3=0x21}
0x0935…0948 Line {l1=0x11, l2=»0950 CURSOR 11,18«, l3=0x11}
0x0948…0968 Line {l1=0x1e, l2=»0960 PRINT "8: Årsafslutning."«, l3=0x1e}
0x0968…097b Line {l1=0x11, l2=»0970 CURSOR 11,20«, l3=0x11}
0x097b…0999 Line {l1=0x1c, l2=»0980 PRINT "9: Entrepriser."«, l3=0x1c}
0x0999…09ac Line {l1=0x11, l2=»0982 CURSOR 10,22«, l3=0x11}
0x09ac…09c3 Line {l1=0x15, l2=»0983 PRINT "10: Løn."«, l3=0x15}
0x09c3…09d1 Line {l1=0x0c, l2=»0990 REPEAT «, l3=0x0c}
0x09d1…09e4 Line {l1=0x11, l2=»1000 CURSOR 11,23«, l3=0x11}
0x09e4…0a04 Line {l1=0x1e, l2=»1010 INPUT "Vælg 0-10:",SVAR1$«, l3=0x1e}
0x0a04…0a2c Line {l1=0x26, l2=»1020 UNTIL SVAR1$=>"0" OR SVAR1$<="10"«, l3=0x26}
0x0a2c…0a39 Line {l1=0x0b, l2=»1030 CLEAR «, l3=0x0b}
0x0a39…0a4b Line {l1=0x10, l2=»1040 CURSOR 21,1«, l3=0x10}
0x0a4b…0a5f Line {l1=0x12, l2=»1050 FEJL1,D,E,F=0«, l3=0x12}
0x0a5f…0a75 Line {l1=0x14, l2=»1060 CASE SVAR1$ OF «, l3=0x14}
0x0a75…0a84 Line {l1=0x0d, l2=»1070 WHEN "0"«, l3=0x0d}
0x0a84…0aa5 Line {l1=0x1f, l2=»1080 TEK$="START";B$=A$+"START"«, l3=0x1f}
0x0aa5…0ab4 Line {l1=0x0d, l2=»1090 WHEN "1"«, l3=0x0d}
0x0ab4…0ae9 Line {l1=0x33, l2=»1100 PRINT "Programvalg: Kartoteksvedligeholdelse."«, l3=0x33}
0x0ae9…0afb Line {l1=0x10, l2=»1110 CURSOR 11,4«, l3=0x10}
0x0afb…0b27 Line {l1=0x2a, l2=»1120 PRINT "1: Kundekontovedligeholdelse."«, l3=0x2a}
0x0b27…0b39 Line {l1=0x10, l2=»1130 CURSOR 11,6«, l3=0x10}
0x0b39…0b66 Line {l1=0x2b, l2=»1140 PRINT "2: Finanskontovedligeholdelse."«, l3=0x2b}
0x0b66…0b78 Line {l1=0x10, l2=»1150 CURSOR 11,8«, l3=0x10}
0x0b78…0ba7 Line {l1=0x2d, l2=»1160 PRINT "3: Kreditorkontovedligeholdelse."«, l3=0x2d}
0x0ba7…0bba Line {l1=0x11, l2=»1170 CURSOR 11,10«, l3=0x11}
0x0bba…0be0 Line {l1=0x24, l2=»1180 PRINT "4: Varevedligeholdelse."«, l3=0x24}
0x0be0…0bf3 Line {l1=0x11, l2=»1190 CURSOR 11,12«, l3=0x11}
0x0bf3…0c1b Line {l1=0x26, l2=»1200 PRINT "5: Systemvedligeholdelse."«, l3=0x26}
0x0c1b…0c29 Line {l1=0x0c, l2=»1210 REPEAT «, l3=0x0c}
0x0c29…0c3c Line {l1=0x11, l2=»1220 CURSOR 11,15«, l3=0x11}
0x0c3c…0c5b Line {l1=0x1d, l2=»1230 INPUT "Vælg 1-5:",SVAR2$«, l3=0x1d}
0x0c5b…0c83 Line {l1=0x26, l2=»1240 UNTIL SVAR2$=>"0" AND SVAR2$<="5"«, l3=0x26}
0x0c83…0c99 Line {l1=0x14, l2=»1250 CASE SVAR2$ OF «, l3=0x14}
0x0c99…0ca7 Line {l1=0x0c, l2=»1260 FEJL1=1«, l3=0x0c}
0x0ca7…0cb6 Line {l1=0x0d, l2=»1270 WHEN "1"«, l3=0x0d}
0x0cb6…0cee Line {l1=0x36, l2=»1280 TEK$="Kundekontovedligeholdelse.";B$=A$+"DEBVEDL"«, l3=0x36}
0x0cee…0cfd Line {l1=0x0d, l2=»1290 WHEN "2"«, l3=0x0d}
0x0cfd…0d36 Line {l1=0x37, l2=»1300 TEK$="Finanskontovedligeholdelse.";B$=A$+"FINVEDL"«, l3=0x37}
0x0d36…0d45 Line {l1=0x0d, l2=»1310 WHEN "3"«, l3=0x0d}
0x0d45…0d7f Line {l1=0x38, l2=»1320 TEK$="Kreditorkontovedligeholdelse";B$=A$+"KREVEDL"«, l3=0x38}
0x0d7f…0d8e Line {l1=0x0d, l2=»1330 WHEN "4"«, l3=0x0d}
0x0d8e…0dc1 Line {l1=0x31, l2=»1340 TEK$="Varevedligeholdelse.";B$=A$+"VAREVEDL"«, l3=0x31}
0x0dc1…0dd0 Line {l1=0x0d, l2=»1350 WHEN "5"«, l3=0x0d}
0x0dd0…0e03 Line {l1=0x31, l2=»1360 TEK$="Systemvedligeholdelse";B$=A$+"SYSVEDL"«, l3=0x31}
0x0e03…0e12 Line {l1=0x0d, l2=»1370 ENDCASE «, l3=0x0d}
0x0e12…0e21 Line {l1=0x0d, l2=»1380 WHEN "2"«, l3=0x0d}
0x0e21…0e49 Line {l1=0x26, l2=»1390 PRINT "Programvalg. Fakturering."«, l3=0x26}
0x0e49…0e5b Line {l1=0x10, l2=»1400 CURSOR 11,4«, l3=0x10}
0x0e5b…0e79 Line {l1=0x1c, l2=»1410 PRINT "1: Fakturering."«, l3=0x1c}
0x0e79…0e8b Line {l1=0x10, l2=»1420 CURSOR 11,6«, l3=0x10}
0x0e8b…0eb6 Line {l1=0x29, l2=»1430 PRINT "2: Udskrivning af fakturaer."«, l3=0x29}
0x0eb6…0ec4 Line {l1=0x0c, l2=»1440 REPEAT «, l3=0x0c}
0x0ec4…0ed6 Line {l1=0x10, l2=»1450 CURSOR 11,9«, l3=0x10}
0x0ed6…0ef5 Line {l1=0x1d, l2=»1460 INPUT "Vælg 1-2:",SVAR2$«, l3=0x1d}
0x0ef5…0f1d Line {l1=0x26, l2=»1470 UNTIL SVAR2$=>"0" AND SVAR2$<="2"«, l3=0x26}
0x0f1d…0f30 Line {l1=0x11, l2=»1480 CURSOR 21,11«, l3=0x11}
0x0f30…0f46 Line {l1=0x14, l2=»1490 CASE SVAR2$ OF «, l3=0x14}
0x0f46…0f54 Line {l1=0x0c, l2=»1500 FEJL1=1«, l3=0x0c}
0x0f54…0f63 Line {l1=0x0d, l2=»1510 WHEN "1"«, l3=0x0d}
0x0f63…0f9e Line {l1=0x39, l2=»1520 IF T1(4)<(MFKL+5)*MFAK-15+2*MFKL OR T1(8)<MFAK THEN «, l3=0x39}
0x0f9e…0fc8 Line {l1=0x28, l2=»1530 TEK$="Fakturering.";B$=A$+"FAKTURA"«, l3=0x28}
0x0fc8…0fd4 Line {l1=0x0a, l2=»1540 ELSE «, l3=0x0a}
0x0fd4…1009 Line {l1=0x33, l2=»1550 PRINT "Der er ikke plads til flere fakturaer."«, l3=0x33}
0x1009…1017 Line {l1=0x0c, l2=»1560 FEJL1=1«, l3=0x0c}
0x1017…1024 Line {l1=0x0b, l2=»1570 ENDIF «, l3=0x0b}
0x1024…1033 Line {l1=0x0d, l2=»1580 WHEN "2"«, l3=0x0d}
0x1033…104a Line {l1=0x15, l2=»1590 IF T1(4)>0 THEN «, l3=0x15}
0x104a…107f Line {l1=0x33, l2=»1600 TEK$="Udskrivning af fakturaer.";B$=A$+"FAKUD"«, l3=0x33}
0x107f…108b Line {l1=0x0a, l2=»1610 ELSE «, l3=0x0a}
0x108b…10bf Line {l1=0x32, l2=»1620 PRINT "Der ikke nogle fakturaer at udskrive."«, l3=0x32}
0x10bf…10cd Line {l1=0x0c, l2=»1630 FEJL1=1«, l3=0x0c}
0x10cd…10da Line {l1=0x0b, l2=»1640 ENDIF «, l3=0x0b}
0x10da…10e9 Line {l1=0x0d, l2=»1650 ENDCASE «, l3=0x0d}
0x10e9…1100 Line {l1=0x15, l2=»1660 IF FEJL1=1 THEN «, l3=0x15}
0x1100…1113 Line {l1=0x11, l2=»1670 CURSOR 21,13«, l3=0x11}
0x1113…1132 Line {l1=0x1d, l2=»1680 INPUT "Tast RETURN",TEK$«, l3=0x1d}
0x1132…113f Line {l1=0x0b, l2=»1690 ENDIF «, l3=0x0b}
0x113f…114e Line {l1=0x0d, l2=»1700 WHEN "3"«, l3=0x0d}
0x114e…1174 Line {l1=0x24, l2=»1710 PRINT "Programvalg. Bogføring."«, l3=0x24}
0x1174…1186 Line {l1=0x10, l2=»1720 CURSOR 11,4«, l3=0x10}
0x1186…11a5 Line {l1=0x1d, l2=»1730 PRINT "1: Kasserapport."«, l3=0x1d}
0x11a5…11b7 Line {l1=0x10, l2=»1740 CURSOR 11,6«, l3=0x10}
0x11b7…11d7 Line {l1=0x1e, l2=»1750 PRINT "2: Posteringsark."«, l3=0x1e}
0x11d7…11e5 Line {l1=0x0c, l2=»1760 REPEAT «, l3=0x0c}
0x11e5…11f7 Line {l1=0x10, l2=»1770 CURSOR 11,9«, l3=0x10}
0x11f7…1216 Line {l1=0x1d, l2=»1780 INPUT "Vælg 1-2:",SVAR2$«, l3=0x1d}
0x1216…123e Line {l1=0x26, l2=»1790 UNTIL SVAR2$=>"0" AND SVAR2$<="2"«, l3=0x26}
0x123e…1259 Line {l1=0x19, l2=»1800 IF T2(1)>MBH-3 THEN «, l3=0x19}
0x1259…1267 Line {l1=0x0c, l2=»1810 FEJL1=1«, l3=0x0c}
0x1267…1279 Line {l1=0x10, l2=»1820 CURSOR 5,11«, l3=0x10}
0x1279…12c8 Line {l1=0x4d, l2=»1830 PRINT "Ikke plads til flere posteringer, dagsafslutning skal foretages";«, l3=0x4d}
0x12c8…12e9 Line {l1=0x1f, l2=»1840 INPUT ", tast RETURN",TEK$«, l3=0x1f}
0x12e9…12f5 Line {l1=0x0a, l2=»1850 ELSE «, l3=0x0a}
0x12f5…130b Line {l1=0x14, l2=»1860 CASE SVAR2$ OF «, l3=0x14}
0x130b…1319 Line {l1=0x0c, l2=»1870 FEJL1=1«, l3=0x0c}
0x1319…1328 Line {l1=0x0d, l2=»1880 WHEN "1"«, l3=0x0d}
0x1328…1352 Line {l1=0x28, l2=»1890 TEK$="Kasserapport.";B$=A$+"KASRAP"«, l3=0x28}
0x1352…1361 Line {l1=0x0d, l2=»1900 WHEN "2"«, l3=0x0d}
0x1361…138d Line {l1=0x2a, l2=»1910 TEK$="Posteringsark";B$=A$+"PSTERING"«, l3=0x2a}
0x138d…139c Line {l1=0x0d, l2=»1920 ENDCASE «, l3=0x0d}
0x139c…13a9 Line {l1=0x0b, l2=»1930 ENDIF «, l3=0x0b}
0x13a9…13b8 Line {l1=0x0d, l2=»1940 WHEN "4"«, l3=0x0d}
0x13b8…13ef Line {l1=0x35, l2=»1950 PRINT "Programvalg. Spørge- og listeprogrammer."«, l3=0x35}
0x13ef…1401 Line {l1=0x10, l2=»1960 CURSOR 11,4«, l3=0x10}
0x1401…1426 Line {l1=0x23, l2=»1970 PRINT "1: Kontospørgeprogram."«, l3=0x23}
0x1426…1438 Line {l1=0x10, l2=»1980 CURSOR 11,6«, l3=0x10}
0x1438…1457 Line {l1=0x1d, l2=»1990 PRINT "2: Debitorlister"«, l3=0x1d}
0x1457…1469 Line {l1=0x10, l2=»2000 CURSOR 11,8«, l3=0x10}
0x1469…1484 Line {l1=0x19, l2=»2010 PRINT "3: Balancer."«, l3=0x19}
0x1484…1497 Line {l1=0x11, l2=»2020 CURSOR 11,10«, l3=0x11}
0x1497…14b8 Line {l1=0x1f, l2=»2030 PRINT "4: Kreditorlister."«, l3=0x1f}
0x14b8…14c6 Line {l1=0x0c, l2=»2040 REPEAT «, l3=0x0c}
0x14c6…14d9 Line {l1=0x11, l2=»2050 CURSOR 11,13«, l3=0x11}
0x14d9…14f8 Line {l1=0x1d, l2=»2060 INPUT "Vælg 1-4:",SVAR2$«, l3=0x1d}
0x14f8…151f Line {l1=0x25, l2=»2070 UNTIL SVAR2$=>"0" AND SVAR2$<"5"«, l3=0x25}
0x151f…1535 Line {l1=0x14, l2=»2080 CASE SVAR2$ OF «, l3=0x14}
0x1535…1543 Line {l1=0x0c, l2=»2090 FEJL1=1«, l3=0x0c}
0x1543…1552 Line {l1=0x0d, l2=»2100 WHEN "1"«, l3=0x0d}
0x1552…157f Line {l1=0x2b, l2=»2110 TEK$="Kontospørgeprogram";B$=A$+"KSP1"«, l3=0x2b}
0x157f…158e Line {l1=0x0d, l2=»2120 WHEN "2"«, l3=0x0d}
0x158e…15b9 Line {l1=0x29, l2=»2130 TEK$="Debitorlister";B$=A$+"DEBLIST"«, l3=0x29}
0x15b9…15c8 Line {l1=0x0d, l2=»2140 WHEN "3"«, l3=0x0d}
0x15c8…15ee Line {l1=0x24, l2=»2150 TEK$="Balancer";B$=A$+"BALANCE"«, l3=0x24}
0x15ee…15fd Line {l1=0x0d, l2=»2160 WHEN "4"«, l3=0x0d}
0x15fd…162d Line {l1=0x2e, l2=»2170 TEK$="Kreditorlister";B$=C$+"KRELIST";D=1«, l3=0x2e}
0x162d…163c Line {l1=0x0d, l2=»2180 ENDCASE «, l3=0x0d}
0x163c…164b Line {l1=0x0d, l2=»2190 WHEN "6"«, l3=0x0d}
0x164b…167e Line {l1=0x31, l2=»2200 TEK$="Dagsafslutning.";B$=C$+"ÅKOPI";E=1;D=1«, l3=0x31}
0x167e…168d Line {l1=0x0d, l2=»2210 WHEN "8"«, l3=0x0d}
0x168d…16c0 Line {l1=0x31, l2=»2220 TEK$="Årsafslutning.";B$=C$+"ÅRSAFS";D=1;E=4«, l3=0x31}
0x16c0…16cd Line {l1=0x0b, l2=»2230 CLEAR «, l3=0x0b}
0x16cd…16db Line {l1=0x0c, l2=»2240 REPEAT «, l3=0x0c}
0x16db…16ee Line {l1=0x11, l2=»2250 CURSOR 20,13«, l3=0x11}
0x16ee…1728 Line {l1=0x38, l2=»2260 INPUT "Er månedsafslutning foretaget (J/N) ",SVAR2$«, l3=0x38}
0x1728…1769 Line {l1=0x3f, l2=»2270 UNTIL SVAR2$="J" OR SVAR2$="N" OR SVAR2$="j" OR SVAR2$="n"«, l3=0x3f}
0x1769…1798 Line {l1=0x2d, l2=»2280 IF SVAR2$="n" OR SVAR2$="N" THEN FEJL1=1«, l3=0x2d}
0x1798…17a7 Line {l1=0x0d, l2=»2290 WHEN "5"«, l3=0x0d}
0x17a7…17da Line {l1=0x31, l2=»2300 TEK$="Sikkerhedskopiering";B$=C$+"SKOPI";D=1«, l3=0x31}
0x17da…17e9 Line {l1=0x0d, l2=»2310 WHEN "9"«, l3=0x0d}
0x17e9…1811 Line {l1=0x26, l2=»2320 PRINT "Programvalg. Entrepriser."«, l3=0x26}
0x1811…1823 Line {l1=0x10, l2=»2330 CURSOR 11,4«, l3=0x10}
0x1823…184e Line {l1=0x29, l2=»2340 PRINT "1: Entreprisevedligeholdelse"«, l3=0x29}
0x184e…1860 Line {l1=0x10, l2=»2350 CURSOR 11,6«, l3=0x10}
0x1860…188b Line {l1=0x29, l2=»2360 PRINT "2: Underkontovedligeholdelse"«, l3=0x29}
0x188b…189d Line {l1=0x10, l2=»2370 CURSOR 11,8«, l3=0x10}
0x189d…18c6 Line {l1=0x27, l2=»2380 PRINT "3: Entreprisespørgeprogram"«, l3=0x27}
0x18c6…18d9 Line {l1=0x11, l2=»2390 CURSOR 11,10«, l3=0x11}
0x18d9…18fd Line {l1=0x22, l2=»2400 PRINT "4: Entreprisebalancer"«, l3=0x22}
0x18fd…190b Line {l1=0x0c, l2=»2410 REPEAT «, l3=0x0c}
0x190b…191e Line {l1=0x11, l2=»2420 CURSOR 11,13«, l3=0x11}
0x191e…193d Line {l1=0x1d, l2=»2430 INPUT "Vælg 1-4:",SVAR2$«, l3=0x1d}
0x193d…1964 Line {l1=0x25, l2=»2440 UNTIL SVAR2$=>"0" AND SVAR2$<"5"«, l3=0x25}
0x1964…197a Line {l1=0x14, l2=»2450 CASE SVAR2$ OF «, l3=0x14}
0x197a…1988 Line {l1=0x0c, l2=»2460 FEJL1=1«, l3=0x0c}
0x1988…1997 Line {l1=0x0d, l2=»2470 WHEN "1"«, l3=0x0d}
0x1997…19d2 Line {l1=0x39, l2=»2480 TEK$="Enterprisevedligeholdelse";B$=C$+"ENTVEDL";D=1«, l3=0x39}
0x19d2…19e1 Line {l1=0x0d, l2=»2490 WHEN "2"«, l3=0x0d}
0x19e1…1a1c Line {l1=0x39, l2=»2500 TEK$="Underkontovedligeholdelse";B$=C$+"UNKVEDL";D=1«, l3=0x39}
0x1a1c…1a2b Line {l1=0x0d, l2=»2510 WHEN "3"«, l3=0x0d}
0x1a2b…1a64 Line {l1=0x37, l2=»2520 TEK$="Enterprisespørgeprogram";B$=C$+"ENTKSP1";D=1«, l3=0x37}
0x1a64…1a73 Line {l1=0x0d, l2=»2530 WHEN "4"«, l3=0x0d}
0x1a73…1aa6 Line {l1=0x31, l2=»2540 TEK$="Entreprisebalancer";B$=C$+"ENTBAL";D=1«, l3=0x31}
0x1aa6…1ab5 Line {l1=0x0d, l2=»2550 ENDCASE «, l3=0x0d}
0x1ab5…1ac4 Line {l1=0x0d, l2=»2560 WHEN "7"«, l3=0x0d}
0x1ac4…1af1 Line {l1=0x2b, l2=»2570 PRINT "Programvalg. Månedsafslutning."«, l3=0x2b}
0x1af1…1b03 Line {l1=0x10, l2=»2580 CURSOR 11,4«, l3=0x10}
0x1b03…1b26 Line {l1=0x21, l2=»2590 PRINT "1: Månedsafslutning."«, l3=0x21}
0x1b26…1b38 Line {l1=0x10, l2=»2600 CURSOR 11,6«, l3=0x10}
0x1b38…1b59 Line {l1=0x1f, l2=»2610 PRINT "2: Renteberegning."«, l3=0x1f}
0x1b59…1b67 Line {l1=0x0c, l2=»2620 REPEAT «, l3=0x0c}
0x1b67…1b79 Line {l1=0x10, l2=»2630 CURSOR 11,9«, l3=0x10}
0x1b79…1b98 Line {l1=0x1d, l2=»2640 INPUT "Vælg 1-2:",SVAR2$«, l3=0x1d}
0x1b98…1bbf Line {l1=0x25, l2=»2650 UNTIL SVAR2$=>"0" AND SVAR2$<"3"«, l3=0x25}
0x1bbf…1bd5 Line {l1=0x14, l2=»2660 CASE SVAR2$ OF «, l3=0x14}
0x1bd5…1be3 Line {l1=0x0c, l2=»2670 FEJL1=1«, l3=0x0c}
0x1be3…1bf2 Line {l1=0x0d, l2=»2680 WHEN "1"«, l3=0x0d}
0x1bf2…1c2e Line {l1=0x3a, l2=»2690 TEK$="Månedsafslutning";B$=C$+"ÅKOPI";E=3;D=1;T3(2)=1«, l3=0x3a}
0x1c2e…1c3d Line {l1=0x0d, l2=»2700 WHEN "2"«, l3=0x0d}
0x1c3d…1c70 Line {l1=0x31, l2=»2710 TEK$="Renteberegning.";B$=C$+"RENTE";D=1;E=2«, l3=0x31}
0x1c70…1c7f Line {l1=0x0d, l2=»2720 ENDCASE «, l3=0x0d}
0x1c7f…1c8f Line {l1=0x0e, l2=»2721 WHEN "10"«, l3=0x0e}
0x1c8f…1cb0 Line {l1=0x1f, l2=»2722 TEK$="Løn.";B$=C$+"STARTB"«, l3=0x1f}
0x1cb0…1cbf Line {l1=0x0d, l2=»2730 ENDCASE «, l3=0x0d}
0x1cbf…1cef Line {l1=0x2e, l2=»2740 IF T1(2)>0 OR T1(4)>0 OR T1(1)>0 THEN F=1«, l3=0x2e}
0x1cef…1d36 Line {l1=0x45, l2=»2750 IF (F=1 OR (T2(1)>0 AND E>1) OR (T2(8)>0 AND E>2)) AND E>0 THEN «, l3=0x45}
0x1d36…1d43 Line {l1=0x0b, l2=»2760 CLEAR «, l3=0x0b}
0x1d43…1d55 Line {l1=0x10, l2=»2770 CURSOR 20,4«, l3=0x10}
0x1d55…1d83 Line {l1=0x2c, l2=»2780 PRINT TEK$;" kan ikke foretages , da :"«, l3=0x2c}
0x1d83…1d9b Line {l1=0x16, l2=»2790 IF T1(2)<>0 THEN «, l3=0x16}
0x1d9b…1dad Line {l1=0x10, l2=»2800 CURSOR 20,6«, l3=0x10}
0x1dad…1dd8 Line {l1=0x29, l2=»2810 PRINT "1. Kasserapport ikke afstemt"«, l3=0x29}
0x1dd8…1de5 Line {l1=0x0b, l2=»2820 ENDIF «, l3=0x0b}
0x1de5…1dfd Line {l1=0x16, l2=»2830 IF T1(1)<>0 THEN «, l3=0x16}
0x1dfd…1e0f Line {l1=0x10, l2=»2840 CURSOR 20,8«, l3=0x10}
0x1e0f…1e3c Line {l1=0x2b, l2=»2850 PRINT "2.Posteringsark ikke afsluttet"«, l3=0x2b}
0x1e3c…1e49 Line {l1=0x0b, l2=»2860 ENDIF «, l3=0x0b}
0x1e49…1e61 Line {l1=0x16, l2=»2870 IF T1(4)<>0 THEN «, l3=0x16}
0x1e61…1e74 Line {l1=0x11, l2=»2880 CURSOR 20,10«, l3=0x11}
0x1e74…1e9e Line {l1=0x28, l2=»2890 PRINT "3. Fakturaer ikke udskrevet"«, l3=0x28}
0x1e9e…1eab Line {l1=0x0b, l2=»2900 ENDIF «, l3=0x0b}
0x1eab…1eca Line {l1=0x1d, l2=»2910 IF T2(1)>0 AND E>1 THEN «, l3=0x1d}
0x1eca…1edd Line {l1=0x11, l2=»2920 CURSOR 20,12«, l3=0x11}
0x1edd…1f0c Line {l1=0x2d, l2=»2930 PRINT "4. Dagsafslutning ikke foretaget"«, l3=0x2d}
0x1f0c…1f19 Line {l1=0x0b, l2=»2940 ENDIF «, l3=0x0b}
0x1f19…1f38 Line {l1=0x1d, l2=»2950 IF T2(8)>0 AND E>2 THEN «, l3=0x1d}
0x1f38…1f4b Line {l1=0x11, l2=»2960 CURSOR 20,14«, l3=0x11}
0x1f4b…1f7a Line {l1=0x2d, l2=»2970 PRINT "5. Rentebogføring ikke foretaget"«, l3=0x2d}
0x1f7a…1f87 Line {l1=0x0b, l2=»2980 ENDIF «, l3=0x0b}
0x1f87…1f95 Line {l1=0x0c, l2=»2990 REPEAT «, l3=0x0c}
0x1f95…1fa8 Line {l1=0x11, l2=»3000 CURSOR 20,16«, l3=0x11}
0x1fa8…1fc9 Line {l1=0x1f, l2=»3010 INPUT "Tast RETURN",SVAR1$«, l3=0x1f}
0x1fc9…1fe5 Line {l1=0x1a, l2=»3020 UNTIL ORD(SVAR1$)=255«, l3=0x1a}
0x1fe5…1ff3 Line {l1=0x0c, l2=»3030 FEJL1=1«, l3=0x0c}
0x1ff3…2000 Line {l1=0x0b, l2=»3040 ENDIF «, l3=0x0b}
0x2000…2017 Line {l1=0x15, l2=»3050 IF FEJL1=0 THEN «, l3=0x15}
0x2017…2026 Line {l1=0x0d, l2=»3060 EXEC BIL«, l3=0x0d}
0x2026…2041 Line {l1=0x19, l2=»3070 K$="P641220:SYSTEM2"«, l3=0x19}
0x2041…2051 Line {l1=0x0e, l2=»3080 OPEN K$,W«, l3=0x0e}
0x2051…206a Line {l1=0x17, l2=»3090 EXEC FEJL(11,1,K$)«, l3=0x17}
0x206a…20a6 Line {l1=0x3a, l2=»3100 PUT K$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)«, l3=0x3a}
0x20a6…20be Line {l1=0x16, l2=»3110 EXEC FEJL(1,8,K$)«, l3=0x16}
0x20be…2104 Line {l1=0x44, l2=»3120 PUT K$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x44}
0x2104…211c Line {l1=0x16, l2=»3130 EXEC FEJL(1,9,K$)«, l3=0x16}
0x211c…212b Line {l1=0x0d, l2=»3140 CLOSE K$«, l3=0x0d}
0x212b…2144 Line {l1=0x17, l2=»3150 EXEC FEJL(11,2,K$)«, l3=0x17}
0x2144…2157 Line {l1=0x11, l2=»3160 IF D=9 THEN «, l3=0x11}
0x2157…2165 Line {l1=0x0c, l2=»3170 REPEAT «, l3=0x0c}
0x2165…2178 Line {l1=0x11, l2=»3180 CURSOR 20,15«, l3=0x11}
0x2178…21ae Line {l1=0x34, l2=»3190 INPUT "Isæt plade nr 15 og tast RETURN ",SVAR1$«, l3=0x34}
0x21ae…21ca Line {l1=0x1a, l2=»3200 UNTIL ORD(SVAR1$)=255«, l3=0x1a}
0x21ca…21d7 Line {l1=0x0b, l2=»3210 ENDIF «, l3=0x0b}
0x21d7…21e6 Line {l1=0x0d, l2=»3220 CHAIN B$«, l3=0x0d}
0x21e6…21f3 Line {l1=0x0b, l2=»3230 ENDIF «, l3=0x0b}
0x21f3…2206 Line {l1=0x11, l2=»3240 UNTIL GENT=1«, l3=0x11}
0x2206…2220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2220…2240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2a…]