|
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«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »OPSTART.K«
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…004b Line {l1=0x49, l2=»0100 DIM TEK$(25),SVAR1$(1),SVAR2$(1),A$(8),B$(17),N$(6),T(9),T1(9),T2(9)«, l3=0x49}
0x004b…0069 Line {l1=0x1c, l2=»0110 DIM DAT$(8),T3(9),C$(8)«, l3=0x1c}
0x0069…007c Line {l1=0x11, l2=»0120 PROC TESTSYS«, l3=0x11}
0x007c…0090 Line {l1=0x12, l2=»0130 A$="P641220:"«, l3=0x12}
0x0090…00a6 Line {l1=0x14, l2=»0140 B$=A$+"SYSTEM1"«, l3=0x14}
0x00a6…00b4 Line {l1=0x0c, l2=»0150 REPEAT «, l3=0x0c}
0x00b4…00c4 Line {l1=0x0e, l2=»0160 OPEN B$,R«, l3=0x0e}
0x00c4…00e1 Line {l1=0x1b, l2=»0170 IF STATUS(B$)<>0 THEN «, l3=0x1b}
0x00e1…00ee Line {l1=0x0b, l2=»0180 CLEAR «, l3=0x0b}
0x00ee…0101 Line {l1=0x11, l2=»0190 CURSOR 11,11«, l3=0x11}
0x0101…0134 Line {l1=0x31, l2=»0200 PRINT "Pladen ";A$(1:7);" er ikke monteret."«, l3=0x31}
0x0134…0147 Line {l1=0x11, l2=»0210 CURSOR 11,13«, l3=0x11}
0x0147…017a Line {l1=0x31, l2=»0220 INPUT "Tast RETURN når dette er gjort.",TEK$«, l3=0x31}
0x017a…0188 Line {l1=0x0c, l2=»0230 FEJL1=1«, l3=0x0c}
0x0188…0194 Line {l1=0x0a, l2=»0240 ELSE «, l3=0x0a}
0x0194…01a2 Line {l1=0x0c, l2=»0250 FEJL1=0«, l3=0x0c}
0x01a2…01af Line {l1=0x0b, l2=»0260 ENDIF «, l3=0x0b}
0x01af…01c3 Line {l1=0x12, l2=»0270 UNTIL FEJL1=0«, l3=0x12}
0x01c3…01d0 Line {l1=0x0b, l2=»0280 CLEAR «, l3=0x0b}
0x01d0…01e8 Line {l1=0x16, l2=»0290 GET B$,2:MKAS,MBH«, l3=0x16}
0x01e8…0200 Line {l1=0x16, l2=»0300 EXEC FEJL(1,1,B$)«, l3=0x16}
0x0200…021a Line {l1=0x18, l2=»0310 GET B$,4:MKMID,MFAK«, l3=0x18}
0x021a…0232 Line {l1=0x16, l2=»0320 EXEC FEJL(1,1,B$)«, l3=0x16}
0x0232…0241 Line {l1=0x0d, l2=»0330 CLOSE B$«, l3=0x0d}
0x0241…0259 Line {l1=0x16, l2=»0340 EXEC FEJL(1,2,B$)«, l3=0x16}
0x0259…026f Line {l1=0x14, l2=»0350 B$=A$+"SYSTEM2"«, l3=0x14}
0x026f…027f Line {l1=0x0e, l2=»0360 OPEN B$,W«, l3=0x0e}
0x027f…0297 Line {l1=0x16, l2=»0370 EXEC FEJL(1,3,B$)«, l3=0x16}
0x0297…02d3 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}
0x02d3…02eb Line {l1=0x16, l2=»0390 EXEC FEJL(1,4,B$)«, l3=0x16}
0x02eb…0331 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}
0x0331…0349 Line {l1=0x16, l2=»0410 EXEC FEJL(1,5,B$)«, l3=0x16}
0x0349…038f 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}
0x038f…03a7 Line {l1=0x16, l2=»0430 EXEC FEJL(1,6,B$)«, l3=0x16}
0x03a7…03ed 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}
0x03ed…0405 Line {l1=0x16, l2=»0450 EXEC FEJL(1,7,B$)«, l3=0x16}
0x0405…041c Line {l1=0x15, l2=»0460 IF T3(1)=0 THEN «, l3=0x15}
0x041c…042f Line {l1=0x11, l2=»0470 CURSOR 21,11«, l3=0x11}
0x042f…046d Line {l1=0x3c, l2=»0480 PRINT "Godmorgen. Håber at vi må få en god dag sammen."«, l3=0x3c}
0x046d…0480 Line {l1=0x11, l2=»0490 CURSOR 21,13«, l3=0x11}
0x0480…04be Line {l1=0x3c, l2=»0500 PRINT "Indtast dato som ÅÅMMDD, hvor ÅÅ er året, MM er"«, l3=0x3c}
0x04be…04cc Line {l1=0x0c, l2=»0510 REPEAT «, l3=0x0c}
0x04cc…04df Line {l1=0x11, l2=»0520 CURSOR 21,15«, l3=0x11}
0x04df…050a Line {l1=0x29, l2=»0530 INPUT "måneden og DD er dagen:",DAT$«, l3=0x29}
0x050a…051c Line {l1=0x10, l2=»0540 P=0;TEST2=0«, l3=0x10}
0x051c…052f Line {l1=0x11, l2=»0550 FOR I=1 TO 6«, l3=0x11}
0x052f…054d Line {l1=0x1c, l2=»0560 P1=INT(ORD(DAT$(I))-48)«, l3=0x1c}
0x054d…056c Line {l1=0x1d, l2=»0570 IF P1=>0 AND P1<=9 THEN «, l3=0x1d}
0x056c…057c Line {l1=0x0e, l2=»0580 P=P*10+P1«, l3=0x0e}
0x057c…0588 Line {l1=0x0a, l2=»0590 ELSE «, l3=0x0a}
0x0588…0596 Line {l1=0x0c, l2=»0600 TEST2=1«, l3=0x0c}
0x0596…05a3 Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x05a3…05b0 Line {l1=0x0b, l2=»0620 NEXT I«, l3=0x0b}
0x05b0…05dc Line {l1=0x2a, l2=»0630 IF TEST2=0 THEN I=(P DIV 100) MOD 100«, l3=0x2a}
0x05dc…061d Line {l1=0x3f, l2=»0640 UNTIL TEST2=0 AND I<13 AND P MOD 100<32 AND P DIV 10000>78«, l3=0x3f}
0x061d…0632 Line {l1=0x13, l2=»0650 T(7)=P;T3(1)=1«, l3=0x13}
0x0632…066e Line {l1=0x3a, l2=»0660 PUT B$,2:T(1),T(2),T(3),T(4),T(5),T(6),T(7),T(8),T(9)«, l3=0x3a}
0x066e…0686 Line {l1=0x16, l2=»0670 EXEC FEJL(1,8,B$)«, l3=0x16}
0x0686…06cc Line {l1=0x44, l2=»0680 PUT B$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x44}
0x06cc…06e4 Line {l1=0x16, l2=»0690 EXEC FEJL(1,9,B$)«, l3=0x16}
0x06e4…06f1 Line {l1=0x0b, l2=»0700 ENDIF «, l3=0x0b}
0x06f1…0700 Line {l1=0x0d, l2=»0710 CLOSE B$«, l3=0x0d}
0x0700…0719 Line {l1=0x17, l2=»0720 EXEC FEJL(1,10,B$)«, l3=0x17}
0x0719…0728 Line {l1=0x0d, l2=»0730 ENDPROC «, l3=0x0d}
0x0728…0737 Line {l1=0x0d, l2=»0740 PROC BIL«, l3=0x0d}
0x0737…0744 Line {l1=0x0b, l2=»0750 CLEAR «, l3=0x0b}
0x0744…0756 Line {l1=0x10, l2=»0760 CURSOR 20,9«, l3=0x10}
0x0756…078e Line {l1=0x36, l2=»0770 PRINT "*****************************************"«, l3=0x36}
0x078e…07a1 Line {l1=0x11, l2=»0780 CURSOR 20,10«, l3=0x11}
0x07a1…07bd Line {l1=0x1a, l2=»0790 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x07bd…07d0 Line {l1=0x11, l2=»0800 CURSOR 20,11«, l3=0x11}
0x07d0…07f9 Line {l1=0x27, l2=»0810 PRINT "*";TAB(11);TEK$;TAB(41);"*"«, l3=0x27}
0x07f9…080c Line {l1=0x11, l2=»0820 CURSOR 20,12«, l3=0x11}
0x080c…0828 Line {l1=0x1a, l2=»0830 PRINT "*";TAB(41);"*"«, l3=0x1a}
0x0828…083b Line {l1=0x11, l2=»0840 CURSOR 20,13«, l3=0x11}
0x083b…0873 Line {l1=0x36, l2=»0850 PRINT "*****************************************"«, l3=0x36}
0x0873…0882 Line {l1=0x0d, l2=»0860 ENDPROC «, l3=0x0d}
0x0882…089f Line {l1=0x1b, l2=»0870 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x089f…08be Line {l1=0x1d, l2=»0880 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x08be…08e4 Line {l1=0x24, l2=»0890 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x08e4…08f0 Line {l1=0x0a, l2=»0900 STOP «, l3=0x0a}
0x08f0…08fd Line {l1=0x0b, l2=»0910 ENDIF «, l3=0x0b}
0x08fd…090c Line {l1=0x0d, l2=»0920 ENDPROC «, l3=0x0d}
0x090c…091f Line {l1=0x11, l2=»0930 EXEC TESTSYS«, l3=0x11}
0x091f…0941 Line {l1=0x20, l2=»0940 A$="P641210:";C$="P641215:"«, l3=0x20}
0x0941…094e Line {l1=0x0b, l2=»0950 GENT=0«, l3=0x0b}
0x094e…095c Line {l1=0x0c, l2=»0960 REPEAT «, l3=0x0c}
0x095c…0983 Line {l1=0x25, l2=»0970 TEK$=" "«, l3=0x25}
0x0983…0990 Line {l1=0x0b, l2=»0980 CLEAR «, l3=0x0b}
0x0990…09a2 Line {l1=0x10, l2=»0990 CURSOR 21,1«, l3=0x10}
0x09a2…09bd Line {l1=0x19, l2=»1000 PRINT "Programvalg."«, l3=0x19}
0x09bd…09cf Line {l1=0x10, l2=»1010 CURSOR 11,4«, l3=0x10}
0x09cf…09fa Line {l1=0x29, l2=»1020 PRINT "1: Kartoteksvedligeholdelse."«, l3=0x29}
0x09fa…0a0c Line {l1=0x10, l2=»1030 CURSOR 11,6«, l3=0x10}
0x0a0c…0a2a Line {l1=0x1c, l2=»1040 PRINT "2: Fakturering."«, l3=0x1c}
0x0a2a…0a3c Line {l1=0x10, l2=»1050 CURSOR 11,8«, l3=0x10}
0x0a3c…0a58 Line {l1=0x1a, l2=»1060 PRINT "3: Bogføring."«, l3=0x1a}
0x0a58…0a6b Line {l1=0x11, l2=»1070 CURSOR 11,10«, l3=0x11}
0x0a6b…0a98 Line {l1=0x2b, l2=»1080 PRINT "4: Spørge- og listeprogrammer."«, l3=0x2b}
0x0a98…0aab Line {l1=0x11, l2=»1090 CURSOR 11,12«, l3=0x11}
0x0aab…0ad1 Line {l1=0x24, l2=»1100 PRINT "5: Sikkerhedskopiering."«, l3=0x24}
0x0ad1…0ae4 Line {l1=0x11, l2=»1110 CURSOR 11,14«, l3=0x11}
0x0ae4…0b05 Line {l1=0x1f, l2=»1120 PRINT "6: Dagsafslutning."«, l3=0x1f}
0x0b05…0b18 Line {l1=0x11, l2=»1130 CURSOR 11,16«, l3=0x11}
0x0b18…0b3b Line {l1=0x21, l2=»1140 PRINT "7: Månedsafslutning."«, l3=0x21}
0x0b3b…0b4e Line {l1=0x11, l2=»1150 CURSOR 11,18«, l3=0x11}
0x0b4e…0b6e Line {l1=0x1e, l2=»1160 PRINT "8: Årsafslutning."«, l3=0x1e}
0x0b6e…0b7c Line {l1=0x0c, l2=»1170 REPEAT «, l3=0x0c}
0x0b7c…0b8f Line {l1=0x11, l2=»1180 CURSOR 11,21«, l3=0x11}
0x0b8f…0bae Line {l1=0x1d, l2=»1190 INPUT "Vælg 1-8:",SVAR1$«, l3=0x1d}
0x0bae…0bd6 Line {l1=0x26, l2=»1200 UNTIL SVAR1$=>"1" AND SVAR1$<="8"«, l3=0x26}
0x0bd6…0be3 Line {l1=0x0b, l2=»1210 CLEAR «, l3=0x0b}
0x0be3…0bf5 Line {l1=0x10, l2=»1220 CURSOR 21,1«, l3=0x10}
0x0bf5…0c0f Line {l1=0x18, l2=»1230 FEJL1=0;D=0;E=0;F=0«, l3=0x18}
0x0c0f…0c25 Line {l1=0x14, l2=»1240 CASE SVAR1$ OF «, l3=0x14}
0x0c25…0c34 Line {l1=0x0d, l2=»1250 WHEN "1"«, l3=0x0d}
0x0c34…0c69 Line {l1=0x33, l2=»1260 PRINT "Programvalg: Kartoteksvedligeholdelse."«, l3=0x33}
0x0c69…0c7b Line {l1=0x10, l2=»1270 CURSOR 11,4«, l3=0x10}
0x0c7b…0ca7 Line {l1=0x2a, l2=»1280 PRINT "1: Kundekontovedligeholdelse."«, l3=0x2a}
0x0ca7…0cb9 Line {l1=0x10, l2=»1290 CURSOR 11,6«, l3=0x10}
0x0cb9…0ce6 Line {l1=0x2b, l2=»1300 PRINT "2: Finanskontovedligeholdelse."«, l3=0x2b}
0x0ce6…0cf8 Line {l1=0x10, l2=»1310 CURSOR 11,8«, l3=0x10}
0x0cf8…0d27 Line {l1=0x2d, l2=»1320 PRINT "3: Kreditorkontovedligeholdelse."«, l3=0x2d}
0x0d27…0d3a Line {l1=0x11, l2=»1330 CURSOR 11,10«, l3=0x11}
0x0d3a…0d60 Line {l1=0x24, l2=»1340 PRINT "4: Varevedligeholdelse."«, l3=0x24}
0x0d60…0d73 Line {l1=0x11, l2=»1350 CURSOR 11,12«, l3=0x11}
0x0d73…0d9b Line {l1=0x26, l2=»1360 PRINT "5: Systemvedligeholdelse."«, l3=0x26}
0x0d9b…0da9 Line {l1=0x0c, l2=»1390 REPEAT «, l3=0x0c}
0x0da9…0dbc Line {l1=0x11, l2=»1400 CURSOR 11,15«, l3=0x11}
0x0dbc…0ddb Line {l1=0x1d, l2=»1410 INPUT "Vælg 1-5:",SVAR2$«, l3=0x1d}
0x0ddb…0e03 Line {l1=0x26, l2=»1420 UNTIL SVAR2$=>"0" AND SVAR2$<="5"«, l3=0x26}
0x0e03…0e19 Line {l1=0x14, l2=»1430 CASE SVAR2$ OF «, l3=0x14}
0x0e19…0e27 Line {l1=0x0c, l2=»1440 FEJL1=1«, l3=0x0c}
0x0e27…0e36 Line {l1=0x0d, l2=»1450 WHEN "1"«, l3=0x0d}
0x0e36…0e6e Line {l1=0x36, l2=»1460 TEK$="Kundekontovedligeholdelse.";B$=A$+"DEBVEDL"«, l3=0x36}
0x0e6e…0e7d Line {l1=0x0d, l2=»1470 WHEN "2"«, l3=0x0d}
0x0e7d…0eb6 Line {l1=0x37, l2=»1480 TEK$="Finanskontovedligeholdelse.";B$=A$+"FINVEDL"«, l3=0x37}
0x0eb6…0ec5 Line {l1=0x0d, l2=»1490 WHEN "3"«, l3=0x0d}
0x0ec5…0eff Line {l1=0x38, l2=»1500 TEK$="Kreditorkontovedligeholdelse";B$=A$+"KREVEDL"«, l3=0x38}
0x0eff…0f0e Line {l1=0x0d, l2=»1510 WHEN "4"«, l3=0x0d}
0x0f0e…0f41 Line {l1=0x31, l2=»1520 TEK$="Varevedligeholdelse.";B$=A$+"VAREVEDL"«, l3=0x31}
0x0f41…0f50 Line {l1=0x0d, l2=»1530 WHEN "5"«, l3=0x0d}
0x0f50…0f83 Line {l1=0x31, l2=»1540 TEK$="Systemvedligeholdelse";B$=A$+"SYSVEDL"«, l3=0x31}
0x0f83…0f92 Line {l1=0x0d, l2=»1570 ENDCASE «, l3=0x0d}
0x0f92…0fa1 Line {l1=0x0d, l2=»1580 WHEN "2"«, l3=0x0d}
0x0fa1…0fc9 Line {l1=0x26, l2=»1590 PRINT "Programvalg. Fakturering."«, l3=0x26}
0x0fc9…0fdb Line {l1=0x10, l2=»1600 CURSOR 11,4«, l3=0x10}
0x0fdb…0ff9 Line {l1=0x1c, l2=»1610 PRINT "1: Fakturering."«, l3=0x1c}
0x0ff9…100b Line {l1=0x10, l2=»1620 CURSOR 11,6«, l3=0x10}
0x100b…1036 Line {l1=0x29, l2=»1630 PRINT "2: Udskrivning af fakturaer."«, l3=0x29}
0x1036…1048 Line {l1=0x10, l2=»1640 CURSOR 11,8«, l3=0x10}
0x1048…1078 Line {l1=0x2e, l2=»1650 PRINT "3: Udskrivning af fakturajournal."«, l3=0x2e}
0x1078…1086 Line {l1=0x0c, l2=»1660 REPEAT «, l3=0x0c}
0x1086…1099 Line {l1=0x11, l2=»1670 CURSOR 11,11«, l3=0x11}
0x1099…10b8 Line {l1=0x1d, l2=»1680 INPUT "Vælg 1-3:",SVAR2$«, l3=0x1d}
0x10b8…10e0 Line {l1=0x26, l2=»1690 UNTIL SVAR2$=>"0" AND SVAR2$<="3"«, l3=0x26}
0x10e0…10f3 Line {l1=0x11, l2=»1700 CURSOR 21,11«, l3=0x11}
0x10f3…1109 Line {l1=0x14, l2=»1710 CASE SVAR2$ OF «, l3=0x14}
0x1109…1117 Line {l1=0x0c, l2=»1720 FEJL1=1«, l3=0x0c}
0x1117…1126 Line {l1=0x0d, l2=»1730 WHEN "1"«, l3=0x0d}
0x1126…1151 Line {l1=0x29, l2=»1740 IF T1(4)<MFAK*20 OR T1(8)<MFAK THEN «, l3=0x29}
0x1151…117b Line {l1=0x28, l2=»1750 TEK$="Fakturering.";B$=A$+"FAKTURA"«, l3=0x28}
0x117b…1187 Line {l1=0x0a, l2=»1760 ELSE «, l3=0x0a}
0x1187…11bc Line {l1=0x33, l2=»1770 PRINT "Der er ikke plads til flere fakturaer."«, l3=0x33}
0x11bc…11ca Line {l1=0x0c, l2=»1780 FEJL1=1«, l3=0x0c}
0x11ca…11d7 Line {l1=0x0b, l2=»1790 ENDIF «, l3=0x0b}
0x11d7…11e6 Line {l1=0x0d, l2=»1800 WHEN "2"«, l3=0x0d}
0x11e6…11fd Line {l1=0x15, l2=»1810 IF T1(4)>0 THEN «, l3=0x15}
0x11fd…1232 Line {l1=0x33, l2=»1820 TEK$="Udskrivning af fakturaer.";B$=A$+"FAKUD"«, l3=0x33}
0x1232…123e Line {l1=0x0a, l2=»1830 ELSE «, l3=0x0a}
0x123e…1272 Line {l1=0x32, l2=»1840 PRINT "Der ikke nogle fakturaer at udskrive."«, l3=0x32}
0x1272…1280 Line {l1=0x0c, l2=»1850 FEJL1=1«, l3=0x0c}
0x1280…128d Line {l1=0x0b, l2=»1860 ENDIF «, l3=0x0b}
0x128d…129c Line {l1=0x0d, l2=»1870 WHEN "3"«, l3=0x0d}
0x129c…12b3 Line {l1=0x15, l2=»1880 IF T1(7)>0 THEN «, l3=0x15}
0x12b3…12de Line {l1=0x29, l2=»1890 TEK$="Fakturajournal.";B$=A$+"FJOUR"«, l3=0x29}
0x12de…12ea Line {l1=0x0a, l2=»1900 ELSE «, l3=0x0a}
0x12ea…131f Line {l1=0x33, l2=»1910 PRINT "Der kan ikke udskrives fakturajournal."«, l3=0x33}
0x131f…132d Line {l1=0x0c, l2=»1920 FEJL1=1«, l3=0x0c}
0x132d…133a Line {l1=0x0b, l2=»1930 ENDIF «, l3=0x0b}
0x133a…1349 Line {l1=0x0d, l2=»1940 ENDCASE «, l3=0x0d}
0x1349…1360 Line {l1=0x15, l2=»1950 IF FEJL1=1 THEN «, l3=0x15}
0x1360…1373 Line {l1=0x11, l2=»1960 CURSOR 21,13«, l3=0x11}
0x1373…1392 Line {l1=0x1d, l2=»1970 INPUT "Tast RETURN",TEK$«, l3=0x1d}
0x1392…139f Line {l1=0x0b, l2=»1980 ENDIF «, l3=0x0b}
0x139f…13ae Line {l1=0x0d, l2=»1990 WHEN "3"«, l3=0x0d}
0x13ae…13d4 Line {l1=0x24, l2=»2000 PRINT "Programvalg. Bogføring."«, l3=0x24}
0x13d4…13e6 Line {l1=0x10, l2=»2010 CURSOR 11,4«, l3=0x10}
0x13e6…1405 Line {l1=0x1d, l2=»2020 PRINT "1: Kasserapport."«, l3=0x1d}
0x1405…1417 Line {l1=0x10, l2=»2030 CURSOR 11,6«, l3=0x10}
0x1417…1437 Line {l1=0x1e, l2=»2040 PRINT "2: Posteringsark."«, l3=0x1e}
0x1437…1445 Line {l1=0x0c, l2=»2050 REPEAT «, l3=0x0c}
0x1445…1457 Line {l1=0x10, l2=»2060 CURSOR 11,9«, l3=0x10}
0x1457…1476 Line {l1=0x1d, l2=»2070 INPUT "Vælg 1-2:",SVAR2$«, l3=0x1d}
0x1476…149e Line {l1=0x26, l2=»2080 UNTIL SVAR2$=>"0" AND SVAR2$<="2"«, l3=0x26}
0x149e…14b4 Line {l1=0x14, l2=»2090 CASE SVAR2$ OF «, l3=0x14}
0x14b4…14c2 Line {l1=0x0c, l2=»2100 FEJL1=1«, l3=0x0c}
0x14c2…14d1 Line {l1=0x0d, l2=»2110 WHEN "1"«, l3=0x0d}
0x14d1…14fb Line {l1=0x28, l2=»2120 TEK$="Kasserapport.";B$=A$+"KASRAP"«, l3=0x28}
0x14fb…150a Line {l1=0x0d, l2=»2130 WHEN "2"«, l3=0x0d}
0x150a…1536 Line {l1=0x2a, l2=»2140 TEK$="Posteringsark";B$=A$+"PSTERING"«, l3=0x2a}
0x1536…1545 Line {l1=0x0d, l2=»2150 ENDCASE «, l3=0x0d}
0x1545…1554 Line {l1=0x0d, l2=»2160 WHEN "4"«, l3=0x0d}
0x1554…158b Line {l1=0x35, l2=»2170 PRINT "Programvalg. Spørge- og listeprogrammer."«, l3=0x35}
0x158b…159d Line {l1=0x10, l2=»2180 CURSOR 11,4«, l3=0x10}
0x159d…15c2 Line {l1=0x23, l2=»2190 PRINT "1: Kontospørgeprogram."«, l3=0x23}
0x15c2…15d4 Line {l1=0x10, l2=»2200 CURSOR 11,6«, l3=0x10}
0x15d4…15f3 Line {l1=0x1d, l2=»2210 PRINT "2: Debitorlister"«, l3=0x1d}
0x15f3…1605 Line {l1=0x10, l2=»2220 CURSOR 11,8«, l3=0x10}
0x1605…1620 Line {l1=0x19, l2=»2230 PRINT "3: Balancer."«, l3=0x19}
0x1620…162e Line {l1=0x0c, l2=»2260 REPEAT «, l3=0x0c}
0x162e…1641 Line {l1=0x11, l2=»2270 CURSOR 11,11«, l3=0x11}
0x1641…1660 Line {l1=0x1d, l2=»2280 INPUT "Vælg 1-3:",SVAR2$«, l3=0x1d}
0x1660…1687 Line {l1=0x25, l2=»2290 UNTIL SVAR2$=>"0" AND SVAR2$<"4"«, l3=0x25}
0x1687…169d Line {l1=0x14, l2=»2300 CASE SVAR2$ OF «, l3=0x14}
0x169d…16ab Line {l1=0x0c, l2=»2310 FEJL1=1«, l3=0x0c}
0x16ab…16ba Line {l1=0x0d, l2=»2320 WHEN "1"«, l3=0x0d}
0x16ba…16e7 Line {l1=0x2b, l2=»2330 TEK$="Kontospørgeprogram";B$=A$+"KSP1"«, l3=0x2b}
0x16e7…16f6 Line {l1=0x0d, l2=»2340 WHEN "2"«, l3=0x0d}
0x16f6…1721 Line {l1=0x29, l2=»2350 TEK$="Debitorlister";B$=A$+"DEBLIST"«, l3=0x29}
0x1721…1730 Line {l1=0x0d, l2=»2360 WHEN "3"«, l3=0x0d}
0x1730…1756 Line {l1=0x24, l2=»2370 TEK$="Balancer";B$=A$+"BALANCE"«, l3=0x24}
0x1756…1765 Line {l1=0x0d, l2=»2400 ENDCASE «, l3=0x0d}
0x1765…1774 Line {l1=0x0d, l2=»2410 WHEN "6"«, l3=0x0d}
0x1774…17a0 Line {l1=0x2a, l2=»2420 TEK$="Dagsafslutning.";B$=A$+"BJ";E=1«, l3=0x2a}
0x17a0…17af Line {l1=0x0d, l2=»2430 WHEN "8"«, l3=0x0d}
0x17af…17e2 Line {l1=0x31, l2=»2440 TEK$="Årsafslutning.";B$=C$+"ÅRSAFS";D=1;E=4«, l3=0x31}
0x17e2…17ef Line {l1=0x0b, l2=»2450 CLEAR «, l3=0x0b}
0x17ef…17fd Line {l1=0x0c, l2=»2460 REPEAT «, l3=0x0c}
0x17fd…1810 Line {l1=0x11, l2=»2470 CURSOR 20,13«, l3=0x11}
0x1810…184a Line {l1=0x38, l2=»2480 INPUT "Er månedsafslutning foretaget (J/N) ",SVAR2$«, l3=0x38}
0x184a…188b Line {l1=0x3f, l2=»2490 UNTIL SVAR2$="J" OR SVAR2$="N" OR SVAR2$="j" OR SVAR2$="n"«, l3=0x3f}
0x188b…18ba Line {l1=0x2d, l2=»2500 IF SVAR2$="n" OR SVAR2$="N" THEN FEJL1=1«, l3=0x2d}
0x18ba…18c9 Line {l1=0x0d, l2=»2510 WHEN "5"«, l3=0x0d}
0x18c9…18fc Line {l1=0x31, l2=»2520 TEK$="Sikkerhedskopiering";B$=C$+"SKOPI";D=1«, l3=0x31}
0x18fc…190b Line {l1=0x0d, l2=»2530 WHEN "7"«, l3=0x0d}
0x190b…1938 Line {l1=0x2b, l2=»2540 PRINT "Programvalg. Månedsafslutning."«, l3=0x2b}
0x1938…194a Line {l1=0x10, l2=»2550 CURSOR 11,4«, l3=0x10}
0x194a…196d Line {l1=0x21, l2=»2560 PRINT "1: Månedsafslutning."«, l3=0x21}
0x196d…197f Line {l1=0x10, l2=»2570 CURSOR 11,6«, l3=0x10}
0x197f…19a0 Line {l1=0x1f, l2=»2580 PRINT "2: Renteberegning."«, l3=0x1f}
0x19a0…19ae Line {l1=0x0c, l2=»2590 REPEAT «, l3=0x0c}
0x19ae…19c0 Line {l1=0x10, l2=»2600 CURSOR 11,9«, l3=0x10}
0x19c0…19df Line {l1=0x1d, l2=»2610 INPUT "Vælg 1-2:",SVAR2$«, l3=0x1d}
0x19df…1a06 Line {l1=0x25, l2=»2620 UNTIL SVAR2$=>"0" AND SVAR2$<"3"«, l3=0x25}
0x1a06…1a1c Line {l1=0x14, l2=»2630 CASE SVAR2$ OF «, l3=0x14}
0x1a1c…1a2a Line {l1=0x0c, l2=»2640 FEJL1=1«, l3=0x0c}
0x1a2a…1a39 Line {l1=0x0d, l2=»2650 WHEN "1"«, l3=0x0d}
0x1a39…1a6b Line {l1=0x30, l2=»2660 TEK$="Månedsafslutning";B$=A$+"MAFSLUT";E=3«, l3=0x30}
0x1a6b…1a7a Line {l1=0x0d, l2=»2670 WHEN "2"«, l3=0x0d}
0x1a7a…1aad Line {l1=0x31, l2=»2680 TEK$="Renteberegning.";B$=C$+"RENTE";D=1;E=2«, l3=0x31}
0x1aad…1abc Line {l1=0x0d, l2=»2690 ENDCASE «, l3=0x0d}
0x1abc…1acb Line {l1=0x0d, l2=»2700 ENDCASE «, l3=0x0d}
0x1acb…1afb Line {l1=0x2e, l2=»2710 IF T1(2)>0 OR T1(4)>0 OR T1(1)>0 THEN F=1«, l3=0x2e}
0x1afb…1b42 Line {l1=0x45, l2=»2720 IF (F=1 OR (T2(1)>0 AND E>1) OR (T2(8)>0 AND E>2)) AND E>0 THEN «, l3=0x45}
0x1b42…1b4f Line {l1=0x0b, l2=»2730 CLEAR «, l3=0x0b}
0x1b4f…1b61 Line {l1=0x10, l2=»2740 CURSOR 20,4«, l3=0x10}
0x1b61…1b8f Line {l1=0x2c, l2=»2750 PRINT TEK$;" kan ikke foretages , da :"«, l3=0x2c}
0x1b8f…1ba7 Line {l1=0x16, l2=»2760 IF T1(2)<>0 THEN «, l3=0x16}
0x1ba7…1bb9 Line {l1=0x10, l2=»2770 CURSOR 20,6«, l3=0x10}
0x1bb9…1be4 Line {l1=0x29, l2=»2780 PRINT "1. Kasserapport ikke afstemt"«, l3=0x29}
0x1be4…1bf1 Line {l1=0x0b, l2=»2790 ENDIF «, l3=0x0b}
0x1bf1…1c09 Line {l1=0x16, l2=»2800 IF T1(1)<>0 THEN «, l3=0x16}
0x1c09…1c1b Line {l1=0x10, l2=»2810 CURSOR 20,8«, l3=0x10}
0x1c1b…1c48 Line {l1=0x2b, l2=»2820 PRINT "2.Posteringsark ikke afsluttet"«, l3=0x2b}
0x1c48…1c55 Line {l1=0x0b, l2=»2830 ENDIF «, l3=0x0b}
0x1c55…1c6d Line {l1=0x16, l2=»2840 IF T1(4)<>0 THEN «, l3=0x16}
0x1c6d…1c80 Line {l1=0x11, l2=»2850 CURSOR 20,10«, l3=0x11}
0x1c80…1caa Line {l1=0x28, l2=»2860 PRINT "3. Fakturaer ikke udskrevet"«, l3=0x28}
0x1caa…1cb7 Line {l1=0x0b, l2=»2870 ENDIF «, l3=0x0b}
0x1cb7…1cd6 Line {l1=0x1d, l2=»2880 IF T2(1)>0 AND E>1 THEN «, l3=0x1d}
0x1cd6…1ce9 Line {l1=0x11, l2=»2890 CURSOR 20,12«, l3=0x11}
0x1ce9…1d18 Line {l1=0x2d, l2=»2900 PRINT "4. Dagsafslutning ikke foretaget"«, l3=0x2d}
0x1d18…1d25 Line {l1=0x0b, l2=»2910 ENDIF «, l3=0x0b}
0x1d25…1d44 Line {l1=0x1d, l2=»2920 IF T2(8)>0 AND E>2 THEN «, l3=0x1d}
0x1d44…1d57 Line {l1=0x11, l2=»2930 CURSOR 20,14«, l3=0x11}
0x1d57…1d86 Line {l1=0x2d, l2=»2940 PRINT "5. Rentebogføring ikke foretaget"«, l3=0x2d}
0x1d86…1d93 Line {l1=0x0b, l2=»2950 ENDIF «, l3=0x0b}
0x1d93…1da1 Line {l1=0x0c, l2=»2960 REPEAT «, l3=0x0c}
0x1da1…1db4 Line {l1=0x11, l2=»2970 CURSOR 20,16«, l3=0x11}
0x1db4…1dd5 Line {l1=0x1f, l2=»2980 INPUT "Tast RETURN",SVAR1$«, l3=0x1f}
0x1dd5…1df1 Line {l1=0x1a, l2=»2990 UNTIL ORD(SVAR1$)=255«, l3=0x1a}
0x1df1…1dff Line {l1=0x0c, l2=»3000 FEJL1=1«, l3=0x0c}
0x1dff…1e0c Line {l1=0x0b, l2=»3010 ENDIF «, l3=0x0b}
0x1e0c…1e23 Line {l1=0x15, l2=»3020 IF FEJL1=0 THEN «, l3=0x15}
0x1e23…1e32 Line {l1=0x0d, l2=»3030 EXEC BIL«, l3=0x0d}
0x1e32…1e45 Line {l1=0x11, l2=»3040 IF D=1 THEN «, l3=0x11}
0x1e45…1e53 Line {l1=0x0c, l2=»3050 REPEAT «, l3=0x0c}
0x1e53…1e66 Line {l1=0x11, l2=»3060 CURSOR 20,15«, l3=0x11}
0x1e66…1e9c Line {l1=0x34, l2=»3070 INPUT "Isæt plade nr 15 og tast RETURN ",SVAR1$«, l3=0x34}
0x1e9c…1eb8 Line {l1=0x1a, l2=»3080 UNTIL ORD(SVAR1$)=255«, l3=0x1a}
0x1eb8…1ec5 Line {l1=0x0b, l2=»3090 ENDIF «, l3=0x0b}
0x1ec5…1ed4 Line {l1=0x0d, l2=»3100 CHAIN B$«, l3=0x0d}
0x1ed4…1ee1 Line {l1=0x0b, l2=»3110 ENDIF «, l3=0x0b}
0x1ee1…1ef4 Line {l1=0x11, l2=»3120 UNTIL GENT=1«, l3=0x11}
0x1ef4…1eff Line {l1=0x09, l2=»3130 END «, l3=0x09}
0x1eff…1f00 00 ┆ ┆
0x1f00…1f20 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x1f20…1f40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x42…]