|
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: 7315 (0x1c93)
Types: SPC/1-COMAL-BCD
Notes: Mikados_B
Names: »DEBVEDL.B«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »DEBVEDL.B«
0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1),UD2$(14),A$(1) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25),N$(6) 0120 DIM T2(9),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),VTAB2(5) 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6) 0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8) 0150 DIM DEBGADE1$(25),DEBTLF1$(9),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71) 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(9),LAND$(9,12) 0170 PROC CALC(ART,B1,B2,ES) 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0 0190 CALL "P641210:REGN" 0200 ES$=RES$ 0210 IF FLAG THEN STOP 0220 ENDPROC 0230 PROC FEJL(NR1,NR2,NR3) 0240 IF STATUS(NR3$)<>0 THEN 0250 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0260 STOP 0270 ENDIF 0280 ENDPROC 0290 PROC INDTAB(T,MANTAL,K10) 0300 J=MANTAL DIV 32+1 0310 FOR I=J TO MANTAL DIV 4+J-1 0320 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3 0330 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2) 0340 EXEC FEJL(1,1,K10$) 0350 NEXT I 0360 ENDPROC 0370 PROC UDTAB(U,MANTAL1,K9) 0380 J=MANTAL1 DIV 32+1 0390 FOR I=1 TO J-1 0400 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28 0410 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1) 0420 EXEC FEJL(2,1,K9$) 0430 NEXT I 0440 FOR I=J TO MANTAL1 DIV 4+J-1 0450 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3 0460 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2) 0470 EXEC FEJL(2,2,K9$) 0480 NEXT I 0490 ENDPROC 0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 0510 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 0520 REPEAT 0530 IF NØGL1=TAB1(PIL3,1) THEN 0540 CEKS=0 0550 ELSE 0560 IF PIL1=1 THEN PIL1=0 0570 PIL1=INT((PIL1+1)/2) 0580 IF NØGL1>TAB1(PIL3,1) THEN 0590 PIL3=PIL3+PIL1 0600 ELSE 0610 PIL3=PIL3-PIL1 0620 ENDIF 0630 IF PIL3<1 THEN PIL3=1 0640 IF PIL3>MANT1 THEN PIL3=MANT1 0650 ENDIF 0660 UNTIL CEKS=0 OR PIL1=0 0670 ENDPROC 0680 PROC SLETDPOST(NØGLE3) 0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3) 0700 IF CEKS=1 THEN STOP 0710 DEBNR=0 0720 DEBNAVN$=BLANK$(1:25) 0730 DSALDO1$=BLANK$(1:12) 0740 DSALDO2$=BLANK$(1:12) 0750 DSALDO3$=BLANK$(1:12) 0760 DSALDO4$=BLANK$(1:12) 0770 ÅRKØB$=BLANK$(1:12) 0780 MDNKØB$=BLANK$(1:12) 0790 DEBKGR$="0" 0800 DEBPOSTNR=0 0810 DEBLK$="0" 0820 DEBGADE$=BLANK$(1:25) 0830 DEBTLF$=BLANK$(1:9) 0840 HPOST=0 0850 HKUNDE=0 0860 DEBBY$=BLANK$(1:20) 0870 EXEC GEMDPOST 0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3) 0890 ENDPROC 0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4) 0910 IF CEKS=1 THEN 0920 POSTNR=TAB2(ANTAL2+1,2) 0930 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1 0940 FOR J=ANTAL2+1 TO PIL4+1 STEP -1 0950 TAB2(J,1)=TAB2(J-1,1) 0960 TAB2(J,2)=TAB2(J-1,2) 0970 NEXT J 0980 TAB2(PIL4,1)=NØGL2 0990 TAB2(PIL4,2)=POSTNR 1000 ANTAL2=ANTAL2+1 1010 ENDIF 1020 ENDPROC 1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5) 1040 IF CEKS=0 THEN 1050 POSTNR=TAB3(PIL5,2) 1060 FOR I=PIL5 TO ANTAL3 1070 TAB3(I,1)=TAB3(I+1,1) 1080 TAB3(I,2)=TAB3(I+1,2) 1090 NEXT I 1100 TAB3(ANTAL3,1)=1000000 1110 TAB3(ANTAL3,2)=POSTNR 1120 ANTAL3=ANTAL3-1 1130 ENDIF 1140 ENDPROC 1150 PROC HENTDPOST 1160 S=DTAB(DPIL3,2) 1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1180 EXEC FEJL(8,2,K3$) 1190 IF DEBNR<>DTAB(DPIL3,1) THEN STOP 1200 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1210 EXEC FEJL(8,3,K3$) 1220 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1230 EXEC FEJL(8,4,K3$) 1240 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1250 EXEC FEJL(8,5,K3$) 1260 ENDPROC 1270 PROC GEMDPOST 1280 S=DTAB(DPIL3,2) 1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1300 EXEC FEJL(9,3,K3$) 1310 PUT K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1320 EXEC FEJL(9,4,K3$) 1330 PUT K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1340 EXEC FEJL(9,4,K3$) 1350 PUT K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1360 EXEC FEJL(9,5,K3$) 1370 ENDPROC 1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2) 1390 IF CÆND<>1 THEN 1400 CLEAR 1410 CURSOR 21,1 1420 PRINT "Kundeoplysninger" 1430 EXEC OVERSKRIFT 1440 CURSOR 2,3 1450 PRINT "1:Kundenr :";DEBNR2 1460 ENDIF 1470 REPEAT 1480 CASE DSTYR OF 1490 STOP 1500 WHEN 2 1510 IF CÆND<>1 THEN 1520 CURSOR 2,4 1530 PRINT "2:Navn :" 1540 DSTYR=3 1550 ENDIF 1560 IF CÆND<>2 THEN 1570 CURSOR 3,23 1580 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1590 CURSOR 13,23 1600 INPUT DEBNAVN$ 1610 ENDIF 1620 CURSOR 16,4 1630 PRINT BLANK$(1:25) 1640 CURSOR 16,4 1650 PRINT DEBNAVN$ 1660 WHEN 3 1670 IF CÆND<>1 THEN 1680 CURSOR 2,5 1690 PRINT "3:Gade :" 1700 DSTYR=4 1710 ENDIF 1720 IF CÆND<>2 THEN 1730 CURSOR 3,23 1740 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26) 1750 CURSOR 13,23 1760 INPUT DEBGADE$ 1770 ENDIF 1780 CURSOR 16,5 1790 PRINT BLANK$(1:25) 1800 CURSOR 16,5 1810 PRINT DEBGADE$ 1820 WHEN 4 1830 IF CÆND<>1 THEN 1840 CURSOR 2,6 1850 PRINT "4:Postnr :" 1860 DSTYR=5 1870 ENDIF 1880 IF CÆND<>2 THEN 1890 REPEAT 1900 CURSOR 3,23 1910 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45) 1920 CURSOR 13,23 1930 INPUT PNR$ 1940 EXEC NRTEST(PNR$) 1950 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0 1960 IF P<>-1 THEN DEBPOSTNR=P 1970 ENDIF 1980 CURSOR 16,6 1990 PRINT BLANK$(1:6) 2000 CURSOR 16,6 2010 PRINT DEBPOSTNR 2020 WHEN 5 2030 IF CÆND<>1 THEN 2040 CURSOR 2,7 2050 PRINT "5:By :" 2060 DSTYR=6 2070 ENDIF 2080 IF CÆND<>2 THEN 2090 CURSOR 3,23 2100 PRINT "By";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31) 2110 CURSOR 13,23 2120 INPUT DEBBY$ 2130 ENDIF 2140 CURSOR 16,7 2150 PRINT BLANK$(1:20) 2160 CURSOR 16,7 2170 PRINT DEBBY$ 2180 WHEN 6 2190 IF CÆND<>1 THEN 2200 CURSOR 2,8 2210 PRINT "6:Landekode : Land:" 2220 DSTYR=7 2230 ENDIF 2240 IF CÆND<>2 THEN 2250 REPEAT 2260 CURSOR 3,23 2270 PRINT "Landekode";BLANK$(1:9);"0:for Danmark,max 2 cifre)";BLANK$(1:30) 2280 CURSOR 13,23 2290 INPUT LK$ 2300 EXEC NRTEST(LK$) 2310 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1) 2320 ENDIF 2330 CURSOR 16,8 2340 PRINT BLANK$(1:3) 2350 CURSOR 27,8 2360 PRINT BLANK$(1:15) 2370 CURSOR 16,8 2380 IF P<10 AND CÆND<>2 THEN 2390 DEBLK$=CHR(P+48) 2400 ENDIF 2410 P=ORD(DEBLK$)-48 2420 PRINT USING "###":P 2430 CURSOR 27,8 2440 IF P=0 THEN 2450 PRINT "Danmark" 2460 ELSE 2470 PRINT LAND$(P) 2480 ENDIF 2490 WHEN 7 2500 IF CÆND<>1 THEN 2510 CURSOR 2,9 2520 PRINT "7:Telefon :" 2530 DSTYR=8 2540 ENDIF 2550 IF CÆND<>2 THEN 2560 CURSOR 3,23 2570 PRINT "Telefon";BLANK$(1:14);"(max 9 tegn)";BLANK$(1:44) 2580 CURSOR 13,23 2590 INPUT DEBTLF$ 2600 ENDIF 2610 CURSOR 16,9 2620 PRINT BLANK$(1:9) 2630 CURSOR 16,9 2640 PRINT DEBTLF$ 2650 WHEN 8 2660 IF CÆND<>1 THEN 2670 CURSOR 2,10 2680 PRINT "8:Kundegr :" 2690 DSTYR=9 2700 ELSE 2710 IF TYPE=2 THEN 2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48) 2730 EXEC KINDSLET(0) 2740 ENDIF 2750 ENDIF 2760 IF CÆND<>2 THEN 2770 REPEAT 2780 CURSOR 3,23 2790 PRINT "Kundegr (max 2 cifre)";BLANK$(1:49) 2800 CURSOR 13,23 2810 INPUT KG$ 2820 EXEC NRTEST(KG$) 2830 UNTIL (P>0 AND TEST2=0 AND P<=MKGR) OR (P=-1 AND CÆND=1) 2840 ENDIF 2850 CURSOR 16,10 2860 IF P>0 AND CÆND<>
0x0000…006c (0,) 87b9 0100 DIM K1$(17),K2$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(1),UD2$(14),A$(1)
0x0000…006c LineComalBcd {
0x0000…006c ptr = 0x87b9 // 0x0 @0x0
0x0000…006c lno = 0x0100 // 0x2 @0x2
0x0000…006c at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…006c at0005 = ╱4b╱K╱ // 0x5 @0x5
0x0000…006c at0006 = ╱31╱1╱ // 0x6 @0x6
0x0000…006c at0007 = ╱ef╱$╱ // 0x7 @0x7
0x0000…006c at0008 = ╱ed╱(╱ // 0x8 @0x8
0x0000…006c at0009 = ╱31╱1╱ // 0x9 @0x9
0x0000…006c at000a = ╱37╱7╱ // 0xa @0xa
0x0000…006c at000b = ╱fe00008805╱ // 0xb @0xb
0x0000…006c at0010 = ╱ee╱)╱ // 0x10 @0x10
0x0000…006c at0011 = ╱ec╱,╱ // 0x11 @0x11
0x0000…006c at0012 = ╱4b╱K╱ // 0x12 @0x12
0x0000…006c at0013 = ╱32╱2╱ // 0x13 @0x13
0x0000…006c at0014 = ╱ef╱$╱ // 0x14 @0x14
0x0000…006c at0015 = ╱ed╱(╱ // 0x15 @0x15
0x0000…006c at0016 = ╱31╱1╱ // 0x16 @0x16
0x0000…006c at0017 = ╱37╱7╱ // 0x17 @0x17
0x0000…006c at0018 = ╱fe00008805╱ // 0x18 @0x18
0x0000…006c at001d = ╱ee╱)╱ // 0x1d @0x1d
0x0000…006c at001e = ╱ec╱,╱ // 0x1e @0x1e
0x0000…006c at001f = ╱44╱D╱ // 0x1f @0x1f
0x0000…006c at0020 = ╱45╱E╱ // 0x20 @0x20
0x0000…006c at0021 = ╱42╱B╱ // 0x21 @0x21
0x0000…006c at0022 = ╱4e╱N╱ // 0x22 @0x22
0x0000…006c at0023 = ╱41╱A╱ // 0x23 @0x23
0x0000…006c at0024 = ╱56╱V╱ // 0x24 @0x24
0x0000…006c at0025 = ╱4e╱N╱ // 0x25 @0x25
0x0000…006c at0026 = ╱ef╱$╱ // 0x26 @0x26
0x0000…006c at0027 = ╱ed╱(╱ // 0x27 @0x27
0x0000…006c at0028 = ╱32╱2╱ // 0x28 @0x28
0x0000…006c at0029 = ╱35╱5╱ // 0x29 @0x29
0x0000…006c at002a = ╱fe0000c805╱ // 0x2a @0x2a
0x0000…006c at002f = ╱ee╱)╱ // 0x2f @0x2f
0x0000…006c at0030 = ╱ec╱,╱ // 0x30 @0x30
0x0000…006c at0031 = ╱44╱D╱ // 0x31 @0x31
0x0000…006c at0032 = ╱53╱S╱ // 0x32 @0x32
0x0000…006c at0033 = ╱41╱A╱ // 0x33 @0x33
0x0000…006c at0034 = ╱4c╱L╱ // 0x34 @0x34
0x0000…006c at0035 = ╱44╱D╱ // 0x35 @0x35
0x0000…006c at0036 = ╱4f╱O╱ // 0x36 @0x36
0x0000…006c at0037 = ╱31╱1╱ // 0x37 @0x37
0x0000…006c at0038 = ╱ef╱$╱ // 0x38 @0x38
0x0000…006c at0039 = ╱ed╱(╱ // 0x39 @0x39
0x0000…006c at003a = ╱31╱1╱ // 0x3a @0x3a
0x0000…006c at003b = ╱32╱2╱ // 0x3b @0x3b
0x0000…006c at003c = ╱fe0000c004╱ // 0x3c @0x3c
0x0000…006c at0041 = ╱ee╱)╱ // 0x41 @0x41
0x0000…006c at0042 = ╱ec╱,╱ // 0x42 @0x42
0x0000…006c at0043 = ╱44╱D╱ // 0x43 @0x43
0x0000…006c at0044 = ╱45╱E╱ // 0x44 @0x44
0x0000…006c at0045 = ╱42╱B╱ // 0x45 @0x45
0x0000…006c at0046 = ╱4b╱K╱ // 0x46 @0x46
0x0000…006c at0047 = ╱47╱G╱ // 0x47 @0x47
0x0000…006c at0048 = ╱52╱R╱ // 0x48 @0x48
0x0000…006c at0049 = ╱ef╱$╱ // 0x49 @0x49
0x0000…006c at004a = ╱ed╱(╱ // 0x4a @0x4a
0x0000…006c at004b = ╱31╱1╱ // 0x4b @0x4b
0x0000…006c at004c = ╱fe00008001╱ // 0x4c @0x4c
0x0000…006c at0051 = ╱ee╱)╱ // 0x51 @0x51
0x0000…006c at0052 = ╱ec╱,╱ // 0x52 @0x52
0x0000…006c at0053 = ╱55╱U╱ // 0x53 @0x53
0x0000…006c at0054 = ╱44╱D╱ // 0x54 @0x54
0x0000…006c at0055 = ╱32╱2╱ // 0x55 @0x55
0x0000…006c at0056 = ╱ef╱$╱ // 0x56 @0x56
0x0000…006c at0057 = ╱ed╱(╱ // 0x57 @0x57
0x0000…006c at0058 = ╱31╱1╱ // 0x58 @0x58
0x0000…006c at0059 = ╱34╱4╱ // 0x59 @0x59
0x0000…006c at005a = ╱fe0000e004╱ // 0x5a @0x5a
0x0000…006c at005f = ╱ee╱)╱ // 0x5f @0x5f
0x0000…006c at0060 = ╱ec╱,╱ // 0x60 @0x60
0x0000…006c at0061 = ╱41╱A╱ // 0x61 @0x61
0x0000…006c at0062 = ╱ef╱$╱ // 0x62 @0x62
0x0000…006c at0063 = ╱ed╱(╱ // 0x63 @0x63
0x0000…006c at0064 = ╱31╱1╱ // 0x64 @0x64
0x0000…006c at0065 = ╱fe00008001╱ // 0x65 @0x65
0x0000…006c at006a = ╱ee╱)╱ // 0x6a @0x6a
0x0000…006c at006b = EOL // 0x6b @0x6b
0x0000…006c }
0x006c…00d3 8820 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(1),DEBGADE$(25),N$(6)
0x006c…00d3 LineComalBcd {
0x006c…00d3 ptr = 0x8820 // 0x6c @0x0
0x006c…00d3 lno = 0x0110 // 0x6e @0x2
0x006c…00d3 at0004 = ╱87╱ DIM ╱ // 0x70 @0x4
0x006c…00d3 at0005 = ╱44╱D╱ // 0x71 @0x5
0x006c…00d3 at0006 = ╱53╱S╱ // 0x72 @0x6
0x006c…00d3 at0007 = ╱41╱A╱ // 0x73 @0x7
0x006c…00d3 at0008 = ╱4c╱L╱ // 0x74 @0x8
0x006c…00d3 at0009 = ╱44╱D╱ // 0x75 @0x9
0x006c…00d3 at000a = ╱4f╱O╱ // 0x76 @0xa
0x006c…00d3 at000b = ╱32╱2╱ // 0x77 @0xb
0x006c…00d3 at000c = ╱ef╱$╱ // 0x78 @0xc
0x006c…00d3 at000d = ╱ed╱(╱ // 0x79 @0xd
0x006c…00d3 at000e = ╱31╱1╱ // 0x7a @0xe
0x006c…00d3 at000f = ╱32╱2╱ // 0x7b @0xf
0x006c…00d3 at0010 = ╱fe0000c004╱ // 0x7c @0x10
0x006c…00d3 at0015 = ╱ee╱)╱ // 0x81 @0x15
0x006c…00d3 at0016 = ╱ec╱,╱ // 0x82 @0x16
0x006c…00d3 at0017 = ╱44╱D╱ // 0x83 @0x17
0x006c…00d3 at0018 = ╱53╱S╱ // 0x84 @0x18
0x006c…00d3 at0019 = ╱41╱A╱ // 0x85 @0x19
0x006c…00d3 at001a = ╱4c╱L╱ // 0x86 @0x1a
0x006c…00d3 at001b = ╱44╱D╱ // 0x87 @0x1b
0x006c…00d3 at001c = ╱4f╱O╱ // 0x88 @0x1c
0x006c…00d3 at001d = ╱33╱3╱ // 0x89 @0x1d
0x006c…00d3 at001e = ╱ef╱$╱ // 0x8a @0x1e
0x006c…00d3 at001f = ╱ed╱(╱ // 0x8b @0x1f
0x006c…00d3 at0020 = ╱31╱1╱ // 0x8c @0x20
0x006c…00d3 at0021 = ╱32╱2╱ // 0x8d @0x21
0x006c…00d3 at0022 = ╱fe0000c004╱ // 0x8e @0x22
0x006c…00d3 at0027 = ╱ee╱)╱ // 0x93 @0x27
0x006c…00d3 at0028 = ╱ec╱,╱ // 0x94 @0x28
0x006c…00d3 at0029 = ╱44╱D╱ // 0x95 @0x29
0x006c…00d3 at002a = ╱53╱S╱ // 0x96 @0x2a
0x006c…00d3 at002b = ╱41╱A╱ // 0x97 @0x2b
0x006c…00d3 at002c = ╱4c╱L╱ // 0x98 @0x2c
0x006c…00d3 at002d = ╱44╱D╱ // 0x99 @0x2d
0x006c…00d3 at002e = ╱4f╱O╱ // 0x9a @0x2e
0x006c…00d3 at002f = ╱34╱4╱ // 0x9b @0x2f
0x006c…00d3 at0030 = ╱ef╱$╱ // 0x9c @0x30
0x006c…00d3 at0031 = ╱ed╱(╱ // 0x9d @0x31
0x006c…00d3 at0032 = ╱31╱1╱ // 0x9e @0x32
0x006c…00d3 at0033 = ╱32╱2╱ // 0x9f @0x33
0x006c…00d3 at0034 = ╱fe0000c004╱ // 0xa0 @0x34
0x006c…00d3 at0039 = ╱ee╱)╱ // 0xa5 @0x39
0x006c…00d3 at003a = ╱ec╱,╱ // 0xa6 @0x3a
0x006c…00d3 at003b = ╱44╱D╱ // 0xa7 @0x3b
0x006c…00d3 at003c = ╱45╱E╱ // 0xa8 @0x3c
0x006c…00d3 at003d = ╱42╱B╱ // 0xa9 @0x3d
0x006c…00d3 at003e = ╱4c╱L╱ // 0xaa @0x3e
0x006c…00d3 at003f = ╱4b╱K╱ // 0xab @0x3f
0x006c…00d3 at0040 = ╱ef╱$╱ // 0xac @0x40
0x006c…00d3 at0041 = ╱ed╱(╱ // 0xad @0x41
0x006c…00d3 at0042 = ╱31╱1╱ // 0xae @0x42
0x006c…00d3 at0043 = ╱fe00008001╱ // 0xaf @0x43
0x006c…00d3 at0048 = ╱ee╱)╱ // 0xb4 @0x48
0x006c…00d3 at0049 = ╱ec╱,╱ // 0xb5 @0x49
0x006c…00d3 at004a = ╱44╱D╱ // 0xb6 @0x4a
0x006c…00d3 at004b = ╱45╱E╱ // 0xb7 @0x4b
0x006c…00d3 at004c = ╱42╱B╱ // 0xb8 @0x4c
0x006c…00d3 at004d = ╱47╱G╱ // 0xb9 @0x4d
0x006c…00d3 at004e = ╱41╱A╱ // 0xba @0x4e
0x006c…00d3 at004f = ╱44╱D╱ // 0xbb @0x4f
0x006c…00d3 at0050 = ╱45╱E╱ // 0xbc @0x50
0x006c…00d3 at0051 = ╱ef╱$╱ // 0xbd @0x51
0x006c…00d3 at0052 = ╱ed╱(╱ // 0xbe @0x52
0x006c…00d3 at0053 = ╱32╱2╱ // 0xbf @0x53
0x006c…00d3 at0054 = ╱35╱5╱ // 0xc0 @0x54
0x006c…00d3 at0055 = ╱fe0000c805╱ // 0xc1 @0x55
0x006c…00d3 at005a = ╱ee╱)╱ // 0xc6 @0x5a
0x006c…00d3 at005b = ╱ec╱,╱ // 0xc7 @0x5b
0x006c…00d3 at005c = ╱4e╱N╱ // 0xc8 @0x5c
0x006c…00d3 at005d = ╱ef╱$╱ // 0xc9 @0x5d
0x006c…00d3 at005e = ╱ed╱(╱ // 0xca @0x5e
0x006c…00d3 at005f = ╱36╱6╱ // 0xcb @0x5f
0x006c…00d3 at0060 = ╱fe0000c003╱ // 0xcc @0x60
0x006c…00d3 at0065 = ╱ee╱)╱ // 0xd1 @0x65
0x006c…00d3 at0066 = EOL // 0xd2 @0x66
0x006c…00d3 }
0x00d3…013e 888b 0120 DIM T2(9),BLANK$(77),TAL4$(14),TAH$(12),DEBTLF$(9),DEBBY$(20),VTAB2(5)
0x00d3…013e LineComalBcd {
0x00d3…013e ptr = 0x888b // 0xd3 @0x0
0x00d3…013e lno = 0x0120 // 0xd5 @0x2
0x00d3…013e at0004 = ╱87╱ DIM ╱ // 0xd7 @0x4
0x00d3…013e at0005 = ╱54╱T╱ // 0xd8 @0x5
0x00d3…013e at0006 = ╱32╱2╱ // 0xd9 @0x6
0x00d3…013e at0007 = ╱ed╱(╱ // 0xda @0x7
0x00d3…013e at0008 = ╱39╱9╱ // 0xdb @0x8
0x00d3…013e at0009 = ╱fe00009004╱ // 0xdc @0x9
0x00d3…013e at000e = ╱ee╱)╱ // 0xe1 @0xe
0x00d3…013e at000f = ╱ec╱,╱ // 0xe2 @0xf
0x00d3…013e at0010 = ╱42╱B╱ // 0xe3 @0x10
0x00d3…013e at0011 = ╱4c╱L╱ // 0xe4 @0x11
0x00d3…013e at0012 = ╱41╱A╱ // 0xe5 @0x12
0x00d3…013e at0013 = ╱4e╱N╱ // 0xe6 @0x13
0x00d3…013e at0014 = ╱4b╱K╱ // 0xe7 @0x14
0x00d3…013e at0015 = ╱ef╱$╱ // 0xe8 @0x15
0x00d3…013e at0016 = ╱ed╱(╱ // 0xe9 @0x16
0x00d3…013e at0017 = ╱37╱7╱ // 0xea @0x17
0x00d3…013e at0018 = ╱37╱7╱ // 0xeb @0x18
0x00d3…013e at0019 = ╱fe00009a07╱ // 0xec @0x19
0x00d3…013e at001e = ╱ee╱)╱ // 0xf1 @0x1e
0x00d3…013e at001f = ╱ec╱,╱ // 0xf2 @0x1f
0x00d3…013e at0020 = ╱54╱T╱ // 0xf3 @0x20
0x00d3…013e at0021 = ╱41╱A╱ // 0xf4 @0x21
0x00d3…013e at0022 = ╱4c╱L╱ // 0xf5 @0x22
0x00d3…013e at0023 = ╱34╱4╱ // 0xf6 @0x23
0x00d3…013e at0024 = ╱ef╱$╱ // 0xf7 @0x24
0x00d3…013e at0025 = ╱ed╱(╱ // 0xf8 @0x25
0x00d3…013e at0026 = ╱31╱1╱ // 0xf9 @0x26
0x00d3…013e at0027 = ╱34╱4╱ // 0xfa @0x27
0x00d3…013e at0028 = ╱fe0000e004╱ // 0xfb @0x28
0x00d3…013e at002d = ╱ee╱)╱ // 0x100 @0x2d
0x00d3…013e at002e = ╱ec╱,╱ // 0x101 @0x2e
0x00d3…013e at002f = ╱54╱T╱ // 0x102 @0x2f
0x00d3…013e at0030 = ╱41╱A╱ // 0x103 @0x30
0x00d3…013e at0031 = ╱48╱H╱ // 0x104 @0x31
0x00d3…013e at0032 = ╱ef╱$╱ // 0x105 @0x32
0x00d3…013e at0033 = ╱ed╱(╱ // 0x106 @0x33
0x00d3…013e at0034 = ╱31╱1╱ // 0x107 @0x34
0x00d3…013e at0035 = ╱32╱2╱ // 0x108 @0x35
0x00d3…013e at0036 = ╱fe0000c004╱ // 0x109 @0x36
0x00d3…013e at003b = ╱ee╱)╱ // 0x10e @0x3b
0x00d3…013e at003c = ╱ec╱,╱ // 0x10f @0x3c
0x00d3…013e at003d = ╱44╱D╱ // 0x110 @0x3d
0x00d3…013e at003e = ╱45╱E╱ // 0x111 @0x3e
0x00d3…013e at003f = ╱42╱B╱ // 0x112 @0x3f
0x00d3…013e at0040 = ╱54╱T╱ // 0x113 @0x40
0x00d3…013e at0041 = ╱4c╱L╱ // 0x114 @0x41
0x00d3…013e at0042 = ╱46╱F╱ // 0x115 @0x42
0x00d3…013e at0043 = ╱ef╱$╱ // 0x116 @0x43
0x00d3…013e at0044 = ╱ed╱(╱ // 0x117 @0x44
0x00d3…013e at0045 = ╱39╱9╱ // 0x118 @0x45
0x00d3…013e at0046 = ╱fe00009004╱ // 0x119 @0x46
0x00d3…013e at004b = ╱ee╱)╱ // 0x11e @0x4b
0x00d3…013e at004c = ╱ec╱,╱ // 0x11f @0x4c
0x00d3…013e at004d = ╱44╱D╱ // 0x120 @0x4d
0x00d3…013e at004e = ╱45╱E╱ // 0x121 @0x4e
0x00d3…013e at004f = ╱42╱B╱ // 0x122 @0x4f
0x00d3…013e at0050 = ╱42╱B╱ // 0x123 @0x50
0x00d3…013e at0051 = ╱59╱Y╱ // 0x124 @0x51
0x00d3…013e at0052 = ╱ef╱$╱ // 0x125 @0x52
0x00d3…013e at0053 = ╱ed╱(╱ // 0x126 @0x53
0x00d3…013e at0054 = ╱32╱2╱ // 0x127 @0x54
0x00d3…013e at0055 = ╱30╱0╱ // 0x128 @0x55
0x00d3…013e at0056 = ╱fe0000a005╱ // 0x129 @0x56
0x00d3…013e at005b = ╱ee╱)╱ // 0x12e @0x5b
0x00d3…013e at005c = ╱ec╱,╱ // 0x12f @0x5c
0x00d3…013e at005d = ╱56╱V╱ // 0x130 @0x5d
0x00d3…013e at005e = ╱54╱T╱ // 0x131 @0x5e
0x00d3…013e at005f = ╱41╱A╱ // 0x132 @0x5f
0x00d3…013e at0060 = ╱42╱B╱ // 0x133 @0x60
0x00d3…013e at0061 = ╱32╱2╱ // 0x134 @0x61
0x00d3…013e at0062 = ╱ed╱(╱ // 0x135 @0x62
0x00d3…013e at0063 = ╱35╱5╱ // 0x136 @0x63
0x00d3…013e at0064 = ╱fe0000a003╱ // 0x137 @0x64
0x00d3…013e at0069 = ╱ee╱)╱ // 0x13c @0x69
0x00d3…013e at006a = EOL // 0x13d @0x6a
0x00d3…013e }
0x013e…01a8 88f5 0130 DIM RES$(14),ÅRKØB$(12),MDNKØB$(12),DSALDI$(12),LK$(3),KG$(3),KTN$(6)
0x013e…01a8 LineComalBcd {
0x013e…01a8 ptr = 0x88f5 // 0x13e @0x0
0x013e…01a8 lno = 0x0130 // 0x140 @0x2
0x013e…01a8 at0004 = ╱87╱ DIM ╱ // 0x142 @0x4
0x013e…01a8 at0005 = ╱52╱R╱ // 0x143 @0x5
0x013e…01a8 at0006 = ╱45╱E╱ // 0x144 @0x6
0x013e…01a8 at0007 = ╱53╱S╱ // 0x145 @0x7
0x013e…01a8 at0008 = ╱ef╱$╱ // 0x146 @0x8
0x013e…01a8 at0009 = ╱ed╱(╱ // 0x147 @0x9
0x013e…01a8 at000a = ╱31╱1╱ // 0x148 @0xa
0x013e…01a8 at000b = ╱34╱4╱ // 0x149 @0xb
0x013e…01a8 at000c = ╱fe0000e004╱ // 0x14a @0xc
0x013e…01a8 at0011 = ╱ee╱)╱ // 0x14f @0x11
0x013e…01a8 at0012 = ╱ec╱,╱ // 0x150 @0x12
0x013e…01a8 at0013 = ╱5d╱Å╱ // 0x151 @0x13
0x013e…01a8 at0014 = ╱52╱R╱ // 0x152 @0x14
0x013e…01a8 at0015 = ╱4b╱K╱ // 0x153 @0x15
0x013e…01a8 at0016 = ╱5c╱Ø╱ // 0x154 @0x16
0x013e…01a8 at0017 = ╱42╱B╱ // 0x155 @0x17
0x013e…01a8 at0018 = ╱ef╱$╱ // 0x156 @0x18
0x013e…01a8 at0019 = ╱ed╱(╱ // 0x157 @0x19
0x013e…01a8 at001a = ╱31╱1╱ // 0x158 @0x1a
0x013e…01a8 at001b = ╱32╱2╱ // 0x159 @0x1b
0x013e…01a8 at001c = ╱fe0000c004╱ // 0x15a @0x1c
0x013e…01a8 at0021 = ╱ee╱)╱ // 0x15f @0x21
0x013e…01a8 at0022 = ╱ec╱,╱ // 0x160 @0x22
0x013e…01a8 at0023 = ╱4d╱M╱ // 0x161 @0x23
0x013e…01a8 at0024 = ╱44╱D╱ // 0x162 @0x24
0x013e…01a8 at0025 = ╱4e╱N╱ // 0x163 @0x25
0x013e…01a8 at0026 = ╱4b╱K╱ // 0x164 @0x26
0x013e…01a8 at0027 = ╱5c╱Ø╱ // 0x165 @0x27
0x013e…01a8 at0028 = ╱42╱B╱ // 0x166 @0x28
0x013e…01a8 at0029 = ╱ef╱$╱ // 0x167 @0x29
0x013e…01a8 at002a = ╱ed╱(╱ // 0x168 @0x2a
0x013e…01a8 at002b = ╱31╱1╱ // 0x169 @0x2b
0x013e…01a8 at002c = ╱32╱2╱ // 0x16a @0x2c
0x013e…01a8 at002d = ╱fe0000c004╱ // 0x16b @0x2d
0x013e…01a8 at0032 = ╱ee╱)╱ // 0x170 @0x32
0x013e…01a8 at0033 = ╱ec╱,╱ // 0x171 @0x33
0x013e…01a8 at0034 = ╱44╱D╱ // 0x172 @0x34
0x013e…01a8 at0035 = ╱53╱S╱ // 0x173 @0x35
0x013e…01a8 at0036 = ╱41╱A╱ // 0x174 @0x36
0x013e…01a8 at0037 = ╱4c╱L╱ // 0x175 @0x37
0x013e…01a8 at0038 = ╱44╱D╱ // 0x176 @0x38
0x013e…01a8 at0039 = ╱49╱I╱ // 0x177 @0x39
0x013e…01a8 at003a = ╱ef╱$╱ // 0x178 @0x3a
0x013e…01a8 at003b = ╱ed╱(╱ // 0x179 @0x3b
0x013e…01a8 at003c = ╱31╱1╱ // 0x17a @0x3c
0x013e…01a8 at003d = ╱32╱2╱ // 0x17b @0x3d
0x013e…01a8 at003e = ╱fe0000c004╱ // 0x17c @0x3e
0x013e…01a8 at0043 = ╱ee╱)╱ // 0x181 @0x43
0x013e…01a8 at0044 = ╱ec╱,╱ // 0x182 @0x44
0x013e…01a8 at0045 = ╱4c╱L╱ // 0x183 @0x45
0x013e…01a8 at0046 = ╱4b╱K╱ // 0x184 @0x46
0x013e…01a8 at0047 = ╱ef╱$╱ // 0x185 @0x47
0x013e…01a8 at0048 = ╱ed╱(╱ // 0x186 @0x48
0x013e…01a8 at0049 = ╱33╱3╱ // 0x187 @0x49
0x013e…01a8 at004a = ╱fe0000c002╱ // 0x188 @0x4a
0x013e…01a8 at004f = ╱ee╱)╱ // 0x18d @0x4f
0x013e…01a8 at0050 = ╱ec╱,╱ // 0x18e @0x50
0x013e…01a8 at0051 = ╱4b╱K╱ // 0x18f @0x51
0x013e…01a8 at0052 = ╱47╱G╱ // 0x190 @0x52
0x013e…01a8 at0053 = ╱ef╱$╱ // 0x191 @0x53
0x013e…01a8 at0054 = ╱ed╱(╱ // 0x192 @0x54
0x013e…01a8 at0055 = ╱33╱3╱ // 0x193 @0x55
0x013e…01a8 at0056 = ╱fe0000c002╱ // 0x194 @0x56
0x013e…01a8 at005b = ╱ee╱)╱ // 0x199 @0x5b
0x013e…01a8 at005c = ╱ec╱,╱ // 0x19a @0x5c
0x013e…01a8 at005d = ╱4b╱K╱ // 0x19b @0x5d
0x013e…01a8 at005e = ╱54╱T╱ // 0x19c @0x5e
0x013e…01a8 at005f = ╱4e╱N╱ // 0x19d @0x5f
0x013e…01a8 at0060 = ╱ef╱$╱ // 0x19e @0x60
0x013e…01a8 at0061 = ╱ed╱(╱ // 0x19f @0x61
0x013e…01a8 at0062 = ╱36╱6╱ // 0x1a0 @0x62
0x013e…01a8 at0063 = ╱fe0000c003╱ // 0x1a1 @0x63
0x013e…01a8 at0068 = ╱ee╱)╱ // 0x1a6 @0x68
0x013e…01a8 at0069 = EOL // 0x1a7 @0x69
0x013e…01a8 }
0x01a8…021a 8967 0140 DIM PNR$(6),TY$(1),OP1$(12),OP2$(12),TA$(12),TB$(14),TÅRKØB$(12),DAT$(8)
0x01a8…021a LineComalBcd {
0x01a8…021a ptr = 0x8967 // 0x1a8 @0x0
0x01a8…021a lno = 0x0140 // 0x1aa @0x2
0x01a8…021a at0004 = ╱87╱ DIM ╱ // 0x1ac @0x4
0x01a8…021a at0005 = ╱50╱P╱ // 0x1ad @0x5
0x01a8…021a at0006 = ╱4e╱N╱ // 0x1ae @0x6
0x01a8…021a at0007 = ╱52╱R╱ // 0x1af @0x7
0x01a8…021a at0008 = ╱ef╱$╱ // 0x1b0 @0x8
0x01a8…021a at0009 = ╱ed╱(╱ // 0x1b1 @0x9
0x01a8…021a at000a = ╱36╱6╱ // 0x1b2 @0xa
0x01a8…021a at000b = ╱fe0000c003╱ // 0x1b3 @0xb
0x01a8…021a at0010 = ╱ee╱)╱ // 0x1b8 @0x10
0x01a8…021a at0011 = ╱ec╱,╱ // 0x1b9 @0x11
0x01a8…021a at0012 = ╱54╱T╱ // 0x1ba @0x12
0x01a8…021a at0013 = ╱59╱Y╱ // 0x1bb @0x13
0x01a8…021a at0014 = ╱ef╱$╱ // 0x1bc @0x14
0x01a8…021a at0015 = ╱ed╱(╱ // 0x1bd @0x15
0x01a8…021a at0016 = ╱31╱1╱ // 0x1be @0x16
0x01a8…021a at0017 = ╱fe00008001╱ // 0x1bf @0x17
0x01a8…021a at001c = ╱ee╱)╱ // 0x1c4 @0x1c
0x01a8…021a at001d = ╱ec╱,╱ // 0x1c5 @0x1d
0x01a8…021a at001e = ╱4f╱O╱ // 0x1c6 @0x1e
0x01a8…021a at001f = ╱50╱P╱ // 0x1c7 @0x1f
0x01a8…021a at0020 = ╱31╱1╱ // 0x1c8 @0x20
0x01a8…021a at0021 = ╱ef╱$╱ // 0x1c9 @0x21
0x01a8…021a at0022 = ╱ed╱(╱ // 0x1ca @0x22
0x01a8…021a at0023 = ╱31╱1╱ // 0x1cb @0x23
0x01a8…021a at0024 = ╱32╱2╱ // 0x1cc @0x24
0x01a8…021a at0025 = ╱fe0000c004╱ // 0x1cd @0x25
0x01a8…021a at002a = ╱ee╱)╱ // 0x1d2 @0x2a
0x01a8…021a at002b = ╱ec╱,╱ // 0x1d3 @0x2b
0x01a8…021a at002c = ╱4f╱O╱ // 0x1d4 @0x2c
0x01a8…021a at002d = ╱50╱P╱ // 0x1d5 @0x2d
0x01a8…021a at002e = ╱32╱2╱ // 0x1d6 @0x2e
0x01a8…021a at002f = ╱ef╱$╱ // 0x1d7 @0x2f
0x01a8…021a at0030 = ╱ed╱(╱ // 0x1d8 @0x30
0x01a8…021a at0031 = ╱31╱1╱ // 0x1d9 @0x31
0x01a8…021a at0032 = ╱32╱2╱ // 0x1da @0x32
0x01a8…021a at0033 = ╱fe0000c004╱ // 0x1db @0x33
0x01a8…021a at0038 = ╱ee╱)╱ // 0x1e0 @0x38
0x01a8…021a at0039 = ╱ec╱,╱ // 0x1e1 @0x39
0x01a8…021a at003a = ╱54╱T╱ // 0x1e2 @0x3a
0x01a8…021a at003b = ╱41╱A╱ // 0x1e3 @0x3b
0x01a8…021a at003c = ╱ef╱$╱ // 0x1e4 @0x3c
0x01a8…021a at003d = ╱ed╱(╱ // 0x1e5 @0x3d
0x01a8…021a at003e = ╱31╱1╱ // 0x1e6 @0x3e
0x01a8…021a at003f = ╱32╱2╱ // 0x1e7 @0x3f
0x01a8…021a at0040 = ╱fe0000c004╱ // 0x1e8 @0x40
0x01a8…021a at0045 = ╱ee╱)╱ // 0x1ed @0x45
0x01a8…021a at0046 = ╱ec╱,╱ // 0x1ee @0x46
0x01a8…021a at0047 = ╱54╱T╱ // 0x1ef @0x47
0x01a8…021a at0048 = ╱42╱B╱ // 0x1f0 @0x48
0x01a8…021a at0049 = ╱ef╱$╱ // 0x1f1 @0x49
0x01a8…021a at004a = ╱ed╱(╱ // 0x1f2 @0x4a
0x01a8…021a at004b = ╱31╱1╱ // 0x1f3 @0x4b
0x01a8…021a at004c = ╱34╱4╱ // 0x1f4 @0x4c
0x01a8…021a at004d = ╱fe0000e004╱ // 0x1f5 @0x4d
0x01a8…021a at0052 = ╱ee╱)╱ // 0x1fa @0x52
0x01a8…021a at0053 = ╱ec╱,╱ // 0x1fb @0x53
0x01a8…021a at0054 = ╱54╱T╱ // 0x1fc @0x54
0x01a8…021a at0055 = ╱5d╱Å╱ // 0x1fd @0x55
0x01a8…021a at0056 = ╱52╱R╱ // 0x1fe @0x56
0x01a8…021a at0057 = ╱4b╱K╱ // 0x1ff @0x57
0x01a8…021a at0058 = ╱5c╱Ø╱ // 0x200 @0x58
0x01a8…021a at0059 = ╱42╱B╱ // 0x201 @0x59
0x01a8…021a at005a = ╱ef╱$╱ // 0x202 @0x5a
0x01a8…021a at005b = ╱ed╱(╱ // 0x203 @0x5b
0x01a8…021a at005c = ╱31╱1╱ // 0x204 @0x5c
0x01a8…021a at005d = ╱32╱2╱ // 0x205 @0x5d
0x01a8…021a at005e = ╱fe0000c004╱ // 0x206 @0x5e
0x01a8…021a at0063 = ╱ee╱)╱ // 0x20b @0x63
0x01a8…021a at0064 = ╱ec╱,╱ // 0x20c @0x64
0x01a8…021a at0065 = ╱44╱D╱ // 0x20d @0x65
0x01a8…021a at0066 = ╱41╱A╱ // 0x20e @0x66
0x01a8…021a at0067 = ╱54╱T╱ // 0x20f @0x67
0x01a8…021a at0068 = ╱ef╱$╱ // 0x210 @0x68
0x01a8…021a at0069 = ╱ed╱(╱ // 0x211 @0x69
0x01a8…021a at006a = ╱38╱8╱ // 0x212 @0x6a
0x01a8…021a at006b = ╱fe00008004╱ // 0x213 @0x6b
0x01a8…021a at0070 = ╱ee╱)╱ // 0x218 @0x70
0x01a8…021a at0071 = EOL // 0x219 @0x71
0x01a8…021a }
0x021a…0280 89cd 0150 DIM DEBGADE1$(25),DEBTLF1$(9),BLB2$(12),UBLB2$(14),UD1$(14),STREG$(71)
0x021a…0280 LineComalBcd {
0x021a…0280 ptr = 0x89cd // 0x21a @0x0
0x021a…0280 lno = 0x0150 // 0x21c @0x2
0x021a…0280 at0004 = ╱87╱ DIM ╱ // 0x21e @0x4
0x021a…0280 at0005 = ╱44╱D╱ // 0x21f @0x5
0x021a…0280 at0006 = ╱45╱E╱ // 0x220 @0x6
0x021a…0280 at0007 = ╱42╱B╱ // 0x221 @0x7
0x021a…0280 at0008 = ╱47╱G╱ // 0x222 @0x8
0x021a…0280 at0009 = ╱41╱A╱ // 0x223 @0x9
0x021a…0280 at000a = ╱44╱D╱ // 0x224 @0xa
0x021a…0280 at000b = ╱45╱E╱ // 0x225 @0xb
0x021a…0280 at000c = ╱31╱1╱ // 0x226 @0xc
0x021a…0280 at000d = ╱ef╱$╱ // 0x227 @0xd
0x021a…0280 at000e = ╱ed╱(╱ // 0x228 @0xe
0x021a…0280 at000f = ╱32╱2╱ // 0x229 @0xf
0x021a…0280 at0010 = ╱35╱5╱ // 0x22a @0x10
0x021a…0280 at0011 = ╱fe0000c805╱ // 0x22b @0x11
0x021a…0280 at0016 = ╱ee╱)╱ // 0x230 @0x16
0x021a…0280 at0017 = ╱ec╱,╱ // 0x231 @0x17
0x021a…0280 at0018 = ╱44╱D╱ // 0x232 @0x18
0x021a…0280 at0019 = ╱45╱E╱ // 0x233 @0x19
0x021a…0280 at001a = ╱42╱B╱ // 0x234 @0x1a
0x021a…0280 at001b = ╱54╱T╱ // 0x235 @0x1b
0x021a…0280 at001c = ╱4c╱L╱ // 0x236 @0x1c
0x021a…0280 at001d = ╱46╱F╱ // 0x237 @0x1d
0x021a…0280 at001e = ╱31╱1╱ // 0x238 @0x1e
0x021a…0280 at001f = ╱ef╱$╱ // 0x239 @0x1f
0x021a…0280 at0020 = ╱ed╱(╱ // 0x23a @0x20
0x021a…0280 at0021 = ╱39╱9╱ // 0x23b @0x21
0x021a…0280 at0022 = ╱fe00009004╱ // 0x23c @0x22
0x021a…0280 at0027 = ╱ee╱)╱ // 0x241 @0x27
0x021a…0280 at0028 = ╱ec╱,╱ // 0x242 @0x28
0x021a…0280 at0029 = ╱42╱B╱ // 0x243 @0x29
0x021a…0280 at002a = ╱4c╱L╱ // 0x244 @0x2a
0x021a…0280 at002b = ╱42╱B╱ // 0x245 @0x2b
0x021a…0280 at002c = ╱32╱2╱ // 0x246 @0x2c
0x021a…0280 at002d = ╱ef╱$╱ // 0x247 @0x2d
0x021a…0280 at002e = ╱ed╱(╱ // 0x248 @0x2e
0x021a…0280 at002f = ╱31╱1╱ // 0x249 @0x2f
0x021a…0280 at0030 = ╱32╱2╱ // 0x24a @0x30
0x021a…0280 at0031 = ╱fe0000c004╱ // 0x24b @0x31
0x021a…0280 at0036 = ╱ee╱)╱ // 0x250 @0x36
0x021a…0280 at0037 = ╱ec╱,╱ // 0x251 @0x37
0x021a…0280 at0038 = ╱55╱U╱ // 0x252 @0x38
0x021a…0280 at0039 = ╱42╱B╱ // 0x253 @0x39
0x021a…0280 at003a = ╱4c╱L╱ // 0x254 @0x3a
0x021a…0280 at003b = ╱42╱B╱ // 0x255 @0x3b
0x021a…0280 at003c = ╱32╱2╱ // 0x256 @0x3c
0x021a…0280 at003d = ╱ef╱$╱ // 0x257 @0x3d
0x021a…0280 at003e = ╱ed╱(╱ // 0x258 @0x3e
0x021a…0280 at003f = ╱31╱1╱ // 0x259 @0x3f
0x021a…0280 at0040 = ╱34╱4╱ // 0x25a @0x40
0x021a…0280 at0041 = ╱fe0000e004╱ // 0x25b @0x41
0x021a…0280 at0046 = ╱ee╱)╱ // 0x260 @0x46
0x021a…0280 at0047 = ╱ec╱,╱ // 0x261 @0x47
0x021a…0280 at0048 = ╱55╱U╱ // 0x262 @0x48
0x021a…0280 at0049 = ╱44╱D╱ // 0x263 @0x49
0x021a…0280 at004a = ╱31╱1╱ // 0x264 @0x4a
0x021a…0280 at004b = ╱ef╱$╱ // 0x265 @0x4b
0x021a…0280 at004c = ╱ed╱(╱ // 0x266 @0x4c
0x021a…0280 at004d = ╱31╱1╱ // 0x267 @0x4d
0x021a…0280 at004e = ╱34╱4╱ // 0x268 @0x4e
0x021a…0280 at004f = ╱fe0000e004╱ // 0x269 @0x4f
0x021a…0280 at0054 = ╱ee╱)╱ // 0x26e @0x54
0x021a…0280 at0055 = ╱ec╱,╱ // 0x26f @0x55
0x021a…0280 at0056 = ╱53╱S╱ // 0x270 @0x56
0x021a…0280 at0057 = ╱54╱T╱ // 0x271 @0x57
0x021a…0280 at0058 = ╱52╱R╱ // 0x272 @0x58
0x021a…0280 at0059 = ╱45╱E╱ // 0x273 @0x59
0x021a…0280 at005a = ╱47╱G╱ // 0x274 @0x5a
0x021a…0280 at005b = ╱ef╱$╱ // 0x275 @0x5b
0x021a…0280 at005c = ╱ed╱(╱ // 0x276 @0x5c
0x021a…0280 at005d = ╱37╱7╱ // 0x277 @0x5d
0x021a…0280 at005e = ╱31╱1╱ // 0x278 @0x5e
0x021a…0280 at005f = ╱fe00008e07╱ // 0x279 @0x5f
0x021a…0280 at0064 = ╱ee╱)╱ // 0x27e @0x64
0x021a…0280 at0065 = EOL // 0x27f @0x65
0x021a…0280 }
0x0280…02f6 8a43 0160 DIM UD3$(14),UD4$(14),K3$(17),K4$(17),K5$(17),K6$(17),T1(9),LAND$(9,12)
0x0280…02f6 LineComalBcd {
0x0280…02f6 ptr = 0x8a43 // 0x280 @0x0
0x0280…02f6 lno = 0x0160 // 0x282 @0x2
0x0280…02f6 at0004 = ╱87╱ DIM ╱ // 0x284 @0x4
0x0280…02f6 at0005 = ╱55╱U╱ // 0x285 @0x5
0x0280…02f6 at0006 = ╱44╱D╱ // 0x286 @0x6
0x0280…02f6 at0007 = ╱33╱3╱ // 0x287 @0x7
0x0280…02f6 at0008 = ╱ef╱$╱ // 0x288 @0x8
0x0280…02f6 at0009 = ╱ed╱(╱ // 0x289 @0x9
0x0280…02f6 at000a = ╱31╱1╱ // 0x28a @0xa
0x0280…02f6 at000b = ╱34╱4╱ // 0x28b @0xb
0x0280…02f6 at000c = ╱fe0000e004╱ // 0x28c @0xc
0x0280…02f6 at0011 = ╱ee╱)╱ // 0x291 @0x11
0x0280…02f6 at0012 = ╱ec╱,╱ // 0x292 @0x12
0x0280…02f6 at0013 = ╱55╱U╱ // 0x293 @0x13
0x0280…02f6 at0014 = ╱44╱D╱ // 0x294 @0x14
0x0280…02f6 at0015 = ╱34╱4╱ // 0x295 @0x15
0x0280…02f6 at0016 = ╱ef╱$╱ // 0x296 @0x16
0x0280…02f6 at0017 = ╱ed╱(╱ // 0x297 @0x17
0x0280…02f6 at0018 = ╱31╱1╱ // 0x298 @0x18
0x0280…02f6 at0019 = ╱34╱4╱ // 0x299 @0x19
0x0280…02f6 at001a = ╱fe0000e004╱ // 0x29a @0x1a
0x0280…02f6 at001f = ╱ee╱)╱ // 0x29f @0x1f
0x0280…02f6 at0020 = ╱ec╱,╱ // 0x2a0 @0x20
0x0280…02f6 at0021 = ╱4b╱K╱ // 0x2a1 @0x21
0x0280…02f6 at0022 = ╱33╱3╱ // 0x2a2 @0x22
0x0280…02f6 at0023 = ╱ef╱$╱ // 0x2a3 @0x23
0x0280…02f6 at0024 = ╱ed╱(╱ // 0x2a4 @0x24
0x0280…02f6 at0025 = ╱31╱1╱ // 0x2a5 @0x25
0x0280…02f6 at0026 = ╱37╱7╱ // 0x2a6 @0x26
0x0280…02f6 at0027 = ╱fe00008805╱ // 0x2a7 @0x27
0x0280…02f6 at002c = ╱ee╱)╱ // 0x2ac @0x2c
0x0280…02f6 at002d = ╱ec╱,╱ // 0x2ad @0x2d
0x0280…02f6 at002e = ╱4b╱K╱ // 0x2ae @0x2e
0x0280…02f6 at002f = ╱34╱4╱ // 0x2af @0x2f
0x0280…02f6 at0030 = ╱ef╱$╱ // 0x2b0 @0x30
0x0280…02f6 at0031 = ╱ed╱(╱ // 0x2b1 @0x31
0x0280…02f6 at0032 = ╱31╱1╱ // 0x2b2 @0x32
0x0280…02f6 at0033 = ╱37╱7╱ // 0x2b3 @0x33
0x0280…02f6 at0034 = ╱fe00008805╱ // 0x2b4 @0x34
0x0280…02f6 at0039 = ╱ee╱)╱ // 0x2b9 @0x39
0x0280…02f6 at003a = ╱ec╱,╱ // 0x2ba @0x3a
0x0280…02f6 at003b = ╱4b╱K╱ // 0x2bb @0x3b
0x0280…02f6 at003c = ╱35╱5╱ // 0x2bc @0x3c
0x0280…02f6 at003d = ╱ef╱$╱ // 0x2bd @0x3d
0x0280…02f6 at003e = ╱ed╱(╱ // 0x2be @0x3e
0x0280…02f6 at003f = ╱31╱1╱ // 0x2bf @0x3f
0x0280…02f6 at0040 = ╱37╱7╱ // 0x2c0 @0x40
0x0280…02f6 at0041 = ╱fe00008805╱ // 0x2c1 @0x41
0x0280…02f6 at0046 = ╱ee╱)╱ // 0x2c6 @0x46
0x0280…02f6 at0047 = ╱ec╱,╱ // 0x2c7 @0x47
0x0280…02f6 at0048 = ╱4b╱K╱ // 0x2c8 @0x48
0x0280…02f6 at0049 = ╱36╱6╱ // 0x2c9 @0x49
0x0280…02f6 at004a = ╱ef╱$╱ // 0x2ca @0x4a
0x0280…02f6 at004b = ╱ed╱(╱ // 0x2cb @0x4b
0x0280…02f6 at004c = ╱31╱1╱ // 0x2cc @0x4c
0x0280…02f6 at004d = ╱37╱7╱ // 0x2cd @0x4d
0x0280…02f6 at004e = ╱fe00008805╱ // 0x2ce @0x4e
0x0280…02f6 at0053 = ╱ee╱)╱ // 0x2d3 @0x53
0x0280…02f6 at0054 = ╱ec╱,╱ // 0x2d4 @0x54
0x0280…02f6 at0055 = ╱54╱T╱ // 0x2d5 @0x55
0x0280…02f6 at0056 = ╱31╱1╱ // 0x2d6 @0x56
0x0280…02f6 at0057 = ╱ed╱(╱ // 0x2d7 @0x57
0x0280…02f6 at0058 = ╱39╱9╱ // 0x2d8 @0x58
0x0280…02f6 at0059 = ╱fe00009004╱ // 0x2d9 @0x59
0x0280…02f6 at005e = ╱ee╱)╱ // 0x2de @0x5e
0x0280…02f6 at005f = ╱ec╱,╱ // 0x2df @0x5f
0x0280…02f6 at0060 = ╱4c╱L╱ // 0x2e0 @0x60
0x0280…02f6 at0061 = ╱41╱A╱ // 0x2e1 @0x61
0x0280…02f6 at0062 = ╱4e╱N╱ // 0x2e2 @0x62
0x0280…02f6 at0063 = ╱44╱D╱ // 0x2e3 @0x63
0x0280…02f6 at0064 = ╱ef╱$╱ // 0x2e4 @0x64
0x0280…02f6 at0065 = ╱ed╱(╱ // 0x2e5 @0x65
0x0280…02f6 at0066 = ╱39╱9╱ // 0x2e6 @0x66
0x0280…02f6 at0067 = ╱fe00009004╱ // 0x2e7 @0x67
0x0280…02f6 at006c = ╱ec╱,╱ // 0x2ec @0x6c
0x0280…02f6 at006d = ╱31╱1╱ // 0x2ed @0x6d
0x0280…02f6 at006e = ╱32╱2╱ // 0x2ee @0x6e
0x0280…02f6 at006f = ╱fe0000c004╱ // 0x2ef @0x6f
0x0280…02f6 at0074 = ╱ee╱)╱ // 0x2f4 @0x74
0x0280…02f6 at0075 = EOL // 0x2f5 @0x75
0x0280…02f6 }
0x02f6…030e 8a5b 0170 PROC CALC(ART,B1,B2,ES)
0x02f6…030e LineComalBcd {
0x02f6…030e ptr = 0x8a5b // 0x2f6 @0x0
0x02f6…030e lno = 0x0170 // 0x2f8 @0x2
0x02f6…030e at0004 = ╱9e╱ PROC ╱ // 0x2fa @0x4
0x02f6…030e at0005 = ╱43╱C╱ // 0x2fb @0x5
0x02f6…030e at0006 = ╱41╱A╱ // 0x2fc @0x6
0x02f6…030e at0007 = ╱4c╱L╱ // 0x2fd @0x7
0x02f6…030e at0008 = ╱43╱C╱ // 0x2fe @0x8
0x02f6…030e at0009 = ╱ed╱(╱ // 0x2ff @0x9
0x02f6…030e at000a = ╱41╱A╱ // 0x300 @0xa
0x02f6…030e at000b = ╱52╱R╱ // 0x301 @0xb
0x02f6…030e at000c = ╱54╱T╱ // 0x302 @0xc
0x02f6…030e at000d = ╱ec╱,╱ // 0x303 @0xd
0x02f6…030e at000e = ╱42╱B╱ // 0x304 @0xe
0x02f6…030e at000f = ╱31╱1╱ // 0x305 @0xf
0x02f6…030e at0010 = ╱ec╱,╱ // 0x306 @0x10
0x02f6…030e at0011 = ╱42╱B╱ // 0x307 @0x11
0x02f6…030e at0012 = ╱32╱2╱ // 0x308 @0x12
0x02f6…030e at0013 = ╱ec╱,╱ // 0x309 @0x13
0x02f6…030e at0014 = ╱45╱E╱ // 0x30a @0x14
0x02f6…030e at0015 = ╱53╱S╱ // 0x30b @0x15
0x02f6…030e at0016 = ╱ee╱)╱ // 0x30c @0x16
0x02f6…030e at0017 = EOL // 0x30d @0x17
0x02f6…030e }
0x030e…0343 8a90 0180 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0
0x030e…0343 LineComalBcd {
0x030e…0343 ptr = 0x8a90 // 0x30e @0x0
0x030e…0343 lno = 0x0180 // 0x310 @0x2
0x030e…0343 at0004 = ╱4f╱O╱ // 0x312 @0x4
0x030e…0343 at0005 = ╱50╱P╱ // 0x313 @0x5
0x030e…0343 at0006 = ╱31╱1╱ // 0x314 @0x6
0x030e…0343 at0007 = ╱ef╱$╱ // 0x315 @0x7
0x030e…0343 at0008 = ╱dc╱=╱ // 0x316 @0x8
0x030e…0343 at0009 = ╱42╱B╱ // 0x317 @0x9
0x030e…0343 at000a = ╱31╱1╱ // 0x318 @0xa
0x030e…0343 at000b = ╱ef╱$╱ // 0x319 @0xb
0x030e…0343 at000c = ╱eb╱;╱ // 0x31a @0xc
0x030e…0343 at000d = ╱4f╱O╱ // 0x31b @0xd
0x030e…0343 at000e = ╱50╱P╱ // 0x31c @0xe
0x030e…0343 at000f = ╱32╱2╱ // 0x31d @0xf
0x030e…0343 at0010 = ╱ef╱$╱ // 0x31e @0x10
0x030e…0343 at0011 = ╱dc╱=╱ // 0x31f @0x11
0x030e…0343 at0012 = ╱42╱B╱ // 0x320 @0x12
0x030e…0343 at0013 = ╱32╱2╱ // 0x321 @0x13
0x030e…0343 at0014 = ╱ef╱$╱ // 0x322 @0x14
0x030e…0343 at0015 = ╱eb╱;╱ // 0x323 @0x15
0x030e…0343 at0016 = ╱52╱R╱ // 0x324 @0x16
0x030e…0343 at0017 = ╱45╱E╱ // 0x325 @0x17
0x030e…0343 at0018 = ╱53╱S╱ // 0x326 @0x18
0x030e…0343 at0019 = ╱ef╱$╱ // 0x327 @0x19
0x030e…0343 at001a = ╱dc╱=╱ // 0x328 @0x1a
0x030e…0343 at001b = ╱45╱E╱ // 0x329 @0x1b
0x030e…0343 at001c = ╱53╱S╱ // 0x32a @0x1c
0x030e…0343 at001d = ╱ef╱$╱ // 0x32b @0x1d
0x030e…0343 at001e = ╱eb╱;╱ // 0x32c @0x1e
0x030e…0343 at001f = ╱53╱S╱ // 0x32d @0x1f
0x030e…0343 at0020 = ╱49╱I╱ // 0x32e @0x20
0x030e…0343 at0021 = ╱dc╱=╱ // 0x32f @0x21
0x030e…0343 at0022 = ╱30╱0╱ // 0x330 @0x22
0x030e…0343 at0023 = ╱fe00000000╱ // 0x331 @0x23
0x030e…0343 at0028 = ╱eb╱;╱ // 0x336 @0x28
0x030e…0343 at0029 = ╱46╱F╱ // 0x337 @0x29
0x030e…0343 at002a = ╱4c╱L╱ // 0x338 @0x2a
0x030e…0343 at002b = ╱41╱A╱ // 0x339 @0x2b
0x030e…0343 at002c = ╱47╱G╱ // 0x33a @0x2c
0x030e…0343 at002d = ╱dc╱=╱ // 0x33b @0x2d
0x030e…0343 at002e = ╱30╱0╱ // 0x33c @0x2e
0x030e…0343 at002f = ╱fe00000000╱ // 0x33d @0x2f
0x030e…0343 at0034 = EOL // 0x342 @0x34
0x030e…0343 }
0x0343…0359 8aa6 0190 CALL "P641210:REGN"
0x0343…0359 LineComalBcd {
0x0343…0359 ptr = 0x8aa6 // 0x343 @0x0
0x0343…0359 lno = 0x0190 // 0x345 @0x2
0x0343…0359 at0004 = ╱ad31ed╱ CALL ╱ // 0x347 @0x4
0x0343…0359 at0007 = ╱22╱"╱ // 0x34a @0x7
0x0343…0359 at0008 = ╱50╱P╱ // 0x34b @0x8
0x0343…0359 at0009 = ╱36╱6╱ // 0x34c @0x9
0x0343…0359 at000a = ╱34╱4╱ // 0x34d @0xa
0x0343…0359 at000b = ╱31╱1╱ // 0x34e @0xb
0x0343…0359 at000c = ╱32╱2╱ // 0x34f @0xc
0x0343…0359 at000d = ╱31╱1╱ // 0x350 @0xd
0x0343…0359 at000e = ╱30╱0╱ // 0x351 @0xe
0x0343…0359 at000f = ╱3a╱:╱ // 0x352 @0xf
0x0343…0359 at0010 = ╱52╱R╱ // 0x353 @0x10
0x0343…0359 at0011 = ╱45╱E╱ // 0x354 @0x11
0x0343…0359 at0012 = ╱47╱G╱ // 0x355 @0x12
0x0343…0359 at0013 = ╱4e╱N╱ // 0x356 @0x13
0x0343…0359 at0014 = ╱22╱"╱ // 0x357 @0x14
0x0343…0359 at0015 = EOL // 0x358 @0x15
0x0343…0359 }
0x0359…0366 8ab3 0200 ES$=RES$
0x0359…0366 LineComalBcd {
0x0359…0366 ptr = 0x8ab3 // 0x359 @0x0
0x0359…0366 lno = 0x0200 // 0x35b @0x2
0x0359…0366 at0004 = ╱45╱E╱ // 0x35d @0x4
0x0359…0366 at0005 = ╱53╱S╱ // 0x35e @0x5
0x0359…0366 at0006 = ╱ef╱$╱ // 0x35f @0x6
0x0359…0366 at0007 = ╱dc╱=╱ // 0x360 @0x7
0x0359…0366 at0008 = ╱52╱R╱ // 0x361 @0x8
0x0359…0366 at0009 = ╱45╱E╱ // 0x362 @0x9
0x0359…0366 at000a = ╱53╱S╱ // 0x363 @0xa
0x0359…0366 at000b = ╱ef╱$╱ // 0x364 @0xb
0x0359…0366 at000c = EOL // 0x365 @0xc
0x0359…0366 }
0x0366…0372 8abf 0210 IF FLAG THEN STOP
0x0366…0372 LineComalBcd {
0x0366…0372 ptr = 0x8abf // 0x366 @0x0
0x0366…0372 lno = 0x0210 // 0x368 @0x2
0x0366…0372 at0004 = ╱82╱ IF ╱ // 0x36a @0x4
0x0366…0372 at0005 = ╱46╱F╱ // 0x36b @0x5
0x0366…0372 at0006 = ╱4c╱L╱ // 0x36c @0x6
0x0366…0372 at0007 = ╱41╱A╱ // 0x36d @0x7
0x0366…0372 at0008 = ╱47╱G╱ // 0x36e @0x8
0x0366…0372 at0009 = ╱b6╱ THEN ╱ // 0x36f @0x9
0x0366…0372 at000a = ╱8d╱ STOP ╱ // 0x370 @0xa
0x0366…0372 at000b = EOL // 0x371 @0xb
0x0366…0372 }
0x0372…0378 8ac5 0220 ENDPROC
0x0372…0378 LineComalBcd {
0x0372…0378 ptr = 0x8ac5 // 0x372 @0x0
0x0372…0378 lno = 0x0220 // 0x374 @0x2
0x0372…0378 at0004 = ╱9f╱ ENDPROC ╱ // 0x376 @0x4
0x0372…0378 at0005 = EOL // 0x377 @0x5
0x0372…0378 }
0x0378…038f 8adc 0230 PROC FEJL(NR1,NR2,NR3)
0x0378…038f LineComalBcd {
0x0378…038f ptr = 0x8adc // 0x378 @0x0
0x0378…038f lno = 0x0230 // 0x37a @0x2
0x0378…038f at0004 = ╱9e╱ PROC ╱ // 0x37c @0x4
0x0378…038f at0005 = ╱46╱F╱ // 0x37d @0x5
0x0378…038f at0006 = ╱45╱E╱ // 0x37e @0x6
0x0378…038f at0007 = ╱4a╱J╱ // 0x37f @0x7
0x0378…038f at0008 = ╱4c╱L╱ // 0x380 @0x8
0x0378…038f at0009 = ╱ed╱(╱ // 0x381 @0x9
0x0378…038f at000a = ╱4e╱N╱ // 0x382 @0xa
0x0378…038f at000b = ╱52╱R╱ // 0x383 @0xb
0x0378…038f at000c = ╱31╱1╱ // 0x384 @0xc
0x0378…038f at000d = ╱ec╱,╱ // 0x385 @0xd
0x0378…038f at000e = ╱4e╱N╱ // 0x386 @0xe
0x0378…038f at000f = ╱52╱R╱ // 0x387 @0xf
0x0378…038f at0010 = ╱32╱2╱ // 0x388 @0x10
0x0378…038f at0011 = ╱ec╱,╱ // 0x389 @0x11
0x0378…038f at0012 = ╱4e╱N╱ // 0x38a @0x12
0x0378…038f at0013 = ╱52╱R╱ // 0x38b @0x13
0x0378…038f at0014 = ╱33╱3╱ // 0x38c @0x14
0x0378…038f at0015 = ╱ee╱)╱ // 0x38d @0x15
0x0378…038f at0016 = EOL // 0x38e @0x16
0x0378…038f }
0x038f…03a4 8af1 0240 IF STATUS(NR3$)<>0 THEN
0x038f…03a4 LineComalBcd {
0x038f…03a4 ptr = 0x8af1 // 0x38f @0x0
0x038f…03a4 lno = 0x0240 // 0x391 @0x2
0x038f…03a4 at0004 = ╱9c╱ IF ╱ // 0x393 @0x4
0x038f…03a4 at0005 = ╱ce╱STATUS╱ // 0x394 @0x5
0x038f…03a4 at0006 = ╱ed╱(╱ // 0x395 @0x6
0x038f…03a4 at0007 = ╱4e╱N╱ // 0x396 @0x7
0x038f…03a4 at0008 = ╱52╱R╱ // 0x397 @0x8
0x038f…03a4 at0009 = ╱33╱3╱ // 0x398 @0x9
0x038f…03a4 at000a = ╱ef╱$╱ // 0x399 @0xa
0x038f…03a4 at000b = ╱ee╱)╱ // 0x39a @0xb
0x038f…03a4 at000c = ╱e1╱<>╱ // 0x39b @0xc
0x038f…03a4 at000d = ╱30╱0╱ // 0x39c @0xd
0x038f…03a4 at000e = ╱fe00000000╱ // 0x39d @0xe
0x038f…03a4 at0013 = ╱b6╱ THEN ╱ // 0x3a2 @0x13
0x038f…03a4 at0014 = EOL // 0x3a3 @0x14
0x038f…03a4 }
0x03a4…03be 8b0b 0250 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x03a4…03be LineComalBcd {
0x03a4…03be ptr = 0x8b0b // 0x3a4 @0x0
0x03a4…03be lno = 0x0250 // 0x3a6 @0x2
0x03a4…03be at0004 = ╱92╱ PRINT ╱ // 0x3a8 @0x4
0x03a4…03be at0005 = ╱ce╱STATUS╱ // 0x3a9 @0x5
0x03a4…03be at0006 = ╱ed╱(╱ // 0x3aa @0x6
0x03a4…03be at0007 = ╱4e╱N╱ // 0x3ab @0x7
0x03a4…03be at0008 = ╱52╱R╱ // 0x3ac @0x8
0x03a4…03be at0009 = ╱33╱3╱ // 0x3ad @0x9
0x03a4…03be at000a = ╱ef╱$╱ // 0x3ae @0xa
0x03a4…03be at000b = ╱ee╱)╱ // 0x3af @0xb
0x03a4…03be at000c = ╱ec╱,╱ // 0x3b0 @0xc
0x03a4…03be at000d = ╱4e╱N╱ // 0x3b1 @0xd
0x03a4…03be at000e = ╱52╱R╱ // 0x3b2 @0xe
0x03a4…03be at000f = ╱31╱1╱ // 0x3b3 @0xf
0x03a4…03be at0010 = ╱ec╱,╱ // 0x3b4 @0x10
0x03a4…03be at0011 = ╱4e╱N╱ // 0x3b5 @0x11
0x03a4…03be at0012 = ╱52╱R╱ // 0x3b6 @0x12
0x03a4…03be at0013 = ╱32╱2╱ // 0x3b7 @0x13
0x03a4…03be at0014 = ╱ec╱,╱ // 0x3b8 @0x14
0x03a4…03be at0015 = ╱4e╱N╱ // 0x3b9 @0x15
0x03a4…03be at0016 = ╱52╱R╱ // 0x3ba @0x16
0x03a4…03be at0017 = ╱33╱3╱ // 0x3bb @0x17
0x03a4…03be at0018 = ╱ef╱$╱ // 0x3bc @0x18
0x03a4…03be at0019 = EOL // 0x3bd @0x19
0x03a4…03be }
0x03be…03c4 8b11 0260 STOP
0x03be…03c4 LineComalBcd {
0x03be…03c4 ptr = 0x8b11 // 0x3be @0x0
0x03be…03c4 lno = 0x0260 // 0x3c0 @0x2
0x03be…03c4 at0004 = ╱8d╱ STOP ╱ // 0x3c2 @0x4
0x03be…03c4 at0005 = EOL // 0x3c3 @0x5
0x03be…03c4 }
0x03c4…03ca 8b17 0270 ENDIF
0x03c4…03ca LineComalBcd {
0x03c4…03ca ptr = 0x8b17 // 0x3c4 @0x0
0x03c4…03ca lno = 0x0270 // 0x3c6 @0x2
0x03c4…03ca at0004 = ╱9b╱ ENDIF ╱ // 0x3c8 @0x4
0x03c4…03ca at0005 = EOL // 0x3c9 @0x5
0x03c4…03ca }
0x03ca…03d0 8b1d 0280 ENDPROC
0x03ca…03d0 LineComalBcd {
0x03ca…03d0 ptr = 0x8b1d // 0x3ca @0x0
0x03ca…03d0 lno = 0x0280 // 0x3cc @0x2
0x03ca…03d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x3ce @0x4
0x03ca…03d0 at0005 = EOL // 0x3cf @0x5
0x03ca…03d0 }
0x03d0…03ea 8b37 0290 PROC INDTAB(T,MANTAL,K10)
0x03d0…03ea LineComalBcd {
0x03d0…03ea ptr = 0x8b37 // 0x3d0 @0x0
0x03d0…03ea lno = 0x0290 // 0x3d2 @0x2
0x03d0…03ea at0004 = ╱9e╱ PROC ╱ // 0x3d4 @0x4
0x03d0…03ea at0005 = ╱49╱I╱ // 0x3d5 @0x5
0x03d0…03ea at0006 = ╱4e╱N╱ // 0x3d6 @0x6
0x03d0…03ea at0007 = ╱44╱D╱ // 0x3d7 @0x7
0x03d0…03ea at0008 = ╱54╱T╱ // 0x3d8 @0x8
0x03d0…03ea at0009 = ╱41╱A╱ // 0x3d9 @0x9
0x03d0…03ea at000a = ╱42╱B╱ // 0x3da @0xa
0x03d0…03ea at000b = ╱ed╱(╱ // 0x3db @0xb
0x03d0…03ea at000c = ╱54╱T╱ // 0x3dc @0xc
0x03d0…03ea at000d = ╱ec╱,╱ // 0x3dd @0xd
0x03d0…03ea at000e = ╱4d╱M╱ // 0x3de @0xe
0x03d0…03ea at000f = ╱41╱A╱ // 0x3df @0xf
0x03d0…03ea at0010 = ╱4e╱N╱ // 0x3e0 @0x10
0x03d0…03ea at0011 = ╱54╱T╱ // 0x3e1 @0x11
0x03d0…03ea at0012 = ╱41╱A╱ // 0x3e2 @0x12
0x03d0…03ea at0013 = ╱4c╱L╱ // 0x3e3 @0x13
0x03d0…03ea at0014 = ╱ec╱,╱ // 0x3e4 @0x14
0x03d0…03ea at0015 = ╱4b╱K╱ // 0x3e5 @0x15
0x03d0…03ea at0016 = ╱31╱1╱ // 0x3e6 @0x16
0x03d0…03ea at0017 = ╱30╱0╱ // 0x3e7 @0x17
0x03d0…03ea at0018 = ╱ee╱)╱ // 0x3e8 @0x18
0x03d0…03ea at0019 = EOL // 0x3e9 @0x19
0x03d0…03ea }
0x03ea…0406 8b53 0300 J=MANTAL DIV 32+1
0x03ea…0406 LineComalBcd {
0x03ea…0406 ptr = 0x8b53 // 0x3ea @0x0
0x03ea…0406 lno = 0x0300 // 0x3ec @0x2
0x03ea…0406 at0004 = ╱4a╱J╱ // 0x3ee @0x4
0x03ea…0406 at0005 = ╱dc╱=╱ // 0x3ef @0x5
0x03ea…0406 at0006 = ╱4d╱M╱ // 0x3f0 @0x6
0x03ea…0406 at0007 = ╱41╱A╱ // 0x3f1 @0x7
0x03ea…0406 at0008 = ╱4e╱N╱ // 0x3f2 @0x8
0x03ea…0406 at0009 = ╱54╱T╱ // 0x3f3 @0x9
0x03ea…0406 at000a = ╱41╱A╱ // 0x3f4 @0xa
0x03ea…0406 at000b = ╱4c╱L╱ // 0x3f5 @0xb
0x03ea…0406 at000c = ╱e7╱ DIV ╱ // 0x3f6 @0xc
0x03ea…0406 at000d = ╱33╱3╱ // 0x3f7 @0xd
0x03ea…0406 at000e = ╱32╱2╱ // 0x3f8 @0xe
0x03ea…0406 at000f = ╱fe00008006╱ // 0x3f9 @0xf
0x03ea…0406 at0014 = ╱e2╱+╱ // 0x3fe @0x14
0x03ea…0406 at0015 = ╱31╱1╱ // 0x3ff @0x15
0x03ea…0406 at0016 = ╱fe00008001╱ // 0x400 @0x16
0x03ea…0406 at001b = EOL // 0x405 @0x1b
0x03ea…0406 }
0x0406…0426 8b73 0310 FOR I=J TO MANTAL DIV 4+J-1
0x0406…0426 LineComalBcd {
0x0406…0426 ptr = 0x8b73 // 0x406 @0x0
0x0406…0426 lno = 0x0310 // 0x408 @0x2
0x0406…0426 at0004 = ╱83╱ FOR ╱ // 0x40a @0x4
0x0406…0426 at0005 = ╱49╱I╱ // 0x40b @0x5
0x0406…0426 at0006 = ╱dc╱=╱ // 0x40c @0x6
0x0406…0426 at0007 = ╱4a╱J╱ // 0x40d @0x7
0x0406…0426 at0008 = ╱b7╱ TO ╱ // 0x40e @0x8
0x0406…0426 at0009 = ╱4d╱M╱ // 0x40f @0x9
0x0406…0426 at000a = ╱41╱A╱ // 0x410 @0xa
0x0406…0426 at000b = ╱4e╱N╱ // 0x411 @0xb
0x0406…0426 at000c = ╱54╱T╱ // 0x412 @0xc
0x0406…0426 at000d = ╱41╱A╱ // 0x413 @0xd
0x0406…0426 at000e = ╱4c╱L╱ // 0x414 @0xe
0x0406…0426 at000f = ╱e7╱ DIV ╱ // 0x415 @0xf
0x0406…0426 at0010 = ╱34╱4╱ // 0x416 @0x10
0x0406…0426 at0011 = ╱fe00008003╱ // 0x417 @0x11
0x0406…0426 at0016 = ╱e2╱+╱ // 0x41c @0x16
0x0406…0426 at0017 = ╱4a╱J╱ // 0x41d @0x17
0x0406…0426 at0018 = ╱e3╱-╱ // 0x41e @0x18
0x0406…0426 at0019 = ╱31╱1╱ // 0x41f @0x19
0x0406…0426 at001a = ╱fe00008001╱ // 0x420 @0x1a
0x0406…0426 at001f = EOL // 0x425 @0x1f
0x0406…0426 }
0x0426…0464 8bb1 0320 H=(I-J)*4+1;J2=H+1;J3=H+2;J4=H+3
0x0426…0464 LineComalBcd {
0x0426…0464 ptr = 0x8bb1 // 0x426 @0x0
0x0426…0464 lno = 0x0320 // 0x428 @0x2
0x0426…0464 at0004 = ╱48╱H╱ // 0x42a @0x4
0x0426…0464 at0005 = ╱dc╱=╱ // 0x42b @0x5
0x0426…0464 at0006 = ╱ed╱(╱ // 0x42c @0x6
0x0426…0464 at0007 = ╱49╱I╱ // 0x42d @0x7
0x0426…0464 at0008 = ╱e3╱-╱ // 0x42e @0x8
0x0426…0464 at0009 = ╱4a╱J╱ // 0x42f @0x9
0x0426…0464 at000a = ╱ee╱)╱ // 0x430 @0xa
0x0426…0464 at000b = ╱e4╱*╱ // 0x431 @0xb
0x0426…0464 at000c = ╱34╱4╱ // 0x432 @0xc
0x0426…0464 at000d = ╱fe00008003╱ // 0x433 @0xd
0x0426…0464 at0012 = ╱e2╱+╱ // 0x438 @0x12
0x0426…0464 at0013 = ╱31╱1╱ // 0x439 @0x13
0x0426…0464 at0014 = ╱fe00008001╱ // 0x43a @0x14
0x0426…0464 at0019 = ╱eb╱;╱ // 0x43f @0x19
0x0426…0464 at001a = ╱4a╱J╱ // 0x440 @0x1a
0x0426…0464 at001b = ╱32╱2╱ // 0x441 @0x1b
0x0426…0464 at001c = ╱dc╱=╱ // 0x442 @0x1c
0x0426…0464 at001d = ╱48╱H╱ // 0x443 @0x1d
0x0426…0464 at001e = ╱e2╱+╱ // 0x444 @0x1e
0x0426…0464 at001f = ╱31╱1╱ // 0x445 @0x1f
0x0426…0464 at0020 = ╱fe00008001╱ // 0x446 @0x20
0x0426…0464 at0025 = ╱eb╱;╱ // 0x44b @0x25
0x0426…0464 at0026 = ╱4a╱J╱ // 0x44c @0x26
0x0426…0464 at0027 = ╱33╱3╱ // 0x44d @0x27
0x0426…0464 at0028 = ╱dc╱=╱ // 0x44e @0x28
0x0426…0464 at0029 = ╱48╱H╱ // 0x44f @0x29
0x0426…0464 at002a = ╱e2╱+╱ // 0x450 @0x2a
0x0426…0464 at002b = ╱32╱2╱ // 0x451 @0x2b
0x0426…0464 at002c = ╱fe00008002╱ // 0x452 @0x2c
0x0426…0464 at0031 = ╱eb╱;╱ // 0x457 @0x31
0x0426…0464 at0032 = ╱4a╱J╱ // 0x458 @0x32
0x0426…0464 at0033 = ╱34╱4╱ // 0x459 @0x33
0x0426…0464 at0034 = ╱dc╱=╱ // 0x45a @0x34
0x0426…0464 at0035 = ╱48╱H╱ // 0x45b @0x35
0x0426…0464 at0036 = ╱e2╱+╱ // 0x45c @0x36
0x0426…0464 at0037 = ╱33╱3╱ // 0x45d @0x37
0x0426…0464 at0038 = ╱fe0000c002╱ // 0x45e @0x38
0x0426…0464 at003d = EOL // 0x463 @0x3d
0x0426…0464 }
0x0464…04d6 8c23 0330 GET K10$,I:T(H,1),T(H,2),T(J2,1),T(J2,2),T(J3,1),T(J3,2),T(J4,1),T(J4,2)
0x0464…04d6 LineComalBcd {
0x0464…04d6 ptr = 0x8c23 // 0x464 @0x0
0x0464…04d6 lno = 0x0330 // 0x466 @0x2
0x0464…04d6 at0004 = ╱a9╱ GET ╱ // 0x468 @0x4
0x0464…04d6 at0005 = ╱4b╱K╱ // 0x469 @0x5
0x0464…04d6 at0006 = ╱31╱1╱ // 0x46a @0x6
0x0464…04d6 at0007 = ╱30╱0╱ // 0x46b @0x7
0x0464…04d6 at0008 = ╱ef╱$╱ // 0x46c @0x8
0x0464…04d6 at0009 = ╱ec╱,╱ // 0x46d @0x9
0x0464…04d6 at000a = ╱49╱I╱ // 0x46e @0xa
0x0464…04d6 at000b = ╱f0╱:╱ // 0x46f @0xb
0x0464…04d6 at000c = ╱54╱T╱ // 0x470 @0xc
0x0464…04d6 at000d = ╱ed╱(╱ // 0x471 @0xd
0x0464…04d6 at000e = ╱48╱H╱ // 0x472 @0xe
0x0464…04d6 at000f = ╱ec╱,╱ // 0x473 @0xf
0x0464…04d6 at0010 = ╱31╱1╱ // 0x474 @0x10
0x0464…04d6 at0011 = ╱fe00008001╱ // 0x475 @0x11
0x0464…04d6 at0016 = ╱ee╱)╱ // 0x47a @0x16
0x0464…04d6 at0017 = ╱ec╱,╱ // 0x47b @0x17
0x0464…04d6 at0018 = ╱54╱T╱ // 0x47c @0x18
0x0464…04d6 at0019 = ╱ed╱(╱ // 0x47d @0x19
0x0464…04d6 at001a = ╱48╱H╱ // 0x47e @0x1a
0x0464…04d6 at001b = ╱ec╱,╱ // 0x47f @0x1b
0x0464…04d6 at001c = ╱32╱2╱ // 0x480 @0x1c
0x0464…04d6 at001d = ╱fe00008002╱ // 0x481 @0x1d
0x0464…04d6 at0022 = ╱ee╱)╱ // 0x486 @0x22
0x0464…04d6 at0023 = ╱ec╱,╱ // 0x487 @0x23
0x0464…04d6 at0024 = ╱54╱T╱ // 0x488 @0x24
0x0464…04d6 at0025 = ╱ed╱(╱ // 0x489 @0x25
0x0464…04d6 at0026 = ╱4a╱J╱ // 0x48a @0x26
0x0464…04d6 at0027 = ╱32╱2╱ // 0x48b @0x27
0x0464…04d6 at0028 = ╱ec╱,╱ // 0x48c @0x28
0x0464…04d6 at0029 = ╱31╱1╱ // 0x48d @0x29
0x0464…04d6 at002a = ╱fe00008001╱ // 0x48e @0x2a
0x0464…04d6 at002f = ╱ee╱)╱ // 0x493 @0x2f
0x0464…04d6 at0030 = ╱ec╱,╱ // 0x494 @0x30
0x0464…04d6 at0031 = ╱54╱T╱ // 0x495 @0x31
0x0464…04d6 at0032 = ╱ed╱(╱ // 0x496 @0x32
0x0464…04d6 at0033 = ╱4a╱J╱ // 0x497 @0x33
0x0464…04d6 at0034 = ╱32╱2╱ // 0x498 @0x34
0x0464…04d6 at0035 = ╱ec╱,╱ // 0x499 @0x35
0x0464…04d6 at0036 = ╱32╱2╱ // 0x49a @0x36
0x0464…04d6 at0037 = ╱fe00008002╱ // 0x49b @0x37
0x0464…04d6 at003c = ╱ee╱)╱ // 0x4a0 @0x3c
0x0464…04d6 at003d = ╱ec╱,╱ // 0x4a1 @0x3d
0x0464…04d6 at003e = ╱54╱T╱ // 0x4a2 @0x3e
0x0464…04d6 at003f = ╱ed╱(╱ // 0x4a3 @0x3f
0x0464…04d6 at0040 = ╱4a╱J╱ // 0x4a4 @0x40
0x0464…04d6 at0041 = ╱33╱3╱ // 0x4a5 @0x41
0x0464…04d6 at0042 = ╱ec╱,╱ // 0x4a6 @0x42
0x0464…04d6 at0043 = ╱31╱1╱ // 0x4a7 @0x43
0x0464…04d6 at0044 = ╱fe00008001╱ // 0x4a8 @0x44
0x0464…04d6 at0049 = ╱ee╱)╱ // 0x4ad @0x49
0x0464…04d6 at004a = ╱ec╱,╱ // 0x4ae @0x4a
0x0464…04d6 at004b = ╱54╱T╱ // 0x4af @0x4b
0x0464…04d6 at004c = ╱ed╱(╱ // 0x4b0 @0x4c
0x0464…04d6 at004d = ╱4a╱J╱ // 0x4b1 @0x4d
0x0464…04d6 at004e = ╱33╱3╱ // 0x4b2 @0x4e
0x0464…04d6 at004f = ╱ec╱,╱ // 0x4b3 @0x4f
0x0464…04d6 at0050 = ╱32╱2╱ // 0x4b4 @0x50
0x0464…04d6 at0051 = ╱fe00008002╱ // 0x4b5 @0x51
0x0464…04d6 at0056 = ╱ee╱)╱ // 0x4ba @0x56
0x0464…04d6 at0057 = ╱ec╱,╱ // 0x4bb @0x57
0x0464…04d6 at0058 = ╱54╱T╱ // 0x4bc @0x58
0x0464…04d6 at0059 = ╱ed╱(╱ // 0x4bd @0x59
0x0464…04d6 at005a = ╱4a╱J╱ // 0x4be @0x5a
0x0464…04d6 at005b = ╱34╱4╱ // 0x4bf @0x5b
0x0464…04d6 at005c = ╱ec╱,╱ // 0x4c0 @0x5c
0x0464…04d6 at005d = ╱31╱1╱ // 0x4c1 @0x5d
0x0464…04d6 at005e = ╱fe00008001╱ // 0x4c2 @0x5e
0x0464…04d6 at0063 = ╱ee╱)╱ // 0x4c7 @0x63
0x0464…04d6 at0064 = ╱ec╱,╱ // 0x4c8 @0x64
0x0464…04d6 at0065 = ╱54╱T╱ // 0x4c9 @0x65
0x0464…04d6 at0066 = ╱ed╱(╱ // 0x4ca @0x66
0x0464…04d6 at0067 = ╱4a╱J╱ // 0x4cb @0x67
0x0464…04d6 at0068 = ╱34╱4╱ // 0x4cc @0x68
0x0464…04d6 at0069 = ╱ec╱,╱ // 0x4cd @0x69
0x0464…04d6 at006a = ╱32╱2╱ // 0x4ce @0x6a
0x0464…04d6 at006b = ╱fe00008002╱ // 0x4cf @0x6b
0x0464…04d6 at0070 = ╱ee╱)╱ // 0x4d4 @0x70
0x0464…04d6 at0071 = EOL // 0x4d5 @0x71
0x0464…04d6 }
0x04d6…04f4 8c41 0340 EXEC FEJL(1,1,K10$)
0x04d6…04f4 LineComalBcd {
0x04d6…04f4 ptr = 0x8c41 // 0x4d6 @0x0
0x04d6…04f4 lno = 0x0340 // 0x4d8 @0x2
0x04d6…04f4 at0004 = ╱9d╱ EXEC ╱ // 0x4da @0x4
0x04d6…04f4 at0005 = ╱46╱F╱ // 0x4db @0x5
0x04d6…04f4 at0006 = ╱45╱E╱ // 0x4dc @0x6
0x04d6…04f4 at0007 = ╱4a╱J╱ // 0x4dd @0x7
0x04d6…04f4 at0008 = ╱4c╱L╱ // 0x4de @0x8
0x04d6…04f4 at0009 = ╱ed╱(╱ // 0x4df @0x9
0x04d6…04f4 at000a = ╱31╱1╱ // 0x4e0 @0xa
0x04d6…04f4 at000b = ╱fe00008001╱ // 0x4e1 @0xb
0x04d6…04f4 at0010 = ╱ec╱,╱ // 0x4e6 @0x10
0x04d6…04f4 at0011 = ╱31╱1╱ // 0x4e7 @0x11
0x04d6…04f4 at0012 = ╱fe00008001╱ // 0x4e8 @0x12
0x04d6…04f4 at0017 = ╱ec╱,╱ // 0x4ed @0x17
0x04d6…04f4 at0018 = ╱4b╱K╱ // 0x4ee @0x18
0x04d6…04f4 at0019 = ╱31╱1╱ // 0x4ef @0x19
0x04d6…04f4 at001a = ╱30╱0╱ // 0x4f0 @0x1a
0x04d6…04f4 at001b = ╱ef╱$╱ // 0x4f1 @0x1b
0x04d6…04f4 at001c = ╱ee╱)╱ // 0x4f2 @0x1c
0x04d6…04f4 at001d = EOL // 0x4f3 @0x1d
0x04d6…04f4 }
0x04f4…04fb 8c48 0350 NEXT I
0x04f4…04fb LineComalBcd {
0x04f4…04fb ptr = 0x8c48 // 0x4f4 @0x0
0x04f4…04fb lno = 0x0350 // 0x4f6 @0x2
0x04f4…04fb at0004 = ╱84╱ NEXT ╱ // 0x4f8 @0x4
0x04f4…04fb at0005 = ╱49╱I╱ // 0x4f9 @0x5
0x04f4…04fb at0006 = EOL // 0x4fa @0x6
0x04f4…04fb }
0x04fb…0501 8c4e 0360 ENDPROC
0x04fb…0501 LineComalBcd {
0x04fb…0501 ptr = 0x8c4e // 0x4fb @0x0
0x04fb…0501 lno = 0x0360 // 0x4fd @0x2
0x04fb…0501 at0004 = ╱9f╱ ENDPROC ╱ // 0x4ff @0x4
0x04fb…0501 at0005 = EOL // 0x500 @0x5
0x04fb…0501 }
0x0501…051a 8c67 0370 PROC UDTAB(U,MANTAL1,K9)
0x0501…051a LineComalBcd {
0x0501…051a ptr = 0x8c67 // 0x501 @0x0
0x0501…051a lno = 0x0370 // 0x503 @0x2
0x0501…051a at0004 = ╱9e╱ PROC ╱ // 0x505 @0x4
0x0501…051a at0005 = ╱55╱U╱ // 0x506 @0x5
0x0501…051a at0006 = ╱44╱D╱ // 0x507 @0x6
0x0501…051a at0007 = ╱54╱T╱ // 0x508 @0x7
0x0501…051a at0008 = ╱41╱A╱ // 0x509 @0x8
0x0501…051a at0009 = ╱42╱B╱ // 0x50a @0x9
0x0501…051a at000a = ╱ed╱(╱ // 0x50b @0xa
0x0501…051a at000b = ╱55╱U╱ // 0x50c @0xb
0x0501…051a at000c = ╱ec╱,╱ // 0x50d @0xc
0x0501…051a at000d = ╱4d╱M╱ // 0x50e @0xd
0x0501…051a at000e = ╱41╱A╱ // 0x50f @0xe
0x0501…051a at000f = ╱4e╱N╱ // 0x510 @0xf
0x0501…051a at0010 = ╱54╱T╱ // 0x511 @0x10
0x0501…051a at0011 = ╱41╱A╱ // 0x512 @0x11
0x0501…051a at0012 = ╱4c╱L╱ // 0x513 @0x12
0x0501…051a at0013 = ╱31╱1╱ // 0x514 @0x13
0x0501…051a at0014 = ╱ec╱,╱ // 0x515 @0x14
0x0501…051a at0015 = ╱4b╱K╱ // 0x516 @0x15
0x0501…051a at0016 = ╱39╱9╱ // 0x517 @0x16
0x0501…051a at0017 = ╱ee╱)╱ // 0x518 @0x17
0x0501…051a at0018 = EOL // 0x519 @0x18
0x0501…051a }
0x051a…0537 8c84 0380 J=MANTAL1 DIV 32+1
0x051a…0537 LineComalBcd {
0x051a…0537 ptr = 0x8c84 // 0x51a @0x0
0x051a…0537 lno = 0x0380 // 0x51c @0x2
0x051a…0537 at0004 = ╱4a╱J╱ // 0x51e @0x4
0x051a…0537 at0005 = ╱dc╱=╱ // 0x51f @0x5
0x051a…0537 at0006 = ╱4d╱M╱ // 0x520 @0x6
0x051a…0537 at0007 = ╱41╱A╱ // 0x521 @0x7
0x051a…0537 at0008 = ╱4e╱N╱ // 0x522 @0x8
0x051a…0537 at0009 = ╱54╱T╱ // 0x523 @0x9
0x051a…0537 at000a = ╱41╱A╱ // 0x524 @0xa
0x051a…0537 at000b = ╱4c╱L╱ // 0x525 @0xb
0x051a…0537 at000c = ╱31╱1╱ // 0x526 @0xc
0x051a…0537 at000d = ╱e7╱ DIV ╱ // 0x527 @0xd
0x051a…0537 at000e = ╱33╱3╱ // 0x528 @0xe
0x051a…0537 at000f = ╱32╱2╱ // 0x529 @0xf
0x051a…0537 at0010 = ╱fe00008006╱ // 0x52a @0x10
0x051a…0537 at0015 = ╱e2╱+╱ // 0x52f @0x15
0x051a…0537 at0016 = ╱31╱1╱ // 0x530 @0x16
0x051a…0537 at0017 = ╱fe00008001╱ // 0x531 @0x17
0x051a…0537 at001c = EOL // 0x536 @0x1c
0x051a…0537 }
0x0537…054e 8c9b 0390 FOR I=1 TO J-1
0x0537…054e LineComalBcd {
0x0537…054e ptr = 0x8c9b // 0x537 @0x0
0x0537…054e lno = 0x0390 // 0x539 @0x2
0x0537…054e at0004 = ╱83╱ FOR ╱ // 0x53b @0x4
0x0537…054e at0005 = ╱49╱I╱ // 0x53c @0x5
0x0537…054e at0006 = ╱dc╱=╱ // 0x53d @0x6
0x0537…054e at0007 = ╱31╱1╱ // 0x53e @0x7
0x0537…054e at0008 = ╱fe00008001╱ // 0x53f @0x8
0x0537…054e at000d = ╱b7╱ TO ╱ // 0x544 @0xd
0x0537…054e at000e = ╱4a╱J╱ // 0x545 @0xe
0x0537…054e at000f = ╱e3╱-╱ // 0x546 @0xf
0x0537…054e at0010 = ╱31╱1╱ // 0x547 @0x10
0x0537…054e at0011 = ╱fe00008001╱ // 0x548 @0x11
0x0537…054e at0016 = EOL // 0x54d @0x16
0x0537…054e }
0x054e…05c7 8d14 0400 H=(I-1)*32+1;J1=H+4;J2=H+8;J3=H+12;J4=H+16;J5=H+20;J6=H+24;J7=H+28
0x054e…05c7 LineComalBcd {
0x054e…05c7 ptr = 0x8d14 // 0x54e @0x0
0x054e…05c7 lno = 0x0400 // 0x550 @0x2
0x054e…05c7 at0004 = ╱48╱H╱ // 0x552 @0x4
0x054e…05c7 at0005 = ╱dc╱=╱ // 0x553 @0x5
0x054e…05c7 at0006 = ╱ed╱(╱ // 0x554 @0x6
0x054e…05c7 at0007 = ╱49╱I╱ // 0x555 @0x7
0x054e…05c7 at0008 = ╱e3╱-╱ // 0x556 @0x8
0x054e…05c7 at0009 = ╱31╱1╱ // 0x557 @0x9
0x054e…05c7 at000a = ╱fe00008001╱ // 0x558 @0xa
0x054e…05c7 at000f = ╱ee╱)╱ // 0x55d @0xf
0x054e…05c7 at0010 = ╱e4╱*╱ // 0x55e @0x10
0x054e…05c7 at0011 = ╱33╱3╱ // 0x55f @0x11
0x054e…05c7 at0012 = ╱32╱2╱ // 0x560 @0x12
0x054e…05c7 at0013 = ╱fe00008006╱ // 0x561 @0x13
0x054e…05c7 at0018 = ╱e2╱+╱ // 0x566 @0x18
0x054e…05c7 at0019 = ╱31╱1╱ // 0x567 @0x19
0x054e…05c7 at001a = ╱fe00008001╱ // 0x568 @0x1a
0x054e…05c7 at001f = ╱eb╱;╱ // 0x56d @0x1f
0x054e…05c7 at0020 = ╱4a╱J╱ // 0x56e @0x20
0x054e…05c7 at0021 = ╱31╱1╱ // 0x56f @0x21
0x054e…05c7 at0022 = ╱dc╱=╱ // 0x570 @0x22
0x054e…05c7 at0023 = ╱48╱H╱ // 0x571 @0x23
0x054e…05c7 at0024 = ╱e2╱+╱ // 0x572 @0x24
0x054e…05c7 at0025 = ╱34╱4╱ // 0x573 @0x25
0x054e…05c7 at0026 = ╱fe00008003╱ // 0x574 @0x26
0x054e…05c7 at002b = ╱eb╱;╱ // 0x579 @0x2b
0x054e…05c7 at002c = ╱4a╱J╱ // 0x57a @0x2c
0x054e…05c7 at002d = ╱32╱2╱ // 0x57b @0x2d
0x054e…05c7 at002e = ╱dc╱=╱ // 0x57c @0x2e
0x054e…05c7 at002f = ╱48╱H╱ // 0x57d @0x2f
0x054e…05c7 at0030 = ╱e2╱+╱ // 0x57e @0x30
0x054e…05c7 at0031 = ╱38╱8╱ // 0x57f @0x31
0x054e…05c7 at0032 = ╱fe00008004╱ // 0x580 @0x32
0x054e…05c7 at0037 = ╱eb╱;╱ // 0x585 @0x37
0x054e…05c7 at0038 = ╱4a╱J╱ // 0x586 @0x38
0x054e…05c7 at0039 = ╱33╱3╱ // 0x587 @0x39
0x054e…05c7 at003a = ╱dc╱=╱ // 0x588 @0x3a
0x054e…05c7 at003b = ╱48╱H╱ // 0x589 @0x3b
0x054e…05c7 at003c = ╱e2╱+╱ // 0x58a @0x3c
0x054e…05c7 at003d = ╱31╱1╱ // 0x58b @0x3d
0x054e…05c7 at003e = ╱32╱2╱ // 0x58c @0x3e
0x054e…05c7 at003f = ╱fe0000c004╱ // 0x58d @0x3f
0x054e…05c7 at0044 = ╱eb╱;╱ // 0x592 @0x44
0x054e…05c7 at0045 = ╱4a╱J╱ // 0x593 @0x45
0x054e…05c7 at0046 = ╱34╱4╱ // 0x594 @0x46
0x054e…05c7 at0047 = ╱dc╱=╱ // 0x595 @0x47
0x054e…05c7 at0048 = ╱48╱H╱ // 0x596 @0x48
0x054e…05c7 at0049 = ╱e2╱+╱ // 0x597 @0x49
0x054e…05c7 at004a = ╱31╱1╱ // 0x598 @0x4a
0x054e…05c7 at004b = ╱36╱6╱ // 0x599 @0x4b
0x054e…05c7 at004c = ╱fe00008005╱ // 0x59a @0x4c
0x054e…05c7 at0051 = ╱eb╱;╱ // 0x59f @0x51
0x054e…05c7 at0052 = ╱4a╱J╱ // 0x5a0 @0x52
0x054e…05c7 at0053 = ╱35╱5╱ // 0x5a1 @0x53
0x054e…05c7 at0054 = ╱dc╱=╱ // 0x5a2 @0x54
0x054e…05c7 at0055 = ╱48╱H╱ // 0x5a3 @0x55
0x054e…05c7 at0056 = ╱e2╱+╱ // 0x5a4 @0x56
0x054e…05c7 at0057 = ╱32╱2╱ // 0x5a5 @0x57
0x054e…05c7 at0058 = ╱30╱0╱ // 0x5a6 @0x58
0x054e…05c7 at0059 = ╱fe0000a005╱ // 0x5a7 @0x59
0x054e…05c7 at005e = ╱eb╱;╱ // 0x5ac @0x5e
0x054e…05c7 at005f = ╱4a╱J╱ // 0x5ad @0x5f
0x054e…05c7 at0060 = ╱36╱6╱ // 0x5ae @0x60
0x054e…05c7 at0061 = ╱dc╱=╱ // 0x5af @0x61
0x054e…05c7 at0062 = ╱48╱H╱ // 0x5b0 @0x62
0x054e…05c7 at0063 = ╱e2╱+╱ // 0x5b1 @0x63
0x054e…05c7 at0064 = ╱32╱2╱ // 0x5b2 @0x64
0x054e…05c7 at0065 = ╱34╱4╱ // 0x5b3 @0x65
0x054e…05c7 at0066 = ╱fe0000c005╱ // 0x5b4 @0x66
0x054e…05c7 at006b = ╱eb╱;╱ // 0x5b9 @0x6b
0x054e…05c7 at006c = ╱4a╱J╱ // 0x5ba @0x6c
0x054e…05c7 at006d = ╱37╱7╱ // 0x5bb @0x6d
0x054e…05c7 at006e = ╱dc╱=╱ // 0x5bc @0x6e
0x054e…05c7 at006f = ╱48╱H╱ // 0x5bd @0x6f
0x054e…05c7 at0070 = ╱e2╱+╱ // 0x5be @0x70
0x054e…05c7 at0071 = ╱32╱2╱ // 0x5bf @0x71
0x054e…05c7 at0072 = ╱38╱8╱ // 0x5c0 @0x72
0x054e…05c7 at0073 = ╱fe0000e005╱ // 0x5c1 @0x73
0x054e…05c7 at0078 = EOL // 0x5c6 @0x78
0x054e…05c7 }
0x05c7…0639 8d86 0410 PUT K9$,I:U(H,1),U(J1,1),U(J2,1),U(J3,1),U(J4,1),U(J5,1),U(J6,1),U(J7,1)
0x05c7…0639 LineComalBcd {
0x05c7…0639 ptr = 0x8d86 // 0x5c7 @0x0
0x05c7…0639 lno = 0x0410 // 0x5c9 @0x2
0x05c7…0639 at0004 = ╱aa╱ PUT ╱ // 0x5cb @0x4
0x05c7…0639 at0005 = ╱4b╱K╱ // 0x5cc @0x5
0x05c7…0639 at0006 = ╱39╱9╱ // 0x5cd @0x6
0x05c7…0639 at0007 = ╱ef╱$╱ // 0x5ce @0x7
0x05c7…0639 at0008 = ╱ec╱,╱ // 0x5cf @0x8
0x05c7…0639 at0009 = ╱49╱I╱ // 0x5d0 @0x9
0x05c7…0639 at000a = ╱f0╱:╱ // 0x5d1 @0xa
0x05c7…0639 at000b = ╱55╱U╱ // 0x5d2 @0xb
0x05c7…0639 at000c = ╱ed╱(╱ // 0x5d3 @0xc
0x05c7…0639 at000d = ╱48╱H╱ // 0x5d4 @0xd
0x05c7…0639 at000e = ╱ec╱,╱ // 0x5d5 @0xe
0x05c7…0639 at000f = ╱31╱1╱ // 0x5d6 @0xf
0x05c7…0639 at0010 = ╱fe00008001╱ // 0x5d7 @0x10
0x05c7…0639 at0015 = ╱ee╱)╱ // 0x5dc @0x15
0x05c7…0639 at0016 = ╱ec╱,╱ // 0x5dd @0x16
0x05c7…0639 at0017 = ╱55╱U╱ // 0x5de @0x17
0x05c7…0639 at0018 = ╱ed╱(╱ // 0x5df @0x18
0x05c7…0639 at0019 = ╱4a╱J╱ // 0x5e0 @0x19
0x05c7…0639 at001a = ╱31╱1╱ // 0x5e1 @0x1a
0x05c7…0639 at001b = ╱ec╱,╱ // 0x5e2 @0x1b
0x05c7…0639 at001c = ╱31╱1╱ // 0x5e3 @0x1c
0x05c7…0639 at001d = ╱fe00008001╱ // 0x5e4 @0x1d
0x05c7…0639 at0022 = ╱ee╱)╱ // 0x5e9 @0x22
0x05c7…0639 at0023 = ╱ec╱,╱ // 0x5ea @0x23
0x05c7…0639 at0024 = ╱55╱U╱ // 0x5eb @0x24
0x05c7…0639 at0025 = ╱ed╱(╱ // 0x5ec @0x25
0x05c7…0639 at0026 = ╱4a╱J╱ // 0x5ed @0x26
0x05c7…0639 at0027 = ╱32╱2╱ // 0x5ee @0x27
0x05c7…0639 at0028 = ╱ec╱,╱ // 0x5ef @0x28
0x05c7…0639 at0029 = ╱31╱1╱ // 0x5f0 @0x29
0x05c7…0639 at002a = ╱fe00008001╱ // 0x5f1 @0x2a
0x05c7…0639 at002f = ╱ee╱)╱ // 0x5f6 @0x2f
0x05c7…0639 at0030 = ╱ec╱,╱ // 0x5f7 @0x30
0x05c7…0639 at0031 = ╱55╱U╱ // 0x5f8 @0x31
0x05c7…0639 at0032 = ╱ed╱(╱ // 0x5f9 @0x32
0x05c7…0639 at0033 = ╱4a╱J╱ // 0x5fa @0x33
0x05c7…0639 at0034 = ╱33╱3╱ // 0x5fb @0x34
0x05c7…0639 at0035 = ╱ec╱,╱ // 0x5fc @0x35
0x05c7…0639 at0036 = ╱31╱1╱ // 0x5fd @0x36
0x05c7…0639 at0037 = ╱fe00008001╱ // 0x5fe @0x37
0x05c7…0639 at003c = ╱ee╱)╱ // 0x603 @0x3c
0x05c7…0639 at003d = ╱ec╱,╱ // 0x604 @0x3d
0x05c7…0639 at003e = ╱55╱U╱ // 0x605 @0x3e
0x05c7…0639 at003f = ╱ed╱(╱ // 0x606 @0x3f
0x05c7…0639 at0040 = ╱4a╱J╱ // 0x607 @0x40
0x05c7…0639 at0041 = ╱34╱4╱ // 0x608 @0x41
0x05c7…0639 at0042 = ╱ec╱,╱ // 0x609 @0x42
0x05c7…0639 at0043 = ╱31╱1╱ // 0x60a @0x43
0x05c7…0639 at0044 = ╱fe00008001╱ // 0x60b @0x44
0x05c7…0639 at0049 = ╱ee╱)╱ // 0x610 @0x49
0x05c7…0639 at004a = ╱ec╱,╱ // 0x611 @0x4a
0x05c7…0639 at004b = ╱55╱U╱ // 0x612 @0x4b
0x05c7…0639 at004c = ╱ed╱(╱ // 0x613 @0x4c
0x05c7…0639 at004d = ╱4a╱J╱ // 0x614 @0x4d
0x05c7…0639 at004e = ╱35╱5╱ // 0x615 @0x4e
0x05c7…0639 at004f = ╱ec╱,╱ // 0x616 @0x4f
0x05c7…0639 at0050 = ╱31╱1╱ // 0x617 @0x50
0x05c7…0639 at0051 = ╱fe00008001╱ // 0x618 @0x51
0x05c7…0639 at0056 = ╱ee╱)╱ // 0x61d @0x56
0x05c7…0639 at0057 = ╱ec╱,╱ // 0x61e @0x57
0x05c7…0639 at0058 = ╱55╱U╱ // 0x61f @0x58
0x05c7…0639 at0059 = ╱ed╱(╱ // 0x620 @0x59
0x05c7…0639 at005a = ╱4a╱J╱ // 0x621 @0x5a
0x05c7…0639 at005b = ╱36╱6╱ // 0x622 @0x5b
0x05c7…0639 at005c = ╱ec╱,╱ // 0x623 @0x5c
0x05c7…0639 at005d = ╱31╱1╱ // 0x624 @0x5d
0x05c7…0639 at005e = ╱fe00008001╱ // 0x625 @0x5e
0x05c7…0639 at0063 = ╱ee╱)╱ // 0x62a @0x63
0x05c7…0639 at0064 = ╱ec╱,╱ // 0x62b @0x64
0x05c7…0639 at0065 = ╱55╱U╱ // 0x62c @0x65
0x05c7…0639 at0066 = ╱ed╱(╱ // 0x62d @0x66
0x05c7…0639 at0067 = ╱4a╱J╱ // 0x62e @0x67
0x05c7…0639 at0068 = ╱37╱7╱ // 0x62f @0x68
0x05c7…0639 at0069 = ╱ec╱,╱ // 0x630 @0x69
0x05c7…0639 at006a = ╱31╱1╱ // 0x631 @0x6a
0x05c7…0639 at006b = ╱fe00008001╱ // 0x632 @0x6b
0x05c7…0639 at0070 = ╱ee╱)╱ // 0x637 @0x70
0x05c7…0639 at0071 = EOL // 0x638 @0x71
0x05c7…0639 }
0x0639…0656 8da3 0420 EXEC FEJL(2,1,K9$)
0x0639…0656 LineComalBcd {
0x0639…0656 ptr = 0x8da3 // 0x639 @0x0
0x0639…0656 lno = 0x0420 // 0x63b @0x2
0x0639…0656 at0004 = ╱9d╱ EXEC ╱ // 0x63d @0x4
0x0639…0656 at0005 = ╱46╱F╱ // 0x63e @0x5
0x0639…0656 at0006 = ╱45╱E╱ // 0x63f @0x6
0x0639…0656 at0007 = ╱4a╱J╱ // 0x640 @0x7
0x0639…0656 at0008 = ╱4c╱L╱ // 0x641 @0x8
0x0639…0656 at0009 = ╱ed╱(╱ // 0x642 @0x9
0x0639…0656 at000a = ╱32╱2╱ // 0x643 @0xa
0x0639…0656 at000b = ╱fe00008002╱ // 0x644 @0xb
0x0639…0656 at0010 = ╱ec╱,╱ // 0x649 @0x10
0x0639…0656 at0011 = ╱31╱1╱ // 0x64a @0x11
0x0639…0656 at0012 = ╱fe00008001╱ // 0x64b @0x12
0x0639…0656 at0017 = ╱ec╱,╱ // 0x650 @0x17
0x0639…0656 at0018 = ╱4b╱K╱ // 0x651 @0x18
0x0639…0656 at0019 = ╱39╱9╱ // 0x652 @0x19
0x0639…0656 at001a = ╱ef╱$╱ // 0x653 @0x1a
0x0639…0656 at001b = ╱ee╱)╱ // 0x654 @0x1b
0x0639…0656 at001c = EOL // 0x655 @0x1c
0x0639…0656 }
0x0656…065d 8daa 0430 NEXT I
0x0656…065d LineComalBcd {
0x0656…065d ptr = 0x8daa // 0x656 @0x0
0x0656…065d lno = 0x0430 // 0x658 @0x2
0x0656…065d at0004 = ╱84╱ NEXT ╱ // 0x65a @0x4
0x0656…065d at0005 = ╱49╱I╱ // 0x65b @0x5
0x0656…065d at0006 = EOL // 0x65c @0x6
0x0656…065d }
0x065d…067e 8dcb 0440 FOR I=J TO MANTAL1 DIV 4+J-1
0x065d…067e LineComalBcd {
0x065d…067e ptr = 0x8dcb // 0x65d @0x0
0x065d…067e lno = 0x0440 // 0x65f @0x2
0x065d…067e at0004 = ╱83╱ FOR ╱ // 0x661 @0x4
0x065d…067e at0005 = ╱49╱I╱ // 0x662 @0x5
0x065d…067e at0006 = ╱dc╱=╱ // 0x663 @0x6
0x065d…067e at0007 = ╱4a╱J╱ // 0x664 @0x7
0x065d…067e at0008 = ╱b7╱ TO ╱ // 0x665 @0x8
0x065d…067e at0009 = ╱4d╱M╱ // 0x666 @0x9
0x065d…067e at000a = ╱41╱A╱ // 0x667 @0xa
0x065d…067e at000b = ╱4e╱N╱ // 0x668 @0xb
0x065d…067e at000c = ╱54╱T╱ // 0x669 @0xc
0x065d…067e at000d = ╱41╱A╱ // 0x66a @0xd
0x065d…067e at000e = ╱4c╱L╱ // 0x66b @0xe
0x065d…067e at000f = ╱31╱1╱ // 0x66c @0xf
0x065d…067e at0010 = ╱e7╱ DIV ╱ // 0x66d @0x10
0x065d…067e at0011 = ╱34╱4╱ // 0x66e @0x11
0x065d…067e at0012 = ╱fe00008003╱ // 0x66f @0x12
0x065d…067e at0017 = ╱e2╱+╱ // 0x674 @0x17
0x065d…067e at0018 = ╱4a╱J╱ // 0x675 @0x18
0x065d…067e at0019 = ╱e3╱-╱ // 0x676 @0x19
0x065d…067e at001a = ╱31╱1╱ // 0x677 @0x1a
0x065d…067e at001b = ╱fe00008001╱ // 0x678 @0x1b
0x065d…067e at0020 = EOL // 0x67d @0x20
0x065d…067e }
0x067e…06bc 8e09 0450 H=(I-J)*4+1;J1=H+1;J2=H+2;J3=H+3
0x067e…06bc LineComalBcd {
0x067e…06bc ptr = 0x8e09 // 0x67e @0x0
0x067e…06bc lno = 0x0450 // 0x680 @0x2
0x067e…06bc at0004 = ╱48╱H╱ // 0x682 @0x4
0x067e…06bc at0005 = ╱dc╱=╱ // 0x683 @0x5
0x067e…06bc at0006 = ╱ed╱(╱ // 0x684 @0x6
0x067e…06bc at0007 = ╱49╱I╱ // 0x685 @0x7
0x067e…06bc at0008 = ╱e3╱-╱ // 0x686 @0x8
0x067e…06bc at0009 = ╱4a╱J╱ // 0x687 @0x9
0x067e…06bc at000a = ╱ee╱)╱ // 0x688 @0xa
0x067e…06bc at000b = ╱e4╱*╱ // 0x689 @0xb
0x067e…06bc at000c = ╱34╱4╱ // 0x68a @0xc
0x067e…06bc at000d = ╱fe00008003╱ // 0x68b @0xd
0x067e…06bc at0012 = ╱e2╱+╱ // 0x690 @0x12
0x067e…06bc at0013 = ╱31╱1╱ // 0x691 @0x13
0x067e…06bc at0014 = ╱fe00008001╱ // 0x692 @0x14
0x067e…06bc at0019 = ╱eb╱;╱ // 0x697 @0x19
0x067e…06bc at001a = ╱4a╱J╱ // 0x698 @0x1a
0x067e…06bc at001b = ╱31╱1╱ // 0x699 @0x1b
0x067e…06bc at001c = ╱dc╱=╱ // 0x69a @0x1c
0x067e…06bc at001d = ╱48╱H╱ // 0x69b @0x1d
0x067e…06bc at001e = ╱e2╱+╱ // 0x69c @0x1e
0x067e…06bc at001f = ╱31╱1╱ // 0x69d @0x1f
0x067e…06bc at0020 = ╱fe00008001╱ // 0x69e @0x20
0x067e…06bc at0025 = ╱eb╱;╱ // 0x6a3 @0x25
0x067e…06bc at0026 = ╱4a╱J╱ // 0x6a4 @0x26
0x067e…06bc at0027 = ╱32╱2╱ // 0x6a5 @0x27
0x067e…06bc at0028 = ╱dc╱=╱ // 0x6a6 @0x28
0x067e…06bc at0029 = ╱48╱H╱ // 0x6a7 @0x29
0x067e…06bc at002a = ╱e2╱+╱ // 0x6a8 @0x2a
0x067e…06bc at002b = ╱32╱2╱ // 0x6a9 @0x2b
0x067e…06bc at002c = ╱fe00008002╱ // 0x6aa @0x2c
0x067e…06bc at0031 = ╱eb╱;╱ // 0x6af @0x31
0x067e…06bc at0032 = ╱4a╱J╱ // 0x6b0 @0x32
0x067e…06bc at0033 = ╱33╱3╱ // 0x6b1 @0x33
0x067e…06bc at0034 = ╱dc╱=╱ // 0x6b2 @0x34
0x067e…06bc at0035 = ╱48╱H╱ // 0x6b3 @0x35
0x067e…06bc at0036 = ╱e2╱+╱ // 0x6b4 @0x36
0x067e…06bc at0037 = ╱33╱3╱ // 0x6b5 @0x37
0x067e…06bc at0038 = ╱fe0000c002╱ // 0x6b6 @0x38
0x067e…06bc at003d = EOL // 0x6bb @0x3d
0x067e…06bc }
0x06bc…072d 8e7a 0460 PUT K9$,I:U(H,1),U(H,2),U(J1,1),U(J1,2),U(J2,1),U(J2,2),U(J3,1),U(J3,2)
0x06bc…072d LineComalBcd {
0x06bc…072d ptr = 0x8e7a // 0x6bc @0x0
0x06bc…072d lno = 0x0460 // 0x6be @0x2
0x06bc…072d at0004 = ╱aa╱ PUT ╱ // 0x6c0 @0x4
0x06bc…072d at0005 = ╱4b╱K╱ // 0x6c1 @0x5
0x06bc…072d at0006 = ╱39╱9╱ // 0x6c2 @0x6
0x06bc…072d at0007 = ╱ef╱$╱ // 0x6c3 @0x7
0x06bc…072d at0008 = ╱ec╱,╱ // 0x6c4 @0x8
0x06bc…072d at0009 = ╱49╱I╱ // 0x6c5 @0x9
0x06bc…072d at000a = ╱f0╱:╱ // 0x6c6 @0xa
0x06bc…072d at000b = ╱55╱U╱ // 0x6c7 @0xb
0x06bc…072d at000c = ╱ed╱(╱ // 0x6c8 @0xc
0x06bc…072d at000d = ╱48╱H╱ // 0x6c9 @0xd
0x06bc…072d at000e = ╱ec╱,╱ // 0x6ca @0xe
0x06bc…072d at000f = ╱31╱1╱ // 0x6cb @0xf
0x06bc…072d at0010 = ╱fe00008001╱ // 0x6cc @0x10
0x06bc…072d at0015 = ╱ee╱)╱ // 0x6d1 @0x15
0x06bc…072d at0016 = ╱ec╱,╱ // 0x6d2 @0x16
0x06bc…072d at0017 = ╱55╱U╱ // 0x6d3 @0x17
0x06bc…072d at0018 = ╱ed╱(╱ // 0x6d4 @0x18
0x06bc…072d at0019 = ╱48╱H╱ // 0x6d5 @0x19
0x06bc…072d at001a = ╱ec╱,╱ // 0x6d6 @0x1a
0x06bc…072d at001b = ╱32╱2╱ // 0x6d7 @0x1b
0x06bc…072d at001c = ╱fe00008002╱ // 0x6d8 @0x1c
0x06bc…072d at0021 = ╱ee╱)╱ // 0x6dd @0x21
0x06bc…072d at0022 = ╱ec╱,╱ // 0x6de @0x22
0x06bc…072d at0023 = ╱55╱U╱ // 0x6df @0x23
0x06bc…072d at0024 = ╱ed╱(╱ // 0x6e0 @0x24
0x06bc…072d at0025 = ╱4a╱J╱ // 0x6e1 @0x25
0x06bc…072d at0026 = ╱31╱1╱ // 0x6e2 @0x26
0x06bc…072d at0027 = ╱ec╱,╱ // 0x6e3 @0x27
0x06bc…072d at0028 = ╱31╱1╱ // 0x6e4 @0x28
0x06bc…072d at0029 = ╱fe00008001╱ // 0x6e5 @0x29
0x06bc…072d at002e = ╱ee╱)╱ // 0x6ea @0x2e
0x06bc…072d at002f = ╱ec╱,╱ // 0x6eb @0x2f
0x06bc…072d at0030 = ╱55╱U╱ // 0x6ec @0x30
0x06bc…072d at0031 = ╱ed╱(╱ // 0x6ed @0x31
0x06bc…072d at0032 = ╱4a╱J╱ // 0x6ee @0x32
0x06bc…072d at0033 = ╱31╱1╱ // 0x6ef @0x33
0x06bc…072d at0034 = ╱ec╱,╱ // 0x6f0 @0x34
0x06bc…072d at0035 = ╱32╱2╱ // 0x6f1 @0x35
0x06bc…072d at0036 = ╱fe00008002╱ // 0x6f2 @0x36
0x06bc…072d at003b = ╱ee╱)╱ // 0x6f7 @0x3b
0x06bc…072d at003c = ╱ec╱,╱ // 0x6f8 @0x3c
0x06bc…072d at003d = ╱55╱U╱ // 0x6f9 @0x3d
0x06bc…072d at003e = ╱ed╱(╱ // 0x6fa @0x3e
0x06bc…072d at003f = ╱4a╱J╱ // 0x6fb @0x3f
0x06bc…072d at0040 = ╱32╱2╱ // 0x6fc @0x40
0x06bc…072d at0041 = ╱ec╱,╱ // 0x6fd @0x41
0x06bc…072d at0042 = ╱31╱1╱ // 0x6fe @0x42
0x06bc…072d at0043 = ╱fe00008001╱ // 0x6ff @0x43
0x06bc…072d at0048 = ╱ee╱)╱ // 0x704 @0x48
0x06bc…072d at0049 = ╱ec╱,╱ // 0x705 @0x49
0x06bc…072d at004a = ╱55╱U╱ // 0x706 @0x4a
0x06bc…072d at004b = ╱ed╱(╱ // 0x707 @0x4b
0x06bc…072d at004c = ╱4a╱J╱ // 0x708 @0x4c
0x06bc…072d at004d = ╱32╱2╱ // 0x709 @0x4d
0x06bc…072d at004e = ╱ec╱,╱ // 0x70a @0x4e
0x06bc…072d at004f = ╱32╱2╱ // 0x70b @0x4f
0x06bc…072d at0050 = ╱fe00008002╱ // 0x70c @0x50
0x06bc…072d at0055 = ╱ee╱)╱ // 0x711 @0x55
0x06bc…072d at0056 = ╱ec╱,╱ // 0x712 @0x56
0x06bc…072d at0057 = ╱55╱U╱ // 0x713 @0x57
0x06bc…072d at0058 = ╱ed╱(╱ // 0x714 @0x58
0x06bc…072d at0059 = ╱4a╱J╱ // 0x715 @0x59
0x06bc…072d at005a = ╱33╱3╱ // 0x716 @0x5a
0x06bc…072d at005b = ╱ec╱,╱ // 0x717 @0x5b
0x06bc…072d at005c = ╱31╱1╱ // 0x718 @0x5c
0x06bc…072d at005d = ╱fe00008001╱ // 0x719 @0x5d
0x06bc…072d at0062 = ╱ee╱)╱ // 0x71e @0x62
0x06bc…072d at0063 = ╱ec╱,╱ // 0x71f @0x63
0x06bc…072d at0064 = ╱55╱U╱ // 0x720 @0x64
0x06bc…072d at0065 = ╱ed╱(╱ // 0x721 @0x65
0x06bc…072d at0066 = ╱4a╱J╱ // 0x722 @0x66
0x06bc…072d at0067 = ╱33╱3╱ // 0x723 @0x67
0x06bc…072d at0068 = ╱ec╱,╱ // 0x724 @0x68
0x06bc…072d at0069 = ╱32╱2╱ // 0x725 @0x69
0x06bc…072d at006a = ╱fe00008002╱ // 0x726 @0x6a
0x06bc…072d at006f = ╱ee╱)╱ // 0x72b @0x6f
0x06bc…072d at0070 = EOL // 0x72c @0x70
0x06bc…072d }
0x072d…074a 8e97 0470 EXEC FEJL(2,2,K9$)
0x072d…074a LineComalBcd {
0x072d…074a ptr = 0x8e97 // 0x72d @0x0
0x072d…074a lno = 0x0470 // 0x72f @0x2
0x072d…074a at0004 = ╱9d╱ EXEC ╱ // 0x731 @0x4
0x072d…074a at0005 = ╱46╱F╱ // 0x732 @0x5
0x072d…074a at0006 = ╱45╱E╱ // 0x733 @0x6
0x072d…074a at0007 = ╱4a╱J╱ // 0x734 @0x7
0x072d…074a at0008 = ╱4c╱L╱ // 0x735 @0x8
0x072d…074a at0009 = ╱ed╱(╱ // 0x736 @0x9
0x072d…074a at000a = ╱32╱2╱ // 0x737 @0xa
0x072d…074a at000b = ╱fe00008002╱ // 0x738 @0xb
0x072d…074a at0010 = ╱ec╱,╱ // 0x73d @0x10
0x072d…074a at0011 = ╱32╱2╱ // 0x73e @0x11
0x072d…074a at0012 = ╱fe00008002╱ // 0x73f @0x12
0x072d…074a at0017 = ╱ec╱,╱ // 0x744 @0x17
0x072d…074a at0018 = ╱4b╱K╱ // 0x745 @0x18
0x072d…074a at0019 = ╱39╱9╱ // 0x746 @0x19
0x072d…074a at001a = ╱ef╱$╱ // 0x747 @0x1a
0x072d…074a at001b = ╱ee╱)╱ // 0x748 @0x1b
0x072d…074a at001c = EOL // 0x749 @0x1c
0x072d…074a }
0x074a…0751 8e9e 0480 NEXT I
0x074a…0751 LineComalBcd {
0x074a…0751 ptr = 0x8e9e // 0x74a @0x0
0x074a…0751 lno = 0x0480 // 0x74c @0x2
0x074a…0751 at0004 = ╱84╱ NEXT ╱ // 0x74e @0x4
0x074a…0751 at0005 = ╱49╱I╱ // 0x74f @0x5
0x074a…0751 at0006 = EOL // 0x750 @0x6
0x074a…0751 }
0x0751…0757 8ea4 0490 ENDPROC
0x0751…0757 LineComalBcd {
0x0751…0757 ptr = 0x8ea4 // 0x751 @0x0
0x0751…0757 lno = 0x0490 // 0x753 @0x2
0x0751…0757 at0004 = ╱9f╱ ENDPROC ╱ // 0x755 @0x4
0x0751…0757 at0005 = EOL // 0x756 @0x5
0x0751…0757 }
0x0757…077c 8ec9 0500 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)
0x0757…077c LineComalBcd {
0x0757…077c ptr = 0x8ec9 // 0x757 @0x0
0x0757…077c lno = 0x0500 // 0x759 @0x2
0x0757…077c at0004 = ╱9e╱ PROC ╱ // 0x75b @0x4
0x0757…077c at0005 = ╱46╱F╱ // 0x75c @0x5
0x0757…077c at0006 = ╱49╱I╱ // 0x75d @0x6
0x0757…077c at0007 = ╱4e╱N╱ // 0x75e @0x7
0x0757…077c at0008 = ╱44╱D╱ // 0x75f @0x8
0x0757…077c at0009 = ╱50╱P╱ // 0x760 @0x9
0x0757…077c at000a = ╱4f╱O╱ // 0x761 @0xa
0x0757…077c at000b = ╱53╱S╱ // 0x762 @0xb
0x0757…077c at000c = ╱54╱T╱ // 0x763 @0xc
0x0757…077c at000d = ╱ed╱(╱ // 0x764 @0xd
0x0757…077c at000e = ╱54╱T╱ // 0x765 @0xe
0x0757…077c at000f = ╱41╱A╱ // 0x766 @0xf
0x0757…077c at0010 = ╱42╱B╱ // 0x767 @0x10
0x0757…077c at0011 = ╱31╱1╱ // 0x768 @0x11
0x0757…077c at0012 = ╱ec╱,╱ // 0x769 @0x12
0x0757…077c at0013 = ╱4d╱M╱ // 0x76a @0x13
0x0757…077c at0014 = ╱41╱A╱ // 0x76b @0x14
0x0757…077c at0015 = ╱4e╱N╱ // 0x76c @0x15
0x0757…077c at0016 = ╱54╱T╱ // 0x76d @0x16
0x0757…077c at0017 = ╱31╱1╱ // 0x76e @0x17
0x0757…077c at0018 = ╱ec╱,╱ // 0x76f @0x18
0x0757…077c at0019 = ╱4e╱N╱ // 0x770 @0x19
0x0757…077c at001a = ╱5c╱Ø╱ // 0x771 @0x1a
0x0757…077c at001b = ╱47╱G╱ // 0x772 @0x1b
0x0757…077c at001c = ╱4c╱L╱ // 0x773 @0x1c
0x0757…077c at001d = ╱31╱1╱ // 0x774 @0x1d
0x0757…077c at001e = ╱ec╱,╱ // 0x775 @0x1e
0x0757…077c at001f = ╱50╱P╱ // 0x776 @0x1f
0x0757…077c at0020 = ╱49╱I╱ // 0x777 @0x20
0x0757…077c at0021 = ╱4c╱L╱ // 0x778 @0x21
0x0757…077c at0022 = ╱33╱3╱ // 0x779 @0x22
0x0757…077c at0023 = ╱ee╱)╱ // 0x77a @0x23
0x0757…077c at0024 = EOL // 0x77b @0x24
0x0757…077c }
0x077c…07a8 8ef5 0510 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1
0x077c…07a8 LineComalBcd {
0x077c…07a8 ptr = 0x8ef5 // 0x77c @0x0
0x077c…07a8 lno = 0x0510 // 0x77e @0x2
0x077c…07a8 at0004 = ╱50╱P╱ // 0x780 @0x4
0x077c…07a8 at0005 = ╱49╱I╱ // 0x781 @0x5
0x077c…07a8 at0006 = ╱4c╱L╱ // 0x782 @0x6
0x077c…07a8 at0007 = ╱31╱1╱ // 0x783 @0x7
0x077c…07a8 at0008 = ╱dc╱=╱ // 0x784 @0x8
0x077c…07a8 at0009 = ╱4d╱M╱ // 0x785 @0x9
0x077c…07a8 at000a = ╱41╱A╱ // 0x786 @0xa
0x077c…07a8 at000b = ╱4e╱N╱ // 0x787 @0xb
0x077c…07a8 at000c = ╱54╱T╱ // 0x788 @0xc
0x077c…07a8 at000d = ╱31╱1╱ // 0x789 @0xd
0x077c…07a8 at000e = ╱e7╱ DIV ╱ // 0x78a @0xe
0x077c…07a8 at000f = ╱32╱2╱ // 0x78b @0xf
0x077c…07a8 at0010 = ╱fe00008002╱ // 0x78c @0x10
0x077c…07a8 at0015 = ╱eb╱;╱ // 0x791 @0x15
0x077c…07a8 at0016 = ╱50╱P╱ // 0x792 @0x16
0x077c…07a8 at0017 = ╱49╱I╱ // 0x793 @0x17
0x077c…07a8 at0018 = ╱4c╱L╱ // 0x794 @0x18
0x077c…07a8 at0019 = ╱33╱3╱ // 0x795 @0x19
0x077c…07a8 at001a = ╱dc╱=╱ // 0x796 @0x1a
0x077c…07a8 at001b = ╱50╱P╱ // 0x797 @0x1b
0x077c…07a8 at001c = ╱49╱I╱ // 0x798 @0x1c
0x077c…07a8 at001d = ╱4c╱L╱ // 0x799 @0x1d
0x077c…07a8 at001e = ╱31╱1╱ // 0x79a @0x1e
0x077c…07a8 at001f = ╱eb╱;╱ // 0x79b @0x1f
0x077c…07a8 at0020 = ╱43╱C╱ // 0x79c @0x20
0x077c…07a8 at0021 = ╱45╱E╱ // 0x79d @0x21
0x077c…07a8 at0022 = ╱4b╱K╱ // 0x79e @0x22
0x077c…07a8 at0023 = ╱53╱S╱ // 0x79f @0x23
0x077c…07a8 at0024 = ╱dc╱=╱ // 0x7a0 @0x24
0x077c…07a8 at0025 = ╱31╱1╱ // 0x7a1 @0x25
0x077c…07a8 at0026 = ╱fe00008001╱ // 0x7a2 @0x26
0x077c…07a8 at002b = EOL // 0x7a7 @0x2b
0x077c…07a8 }
0x07a8…07ae 8efb 0520 REPEAT
0x07a8…07ae LineComalBcd {
0x07a8…07ae ptr = 0x8efb // 0x7a8 @0x0
0x07a8…07ae lno = 0x0520 // 0x7aa @0x2
0x07a8…07ae at0004 = ╱97╱ REPEAT ╱ // 0x7ac @0x4
0x07a8…07ae at0005 = EOL // 0x7ad @0x5
0x07a8…07ae }
0x07ae…07cc 8f19 0530 IF NØGL1=TAB1(PIL3,1) THEN
0x07ae…07cc LineComalBcd {
0x07ae…07cc ptr = 0x8f19 // 0x7ae @0x0
0x07ae…07cc lno = 0x0530 // 0x7b0 @0x2
0x07ae…07cc at0004 = ╱9c╱ IF ╱ // 0x7b2 @0x4
0x07ae…07cc at0005 = ╱4e╱N╱ // 0x7b3 @0x5
0x07ae…07cc at0006 = ╱5c╱Ø╱ // 0x7b4 @0x6
0x07ae…07cc at0007 = ╱47╱G╱ // 0x7b5 @0x7
0x07ae…07cc at0008 = ╱4c╱L╱ // 0x7b6 @0x8
0x07ae…07cc at0009 = ╱31╱1╱ // 0x7b7 @0x9
0x07ae…07cc at000a = ╱dc╱=╱ // 0x7b8 @0xa
0x07ae…07cc at000b = ╱54╱T╱ // 0x7b9 @0xb
0x07ae…07cc at000c = ╱41╱A╱ // 0x7ba @0xc
0x07ae…07cc at000d = ╱42╱B╱ // 0x7bb @0xd
0x07ae…07cc at000e = ╱31╱1╱ // 0x7bc @0xe
0x07ae…07cc at000f = ╱ed╱(╱ // 0x7bd @0xf
0x07ae…07cc at0010 = ╱50╱P╱ // 0x7be @0x10
0x07ae…07cc at0011 = ╱49╱I╱ // 0x7bf @0x11
0x07ae…07cc at0012 = ╱4c╱L╱ // 0x7c0 @0x12
0x07ae…07cc at0013 = ╱33╱3╱ // 0x7c1 @0x13
0x07ae…07cc at0014 = ╱ec╱,╱ // 0x7c2 @0x14
0x07ae…07cc at0015 = ╱31╱1╱ // 0x7c3 @0x15
0x07ae…07cc at0016 = ╱fe00008001╱ // 0x7c4 @0x16
0x07ae…07cc at001b = ╱ee╱)╱ // 0x7c9 @0x1b
0x07ae…07cc at001c = ╱b6╱ THEN ╱ // 0x7ca @0x1c
0x07ae…07cc at001d = EOL // 0x7cb @0x1d
0x07ae…07cc }
0x07cc…07dc 8f29 0540 CEKS=0
0x07cc…07dc LineComalBcd {
0x07cc…07dc ptr = 0x8f29 // 0x7cc @0x0
0x07cc…07dc lno = 0x0540 // 0x7ce @0x2
0x07cc…07dc at0004 = ╱43╱C╱ // 0x7d0 @0x4
0x07cc…07dc at0005 = ╱45╱E╱ // 0x7d1 @0x5
0x07cc…07dc at0006 = ╱4b╱K╱ // 0x7d2 @0x6
0x07cc…07dc at0007 = ╱53╱S╱ // 0x7d3 @0x7
0x07cc…07dc at0008 = ╱dc╱=╱ // 0x7d4 @0x8
0x07cc…07dc at0009 = ╱30╱0╱ // 0x7d5 @0x9
0x07cc…07dc at000a = ╱fe00000000╱ // 0x7d6 @0xa
0x07cc…07dc at000f = EOL // 0x7db @0xf
0x07cc…07dc }
0x07dc…07e2 8f2f 0550 ELSE
0x07dc…07e2 LineComalBcd {
0x07dc…07e2 ptr = 0x8f2f // 0x7dc @0x0
0x07dc…07e2 lno = 0x0550 // 0x7de @0x2
0x07dc…07e2 at0004 = ╱9a╱ ELSE ╱ // 0x7e0 @0x4
0x07dc…07e2 at0005 = EOL // 0x7e1 @0x5
0x07dc…07e2 }
0x07e2…07ff 8f4c 0560 IF PIL1=1 THEN PIL1=0
0x07e2…07ff LineComalBcd {
0x07e2…07ff ptr = 0x8f4c // 0x7e2 @0x0
0x07e2…07ff lno = 0x0560 // 0x7e4 @0x2
0x07e2…07ff at0004 = ╱82╱ IF ╱ // 0x7e6 @0x4
0x07e2…07ff at0005 = ╱50╱P╱ // 0x7e7 @0x5
0x07e2…07ff at0006 = ╱49╱I╱ // 0x7e8 @0x6
0x07e2…07ff at0007 = ╱4c╱L╱ // 0x7e9 @0x7
0x07e2…07ff at0008 = ╱31╱1╱ // 0x7ea @0x8
0x07e2…07ff at0009 = ╱dc╱=╱ // 0x7eb @0x9
0x07e2…07ff at000a = ╱31╱1╱ // 0x7ec @0xa
0x07e2…07ff at000b = ╱fe00008001╱ // 0x7ed @0xb
0x07e2…07ff at0010 = ╱b6╱ THEN ╱ // 0x7f2 @0x10
0x07e2…07ff at0011 = ╱50╱P╱ // 0x7f3 @0x11
0x07e2…07ff at0012 = ╱49╱I╱ // 0x7f4 @0x12
0x07e2…07ff at0013 = ╱4c╱L╱ // 0x7f5 @0x13
0x07e2…07ff at0014 = ╱31╱1╱ // 0x7f6 @0x14
0x07e2…07ff at0015 = ╱dc╱=╱ // 0x7f7 @0x15
0x07e2…07ff at0016 = ╱30╱0╱ // 0x7f8 @0x16
0x07e2…07ff at0017 = ╱fe00000000╱ // 0x7f9 @0x17
0x07e2…07ff at001c = EOL // 0x7fe @0x1c
0x07e2…07ff }
0x07ff…0820 8f6d 0570 PIL1=INT((PIL1+1)/2)
0x07ff…0820 LineComalBcd {
0x07ff…0820 ptr = 0x8f6d // 0x7ff @0x0
0x07ff…0820 lno = 0x0570 // 0x801 @0x2
0x07ff…0820 at0004 = ╱50╱P╱ // 0x803 @0x4
0x07ff…0820 at0005 = ╱49╱I╱ // 0x804 @0x5
0x07ff…0820 at0006 = ╱4c╱L╱ // 0x805 @0x6
0x07ff…0820 at0007 = ╱31╱1╱ // 0x806 @0x7
0x07ff…0820 at0008 = ╱dc╱=╱ // 0x807 @0x8
0x07ff…0820 at0009 = ╱c6╱INT╱ // 0x808 @0x9
0x07ff…0820 at000a = ╱ed╱(╱ // 0x809 @0xa
0x07ff…0820 at000b = ╱ed╱(╱ // 0x80a @0xb
0x07ff…0820 at000c = ╱50╱P╱ // 0x80b @0xc
0x07ff…0820 at000d = ╱49╱I╱ // 0x80c @0xd
0x07ff…0820 at000e = ╱4c╱L╱ // 0x80d @0xe
0x07ff…0820 at000f = ╱31╱1╱ // 0x80e @0xf
0x07ff…0820 at0010 = ╱e2╱+╱ // 0x80f @0x10
0x07ff…0820 at0011 = ╱31╱1╱ // 0x810 @0x11
0x07ff…0820 at0012 = ╱fe00008001╱ // 0x811 @0x12
0x07ff…0820 at0017 = ╱ee╱)╱ // 0x816 @0x17
0x07ff…0820 at0018 = ╱e5╱/╱ // 0x817 @0x18
0x07ff…0820 at0019 = ╱32╱2╱ // 0x818 @0x19
0x07ff…0820 at001a = ╱fe00008002╱ // 0x819 @0x1a
0x07ff…0820 at001f = ╱ee╱)╱ // 0x81e @0x1f
0x07ff…0820 at0020 = EOL // 0x81f @0x20
0x07ff…0820 }
0x0820…083e 8f8b 0580 IF NØGL1>TAB1(PIL3,1) THEN
0x0820…083e LineComalBcd {
0x0820…083e ptr = 0x8f8b // 0x820 @0x0
0x0820…083e lno = 0x0580 // 0x822 @0x2
0x0820…083e at0004 = ╱9c╱ IF ╱ // 0x824 @0x4
0x0820…083e at0005 = ╱4e╱N╱ // 0x825 @0x5
0x0820…083e at0006 = ╱5c╱Ø╱ // 0x826 @0x6
0x0820…083e at0007 = ╱47╱G╱ // 0x827 @0x7
0x0820…083e at0008 = ╱4c╱L╱ // 0x828 @0x8
0x0820…083e at0009 = ╱31╱1╱ // 0x829 @0x9
0x0820…083e at000a = ╱de╱>╱ // 0x82a @0xa
0x0820…083e at000b = ╱54╱T╱ // 0x82b @0xb
0x0820…083e at000c = ╱41╱A╱ // 0x82c @0xc
0x0820…083e at000d = ╱42╱B╱ // 0x82d @0xd
0x0820…083e at000e = ╱31╱1╱ // 0x82e @0xe
0x0820…083e at000f = ╱ed╱(╱ // 0x82f @0xf
0x0820…083e at0010 = ╱50╱P╱ // 0x830 @0x10
0x0820…083e at0011 = ╱49╱I╱ // 0x831 @0x11
0x0820…083e at0012 = ╱4c╱L╱ // 0x832 @0x12
0x0820…083e at0013 = ╱33╱3╱ // 0x833 @0x13
0x0820…083e at0014 = ╱ec╱,╱ // 0x834 @0x14
0x0820…083e at0015 = ╱31╱1╱ // 0x835 @0x15
0x0820…083e at0016 = ╱fe00008001╱ // 0x836 @0x16
0x0820…083e at001b = ╱ee╱)╱ // 0x83b @0x1b
0x0820…083e at001c = ╱b6╱ THEN ╱ // 0x83c @0x1c
0x0820…083e at001d = EOL // 0x83d @0x1d
0x0820…083e }
0x083e…0851 8f9e 0590 PIL3=PIL3+PIL1
0x083e…0851 LineComalBcd {
0x083e…0851 ptr = 0x8f9e // 0x83e @0x0
0x083e…0851 lno = 0x0590 // 0x840 @0x2
0x083e…0851 at0004 = ╱50╱P╱ // 0x842 @0x4
0x083e…0851 at0005 = ╱49╱I╱ // 0x843 @0x5
0x083e…0851 at0006 = ╱4c╱L╱ // 0x844 @0x6
0x083e…0851 at0007 = ╱33╱3╱ // 0x845 @0x7
0x083e…0851 at0008 = ╱dc╱=╱ // 0x846 @0x8
0x083e…0851 at0009 = ╱50╱P╱ // 0x847 @0x9
0x083e…0851 at000a = ╱49╱I╱ // 0x848 @0xa
0x083e…0851 at000b = ╱4c╱L╱ // 0x849 @0xb
0x083e…0851 at000c = ╱33╱3╱ // 0x84a @0xc
0x083e…0851 at000d = ╱e2╱+╱ // 0x84b @0xd
0x083e…0851 at000e = ╱50╱P╱ // 0x84c @0xe
0x083e…0851 at000f = ╱49╱I╱ // 0x84d @0xf
0x083e…0851 at0010 = ╱4c╱L╱ // 0x84e @0x10
0x083e…0851 at0011 = ╱31╱1╱ // 0x84f @0x11
0x083e…0851 at0012 = EOL // 0x850 @0x12
0x083e…0851 }
0x0851…0857 8fa4 0600 ELSE
0x0851…0857 LineComalBcd {
0x0851…0857 ptr = 0x8fa4 // 0x851 @0x0
0x0851…0857 lno = 0x0600 // 0x853 @0x2
0x0851…0857 at0004 = ╱9a╱ ELSE ╱ // 0x855 @0x4
0x0851…0857 at0005 = EOL // 0x856 @0x5
0x0851…0857 }
0x0857…086a 8fb7 0610 PIL3=PIL3-PIL1
0x0857…086a LineComalBcd {
0x0857…086a ptr = 0x8fb7 // 0x857 @0x0
0x0857…086a lno = 0x0610 // 0x859 @0x2
0x0857…086a at0004 = ╱50╱P╱ // 0x85b @0x4
0x0857…086a at0005 = ╱49╱I╱ // 0x85c @0x5
0x0857…086a at0006 = ╱4c╱L╱ // 0x85d @0x6
0x0857…086a at0007 = ╱33╱3╱ // 0x85e @0x7
0x0857…086a at0008 = ╱dc╱=╱ // 0x85f @0x8
0x0857…086a at0009 = ╱50╱P╱ // 0x860 @0x9
0x0857…086a at000a = ╱49╱I╱ // 0x861 @0xa
0x0857…086a at000b = ╱4c╱L╱ // 0x862 @0xb
0x0857…086a at000c = ╱33╱3╱ // 0x863 @0xc
0x0857…086a at000d = ╱e3╱-╱ // 0x864 @0xd
0x0857…086a at000e = ╱50╱P╱ // 0x865 @0xe
0x0857…086a at000f = ╱49╱I╱ // 0x866 @0xf
0x0857…086a at0010 = ╱4c╱L╱ // 0x867 @0x10
0x0857…086a at0011 = ╱31╱1╱ // 0x868 @0x11
0x0857…086a at0012 = EOL // 0x869 @0x12
0x0857…086a }
0x086a…0870 8fbd 0620 ENDIF
0x086a…0870 LineComalBcd {
0x086a…0870 ptr = 0x8fbd // 0x86a @0x0
0x086a…0870 lno = 0x0620 // 0x86c @0x2
0x086a…0870 at0004 = ╱9b╱ ENDIF ╱ // 0x86e @0x4
0x086a…0870 at0005 = EOL // 0x86f @0x5
0x086a…0870 }
0x0870…088d 8fda 0630 IF PIL3<1 THEN PIL3=1
0x0870…088d LineComalBcd {
0x0870…088d ptr = 0x8fda // 0x870 @0x0
0x0870…088d lno = 0x0630 // 0x872 @0x2
0x0870…088d at0004 = ╱82╱ IF ╱ // 0x874 @0x4
0x0870…088d at0005 = ╱50╱P╱ // 0x875 @0x5
0x0870…088d at0006 = ╱49╱I╱ // 0x876 @0x6
0x0870…088d at0007 = ╱4c╱L╱ // 0x877 @0x7
0x0870…088d at0008 = ╱33╱3╱ // 0x878 @0x8
0x0870…088d at0009 = ╱dd╱<╱ // 0x879 @0x9
0x0870…088d at000a = ╱31╱1╱ // 0x87a @0xa
0x0870…088d at000b = ╱fe00008001╱ // 0x87b @0xb
0x0870…088d at0010 = ╱b6╱ THEN ╱ // 0x880 @0x10
0x0870…088d at0011 = ╱50╱P╱ // 0x881 @0x11
0x0870…088d at0012 = ╱49╱I╱ // 0x882 @0x12
0x0870…088d at0013 = ╱4c╱L╱ // 0x883 @0x13
0x0870…088d at0014 = ╱33╱3╱ // 0x884 @0x14
0x0870…088d at0015 = ╱dc╱=╱ // 0x885 @0x15
0x0870…088d at0016 = ╱31╱1╱ // 0x886 @0x16
0x0870…088d at0017 = ╱fe00008001╱ // 0x887 @0x17
0x0870…088d at001c = EOL // 0x88c @0x1c
0x0870…088d }
0x088d…08a8 8ff5 0640 IF PIL3>MANT1 THEN PIL3=MANT1
0x088d…08a8 LineComalBcd {
0x088d…08a8 ptr = 0x8ff5 // 0x88d @0x0
0x088d…08a8 lno = 0x0640 // 0x88f @0x2
0x088d…08a8 at0004 = ╱82╱ IF ╱ // 0x891 @0x4
0x088d…08a8 at0005 = ╱50╱P╱ // 0x892 @0x5
0x088d…08a8 at0006 = ╱49╱I╱ // 0x893 @0x6
0x088d…08a8 at0007 = ╱4c╱L╱ // 0x894 @0x7
0x088d…08a8 at0008 = ╱33╱3╱ // 0x895 @0x8
0x088d…08a8 at0009 = ╱de╱>╱ // 0x896 @0x9
0x088d…08a8 at000a = ╱4d╱M╱ // 0x897 @0xa
0x088d…08a8 at000b = ╱41╱A╱ // 0x898 @0xb
0x088d…08a8 at000c = ╱4e╱N╱ // 0x899 @0xc
0x088d…08a8 at000d = ╱54╱T╱ // 0x89a @0xd
0x088d…08a8 at000e = ╱31╱1╱ // 0x89b @0xe
0x088d…08a8 at000f = ╱b6╱ THEN ╱ // 0x89c @0xf
0x088d…08a8 at0010 = ╱50╱P╱ // 0x89d @0x10
0x088d…08a8 at0011 = ╱49╱I╱ // 0x89e @0x11
0x088d…08a8 at0012 = ╱4c╱L╱ // 0x89f @0x12
0x088d…08a8 at0013 = ╱33╱3╱ // 0x8a0 @0x13
0x088d…08a8 at0014 = ╱dc╱=╱ // 0x8a1 @0x14
0x088d…08a8 at0015 = ╱4d╱M╱ // 0x8a2 @0x15
0x088d…08a8 at0016 = ╱41╱A╱ // 0x8a3 @0x16
0x088d…08a8 at0017 = ╱4e╱N╱ // 0x8a4 @0x17
0x088d…08a8 at0018 = ╱54╱T╱ // 0x8a5 @0x18
0x088d…08a8 at0019 = ╱31╱1╱ // 0x8a6 @0x19
0x088d…08a8 at001a = EOL // 0x8a7 @0x1a
0x088d…08a8 }
0x08a8…08ae 8ffb 0650 ENDIF
0x08a8…08ae LineComalBcd {
0x08a8…08ae ptr = 0x8ffb // 0x8a8 @0x0
0x08a8…08ae lno = 0x0650 // 0x8aa @0x2
0x08a8…08ae at0004 = ╱9b╱ ENDIF ╱ // 0x8ac @0x4
0x08a8…08ae at0005 = EOL // 0x8ad @0x5
0x08a8…08ae }
0x08ae…08cb 9018 0660 UNTIL CEKS=0 OR PIL1=0
0x08ae…08cb LineComalBcd {
0x08ae…08cb ptr = 0x9018 // 0x8ae @0x0
0x08ae…08cb lno = 0x0660 // 0x8b0 @0x2
0x08ae…08cb at0004 = ╱98╱ UNTIL ╱ // 0x8b2 @0x4
0x08ae…08cb at0005 = ╱43╱C╱ // 0x8b3 @0x5
0x08ae…08cb at0006 = ╱45╱E╱ // 0x8b4 @0x6
0x08ae…08cb at0007 = ╱4b╱K╱ // 0x8b5 @0x7
0x08ae…08cb at0008 = ╱53╱S╱ // 0x8b6 @0x8
0x08ae…08cb at0009 = ╱dc╱=╱ // 0x8b7 @0x9
0x08ae…08cb at000a = ╱30╱0╱ // 0x8b8 @0xa
0x08ae…08cb at000b = ╱fe00000000╱ // 0x8b9 @0xb
0x08ae…08cb at0010 = ╱db╱ OR ╱ // 0x8be @0x10
0x08ae…08cb at0011 = ╱50╱P╱ // 0x8bf @0x11
0x08ae…08cb at0012 = ╱49╱I╱ // 0x8c0 @0x12
0x08ae…08cb at0013 = ╱4c╱L╱ // 0x8c1 @0x13
0x08ae…08cb at0014 = ╱31╱1╱ // 0x8c2 @0x14
0x08ae…08cb at0015 = ╱dc╱=╱ // 0x8c3 @0x15
0x08ae…08cb at0016 = ╱30╱0╱ // 0x8c4 @0x16
0x08ae…08cb at0017 = ╱fe00000000╱ // 0x8c5 @0x17
0x08ae…08cb at001c = EOL // 0x8ca @0x1c
0x08ae…08cb }
0x08cb…08d1 901e 0670 ENDPROC
0x08cb…08d1 LineComalBcd {
0x08cb…08d1 ptr = 0x901e // 0x8cb @0x0
0x08cb…08d1 lno = 0x0670 // 0x8cd @0x2
0x08cb…08d1 at0004 = ╱9f╱ ENDPROC ╱ // 0x8cf @0x4
0x08cb…08d1 at0005 = EOL // 0x8d0 @0x5
0x08cb…08d1 }
0x08d1…08e8 9035 0680 PROC SLETDPOST(NØGLE3)
0x08d1…08e8 LineComalBcd {
0x08d1…08e8 ptr = 0x9035 // 0x8d1 @0x0
0x08d1…08e8 lno = 0x0680 // 0x8d3 @0x2
0x08d1…08e8 at0004 = ╱9e╱ PROC ╱ // 0x8d5 @0x4
0x08d1…08e8 at0005 = ╱53╱S╱ // 0x8d6 @0x5
0x08d1…08e8 at0006 = ╱4c╱L╱ // 0x8d7 @0x6
0x08d1…08e8 at0007 = ╱45╱E╱ // 0x8d8 @0x7
0x08d1…08e8 at0008 = ╱54╱T╱ // 0x8d9 @0x8
0x08d1…08e8 at0009 = ╱44╱D╱ // 0x8da @0x9
0x08d1…08e8 at000a = ╱50╱P╱ // 0x8db @0xa
0x08d1…08e8 at000b = ╱4f╱O╱ // 0x8dc @0xb
0x08d1…08e8 at000c = ╱53╱S╱ // 0x8dd @0xc
0x08d1…08e8 at000d = ╱54╱T╱ // 0x8de @0xd
0x08d1…08e8 at000e = ╱ed╱(╱ // 0x8df @0xe
0x08d1…08e8 at000f = ╱4e╱N╱ // 0x8e0 @0xf
0x08d1…08e8 at0010 = ╱5c╱Ø╱ // 0x8e1 @0x10
0x08d1…08e8 at0011 = ╱47╱G╱ // 0x8e2 @0x11
0x08d1…08e8 at0012 = ╱4c╱L╱ // 0x8e3 @0x12
0x08d1…08e8 at0013 = ╱45╱E╱ // 0x8e4 @0x13
0x08d1…08e8 at0014 = ╱33╱3╱ // 0x8e5 @0x14
0x08d1…08e8 at0015 = ╱ee╱)╱ // 0x8e6 @0x15
0x08d1…08e8 at0016 = EOL // 0x8e7 @0x16
0x08d1…08e8 }
0x08e8…0911 905e 0690 EXEC FINDPOST(DTAB,MDANTAL,NØGLE3,DPIL3)
0x08e8…0911 LineComalBcd {
0x08e8…0911 ptr = 0x905e // 0x8e8 @0x0
0x08e8…0911 lno = 0x0690 // 0x8ea @0x2
0x08e8…0911 at0004 = ╱9d╱ EXEC ╱ // 0x8ec @0x4
0x08e8…0911 at0005 = ╱46╱F╱ // 0x8ed @0x5
0x08e8…0911 at0006 = ╱49╱I╱ // 0x8ee @0x6
0x08e8…0911 at0007 = ╱4e╱N╱ // 0x8ef @0x7
0x08e8…0911 at0008 = ╱44╱D╱ // 0x8f0 @0x8
0x08e8…0911 at0009 = ╱50╱P╱ // 0x8f1 @0x9
0x08e8…0911 at000a = ╱4f╱O╱ // 0x8f2 @0xa
0x08e8…0911 at000b = ╱53╱S╱ // 0x8f3 @0xb
0x08e8…0911 at000c = ╱54╱T╱ // 0x8f4 @0xc
0x08e8…0911 at000d = ╱ed╱(╱ // 0x8f5 @0xd
0x08e8…0911 at000e = ╱44╱D╱ // 0x8f6 @0xe
0x08e8…0911 at000f = ╱54╱T╱ // 0x8f7 @0xf
0x08e8…0911 at0010 = ╱41╱A╱ // 0x8f8 @0x10
0x08e8…0911 at0011 = ╱42╱B╱ // 0x8f9 @0x11
0x08e8…0911 at0012 = ╱ec╱,╱ // 0x8fa @0x12
0x08e8…0911 at0013 = ╱4d╱M╱ // 0x8fb @0x13
0x08e8…0911 at0014 = ╱44╱D╱ // 0x8fc @0x14
0x08e8…0911 at0015 = ╱41╱A╱ // 0x8fd @0x15
0x08e8…0911 at0016 = ╱4e╱N╱ // 0x8fe @0x16
0x08e8…0911 at0017 = ╱54╱T╱ // 0x8ff @0x17
0x08e8…0911 at0018 = ╱41╱A╱ // 0x900 @0x18
0x08e8…0911 at0019 = ╱4c╱L╱ // 0x901 @0x19
0x08e8…0911 at001a = ╱ec╱,╱ // 0x902 @0x1a
0x08e8…0911 at001b = ╱4e╱N╱ // 0x903 @0x1b
0x08e8…0911 at001c = ╱5c╱Ø╱ // 0x904 @0x1c
0x08e8…0911 at001d = ╱47╱G╱ // 0x905 @0x1d
0x08e8…0911 at001e = ╱4c╱L╱ // 0x906 @0x1e
0x08e8…0911 at001f = ╱45╱E╱ // 0x907 @0x1f
0x08e8…0911 at0020 = ╱33╱3╱ // 0x908 @0x20
0x08e8…0911 at0021 = ╱ec╱,╱ // 0x909 @0x21
0x08e8…0911 at0022 = ╱44╱D╱ // 0x90a @0x22
0x08e8…0911 at0023 = ╱50╱P╱ // 0x90b @0x23
0x08e8…0911 at0024 = ╱49╱I╱ // 0x90c @0x24
0x08e8…0911 at0025 = ╱4c╱L╱ // 0x90d @0x25
0x08e8…0911 at0026 = ╱33╱3╱ // 0x90e @0x26
0x08e8…0911 at0027 = ╱ee╱)╱ // 0x90f @0x27
0x08e8…0911 at0028 = EOL // 0x910 @0x28
0x08e8…0911 }
0x0911…0924 9071 0700 IF CEKS=1 THEN STOP
0x0911…0924 LineComalBcd {
0x0911…0924 ptr = 0x9071 // 0x911 @0x0
0x0911…0924 lno = 0x0700 // 0x913 @0x2
0x0911…0924 at0004 = ╱82╱ IF ╱ // 0x915 @0x4
0x0911…0924 at0005 = ╱43╱C╱ // 0x916 @0x5
0x0911…0924 at0006 = ╱45╱E╱ // 0x917 @0x6
0x0911…0924 at0007 = ╱4b╱K╱ // 0x918 @0x7
0x0911…0924 at0008 = ╱53╱S╱ // 0x919 @0x8
0x0911…0924 at0009 = ╱dc╱=╱ // 0x91a @0x9
0x0911…0924 at000a = ╱31╱1╱ // 0x91b @0xa
0x0911…0924 at000b = ╱fe00008001╱ // 0x91c @0xb
0x0911…0924 at0010 = ╱b6╱ THEN ╱ // 0x921 @0x10
0x0911…0924 at0011 = ╱8d╱ STOP ╱ // 0x922 @0x11
0x0911…0924 at0012 = EOL // 0x923 @0x12
0x0911…0924 }
0x0924…0935 9082 0710 DEBNR=0
0x0924…0935 LineComalBcd {
0x0924…0935 ptr = 0x9082 // 0x924 @0x0
0x0924…0935 lno = 0x0710 // 0x926 @0x2
0x0924…0935 at0004 = ╱44╱D╱ // 0x928 @0x4
0x0924…0935 at0005 = ╱45╱E╱ // 0x929 @0x5
0x0924…0935 at0006 = ╱42╱B╱ // 0x92a @0x6
0x0924…0935 at0007 = ╱4e╱N╱ // 0x92b @0x7
0x0924…0935 at0008 = ╱52╱R╱ // 0x92c @0x8
0x0924…0935 at0009 = ╱dc╱=╱ // 0x92d @0x9
0x0924…0935 at000a = ╱30╱0╱ // 0x92e @0xa
0x0924…0935 at000b = ╱fe00000000╱ // 0x92f @0xb
0x0924…0935 at0010 = EOL // 0x934 @0x10
0x0924…0935 }
0x0935…0959 90a6 0720 DEBNAVN$=BLANK$(1:25)
0x0935…0959 LineComalBcd {
0x0935…0959 ptr = 0x90a6 // 0x935 @0x0
0x0935…0959 lno = 0x0720 // 0x937 @0x2
0x0935…0959 at0004 = ╱44╱D╱ // 0x939 @0x4
0x0935…0959 at0005 = ╱45╱E╱ // 0x93a @0x5
0x0935…0959 at0006 = ╱42╱B╱ // 0x93b @0x6
0x0935…0959 at0007 = ╱4e╱N╱ // 0x93c @0x7
0x0935…0959 at0008 = ╱41╱A╱ // 0x93d @0x8
0x0935…0959 at0009 = ╱56╱V╱ // 0x93e @0x9
0x0935…0959 at000a = ╱4e╱N╱ // 0x93f @0xa
0x0935…0959 at000b = ╱ef╱$╱ // 0x940 @0xb
0x0935…0959 at000c = ╱dc╱=╱ // 0x941 @0xc
0x0935…0959 at000d = ╱42╱B╱ // 0x942 @0xd
0x0935…0959 at000e = ╱4c╱L╱ // 0x943 @0xe
0x0935…0959 at000f = ╱41╱A╱ // 0x944 @0xf
0x0935…0959 at0010 = ╱4e╱N╱ // 0x945 @0x10
0x0935…0959 at0011 = ╱4b╱K╱ // 0x946 @0x11
0x0935…0959 at0012 = ╱ef╱$╱ // 0x947 @0x12
0x0935…0959 at0013 = ╱ed╱(╱ // 0x948 @0x13
0x0935…0959 at0014 = ╱31╱1╱ // 0x949 @0x14
0x0935…0959 at0015 = ╱fe00008001╱ // 0x94a @0x15
0x0935…0959 at001a = ╱f0╱:╱ // 0x94f @0x1a
0x0935…0959 at001b = ╱32╱2╱ // 0x950 @0x1b
0x0935…0959 at001c = ╱35╱5╱ // 0x951 @0x1c
0x0935…0959 at001d = ╱fe0000c805╱ // 0x952 @0x1d
0x0935…0959 at0022 = ╱ee╱)╱ // 0x957 @0x22
0x0935…0959 at0023 = EOL // 0x958 @0x23
0x0935…0959 }
0x0959…097d 90ca 0730 DSALDO1$=BLANK$(1:12)
0x0959…097d LineComalBcd {
0x0959…097d ptr = 0x90ca // 0x959 @0x0
0x0959…097d lno = 0x0730 // 0x95b @0x2
0x0959…097d at0004 = ╱44╱D╱ // 0x95d @0x4
0x0959…097d at0005 = ╱53╱S╱ // 0x95e @0x5
0x0959…097d at0006 = ╱41╱A╱ // 0x95f @0x6
0x0959…097d at0007 = ╱4c╱L╱ // 0x960 @0x7
0x0959…097d at0008 = ╱44╱D╱ // 0x961 @0x8
0x0959…097d at0009 = ╱4f╱O╱ // 0x962 @0x9
0x0959…097d at000a = ╱31╱1╱ // 0x963 @0xa
0x0959…097d at000b = ╱ef╱$╱ // 0x964 @0xb
0x0959…097d at000c = ╱dc╱=╱ // 0x965 @0xc
0x0959…097d at000d = ╱42╱B╱ // 0x966 @0xd
0x0959…097d at000e = ╱4c╱L╱ // 0x967 @0xe
0x0959…097d at000f = ╱41╱A╱ // 0x968 @0xf
0x0959…097d at0010 = ╱4e╱N╱ // 0x969 @0x10
0x0959…097d at0011 = ╱4b╱K╱ // 0x96a @0x11
0x0959…097d at0012 = ╱ef╱$╱ // 0x96b @0x12
0x0959…097d at0013 = ╱ed╱(╱ // 0x96c @0x13
0x0959…097d at0014 = ╱31╱1╱ // 0x96d @0x14
0x0959…097d at0015 = ╱fe00008001╱ // 0x96e @0x15
0x0959…097d at001a = ╱f0╱:╱ // 0x973 @0x1a
0x0959…097d at001b = ╱31╱1╱ // 0x974 @0x1b
0x0959…097d at001c = ╱32╱2╱ // 0x975 @0x1c
0x0959…097d at001d = ╱fe0000c004╱ // 0x976 @0x1d
0x0959…097d at0022 = ╱ee╱)╱ // 0x97b @0x22
0x0959…097d at0023 = EOL // 0x97c @0x23
0x0959…097d }
0x097d…09a1 90ee 0740 DSALDO2$=BLANK$(1:12)
0x097d…09a1 LineComalBcd {
0x097d…09a1 ptr = 0x90ee // 0x97d @0x0
0x097d…09a1 lno = 0x0740 // 0x97f @0x2
0x097d…09a1 at0004 = ╱44╱D╱ // 0x981 @0x4
0x097d…09a1 at0005 = ╱53╱S╱ // 0x982 @0x5
0x097d…09a1 at0006 = ╱41╱A╱ // 0x983 @0x6
0x097d…09a1 at0007 = ╱4c╱L╱ // 0x984 @0x7
0x097d…09a1 at0008 = ╱44╱D╱ // 0x985 @0x8
0x097d…09a1 at0009 = ╱4f╱O╱ // 0x986 @0x9
0x097d…09a1 at000a = ╱32╱2╱ // 0x987 @0xa
0x097d…09a1 at000b = ╱ef╱$╱ // 0x988 @0xb
0x097d…09a1 at000c = ╱dc╱=╱ // 0x989 @0xc
0x097d…09a1 at000d = ╱42╱B╱ // 0x98a @0xd
0x097d…09a1 at000e = ╱4c╱L╱ // 0x98b @0xe
0x097d…09a1 at000f = ╱41╱A╱ // 0x98c @0xf
0x097d…09a1 at0010 = ╱4e╱N╱ // 0x98d @0x10
0x097d…09a1 at0011 = ╱4b╱K╱ // 0x98e @0x11
0x097d…09a1 at0012 = ╱ef╱$╱ // 0x98f @0x12
0x097d…09a1 at0013 = ╱ed╱(╱ // 0x990 @0x13
0x097d…09a1 at0014 = ╱31╱1╱ // 0x991 @0x14
0x097d…09a1 at0015 = ╱fe00008001╱ // 0x992 @0x15
0x097d…09a1 at001a = ╱f0╱:╱ // 0x997 @0x1a
0x097d…09a1 at001b = ╱31╱1╱ // 0x998 @0x1b
0x097d…09a1 at001c = ╱32╱2╱ // 0x999 @0x1c
0x097d…09a1 at001d = ╱fe0000c004╱ // 0x99a @0x1d
0x097d…09a1 at0022 = ╱ee╱)╱ // 0x99f @0x22
0x097d…09a1 at0023 = EOL // 0x9a0 @0x23
0x097d…09a1 }
0x09a1…09c5 9112 0750 DSALDO3$=BLANK$(1:12)
0x09a1…09c5 LineComalBcd {
0x09a1…09c5 ptr = 0x9112 // 0x9a1 @0x0
0x09a1…09c5 lno = 0x0750 // 0x9a3 @0x2
0x09a1…09c5 at0004 = ╱44╱D╱ // 0x9a5 @0x4
0x09a1…09c5 at0005 = ╱53╱S╱ // 0x9a6 @0x5
0x09a1…09c5 at0006 = ╱41╱A╱ // 0x9a7 @0x6
0x09a1…09c5 at0007 = ╱4c╱L╱ // 0x9a8 @0x7
0x09a1…09c5 at0008 = ╱44╱D╱ // 0x9a9 @0x8
0x09a1…09c5 at0009 = ╱4f╱O╱ // 0x9aa @0x9
0x09a1…09c5 at000a = ╱33╱3╱ // 0x9ab @0xa
0x09a1…09c5 at000b = ╱ef╱$╱ // 0x9ac @0xb
0x09a1…09c5 at000c = ╱dc╱=╱ // 0x9ad @0xc
0x09a1…09c5 at000d = ╱42╱B╱ // 0x9ae @0xd
0x09a1…09c5 at000e = ╱4c╱L╱ // 0x9af @0xe
0x09a1…09c5 at000f = ╱41╱A╱ // 0x9b0 @0xf
0x09a1…09c5 at0010 = ╱4e╱N╱ // 0x9b1 @0x10
0x09a1…09c5 at0011 = ╱4b╱K╱ // 0x9b2 @0x11
0x09a1…09c5 at0012 = ╱ef╱$╱ // 0x9b3 @0x12
0x09a1…09c5 at0013 = ╱ed╱(╱ // 0x9b4 @0x13
0x09a1…09c5 at0014 = ╱31╱1╱ // 0x9b5 @0x14
0x09a1…09c5 at0015 = ╱fe00008001╱ // 0x9b6 @0x15
0x09a1…09c5 at001a = ╱f0╱:╱ // 0x9bb @0x1a
0x09a1…09c5 at001b = ╱31╱1╱ // 0x9bc @0x1b
0x09a1…09c5 at001c = ╱32╱2╱ // 0x9bd @0x1c
0x09a1…09c5 at001d = ╱fe0000c004╱ // 0x9be @0x1d
0x09a1…09c5 at0022 = ╱ee╱)╱ // 0x9c3 @0x22
0x09a1…09c5 at0023 = EOL // 0x9c4 @0x23
0x09a1…09c5 }
0x09c5…09e9 9136 0760 DSALDO4$=BLANK$(1:12)
0x09c5…09e9 LineComalBcd {
0x09c5…09e9 ptr = 0x9136 // 0x9c5 @0x0
0x09c5…09e9 lno = 0x0760 // 0x9c7 @0x2
0x09c5…09e9 at0004 = ╱44╱D╱ // 0x9c9 @0x4
0x09c5…09e9 at0005 = ╱53╱S╱ // 0x9ca @0x5
0x09c5…09e9 at0006 = ╱41╱A╱ // 0x9cb @0x6
0x09c5…09e9 at0007 = ╱4c╱L╱ // 0x9cc @0x7
0x09c5…09e9 at0008 = ╱44╱D╱ // 0x9cd @0x8
0x09c5…09e9 at0009 = ╱4f╱O╱ // 0x9ce @0x9
0x09c5…09e9 at000a = ╱34╱4╱ // 0x9cf @0xa
0x09c5…09e9 at000b = ╱ef╱$╱ // 0x9d0 @0xb
0x09c5…09e9 at000c = ╱dc╱=╱ // 0x9d1 @0xc
0x09c5…09e9 at000d = ╱42╱B╱ // 0x9d2 @0xd
0x09c5…09e9 at000e = ╱4c╱L╱ // 0x9d3 @0xe
0x09c5…09e9 at000f = ╱41╱A╱ // 0x9d4 @0xf
0x09c5…09e9 at0010 = ╱4e╱N╱ // 0x9d5 @0x10
0x09c5…09e9 at0011 = ╱4b╱K╱ // 0x9d6 @0x11
0x09c5…09e9 at0012 = ╱ef╱$╱ // 0x9d7 @0x12
0x09c5…09e9 at0013 = ╱ed╱(╱ // 0x9d8 @0x13
0x09c5…09e9 at0014 = ╱31╱1╱ // 0x9d9 @0x14
0x09c5…09e9 at0015 = ╱fe00008001╱ // 0x9da @0x15
0x09c5…09e9 at001a = ╱f0╱:╱ // 0x9df @0x1a
0x09c5…09e9 at001b = ╱31╱1╱ // 0x9e0 @0x1b
0x09c5…09e9 at001c = ╱32╱2╱ // 0x9e1 @0x1c
0x09c5…09e9 at001d = ╱fe0000c004╱ // 0x9e2 @0x1d
0x09c5…09e9 at0022 = ╱ee╱)╱ // 0x9e7 @0x22
0x09c5…09e9 at0023 = EOL // 0x9e8 @0x23
0x09c5…09e9 }
0x09e9…0a0b 9158 0770 ÅRKØB$=BLANK$(1:12)
0x09e9…0a0b LineComalBcd {
0x09e9…0a0b ptr = 0x9158 // 0x9e9 @0x0
0x09e9…0a0b lno = 0x0770 // 0x9eb @0x2
0x09e9…0a0b at0004 = ╱5d╱Å╱ // 0x9ed @0x4
0x09e9…0a0b at0005 = ╱52╱R╱ // 0x9ee @0x5
0x09e9…0a0b at0006 = ╱4b╱K╱ // 0x9ef @0x6
0x09e9…0a0b at0007 = ╱5c╱Ø╱ // 0x9f0 @0x7
0x09e9…0a0b at0008 = ╱42╱B╱ // 0x9f1 @0x8
0x09e9…0a0b at0009 = ╱ef╱$╱ // 0x9f2 @0x9
0x09e9…0a0b at000a = ╱dc╱=╱ // 0x9f3 @0xa
0x09e9…0a0b at000b = ╱42╱B╱ // 0x9f4 @0xb
0x09e9…0a0b at000c = ╱4c╱L╱ // 0x9f5 @0xc
0x09e9…0a0b at000d = ╱41╱A╱ // 0x9f6 @0xd
0x09e9…0a0b at000e = ╱4e╱N╱ // 0x9f7 @0xe
0x09e9…0a0b at000f = ╱4b╱K╱ // 0x9f8 @0xf
0x09e9…0a0b at0010 = ╱ef╱$╱ // 0x9f9 @0x10
0x09e9…0a0b at0011 = ╱ed╱(╱ // 0x9fa @0x11
0x09e9…0a0b at0012 = ╱31╱1╱ // 0x9fb @0x12
0x09e9…0a0b at0013 = ╱fe00008001╱ // 0x9fc @0x13
0x09e9…0a0b at0018 = ╱f0╱:╱ // 0xa01 @0x18
0x09e9…0a0b at0019 = ╱31╱1╱ // 0xa02 @0x19
0x09e9…0a0b at001a = ╱32╱2╱ // 0xa03 @0x1a
0x09e9…0a0b at001b = ╱fe0000c004╱ // 0xa04 @0x1b
0x09e9…0a0b at0020 = ╱ee╱)╱ // 0xa09 @0x20
0x09e9…0a0b at0021 = EOL // 0xa0a @0x21
0x09e9…0a0b }
0x0a0b…0a2e 917b 0780 MDNKØB$=BLANK$(1:12)
0x0a0b…0a2e LineComalBcd {
0x0a0b…0a2e ptr = 0x917b // 0xa0b @0x0
0x0a0b…0a2e lno = 0x0780 // 0xa0d @0x2
0x0a0b…0a2e at0004 = ╱4d╱M╱ // 0xa0f @0x4
0x0a0b…0a2e at0005 = ╱44╱D╱ // 0xa10 @0x5
0x0a0b…0a2e at0006 = ╱4e╱N╱ // 0xa11 @0x6
0x0a0b…0a2e at0007 = ╱4b╱K╱ // 0xa12 @0x7
0x0a0b…0a2e at0008 = ╱5c╱Ø╱ // 0xa13 @0x8
0x0a0b…0a2e at0009 = ╱42╱B╱ // 0xa14 @0x9
0x0a0b…0a2e at000a = ╱ef╱$╱ // 0xa15 @0xa
0x0a0b…0a2e at000b = ╱dc╱=╱ // 0xa16 @0xb
0x0a0b…0a2e at000c = ╱42╱B╱ // 0xa17 @0xc
0x0a0b…0a2e at000d = ╱4c╱L╱ // 0xa18 @0xd
0x0a0b…0a2e at000e = ╱41╱A╱ // 0xa19 @0xe
0x0a0b…0a2e at000f = ╱4e╱N╱ // 0xa1a @0xf
0x0a0b…0a2e at0010 = ╱4b╱K╱ // 0xa1b @0x10
0x0a0b…0a2e at0011 = ╱ef╱$╱ // 0xa1c @0x11
0x0a0b…0a2e at0012 = ╱ed╱(╱ // 0xa1d @0x12
0x0a0b…0a2e at0013 = ╱31╱1╱ // 0xa1e @0x13
0x0a0b…0a2e at0014 = ╱fe00008001╱ // 0xa1f @0x14
0x0a0b…0a2e at0019 = ╱f0╱:╱ // 0xa24 @0x19
0x0a0b…0a2e at001a = ╱31╱1╱ // 0xa25 @0x1a
0x0a0b…0a2e at001b = ╱32╱2╱ // 0xa26 @0x1b
0x0a0b…0a2e at001c = ╱fe0000c004╱ // 0xa27 @0x1c
0x0a0b…0a2e at0021 = ╱ee╱)╱ // 0xa2c @0x21
0x0a0b…0a2e at0022 = EOL // 0xa2d @0x22
0x0a0b…0a2e }
0x0a2e…0a3e 918b 0790 DEBKGR$="0"
0x0a2e…0a3e LineComalBcd {
0x0a2e…0a3e ptr = 0x918b // 0xa2e @0x0
0x0a2e…0a3e lno = 0x0790 // 0xa30 @0x2
0x0a2e…0a3e at0004 = ╱44╱D╱ // 0xa32 @0x4
0x0a2e…0a3e at0005 = ╱45╱E╱ // 0xa33 @0x5
0x0a2e…0a3e at0006 = ╱42╱B╱ // 0xa34 @0x6
0x0a2e…0a3e at0007 = ╱4b╱K╱ // 0xa35 @0x7
0x0a2e…0a3e at0008 = ╱47╱G╱ // 0xa36 @0x8
0x0a2e…0a3e at0009 = ╱52╱R╱ // 0xa37 @0x9
0x0a2e…0a3e at000a = ╱ef╱$╱ // 0xa38 @0xa
0x0a2e…0a3e at000b = ╱dc╱=╱ // 0xa39 @0xb
0x0a2e…0a3e at000c = ╱22╱"╱ // 0xa3a @0xc
0x0a2e…0a3e at000d = ╱30╱0╱ // 0xa3b @0xd
0x0a2e…0a3e at000e = ╱22╱"╱ // 0xa3c @0xe
0x0a2e…0a3e at000f = EOL // 0xa3d @0xf
0x0a2e…0a3e }
0x0a3e…0a53 91a0 0800 DEBPOSTNR=0
0x0a3e…0a53 LineComalBcd {
0x0a3e…0a53 ptr = 0x91a0 // 0xa3e @0x0
0x0a3e…0a53 lno = 0x0800 // 0xa40 @0x2
0x0a3e…0a53 at0004 = ╱44╱D╱ // 0xa42 @0x4
0x0a3e…0a53 at0005 = ╱45╱E╱ // 0xa43 @0x5
0x0a3e…0a53 at0006 = ╱42╱B╱ // 0xa44 @0x6
0x0a3e…0a53 at0007 = ╱50╱P╱ // 0xa45 @0x7
0x0a3e…0a53 at0008 = ╱4f╱O╱ // 0xa46 @0x8
0x0a3e…0a53 at0009 = ╱53╱S╱ // 0xa47 @0x9
0x0a3e…0a53 at000a = ╱54╱T╱ // 0xa48 @0xa
0x0a3e…0a53 at000b = ╱4e╱N╱ // 0xa49 @0xb
0x0a3e…0a53 at000c = ╱52╱R╱ // 0xa4a @0xc
0x0a3e…0a53 at000d = ╱dc╱=╱ // 0xa4b @0xd
0x0a3e…0a53 at000e = ╱30╱0╱ // 0xa4c @0xe
0x0a3e…0a53 at000f = ╱fe00000000╱ // 0xa4d @0xf
0x0a3e…0a53 at0014 = EOL // 0xa52 @0x14
0x0a3e…0a53 }
0x0a53…0a62 91af 0810 DEBLK$="0"
0x0a53…0a62 LineComalBcd {
0x0a53…0a62 ptr = 0x91af // 0xa53 @0x0
0x0a53…0a62 lno = 0x0810 // 0xa55 @0x2
0x0a53…0a62 at0004 = ╱44╱D╱ // 0xa57 @0x4
0x0a53…0a62 at0005 = ╱45╱E╱ // 0xa58 @0x5
0x0a53…0a62 at0006 = ╱42╱B╱ // 0xa59 @0x6
0x0a53…0a62 at0007 = ╱4c╱L╱ // 0xa5a @0x7
0x0a53…0a62 at0008 = ╱4b╱K╱ // 0xa5b @0x8
0x0a53…0a62 at0009 = ╱ef╱$╱ // 0xa5c @0x9
0x0a53…0a62 at000a = ╱dc╱=╱ // 0xa5d @0xa
0x0a53…0a62 at000b = ╱22╱"╱ // 0xa5e @0xb
0x0a53…0a62 at000c = ╱30╱0╱ // 0xa5f @0xc
0x0a53…0a62 at000d = ╱22╱"╱ // 0xa60 @0xd
0x0a53…0a62 at000e = EOL // 0xa61 @0xe
0x0a53…0a62 }
0x0a62…0a86 91d3 0820 DEBGADE$=BLANK$(1:25)
0x0a62…0a86 LineComalBcd {
0x0a62…0a86 ptr = 0x91d3 // 0xa62 @0x0
0x0a62…0a86 lno = 0x0820 // 0xa64 @0x2
0x0a62…0a86 at0004 = ╱44╱D╱ // 0xa66 @0x4
0x0a62…0a86 at0005 = ╱45╱E╱ // 0xa67 @0x5
0x0a62…0a86 at0006 = ╱42╱B╱ // 0xa68 @0x6
0x0a62…0a86 at0007 = ╱47╱G╱ // 0xa69 @0x7
0x0a62…0a86 at0008 = ╱41╱A╱ // 0xa6a @0x8
0x0a62…0a86 at0009 = ╱44╱D╱ // 0xa6b @0x9
0x0a62…0a86 at000a = ╱45╱E╱ // 0xa6c @0xa
0x0a62…0a86 at000b = ╱ef╱$╱ // 0xa6d @0xb
0x0a62…0a86 at000c = ╱dc╱=╱ // 0xa6e @0xc
0x0a62…0a86 at000d = ╱42╱B╱ // 0xa6f @0xd
0x0a62…0a86 at000e = ╱4c╱L╱ // 0xa70 @0xe
0x0a62…0a86 at000f = ╱41╱A╱ // 0xa71 @0xf
0x0a62…0a86 at0010 = ╱4e╱N╱ // 0xa72 @0x10
0x0a62…0a86 at0011 = ╱4b╱K╱ // 0xa73 @0x11
0x0a62…0a86 at0012 = ╱ef╱$╱ // 0xa74 @0x12
0x0a62…0a86 at0013 = ╱ed╱(╱ // 0xa75 @0x13
0x0a62…0a86 at0014 = ╱31╱1╱ // 0xa76 @0x14
0x0a62…0a86 at0015 = ╱fe00008001╱ // 0xa77 @0x15
0x0a62…0a86 at001a = ╱f0╱:╱ // 0xa7c @0x1a
0x0a62…0a86 at001b = ╱32╱2╱ // 0xa7d @0x1b
0x0a62…0a86 at001c = ╱35╱5╱ // 0xa7e @0x1c
0x0a62…0a86 at001d = ╱fe0000c805╱ // 0xa7f @0x1d
0x0a62…0a86 at0022 = ╱ee╱)╱ // 0xa84 @0x22
0x0a62…0a86 at0023 = EOL // 0xa85 @0x23
0x0a62…0a86 }
0x0a86…0aa8 91f5 0830 DEBTLF$=BLANK$(1:9)
0x0a86…0aa8 LineComalBcd {
0x0a86…0aa8 ptr = 0x91f5 // 0xa86 @0x0
0x0a86…0aa8 lno = 0x0830 // 0xa88 @0x2
0x0a86…0aa8 at0004 = ╱44╱D╱ // 0xa8a @0x4
0x0a86…0aa8 at0005 = ╱45╱E╱ // 0xa8b @0x5
0x0a86…0aa8 at0006 = ╱42╱B╱ // 0xa8c @0x6
0x0a86…0aa8 at0007 = ╱54╱T╱ // 0xa8d @0x7
0x0a86…0aa8 at0008 = ╱4c╱L╱ // 0xa8e @0x8
0x0a86…0aa8 at0009 = ╱46╱F╱ // 0xa8f @0x9
0x0a86…0aa8 at000a = ╱ef╱$╱ // 0xa90 @0xa
0x0a86…0aa8 at000b = ╱dc╱=╱ // 0xa91 @0xb
0x0a86…0aa8 at000c = ╱42╱B╱ // 0xa92 @0xc
0x0a86…0aa8 at000d = ╱4c╱L╱ // 0xa93 @0xd
0x0a86…0aa8 at000e = ╱41╱A╱ // 0xa94 @0xe
0x0a86…0aa8 at000f = ╱4e╱N╱ // 0xa95 @0xf
0x0a86…0aa8 at0010 = ╱4b╱K╱ // 0xa96 @0x10
0x0a86…0aa8 at0011 = ╱ef╱$╱ // 0xa97 @0x11
0x0a86…0aa8 at0012 = ╱ed╱(╱ // 0xa98 @0x12
0x0a86…0aa8 at0013 = ╱31╱1╱ // 0xa99 @0x13
0x0a86…0aa8 at0014 = ╱fe00008001╱ // 0xa9a @0x14
0x0a86…0aa8 at0019 = ╱f0╱:╱ // 0xa9f @0x19
0x0a86…0aa8 at001a = ╱39╱9╱ // 0xaa0 @0x1a
0x0a86…0aa8 at001b = ╱fe00009004╱ // 0xaa1 @0x1b
0x0a86…0aa8 at0020 = ╱ee╱)╱ // 0xaa6 @0x20
0x0a86…0aa8 at0021 = EOL // 0xaa7 @0x21
0x0a86…0aa8 }
0x0aa8…0ab9 9206 0840 HPOST=0
0x0aa8…0ab9 LineComalBcd {
0x0aa8…0ab9 ptr = 0x9206 // 0xaa8 @0x0
0x0aa8…0ab9 lno = 0x0840 // 0xaaa @0x2
0x0aa8…0ab9 at0004 = ╱48╱H╱ // 0xaac @0x4
0x0aa8…0ab9 at0005 = ╱50╱P╱ // 0xaad @0x5
0x0aa8…0ab9 at0006 = ╱4f╱O╱ // 0xaae @0x6
0x0aa8…0ab9 at0007 = ╱53╱S╱ // 0xaaf @0x7
0x0aa8…0ab9 at0008 = ╱54╱T╱ // 0xab0 @0x8
0x0aa8…0ab9 at0009 = ╱dc╱=╱ // 0xab1 @0x9
0x0aa8…0ab9 at000a = ╱30╱0╱ // 0xab2 @0xa
0x0aa8…0ab9 at000b = ╱fe00000000╱ // 0xab3 @0xb
0x0aa8…0ab9 at0010 = EOL // 0xab8 @0x10
0x0aa8…0ab9 }
0x0ab9…0acb 9218 0850 HKUNDE=0
0x0ab9…0acb LineComalBcd {
0x0ab9…0acb ptr = 0x9218 // 0xab9 @0x0
0x0ab9…0acb lno = 0x0850 // 0xabb @0x2
0x0ab9…0acb at0004 = ╱48╱H╱ // 0xabd @0x4
0x0ab9…0acb at0005 = ╱4b╱K╱ // 0xabe @0x5
0x0ab9…0acb at0006 = ╱55╱U╱ // 0xabf @0x6
0x0ab9…0acb at0007 = ╱4e╱N╱ // 0xac0 @0x7
0x0ab9…0acb at0008 = ╱44╱D╱ // 0xac1 @0x8
0x0ab9…0acb at0009 = ╱45╱E╱ // 0xac2 @0x9
0x0ab9…0acb at000a = ╱dc╱=╱ // 0xac3 @0xa
0x0ab9…0acb at000b = ╱30╱0╱ // 0xac4 @0xb
0x0ab9…0acb at000c = ╱fe00000000╱ // 0xac5 @0xc
0x0ab9…0acb at0011 = EOL // 0xaca @0x11
0x0ab9…0acb }
0x0acb…0aed 923a 0860 DEBBY$=BLANK$(1:20)
0x0acb…0aed LineComalBcd {
0x0acb…0aed ptr = 0x923a // 0xacb @0x0
0x0acb…0aed lno = 0x0860 // 0xacd @0x2
0x0acb…0aed at0004 = ╱44╱D╱ // 0xacf @0x4
0x0acb…0aed at0005 = ╱45╱E╱ // 0xad0 @0x5
0x0acb…0aed at0006 = ╱42╱B╱ // 0xad1 @0x6
0x0acb…0aed at0007 = ╱42╱B╱ // 0xad2 @0x7
0x0acb…0aed at0008 = ╱59╱Y╱ // 0xad3 @0x8
0x0acb…0aed at0009 = ╱ef╱$╱ // 0xad4 @0x9
0x0acb…0aed at000a = ╱dc╱=╱ // 0xad5 @0xa
0x0acb…0aed at000b = ╱42╱B╱ // 0xad6 @0xb
0x0acb…0aed at000c = ╱4c╱L╱ // 0xad7 @0xc
0x0acb…0aed at000d = ╱41╱A╱ // 0xad8 @0xd
0x0acb…0aed at000e = ╱4e╱N╱ // 0xad9 @0xe
0x0acb…0aed at000f = ╱4b╱K╱ // 0xada @0xf
0x0acb…0aed at0010 = ╱ef╱$╱ // 0xadb @0x10
0x0acb…0aed at0011 = ╱ed╱(╱ // 0xadc @0x11
0x0acb…0aed at0012 = ╱31╱1╱ // 0xadd @0x12
0x0acb…0aed at0013 = ╱fe00008001╱ // 0xade @0x13
0x0acb…0aed at0018 = ╱f0╱:╱ // 0xae3 @0x18
0x0acb…0aed at0019 = ╱32╱2╱ // 0xae4 @0x19
0x0acb…0aed at001a = ╱30╱0╱ // 0xae5 @0x1a
0x0acb…0aed at001b = ╱fe0000a005╱ // 0xae6 @0x1b
0x0acb…0aed at0020 = ╱ee╱)╱ // 0xaeb @0x20
0x0acb…0aed at0021 = EOL // 0xaec @0x21
0x0acb…0aed }
0x0aed…0afb 9248 0870 EXEC GEMDPOST
0x0aed…0afb LineComalBcd {
0x0aed…0afb ptr = 0x9248 // 0xaed @0x0
0x0aed…0afb lno = 0x0870 // 0xaef @0x2
0x0aed…0afb at0004 = ╱9d╱ EXEC ╱ // 0xaf1 @0x4
0x0aed…0afb at0005 = ╱47╱G╱ // 0xaf2 @0x5
0x0aed…0afb at0006 = ╱45╱E╱ // 0xaf3 @0x6
0x0aed…0afb at0007 = ╱4d╱M╱ // 0xaf4 @0x7
0x0aed…0afb at0008 = ╱44╱D╱ // 0xaf5 @0x8
0x0aed…0afb at0009 = ╱50╱P╱ // 0xaf6 @0x9
0x0aed…0afb at000a = ╱4f╱O╱ // 0xaf7 @0xa
0x0aed…0afb at000b = ╱53╱S╱ // 0xaf8 @0xb
0x0aed…0afb at000c = ╱54╱T╱ // 0xaf9 @0xc
0x0aed…0afb at000d = EOL // 0xafa @0xd
0x0aed…0afb }
0x0afb…0b21 926e 0880 EXEC SLETPOST(DTAB,ADEB,NØGLE3,DPIL3)
0x0afb…0b21 LineComalBcd {
0x0afb…0b21 ptr = 0x926e // 0xafb @0x0
0x0afb…0b21 lno = 0x0880 // 0xafd @0x2
0x0afb…0b21 at0004 = ╱9d╱ EXEC ╱ // 0xaff @0x4
0x0afb…0b21 at0005 = ╱53╱S╱ // 0xb00 @0x5
0x0afb…0b21 at0006 = ╱4c╱L╱ // 0xb01 @0x6
0x0afb…0b21 at0007 = ╱45╱E╱ // 0xb02 @0x7
0x0afb…0b21 at0008 = ╱54╱T╱ // 0xb03 @0x8
0x0afb…0b21 at0009 = ╱50╱P╱ // 0xb04 @0x9
0x0afb…0b21 at000a = ╱4f╱O╱ // 0xb05 @0xa
0x0afb…0b21 at000b = ╱53╱S╱ // 0xb06 @0xb
0x0afb…0b21 at000c = ╱54╱T╱ // 0xb07 @0xc
0x0afb…0b21 at000d = ╱ed╱(╱ // 0xb08 @0xd
0x0afb…0b21 at000e = ╱44╱D╱ // 0xb09 @0xe
0x0afb…0b21 at000f = ╱54╱T╱ // 0xb0a @0xf
0x0afb…0b21 at0010 = ╱41╱A╱ // 0xb0b @0x10
0x0afb…0b21 at0011 = ╱42╱B╱ // 0xb0c @0x11
0x0afb…0b21 at0012 = ╱ec╱,╱ // 0xb0d @0x12
0x0afb…0b21 at0013 = ╱41╱A╱ // 0xb0e @0x13
0x0afb…0b21 at0014 = ╱44╱D╱ // 0xb0f @0x14
0x0afb…0b21 at0015 = ╱45╱E╱ // 0xb10 @0x15
0x0afb…0b21 at0016 = ╱42╱B╱ // 0xb11 @0x16
0x0afb…0b21 at0017 = ╱ec╱,╱ // 0xb12 @0x17
0x0afb…0b21 at0018 = ╱4e╱N╱ // 0xb13 @0x18
0x0afb…0b21 at0019 = ╱5c╱Ø╱ // 0xb14 @0x19
0x0afb…0b21 at001a = ╱47╱G╱ // 0xb15 @0x1a
0x0afb…0b21 at001b = ╱4c╱L╱ // 0xb16 @0x1b
0x0afb…0b21 at001c = ╱45╱E╱ // 0xb17 @0x1c
0x0afb…0b21 at001d = ╱33╱3╱ // 0xb18 @0x1d
0x0afb…0b21 at001e = ╱ec╱,╱ // 0xb19 @0x1e
0x0afb…0b21 at001f = ╱44╱D╱ // 0xb1a @0x1f
0x0afb…0b21 at0020 = ╱50╱P╱ // 0xb1b @0x20
0x0afb…0b21 at0021 = ╱49╱I╱ // 0xb1c @0x21
0x0afb…0b21 at0022 = ╱4c╱L╱ // 0xb1d @0x22
0x0afb…0b21 at0023 = ╱33╱3╱ // 0xb1e @0x23
0x0afb…0b21 at0024 = ╱ee╱)╱ // 0xb1f @0x24
0x0afb…0b21 at0025 = EOL // 0xb20 @0x25
0x0afb…0b21 }
0x0b21…0b27 (37,) 9274 0890 ENDPROC
0x0b21…0b27 LineComalBcd {
0x0b21…0b27 ptr = 0x9274 // 0xb21 @0x0
0x0b21…0b27 lno = 0x0890 // 0xb23 @0x2
0x0b21…0b27 at0004 = ╱9f╱ ENDPROC ╱ // 0xb25 @0x4
0x0b21…0b27 at0005 = EOL // 0xb26 @0x5
0x0b21…0b27 }
0x0b27…0b4b 9298 0900 PROC INDSÆT(TAB2,ANTAL2,NØGL2,PIL4)
0x0b27…0b4b LineComalBcd {
0x0b27…0b4b ptr = 0x9298 // 0xb27 @0x0
0x0b27…0b4b lno = 0x0900 // 0xb29 @0x2
0x0b27…0b4b at0004 = ╱9e╱ PROC ╱ // 0xb2b @0x4
0x0b27…0b4b at0005 = ╱49╱I╱ // 0xb2c @0x5
0x0b27…0b4b at0006 = ╱4e╱N╱ // 0xb2d @0x6
0x0b27…0b4b at0007 = ╱44╱D╱ // 0xb2e @0x7
0x0b27…0b4b at0008 = ╱53╱S╱ // 0xb2f @0x8
0x0b27…0b4b at0009 = ╱5b╱Æ╱ // 0xb30 @0x9
0x0b27…0b4b at000a = ╱54╱T╱ // 0xb31 @0xa
0x0b27…0b4b at000b = ╱ed╱(╱ // 0xb32 @0xb
0x0b27…0b4b at000c = ╱54╱T╱ // 0xb33 @0xc
0x0b27…0b4b at000d = ╱41╱A╱ // 0xb34 @0xd
0x0b27…0b4b at000e = ╱42╱B╱ // 0xb35 @0xe
0x0b27…0b4b at000f = ╱32╱2╱ // 0xb36 @0xf
0x0b27…0b4b at0010 = ╱ec╱,╱ // 0xb37 @0x10
0x0b27…0b4b at0011 = ╱41╱A╱ // 0xb38 @0x11
0x0b27…0b4b at0012 = ╱4e╱N╱ // 0xb39 @0x12
0x0b27…0b4b at0013 = ╱54╱T╱ // 0xb3a @0x13
0x0b27…0b4b at0014 = ╱41╱A╱ // 0xb3b @0x14
0x0b27…0b4b at0015 = ╱4c╱L╱ // 0xb3c @0x15
0x0b27…0b4b at0016 = ╱32╱2╱ // 0xb3d @0x16
0x0b27…0b4b at0017 = ╱ec╱,╱ // 0xb3e @0x17
0x0b27…0b4b at0018 = ╱4e╱N╱ // 0xb3f @0x18
0x0b27…0b4b at0019 = ╱5c╱Ø╱ // 0xb40 @0x19
0x0b27…0b4b at001a = ╱47╱G╱ // 0xb41 @0x1a
0x0b27…0b4b at001b = ╱4c╱L╱ // 0xb42 @0x1b
0x0b27…0b4b at001c = ╱32╱2╱ // 0xb43 @0x1c
0x0b27…0b4b at001d = ╱ec╱,╱ // 0xb44 @0x1d
0x0b27…0b4b at001e = ╱50╱P╱ // 0xb45 @0x1e
0x0b27…0b4b at001f = ╱49╱I╱ // 0xb46 @0x1f
0x0b27…0b4b at0020 = ╱4c╱L╱ // 0xb47 @0x20
0x0b27…0b4b at0021 = ╱34╱4╱ // 0xb48 @0x21
0x0b27…0b4b at0022 = ╱ee╱)╱ // 0xb49 @0x22
0x0b27…0b4b at0023 = EOL // 0xb4a @0x23
0x0b27…0b4b }
0x0b4b…0b5d 92aa 0910 IF CEKS=1 THEN
0x0b4b…0b5d LineComalBcd {
0x0b4b…0b5d ptr = 0x92aa // 0xb4b @0x0
0x0b4b…0b5d lno = 0x0910 // 0xb4d @0x2
0x0b4b…0b5d at0004 = ╱9c╱ IF ╱ // 0xb4f @0x4
0x0b4b…0b5d at0005 = ╱43╱C╱ // 0xb50 @0x5
0x0b4b…0b5d at0006 = ╱45╱E╱ // 0xb51 @0x6
0x0b4b…0b5d at0007 = ╱4b╱K╱ // 0xb52 @0x7
0x0b4b…0b5d at0008 = ╱53╱S╱ // 0xb53 @0x8
0x0b4b…0b5d at0009 = ╱dc╱=╱ // 0xb54 @0x9
0x0b4b…0b5d at000a = ╱31╱1╱ // 0xb55 @0xa
0x0b4b…0b5d at000b = ╱fe00008001╱ // 0xb56 @0xb
0x0b4b…0b5d at0010 = ╱b6╱ THEN ╱ // 0xb5b @0x10
0x0b4b…0b5d at0011 = EOL // 0xb5c @0x11
0x0b4b…0b5d }
0x0b5d…0b83 92d0 0920 POSTNR=TAB2(ANTAL2+1,2)
0x0b5d…0b83 LineComalBcd {
0x0b5d…0b83 ptr = 0x92d0 // 0xb5d @0x0
0x0b5d…0b83 lno = 0x0920 // 0xb5f @0x2
0x0b5d…0b83 at0004 = ╱50╱P╱ // 0xb61 @0x4
0x0b5d…0b83 at0005 = ╱4f╱O╱ // 0xb62 @0x5
0x0b5d…0b83 at0006 = ╱53╱S╱ // 0xb63 @0x6
0x0b5d…0b83 at0007 = ╱54╱T╱ // 0xb64 @0x7
0x0b5d…0b83 at0008 = ╱4e╱N╱ // 0xb65 @0x8
0x0b5d…0b83 at0009 = ╱52╱R╱ // 0xb66 @0x9
0x0b5d…0b83 at000a = ╱dc╱=╱ // 0xb67 @0xa
0x0b5d…0b83 at000b = ╱54╱T╱ // 0xb68 @0xb
0x0b5d…0b83 at000c = ╱41╱A╱ // 0xb69 @0xc
0x0b5d…0b83 at000d = ╱42╱B╱ // 0xb6a @0xd
0x0b5d…0b83 at000e = ╱32╱2╱ // 0xb6b @0xe
0x0b5d…0b83 at000f = ╱ed╱(╱ // 0xb6c @0xf
0x0b5d…0b83 at0010 = ╱41╱A╱ // 0xb6d @0x10
0x0b5d…0b83 at0011 = ╱4e╱N╱ // 0xb6e @0x11
0x0b5d…0b83 at0012 = ╱54╱T╱ // 0xb6f @0x12
0x0b5d…0b83 at0013 = ╱41╱A╱ // 0xb70 @0x13
0x0b5d…0b83 at0014 = ╱4c╱L╱ // 0xb71 @0x14
0x0b5d…0b83 at0015 = ╱32╱2╱ // 0xb72 @0x15
0x0b5d…0b83 at0016 = ╱e2╱+╱ // 0xb73 @0x16
0x0b5d…0b83 at0017 = ╱31╱1╱ // 0xb74 @0x17
0x0b5d…0b83 at0018 = ╱fe00008001╱ // 0xb75 @0x18
0x0b5d…0b83 at001d = ╱ec╱,╱ // 0xb7a @0x1d
0x0b5d…0b83 at001e = ╱32╱2╱ // 0xb7b @0x1e
0x0b5d…0b83 at001f = ╱fe00008002╱ // 0xb7c @0x1f
0x0b5d…0b83 at0024 = ╱ee╱)╱ // 0xb81 @0x24
0x0b5d…0b83 at0025 = EOL // 0xb82 @0x25
0x0b5d…0b83 }
0x0b83…0bd0 931d 0930 IF NØGL2>TAB2(PIL4,1) AND TAB2(PIL4,1)<>1000000 THEN PIL4=PIL4+1
0x0b83…0bd0 LineComalBcd {
0x0b83…0bd0 ptr = 0x931d // 0xb83 @0x0
0x0b83…0bd0 lno = 0x0930 // 0xb85 @0x2
0x0b83…0bd0 at0004 = ╱82╱ IF ╱ // 0xb87 @0x4
0x0b83…0bd0 at0005 = ╱4e╱N╱ // 0xb88 @0x5
0x0b83…0bd0 at0006 = ╱5c╱Ø╱ // 0xb89 @0x6
0x0b83…0bd0 at0007 = ╱47╱G╱ // 0xb8a @0x7
0x0b83…0bd0 at0008 = ╱4c╱L╱ // 0xb8b @0x8
0x0b83…0bd0 at0009 = ╱32╱2╱ // 0xb8c @0x9
0x0b83…0bd0 at000a = ╱de╱>╱ // 0xb8d @0xa
0x0b83…0bd0 at000b = ╱54╱T╱ // 0xb8e @0xb
0x0b83…0bd0 at000c = ╱41╱A╱ // 0xb8f @0xc
0x0b83…0bd0 at000d = ╱42╱B╱ // 0xb90 @0xd
0x0b83…0bd0 at000e = ╱32╱2╱ // 0xb91 @0xe
0x0b83…0bd0 at000f = ╱ed╱(╱ // 0xb92 @0xf
0x0b83…0bd0 at0010 = ╱50╱P╱ // 0xb93 @0x10
0x0b83…0bd0 at0011 = ╱49╱I╱ // 0xb94 @0x11
0x0b83…0bd0 at0012 = ╱4c╱L╱ // 0xb95 @0x12
0x0b83…0bd0 at0013 = ╱34╱4╱ // 0xb96 @0x13
0x0b83…0bd0 at0014 = ╱ec╱,╱ // 0xb97 @0x14
0x0b83…0bd0 at0015 = ╱31╱1╱ // 0xb98 @0x15
0x0b83…0bd0 at0016 = ╱fe00008001╱ // 0xb99 @0x16
0x0b83…0bd0 at001b = ╱ee╱)╱ // 0xb9e @0x1b
0x0b83…0bd0 at001c = ╱da╱ AND ╱ // 0xb9f @0x1c
0x0b83…0bd0 at001d = ╱54╱T╱ // 0xba0 @0x1d
0x0b83…0bd0 at001e = ╱41╱A╱ // 0xba1 @0x1e
0x0b83…0bd0 at001f = ╱42╱B╱ // 0xba2 @0x1f
0x0b83…0bd0 at0020 = ╱32╱2╱ // 0xba3 @0x20
0x0b83…0bd0 at0021 = ╱ed╱(╱ // 0xba4 @0x21
0x0b83…0bd0 at0022 = ╱50╱P╱ // 0xba5 @0x22
0x0b83…0bd0 at0023 = ╱49╱I╱ // 0xba6 @0x23
0x0b83…0bd0 at0024 = ╱4c╱L╱ // 0xba7 @0x24
0x0b83…0bd0 at0025 = ╱34╱4╱ // 0xba8 @0x25
0x0b83…0bd0 at0026 = ╱ec╱,╱ // 0xba9 @0x26
0x0b83…0bd0 at0027 = ╱31╱1╱ // 0xbaa @0x27
0x0b83…0bd0 at0028 = ╱fe00008001╱ // 0xbab @0x28
0x0b83…0bd0 at002d = ╱ee╱)╱ // 0xbb0 @0x2d
0x0b83…0bd0 at002e = ╱e1╱<>╱ // 0xbb1 @0x2e
0x0b83…0bd0 at002f = ╱31╱1╱ // 0xbb2 @0x2f
0x0b83…0bd0 at0030 = ╱30╱0╱ // 0xbb3 @0x30
0x0b83…0bd0 at0031 = ╱30╱0╱ // 0xbb4 @0x31
0x0b83…0bd0 at0032 = ╱30╱0╱ // 0xbb5 @0x32
0x0b83…0bd0 at0033 = ╱30╱0╱ // 0xbb6 @0x33
0x0b83…0bd0 at0034 = ╱30╱0╱ // 0xbb7 @0x34
0x0b83…0bd0 at0035 = ╱30╱0╱ // 0xbb8 @0x35
0x0b83…0bd0 at0036 = ╱fe0024f414╱ // 0xbb9 @0x36
0x0b83…0bd0 at003b = ╱b6╱ THEN ╱ // 0xbbe @0x3b
0x0b83…0bd0 at003c = ╱50╱P╱ // 0xbbf @0x3c
0x0b83…0bd0 at003d = ╱49╱I╱ // 0xbc0 @0x3d
0x0b83…0bd0 at003e = ╱4c╱L╱ // 0xbc1 @0x3e
0x0b83…0bd0 at003f = ╱34╱4╱ // 0xbc2 @0x3f
0x0b83…0bd0 at0040 = ╱dc╱=╱ // 0xbc3 @0x40
0x0b83…0bd0 at0041 = ╱50╱P╱ // 0xbc4 @0x41
0x0b83…0bd0 at0042 = ╱49╱I╱ // 0xbc5 @0x42
0x0b83…0bd0 at0043 = ╱4c╱L╱ // 0xbc6 @0x43
0x0b83…0bd0 at0044 = ╱34╱4╱ // 0xbc7 @0x44
0x0b83…0bd0 at0045 = ╱e2╱+╱ // 0xbc8 @0x45
0x0b83…0bd0 at0046 = ╱31╱1╱ // 0xbc9 @0x46
0x0b83…0bd0 at0047 = ╱fe00008001╱ // 0xbca @0x47
0x0b83…0bd0 at004c = EOL // 0xbcf @0x4c
0x0b83…0bd0 }
0x0bd0…0bf9 9346 0940 FOR J=ANTAL2+1 TO PIL4+1 STEP -1
0x0bd0…0bf9 LineComalBcd {
0x0bd0…0bf9 ptr = 0x9346 // 0xbd0 @0x0
0x0bd0…0bf9 lno = 0x0940 // 0xbd2 @0x2
0x0bd0…0bf9 at0004 = ╱83╱ FOR ╱ // 0xbd4 @0x4
0x0bd0…0bf9 at0005 = ╱4a╱J╱ // 0xbd5 @0x5
0x0bd0…0bf9 at0006 = ╱dc╱=╱ // 0xbd6 @0x6
0x0bd0…0bf9 at0007 = ╱41╱A╱ // 0xbd7 @0x7
0x0bd0…0bf9 at0008 = ╱4e╱N╱ // 0xbd8 @0x8
0x0bd0…0bf9 at0009 = ╱54╱T╱ // 0xbd9 @0x9
0x0bd0…0bf9 at000a = ╱41╱A╱ // 0xbda @0xa
0x0bd0…0bf9 at000b = ╱4c╱L╱ // 0xbdb @0xb
0x0bd0…0bf9 at000c = ╱32╱2╱ // 0xbdc @0xc
0x0bd0…0bf9 at000d = ╱e2╱+╱ // 0xbdd @0xd
0x0bd0…0bf9 at000e = ╱31╱1╱ // 0xbde @0xe
0x0bd0…0bf9 at000f = ╱fe00008001╱ // 0xbdf @0xf
0x0bd0…0bf9 at0014 = ╱b7╱ TO ╱ // 0xbe4 @0x14
0x0bd0…0bf9 at0015 = ╱50╱P╱ // 0xbe5 @0x15
0x0bd0…0bf9 at0016 = ╱49╱I╱ // 0xbe6 @0x16
0x0bd0…0bf9 at0017 = ╱4c╱L╱ // 0xbe7 @0x17
0x0bd0…0bf9 at0018 = ╱34╱4╱ // 0xbe8 @0x18
0x0bd0…0bf9 at0019 = ╱e2╱+╱ // 0xbe9 @0x19
0x0bd0…0bf9 at001a = ╱31╱1╱ // 0xbea @0x1a
0x0bd0…0bf9 at001b = ╱fe00008001╱ // 0xbeb @0x1b
0x0bd0…0bf9 at0020 = ╱b8╱ STEP ╱ // 0xbf0 @0x20
0x0bd0…0bf9 at0021 = ╱e9╱-╱ // 0xbf1 @0x21
0x0bd0…0bf9 at0022 = ╱31╱1╱ // 0xbf2 @0x22
0x0bd0…0bf9 at0023 = ╱fe00008001╱ // 0xbf3 @0x23
0x0bd0…0bf9 at0028 = EOL // 0xbf8 @0x28
0x0bd0…0bf9 }
0x0bf9…0c22 936f 0950 TAB2(J,1)=TAB2(J-1,1)
0x0bf9…0c22 LineComalBcd {
0x0bf9…0c22 ptr = 0x936f // 0xbf9 @0x0
0x0bf9…0c22 lno = 0x0950 // 0xbfb @0x2
0x0bf9…0c22 at0004 = ╱54╱T╱ // 0xbfd @0x4
0x0bf9…0c22 at0005 = ╱41╱A╱ // 0xbfe @0x5
0x0bf9…0c22 at0006 = ╱42╱B╱ // 0xbff @0x6
0x0bf9…0c22 at0007 = ╱32╱2╱ // 0xc00 @0x7
0x0bf9…0c22 at0008 = ╱ed╱(╱ // 0xc01 @0x8
0x0bf9…0c22 at0009 = ╱4a╱J╱ // 0xc02 @0x9
0x0bf9…0c22 at000a = ╱ec╱,╱ // 0xc03 @0xa
0x0bf9…0c22 at000b = ╱31╱1╱ // 0xc04 @0xb
0x0bf9…0c22 at000c = ╱fe00008001╱ // 0xc05 @0xc
0x0bf9…0c22 at0011 = ╱ee╱)╱ // 0xc0a @0x11
0x0bf9…0c22 at0012 = ╱dc╱=╱ // 0xc0b @0x12
0x0bf9…0c22 at0013 = ╱54╱T╱ // 0xc0c @0x13
0x0bf9…0c22 at0014 = ╱41╱A╱ // 0xc0d @0x14
0x0bf9…0c22 at0015 = ╱42╱B╱ // 0xc0e @0x15
0x0bf9…0c22 at0016 = ╱32╱2╱ // 0xc0f @0x16
0x0bf9…0c22 at0017 = ╱ed╱(╱ // 0xc10 @0x17
0x0bf9…0c22 at0018 = ╱4a╱J╱ // 0xc11 @0x18
0x0bf9…0c22 at0019 = ╱e3╱-╱ // 0xc12 @0x19
0x0bf9…0c22 at001a = ╱31╱1╱ // 0xc13 @0x1a
0x0bf9…0c22 at001b = ╱fe00008001╱ // 0xc14 @0x1b
0x0bf9…0c22 at0020 = ╱ec╱,╱ // 0xc19 @0x20
0x0bf9…0c22 at0021 = ╱31╱1╱ // 0xc1a @0x21
0x0bf9…0c22 at0022 = ╱fe00008001╱ // 0xc1b @0x22
0x0bf9…0c22 at0027 = ╱ee╱)╱ // 0xc20 @0x27
0x0bf9…0c22 at0028 = EOL // 0xc21 @0x28
0x0bf9…0c22 }
0x0c22…0c4b 9398 0960 TAB2(J,2)=TAB2(J-1,2)
0x0c22…0c4b LineComalBcd {
0x0c22…0c4b ptr = 0x9398 // 0xc22 @0x0
0x0c22…0c4b lno = 0x0960 // 0xc24 @0x2
0x0c22…0c4b at0004 = ╱54╱T╱ // 0xc26 @0x4
0x0c22…0c4b at0005 = ╱41╱A╱ // 0xc27 @0x5
0x0c22…0c4b at0006 = ╱42╱B╱ // 0xc28 @0x6
0x0c22…0c4b at0007 = ╱32╱2╱ // 0xc29 @0x7
0x0c22…0c4b at0008 = ╱ed╱(╱ // 0xc2a @0x8
0x0c22…0c4b at0009 = ╱4a╱J╱ // 0xc2b @0x9
0x0c22…0c4b at000a = ╱ec╱,╱ // 0xc2c @0xa
0x0c22…0c4b at000b = ╱32╱2╱ // 0xc2d @0xb
0x0c22…0c4b at000c = ╱fe00008002╱ // 0xc2e @0xc
0x0c22…0c4b at0011 = ╱ee╱)╱ // 0xc33 @0x11
0x0c22…0c4b at0012 = ╱dc╱=╱ // 0xc34 @0x12
0x0c22…0c4b at0013 = ╱54╱T╱ // 0xc35 @0x13
0x0c22…0c4b at0014 = ╱41╱A╱ // 0xc36 @0x14
0x0c22…0c4b at0015 = ╱42╱B╱ // 0xc37 @0x15
0x0c22…0c4b at0016 = ╱32╱2╱ // 0xc38 @0x16
0x0c22…0c4b at0017 = ╱ed╱(╱ // 0xc39 @0x17
0x0c22…0c4b at0018 = ╱4a╱J╱ // 0xc3a @0x18
0x0c22…0c4b at0019 = ╱e3╱-╱ // 0xc3b @0x19
0x0c22…0c4b at001a = ╱31╱1╱ // 0xc3c @0x1a
0x0c22…0c4b at001b = ╱fe00008001╱ // 0xc3d @0x1b
0x0c22…0c4b at0020 = ╱ec╱,╱ // 0xc42 @0x20
0x0c22…0c4b at0021 = ╱32╱2╱ // 0xc43 @0x21
0x0c22…0c4b at0022 = ╱fe00008002╱ // 0xc44 @0x22
0x0c22…0c4b at0027 = ╱ee╱)╱ // 0xc49 @0x27
0x0c22…0c4b at0028 = EOL // 0xc4a @0x28
0x0c22…0c4b }
0x0c4b…0c52 939f 0970 NEXT J
0x0c4b…0c52 LineComalBcd {
0x0c4b…0c52 ptr = 0x939f // 0xc4b @0x0
0x0c4b…0c52 lno = 0x0970 // 0xc4d @0x2
0x0c4b…0c52 at0004 = ╱84╱ NEXT ╱ // 0xc4f @0x4
0x0c4b…0c52 at0005 = ╱4a╱J╱ // 0xc50 @0x5
0x0c4b…0c52 at0006 = EOL // 0xc51 @0x6
0x0c4b…0c52 }
0x0c52…0c6e 93bb 0980 TAB2(PIL4,1)=NØGL2
0x0c52…0c6e LineComalBcd {
0x0c52…0c6e ptr = 0x93bb // 0xc52 @0x0
0x0c52…0c6e lno = 0x0980 // 0xc54 @0x2
0x0c52…0c6e at0004 = ╱54╱T╱ // 0xc56 @0x4
0x0c52…0c6e at0005 = ╱41╱A╱ // 0xc57 @0x5
0x0c52…0c6e at0006 = ╱42╱B╱ // 0xc58 @0x6
0x0c52…0c6e at0007 = ╱32╱2╱ // 0xc59 @0x7
0x0c52…0c6e at0008 = ╱ed╱(╱ // 0xc5a @0x8
0x0c52…0c6e at0009 = ╱50╱P╱ // 0xc5b @0x9
0x0c52…0c6e at000a = ╱49╱I╱ // 0xc5c @0xa
0x0c52…0c6e at000b = ╱4c╱L╱ // 0xc5d @0xb
0x0c52…0c6e at000c = ╱34╱4╱ // 0xc5e @0xc
0x0c52…0c6e at000d = ╱ec╱,╱ // 0xc5f @0xd
0x0c52…0c6e at000e = ╱31╱1╱ // 0xc60 @0xe
0x0c52…0c6e at000f = ╱fe00008001╱ // 0xc61 @0xf
0x0c52…0c6e at0014 = ╱ee╱)╱ // 0xc66 @0x14
0x0c52…0c6e at0015 = ╱dc╱=╱ // 0xc67 @0x15
0x0c52…0c6e at0016 = ╱4e╱N╱ // 0xc68 @0x16
0x0c52…0c6e at0017 = ╱5c╱Ø╱ // 0xc69 @0x17
0x0c52…0c6e at0018 = ╱47╱G╱ // 0xc6a @0x18
0x0c52…0c6e at0019 = ╱4c╱L╱ // 0xc6b @0x19
0x0c52…0c6e at001a = ╱32╱2╱ // 0xc6c @0x1a
0x0c52…0c6e at001b = EOL // 0xc6d @0x1b
0x0c52…0c6e }
0x0c6e…0c8b 93d8 0990 TAB2(PIL4,2)=POSTNR
0x0c6e…0c8b LineComalBcd {
0x0c6e…0c8b ptr = 0x93d8 // 0xc6e @0x0
0x0c6e…0c8b lno = 0x0990 // 0xc70 @0x2
0x0c6e…0c8b at0004 = ╱54╱T╱ // 0xc72 @0x4
0x0c6e…0c8b at0005 = ╱41╱A╱ // 0xc73 @0x5
0x0c6e…0c8b at0006 = ╱42╱B╱ // 0xc74 @0x6
0x0c6e…0c8b at0007 = ╱32╱2╱ // 0xc75 @0x7
0x0c6e…0c8b at0008 = ╱ed╱(╱ // 0xc76 @0x8
0x0c6e…0c8b at0009 = ╱50╱P╱ // 0xc77 @0x9
0x0c6e…0c8b at000a = ╱49╱I╱ // 0xc78 @0xa
0x0c6e…0c8b at000b = ╱4c╱L╱ // 0xc79 @0xb
0x0c6e…0c8b at000c = ╱34╱4╱ // 0xc7a @0xc
0x0c6e…0c8b at000d = ╱ec╱,╱ // 0xc7b @0xd
0x0c6e…0c8b at000e = ╱32╱2╱ // 0xc7c @0xe
0x0c6e…0c8b at000f = ╱fe00008002╱ // 0xc7d @0xf
0x0c6e…0c8b at0014 = ╱ee╱)╱ // 0xc82 @0x14
0x0c6e…0c8b at0015 = ╱dc╱=╱ // 0xc83 @0x15
0x0c6e…0c8b at0016 = ╱50╱P╱ // 0xc84 @0x16
0x0c6e…0c8b at0017 = ╱4f╱O╱ // 0xc85 @0x17
0x0c6e…0c8b at0018 = ╱53╱S╱ // 0xc86 @0x18
0x0c6e…0c8b at0019 = ╱54╱T╱ // 0xc87 @0x19
0x0c6e…0c8b at001a = ╱4e╱N╱ // 0xc88 @0x1a
0x0c6e…0c8b at001b = ╱52╱R╱ // 0xc89 @0x1b
0x0c6e…0c8b at001c = EOL // 0xc8a @0x1c
0x0c6e…0c8b }
0x0c8b…0ca4 93f1 1000 ANTAL2=ANTAL2+1
0x0c8b…0ca4 LineComalBcd {
0x0c8b…0ca4 ptr = 0x93f1 // 0xc8b @0x0
0x0c8b…0ca4 lno = 0x1000 // 0xc8d @0x2
0x0c8b…0ca4 at0004 = ╱41╱A╱ // 0xc8f @0x4
0x0c8b…0ca4 at0005 = ╱4e╱N╱ // 0xc90 @0x5
0x0c8b…0ca4 at0006 = ╱54╱T╱ // 0xc91 @0x6
0x0c8b…0ca4 at0007 = ╱41╱A╱ // 0xc92 @0x7
0x0c8b…0ca4 at0008 = ╱4c╱L╱ // 0xc93 @0x8
0x0c8b…0ca4 at0009 = ╱32╱2╱ // 0xc94 @0x9
0x0c8b…0ca4 at000a = ╱dc╱=╱ // 0xc95 @0xa
0x0c8b…0ca4 at000b = ╱41╱A╱ // 0xc96 @0xb
0x0c8b…0ca4 at000c = ╱4e╱N╱ // 0xc97 @0xc
0x0c8b…0ca4 at000d = ╱54╱T╱ // 0xc98 @0xd
0x0c8b…0ca4 at000e = ╱41╱A╱ // 0xc99 @0xe
0x0c8b…0ca4 at000f = ╱4c╱L╱ // 0xc9a @0xf
0x0c8b…0ca4 at0010 = ╱32╱2╱ // 0xc9b @0x10
0x0c8b…0ca4 at0011 = ╱e2╱+╱ // 0xc9c @0x11
0x0c8b…0ca4 at0012 = ╱31╱1╱ // 0xc9d @0x12
0x0c8b…0ca4 at0013 = ╱fe00008001╱ // 0xc9e @0x13
0x0c8b…0ca4 at0018 = EOL // 0xca3 @0x18
0x0c8b…0ca4 }
0x0ca4…0caa 93f7 1010 ENDIF
0x0ca4…0caa LineComalBcd {
0x0ca4…0caa ptr = 0x93f7 // 0xca4 @0x0
0x0ca4…0caa lno = 0x1010 // 0xca6 @0x2
0x0ca4…0caa at0004 = ╱9b╱ ENDIF ╱ // 0xca8 @0x4
0x0ca4…0caa at0005 = EOL // 0xca9 @0x5
0x0ca4…0caa }
0x0caa…0cb0 93fd 1020 ENDPROC
0x0caa…0cb0 LineComalBcd {
0x0caa…0cb0 ptr = 0x93fd // 0xcaa @0x0
0x0caa…0cb0 lno = 0x1020 // 0xcac @0x2
0x0caa…0cb0 at0004 = ╱9f╱ ENDPROC ╱ // 0xcae @0x4
0x0caa…0cb0 at0005 = EOL // 0xcaf @0x5
0x0caa…0cb0 }
0x0cb0…0cd6 9423 1030 PROC SLETPOST(TAB3,ANTAL3,NØGL3,PIL5)
0x0cb0…0cd6 LineComalBcd {
0x0cb0…0cd6 ptr = 0x9423 // 0xcb0 @0x0
0x0cb0…0cd6 lno = 0x1030 // 0xcb2 @0x2
0x0cb0…0cd6 at0004 = ╱9e╱ PROC ╱ // 0xcb4 @0x4
0x0cb0…0cd6 at0005 = ╱53╱S╱ // 0xcb5 @0x5
0x0cb0…0cd6 at0006 = ╱4c╱L╱ // 0xcb6 @0x6
0x0cb0…0cd6 at0007 = ╱45╱E╱ // 0xcb7 @0x7
0x0cb0…0cd6 at0008 = ╱54╱T╱ // 0xcb8 @0x8
0x0cb0…0cd6 at0009 = ╱50╱P╱ // 0xcb9 @0x9
0x0cb0…0cd6 at000a = ╱4f╱O╱ // 0xcba @0xa
0x0cb0…0cd6 at000b = ╱53╱S╱ // 0xcbb @0xb
0x0cb0…0cd6 at000c = ╱54╱T╱ // 0xcbc @0xc
0x0cb0…0cd6 at000d = ╱ed╱(╱ // 0xcbd @0xd
0x0cb0…0cd6 at000e = ╱54╱T╱ // 0xcbe @0xe
0x0cb0…0cd6 at000f = ╱41╱A╱ // 0xcbf @0xf
0x0cb0…0cd6 at0010 = ╱42╱B╱ // 0xcc0 @0x10
0x0cb0…0cd6 at0011 = ╱33╱3╱ // 0xcc1 @0x11
0x0cb0…0cd6 at0012 = ╱ec╱,╱ // 0xcc2 @0x12
0x0cb0…0cd6 at0013 = ╱41╱A╱ // 0xcc3 @0x13
0x0cb0…0cd6 at0014 = ╱4e╱N╱ // 0xcc4 @0x14
0x0cb0…0cd6 at0015 = ╱54╱T╱ // 0xcc5 @0x15
0x0cb0…0cd6 at0016 = ╱41╱A╱ // 0xcc6 @0x16
0x0cb0…0cd6 at0017 = ╱4c╱L╱ // 0xcc7 @0x17
0x0cb0…0cd6 at0018 = ╱33╱3╱ // 0xcc8 @0x18
0x0cb0…0cd6 at0019 = ╱ec╱,╱ // 0xcc9 @0x19
0x0cb0…0cd6 at001a = ╱4e╱N╱ // 0xcca @0x1a
0x0cb0…0cd6 at001b = ╱5c╱Ø╱ // 0xccb @0x1b
0x0cb0…0cd6 at001c = ╱47╱G╱ // 0xccc @0x1c
0x0cb0…0cd6 at001d = ╱4c╱L╱ // 0xccd @0x1d
0x0cb0…0cd6 at001e = ╱33╱3╱ // 0xcce @0x1e
0x0cb0…0cd6 at001f = ╱ec╱,╱ // 0xccf @0x1f
0x0cb0…0cd6 at0020 = ╱50╱P╱ // 0xcd0 @0x20
0x0cb0…0cd6 at0021 = ╱49╱I╱ // 0xcd1 @0x21
0x0cb0…0cd6 at0022 = ╱4c╱L╱ // 0xcd2 @0x22
0x0cb0…0cd6 at0023 = ╱35╱5╱ // 0xcd3 @0x23
0x0cb0…0cd6 at0024 = ╱ee╱)╱ // 0xcd4 @0x24
0x0cb0…0cd6 at0025 = EOL // 0xcd5 @0x25
0x0cb0…0cd6 }
0x0cd6…0ce8 9435 1040 IF CEKS=0 THEN
0x0cd6…0ce8 LineComalBcd {
0x0cd6…0ce8 ptr = 0x9435 // 0xcd6 @0x0
0x0cd6…0ce8 lno = 0x1040 // 0xcd8 @0x2
0x0cd6…0ce8 at0004 = ╱9c╱ IF ╱ // 0xcda @0x4
0x0cd6…0ce8 at0005 = ╱43╱C╱ // 0xcdb @0x5
0x0cd6…0ce8 at0006 = ╱45╱E╱ // 0xcdc @0x6
0x0cd6…0ce8 at0007 = ╱4b╱K╱ // 0xcdd @0x7
0x0cd6…0ce8 at0008 = ╱53╱S╱ // 0xcde @0x8
0x0cd6…0ce8 at0009 = ╱dc╱=╱ // 0xcdf @0x9
0x0cd6…0ce8 at000a = ╱30╱0╱ // 0xce0 @0xa
0x0cd6…0ce8 at000b = ╱fe00000000╱ // 0xce1 @0xb
0x0cd6…0ce8 at0010 = ╱b6╱ THEN ╱ // 0xce6 @0x10
0x0cd6…0ce8 at0011 = EOL // 0xce7 @0x11
0x0cd6…0ce8 }
0x0ce8…0d05 9452 1050 POSTNR=TAB3(PIL5,2)
0x0ce8…0d05 LineComalBcd {
0x0ce8…0d05 ptr = 0x9452 // 0xce8 @0x0
0x0ce8…0d05 lno = 0x1050 // 0xcea @0x2
0x0ce8…0d05 at0004 = ╱50╱P╱ // 0xcec @0x4
0x0ce8…0d05 at0005 = ╱4f╱O╱ // 0xced @0x5
0x0ce8…0d05 at0006 = ╱53╱S╱ // 0xcee @0x6
0x0ce8…0d05 at0007 = ╱54╱T╱ // 0xcef @0x7
0x0ce8…0d05 at0008 = ╱4e╱N╱ // 0xcf0 @0x8
0x0ce8…0d05 at0009 = ╱52╱R╱ // 0xcf1 @0x9
0x0ce8…0d05 at000a = ╱dc╱=╱ // 0xcf2 @0xa
0x0ce8…0d05 at000b = ╱54╱T╱ // 0xcf3 @0xb
0x0ce8…0d05 at000c = ╱41╱A╱ // 0xcf4 @0xc
0x0ce8…0d05 at000d = ╱42╱B╱ // 0xcf5 @0xd
0x0ce8…0d05 at000e = ╱33╱3╱ // 0xcf6 @0xe
0x0ce8…0d05 at000f = ╱ed╱(╱ // 0xcf7 @0xf
0x0ce8…0d05 at0010 = ╱50╱P╱ // 0xcf8 @0x10
0x0ce8…0d05 at0011 = ╱49╱I╱ // 0xcf9 @0x11
0x0ce8…0d05 at0012 = ╱4c╱L╱ // 0xcfa @0x12
0x0ce8…0d05 at0013 = ╱35╱5╱ // 0xcfb @0x13
0x0ce8…0d05 at0014 = ╱ec╱,╱ // 0xcfc @0x14
0x0ce8…0d05 at0015 = ╱32╱2╱ // 0xcfd @0x15
0x0ce8…0d05 at0016 = ╱fe00008002╱ // 0xcfe @0x16
0x0ce8…0d05 at001b = ╱ee╱)╱ // 0xd03 @0x1b
0x0ce8…0d05 at001c = EOL // 0xd04 @0x1c
0x0ce8…0d05 }
0x0d05…0d18 9465 1060 FOR I=PIL5 TO ANTAL3
0x0d05…0d18 LineComalBcd {
0x0d05…0d18 ptr = 0x9465 // 0xd05 @0x0
0x0d05…0d18 lno = 0x1060 // 0xd07 @0x2
0x0d05…0d18 at0004 = ╱83╱ FOR ╱ // 0xd09 @0x4
0x0d05…0d18 at0005 = ╱49╱I╱ // 0xd0a @0x5
0x0d05…0d18 at0006 = ╱dc╱=╱ // 0xd0b @0x6
0x0d05…0d18 at0007 = ╱50╱P╱ // 0xd0c @0x7
0x0d05…0d18 at0008 = ╱49╱I╱ // 0xd0d @0x8
0x0d05…0d18 at0009 = ╱4c╱L╱ // 0xd0e @0x9
0x0d05…0d18 at000a = ╱35╱5╱ // 0xd0f @0xa
0x0d05…0d18 at000b = ╱b7╱ TO ╱ // 0xd10 @0xb
0x0d05…0d18 at000c = ╱41╱A╱ // 0xd11 @0xc
0x0d05…0d18 at000d = ╱4e╱N╱ // 0xd12 @0xd
0x0d05…0d18 at000e = ╱54╱T╱ // 0xd13 @0xe
0x0d05…0d18 at000f = ╱41╱A╱ // 0xd14 @0xf
0x0d05…0d18 at0010 = ╱4c╱L╱ // 0xd15 @0x10
0x0d05…0d18 at0011 = ╱33╱3╱ // 0xd16 @0x11
0x0d05…0d18 at0012 = EOL // 0xd17 @0x12
0x0d05…0d18 }
0x0d18…0d41 948e 1070 TAB3(I,1)=TAB3(I+1,1)
0x0d18…0d41 LineComalBcd {
0x0d18…0d41 ptr = 0x948e // 0xd18 @0x0
0x0d18…0d41 lno = 0x1070 // 0xd1a @0x2
0x0d18…0d41 at0004 = ╱54╱T╱ // 0xd1c @0x4
0x0d18…0d41 at0005 = ╱41╱A╱ // 0xd1d @0x5
0x0d18…0d41 at0006 = ╱42╱B╱ // 0xd1e @0x6
0x0d18…0d41 at0007 = ╱33╱3╱ // 0xd1f @0x7
0x0d18…0d41 at0008 = ╱ed╱(╱ // 0xd20 @0x8
0x0d18…0d41 at0009 = ╱49╱I╱ // 0xd21 @0x9
0x0d18…0d41 at000a = ╱ec╱,╱ // 0xd22 @0xa
0x0d18…0d41 at000b = ╱31╱1╱ // 0xd23 @0xb
0x0d18…0d41 at000c = ╱fe00008001╱ // 0xd24 @0xc
0x0d18…0d41 at0011 = ╱ee╱)╱ // 0xd29 @0x11
0x0d18…0d41 at0012 = ╱dc╱=╱ // 0xd2a @0x12
0x0d18…0d41 at0013 = ╱54╱T╱ // 0xd2b @0x13
0x0d18…0d41 at0014 = ╱41╱A╱ // 0xd2c @0x14
0x0d18…0d41 at0015 = ╱42╱B╱ // 0xd2d @0x15
0x0d18…0d41 at0016 = ╱33╱3╱ // 0xd2e @0x16
0x0d18…0d41 at0017 = ╱ed╱(╱ // 0xd2f @0x17
0x0d18…0d41 at0018 = ╱49╱I╱ // 0xd30 @0x18
0x0d18…0d41 at0019 = ╱e2╱+╱ // 0xd31 @0x19
0x0d18…0d41 at001a = ╱31╱1╱ // 0xd32 @0x1a
0x0d18…0d41 at001b = ╱fe00008001╱ // 0xd33 @0x1b
0x0d18…0d41 at0020 = ╱ec╱,╱ // 0xd38 @0x20
0x0d18…0d41 at0021 = ╱31╱1╱ // 0xd39 @0x21
0x0d18…0d41 at0022 = ╱fe00008001╱ // 0xd3a @0x22
0x0d18…0d41 at0027 = ╱ee╱)╱ // 0xd3f @0x27
0x0d18…0d41 at0028 = EOL // 0xd40 @0x28
0x0d18…0d41 }
0x0d41…0d6a 94b7 1080 TAB3(I,2)=TAB3(I+1,2)
0x0d41…0d6a LineComalBcd {
0x0d41…0d6a ptr = 0x94b7 // 0xd41 @0x0
0x0d41…0d6a lno = 0x1080 // 0xd43 @0x2
0x0d41…0d6a at0004 = ╱54╱T╱ // 0xd45 @0x4
0x0d41…0d6a at0005 = ╱41╱A╱ // 0xd46 @0x5
0x0d41…0d6a at0006 = ╱42╱B╱ // 0xd47 @0x6
0x0d41…0d6a at0007 = ╱33╱3╱ // 0xd48 @0x7
0x0d41…0d6a at0008 = ╱ed╱(╱ // 0xd49 @0x8
0x0d41…0d6a at0009 = ╱49╱I╱ // 0xd4a @0x9
0x0d41…0d6a at000a = ╱ec╱,╱ // 0xd4b @0xa
0x0d41…0d6a at000b = ╱32╱2╱ // 0xd4c @0xb
0x0d41…0d6a at000c = ╱fe00008002╱ // 0xd4d @0xc
0x0d41…0d6a at0011 = ╱ee╱)╱ // 0xd52 @0x11
0x0d41…0d6a at0012 = ╱dc╱=╱ // 0xd53 @0x12
0x0d41…0d6a at0013 = ╱54╱T╱ // 0xd54 @0x13
0x0d41…0d6a at0014 = ╱41╱A╱ // 0xd55 @0x14
0x0d41…0d6a at0015 = ╱42╱B╱ // 0xd56 @0x15
0x0d41…0d6a at0016 = ╱33╱3╱ // 0xd57 @0x16
0x0d41…0d6a at0017 = ╱ed╱(╱ // 0xd58 @0x17
0x0d41…0d6a at0018 = ╱49╱I╱ // 0xd59 @0x18
0x0d41…0d6a at0019 = ╱e2╱+╱ // 0xd5a @0x19
0x0d41…0d6a at001a = ╱31╱1╱ // 0xd5b @0x1a
0x0d41…0d6a at001b = ╱fe00008001╱ // 0xd5c @0x1b
0x0d41…0d6a at0020 = ╱ec╱,╱ // 0xd61 @0x20
0x0d41…0d6a at0021 = ╱32╱2╱ // 0xd62 @0x21
0x0d41…0d6a at0022 = ╱fe00008002╱ // 0xd63 @0x22
0x0d41…0d6a at0027 = ╱ee╱)╱ // 0xd68 @0x27
0x0d41…0d6a at0028 = EOL // 0xd69 @0x28
0x0d41…0d6a }
0x0d6a…0d71 94be 1090 NEXT I
0x0d6a…0d71 LineComalBcd {
0x0d6a…0d71 ptr = 0x94be // 0xd6a @0x0
0x0d6a…0d71 lno = 0x1090 // 0xd6c @0x2
0x0d6a…0d71 at0004 = ╱84╱ NEXT ╱ // 0xd6e @0x4
0x0d6a…0d71 at0005 = ╱49╱I╱ // 0xd6f @0x5
0x0d6a…0d71 at0006 = EOL // 0xd70 @0x6
0x0d6a…0d71 }
0x0d71…0d96 94e3 1100 TAB3(ANTAL3,1)=1000000
0x0d71…0d96 LineComalBcd {
0x0d71…0d96 ptr = 0x94e3 // 0xd71 @0x0
0x0d71…0d96 lno = 0x1100 // 0xd73 @0x2
0x0d71…0d96 at0004 = ╱54╱T╱ // 0xd75 @0x4
0x0d71…0d96 at0005 = ╱41╱A╱ // 0xd76 @0x5
0x0d71…0d96 at0006 = ╱42╱B╱ // 0xd77 @0x6
0x0d71…0d96 at0007 = ╱33╱3╱ // 0xd78 @0x7
0x0d71…0d96 at0008 = ╱ed╱(╱ // 0xd79 @0x8
0x0d71…0d96 at0009 = ╱41╱A╱ // 0xd7a @0x9
0x0d71…0d96 at000a = ╱4e╱N╱ // 0xd7b @0xa
0x0d71…0d96 at000b = ╱54╱T╱ // 0xd7c @0xb
0x0d71…0d96 at000c = ╱41╱A╱ // 0xd7d @0xc
0x0d71…0d96 at000d = ╱4c╱L╱ // 0xd7e @0xd
0x0d71…0d96 at000e = ╱33╱3╱ // 0xd7f @0xe
0x0d71…0d96 at000f = ╱ec╱,╱ // 0xd80 @0xf
0x0d71…0d96 at0010 = ╱31╱1╱ // 0xd81 @0x10
0x0d71…0d96 at0011 = ╱fe00008001╱ // 0xd82 @0x11
0x0d71…0d96 at0016 = ╱ee╱)╱ // 0xd87 @0x16
0x0d71…0d96 at0017 = ╱dc╱=╱ // 0xd88 @0x17
0x0d71…0d96 at0018 = ╱31╱1╱ // 0xd89 @0x18
0x0d71…0d96 at0019 = ╱30╱0╱ // 0xd8a @0x19
0x0d71…0d96 at001a = ╱30╱0╱ // 0xd8b @0x1a
0x0d71…0d96 at001b = ╱30╱0╱ // 0xd8c @0x1b
0x0d71…0d96 at001c = ╱30╱0╱ // 0xd8d @0x1c
0x0d71…0d96 at001d = ╱30╱0╱ // 0xd8e @0x1d
0x0d71…0d96 at001e = ╱30╱0╱ // 0xd8f @0x1e
0x0d71…0d96 at001f = ╱fe0024f414╱ // 0xd90 @0x1f
0x0d71…0d96 at0024 = EOL // 0xd95 @0x24
0x0d71…0d96 }
0x0d96…0db5 9502 1110 TAB3(ANTAL3,2)=POSTNR
0x0d96…0db5 LineComalBcd {
0x0d96…0db5 ptr = 0x9502 // 0xd96 @0x0
0x0d96…0db5 lno = 0x1110 // 0xd98 @0x2
0x0d96…0db5 at0004 = ╱54╱T╱ // 0xd9a @0x4
0x0d96…0db5 at0005 = ╱41╱A╱ // 0xd9b @0x5
0x0d96…0db5 at0006 = ╱42╱B╱ // 0xd9c @0x6
0x0d96…0db5 at0007 = ╱33╱3╱ // 0xd9d @0x7
0x0d96…0db5 at0008 = ╱ed╱(╱ // 0xd9e @0x8
0x0d96…0db5 at0009 = ╱41╱A╱ // 0xd9f @0x9
0x0d96…0db5 at000a = ╱4e╱N╱ // 0xda0 @0xa
0x0d96…0db5 at000b = ╱54╱T╱ // 0xda1 @0xb
0x0d96…0db5 at000c = ╱41╱A╱ // 0xda2 @0xc
0x0d96…0db5 at000d = ╱4c╱L╱ // 0xda3 @0xd
0x0d96…0db5 at000e = ╱33╱3╱ // 0xda4 @0xe
0x0d96…0db5 at000f = ╱ec╱,╱ // 0xda5 @0xf
0x0d96…0db5 at0010 = ╱32╱2╱ // 0xda6 @0x10
0x0d96…0db5 at0011 = ╱fe00008002╱ // 0xda7 @0x11
0x0d96…0db5 at0016 = ╱ee╱)╱ // 0xdac @0x16
0x0d96…0db5 at0017 = ╱dc╱=╱ // 0xdad @0x17
0x0d96…0db5 at0018 = ╱50╱P╱ // 0xdae @0x18
0x0d96…0db5 at0019 = ╱4f╱O╱ // 0xdaf @0x19
0x0d96…0db5 at001a = ╱53╱S╱ // 0xdb0 @0x1a
0x0d96…0db5 at001b = ╱54╱T╱ // 0xdb1 @0x1b
0x0d96…0db5 at001c = ╱4e╱N╱ // 0xdb2 @0x1c
0x0d96…0db5 at001d = ╱52╱R╱ // 0xdb3 @0x1d
0x0d96…0db5 at001e = EOL // 0xdb4 @0x1e
0x0d96…0db5 }
0x0db5…0dce 951b 1120 ANTAL3=ANTAL3-1
0x0db5…0dce LineComalBcd {
0x0db5…0dce ptr = 0x951b // 0xdb5 @0x0
0x0db5…0dce lno = 0x1120 // 0xdb7 @0x2
0x0db5…0dce at0004 = ╱41╱A╱ // 0xdb9 @0x4
0x0db5…0dce at0005 = ╱4e╱N╱ // 0xdba @0x5
0x0db5…0dce at0006 = ╱54╱T╱ // 0xdbb @0x6
0x0db5…0dce at0007 = ╱41╱A╱ // 0xdbc @0x7
0x0db5…0dce at0008 = ╱4c╱L╱ // 0xdbd @0x8
0x0db5…0dce at0009 = ╱33╱3╱ // 0xdbe @0x9
0x0db5…0dce at000a = ╱dc╱=╱ // 0xdbf @0xa
0x0db5…0dce at000b = ╱41╱A╱ // 0xdc0 @0xb
0x0db5…0dce at000c = ╱4e╱N╱ // 0xdc1 @0xc
0x0db5…0dce at000d = ╱54╱T╱ // 0xdc2 @0xd
0x0db5…0dce at000e = ╱41╱A╱ // 0xdc3 @0xe
0x0db5…0dce at000f = ╱4c╱L╱ // 0xdc4 @0xf
0x0db5…0dce at0010 = ╱33╱3╱ // 0xdc5 @0x10
0x0db5…0dce at0011 = ╱e3╱-╱ // 0xdc6 @0x11
0x0db5…0dce at0012 = ╱31╱1╱ // 0xdc7 @0x12
0x0db5…0dce at0013 = ╱fe00008001╱ // 0xdc8 @0x13
0x0db5…0dce at0018 = EOL // 0xdcd @0x18
0x0db5…0dce }
0x0dce…0dd4 9521 1130 ENDIF
0x0dce…0dd4 LineComalBcd {
0x0dce…0dd4 ptr = 0x9521 // 0xdce @0x0
0x0dce…0dd4 lno = 0x1130 // 0xdd0 @0x2
0x0dce…0dd4 at0004 = ╱9b╱ ENDIF ╱ // 0xdd2 @0x4
0x0dce…0dd4 at0005 = EOL // 0xdd3 @0x5
0x0dce…0dd4 }
0x0dd4…0dda 9527 1140 ENDPROC
0x0dd4…0dda LineComalBcd {
0x0dd4…0dda ptr = 0x9527 // 0xdd4 @0x0
0x0dd4…0dda lno = 0x1140 // 0xdd6 @0x2
0x0dd4…0dda at0004 = ╱9f╱ ENDPROC ╱ // 0xdd8 @0x4
0x0dd4…0dda at0005 = EOL // 0xdd9 @0x5
0x0dd4…0dda }
0x0dda…0de9 9536 1150 PROC HENTDPOST
0x0dda…0de9 LineComalBcd {
0x0dda…0de9 ptr = 0x9536 // 0xdda @0x0
0x0dda…0de9 lno = 0x1150 // 0xddc @0x2
0x0dda…0de9 at0004 = ╱9e╱ PROC ╱ // 0xdde @0x4
0x0dda…0de9 at0005 = ╱48╱H╱ // 0xddf @0x5
0x0dda…0de9 at0006 = ╱45╱E╱ // 0xde0 @0x6
0x0dda…0de9 at0007 = ╱4e╱N╱ // 0xde1 @0x7
0x0dda…0de9 at0008 = ╱54╱T╱ // 0xde2 @0x8
0x0dda…0de9 at0009 = ╱44╱D╱ // 0xde3 @0x9
0x0dda…0de9 at000a = ╱50╱P╱ // 0xde4 @0xa
0x0dda…0de9 at000b = ╱4f╱O╱ // 0xde5 @0xb
0x0dda…0de9 at000c = ╱53╱S╱ // 0xde6 @0xc
0x0dda…0de9 at000d = ╱54╱T╱ // 0xde7 @0xd
0x0dda…0de9 at000e = EOL // 0xde8 @0xe
0x0dda…0de9 }
0x0de9…0e02 954f 1160 S=DTAB(DPIL3,2)
0x0de9…0e02 LineComalBcd {
0x0de9…0e02 ptr = 0x954f // 0xde9 @0x0
0x0de9…0e02 lno = 0x1160 // 0xdeb @0x2
0x0de9…0e02 at0004 = ╱53╱S╱ // 0xded @0x4
0x0de9…0e02 at0005 = ╱dc╱=╱ // 0xdee @0x5
0x0de9…0e02 at0006 = ╱44╱D╱ // 0xdef @0x6
0x0de9…0e02 at0007 = ╱54╱T╱ // 0xdf0 @0x7
0x0de9…0e02 at0008 = ╱41╱A╱ // 0xdf1 @0x8
0x0de9…0e02 at0009 = ╱42╱B╱ // 0xdf2 @0x9
0x0de9…0e02 at000a = ╱ed╱(╱ // 0xdf3 @0xa
0x0de9…0e02 at000b = ╱44╱D╱ // 0xdf4 @0xb
0x0de9…0e02 at000c = ╱50╱P╱ // 0xdf5 @0xc
0x0de9…0e02 at000d = ╱49╱I╱ // 0xdf6 @0xd
0x0de9…0e02 at000e = ╱4c╱L╱ // 0xdf7 @0xe
0x0de9…0e02 at000f = ╱33╱3╱ // 0xdf8 @0xf
0x0de9…0e02 at0010 = ╱ec╱,╱ // 0xdf9 @0x10
0x0de9…0e02 at0011 = ╱32╱2╱ // 0xdfa @0x11
0x0de9…0e02 at0012 = ╱fe00008002╱ // 0xdfb @0x12
0x0de9…0e02 at0017 = ╱ee╱)╱ // 0xe00 @0x17
0x0de9…0e02 at0018 = EOL // 0xe01 @0x18
0x0de9…0e02 }
0x0e02…0e2d 957a 1170 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0e02…0e2d LineComalBcd {
0x0e02…0e2d ptr = 0x957a // 0xe02 @0x0
0x0e02…0e2d lno = 0x1170 // 0xe04 @0x2
0x0e02…0e2d at0004 = ╱a9╱ GET ╱ // 0xe06 @0x4
0x0e02…0e2d at0005 = ╱4b╱K╱ // 0xe07 @0x5
0x0e02…0e2d at0006 = ╱33╱3╱ // 0xe08 @0x6
0x0e02…0e2d at0007 = ╱ef╱$╱ // 0xe09 @0x7
0x0e02…0e2d at0008 = ╱ec╱,╱ // 0xe0a @0x8
0x0e02…0e2d at0009 = ╱53╱S╱ // 0xe0b @0x9
0x0e02…0e2d at000a = ╱f0╱:╱ // 0xe0c @0xa
0x0e02…0e2d at000b = ╱44╱D╱ // 0xe0d @0xb
0x0e02…0e2d at000c = ╱45╱E╱ // 0xe0e @0xc
0x0e02…0e2d at000d = ╱42╱B╱ // 0xe0f @0xd
0x0e02…0e2d at000e = ╱4e╱N╱ // 0xe10 @0xe
0x0e02…0e2d at000f = ╱52╱R╱ // 0xe11 @0xf
0x0e02…0e2d at0010 = ╱ec╱,╱ // 0xe12 @0x10
0x0e02…0e2d at0011 = ╱44╱D╱ // 0xe13 @0x11
0x0e02…0e2d at0012 = ╱45╱E╱ // 0xe14 @0x12
0x0e02…0e2d at0013 = ╱42╱B╱ // 0xe15 @0x13
0x0e02…0e2d at0014 = ╱4e╱N╱ // 0xe16 @0x14
0x0e02…0e2d at0015 = ╱41╱A╱ // 0xe17 @0x15
0x0e02…0e2d at0016 = ╱56╱V╱ // 0xe18 @0x16
0x0e02…0e2d at0017 = ╱4e╱N╱ // 0xe19 @0x17
0x0e02…0e2d at0018 = ╱ef╱$╱ // 0xe1a @0x18
0x0e02…0e2d at0019 = ╱ec╱,╱ // 0xe1b @0x19
0x0e02…0e2d at001a = ╱44╱D╱ // 0xe1c @0x1a
0x0e02…0e2d at001b = ╱53╱S╱ // 0xe1d @0x1b
0x0e02…0e2d at001c = ╱41╱A╱ // 0xe1e @0x1c
0x0e02…0e2d at001d = ╱4c╱L╱ // 0xe1f @0x1d
0x0e02…0e2d at001e = ╱44╱D╱ // 0xe20 @0x1e
0x0e02…0e2d at001f = ╱4f╱O╱ // 0xe21 @0x1f
0x0e02…0e2d at0020 = ╱31╱1╱ // 0xe22 @0x20
0x0e02…0e2d at0021 = ╱ef╱$╱ // 0xe23 @0x21
0x0e02…0e2d at0022 = ╱ec╱,╱ // 0xe24 @0x22
0x0e02…0e2d at0023 = ╱44╱D╱ // 0xe25 @0x23
0x0e02…0e2d at0024 = ╱45╱E╱ // 0xe26 @0x24
0x0e02…0e2d at0025 = ╱42╱B╱ // 0xe27 @0x25
0x0e02…0e2d at0026 = ╱4b╱K╱ // 0xe28 @0x26
0x0e02…0e2d at0027 = ╱47╱G╱ // 0xe29 @0x27
0x0e02…0e2d at0028 = ╱52╱R╱ // 0xe2a @0x28
0x0e02…0e2d at0029 = ╱ef╱$╱ // 0xe2b @0x29
0x0e02…0e2d at002a = EOL // 0xe2c @0x2a
0x0e02…0e2d }
0x0e2d…0e4a 9597 1180 EXEC FEJL(8,2,K3$)
0x0e2d…0e4a LineComalBcd {
0x0e2d…0e4a ptr = 0x9597 // 0xe2d @0x0
0x0e2d…0e4a lno = 0x1180 // 0xe2f @0x2
0x0e2d…0e4a at0004 = ╱9d╱ EXEC ╱ // 0xe31 @0x4
0x0e2d…0e4a at0005 = ╱46╱F╱ // 0xe32 @0x5
0x0e2d…0e4a at0006 = ╱45╱E╱ // 0xe33 @0x6
0x0e2d…0e4a at0007 = ╱4a╱J╱ // 0xe34 @0x7
0x0e2d…0e4a at0008 = ╱4c╱L╱ // 0xe35 @0x8
0x0e2d…0e4a at0009 = ╱ed╱(╱ // 0xe36 @0x9
0x0e2d…0e4a at000a = ╱38╱8╱ // 0xe37 @0xa
0x0e2d…0e4a at000b = ╱fe00008004╱ // 0xe38 @0xb
0x0e2d…0e4a at0010 = ╱ec╱,╱ // 0xe3d @0x10
0x0e2d…0e4a at0011 = ╱32╱2╱ // 0xe3e @0x11
0x0e2d…0e4a at0012 = ╱fe00008002╱ // 0xe3f @0x12
0x0e2d…0e4a at0017 = ╱ec╱,╱ // 0xe44 @0x17
0x0e2d…0e4a at0018 = ╱4b╱K╱ // 0xe45 @0x18
0x0e2d…0e4a at0019 = ╱33╱3╱ // 0xe46 @0x19
0x0e2d…0e4a at001a = ╱ef╱$╱ // 0xe47 @0x1a
0x0e2d…0e4a at001b = ╱ee╱)╱ // 0xe48 @0x1b
0x0e2d…0e4a at001c = EOL // 0xe49 @0x1c
0x0e2d…0e4a }
0x0e4a…0e6a 95b7 1190 IF DEBNR<>DTAB(DPIL3,1) THEN STOP
0x0e4a…0e6a LineComalBcd {
0x0e4a…0e6a ptr = 0x95b7 // 0xe4a @0x0
0x0e4a…0e6a lno = 0x1190 // 0xe4c @0x2
0x0e4a…0e6a at0004 = ╱82╱ IF ╱ // 0xe4e @0x4
0x0e4a…0e6a at0005 = ╱44╱D╱ // 0xe4f @0x5
0x0e4a…0e6a at0006 = ╱45╱E╱ // 0xe50 @0x6
0x0e4a…0e6a at0007 = ╱42╱B╱ // 0xe51 @0x7
0x0e4a…0e6a at0008 = ╱4e╱N╱ // 0xe52 @0x8
0x0e4a…0e6a at0009 = ╱52╱R╱ // 0xe53 @0x9
0x0e4a…0e6a at000a = ╱e1╱<>╱ // 0xe54 @0xa
0x0e4a…0e6a at000b = ╱44╱D╱ // 0xe55 @0xb
0x0e4a…0e6a at000c = ╱54╱T╱ // 0xe56 @0xc
0x0e4a…0e6a at000d = ╱41╱A╱ // 0xe57 @0xd
0x0e4a…0e6a at000e = ╱42╱B╱ // 0xe58 @0xe
0x0e4a…0e6a at000f = ╱ed╱(╱ // 0xe59 @0xf
0x0e4a…0e6a at0010 = ╱44╱D╱ // 0xe5a @0x10
0x0e4a…0e6a at0011 = ╱50╱P╱ // 0xe5b @0x11
0x0e4a…0e6a at0012 = ╱49╱I╱ // 0xe5c @0x12
0x0e4a…0e6a at0013 = ╱4c╱L╱ // 0xe5d @0x13
0x0e4a…0e6a at0014 = ╱33╱3╱ // 0xe5e @0x14
0x0e4a…0e6a at0015 = ╱ec╱,╱ // 0xe5f @0x15
0x0e4a…0e6a at0016 = ╱31╱1╱ // 0xe60 @0x16
0x0e4a…0e6a at0017 = ╱fe00008001╱ // 0xe61 @0x17
0x0e4a…0e6a at001c = ╱ee╱)╱ // 0xe66 @0x1c
0x0e4a…0e6a at001d = ╱b6╱ THEN ╱ // 0xe67 @0x1d
0x0e4a…0e6a at001e = ╱8d╱ STOP ╱ // 0xe68 @0x1e
0x0e4a…0e6a at001f = EOL // 0xe69 @0x1f
0x0e4a…0e6a }
0x0e6a…0ea8 95f5 1200 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x0e6a…0ea8 LineComalBcd {
0x0e6a…0ea8 ptr = 0x95f5 // 0xe6a @0x0
0x0e6a…0ea8 lno = 0x1200 // 0xe6c @0x2
0x0e6a…0ea8 at0004 = ╱a9╱ GET ╱ // 0xe6e @0x4
0x0e6a…0ea8 at0005 = ╱4b╱K╱ // 0xe6f @0x5
0x0e6a…0ea8 at0006 = ╱33╱3╱ // 0xe70 @0x6
0x0e6a…0ea8 at0007 = ╱ef╱$╱ // 0xe71 @0x7
0x0e6a…0ea8 at0008 = ╱ec╱,╱ // 0xe72 @0x8
0x0e6a…0ea8 at0009 = ╱53╱S╱ // 0xe73 @0x9
0x0e6a…0ea8 at000a = ╱e2╱+╱ // 0xe74 @0xa
0x0e6a…0ea8 at000b = ╱31╱1╱ // 0xe75 @0xb
0x0e6a…0ea8 at000c = ╱fe00008001╱ // 0xe76 @0xc
0x0e6a…0ea8 at0011 = ╱f0╱:╱ // 0xe7b @0x11
0x0e6a…0ea8 at0012 = ╱44╱D╱ // 0xe7c @0x12
0x0e6a…0ea8 at0013 = ╱53╱S╱ // 0xe7d @0x13
0x0e6a…0ea8 at0014 = ╱41╱A╱ // 0xe7e @0x14
0x0e6a…0ea8 at0015 = ╱4c╱L╱ // 0xe7f @0x15
0x0e6a…0ea8 at0016 = ╱44╱D╱ // 0xe80 @0x16
0x0e6a…0ea8 at0017 = ╱4f╱O╱ // 0xe81 @0x17
0x0e6a…0ea8 at0018 = ╱32╱2╱ // 0xe82 @0x18
0x0e6a…0ea8 at0019 = ╱ef╱$╱ // 0xe83 @0x19
0x0e6a…0ea8 at001a = ╱ec╱,╱ // 0xe84 @0x1a
0x0e6a…0ea8 at001b = ╱44╱D╱ // 0xe85 @0x1b
0x0e6a…0ea8 at001c = ╱53╱S╱ // 0xe86 @0x1c
0x0e6a…0ea8 at001d = ╱41╱A╱ // 0xe87 @0x1d
0x0e6a…0ea8 at001e = ╱4c╱L╱ // 0xe88 @0x1e
0x0e6a…0ea8 at001f = ╱44╱D╱ // 0xe89 @0x1f
0x0e6a…0ea8 at0020 = ╱4f╱O╱ // 0xe8a @0x20
0x0e6a…0ea8 at0021 = ╱33╱3╱ // 0xe8b @0x21
0x0e6a…0ea8 at0022 = ╱ef╱$╱ // 0xe8c @0x22
0x0e6a…0ea8 at0023 = ╱ec╱,╱ // 0xe8d @0x23
0x0e6a…0ea8 at0024 = ╱44╱D╱ // 0xe8e @0x24
0x0e6a…0ea8 at0025 = ╱53╱S╱ // 0xe8f @0x25
0x0e6a…0ea8 at0026 = ╱41╱A╱ // 0xe90 @0x26
0x0e6a…0ea8 at0027 = ╱4c╱L╱ // 0xe91 @0x27
0x0e6a…0ea8 at0028 = ╱44╱D╱ // 0xe92 @0x28
0x0e6a…0ea8 at0029 = ╱4f╱O╱ // 0xe93 @0x29
0x0e6a…0ea8 at002a = ╱34╱4╱ // 0xe94 @0x2a
0x0e6a…0ea8 at002b = ╱ef╱$╱ // 0xe95 @0x2b
0x0e6a…0ea8 at002c = ╱ec╱,╱ // 0xe96 @0x2c
0x0e6a…0ea8 at002d = ╱44╱D╱ // 0xe97 @0x2d
0x0e6a…0ea8 at002e = ╱45╱E╱ // 0xe98 @0x2e
0x0e6a…0ea8 at002f = ╱42╱B╱ // 0xe99 @0x2f
0x0e6a…0ea8 at0030 = ╱50╱P╱ // 0xe9a @0x30
0x0e6a…0ea8 at0031 = ╱4f╱O╱ // 0xe9b @0x31
0x0e6a…0ea8 at0032 = ╱53╱S╱ // 0xe9c @0x32
0x0e6a…0ea8 at0033 = ╱54╱T╱ // 0xe9d @0x33
0x0e6a…0ea8 at0034 = ╱4e╱N╱ // 0xe9e @0x34
0x0e6a…0ea8 at0035 = ╱52╱R╱ // 0xe9f @0x35
0x0e6a…0ea8 at0036 = ╱ec╱,╱ // 0xea0 @0x36
0x0e6a…0ea8 at0037 = ╱44╱D╱ // 0xea1 @0x37
0x0e6a…0ea8 at0038 = ╱45╱E╱ // 0xea2 @0x38
0x0e6a…0ea8 at0039 = ╱42╱B╱ // 0xea3 @0x39
0x0e6a…0ea8 at003a = ╱4c╱L╱ // 0xea4 @0x3a
0x0e6a…0ea8 at003b = ╱4b╱K╱ // 0xea5 @0x3b
0x0e6a…0ea8 at003c = ╱ef╱$╱ // 0xea6 @0x3c
0x0e6a…0ea8 at003d = EOL // 0xea7 @0x3d
0x0e6a…0ea8 }
0x0ea8…0ec5 9612 1210 EXEC FEJL(8,3,K3$)
0x0ea8…0ec5 LineComalBcd {
0x0ea8…0ec5 ptr = 0x9612 // 0xea8 @0x0
0x0ea8…0ec5 lno = 0x1210 // 0xeaa @0x2
0x0ea8…0ec5 at0004 = ╱9d╱ EXEC ╱ // 0xeac @0x4
0x0ea8…0ec5 at0005 = ╱46╱F╱ // 0xead @0x5
0x0ea8…0ec5 at0006 = ╱45╱E╱ // 0xeae @0x6
0x0ea8…0ec5 at0007 = ╱4a╱J╱ // 0xeaf @0x7
0x0ea8…0ec5 at0008 = ╱4c╱L╱ // 0xeb0 @0x8
0x0ea8…0ec5 at0009 = ╱ed╱(╱ // 0xeb1 @0x9
0x0ea8…0ec5 at000a = ╱38╱8╱ // 0xeb2 @0xa
0x0ea8…0ec5 at000b = ╱fe00008004╱ // 0xeb3 @0xb
0x0ea8…0ec5 at0010 = ╱ec╱,╱ // 0xeb8 @0x10
0x0ea8…0ec5 at0011 = ╱33╱3╱ // 0xeb9 @0x11
0x0ea8…0ec5 at0012 = ╱fe0000c002╱ // 0xeba @0x12
0x0ea8…0ec5 at0017 = ╱ec╱,╱ // 0xebf @0x17
0x0ea8…0ec5 at0018 = ╱4b╱K╱ // 0xec0 @0x18
0x0ea8…0ec5 at0019 = ╱33╱3╱ // 0xec1 @0x19
0x0ea8…0ec5 at001a = ╱ef╱$╱ // 0xec2 @0x1a
0x0ea8…0ec5 at001b = ╱ee╱)╱ // 0xec3 @0x1b
0x0ea8…0ec5 at001c = EOL // 0xec4 @0x1c
0x0ea8…0ec5 }
0x0ec5…0ef5 9642 1220 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x0ec5…0ef5 LineComalBcd {
0x0ec5…0ef5 ptr = 0x9642 // 0xec5 @0x0
0x0ec5…0ef5 lno = 0x1220 // 0xec7 @0x2
0x0ec5…0ef5 at0004 = ╱a9╱ GET ╱ // 0xec9 @0x4
0x0ec5…0ef5 at0005 = ╱4b╱K╱ // 0xeca @0x5
0x0ec5…0ef5 at0006 = ╱33╱3╱ // 0xecb @0x6
0x0ec5…0ef5 at0007 = ╱ef╱$╱ // 0xecc @0x7
0x0ec5…0ef5 at0008 = ╱ec╱,╱ // 0xecd @0x8
0x0ec5…0ef5 at0009 = ╱53╱S╱ // 0xece @0x9
0x0ec5…0ef5 at000a = ╱e2╱+╱ // 0xecf @0xa
0x0ec5…0ef5 at000b = ╱32╱2╱ // 0xed0 @0xb
0x0ec5…0ef5 at000c = ╱fe00008002╱ // 0xed1 @0xc
0x0ec5…0ef5 at0011 = ╱f0╱:╱ // 0xed6 @0x11
0x0ec5…0ef5 at0012 = ╱44╱D╱ // 0xed7 @0x12
0x0ec5…0ef5 at0013 = ╱45╱E╱ // 0xed8 @0x13
0x0ec5…0ef5 at0014 = ╱42╱B╱ // 0xed9 @0x14
0x0ec5…0ef5 at0015 = ╱47╱G╱ // 0xeda @0x15
0x0ec5…0ef5 at0016 = ╱41╱A╱ // 0xedb @0x16
0x0ec5…0ef5 at0017 = ╱44╱D╱ // 0xedc @0x17
0x0ec5…0ef5 at0018 = ╱45╱E╱ // 0xedd @0x18
0x0ec5…0ef5 at0019 = ╱ef╱$╱ // 0xede @0x19
0x0ec5…0ef5 at001a = ╱ec╱,╱ // 0xedf @0x1a
0x0ec5…0ef5 at001b = ╱44╱D╱ // 0xee0 @0x1b
0x0ec5…0ef5 at001c = ╱45╱E╱ // 0xee1 @0x1c
0x0ec5…0ef5 at001d = ╱42╱B╱ // 0xee2 @0x1d
0x0ec5…0ef5 at001e = ╱54╱T╱ // 0xee3 @0x1e
0x0ec5…0ef5 at001f = ╱4c╱L╱ // 0xee4 @0x1f
0x0ec5…0ef5 at0020 = ╱46╱F╱ // 0xee5 @0x20
0x0ec5…0ef5 at0021 = ╱ef╱$╱ // 0xee6 @0x21
0x0ec5…0ef5 at0022 = ╱ec╱,╱ // 0xee7 @0x22
0x0ec5…0ef5 at0023 = ╱48╱H╱ // 0xee8 @0x23
0x0ec5…0ef5 at0024 = ╱50╱P╱ // 0xee9 @0x24
0x0ec5…0ef5 at0025 = ╱4f╱O╱ // 0xeea @0x25
0x0ec5…0ef5 at0026 = ╱53╱S╱ // 0xeeb @0x26
0x0ec5…0ef5 at0027 = ╱54╱T╱ // 0xeec @0x27
0x0ec5…0ef5 at0028 = ╱ec╱,╱ // 0xeed @0x28
0x0ec5…0ef5 at0029 = ╱48╱H╱ // 0xeee @0x29
0x0ec5…0ef5 at002a = ╱4b╱K╱ // 0xeef @0x2a
0x0ec5…0ef5 at002b = ╱55╱U╱ // 0xef0 @0x2b
0x0ec5…0ef5 at002c = ╱4e╱N╱ // 0xef1 @0x2c
0x0ec5…0ef5 at002d = ╱44╱D╱ // 0xef2 @0x2d
0x0ec5…0ef5 at002e = ╱45╱E╱ // 0xef3 @0x2e
0x0ec5…0ef5 at002f = EOL // 0xef4 @0x2f
0x0ec5…0ef5 }
0x0ef5…0f12 965f 1230 EXEC FEJL(8,4,K3$)
0x0ef5…0f12 LineComalBcd {
0x0ef5…0f12 ptr = 0x965f // 0xef5 @0x0
0x0ef5…0f12 lno = 0x1230 // 0xef7 @0x2
0x0ef5…0f12 at0004 = ╱9d╱ EXEC ╱ // 0xef9 @0x4
0x0ef5…0f12 at0005 = ╱46╱F╱ // 0xefa @0x5
0x0ef5…0f12 at0006 = ╱45╱E╱ // 0xefb @0x6
0x0ef5…0f12 at0007 = ╱4a╱J╱ // 0xefc @0x7
0x0ef5…0f12 at0008 = ╱4c╱L╱ // 0xefd @0x8
0x0ef5…0f12 at0009 = ╱ed╱(╱ // 0xefe @0x9
0x0ef5…0f12 at000a = ╱38╱8╱ // 0xeff @0xa
0x0ef5…0f12 at000b = ╱fe00008004╱ // 0xf00 @0xb
0x0ef5…0f12 at0010 = ╱ec╱,╱ // 0xf05 @0x10
0x0ef5…0f12 at0011 = ╱34╱4╱ // 0xf06 @0x11
0x0ef5…0f12 at0012 = ╱fe00008003╱ // 0xf07 @0x12
0x0ef5…0f12 at0017 = ╱ec╱,╱ // 0xf0c @0x17
0x0ef5…0f12 at0018 = ╱4b╱K╱ // 0xf0d @0x18
0x0ef5…0f12 at0019 = ╱33╱3╱ // 0xf0e @0x19
0x0ef5…0f12 at001a = ╱ef╱$╱ // 0xf0f @0x1a
0x0ef5…0f12 at001b = ╱ee╱)╱ // 0xf10 @0x1b
0x0ef5…0f12 at001c = EOL // 0xf11 @0x1c
0x0ef5…0f12 }
0x0f12…0f3a 9687 1240 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$
0x0f12…0f3a LineComalBcd {
0x0f12…0f3a ptr = 0x9687 // 0xf12 @0x0
0x0f12…0f3a lno = 0x1240 // 0xf14 @0x2
0x0f12…0f3a at0004 = ╱a9╱ GET ╱ // 0xf16 @0x4
0x0f12…0f3a at0005 = ╱4b╱K╱ // 0xf17 @0x5
0x0f12…0f3a at0006 = ╱33╱3╱ // 0xf18 @0x6
0x0f12…0f3a at0007 = ╱ef╱$╱ // 0xf19 @0x7
0x0f12…0f3a at0008 = ╱ec╱,╱ // 0xf1a @0x8
0x0f12…0f3a at0009 = ╱53╱S╱ // 0xf1b @0x9
0x0f12…0f3a at000a = ╱e2╱+╱ // 0xf1c @0xa
0x0f12…0f3a at000b = ╱33╱3╱ // 0xf1d @0xb
0x0f12…0f3a at000c = ╱fe0000c002╱ // 0xf1e @0xc
0x0f12…0f3a at0011 = ╱f0╱:╱ // 0xf23 @0x11
0x0f12…0f3a at0012 = ╱44╱D╱ // 0xf24 @0x12
0x0f12…0f3a at0013 = ╱45╱E╱ // 0xf25 @0x13
0x0f12…0f3a at0014 = ╱42╱B╱ // 0xf26 @0x14
0x0f12…0f3a at0015 = ╱42╱B╱ // 0xf27 @0x15
0x0f12…0f3a at0016 = ╱59╱Y╱ // 0xf28 @0x16
0x0f12…0f3a at0017 = ╱ef╱$╱ // 0xf29 @0x17
0x0f12…0f3a at0018 = ╱ec╱,╱ // 0xf2a @0x18
0x0f12…0f3a at0019 = ╱5d╱Å╱ // 0xf2b @0x19
0x0f12…0f3a at001a = ╱52╱R╱ // 0xf2c @0x1a
0x0f12…0f3a at001b = ╱4b╱K╱ // 0xf2d @0x1b
0x0f12…0f3a at001c = ╱5c╱Ø╱ // 0xf2e @0x1c
0x0f12…0f3a at001d = ╱42╱B╱ // 0xf2f @0x1d
0x0f12…0f3a at001e = ╱ef╱$╱ // 0xf30 @0x1e
0x0f12…0f3a at001f = ╱ec╱,╱ // 0xf31 @0x1f
0x0f12…0f3a at0020 = ╱4d╱M╱ // 0xf32 @0x20
0x0f12…0f3a at0021 = ╱44╱D╱ // 0xf33 @0x21
0x0f12…0f3a at0022 = ╱4e╱N╱ // 0xf34 @0x22
0x0f12…0f3a at0023 = ╱4b╱K╱ // 0xf35 @0x23
0x0f12…0f3a at0024 = ╱5c╱Ø╱ // 0xf36 @0x24
0x0f12…0f3a at0025 = ╱42╱B╱ // 0xf37 @0x25
0x0f12…0f3a at0026 = ╱ef╱$╱ // 0xf38 @0x26
0x0f12…0f3a at0027 = EOL // 0xf39 @0x27
0x0f12…0f3a }
0x0f3a…0f57 96a4 1250 EXEC FEJL(8,5,K3$)
0x0f3a…0f57 LineComalBcd {
0x0f3a…0f57 ptr = 0x96a4 // 0xf3a @0x0
0x0f3a…0f57 lno = 0x1250 // 0xf3c @0x2
0x0f3a…0f57 at0004 = ╱9d╱ EXEC ╱ // 0xf3e @0x4
0x0f3a…0f57 at0005 = ╱46╱F╱ // 0xf3f @0x5
0x0f3a…0f57 at0006 = ╱45╱E╱ // 0xf40 @0x6
0x0f3a…0f57 at0007 = ╱4a╱J╱ // 0xf41 @0x7
0x0f3a…0f57 at0008 = ╱4c╱L╱ // 0xf42 @0x8
0x0f3a…0f57 at0009 = ╱ed╱(╱ // 0xf43 @0x9
0x0f3a…0f57 at000a = ╱38╱8╱ // 0xf44 @0xa
0x0f3a…0f57 at000b = ╱fe00008004╱ // 0xf45 @0xb
0x0f3a…0f57 at0010 = ╱ec╱,╱ // 0xf4a @0x10
0x0f3a…0f57 at0011 = ╱35╱5╱ // 0xf4b @0x11
0x0f3a…0f57 at0012 = ╱fe0000a003╱ // 0xf4c @0x12
0x0f3a…0f57 at0017 = ╱ec╱,╱ // 0xf51 @0x17
0x0f3a…0f57 at0018 = ╱4b╱K╱ // 0xf52 @0x18
0x0f3a…0f57 at0019 = ╱33╱3╱ // 0xf53 @0x19
0x0f3a…0f57 at001a = ╱ef╱$╱ // 0xf54 @0x1a
0x0f3a…0f57 at001b = ╱ee╱)╱ // 0xf55 @0x1b
0x0f3a…0f57 at001c = EOL // 0xf56 @0x1c
0x0f3a…0f57 }
0x0f57…0f5d (51,) 96aa 1260 ENDPROC
0x0f57…0f5d LineComalBcd {
0x0f57…0f5d ptr = 0x96aa // 0xf57 @0x0
0x0f57…0f5d lno = 0x1260 // 0xf59 @0x2
0x0f57…0f5d at0004 = ╱9f╱ ENDPROC ╱ // 0xf5b @0x4
0x0f57…0f5d at0005 = EOL // 0xf5c @0x5
0x0f57…0f5d }
0x0f5d…0f6b 96b8 1270 PROC GEMDPOST
0x0f5d…0f6b LineComalBcd {
0x0f5d…0f6b ptr = 0x96b8 // 0xf5d @0x0
0x0f5d…0f6b lno = 0x1270 // 0xf5f @0x2
0x0f5d…0f6b at0004 = ╱9e╱ PROC ╱ // 0xf61 @0x4
0x0f5d…0f6b at0005 = ╱47╱G╱ // 0xf62 @0x5
0x0f5d…0f6b at0006 = ╱45╱E╱ // 0xf63 @0x6
0x0f5d…0f6b at0007 = ╱4d╱M╱ // 0xf64 @0x7
0x0f5d…0f6b at0008 = ╱44╱D╱ // 0xf65 @0x8
0x0f5d…0f6b at0009 = ╱50╱P╱ // 0xf66 @0x9
0x0f5d…0f6b at000a = ╱4f╱O╱ // 0xf67 @0xa
0x0f5d…0f6b at000b = ╱53╱S╱ // 0xf68 @0xb
0x0f5d…0f6b at000c = ╱54╱T╱ // 0xf69 @0xc
0x0f5d…0f6b at000d = EOL // 0xf6a @0xd
0x0f5d…0f6b }
0x0f6b…0f84 96d1 1280 S=DTAB(DPIL3,2)
0x0f6b…0f84 LineComalBcd {
0x0f6b…0f84 ptr = 0x96d1 // 0xf6b @0x0
0x0f6b…0f84 lno = 0x1280 // 0xf6d @0x2
0x0f6b…0f84 at0004 = ╱53╱S╱ // 0xf6f @0x4
0x0f6b…0f84 at0005 = ╱dc╱=╱ // 0xf70 @0x5
0x0f6b…0f84 at0006 = ╱44╱D╱ // 0xf71 @0x6
0x0f6b…0f84 at0007 = ╱54╱T╱ // 0xf72 @0x7
0x0f6b…0f84 at0008 = ╱41╱A╱ // 0xf73 @0x8
0x0f6b…0f84 at0009 = ╱42╱B╱ // 0xf74 @0x9
0x0f6b…0f84 at000a = ╱ed╱(╱ // 0xf75 @0xa
0x0f6b…0f84 at000b = ╱44╱D╱ // 0xf76 @0xb
0x0f6b…0f84 at000c = ╱50╱P╱ // 0xf77 @0xc
0x0f6b…0f84 at000d = ╱49╱I╱ // 0xf78 @0xd
0x0f6b…0f84 at000e = ╱4c╱L╱ // 0xf79 @0xe
0x0f6b…0f84 at000f = ╱33╱3╱ // 0xf7a @0xf
0x0f6b…0f84 at0010 = ╱ec╱,╱ // 0xf7b @0x10
0x0f6b…0f84 at0011 = ╱32╱2╱ // 0xf7c @0x11
0x0f6b…0f84 at0012 = ╱fe00008002╱ // 0xf7d @0x12
0x0f6b…0f84 at0017 = ╱ee╱)╱ // 0xf82 @0x17
0x0f6b…0f84 at0018 = EOL // 0xf83 @0x18
0x0f6b…0f84 }
0x0f84…0faf 96fc 1290 PUT K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x0f84…0faf LineComalBcd {
0x0f84…0faf ptr = 0x96fc // 0xf84 @0x0
0x0f84…0faf lno = 0x1290 // 0xf86 @0x2
0x0f84…0faf at0004 = ╱aa╱ PUT ╱ // 0xf88 @0x4
0x0f84…0faf at0005 = ╱4b╱K╱ // 0xf89 @0x5
0x0f84…0faf at0006 = ╱33╱3╱ // 0xf8a @0x6
0x0f84…0faf at0007 = ╱ef╱$╱ // 0xf8b @0x7
0x0f84…0faf at0008 = ╱ec╱,╱ // 0xf8c @0x8
0x0f84…0faf at0009 = ╱53╱S╱ // 0xf8d @0x9
0x0f84…0faf at000a = ╱f0╱:╱ // 0xf8e @0xa
0x0f84…0faf at000b = ╱44╱D╱ // 0xf8f @0xb
0x0f84…0faf at000c = ╱45╱E╱ // 0xf90 @0xc
0x0f84…0faf at000d = ╱42╱B╱ // 0xf91 @0xd
0x0f84…0faf at000e = ╱4e╱N╱ // 0xf92 @0xe
0x0f84…0faf at000f = ╱52╱R╱ // 0xf93 @0xf
0x0f84…0faf at0010 = ╱ec╱,╱ // 0xf94 @0x10
0x0f84…0faf at0011 = ╱44╱D╱ // 0xf95 @0x11
0x0f84…0faf at0012 = ╱45╱E╱ // 0xf96 @0x12
0x0f84…0faf at0013 = ╱42╱B╱ // 0xf97 @0x13
0x0f84…0faf at0014 = ╱4e╱N╱ // 0xf98 @0x14
0x0f84…0faf at0015 = ╱41╱A╱ // 0xf99 @0x15
0x0f84…0faf at0016 = ╱56╱V╱ // 0xf9a @0x16
0x0f84…0faf at0017 = ╱4e╱N╱ // 0xf9b @0x17
0x0f84…0faf at0018 = ╱ef╱$╱ // 0xf9c @0x18
0x0f84…0faf at0019 = ╱ec╱,╱ // 0xf9d @0x19
0x0f84…0faf at001a = ╱44╱D╱ // 0xf9e @0x1a
0x0f84…0faf at001b = ╱53╱S╱ // 0xf9f @0x1b
0x0f84…0faf at001c = ╱41╱A╱ // 0xfa0 @0x1c
0x0f84…0faf at001d = ╱4c╱L╱ // 0xfa1 @0x1d
0x0f84…0faf at001e = ╱44╱D╱ // 0xfa2 @0x1e
0x0f84…0faf at001f = ╱4f╱O╱ // 0xfa3 @0x1f
0x0f84…0faf at0020 = ╱31╱1╱ // 0xfa4 @0x20
0x0f84…0faf at0021 = ╱ef╱$╱ // 0xfa5 @0x21
0x0f84…0faf at0022 = ╱ec╱,╱ // 0xfa6 @0x22
0x0f84…0faf at0023 = ╱44╱D╱ // 0xfa7 @0x23
0x0f84…0faf at0024 = ╱45╱E╱ // 0xfa8 @0x24
0x0f84…0faf at0025 = ╱42╱B╱ // 0xfa9 @0x25
0x0f84…0faf at0026 = ╱4b╱K╱ // 0xfaa @0x26
0x0f84…0faf at0027 = ╱47╱G╱ // 0xfab @0x27
0x0f84…0faf at0028 = ╱52╱R╱ // 0xfac @0x28
0x0f84…0faf at0029 = ╱ef╱$╱ // 0xfad @0x29
0x0f84…0faf at002a = EOL // 0xfae @0x2a
0x0f84…0faf }
0x0faf…0fcc 9719 1300 EXEC FEJL(9,3,K3$)
0x0faf…0fcc LineComalBcd {
0x0faf…0fcc ptr = 0x9719 // 0xfaf @0x0
0x0faf…0fcc lno = 0x1300 // 0xfb1 @0x2
0x0faf…0fcc at0004 = ╱9d╱ EXEC ╱ // 0xfb3 @0x4
0x0faf…0fcc at0005 = ╱46╱F╱ // 0xfb4 @0x5
0x0faf…0fcc at0006 = ╱45╱E╱ // 0xfb5 @0x6
0x0faf…0fcc at0007 = ╱4a╱J╱ // 0xfb6 @0x7
0x0faf…0fcc at0008 = ╱4c╱L╱ // 0xfb7 @0x8
0x0faf…0fcc at0009 = ╱ed╱(╱ // 0xfb8 @0x9
0x0faf…0fcc at000a = ╱39╱9╱ // 0xfb9 @0xa
0x0faf…0fcc at000b = ╱fe00009004╱ // 0xfba @0xb
0x0faf…0fcc at0010 = ╱ec╱,╱ // 0xfbf @0x10
0x0faf…0fcc at0011 = ╱33╱3╱ // 0xfc0 @0x11
0x0faf…0fcc at0012 = ╱fe0000c002╱ // 0xfc1 @0x12
0x0faf…0fcc at0017 = ╱ec╱,╱ // 0xfc6 @0x17
0x0faf…0fcc at0018 = ╱4b╱K╱ // 0xfc7 @0x18
0x0faf…0fcc at0019 = ╱33╱3╱ // 0xfc8 @0x19
0x0faf…0fcc at001a = ╱ef╱$╱ // 0xfc9 @0x1a
0x0faf…0fcc at001b = ╱ee╱)╱ // 0xfca @0x1b
0x0faf…0fcc at001c = EOL // 0xfcb @0x1c
0x0faf…0fcc }
0x0fcc…100a 9757 1310 PUT K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x0fcc…100a LineComalBcd {
0x0fcc…100a ptr = 0x9757 // 0xfcc @0x0
0x0fcc…100a lno = 0x1310 // 0xfce @0x2
0x0fcc…100a at0004 = ╱aa╱ PUT ╱ // 0xfd0 @0x4
0x0fcc…100a at0005 = ╱4b╱K╱ // 0xfd1 @0x5
0x0fcc…100a at0006 = ╱33╱3╱ // 0xfd2 @0x6
0x0fcc…100a at0007 = ╱ef╱$╱ // 0xfd3 @0x7
0x0fcc…100a at0008 = ╱ec╱,╱ // 0xfd4 @0x8
0x0fcc…100a at0009 = ╱53╱S╱ // 0xfd5 @0x9
0x0fcc…100a at000a = ╱e2╱+╱ // 0xfd6 @0xa
0x0fcc…100a at000b = ╱31╱1╱ // 0xfd7 @0xb
0x0fcc…100a at000c = ╱fe00008001╱ // 0xfd8 @0xc
0x0fcc…100a at0011 = ╱f0╱:╱ // 0xfdd @0x11
0x0fcc…100a at0012 = ╱44╱D╱ // 0xfde @0x12
0x0fcc…100a at0013 = ╱53╱S╱ // 0xfdf @0x13
0x0fcc…100a at0014 = ╱41╱A╱ // 0xfe0 @0x14
0x0fcc…100a at0015 = ╱4c╱L╱ // 0xfe1 @0x15
0x0fcc…100a at0016 = ╱44╱D╱ // 0xfe2 @0x16
0x0fcc…100a at0017 = ╱4f╱O╱ // 0xfe3 @0x17
0x0fcc…100a at0018 = ╱32╱2╱ // 0xfe4 @0x18
0x0fcc…100a at0019 = ╱ef╱$╱ // 0xfe5 @0x19
0x0fcc…100a at001a = ╱ec╱,╱ // 0xfe6 @0x1a
0x0fcc…100a at001b = ╱44╱D╱ // 0xfe7 @0x1b
0x0fcc…100a at001c = ╱53╱S╱ // 0xfe8 @0x1c
0x0fcc…100a at001d = ╱41╱A╱ // 0xfe9 @0x1d
0x0fcc…100a at001e = ╱4c╱L╱ // 0xfea @0x1e
0x0fcc…100a at001f = ╱44╱D╱ // 0xfeb @0x1f
0x0fcc…100a at0020 = ╱4f╱O╱ // 0xfec @0x20
0x0fcc…100a at0021 = ╱33╱3╱ // 0xfed @0x21
0x0fcc…100a at0022 = ╱ef╱$╱ // 0xfee @0x22
0x0fcc…100a at0023 = ╱ec╱,╱ // 0xfef @0x23
0x0fcc…100a at0024 = ╱44╱D╱ // 0xff0 @0x24
0x0fcc…100a at0025 = ╱53╱S╱ // 0xff1 @0x25
0x0fcc…100a at0026 = ╱41╱A╱ // 0xff2 @0x26
0x0fcc…100a at0027 = ╱4c╱L╱ // 0xff3 @0x27
0x0fcc…100a at0028 = ╱44╱D╱ // 0xff4 @0x28
0x0fcc…100a at0029 = ╱4f╱O╱ // 0xff5 @0x29
0x0fcc…100a at002a = ╱34╱4╱ // 0xff6 @0x2a
0x0fcc…100a at002b = ╱ef╱$╱ // 0xff7 @0x2b
0x0fcc…100a at002c = ╱ec╱,╱ // 0xff8 @0x2c
0x0fcc…100a at002d = ╱44╱D╱ // 0xff9 @0x2d
0x0fcc…100a at002e = ╱45╱E╱ // 0xffa @0x2e
0x0fcc…100a at002f = ╱42╱B╱ // 0xffb @0x2f
0x0fcc…100a at0030 = ╱50╱P╱ // 0xffc @0x30
0x0fcc…100a at0031 = ╱4f╱O╱ // 0xffd @0x31
0x0fcc…100a at0032 = ╱53╱S╱ // 0xffe @0x32
0x0fcc…100a at0033 = ╱54╱T╱ // 0xfff @0x33
0x0fcc…100a at0034 = ╱4e╱N╱ // 0x1000 @0x34
0x0fcc…100a at0035 = ╱52╱R╱ // 0x1001 @0x35
0x0fcc…100a at0036 = ╱ec╱,╱ // 0x1002 @0x36
0x0fcc…100a at0037 = ╱44╱D╱ // 0x1003 @0x37
0x0fcc…100a at0038 = ╱45╱E╱ // 0x1004 @0x38
0x0fcc…100a at0039 = ╱42╱B╱ // 0x1005 @0x39
0x0fcc…100a at003a = ╱4c╱L╱ // 0x1006 @0x3a
0x0fcc…100a at003b = ╱4b╱K╱ // 0x1007 @0x3b
0x0fcc…100a at003c = ╱ef╱$╱ // 0x1008 @0x3c
0x0fcc…100a at003d = EOL // 0x1009 @0x3d
0x0fcc…100a }
0x100a…1027 9774 1320 EXEC FEJL(9,4,K3$)
0x100a…1027 LineComalBcd {
0x100a…1027 ptr = 0x9774 // 0x100a @0x0
0x100a…1027 lno = 0x1320 // 0x100c @0x2
0x100a…1027 at0004 = ╱9d╱ EXEC ╱ // 0x100e @0x4
0x100a…1027 at0005 = ╱46╱F╱ // 0x100f @0x5
0x100a…1027 at0006 = ╱45╱E╱ // 0x1010 @0x6
0x100a…1027 at0007 = ╱4a╱J╱ // 0x1011 @0x7
0x100a…1027 at0008 = ╱4c╱L╱ // 0x1012 @0x8
0x100a…1027 at0009 = ╱ed╱(╱ // 0x1013 @0x9
0x100a…1027 at000a = ╱39╱9╱ // 0x1014 @0xa
0x100a…1027 at000b = ╱fe00009004╱ // 0x1015 @0xb
0x100a…1027 at0010 = ╱ec╱,╱ // 0x101a @0x10
0x100a…1027 at0011 = ╱34╱4╱ // 0x101b @0x11
0x100a…1027 at0012 = ╱fe00008003╱ // 0x101c @0x12
0x100a…1027 at0017 = ╱ec╱,╱ // 0x1021 @0x17
0x100a…1027 at0018 = ╱4b╱K╱ // 0x1022 @0x18
0x100a…1027 at0019 = ╱33╱3╱ // 0x1023 @0x19
0x100a…1027 at001a = ╱ef╱$╱ // 0x1024 @0x1a
0x100a…1027 at001b = ╱ee╱)╱ // 0x1025 @0x1b
0x100a…1027 at001c = EOL // 0x1026 @0x1c
0x100a…1027 }
0x1027…1057 97a4 1330 PUT K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x1027…1057 LineComalBcd {
0x1027…1057 ptr = 0x97a4 // 0x1027 @0x0
0x1027…1057 lno = 0x1330 // 0x1029 @0x2
0x1027…1057 at0004 = ╱aa╱ PUT ╱ // 0x102b @0x4
0x1027…1057 at0005 = ╱4b╱K╱ // 0x102c @0x5
0x1027…1057 at0006 = ╱33╱3╱ // 0x102d @0x6
0x1027…1057 at0007 = ╱ef╱$╱ // 0x102e @0x7
0x1027…1057 at0008 = ╱ec╱,╱ // 0x102f @0x8
0x1027…1057 at0009 = ╱53╱S╱ // 0x1030 @0x9
0x1027…1057 at000a = ╱e2╱+╱ // 0x1031 @0xa
0x1027…1057 at000b = ╱32╱2╱ // 0x1032 @0xb
0x1027…1057 at000c = ╱fe00008002╱ // 0x1033 @0xc
0x1027…1057 at0011 = ╱f0╱:╱ // 0x1038 @0x11
0x1027…1057 at0012 = ╱44╱D╱ // 0x1039 @0x12
0x1027…1057 at0013 = ╱45╱E╱ // 0x103a @0x13
0x1027…1057 at0014 = ╱42╱B╱ // 0x103b @0x14
0x1027…1057 at0015 = ╱47╱G╱ // 0x103c @0x15
0x1027…1057 at0016 = ╱41╱A╱ // 0x103d @0x16
0x1027…1057 at0017 = ╱44╱D╱ // 0x103e @0x17
0x1027…1057 at0018 = ╱45╱E╱ // 0x103f @0x18
0x1027…1057 at0019 = ╱ef╱$╱ // 0x1040 @0x19
0x1027…1057 at001a = ╱ec╱,╱ // 0x1041 @0x1a
0x1027…1057 at001b = ╱44╱D╱ // 0x1042 @0x1b
0x1027…1057 at001c = ╱45╱E╱ // 0x1043 @0x1c
0x1027…1057 at001d = ╱42╱B╱ // 0x1044 @0x1d
0x1027…1057 at001e = ╱54╱T╱ // 0x1045 @0x1e
0x1027…1057 at001f = ╱4c╱L╱ // 0x1046 @0x1f
0x1027…1057 at0020 = ╱46╱F╱ // 0x1047 @0x20
0x1027…1057 at0021 = ╱ef╱$╱ // 0x1048 @0x21
0x1027…1057 at0022 = ╱ec╱,╱ // 0x1049 @0x22
0x1027…1057 at0023 = ╱48╱H╱ // 0x104a @0x23
0x1027…1057 at0024 = ╱50╱P╱ // 0x104b @0x24
0x1027…1057 at0025 = ╱4f╱O╱ // 0x104c @0x25
0x1027…1057 at0026 = ╱53╱S╱ // 0x104d @0x26
0x1027…1057 at0027 = ╱54╱T╱ // 0x104e @0x27
0x1027…1057 at0028 = ╱ec╱,╱ // 0x104f @0x28
0x1027…1057 at0029 = ╱48╱H╱ // 0x1050 @0x29
0x1027…1057 at002a = ╱4b╱K╱ // 0x1051 @0x2a
0x1027…1057 at002b = ╱55╱U╱ // 0x1052 @0x2b
0x1027…1057 at002c = ╱4e╱N╱ // 0x1053 @0x2c
0x1027…1057 at002d = ╱44╱D╱ // 0x1054 @0x2d
0x1027…1057 at002e = ╱45╱E╱ // 0x1055 @0x2e
0x1027…1057 at002f = EOL // 0x1056 @0x2f
0x1027…1057 }
0x1057…1074 97c1 1340 EXEC FEJL(9,4,K3$)
0x1057…1074 LineComalBcd {
0x1057…1074 ptr = 0x97c1 // 0x1057 @0x0
0x1057…1074 lno = 0x1340 // 0x1059 @0x2
0x1057…1074 at0004 = ╱9d╱ EXEC ╱ // 0x105b @0x4
0x1057…1074 at0005 = ╱46╱F╱ // 0x105c @0x5
0x1057…1074 at0006 = ╱45╱E╱ // 0x105d @0x6
0x1057…1074 at0007 = ╱4a╱J╱ // 0x105e @0x7
0x1057…1074 at0008 = ╱4c╱L╱ // 0x105f @0x8
0x1057…1074 at0009 = ╱ed╱(╱ // 0x1060 @0x9
0x1057…1074 at000a = ╱39╱9╱ // 0x1061 @0xa
0x1057…1074 at000b = ╱fe00009004╱ // 0x1062 @0xb
0x1057…1074 at0010 = ╱ec╱,╱ // 0x1067 @0x10
0x1057…1074 at0011 = ╱34╱4╱ // 0x1068 @0x11
0x1057…1074 at0012 = ╱fe00008003╱ // 0x1069 @0x12
0x1057…1074 at0017 = ╱ec╱,╱ // 0x106e @0x17
0x1057…1074 at0018 = ╱4b╱K╱ // 0x106f @0x18
0x1057…1074 at0019 = ╱33╱3╱ // 0x1070 @0x19
0x1057…1074 at001a = ╱ef╱$╱ // 0x1071 @0x1a
0x1057…1074 at001b = ╱ee╱)╱ // 0x1072 @0x1b
0x1057…1074 at001c = EOL // 0x1073 @0x1c
0x1057…1074 }
0x1074…109c 97e9 1350 PUT K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$
0x1074…109c LineComalBcd {
0x1074…109c ptr = 0x97e9 // 0x1074 @0x0
0x1074…109c lno = 0x1350 // 0x1076 @0x2
0x1074…109c at0004 = ╱aa╱ PUT ╱ // 0x1078 @0x4
0x1074…109c at0005 = ╱4b╱K╱ // 0x1079 @0x5
0x1074…109c at0006 = ╱33╱3╱ // 0x107a @0x6
0x1074…109c at0007 = ╱ef╱$╱ // 0x107b @0x7
0x1074…109c at0008 = ╱ec╱,╱ // 0x107c @0x8
0x1074…109c at0009 = ╱53╱S╱ // 0x107d @0x9
0x1074…109c at000a = ╱e2╱+╱ // 0x107e @0xa
0x1074…109c at000b = ╱33╱3╱ // 0x107f @0xb
0x1074…109c at000c = ╱fe0000c002╱ // 0x1080 @0xc
0x1074…109c at0011 = ╱f0╱:╱ // 0x1085 @0x11
0x1074…109c at0012 = ╱44╱D╱ // 0x1086 @0x12
0x1074…109c at0013 = ╱45╱E╱ // 0x1087 @0x13
0x1074…109c at0014 = ╱42╱B╱ // 0x1088 @0x14
0x1074…109c at0015 = ╱42╱B╱ // 0x1089 @0x15
0x1074…109c at0016 = ╱59╱Y╱ // 0x108a @0x16
0x1074…109c at0017 = ╱ef╱$╱ // 0x108b @0x17
0x1074…109c at0018 = ╱ec╱,╱ // 0x108c @0x18
0x1074…109c at0019 = ╱5d╱Å╱ // 0x108d @0x19
0x1074…109c at001a = ╱52╱R╱ // 0x108e @0x1a
0x1074…109c at001b = ╱4b╱K╱ // 0x108f @0x1b
0x1074…109c at001c = ╱5c╱Ø╱ // 0x1090 @0x1c
0x1074…109c at001d = ╱42╱B╱ // 0x1091 @0x1d
0x1074…109c at001e = ╱ef╱$╱ // 0x1092 @0x1e
0x1074…109c at001f = ╱ec╱,╱ // 0x1093 @0x1f
0x1074…109c at0020 = ╱4d╱M╱ // 0x1094 @0x20
0x1074…109c at0021 = ╱44╱D╱ // 0x1095 @0x21
0x1074…109c at0022 = ╱4e╱N╱ // 0x1096 @0x22
0x1074…109c at0023 = ╱4b╱K╱ // 0x1097 @0x23
0x1074…109c at0024 = ╱5c╱Ø╱ // 0x1098 @0x24
0x1074…109c at0025 = ╱42╱B╱ // 0x1099 @0x25
0x1074…109c at0026 = ╱ef╱$╱ // 0x109a @0x26
0x1074…109c at0027 = EOL // 0x109b @0x27
0x1074…109c }
0x109c…10b9 9806 1360 EXEC FEJL(9,5,K3$)
0x109c…10b9 LineComalBcd {
0x109c…10b9 ptr = 0x9806 // 0x109c @0x0
0x109c…10b9 lno = 0x1360 // 0x109e @0x2
0x109c…10b9 at0004 = ╱9d╱ EXEC ╱ // 0x10a0 @0x4
0x109c…10b9 at0005 = ╱46╱F╱ // 0x10a1 @0x5
0x109c…10b9 at0006 = ╱45╱E╱ // 0x10a2 @0x6
0x109c…10b9 at0007 = ╱4a╱J╱ // 0x10a3 @0x7
0x109c…10b9 at0008 = ╱4c╱L╱ // 0x10a4 @0x8
0x109c…10b9 at0009 = ╱ed╱(╱ // 0x10a5 @0x9
0x109c…10b9 at000a = ╱39╱9╱ // 0x10a6 @0xa
0x109c…10b9 at000b = ╱fe00009004╱ // 0x10a7 @0xb
0x109c…10b9 at0010 = ╱ec╱,╱ // 0x10ac @0x10
0x109c…10b9 at0011 = ╱35╱5╱ // 0x10ad @0x11
0x109c…10b9 at0012 = ╱fe0000a003╱ // 0x10ae @0x12
0x109c…10b9 at0017 = ╱ec╱,╱ // 0x10b3 @0x17
0x109c…10b9 at0018 = ╱4b╱K╱ // 0x10b4 @0x18
0x109c…10b9 at0019 = ╱33╱3╱ // 0x10b5 @0x19
0x109c…10b9 at001a = ╱ef╱$╱ // 0x10b6 @0x1a
0x109c…10b9 at001b = ╱ee╱)╱ // 0x10b7 @0x1b
0x109c…10b9 at001c = EOL // 0x10b8 @0x1c
0x109c…10b9 }
0x10b9…10bf 980c 1370 ENDPROC
0x10b9…10bf LineComalBcd {
0x10b9…10bf ptr = 0x980c // 0x10b9 @0x0
0x10b9…10bf lno = 0x1370 // 0x10bb @0x2
0x10b9…10bf at0004 = ╱9f╱ ENDPROC ╱ // 0x10bd @0x4
0x10b9…10bf at0005 = EOL // 0x10be @0x5
0x10b9…10bf }
0x10bf…10e0 982d 1380 PROC DINDTAST(DSTYR,CÆND,DEBNR2)
0x10bf…10e0 LineComalBcd {
0x10bf…10e0 ptr = 0x982d // 0x10bf @0x0
0x10bf…10e0 lno = 0x1380 // 0x10c1 @0x2
0x10bf…10e0 at0004 = ╱9e╱ PROC ╱ // 0x10c3 @0x4
0x10bf…10e0 at0005 = ╱44╱D╱ // 0x10c4 @0x5
0x10bf…10e0 at0006 = ╱49╱I╱ // 0x10c5 @0x6
0x10bf…10e0 at0007 = ╱4e╱N╱ // 0x10c6 @0x7
0x10bf…10e0 at0008 = ╱44╱D╱ // 0x10c7 @0x8
0x10bf…10e0 at0009 = ╱54╱T╱ // 0x10c8 @0x9
0x10bf…10e0 at000a = ╱41╱A╱ // 0x10c9 @0xa
0x10bf…10e0 at000b = ╱53╱S╱ // 0x10ca @0xb
0x10bf…10e0 at000c = ╱54╱T╱ // 0x10cb @0xc
0x10bf…10e0 at000d = ╱ed╱(╱ // 0x10cc @0xd
0x10bf…10e0 at000e = ╱44╱D╱ // 0x10cd @0xe
0x10bf…10e0 at000f = ╱53╱S╱ // 0x10ce @0xf
0x10bf…10e0 at0010 = ╱54╱T╱ // 0x10cf @0x10
0x10bf…10e0 at0011 = ╱59╱Y╱ // 0x10d0 @0x11
0x10bf…10e0 at0012 = ╱52╱R╱ // 0x10d1 @0x12
0x10bf…10e0 at0013 = ╱ec╱,╱ // 0x10d2 @0x13
0x10bf…10e0 at0014 = ╱43╱C╱ // 0x10d3 @0x14
0x10bf…10e0 at0015 = ╱5b╱Æ╱ // 0x10d4 @0x15
0x10bf…10e0 at0016 = ╱4e╱N╱ // 0x10d5 @0x16
0x10bf…10e0 at0017 = ╱44╱D╱ // 0x10d6 @0x17
0x10bf…10e0 at0018 = ╱ec╱,╱ // 0x10d7 @0x18
0x10bf…10e0 at0019 = ╱44╱D╱ // 0x10d8 @0x19
0x10bf…10e0 at001a = ╱45╱E╱ // 0x10d9 @0x1a
0x10bf…10e0 at001b = ╱42╱B╱ // 0x10da @0x1b
0x10bf…10e0 at001c = ╱4e╱N╱ // 0x10db @0x1c
0x10bf…10e0 at001d = ╱52╱R╱ // 0x10dc @0x1d
0x10bf…10e0 at001e = ╱32╱2╱ // 0x10dd @0x1e
0x10bf…10e0 at001f = ╱ee╱)╱ // 0x10de @0x1f
0x10bf…10e0 at0020 = EOL // 0x10df @0x20
0x10bf…10e0 }
0x10e0…10f2 983f 1390 IF CÆND<>1 THEN
0x10e0…10f2 LineComalBcd {
0x10e0…10f2 ptr = 0x983f // 0x10e0 @0x0
0x10e0…10f2 lno = 0x1390 // 0x10e2 @0x2
0x10e0…10f2 at0004 = ╱9c╱ IF ╱ // 0x10e4 @0x4
0x10e0…10f2 at0005 = ╱43╱C╱ // 0x10e5 @0x5
0x10e0…10f2 at0006 = ╱5b╱Æ╱ // 0x10e6 @0x6
0x10e0…10f2 at0007 = ╱4e╱N╱ // 0x10e7 @0x7
0x10e0…10f2 at0008 = ╱44╱D╱ // 0x10e8 @0x8
0x10e0…10f2 at0009 = ╱e1╱<>╱ // 0x10e9 @0x9
0x10e0…10f2 at000a = ╱31╱1╱ // 0x10ea @0xa
0x10e0…10f2 at000b = ╱fe00008001╱ // 0x10eb @0xb
0x10e0…10f2 at0010 = ╱b6╱ THEN ╱ // 0x10f0 @0x10
0x10e0…10f2 at0011 = EOL // 0x10f1 @0x11
0x10e0…10f2 }
0x10f2…10f8 9845 1400 CLEAR
0x10f2…10f8 LineComalBcd {
0x10f2…10f8 ptr = 0x9845 // 0x10f2 @0x0
0x10f2…10f8 lno = 0x1400 // 0x10f4 @0x2
0x10f2…10f8 at0004 = ╱a0╱ CLEAR ╱ // 0x10f6 @0x4
0x10f2…10f8 at0005 = EOL // 0x10f7 @0x5
0x10f2…10f8 }
0x10f8…110c 9859 1410 CURSOR 21,1
0x10f8…110c LineComalBcd {
0x10f8…110c ptr = 0x9859 // 0x10f8 @0x0
0x10f8…110c lno = 0x1410 // 0x10fa @0x2
0x10f8…110c at0004 = ╱a1╱ CURSOR ╱ // 0x10fc @0x4
0x10f8…110c at0005 = ╱32╱2╱ // 0x10fd @0x5
0x10f8…110c at0006 = ╱31╱1╱ // 0x10fe @0x6
0x10f8…110c at0007 = ╱fe0000a805╱ // 0x10ff @0x7
0x10f8…110c at000c = ╱ec╱,╱ // 0x1104 @0xc
0x10f8…110c at000d = ╱31╱1╱ // 0x1105 @0xd
0x10f8…110c at000e = ╱fe00008001╱ // 0x1106 @0xe
0x10f8…110c at0013 = EOL // 0x110b @0x13
0x10f8…110c }
0x110c…1124 9871 1420 PRINT "Kundeoplysninger"
0x110c…1124 LineComalBcd {
0x110c…1124 ptr = 0x9871 // 0x110c @0x0
0x110c…1124 lno = 0x1420 // 0x110e @0x2
0x110c…1124 at0004 = ╱92╱ PRINT ╱ // 0x1110 @0x4
0x110c…1124 at0005 = ╱22╱"╱ // 0x1111 @0x5
0x110c…1124 at0006 = ╱4b╱K╱ // 0x1112 @0x6
0x110c…1124 at0007 = ╱75╱u╱ // 0x1113 @0x7
0x110c…1124 at0008 = ╱6e╱n╱ // 0x1114 @0x8
0x110c…1124 at0009 = ╱64╱d╱ // 0x1115 @0x9
0x110c…1124 at000a = ╱65╱e╱ // 0x1116 @0xa
0x110c…1124 at000b = ╱6f╱o╱ // 0x1117 @0xb
0x110c…1124 at000c = ╱70╱p╱ // 0x1118 @0xc
0x110c…1124 at000d = ╱6c╱l╱ // 0x1119 @0xd
0x110c…1124 at000e = ╱79╱y╱ // 0x111a @0xe
0x110c…1124 at000f = ╱73╱s╱ // 0x111b @0xf
0x110c…1124 at0010 = ╱6e╱n╱ // 0x111c @0x10
0x110c…1124 at0011 = ╱69╱i╱ // 0x111d @0x11
0x110c…1124 at0012 = ╱6e╱n╱ // 0x111e @0x12
0x110c…1124 at0013 = ╱67╱g╱ // 0x111f @0x13
0x110c…1124 at0014 = ╱65╱e╱ // 0x1120 @0x14
0x110c…1124 at0015 = ╱72╱r╱ // 0x1121 @0x15
0x110c…1124 at0016 = ╱22╱"╱ // 0x1122 @0x16
0x110c…1124 at0017 = EOL // 0x1123 @0x17
0x110c…1124 }
0x1124…1134 9881 1430 EXEC OVERSKRIFT
0x1124…1134 LineComalBcd {
0x1124…1134 ptr = 0x9881 // 0x1124 @0x0
0x1124…1134 lno = 0x1430 // 0x1126 @0x2
0x1124…1134 at0004 = ╱9d╱ EXEC ╱ // 0x1128 @0x4
0x1124…1134 at0005 = ╱4f╱O╱ // 0x1129 @0x5
0x1124…1134 at0006 = ╱56╱V╱ // 0x112a @0x6
0x1124…1134 at0007 = ╱45╱E╱ // 0x112b @0x7
0x1124…1134 at0008 = ╱52╱R╱ // 0x112c @0x8
0x1124…1134 at0009 = ╱53╱S╱ // 0x112d @0x9
0x1124…1134 at000a = ╱4b╱K╱ // 0x112e @0xa
0x1124…1134 at000b = ╱52╱R╱ // 0x112f @0xb
0x1124…1134 at000c = ╱49╱I╱ // 0x1130 @0xc
0x1124…1134 at000d = ╱46╱F╱ // 0x1131 @0xd
0x1124…1134 at000e = ╱54╱T╱ // 0x1132 @0xe
0x1124…1134 at000f = EOL // 0x1133 @0xf
0x1124…1134 }
0x1134…1147 9894 1440 CURSOR 2,3
0x1134…1147 LineComalBcd {
0x1134…1147 ptr = 0x9894 // 0x1134 @0x0
0x1134…1147 lno = 0x1440 // 0x1136 @0x2
0x1134…1147 at0004 = ╱a1╱ CURSOR ╱ // 0x1138 @0x4
0x1134…1147 at0005 = ╱32╱2╱ // 0x1139 @0x5
0x1134…1147 at0006 = ╱fe00008002╱ // 0x113a @0x6
0x1134…1147 at000b = ╱ec╱,╱ // 0x113f @0xb
0x1134…1147 at000c = ╱33╱3╱ // 0x1140 @0xc
0x1134…1147 at000d = ╱fe0000c002╱ // 0x1141 @0xd
0x1134…1147 at0012 = EOL // 0x1146 @0x12
0x1134…1147 }
0x1147…1163 98b0 1450 PRINT "1:Kundenr :";DEBNR2
0x1147…1163 LineComalBcd {
0x1147…1163 ptr = 0x98b0 // 0x1147 @0x0
0x1147…1163 lno = 0x1450 // 0x1149 @0x2
0x1147…1163 at0004 = ╱92╱ PRINT ╱ // 0x114b @0x4
0x1147…1163 at0005 = ╱22╱"╱ // 0x114c @0x5
0x1147…1163 at0006 = ╱31╱1╱ // 0x114d @0x6
0x1147…1163 at0007 = ╱3a╱:╱ // 0x114e @0x7
0x1147…1163 at0008 = ╱4b╱K╱ // 0x114f @0x8
0x1147…1163 at0009 = ╱75╱u╱ // 0x1150 @0x9
0x1147…1163 at000a = ╱6e╱n╱ // 0x1151 @0xa
0x1147…1163 at000b = ╱64╱d╱ // 0x1152 @0xb
0x1147…1163 at000c = ╱65╱e╱ // 0x1153 @0xc
0x1147…1163 at000d = ╱6e╱n╱ // 0x1154 @0xd
0x1147…1163 at000e = ╱72╱r╱ // 0x1155 @0xe
0x1147…1163 at000f = ╱20╱…╱ // 0x1156 @0xf
0x1147…1163 at0010 = ╱20╱…╱ // 0x1157 @0x10
0x1147…1163 at0011 = ╱20╱…╱ // 0x1158 @0x11
0x1147…1163 at0012 = ╱3a╱:╱ // 0x1159 @0x12
0x1147…1163 at0013 = ╱22╱"╱ // 0x115a @0x13
0x1147…1163 at0014 = ╱eb╱;╱ // 0x115b @0x14
0x1147…1163 at0015 = ╱44╱D╱ // 0x115c @0x15
0x1147…1163 at0016 = ╱45╱E╱ // 0x115d @0x16
0x1147…1163 at0017 = ╱42╱B╱ // 0x115e @0x17
0x1147…1163 at0018 = ╱4e╱N╱ // 0x115f @0x18
0x1147…1163 at0019 = ╱52╱R╱ // 0x1160 @0x19
0x1147…1163 at001a = ╱32╱2╱ // 0x1161 @0x1a
0x1147…1163 at001b = EOL // 0x1162 @0x1b
0x1147…1163 }
0x1163…1169 98b6 1460 ENDIF
0x1163…1169 LineComalBcd {
0x1163…1169 ptr = 0x98b6 // 0x1163 @0x0
0x1163…1169 lno = 0x1460 // 0x1165 @0x2
0x1163…1169 at0004 = ╱9b╱ ENDIF ╱ // 0x1167 @0x4
0x1163…1169 at0005 = EOL // 0x1168 @0x5
0x1163…1169 }
0x1169…116f 98bc 1470 REPEAT
0x1169…116f LineComalBcd {
0x1169…116f ptr = 0x98bc // 0x1169 @0x0
0x1169…116f lno = 0x1470 // 0x116b @0x2
0x1169…116f at0004 = ╱97╱ REPEAT ╱ // 0x116d @0x4
0x1169…116f at0005 = EOL // 0x116e @0x5
0x1169…116f }
0x116f…117c 98c9 1480 CASE DSTYR OF
0x116f…117c LineComalBcd {
0x116f…117c ptr = 0x98c9 // 0x116f @0x0
0x116f…117c lno = 0x1480 // 0x1171 @0x2
0x116f…117c at0004 = ╱a201╱ CASE ╱ // 0x1173 @0x4
0x116f…117c at0006 = ╱44╱D╱ // 0x1175 @0x6
0x116f…117c at0007 = ╱53╱S╱ // 0x1176 @0x7
0x116f…117c at0008 = ╱54╱T╱ // 0x1177 @0x8
0x116f…117c at0009 = ╱59╱Y╱ // 0x1178 @0x9
0x116f…117c at000a = ╱52╱R╱ // 0x1179 @0xa
0x116f…117c at000b = ╱ba╱ OF ╱ // 0x117a @0xb
0x116f…117c at000c = EOL // 0x117b @0xc
0x116f…117c }
0x117c…1182 98cf 1490 STOP
0x117c…1182 LineComalBcd {
0x117c…1182 ptr = 0x98cf // 0x117c @0x0
0x117c…1182 lno = 0x1490 // 0x117e @0x2
0x117c…1182 at0004 = ╱8d╱ STOP ╱ // 0x1180 @0x4
0x117c…1182 at0005 = EOL // 0x1181 @0x5
0x117c…1182 }
0x1182…118f 98dc 1500 WHEN 2
0x1182…118f LineComalBcd {
0x1182…118f ptr = 0x98dc // 0x1182 @0x0
0x1182…118f lno = 0x1500 // 0x1184 @0x2
0x1182…118f at0004 = ╱a301╱ WHEN ╱ // 0x1186 @0x4
0x1182…118f at0006 = ╱32╱2╱ // 0x1188 @0x6
0x1182…118f at0007 = ╱fe00008002╱ // 0x1189 @0x7
0x1182…118f at000c = EOL // 0x118e @0xc
0x1182…118f }
0x118f…11a1 98ee 1510 IF CÆND<>1 THEN
0x118f…11a1 LineComalBcd {
0x118f…11a1 ptr = 0x98ee // 0x118f @0x0
0x118f…11a1 lno = 0x1510 // 0x1191 @0x2
0x118f…11a1 at0004 = ╱9c╱ IF ╱ // 0x1193 @0x4
0x118f…11a1 at0005 = ╱43╱C╱ // 0x1194 @0x5
0x118f…11a1 at0006 = ╱5b╱Æ╱ // 0x1195 @0x6
0x118f…11a1 at0007 = ╱4e╱N╱ // 0x1196 @0x7
0x118f…11a1 at0008 = ╱44╱D╱ // 0x1197 @0x8
0x118f…11a1 at0009 = ╱e1╱<>╱ // 0x1198 @0x9
0x118f…11a1 at000a = ╱31╱1╱ // 0x1199 @0xa
0x118f…11a1 at000b = ╱fe00008001╱ // 0x119a @0xb
0x118f…11a1 at0010 = ╱b6╱ THEN ╱ // 0x119f @0x10
0x118f…11a1 at0011 = EOL // 0x11a0 @0x11
0x118f…11a1 }
0x11a1…11b4 9901 1520 CURSOR 2,4
0x11a1…11b4 LineComalBcd {
0x11a1…11b4 ptr = 0x9901 // 0x11a1 @0x0
0x11a1…11b4 lno = 0x1520 // 0x11a3 @0x2
0x11a1…11b4 at0004 = ╱a1╱ CURSOR ╱ // 0x11a5 @0x4
0x11a1…11b4 at0005 = ╱32╱2╱ // 0x11a6 @0x5
0x11a1…11b4 at0006 = ╱fe00008002╱ // 0x11a7 @0x6
0x11a1…11b4 at000b = ╱ec╱,╱ // 0x11ac @0xb
0x11a1…11b4 at000c = ╱34╱4╱ // 0x11ad @0xc
0x11a1…11b4 at000d = ╱fe00008003╱ // 0x11ae @0xd
0x11a1…11b4 at0012 = EOL // 0x11b3 @0x12
0x11a1…11b4 }
0x11b4…11c9 9916 1530 PRINT "2:Navn :"
0x11b4…11c9 LineComalBcd {
0x11b4…11c9 ptr = 0x9916 // 0x11b4 @0x0
0x11b4…11c9 lno = 0x1530 // 0x11b6 @0x2
0x11b4…11c9 at0004 = ╱92╱ PRINT ╱ // 0x11b8 @0x4
0x11b4…11c9 at0005 = ╱22╱"╱ // 0x11b9 @0x5
0x11b4…11c9 at0006 = ╱32╱2╱ // 0x11ba @0x6
0x11b4…11c9 at0007 = ╱3a╱:╱ // 0x11bb @0x7
0x11b4…11c9 at0008 = ╱4e╱N╱ // 0x11bc @0x8
0x11b4…11c9 at0009 = ╱61╱a╱ // 0x11bd @0x9
0x11b4…11c9 at000a = ╱76╱v╱ // 0x11be @0xa
0x11b4…11c9 at000b = ╱6e╱n╱ // 0x11bf @0xb
0x11b4…11c9 at000c = ╱20╱…╱ // 0x11c0 @0xc
0x11b4…11c9 at000d = ╱20╱…╱ // 0x11c1 @0xd
0x11b4…11c9 at000e = ╱20╱…╱ // 0x11c2 @0xe
0x11b4…11c9 at000f = ╱20╱…╱ // 0x11c3 @0xf
0x11b4…11c9 at0010 = ╱20╱…╱ // 0x11c4 @0x10
0x11b4…11c9 at0011 = ╱20╱…╱ // 0x11c5 @0x11
0x11b4…11c9 at0012 = ╱3a╱:╱ // 0x11c6 @0x12
0x11b4…11c9 at0013 = ╱22╱"╱ // 0x11c7 @0x13
0x11b4…11c9 at0014 = EOL // 0x11c8 @0x14
0x11b4…11c9 }
0x11c9…11da 9927 1540 DSTYR=3
0x11c9…11da LineComalBcd {
0x11c9…11da ptr = 0x9927 // 0x11c9 @0x0
0x11c9…11da lno = 0x1540 // 0x11cb @0x2
0x11c9…11da at0004 = ╱44╱D╱ // 0x11cd @0x4
0x11c9…11da at0005 = ╱53╱S╱ // 0x11ce @0x5
0x11c9…11da at0006 = ╱54╱T╱ // 0x11cf @0x6
0x11c9…11da at0007 = ╱59╱Y╱ // 0x11d0 @0x7
0x11c9…11da at0008 = ╱52╱R╱ // 0x11d1 @0x8
0x11c9…11da at0009 = ╱dc╱=╱ // 0x11d2 @0x9
0x11c9…11da at000a = ╱33╱3╱ // 0x11d3 @0xa
0x11c9…11da at000b = ╱fe0000c002╱ // 0x11d4 @0xb
0x11c9…11da at0010 = EOL // 0x11d9 @0x10
0x11c9…11da }
0x11da…11e0 992d 1550 ENDIF
0x11da…11e0 LineComalBcd {
0x11da…11e0 ptr = 0x992d // 0x11da @0x0
0x11da…11e0 lno = 0x1550 // 0x11dc @0x2
0x11da…11e0 at0004 = ╱9b╱ ENDIF ╱ // 0x11de @0x4
0x11da…11e0 at0005 = EOL // 0x11df @0x5
0x11da…11e0 }
0x11e0…11f2 993f 1560 IF CÆND<>2 THEN
0x11e0…11f2 LineComalBcd {
0x11e0…11f2 ptr = 0x993f // 0x11e0 @0x0
0x11e0…11f2 lno = 0x1560 // 0x11e2 @0x2
0x11e0…11f2 at0004 = ╱9c╱ IF ╱ // 0x11e4 @0x4
0x11e0…11f2 at0005 = ╱43╱C╱ // 0x11e5 @0x5
0x11e0…11f2 at0006 = ╱5b╱Æ╱ // 0x11e6 @0x6
0x11e0…11f2 at0007 = ╱4e╱N╱ // 0x11e7 @0x7
0x11e0…11f2 at0008 = ╱44╱D╱ // 0x11e8 @0x8
0x11e0…11f2 at0009 = ╱e1╱<>╱ // 0x11e9 @0x9
0x11e0…11f2 at000a = ╱32╱2╱ // 0x11ea @0xa
0x11e0…11f2 at000b = ╱fe00008002╱ // 0x11eb @0xb
0x11e0…11f2 at0010 = ╱b6╱ THEN ╱ // 0x11f0 @0x10
0x11e0…11f2 at0011 = EOL // 0x11f1 @0x11
0x11e0…11f2 }
0x11f2…1206 9953 1570 CURSOR 3,23
0x11f2…1206 LineComalBcd {
0x11f2…1206 ptr = 0x9953 // 0x11f2 @0x0
0x11f2…1206 lno = 0x1570 // 0x11f4 @0x2
0x11f2…1206 at0004 = ╱a1╱ CURSOR ╱ // 0x11f6 @0x4
0x11f2…1206 at0005 = ╱33╱3╱ // 0x11f7 @0x5
0x11f2…1206 at0006 = ╱fe0000c002╱ // 0x11f8 @0x6
0x11f2…1206 at000b = ╱ec╱,╱ // 0x11fd @0xb
0x11f2…1206 at000c = ╱32╱2╱ // 0x11fe @0xc
0x11f2…1206 at000d = ╱33╱3╱ // 0x11ff @0xd
0x11f2…1206 at000e = ╱fe0000b805╱ // 0x1200 @0xe
0x11f2…1206 at0013 = EOL // 0x1205 @0x13
0x11f2…1206 }
0x1206…1250 999d 1580 PRINT "Navn";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)
0x1206…1250 LineComalBcd {
0x1206…1250 ptr = 0x999d // 0x1206 @0x0
0x1206…1250 lno = 0x1580 // 0x1208 @0x2
0x1206…1250 at0004 = ╱92╱ PRINT ╱ // 0x120a @0x4
0x1206…1250 at0005 = ╱22╱"╱ // 0x120b @0x5
0x1206…1250 at0006 = ╱4e╱N╱ // 0x120c @0x6
0x1206…1250 at0007 = ╱61╱a╱ // 0x120d @0x7
0x1206…1250 at0008 = ╱76╱v╱ // 0x120e @0x8
0x1206…1250 at0009 = ╱6e╱n╱ // 0x120f @0x9
0x1206…1250 at000a = ╱22╱"╱ // 0x1210 @0xa
0x1206…1250 at000b = ╱eb╱;╱ // 0x1211 @0xb
0x1206…1250 at000c = ╱42╱B╱ // 0x1212 @0xc
0x1206…1250 at000d = ╱4c╱L╱ // 0x1213 @0xd
0x1206…1250 at000e = ╱41╱A╱ // 0x1214 @0xe
0x1206…1250 at000f = ╱4e╱N╱ // 0x1215 @0xf
0x1206…1250 at0010 = ╱4b╱K╱ // 0x1216 @0x10
0x1206…1250 at0011 = ╱ef╱$╱ // 0x1217 @0x11
0x1206…1250 at0012 = ╱ed╱(╱ // 0x1218 @0x12
0x1206…1250 at0013 = ╱31╱1╱ // 0x1219 @0x13
0x1206…1250 at0014 = ╱fe00008001╱ // 0x121a @0x14
0x1206…1250 at0019 = ╱f0╱:╱ // 0x121f @0x19
0x1206…1250 at001a = ╱33╱3╱ // 0x1220 @0x1a
0x1206…1250 at001b = ╱33╱3╱ // 0x1221 @0x1b
0x1206…1250 at001c = ╱fe00008406╱ // 0x1222 @0x1c
0x1206…1250 at0021 = ╱ee╱)╱ // 0x1227 @0x21
0x1206…1250 at0022 = ╱eb╱;╱ // 0x1228 @0x22
0x1206…1250 at0023 = ╱22╱"╱ // 0x1229 @0x23
0x1206…1250 at0024 = ╱28╱(╱ // 0x122a @0x24
0x1206…1250 at0025 = ╱6d╱m╱ // 0x122b @0x25
0x1206…1250 at0026 = ╱61╱a╱ // 0x122c @0x26
0x1206…1250 at0027 = ╱78╱x╱ // 0x122d @0x27
0x1206…1250 at0028 = ╱20╱…╱ // 0x122e @0x28
0x1206…1250 at0029 = ╱32╱2╱ // 0x122f @0x29
0x1206…1250 at002a = ╱35╱5╱ // 0x1230 @0x2a
0x1206…1250 at002b = ╱20╱…╱ // 0x1231 @0x2b
0x1206…1250 at002c = ╱74╱t╱ // 0x1232 @0x2c
0x1206…1250 at002d = ╱65╱e╱ // 0x1233 @0x2d
0x1206…1250 at002e = ╱67╱g╱ // 0x1234 @0x2e
0x1206…1250 at002f = ╱6e╱n╱ // 0x1235 @0x2f
0x1206…1250 at0030 = ╱29╱)╱ // 0x1236 @0x30
0x1206…1250 at0031 = ╱22╱"╱ // 0x1237 @0x31
0x1206…1250 at0032 = ╱eb╱;╱ // 0x1238 @0x32
0x1206…1250 at0033 = ╱42╱B╱ // 0x1239 @0x33
0x1206…1250 at0034 = ╱4c╱L╱ // 0x123a @0x34
0x1206…1250 at0035 = ╱41╱A╱ // 0x123b @0x35
0x1206…1250 at0036 = ╱4e╱N╱ // 0x123c @0x36
0x1206…1250 at0037 = ╱4b╱K╱ // 0x123d @0x37
0x1206…1250 at0038 = ╱ef╱$╱ // 0x123e @0x38
0x1206…1250 at0039 = ╱ed╱(╱ // 0x123f @0x39
0x1206…1250 at003a = ╱31╱1╱ // 0x1240 @0x3a
0x1206…1250 at003b = ╱fe00008001╱ // 0x1241 @0x3b
0x1206…1250 at0040 = ╱f0╱:╱ // 0x1246 @0x40
0x1206…1250 at0041 = ╱32╱2╱ // 0x1247 @0x41
0x1206…1250 at0042 = ╱36╱6╱ // 0x1248 @0x42
0x1206…1250 at0043 = ╱fe0000d005╱ // 0x1249 @0x43
0x1206…1250 at0048 = ╱ee╱)╱ // 0x124e @0x48
0x1206…1250 at0049 = EOL // 0x124f @0x49
0x1206…1250 }
0x1250…1265 99b2 1590 CURSOR 13,23
0x1250…1265 LineComalBcd {
0x1250…1265 ptr = 0x99b2 // 0x1250 @0x0
0x1250…1265 lno = 0x1590 // 0x1252 @0x2
0x1250…1265 at0004 = ╱a1╱ CURSOR ╱ // 0x1254 @0x4
0x1250…1265 at0005 = ╱31╱1╱ // 0x1255 @0x5
0x1250…1265 at0006 = ╱33╱3╱ // 0x1256 @0x6
0x1250…1265 at0007 = ╱fe0000d004╱ // 0x1257 @0x7
0x1250…1265 at000c = ╱ec╱,╱ // 0x125c @0xc
0x1250…1265 at000d = ╱32╱2╱ // 0x125d @0xd
0x1250…1265 at000e = ╱33╱3╱ // 0x125e @0xe
0x1250…1265 at000f = ╱fe0000b805╱ // 0x125f @0xf
0x1250…1265 at0014 = EOL // 0x1264 @0x14
0x1250…1265 }
0x1265…1273 99c0 1600 INPUT DEBNAVN$
0x1265…1273 LineComalBcd {
0x1265…1273 ptr = 0x99c0 // 0x1265 @0x0
0x1265…1273 lno = 0x1600 // 0x1267 @0x2
0x1265…1273 at0004 = ╱91╱ INPUT ╱ // 0x1269 @0x4
0x1265…1273 at0005 = ╱44╱D╱ // 0x126a @0x5
0x1265…1273 at0006 = ╱45╱E╱ // 0x126b @0x6
0x1265…1273 at0007 = ╱42╱B╱ // 0x126c @0x7
0x1265…1273 at0008 = ╱4e╱N╱ // 0x126d @0x8
0x1265…1273 at0009 = ╱41╱A╱ // 0x126e @0x9
0x1265…1273 at000a = ╱56╱V╱ // 0x126f @0xa
0x1265…1273 at000b = ╱4e╱N╱ // 0x1270 @0xb
0x1265…1273 at000c = ╱ef╱$╱ // 0x1271 @0xc
0x1265…1273 at000d = EOL // 0x1272 @0xd
0x1265…1273 }
0x1273…1279 99c6 1610 ENDIF
0x1273…1279 LineComalBcd {
0x1273…1279 ptr = 0x99c6 // 0x1273 @0x0
0x1273…1279 lno = 0x1610 // 0x1275 @0x2
0x1273…1279 at0004 = ╱9b╱ ENDIF ╱ // 0x1277 @0x4
0x1273…1279 at0005 = EOL // 0x1278 @0x5
0x1273…1279 }
0x1279…128d 99da 1620 CURSOR 16,4
0x1279…128d LineComalBcd {
0x1279…128d ptr = 0x99da // 0x1279 @0x0
0x1279…128d lno = 0x1620 // 0x127b @0x2
0x1279…128d at0004 = ╱a1╱ CURSOR ╱ // 0x127d @0x4
0x1279…128d at0005 = ╱31╱1╱ // 0x127e @0x5
0x1279…128d at0006 = ╱36╱6╱ // 0x127f @0x6
0x1279…128d at0007 = ╱fe00008005╱ // 0x1280 @0x7
0x1279…128d at000c = ╱ec╱,╱ // 0x1285 @0xc
0x1279…128d at000d = ╱34╱4╱ // 0x1286 @0xd
0x1279…128d at000e = ╱fe00008003╱ // 0x1287 @0xe
0x1279…128d at0013 = EOL // 0x128c @0x13
0x1279…128d }
0x128d…12a9 99f6 1630 PRINT BLANK$(1:25)
0x128d…12a9 LineComalBcd {
0x128d…12a9 ptr = 0x99f6 // 0x128d @0x0
0x128d…12a9 lno = 0x1630 // 0x128f @0x2
0x128d…12a9 at0004 = ╱92╱ PRINT ╱ // 0x1291 @0x4
0x128d…12a9 at0005 = ╱42╱B╱ // 0x1292 @0x5
0x128d…12a9 at0006 = ╱4c╱L╱ // 0x1293 @0x6
0x128d…12a9 at0007 = ╱41╱A╱ // 0x1294 @0x7
0x128d…12a9 at0008 = ╱4e╱N╱ // 0x1295 @0x8
0x128d…12a9 at0009 = ╱4b╱K╱ // 0x1296 @0x9
0x128d…12a9 at000a = ╱ef╱$╱ // 0x1297 @0xa
0x128d…12a9 at000b = ╱ed╱(╱ // 0x1298 @0xb
0x128d…12a9 at000c = ╱31╱1╱ // 0x1299 @0xc
0x128d…12a9 at000d = ╱fe00008001╱ // 0x129a @0xd
0x128d…12a9 at0012 = ╱f0╱:╱ // 0x129f @0x12
0x128d…12a9 at0013 = ╱32╱2╱ // 0x12a0 @0x13
0x128d…12a9 at0014 = ╱35╱5╱ // 0x12a1 @0x14
0x128d…12a9 at0015 = ╱fe0000c805╱ // 0x12a2 @0x15
0x128d…12a9 at001a = ╱ee╱)╱ // 0x12a7 @0x1a
0x128d…12a9 at001b = EOL // 0x12a8 @0x1b
0x128d…12a9 }
0x12a9…12bd 9a0a 1640 CURSOR 16,4
0x12a9…12bd LineComalBcd {
0x12a9…12bd ptr = 0x9a0a // 0x12a9 @0x0
0x12a9…12bd lno = 0x1640 // 0x12ab @0x2
0x12a9…12bd at0004 = ╱a1╱ CURSOR ╱ // 0x12ad @0x4
0x12a9…12bd at0005 = ╱31╱1╱ // 0x12ae @0x5
0x12a9…12bd at0006 = ╱36╱6╱ // 0x12af @0x6
0x12a9…12bd at0007 = ╱fe00008005╱ // 0x12b0 @0x7
0x12a9…12bd at000c = ╱ec╱,╱ // 0x12b5 @0xc
0x12a9…12bd at000d = ╱34╱4╱ // 0x12b6 @0xd
0x12a9…12bd at000e = ╱fe00008003╱ // 0x12b7 @0xe
0x12a9…12bd at0013 = EOL // 0x12bc @0x13
0x12a9…12bd }
0x12bd…12cb 9a18 1650 PRINT DEBNAVN$
0x12bd…12cb LineComalBcd {
0x12bd…12cb ptr = 0x9a18 // 0x12bd @0x0
0x12bd…12cb lno = 0x1650 // 0x12bf @0x2
0x12bd…12cb at0004 = ╱92╱ PRINT ╱ // 0x12c1 @0x4
0x12bd…12cb at0005 = ╱44╱D╱ // 0x12c2 @0x5
0x12bd…12cb at0006 = ╱45╱E╱ // 0x12c3 @0x6
0x12bd…12cb at0007 = ╱42╱B╱ // 0x12c4 @0x7
0x12bd…12cb at0008 = ╱4e╱N╱ // 0x12c5 @0x8
0x12bd…12cb at0009 = ╱41╱A╱ // 0x12c6 @0x9
0x12bd…12cb at000a = ╱56╱V╱ // 0x12c7 @0xa
0x12bd…12cb at000b = ╱4e╱N╱ // 0x12c8 @0xb
0x12bd…12cb at000c = ╱ef╱$╱ // 0x12c9 @0xc
0x12bd…12cb at000d = EOL // 0x12ca @0xd
0x12bd…12cb }
0x12cb…12d8 9a25 1660 WHEN 3
0x12cb…12d8 LineComalBcd {
0x12cb…12d8 ptr = 0x9a25 // 0x12cb @0x0
0x12cb…12d8 lno = 0x1660 // 0x12cd @0x2
0x12cb…12d8 at0004 = ╱a301╱ WHEN ╱ // 0x12cf @0x4
0x12cb…12d8 at0006 = ╱33╱3╱ // 0x12d1 @0x6
0x12cb…12d8 at0007 = ╱fe0000c002╱ // 0x12d2 @0x7
0x12cb…12d8 at000c = EOL // 0x12d7 @0xc
0x12cb…12d8 }
0x12d8…12ea 9a37 1670 IF CÆND<>1 THEN
0x12d8…12ea LineComalBcd {
0x12d8…12ea ptr = 0x9a37 // 0x12d8 @0x0
0x12d8…12ea lno = 0x1670 // 0x12da @0x2
0x12d8…12ea at0004 = ╱9c╱ IF ╱ // 0x12dc @0x4
0x12d8…12ea at0005 = ╱43╱C╱ // 0x12dd @0x5
0x12d8…12ea at0006 = ╱5b╱Æ╱ // 0x12de @0x6
0x12d8…12ea at0007 = ╱4e╱N╱ // 0x12df @0x7
0x12d8…12ea at0008 = ╱44╱D╱ // 0x12e0 @0x8
0x12d8…12ea at0009 = ╱e1╱<>╱ // 0x12e1 @0x9
0x12d8…12ea at000a = ╱31╱1╱ // 0x12e2 @0xa
0x12d8…12ea at000b = ╱fe00008001╱ // 0x12e3 @0xb
0x12d8…12ea at0010 = ╱b6╱ THEN ╱ // 0x12e8 @0x10
0x12d8…12ea at0011 = EOL // 0x12e9 @0x11
0x12d8…12ea }
0x12ea…12fd 9a4a 1680 CURSOR 2,5
0x12ea…12fd LineComalBcd {
0x12ea…12fd ptr = 0x9a4a // 0x12ea @0x0
0x12ea…12fd lno = 0x1680 // 0x12ec @0x2
0x12ea…12fd at0004 = ╱a1╱ CURSOR ╱ // 0x12ee @0x4
0x12ea…12fd at0005 = ╱32╱2╱ // 0x12ef @0x5
0x12ea…12fd at0006 = ╱fe00008002╱ // 0x12f0 @0x6
0x12ea…12fd at000b = ╱ec╱,╱ // 0x12f5 @0xb
0x12ea…12fd at000c = ╱35╱5╱ // 0x12f6 @0xc
0x12ea…12fd at000d = ╱fe0000a003╱ // 0x12f7 @0xd
0x12ea…12fd at0012 = EOL // 0x12fc @0x12
0x12ea…12fd }
0x12fd…1312 9a5f 1690 PRINT "3:Gade :"
0x12fd…1312 LineComalBcd {
0x12fd…1312 ptr = 0x9a5f // 0x12fd @0x0
0x12fd…1312 lno = 0x1690 // 0x12ff @0x2
0x12fd…1312 at0004 = ╱92╱ PRINT ╱ // 0x1301 @0x4
0x12fd…1312 at0005 = ╱22╱"╱ // 0x1302 @0x5
0x12fd…1312 at0006 = ╱33╱3╱ // 0x1303 @0x6
0x12fd…1312 at0007 = ╱3a╱:╱ // 0x1304 @0x7
0x12fd…1312 at0008 = ╱47╱G╱ // 0x1305 @0x8
0x12fd…1312 at0009 = ╱61╱a╱ // 0x1306 @0x9
0x12fd…1312 at000a = ╱64╱d╱ // 0x1307 @0xa
0x12fd…1312 at000b = ╱65╱e╱ // 0x1308 @0xb
0x12fd…1312 at000c = ╱20╱…╱ // 0x1309 @0xc
0x12fd…1312 at000d = ╱20╱…╱ // 0x130a @0xd
0x12fd…1312 at000e = ╱20╱…╱ // 0x130b @0xe
0x12fd…1312 at000f = ╱20╱…╱ // 0x130c @0xf
0x12fd…1312 at0010 = ╱20╱…╱ // 0x130d @0x10
0x12fd…1312 at0011 = ╱20╱…╱ // 0x130e @0x11
0x12fd…1312 at0012 = ╱3a╱:╱ // 0x130f @0x12
0x12fd…1312 at0013 = ╱22╱"╱ // 0x1310 @0x13
0x12fd…1312 at0014 = EOL // 0x1311 @0x14
0x12fd…1312 }
0x1312…1323 9a70 1700 DSTYR=4
0x1312…1323 LineComalBcd {
0x1312…1323 ptr = 0x9a70 // 0x1312 @0x0
0x1312…1323 lno = 0x1700 // 0x1314 @0x2
0x1312…1323 at0004 = ╱44╱D╱ // 0x1316 @0x4
0x1312…1323 at0005 = ╱53╱S╱ // 0x1317 @0x5
0x1312…1323 at0006 = ╱54╱T╱ // 0x1318 @0x6
0x1312…1323 at0007 = ╱59╱Y╱ // 0x1319 @0x7
0x1312…1323 at0008 = ╱52╱R╱ // 0x131a @0x8
0x1312…1323 at0009 = ╱dc╱=╱ // 0x131b @0x9
0x1312…1323 at000a = ╱34╱4╱ // 0x131c @0xa
0x1312…1323 at000b = ╱fe00008003╱ // 0x131d @0xb
0x1312…1323 at0010 = EOL // 0x1322 @0x10
0x1312…1323 }
0x1323…1329 9a76 1710 ENDIF
0x1323…1329 LineComalBcd {
0x1323…1329 ptr = 0x9a76 // 0x1323 @0x0
0x1323…1329 lno = 0x1710 // 0x1325 @0x2
0x1323…1329 at0004 = ╱9b╱ ENDIF ╱ // 0x1327 @0x4
0x1323…1329 at0005 = EOL // 0x1328 @0x5
0x1323…1329 }
0x1329…133b 9a88 1720 IF CÆND<>2 THEN
0x1329…133b LineComalBcd {
0x1329…133b ptr = 0x9a88 // 0x1329 @0x0
0x1329…133b lno = 0x1720 // 0x132b @0x2
0x1329…133b at0004 = ╱9c╱ IF ╱ // 0x132d @0x4
0x1329…133b at0005 = ╱43╱C╱ // 0x132e @0x5
0x1329…133b at0006 = ╱5b╱Æ╱ // 0x132f @0x6
0x1329…133b at0007 = ╱4e╱N╱ // 0x1330 @0x7
0x1329…133b at0008 = ╱44╱D╱ // 0x1331 @0x8
0x1329…133b at0009 = ╱e1╱<>╱ // 0x1332 @0x9
0x1329…133b at000a = ╱32╱2╱ // 0x1333 @0xa
0x1329…133b at000b = ╱fe00008002╱ // 0x1334 @0xb
0x1329…133b at0010 = ╱b6╱ THEN ╱ // 0x1339 @0x10
0x1329…133b at0011 = EOL // 0x133a @0x11
0x1329…133b }
0x133b…134f 9a9c 1730 CURSOR 3,23
0x133b…134f LineComalBcd {
0x133b…134f ptr = 0x9a9c // 0x133b @0x0
0x133b…134f lno = 0x1730 // 0x133d @0x2
0x133b…134f at0004 = ╱a1╱ CURSOR ╱ // 0x133f @0x4
0x133b…134f at0005 = ╱33╱3╱ // 0x1340 @0x5
0x133b…134f at0006 = ╱fe0000c002╱ // 0x1341 @0x6
0x133b…134f at000b = ╱ec╱,╱ // 0x1346 @0xb
0x133b…134f at000c = ╱32╱2╱ // 0x1347 @0xc
0x133b…134f at000d = ╱33╱3╱ // 0x1348 @0xd
0x133b…134f at000e = ╱fe0000b805╱ // 0x1349 @0xe
0x133b…134f at0013 = EOL // 0x134e @0x13
0x133b…134f }
0x134f…1399 9ae6 1740 PRINT "Gade";BLANK$(1:33);"(max 25 tegn)";BLANK$(1:26)
0x134f…1399 LineComalBcd {
0x134f…1399 ptr = 0x9ae6 // 0x134f @0x0
0x134f…1399 lno = 0x1740 // 0x1351 @0x2
0x134f…1399 at0004 = ╱92╱ PRINT ╱ // 0x1353 @0x4
0x134f…1399 at0005 = ╱22╱"╱ // 0x1354 @0x5
0x134f…1399 at0006 = ╱47╱G╱ // 0x1355 @0x6
0x134f…1399 at0007 = ╱61╱a╱ // 0x1356 @0x7
0x134f…1399 at0008 = ╱64╱d╱ // 0x1357 @0x8
0x134f…1399 at0009 = ╱65╱e╱ // 0x1358 @0x9
0x134f…1399 at000a = ╱22╱"╱ // 0x1359 @0xa
0x134f…1399 at000b = ╱eb╱;╱ // 0x135a @0xb
0x134f…1399 at000c = ╱42╱B╱ // 0x135b @0xc
0x134f…1399 at000d = ╱4c╱L╱ // 0x135c @0xd
0x134f…1399 at000e = ╱41╱A╱ // 0x135d @0xe
0x134f…1399 at000f = ╱4e╱N╱ // 0x135e @0xf
0x134f…1399 at0010 = ╱4b╱K╱ // 0x135f @0x10
0x134f…1399 at0011 = ╱ef╱$╱ // 0x1360 @0x11
0x134f…1399 at0012 = ╱ed╱(╱ // 0x1361 @0x12
0x134f…1399 at0013 = ╱31╱1╱ // 0x1362 @0x13
0x134f…1399 at0014 = ╱fe00008001╱ // 0x1363 @0x14
0x134f…1399 at0019 = ╱f0╱:╱ // 0x1368 @0x19
0x134f…1399 at001a = ╱33╱3╱ // 0x1369 @0x1a
0x134f…1399 at001b = ╱33╱3╱ // 0x136a @0x1b
0x134f…1399 at001c = ╱fe00008406╱ // 0x136b @0x1c
0x134f…1399 at0021 = ╱ee╱)╱ // 0x1370 @0x21
0x134f…1399 at0022 = ╱eb╱;╱ // 0x1371 @0x22
0x134f…1399 at0023 = ╱22╱"╱ // 0x1372 @0x23
0x134f…1399 at0024 = ╱28╱(╱ // 0x1373 @0x24
0x134f…1399 at0025 = ╱6d╱m╱ // 0x1374 @0x25
0x134f…1399 at0026 = ╱61╱a╱ // 0x1375 @0x26
0x134f…1399 at0027 = ╱78╱x╱ // 0x1376 @0x27
0x134f…1399 at0028 = ╱20╱…╱ // 0x1377 @0x28
0x134f…1399 at0029 = ╱32╱2╱ // 0x1378 @0x29
0x134f…1399 at002a = ╱35╱5╱ // 0x1379 @0x2a
0x134f…1399 at002b = ╱20╱…╱ // 0x137a @0x2b
0x134f…1399 at002c = ╱74╱t╱ // 0x137b @0x2c
0x134f…1399 at002d = ╱65╱e╱ // 0x137c @0x2d
0x134f…1399 at002e = ╱67╱g╱ // 0x137d @0x2e
0x134f…1399 at002f = ╱6e╱n╱ // 0x137e @0x2f
0x134f…1399 at0030 = ╱29╱)╱ // 0x137f @0x30
0x134f…1399 at0031 = ╱22╱"╱ // 0x1380 @0x31
0x134f…1399 at0032 = ╱eb╱;╱ // 0x1381 @0x32
0x134f…1399 at0033 = ╱42╱B╱ // 0x1382 @0x33
0x134f…1399 at0034 = ╱4c╱L╱ // 0x1383 @0x34
0x134f…1399 at0035 = ╱41╱A╱ // 0x1384 @0x35
0x134f…1399 at0036 = ╱4e╱N╱ // 0x1385 @0x36
0x134f…1399 at0037 = ╱4b╱K╱ // 0x1386 @0x37
0x134f…1399 at0038 = ╱ef╱$╱ // 0x1387 @0x38
0x134f…1399 at0039 = ╱ed╱(╱ // 0x1388 @0x39
0x134f…1399 at003a = ╱31╱1╱ // 0x1389 @0x3a
0x134f…1399 at003b = ╱fe00008001╱ // 0x138a @0x3b
0x134f…1399 at0040 = ╱f0╱:╱ // 0x138f @0x40
0x134f…1399 at0041 = ╱32╱2╱ // 0x1390 @0x41
0x134f…1399 at0042 = ╱36╱6╱ // 0x1391 @0x42
0x134f…1399 at0043 = ╱fe0000d005╱ // 0x1392 @0x43
0x134f…1399 at0048 = ╱ee╱)╱ // 0x1397 @0x48
0x134f…1399 at0049 = EOL // 0x1398 @0x49
0x134f…1399 }
0x1399…13ae 9afb 1750 CURSOR 13,23
0x1399…13ae LineComalBcd {
0x1399…13ae ptr = 0x9afb // 0x1399 @0x0
0x1399…13ae lno = 0x1750 // 0x139b @0x2
0x1399…13ae at0004 = ╱a1╱ CURSOR ╱ // 0x139d @0x4
0x1399…13ae at0005 = ╱31╱1╱ // 0x139e @0x5
0x1399…13ae at0006 = ╱33╱3╱ // 0x139f @0x6
0x1399…13ae at0007 = ╱fe0000d004╱ // 0x13a0 @0x7
0x1399…13ae at000c = ╱ec╱,╱ // 0x13a5 @0xc
0x1399…13ae at000d = ╱32╱2╱ // 0x13a6 @0xd
0x1399…13ae at000e = ╱33╱3╱ // 0x13a7 @0xe
0x1399…13ae at000f = ╱fe0000b805╱ // 0x13a8 @0xf
0x1399…13ae at0014 = EOL // 0x13ad @0x14
0x1399…13ae }
0x13ae…13bc 9b09 1760 INPUT DEBGADE$
0x13ae…13bc LineComalBcd {
0x13ae…13bc ptr = 0x9b09 // 0x13ae @0x0
0x13ae…13bc lno = 0x1760 // 0x13b0 @0x2
0x13ae…13bc at0004 = ╱91╱ INPUT ╱ // 0x13b2 @0x4
0x13ae…13bc at0005 = ╱44╱D╱ // 0x13b3 @0x5
0x13ae…13bc at0006 = ╱45╱E╱ // 0x13b4 @0x6
0x13ae…13bc at0007 = ╱42╱B╱ // 0x13b5 @0x7
0x13ae…13bc at0008 = ╱47╱G╱ // 0x13b6 @0x8
0x13ae…13bc at0009 = ╱41╱A╱ // 0x13b7 @0x9
0x13ae…13bc at000a = ╱44╱D╱ // 0x13b8 @0xa
0x13ae…13bc at000b = ╱45╱E╱ // 0x13b9 @0xb
0x13ae…13bc at000c = ╱ef╱$╱ // 0x13ba @0xc
0x13ae…13bc at000d = EOL // 0x13bb @0xd
0x13ae…13bc }
0x13bc…13c2 9b0f 1770 ENDIF
0x13bc…13c2 LineComalBcd {
0x13bc…13c2 ptr = 0x9b0f // 0x13bc @0x0
0x13bc…13c2 lno = 0x1770 // 0x13be @0x2
0x13bc…13c2 at0004 = ╱9b╱ ENDIF ╱ // 0x13c0 @0x4
0x13bc…13c2 at0005 = EOL // 0x13c1 @0x5
0x13bc…13c2 }
0x13c2…13d6 9b23 1780 CURSOR 16,5
0x13c2…13d6 LineComalBcd {
0x13c2…13d6 ptr = 0x9b23 // 0x13c2 @0x0
0x13c2…13d6 lno = 0x1780 // 0x13c4 @0x2
0x13c2…13d6 at0004 = ╱a1╱ CURSOR ╱ // 0x13c6 @0x4
0x13c2…13d6 at0005 = ╱31╱1╱ // 0x13c7 @0x5
0x13c2…13d6 at0006 = ╱36╱6╱ // 0x13c8 @0x6
0x13c2…13d6 at0007 = ╱fe00008005╱ // 0x13c9 @0x7
0x13c2…13d6 at000c = ╱ec╱,╱ // 0x13ce @0xc
0x13c2…13d6 at000d = ╱35╱5╱ // 0x13cf @0xd
0x13c2…13d6 at000e = ╱fe0000a003╱ // 0x13d0 @0xe
0x13c2…13d6 at0013 = EOL // 0x13d5 @0x13
0x13c2…13d6 }
0x13d6…13f2 9b3f 1790 PRINT BLANK$(1:25)
0x13d6…13f2 LineComalBcd {
0x13d6…13f2 ptr = 0x9b3f // 0x13d6 @0x0
0x13d6…13f2 lno = 0x1790 // 0x13d8 @0x2
0x13d6…13f2 at0004 = ╱92╱ PRINT ╱ // 0x13da @0x4
0x13d6…13f2 at0005 = ╱42╱B╱ // 0x13db @0x5
0x13d6…13f2 at0006 = ╱4c╱L╱ // 0x13dc @0x6
0x13d6…13f2 at0007 = ╱41╱A╱ // 0x13dd @0x7
0x13d6…13f2 at0008 = ╱4e╱N╱ // 0x13de @0x8
0x13d6…13f2 at0009 = ╱4b╱K╱ // 0x13df @0x9
0x13d6…13f2 at000a = ╱ef╱$╱ // 0x13e0 @0xa
0x13d6…13f2 at000b = ╱ed╱(╱ // 0x13e1 @0xb
0x13d6…13f2 at000c = ╱31╱1╱ // 0x13e2 @0xc
0x13d6…13f2 at000d = ╱fe00008001╱ // 0x13e3 @0xd
0x13d6…13f2 at0012 = ╱f0╱:╱ // 0x13e8 @0x12
0x13d6…13f2 at0013 = ╱32╱2╱ // 0x13e9 @0x13
0x13d6…13f2 at0014 = ╱35╱5╱ // 0x13ea @0x14
0x13d6…13f2 at0015 = ╱fe0000c805╱ // 0x13eb @0x15
0x13d6…13f2 at001a = ╱ee╱)╱ // 0x13f0 @0x1a
0x13d6…13f2 at001b = EOL // 0x13f1 @0x1b
0x13d6…13f2 }
0x13f2…1406 9b53 1800 CURSOR 16,5
0x13f2…1406 LineComalBcd {
0x13f2…1406 ptr = 0x9b53 // 0x13f2 @0x0
0x13f2…1406 lno = 0x1800 // 0x13f4 @0x2
0x13f2…1406 at0004 = ╱a1╱ CURSOR ╱ // 0x13f6 @0x4
0x13f2…1406 at0005 = ╱31╱1╱ // 0x13f7 @0x5
0x13f2…1406 at0006 = ╱36╱6╱ // 0x13f8 @0x6
0x13f2…1406 at0007 = ╱fe00008005╱ // 0x13f9 @0x7
0x13f2…1406 at000c = ╱ec╱,╱ // 0x13fe @0xc
0x13f2…1406 at000d = ╱35╱5╱ // 0x13ff @0xd
0x13f2…1406 at000e = ╱fe0000a003╱ // 0x1400 @0xe
0x13f2…1406 at0013 = EOL // 0x1405 @0x13
0x13f2…1406 }
0x1406…1414 9b61 1810 PRINT DEBGADE$
0x1406…1414 LineComalBcd {
0x1406…1414 ptr = 0x9b61 // 0x1406 @0x0
0x1406…1414 lno = 0x1810 // 0x1408 @0x2
0x1406…1414 at0004 = ╱92╱ PRINT ╱ // 0x140a @0x4
0x1406…1414 at0005 = ╱44╱D╱ // 0x140b @0x5
0x1406…1414 at0006 = ╱45╱E╱ // 0x140c @0x6
0x1406…1414 at0007 = ╱42╱B╱ // 0x140d @0x7
0x1406…1414 at0008 = ╱47╱G╱ // 0x140e @0x8
0x1406…1414 at0009 = ╱41╱A╱ // 0x140f @0x9
0x1406…1414 at000a = ╱44╱D╱ // 0x1410 @0xa
0x1406…1414 at000b = ╱45╱E╱ // 0x1411 @0xb
0x1406…1414 at000c = ╱ef╱$╱ // 0x1412 @0xc
0x1406…1414 at000d = EOL // 0x1413 @0xd
0x1406…1414 }
0x1414…1421 9b6e 1820 WHEN 4
0x1414…1421 LineComalBcd {
0x1414…1421 ptr = 0x9b6e // 0x1414 @0x0
0x1414…1421 lno = 0x1820 // 0x1416 @0x2
0x1414…1421 at0004 = ╱a301╱ WHEN ╱ // 0x1418 @0x4
0x1414…1421 at0006 = ╱34╱4╱ // 0x141a @0x6
0x1414…1421 at0007 = ╱fe00008003╱ // 0x141b @0x7
0x1414…1421 at000c = EOL // 0x1420 @0xc
0x1414…1421 }
0x1421…1433 9b80 1830 IF CÆND<>1 THEN
0x1421…1433 LineComalBcd {
0x1421…1433 ptr = 0x9b80 // 0x1421 @0x0
0x1421…1433 lno = 0x1830 // 0x1423 @0x2
0x1421…1433 at0004 = ╱9c╱ IF ╱ // 0x1425 @0x4
0x1421…1433 at0005 = ╱43╱C╱ // 0x1426 @0x5
0x1421…1433 at0006 = ╱5b╱Æ╱ // 0x1427 @0x6
0x1421…1433 at0007 = ╱4e╱N╱ // 0x1428 @0x7
0x1421…1433 at0008 = ╱44╱D╱ // 0x1429 @0x8
0x1421…1433 at0009 = ╱e1╱<>╱ // 0x142a @0x9
0x1421…1433 at000a = ╱31╱1╱ // 0x142b @0xa
0x1421…1433 at000b = ╱fe00008001╱ // 0x142c @0xb
0x1421…1433 at0010 = ╱b6╱ THEN ╱ // 0x1431 @0x10
0x1421…1433 at0011 = EOL // 0x1432 @0x11
0x1421…1433 }
0x1433…1446 9b93 1840 CURSOR 2,6
0x1433…1446 LineComalBcd {
0x1433…1446 ptr = 0x9b93 // 0x1433 @0x0
0x1433…1446 lno = 0x1840 // 0x1435 @0x2
0x1433…1446 at0004 = ╱a1╱ CURSOR ╱ // 0x1437 @0x4
0x1433…1446 at0005 = ╱32╱2╱ // 0x1438 @0x5
0x1433…1446 at0006 = ╱fe00008002╱ // 0x1439 @0x6
0x1433…1446 at000b = ╱ec╱,╱ // 0x143e @0xb
0x1433…1446 at000c = ╱36╱6╱ // 0x143f @0xc
0x1433…1446 at000d = ╱fe0000c003╱ // 0x1440 @0xd
0x1433…1446 at0012 = EOL // 0x1445 @0x12
0x1433…1446 }
0x1446…145b 9ba8 1850 PRINT "4:Postnr :"
0x1446…145b LineComalBcd {
0x1446…145b ptr = 0x9ba8 // 0x1446 @0x0
0x1446…145b lno = 0x1850 // 0x1448 @0x2
0x1446…145b at0004 = ╱92╱ PRINT ╱ // 0x144a @0x4
0x1446…145b at0005 = ╱22╱"╱ // 0x144b @0x5
0x1446…145b at0006 = ╱34╱4╱ // 0x144c @0x6
0x1446…145b at0007 = ╱3a╱:╱ // 0x144d @0x7
0x1446…145b at0008 = ╱50╱P╱ // 0x144e @0x8
0x1446…145b at0009 = ╱6f╱o╱ // 0x144f @0x9
0x1446…145b at000a = ╱73╱s╱ // 0x1450 @0xa
0x1446…145b at000b = ╱74╱t╱ // 0x1451 @0xb
0x1446…145b at000c = ╱6e╱n╱ // 0x1452 @0xc
0x1446…145b at000d = ╱72╱r╱ // 0x1453 @0xd
0x1446…145b at000e = ╱20╱…╱ // 0x1454 @0xe
0x1446…145b at000f = ╱20╱…╱ // 0x1455 @0xf
0x1446…145b at0010 = ╱20╱…╱ // 0x1456 @0x10
0x1446…145b at0011 = ╱20╱…╱ // 0x1457 @0x11
0x1446…145b at0012 = ╱3a╱:╱ // 0x1458 @0x12
0x1446…145b at0013 = ╱22╱"╱ // 0x1459 @0x13
0x1446…145b at0014 = EOL // 0x145a @0x14
0x1446…145b }
0x145b…146c 9bb9 1860 DSTYR=5
0x145b…146c LineComalBcd {
0x145b…146c ptr = 0x9bb9 // 0x145b @0x0
0x145b…146c lno = 0x1860 // 0x145d @0x2
0x145b…146c at0004 = ╱44╱D╱ // 0x145f @0x4
0x145b…146c at0005 = ╱53╱S╱ // 0x1460 @0x5
0x145b…146c at0006 = ╱54╱T╱ // 0x1461 @0x6
0x145b…146c at0007 = ╱59╱Y╱ // 0x1462 @0x7
0x145b…146c at0008 = ╱52╱R╱ // 0x1463 @0x8
0x145b…146c at0009 = ╱dc╱=╱ // 0x1464 @0x9
0x145b…146c at000a = ╱35╱5╱ // 0x1465 @0xa
0x145b…146c at000b = ╱fe0000a003╱ // 0x1466 @0xb
0x145b…146c at0010 = EOL // 0x146b @0x10
0x145b…146c }
0x146c…1472 9bbf 1870 ENDIF
0x146c…1472 LineComalBcd {
0x146c…1472 ptr = 0x9bbf // 0x146c @0x0
0x146c…1472 lno = 0x1870 // 0x146e @0x2
0x146c…1472 at0004 = ╱9b╱ ENDIF ╱ // 0x1470 @0x4
0x146c…1472 at0005 = EOL // 0x1471 @0x5
0x146c…1472 }
0x1472…1484 9bd1 1880 IF CÆND<>2 THEN
0x1472…1484 LineComalBcd {
0x1472…1484 ptr = 0x9bd1 // 0x1472 @0x0
0x1472…1484 lno = 0x1880 // 0x1474 @0x2
0x1472…1484 at0004 = ╱9c╱ IF ╱ // 0x1476 @0x4
0x1472…1484 at0005 = ╱43╱C╱ // 0x1477 @0x5
0x1472…1484 at0006 = ╱5b╱Æ╱ // 0x1478 @0x6
0x1472…1484 at0007 = ╱4e╱N╱ // 0x1479 @0x7
0x1472…1484 at0008 = ╱44╱D╱ // 0x147a @0x8
0x1472…1484 at0009 = ╱e1╱<>╱ // 0x147b @0x9
0x1472…1484 at000a = ╱32╱2╱ // 0x147c @0xa
0x1472…1484 at000b = ╱fe00008002╱ // 0x147d @0xb
0x1472…1484 at0010 = ╱b6╱ THEN ╱ // 0x1482 @0x10
0x1472…1484 at0011 = EOL // 0x1483 @0x11
0x1472…1484 }
0x1484…148a 9bd7 1890 REPEAT
0x1484…148a LineComalBcd {
0x1484…148a ptr = 0x9bd7 // 0x1484 @0x0
0x1484…148a lno = 0x1890 // 0x1486 @0x2
0x1484…148a at0004 = ╱97╱ REPEAT ╱ // 0x1488 @0x4
0x1484…148a at0005 = EOL // 0x1489 @0x5
0x1484…148a }
0x148a…149e 9beb 1900 CURSOR 3,23
0x148a…149e LineComalBcd {
0x148a…149e ptr = 0x9beb // 0x148a @0x0
0x148a…149e lno = 0x1900 // 0x148c @0x2
0x148a…149e at0004 = ╱a1╱ CURSOR ╱ // 0x148e @0x4
0x148a…149e at0005 = ╱33╱3╱ // 0x148f @0x5
0x148a…149e at0006 = ╱fe0000c002╱ // 0x1490 @0x6
0x148a…149e at000b = ╱ec╱,╱ // 0x1495 @0xb
0x148a…149e at000c = ╱32╱2╱ // 0x1496 @0xc
0x148a…149e at000d = ╱33╱3╱ // 0x1497 @0xd
0x148a…149e at000e = ╱fe0000b805╱ // 0x1498 @0xe
0x148a…149e at0013 = EOL // 0x149d @0x13
0x148a…149e }
0x149e…14e9 9c36 1910 PRINT "Postnr";BLANK$(1:12);"(max 6 tegn)";BLANK$(1:45)
0x149e…14e9 LineComalBcd {
0x149e…14e9 ptr = 0x9c36 // 0x149e @0x0
0x149e…14e9 lno = 0x1910 // 0x14a0 @0x2
0x149e…14e9 at0004 = ╱92╱ PRINT ╱ // 0x14a2 @0x4
0x149e…14e9 at0005 = ╱22╱"╱ // 0x14a3 @0x5
0x149e…14e9 at0006 = ╱50╱P╱ // 0x14a4 @0x6
0x149e…14e9 at0007 = ╱6f╱o╱ // 0x14a5 @0x7
0x149e…14e9 at0008 = ╱73╱s╱ // 0x14a6 @0x8
0x149e…14e9 at0009 = ╱74╱t╱ // 0x14a7 @0x9
0x149e…14e9 at000a = ╱6e╱n╱ // 0x14a8 @0xa
0x149e…14e9 at000b = ╱72╱r╱ // 0x14a9 @0xb
0x149e…14e9 at000c = ╱22╱"╱ // 0x14aa @0xc
0x149e…14e9 at000d = ╱eb╱;╱ // 0x14ab @0xd
0x149e…14e9 at000e = ╱42╱B╱ // 0x14ac @0xe
0x149e…14e9 at000f = ╱4c╱L╱ // 0x14ad @0xf
0x149e…14e9 at0010 = ╱41╱A╱ // 0x14ae @0x10
0x149e…14e9 at0011 = ╱4e╱N╱ // 0x14af @0x11
0x149e…14e9 at0012 = ╱4b╱K╱ // 0x14b0 @0x12
0x149e…14e9 at0013 = ╱ef╱$╱ // 0x14b1 @0x13
0x149e…14e9 at0014 = ╱ed╱(╱ // 0x14b2 @0x14
0x149e…14e9 at0015 = ╱31╱1╱ // 0x14b3 @0x15
0x149e…14e9 at0016 = ╱fe00008001╱ // 0x14b4 @0x16
0x149e…14e9 at001b = ╱f0╱:╱ // 0x14b9 @0x1b
0x149e…14e9 at001c = ╱31╱1╱ // 0x14ba @0x1c
0x149e…14e9 at001d = ╱32╱2╱ // 0x14bb @0x1d
0x149e…14e9 at001e = ╱fe0000c004╱ // 0x14bc @0x1e
0x149e…14e9 at0023 = ╱ee╱)╱ // 0x14c1 @0x23
0x149e…14e9 at0024 = ╱eb╱;╱ // 0x14c2 @0x24
0x149e…14e9 at0025 = ╱22╱"╱ // 0x14c3 @0x25
0x149e…14e9 at0026 = ╱28╱(╱ // 0x14c4 @0x26
0x149e…14e9 at0027 = ╱6d╱m╱ // 0x14c5 @0x27
0x149e…14e9 at0028 = ╱61╱a╱ // 0x14c6 @0x28
0x149e…14e9 at0029 = ╱78╱x╱ // 0x14c7 @0x29
0x149e…14e9 at002a = ╱20╱…╱ // 0x14c8 @0x2a
0x149e…14e9 at002b = ╱36╱6╱ // 0x14c9 @0x2b
0x149e…14e9 at002c = ╱20╱…╱ // 0x14ca @0x2c
0x149e…14e9 at002d = ╱74╱t╱ // 0x14cb @0x2d
0x149e…14e9 at002e = ╱65╱e╱ // 0x14cc @0x2e
0x149e…14e9 at002f = ╱67╱g╱ // 0x14cd @0x2f
0x149e…14e9 at0030 = ╱6e╱n╱ // 0x14ce @0x30
0x149e…14e9 at0031 = ╱29╱)╱ // 0x14cf @0x31
0x149e…14e9 at0032 = ╱22╱"╱ // 0x14d0 @0x32
0x149e…14e9 at0033 = ╱eb╱;╱ // 0x14d1 @0x33
0x149e…14e9 at0034 = ╱42╱B╱ // 0x14d2 @0x34
0x149e…14e9 at0035 = ╱4c╱L╱ // 0x14d3 @0x35
0x149e…14e9 at0036 = ╱41╱A╱ // 0x14d4 @0x36
0x149e…14e9 at0037 = ╱4e╱N╱ // 0x14d5 @0x37
0x149e…14e9 at0038 = ╱4b╱K╱ // 0x14d6 @0x38
0x149e…14e9 at0039 = ╱ef╱$╱ // 0x14d7 @0x39
0x149e…14e9 at003a = ╱ed╱(╱ // 0x14d8 @0x3a
0x149e…14e9 at003b = ╱31╱1╱ // 0x14d9 @0x3b
0x149e…14e9 at003c = ╱fe00008001╱ // 0x14da @0x3c
0x149e…14e9 at0041 = ╱f0╱:╱ // 0x14df @0x41
0x149e…14e9 at0042 = ╱34╱4╱ // 0x14e0 @0x42
0x149e…14e9 at0043 = ╱35╱5╱ // 0x14e1 @0x43
0x149e…14e9 at0044 = ╱fe0000b406╱ // 0x14e2 @0x44
0x149e…14e9 at0049 = ╱ee╱)╱ // 0x14e7 @0x49
0x149e…14e9 at004a = EOL // 0x14e8 @0x4a
0x149e…14e9 }
0x14e9…14fe 9c4b 1920 CURSOR 13,23
0x14e9…14fe LineComalBcd {
0x14e9…14fe ptr = 0x9c4b // 0x14e9 @0x0
0x14e9…14fe lno = 0x1920 // 0x14eb @0x2
0x14e9…14fe at0004 = ╱a1╱ CURSOR ╱ // 0x14ed @0x4
0x14e9…14fe at0005 = ╱31╱1╱ // 0x14ee @0x5
0x14e9…14fe at0006 = ╱33╱3╱ // 0x14ef @0x6
0x14e9…14fe at0007 = ╱fe0000d004╱ // 0x14f0 @0x7
0x14e9…14fe at000c = ╱ec╱,╱ // 0x14f5 @0xc
0x14e9…14fe at000d = ╱32╱2╱ // 0x14f6 @0xd
0x14e9…14fe at000e = ╱33╱3╱ // 0x14f7 @0xe
0x14e9…14fe at000f = ╱fe0000b805╱ // 0x14f8 @0xf
0x14e9…14fe at0014 = EOL // 0x14fd @0x14
0x14e9…14fe }
0x14fe…1508 9c55 1930 INPUT PNR$
0x14fe…1508 LineComalBcd {
0x14fe…1508 ptr = 0x9c55 // 0x14fe @0x0
0x14fe…1508 lno = 0x1930 // 0x1500 @0x2
0x14fe…1508 at0004 = ╱91╱ INPUT ╱ // 0x1502 @0x4
0x14fe…1508 at0005 = ╱50╱P╱ // 0x1503 @0x5
0x14fe…1508 at0006 = ╱4e╱N╱ // 0x1504 @0x6
0x14fe…1508 at0007 = ╱52╱R╱ // 0x1505 @0x7
0x14fe…1508 at0008 = ╱ef╱$╱ // 0x1506 @0x8
0x14fe…1508 at0009 = EOL // 0x1507 @0x9
0x14fe…1508 }
0x1508…151a 9c67 1940 EXEC NRTEST(PNR$)
0x1508…151a LineComalBcd {
0x1508…151a ptr = 0x9c67 // 0x1508 @0x0
0x1508…151a lno = 0x1940 // 0x150a @0x2
0x1508…151a at0004 = ╱9d╱ EXEC ╱ // 0x150c @0x4
0x1508…151a at0005 = ╱4e╱N╱ // 0x150d @0x5
0x1508…151a at0006 = ╱52╱R╱ // 0x150e @0x6
0x1508…151a at0007 = ╱54╱T╱ // 0x150f @0x7
0x1508…151a at0008 = ╱45╱E╱ // 0x1510 @0x8
0x1508…151a at0009 = ╱53╱S╱ // 0x1511 @0x9
0x1508…151a at000a = ╱54╱T╱ // 0x1512 @0xa
0x1508…151a at000b = ╱ed╱(╱ // 0x1513 @0xb
0x1508…151a at000c = ╱50╱P╱ // 0x1514 @0xc
0x1508…151a at000d = ╱4e╱N╱ // 0x1515 @0xd
0x1508…151a at000e = ╱52╱R╱ // 0x1516 @0xe
0x1508…151a at000f = ╱ef╱$╱ // 0x1517 @0xf
0x1508…151a at0010 = ╱ee╱)╱ // 0x1518 @0x10
0x1508…151a at0011 = EOL // 0x1519 @0x11
0x1508…151a }
0x151a…155a 9ca7 1950 UNTIL ((L>3 AND L<7) OR (P=-1 AND CÆND=1)) AND TEST2=0
0x151a…155a LineComalBcd {
0x151a…155a ptr = 0x9ca7 // 0x151a @0x0
0x151a…155a lno = 0x1950 // 0x151c @0x2
0x151a…155a at0004 = ╱98╱ UNTIL ╱ // 0x151e @0x4
0x151a…155a at0005 = ╱ed╱(╱ // 0x151f @0x5
0x151a…155a at0006 = ╱ed╱(╱ // 0x1520 @0x6
0x151a…155a at0007 = ╱4c╱L╱ // 0x1521 @0x7
0x151a…155a at0008 = ╱de╱>╱ // 0x1522 @0x8
0x151a…155a at0009 = ╱33╱3╱ // 0x1523 @0x9
0x151a…155a at000a = ╱fe0000c002╱ // 0x1524 @0xa
0x151a…155a at000f = ╱da╱ AND ╱ // 0x1529 @0xf
0x151a…155a at0010 = ╱4c╱L╱ // 0x152a @0x10
0x151a…155a at0011 = ╱dd╱<╱ // 0x152b @0x11
0x151a…155a at0012 = ╱37╱7╱ // 0x152c @0x12
0x151a…155a at0013 = ╱fe0000e003╱ // 0x152d @0x13
0x151a…155a at0018 = ╱ee╱)╱ // 0x1532 @0x18
0x151a…155a at0019 = ╱db╱ OR ╱ // 0x1533 @0x19
0x151a…155a at001a = ╱ed╱(╱ // 0x1534 @0x1a
0x151a…155a at001b = ╱50╱P╱ // 0x1535 @0x1b
0x151a…155a at001c = ╱dc╱=╱ // 0x1536 @0x1c
0x151a…155a at001d = ╱e9╱-╱ // 0x1537 @0x1d
0x151a…155a at001e = ╱31╱1╱ // 0x1538 @0x1e
0x151a…155a at001f = ╱fe00008001╱ // 0x1539 @0x1f
0x151a…155a at0024 = ╱da╱ AND ╱ // 0x153e @0x24
0x151a…155a at0025 = ╱43╱C╱ // 0x153f @0x25
0x151a…155a at0026 = ╱5b╱Æ╱ // 0x1540 @0x26
0x151a…155a at0027 = ╱4e╱N╱ // 0x1541 @0x27
0x151a…155a at0028 = ╱44╱D╱ // 0x1542 @0x28
0x151a…155a at0029 = ╱dc╱=╱ // 0x1543 @0x29
0x151a…155a at002a = ╱31╱1╱ // 0x1544 @0x2a
0x151a…155a at002b = ╱fe00008001╱ // 0x1545 @0x2b
0x151a…155a at0030 = ╱ee╱)╱ // 0x154a @0x30
0x151a…155a at0031 = ╱ee╱)╱ // 0x154b @0x31
0x151a…155a at0032 = ╱da╱ AND ╱ // 0x154c @0x32
0x151a…155a at0033 = ╱54╱T╱ // 0x154d @0x33
0x151a…155a at0034 = ╱45╱E╱ // 0x154e @0x34
0x151a…155a at0035 = ╱53╱S╱ // 0x154f @0x35
0x151a…155a at0036 = ╱54╱T╱ // 0x1550 @0x36
0x151a…155a at0037 = ╱32╱2╱ // 0x1551 @0x37
0x151a…155a at0038 = ╱dc╱=╱ // 0x1552 @0x38
0x151a…155a at0039 = ╱30╱0╱ // 0x1553 @0x39
0x151a…155a at003a = ╱fe00000000╱ // 0x1554 @0x3a
0x151a…155a at003f = EOL // 0x1559 @0x3f
0x151a…155a }
0x155a…1575 9cc2 1960 IF P<>-1 THEN DEBPOSTNR=P
0x155a…1575 LineComalBcd {
0x155a…1575 ptr = 0x9cc2 // 0x155a @0x0
0x155a…1575 lno = 0x1960 // 0x155c @0x2
0x155a…1575 at0004 = ╱82╱ IF ╱ // 0x155e @0x4
0x155a…1575 at0005 = ╱50╱P╱ // 0x155f @0x5
0x155a…1575 at0006 = ╱e1╱<>╱ // 0x1560 @0x6
0x155a…1575 at0007 = ╱e9╱-╱ // 0x1561 @0x7
0x155a…1575 at0008 = ╱31╱1╱ // 0x1562 @0x8
0x155a…1575 at0009 = ╱fe00008001╱ // 0x1563 @0x9
0x155a…1575 at000e = ╱b6╱ THEN ╱ // 0x1568 @0xe
0x155a…1575 at000f = ╱44╱D╱ // 0x1569 @0xf
0x155a…1575 at0010 = ╱45╱E╱ // 0x156a @0x10
0x155a…1575 at0011 = ╱42╱B╱ // 0x156b @0x11
0x155a…1575 at0012 = ╱50╱P╱ // 0x156c @0x12
0x155a…1575 at0013 = ╱4f╱O╱ // 0x156d @0x13
0x155a…1575 at0014 = ╱53╱S╱ // 0x156e @0x14
0x155a…1575 at0015 = ╱54╱T╱ // 0x156f @0x15
0x155a…1575 at0016 = ╱4e╱N╱ // 0x1570 @0x16
0x155a…1575 at0017 = ╱52╱R╱ // 0x1571 @0x17
0x155a…1575 at0018 = ╱dc╱=╱ // 0x1572 @0x18
0x155a…1575 at0019 = ╱50╱P╱ // 0x1573 @0x19
0x155a…1575 at001a = EOL // 0x1574 @0x1a
0x155a…1575 }
0x1575…157b 9cc8 1970 ENDIF
0x1575…157b LineComalBcd {
0x1575…157b ptr = 0x9cc8 // 0x1575 @0x0
0x1575…157b lno = 0x1970 // 0x1577 @0x2
0x1575…157b at0004 = ╱9b╱ ENDIF ╱ // 0x1579 @0x4
0x1575…157b at0005 = EOL // 0x157a @0x5
0x1575…157b }
0x157b…158f 9cdc 1980 CURSOR 16,6
0x157b…158f LineComalBcd {
0x157b…158f ptr = 0x9cdc // 0x157b @0x0
0x157b…158f lno = 0x1980 // 0x157d @0x2
0x157b…158f at0004 = ╱a1╱ CURSOR ╱ // 0x157f @0x4
0x157b…158f at0005 = ╱31╱1╱ // 0x1580 @0x5
0x157b…158f at0006 = ╱36╱6╱ // 0x1581 @0x6
0x157b…158f at0007 = ╱fe00008005╱ // 0x1582 @0x7
0x157b…158f at000c = ╱ec╱,╱ // 0x1587 @0xc
0x157b…158f at000d = ╱36╱6╱ // 0x1588 @0xd
0x157b…158f at000e = ╱fe0000c003╱ // 0x1589 @0xe
0x157b…158f at0013 = EOL // 0x158e @0x13
0x157b…158f }
0x158f…15aa 9cf7 1990 PRINT BLANK$(1:6)
0x158f…15aa LineComalBcd {
0x158f…15aa ptr = 0x9cf7 // 0x158f @0x0
0x158f…15aa lno = 0x1990 // 0x1591 @0x2
0x158f…15aa at0004 = ╱92╱ PRINT ╱ // 0x1593 @0x4
0x158f…15aa at0005 = ╱42╱B╱ // 0x1594 @0x5
0x158f…15aa at0006 = ╱4c╱L╱ // 0x1595 @0x6
0x158f…15aa at0007 = ╱41╱A╱ // 0x1596 @0x7
0x158f…15aa at0008 = ╱4e╱N╱ // 0x1597 @0x8
0x158f…15aa at0009 = ╱4b╱K╱ // 0x1598 @0x9
0x158f…15aa at000a = ╱ef╱$╱ // 0x1599 @0xa
0x158f…15aa at000b = ╱ed╱(╱ // 0x159a @0xb
0x158f…15aa at000c = ╱31╱1╱ // 0x159b @0xc
0x158f…15aa at000d = ╱fe00008001╱ // 0x159c @0xd
0x158f…15aa at0012 = ╱f0╱:╱ // 0x15a1 @0x12
0x158f…15aa at0013 = ╱36╱6╱ // 0x15a2 @0x13
0x158f…15aa at0014 = ╱fe0000c003╱ // 0x15a3 @0x14
0x158f…15aa at0019 = ╱ee╱)╱ // 0x15a8 @0x19
0x158f…15aa at001a = EOL // 0x15a9 @0x1a
0x158f…15aa }
0x15aa…15be 9d0b 2000 CURSOR 16,6
0x15aa…15be LineComalBcd {
0x15aa…15be ptr = 0x9d0b // 0x15aa @0x0
0x15aa…15be lno = 0x2000 // 0x15ac @0x2
0x15aa…15be at0004 = ╱a1╱ CURSOR ╱ // 0x15ae @0x4
0x15aa…15be at0005 = ╱31╱1╱ // 0x15af @0x5
0x15aa…15be at0006 = ╱36╱6╱ // 0x15b0 @0x6
0x15aa…15be at0007 = ╱fe00008005╱ // 0x15b1 @0x7
0x15aa…15be at000c = ╱ec╱,╱ // 0x15b6 @0xc
0x15aa…15be at000d = ╱36╱6╱ // 0x15b7 @0xd
0x15aa…15be at000e = ╱fe0000c003╱ // 0x15b8 @0xe
0x15aa…15be at0013 = EOL // 0x15bd @0x13
0x15aa…15be }
0x15be…15cd 9d1a 2010 PRINT DEBPOSTNR
0x15be…15cd LineComalBcd {
0x15be…15cd ptr = 0x9d1a // 0x15be @0x0
0x15be…15cd lno = 0x2010 // 0x15c0 @0x2
0x15be…15cd at0004 = ╱92╱ PRINT ╱ // 0x15c2 @0x4
0x15be…15cd at0005 = ╱44╱D╱ // 0x15c3 @0x5
0x15be…15cd at0006 = ╱45╱E╱ // 0x15c4 @0x6
0x15be…15cd at0007 = ╱42╱B╱ // 0x15c5 @0x7
0x15be…15cd at0008 = ╱50╱P╱ // 0x15c6 @0x8
0x15be…15cd at0009 = ╱4f╱O╱ // 0x15c7 @0x9
0x15be…15cd at000a = ╱53╱S╱ // 0x15c8 @0xa
0x15be…15cd at000b = ╱54╱T╱ // 0x15c9 @0xb
0x15be…15cd at000c = ╱4e╱N╱ // 0x15ca @0xc
0x15be…15cd at000d = ╱52╱R╱ // 0x15cb @0xd
0x15be…15cd at000e = EOL // 0x15cc @0xe
0x15be…15cd }
0x15cd…15da 9d27 2020 WHEN 5
0x15cd…15da LineComalBcd {
0x15cd…15da ptr = 0x9d27 // 0x15cd @0x0
0x15cd…15da lno = 0x2020 // 0x15cf @0x2
0x15cd…15da at0004 = ╱a301╱ WHEN ╱ // 0x15d1 @0x4
0x15cd…15da at0006 = ╱35╱5╱ // 0x15d3 @0x6
0x15cd…15da at0007 = ╱fe0000a003╱ // 0x15d4 @0x7
0x15cd…15da at000c = EOL // 0x15d9 @0xc
0x15cd…15da }
0x15da…15ec 9d39 2030 IF CÆND<>1 THEN
0x15da…15ec LineComalBcd {
0x15da…15ec ptr = 0x9d39 // 0x15da @0x0
0x15da…15ec lno = 0x2030 // 0x15dc @0x2
0x15da…15ec at0004 = ╱9c╱ IF ╱ // 0x15de @0x4
0x15da…15ec at0005 = ╱43╱C╱ // 0x15df @0x5
0x15da…15ec at0006 = ╱5b╱Æ╱ // 0x15e0 @0x6
0x15da…15ec at0007 = ╱4e╱N╱ // 0x15e1 @0x7
0x15da…15ec at0008 = ╱44╱D╱ // 0x15e2 @0x8
0x15da…15ec at0009 = ╱e1╱<>╱ // 0x15e3 @0x9
0x15da…15ec at000a = ╱31╱1╱ // 0x15e4 @0xa
0x15da…15ec at000b = ╱fe00008001╱ // 0x15e5 @0xb
0x15da…15ec at0010 = ╱b6╱ THEN ╱ // 0x15ea @0x10
0x15da…15ec at0011 = EOL // 0x15eb @0x11
0x15da…15ec }
0x15ec…15ff 9d4c 2040 CURSOR 2,7
0x15ec…15ff LineComalBcd {
0x15ec…15ff ptr = 0x9d4c // 0x15ec @0x0
0x15ec…15ff lno = 0x2040 // 0x15ee @0x2
0x15ec…15ff at0004 = ╱a1╱ CURSOR ╱ // 0x15f0 @0x4
0x15ec…15ff at0005 = ╱32╱2╱ // 0x15f1 @0x5
0x15ec…15ff at0006 = ╱fe00008002╱ // 0x15f2 @0x6
0x15ec…15ff at000b = ╱ec╱,╱ // 0x15f7 @0xb
0x15ec…15ff at000c = ╱37╱7╱ // 0x15f8 @0xc
0x15ec…15ff at000d = ╱fe0000e003╱ // 0x15f9 @0xd
0x15ec…15ff at0012 = EOL // 0x15fe @0x12
0x15ec…15ff }
0x15ff…1614 9d61 2050 PRINT "5:By :"
0x15ff…1614 LineComalBcd {
0x15ff…1614 ptr = 0x9d61 // 0x15ff @0x0
0x15ff…1614 lno = 0x2050 // 0x1601 @0x2
0x15ff…1614 at0004 = ╱92╱ PRINT ╱ // 0x1603 @0x4
0x15ff…1614 at0005 = ╱22╱"╱ // 0x1604 @0x5
0x15ff…1614 at0006 = ╱35╱5╱ // 0x1605 @0x6
0x15ff…1614 at0007 = ╱3a╱:╱ // 0x1606 @0x7
0x15ff…1614 at0008 = ╱42╱B╱ // 0x1607 @0x8
0x15ff…1614 at0009 = ╱79╱y╱ // 0x1608 @0x9
0x15ff…1614 at000a = ╱20╱…╱ // 0x1609 @0xa
0x15ff…1614 at000b = ╱20╱…╱ // 0x160a @0xb
0x15ff…1614 at000c = ╱20╱…╱ // 0x160b @0xc
0x15ff…1614 at000d = ╱20╱…╱ // 0x160c @0xd
0x15ff…1614 at000e = ╱20╱…╱ // 0x160d @0xe
0x15ff…1614 at000f = ╱20╱…╱ // 0x160e @0xf
0x15ff…1614 at0010 = ╱20╱…╱ // 0x160f @0x10
0x15ff…1614 at0011 = ╱20╱…╱ // 0x1610 @0x11
0x15ff…1614 at0012 = ╱3a╱:╱ // 0x1611 @0x12
0x15ff…1614 at0013 = ╱22╱"╱ // 0x1612 @0x13
0x15ff…1614 at0014 = EOL // 0x1613 @0x14
0x15ff…1614 }
0x1614…1625 9d72 2060 DSTYR=6
0x1614…1625 LineComalBcd {
0x1614…1625 ptr = 0x9d72 // 0x1614 @0x0
0x1614…1625 lno = 0x2060 // 0x1616 @0x2
0x1614…1625 at0004 = ╱44╱D╱ // 0x1618 @0x4
0x1614…1625 at0005 = ╱53╱S╱ // 0x1619 @0x5
0x1614…1625 at0006 = ╱54╱T╱ // 0x161a @0x6
0x1614…1625 at0007 = ╱59╱Y╱ // 0x161b @0x7
0x1614…1625 at0008 = ╱52╱R╱ // 0x161c @0x8
0x1614…1625 at0009 = ╱dc╱=╱ // 0x161d @0x9
0x1614…1625 at000a = ╱36╱6╱ // 0x161e @0xa
0x1614…1625 at000b = ╱fe0000c003╱ // 0x161f @0xb
0x1614…1625 at0010 = EOL // 0x1624 @0x10
0x1614…1625 }
0x1625…162b 9d78 2070 ENDIF
0x1625…162b LineComalBcd {
0x1625…162b ptr = 0x9d78 // 0x1625 @0x0
0x1625…162b lno = 0x2070 // 0x1627 @0x2
0x1625…162b at0004 = ╱9b╱ ENDIF ╱ // 0x1629 @0x4
0x1625…162b at0005 = EOL // 0x162a @0x5
0x1625…162b }
0x162b…163d 9d8a 2080 IF CÆND<>2 THEN
0x162b…163d LineComalBcd {
0x162b…163d ptr = 0x9d8a // 0x162b @0x0
0x162b…163d lno = 0x2080 // 0x162d @0x2
0x162b…163d at0004 = ╱9c╱ IF ╱ // 0x162f @0x4
0x162b…163d at0005 = ╱43╱C╱ // 0x1630 @0x5
0x162b…163d at0006 = ╱5b╱Æ╱ // 0x1631 @0x6
0x162b…163d at0007 = ╱4e╱N╱ // 0x1632 @0x7
0x162b…163d at0008 = ╱44╱D╱ // 0x1633 @0x8
0x162b…163d at0009 = ╱e1╱<>╱ // 0x1634 @0x9
0x162b…163d at000a = ╱32╱2╱ // 0x1635 @0xa
0x162b…163d at000b = ╱fe00008002╱ // 0x1636 @0xb
0x162b…163d at0010 = ╱b6╱ THEN ╱ // 0x163b @0x10
0x162b…163d at0011 = EOL // 0x163c @0x11
0x162b…163d }
0x163d…1651 9d9e 2090 CURSOR 3,23
0x163d…1651 LineComalBcd {
0x163d…1651 ptr = 0x9d9e // 0x163d @0x0
0x163d…1651 lno = 0x2090 // 0x163f @0x2
0x163d…1651 at0004 = ╱a1╱ CURSOR ╱ // 0x1641 @0x4
0x163d…1651 at0005 = ╱33╱3╱ // 0x1642 @0x5
0x163d…1651 at0006 = ╱fe0000c002╱ // 0x1643 @0x6
0x163d…1651 at000b = ╱ec╱,╱ // 0x1648 @0xb
0x163d…1651 at000c = ╱32╱2╱ // 0x1649 @0xc
0x163d…1651 at000d = ╱33╱3╱ // 0x164a @0xd
0x163d…1651 at000e = ╱fe0000b805╱ // 0x164b @0xe
0x163d…1651 at0013 = EOL // 0x1650 @0x13
0x163d…1651 }
0x1651…1699 9de6 2100 PRINT "By";BLANK$(1:30);"(max 20 tegn)";BLANK$(1:31)
0x1651…1699 LineComalBcd {
0x1651…1699 ptr = 0x9de6 // 0x1651 @0x0
0x1651…1699 lno = 0x2100 // 0x1653 @0x2
0x1651…1699 at0004 = ╱92╱ PRINT ╱ // 0x1655 @0x4
0x1651…1699 at0005 = ╱22╱"╱ // 0x1656 @0x5
0x1651…1699 at0006 = ╱42╱B╱ // 0x1657 @0x6
0x1651…1699 at0007 = ╱79╱y╱ // 0x1658 @0x7
0x1651…1699 at0008 = ╱22╱"╱ // 0x1659 @0x8
0x1651…1699 at0009 = ╱eb╱;╱ // 0x165a @0x9
0x1651…1699 at000a = ╱42╱B╱ // 0x165b @0xa
0x1651…1699 at000b = ╱4c╱L╱ // 0x165c @0xb
0x1651…1699 at000c = ╱41╱A╱ // 0x165d @0xc
0x1651…1699 at000d = ╱4e╱N╱ // 0x165e @0xd
0x1651…1699 at000e = ╱4b╱K╱ // 0x165f @0xe
0x1651…1699 at000f = ╱ef╱$╱ // 0x1660 @0xf
0x1651…1699 at0010 = ╱ed╱(╱ // 0x1661 @0x10
0x1651…1699 at0011 = ╱31╱1╱ // 0x1662 @0x11
0x1651…1699 at0012 = ╱fe00008001╱ // 0x1663 @0x12
0x1651…1699 at0017 = ╱f0╱:╱ // 0x1668 @0x17
0x1651…1699 at0018 = ╱33╱3╱ // 0x1669 @0x18
0x1651…1699 at0019 = ╱30╱0╱ // 0x166a @0x19
0x1651…1699 at001a = ╱fe0000f005╱ // 0x166b @0x1a
0x1651…1699 at001f = ╱ee╱)╱ // 0x1670 @0x1f
0x1651…1699 at0020 = ╱eb╱;╱ // 0x1671 @0x20
0x1651…1699 at0021 = ╱22╱"╱ // 0x1672 @0x21
0x1651…1699 at0022 = ╱28╱(╱ // 0x1673 @0x22
0x1651…1699 at0023 = ╱6d╱m╱ // 0x1674 @0x23
0x1651…1699 at0024 = ╱61╱a╱ // 0x1675 @0x24
0x1651…1699 at0025 = ╱78╱x╱ // 0x1676 @0x25
0x1651…1699 at0026 = ╱20╱…╱ // 0x1677 @0x26
0x1651…1699 at0027 = ╱32╱2╱ // 0x1678 @0x27
0x1651…1699 at0028 = ╱30╱0╱ // 0x1679 @0x28
0x1651…1699 at0029 = ╱20╱…╱ // 0x167a @0x29
0x1651…1699 at002a = ╱74╱t╱ // 0x167b @0x2a
0x1651…1699 at002b = ╱65╱e╱ // 0x167c @0x2b
0x1651…1699 at002c = ╱67╱g╱ // 0x167d @0x2c
0x1651…1699 at002d = ╱6e╱n╱ // 0x167e @0x2d
0x1651…1699 at002e = ╱29╱)╱ // 0x167f @0x2e
0x1651…1699 at002f = ╱22╱"╱ // 0x1680 @0x2f
0x1651…1699 at0030 = ╱eb╱;╱ // 0x1681 @0x30
0x1651…1699 at0031 = ╱42╱B╱ // 0x1682 @0x31
0x1651…1699 at0032 = ╱4c╱L╱ // 0x1683 @0x32
0x1651…1699 at0033 = ╱41╱A╱ // 0x1684 @0x33
0x1651…1699 at0034 = ╱4e╱N╱ // 0x1685 @0x34
0x1651…1699 at0035 = ╱4b╱K╱ // 0x1686 @0x35
0x1651…1699 at0036 = ╱ef╱$╱ // 0x1687 @0x36
0x1651…1699 at0037 = ╱ed╱(╱ // 0x1688 @0x37
0x1651…1699 at0038 = ╱31╱1╱ // 0x1689 @0x38
0x1651…1699 at0039 = ╱fe00008001╱ // 0x168a @0x39
0x1651…1699 at003e = ╱f0╱:╱ // 0x168f @0x3e
0x1651…1699 at003f = ╱33╱3╱ // 0x1690 @0x3f
0x1651…1699 at0040 = ╱31╱1╱ // 0x1691 @0x40
0x1651…1699 at0041 = ╱fe0000f805╱ // 0x1692 @0x41
0x1651…1699 at0046 = ╱ee╱)╱ // 0x1697 @0x46
0x1651…1699 at0047 = EOL // 0x1698 @0x47
0x1651…1699 }
0x1699…16ae 9dfb 2110 CURSOR 13,23
0x1699…16ae LineComalBcd {
0x1699…16ae ptr = 0x9dfb // 0x1699 @0x0
0x1699…16ae lno = 0x2110 // 0x169b @0x2
0x1699…16ae at0004 = ╱a1╱ CURSOR ╱ // 0x169d @0x4
0x1699…16ae at0005 = ╱31╱1╱ // 0x169e @0x5
0x1699…16ae at0006 = ╱33╱3╱ // 0x169f @0x6
0x1699…16ae at0007 = ╱fe0000d004╱ // 0x16a0 @0x7
0x1699…16ae at000c = ╱ec╱,╱ // 0x16a5 @0xc
0x1699…16ae at000d = ╱32╱2╱ // 0x16a6 @0xd
0x1699…16ae at000e = ╱33╱3╱ // 0x16a7 @0xe
0x1699…16ae at000f = ╱fe0000b805╱ // 0x16a8 @0xf
0x1699…16ae at0014 = EOL // 0x16ad @0x14
0x1699…16ae }
0x16ae…16ba 9e07 2120 INPUT DEBBY$
0x16ae…16ba LineComalBcd {
0x16ae…16ba ptr = 0x9e07 // 0x16ae @0x0
0x16ae…16ba lno = 0x2120 // 0x16b0 @0x2
0x16ae…16ba at0004 = ╱91╱ INPUT ╱ // 0x16b2 @0x4
0x16ae…16ba at0005 = ╱44╱D╱ // 0x16b3 @0x5
0x16ae…16ba at0006 = ╱45╱E╱ // 0x16b4 @0x6
0x16ae…16ba at0007 = ╱42╱B╱ // 0x16b5 @0x7
0x16ae…16ba at0008 = ╱42╱B╱ // 0x16b6 @0x8
0x16ae…16ba at0009 = ╱59╱Y╱ // 0x16b7 @0x9
0x16ae…16ba at000a = ╱ef╱$╱ // 0x16b8 @0xa
0x16ae…16ba at000b = EOL // 0x16b9 @0xb
0x16ae…16ba }
0x16ba…16c0 9e0d 2130 ENDIF
0x16ba…16c0 LineComalBcd {
0x16ba…16c0 ptr = 0x9e0d // 0x16ba @0x0
0x16ba…16c0 lno = 0x2130 // 0x16bc @0x2
0x16ba…16c0 at0004 = ╱9b╱ ENDIF ╱ // 0x16be @0x4
0x16ba…16c0 at0005 = EOL // 0x16bf @0x5
0x16ba…16c0 }
0x16c0…16d4 9e21 2140 CURSOR 16,7
0x16c0…16d4 LineComalBcd {
0x16c0…16d4 ptr = 0x9e21 // 0x16c0 @0x0
0x16c0…16d4 lno = 0x2140 // 0x16c2 @0x2
0x16c0…16d4 at0004 = ╱a1╱ CURSOR ╱ // 0x16c4 @0x4
0x16c0…16d4 at0005 = ╱31╱1╱ // 0x16c5 @0x5
0x16c0…16d4 at0006 = ╱36╱6╱ // 0x16c6 @0x6
0x16c0…16d4 at0007 = ╱fe00008005╱ // 0x16c7 @0x7
0x16c0…16d4 at000c = ╱ec╱,╱ // 0x16cc @0xc
0x16c0…16d4 at000d = ╱37╱7╱ // 0x16cd @0xd
0x16c0…16d4 at000e = ╱fe0000e003╱ // 0x16ce @0xe
0x16c0…16d4 at0013 = EOL // 0x16d3 @0x13
0x16c0…16d4 }
0x16d4…16f0 9e3d 2150 PRINT BLANK$(1:20)
0x16d4…16f0 LineComalBcd {
0x16d4…16f0 ptr = 0x9e3d // 0x16d4 @0x0
0x16d4…16f0 lno = 0x2150 // 0x16d6 @0x2
0x16d4…16f0 at0004 = ╱92╱ PRINT ╱ // 0x16d8 @0x4
0x16d4…16f0 at0005 = ╱42╱B╱ // 0x16d9 @0x5
0x16d4…16f0 at0006 = ╱4c╱L╱ // 0x16da @0x6
0x16d4…16f0 at0007 = ╱41╱A╱ // 0x16db @0x7
0x16d4…16f0 at0008 = ╱4e╱N╱ // 0x16dc @0x8
0x16d4…16f0 at0009 = ╱4b╱K╱ // 0x16dd @0x9
0x16d4…16f0 at000a = ╱ef╱$╱ // 0x16de @0xa
0x16d4…16f0 at000b = ╱ed╱(╱ // 0x16df @0xb
0x16d4…16f0 at000c = ╱31╱1╱ // 0x16e0 @0xc
0x16d4…16f0 at000d = ╱fe00008001╱ // 0x16e1 @0xd
0x16d4…16f0 at0012 = ╱f0╱:╱ // 0x16e6 @0x12
0x16d4…16f0 at0013 = ╱32╱2╱ // 0x16e7 @0x13
0x16d4…16f0 at0014 = ╱30╱0╱ // 0x16e8 @0x14
0x16d4…16f0 at0015 = ╱fe0000a005╱ // 0x16e9 @0x15
0x16d4…16f0 at001a = ╱ee╱)╱ // 0x16ee @0x1a
0x16d4…16f0 at001b = EOL // 0x16ef @0x1b
0x16d4…16f0 }
0x16f0…1704 9e51 2160 CURSOR 16,7
0x16f0…1704 LineComalBcd {
0x16f0…1704 ptr = 0x9e51 // 0x16f0 @0x0
0x16f0…1704 lno = 0x2160 // 0x16f2 @0x2
0x16f0…1704 at0004 = ╱a1╱ CURSOR ╱ // 0x16f4 @0x4
0x16f0…1704 at0005 = ╱31╱1╱ // 0x16f5 @0x5
0x16f0…1704 at0006 = ╱36╱6╱ // 0x16f6 @0x6
0x16f0…1704 at0007 = ╱fe00008005╱ // 0x16f7 @0x7
0x16f0…1704 at000c = ╱ec╱,╱ // 0x16fc @0xc
0x16f0…1704 at000d = ╱37╱7╱ // 0x16fd @0xd
0x16f0…1704 at000e = ╱fe0000e003╱ // 0x16fe @0xe
0x16f0…1704 at0013 = EOL // 0x1703 @0x13
0x16f0…1704 }
0x1704…1710 9e5d 2170 PRINT DEBBY$
0x1704…1710 LineComalBcd {
0x1704…1710 ptr = 0x9e5d // 0x1704 @0x0
0x1704…1710 lno = 0x2170 // 0x1706 @0x2
0x1704…1710 at0004 = ╱92╱ PRINT ╱ // 0x1708 @0x4
0x1704…1710 at0005 = ╱44╱D╱ // 0x1709 @0x5
0x1704…1710 at0006 = ╱45╱E╱ // 0x170a @0x6
0x1704…1710 at0007 = ╱42╱B╱ // 0x170b @0x7
0x1704…1710 at0008 = ╱42╱B╱ // 0x170c @0x8
0x1704…1710 at0009 = ╱59╱Y╱ // 0x170d @0x9
0x1704…1710 at000a = ╱ef╱$╱ // 0x170e @0xa
0x1704…1710 at000b = EOL // 0x170f @0xb
0x1704…1710 }
0x1710…171d 9e6a 2180 WHEN 6
0x1710…171d LineComalBcd {
0x1710…171d ptr = 0x9e6a // 0x1710 @0x0
0x1710…171d lno = 0x2180 // 0x1712 @0x2
0x1710…171d at0004 = ╱a301╱ WHEN ╱ // 0x1714 @0x4
0x1710…171d at0006 = ╱36╱6╱ // 0x1716 @0x6
0x1710…171d at0007 = ╱fe0000c003╱ // 0x1717 @0x7
0x1710…171d at000c = EOL // 0x171c @0xc
0x1710…171d }
0x171d…172f 9e7c 2190 IF CÆND<>1 THEN
0x171d…172f LineComalBcd {
0x171d…172f ptr = 0x9e7c // 0x171d @0x0
0x171d…172f lno = 0x2190 // 0x171f @0x2
0x171d…172f at0004 = ╱9c╱ IF ╱ // 0x1721 @0x4
0x171d…172f at0005 = ╱43╱C╱ // 0x1722 @0x5
0x171d…172f at0006 = ╱5b╱Æ╱ // 0x1723 @0x6
0x171d…172f at0007 = ╱4e╱N╱ // 0x1724 @0x7
0x171d…172f at0008 = ╱44╱D╱ // 0x1725 @0x8
0x171d…172f at0009 = ╱e1╱<>╱ // 0x1726 @0x9
0x171d…172f at000a = ╱31╱1╱ // 0x1727 @0xa
0x171d…172f at000b = ╱fe00008001╱ // 0x1728 @0xb
0x171d…172f at0010 = ╱b6╱ THEN ╱ // 0x172d @0x10
0x171d…172f at0011 = EOL // 0x172e @0x11
0x171d…172f }
0x172f…1742 9e8f 2200 CURSOR 2,8
0x172f…1742 LineComalBcd {
0x172f…1742 ptr = 0x9e8f // 0x172f @0x0
0x172f…1742 lno = 0x2200 // 0x1731 @0x2
0x172f…1742 at0004 = ╱a1╱ CURSOR ╱ // 0x1733 @0x4
0x172f…1742 at0005 = ╱32╱2╱ // 0x1734 @0x5
0x172f…1742 at0006 = ╱fe00008002╱ // 0x1735 @0x6
0x172f…1742 at000b = ╱ec╱,╱ // 0x173a @0xb
0x172f…1742 at000c = ╱38╱8╱ // 0x173b @0xc
0x172f…1742 at000d = ╱fe00008004╱ // 0x173c @0xd
0x172f…1742 at0012 = EOL // 0x1741 @0x12
0x172f…1742 }
0x1742…1761 9eae 2210 PRINT "6:Landekode : Land:"
0x1742…1761 LineComalBcd {
0x1742…1761 ptr = 0x9eae // 0x1742 @0x0
0x1742…1761 lno = 0x2210 // 0x1744 @0x2
0x1742…1761 at0004 = ╱92╱ PRINT ╱ // 0x1746 @0x4
0x1742…1761 at0005 = ╱22╱"╱ // 0x1747 @0x5
0x1742…1761 at0006 = ╱36╱6╱ // 0x1748 @0x6
0x1742…1761 at0007 = ╱3a╱:╱ // 0x1749 @0x7
0x1742…1761 at0008 = ╱4c╱L╱ // 0x174a @0x8
0x1742…1761 at0009 = ╱61╱a╱ // 0x174b @0x9
0x1742…1761 at000a = ╱6e╱n╱ // 0x174c @0xa
0x1742…1761 at000b = ╱64╱d╱ // 0x174d @0xb
0x1742…1761 at000c = ╱65╱e╱ // 0x174e @0xc
0x1742…1761 at000d = ╱6b╱k╱ // 0x174f @0xd
0x1742…1761 at000e = ╱6f╱o╱ // 0x1750 @0xe
0x1742…1761 at000f = ╱64╱d╱ // 0x1751 @0xf
0x1742…1761 at0010 = ╱65╱e╱ // 0x1752 @0x10
0x1742…1761 at0011 = ╱20╱…╱ // 0x1753 @0x11
0x1742…1761 at0012 = ╱3a╱:╱ // 0x1754 @0x12
0x1742…1761 at0013 = ╱20╱…╱ // 0x1755 @0x13
0x1742…1761 at0014 = ╱20╱…╱ // 0x1756 @0x14
0x1742…1761 at0015 = ╱20╱…╱ // 0x1757 @0x15
0x1742…1761 at0016 = ╱20╱…╱ // 0x1758 @0x16
0x1742…1761 at0017 = ╱20╱…╱ // 0x1759 @0x17
0x1742…1761 at0018 = ╱4c╱L╱ // 0x175a @0x18
0x1742…1761 at0019 = ╱61╱a╱ // 0x175b @0x19
0x1742…1761 at001a = ╱6e╱n╱ // 0x175c @0x1a
0x1742…1761 at001b = ╱64╱d╱ // 0x175d @0x1b
0x1742…1761 at001c = ╱3a╱:╱ // 0x175e @0x1c
0x1742…1761 at001d = ╱22╱"╱ // 0x175f @0x1d
0x1742…1761 at001e = EOL // 0x1760 @0x1e
0x1742…1761 }
0x1761…1772 9ebf 2220 DSTYR=7
0x1761…1772 LineComalBcd {
0x1761…1772 ptr = 0x9ebf // 0x1761 @0x0
0x1761…1772 lno = 0x2220 // 0x1763 @0x2
0x1761…1772 at0004 = ╱44╱D╱ // 0x1765 @0x4
0x1761…1772 at0005 = ╱53╱S╱ // 0x1766 @0x5
0x1761…1772 at0006 = ╱54╱T╱ // 0x1767 @0x6
0x1761…1772 at0007 = ╱59╱Y╱ // 0x1768 @0x7
0x1761…1772 at0008 = ╱52╱R╱ // 0x1769 @0x8
0x1761…1772 at0009 = ╱dc╱=╱ // 0x176a @0x9
0x1761…1772 at000a = ╱37╱7╱ // 0x176b @0xa
0x1761…1772 at000b = ╱fe0000e003╱ // 0x176c @0xb
0x1761…1772 at0010 = EOL // 0x1771 @0x10
0x1761…1772 }
0x1772…1778 9ec5 2230 ENDIF
0x1772…1778 LineComalBcd {
0x1772…1778 ptr = 0x9ec5 // 0x1772 @0x0
0x1772…1778 lno = 0x2230 // 0x1774 @0x2
0x1772…1778 at0004 = ╱9b╱ ENDIF ╱ // 0x1776 @0x4
0x1772…1778 at0005 = EOL // 0x1777 @0x5
0x1772…1778 }
0x1778…178a 9ed7 2240 IF CÆND<>2 THEN
0x1778…178a LineComalBcd {
0x1778…178a ptr = 0x9ed7 // 0x1778 @0x0
0x1778…178a lno = 0x2240 // 0x177a @0x2
0x1778…178a at0004 = ╱9c╱ IF ╱ // 0x177c @0x4
0x1778…178a at0005 = ╱43╱C╱ // 0x177d @0x5
0x1778…178a at0006 = ╱5b╱Æ╱ // 0x177e @0x6
0x1778…178a at0007 = ╱4e╱N╱ // 0x177f @0x7
0x1778…178a at0008 = ╱44╱D╱ // 0x1780 @0x8
0x1778…178a at0009 = ╱e1╱<>╱ // 0x1781 @0x9
0x1778…178a at000a = ╱32╱2╱ // 0x1782 @0xa
0x1778…178a at000b = ╱fe00008002╱ // 0x1783 @0xb
0x1778…178a at0010 = ╱b6╱ THEN ╱ // 0x1788 @0x10
0x1778…178a at0011 = EOL // 0x1789 @0x11
0x1778…178a }
0x178a…1790 9edd 2250 REPEAT
0x178a…1790 LineComalBcd {
0x178a…1790 ptr = 0x9edd // 0x178a @0x0
0x178a…1790 lno = 0x2250 // 0x178c @0x2
0x178a…1790 at0004 = ╱97╱ REPEAT ╱ // 0x178e @0x4
0x178a…1790 at0005 = EOL // 0x178f @0x5
0x178a…1790 }
0x1790…17a4 9ef1 2260 CURSOR 3,23
0x1790…17a4 LineComalBcd {
0x1790…17a4 ptr = 0x9ef1 // 0x1790 @0x0
0x1790…17a4 lno = 0x2260 // 0x1792 @0x2
0x1790…17a4 at0004 = ╱a1╱ CURSOR ╱ // 0x1794 @0x4
0x1790…17a4 at0005 = ╱33╱3╱ // 0x1795 @0x5
0x1790…17a4 at0006 = ╱fe0000c002╱ // 0x1796 @0x6
0x1790…17a4 at000b = ╱ec╱,╱ // 0x179b @0xb
0x1790…17a4 at000c = ╱32╱2╱ // 0x179c @0xc
0x1790…17a4 at000d = ╱33╱3╱ // 0x179d @0xd
0x1790…17a4 at000e = ╱fe0000b805╱ // 0x179e @0xe
0x1790…17a4 at0013 = EOL // 0x17a3 @0x13
0x1790…17a4 }
0x17a4…17ff 9f4c 2270 PRINT "Landekode";BLANK$(1:9);"0:for Danmark,max 2 cifre)";BLANK$(1:30)
0x17a4…17ff LineComalBcd {
0x17a4…17ff ptr = 0x9f4c // 0x17a4 @0x0
0x17a4…17ff lno = 0x2270 // 0x17a6 @0x2
0x17a4…17ff at0004 = ╱92╱ PRINT ╱ // 0x17a8 @0x4
0x17a4…17ff at0005 = ╱22╱"╱ // 0x17a9 @0x5
0x17a4…17ff at0006 = ╱4c╱L╱ // 0x17aa @0x6
0x17a4…17ff at0007 = ╱61╱a╱ // 0x17ab @0x7
0x17a4…17ff at0008 = ╱6e╱n╱ // 0x17ac @0x8
0x17a4…17ff at0009 = ╱64╱d╱ // 0x17ad @0x9
0x17a4…17ff at000a = ╱65╱e╱ // 0x17ae @0xa
0x17a4…17ff at000b = ╱6b╱k╱ // 0x17af @0xb
0x17a4…17ff at000c = ╱6f╱o╱ // 0x17b0 @0xc
0x17a4…17ff at000d = ╱64╱d╱ // 0x17b1 @0xd
0x17a4…17ff at000e = ╱65╱e╱ // 0x17b2 @0xe
0x17a4…17ff at000f = ╱22╱"╱ // 0x17b3 @0xf
0x17a4…17ff at0010 = ╱eb╱;╱ // 0x17b4 @0x10
0x17a4…17ff at0011 = ╱42╱B╱ // 0x17b5 @0x11
0x17a4…17ff at0012 = ╱4c╱L╱ // 0x17b6 @0x12
0x17a4…17ff at0013 = ╱41╱A╱ // 0x17b7 @0x13
0x17a4…17ff at0014 = ╱4e╱N╱ // 0x17b8 @0x14
0x17a4…17ff at0015 = ╱4b╱K╱ // 0x17b9 @0x15
0x17a4…17ff at0016 = ╱ef╱$╱ // 0x17ba @0x16
0x17a4…17ff at0017 = ╱ed╱(╱ // 0x17bb @0x17
0x17a4…17ff at0018 = ╱31╱1╱ // 0x17bc @0x18
0x17a4…17ff at0019 = ╱fe00008001╱ // 0x17bd @0x19
0x17a4…17ff at001e = ╱f0╱:╱ // 0x17c2 @0x1e
0x17a4…17ff at001f = ╱39╱9╱ // 0x17c3 @0x1f
0x17a4…17ff at0020 = ╱fe00009004╱ // 0x17c4 @0x20
0x17a4…17ff at0025 = ╱ee╱)╱ // 0x17c9 @0x25
0x17a4…17ff at0026 = ╱eb╱;╱ // 0x17ca @0x26
0x17a4…17ff at0027 = ╱22╱"╱ // 0x17cb @0x27
0x17a4…17ff at0028 = ╱30╱0╱ // 0x17cc @0x28
0x17a4…17ff at0029 = ╱3a╱:╱ // 0x17cd @0x29
0x17a4…17ff at002a = ╱66╱f╱ // 0x17ce @0x2a
0x17a4…17ff at002b = ╱6f╱o╱ // 0x17cf @0x2b
0x17a4…17ff at002c = ╱72╱r╱ // 0x17d0 @0x2c
0x17a4…17ff at002d = ╱20╱…╱ // 0x17d1 @0x2d
0x17a4…17ff at002e = ╱44╱D╱ // 0x17d2 @0x2e
0x17a4…17ff at002f = ╱61╱a╱ // 0x17d3 @0x2f
0x17a4…17ff at0030 = ╱6e╱n╱ // 0x17d4 @0x30
0x17a4…17ff at0031 = ╱6d╱m╱ // 0x17d5 @0x31
0x17a4…17ff at0032 = ╱61╱a╱ // 0x17d6 @0x32
0x17a4…17ff at0033 = ╱72╱r╱ // 0x17d7 @0x33
0x17a4…17ff at0034 = ╱6b╱k╱ // 0x17d8 @0x34
0x17a4…17ff at0035 = ╱2c╱,╱ // 0x17d9 @0x35
0x17a4…17ff at0036 = ╱6d╱m╱ // 0x17da @0x36
0x17a4…17ff at0037 = ╱61╱a╱ // 0x17db @0x37
0x17a4…17ff at0038 = ╱78╱x╱ // 0x17dc @0x38
0x17a4…17ff at0039 = ╱20╱…╱ // 0x17dd @0x39
0x17a4…17ff at003a = ╱32╱2╱ // 0x17de @0x3a
0x17a4…17ff at003b = ╱20╱…╱ // 0x17df @0x3b
0x17a4…17ff at003c = ╱63╱c╱ // 0x17e0 @0x3c
0x17a4…17ff at003d = ╱69╱i╱ // 0x17e1 @0x3d
0x17a4…17ff at003e = ╱66╱f╱ // 0x17e2 @0x3e
0x17a4…17ff at003f = ╱72╱r╱ // 0x17e3 @0x3f
0x17a4…17ff at0040 = ╱65╱e╱ // 0x17e4 @0x40
0x17a4…17ff at0041 = ╱29╱)╱ // 0x17e5 @0x41
0x17a4…17ff at0042 = ╱22╱"╱ // 0x17e6 @0x42
0x17a4…17ff at0043 = ╱eb╱;╱ // 0x17e7 @0x43
0x17a4…17ff at0044 = ╱42╱B╱ // 0x17e8 @0x44
0x17a4…17ff at0045 = ╱4c╱L╱ // 0x17e9 @0x45
0x17a4…17ff at0046 = ╱41╱A╱ // 0x17ea @0x46
0x17a4…17ff at0047 = ╱4e╱N╱ // 0x17eb @0x47
0x17a4…17ff at0048 = ╱4b╱K╱ // 0x17ec @0x48
0x17a4…17ff at0049 = ╱ef╱$╱ // 0x17ed @0x49
0x17a4…17ff at004a = ╱ed╱(╱ // 0x17ee @0x4a
0x17a4…17ff at004b = ╱31╱1╱ // 0x17ef @0x4b
0x17a4…17ff at004c = ╱fe00008001╱ // 0x17f0 @0x4c
0x17a4…17ff at0051 = ╱f0╱:╱ // 0x17f5 @0x51
0x17a4…17ff at0052 = ╱33╱3╱ // 0x17f6 @0x52
0x17a4…17ff at0053 = ╱30╱0╱ // 0x17f7 @0x53
0x17a4…17ff at0054 = ╱fe0000f005╱ // 0x17f8 @0x54
0x17a4…17ff at0059 = ╱ee╱)╱ // 0x17fd @0x59
0x17a4…17ff at005a = EOL // 0x17fe @0x5a
0x17a4…17ff }
0x17ff…1814 9f61 2280 CURSOR 13,23
0x17ff…1814 LineComalBcd {
0x17ff…1814 ptr = 0x9f61 // 0x17ff @0x0
0x17ff…1814 lno = 0x2280 // 0x1801 @0x2
0x17ff…1814 at0004 = ╱a1╱ CURSOR ╱ // 0x1803 @0x4
0x17ff…1814 at0005 = ╱31╱1╱ // 0x1804 @0x5
0x17ff…1814 at0006 = ╱33╱3╱ // 0x1805 @0x6
0x17ff…1814 at0007 = ╱fe0000d004╱ // 0x1806 @0x7
0x17ff…1814 at000c = ╱ec╱,╱ // 0x180b @0xc
0x17ff…1814 at000d = ╱32╱2╱ // 0x180c @0xd
0x17ff…1814 at000e = ╱33╱3╱ // 0x180d @0xe
0x17ff…1814 at000f = ╱fe0000b805╱ // 0x180e @0xf
0x17ff…1814 at0014 = EOL // 0x1813 @0x14
0x17ff…1814 }
0x1814…181d 9f6a 2290 INPUT LK$
0x1814…181d LineComalBcd {
0x1814…181d ptr = 0x9f6a // 0x1814 @0x0
0x1814…181d lno = 0x2290 // 0x1816 @0x2
0x1814…181d at0004 = ╱91╱ INPUT ╱ // 0x1818 @0x4
0x1814…181d at0005 = ╱4c╱L╱ // 0x1819 @0x5
0x1814…181d at0006 = ╱4b╱K╱ // 0x181a @0x6
0x1814…181d at0007 = ╱ef╱$╱ // 0x181b @0x7
0x1814…181d at0008 = EOL // 0x181c @0x8
0x1814…181d }
0x181d…182e 9f7b 2300 EXEC NRTEST(LK$)
0x181d…182e LineComalBcd {
0x181d…182e ptr = 0x9f7b // 0x181d @0x0
0x181d…182e lno = 0x2300 // 0x181f @0x2
0x181d…182e at0004 = ╱9d╱ EXEC ╱ // 0x1821 @0x4
0x181d…182e at0005 = ╱4e╱N╱ // 0x1822 @0x5
0x181d…182e at0006 = ╱52╱R╱ // 0x1823 @0x6
0x181d…182e at0007 = ╱54╱T╱ // 0x1824 @0x7
0x181d…182e at0008 = ╱45╱E╱ // 0x1825 @0x8
0x181d…182e at0009 = ╱53╱S╱ // 0x1826 @0x9
0x181d…182e at000a = ╱54╱T╱ // 0x1827 @0xa
0x181d…182e at000b = ╱ed╱(╱ // 0x1828 @0xb
0x181d…182e at000c = ╱4c╱L╱ // 0x1829 @0xc
0x181d…182e at000d = ╱4b╱K╱ // 0x182a @0xd
0x181d…182e at000e = ╱ef╱$╱ // 0x182b @0xe
0x181d…182e at000f = ╱ee╱)╱ // 0x182c @0xf
0x181d…182e at0010 = EOL // 0x182d @0x10
0x181d…182e }
0x182e…186e 9fbb 2310 UNTIL (P>-1 AND P<10 AND TEST2=0) OR (P=-1 AND CÆND=1)
0x182e…186e LineComalBcd {
0x182e…186e ptr = 0x9fbb // 0x182e @0x0
0x182e…186e lno = 0x2310 // 0x1830 @0x2
0x182e…186e at0004 = ╱98╱ UNTIL ╱ // 0x1832 @0x4
0x182e…186e at0005 = ╱ed╱(╱ // 0x1833 @0x5
0x182e…186e at0006 = ╱50╱P╱ // 0x1834 @0x6
0x182e…186e at0007 = ╱de╱>╱ // 0x1835 @0x7
0x182e…186e at0008 = ╱e9╱-╱ // 0x1836 @0x8
0x182e…186e at0009 = ╱31╱1╱ // 0x1837 @0x9
0x182e…186e at000a = ╱fe00008001╱ // 0x1838 @0xa
0x182e…186e at000f = ╱da╱ AND ╱ // 0x183d @0xf
0x182e…186e at0010 = ╱50╱P╱ // 0x183e @0x10
0x182e…186e at0011 = ╱dd╱<╱ // 0x183f @0x11
0x182e…186e at0012 = ╱31╱1╱ // 0x1840 @0x12
0x182e…186e at0013 = ╱30╱0╱ // 0x1841 @0x13
0x182e…186e at0014 = ╱fe0000a004╱ // 0x1842 @0x14
0x182e…186e at0019 = ╱da╱ AND ╱ // 0x1847 @0x19
0x182e…186e at001a = ╱54╱T╱ // 0x1848 @0x1a
0x182e…186e at001b = ╱45╱E╱ // 0x1849 @0x1b
0x182e…186e at001c = ╱53╱S╱ // 0x184a @0x1c
0x182e…186e at001d = ╱54╱T╱ // 0x184b @0x1d
0x182e…186e at001e = ╱32╱2╱ // 0x184c @0x1e
0x182e…186e at001f = ╱dc╱=╱ // 0x184d @0x1f
0x182e…186e at0020 = ╱30╱0╱ // 0x184e @0x20
0x182e…186e at0021 = ╱fe00000000╱ // 0x184f @0x21
0x182e…186e at0026 = ╱ee╱)╱ // 0x1854 @0x26
0x182e…186e at0027 = ╱db╱ OR ╱ // 0x1855 @0x27
0x182e…186e at0028 = ╱ed╱(╱ // 0x1856 @0x28
0x182e…186e at0029 = ╱50╱P╱ // 0x1857 @0x29
0x182e…186e at002a = ╱dc╱=╱ // 0x1858 @0x2a
0x182e…186e at002b = ╱e9╱-╱ // 0x1859 @0x2b
0x182e…186e at002c = ╱31╱1╱ // 0x185a @0x2c
0x182e…186e at002d = ╱fe00008001╱ // 0x185b @0x2d
0x182e…186e at0032 = ╱da╱ AND ╱ // 0x1860 @0x32
0x182e…186e at0033 = ╱43╱C╱ // 0x1861 @0x33
0x182e…186e at0034 = ╱5b╱Æ╱ // 0x1862 @0x34
0x182e…186e at0035 = ╱4e╱N╱ // 0x1863 @0x35
0x182e…186e at0036 = ╱44╱D╱ // 0x1864 @0x36
0x182e…186e at0037 = ╱dc╱=╱ // 0x1865 @0x37
0x182e…186e at0038 = ╱31╱1╱ // 0x1866 @0x38
0x182e…186e at0039 = ╱fe00008001╱ // 0x1867 @0x39
0x182e…186e at003e = ╱ee╱)╱ // 0x186c @0x3e
0x182e…186e at003f = EOL // 0x186d @0x3f
0x182e…186e }
0x186e…1874 9fc1 2320 ENDIF
0x186e…1874 LineComalBcd {
0x186e…1874 ptr = 0x9fc1 // 0x186e @0x0
0x186e…1874 lno = 0x2320 // 0x1870 @0x2
0x186e…1874 at0004 = ╱9b╱ ENDIF ╱ // 0x1872 @0x4
0x186e…1874 at0005 = EOL // 0x1873 @0x5
0x186e…1874 }
0x1874…1888 9fd5 2330 CURSOR 16,8
0x1874…1888 LineComalBcd {
0x1874…1888 ptr = 0x9fd5 // 0x1874 @0x0
0x1874…1888 lno = 0x2330 // 0x1876 @0x2
0x1874…1888 at0004 = ╱a1╱ CURSOR ╱ // 0x1878 @0x4
0x1874…1888 at0005 = ╱31╱1╱ // 0x1879 @0x5
0x1874…1888 at0006 = ╱36╱6╱ // 0x187a @0x6
0x1874…1888 at0007 = ╱fe00008005╱ // 0x187b @0x7
0x1874…1888 at000c = ╱ec╱,╱ // 0x1880 @0xc
0x1874…1888 at000d = ╱38╱8╱ // 0x1881 @0xd
0x1874…1888 at000e = ╱fe00008004╱ // 0x1882 @0xe
0x1874…1888 at0013 = EOL // 0x1887 @0x13
0x1874…1888 }
0x1888…18a3 9ff0 2340 PRINT BLANK$(1:3)
0x1888…18a3 LineComalBcd {
0x1888…18a3 ptr = 0x9ff0 // 0x1888 @0x0
0x1888…18a3 lno = 0x2340 // 0x188a @0x2
0x1888…18a3 at0004 = ╱92╱ PRINT ╱ // 0x188c @0x4
0x1888…18a3 at0005 = ╱42╱B╱ // 0x188d @0x5
0x1888…18a3 at0006 = ╱4c╱L╱ // 0x188e @0x6
0x1888…18a3 at0007 = ╱41╱A╱ // 0x188f @0x7
0x1888…18a3 at0008 = ╱4e╱N╱ // 0x1890 @0x8
0x1888…18a3 at0009 = ╱4b╱K╱ // 0x1891 @0x9
0x1888…18a3 at000a = ╱ef╱$╱ // 0x1892 @0xa
0x1888…18a3 at000b = ╱ed╱(╱ // 0x1893 @0xb
0x1888…18a3 at000c = ╱31╱1╱ // 0x1894 @0xc
0x1888…18a3 at000d = ╱fe00008001╱ // 0x1895 @0xd
0x1888…18a3 at0012 = ╱f0╱:╱ // 0x189a @0x12
0x1888…18a3 at0013 = ╱33╱3╱ // 0x189b @0x13
0x1888…18a3 at0014 = ╱fe0000c002╱ // 0x189c @0x14
0x1888…18a3 at0019 = ╱ee╱)╱ // 0x18a1 @0x19
0x1888…18a3 at001a = EOL // 0x18a2 @0x1a
0x1888…18a3 }
0x18a3…18b7 a004 2350 CURSOR 27,8
0x18a3…18b7 LineComalBcd {
0x18a3…18b7 ptr = 0xa004 // 0x18a3 @0x0
0x18a3…18b7 lno = 0x2350 // 0x18a5 @0x2
0x18a3…18b7 at0004 = ╱a1╱ CURSOR ╱ // 0x18a7 @0x4
0x18a3…18b7 at0005 = ╱32╱2╱ // 0x18a8 @0x5
0x18a3…18b7 at0006 = ╱37╱7╱ // 0x18a9 @0x6
0x18a3…18b7 at0007 = ╱fe0000d805╱ // 0x18aa @0x7
0x18a3…18b7 at000c = ╱ec╱,╱ // 0x18af @0xc
0x18a3…18b7 at000d = ╱38╱8╱ // 0x18b0 @0xd
0x18a3…18b7 at000e = ╱fe00008004╱ // 0x18b1 @0xe
0x18a3…18b7 at0013 = EOL // 0x18b6 @0x13
0x18a3…18b7 }
0x18b7…18d3 a020 2360 PRINT BLANK$(1:15)
0x18b7…18d3 LineComalBcd {
0x18b7…18d3 ptr = 0xa020 // 0x18b7 @0x0
0x18b7…18d3 lno = 0x2360 // 0x18b9 @0x2
0x18b7…18d3 at0004 = ╱92╱ PRINT ╱ // 0x18bb @0x4
0x18b7…18d3 at0005 = ╱42╱B╱ // 0x18bc @0x5
0x18b7…18d3 at0006 = ╱4c╱L╱ // 0x18bd @0x6
0x18b7…18d3 at0007 = ╱41╱A╱ // 0x18be @0x7
0x18b7…18d3 at0008 = ╱4e╱N╱ // 0x18bf @0x8
0x18b7…18d3 at0009 = ╱4b╱K╱ // 0x18c0 @0x9
0x18b7…18d3 at000a = ╱ef╱$╱ // 0x18c1 @0xa
0x18b7…18d3 at000b = ╱ed╱(╱ // 0x18c2 @0xb
0x18b7…18d3 at000c = ╱31╱1╱ // 0x18c3 @0xc
0x18b7…18d3 at000d = ╱fe00008001╱ // 0x18c4 @0xd
0x18b7…18d3 at0012 = ╱f0╱:╱ // 0x18c9 @0x12
0x18b7…18d3 at0013 = ╱31╱1╱ // 0x18ca @0x13
0x18b7…18d3 at0014 = ╱35╱5╱ // 0x18cb @0x14
0x18b7…18d3 at0015 = ╱fe0000f004╱ // 0x18cc @0x15
0x18b7…18d3 at001a = ╱ee╱)╱ // 0x18d1 @0x1a
0x18b7…18d3 at001b = EOL // 0x18d2 @0x1b
0x18b7…18d3 }
0x18d3…18e7 a034 2370 CURSOR 16,8
0x18d3…18e7 LineComalBcd {
0x18d3…18e7 ptr = 0xa034 // 0x18d3 @0x0
0x18d3…18e7 lno = 0x2370 // 0x18d5 @0x2
0x18d3…18e7 at0004 = ╱a1╱ CURSOR ╱ // 0x18d7 @0x4
0x18d3…18e7 at0005 = ╱31╱1╱ // 0x18d8 @0x5
0x18d3…18e7 at0006 = ╱36╱6╱ // 0x18d9 @0x6
0x18d3…18e7 at0007 = ╱fe00008005╱ // 0x18da @0x7
0x18d3…18e7 at000c = ╱ec╱,╱ // 0x18df @0xc
0x18d3…18e7 at000d = ╱38╱8╱ // 0x18e0 @0xd
0x18d3…18e7 at000e = ╱fe00008004╱ // 0x18e1 @0xe
0x18d3…18e7 at0013 = EOL // 0x18e6 @0x13
0x18d3…18e7 }
0x18e7…1903 a050 2380 IF P<10 AND CÆND<>2 THEN
0x18e7…1903 LineComalBcd {
0x18e7…1903 ptr = 0xa050 // 0x18e7 @0x0
0x18e7…1903 lno = 0x2380 // 0x18e9 @0x2
0x18e7…1903 at0004 = ╱9c╱ IF ╱ // 0x18eb @0x4
0x18e7…1903 at0005 = ╱50╱P╱ // 0x18ec @0x5
0x18e7…1903 at0006 = ╱dd╱<╱ // 0x18ed @0x6
0x18e7…1903 at0007 = ╱31╱1╱ // 0x18ee @0x7
0x18e7…1903 at0008 = ╱30╱0╱ // 0x18ef @0x8
0x18e7…1903 at0009 = ╱fe0000a004╱ // 0x18f0 @0x9
0x18e7…1903 at000e = ╱da╱ AND ╱ // 0x18f5 @0xe
0x18e7…1903 at000f = ╱43╱C╱ // 0x18f6 @0xf
0x18e7…1903 at0010 = ╱5b╱Æ╱ // 0x18f7 @0x10
0x18e7…1903 at0011 = ╱4e╱N╱ // 0x18f8 @0x11
0x18e7…1903 at0012 = ╱44╱D╱ // 0x18f9 @0x12
0x18e7…1903 at0013 = ╱e1╱<>╱ // 0x18fa @0x13
0x18e7…1903 at0014 = ╱32╱2╱ // 0x18fb @0x14
0x18e7…1903 at0015 = ╱fe00008002╱ // 0x18fc @0x15
0x18e7…1903 at001a = ╱b6╱ THEN ╱ // 0x1901 @0x1a
0x18e7…1903 at001b = EOL // 0x1902 @0x1b
0x18e7…1903 }
0x1903…191b a068 2390 DEBLK$=CHR(P+48)
0x1903…191b LineComalBcd {
0x1903…191b ptr = 0xa068 // 0x1903 @0x0
0x1903…191b lno = 0x2390 // 0x1905 @0x2
0x1903…191b at0004 = ╱44╱D╱ // 0x1907 @0x4
0x1903…191b at0005 = ╱45╱E╱ // 0x1908 @0x5
0x1903…191b at0006 = ╱42╱B╱ // 0x1909 @0x6
0x1903…191b at0007 = ╱4c╱L╱ // 0x190a @0x7
0x1903…191b at0008 = ╱4b╱K╱ // 0x190b @0x8
0x1903…191b at0009 = ╱ef╱$╱ // 0x190c @0x9
0x1903…191b at000a = ╱dc╱=╱ // 0x190d @0xa
0x1903…191b at000b = ╱cf╱CHR╱ // 0x190e @0xb
0x1903…191b at000c = ╱ed╱(╱ // 0x190f @0xc
0x1903…191b at000d = ╱50╱P╱ // 0x1910 @0xd
0x1903…191b at000e = ╱e2╱+╱ // 0x1911 @0xe
0x1903…191b at000f = ╱34╱4╱ // 0x1912 @0xf
0x1903…191b at0010 = ╱38╱8╱ // 0x1913 @0x10
0x1903…191b at0011 = ╱fe0000c006╱ // 0x1914 @0x11
0x1903…191b at0016 = ╱ee╱)╱ // 0x1919 @0x16
0x1903…191b at0017 = EOL // 0x191a @0x17
0x1903…191b }
0x191b…1921 a06e 2400 ENDIF
0x191b…1921 LineComalBcd {
0x191b…1921 ptr = 0xa06e // 0x191b @0x0
0x191b…1921 lno = 0x2400 // 0x191d @0x2
0x191b…1921 at0004 = ╱9b╱ ENDIF ╱ // 0x191f @0x4
0x191b…1921 at0005 = EOL // 0x1920 @0x5
0x191b…1921 }
0x1921…1939 a086 2410 P=ORD(DEBLK$)-48
0x1921…1939 LineComalBcd {
0x1921…1939 ptr = 0xa086 // 0x1921 @0x0
0x1921…1939 lno = 0x2410 // 0x1923 @0x2
0x1921…1939 at0004 = ╱50╱P╱ // 0x1925 @0x4
0x1921…1939 at0005 = ╱dc╱=╱ // 0x1926 @0x5
0x1921…1939 at0006 = ╱cd╱ORD╱ // 0x1927 @0x6
0x1921…1939 at0007 = ╱ed╱(╱ // 0x1928 @0x7
0x1921…1939 at0008 = ╱44╱D╱ // 0x1929 @0x8
0x1921…1939 at0009 = ╱45╱E╱ // 0x192a @0x9
0x1921…1939 at000a = ╱42╱B╱ // 0x192b @0xa
0x1921…1939 at000b = ╱4c╱L╱ // 0x192c @0xb
0x1921…1939 at000c = ╱4b╱K╱ // 0x192d @0xc
0x1921…1939 at000d = ╱ef╱$╱ // 0x192e @0xd
0x1921…1939 at000e = ╱ee╱)╱ // 0x192f @0xe
0x1921…1939 at000f = ╱e3╱-╱ // 0x1930 @0xf
0x1921…1939 at0010 = ╱34╱4╱ // 0x1931 @0x10
0x1921…1939 at0011 = ╱38╱8╱ // 0x1932 @0x11
0x1921…1939 at0012 = ╱fe0000c006╱ // 0x1933 @0x12
0x1921…1939 at0017 = EOL // 0x1938 @0x17
0x1921…1939 }
0x1939…1947 a094 2420 PRINT USING "###":P
0x1939…1947 LineComalBcd {
0x1939…1947 ptr = 0xa094 // 0x1939 @0x0
0x1939…1947 lno = 0x2420 // 0x193b @0x2
0x1939…1947 at0004 = ╱92╱ PRINT ╱ // 0x193d @0x4
0x1939…1947 at0005 = ╱b9╱ USING ╱ // 0x193e @0x5
0x1939…1947 at0006 = ╱22╱"╱ // 0x193f @0x6
0x1939…1947 at0007 = ╱23╱#╱ // 0x1940 @0x7
0x1939…1947 at0008 = ╱23╱#╱ // 0x1941 @0x8
0x1939…1947 at0009 = ╱23╱#╱ // 0x1942 @0x9
0x1939…1947 at000a = ╱22╱"╱ // 0x1943 @0xa
0x1939…1947 at000b = ╱f0╱:╱ // 0x1944 @0xb
0x1939…1947 at000c = ╱50╱P╱ // 0x1945 @0xc
0x1939…1947 at000d = EOL // 0x1946 @0xd
0x1939…1947 }
0x1947…195b a0a8 2430 CURSOR 27,8
0x1947…195b LineComalBcd {
0x1947…195b ptr = 0xa0a8 // 0x1947 @0x0
0x1947…195b lno = 0x2430 // 0x1949 @0x2
0x1947…195b at0004 = ╱a1╱ CURSOR ╱ // 0x194b @0x4
0x1947…195b at0005 = ╱32╱2╱ // 0x194c @0x5
0x1947…195b at0006 = ╱37╱7╱ // 0x194d @0x6
0x1947…195b at0007 = ╱fe0000d805╱ // 0x194e @0x7
0x1947…195b at000c = ╱ec╱,╱ // 0x1953 @0xc
0x1947…195b at000d = ╱38╱8╱ // 0x1954 @0xd
0x1947…195b at000e = ╱fe00008004╱ // 0x1955 @0xe
0x1947…195b at0013 = EOL // 0x195a @0x13
0x1947…195b }
0x195b…196a a0b7 2440 IF P=0 THEN
0x195b…196a LineComalBcd {
0x195b…196a ptr = 0xa0b7 // 0x195b @0x0
0x195b…196a lno = 0x2440 // 0x195d @0x2
0x195b…196a at0004 = ╱9c╱ IF ╱ // 0x195f @0x4
0x195b…196a at0005 = ╱50╱P╱ // 0x1960 @0x5
0x195b…196a at0006 = ╱dc╱=╱ // 0x1961 @0x6
0x195b…196a at0007 = ╱30╱0╱ // 0x1962 @0x7
0x195b…196a at0008 = ╱fe00000000╱ // 0x1963 @0x8
0x195b…196a at000d = ╱b6╱ THEN ╱ // 0x1968 @0xd
0x195b…196a at000e = EOL // 0x1969 @0xe
0x195b…196a }
0x196a…1979 a0c6 2450 PRINT "Danmark"
0x196a…1979 LineComalBcd {
0x196a…1979 ptr = 0xa0c6 // 0x196a @0x0
0x196a…1979 lno = 0x2450 // 0x196c @0x2
0x196a…1979 at0004 = ╱92╱ PRINT ╱ // 0x196e @0x4
0x196a…1979 at0005 = ╱22╱"╱ // 0x196f @0x5
0x196a…1979 at0006 = ╱44╱D╱ // 0x1970 @0x6
0x196a…1979 at0007 = ╱61╱a╱ // 0x1971 @0x7
0x196a…1979 at0008 = ╱6e╱n╱ // 0x1972 @0x8
0x196a…1979 at0009 = ╱6d╱m╱ // 0x1973 @0x9
0x196a…1979 at000a = ╱61╱a╱ // 0x1974 @0xa
0x196a…1979 at000b = ╱72╱r╱ // 0x1975 @0xb
0x196a…1979 at000c = ╱6b╱k╱ // 0x1976 @0xc
0x196a…1979 at000d = ╱22╱"╱ // 0x1977 @0xd
0x196a…1979 at000e = EOL // 0x1978 @0xe
0x196a…1979 }
0x1979…197f a0cc 2460 ELSE
0x1979…197f LineComalBcd {
0x1979…197f ptr = 0xa0cc // 0x1979 @0x0
0x1979…197f lno = 0x2460 // 0x197b @0x2
0x1979…197f at0004 = ╱9a╱ ELSE ╱ // 0x197d @0x4
0x1979…197f at0005 = EOL // 0x197e @0x5
0x1979…197f }
0x197f…198d a0da 2470 PRINT LAND$(P)
0x197f…198d LineComalBcd {
0x197f…198d ptr = 0xa0da // 0x197f @0x0
0x197f…198d lno = 0x2470 // 0x1981 @0x2
0x197f…198d at0004 = ╱92╱ PRINT ╱ // 0x1983 @0x4
0x197f…198d at0005 = ╱4c╱L╱ // 0x1984 @0x5
0x197f…198d at0006 = ╱41╱A╱ // 0x1985 @0x6
0x197f…198d at0007 = ╱4e╱N╱ // 0x1986 @0x7
0x197f…198d at0008 = ╱44╱D╱ // 0x1987 @0x8
0x197f…198d at0009 = ╱ef╱$╱ // 0x1988 @0x9
0x197f…198d at000a = ╱ed╱(╱ // 0x1989 @0xa
0x197f…198d at000b = ╱50╱P╱ // 0x198a @0xb
0x197f…198d at000c = ╱ee╱)╱ // 0x198b @0xc
0x197f…198d at000d = EOL // 0x198c @0xd
0x197f…198d }
0x198d…1993 a0e0 2480 ENDIF
0x198d…1993 LineComalBcd {
0x198d…1993 ptr = 0xa0e0 // 0x198d @0x0
0x198d…1993 lno = 0x2480 // 0x198f @0x2
0x198d…1993 at0004 = ╱9b╱ ENDIF ╱ // 0x1991 @0x4
0x198d…1993 at0005 = EOL // 0x1992 @0x5
0x198d…1993 }
0x1993…19a0 a0ed 2490 WHEN 7
0x1993…19a0 LineComalBcd {
0x1993…19a0 ptr = 0xa0ed // 0x1993 @0x0
0x1993…19a0 lno = 0x2490 // 0x1995 @0x2
0x1993…19a0 at0004 = ╱a301╱ WHEN ╱ // 0x1997 @0x4
0x1993…19a0 at0006 = ╱37╱7╱ // 0x1999 @0x6
0x1993…19a0 at0007 = ╱fe0000e003╱ // 0x199a @0x7
0x1993…19a0 at000c = EOL // 0x199f @0xc
0x1993…19a0 }
0x19a0…19b2 a0ff 2500 IF CÆND<>1 THEN
0x19a0…19b2 LineComalBcd {
0x19a0…19b2 ptr = 0xa0ff // 0x19a0 @0x0
0x19a0…19b2 lno = 0x2500 // 0x19a2 @0x2
0x19a0…19b2 at0004 = ╱9c╱ IF ╱ // 0x19a4 @0x4
0x19a0…19b2 at0005 = ╱43╱C╱ // 0x19a5 @0x5
0x19a0…19b2 at0006 = ╱5b╱Æ╱ // 0x19a6 @0x6
0x19a0…19b2 at0007 = ╱4e╱N╱ // 0x19a7 @0x7
0x19a0…19b2 at0008 = ╱44╱D╱ // 0x19a8 @0x8
0x19a0…19b2 at0009 = ╱e1╱<>╱ // 0x19a9 @0x9
0x19a0…19b2 at000a = ╱31╱1╱ // 0x19aa @0xa
0x19a0…19b2 at000b = ╱fe00008001╱ // 0x19ab @0xb
0x19a0…19b2 at0010 = ╱b6╱ THEN ╱ // 0x19b0 @0x10
0x19a0…19b2 at0011 = EOL // 0x19b1 @0x11
0x19a0…19b2 }
0x19b2…19c5 a112 2510 CURSOR 2,9
0x19b2…19c5 LineComalBcd {
0x19b2…19c5 ptr = 0xa112 // 0x19b2 @0x0
0x19b2…19c5 lno = 0x2510 // 0x19b4 @0x2
0x19b2…19c5 at0004 = ╱a1╱ CURSOR ╱ // 0x19b6 @0x4
0x19b2…19c5 at0005 = ╱32╱2╱ // 0x19b7 @0x5
0x19b2…19c5 at0006 = ╱fe00008002╱ // 0x19b8 @0x6
0x19b2…19c5 at000b = ╱ec╱,╱ // 0x19bd @0xb
0x19b2…19c5 at000c = ╱39╱9╱ // 0x19be @0xc
0x19b2…19c5 at000d = ╱fe00009004╱ // 0x19bf @0xd
0x19b2…19c5 at0012 = EOL // 0x19c4 @0x12
0x19b2…19c5 }
0x19c5…19da a127 2520 PRINT "7:Telefon :"
0x19c5…19da LineComalBcd {
0x19c5…19da ptr = 0xa127 // 0x19c5 @0x0
0x19c5…19da lno = 0x2520 // 0x19c7 @0x2
0x19c5…19da at0004 = ╱92╱ PRINT ╱ // 0x19c9 @0x4
0x19c5…19da at0005 = ╱22╱"╱ // 0x19ca @0x5
0x19c5…19da at0006 = ╱37╱7╱ // 0x19cb @0x6
0x19c5…19da at0007 = ╱3a╱:╱ // 0x19cc @0x7
0x19c5…19da at0008 = ╱54╱T╱ // 0x19cd @0x8
0x19c5…19da at0009 = ╱65╱e╱ // 0x19ce @0x9
0x19c5…19da at000a = ╱6c╱l╱ // 0x19cf @0xa
0x19c5…19da at000b = ╱65╱e╱ // 0x19d0 @0xb
0x19c5…19da at000c = ╱66╱f╱ // 0x19d1 @0xc
0x19c5…19da at000d = ╱6f╱o╱ // 0x19d2 @0xd
0x19c5…19da at000e = ╱6e╱n╱ // 0x19d3 @0xe
0x19c5…19da at000f = ╱20╱…╱ // 0x19d4 @0xf
0x19c5…19da at0010 = ╱20╱…╱ // 0x19d5 @0x10
0x19c5…19da at0011 = ╱20╱…╱ // 0x19d6 @0x11
0x19c5…19da at0012 = ╱3a╱:╱ // 0x19d7 @0x12
0x19c5…19da at0013 = ╱22╱"╱ // 0x19d8 @0x13
0x19c5…19da at0014 = EOL // 0x19d9 @0x14
0x19c5…19da }
0x19da…19eb a138 2530 DSTYR=8
0x19da…19eb LineComalBcd {
0x19da…19eb ptr = 0xa138 // 0x19da @0x0
0x19da…19eb lno = 0x2530 // 0x19dc @0x2
0x19da…19eb at0004 = ╱44╱D╱ // 0x19de @0x4
0x19da…19eb at0005 = ╱53╱S╱ // 0x19df @0x5
0x19da…19eb at0006 = ╱54╱T╱ // 0x19e0 @0x6
0x19da…19eb at0007 = ╱59╱Y╱ // 0x19e1 @0x7
0x19da…19eb at0008 = ╱52╱R╱ // 0x19e2 @0x8
0x19da…19eb at0009 = ╱dc╱=╱ // 0x19e3 @0x9
0x19da…19eb at000a = ╱38╱8╱ // 0x19e4 @0xa
0x19da…19eb at000b = ╱fe00008004╱ // 0x19e5 @0xb
0x19da…19eb at0010 = EOL // 0x19ea @0x10
0x19da…19eb }
0x19eb…19f1 a13e 2540 ENDIF
0x19eb…19f1 LineComalBcd {
0x19eb…19f1 ptr = 0xa13e // 0x19eb @0x0
0x19eb…19f1 lno = 0x2540 // 0x19ed @0x2
0x19eb…19f1 at0004 = ╱9b╱ ENDIF ╱ // 0x19ef @0x4
0x19eb…19f1 at0005 = EOL // 0x19f0 @0x5
0x19eb…19f1 }
0x19f1…1a03 a150 2550 IF CÆND<>2 THEN
0x19f1…1a03 LineComalBcd {
0x19f1…1a03 ptr = 0xa150 // 0x19f1 @0x0
0x19f1…1a03 lno = 0x2550 // 0x19f3 @0x2
0x19f1…1a03 at0004 = ╱9c╱ IF ╱ // 0x19f5 @0x4
0x19f1…1a03 at0005 = ╱43╱C╱ // 0x19f6 @0x5
0x19f1…1a03 at0006 = ╱5b╱Æ╱ // 0x19f7 @0x6
0x19f1…1a03 at0007 = ╱4e╱N╱ // 0x19f8 @0x7
0x19f1…1a03 at0008 = ╱44╱D╱ // 0x19f9 @0x8
0x19f1…1a03 at0009 = ╱e1╱<>╱ // 0x19fa @0x9
0x19f1…1a03 at000a = ╱32╱2╱ // 0x19fb @0xa
0x19f1…1a03 at000b = ╱fe00008002╱ // 0x19fc @0xb
0x19f1…1a03 at0010 = ╱b6╱ THEN ╱ // 0x1a01 @0x10
0x19f1…1a03 at0011 = EOL // 0x1a02 @0x11
0x19f1…1a03 }
0x1a03…1a17 a164 2560 CURSOR 3,23
0x1a03…1a17 LineComalBcd {
0x1a03…1a17 ptr = 0xa164 // 0x1a03 @0x0
0x1a03…1a17 lno = 0x2560 // 0x1a05 @0x2
0x1a03…1a17 at0004 = ╱a1╱ CURSOR ╱ // 0x1a07 @0x4
0x1a03…1a17 at0005 = ╱33╱3╱ // 0x1a08 @0x5
0x1a03…1a17 at0006 = ╱fe0000c002╱ // 0x1a09 @0x6
0x1a03…1a17 at000b = ╱ec╱,╱ // 0x1a0e @0xb
0x1a03…1a17 at000c = ╱32╱2╱ // 0x1a0f @0xc
0x1a03…1a17 at000d = ╱33╱3╱ // 0x1a10 @0xd
0x1a03…1a17 at000e = ╱fe0000b805╱ // 0x1a11 @0xe
0x1a03…1a17 at0013 = EOL // 0x1a16 @0x13
0x1a03…1a17 }
0x1a17…1a63 a1b0 2570 PRINT "Telefon";BLANK$(1:14);"(max 9 tegn)";BLANK$(1:44)
0x1a17…1a63 LineComalBcd {
0x1a17…1a63 ptr = 0xa1b0 // 0x1a17 @0x0
0x1a17…1a63 lno = 0x2570 // 0x1a19 @0x2
0x1a17…1a63 at0004 = ╱92╱ PRINT ╱ // 0x1a1b @0x4
0x1a17…1a63 at0005 = ╱22╱"╱ // 0x1a1c @0x5
0x1a17…1a63 at0006 = ╱54╱T╱ // 0x1a1d @0x6
0x1a17…1a63 at0007 = ╱65╱e╱ // 0x1a1e @0x7
0x1a17…1a63 at0008 = ╱6c╱l╱ // 0x1a1f @0x8
0x1a17…1a63 at0009 = ╱65╱e╱ // 0x1a20 @0x9
0x1a17…1a63 at000a = ╱66╱f╱ // 0x1a21 @0xa
0x1a17…1a63 at000b = ╱6f╱o╱ // 0x1a22 @0xb
0x1a17…1a63 at000c = ╱6e╱n╱ // 0x1a23 @0xc
0x1a17…1a63 at000d = ╱22╱"╱ // 0x1a24 @0xd
0x1a17…1a63 at000e = ╱eb╱;╱ // 0x1a25 @0xe
0x1a17…1a63 at000f = ╱42╱B╱ // 0x1a26 @0xf
0x1a17…1a63 at0010 = ╱4c╱L╱ // 0x1a27 @0x10
0x1a17…1a63 at0011 = ╱41╱A╱ // 0x1a28 @0x11
0x1a17…1a63 at0012 = ╱4e╱N╱ // 0x1a29 @0x12
0x1a17…1a63 at0013 = ╱4b╱K╱ // 0x1a2a @0x13
0x1a17…1a63 at0014 = ╱ef╱$╱ // 0x1a2b @0x14
0x1a17…1a63 at0015 = ╱ed╱(╱ // 0x1a2c @0x15
0x1a17…1a63 at0016 = ╱31╱1╱ // 0x1a2d @0x16
0x1a17…1a63 at0017 = ╱fe00008001╱ // 0x1a2e @0x17
0x1a17…1a63 at001c = ╱f0╱:╱ // 0x1a33 @0x1c
0x1a17…1a63 at001d = ╱31╱1╱ // 0x1a34 @0x1d
0x1a17…1a63 at001e = ╱34╱4╱ // 0x1a35 @0x1e
0x1a17…1a63 at001f = ╱fe0000e004╱ // 0x1a36 @0x1f
0x1a17…1a63 at0024 = ╱ee╱)╱ // 0x1a3b @0x24
0x1a17…1a63 at0025 = ╱eb╱;╱ // 0x1a3c @0x25
0x1a17…1a63 at0026 = ╱22╱"╱ // 0x1a3d @0x26
0x1a17…1a63 at0027 = ╱28╱(╱ // 0x1a3e @0x27
0x1a17…1a63 at0028 = ╱6d╱m╱ // 0x1a3f @0x28
0x1a17…1a63 at0029 = ╱61╱a╱ // 0x1a40 @0x29
0x1a17…1a63 at002a = ╱78╱x╱ // 0x1a41 @0x2a
0x1a17…1a63 at002b = ╱20╱…╱ // 0x1a42 @0x2b
0x1a17…1a63 at002c = ╱39╱9╱ // 0x1a43 @0x2c
0x1a17…1a63 at002d = ╱20╱…╱ // 0x1a44 @0x2d
0x1a17…1a63 at002e = ╱74╱t╱ // 0x1a45 @0x2e
0x1a17…1a63 at002f = ╱65╱e╱ // 0x1a46 @0x2f
0x1a17…1a63 at0030 = ╱67╱g╱ // 0x1a47 @0x30
0x1a17…1a63 at0031 = ╱6e╱n╱ // 0x1a48 @0x31
0x1a17…1a63 at0032 = ╱29╱)╱ // 0x1a49 @0x32
0x1a17…1a63 at0033 = ╱22╱"╱ // 0x1a4a @0x33
0x1a17…1a63 at0034 = ╱eb╱;╱ // 0x1a4b @0x34
0x1a17…1a63 at0035 = ╱42╱B╱ // 0x1a4c @0x35
0x1a17…1a63 at0036 = ╱4c╱L╱ // 0x1a4d @0x36
0x1a17…1a63 at0037 = ╱41╱A╱ // 0x1a4e @0x37
0x1a17…1a63 at0038 = ╱4e╱N╱ // 0x1a4f @0x38
0x1a17…1a63 at0039 = ╱4b╱K╱ // 0x1a50 @0x39
0x1a17…1a63 at003a = ╱ef╱$╱ // 0x1a51 @0x3a
0x1a17…1a63 at003b = ╱ed╱(╱ // 0x1a52 @0x3b
0x1a17…1a63 at003c = ╱31╱1╱ // 0x1a53 @0x3c
0x1a17…1a63 at003d = ╱fe00008001╱ // 0x1a54 @0x3d
0x1a17…1a63 at0042 = ╱f0╱:╱ // 0x1a59 @0x42
0x1a17…1a63 at0043 = ╱34╱4╱ // 0x1a5a @0x43
0x1a17…1a63 at0044 = ╱34╱4╱ // 0x1a5b @0x44
0x1a17…1a63 at0045 = ╱fe0000b006╱ // 0x1a5c @0x45
0x1a17…1a63 at004a = ╱ee╱)╱ // 0x1a61 @0x4a
0x1a17…1a63 at004b = EOL // 0x1a62 @0x4b
0x1a17…1a63 }
0x1a63…1a78 a1c5 2580 CURSOR 13,23
0x1a63…1a78 LineComalBcd {
0x1a63…1a78 ptr = 0xa1c5 // 0x1a63 @0x0
0x1a63…1a78 lno = 0x2580 // 0x1a65 @0x2
0x1a63…1a78 at0004 = ╱a1╱ CURSOR ╱ // 0x1a67 @0x4
0x1a63…1a78 at0005 = ╱31╱1╱ // 0x1a68 @0x5
0x1a63…1a78 at0006 = ╱33╱3╱ // 0x1a69 @0x6
0x1a63…1a78 at0007 = ╱fe0000d004╱ // 0x1a6a @0x7
0x1a63…1a78 at000c = ╱ec╱,╱ // 0x1a6f @0xc
0x1a63…1a78 at000d = ╱32╱2╱ // 0x1a70 @0xd
0x1a63…1a78 at000e = ╱33╱3╱ // 0x1a71 @0xe
0x1a63…1a78 at000f = ╱fe0000b805╱ // 0x1a72 @0xf
0x1a63…1a78 at0014 = EOL // 0x1a77 @0x14
0x1a63…1a78 }
0x1a78…1a85 (88,) a1d2 2590 INPUT DEBTLF$
0x1a78…1a85 LineComalBcd {
0x1a78…1a85 ptr = 0xa1d2 // 0x1a78 @0x0
0x1a78…1a85 lno = 0x2590 // 0x1a7a @0x2
0x1a78…1a85 at0004 = ╱91╱ INPUT ╱ // 0x1a7c @0x4
0x1a78…1a85 at0005 = ╱44╱D╱ // 0x1a7d @0x5
0x1a78…1a85 at0006 = ╱45╱E╱ // 0x1a7e @0x6
0x1a78…1a85 at0007 = ╱42╱B╱ // 0x1a7f @0x7
0x1a78…1a85 at0008 = ╱54╱T╱ // 0x1a80 @0x8
0x1a78…1a85 at0009 = ╱4c╱L╱ // 0x1a81 @0x9
0x1a78…1a85 at000a = ╱46╱F╱ // 0x1a82 @0xa
0x1a78…1a85 at000b = ╱ef╱$╱ // 0x1a83 @0xb
0x1a78…1a85 at000c = EOL // 0x1a84 @0xc
0x1a78…1a85 }
0x1a85…1a8b a1d8 2600 ENDIF
0x1a85…1a8b LineComalBcd {
0x1a85…1a8b ptr = 0xa1d8 // 0x1a85 @0x0
0x1a85…1a8b lno = 0x2600 // 0x1a87 @0x2
0x1a85…1a8b at0004 = ╱9b╱ ENDIF ╱ // 0x1a89 @0x4
0x1a85…1a8b at0005 = EOL // 0x1a8a @0x5
0x1a85…1a8b }
0x1a8b…1a9f a1ec 2610 CURSOR 16,9
0x1a8b…1a9f LineComalBcd {
0x1a8b…1a9f ptr = 0xa1ec // 0x1a8b @0x0
0x1a8b…1a9f lno = 0x2610 // 0x1a8d @0x2
0x1a8b…1a9f at0004 = ╱a1╱ CURSOR ╱ // 0x1a8f @0x4
0x1a8b…1a9f at0005 = ╱31╱1╱ // 0x1a90 @0x5
0x1a8b…1a9f at0006 = ╱36╱6╱ // 0x1a91 @0x6
0x1a8b…1a9f at0007 = ╱fe00008005╱ // 0x1a92 @0x7
0x1a8b…1a9f at000c = ╱ec╱,╱ // 0x1a97 @0xc
0x1a8b…1a9f at000d = ╱39╱9╱ // 0x1a98 @0xd
0x1a8b…1a9f at000e = ╱fe00009004╱ // 0x1a99 @0xe
0x1a8b…1a9f at0013 = EOL // 0x1a9e @0x13
0x1a8b…1a9f }
0x1a9f…1aba a207 2620 PRINT BLANK$(1:9)
0x1a9f…1aba LineComalBcd {
0x1a9f…1aba ptr = 0xa207 // 0x1a9f @0x0
0x1a9f…1aba lno = 0x2620 // 0x1aa1 @0x2
0x1a9f…1aba at0004 = ╱92╱ PRINT ╱ // 0x1aa3 @0x4
0x1a9f…1aba at0005 = ╱42╱B╱ // 0x1aa4 @0x5
0x1a9f…1aba at0006 = ╱4c╱L╱ // 0x1aa5 @0x6
0x1a9f…1aba at0007 = ╱41╱A╱ // 0x1aa6 @0x7
0x1a9f…1aba at0008 = ╱4e╱N╱ // 0x1aa7 @0x8
0x1a9f…1aba at0009 = ╱4b╱K╱ // 0x1aa8 @0x9
0x1a9f…1aba at000a = ╱ef╱$╱ // 0x1aa9 @0xa
0x1a9f…1aba at000b = ╱ed╱(╱ // 0x1aaa @0xb
0x1a9f…1aba at000c = ╱31╱1╱ // 0x1aab @0xc
0x1a9f…1aba at000d = ╱fe00008001╱ // 0x1aac @0xd
0x1a9f…1aba at0012 = ╱f0╱:╱ // 0x1ab1 @0x12
0x1a9f…1aba at0013 = ╱39╱9╱ // 0x1ab2 @0x13
0x1a9f…1aba at0014 = ╱fe00009004╱ // 0x1ab3 @0x14
0x1a9f…1aba at0019 = ╱ee╱)╱ // 0x1ab8 @0x19
0x1a9f…1aba at001a = EOL // 0x1ab9 @0x1a
0x1a9f…1aba }
0x1aba…1ace a21b 2630 CURSOR 16,9
0x1aba…1ace LineComalBcd {
0x1aba…1ace ptr = 0xa21b // 0x1aba @0x0
0x1aba…1ace lno = 0x2630 // 0x1abc @0x2
0x1aba…1ace at0004 = ╱a1╱ CURSOR ╱ // 0x1abe @0x4
0x1aba…1ace at0005 = ╱31╱1╱ // 0x1abf @0x5
0x1aba…1ace at0006 = ╱36╱6╱ // 0x1ac0 @0x6
0x1aba…1ace at0007 = ╱fe00008005╱ // 0x1ac1 @0x7
0x1aba…1ace at000c = ╱ec╱,╱ // 0x1ac6 @0xc
0x1aba…1ace at000d = ╱39╱9╱ // 0x1ac7 @0xd
0x1aba…1ace at000e = ╱fe00009004╱ // 0x1ac8 @0xe
0x1aba…1ace at0013 = EOL // 0x1acd @0x13
0x1aba…1ace }
0x1ace…1adb a228 2640 PRINT DEBTLF$
0x1ace…1adb LineComalBcd {
0x1ace…1adb ptr = 0xa228 // 0x1ace @0x0
0x1ace…1adb lno = 0x2640 // 0x1ad0 @0x2
0x1ace…1adb at0004 = ╱92╱ PRINT ╱ // 0x1ad2 @0x4
0x1ace…1adb at0005 = ╱44╱D╱ // 0x1ad3 @0x5
0x1ace…1adb at0006 = ╱45╱E╱ // 0x1ad4 @0x6
0x1ace…1adb at0007 = ╱42╱B╱ // 0x1ad5 @0x7
0x1ace…1adb at0008 = ╱54╱T╱ // 0x1ad6 @0x8
0x1ace…1adb at0009 = ╱4c╱L╱ // 0x1ad7 @0x9
0x1ace…1adb at000a = ╱46╱F╱ // 0x1ad8 @0xa
0x1ace…1adb at000b = ╱ef╱$╱ // 0x1ad9 @0xb
0x1ace…1adb at000c = EOL // 0x1ada @0xc
0x1ace…1adb }
0x1adb…1ae8 a235 2650 WHEN 8
0x1adb…1ae8 LineComalBcd {
0x1adb…1ae8 ptr = 0xa235 // 0x1adb @0x0
0x1adb…1ae8 lno = 0x2650 // 0x1add @0x2
0x1adb…1ae8 at0004 = ╱a301╱ WHEN ╱ // 0x1adf @0x4
0x1adb…1ae8 at0006 = ╱38╱8╱ // 0x1ae1 @0x6
0x1adb…1ae8 at0007 = ╱fe00008004╱ // 0x1ae2 @0x7
0x1adb…1ae8 at000c = EOL // 0x1ae7 @0xc
0x1adb…1ae8 }
0x1ae8…1afa a247 2660 IF CÆND<>1 THEN
0x1ae8…1afa LineComalBcd {
0x1ae8…1afa ptr = 0xa247 // 0x1ae8 @0x0
0x1ae8…1afa lno = 0x2660 // 0x1aea @0x2
0x1ae8…1afa at0004 = ╱9c╱ IF ╱ // 0x1aec @0x4
0x1ae8…1afa at0005 = ╱43╱C╱ // 0x1aed @0x5
0x1ae8…1afa at0006 = ╱5b╱Æ╱ // 0x1aee @0x6
0x1ae8…1afa at0007 = ╱4e╱N╱ // 0x1aef @0x7
0x1ae8…1afa at0008 = ╱44╱D╱ // 0x1af0 @0x8
0x1ae8…1afa at0009 = ╱e1╱<>╱ // 0x1af1 @0x9
0x1ae8…1afa at000a = ╱31╱1╱ // 0x1af2 @0xa
0x1ae8…1afa at000b = ╱fe00008001╱ // 0x1af3 @0xb
0x1ae8…1afa at0010 = ╱b6╱ THEN ╱ // 0x1af8 @0x10
0x1ae8…1afa at0011 = EOL // 0x1af9 @0x11
0x1ae8…1afa }
0x1afa…1b0e a25b 2670 CURSOR 2,10
0x1afa…1b0e LineComalBcd {
0x1afa…1b0e ptr = 0xa25b // 0x1afa @0x0
0x1afa…1b0e lno = 0x2670 // 0x1afc @0x2
0x1afa…1b0e at0004 = ╱a1╱ CURSOR ╱ // 0x1afe @0x4
0x1afa…1b0e at0005 = ╱32╱2╱ // 0x1aff @0x5
0x1afa…1b0e at0006 = ╱fe00008002╱ // 0x1b00 @0x6
0x1afa…1b0e at000b = ╱ec╱,╱ // 0x1b05 @0xb
0x1afa…1b0e at000c = ╱31╱1╱ // 0x1b06 @0xc
0x1afa…1b0e at000d = ╱30╱0╱ // 0x1b07 @0xd
0x1afa…1b0e at000e = ╱fe0000a004╱ // 0x1b08 @0xe
0x1afa…1b0e at0013 = EOL // 0x1b0d @0x13
0x1afa…1b0e }
0x1b0e…1b23 a270 2680 PRINT "8:Kundegr :"
0x1b0e…1b23 LineComalBcd {
0x1b0e…1b23 ptr = 0xa270 // 0x1b0e @0x0
0x1b0e…1b23 lno = 0x2680 // 0x1b10 @0x2
0x1b0e…1b23 at0004 = ╱92╱ PRINT ╱ // 0x1b12 @0x4
0x1b0e…1b23 at0005 = ╱22╱"╱ // 0x1b13 @0x5
0x1b0e…1b23 at0006 = ╱38╱8╱ // 0x1b14 @0x6
0x1b0e…1b23 at0007 = ╱3a╱:╱ // 0x1b15 @0x7
0x1b0e…1b23 at0008 = ╱4b╱K╱ // 0x1b16 @0x8
0x1b0e…1b23 at0009 = ╱75╱u╱ // 0x1b17 @0x9
0x1b0e…1b23 at000a = ╱6e╱n╱ // 0x1b18 @0xa
0x1b0e…1b23 at000b = ╱64╱d╱ // 0x1b19 @0xb
0x1b0e…1b23 at000c = ╱65╱e╱ // 0x1b1a @0xc
0x1b0e…1b23 at000d = ╱67╱g╱ // 0x1b1b @0xd
0x1b0e…1b23 at000e = ╱72╱r╱ // 0x1b1c @0xe
0x1b0e…1b23 at000f = ╱20╱…╱ // 0x1b1d @0xf
0x1b0e…1b23 at0010 = ╱20╱…╱ // 0x1b1e @0x10
0x1b0e…1b23 at0011 = ╱20╱…╱ // 0x1b1f @0x11
0x1b0e…1b23 at0012 = ╱3a╱:╱ // 0x1b20 @0x12
0x1b0e…1b23 at0013 = ╱22╱"╱ // 0x1b21 @0x13
0x1b0e…1b23 at0014 = EOL // 0x1b22 @0x14
0x1b0e…1b23 }
0x1b23…1b34 a281 2690 DSTYR=9
0x1b23…1b34 LineComalBcd {
0x1b23…1b34 ptr = 0xa281 // 0x1b23 @0x0
0x1b23…1b34 lno = 0x2690 // 0x1b25 @0x2
0x1b23…1b34 at0004 = ╱44╱D╱ // 0x1b27 @0x4
0x1b23…1b34 at0005 = ╱53╱S╱ // 0x1b28 @0x5
0x1b23…1b34 at0006 = ╱54╱T╱ // 0x1b29 @0x6
0x1b23…1b34 at0007 = ╱59╱Y╱ // 0x1b2a @0x7
0x1b23…1b34 at0008 = ╱52╱R╱ // 0x1b2b @0x8
0x1b23…1b34 at0009 = ╱dc╱=╱ // 0x1b2c @0x9
0x1b23…1b34 at000a = ╱39╱9╱ // 0x1b2d @0xa
0x1b23…1b34 at000b = ╱fe00009004╱ // 0x1b2e @0xb
0x1b23…1b34 at0010 = EOL // 0x1b33 @0x10
0x1b23…1b34 }
0x1b34…1b3a a287 2700 ELSE
0x1b34…1b3a LineComalBcd {
0x1b34…1b3a ptr = 0xa287 // 0x1b34 @0x0
0x1b34…1b3a lno = 0x2700 // 0x1b36 @0x2
0x1b34…1b3a at0004 = ╱9a╱ ELSE ╱ // 0x1b38 @0x4
0x1b34…1b3a at0005 = EOL // 0x1b39 @0x5
0x1b34…1b3a }
0x1b3a…1b4c a299 2710 IF TYPE=2 THEN
0x1b3a…1b4c LineComalBcd {
0x1b3a…1b4c ptr = 0xa299 // 0x1b3a @0x0
0x1b3a…1b4c lno = 0x2710 // 0x1b3c @0x2
0x1b3a…1b4c at0004 = ╱9c╱ IF ╱ // 0x1b3e @0x4
0x1b3a…1b4c at0005 = ╱54╱T╱ // 0x1b3f @0x5
0x1b3a…1b4c at0006 = ╱59╱Y╱ // 0x1b40 @0x6
0x1b3a…1b4c at0007 = ╱50╱P╱ // 0x1b41 @0x7
0x1b3a…1b4c at0008 = ╱45╱E╱ // 0x1b42 @0x8
0x1b3a…1b4c at0009 = ╱dc╱=╱ // 0x1b43 @0x9
0x1b3a…1b4c at000a = ╱32╱2╱ // 0x1b44 @0xa
0x1b3a…1b4c at000b = ╱fe00008002╱ // 0x1b45 @0xb
0x1b3a…1b4c at0010 = ╱b6╱ THEN ╱ // 0x1b4a @0x10
0x1b3a…1b4c at0011 = EOL // 0x1b4b @0x11
0x1b3a…1b4c }
0x1b4c…1b71 a2be 2720 EXEC KSØG(DEBNR2,ORD(DEBKGR$)-48)
0x1b4c…1b71 LineComalBcd {
0x1b4c…1b71 ptr = 0xa2be // 0x1b4c @0x0
0x1b4c…1b71 lno = 0x2720 // 0x1b4e @0x2
0x1b4c…1b71 at0004 = ╱9d╱ EXEC ╱ // 0x1b50 @0x4
0x1b4c…1b71 at0005 = ╱4b╱K╱ // 0x1b51 @0x5
0x1b4c…1b71 at0006 = ╱53╱S╱ // 0x1b52 @0x6
0x1b4c…1b71 at0007 = ╱5c╱Ø╱ // 0x1b53 @0x7
0x1b4c…1b71 at0008 = ╱47╱G╱ // 0x1b54 @0x8
0x1b4c…1b71 at0009 = ╱ed╱(╱ // 0x1b55 @0x9
0x1b4c…1b71 at000a = ╱44╱D╱ // 0x1b56 @0xa
0x1b4c…1b71 at000b = ╱45╱E╱ // 0x1b57 @0xb
0x1b4c…1b71 at000c = ╱42╱B╱ // 0x1b58 @0xc
0x1b4c…1b71 at000d = ╱4e╱N╱ // 0x1b59 @0xd
0x1b4c…1b71 at000e = ╱52╱R╱ // 0x1b5a @0xe
0x1b4c…1b71 at000f = ╱32╱2╱ // 0x1b5b @0xf
0x1b4c…1b71 at0010 = ╱ec╱,╱ // 0x1b5c @0x10
0x1b4c…1b71 at0011 = ╱cd╱ORD╱ // 0x1b5d @0x11
0x1b4c…1b71 at0012 = ╱ed╱(╱ // 0x1b5e @0x12
0x1b4c…1b71 at0013 = ╱44╱D╱ // 0x1b5f @0x13
0x1b4c…1b71 at0014 = ╱45╱E╱ // 0x1b60 @0x14
0x1b4c…1b71 at0015 = ╱42╱B╱ // 0x1b61 @0x15
0x1b4c…1b71 at0016 = ╱4b╱K╱ // 0x1b62 @0x16
0x1b4c…1b71 at0017 = ╱47╱G╱ // 0x1b63 @0x17
0x1b4c…1b71 at0018 = ╱52╱R╱ // 0x1b64 @0x18
0x1b4c…1b71 at0019 = ╱ef╱$╱ // 0x1b65 @0x19
0x1b4c…1b71 at001a = ╱ee╱)╱ // 0x1b66 @0x1a
0x1b4c…1b71 at001b = ╱e3╱-╱ // 0x1b67 @0x1b
0x1b4c…1b71 at001c = ╱34╱4╱ // 0x1b68 @0x1c
0x1b4c…1b71 at001d = ╱38╱8╱ // 0x1b69 @0x1d
0x1b4c…1b71 at001e = ╱fe0000c006╱ // 0x1b6a @0x1e
0x1b4c…1b71 at0023 = ╱ee╱)╱ // 0x1b6f @0x23
0x1b4c…1b71 at0024 = EOL // 0x1b70 @0x24
0x1b4c…1b71 }
0x1b71…1b87 a2d4 2730 EXEC KINDSLET(0)
0x1b71…1b87 LineComalBcd {
0x1b71…1b87 ptr = 0xa2d4 // 0x1b71 @0x0
0x1b71…1b87 lno = 0x2730 // 0x1b73 @0x2
0x1b71…1b87 at0004 = ╱9d╱ EXEC ╱ // 0x1b75 @0x4
0x1b71…1b87 at0005 = ╱4b╱K╱ // 0x1b76 @0x5
0x1b71…1b87 at0006 = ╱49╱I╱ // 0x1b77 @0x6
0x1b71…1b87 at0007 = ╱4e╱N╱ // 0x1b78 @0x7
0x1b71…1b87 at0008 = ╱44╱D╱ // 0x1b79 @0x8
0x1b71…1b87 at0009 = ╱53╱S╱ // 0x1b7a @0x9
0x1b71…1b87 at000a = ╱4c╱L╱ // 0x1b7b @0xa
0x1b71…1b87 at000b = ╱45╱E╱ // 0x1b7c @0xb
0x1b71…1b87 at000c = ╱54╱T╱ // 0x1b7d @0xc
0x1b71…1b87 at000d = ╱ed╱(╱ // 0x1b7e @0xd
0x1b71…1b87 at000e = ╱30╱0╱ // 0x1b7f @0xe
0x1b71…1b87 at000f = ╱fe00000000╱ // 0x1b80 @0xf
0x1b71…1b87 at0014 = ╱ee╱)╱ // 0x1b85 @0x14
0x1b71…1b87 at0015 = EOL // 0x1b86 @0x15
0x1b71…1b87 }
0x1b87…1b8d a2da 2740 ENDIF
0x1b87…1b8d LineComalBcd {
0x1b87…1b8d ptr = 0xa2da // 0x1b87 @0x0
0x1b87…1b8d lno = 0x2740 // 0x1b89 @0x2
0x1b87…1b8d at0004 = ╱9b╱ ENDIF ╱ // 0x1b8b @0x4
0x1b87…1b8d at0005 = EOL // 0x1b8c @0x5
0x1b87…1b8d }
0x1b8d…1b93 a2e0 2750 ENDIF
0x1b8d…1b93 LineComalBcd {
0x1b8d…1b93 ptr = 0xa2e0 // 0x1b8d @0x0
0x1b8d…1b93 lno = 0x2750 // 0x1b8f @0x2
0x1b8d…1b93 at0004 = ╱9b╱ ENDIF ╱ // 0x1b91 @0x4
0x1b8d…1b93 at0005 = EOL // 0x1b92 @0x5
0x1b8d…1b93 }
0x1b93…1ba5 a2f2 2760 IF CÆND<>2 THEN
0x1b93…1ba5 LineComalBcd {
0x1b93…1ba5 ptr = 0xa2f2 // 0x1b93 @0x0
0x1b93…1ba5 lno = 0x2760 // 0x1b95 @0x2
0x1b93…1ba5 at0004 = ╱9c╱ IF ╱ // 0x1b97 @0x4
0x1b93…1ba5 at0005 = ╱43╱C╱ // 0x1b98 @0x5
0x1b93…1ba5 at0006 = ╱5b╱Æ╱ // 0x1b99 @0x6
0x1b93…1ba5 at0007 = ╱4e╱N╱ // 0x1b9a @0x7
0x1b93…1ba5 at0008 = ╱44╱D╱ // 0x1b9b @0x8
0x1b93…1ba5 at0009 = ╱e1╱<>╱ // 0x1b9c @0x9
0x1b93…1ba5 at000a = ╱32╱2╱ // 0x1b9d @0xa
0x1b93…1ba5 at000b = ╱fe00008002╱ // 0x1b9e @0xb
0x1b93…1ba5 at0010 = ╱b6╱ THEN ╱ // 0x1ba3 @0x10
0x1b93…1ba5 at0011 = EOL // 0x1ba4 @0x11
0x1b93…1ba5 }
0x1ba5…1bab a2f8 2770 REPEAT
0x1ba5…1bab LineComalBcd {
0x1ba5…1bab ptr = 0xa2f8 // 0x1ba5 @0x0
0x1ba5…1bab lno = 0x2770 // 0x1ba7 @0x2
0x1ba5…1bab at0004 = ╱97╱ REPEAT ╱ // 0x1ba9 @0x4
0x1ba5…1bab at0005 = EOL // 0x1baa @0x5
0x1ba5…1bab }
0x1bab…1bbf a30c 2780 CURSOR 3,23
0x1bab…1bbf LineComalBcd {
0x1bab…1bbf ptr = 0xa30c // 0x1bab @0x0
0x1bab…1bbf lno = 0x2780 // 0x1bad @0x2
0x1bab…1bbf at0004 = ╱a1╱ CURSOR ╱ // 0x1baf @0x4
0x1bab…1bbf at0005 = ╱33╱3╱ // 0x1bb0 @0x5
0x1bab…1bbf at0006 = ╱fe0000c002╱ // 0x1bb1 @0x6
0x1bab…1bbf at000b = ╱ec╱,╱ // 0x1bb6 @0xb
0x1bab…1bbf at000c = ╱32╱2╱ // 0x1bb7 @0xc
0x1bab…1bbf at000d = ╱33╱3╱ // 0x1bb8 @0xd
0x1bab…1bbf at000e = ╱fe0000b805╱ // 0x1bb9 @0xe
0x1bab…1bbf at0013 = EOL // 0x1bbe @0x13
0x1bab…1bbf }
0x1bbf…1bfa a347 2790 PRINT "Kundegr (max 2 cifre)";BLANK$(1:49)
0x1bbf…1bfa LineComalBcd {
0x1bbf…1bfa ptr = 0xa347 // 0x1bbf @0x0
0x1bbf…1bfa lno = 0x2790 // 0x1bc1 @0x2
0x1bbf…1bfa at0004 = ╱92╱ PRINT ╱ // 0x1bc3 @0x4
0x1bbf…1bfa at0005 = ╱22╱"╱ // 0x1bc4 @0x5
0x1bbf…1bfa at0006 = ╱4b╱K╱ // 0x1bc5 @0x6
0x1bbf…1bfa at0007 = ╱75╱u╱ // 0x1bc6 @0x7
0x1bbf…1bfa at0008 = ╱6e╱n╱ // 0x1bc7 @0x8
0x1bbf…1bfa at0009 = ╱64╱d╱ // 0x1bc8 @0x9
0x1bbf…1bfa at000a = ╱65╱e╱ // 0x1bc9 @0xa
0x1bbf…1bfa at000b = ╱67╱g╱ // 0x1bca @0xb
0x1bbf…1bfa at000c = ╱72╱r╱ // 0x1bcb @0xc
0x1bbf…1bfa at000d = ╱20╱…╱ // 0x1bcc @0xd
0x1bbf…1bfa at000e = ╱20╱…╱ // 0x1bcd @0xe
0x1bbf…1bfa at000f = ╱20╱…╱ // 0x1bce @0xf
0x1bbf…1bfa at0010 = ╱20╱…╱ // 0x1bcf @0x10
0x1bbf…1bfa at0011 = ╱20╱…╱ // 0x1bd0 @0x11
0x1bbf…1bfa at0012 = ╱20╱…╱ // 0x1bd1 @0x12
0x1bbf…1bfa at0013 = ╱20╱…╱ // 0x1bd2 @0x13
0x1bbf…1bfa at0014 = ╱20╱…╱ // 0x1bd3 @0x14
0x1bbf…1bfa at0015 = ╱28╱(╱ // 0x1bd4 @0x15
0x1bbf…1bfa at0016 = ╱6d╱m╱ // 0x1bd5 @0x16
0x1bbf…1bfa at0017 = ╱61╱a╱ // 0x1bd6 @0x17
0x1bbf…1bfa at0018 = ╱78╱x╱ // 0x1bd7 @0x18
0x1bbf…1bfa at0019 = ╱20╱…╱ // 0x1bd8 @0x19
0x1bbf…1bfa at001a = ╱32╱2╱ // 0x1bd9 @0x1a
0x1bbf…1bfa at001b = ╱20╱…╱ // 0x1bda @0x1b
0x1bbf…1bfa at001c = ╱63╱c╱ // 0x1bdb @0x1c
0x1bbf…1bfa at001d = ╱69╱i╱ // 0x1bdc @0x1d
0x1bbf…1bfa at001e = ╱66╱f╱ // 0x1bdd @0x1e
0x1bbf…1bfa at001f = ╱72╱r╱ // 0x1bde @0x1f
0x1bbf…1bfa at0020 = ╱65╱e╱ // 0x1bdf @0x20
0x1bbf…1bfa at0021 = ╱29╱)╱ // 0x1be0 @0x21
0x1bbf…1bfa at0022 = ╱22╱"╱ // 0x1be1 @0x22
0x1bbf…1bfa at0023 = ╱eb╱;╱ // 0x1be2 @0x23
0x1bbf…1bfa at0024 = ╱42╱B╱ // 0x1be3 @0x24
0x1bbf…1bfa at0025 = ╱4c╱L╱ // 0x1be4 @0x25
0x1bbf…1bfa at0026 = ╱41╱A╱ // 0x1be5 @0x26
0x1bbf…1bfa at0027 = ╱4e╱N╱ // 0x1be6 @0x27
0x1bbf…1bfa at0028 = ╱4b╱K╱ // 0x1be7 @0x28
0x1bbf…1bfa at0029 = ╱ef╱$╱ // 0x1be8 @0x29
0x1bbf…1bfa at002a = ╱ed╱(╱ // 0x1be9 @0x2a
0x1bbf…1bfa at002b = ╱31╱1╱ // 0x1bea @0x2b
0x1bbf…1bfa at002c = ╱fe00008001╱ // 0x1beb @0x2c
0x1bbf…1bfa at0031 = ╱f0╱:╱ // 0x1bf0 @0x31
0x1bbf…1bfa at0032 = ╱34╱4╱ // 0x1bf1 @0x32
0x1bbf…1bfa at0033 = ╱39╱9╱ // 0x1bf2 @0x33
0x1bbf…1bfa at0034 = ╱fe0000c406╱ // 0x1bf3 @0x34
0x1bbf…1bfa at0039 = ╱ee╱)╱ // 0x1bf8 @0x39
0x1bbf…1bfa at003a = EOL // 0x1bf9 @0x3a
0x1bbf…1bfa }
0x1bfa…1c0f a35c 2800 CURSOR 13,23
0x1bfa…1c0f LineComalBcd {
0x1bfa…1c0f ptr = 0xa35c // 0x1bfa @0x0
0x1bfa…1c0f lno = 0x2800 // 0x1bfc @0x2
0x1bfa…1c0f at0004 = ╱a1╱ CURSOR ╱ // 0x1bfe @0x4
0x1bfa…1c0f at0005 = ╱31╱1╱ // 0x1bff @0x5
0x1bfa…1c0f at0006 = ╱33╱3╱ // 0x1c00 @0x6
0x1bfa…1c0f at0007 = ╱fe0000d004╱ // 0x1c01 @0x7
0x1bfa…1c0f at000c = ╱ec╱,╱ // 0x1c06 @0xc
0x1bfa…1c0f at000d = ╱32╱2╱ // 0x1c07 @0xd
0x1bfa…1c0f at000e = ╱33╱3╱ // 0x1c08 @0xe
0x1bfa…1c0f at000f = ╱fe0000b805╱ // 0x1c09 @0xf
0x1bfa…1c0f at0014 = EOL // 0x1c0e @0x14
0x1bfa…1c0f }
0x1c0f…1c18 a365 2810 INPUT KG$
0x1c0f…1c18 LineComalBcd {
0x1c0f…1c18 ptr = 0xa365 // 0x1c0f @0x0
0x1c0f…1c18 lno = 0x2810 // 0x1c11 @0x2
0x1c0f…1c18 at0004 = ╱91╱ INPUT ╱ // 0x1c13 @0x4
0x1c0f…1c18 at0005 = ╱4b╱K╱ // 0x1c14 @0x5
0x1c0f…1c18 at0006 = ╱47╱G╱ // 0x1c15 @0x6
0x1c0f…1c18 at0007 = ╱ef╱$╱ // 0x1c16 @0x7
0x1c0f…1c18 at0008 = EOL // 0x1c17 @0x8
0x1c0f…1c18 }
0x1c18…1c29 a376 2820 EXEC NRTEST(KG$)
0x1c18…1c29 LineComalBcd {
0x1c18…1c29 ptr = 0xa376 // 0x1c18 @0x0
0x1c18…1c29 lno = 0x2820 // 0x1c1a @0x2
0x1c18…1c29 at0004 = ╱9d╱ EXEC ╱ // 0x1c1c @0x4
0x1c18…1c29 at0005 = ╱4e╱N╱ // 0x1c1d @0x5
0x1c18…1c29 at0006 = ╱52╱R╱ // 0x1c1e @0x6
0x1c18…1c29 at0007 = ╱54╱T╱ // 0x1c1f @0x7
0x1c18…1c29 at0008 = ╱45╱E╱ // 0x1c20 @0x8
0x1c18…1c29 at0009 = ╱53╱S╱ // 0x1c21 @0x9
0x1c18…1c29 at000a = ╱54╱T╱ // 0x1c22 @0xa
0x1c18…1c29 at000b = ╱ed╱(╱ // 0x1c23 @0xb
0x1c18…1c29 at000c = ╱4b╱K╱ // 0x1c24 @0xc
0x1c18…1c29 at000d = ╱47╱G╱ // 0x1c25 @0xd
0x1c18…1c29 at000e = ╱ef╱$╱ // 0x1c26 @0xe
0x1c18…1c29 at000f = ╱ee╱)╱ // 0x1c27 @0xf
0x1c18…1c29 at0010 = EOL // 0x1c28 @0x10
0x1c18…1c29 }
0x1c29…1c65 a3b2 2830 UNTIL (P>0 AND TEST2=0 AND P<=MKGR) OR (P=-1 AND CÆND=1)
0x1c29…1c65 LineComalBcd {
0x1c29…1c65 ptr = 0xa3b2 // 0x1c29 @0x0
0x1c29…1c65 lno = 0x2830 // 0x1c2b @0x2
0x1c29…1c65 at0004 = ╱98╱ UNTIL ╱ // 0x1c2d @0x4
0x1c29…1c65 at0005 = ╱ed╱(╱ // 0x1c2e @0x5
0x1c29…1c65 at0006 = ╱50╱P╱ // 0x1c2f @0x6
0x1c29…1c65 at0007 = ╱de╱>╱ // 0x1c30 @0x7
0x1c29…1c65 at0008 = ╱30╱0╱ // 0x1c31 @0x8
0x1c29…1c65 at0009 = ╱fe00000000╱ // 0x1c32 @0x9
0x1c29…1c65 at000e = ╱da╱ AND ╱ // 0x1c37 @0xe
0x1c29…1c65 at000f = ╱54╱T╱ // 0x1c38 @0xf
0x1c29…1c65 at0010 = ╱45╱E╱ // 0x1c39 @0x10
0x1c29…1c65 at0011 = ╱53╱S╱ // 0x1c3a @0x11
0x1c29…1c65 at0012 = ╱54╱T╱ // 0x1c3b @0x12
0x1c29…1c65 at0013 = ╱32╱2╱ // 0x1c3c @0x13
0x1c29…1c65 at0014 = ╱dc╱=╱ // 0x1c3d @0x14
0x1c29…1c65 at0015 = ╱30╱0╱ // 0x1c3e @0x15
0x1c29…1c65 at0016 = ╱fe00000000╱ // 0x1c3f @0x16
0x1c29…1c65 at001b = ╱da╱ AND ╱ // 0x1c44 @0x1b
0x1c29…1c65 at001c = ╱50╱P╱ // 0x1c45 @0x1c
0x1c29…1c65 at001d = ╱df╱<=╱ // 0x1c46 @0x1d
0x1c29…1c65 at001e = ╱4d╱M╱ // 0x1c47 @0x1e
0x1c29…1c65 at001f = ╱4b╱K╱ // 0x1c48 @0x1f
0x1c29…1c65 at0020 = ╱47╱G╱ // 0x1c49 @0x20
0x1c29…1c65 at0021 = ╱52╱R╱ // 0x1c4a @0x21
0x1c29…1c65 at0022 = ╱ee╱)╱ // 0x1c4b @0x22
0x1c29…1c65 at0023 = ╱db╱ OR ╱ // 0x1c4c @0x23
0x1c29…1c65 at0024 = ╱ed╱(╱ // 0x1c4d @0x24
0x1c29…1c65 at0025 = ╱50╱P╱ // 0x1c4e @0x25
0x1c29…1c65 at0026 = ╱dc╱=╱ // 0x1c4f @0x26
0x1c29…1c65 at0027 = ╱e9╱-╱ // 0x1c50 @0x27
0x1c29…1c65 at0028 = ╱31╱1╱ // 0x1c51 @0x28
0x1c29…1c65 at0029 = ╱fe00008001╱ // 0x1c52 @0x29
0x1c29…1c65 at002e = ╱da╱ AND ╱ // 0x1c57 @0x2e
0x1c29…1c65 at002f = ╱43╱C╱ // 0x1c58 @0x2f
0x1c29…1c65 at0030 = ╱5b╱Æ╱ // 0x1c59 @0x30
0x1c29…1c65 at0031 = ╱4e╱N╱ // 0x1c5a @0x31
0x1c29…1c65 at0032 = ╱44╱D╱ // 0x1c5b @0x32
0x1c29…1c65 at0033 = ╱dc╱=╱ // 0x1c5c @0x33
0x1c29…1c65 at0034 = ╱31╱1╱ // 0x1c5d @0x34
0x1c29…1c65 at0035 = ╱fe00008001╱ // 0x1c5e @0x35
0x1c29…1c65 at003a = ╱ee╱)╱ // 0x1c63 @0x3a
0x1c29…1c65 at003b = EOL // 0x1c64 @0x3b
0x1c29…1c65 }
0x1c65…1c6b a3b8 2840 ENDIF
0x1c65…1c6b LineComalBcd {
0x1c65…1c6b ptr = 0xa3b8 // 0x1c65 @0x0
0x1c65…1c6b lno = 0x2840 // 0x1c67 @0x2
0x1c65…1c6b at0004 = ╱9b╱ ENDIF ╱ // 0x1c69 @0x4
0x1c65…1c6b at0005 = EOL // 0x1c6a @0x5
0x1c65…1c6b }
0x1c6b…1c80 a3cd 2850 CURSOR 16,10
0x1c6b…1c80 LineComalBcd {
0x1c6b…1c80 ptr = 0xa3cd // 0x1c6b @0x0
0x1c6b…1c80 lno = 0x2850 // 0x1c6d @0x2
0x1c6b…1c80 at0004 = ╱a1╱ CURSOR ╱ // 0x1c6f @0x4
0x1c6b…1c80 at0005 = ╱31╱1╱ // 0x1c70 @0x5
0x1c6b…1c80 at0006 = ╱36╱6╱ // 0x1c71 @0x6
0x1c6b…1c80 at0007 = ╱fe00008005╱ // 0x1c72 @0x7
0x1c6b…1c80 at000c = ╱ec╱,╱ // 0x1c77 @0xc
0x1c6b…1c80 at000d = ╱31╱1╱ // 0x1c78 @0xd
0x1c6b…1c80 at000e = ╱30╱0╱ // 0x1c79 @0xe
0x1c6b…1c80 at000f = ╱fe0000a004╱ // 0x1c7a @0xf
0x1c6b…1c80 at0014 = EOL // 0x1c7f @0x14
0x1c6b…1c80 }
0x1c80…1c93 a3e8 2860 IF P>0 AND CÆND<>
0x1c80…1c93 LineComalBcd {
0x1c80…1c93 ptr = 0xa3e8 // 0x1c80 @0x0
0x1c80…1c93 lno = 0x2860 // 0x1c82 @0x2
0x1c80…1c93 at0004 = ╱9c╱ IF ╱ // 0x1c84 @0x4
0x1c80…1c93 at0005 = ╱50╱P╱ // 0x1c85 @0x5
0x1c80…1c93 at0006 = ╱de╱>╱ // 0x1c86 @0x6
0x1c80…1c93 at0007 = ╱30╱0╱ // 0x1c87 @0x7
0x1c80…1c93 at0008 = ╱fe00000000╱ // 0x1c88 @0x8
0x1c80…1c93 at000d = ╱da╱ AND ╱ // 0x1c8d @0xd
0x1c80…1c93 at000e = ╱43╱C╱ // 0x1c8e @0xe
0x1c80…1c93 at000f = ╱5b╱Æ╱ // 0x1c8f @0xf
0x1c80…1c93 at0010 = ╱4e╱N╱ // 0x1c90 @0x10
0x1c80…1c93 at0011 = ╱44╱D╱ // 0x1c91 @0x11
0x1c80…1c93 at0012 = ╱e1╱<>╱ // 0x1c92 @0x12
0x1c80…1c93 }