|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7584 (0x1da0)
Types: SPC/1-COMAL-BCD
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_01, UNKNOWN_TOKEN_02, UNKNOWN_TOKEN_03, UNKNOWN_TOKEN_04, UNKNOWN_TOKEN_05, UNKNOWN_TOKEN_06, UNKNOWN_TOKEN_08, UNKNOWN_TOKEN_11, UNKNOWN_TOKEN_12, UNKNOWN_TOKEN_14, UNKNOWN_TOKEN_18, UNKNOWN_TOKEN_19, UNKNOWN_TOKEN_80, UNKNOWN_TOKEN_d0, UNKNOWN_TOKEN_f4
Names: »DEBVEDL«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »DEBVEDL«
8701 ╱00╱ DIM K1 $ ( 17 ) , K2 $ ( 17 ) , DEBNAVN $ ( 25 ) , DSALDO1 $ ( 12 ) , DEBKGR $ ( 1 ╱80╱ ╱01╱ ) , UD2 $ ( 14 ) , A $ ( 1 ) 0110 DIM DSALDO2 $ ( 12 ) , DSALDO3 $ ( 12 ) , DSALDMMO4 $ ( 12 ) , DEBLK $ ( 1 ) , DEBGADE $ ( 25 ) , N $ ( 6 ) 0120 DIM T2 ( 9 ) , BLANMMK $ ( 77 ) , TAL4 $ ( 14 ) , TAH $ ( 12 ) , DEBTLF $ ( 9 ) , DEBBY $ ( 20 ) , VTABMM2 ( 5 ) 0130 DIM RES $ ( 14 ) , ]RK\B $ ( 12 ) , MDNK\B $ ( 12 ) , DSALDI $ ( 12MM ) , LK $ ( 3 ) , KG $ ( 3 ) , KTN $ ( 6 ) 0140 DIM PNR $ ( 6 ) , TY $ ( 1 ) , OP1 $ ( 12 TAN ╱04╱ ) , OP2 $ ( 12 ) , TA $ ( 12 ) , TB $ ( 14 ) , T]RK\B $ ( 12 ) , DAT $ ( 8 ) 4d89 ╱01╱ P DIM DEBGADE1 $ ( 25 ) , DEBTLF1 $ ( 9 ) , BLB2 $ ( 12 ) , UBLB2 $ ( 14 ) , UD1 $ ( 1MM4 ) , STREG $ ( 71 ) 0160 DIM UD3 $ ( 14 ) , UD4 $ ( 14 ) , K3 $ ( 17 ) , K4 $ ( 17 DEF ╱05╱ ) , K5 $ ( 17 ) , K6 $ ( 17 ) , T1 ( 9 ) , LAND $ ( 9 , 12 ) 0170 PROC CALC ( ARMMT , B1 , B2 , ES ) 0180 OP1 $ = B1 $ ; OP2 $ = B2 $ ; RES $ = ES $ ; SI = 0 ; FLAG = 0 0190 CALL "P641MM210:REGN" 0200 ES $ = RES $ 0210 IF FLAG THEN STOP 0220 ENDPROC 0230 PROC FEJL ( NR1 , NR2 , NR3 ) 0240 IF STATUS ( NR3 $ ) >< MM0 THEN 0250 PRINT STATUS ( NR3 $ ) , NR1 , NR2 , NR3 $ 0260 STOP 0270 ENDIF 0280 ENDPROC 0290 PROC INDTAB ( T , MANTAL , K10 ) MM 0300 J = MANTAL DIV 32 + 1 0310 FOR I = J TO MANTAL DIV 4 + J - 1 0320 H = ( I - J ) * 4 ╱80╱ ╱03╱ + 1 ; J2 = H + 1 ; J3 = H + 2 ; J4 = H + 3 0330 GET K10 $ , I : T ( H , 1 ) , T ( H , 2 ╱80╱ ╱02╱ ) , T ( J2 , 1 ) , T ( J2 , 2 ) , T ( J3 , 1 ) , T ( J3 , 2 ) , T ( J4 , 1 ) , T ( J4 , 2 ╱80╱ ╱02╱ ) 0340 EXEC FEJL ( 1 , 1 , K10 $ ) 0350 NEXT I 0360 ENDPROC 0370 PROC UDTAB ( U , MANTAL1 , K9 ) 034d M ╱80╱ J = MANTAL1 DIV 32 + 1 0390 FOR I = 1 TO J - 1 0400 H = ( I - 1 ) * 32 + 1 ╱80╱ ╱01╱ ; J1 = H + 4 ; J2 = H + 8 ; J3 = H + 12 ; J4 = H + 16 ; J5 = H + 20 ; J6 = H + 24 TAN ╱05╱ ; J7 = H + 28 0410 PUT K9 $ , I : U ( H , 1 ) , U ( J1 , 1 ) , U ( J2 , 1 ) , U ( J3 , 1 ) MM , U ( J4 , 1 ) , U ( J5 , 1 ) , U ( J6 , 1 ) , U ( J7 , 1 ) 0420 EXEC FEJL ( 2 , 1 , MMK9 $ ) 0430 NEXT I 0440 FOR I = J TO MANTAL1 DIV 4 + J - 1 0450 H = ( I - J ) * 4 + 1 ; J1 = H + 1MM ; J2 = H + 2 ; J3 = H + 3 0460 PUT K9 $ , I : U ( H , 1 ) , U ( H , 2 ) , U ( J1 , 1 ) MM , U ( J1 , 2 ) , U ( J2 , 1 ) , U ( J2 , 2 ) , U ( J3 , 1 ) , U ( J3 , 2 ) 0470 EXEC FEJL ( 2MM , 2 , K9 $ ) 0480 NEXT I 0490 ENDPROC 0500 PROC FINDPOST ( TAB1 , MANT1 , N\GL1 , PIL3 ) 0510 PIL1 = MMMANT1 DIV 2 ; PIL3 = PIL1 ; CEKS = 1 0520 REPEAT 0530 IF N\GL1 = TAB1 ( PIL3 , 1 ) THEN 0540 CEMMKS = 0 0550 ELSE 0560 IF PIL1 = 1 THEN PIL1 = 0 0570 PIL1 = INT ( ( PIL1 + 1 ) / 2 ) MM 0580 IF N\GL1 > TAB1 ( PIL3 , 1 ) THEN 0590 PIL3 = PIL3 + PIL1 0600 ELSE 0610 PIL3 = PIL3 - PIL1 4d4d ╱06╱ … ENDIF 0630 IF PIL3 < 1 THEN PIL3 = 1 0640 IF PIL3 > MANT1 THEN PIL3 = MANT1 0650 ENDIF 0660 UNTIL CEKS = 0MM OR PIL1 = 0 0670 ENDPROC 0680 PROC SLETDPOST ( N\GLE3 ) 0690 EXEC FINDPOST ( DTAB , MDANTAL , N\GMMLE3 , DPIL3 ) 0700 IF CEKS = 1 THEN STOP 0710 DEBNR = 0 0720 DEBNAVN $ = BLANK $ ( 1 : 25 SGN ╱05╱ ) 0730 DSALDO1 $ = BLANK $ ( 1 : 12 ) 0740 DSALDO2 $ = BLANK $ ( 1 : 12 ) MM 0750 DSALDO3 $ = BLANK $ ( 1 : 12 ) 0760 DSALDO4 $ = BLANK $ ( 1 : 12 ) 0770 MM]RK\B $ = BLANK $ ( 1 : 12 ) 0780 MDNK\B $ = BLANK $ ( 1 : 12 ) 0790 DEBKGR $ = MM"0" 0800 DEBPOSTNR = 0 0810 DEBLK $ = "0" 0820 DEBGADE $ = BLANK $ ( 1 : 25 ) 4d91 ╱08╱ 0DEBTLF $ = BLANK $ ( 1 : 9 ) 0840 HPOST = 0 0850 HKUNDE = 0 0860 DEBBYMM $ = BLANK $ ( 1 : 20 ) 0870 EXEC GEMDPOST 0880 EXEC SLETPOST ( DTAB , ADEB , N\GLE3 , DPIL3 ) 7492 ╱08╱ RESTORE ENDPROC 0900 PROC INDS[T ( TAB2 , ANTAL2 , N\GL2 , PIL4 ) 0910 IF CEKS = 1 THEN 0920 POSTNR = TAB2 ( AMMNTAL2 + 1 , 2 ) 0930 IF N\GL2 > TAB2 ( PIL4 , 1 ) AND TAB2 ( PIL4 , 1 ) >< 1000000 ╱f4╱ ╱14╱ THEN PIL4 = PIL4 + 1 0940 FOR J = ANTAL2 + 1 TO PIL4 + 1 STEP - 1 0950 TAB2 ( J , 1 ╱80╱ ╱01╱ ) = TAB2 ( J - 1 , 1 ) 0960 TAB2 ( J , 2 ) = TAB2 ( J - 1 , 2 ) 0970 NEXT J 094d M ╱80╱ TAB2 ( PIL4 , 1 ) = N\GL2 0990 TAB2 ( PIL4 , 2 ) = POSTNR 1000 ANTAL2 = ANTAL2 + 1M ╱01╱ 1010 ENDIF 1020 ENDPROC 1030 PROC SLETPOST ( TAB3 , ANTAL3 , N\GL3 , PIL5 ) 1040 IF CEKS = 0 THEN 1050 POSMMTNR = TAB3 ( PIL5 , 2 ) 1060 FOR I = PIL5 TO ANTAL3 1070 TAB3 ( I , 1 ) = TAB3 ( I + 1 , 1 ╱80╱ ╱01╱ ) 1080 TAB3 ( I , 2 ) = TAB3 ( I + 1 , 2 ) 1090 NEXT I 1100 TAB3 ( ANTAL3 , 1 ) = MM1000000 1110 TAB3 ( ANTAL3 , 2 ) = POSTNR 1120 ANTAL3 = ANTAL3 - 1 1130 ENDIF 4d4d ╱11╱ @ ENDPROC 1150 PROC HENTDPOST 1160 S = DTAB ( DPIL3 , 2 ) 1170 GET K3 $ , S : DEBNR , DEBNAVN $ , DSALDO1MM $ , DEBKGR $ 1180 EXEC FEJL ( 8 , 2 , K3 $ ) 1190 IF DEBNR >< DTAB ( DPIL3 , 1 ) THEN STOP 1200 GET KMM3 $ , S + 1 : DSALDO2 $ , DSALDO3 $ , DSALDO4 $ , DEBPOSTNR , DEBLK $ 1210 EXEC FEJL ( 8 , 3 TAN ╱02╱ , K3 $ ) 1220 GET K3 $ , S + 2 : DEBGADE $ , DEBTLF $ , HPOST , HKUNDE 1230 EXEC FEJL ( 8 , 4 ╱80╱ ╱03╱ , K3 $ ) 1240 GET K3 $ , S + 3 : DEBBY $ , ]RK\B $ , MDNK\B $ 1250 EXEC FEJL ( 8 , 5 , K3 $ ) aa96 ╱12╱ ` ENDPROC 1270 PROC GEMDPOST 1280 S = DTAB ( DPIL3 , 2 ) 1290 PUT K3 $ , S : DEBNR , DEBNAVN $ , DSALDOMM1 $ , DEBKGR $ 1300 EXEC FEJL ( 9 , 3 , K3 $ ) 1310 PUT K3 $ , S + 1 : DSALDO2 $ , DSALDO3 $ , DMMSALDO4 $ , DEBPOSTNR , DEBLK $ 1320 EXEC FEJL ( 9 , 4 , K3 $ ) 1330 PUT K3 $ , S + 2 : DEBGAMMDE $ , DEBTLF $ , HPOST , HKUNDE 1340 EXEC FEJL ( 9 , 4 , K3 $ ) 1350 PUT K3 $ , S + 3 : DEBBYMM $ , ]RK\B $ , MDNK\B $ 1360 EXEC FEJL ( 9 , 5 , K3 $ ) 1370 ENDPROC 1380 PROC DINDTAST ( DSTYR , C[ND , MMDEBNR2 ) 1390 IF C[ND >< 1 THEN 1400 CLEAR 1410 CURSOR 21 , 1 1420 PRINT "Kundeoplysninger" 4d98 ╱14╱ 0 EXEC OVERSKRIFT 1440 CURSOR 2 , 3 1450 PRINT "1:Kundenr………:" ; DEBNR2 1460 ENDIF 1470 REPEAT 144d M ╱80╱ CASE DSTYR OF 1490 STOP 1500 WHEN 2 1510 IF C[ND >< 1 THEN 1520 CURSOR 2 , 4 1530 PRINT "2:NavMMn………………:" 1540 DSTYR = 3 1550 ENDIF 1560 IF C[ND >< 2 THEN 1570 CURSOR 3 , 23 1580 PRINT "MMNavn" ; BLANK $ ( 1 : 33 ) ; "(max…25…tegn)" ; BLANK $ ( 1 : 26 ) 1590 CURSOR 13 ╱d0╱ ╱04╱ , 23 1600 INPUT DEBNAVN $ 1610 ENDIF 1620 CURSOR 16 , 4 1630 PRINT BLANK $ ( 1 : 25M ╱05╱ ) 1640 CURSOR 16 , 4 1650 PRINT DEBNAVN $ 1660 WHEN 3 1670 IF C[ND >< 1 THEN 1680 CURSOR 2 ╱80╱ ╱02╱ , 5 1690 PRINT "3:Gade………………:" 1700 DSTYR = 4 1710 ENDIF 1720 IF C[ND >< 2 THEN 1730 CURSOR MM3 , 23 1740 PRINT "Gade" ; BLANK $ ( 1 : 33 ) ; "(max…25…tegn)" ; BLANK $ ( 1 ╱80╱ ╱01╱ : 26 ) 1750 CURSOR 13 , 23 1760 INPUT DEBGADE $ 1770 ENDIF 1780 CURSOR 16 , 5 1790 MM PRINT BLANK $ ( 1 : 25 ) 1800 CURSOR 16 , 5 1810 PRINT DEBGADE $ 1820 WHEN 4 1830 IF CMM[ND >< 1 THEN 1840 CURSOR 2 , 6 1850 PRINT "4:Postnr…………:" 1860 DSTYR = 5 1870 ENDIF 4d4d ╱18╱ ╱80╱ IF C[ND >< 2 THEN 1890 REPEAT 1900 CURSOR 3 , 23 1910 PRINT "Postnr" ; BLANK $ ( 1 : 12MM ) ; "(max…6…tegn)" ; BLANK $ ( 1 : 45 ) 1920 CURSOR 13 , 23 1930 INPUT PNR $ 1940 EXEC NMMRTEST ( PNR $ ) 1950 UNTIL ( ( L > 3 AND L < 7 ) OR ( P = - 1 AND C[ND = 1 ) ) AND TEST2 = 0 4d9c ╱19╱ ` IF P >< - 1 THEN DEBPOSTNR = P 1970 ENDIF 1980 CURSOR 16 , 6 1990 PRINT BLANK $ ( 1 : 6MM ) 2000 CURSOR 16 , 6 2010 PRINT DEBPOSTNR 2020 WHEN 5 2030 IF C[ND >< 1 THEN 2040 CURSOR 2 ╱80╱ ╱02╱ , 7 2050 PRINT "5:By……………………:" 2060 DSTYR = 6 2070 ENDIF 2080 IF C[ND >< 2 THEN 2090 CURSOR MM3 , 23 2100 PRINT "By" ; BLANK $ ( 1 : 30 ) ; "(max…20…tegn)" ; BLANK $ ( 1MM : 31 ) 2110 CURSOR 13 , 23 2120 INPUT DEBBY $ 2130 ENDIF 2140 CURSOR 16 , 7 2150 PRINT BLAMMNK $ ( 1 : 20 ) 2160 CURSOR 16 , 7 2170 PRINT DEBBY $ 2180 WHEN 6 2190 IF C[ND >< 1 ╱80╱ ╱01╱ THEN 2200 CURSOR 2 , 8 2210 PRINT "6:Landekode…:……………Land:" 2220 DSTYR = 7 2230 MM ENDIF 2240 IF C[ND >< 2 THEN 2250 REPEAT 2260 CURSOR 3 , 23 2270 PRINT "Landekode" ; BLANK $ ( 1 : MM9 ) ; "0:for…Danmark,max…2…cifre)" ; BLANK $ ( 1 : 30 ) 2280 CURSOR 13 , 23 STEP ╱05╱ 2290 INPUT LK $ 2300 EXEC NRTEST ( LK $ ) 2310 UNTIL ( P > - 1 AND P < 10 AND TEST2 = 0 ) OR ( P = - 1 ╱80╱ ╱01╱ AND C[ND = 1 ) 2320 ENDIF 2330 CURSOR 16 , 8 2340 PRINT BLANK $ ( 1 : 3 ) 2350 CURSOR 27MM , 8 2360 PRINT BLANK $ ( 1 : 15 ) 2370 CURSOR 16 , 8 2380 IF P < 10 AND CMM[ND >< 2 THEN 2390 DEBLK $ = CHR ( P + 48 ) 2400 ENDIF 2410 P = ORD ( DEBLK $ ) - 48 2420 PRINT USING "###"MM : P 2430 CURSOR 27 , 8 2440 IF P = 0 THEN 2450 PRINT "Danmark" 2460 ELSE 2470 PRINT LAND $ ( P ) 2480 MM ENDIF 2490 WHEN 7 2500 IF C[ND >< 1 THEN 2510 CURSOR 2 , 9 2520 PRINT "7:Telefon………:" 2530 MMDSTYR = 8 2540 ENDIF 2550 IF C[ND >< 2 THEN 2560 CURSOR 3 , 23 2570 PRINT "Telefon" ; BLANKMM $ ( 1 : 14 ) ; "(max…9…tegn)" ; BLANK $ ( 1 : 44 ) 2580 CURSOR 13 , 23 d2a1 % RESTORE INPUT DEBTLF $ 2600 ENDIF 2610 CURSOR 16 , 9 2620 PRINT BLANK $ ( 1 : 9 ) 2630 CURSOR 16M ╱05╱ , 9 2640 PRINT DEBTLF $ 2650 WHEN 8 2660 IF C[ND >< 1 THEN 2670 CURSOR 2 , 10 2680 MM PRINT "8:Kundegr………:" 2690 DSTYR = 9 2700 ELSE 2710 IF TYPE = 2 THEN 2720 EXEC KS\G ( DEBNR2 , ORD ( MMDEBKGR $ ) - 48 ) 2730 EXEC KINDSLET ( 0 ) 2740 ENDIF 2750 ENDIF 2760 IF C[ND >< 2 THEN 2770 REPEAT 4da3 ' ╱80╱ CURSOR 3 , 23 2790 PRINT "Kundegr……………………(max…2…cifre)" ; BLANK $ ( 1 : 49 ) MM 2800 CURSOR 13 , 23 2810 INPUT KG $ 2820 EXEC NRTEST ( KG $ ) 2830 UNTIL ( P > 0 AND TEST2 = 0 AND PMM =< MKGR ) OR ( P = - 1 AND C[ND = 1 ) 2840 ENDIF 2850 CURSOR 16 , 10 2860 IF P > 0 AND C[ND >< Mccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
0x0000…006f (0,) b94d 8701 ╱00╱ DIM K1 $ ( 17 ) , K2 $ ( 17 ) , DEBNAVN $ ( 25 ) , DSALDO1 $ ( 12 ) , DEBKGR $ ( 1 ╱80╱ ╱01╱ ) , UD2 $ ( 14 ) , A $ ( 1 )
0x0000…006f LineComalBcd {
0x0000…006f ptr = 0xb94d // 0x0 @0x0
0x0000…006f lno = 0x8701 // 0x2 @0x2
0x0000…006f at0004 = ╱00╱ // 0x4 @0x4
0x0000…006f at0005 = ╱87╱ DIM ╱ // 0x5 @0x5
0x0000…006f at0006 = ╱4b╱K╱ // 0x6 @0x6
0x0000…006f at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…006f at0008 = ╱ef╱ $ ╱ // 0x8 @0x8
0x0000…006f at0009 = ╱ed╱ ( ╱ // 0x9 @0x9
0x0000…006f at000a = ╱31╱1╱ // 0xa @0xa
0x0000…006f at000b = ╱37╱7╱ // 0xb @0xb
0x0000…006f at000c = ╱fe00008805╱ // 0xc @0xc
0x0000…006f at0011 = ╱ee╱ ) ╱ // 0x11 @0x11
0x0000…006f at0012 = ╱ec╱ , ╱ // 0x12 @0x12
0x0000…006f at0013 = ╱4b╱K╱ // 0x13 @0x13
0x0000…006f at0014 = ╱32╱2╱ // 0x14 @0x14
0x0000…006f at0015 = ╱ef╱ $ ╱ // 0x15 @0x15
0x0000…006f at0016 = ╱ed╱ ( ╱ // 0x16 @0x16
0x0000…006f at0017 = ╱31╱1╱ // 0x17 @0x17
0x0000…006f at0018 = ╱37╱7╱ // 0x18 @0x18
0x0000…006f at0019 = ╱fe00008805╱ // 0x19 @0x19
0x0000…006f at001e = ╱ee╱ ) ╱ // 0x1e @0x1e
0x0000…006f at001f = ╱ec╱ , ╱ // 0x1f @0x1f
0x0000…006f at0020 = ╱44╱D╱ // 0x20 @0x20
0x0000…006f at0021 = ╱45╱E╱ // 0x21 @0x21
0x0000…006f at0022 = ╱42╱B╱ // 0x22 @0x22
0x0000…006f at0023 = ╱4e╱N╱ // 0x23 @0x23
0x0000…006f at0024 = ╱41╱A╱ // 0x24 @0x24
0x0000…006f at0025 = ╱56╱V╱ // 0x25 @0x25
0x0000…006f at0026 = ╱4e╱N╱ // 0x26 @0x26
0x0000…006f at0027 = ╱ef╱ $ ╱ // 0x27 @0x27
0x0000…006f at0028 = ╱ed╱ ( ╱ // 0x28 @0x28
0x0000…006f at0029 = ╱32╱2╱ // 0x29 @0x29
0x0000…006f at002a = ╱35╱5╱ // 0x2a @0x2a
0x0000…006f at002b = ╱fe0000c805╱ // 0x2b @0x2b
0x0000…006f at0030 = ╱ee╱ ) ╱ // 0x30 @0x30
0x0000…006f at0031 = ╱ec╱ , ╱ // 0x31 @0x31
0x0000…006f at0032 = ╱44╱D╱ // 0x32 @0x32
0x0000…006f at0033 = ╱53╱S╱ // 0x33 @0x33
0x0000…006f at0034 = ╱41╱A╱ // 0x34 @0x34
0x0000…006f at0035 = ╱4c╱L╱ // 0x35 @0x35
0x0000…006f at0036 = ╱44╱D╱ // 0x36 @0x36
0x0000…006f at0037 = ╱4f╱O╱ // 0x37 @0x37
0x0000…006f at0038 = ╱31╱1╱ // 0x38 @0x38
0x0000…006f at0039 = ╱ef╱ $ ╱ // 0x39 @0x39
0x0000…006f at003a = ╱ed╱ ( ╱ // 0x3a @0x3a
0x0000…006f at003b = ╱31╱1╱ // 0x3b @0x3b
0x0000…006f at003c = ╱32╱2╱ // 0x3c @0x3c
0x0000…006f at003d = ╱fe0000c004╱ // 0x3d @0x3d
0x0000…006f at0042 = ╱ee╱ ) ╱ // 0x42 @0x42
0x0000…006f at0043 = ╱ec╱ , ╱ // 0x43 @0x43
0x0000…006f at0044 = ╱44╱D╱ // 0x44 @0x44
0x0000…006f at0045 = ╱45╱E╱ // 0x45 @0x45
0x0000…006f at0046 = ╱42╱B╱ // 0x46 @0x46
0x0000…006f at0047 = ╱4b╱K╱ // 0x47 @0x47
0x0000…006f at0048 = ╱47╱G╱ // 0x48 @0x48
0x0000…006f at0049 = ╱52╱R╱ // 0x49 @0x49
0x0000…006f at004a = ╱ef╱ $ ╱ // 0x4a @0x4a
0x0000…006f at004b = ╱ed╱ ( ╱ // 0x4b @0x4b
0x0000…006f at004c = ╱31╱1╱ // 0x4c @0x4c
0x0000…006f at004d = ╱fe4d4d0000╱ // 0x4d @0x4d
0x0000…006f at0052 = ╱80╱ // 0x52 @0x52
0x0000…006f at0053 = ╱01╱ // 0x53 @0x53
0x0000…006f at0054 = ╱ee╱ ) ╱ // 0x54 @0x54
0x0000…006f at0055 = ╱ec╱ , ╱ // 0x55 @0x55
0x0000…006f at0056 = ╱55╱U╱ // 0x56 @0x56
0x0000…006f at0057 = ╱44╱D╱ // 0x57 @0x57
0x0000…006f at0058 = ╱32╱2╱ // 0x58 @0x58
0x0000…006f at0059 = ╱ef╱ $ ╱ // 0x59 @0x59
0x0000…006f at005a = ╱ed╱ ( ╱ // 0x5a @0x5a
0x0000…006f at005b = ╱31╱1╱ // 0x5b @0x5b
0x0000…006f at005c = ╱34╱4╱ // 0x5c @0x5c
0x0000…006f at005d = ╱fe0000e004╱ // 0x5d @0x5d
0x0000…006f at0062 = ╱ee╱ ) ╱ // 0x62 @0x62
0x0000…006f at0063 = ╱ec╱ , ╱ // 0x63 @0x63
0x0000…006f at0064 = ╱41╱A╱ // 0x64 @0x64
0x0000…006f at0065 = ╱ef╱ $ ╱ // 0x65 @0x65
0x0000…006f at0066 = ╱ed╱ ( ╱ // 0x66 @0x66
0x0000…006f at0067 = ╱31╱1╱ // 0x67 @0x67
0x0000…006f at0068 = ╱fe00008001╱ // 0x68 @0x68
0x0000…006f at006d = ╱ee╱ ) ╱ // 0x6d @0x6d
0x0000…006f at006e = EOL // 0x6e @0x6e
0x0000…006f }
0x006f…00d8 8820 0110 DIM DSALDO2 $ ( 12 ) , DSALDO3 $ ( 12 ) , DSALDMMO4 $ ( 12 ) , DEBLK $ ( 1 ) , DEBGADE $ ( 25 ) , N $ ( 6 )
0x006f…00d8 LineComalBcd {
0x006f…00d8 ptr = 0x8820 // 0x6f @0x0
0x006f…00d8 lno = 0x0110 // 0x71 @0x2
0x006f…00d8 at0004 = ╱87╱ DIM ╱ // 0x73 @0x4
0x006f…00d8 at0005 = ╱44╱D╱ // 0x74 @0x5
0x006f…00d8 at0006 = ╱53╱S╱ // 0x75 @0x6
0x006f…00d8 at0007 = ╱41╱A╱ // 0x76 @0x7
0x006f…00d8 at0008 = ╱4c╱L╱ // 0x77 @0x8
0x006f…00d8 at0009 = ╱44╱D╱ // 0x78 @0x9
0x006f…00d8 at000a = ╱4f╱O╱ // 0x79 @0xa
0x006f…00d8 at000b = ╱32╱2╱ // 0x7a @0xb
0x006f…00d8 at000c = ╱ef╱ $ ╱ // 0x7b @0xc
0x006f…00d8 at000d = ╱ed╱ ( ╱ // 0x7c @0xd
0x006f…00d8 at000e = ╱31╱1╱ // 0x7d @0xe
0x006f…00d8 at000f = ╱32╱2╱ // 0x7e @0xf
0x006f…00d8 at0010 = ╱fe0000c004╱ // 0x7f @0x10
0x006f…00d8 at0015 = ╱ee╱ ) ╱ // 0x84 @0x15
0x006f…00d8 at0016 = ╱ec╱ , ╱ // 0x85 @0x16
0x006f…00d8 at0017 = ╱44╱D╱ // 0x86 @0x17
0x006f…00d8 at0018 = ╱53╱S╱ // 0x87 @0x18
0x006f…00d8 at0019 = ╱41╱A╱ // 0x88 @0x19
0x006f…00d8 at001a = ╱4c╱L╱ // 0x89 @0x1a
0x006f…00d8 at001b = ╱44╱D╱ // 0x8a @0x1b
0x006f…00d8 at001c = ╱4f╱O╱ // 0x8b @0x1c
0x006f…00d8 at001d = ╱33╱3╱ // 0x8c @0x1d
0x006f…00d8 at001e = ╱ef╱ $ ╱ // 0x8d @0x1e
0x006f…00d8 at001f = ╱ed╱ ( ╱ // 0x8e @0x1f
0x006f…00d8 at0020 = ╱31╱1╱ // 0x8f @0x20
0x006f…00d8 at0021 = ╱32╱2╱ // 0x90 @0x21
0x006f…00d8 at0022 = ╱fe0000c004╱ // 0x91 @0x22
0x006f…00d8 at0027 = ╱ee╱ ) ╱ // 0x96 @0x27
0x006f…00d8 at0028 = ╱ec╱ , ╱ // 0x97 @0x28
0x006f…00d8 at0029 = ╱44╱D╱ // 0x98 @0x29
0x006f…00d8 at002a = ╱53╱S╱ // 0x99 @0x2a
0x006f…00d8 at002b = ╱41╱A╱ // 0x9a @0x2b
0x006f…00d8 at002c = ╱4c╱L╱ // 0x9b @0x2c
0x006f…00d8 at002d = ╱44╱D╱ // 0x9c @0x2d
0x006f…00d8 at002e = ╱4d╱M╱ // 0x9d @0x2e
0x006f…00d8 at002f = ╱4d╱M╱ // 0x9e @0x2f
0x006f…00d8 at0030 = ╱4f╱O╱ // 0x9f @0x30
0x006f…00d8 at0031 = ╱34╱4╱ // 0xa0 @0x31
0x006f…00d8 at0032 = ╱ef╱ $ ╱ // 0xa1 @0x32
0x006f…00d8 at0033 = ╱ed╱ ( ╱ // 0xa2 @0x33
0x006f…00d8 at0034 = ╱31╱1╱ // 0xa3 @0x34
0x006f…00d8 at0035 = ╱32╱2╱ // 0xa4 @0x35
0x006f…00d8 at0036 = ╱fe0000c004╱ // 0xa5 @0x36
0x006f…00d8 at003b = ╱ee╱ ) ╱ // 0xaa @0x3b
0x006f…00d8 at003c = ╱ec╱ , ╱ // 0xab @0x3c
0x006f…00d8 at003d = ╱44╱D╱ // 0xac @0x3d
0x006f…00d8 at003e = ╱45╱E╱ // 0xad @0x3e
0x006f…00d8 at003f = ╱42╱B╱ // 0xae @0x3f
0x006f…00d8 at0040 = ╱4c╱L╱ // 0xaf @0x40
0x006f…00d8 at0041 = ╱4b╱K╱ // 0xb0 @0x41
0x006f…00d8 at0042 = ╱ef╱ $ ╱ // 0xb1 @0x42
0x006f…00d8 at0043 = ╱ed╱ ( ╱ // 0xb2 @0x43
0x006f…00d8 at0044 = ╱31╱1╱ // 0xb3 @0x44
0x006f…00d8 at0045 = ╱fe00008001╱ // 0xb4 @0x45
0x006f…00d8 at004a = ╱ee╱ ) ╱ // 0xb9 @0x4a
0x006f…00d8 at004b = ╱ec╱ , ╱ // 0xba @0x4b
0x006f…00d8 at004c = ╱44╱D╱ // 0xbb @0x4c
0x006f…00d8 at004d = ╱45╱E╱ // 0xbc @0x4d
0x006f…00d8 at004e = ╱42╱B╱ // 0xbd @0x4e
0x006f…00d8 at004f = ╱47╱G╱ // 0xbe @0x4f
0x006f…00d8 at0050 = ╱41╱A╱ // 0xbf @0x50
0x006f…00d8 at0051 = ╱44╱D╱ // 0xc0 @0x51
0x006f…00d8 at0052 = ╱45╱E╱ // 0xc1 @0x52
0x006f…00d8 at0053 = ╱ef╱ $ ╱ // 0xc2 @0x53
0x006f…00d8 at0054 = ╱ed╱ ( ╱ // 0xc3 @0x54
0x006f…00d8 at0055 = ╱32╱2╱ // 0xc4 @0x55
0x006f…00d8 at0056 = ╱35╱5╱ // 0xc5 @0x56
0x006f…00d8 at0057 = ╱fe0000c805╱ // 0xc6 @0x57
0x006f…00d8 at005c = ╱ee╱ ) ╱ // 0xcb @0x5c
0x006f…00d8 at005d = ╱ec╱ , ╱ // 0xcc @0x5d
0x006f…00d8 at005e = ╱4e╱N╱ // 0xcd @0x5e
0x006f…00d8 at005f = ╱ef╱ $ ╱ // 0xce @0x5f
0x006f…00d8 at0060 = ╱ed╱ ( ╱ // 0xcf @0x60
0x006f…00d8 at0061 = ╱36╱6╱ // 0xd0 @0x61
0x006f…00d8 at0062 = ╱fe0000c003╱ // 0xd1 @0x62
0x006f…00d8 at0067 = ╱ee╱ ) ╱ // 0xd6 @0x67
0x006f…00d8 at0068 = EOL // 0xd7 @0x68
0x006f…00d8 }
0x00d8…0147 888b 0120 DIM T2 ( 9 ) , BLANMMK $ ( 77 ) , TAL4 $ ( 14 ) , TAH $ ( 12 ) , DEBTLF $ ( 9 ) , DEBBY $ ( 20 ) , VTABMM2 ( 5 )
0x00d8…0147 LineComalBcd {
0x00d8…0147 ptr = 0x888b // 0xd8 @0x0
0x00d8…0147 lno = 0x0120 // 0xda @0x2
0x00d8…0147 at0004 = ╱87╱ DIM ╱ // 0xdc @0x4
0x00d8…0147 at0005 = ╱54╱T╱ // 0xdd @0x5
0x00d8…0147 at0006 = ╱32╱2╱ // 0xde @0x6
0x00d8…0147 at0007 = ╱ed╱ ( ╱ // 0xdf @0x7
0x00d8…0147 at0008 = ╱39╱9╱ // 0xe0 @0x8
0x00d8…0147 at0009 = ╱fe00009004╱ // 0xe1 @0x9
0x00d8…0147 at000e = ╱ee╱ ) ╱ // 0xe6 @0xe
0x00d8…0147 at000f = ╱ec╱ , ╱ // 0xe7 @0xf
0x00d8…0147 at0010 = ╱42╱B╱ // 0xe8 @0x10
0x00d8…0147 at0011 = ╱4c╱L╱ // 0xe9 @0x11
0x00d8…0147 at0012 = ╱41╱A╱ // 0xea @0x12
0x00d8…0147 at0013 = ╱4e╱N╱ // 0xeb @0x13
0x00d8…0147 at0014 = ╱4d╱M╱ // 0xec @0x14
0x00d8…0147 at0015 = ╱4d╱M╱ // 0xed @0x15
0x00d8…0147 at0016 = ╱4b╱K╱ // 0xee @0x16
0x00d8…0147 at0017 = ╱ef╱ $ ╱ // 0xef @0x17
0x00d8…0147 at0018 = ╱ed╱ ( ╱ // 0xf0 @0x18
0x00d8…0147 at0019 = ╱37╱7╱ // 0xf1 @0x19
0x00d8…0147 at001a = ╱37╱7╱ // 0xf2 @0x1a
0x00d8…0147 at001b = ╱fe00009a07╱ // 0xf3 @0x1b
0x00d8…0147 at0020 = ╱ee╱ ) ╱ // 0xf8 @0x20
0x00d8…0147 at0021 = ╱ec╱ , ╱ // 0xf9 @0x21
0x00d8…0147 at0022 = ╱54╱T╱ // 0xfa @0x22
0x00d8…0147 at0023 = ╱41╱A╱ // 0xfb @0x23
0x00d8…0147 at0024 = ╱4c╱L╱ // 0xfc @0x24
0x00d8…0147 at0025 = ╱34╱4╱ // 0xfd @0x25
0x00d8…0147 at0026 = ╱ef╱ $ ╱ // 0xfe @0x26
0x00d8…0147 at0027 = ╱ed╱ ( ╱ // 0xff @0x27
0x00d8…0147 at0028 = ╱31╱1╱ // 0x100 @0x28
0x00d8…0147 at0029 = ╱34╱4╱ // 0x101 @0x29
0x00d8…0147 at002a = ╱fe0000e004╱ // 0x102 @0x2a
0x00d8…0147 at002f = ╱ee╱ ) ╱ // 0x107 @0x2f
0x00d8…0147 at0030 = ╱ec╱ , ╱ // 0x108 @0x30
0x00d8…0147 at0031 = ╱54╱T╱ // 0x109 @0x31
0x00d8…0147 at0032 = ╱41╱A╱ // 0x10a @0x32
0x00d8…0147 at0033 = ╱48╱H╱ // 0x10b @0x33
0x00d8…0147 at0034 = ╱ef╱ $ ╱ // 0x10c @0x34
0x00d8…0147 at0035 = ╱ed╱ ( ╱ // 0x10d @0x35
0x00d8…0147 at0036 = ╱31╱1╱ // 0x10e @0x36
0x00d8…0147 at0037 = ╱32╱2╱ // 0x10f @0x37
0x00d8…0147 at0038 = ╱fe0000c004╱ // 0x110 @0x38
0x00d8…0147 at003d = ╱ee╱ ) ╱ // 0x115 @0x3d
0x00d8…0147 at003e = ╱ec╱ , ╱ // 0x116 @0x3e
0x00d8…0147 at003f = ╱44╱D╱ // 0x117 @0x3f
0x00d8…0147 at0040 = ╱45╱E╱ // 0x118 @0x40
0x00d8…0147 at0041 = ╱42╱B╱ // 0x119 @0x41
0x00d8…0147 at0042 = ╱54╱T╱ // 0x11a @0x42
0x00d8…0147 at0043 = ╱4c╱L╱ // 0x11b @0x43
0x00d8…0147 at0044 = ╱46╱F╱ // 0x11c @0x44
0x00d8…0147 at0045 = ╱ef╱ $ ╱ // 0x11d @0x45
0x00d8…0147 at0046 = ╱ed╱ ( ╱ // 0x11e @0x46
0x00d8…0147 at0047 = ╱39╱9╱ // 0x11f @0x47
0x00d8…0147 at0048 = ╱fe00009004╱ // 0x120 @0x48
0x00d8…0147 at004d = ╱ee╱ ) ╱ // 0x125 @0x4d
0x00d8…0147 at004e = ╱ec╱ , ╱ // 0x126 @0x4e
0x00d8…0147 at004f = ╱44╱D╱ // 0x127 @0x4f
0x00d8…0147 at0050 = ╱45╱E╱ // 0x128 @0x50
0x00d8…0147 at0051 = ╱42╱B╱ // 0x129 @0x51
0x00d8…0147 at0052 = ╱42╱B╱ // 0x12a @0x52
0x00d8…0147 at0053 = ╱59╱Y╱ // 0x12b @0x53
0x00d8…0147 at0054 = ╱ef╱ $ ╱ // 0x12c @0x54
0x00d8…0147 at0055 = ╱ed╱ ( ╱ // 0x12d @0x55
0x00d8…0147 at0056 = ╱32╱2╱ // 0x12e @0x56
0x00d8…0147 at0057 = ╱30╱0╱ // 0x12f @0x57
0x00d8…0147 at0058 = ╱fe0000a005╱ // 0x130 @0x58
0x00d8…0147 at005d = ╱ee╱ ) ╱ // 0x135 @0x5d
0x00d8…0147 at005e = ╱ec╱ , ╱ // 0x136 @0x5e
0x00d8…0147 at005f = ╱56╱V╱ // 0x137 @0x5f
0x00d8…0147 at0060 = ╱54╱T╱ // 0x138 @0x60
0x00d8…0147 at0061 = ╱41╱A╱ // 0x139 @0x61
0x00d8…0147 at0062 = ╱42╱B╱ // 0x13a @0x62
0x00d8…0147 at0063 = ╱4d╱M╱ // 0x13b @0x63
0x00d8…0147 at0064 = ╱4d╱M╱ // 0x13c @0x64
0x00d8…0147 at0065 = ╱32╱2╱ // 0x13d @0x65
0x00d8…0147 at0066 = ╱ed╱ ( ╱ // 0x13e @0x66
0x00d8…0147 at0067 = ╱35╱5╱ // 0x13f @0x67
0x00d8…0147 at0068 = ╱fe0000a003╱ // 0x140 @0x68
0x00d8…0147 at006d = ╱ee╱ ) ╱ // 0x145 @0x6d
0x00d8…0147 at006e = EOL // 0x146 @0x6e
0x00d8…0147 }
0x0147…01b3 88f5 0130 DIM RES $ ( 14 ) , ]RK\B $ ( 12 ) , MDNK\B $ ( 12 ) , DSALDI $ ( 12MM ) , LK $ ( 3 ) , KG $ ( 3 ) , KTN $ ( 6 )
0x0147…01b3 LineComalBcd {
0x0147…01b3 ptr = 0x88f5 // 0x147 @0x0
0x0147…01b3 lno = 0x0130 // 0x149 @0x2
0x0147…01b3 at0004 = ╱87╱ DIM ╱ // 0x14b @0x4
0x0147…01b3 at0005 = ╱52╱R╱ // 0x14c @0x5
0x0147…01b3 at0006 = ╱45╱E╱ // 0x14d @0x6
0x0147…01b3 at0007 = ╱53╱S╱ // 0x14e @0x7
0x0147…01b3 at0008 = ╱ef╱ $ ╱ // 0x14f @0x8
0x0147…01b3 at0009 = ╱ed╱ ( ╱ // 0x150 @0x9
0x0147…01b3 at000a = ╱31╱1╱ // 0x151 @0xa
0x0147…01b3 at000b = ╱34╱4╱ // 0x152 @0xb
0x0147…01b3 at000c = ╱fe0000e004╱ // 0x153 @0xc
0x0147…01b3 at0011 = ╱ee╱ ) ╱ // 0x158 @0x11
0x0147…01b3 at0012 = ╱ec╱ , ╱ // 0x159 @0x12
0x0147…01b3 at0013 = ╱5d╱]╱ // 0x15a @0x13
0x0147…01b3 at0014 = ╱52╱R╱ // 0x15b @0x14
0x0147…01b3 at0015 = ╱4b╱K╱ // 0x15c @0x15
0x0147…01b3 at0016 = ╱5c╱\╱ // 0x15d @0x16
0x0147…01b3 at0017 = ╱42╱B╱ // 0x15e @0x17
0x0147…01b3 at0018 = ╱ef╱ $ ╱ // 0x15f @0x18
0x0147…01b3 at0019 = ╱ed╱ ( ╱ // 0x160 @0x19
0x0147…01b3 at001a = ╱31╱1╱ // 0x161 @0x1a
0x0147…01b3 at001b = ╱32╱2╱ // 0x162 @0x1b
0x0147…01b3 at001c = ╱fe0000c004╱ // 0x163 @0x1c
0x0147…01b3 at0021 = ╱ee╱ ) ╱ // 0x168 @0x21
0x0147…01b3 at0022 = ╱ec╱ , ╱ // 0x169 @0x22
0x0147…01b3 at0023 = ╱4d╱M╱ // 0x16a @0x23
0x0147…01b3 at0024 = ╱44╱D╱ // 0x16b @0x24
0x0147…01b3 at0025 = ╱4e╱N╱ // 0x16c @0x25
0x0147…01b3 at0026 = ╱4b╱K╱ // 0x16d @0x26
0x0147…01b3 at0027 = ╱5c╱\╱ // 0x16e @0x27
0x0147…01b3 at0028 = ╱42╱B╱ // 0x16f @0x28
0x0147…01b3 at0029 = ╱ef╱ $ ╱ // 0x170 @0x29
0x0147…01b3 at002a = ╱ed╱ ( ╱ // 0x171 @0x2a
0x0147…01b3 at002b = ╱31╱1╱ // 0x172 @0x2b
0x0147…01b3 at002c = ╱32╱2╱ // 0x173 @0x2c
0x0147…01b3 at002d = ╱fe0000c004╱ // 0x174 @0x2d
0x0147…01b3 at0032 = ╱ee╱ ) ╱ // 0x179 @0x32
0x0147…01b3 at0033 = ╱ec╱ , ╱ // 0x17a @0x33
0x0147…01b3 at0034 = ╱44╱D╱ // 0x17b @0x34
0x0147…01b3 at0035 = ╱53╱S╱ // 0x17c @0x35
0x0147…01b3 at0036 = ╱41╱A╱ // 0x17d @0x36
0x0147…01b3 at0037 = ╱4c╱L╱ // 0x17e @0x37
0x0147…01b3 at0038 = ╱44╱D╱ // 0x17f @0x38
0x0147…01b3 at0039 = ╱49╱I╱ // 0x180 @0x39
0x0147…01b3 at003a = ╱ef╱ $ ╱ // 0x181 @0x3a
0x0147…01b3 at003b = ╱ed╱ ( ╱ // 0x182 @0x3b
0x0147…01b3 at003c = ╱31╱1╱ // 0x183 @0x3c
0x0147…01b3 at003d = ╱32╱2╱ // 0x184 @0x3d
0x0147…01b3 at003e = ╱fe0000c004╱ // 0x185 @0x3e
0x0147…01b3 at0043 = ╱4d╱M╱ // 0x18a @0x43
0x0147…01b3 at0044 = ╱4d╱M╱ // 0x18b @0x44
0x0147…01b3 at0045 = ╱ee╱ ) ╱ // 0x18c @0x45
0x0147…01b3 at0046 = ╱ec╱ , ╱ // 0x18d @0x46
0x0147…01b3 at0047 = ╱4c╱L╱ // 0x18e @0x47
0x0147…01b3 at0048 = ╱4b╱K╱ // 0x18f @0x48
0x0147…01b3 at0049 = ╱ef╱ $ ╱ // 0x190 @0x49
0x0147…01b3 at004a = ╱ed╱ ( ╱ // 0x191 @0x4a
0x0147…01b3 at004b = ╱33╱3╱ // 0x192 @0x4b
0x0147…01b3 at004c = ╱fe0000c002╱ // 0x193 @0x4c
0x0147…01b3 at0051 = ╱ee╱ ) ╱ // 0x198 @0x51
0x0147…01b3 at0052 = ╱ec╱ , ╱ // 0x199 @0x52
0x0147…01b3 at0053 = ╱4b╱K╱ // 0x19a @0x53
0x0147…01b3 at0054 = ╱47╱G╱ // 0x19b @0x54
0x0147…01b3 at0055 = ╱ef╱ $ ╱ // 0x19c @0x55
0x0147…01b3 at0056 = ╱ed╱ ( ╱ // 0x19d @0x56
0x0147…01b3 at0057 = ╱33╱3╱ // 0x19e @0x57
0x0147…01b3 at0058 = ╱fe0000c002╱ // 0x19f @0x58
0x0147…01b3 at005d = ╱ee╱ ) ╱ // 0x1a4 @0x5d
0x0147…01b3 at005e = ╱ec╱ , ╱ // 0x1a5 @0x5e
0x0147…01b3 at005f = ╱4b╱K╱ // 0x1a6 @0x5f
0x0147…01b3 at0060 = ╱54╱T╱ // 0x1a7 @0x60
0x0147…01b3 at0061 = ╱4e╱N╱ // 0x1a8 @0x61
0x0147…01b3 at0062 = ╱ef╱ $ ╱ // 0x1a9 @0x62
0x0147…01b3 at0063 = ╱ed╱ ( ╱ // 0x1aa @0x63
0x0147…01b3 at0064 = ╱36╱6╱ // 0x1ab @0x64
0x0147…01b3 at0065 = ╱fe0000c003╱ // 0x1ac @0x65
0x0147…01b3 at006a = ╱ee╱ ) ╱ // 0x1b1 @0x6a
0x0147…01b3 at006b = EOL // 0x1b2 @0x6b
0x0147…01b3 }
0x01b3…0227 8967 0140 DIM PNR $ ( 6 ) , TY $ ( 1 ) , OP1 $ ( 12 TAN ╱04╱ ) , OP2 $ ( 12 ) , TA $ ( 12 ) , TB $ ( 14 ) , T]RK\B $ ( 12 ) , DAT $ ( 8 )
0x01b3…0227 LineComalBcd {
0x01b3…0227 ptr = 0x8967 // 0x1b3 @0x0
0x01b3…0227 lno = 0x0140 // 0x1b5 @0x2
0x01b3…0227 at0004 = ╱87╱ DIM ╱ // 0x1b7 @0x4
0x01b3…0227 at0005 = ╱50╱P╱ // 0x1b8 @0x5
0x01b3…0227 at0006 = ╱4e╱N╱ // 0x1b9 @0x6
0x01b3…0227 at0007 = ╱52╱R╱ // 0x1ba @0x7
0x01b3…0227 at0008 = ╱ef╱ $ ╱ // 0x1bb @0x8
0x01b3…0227 at0009 = ╱ed╱ ( ╱ // 0x1bc @0x9
0x01b3…0227 at000a = ╱36╱6╱ // 0x1bd @0xa
0x01b3…0227 at000b = ╱fe0000c003╱ // 0x1be @0xb
0x01b3…0227 at0010 = ╱ee╱ ) ╱ // 0x1c3 @0x10
0x01b3…0227 at0011 = ╱ec╱ , ╱ // 0x1c4 @0x11
0x01b3…0227 at0012 = ╱54╱T╱ // 0x1c5 @0x12
0x01b3…0227 at0013 = ╱59╱Y╱ // 0x1c6 @0x13
0x01b3…0227 at0014 = ╱ef╱ $ ╱ // 0x1c7 @0x14
0x01b3…0227 at0015 = ╱ed╱ ( ╱ // 0x1c8 @0x15
0x01b3…0227 at0016 = ╱31╱1╱ // 0x1c9 @0x16
0x01b3…0227 at0017 = ╱fe00008001╱ // 0x1ca @0x17
0x01b3…0227 at001c = ╱ee╱ ) ╱ // 0x1cf @0x1c
0x01b3…0227 at001d = ╱ec╱ , ╱ // 0x1d0 @0x1d
0x01b3…0227 at001e = ╱4f╱O╱ // 0x1d1 @0x1e
0x01b3…0227 at001f = ╱50╱P╱ // 0x1d2 @0x1f
0x01b3…0227 at0020 = ╱31╱1╱ // 0x1d3 @0x20
0x01b3…0227 at0021 = ╱ef╱ $ ╱ // 0x1d4 @0x21
0x01b3…0227 at0022 = ╱ed╱ ( ╱ // 0x1d5 @0x22
0x01b3…0227 at0023 = ╱31╱1╱ // 0x1d6 @0x23
0x01b3…0227 at0024 = ╱32╱2╱ // 0x1d7 @0x24
0x01b3…0227 at0025 = ╱fe4d4d0000╱ // 0x1d8 @0x25
0x01b3…0227 at002a = ╱c0╱ TAN ╱ // 0x1dd @0x2a
0x01b3…0227 at002b = ╱04╱ // 0x1de @0x2b
0x01b3…0227 at002c = ╱ee╱ ) ╱ // 0x1df @0x2c
0x01b3…0227 at002d = ╱ec╱ , ╱ // 0x1e0 @0x2d
0x01b3…0227 at002e = ╱4f╱O╱ // 0x1e1 @0x2e
0x01b3…0227 at002f = ╱50╱P╱ // 0x1e2 @0x2f
0x01b3…0227 at0030 = ╱32╱2╱ // 0x1e3 @0x30
0x01b3…0227 at0031 = ╱ef╱ $ ╱ // 0x1e4 @0x31
0x01b3…0227 at0032 = ╱ed╱ ( ╱ // 0x1e5 @0x32
0x01b3…0227 at0033 = ╱31╱1╱ // 0x1e6 @0x33
0x01b3…0227 at0034 = ╱32╱2╱ // 0x1e7 @0x34
0x01b3…0227 at0035 = ╱fe0000c004╱ // 0x1e8 @0x35
0x01b3…0227 at003a = ╱ee╱ ) ╱ // 0x1ed @0x3a
0x01b3…0227 at003b = ╱ec╱ , ╱ // 0x1ee @0x3b
0x01b3…0227 at003c = ╱54╱T╱ // 0x1ef @0x3c
0x01b3…0227 at003d = ╱41╱A╱ // 0x1f0 @0x3d
0x01b3…0227 at003e = ╱ef╱ $ ╱ // 0x1f1 @0x3e
0x01b3…0227 at003f = ╱ed╱ ( ╱ // 0x1f2 @0x3f
0x01b3…0227 at0040 = ╱31╱1╱ // 0x1f3 @0x40
0x01b3…0227 at0041 = ╱32╱2╱ // 0x1f4 @0x41
0x01b3…0227 at0042 = ╱fe0000c004╱ // 0x1f5 @0x42
0x01b3…0227 at0047 = ╱ee╱ ) ╱ // 0x1fa @0x47
0x01b3…0227 at0048 = ╱ec╱ , ╱ // 0x1fb @0x48
0x01b3…0227 at0049 = ╱54╱T╱ // 0x1fc @0x49
0x01b3…0227 at004a = ╱42╱B╱ // 0x1fd @0x4a
0x01b3…0227 at004b = ╱ef╱ $ ╱ // 0x1fe @0x4b
0x01b3…0227 at004c = ╱ed╱ ( ╱ // 0x1ff @0x4c
0x01b3…0227 at004d = ╱31╱1╱ // 0x200 @0x4d
0x01b3…0227 at004e = ╱34╱4╱ // 0x201 @0x4e
0x01b3…0227 at004f = ╱fe0000e004╱ // 0x202 @0x4f
0x01b3…0227 at0054 = ╱ee╱ ) ╱ // 0x207 @0x54
0x01b3…0227 at0055 = ╱ec╱ , ╱ // 0x208 @0x55
0x01b3…0227 at0056 = ╱54╱T╱ // 0x209 @0x56
0x01b3…0227 at0057 = ╱5d╱]╱ // 0x20a @0x57
0x01b3…0227 at0058 = ╱52╱R╱ // 0x20b @0x58
0x01b3…0227 at0059 = ╱4b╱K╱ // 0x20c @0x59
0x01b3…0227 at005a = ╱5c╱\╱ // 0x20d @0x5a
0x01b3…0227 at005b = ╱42╱B╱ // 0x20e @0x5b
0x01b3…0227 at005c = ╱ef╱ $ ╱ // 0x20f @0x5c
0x01b3…0227 at005d = ╱ed╱ ( ╱ // 0x210 @0x5d
0x01b3…0227 at005e = ╱31╱1╱ // 0x211 @0x5e
0x01b3…0227 at005f = ╱32╱2╱ // 0x212 @0x5f
0x01b3…0227 at0060 = ╱fe0000c004╱ // 0x213 @0x60
0x01b3…0227 at0065 = ╱ee╱ ) ╱ // 0x218 @0x65
0x01b3…0227 at0066 = ╱ec╱ , ╱ // 0x219 @0x66
0x01b3…0227 at0067 = ╱44╱D╱ // 0x21a @0x67
0x01b3…0227 at0068 = ╱41╱A╱ // 0x21b @0x68
0x01b3…0227 at0069 = ╱54╱T╱ // 0x21c @0x69
0x01b3…0227 at006a = ╱ef╱ $ ╱ // 0x21d @0x6a
0x01b3…0227 at006b = ╱ed╱ ( ╱ // 0x21e @0x6b
0x01b3…0227 at006c = ╱38╱8╱ // 0x21f @0x6c
0x01b3…0227 at006d = ╱fe00008004╱ // 0x220 @0x6d
0x01b3…0227 at0072 = ╱ee╱ ) ╱ // 0x225 @0x72
0x01b3…0227 at0073 = EOL // 0x226 @0x73
0x01b3…0227 }
0x0227…0291 4dcd 4d89 ╱01╱ P DIM DEBGADE1 $ ( 25 ) , DEBTLF1 $ ( 9 ) , BLB2 $ ( 12 ) , UBLB2 $ ( 14 ) , UD1 $ ( 1MM4 ) , STREG $ ( 71 )
0x0227…0291 LineComalBcd {
0x0227…0291 ptr = 0x4dcd // 0x227 @0x0
0x0227…0291 lno = 0x4d89 // 0x229 @0x2
0x0227…0291 at0004 = ╱01╱ // 0x22b @0x4
0x0227…0291 at0005 = ╱50╱P╱ // 0x22c @0x5
0x0227…0291 at0006 = ╱87╱ DIM ╱ // 0x22d @0x6
0x0227…0291 at0007 = ╱44╱D╱ // 0x22e @0x7
0x0227…0291 at0008 = ╱45╱E╱ // 0x22f @0x8
0x0227…0291 at0009 = ╱42╱B╱ // 0x230 @0x9
0x0227…0291 at000a = ╱47╱G╱ // 0x231 @0xa
0x0227…0291 at000b = ╱41╱A╱ // 0x232 @0xb
0x0227…0291 at000c = ╱44╱D╱ // 0x233 @0xc
0x0227…0291 at000d = ╱45╱E╱ // 0x234 @0xd
0x0227…0291 at000e = ╱31╱1╱ // 0x235 @0xe
0x0227…0291 at000f = ╱ef╱ $ ╱ // 0x236 @0xf
0x0227…0291 at0010 = ╱ed╱ ( ╱ // 0x237 @0x10
0x0227…0291 at0011 = ╱32╱2╱ // 0x238 @0x11
0x0227…0291 at0012 = ╱35╱5╱ // 0x239 @0x12
0x0227…0291 at0013 = ╱fe0000c805╱ // 0x23a @0x13
0x0227…0291 at0018 = ╱ee╱ ) ╱ // 0x23f @0x18
0x0227…0291 at0019 = ╱ec╱ , ╱ // 0x240 @0x19
0x0227…0291 at001a = ╱44╱D╱ // 0x241 @0x1a
0x0227…0291 at001b = ╱45╱E╱ // 0x242 @0x1b
0x0227…0291 at001c = ╱42╱B╱ // 0x243 @0x1c
0x0227…0291 at001d = ╱54╱T╱ // 0x244 @0x1d
0x0227…0291 at001e = ╱4c╱L╱ // 0x245 @0x1e
0x0227…0291 at001f = ╱46╱F╱ // 0x246 @0x1f
0x0227…0291 at0020 = ╱31╱1╱ // 0x247 @0x20
0x0227…0291 at0021 = ╱ef╱ $ ╱ // 0x248 @0x21
0x0227…0291 at0022 = ╱ed╱ ( ╱ // 0x249 @0x22
0x0227…0291 at0023 = ╱39╱9╱ // 0x24a @0x23
0x0227…0291 at0024 = ╱fe00009004╱ // 0x24b @0x24
0x0227…0291 at0029 = ╱ee╱ ) ╱ // 0x250 @0x29
0x0227…0291 at002a = ╱ec╱ , ╱ // 0x251 @0x2a
0x0227…0291 at002b = ╱42╱B╱ // 0x252 @0x2b
0x0227…0291 at002c = ╱4c╱L╱ // 0x253 @0x2c
0x0227…0291 at002d = ╱42╱B╱ // 0x254 @0x2d
0x0227…0291 at002e = ╱32╱2╱ // 0x255 @0x2e
0x0227…0291 at002f = ╱ef╱ $ ╱ // 0x256 @0x2f
0x0227…0291 at0030 = ╱ed╱ ( ╱ // 0x257 @0x30
0x0227…0291 at0031 = ╱31╱1╱ // 0x258 @0x31
0x0227…0291 at0032 = ╱32╱2╱ // 0x259 @0x32
0x0227…0291 at0033 = ╱fe0000c004╱ // 0x25a @0x33
0x0227…0291 at0038 = ╱ee╱ ) ╱ // 0x25f @0x38
0x0227…0291 at0039 = ╱ec╱ , ╱ // 0x260 @0x39
0x0227…0291 at003a = ╱55╱U╱ // 0x261 @0x3a
0x0227…0291 at003b = ╱42╱B╱ // 0x262 @0x3b
0x0227…0291 at003c = ╱4c╱L╱ // 0x263 @0x3c
0x0227…0291 at003d = ╱42╱B╱ // 0x264 @0x3d
0x0227…0291 at003e = ╱32╱2╱ // 0x265 @0x3e
0x0227…0291 at003f = ╱ef╱ $ ╱ // 0x266 @0x3f
0x0227…0291 at0040 = ╱ed╱ ( ╱ // 0x267 @0x40
0x0227…0291 at0041 = ╱31╱1╱ // 0x268 @0x41
0x0227…0291 at0042 = ╱34╱4╱ // 0x269 @0x42
0x0227…0291 at0043 = ╱fe0000e004╱ // 0x26a @0x43
0x0227…0291 at0048 = ╱ee╱ ) ╱ // 0x26f @0x48
0x0227…0291 at0049 = ╱ec╱ , ╱ // 0x270 @0x49
0x0227…0291 at004a = ╱55╱U╱ // 0x271 @0x4a
0x0227…0291 at004b = ╱44╱D╱ // 0x272 @0x4b
0x0227…0291 at004c = ╱31╱1╱ // 0x273 @0x4c
0x0227…0291 at004d = ╱ef╱ $ ╱ // 0x274 @0x4d
0x0227…0291 at004e = ╱ed╱ ( ╱ // 0x275 @0x4e
0x0227…0291 at004f = ╱31╱1╱ // 0x276 @0x4f
0x0227…0291 at0050 = ╱4d╱M╱ // 0x277 @0x50
0x0227…0291 at0051 = ╱4d╱M╱ // 0x278 @0x51
0x0227…0291 at0052 = ╱34╱4╱ // 0x279 @0x52
0x0227…0291 at0053 = ╱fe0000e004╱ // 0x27a @0x53
0x0227…0291 at0058 = ╱ee╱ ) ╱ // 0x27f @0x58
0x0227…0291 at0059 = ╱ec╱ , ╱ // 0x280 @0x59
0x0227…0291 at005a = ╱53╱S╱ // 0x281 @0x5a
0x0227…0291 at005b = ╱54╱T╱ // 0x282 @0x5b
0x0227…0291 at005c = ╱52╱R╱ // 0x283 @0x5c
0x0227…0291 at005d = ╱45╱E╱ // 0x284 @0x5d
0x0227…0291 at005e = ╱47╱G╱ // 0x285 @0x5e
0x0227…0291 at005f = ╱ef╱ $ ╱ // 0x286 @0x5f
0x0227…0291 at0060 = ╱ed╱ ( ╱ // 0x287 @0x60
0x0227…0291 at0061 = ╱37╱7╱ // 0x288 @0x61
0x0227…0291 at0062 = ╱31╱1╱ // 0x289 @0x62
0x0227…0291 at0063 = ╱fe00008e07╱ // 0x28a @0x63
0x0227…0291 at0068 = ╱ee╱ ) ╱ // 0x28f @0x68
0x0227…0291 at0069 = EOL // 0x290 @0x69
0x0227…0291 }
0x0291…0309 8a43 0160 DIM UD3 $ ( 14 ) , UD4 $ ( 14 ) , K3 $ ( 17 ) , K4 $ ( 17 DEF ╱05╱ ) , K5 $ ( 17 ) , K6 $ ( 17 ) , T1 ( 9 ) , LAND $ ( 9 , 12 )
0x0291…0309 LineComalBcd {
0x0291…0309 ptr = 0x8a43 // 0x291 @0x0
0x0291…0309 lno = 0x0160 // 0x293 @0x2
0x0291…0309 at0004 = ╱87╱ DIM ╱ // 0x295 @0x4
0x0291…0309 at0005 = ╱55╱U╱ // 0x296 @0x5
0x0291…0309 at0006 = ╱44╱D╱ // 0x297 @0x6
0x0291…0309 at0007 = ╱33╱3╱ // 0x298 @0x7
0x0291…0309 at0008 = ╱ef╱ $ ╱ // 0x299 @0x8
0x0291…0309 at0009 = ╱ed╱ ( ╱ // 0x29a @0x9
0x0291…0309 at000a = ╱31╱1╱ // 0x29b @0xa
0x0291…0309 at000b = ╱34╱4╱ // 0x29c @0xb
0x0291…0309 at000c = ╱fe0000e004╱ // 0x29d @0xc
0x0291…0309 at0011 = ╱ee╱ ) ╱ // 0x2a2 @0x11
0x0291…0309 at0012 = ╱ec╱ , ╱ // 0x2a3 @0x12
0x0291…0309 at0013 = ╱55╱U╱ // 0x2a4 @0x13
0x0291…0309 at0014 = ╱44╱D╱ // 0x2a5 @0x14
0x0291…0309 at0015 = ╱34╱4╱ // 0x2a6 @0x15
0x0291…0309 at0016 = ╱ef╱ $ ╱ // 0x2a7 @0x16
0x0291…0309 at0017 = ╱ed╱ ( ╱ // 0x2a8 @0x17
0x0291…0309 at0018 = ╱31╱1╱ // 0x2a9 @0x18
0x0291…0309 at0019 = ╱34╱4╱ // 0x2aa @0x19
0x0291…0309 at001a = ╱fe0000e004╱ // 0x2ab @0x1a
0x0291…0309 at001f = ╱ee╱ ) ╱ // 0x2b0 @0x1f
0x0291…0309 at0020 = ╱ec╱ , ╱ // 0x2b1 @0x20
0x0291…0309 at0021 = ╱4b╱K╱ // 0x2b2 @0x21
0x0291…0309 at0022 = ╱33╱3╱ // 0x2b3 @0x22
0x0291…0309 at0023 = ╱ef╱ $ ╱ // 0x2b4 @0x23
0x0291…0309 at0024 = ╱ed╱ ( ╱ // 0x2b5 @0x24
0x0291…0309 at0025 = ╱31╱1╱ // 0x2b6 @0x25
0x0291…0309 at0026 = ╱37╱7╱ // 0x2b7 @0x26
0x0291…0309 at0027 = ╱fe00008805╱ // 0x2b8 @0x27
0x0291…0309 at002c = ╱ee╱ ) ╱ // 0x2bd @0x2c
0x0291…0309 at002d = ╱ec╱ , ╱ // 0x2be @0x2d
0x0291…0309 at002e = ╱4b╱K╱ // 0x2bf @0x2e
0x0291…0309 at002f = ╱34╱4╱ // 0x2c0 @0x2f
0x0291…0309 at0030 = ╱ef╱ $ ╱ // 0x2c1 @0x30
0x0291…0309 at0031 = ╱ed╱ ( ╱ // 0x2c2 @0x31
0x0291…0309 at0032 = ╱31╱1╱ // 0x2c3 @0x32
0x0291…0309 at0033 = ╱37╱7╱ // 0x2c4 @0x33
0x0291…0309 at0034 = ╱fe4d4d0000╱ // 0x2c5 @0x34
0x0291…0309 at0039 = ╱88╱ DEF ╱ // 0x2ca @0x39
0x0291…0309 at003a = ╱05╱ // 0x2cb @0x3a
0x0291…0309 at003b = ╱ee╱ ) ╱ // 0x2cc @0x3b
0x0291…0309 at003c = ╱ec╱ , ╱ // 0x2cd @0x3c
0x0291…0309 at003d = ╱4b╱K╱ // 0x2ce @0x3d
0x0291…0309 at003e = ╱35╱5╱ // 0x2cf @0x3e
0x0291…0309 at003f = ╱ef╱ $ ╱ // 0x2d0 @0x3f
0x0291…0309 at0040 = ╱ed╱ ( ╱ // 0x2d1 @0x40
0x0291…0309 at0041 = ╱31╱1╱ // 0x2d2 @0x41
0x0291…0309 at0042 = ╱37╱7╱ // 0x2d3 @0x42
0x0291…0309 at0043 = ╱fe00008805╱ // 0x2d4 @0x43
0x0291…0309 at0048 = ╱ee╱ ) ╱ // 0x2d9 @0x48
0x0291…0309 at0049 = ╱ec╱ , ╱ // 0x2da @0x49
0x0291…0309 at004a = ╱4b╱K╱ // 0x2db @0x4a
0x0291…0309 at004b = ╱36╱6╱ // 0x2dc @0x4b
0x0291…0309 at004c = ╱ef╱ $ ╱ // 0x2dd @0x4c
0x0291…0309 at004d = ╱ed╱ ( ╱ // 0x2de @0x4d
0x0291…0309 at004e = ╱31╱1╱ // 0x2df @0x4e
0x0291…0309 at004f = ╱37╱7╱ // 0x2e0 @0x4f
0x0291…0309 at0050 = ╱fe00008805╱ // 0x2e1 @0x50
0x0291…0309 at0055 = ╱ee╱ ) ╱ // 0x2e6 @0x55
0x0291…0309 at0056 = ╱ec╱ , ╱ // 0x2e7 @0x56
0x0291…0309 at0057 = ╱54╱T╱ // 0x2e8 @0x57
0x0291…0309 at0058 = ╱31╱1╱ // 0x2e9 @0x58
0x0291…0309 at0059 = ╱ed╱ ( ╱ // 0x2ea @0x59
0x0291…0309 at005a = ╱39╱9╱ // 0x2eb @0x5a
0x0291…0309 at005b = ╱fe00009004╱ // 0x2ec @0x5b
0x0291…0309 at0060 = ╱ee╱ ) ╱ // 0x2f1 @0x60
0x0291…0309 at0061 = ╱ec╱ , ╱ // 0x2f2 @0x61
0x0291…0309 at0062 = ╱4c╱L╱ // 0x2f3 @0x62
0x0291…0309 at0063 = ╱41╱A╱ // 0x2f4 @0x63
0x0291…0309 at0064 = ╱4e╱N╱ // 0x2f5 @0x64
0x0291…0309 at0065 = ╱44╱D╱ // 0x2f6 @0x65
0x0291…0309 at0066 = ╱ef╱ $ ╱ // 0x2f7 @0x66
0x0291…0309 at0067 = ╱ed╱ ( ╱ // 0x2f8 @0x67
0x0291…0309 at0068 = ╱39╱9╱ // 0x2f9 @0x68
0x0291…0309 at0069 = ╱fe00009004╱ // 0x2fa @0x69
0x0291…0309 at006e = ╱ec╱ , ╱ // 0x2ff @0x6e
0x0291…0309 at006f = ╱31╱1╱ // 0x300 @0x6f
0x0291…0309 at0070 = ╱32╱2╱ // 0x301 @0x70
0x0291…0309 at0071 = ╱fe0000c004╱ // 0x302 @0x71
0x0291…0309 at0076 = ╱ee╱ ) ╱ // 0x307 @0x76
0x0291…0309 at0077 = EOL // 0x308 @0x77
0x0291…0309 }
0x0309…0323 8a5b 0170 PROC CALC ( ARMMT , B1 , B2 , ES )
0x0309…0323 LineComalBcd {
0x0309…0323 ptr = 0x8a5b // 0x309 @0x0
0x0309…0323 lno = 0x0170 // 0x30b @0x2
0x0309…0323 at0004 = ╱9e╱ PROC ╱ // 0x30d @0x4
0x0309…0323 at0005 = ╱43╱C╱ // 0x30e @0x5
0x0309…0323 at0006 = ╱41╱A╱ // 0x30f @0x6
0x0309…0323 at0007 = ╱4c╱L╱ // 0x310 @0x7
0x0309…0323 at0008 = ╱43╱C╱ // 0x311 @0x8
0x0309…0323 at0009 = ╱ed╱ ( ╱ // 0x312 @0x9
0x0309…0323 at000a = ╱41╱A╱ // 0x313 @0xa
0x0309…0323 at000b = ╱52╱R╱ // 0x314 @0xb
0x0309…0323 at000c = ╱4d╱M╱ // 0x315 @0xc
0x0309…0323 at000d = ╱4d╱M╱ // 0x316 @0xd
0x0309…0323 at000e = ╱54╱T╱ // 0x317 @0xe
0x0309…0323 at000f = ╱ec╱ , ╱ // 0x318 @0xf
0x0309…0323 at0010 = ╱42╱B╱ // 0x319 @0x10
0x0309…0323 at0011 = ╱31╱1╱ // 0x31a @0x11
0x0309…0323 at0012 = ╱ec╱ , ╱ // 0x31b @0x12
0x0309…0323 at0013 = ╱42╱B╱ // 0x31c @0x13
0x0309…0323 at0014 = ╱32╱2╱ // 0x31d @0x14
0x0309…0323 at0015 = ╱ec╱ , ╱ // 0x31e @0x15
0x0309…0323 at0016 = ╱45╱E╱ // 0x31f @0x16
0x0309…0323 at0017 = ╱53╱S╱ // 0x320 @0x17
0x0309…0323 at0018 = ╱ee╱ ) ╱ // 0x321 @0x18
0x0309…0323 at0019 = EOL // 0x322 @0x19
0x0309…0323 }
0x0323…0358 8a90 0180 OP1 $ = B1 $ ; OP2 $ = B2 $ ; RES $ = ES $ ; SI = 0 ; FLAG = 0
0x0323…0358 LineComalBcd {
0x0323…0358 ptr = 0x8a90 // 0x323 @0x0
0x0323…0358 lno = 0x0180 // 0x325 @0x2
0x0323…0358 at0004 = ╱4f╱O╱ // 0x327 @0x4
0x0323…0358 at0005 = ╱50╱P╱ // 0x328 @0x5
0x0323…0358 at0006 = ╱31╱1╱ // 0x329 @0x6
0x0323…0358 at0007 = ╱ef╱ $ ╱ // 0x32a @0x7
0x0323…0358 at0008 = ╱dc╱ = ╱ // 0x32b @0x8
0x0323…0358 at0009 = ╱42╱B╱ // 0x32c @0x9
0x0323…0358 at000a = ╱31╱1╱ // 0x32d @0xa
0x0323…0358 at000b = ╱ef╱ $ ╱ // 0x32e @0xb
0x0323…0358 at000c = ╱eb╱ ; ╱ // 0x32f @0xc
0x0323…0358 at000d = ╱4f╱O╱ // 0x330 @0xd
0x0323…0358 at000e = ╱50╱P╱ // 0x331 @0xe
0x0323…0358 at000f = ╱32╱2╱ // 0x332 @0xf
0x0323…0358 at0010 = ╱ef╱ $ ╱ // 0x333 @0x10
0x0323…0358 at0011 = ╱dc╱ = ╱ // 0x334 @0x11
0x0323…0358 at0012 = ╱42╱B╱ // 0x335 @0x12
0x0323…0358 at0013 = ╱32╱2╱ // 0x336 @0x13
0x0323…0358 at0014 = ╱ef╱ $ ╱ // 0x337 @0x14
0x0323…0358 at0015 = ╱eb╱ ; ╱ // 0x338 @0x15
0x0323…0358 at0016 = ╱52╱R╱ // 0x339 @0x16
0x0323…0358 at0017 = ╱45╱E╱ // 0x33a @0x17
0x0323…0358 at0018 = ╱53╱S╱ // 0x33b @0x18
0x0323…0358 at0019 = ╱ef╱ $ ╱ // 0x33c @0x19
0x0323…0358 at001a = ╱dc╱ = ╱ // 0x33d @0x1a
0x0323…0358 at001b = ╱45╱E╱ // 0x33e @0x1b
0x0323…0358 at001c = ╱53╱S╱ // 0x33f @0x1c
0x0323…0358 at001d = ╱ef╱ $ ╱ // 0x340 @0x1d
0x0323…0358 at001e = ╱eb╱ ; ╱ // 0x341 @0x1e
0x0323…0358 at001f = ╱53╱S╱ // 0x342 @0x1f
0x0323…0358 at0020 = ╱49╱I╱ // 0x343 @0x20
0x0323…0358 at0021 = ╱dc╱ = ╱ // 0x344 @0x21
0x0323…0358 at0022 = ╱30╱0╱ // 0x345 @0x22
0x0323…0358 at0023 = ╱fe00000000╱ // 0x346 @0x23
0x0323…0358 at0028 = ╱eb╱ ; ╱ // 0x34b @0x28
0x0323…0358 at0029 = ╱46╱F╱ // 0x34c @0x29
0x0323…0358 at002a = ╱4c╱L╱ // 0x34d @0x2a
0x0323…0358 at002b = ╱41╱A╱ // 0x34e @0x2b
0x0323…0358 at002c = ╱47╱G╱ // 0x34f @0x2c
0x0323…0358 at002d = ╱dc╱ = ╱ // 0x350 @0x2d
0x0323…0358 at002e = ╱30╱0╱ // 0x351 @0x2e
0x0323…0358 at002f = ╱fe00000000╱ // 0x352 @0x2f
0x0323…0358 at0034 = EOL // 0x357 @0x34
0x0323…0358 }
0x0358…0370 8aa6 0190 CALL "P641MM210:REGN"
0x0358…0370 LineComalBcd {
0x0358…0370 ptr = 0x8aa6 // 0x358 @0x0
0x0358…0370 lno = 0x0190 // 0x35a @0x2
0x0358…0370 at0004 = ╱ad31ed╱ CALL ╱ // 0x35c @0x4
0x0358…0370 at0007 = ╱22╱"╱ // 0x35f @0x7
0x0358…0370 at0008 = ╱50╱P╱ // 0x360 @0x8
0x0358…0370 at0009 = ╱36╱6╱ // 0x361 @0x9
0x0358…0370 at000a = ╱34╱4╱ // 0x362 @0xa
0x0358…0370 at000b = ╱31╱1╱ // 0x363 @0xb
0x0358…0370 at000c = ╱4d╱M╱ // 0x364 @0xc
0x0358…0370 at000d = ╱4d╱M╱ // 0x365 @0xd
0x0358…0370 at000e = ╱32╱2╱ // 0x366 @0xe
0x0358…0370 at000f = ╱31╱1╱ // 0x367 @0xf
0x0358…0370 at0010 = ╱30╱0╱ // 0x368 @0x10
0x0358…0370 at0011 = ╱3a╱:╱ // 0x369 @0x11
0x0358…0370 at0012 = ╱52╱R╱ // 0x36a @0x12
0x0358…0370 at0013 = ╱45╱E╱ // 0x36b @0x13
0x0358…0370 at0014 = ╱47╱G╱ // 0x36c @0x14
0x0358…0370 at0015 = ╱4e╱N╱ // 0x36d @0x15
0x0358…0370 at0016 = ╱22╱"╱ // 0x36e @0x16
0x0358…0370 at0017 = EOL // 0x36f @0x17
0x0358…0370 }
0x0370…037d 8ab3 0200 ES $ = RES $
0x0370…037d LineComalBcd {
0x0370…037d ptr = 0x8ab3 // 0x370 @0x0
0x0370…037d lno = 0x0200 // 0x372 @0x2
0x0370…037d at0004 = ╱45╱E╱ // 0x374 @0x4
0x0370…037d at0005 = ╱53╱S╱ // 0x375 @0x5
0x0370…037d at0006 = ╱ef╱ $ ╱ // 0x376 @0x6
0x0370…037d at0007 = ╱dc╱ = ╱ // 0x377 @0x7
0x0370…037d at0008 = ╱52╱R╱ // 0x378 @0x8
0x0370…037d at0009 = ╱45╱E╱ // 0x379 @0x9
0x0370…037d at000a = ╱53╱S╱ // 0x37a @0xa
0x0370…037d at000b = ╱ef╱ $ ╱ // 0x37b @0xb
0x0370…037d at000c = EOL // 0x37c @0xc
0x0370…037d }
0x037d…0389 8abf 0210 IF FLAG THEN STOP
0x037d…0389 LineComalBcd {
0x037d…0389 ptr = 0x8abf // 0x37d @0x0
0x037d…0389 lno = 0x0210 // 0x37f @0x2
0x037d…0389 at0004 = ╱82╱ IF ╱ // 0x381 @0x4
0x037d…0389 at0005 = ╱46╱F╱ // 0x382 @0x5
0x037d…0389 at0006 = ╱4c╱L╱ // 0x383 @0x6
0x037d…0389 at0007 = ╱41╱A╱ // 0x384 @0x7
0x037d…0389 at0008 = ╱47╱G╱ // 0x385 @0x8
0x037d…0389 at0009 = ╱b6╱ THEN ╱ // 0x386 @0x9
0x037d…0389 at000a = ╱8d╱ STOP ╱ // 0x387 @0xa
0x037d…0389 at000b = EOL // 0x388 @0xb
0x037d…0389 }
0x0389…038f 8ac5 0220 ENDPROC
0x0389…038f LineComalBcd {
0x0389…038f ptr = 0x8ac5 // 0x389 @0x0
0x0389…038f lno = 0x0220 // 0x38b @0x2
0x0389…038f at0004 = ╱9f╱ ENDPROC ╱ // 0x38d @0x4
0x0389…038f at0005 = EOL // 0x38e @0x5
0x0389…038f }
0x038f…03a6 8adc 0230 PROC FEJL ( NR1 , NR2 , NR3 )
0x038f…03a6 LineComalBcd {
0x038f…03a6 ptr = 0x8adc // 0x38f @0x0
0x038f…03a6 lno = 0x0230 // 0x391 @0x2
0x038f…03a6 at0004 = ╱9e╱ PROC ╱ // 0x393 @0x4
0x038f…03a6 at0005 = ╱46╱F╱ // 0x394 @0x5
0x038f…03a6 at0006 = ╱45╱E╱ // 0x395 @0x6
0x038f…03a6 at0007 = ╱4a╱J╱ // 0x396 @0x7
0x038f…03a6 at0008 = ╱4c╱L╱ // 0x397 @0x8
0x038f…03a6 at0009 = ╱ed╱ ( ╱ // 0x398 @0x9
0x038f…03a6 at000a = ╱4e╱N╱ // 0x399 @0xa
0x038f…03a6 at000b = ╱52╱R╱ // 0x39a @0xb
0x038f…03a6 at000c = ╱31╱1╱ // 0x39b @0xc
0x038f…03a6 at000d = ╱ec╱ , ╱ // 0x39c @0xd
0x038f…03a6 at000e = ╱4e╱N╱ // 0x39d @0xe
0x038f…03a6 at000f = ╱52╱R╱ // 0x39e @0xf
0x038f…03a6 at0010 = ╱32╱2╱ // 0x39f @0x10
0x038f…03a6 at0011 = ╱ec╱ , ╱ // 0x3a0 @0x11
0x038f…03a6 at0012 = ╱4e╱N╱ // 0x3a1 @0x12
0x038f…03a6 at0013 = ╱52╱R╱ // 0x3a2 @0x13
0x038f…03a6 at0014 = ╱33╱3╱ // 0x3a3 @0x14
0x038f…03a6 at0015 = ╱ee╱ ) ╱ // 0x3a4 @0x15
0x038f…03a6 at0016 = EOL // 0x3a5 @0x16
0x038f…03a6 }
0x03a6…03bd 8af1 0240 IF STATUS ( NR3 $ ) >< MM0 THEN
0x03a6…03bd LineComalBcd {
0x03a6…03bd ptr = 0x8af1 // 0x3a6 @0x0
0x03a6…03bd lno = 0x0240 // 0x3a8 @0x2
0x03a6…03bd at0004 = ╱9c╱ IF ╱ // 0x3aa @0x4
0x03a6…03bd at0005 = ╱ce╱ STATUS ╱ // 0x3ab @0x5
0x03a6…03bd at0006 = ╱ed╱ ( ╱ // 0x3ac @0x6
0x03a6…03bd at0007 = ╱4e╱N╱ // 0x3ad @0x7
0x03a6…03bd at0008 = ╱52╱R╱ // 0x3ae @0x8
0x03a6…03bd at0009 = ╱33╱3╱ // 0x3af @0x9
0x03a6…03bd at000a = ╱ef╱ $ ╱ // 0x3b0 @0xa
0x03a6…03bd at000b = ╱ee╱ ) ╱ // 0x3b1 @0xb
0x03a6…03bd at000c = ╱e1╱ >< ╱ // 0x3b2 @0xc
0x03a6…03bd at000d = ╱4d╱M╱ // 0x3b3 @0xd
0x03a6…03bd at000e = ╱4d╱M╱ // 0x3b4 @0xe
0x03a6…03bd at000f = ╱30╱0╱ // 0x3b5 @0xf
0x03a6…03bd at0010 = ╱fe00000000╱ // 0x3b6 @0x10
0x03a6…03bd at0015 = ╱b6╱ THEN ╱ // 0x3bb @0x15
0x03a6…03bd at0016 = EOL // 0x3bc @0x16
0x03a6…03bd }
0x03bd…03d7 8b0b 0250 PRINT STATUS ( NR3 $ ) , NR1 , NR2 , NR3 $
0x03bd…03d7 LineComalBcd {
0x03bd…03d7 ptr = 0x8b0b // 0x3bd @0x0
0x03bd…03d7 lno = 0x0250 // 0x3bf @0x2
0x03bd…03d7 at0004 = ╱92╱ PRINT ╱ // 0x3c1 @0x4
0x03bd…03d7 at0005 = ╱ce╱ STATUS ╱ // 0x3c2 @0x5
0x03bd…03d7 at0006 = ╱ed╱ ( ╱ // 0x3c3 @0x6
0x03bd…03d7 at0007 = ╱4e╱N╱ // 0x3c4 @0x7
0x03bd…03d7 at0008 = ╱52╱R╱ // 0x3c5 @0x8
0x03bd…03d7 at0009 = ╱33╱3╱ // 0x3c6 @0x9
0x03bd…03d7 at000a = ╱ef╱ $ ╱ // 0x3c7 @0xa
0x03bd…03d7 at000b = ╱ee╱ ) ╱ // 0x3c8 @0xb
0x03bd…03d7 at000c = ╱ec╱ , ╱ // 0x3c9 @0xc
0x03bd…03d7 at000d = ╱4e╱N╱ // 0x3ca @0xd
0x03bd…03d7 at000e = ╱52╱R╱ // 0x3cb @0xe
0x03bd…03d7 at000f = ╱31╱1╱ // 0x3cc @0xf
0x03bd…03d7 at0010 = ╱ec╱ , ╱ // 0x3cd @0x10
0x03bd…03d7 at0011 = ╱4e╱N╱ // 0x3ce @0x11
0x03bd…03d7 at0012 = ╱52╱R╱ // 0x3cf @0x12
0x03bd…03d7 at0013 = ╱32╱2╱ // 0x3d0 @0x13
0x03bd…03d7 at0014 = ╱ec╱ , ╱ // 0x3d1 @0x14
0x03bd…03d7 at0015 = ╱4e╱N╱ // 0x3d2 @0x15
0x03bd…03d7 at0016 = ╱52╱R╱ // 0x3d3 @0x16
0x03bd…03d7 at0017 = ╱33╱3╱ // 0x3d4 @0x17
0x03bd…03d7 at0018 = ╱ef╱ $ ╱ // 0x3d5 @0x18
0x03bd…03d7 at0019 = EOL // 0x3d6 @0x19
0x03bd…03d7 }
0x03d7…03dd 8b11 0260 STOP
0x03d7…03dd LineComalBcd {
0x03d7…03dd ptr = 0x8b11 // 0x3d7 @0x0
0x03d7…03dd lno = 0x0260 // 0x3d9 @0x2
0x03d7…03dd at0004 = ╱8d╱ STOP ╱ // 0x3db @0x4
0x03d7…03dd at0005 = EOL // 0x3dc @0x5
0x03d7…03dd }
0x03dd…03e3 8b17 0270 ENDIF
0x03dd…03e3 LineComalBcd {
0x03dd…03e3 ptr = 0x8b17 // 0x3dd @0x0
0x03dd…03e3 lno = 0x0270 // 0x3df @0x2
0x03dd…03e3 at0004 = ╱9b╱ ENDIF ╱ // 0x3e1 @0x4
0x03dd…03e3 at0005 = EOL // 0x3e2 @0x5
0x03dd…03e3 }
0x03e3…03e9 8b1d 0280 ENDPROC
0x03e3…03e9 LineComalBcd {
0x03e3…03e9 ptr = 0x8b1d // 0x3e3 @0x0
0x03e3…03e9 lno = 0x0280 // 0x3e5 @0x2
0x03e3…03e9 at0004 = ╱9f╱ ENDPROC ╱ // 0x3e7 @0x4
0x03e3…03e9 at0005 = EOL // 0x3e8 @0x5
0x03e3…03e9 }
0x03e9…0405 8b37 0290 PROC INDTAB ( T , MANTAL , K10 ) MM
0x03e9…0405 LineComalBcd {
0x03e9…0405 ptr = 0x8b37 // 0x3e9 @0x0
0x03e9…0405 lno = 0x0290 // 0x3eb @0x2
0x03e9…0405 at0004 = ╱9e╱ PROC ╱ // 0x3ed @0x4
0x03e9…0405 at0005 = ╱49╱I╱ // 0x3ee @0x5
0x03e9…0405 at0006 = ╱4e╱N╱ // 0x3ef @0x6
0x03e9…0405 at0007 = ╱44╱D╱ // 0x3f0 @0x7
0x03e9…0405 at0008 = ╱54╱T╱ // 0x3f1 @0x8
0x03e9…0405 at0009 = ╱41╱A╱ // 0x3f2 @0x9
0x03e9…0405 at000a = ╱42╱B╱ // 0x3f3 @0xa
0x03e9…0405 at000b = ╱ed╱ ( ╱ // 0x3f4 @0xb
0x03e9…0405 at000c = ╱54╱T╱ // 0x3f5 @0xc
0x03e9…0405 at000d = ╱ec╱ , ╱ // 0x3f6 @0xd
0x03e9…0405 at000e = ╱4d╱M╱ // 0x3f7 @0xe
0x03e9…0405 at000f = ╱41╱A╱ // 0x3f8 @0xf
0x03e9…0405 at0010 = ╱4e╱N╱ // 0x3f9 @0x10
0x03e9…0405 at0011 = ╱54╱T╱ // 0x3fa @0x11
0x03e9…0405 at0012 = ╱41╱A╱ // 0x3fb @0x12
0x03e9…0405 at0013 = ╱4c╱L╱ // 0x3fc @0x13
0x03e9…0405 at0014 = ╱ec╱ , ╱ // 0x3fd @0x14
0x03e9…0405 at0015 = ╱4b╱K╱ // 0x3fe @0x15
0x03e9…0405 at0016 = ╱31╱1╱ // 0x3ff @0x16
0x03e9…0405 at0017 = ╱30╱0╱ // 0x400 @0x17
0x03e9…0405 at0018 = ╱ee╱ ) ╱ // 0x401 @0x18
0x03e9…0405 at0019 = ╱4d╱M╱ // 0x402 @0x19
0x03e9…0405 at001a = ╱4d╱M╱ // 0x403 @0x1a
0x03e9…0405 at001b = EOL // 0x404 @0x1b
0x03e9…0405 }
0x0405…0421 8b53 0300 J = MANTAL DIV 32 + 1
0x0405…0421 LineComalBcd {
0x0405…0421 ptr = 0x8b53 // 0x405 @0x0
0x0405…0421 lno = 0x0300 // 0x407 @0x2
0x0405…0421 at0004 = ╱4a╱J╱ // 0x409 @0x4
0x0405…0421 at0005 = ╱dc╱ = ╱ // 0x40a @0x5
0x0405…0421 at0006 = ╱4d╱M╱ // 0x40b @0x6
0x0405…0421 at0007 = ╱41╱A╱ // 0x40c @0x7
0x0405…0421 at0008 = ╱4e╱N╱ // 0x40d @0x8
0x0405…0421 at0009 = ╱54╱T╱ // 0x40e @0x9
0x0405…0421 at000a = ╱41╱A╱ // 0x40f @0xa
0x0405…0421 at000b = ╱4c╱L╱ // 0x410 @0xb
0x0405…0421 at000c = ╱e7╱ DIV ╱ // 0x411 @0xc
0x0405…0421 at000d = ╱33╱3╱ // 0x412 @0xd
0x0405…0421 at000e = ╱32╱2╱ // 0x413 @0xe
0x0405…0421 at000f = ╱fe00008006╱ // 0x414 @0xf
0x0405…0421 at0014 = ╱e2╱ + ╱ // 0x419 @0x14
0x0405…0421 at0015 = ╱31╱1╱ // 0x41a @0x15
0x0405…0421 at0016 = ╱fe00008001╱ // 0x41b @0x16
0x0405…0421 at001b = EOL // 0x420 @0x1b
0x0405…0421 }
0x0421…0441 8b73 0310 FOR I = J TO MANTAL DIV 4 + J - 1
0x0421…0441 LineComalBcd {
0x0421…0441 ptr = 0x8b73 // 0x421 @0x0
0x0421…0441 lno = 0x0310 // 0x423 @0x2
0x0421…0441 at0004 = ╱83╱ FOR ╱ // 0x425 @0x4
0x0421…0441 at0005 = ╱49╱I╱ // 0x426 @0x5
0x0421…0441 at0006 = ╱dc╱ = ╱ // 0x427 @0x6
0x0421…0441 at0007 = ╱4a╱J╱ // 0x428 @0x7
0x0421…0441 at0008 = ╱b7╱ TO ╱ // 0x429 @0x8
0x0421…0441 at0009 = ╱4d╱M╱ // 0x42a @0x9
0x0421…0441 at000a = ╱41╱A╱ // 0x42b @0xa
0x0421…0441 at000b = ╱4e╱N╱ // 0x42c @0xb
0x0421…0441 at000c = ╱54╱T╱ // 0x42d @0xc
0x0421…0441 at000d = ╱41╱A╱ // 0x42e @0xd
0x0421…0441 at000e = ╱4c╱L╱ // 0x42f @0xe
0x0421…0441 at000f = ╱e7╱ DIV ╱ // 0x430 @0xf
0x0421…0441 at0010 = ╱34╱4╱ // 0x431 @0x10
0x0421…0441 at0011 = ╱fe00008003╱ // 0x432 @0x11
0x0421…0441 at0016 = ╱e2╱ + ╱ // 0x437 @0x16
0x0421…0441 at0017 = ╱4a╱J╱ // 0x438 @0x17
0x0421…0441 at0018 = ╱e3╱ - ╱ // 0x439 @0x18
0x0421…0441 at0019 = ╱31╱1╱ // 0x43a @0x19
0x0421…0441 at001a = ╱fe00008001╱ // 0x43b @0x1a
0x0421…0441 at001f = EOL // 0x440 @0x1f
0x0421…0441 }
0x0441…0481 8bb1 0320 H = ( I - J ) * 4 ╱80╱ ╱03╱ + 1 ; J2 = H + 1 ; J3 = H + 2 ; J4 = H + 3
0x0441…0481 LineComalBcd {
0x0441…0481 ptr = 0x8bb1 // 0x441 @0x0
0x0441…0481 lno = 0x0320 // 0x443 @0x2
0x0441…0481 at0004 = ╱48╱H╱ // 0x445 @0x4
0x0441…0481 at0005 = ╱dc╱ = ╱ // 0x446 @0x5
0x0441…0481 at0006 = ╱ed╱ ( ╱ // 0x447 @0x6
0x0441…0481 at0007 = ╱49╱I╱ // 0x448 @0x7
0x0441…0481 at0008 = ╱e3╱ - ╱ // 0x449 @0x8
0x0441…0481 at0009 = ╱4a╱J╱ // 0x44a @0x9
0x0441…0481 at000a = ╱ee╱ ) ╱ // 0x44b @0xa
0x0441…0481 at000b = ╱e4╱ * ╱ // 0x44c @0xb
0x0441…0481 at000c = ╱34╱4╱ // 0x44d @0xc
0x0441…0481 at000d = ╱fe00004d4d╱ // 0x44e @0xd
0x0441…0481 at0012 = ╱80╱ // 0x453 @0x12
0x0441…0481 at0013 = ╱03╱ // 0x454 @0x13
0x0441…0481 at0014 = ╱e2╱ + ╱ // 0x455 @0x14
0x0441…0481 at0015 = ╱31╱1╱ // 0x456 @0x15
0x0441…0481 at0016 = ╱fe00008001╱ // 0x457 @0x16
0x0441…0481 at001b = ╱eb╱ ; ╱ // 0x45c @0x1b
0x0441…0481 at001c = ╱4a╱J╱ // 0x45d @0x1c
0x0441…0481 at001d = ╱32╱2╱ // 0x45e @0x1d
0x0441…0481 at001e = ╱dc╱ = ╱ // 0x45f @0x1e
0x0441…0481 at001f = ╱48╱H╱ // 0x460 @0x1f
0x0441…0481 at0020 = ╱e2╱ + ╱ // 0x461 @0x20
0x0441…0481 at0021 = ╱31╱1╱ // 0x462 @0x21
0x0441…0481 at0022 = ╱fe00008001╱ // 0x463 @0x22
0x0441…0481 at0027 = ╱eb╱ ; ╱ // 0x468 @0x27
0x0441…0481 at0028 = ╱4a╱J╱ // 0x469 @0x28
0x0441…0481 at0029 = ╱33╱3╱ // 0x46a @0x29
0x0441…0481 at002a = ╱dc╱ = ╱ // 0x46b @0x2a
0x0441…0481 at002b = ╱48╱H╱ // 0x46c @0x2b
0x0441…0481 at002c = ╱e2╱ + ╱ // 0x46d @0x2c
0x0441…0481 at002d = ╱32╱2╱ // 0x46e @0x2d
0x0441…0481 at002e = ╱fe00008002╱ // 0x46f @0x2e
0x0441…0481 at0033 = ╱eb╱ ; ╱ // 0x474 @0x33
0x0441…0481 at0034 = ╱4a╱J╱ // 0x475 @0x34
0x0441…0481 at0035 = ╱34╱4╱ // 0x476 @0x35
0x0441…0481 at0036 = ╱dc╱ = ╱ // 0x477 @0x36
0x0441…0481 at0037 = ╱48╱H╱ // 0x478 @0x37
0x0441…0481 at0038 = ╱e2╱ + ╱ // 0x479 @0x38
0x0441…0481 at0039 = ╱33╱3╱ // 0x47a @0x39
0x0441…0481 at003a = ╱fe0000c002╱ // 0x47b @0x3a
0x0441…0481 at003f = EOL // 0x480 @0x3f
0x0441…0481 }
0x0481…04f7 8c23 0330 GET K10 $ , I : T ( H , 1 ) , T ( H , 2 ╱80╱ ╱02╱ ) , T ( J2 , 1 ) , T ( J2 , 2 ) , T ( J3 , 1 ) , T ( J3 , 2 ) , T ( J4 , 1 ) , T ( J4 , 2 ╱80╱ ╱02╱ )
0x0481…04f7 LineComalBcd {
0x0481…04f7 ptr = 0x8c23 // 0x481 @0x0
0x0481…04f7 lno = 0x0330 // 0x483 @0x2
0x0481…04f7 at0004 = ╱a9╱ GET ╱ // 0x485 @0x4
0x0481…04f7 at0005 = ╱4b╱K╱ // 0x486 @0x5
0x0481…04f7 at0006 = ╱31╱1╱ // 0x487 @0x6
0x0481…04f7 at0007 = ╱30╱0╱ // 0x488 @0x7
0x0481…04f7 at0008 = ╱ef╱ $ ╱ // 0x489 @0x8
0x0481…04f7 at0009 = ╱ec╱ , ╱ // 0x48a @0x9
0x0481…04f7 at000a = ╱49╱I╱ // 0x48b @0xa
0x0481…04f7 at000b = ╱f0╱ : ╱ // 0x48c @0xb
0x0481…04f7 at000c = ╱54╱T╱ // 0x48d @0xc
0x0481…04f7 at000d = ╱ed╱ ( ╱ // 0x48e @0xd
0x0481…04f7 at000e = ╱48╱H╱ // 0x48f @0xe
0x0481…04f7 at000f = ╱ec╱ , ╱ // 0x490 @0xf
0x0481…04f7 at0010 = ╱31╱1╱ // 0x491 @0x10
0x0481…04f7 at0011 = ╱fe00008001╱ // 0x492 @0x11
0x0481…04f7 at0016 = ╱ee╱ ) ╱ // 0x497 @0x16
0x0481…04f7 at0017 = ╱ec╱ , ╱ // 0x498 @0x17
0x0481…04f7 at0018 = ╱54╱T╱ // 0x499 @0x18
0x0481…04f7 at0019 = ╱ed╱ ( ╱ // 0x49a @0x19
0x0481…04f7 at001a = ╱48╱H╱ // 0x49b @0x1a
0x0481…04f7 at001b = ╱ec╱ , ╱ // 0x49c @0x1b
0x0481…04f7 at001c = ╱32╱2╱ // 0x49d @0x1c
0x0481…04f7 at001d = ╱fe004d4d00╱ // 0x49e @0x1d
0x0481…04f7 at0022 = ╱80╱ // 0x4a3 @0x22
0x0481…04f7 at0023 = ╱02╱ // 0x4a4 @0x23
0x0481…04f7 at0024 = ╱ee╱ ) ╱ // 0x4a5 @0x24
0x0481…04f7 at0025 = ╱ec╱ , ╱ // 0x4a6 @0x25
0x0481…04f7 at0026 = ╱54╱T╱ // 0x4a7 @0x26
0x0481…04f7 at0027 = ╱ed╱ ( ╱ // 0x4a8 @0x27
0x0481…04f7 at0028 = ╱4a╱J╱ // 0x4a9 @0x28
0x0481…04f7 at0029 = ╱32╱2╱ // 0x4aa @0x29
0x0481…04f7 at002a = ╱ec╱ , ╱ // 0x4ab @0x2a
0x0481…04f7 at002b = ╱31╱1╱ // 0x4ac @0x2b
0x0481…04f7 at002c = ╱fe00008001╱ // 0x4ad @0x2c
0x0481…04f7 at0031 = ╱ee╱ ) ╱ // 0x4b2 @0x31
0x0481…04f7 at0032 = ╱ec╱ , ╱ // 0x4b3 @0x32
0x0481…04f7 at0033 = ╱54╱T╱ // 0x4b4 @0x33
0x0481…04f7 at0034 = ╱ed╱ ( ╱ // 0x4b5 @0x34
0x0481…04f7 at0035 = ╱4a╱J╱ // 0x4b6 @0x35
0x0481…04f7 at0036 = ╱32╱2╱ // 0x4b7 @0x36
0x0481…04f7 at0037 = ╱ec╱ , ╱ // 0x4b8 @0x37
0x0481…04f7 at0038 = ╱32╱2╱ // 0x4b9 @0x38
0x0481…04f7 at0039 = ╱fe00008002╱ // 0x4ba @0x39
0x0481…04f7 at003e = ╱ee╱ ) ╱ // 0x4bf @0x3e
0x0481…04f7 at003f = ╱ec╱ , ╱ // 0x4c0 @0x3f
0x0481…04f7 at0040 = ╱54╱T╱ // 0x4c1 @0x40
0x0481…04f7 at0041 = ╱ed╱ ( ╱ // 0x4c2 @0x41
0x0481…04f7 at0042 = ╱4a╱J╱ // 0x4c3 @0x42
0x0481…04f7 at0043 = ╱33╱3╱ // 0x4c4 @0x43
0x0481…04f7 at0044 = ╱ec╱ , ╱ // 0x4c5 @0x44
0x0481…04f7 at0045 = ╱31╱1╱ // 0x4c6 @0x45
0x0481…04f7 at0046 = ╱fe00008001╱ // 0x4c7 @0x46
0x0481…04f7 at004b = ╱ee╱ ) ╱ // 0x4cc @0x4b
0x0481…04f7 at004c = ╱ec╱ , ╱ // 0x4cd @0x4c
0x0481…04f7 at004d = ╱54╱T╱ // 0x4ce @0x4d
0x0481…04f7 at004e = ╱ed╱ ( ╱ // 0x4cf @0x4e
0x0481…04f7 at004f = ╱4a╱J╱ // 0x4d0 @0x4f
0x0481…04f7 at0050 = ╱33╱3╱ // 0x4d1 @0x50
0x0481…04f7 at0051 = ╱ec╱ , ╱ // 0x4d2 @0x51
0x0481…04f7 at0052 = ╱32╱2╱ // 0x4d3 @0x52
0x0481…04f7 at0053 = ╱fe00008002╱ // 0x4d4 @0x53
0x0481…04f7 at0058 = ╱ee╱ ) ╱ // 0x4d9 @0x58
0x0481…04f7 at0059 = ╱ec╱ , ╱ // 0x4da @0x59
0x0481…04f7 at005a = ╱54╱T╱ // 0x4db @0x5a
0x0481…04f7 at005b = ╱ed╱ ( ╱ // 0x4dc @0x5b
0x0481…04f7 at005c = ╱4a╱J╱ // 0x4dd @0x5c
0x0481…04f7 at005d = ╱34╱4╱ // 0x4de @0x5d
0x0481…04f7 at005e = ╱ec╱ , ╱ // 0x4df @0x5e
0x0481…04f7 at005f = ╱31╱1╱ // 0x4e0 @0x5f
0x0481…04f7 at0060 = ╱fe00008001╱ // 0x4e1 @0x60
0x0481…04f7 at0065 = ╱ee╱ ) ╱ // 0x4e6 @0x65
0x0481…04f7 at0066 = ╱ec╱ , ╱ // 0x4e7 @0x66
0x0481…04f7 at0067 = ╱54╱T╱ // 0x4e8 @0x67
0x0481…04f7 at0068 = ╱ed╱ ( ╱ // 0x4e9 @0x68
0x0481…04f7 at0069 = ╱4a╱J╱ // 0x4ea @0x69
0x0481…04f7 at006a = ╱34╱4╱ // 0x4eb @0x6a
0x0481…04f7 at006b = ╱ec╱ , ╱ // 0x4ec @0x6b
0x0481…04f7 at006c = ╱32╱2╱ // 0x4ed @0x6c
0x0481…04f7 at006d = ╱fe4d4d0000╱ // 0x4ee @0x6d
0x0481…04f7 at0072 = ╱80╱ // 0x4f3 @0x72
0x0481…04f7 at0073 = ╱02╱ // 0x4f4 @0x73
0x0481…04f7 at0074 = ╱ee╱ ) ╱ // 0x4f5 @0x74
0x0481…04f7 at0075 = EOL // 0x4f6 @0x75
0x0481…04f7 }
0x04f7…0515 8c41 0340 EXEC FEJL ( 1 , 1 , K10 $ )
0x04f7…0515 LineComalBcd {
0x04f7…0515 ptr = 0x8c41 // 0x4f7 @0x0
0x04f7…0515 lno = 0x0340 // 0x4f9 @0x2
0x04f7…0515 at0004 = ╱9d╱ EXEC ╱ // 0x4fb @0x4
0x04f7…0515 at0005 = ╱46╱F╱ // 0x4fc @0x5
0x04f7…0515 at0006 = ╱45╱E╱ // 0x4fd @0x6
0x04f7…0515 at0007 = ╱4a╱J╱ // 0x4fe @0x7
0x04f7…0515 at0008 = ╱4c╱L╱ // 0x4ff @0x8
0x04f7…0515 at0009 = ╱ed╱ ( ╱ // 0x500 @0x9
0x04f7…0515 at000a = ╱31╱1╱ // 0x501 @0xa
0x04f7…0515 at000b = ╱fe00008001╱ // 0x502 @0xb
0x04f7…0515 at0010 = ╱ec╱ , ╱ // 0x507 @0x10
0x04f7…0515 at0011 = ╱31╱1╱ // 0x508 @0x11
0x04f7…0515 at0012 = ╱fe00008001╱ // 0x509 @0x12
0x04f7…0515 at0017 = ╱ec╱ , ╱ // 0x50e @0x17
0x04f7…0515 at0018 = ╱4b╱K╱ // 0x50f @0x18
0x04f7…0515 at0019 = ╱31╱1╱ // 0x510 @0x19
0x04f7…0515 at001a = ╱30╱0╱ // 0x511 @0x1a
0x04f7…0515 at001b = ╱ef╱ $ ╱ // 0x512 @0x1b
0x04f7…0515 at001c = ╱ee╱ ) ╱ // 0x513 @0x1c
0x04f7…0515 at001d = EOL // 0x514 @0x1d
0x04f7…0515 }
0x0515…051c 8c48 0350 NEXT I
0x0515…051c LineComalBcd {
0x0515…051c ptr = 0x8c48 // 0x515 @0x0
0x0515…051c lno = 0x0350 // 0x517 @0x2
0x0515…051c at0004 = ╱84╱ NEXT ╱ // 0x519 @0x4
0x0515…051c at0005 = ╱49╱I╱ // 0x51a @0x5
0x0515…051c at0006 = EOL // 0x51b @0x6
0x0515…051c }
0x051c…0522 8c4e 0360 ENDPROC
0x051c…0522 LineComalBcd {
0x051c…0522 ptr = 0x8c4e // 0x51c @0x0
0x051c…0522 lno = 0x0360 // 0x51e @0x2
0x051c…0522 at0004 = ╱9f╱ ENDPROC ╱ // 0x520 @0x4
0x051c…0522 at0005 = EOL // 0x521 @0x5
0x051c…0522 }
0x0522…053b 8c67 0370 PROC UDTAB ( U , MANTAL1 , K9 )
0x0522…053b LineComalBcd {
0x0522…053b ptr = 0x8c67 // 0x522 @0x0
0x0522…053b lno = 0x0370 // 0x524 @0x2
0x0522…053b at0004 = ╱9e╱ PROC ╱ // 0x526 @0x4
0x0522…053b at0005 = ╱55╱U╱ // 0x527 @0x5
0x0522…053b at0006 = ╱44╱D╱ // 0x528 @0x6
0x0522…053b at0007 = ╱54╱T╱ // 0x529 @0x7
0x0522…053b at0008 = ╱41╱A╱ // 0x52a @0x8
0x0522…053b at0009 = ╱42╱B╱ // 0x52b @0x9
0x0522…053b at000a = ╱ed╱ ( ╱ // 0x52c @0xa
0x0522…053b at000b = ╱55╱U╱ // 0x52d @0xb
0x0522…053b at000c = ╱ec╱ , ╱ // 0x52e @0xc
0x0522…053b at000d = ╱4d╱M╱ // 0x52f @0xd
0x0522…053b at000e = ╱41╱A╱ // 0x530 @0xe
0x0522…053b at000f = ╱4e╱N╱ // 0x531 @0xf
0x0522…053b at0010 = ╱54╱T╱ // 0x532 @0x10
0x0522…053b at0011 = ╱41╱A╱ // 0x533 @0x11
0x0522…053b at0012 = ╱4c╱L╱ // 0x534 @0x12
0x0522…053b at0013 = ╱31╱1╱ // 0x535 @0x13
0x0522…053b at0014 = ╱ec╱ , ╱ // 0x536 @0x14
0x0522…053b at0015 = ╱4b╱K╱ // 0x537 @0x15
0x0522…053b at0016 = ╱39╱9╱ // 0x538 @0x16
0x0522…053b at0017 = ╱ee╱ ) ╱ // 0x539 @0x17
0x0522…053b at0018 = EOL // 0x53a @0x18
0x0522…053b }
0x053b…055a 8c84 034d M ╱80╱ J = MANTAL1 DIV 32 + 1
0x053b…055a LineComalBcd {
0x053b…055a ptr = 0x8c84 // 0x53b @0x0
0x053b…055a lno = 0x034d // 0x53d @0x2
0x053b…055a at0004 = ╱4d╱M╱ // 0x53f @0x4
0x053b…055a at0005 = ╱80╱ // 0x540 @0x5
0x053b…055a at0006 = ╱4a╱J╱ // 0x541 @0x6
0x053b…055a at0007 = ╱dc╱ = ╱ // 0x542 @0x7
0x053b…055a at0008 = ╱4d╱M╱ // 0x543 @0x8
0x053b…055a at0009 = ╱41╱A╱ // 0x544 @0x9
0x053b…055a at000a = ╱4e╱N╱ // 0x545 @0xa
0x053b…055a at000b = ╱54╱T╱ // 0x546 @0xb
0x053b…055a at000c = ╱41╱A╱ // 0x547 @0xc
0x053b…055a at000d = ╱4c╱L╱ // 0x548 @0xd
0x053b…055a at000e = ╱31╱1╱ // 0x549 @0xe
0x053b…055a at000f = ╱e7╱ DIV ╱ // 0x54a @0xf
0x053b…055a at0010 = ╱33╱3╱ // 0x54b @0x10
0x053b…055a at0011 = ╱32╱2╱ // 0x54c @0x11
0x053b…055a at0012 = ╱fe00008006╱ // 0x54d @0x12
0x053b…055a at0017 = ╱e2╱ + ╱ // 0x552 @0x17
0x053b…055a at0018 = ╱31╱1╱ // 0x553 @0x18
0x053b…055a at0019 = ╱fe00008001╱ // 0x554 @0x19
0x053b…055a at001e = EOL // 0x559 @0x1e
0x053b…055a }
0x055a…0571 8c9b 0390 FOR I = 1 TO J - 1
0x055a…0571 LineComalBcd {
0x055a…0571 ptr = 0x8c9b // 0x55a @0x0
0x055a…0571 lno = 0x0390 // 0x55c @0x2
0x055a…0571 at0004 = ╱83╱ FOR ╱ // 0x55e @0x4
0x055a…0571 at0005 = ╱49╱I╱ // 0x55f @0x5
0x055a…0571 at0006 = ╱dc╱ = ╱ // 0x560 @0x6
0x055a…0571 at0007 = ╱31╱1╱ // 0x561 @0x7
0x055a…0571 at0008 = ╱fe00008001╱ // 0x562 @0x8
0x055a…0571 at000d = ╱b7╱ TO ╱ // 0x567 @0xd
0x055a…0571 at000e = ╱4a╱J╱ // 0x568 @0xe
0x055a…0571 at000f = ╱e3╱ - ╱ // 0x569 @0xf
0x055a…0571 at0010 = ╱31╱1╱ // 0x56a @0x10
0x055a…0571 at0011 = ╱fe00008001╱ // 0x56b @0x11
0x055a…0571 at0016 = EOL // 0x570 @0x16
0x055a…0571 }
0x0571…05ee 8d14 0400 H = ( I - 1 ) * 32 + 1 ╱80╱ ╱01╱ ; J1 = H + 4 ; J2 = H + 8 ; J3 = H + 12 ; J4 = H + 16 ; J5 = H + 20 ; J6 = H + 24 TAN ╱05╱ ; J7 = H + 28
0x0571…05ee LineComalBcd {
0x0571…05ee ptr = 0x8d14 // 0x571 @0x0
0x0571…05ee lno = 0x0400 // 0x573 @0x2
0x0571…05ee at0004 = ╱48╱H╱ // 0x575 @0x4
0x0571…05ee at0005 = ╱dc╱ = ╱ // 0x576 @0x5
0x0571…05ee at0006 = ╱ed╱ ( ╱ // 0x577 @0x6
0x0571…05ee at0007 = ╱49╱I╱ // 0x578 @0x7
0x0571…05ee at0008 = ╱e3╱ - ╱ // 0x579 @0x8
0x0571…05ee at0009 = ╱31╱1╱ // 0x57a @0x9
0x0571…05ee at000a = ╱fe00008001╱ // 0x57b @0xa
0x0571…05ee at000f = ╱ee╱ ) ╱ // 0x580 @0xf
0x0571…05ee at0010 = ╱e4╱ * ╱ // 0x581 @0x10
0x0571…05ee at0011 = ╱33╱3╱ // 0x582 @0x11
0x0571…05ee at0012 = ╱32╱2╱ // 0x583 @0x12
0x0571…05ee at0013 = ╱fe00008006╱ // 0x584 @0x13
0x0571…05ee at0018 = ╱e2╱ + ╱ // 0x589 @0x18
0x0571…05ee at0019 = ╱31╱1╱ // 0x58a @0x19
0x0571…05ee at001a = ╱fe004d4d00╱ // 0x58b @0x1a
0x0571…05ee at001f = ╱80╱ // 0x590 @0x1f
0x0571…05ee at0020 = ╱01╱ // 0x591 @0x20
0x0571…05ee at0021 = ╱eb╱ ; ╱ // 0x592 @0x21
0x0571…05ee at0022 = ╱4a╱J╱ // 0x593 @0x22
0x0571…05ee at0023 = ╱31╱1╱ // 0x594 @0x23
0x0571…05ee at0024 = ╱dc╱ = ╱ // 0x595 @0x24
0x0571…05ee at0025 = ╱48╱H╱ // 0x596 @0x25
0x0571…05ee at0026 = ╱e2╱ + ╱ // 0x597 @0x26
0x0571…05ee at0027 = ╱34╱4╱ // 0x598 @0x27
0x0571…05ee at0028 = ╱fe00008003╱ // 0x599 @0x28
0x0571…05ee at002d = ╱eb╱ ; ╱ // 0x59e @0x2d
0x0571…05ee at002e = ╱4a╱J╱ // 0x59f @0x2e
0x0571…05ee at002f = ╱32╱2╱ // 0x5a0 @0x2f
0x0571…05ee at0030 = ╱dc╱ = ╱ // 0x5a1 @0x30
0x0571…05ee at0031 = ╱48╱H╱ // 0x5a2 @0x31
0x0571…05ee at0032 = ╱e2╱ + ╱ // 0x5a3 @0x32
0x0571…05ee at0033 = ╱38╱8╱ // 0x5a4 @0x33
0x0571…05ee at0034 = ╱fe00008004╱ // 0x5a5 @0x34
0x0571…05ee at0039 = ╱eb╱ ; ╱ // 0x5aa @0x39
0x0571…05ee at003a = ╱4a╱J╱ // 0x5ab @0x3a
0x0571…05ee at003b = ╱33╱3╱ // 0x5ac @0x3b
0x0571…05ee at003c = ╱dc╱ = ╱ // 0x5ad @0x3c
0x0571…05ee at003d = ╱48╱H╱ // 0x5ae @0x3d
0x0571…05ee at003e = ╱e2╱ + ╱ // 0x5af @0x3e
0x0571…05ee at003f = ╱31╱1╱ // 0x5b0 @0x3f
0x0571…05ee at0040 = ╱32╱2╱ // 0x5b1 @0x40
0x0571…05ee at0041 = ╱fe0000c004╱ // 0x5b2 @0x41
0x0571…05ee at0046 = ╱eb╱ ; ╱ // 0x5b7 @0x46
0x0571…05ee at0047 = ╱4a╱J╱ // 0x5b8 @0x47
0x0571…05ee at0048 = ╱34╱4╱ // 0x5b9 @0x48
0x0571…05ee at0049 = ╱dc╱ = ╱ // 0x5ba @0x49
0x0571…05ee at004a = ╱48╱H╱ // 0x5bb @0x4a
0x0571…05ee at004b = ╱e2╱ + ╱ // 0x5bc @0x4b
0x0571…05ee at004c = ╱31╱1╱ // 0x5bd @0x4c
0x0571…05ee at004d = ╱36╱6╱ // 0x5be @0x4d
0x0571…05ee at004e = ╱fe00008005╱ // 0x5bf @0x4e
0x0571…05ee at0053 = ╱eb╱ ; ╱ // 0x5c4 @0x53
0x0571…05ee at0054 = ╱4a╱J╱ // 0x5c5 @0x54
0x0571…05ee at0055 = ╱35╱5╱ // 0x5c6 @0x55
0x0571…05ee at0056 = ╱dc╱ = ╱ // 0x5c7 @0x56
0x0571…05ee at0057 = ╱48╱H╱ // 0x5c8 @0x57
0x0571…05ee at0058 = ╱e2╱ + ╱ // 0x5c9 @0x58
0x0571…05ee at0059 = ╱32╱2╱ // 0x5ca @0x59
0x0571…05ee at005a = ╱30╱0╱ // 0x5cb @0x5a
0x0571…05ee at005b = ╱fe0000a005╱ // 0x5cc @0x5b
0x0571…05ee at0060 = ╱eb╱ ; ╱ // 0x5d1 @0x60
0x0571…05ee at0061 = ╱4a╱J╱ // 0x5d2 @0x61
0x0571…05ee at0062 = ╱36╱6╱ // 0x5d3 @0x62
0x0571…05ee at0063 = ╱dc╱ = ╱ // 0x5d4 @0x63
0x0571…05ee at0064 = ╱48╱H╱ // 0x5d5 @0x64
0x0571…05ee at0065 = ╱e2╱ + ╱ // 0x5d6 @0x65
0x0571…05ee at0066 = ╱32╱2╱ // 0x5d7 @0x66
0x0571…05ee at0067 = ╱34╱4╱ // 0x5d8 @0x67
0x0571…05ee at0068 = ╱fe00004d4d╱ // 0x5d9 @0x68
0x0571…05ee at006d = ╱c0╱ TAN ╱ // 0x5de @0x6d
0x0571…05ee at006e = ╱05╱ // 0x5df @0x6e
0x0571…05ee at006f = ╱eb╱ ; ╱ // 0x5e0 @0x6f
0x0571…05ee at0070 = ╱4a╱J╱ // 0x5e1 @0x70
0x0571…05ee at0071 = ╱37╱7╱ // 0x5e2 @0x71
0x0571…05ee at0072 = ╱dc╱ = ╱ // 0x5e3 @0x72
0x0571…05ee at0073 = ╱48╱H╱ // 0x5e4 @0x73
0x0571…05ee at0074 = ╱e2╱ + ╱ // 0x5e5 @0x74
0x0571…05ee at0075 = ╱32╱2╱ // 0x5e6 @0x75
0x0571…05ee at0076 = ╱38╱8╱ // 0x5e7 @0x76
0x0571…05ee at0077 = ╱fe0000e005╱ // 0x5e8 @0x77
0x0571…05ee at007c = EOL // 0x5ed @0x7c
0x0571…05ee }
0x05ee…0662 8d86 0410 PUT K9 $ , I : U ( H , 1 ) , U ( J1 , 1 ) , U ( J2 , 1 ) , U ( J3 , 1 ) MM , U ( J4 , 1 ) , U ( J5 , 1 ) , U ( J6 , 1 ) , U ( J7 , 1 )
0x05ee…0662 LineComalBcd {
0x05ee…0662 ptr = 0x8d86 // 0x5ee @0x0
0x05ee…0662 lno = 0x0410 // 0x5f0 @0x2
0x05ee…0662 at0004 = ╱aa╱ PUT ╱ // 0x5f2 @0x4
0x05ee…0662 at0005 = ╱4b╱K╱ // 0x5f3 @0x5
0x05ee…0662 at0006 = ╱39╱9╱ // 0x5f4 @0x6
0x05ee…0662 at0007 = ╱ef╱ $ ╱ // 0x5f5 @0x7
0x05ee…0662 at0008 = ╱ec╱ , ╱ // 0x5f6 @0x8
0x05ee…0662 at0009 = ╱49╱I╱ // 0x5f7 @0x9
0x05ee…0662 at000a = ╱f0╱ : ╱ // 0x5f8 @0xa
0x05ee…0662 at000b = ╱55╱U╱ // 0x5f9 @0xb
0x05ee…0662 at000c = ╱ed╱ ( ╱ // 0x5fa @0xc
0x05ee…0662 at000d = ╱48╱H╱ // 0x5fb @0xd
0x05ee…0662 at000e = ╱ec╱ , ╱ // 0x5fc @0xe
0x05ee…0662 at000f = ╱31╱1╱ // 0x5fd @0xf
0x05ee…0662 at0010 = ╱fe00008001╱ // 0x5fe @0x10
0x05ee…0662 at0015 = ╱ee╱ ) ╱ // 0x603 @0x15
0x05ee…0662 at0016 = ╱ec╱ , ╱ // 0x604 @0x16
0x05ee…0662 at0017 = ╱55╱U╱ // 0x605 @0x17
0x05ee…0662 at0018 = ╱ed╱ ( ╱ // 0x606 @0x18
0x05ee…0662 at0019 = ╱4a╱J╱ // 0x607 @0x19
0x05ee…0662 at001a = ╱31╱1╱ // 0x608 @0x1a
0x05ee…0662 at001b = ╱ec╱ , ╱ // 0x609 @0x1b
0x05ee…0662 at001c = ╱31╱1╱ // 0x60a @0x1c
0x05ee…0662 at001d = ╱fe00008001╱ // 0x60b @0x1d
0x05ee…0662 at0022 = ╱ee╱ ) ╱ // 0x610 @0x22
0x05ee…0662 at0023 = ╱ec╱ , ╱ // 0x611 @0x23
0x05ee…0662 at0024 = ╱55╱U╱ // 0x612 @0x24
0x05ee…0662 at0025 = ╱ed╱ ( ╱ // 0x613 @0x25
0x05ee…0662 at0026 = ╱4a╱J╱ // 0x614 @0x26
0x05ee…0662 at0027 = ╱32╱2╱ // 0x615 @0x27
0x05ee…0662 at0028 = ╱ec╱ , ╱ // 0x616 @0x28
0x05ee…0662 at0029 = ╱31╱1╱ // 0x617 @0x29
0x05ee…0662 at002a = ╱fe00008001╱ // 0x618 @0x2a
0x05ee…0662 at002f = ╱ee╱ ) ╱ // 0x61d @0x2f
0x05ee…0662 at0030 = ╱ec╱ , ╱ // 0x61e @0x30
0x05ee…0662 at0031 = ╱55╱U╱ // 0x61f @0x31
0x05ee…0662 at0032 = ╱ed╱ ( ╱ // 0x620 @0x32
0x05ee…0662 at0033 = ╱4a╱J╱ // 0x621 @0x33
0x05ee…0662 at0034 = ╱33╱3╱ // 0x622 @0x34
0x05ee…0662 at0035 = ╱ec╱ , ╱ // 0x623 @0x35
0x05ee…0662 at0036 = ╱31╱1╱ // 0x624 @0x36
0x05ee…0662 at0037 = ╱fe00008001╱ // 0x625 @0x37
0x05ee…0662 at003c = ╱ee╱ ) ╱ // 0x62a @0x3c
0x05ee…0662 at003d = ╱4d╱M╱ // 0x62b @0x3d
0x05ee…0662 at003e = ╱4d╱M╱ // 0x62c @0x3e
0x05ee…0662 at003f = ╱ec╱ , ╱ // 0x62d @0x3f
0x05ee…0662 at0040 = ╱55╱U╱ // 0x62e @0x40
0x05ee…0662 at0041 = ╱ed╱ ( ╱ // 0x62f @0x41
0x05ee…0662 at0042 = ╱4a╱J╱ // 0x630 @0x42
0x05ee…0662 at0043 = ╱34╱4╱ // 0x631 @0x43
0x05ee…0662 at0044 = ╱ec╱ , ╱ // 0x632 @0x44
0x05ee…0662 at0045 = ╱31╱1╱ // 0x633 @0x45
0x05ee…0662 at0046 = ╱fe00008001╱ // 0x634 @0x46
0x05ee…0662 at004b = ╱ee╱ ) ╱ // 0x639 @0x4b
0x05ee…0662 at004c = ╱ec╱ , ╱ // 0x63a @0x4c
0x05ee…0662 at004d = ╱55╱U╱ // 0x63b @0x4d
0x05ee…0662 at004e = ╱ed╱ ( ╱ // 0x63c @0x4e
0x05ee…0662 at004f = ╱4a╱J╱ // 0x63d @0x4f
0x05ee…0662 at0050 = ╱35╱5╱ // 0x63e @0x50
0x05ee…0662 at0051 = ╱ec╱ , ╱ // 0x63f @0x51
0x05ee…0662 at0052 = ╱31╱1╱ // 0x640 @0x52
0x05ee…0662 at0053 = ╱fe00008001╱ // 0x641 @0x53
0x05ee…0662 at0058 = ╱ee╱ ) ╱ // 0x646 @0x58
0x05ee…0662 at0059 = ╱ec╱ , ╱ // 0x647 @0x59
0x05ee…0662 at005a = ╱55╱U╱ // 0x648 @0x5a
0x05ee…0662 at005b = ╱ed╱ ( ╱ // 0x649 @0x5b
0x05ee…0662 at005c = ╱4a╱J╱ // 0x64a @0x5c
0x05ee…0662 at005d = ╱36╱6╱ // 0x64b @0x5d
0x05ee…0662 at005e = ╱ec╱ , ╱ // 0x64c @0x5e
0x05ee…0662 at005f = ╱31╱1╱ // 0x64d @0x5f
0x05ee…0662 at0060 = ╱fe00008001╱ // 0x64e @0x60
0x05ee…0662 at0065 = ╱ee╱ ) ╱ // 0x653 @0x65
0x05ee…0662 at0066 = ╱ec╱ , ╱ // 0x654 @0x66
0x05ee…0662 at0067 = ╱55╱U╱ // 0x655 @0x67
0x05ee…0662 at0068 = ╱ed╱ ( ╱ // 0x656 @0x68
0x05ee…0662 at0069 = ╱4a╱J╱ // 0x657 @0x69
0x05ee…0662 at006a = ╱37╱7╱ // 0x658 @0x6a
0x05ee…0662 at006b = ╱ec╱ , ╱ // 0x659 @0x6b
0x05ee…0662 at006c = ╱31╱1╱ // 0x65a @0x6c
0x05ee…0662 at006d = ╱fe00008001╱ // 0x65b @0x6d
0x05ee…0662 at0072 = ╱ee╱ ) ╱ // 0x660 @0x72
0x05ee…0662 at0073 = EOL // 0x661 @0x73
0x05ee…0662 }
0x0662…0681 8da3 0420 EXEC FEJL ( 2 , 1 , MMK9 $ )
0x0662…0681 LineComalBcd {
0x0662…0681 ptr = 0x8da3 // 0x662 @0x0
0x0662…0681 lno = 0x0420 // 0x664 @0x2
0x0662…0681 at0004 = ╱9d╱ EXEC ╱ // 0x666 @0x4
0x0662…0681 at0005 = ╱46╱F╱ // 0x667 @0x5
0x0662…0681 at0006 = ╱45╱E╱ // 0x668 @0x6
0x0662…0681 at0007 = ╱4a╱J╱ // 0x669 @0x7
0x0662…0681 at0008 = ╱4c╱L╱ // 0x66a @0x8
0x0662…0681 at0009 = ╱ed╱ ( ╱ // 0x66b @0x9
0x0662…0681 at000a = ╱32╱2╱ // 0x66c @0xa
0x0662…0681 at000b = ╱fe00008002╱ // 0x66d @0xb
0x0662…0681 at0010 = ╱ec╱ , ╱ // 0x672 @0x10
0x0662…0681 at0011 = ╱31╱1╱ // 0x673 @0x11
0x0662…0681 at0012 = ╱fe00008001╱ // 0x674 @0x12
0x0662…0681 at0017 = ╱ec╱ , ╱ // 0x679 @0x17
0x0662…0681 at0018 = ╱4d╱M╱ // 0x67a @0x18
0x0662…0681 at0019 = ╱4d╱M╱ // 0x67b @0x19
0x0662…0681 at001a = ╱4b╱K╱ // 0x67c @0x1a
0x0662…0681 at001b = ╱39╱9╱ // 0x67d @0x1b
0x0662…0681 at001c = ╱ef╱ $ ╱ // 0x67e @0x1c
0x0662…0681 at001d = ╱ee╱ ) ╱ // 0x67f @0x1d
0x0662…0681 at001e = EOL // 0x680 @0x1e
0x0662…0681 }
0x0681…0688 8daa 0430 NEXT I
0x0681…0688 LineComalBcd {
0x0681…0688 ptr = 0x8daa // 0x681 @0x0
0x0681…0688 lno = 0x0430 // 0x683 @0x2
0x0681…0688 at0004 = ╱84╱ NEXT ╱ // 0x685 @0x4
0x0681…0688 at0005 = ╱49╱I╱ // 0x686 @0x5
0x0681…0688 at0006 = EOL // 0x687 @0x6
0x0681…0688 }
0x0688…06a9 8dcb 0440 FOR I = J TO MANTAL1 DIV 4 + J - 1
0x0688…06a9 LineComalBcd {
0x0688…06a9 ptr = 0x8dcb // 0x688 @0x0
0x0688…06a9 lno = 0x0440 // 0x68a @0x2
0x0688…06a9 at0004 = ╱83╱ FOR ╱ // 0x68c @0x4
0x0688…06a9 at0005 = ╱49╱I╱ // 0x68d @0x5
0x0688…06a9 at0006 = ╱dc╱ = ╱ // 0x68e @0x6
0x0688…06a9 at0007 = ╱4a╱J╱ // 0x68f @0x7
0x0688…06a9 at0008 = ╱b7╱ TO ╱ // 0x690 @0x8
0x0688…06a9 at0009 = ╱4d╱M╱ // 0x691 @0x9
0x0688…06a9 at000a = ╱41╱A╱ // 0x692 @0xa
0x0688…06a9 at000b = ╱4e╱N╱ // 0x693 @0xb
0x0688…06a9 at000c = ╱54╱T╱ // 0x694 @0xc
0x0688…06a9 at000d = ╱41╱A╱ // 0x695 @0xd
0x0688…06a9 at000e = ╱4c╱L╱ // 0x696 @0xe
0x0688…06a9 at000f = ╱31╱1╱ // 0x697 @0xf
0x0688…06a9 at0010 = ╱e7╱ DIV ╱ // 0x698 @0x10
0x0688…06a9 at0011 = ╱34╱4╱ // 0x699 @0x11
0x0688…06a9 at0012 = ╱fe00008003╱ // 0x69a @0x12
0x0688…06a9 at0017 = ╱e2╱ + ╱ // 0x69f @0x17
0x0688…06a9 at0018 = ╱4a╱J╱ // 0x6a0 @0x18
0x0688…06a9 at0019 = ╱e3╱ - ╱ // 0x6a1 @0x19
0x0688…06a9 at001a = ╱31╱1╱ // 0x6a2 @0x1a
0x0688…06a9 at001b = ╱fe00008001╱ // 0x6a3 @0x1b
0x0688…06a9 at0020 = EOL // 0x6a8 @0x20
0x0688…06a9 }
0x06a9…06e9 8e09 0450 H = ( I - J ) * 4 + 1 ; J1 = H + 1MM ; J2 = H + 2 ; J3 = H + 3
0x06a9…06e9 LineComalBcd {
0x06a9…06e9 ptr = 0x8e09 // 0x6a9 @0x0
0x06a9…06e9 lno = 0x0450 // 0x6ab @0x2
0x06a9…06e9 at0004 = ╱48╱H╱ // 0x6ad @0x4
0x06a9…06e9 at0005 = ╱dc╱ = ╱ // 0x6ae @0x5
0x06a9…06e9 at0006 = ╱ed╱ ( ╱ // 0x6af @0x6
0x06a9…06e9 at0007 = ╱49╱I╱ // 0x6b0 @0x7
0x06a9…06e9 at0008 = ╱e3╱ - ╱ // 0x6b1 @0x8
0x06a9…06e9 at0009 = ╱4a╱J╱ // 0x6b2 @0x9
0x06a9…06e9 at000a = ╱ee╱ ) ╱ // 0x6b3 @0xa
0x06a9…06e9 at000b = ╱e4╱ * ╱ // 0x6b4 @0xb
0x06a9…06e9 at000c = ╱34╱4╱ // 0x6b5 @0xc
0x06a9…06e9 at000d = ╱fe00008003╱ // 0x6b6 @0xd
0x06a9…06e9 at0012 = ╱e2╱ + ╱ // 0x6bb @0x12
0x06a9…06e9 at0013 = ╱31╱1╱ // 0x6bc @0x13
0x06a9…06e9 at0014 = ╱fe00008001╱ // 0x6bd @0x14
0x06a9…06e9 at0019 = ╱eb╱ ; ╱ // 0x6c2 @0x19
0x06a9…06e9 at001a = ╱4a╱J╱ // 0x6c3 @0x1a
0x06a9…06e9 at001b = ╱31╱1╱ // 0x6c4 @0x1b
0x06a9…06e9 at001c = ╱dc╱ = ╱ // 0x6c5 @0x1c
0x06a9…06e9 at001d = ╱48╱H╱ // 0x6c6 @0x1d
0x06a9…06e9 at001e = ╱e2╱ + ╱ // 0x6c7 @0x1e
0x06a9…06e9 at001f = ╱31╱1╱ // 0x6c8 @0x1f
0x06a9…06e9 at0020 = ╱4d╱M╱ // 0x6c9 @0x20
0x06a9…06e9 at0021 = ╱4d╱M╱ // 0x6ca @0x21
0x06a9…06e9 at0022 = ╱fe00008001╱ // 0x6cb @0x22
0x06a9…06e9 at0027 = ╱eb╱ ; ╱ // 0x6d0 @0x27
0x06a9…06e9 at0028 = ╱4a╱J╱ // 0x6d1 @0x28
0x06a9…06e9 at0029 = ╱32╱2╱ // 0x6d2 @0x29
0x06a9…06e9 at002a = ╱dc╱ = ╱ // 0x6d3 @0x2a
0x06a9…06e9 at002b = ╱48╱H╱ // 0x6d4 @0x2b
0x06a9…06e9 at002c = ╱e2╱ + ╱ // 0x6d5 @0x2c
0x06a9…06e9 at002d = ╱32╱2╱ // 0x6d6 @0x2d
0x06a9…06e9 at002e = ╱fe00008002╱ // 0x6d7 @0x2e
0x06a9…06e9 at0033 = ╱eb╱ ; ╱ // 0x6dc @0x33
0x06a9…06e9 at0034 = ╱4a╱J╱ // 0x6dd @0x34
0x06a9…06e9 at0035 = ╱33╱3╱ // 0x6de @0x35
0x06a9…06e9 at0036 = ╱dc╱ = ╱ // 0x6df @0x36
0x06a9…06e9 at0037 = ╱48╱H╱ // 0x6e0 @0x37
0x06a9…06e9 at0038 = ╱e2╱ + ╱ // 0x6e1 @0x38
0x06a9…06e9 at0039 = ╱33╱3╱ // 0x6e2 @0x39
0x06a9…06e9 at003a = ╱fe0000c002╱ // 0x6e3 @0x3a
0x06a9…06e9 at003f = EOL // 0x6e8 @0x3f
0x06a9…06e9 }
0x06e9…075c 8e7a 0460 PUT K9 $ , I : U ( H , 1 ) , U ( H , 2 ) , U ( J1 , 1 ) MM , U ( J1 , 2 ) , U ( J2 , 1 ) , U ( J2 , 2 ) , U ( J3 , 1 ) , U ( J3 , 2 )
0x06e9…075c LineComalBcd {
0x06e9…075c ptr = 0x8e7a // 0x6e9 @0x0
0x06e9…075c lno = 0x0460 // 0x6eb @0x2
0x06e9…075c at0004 = ╱aa╱ PUT ╱ // 0x6ed @0x4
0x06e9…075c at0005 = ╱4b╱K╱ // 0x6ee @0x5
0x06e9…075c at0006 = ╱39╱9╱ // 0x6ef @0x6
0x06e9…075c at0007 = ╱ef╱ $ ╱ // 0x6f0 @0x7
0x06e9…075c at0008 = ╱ec╱ , ╱ // 0x6f1 @0x8
0x06e9…075c at0009 = ╱49╱I╱ // 0x6f2 @0x9
0x06e9…075c at000a = ╱f0╱ : ╱ // 0x6f3 @0xa
0x06e9…075c at000b = ╱55╱U╱ // 0x6f4 @0xb
0x06e9…075c at000c = ╱ed╱ ( ╱ // 0x6f5 @0xc
0x06e9…075c at000d = ╱48╱H╱ // 0x6f6 @0xd
0x06e9…075c at000e = ╱ec╱ , ╱ // 0x6f7 @0xe
0x06e9…075c at000f = ╱31╱1╱ // 0x6f8 @0xf
0x06e9…075c at0010 = ╱fe00008001╱ // 0x6f9 @0x10
0x06e9…075c at0015 = ╱ee╱ ) ╱ // 0x6fe @0x15
0x06e9…075c at0016 = ╱ec╱ , ╱ // 0x6ff @0x16
0x06e9…075c at0017 = ╱55╱U╱ // 0x700 @0x17
0x06e9…075c at0018 = ╱ed╱ ( ╱ // 0x701 @0x18
0x06e9…075c at0019 = ╱48╱H╱ // 0x702 @0x19
0x06e9…075c at001a = ╱ec╱ , ╱ // 0x703 @0x1a
0x06e9…075c at001b = ╱32╱2╱ // 0x704 @0x1b
0x06e9…075c at001c = ╱fe00008002╱ // 0x705 @0x1c
0x06e9…075c at0021 = ╱ee╱ ) ╱ // 0x70a @0x21
0x06e9…075c at0022 = ╱ec╱ , ╱ // 0x70b @0x22
0x06e9…075c at0023 = ╱55╱U╱ // 0x70c @0x23
0x06e9…075c at0024 = ╱ed╱ ( ╱ // 0x70d @0x24
0x06e9…075c at0025 = ╱4a╱J╱ // 0x70e @0x25
0x06e9…075c at0026 = ╱31╱1╱ // 0x70f @0x26
0x06e9…075c at0027 = ╱ec╱ , ╱ // 0x710 @0x27
0x06e9…075c at0028 = ╱31╱1╱ // 0x711 @0x28
0x06e9…075c at0029 = ╱fe00008001╱ // 0x712 @0x29
0x06e9…075c at002e = ╱ee╱ ) ╱ // 0x717 @0x2e
0x06e9…075c at002f = ╱4d╱M╱ // 0x718 @0x2f
0x06e9…075c at0030 = ╱4d╱M╱ // 0x719 @0x30
0x06e9…075c at0031 = ╱ec╱ , ╱ // 0x71a @0x31
0x06e9…075c at0032 = ╱55╱U╱ // 0x71b @0x32
0x06e9…075c at0033 = ╱ed╱ ( ╱ // 0x71c @0x33
0x06e9…075c at0034 = ╱4a╱J╱ // 0x71d @0x34
0x06e9…075c at0035 = ╱31╱1╱ // 0x71e @0x35
0x06e9…075c at0036 = ╱ec╱ , ╱ // 0x71f @0x36
0x06e9…075c at0037 = ╱32╱2╱ // 0x720 @0x37
0x06e9…075c at0038 = ╱fe00008002╱ // 0x721 @0x38
0x06e9…075c at003d = ╱ee╱ ) ╱ // 0x726 @0x3d
0x06e9…075c at003e = ╱ec╱ , ╱ // 0x727 @0x3e
0x06e9…075c at003f = ╱55╱U╱ // 0x728 @0x3f
0x06e9…075c at0040 = ╱ed╱ ( ╱ // 0x729 @0x40
0x06e9…075c at0041 = ╱4a╱J╱ // 0x72a @0x41
0x06e9…075c at0042 = ╱32╱2╱ // 0x72b @0x42
0x06e9…075c at0043 = ╱ec╱ , ╱ // 0x72c @0x43
0x06e9…075c at0044 = ╱31╱1╱ // 0x72d @0x44
0x06e9…075c at0045 = ╱fe00008001╱ // 0x72e @0x45
0x06e9…075c at004a = ╱ee╱ ) ╱ // 0x733 @0x4a
0x06e9…075c at004b = ╱ec╱ , ╱ // 0x734 @0x4b
0x06e9…075c at004c = ╱55╱U╱ // 0x735 @0x4c
0x06e9…075c at004d = ╱ed╱ ( ╱ // 0x736 @0x4d
0x06e9…075c at004e = ╱4a╱J╱ // 0x737 @0x4e
0x06e9…075c at004f = ╱32╱2╱ // 0x738 @0x4f
0x06e9…075c at0050 = ╱ec╱ , ╱ // 0x739 @0x50
0x06e9…075c at0051 = ╱32╱2╱ // 0x73a @0x51
0x06e9…075c at0052 = ╱fe00008002╱ // 0x73b @0x52
0x06e9…075c at0057 = ╱ee╱ ) ╱ // 0x740 @0x57
0x06e9…075c at0058 = ╱ec╱ , ╱ // 0x741 @0x58
0x06e9…075c at0059 = ╱55╱U╱ // 0x742 @0x59
0x06e9…075c at005a = ╱ed╱ ( ╱ // 0x743 @0x5a
0x06e9…075c at005b = ╱4a╱J╱ // 0x744 @0x5b
0x06e9…075c at005c = ╱33╱3╱ // 0x745 @0x5c
0x06e9…075c at005d = ╱ec╱ , ╱ // 0x746 @0x5d
0x06e9…075c at005e = ╱31╱1╱ // 0x747 @0x5e
0x06e9…075c at005f = ╱fe00008001╱ // 0x748 @0x5f
0x06e9…075c at0064 = ╱ee╱ ) ╱ // 0x74d @0x64
0x06e9…075c at0065 = ╱ec╱ , ╱ // 0x74e @0x65
0x06e9…075c at0066 = ╱55╱U╱ // 0x74f @0x66
0x06e9…075c at0067 = ╱ed╱ ( ╱ // 0x750 @0x67
0x06e9…075c at0068 = ╱4a╱J╱ // 0x751 @0x68
0x06e9…075c at0069 = ╱33╱3╱ // 0x752 @0x69
0x06e9…075c at006a = ╱ec╱ , ╱ // 0x753 @0x6a
0x06e9…075c at006b = ╱32╱2╱ // 0x754 @0x6b
0x06e9…075c at006c = ╱fe00008002╱ // 0x755 @0x6c
0x06e9…075c at0071 = ╱ee╱ ) ╱ // 0x75a @0x71
0x06e9…075c at0072 = EOL // 0x75b @0x72
0x06e9…075c }
0x075c…077b 8e97 0470 EXEC FEJL ( 2MM , 2 , K9 $ )
0x075c…077b LineComalBcd {
0x075c…077b ptr = 0x8e97 // 0x75c @0x0
0x075c…077b lno = 0x0470 // 0x75e @0x2
0x075c…077b at0004 = ╱9d╱ EXEC ╱ // 0x760 @0x4
0x075c…077b at0005 = ╱46╱F╱ // 0x761 @0x5
0x075c…077b at0006 = ╱45╱E╱ // 0x762 @0x6
0x075c…077b at0007 = ╱4a╱J╱ // 0x763 @0x7
0x075c…077b at0008 = ╱4c╱L╱ // 0x764 @0x8
0x075c…077b at0009 = ╱ed╱ ( ╱ // 0x765 @0x9
0x075c…077b at000a = ╱32╱2╱ // 0x766 @0xa
0x075c…077b at000b = ╱4d╱M╱ // 0x767 @0xb
0x075c…077b at000c = ╱4d╱M╱ // 0x768 @0xc
0x075c…077b at000d = ╱fe00008002╱ // 0x769 @0xd
0x075c…077b at0012 = ╱ec╱ , ╱ // 0x76e @0x12
0x075c…077b at0013 = ╱32╱2╱ // 0x76f @0x13
0x075c…077b at0014 = ╱fe00008002╱ // 0x770 @0x14
0x075c…077b at0019 = ╱ec╱ , ╱ // 0x775 @0x19
0x075c…077b at001a = ╱4b╱K╱ // 0x776 @0x1a
0x075c…077b at001b = ╱39╱9╱ // 0x777 @0x1b
0x075c…077b at001c = ╱ef╱ $ ╱ // 0x778 @0x1c
0x075c…077b at001d = ╱ee╱ ) ╱ // 0x779 @0x1d
0x075c…077b at001e = EOL // 0x77a @0x1e
0x075c…077b }
0x077b…0782 8e9e 0480 NEXT I
0x077b…0782 LineComalBcd {
0x077b…0782 ptr = 0x8e9e // 0x77b @0x0
0x077b…0782 lno = 0x0480 // 0x77d @0x2
0x077b…0782 at0004 = ╱84╱ NEXT ╱ // 0x77f @0x4
0x077b…0782 at0005 = ╱49╱I╱ // 0x780 @0x5
0x077b…0782 at0006 = EOL // 0x781 @0x6
0x077b…0782 }
0x0782…0788 8ea4 0490 ENDPROC
0x0782…0788 LineComalBcd {
0x0782…0788 ptr = 0x8ea4 // 0x782 @0x0
0x0782…0788 lno = 0x0490 // 0x784 @0x2
0x0782…0788 at0004 = ╱9f╱ ENDPROC ╱ // 0x786 @0x4
0x0782…0788 at0005 = EOL // 0x787 @0x5
0x0782…0788 }
0x0788…07ad 8ec9 0500 PROC FINDPOST ( TAB1 , MANT1 , N\GL1 , PIL3 )
0x0788…07ad LineComalBcd {
0x0788…07ad ptr = 0x8ec9 // 0x788 @0x0
0x0788…07ad lno = 0x0500 // 0x78a @0x2
0x0788…07ad at0004 = ╱9e╱ PROC ╱ // 0x78c @0x4
0x0788…07ad at0005 = ╱46╱F╱ // 0x78d @0x5
0x0788…07ad at0006 = ╱49╱I╱ // 0x78e @0x6
0x0788…07ad at0007 = ╱4e╱N╱ // 0x78f @0x7
0x0788…07ad at0008 = ╱44╱D╱ // 0x790 @0x8
0x0788…07ad at0009 = ╱50╱P╱ // 0x791 @0x9
0x0788…07ad at000a = ╱4f╱O╱ // 0x792 @0xa
0x0788…07ad at000b = ╱53╱S╱ // 0x793 @0xb
0x0788…07ad at000c = ╱54╱T╱ // 0x794 @0xc
0x0788…07ad at000d = ╱ed╱ ( ╱ // 0x795 @0xd
0x0788…07ad at000e = ╱54╱T╱ // 0x796 @0xe
0x0788…07ad at000f = ╱41╱A╱ // 0x797 @0xf
0x0788…07ad at0010 = ╱42╱B╱ // 0x798 @0x10
0x0788…07ad at0011 = ╱31╱1╱ // 0x799 @0x11
0x0788…07ad at0012 = ╱ec╱ , ╱ // 0x79a @0x12
0x0788…07ad at0013 = ╱4d╱M╱ // 0x79b @0x13
0x0788…07ad at0014 = ╱41╱A╱ // 0x79c @0x14
0x0788…07ad at0015 = ╱4e╱N╱ // 0x79d @0x15
0x0788…07ad at0016 = ╱54╱T╱ // 0x79e @0x16
0x0788…07ad at0017 = ╱31╱1╱ // 0x79f @0x17
0x0788…07ad at0018 = ╱ec╱ , ╱ // 0x7a0 @0x18
0x0788…07ad at0019 = ╱4e╱N╱ // 0x7a1 @0x19
0x0788…07ad at001a = ╱5c╱\╱ // 0x7a2 @0x1a
0x0788…07ad at001b = ╱47╱G╱ // 0x7a3 @0x1b
0x0788…07ad at001c = ╱4c╱L╱ // 0x7a4 @0x1c
0x0788…07ad at001d = ╱31╱1╱ // 0x7a5 @0x1d
0x0788…07ad at001e = ╱ec╱ , ╱ // 0x7a6 @0x1e
0x0788…07ad at001f = ╱50╱P╱ // 0x7a7 @0x1f
0x0788…07ad at0020 = ╱49╱I╱ // 0x7a8 @0x20
0x0788…07ad at0021 = ╱4c╱L╱ // 0x7a9 @0x21
0x0788…07ad at0022 = ╱33╱3╱ // 0x7aa @0x22
0x0788…07ad at0023 = ╱ee╱ ) ╱ // 0x7ab @0x23
0x0788…07ad at0024 = EOL // 0x7ac @0x24
0x0788…07ad }
0x07ad…07db 8ef5 0510 PIL1 = MMMANT1 DIV 2 ; PIL3 = PIL1 ; CEKS = 1
0x07ad…07db LineComalBcd {
0x07ad…07db ptr = 0x8ef5 // 0x7ad @0x0
0x07ad…07db lno = 0x0510 // 0x7af @0x2
0x07ad…07db at0004 = ╱50╱P╱ // 0x7b1 @0x4
0x07ad…07db at0005 = ╱49╱I╱ // 0x7b2 @0x5
0x07ad…07db at0006 = ╱4c╱L╱ // 0x7b3 @0x6
0x07ad…07db at0007 = ╱31╱1╱ // 0x7b4 @0x7
0x07ad…07db at0008 = ╱dc╱ = ╱ // 0x7b5 @0x8
0x07ad…07db at0009 = ╱4d╱M╱ // 0x7b6 @0x9
0x07ad…07db at000a = ╱4d╱M╱ // 0x7b7 @0xa
0x07ad…07db at000b = ╱4d╱M╱ // 0x7b8 @0xb
0x07ad…07db at000c = ╱41╱A╱ // 0x7b9 @0xc
0x07ad…07db at000d = ╱4e╱N╱ // 0x7ba @0xd
0x07ad…07db at000e = ╱54╱T╱ // 0x7bb @0xe
0x07ad…07db at000f = ╱31╱1╱ // 0x7bc @0xf
0x07ad…07db at0010 = ╱e7╱ DIV ╱ // 0x7bd @0x10
0x07ad…07db at0011 = ╱32╱2╱ // 0x7be @0x11
0x07ad…07db at0012 = ╱fe00008002╱ // 0x7bf @0x12
0x07ad…07db at0017 = ╱eb╱ ; ╱ // 0x7c4 @0x17
0x07ad…07db at0018 = ╱50╱P╱ // 0x7c5 @0x18
0x07ad…07db at0019 = ╱49╱I╱ // 0x7c6 @0x19
0x07ad…07db at001a = ╱4c╱L╱ // 0x7c7 @0x1a
0x07ad…07db at001b = ╱33╱3╱ // 0x7c8 @0x1b
0x07ad…07db at001c = ╱dc╱ = ╱ // 0x7c9 @0x1c
0x07ad…07db at001d = ╱50╱P╱ // 0x7ca @0x1d
0x07ad…07db at001e = ╱49╱I╱ // 0x7cb @0x1e
0x07ad…07db at001f = ╱4c╱L╱ // 0x7cc @0x1f
0x07ad…07db at0020 = ╱31╱1╱ // 0x7cd @0x20
0x07ad…07db at0021 = ╱eb╱ ; ╱ // 0x7ce @0x21
0x07ad…07db at0022 = ╱43╱C╱ // 0x7cf @0x22
0x07ad…07db at0023 = ╱45╱E╱ // 0x7d0 @0x23
0x07ad…07db at0024 = ╱4b╱K╱ // 0x7d1 @0x24
0x07ad…07db at0025 = ╱53╱S╱ // 0x7d2 @0x25
0x07ad…07db at0026 = ╱dc╱ = ╱ // 0x7d3 @0x26
0x07ad…07db at0027 = ╱31╱1╱ // 0x7d4 @0x27
0x07ad…07db at0028 = ╱fe00008001╱ // 0x7d5 @0x28
0x07ad…07db at002d = EOL // 0x7da @0x2d
0x07ad…07db }
0x07db…07e1 8efb 0520 REPEAT
0x07db…07e1 LineComalBcd {
0x07db…07e1 ptr = 0x8efb // 0x7db @0x0
0x07db…07e1 lno = 0x0520 // 0x7dd @0x2
0x07db…07e1 at0004 = ╱97╱ REPEAT ╱ // 0x7df @0x4
0x07db…07e1 at0005 = EOL // 0x7e0 @0x5
0x07db…07e1 }
0x07e1…07ff 8f19 0530 IF N\GL1 = TAB1 ( PIL3 , 1 ) THEN
0x07e1…07ff LineComalBcd {
0x07e1…07ff ptr = 0x8f19 // 0x7e1 @0x0
0x07e1…07ff lno = 0x0530 // 0x7e3 @0x2
0x07e1…07ff at0004 = ╱9c╱ IF ╱ // 0x7e5 @0x4
0x07e1…07ff at0005 = ╱4e╱N╱ // 0x7e6 @0x5
0x07e1…07ff at0006 = ╱5c╱\╱ // 0x7e7 @0x6
0x07e1…07ff at0007 = ╱47╱G╱ // 0x7e8 @0x7
0x07e1…07ff at0008 = ╱4c╱L╱ // 0x7e9 @0x8
0x07e1…07ff at0009 = ╱31╱1╱ // 0x7ea @0x9
0x07e1…07ff at000a = ╱dc╱ = ╱ // 0x7eb @0xa
0x07e1…07ff at000b = ╱54╱T╱ // 0x7ec @0xb
0x07e1…07ff at000c = ╱41╱A╱ // 0x7ed @0xc
0x07e1…07ff at000d = ╱42╱B╱ // 0x7ee @0xd
0x07e1…07ff at000e = ╱31╱1╱ // 0x7ef @0xe
0x07e1…07ff at000f = ╱ed╱ ( ╱ // 0x7f0 @0xf
0x07e1…07ff at0010 = ╱50╱P╱ // 0x7f1 @0x10
0x07e1…07ff at0011 = ╱49╱I╱ // 0x7f2 @0x11
0x07e1…07ff at0012 = ╱4c╱L╱ // 0x7f3 @0x12
0x07e1…07ff at0013 = ╱33╱3╱ // 0x7f4 @0x13
0x07e1…07ff at0014 = ╱ec╱ , ╱ // 0x7f5 @0x14
0x07e1…07ff at0015 = ╱31╱1╱ // 0x7f6 @0x15
0x07e1…07ff at0016 = ╱fe00008001╱ // 0x7f7 @0x16
0x07e1…07ff at001b = ╱ee╱ ) ╱ // 0x7fc @0x1b
0x07e1…07ff at001c = ╱b6╱ THEN ╱ // 0x7fd @0x1c
0x07e1…07ff at001d = EOL // 0x7fe @0x1d
0x07e1…07ff }
0x07ff…0811 8f29 0540 CEMMKS = 0
0x07ff…0811 LineComalBcd {
0x07ff…0811 ptr = 0x8f29 // 0x7ff @0x0
0x07ff…0811 lno = 0x0540 // 0x801 @0x2
0x07ff…0811 at0004 = ╱43╱C╱ // 0x803 @0x4
0x07ff…0811 at0005 = ╱45╱E╱ // 0x804 @0x5
0x07ff…0811 at0006 = ╱4d╱M╱ // 0x805 @0x6
0x07ff…0811 at0007 = ╱4d╱M╱ // 0x806 @0x7
0x07ff…0811 at0008 = ╱4b╱K╱ // 0x807 @0x8
0x07ff…0811 at0009 = ╱53╱S╱ // 0x808 @0x9
0x07ff…0811 at000a = ╱dc╱ = ╱ // 0x809 @0xa
0x07ff…0811 at000b = ╱30╱0╱ // 0x80a @0xb
0x07ff…0811 at000c = ╱fe00000000╱ // 0x80b @0xc
0x07ff…0811 at0011 = EOL // 0x810 @0x11
0x07ff…0811 }
0x0811…0817 8f2f 0550 ELSE
0x0811…0817 LineComalBcd {
0x0811…0817 ptr = 0x8f2f // 0x811 @0x0
0x0811…0817 lno = 0x0550 // 0x813 @0x2
0x0811…0817 at0004 = ╱9a╱ ELSE ╱ // 0x815 @0x4
0x0811…0817 at0005 = EOL // 0x816 @0x5
0x0811…0817 }
0x0817…0834 8f4c 0560 IF PIL1 = 1 THEN PIL1 = 0
0x0817…0834 LineComalBcd {
0x0817…0834 ptr = 0x8f4c // 0x817 @0x0
0x0817…0834 lno = 0x0560 // 0x819 @0x2
0x0817…0834 at0004 = ╱82╱ IF ╱ // 0x81b @0x4
0x0817…0834 at0005 = ╱50╱P╱ // 0x81c @0x5
0x0817…0834 at0006 = ╱49╱I╱ // 0x81d @0x6
0x0817…0834 at0007 = ╱4c╱L╱ // 0x81e @0x7
0x0817…0834 at0008 = ╱31╱1╱ // 0x81f @0x8
0x0817…0834 at0009 = ╱dc╱ = ╱ // 0x820 @0x9
0x0817…0834 at000a = ╱31╱1╱ // 0x821 @0xa
0x0817…0834 at000b = ╱fe00008001╱ // 0x822 @0xb
0x0817…0834 at0010 = ╱b6╱ THEN ╱ // 0x827 @0x10
0x0817…0834 at0011 = ╱50╱P╱ // 0x828 @0x11
0x0817…0834 at0012 = ╱49╱I╱ // 0x829 @0x12
0x0817…0834 at0013 = ╱4c╱L╱ // 0x82a @0x13
0x0817…0834 at0014 = ╱31╱1╱ // 0x82b @0x14
0x0817…0834 at0015 = ╱dc╱ = ╱ // 0x82c @0x15
0x0817…0834 at0016 = ╱30╱0╱ // 0x82d @0x16
0x0817…0834 at0017 = ╱fe00000000╱ // 0x82e @0x17
0x0817…0834 at001c = EOL // 0x833 @0x1c
0x0817…0834 }
0x0834…0857 8f6d 0570 PIL1 = INT ( ( PIL1 + 1 ) / 2 ) MM
0x0834…0857 LineComalBcd {
0x0834…0857 ptr = 0x8f6d // 0x834 @0x0
0x0834…0857 lno = 0x0570 // 0x836 @0x2
0x0834…0857 at0004 = ╱50╱P╱ // 0x838 @0x4
0x0834…0857 at0005 = ╱49╱I╱ // 0x839 @0x5
0x0834…0857 at0006 = ╱4c╱L╱ // 0x83a @0x6
0x0834…0857 at0007 = ╱31╱1╱ // 0x83b @0x7
0x0834…0857 at0008 = ╱dc╱ = ╱ // 0x83c @0x8
0x0834…0857 at0009 = ╱c6╱ INT ╱ // 0x83d @0x9
0x0834…0857 at000a = ╱ed╱ ( ╱ // 0x83e @0xa
0x0834…0857 at000b = ╱ed╱ ( ╱ // 0x83f @0xb
0x0834…0857 at000c = ╱50╱P╱ // 0x840 @0xc
0x0834…0857 at000d = ╱49╱I╱ // 0x841 @0xd
0x0834…0857 at000e = ╱4c╱L╱ // 0x842 @0xe
0x0834…0857 at000f = ╱31╱1╱ // 0x843 @0xf
0x0834…0857 at0010 = ╱e2╱ + ╱ // 0x844 @0x10
0x0834…0857 at0011 = ╱31╱1╱ // 0x845 @0x11
0x0834…0857 at0012 = ╱fe00008001╱ // 0x846 @0x12
0x0834…0857 at0017 = ╱ee╱ ) ╱ // 0x84b @0x17
0x0834…0857 at0018 = ╱e5╱ / ╱ // 0x84c @0x18
0x0834…0857 at0019 = ╱32╱2╱ // 0x84d @0x19
0x0834…0857 at001a = ╱fe00008002╱ // 0x84e @0x1a
0x0834…0857 at001f = ╱ee╱ ) ╱ // 0x853 @0x1f
0x0834…0857 at0020 = ╱4d╱M╱ // 0x854 @0x20
0x0834…0857 at0021 = ╱4d╱M╱ // 0x855 @0x21
0x0834…0857 at0022 = EOL // 0x856 @0x22
0x0834…0857 }
0x0857…0875 8f8b 0580 IF N\GL1 > TAB1 ( PIL3 , 1 ) THEN
0x0857…0875 LineComalBcd {
0x0857…0875 ptr = 0x8f8b // 0x857 @0x0
0x0857…0875 lno = 0x0580 // 0x859 @0x2
0x0857…0875 at0004 = ╱9c╱ IF ╱ // 0x85b @0x4
0x0857…0875 at0005 = ╱4e╱N╱ // 0x85c @0x5
0x0857…0875 at0006 = ╱5c╱\╱ // 0x85d @0x6
0x0857…0875 at0007 = ╱47╱G╱ // 0x85e @0x7
0x0857…0875 at0008 = ╱4c╱L╱ // 0x85f @0x8
0x0857…0875 at0009 = ╱31╱1╱ // 0x860 @0x9
0x0857…0875 at000a = ╱de╱ > ╱ // 0x861 @0xa
0x0857…0875 at000b = ╱54╱T╱ // 0x862 @0xb
0x0857…0875 at000c = ╱41╱A╱ // 0x863 @0xc
0x0857…0875 at000d = ╱42╱B╱ // 0x864 @0xd
0x0857…0875 at000e = ╱31╱1╱ // 0x865 @0xe
0x0857…0875 at000f = ╱ed╱ ( ╱ // 0x866 @0xf
0x0857…0875 at0010 = ╱50╱P╱ // 0x867 @0x10
0x0857…0875 at0011 = ╱49╱I╱ // 0x868 @0x11
0x0857…0875 at0012 = ╱4c╱L╱ // 0x869 @0x12
0x0857…0875 at0013 = ╱33╱3╱ // 0x86a @0x13
0x0857…0875 at0014 = ╱ec╱ , ╱ // 0x86b @0x14
0x0857…0875 at0015 = ╱31╱1╱ // 0x86c @0x15
0x0857…0875 at0016 = ╱fe00008001╱ // 0x86d @0x16
0x0857…0875 at001b = ╱ee╱ ) ╱ // 0x872 @0x1b
0x0857…0875 at001c = ╱b6╱ THEN ╱ // 0x873 @0x1c
0x0857…0875 at001d = EOL // 0x874 @0x1d
0x0857…0875 }
0x0875…0888 8f9e 0590 PIL3 = PIL3 + PIL1
0x0875…0888 LineComalBcd {
0x0875…0888 ptr = 0x8f9e // 0x875 @0x0
0x0875…0888 lno = 0x0590 // 0x877 @0x2
0x0875…0888 at0004 = ╱50╱P╱ // 0x879 @0x4
0x0875…0888 at0005 = ╱49╱I╱ // 0x87a @0x5
0x0875…0888 at0006 = ╱4c╱L╱ // 0x87b @0x6
0x0875…0888 at0007 = ╱33╱3╱ // 0x87c @0x7
0x0875…0888 at0008 = ╱dc╱ = ╱ // 0x87d @0x8
0x0875…0888 at0009 = ╱50╱P╱ // 0x87e @0x9
0x0875…0888 at000a = ╱49╱I╱ // 0x87f @0xa
0x0875…0888 at000b = ╱4c╱L╱ // 0x880 @0xb
0x0875…0888 at000c = ╱33╱3╱ // 0x881 @0xc
0x0875…0888 at000d = ╱e2╱ + ╱ // 0x882 @0xd
0x0875…0888 at000e = ╱50╱P╱ // 0x883 @0xe
0x0875…0888 at000f = ╱49╱I╱ // 0x884 @0xf
0x0875…0888 at0010 = ╱4c╱L╱ // 0x885 @0x10
0x0875…0888 at0011 = ╱31╱1╱ // 0x886 @0x11
0x0875…0888 at0012 = EOL // 0x887 @0x12
0x0875…0888 }
0x0888…088e 8fa4 0600 ELSE
0x0888…088e LineComalBcd {
0x0888…088e ptr = 0x8fa4 // 0x888 @0x0
0x0888…088e lno = 0x0600 // 0x88a @0x2
0x0888…088e at0004 = ╱9a╱ ELSE ╱ // 0x88c @0x4
0x0888…088e at0005 = EOL // 0x88d @0x5
0x0888…088e }
0x088e…08a1 8fb7 0610 PIL3 = PIL3 - PIL1
0x088e…08a1 LineComalBcd {
0x088e…08a1 ptr = 0x8fb7 // 0x88e @0x0
0x088e…08a1 lno = 0x0610 // 0x890 @0x2
0x088e…08a1 at0004 = ╱50╱P╱ // 0x892 @0x4
0x088e…08a1 at0005 = ╱49╱I╱ // 0x893 @0x5
0x088e…08a1 at0006 = ╱4c╱L╱ // 0x894 @0x6
0x088e…08a1 at0007 = ╱33╱3╱ // 0x895 @0x7
0x088e…08a1 at0008 = ╱dc╱ = ╱ // 0x896 @0x8
0x088e…08a1 at0009 = ╱50╱P╱ // 0x897 @0x9
0x088e…08a1 at000a = ╱49╱I╱ // 0x898 @0xa
0x088e…08a1 at000b = ╱4c╱L╱ // 0x899 @0xb
0x088e…08a1 at000c = ╱33╱3╱ // 0x89a @0xc
0x088e…08a1 at000d = ╱e3╱ - ╱ // 0x89b @0xd
0x088e…08a1 at000e = ╱50╱P╱ // 0x89c @0xe
0x088e…08a1 at000f = ╱49╱I╱ // 0x89d @0xf
0x088e…08a1 at0010 = ╱4c╱L╱ // 0x89e @0x10
0x088e…08a1 at0011 = ╱31╱1╱ // 0x89f @0x11
0x088e…08a1 at0012 = EOL // 0x8a0 @0x12
0x088e…08a1 }
0x08a1…08a9 8fbd 4d4d ╱06╱ … ENDIF
0x08a1…08a9 LineComalBcd {
0x08a1…08a9 ptr = 0x8fbd // 0x8a1 @0x0
0x08a1…08a9 lno = 0x4d4d // 0x8a3 @0x2
0x08a1…08a9 at0004 = ╱06╱ // 0x8a5 @0x4
0x08a1…08a9 at0005 = ╱20╱…╱ // 0x8a6 @0x5
0x08a1…08a9 at0006 = ╱9b╱ ENDIF ╱ // 0x8a7 @0x6
0x08a1…08a9 at0007 = EOL // 0x8a8 @0x7
0x08a1…08a9 }
0x08a9…08c6 8fda 0630 IF PIL3 < 1 THEN PIL3 = 1
0x08a9…08c6 LineComalBcd {
0x08a9…08c6 ptr = 0x8fda // 0x8a9 @0x0
0x08a9…08c6 lno = 0x0630 // 0x8ab @0x2
0x08a9…08c6 at0004 = ╱82╱ IF ╱ // 0x8ad @0x4
0x08a9…08c6 at0005 = ╱50╱P╱ // 0x8ae @0x5
0x08a9…08c6 at0006 = ╱49╱I╱ // 0x8af @0x6
0x08a9…08c6 at0007 = ╱4c╱L╱ // 0x8b0 @0x7
0x08a9…08c6 at0008 = ╱33╱3╱ // 0x8b1 @0x8
0x08a9…08c6 at0009 = ╱dd╱ < ╱ // 0x8b2 @0x9
0x08a9…08c6 at000a = ╱31╱1╱ // 0x8b3 @0xa
0x08a9…08c6 at000b = ╱fe00008001╱ // 0x8b4 @0xb
0x08a9…08c6 at0010 = ╱b6╱ THEN ╱ // 0x8b9 @0x10
0x08a9…08c6 at0011 = ╱50╱P╱ // 0x8ba @0x11
0x08a9…08c6 at0012 = ╱49╱I╱ // 0x8bb @0x12
0x08a9…08c6 at0013 = ╱4c╱L╱ // 0x8bc @0x13
0x08a9…08c6 at0014 = ╱33╱3╱ // 0x8bd @0x14
0x08a9…08c6 at0015 = ╱dc╱ = ╱ // 0x8be @0x15
0x08a9…08c6 at0016 = ╱31╱1╱ // 0x8bf @0x16
0x08a9…08c6 at0017 = ╱fe00008001╱ // 0x8c0 @0x17
0x08a9…08c6 at001c = EOL // 0x8c5 @0x1c
0x08a9…08c6 }
0x08c6…08e1 8ff5 0640 IF PIL3 > MANT1 THEN PIL3 = MANT1
0x08c6…08e1 LineComalBcd {
0x08c6…08e1 ptr = 0x8ff5 // 0x8c6 @0x0
0x08c6…08e1 lno = 0x0640 // 0x8c8 @0x2
0x08c6…08e1 at0004 = ╱82╱ IF ╱ // 0x8ca @0x4
0x08c6…08e1 at0005 = ╱50╱P╱ // 0x8cb @0x5
0x08c6…08e1 at0006 = ╱49╱I╱ // 0x8cc @0x6
0x08c6…08e1 at0007 = ╱4c╱L╱ // 0x8cd @0x7
0x08c6…08e1 at0008 = ╱33╱3╱ // 0x8ce @0x8
0x08c6…08e1 at0009 = ╱de╱ > ╱ // 0x8cf @0x9
0x08c6…08e1 at000a = ╱4d╱M╱ // 0x8d0 @0xa
0x08c6…08e1 at000b = ╱41╱A╱ // 0x8d1 @0xb
0x08c6…08e1 at000c = ╱4e╱N╱ // 0x8d2 @0xc
0x08c6…08e1 at000d = ╱54╱T╱ // 0x8d3 @0xd
0x08c6…08e1 at000e = ╱31╱1╱ // 0x8d4 @0xe
0x08c6…08e1 at000f = ╱b6╱ THEN ╱ // 0x8d5 @0xf
0x08c6…08e1 at0010 = ╱50╱P╱ // 0x8d6 @0x10
0x08c6…08e1 at0011 = ╱49╱I╱ // 0x8d7 @0x11
0x08c6…08e1 at0012 = ╱4c╱L╱ // 0x8d8 @0x12
0x08c6…08e1 at0013 = ╱33╱3╱ // 0x8d9 @0x13
0x08c6…08e1 at0014 = ╱dc╱ = ╱ // 0x8da @0x14
0x08c6…08e1 at0015 = ╱4d╱M╱ // 0x8db @0x15
0x08c6…08e1 at0016 = ╱41╱A╱ // 0x8dc @0x16
0x08c6…08e1 at0017 = ╱4e╱N╱ // 0x8dd @0x17
0x08c6…08e1 at0018 = ╱54╱T╱ // 0x8de @0x18
0x08c6…08e1 at0019 = ╱31╱1╱ // 0x8df @0x19
0x08c6…08e1 at001a = EOL // 0x8e0 @0x1a
0x08c6…08e1 }
0x08e1…08e7 8ffb 0650 ENDIF
0x08e1…08e7 LineComalBcd {
0x08e1…08e7 ptr = 0x8ffb // 0x8e1 @0x0
0x08e1…08e7 lno = 0x0650 // 0x8e3 @0x2
0x08e1…08e7 at0004 = ╱9b╱ ENDIF ╱ // 0x8e5 @0x4
0x08e1…08e7 at0005 = EOL // 0x8e6 @0x5
0x08e1…08e7 }
0x08e7…0906 9018 0660 UNTIL CEKS = 0MM OR PIL1 = 0
0x08e7…0906 LineComalBcd {
0x08e7…0906 ptr = 0x9018 // 0x8e7 @0x0
0x08e7…0906 lno = 0x0660 // 0x8e9 @0x2
0x08e7…0906 at0004 = ╱98╱ UNTIL ╱ // 0x8eb @0x4
0x08e7…0906 at0005 = ╱43╱C╱ // 0x8ec @0x5
0x08e7…0906 at0006 = ╱45╱E╱ // 0x8ed @0x6
0x08e7…0906 at0007 = ╱4b╱K╱ // 0x8ee @0x7
0x08e7…0906 at0008 = ╱53╱S╱ // 0x8ef @0x8
0x08e7…0906 at0009 = ╱dc╱ = ╱ // 0x8f0 @0x9
0x08e7…0906 at000a = ╱30╱0╱ // 0x8f1 @0xa
0x08e7…0906 at000b = ╱4d╱M╱ // 0x8f2 @0xb
0x08e7…0906 at000c = ╱4d╱M╱ // 0x8f3 @0xc
0x08e7…0906 at000d = ╱fe00000000╱ // 0x8f4 @0xd
0x08e7…0906 at0012 = ╱db╱ OR ╱ // 0x8f9 @0x12
0x08e7…0906 at0013 = ╱50╱P╱ // 0x8fa @0x13
0x08e7…0906 at0014 = ╱49╱I╱ // 0x8fb @0x14
0x08e7…0906 at0015 = ╱4c╱L╱ // 0x8fc @0x15
0x08e7…0906 at0016 = ╱31╱1╱ // 0x8fd @0x16
0x08e7…0906 at0017 = ╱dc╱ = ╱ // 0x8fe @0x17
0x08e7…0906 at0018 = ╱30╱0╱ // 0x8ff @0x18
0x08e7…0906 at0019 = ╱fe00000000╱ // 0x900 @0x19
0x08e7…0906 at001e = EOL // 0x905 @0x1e
0x08e7…0906 }
0x0906…090c 901e 0670 ENDPROC
0x0906…090c LineComalBcd {
0x0906…090c ptr = 0x901e // 0x906 @0x0
0x0906…090c lno = 0x0670 // 0x908 @0x2
0x0906…090c at0004 = ╱9f╱ ENDPROC ╱ // 0x90a @0x4
0x0906…090c at0005 = EOL // 0x90b @0x5
0x0906…090c }
0x090c…0923 9035 0680 PROC SLETDPOST ( N\GLE3 )
0x090c…0923 LineComalBcd {
0x090c…0923 ptr = 0x9035 // 0x90c @0x0
0x090c…0923 lno = 0x0680 // 0x90e @0x2
0x090c…0923 at0004 = ╱9e╱ PROC ╱ // 0x910 @0x4
0x090c…0923 at0005 = ╱53╱S╱ // 0x911 @0x5
0x090c…0923 at0006 = ╱4c╱L╱ // 0x912 @0x6
0x090c…0923 at0007 = ╱45╱E╱ // 0x913 @0x7
0x090c…0923 at0008 = ╱54╱T╱ // 0x914 @0x8
0x090c…0923 at0009 = ╱44╱D╱ // 0x915 @0x9
0x090c…0923 at000a = ╱50╱P╱ // 0x916 @0xa
0x090c…0923 at000b = ╱4f╱O╱ // 0x917 @0xb
0x090c…0923 at000c = ╱53╱S╱ // 0x918 @0xc
0x090c…0923 at000d = ╱54╱T╱ // 0x919 @0xd
0x090c…0923 at000e = ╱ed╱ ( ╱ // 0x91a @0xe
0x090c…0923 at000f = ╱4e╱N╱ // 0x91b @0xf
0x090c…0923 at0010 = ╱5c╱\╱ // 0x91c @0x10
0x090c…0923 at0011 = ╱47╱G╱ // 0x91d @0x11
0x090c…0923 at0012 = ╱4c╱L╱ // 0x91e @0x12
0x090c…0923 at0013 = ╱45╱E╱ // 0x91f @0x13
0x090c…0923 at0014 = ╱33╱3╱ // 0x920 @0x14
0x090c…0923 at0015 = ╱ee╱ ) ╱ // 0x921 @0x15
0x090c…0923 at0016 = EOL // 0x922 @0x16
0x090c…0923 }
0x0923…094e 905e 0690 EXEC FINDPOST ( DTAB , MDANTAL , N\GMMLE3 , DPIL3 )
0x0923…094e LineComalBcd {
0x0923…094e ptr = 0x905e // 0x923 @0x0
0x0923…094e lno = 0x0690 // 0x925 @0x2
0x0923…094e at0004 = ╱9d╱ EXEC ╱ // 0x927 @0x4
0x0923…094e at0005 = ╱46╱F╱ // 0x928 @0x5
0x0923…094e at0006 = ╱49╱I╱ // 0x929 @0x6
0x0923…094e at0007 = ╱4e╱N╱ // 0x92a @0x7
0x0923…094e at0008 = ╱44╱D╱ // 0x92b @0x8
0x0923…094e at0009 = ╱50╱P╱ // 0x92c @0x9
0x0923…094e at000a = ╱4f╱O╱ // 0x92d @0xa
0x0923…094e at000b = ╱53╱S╱ // 0x92e @0xb
0x0923…094e at000c = ╱54╱T╱ // 0x92f @0xc
0x0923…094e at000d = ╱ed╱ ( ╱ // 0x930 @0xd
0x0923…094e at000e = ╱44╱D╱ // 0x931 @0xe
0x0923…094e at000f = ╱54╱T╱ // 0x932 @0xf
0x0923…094e at0010 = ╱41╱A╱ // 0x933 @0x10
0x0923…094e at0011 = ╱42╱B╱ // 0x934 @0x11
0x0923…094e at0012 = ╱ec╱ , ╱ // 0x935 @0x12
0x0923…094e at0013 = ╱4d╱M╱ // 0x936 @0x13
0x0923…094e at0014 = ╱44╱D╱ // 0x937 @0x14
0x0923…094e at0015 = ╱41╱A╱ // 0x938 @0x15
0x0923…094e at0016 = ╱4e╱N╱ // 0x939 @0x16
0x0923…094e at0017 = ╱54╱T╱ // 0x93a @0x17
0x0923…094e at0018 = ╱41╱A╱ // 0x93b @0x18
0x0923…094e at0019 = ╱4c╱L╱ // 0x93c @0x19
0x0923…094e at001a = ╱ec╱ , ╱ // 0x93d @0x1a
0x0923…094e at001b = ╱4e╱N╱ // 0x93e @0x1b
0x0923…094e at001c = ╱5c╱\╱ // 0x93f @0x1c
0x0923…094e at001d = ╱47╱G╱ // 0x940 @0x1d
0x0923…094e at001e = ╱4d╱M╱ // 0x941 @0x1e
0x0923…094e at001f = ╱4d╱M╱ // 0x942 @0x1f
0x0923…094e at0020 = ╱4c╱L╱ // 0x943 @0x20
0x0923…094e at0021 = ╱45╱E╱ // 0x944 @0x21
0x0923…094e at0022 = ╱33╱3╱ // 0x945 @0x22
0x0923…094e at0023 = ╱ec╱ , ╱ // 0x946 @0x23
0x0923…094e at0024 = ╱44╱D╱ // 0x947 @0x24
0x0923…094e at0025 = ╱50╱P╱ // 0x948 @0x25
0x0923…094e at0026 = ╱49╱I╱ // 0x949 @0x26
0x0923…094e at0027 = ╱4c╱L╱ // 0x94a @0x27
0x0923…094e at0028 = ╱33╱3╱ // 0x94b @0x28
0x0923…094e at0029 = ╱ee╱ ) ╱ // 0x94c @0x29
0x0923…094e at002a = EOL // 0x94d @0x2a
0x0923…094e }
0x094e…0961 9071 0700 IF CEKS = 1 THEN STOP
0x094e…0961 LineComalBcd {
0x094e…0961 ptr = 0x9071 // 0x94e @0x0
0x094e…0961 lno = 0x0700 // 0x950 @0x2
0x094e…0961 at0004 = ╱82╱ IF ╱ // 0x952 @0x4
0x094e…0961 at0005 = ╱43╱C╱ // 0x953 @0x5
0x094e…0961 at0006 = ╱45╱E╱ // 0x954 @0x6
0x094e…0961 at0007 = ╱4b╱K╱ // 0x955 @0x7
0x094e…0961 at0008 = ╱53╱S╱ // 0x956 @0x8
0x094e…0961 at0009 = ╱dc╱ = ╱ // 0x957 @0x9
0x094e…0961 at000a = ╱31╱1╱ // 0x958 @0xa
0x094e…0961 at000b = ╱fe00008001╱ // 0x959 @0xb
0x094e…0961 at0010 = ╱b6╱ THEN ╱ // 0x95e @0x10
0x094e…0961 at0011 = ╱8d╱ STOP ╱ // 0x95f @0x11
0x094e…0961 at0012 = EOL // 0x960 @0x12
0x094e…0961 }
0x0961…0972 9082 0710 DEBNR = 0
0x0961…0972 LineComalBcd {
0x0961…0972 ptr = 0x9082 // 0x961 @0x0
0x0961…0972 lno = 0x0710 // 0x963 @0x2
0x0961…0972 at0004 = ╱44╱D╱ // 0x965 @0x4
0x0961…0972 at0005 = ╱45╱E╱ // 0x966 @0x5
0x0961…0972 at0006 = ╱42╱B╱ // 0x967 @0x6
0x0961…0972 at0007 = ╱4e╱N╱ // 0x968 @0x7
0x0961…0972 at0008 = ╱52╱R╱ // 0x969 @0x8
0x0961…0972 at0009 = ╱dc╱ = ╱ // 0x96a @0x9
0x0961…0972 at000a = ╱30╱0╱ // 0x96b @0xa
0x0961…0972 at000b = ╱fe00000000╱ // 0x96c @0xb
0x0961…0972 at0010 = EOL // 0x971 @0x10
0x0961…0972 }
0x0972…0998 90a6 0720 DEBNAVN $ = BLANK $ ( 1 : 25 SGN ╱05╱ )
0x0972…0998 LineComalBcd {
0x0972…0998 ptr = 0x90a6 // 0x972 @0x0
0x0972…0998 lno = 0x0720 // 0x974 @0x2
0x0972…0998 at0004 = ╱44╱D╱ // 0x976 @0x4
0x0972…0998 at0005 = ╱45╱E╱ // 0x977 @0x5
0x0972…0998 at0006 = ╱42╱B╱ // 0x978 @0x6
0x0972…0998 at0007 = ╱4e╱N╱ // 0x979 @0x7
0x0972…0998 at0008 = ╱41╱A╱ // 0x97a @0x8
0x0972…0998 at0009 = ╱56╱V╱ // 0x97b @0x9
0x0972…0998 at000a = ╱4e╱N╱ // 0x97c @0xa
0x0972…0998 at000b = ╱ef╱ $ ╱ // 0x97d @0xb
0x0972…0998 at000c = ╱dc╱ = ╱ // 0x97e @0xc
0x0972…0998 at000d = ╱42╱B╱ // 0x97f @0xd
0x0972…0998 at000e = ╱4c╱L╱ // 0x980 @0xe
0x0972…0998 at000f = ╱41╱A╱ // 0x981 @0xf
0x0972…0998 at0010 = ╱4e╱N╱ // 0x982 @0x10
0x0972…0998 at0011 = ╱4b╱K╱ // 0x983 @0x11
0x0972…0998 at0012 = ╱ef╱ $ ╱ // 0x984 @0x12
0x0972…0998 at0013 = ╱ed╱ ( ╱ // 0x985 @0x13
0x0972…0998 at0014 = ╱31╱1╱ // 0x986 @0x14
0x0972…0998 at0015 = ╱fe00008001╱ // 0x987 @0x15
0x0972…0998 at001a = ╱f0╱ : ╱ // 0x98c @0x1a
0x0972…0998 at001b = ╱32╱2╱ // 0x98d @0x1b
0x0972…0998 at001c = ╱35╱5╱ // 0x98e @0x1c
0x0972…0998 at001d = ╱fe4d4d0000╱ // 0x98f @0x1d
0x0972…0998 at0022 = ╱c8╱ SGN ╱ // 0x994 @0x22
0x0972…0998 at0023 = ╱05╱ // 0x995 @0x23
0x0972…0998 at0024 = ╱ee╱ ) ╱ // 0x996 @0x24
0x0972…0998 at0025 = EOL // 0x997 @0x25
0x0972…0998 }
0x0998…09bc 90ca 0730 DSALDO1 $ = BLANK $ ( 1 : 12 )
0x0998…09bc LineComalBcd {
0x0998…09bc ptr = 0x90ca // 0x998 @0x0
0x0998…09bc lno = 0x0730 // 0x99a @0x2
0x0998…09bc at0004 = ╱44╱D╱ // 0x99c @0x4
0x0998…09bc at0005 = ╱53╱S╱ // 0x99d @0x5
0x0998…09bc at0006 = ╱41╱A╱ // 0x99e @0x6
0x0998…09bc at0007 = ╱4c╱L╱ // 0x99f @0x7
0x0998…09bc at0008 = ╱44╱D╱ // 0x9a0 @0x8
0x0998…09bc at0009 = ╱4f╱O╱ // 0x9a1 @0x9
0x0998…09bc at000a = ╱31╱1╱ // 0x9a2 @0xa
0x0998…09bc at000b = ╱ef╱ $ ╱ // 0x9a3 @0xb
0x0998…09bc at000c = ╱dc╱ = ╱ // 0x9a4 @0xc
0x0998…09bc at000d = ╱42╱B╱ // 0x9a5 @0xd
0x0998…09bc at000e = ╱4c╱L╱ // 0x9a6 @0xe
0x0998…09bc at000f = ╱41╱A╱ // 0x9a7 @0xf
0x0998…09bc at0010 = ╱4e╱N╱ // 0x9a8 @0x10
0x0998…09bc at0011 = ╱4b╱K╱ // 0x9a9 @0x11
0x0998…09bc at0012 = ╱ef╱ $ ╱ // 0x9aa @0x12
0x0998…09bc at0013 = ╱ed╱ ( ╱ // 0x9ab @0x13
0x0998…09bc at0014 = ╱31╱1╱ // 0x9ac @0x14
0x0998…09bc at0015 = ╱fe00008001╱ // 0x9ad @0x15
0x0998…09bc at001a = ╱f0╱ : ╱ // 0x9b2 @0x1a
0x0998…09bc at001b = ╱31╱1╱ // 0x9b3 @0x1b
0x0998…09bc at001c = ╱32╱2╱ // 0x9b4 @0x1c
0x0998…09bc at001d = ╱fe0000c004╱ // 0x9b5 @0x1d
0x0998…09bc at0022 = ╱ee╱ ) ╱ // 0x9ba @0x22
0x0998…09bc at0023 = EOL // 0x9bb @0x23
0x0998…09bc }
0x09bc…09e2 90ee 0740 DSALDO2 $ = BLANK $ ( 1 : 12 ) MM
0x09bc…09e2 LineComalBcd {
0x09bc…09e2 ptr = 0x90ee // 0x9bc @0x0
0x09bc…09e2 lno = 0x0740 // 0x9be @0x2
0x09bc…09e2 at0004 = ╱44╱D╱ // 0x9c0 @0x4
0x09bc…09e2 at0005 = ╱53╱S╱ // 0x9c1 @0x5
0x09bc…09e2 at0006 = ╱41╱A╱ // 0x9c2 @0x6
0x09bc…09e2 at0007 = ╱4c╱L╱ // 0x9c3 @0x7
0x09bc…09e2 at0008 = ╱44╱D╱ // 0x9c4 @0x8
0x09bc…09e2 at0009 = ╱4f╱O╱ // 0x9c5 @0x9
0x09bc…09e2 at000a = ╱32╱2╱ // 0x9c6 @0xa
0x09bc…09e2 at000b = ╱ef╱ $ ╱ // 0x9c7 @0xb
0x09bc…09e2 at000c = ╱dc╱ = ╱ // 0x9c8 @0xc
0x09bc…09e2 at000d = ╱42╱B╱ // 0x9c9 @0xd
0x09bc…09e2 at000e = ╱4c╱L╱ // 0x9ca @0xe
0x09bc…09e2 at000f = ╱41╱A╱ // 0x9cb @0xf
0x09bc…09e2 at0010 = ╱4e╱N╱ // 0x9cc @0x10
0x09bc…09e2 at0011 = ╱4b╱K╱ // 0x9cd @0x11
0x09bc…09e2 at0012 = ╱ef╱ $ ╱ // 0x9ce @0x12
0x09bc…09e2 at0013 = ╱ed╱ ( ╱ // 0x9cf @0x13
0x09bc…09e2 at0014 = ╱31╱1╱ // 0x9d0 @0x14
0x09bc…09e2 at0015 = ╱fe00008001╱ // 0x9d1 @0x15
0x09bc…09e2 at001a = ╱f0╱ : ╱ // 0x9d6 @0x1a
0x09bc…09e2 at001b = ╱31╱1╱ // 0x9d7 @0x1b
0x09bc…09e2 at001c = ╱32╱2╱ // 0x9d8 @0x1c
0x09bc…09e2 at001d = ╱fe0000c004╱ // 0x9d9 @0x1d
0x09bc…09e2 at0022 = ╱ee╱ ) ╱ // 0x9de @0x22
0x09bc…09e2 at0023 = ╱4d╱M╱ // 0x9df @0x23
0x09bc…09e2 at0024 = ╱4d╱M╱ // 0x9e0 @0x24
0x09bc…09e2 at0025 = EOL // 0x9e1 @0x25
0x09bc…09e2 }
0x09e2…0a06 9112 0750 DSALDO3 $ = BLANK $ ( 1 : 12 )
0x09e2…0a06 LineComalBcd {
0x09e2…0a06 ptr = 0x9112 // 0x9e2 @0x0
0x09e2…0a06 lno = 0x0750 // 0x9e4 @0x2
0x09e2…0a06 at0004 = ╱44╱D╱ // 0x9e6 @0x4
0x09e2…0a06 at0005 = ╱53╱S╱ // 0x9e7 @0x5
0x09e2…0a06 at0006 = ╱41╱A╱ // 0x9e8 @0x6
0x09e2…0a06 at0007 = ╱4c╱L╱ // 0x9e9 @0x7
0x09e2…0a06 at0008 = ╱44╱D╱ // 0x9ea @0x8
0x09e2…0a06 at0009 = ╱4f╱O╱ // 0x9eb @0x9
0x09e2…0a06 at000a = ╱33╱3╱ // 0x9ec @0xa
0x09e2…0a06 at000b = ╱ef╱ $ ╱ // 0x9ed @0xb
0x09e2…0a06 at000c = ╱dc╱ = ╱ // 0x9ee @0xc
0x09e2…0a06 at000d = ╱42╱B╱ // 0x9ef @0xd
0x09e2…0a06 at000e = ╱4c╱L╱ // 0x9f0 @0xe
0x09e2…0a06 at000f = ╱41╱A╱ // 0x9f1 @0xf
0x09e2…0a06 at0010 = ╱4e╱N╱ // 0x9f2 @0x10
0x09e2…0a06 at0011 = ╱4b╱K╱ // 0x9f3 @0x11
0x09e2…0a06 at0012 = ╱ef╱ $ ╱ // 0x9f4 @0x12
0x09e2…0a06 at0013 = ╱ed╱ ( ╱ // 0x9f5 @0x13
0x09e2…0a06 at0014 = ╱31╱1╱ // 0x9f6 @0x14
0x09e2…0a06 at0015 = ╱fe00008001╱ // 0x9f7 @0x15
0x09e2…0a06 at001a = ╱f0╱ : ╱ // 0x9fc @0x1a
0x09e2…0a06 at001b = ╱31╱1╱ // 0x9fd @0x1b
0x09e2…0a06 at001c = ╱32╱2╱ // 0x9fe @0x1c
0x09e2…0a06 at001d = ╱fe0000c004╱ // 0x9ff @0x1d
0x09e2…0a06 at0022 = ╱ee╱ ) ╱ // 0xa04 @0x22
0x09e2…0a06 at0023 = EOL // 0xa05 @0x23
0x09e2…0a06 }
0x0a06…0a2a 9136 0760 DSALDO4 $ = BLANK $ ( 1 : 12 )
0x0a06…0a2a LineComalBcd {
0x0a06…0a2a ptr = 0x9136 // 0xa06 @0x0
0x0a06…0a2a lno = 0x0760 // 0xa08 @0x2
0x0a06…0a2a at0004 = ╱44╱D╱ // 0xa0a @0x4
0x0a06…0a2a at0005 = ╱53╱S╱ // 0xa0b @0x5
0x0a06…0a2a at0006 = ╱41╱A╱ // 0xa0c @0x6
0x0a06…0a2a at0007 = ╱4c╱L╱ // 0xa0d @0x7
0x0a06…0a2a at0008 = ╱44╱D╱ // 0xa0e @0x8
0x0a06…0a2a at0009 = ╱4f╱O╱ // 0xa0f @0x9
0x0a06…0a2a at000a = ╱34╱4╱ // 0xa10 @0xa
0x0a06…0a2a at000b = ╱ef╱ $ ╱ // 0xa11 @0xb
0x0a06…0a2a at000c = ╱dc╱ = ╱ // 0xa12 @0xc
0x0a06…0a2a at000d = ╱42╱B╱ // 0xa13 @0xd
0x0a06…0a2a at000e = ╱4c╱L╱ // 0xa14 @0xe
0x0a06…0a2a at000f = ╱41╱A╱ // 0xa15 @0xf
0x0a06…0a2a at0010 = ╱4e╱N╱ // 0xa16 @0x10
0x0a06…0a2a at0011 = ╱4b╱K╱ // 0xa17 @0x11
0x0a06…0a2a at0012 = ╱ef╱ $ ╱ // 0xa18 @0x12
0x0a06…0a2a at0013 = ╱ed╱ ( ╱ // 0xa19 @0x13
0x0a06…0a2a at0014 = ╱31╱1╱ // 0xa1a @0x14
0x0a06…0a2a at0015 = ╱fe00008001╱ // 0xa1b @0x15
0x0a06…0a2a at001a = ╱f0╱ : ╱ // 0xa20 @0x1a
0x0a06…0a2a at001b = ╱31╱1╱ // 0xa21 @0x1b
0x0a06…0a2a at001c = ╱32╱2╱ // 0xa22 @0x1c
0x0a06…0a2a at001d = ╱fe0000c004╱ // 0xa23 @0x1d
0x0a06…0a2a at0022 = ╱ee╱ ) ╱ // 0xa28 @0x22
0x0a06…0a2a at0023 = EOL // 0xa29 @0x23
0x0a06…0a2a }
0x0a2a…0a4e 9158 0770 MM]RK\B $ = BLANK $ ( 1 : 12 )
0x0a2a…0a4e LineComalBcd {
0x0a2a…0a4e ptr = 0x9158 // 0xa2a @0x0
0x0a2a…0a4e lno = 0x0770 // 0xa2c @0x2
0x0a2a…0a4e at0004 = ╱4d╱M╱ // 0xa2e @0x4
0x0a2a…0a4e at0005 = ╱4d╱M╱ // 0xa2f @0x5
0x0a2a…0a4e at0006 = ╱5d╱]╱ // 0xa30 @0x6
0x0a2a…0a4e at0007 = ╱52╱R╱ // 0xa31 @0x7
0x0a2a…0a4e at0008 = ╱4b╱K╱ // 0xa32 @0x8
0x0a2a…0a4e at0009 = ╱5c╱\╱ // 0xa33 @0x9
0x0a2a…0a4e at000a = ╱42╱B╱ // 0xa34 @0xa
0x0a2a…0a4e at000b = ╱ef╱ $ ╱ // 0xa35 @0xb
0x0a2a…0a4e at000c = ╱dc╱ = ╱ // 0xa36 @0xc
0x0a2a…0a4e at000d = ╱42╱B╱ // 0xa37 @0xd
0x0a2a…0a4e at000e = ╱4c╱L╱ // 0xa38 @0xe
0x0a2a…0a4e at000f = ╱41╱A╱ // 0xa39 @0xf
0x0a2a…0a4e at0010 = ╱4e╱N╱ // 0xa3a @0x10
0x0a2a…0a4e at0011 = ╱4b╱K╱ // 0xa3b @0x11
0x0a2a…0a4e at0012 = ╱ef╱ $ ╱ // 0xa3c @0x12
0x0a2a…0a4e at0013 = ╱ed╱ ( ╱ // 0xa3d @0x13
0x0a2a…0a4e at0014 = ╱31╱1╱ // 0xa3e @0x14
0x0a2a…0a4e at0015 = ╱fe00008001╱ // 0xa3f @0x15
0x0a2a…0a4e at001a = ╱f0╱ : ╱ // 0xa44 @0x1a
0x0a2a…0a4e at001b = ╱31╱1╱ // 0xa45 @0x1b
0x0a2a…0a4e at001c = ╱32╱2╱ // 0xa46 @0x1c
0x0a2a…0a4e at001d = ╱fe0000c004╱ // 0xa47 @0x1d
0x0a2a…0a4e at0022 = ╱ee╱ ) ╱ // 0xa4c @0x22
0x0a2a…0a4e at0023 = EOL // 0xa4d @0x23
0x0a2a…0a4e }
0x0a4e…0a71 917b 0780 MDNK\B $ = BLANK $ ( 1 : 12 )
0x0a4e…0a71 LineComalBcd {
0x0a4e…0a71 ptr = 0x917b // 0xa4e @0x0
0x0a4e…0a71 lno = 0x0780 // 0xa50 @0x2
0x0a4e…0a71 at0004 = ╱4d╱M╱ // 0xa52 @0x4
0x0a4e…0a71 at0005 = ╱44╱D╱ // 0xa53 @0x5
0x0a4e…0a71 at0006 = ╱4e╱N╱ // 0xa54 @0x6
0x0a4e…0a71 at0007 = ╱4b╱K╱ // 0xa55 @0x7
0x0a4e…0a71 at0008 = ╱5c╱\╱ // 0xa56 @0x8
0x0a4e…0a71 at0009 = ╱42╱B╱ // 0xa57 @0x9
0x0a4e…0a71 at000a = ╱ef╱ $ ╱ // 0xa58 @0xa
0x0a4e…0a71 at000b = ╱dc╱ = ╱ // 0xa59 @0xb
0x0a4e…0a71 at000c = ╱42╱B╱ // 0xa5a @0xc
0x0a4e…0a71 at000d = ╱4c╱L╱ // 0xa5b @0xd
0x0a4e…0a71 at000e = ╱41╱A╱ // 0xa5c @0xe
0x0a4e…0a71 at000f = ╱4e╱N╱ // 0xa5d @0xf
0x0a4e…0a71 at0010 = ╱4b╱K╱ // 0xa5e @0x10
0x0a4e…0a71 at0011 = ╱ef╱ $ ╱ // 0xa5f @0x11
0x0a4e…0a71 at0012 = ╱ed╱ ( ╱ // 0xa60 @0x12
0x0a4e…0a71 at0013 = ╱31╱1╱ // 0xa61 @0x13
0x0a4e…0a71 at0014 = ╱fe00008001╱ // 0xa62 @0x14
0x0a4e…0a71 at0019 = ╱f0╱ : ╱ // 0xa67 @0x19
0x0a4e…0a71 at001a = ╱31╱1╱ // 0xa68 @0x1a
0x0a4e…0a71 at001b = ╱32╱2╱ // 0xa69 @0x1b
0x0a4e…0a71 at001c = ╱fe0000c004╱ // 0xa6a @0x1c
0x0a4e…0a71 at0021 = ╱ee╱ ) ╱ // 0xa6f @0x21
0x0a4e…0a71 at0022 = EOL // 0xa70 @0x22
0x0a4e…0a71 }
0x0a71…0a83 918b 0790 DEBKGR $ = MM"0"
0x0a71…0a83 LineComalBcd {
0x0a71…0a83 ptr = 0x918b // 0xa71 @0x0
0x0a71…0a83 lno = 0x0790 // 0xa73 @0x2
0x0a71…0a83 at0004 = ╱44╱D╱ // 0xa75 @0x4
0x0a71…0a83 at0005 = ╱45╱E╱ // 0xa76 @0x5
0x0a71…0a83 at0006 = ╱42╱B╱ // 0xa77 @0x6
0x0a71…0a83 at0007 = ╱4b╱K╱ // 0xa78 @0x7
0x0a71…0a83 at0008 = ╱47╱G╱ // 0xa79 @0x8
0x0a71…0a83 at0009 = ╱52╱R╱ // 0xa7a @0x9
0x0a71…0a83 at000a = ╱ef╱ $ ╱ // 0xa7b @0xa
0x0a71…0a83 at000b = ╱dc╱ = ╱ // 0xa7c @0xb
0x0a71…0a83 at000c = ╱4d╱M╱ // 0xa7d @0xc
0x0a71…0a83 at000d = ╱4d╱M╱ // 0xa7e @0xd
0x0a71…0a83 at000e = ╱22╱"╱ // 0xa7f @0xe
0x0a71…0a83 at000f = ╱30╱0╱ // 0xa80 @0xf
0x0a71…0a83 at0010 = ╱22╱"╱ // 0xa81 @0x10
0x0a71…0a83 at0011 = EOL // 0xa82 @0x11
0x0a71…0a83 }
0x0a83…0a98 91a0 0800 DEBPOSTNR = 0
0x0a83…0a98 LineComalBcd {
0x0a83…0a98 ptr = 0x91a0 // 0xa83 @0x0
0x0a83…0a98 lno = 0x0800 // 0xa85 @0x2
0x0a83…0a98 at0004 = ╱44╱D╱ // 0xa87 @0x4
0x0a83…0a98 at0005 = ╱45╱E╱ // 0xa88 @0x5
0x0a83…0a98 at0006 = ╱42╱B╱ // 0xa89 @0x6
0x0a83…0a98 at0007 = ╱50╱P╱ // 0xa8a @0x7
0x0a83…0a98 at0008 = ╱4f╱O╱ // 0xa8b @0x8
0x0a83…0a98 at0009 = ╱53╱S╱ // 0xa8c @0x9
0x0a83…0a98 at000a = ╱54╱T╱ // 0xa8d @0xa
0x0a83…0a98 at000b = ╱4e╱N╱ // 0xa8e @0xb
0x0a83…0a98 at000c = ╱52╱R╱ // 0xa8f @0xc
0x0a83…0a98 at000d = ╱dc╱ = ╱ // 0xa90 @0xd
0x0a83…0a98 at000e = ╱30╱0╱ // 0xa91 @0xe
0x0a83…0a98 at000f = ╱fe00000000╱ // 0xa92 @0xf
0x0a83…0a98 at0014 = EOL // 0xa97 @0x14
0x0a83…0a98 }
0x0a98…0aa7 91af 0810 DEBLK $ = "0"
0x0a98…0aa7 LineComalBcd {
0x0a98…0aa7 ptr = 0x91af // 0xa98 @0x0
0x0a98…0aa7 lno = 0x0810 // 0xa9a @0x2
0x0a98…0aa7 at0004 = ╱44╱D╱ // 0xa9c @0x4
0x0a98…0aa7 at0005 = ╱45╱E╱ // 0xa9d @0x5
0x0a98…0aa7 at0006 = ╱42╱B╱ // 0xa9e @0x6
0x0a98…0aa7 at0007 = ╱4c╱L╱ // 0xa9f @0x7
0x0a98…0aa7 at0008 = ╱4b╱K╱ // 0xaa0 @0x8
0x0a98…0aa7 at0009 = ╱ef╱ $ ╱ // 0xaa1 @0x9
0x0a98…0aa7 at000a = ╱dc╱ = ╱ // 0xaa2 @0xa
0x0a98…0aa7 at000b = ╱22╱"╱ // 0xaa3 @0xb
0x0a98…0aa7 at000c = ╱30╱0╱ // 0xaa4 @0xc
0x0a98…0aa7 at000d = ╱22╱"╱ // 0xaa5 @0xd
0x0a98…0aa7 at000e = EOL // 0xaa6 @0xe
0x0a98…0aa7 }
0x0aa7…0acb 91d3 0820 DEBGADE $ = BLANK $ ( 1 : 25 )
0x0aa7…0acb LineComalBcd {
0x0aa7…0acb ptr = 0x91d3 // 0xaa7 @0x0
0x0aa7…0acb lno = 0x0820 // 0xaa9 @0x2
0x0aa7…0acb at0004 = ╱44╱D╱ // 0xaab @0x4
0x0aa7…0acb at0005 = ╱45╱E╱ // 0xaac @0x5
0x0aa7…0acb at0006 = ╱42╱B╱ // 0xaad @0x6
0x0aa7…0acb at0007 = ╱47╱G╱ // 0xaae @0x7
0x0aa7…0acb at0008 = ╱41╱A╱ // 0xaaf @0x8
0x0aa7…0acb at0009 = ╱44╱D╱ // 0xab0 @0x9
0x0aa7…0acb at000a = ╱45╱E╱ // 0xab1 @0xa
0x0aa7…0acb at000b = ╱ef╱ $ ╱ // 0xab2 @0xb
0x0aa7…0acb at000c = ╱dc╱ = ╱ // 0xab3 @0xc
0x0aa7…0acb at000d = ╱42╱B╱ // 0xab4 @0xd
0x0aa7…0acb at000e = ╱4c╱L╱ // 0xab5 @0xe
0x0aa7…0acb at000f = ╱41╱A╱ // 0xab6 @0xf
0x0aa7…0acb at0010 = ╱4e╱N╱ // 0xab7 @0x10
0x0aa7…0acb at0011 = ╱4b╱K╱ // 0xab8 @0x11
0x0aa7…0acb at0012 = ╱ef╱ $ ╱ // 0xab9 @0x12
0x0aa7…0acb at0013 = ╱ed╱ ( ╱ // 0xaba @0x13
0x0aa7…0acb at0014 = ╱31╱1╱ // 0xabb @0x14
0x0aa7…0acb at0015 = ╱fe00008001╱ // 0xabc @0x15
0x0aa7…0acb at001a = ╱f0╱ : ╱ // 0xac1 @0x1a
0x0aa7…0acb at001b = ╱32╱2╱ // 0xac2 @0x1b
0x0aa7…0acb at001c = ╱35╱5╱ // 0xac3 @0x1c
0x0aa7…0acb at001d = ╱fe0000c805╱ // 0xac4 @0x1d
0x0aa7…0acb at0022 = ╱ee╱ ) ╱ // 0xac9 @0x22
0x0aa7…0acb at0023 = EOL // 0xaca @0x23
0x0aa7…0acb }
0x0acb…0aef 4df5 4d91 ╱08╱ 0DEBTLF $ = BLANK $ ( 1 : 9 )
0x0acb…0aef LineComalBcd {
0x0acb…0aef ptr = 0x4df5 // 0xacb @0x0
0x0acb…0aef lno = 0x4d91 // 0xacd @0x2
0x0acb…0aef at0004 = ╱08╱ // 0xacf @0x4
0x0acb…0aef at0005 = ╱30╱0╱ // 0xad0 @0x5
0x0acb…0aef at0006 = ╱44╱D╱ // 0xad1 @0x6
0x0acb…0aef at0007 = ╱45╱E╱ // 0xad2 @0x7
0x0acb…0aef at0008 = ╱42╱B╱ // 0xad3 @0x8
0x0acb…0aef at0009 = ╱54╱T╱ // 0xad4 @0x9
0x0acb…0aef at000a = ╱4c╱L╱ // 0xad5 @0xa
0x0acb…0aef at000b = ╱46╱F╱ // 0xad6 @0xb
0x0acb…0aef at000c = ╱ef╱ $ ╱ // 0xad7 @0xc
0x0acb…0aef at000d = ╱dc╱ = ╱ // 0xad8 @0xd
0x0acb…0aef at000e = ╱42╱B╱ // 0xad9 @0xe
0x0acb…0aef at000f = ╱4c╱L╱ // 0xada @0xf
0x0acb…0aef at0010 = ╱41╱A╱ // 0xadb @0x10
0x0acb…0aef at0011 = ╱4e╱N╱ // 0xadc @0x11
0x0acb…0aef at0012 = ╱4b╱K╱ // 0xadd @0x12
0x0acb…0aef at0013 = ╱ef╱ $ ╱ // 0xade @0x13
0x0acb…0aef at0014 = ╱ed╱ ( ╱ // 0xadf @0x14
0x0acb…0aef at0015 = ╱31╱1╱ // 0xae0 @0x15
0x0acb…0aef at0016 = ╱fe00008001╱ // 0xae1 @0x16
0x0acb…0aef at001b = ╱f0╱ : ╱ // 0xae6 @0x1b
0x0acb…0aef at001c = ╱39╱9╱ // 0xae7 @0x1c
0x0acb…0aef at001d = ╱fe00009004╱ // 0xae8 @0x1d
0x0acb…0aef at0022 = ╱ee╱ ) ╱ // 0xaed @0x22
0x0acb…0aef at0023 = EOL // 0xaee @0x23
0x0acb…0aef }
0x0aef…0b00 9206 0840 HPOST = 0
0x0aef…0b00 LineComalBcd {
0x0aef…0b00 ptr = 0x9206 // 0xaef @0x0
0x0aef…0b00 lno = 0x0840 // 0xaf1 @0x2
0x0aef…0b00 at0004 = ╱48╱H╱ // 0xaf3 @0x4
0x0aef…0b00 at0005 = ╱50╱P╱ // 0xaf4 @0x5
0x0aef…0b00 at0006 = ╱4f╱O╱ // 0xaf5 @0x6
0x0aef…0b00 at0007 = ╱53╱S╱ // 0xaf6 @0x7
0x0aef…0b00 at0008 = ╱54╱T╱ // 0xaf7 @0x8
0x0aef…0b00 at0009 = ╱dc╱ = ╱ // 0xaf8 @0x9
0x0aef…0b00 at000a = ╱30╱0╱ // 0xaf9 @0xa
0x0aef…0b00 at000b = ╱fe00000000╱ // 0xafa @0xb
0x0aef…0b00 at0010 = EOL // 0xaff @0x10
0x0aef…0b00 }
0x0b00…0b12 9218 0850 HKUNDE = 0
0x0b00…0b12 LineComalBcd {
0x0b00…0b12 ptr = 0x9218 // 0xb00 @0x0
0x0b00…0b12 lno = 0x0850 // 0xb02 @0x2
0x0b00…0b12 at0004 = ╱48╱H╱ // 0xb04 @0x4
0x0b00…0b12 at0005 = ╱4b╱K╱ // 0xb05 @0x5
0x0b00…0b12 at0006 = ╱55╱U╱ // 0xb06 @0x6
0x0b00…0b12 at0007 = ╱4e╱N╱ // 0xb07 @0x7
0x0b00…0b12 at0008 = ╱44╱D╱ // 0xb08 @0x8
0x0b00…0b12 at0009 = ╱45╱E╱ // 0xb09 @0x9
0x0b00…0b12 at000a = ╱dc╱ = ╱ // 0xb0a @0xa
0x0b00…0b12 at000b = ╱30╱0╱ // 0xb0b @0xb
0x0b00…0b12 at000c = ╱fe00000000╱ // 0xb0c @0xc
0x0b00…0b12 at0011 = EOL // 0xb11 @0x11
0x0b00…0b12 }
0x0b12…0b36 923a 0860 DEBBYMM $ = BLANK $ ( 1 : 20 )
0x0b12…0b36 LineComalBcd {
0x0b12…0b36 ptr = 0x923a // 0xb12 @0x0
0x0b12…0b36 lno = 0x0860 // 0xb14 @0x2
0x0b12…0b36 at0004 = ╱44╱D╱ // 0xb16 @0x4
0x0b12…0b36 at0005 = ╱45╱E╱ // 0xb17 @0x5
0x0b12…0b36 at0006 = ╱42╱B╱ // 0xb18 @0x6
0x0b12…0b36 at0007 = ╱42╱B╱ // 0xb19 @0x7
0x0b12…0b36 at0008 = ╱59╱Y╱ // 0xb1a @0x8
0x0b12…0b36 at0009 = ╱4d╱M╱ // 0xb1b @0x9
0x0b12…0b36 at000a = ╱4d╱M╱ // 0xb1c @0xa
0x0b12…0b36 at000b = ╱ef╱ $ ╱ // 0xb1d @0xb
0x0b12…0b36 at000c = ╱dc╱ = ╱ // 0xb1e @0xc
0x0b12…0b36 at000d = ╱42╱B╱ // 0xb1f @0xd
0x0b12…0b36 at000e = ╱4c╱L╱ // 0xb20 @0xe
0x0b12…0b36 at000f = ╱41╱A╱ // 0xb21 @0xf
0x0b12…0b36 at0010 = ╱4e╱N╱ // 0xb22 @0x10
0x0b12…0b36 at0011 = ╱4b╱K╱ // 0xb23 @0x11
0x0b12…0b36 at0012 = ╱ef╱ $ ╱ // 0xb24 @0x12
0x0b12…0b36 at0013 = ╱ed╱ ( ╱ // 0xb25 @0x13
0x0b12…0b36 at0014 = ╱31╱1╱ // 0xb26 @0x14
0x0b12…0b36 at0015 = ╱fe00008001╱ // 0xb27 @0x15
0x0b12…0b36 at001a = ╱f0╱ : ╱ // 0xb2c @0x1a
0x0b12…0b36 at001b = ╱32╱2╱ // 0xb2d @0x1b
0x0b12…0b36 at001c = ╱30╱0╱ // 0xb2e @0x1c
0x0b12…0b36 at001d = ╱fe0000a005╱ // 0xb2f @0x1d
0x0b12…0b36 at0022 = ╱ee╱ ) ╱ // 0xb34 @0x22
0x0b12…0b36 at0023 = EOL // 0xb35 @0x23
0x0b12…0b36 }
0x0b36…0b44 9248 0870 EXEC GEMDPOST
0x0b36…0b44 LineComalBcd {
0x0b36…0b44 ptr = 0x9248 // 0xb36 @0x0
0x0b36…0b44 lno = 0x0870 // 0xb38 @0x2
0x0b36…0b44 at0004 = ╱9d╱ EXEC ╱ // 0xb3a @0x4
0x0b36…0b44 at0005 = ╱47╱G╱ // 0xb3b @0x5
0x0b36…0b44 at0006 = ╱45╱E╱ // 0xb3c @0x6
0x0b36…0b44 at0007 = ╱4d╱M╱ // 0xb3d @0x7
0x0b36…0b44 at0008 = ╱44╱D╱ // 0xb3e @0x8
0x0b36…0b44 at0009 = ╱50╱P╱ // 0xb3f @0x9
0x0b36…0b44 at000a = ╱4f╱O╱ // 0xb40 @0xa
0x0b36…0b44 at000b = ╱53╱S╱ // 0xb41 @0xb
0x0b36…0b44 at000c = ╱54╱T╱ // 0xb42 @0xc
0x0b36…0b44 at000d = EOL // 0xb43 @0xd
0x0b36…0b44 }
0x0b44…0b6a 926e 0880 EXEC SLETPOST ( DTAB , ADEB , N\GLE3 , DPIL3 )
0x0b44…0b6a LineComalBcd {
0x0b44…0b6a ptr = 0x926e // 0xb44 @0x0
0x0b44…0b6a lno = 0x0880 // 0xb46 @0x2
0x0b44…0b6a at0004 = ╱9d╱ EXEC ╱ // 0xb48 @0x4
0x0b44…0b6a at0005 = ╱53╱S╱ // 0xb49 @0x5
0x0b44…0b6a at0006 = ╱4c╱L╱ // 0xb4a @0x6
0x0b44…0b6a at0007 = ╱45╱E╱ // 0xb4b @0x7
0x0b44…0b6a at0008 = ╱54╱T╱ // 0xb4c @0x8
0x0b44…0b6a at0009 = ╱50╱P╱ // 0xb4d @0x9
0x0b44…0b6a at000a = ╱4f╱O╱ // 0xb4e @0xa
0x0b44…0b6a at000b = ╱53╱S╱ // 0xb4f @0xb
0x0b44…0b6a at000c = ╱54╱T╱ // 0xb50 @0xc
0x0b44…0b6a at000d = ╱ed╱ ( ╱ // 0xb51 @0xd
0x0b44…0b6a at000e = ╱44╱D╱ // 0xb52 @0xe
0x0b44…0b6a at000f = ╱54╱T╱ // 0xb53 @0xf
0x0b44…0b6a at0010 = ╱41╱A╱ // 0xb54 @0x10
0x0b44…0b6a at0011 = ╱42╱B╱ // 0xb55 @0x11
0x0b44…0b6a at0012 = ╱ec╱ , ╱ // 0xb56 @0x12
0x0b44…0b6a at0013 = ╱41╱A╱ // 0xb57 @0x13
0x0b44…0b6a at0014 = ╱44╱D╱ // 0xb58 @0x14
0x0b44…0b6a at0015 = ╱45╱E╱ // 0xb59 @0x15
0x0b44…0b6a at0016 = ╱42╱B╱ // 0xb5a @0x16
0x0b44…0b6a at0017 = ╱ec╱ , ╱ // 0xb5b @0x17
0x0b44…0b6a at0018 = ╱4e╱N╱ // 0xb5c @0x18
0x0b44…0b6a at0019 = ╱5c╱\╱ // 0xb5d @0x19
0x0b44…0b6a at001a = ╱47╱G╱ // 0xb5e @0x1a
0x0b44…0b6a at001b = ╱4c╱L╱ // 0xb5f @0x1b
0x0b44…0b6a at001c = ╱45╱E╱ // 0xb60 @0x1c
0x0b44…0b6a at001d = ╱33╱3╱ // 0xb61 @0x1d
0x0b44…0b6a at001e = ╱ec╱ , ╱ // 0xb62 @0x1e
0x0b44…0b6a at001f = ╱44╱D╱ // 0xb63 @0x1f
0x0b44…0b6a at0020 = ╱50╱P╱ // 0xb64 @0x20
0x0b44…0b6a at0021 = ╱49╱I╱ // 0xb65 @0x21
0x0b44…0b6a at0022 = ╱4c╱L╱ // 0xb66 @0x22
0x0b44…0b6a at0023 = ╱33╱3╱ // 0xb67 @0x23
0x0b44…0b6a at0024 = ╱ee╱ ) ╱ // 0xb68 @0x24
0x0b44…0b6a at0025 = EOL // 0xb69 @0x25
0x0b44…0b6a }
0x0b6a…0b72 4d4d 7492 ╱08╱ RESTORE ENDPROC
0x0b6a…0b72 LineComalBcd {
0x0b6a…0b72 ptr = 0x4d4d // 0xb6a @0x0
0x0b6a…0b72 lno = 0x7492 // 0xb6c @0x2
0x0b6a…0b72 at0004 = ╱08╱ // 0xb6e @0x4
0x0b6a…0b72 at0005 = ╱90╱ RESTORE ╱ // 0xb6f @0x5
0x0b6a…0b72 at0006 = ╱9f╱ ENDPROC ╱ // 0xb70 @0x6
0x0b6a…0b72 at0007 = EOL // 0xb71 @0x7
0x0b6a…0b72 }
0x0b72…0b96 9298 0900 PROC INDS[T ( TAB2 , ANTAL2 , N\GL2 , PIL4 )
0x0b72…0b96 LineComalBcd {
0x0b72…0b96 ptr = 0x9298 // 0xb72 @0x0
0x0b72…0b96 lno = 0x0900 // 0xb74 @0x2
0x0b72…0b96 at0004 = ╱9e╱ PROC ╱ // 0xb76 @0x4
0x0b72…0b96 at0005 = ╱49╱I╱ // 0xb77 @0x5
0x0b72…0b96 at0006 = ╱4e╱N╱ // 0xb78 @0x6
0x0b72…0b96 at0007 = ╱44╱D╱ // 0xb79 @0x7
0x0b72…0b96 at0008 = ╱53╱S╱ // 0xb7a @0x8
0x0b72…0b96 at0009 = ╱5b╱[╱ // 0xb7b @0x9
0x0b72…0b96 at000a = ╱54╱T╱ // 0xb7c @0xa
0x0b72…0b96 at000b = ╱ed╱ ( ╱ // 0xb7d @0xb
0x0b72…0b96 at000c = ╱54╱T╱ // 0xb7e @0xc
0x0b72…0b96 at000d = ╱41╱A╱ // 0xb7f @0xd
0x0b72…0b96 at000e = ╱42╱B╱ // 0xb80 @0xe
0x0b72…0b96 at000f = ╱32╱2╱ // 0xb81 @0xf
0x0b72…0b96 at0010 = ╱ec╱ , ╱ // 0xb82 @0x10
0x0b72…0b96 at0011 = ╱41╱A╱ // 0xb83 @0x11
0x0b72…0b96 at0012 = ╱4e╱N╱ // 0xb84 @0x12
0x0b72…0b96 at0013 = ╱54╱T╱ // 0xb85 @0x13
0x0b72…0b96 at0014 = ╱41╱A╱ // 0xb86 @0x14
0x0b72…0b96 at0015 = ╱4c╱L╱ // 0xb87 @0x15
0x0b72…0b96 at0016 = ╱32╱2╱ // 0xb88 @0x16
0x0b72…0b96 at0017 = ╱ec╱ , ╱ // 0xb89 @0x17
0x0b72…0b96 at0018 = ╱4e╱N╱ // 0xb8a @0x18
0x0b72…0b96 at0019 = ╱5c╱\╱ // 0xb8b @0x19
0x0b72…0b96 at001a = ╱47╱G╱ // 0xb8c @0x1a
0x0b72…0b96 at001b = ╱4c╱L╱ // 0xb8d @0x1b
0x0b72…0b96 at001c = ╱32╱2╱ // 0xb8e @0x1c
0x0b72…0b96 at001d = ╱ec╱ , ╱ // 0xb8f @0x1d
0x0b72…0b96 at001e = ╱50╱P╱ // 0xb90 @0x1e
0x0b72…0b96 at001f = ╱49╱I╱ // 0xb91 @0x1f
0x0b72…0b96 at0020 = ╱4c╱L╱ // 0xb92 @0x20
0x0b72…0b96 at0021 = ╱34╱4╱ // 0xb93 @0x21
0x0b72…0b96 at0022 = ╱ee╱ ) ╱ // 0xb94 @0x22
0x0b72…0b96 at0023 = EOL // 0xb95 @0x23
0x0b72…0b96 }
0x0b96…0ba8 92aa 0910 IF CEKS = 1 THEN
0x0b96…0ba8 LineComalBcd {
0x0b96…0ba8 ptr = 0x92aa // 0xb96 @0x0
0x0b96…0ba8 lno = 0x0910 // 0xb98 @0x2
0x0b96…0ba8 at0004 = ╱9c╱ IF ╱ // 0xb9a @0x4
0x0b96…0ba8 at0005 = ╱43╱C╱ // 0xb9b @0x5
0x0b96…0ba8 at0006 = ╱45╱E╱ // 0xb9c @0x6
0x0b96…0ba8 at0007 = ╱4b╱K╱ // 0xb9d @0x7
0x0b96…0ba8 at0008 = ╱53╱S╱ // 0xb9e @0x8
0x0b96…0ba8 at0009 = ╱dc╱ = ╱ // 0xb9f @0x9
0x0b96…0ba8 at000a = ╱31╱1╱ // 0xba0 @0xa
0x0b96…0ba8 at000b = ╱fe00008001╱ // 0xba1 @0xb
0x0b96…0ba8 at0010 = ╱b6╱ THEN ╱ // 0xba6 @0x10
0x0b96…0ba8 at0011 = EOL // 0xba7 @0x11
0x0b96…0ba8 }
0x0ba8…0bd0 92d0 0920 POSTNR = TAB2 ( AMMNTAL2 + 1 , 2 )
0x0ba8…0bd0 LineComalBcd {
0x0ba8…0bd0 ptr = 0x92d0 // 0xba8 @0x0
0x0ba8…0bd0 lno = 0x0920 // 0xbaa @0x2
0x0ba8…0bd0 at0004 = ╱50╱P╱ // 0xbac @0x4
0x0ba8…0bd0 at0005 = ╱4f╱O╱ // 0xbad @0x5
0x0ba8…0bd0 at0006 = ╱53╱S╱ // 0xbae @0x6
0x0ba8…0bd0 at0007 = ╱54╱T╱ // 0xbaf @0x7
0x0ba8…0bd0 at0008 = ╱4e╱N╱ // 0xbb0 @0x8
0x0ba8…0bd0 at0009 = ╱52╱R╱ // 0xbb1 @0x9
0x0ba8…0bd0 at000a = ╱dc╱ = ╱ // 0xbb2 @0xa
0x0ba8…0bd0 at000b = ╱54╱T╱ // 0xbb3 @0xb
0x0ba8…0bd0 at000c = ╱41╱A╱ // 0xbb4 @0xc
0x0ba8…0bd0 at000d = ╱42╱B╱ // 0xbb5 @0xd
0x0ba8…0bd0 at000e = ╱32╱2╱ // 0xbb6 @0xe
0x0ba8…0bd0 at000f = ╱ed╱ ( ╱ // 0xbb7 @0xf
0x0ba8…0bd0 at0010 = ╱41╱A╱ // 0xbb8 @0x10
0x0ba8…0bd0 at0011 = ╱4d╱M╱ // 0xbb9 @0x11
0x0ba8…0bd0 at0012 = ╱4d╱M╱ // 0xbba @0x12
0x0ba8…0bd0 at0013 = ╱4e╱N╱ // 0xbbb @0x13
0x0ba8…0bd0 at0014 = ╱54╱T╱ // 0xbbc @0x14
0x0ba8…0bd0 at0015 = ╱41╱A╱ // 0xbbd @0x15
0x0ba8…0bd0 at0016 = ╱4c╱L╱ // 0xbbe @0x16
0x0ba8…0bd0 at0017 = ╱32╱2╱ // 0xbbf @0x17
0x0ba8…0bd0 at0018 = ╱e2╱ + ╱ // 0xbc0 @0x18
0x0ba8…0bd0 at0019 = ╱31╱1╱ // 0xbc1 @0x19
0x0ba8…0bd0 at001a = ╱fe00008001╱ // 0xbc2 @0x1a
0x0ba8…0bd0 at001f = ╱ec╱ , ╱ // 0xbc7 @0x1f
0x0ba8…0bd0 at0020 = ╱32╱2╱ // 0xbc8 @0x20
0x0ba8…0bd0 at0021 = ╱fe00008002╱ // 0xbc9 @0x21
0x0ba8…0bd0 at0026 = ╱ee╱ ) ╱ // 0xbce @0x26
0x0ba8…0bd0 at0027 = EOL // 0xbcf @0x27
0x0ba8…0bd0 }
0x0bd0…0c1f 931d 0930 IF N\GL2 > TAB2 ( PIL4 , 1 ) AND TAB2 ( PIL4 , 1 ) >< 1000000 ╱f4╱ ╱14╱ THEN PIL4 = PIL4 + 1
0x0bd0…0c1f LineComalBcd {
0x0bd0…0c1f ptr = 0x931d // 0xbd0 @0x0
0x0bd0…0c1f lno = 0x0930 // 0xbd2 @0x2
0x0bd0…0c1f at0004 = ╱82╱ IF ╱ // 0xbd4 @0x4
0x0bd0…0c1f at0005 = ╱4e╱N╱ // 0xbd5 @0x5
0x0bd0…0c1f at0006 = ╱5c╱\╱ // 0xbd6 @0x6
0x0bd0…0c1f at0007 = ╱47╱G╱ // 0xbd7 @0x7
0x0bd0…0c1f at0008 = ╱4c╱L╱ // 0xbd8 @0x8
0x0bd0…0c1f at0009 = ╱32╱2╱ // 0xbd9 @0x9
0x0bd0…0c1f at000a = ╱de╱ > ╱ // 0xbda @0xa
0x0bd0…0c1f at000b = ╱54╱T╱ // 0xbdb @0xb
0x0bd0…0c1f at000c = ╱41╱A╱ // 0xbdc @0xc
0x0bd0…0c1f at000d = ╱42╱B╱ // 0xbdd @0xd
0x0bd0…0c1f at000e = ╱32╱2╱ // 0xbde @0xe
0x0bd0…0c1f at000f = ╱ed╱ ( ╱ // 0xbdf @0xf
0x0bd0…0c1f at0010 = ╱50╱P╱ // 0xbe0 @0x10
0x0bd0…0c1f at0011 = ╱49╱I╱ // 0xbe1 @0x11
0x0bd0…0c1f at0012 = ╱4c╱L╱ // 0xbe2 @0x12
0x0bd0…0c1f at0013 = ╱34╱4╱ // 0xbe3 @0x13
0x0bd0…0c1f at0014 = ╱ec╱ , ╱ // 0xbe4 @0x14
0x0bd0…0c1f at0015 = ╱31╱1╱ // 0xbe5 @0x15
0x0bd0…0c1f at0016 = ╱fe00008001╱ // 0xbe6 @0x16
0x0bd0…0c1f at001b = ╱ee╱ ) ╱ // 0xbeb @0x1b
0x0bd0…0c1f at001c = ╱da╱ AND ╱ // 0xbec @0x1c
0x0bd0…0c1f at001d = ╱54╱T╱ // 0xbed @0x1d
0x0bd0…0c1f at001e = ╱41╱A╱ // 0xbee @0x1e
0x0bd0…0c1f at001f = ╱42╱B╱ // 0xbef @0x1f
0x0bd0…0c1f at0020 = ╱32╱2╱ // 0xbf0 @0x20
0x0bd0…0c1f at0021 = ╱ed╱ ( ╱ // 0xbf1 @0x21
0x0bd0…0c1f at0022 = ╱50╱P╱ // 0xbf2 @0x22
0x0bd0…0c1f at0023 = ╱49╱I╱ // 0xbf3 @0x23
0x0bd0…0c1f at0024 = ╱4c╱L╱ // 0xbf4 @0x24
0x0bd0…0c1f at0025 = ╱34╱4╱ // 0xbf5 @0x25
0x0bd0…0c1f at0026 = ╱ec╱ , ╱ // 0xbf6 @0x26
0x0bd0…0c1f at0027 = ╱31╱1╱ // 0xbf7 @0x27
0x0bd0…0c1f at0028 = ╱fe00008001╱ // 0xbf8 @0x28
0x0bd0…0c1f at002d = ╱ee╱ ) ╱ // 0xbfd @0x2d
0x0bd0…0c1f at002e = ╱e1╱ >< ╱ // 0xbfe @0x2e
0x0bd0…0c1f at002f = ╱31╱1╱ // 0xbff @0x2f
0x0bd0…0c1f at0030 = ╱30╱0╱ // 0xc00 @0x30
0x0bd0…0c1f at0031 = ╱30╱0╱ // 0xc01 @0x31
0x0bd0…0c1f at0032 = ╱30╱0╱ // 0xc02 @0x32
0x0bd0…0c1f at0033 = ╱30╱0╱ // 0xc03 @0x33
0x0bd0…0c1f at0034 = ╱30╱0╱ // 0xc04 @0x34
0x0bd0…0c1f at0035 = ╱30╱0╱ // 0xc05 @0x35
0x0bd0…0c1f at0036 = ╱fe004d4d24╱ // 0xc06 @0x36
0x0bd0…0c1f at003b = ╱f4╱ // 0xc0b @0x3b
0x0bd0…0c1f at003c = ╱14╱ // 0xc0c @0x3c
0x0bd0…0c1f at003d = ╱b6╱ THEN ╱ // 0xc0d @0x3d
0x0bd0…0c1f at003e = ╱50╱P╱ // 0xc0e @0x3e
0x0bd0…0c1f at003f = ╱49╱I╱ // 0xc0f @0x3f
0x0bd0…0c1f at0040 = ╱4c╱L╱ // 0xc10 @0x40
0x0bd0…0c1f at0041 = ╱34╱4╱ // 0xc11 @0x41
0x0bd0…0c1f at0042 = ╱dc╱ = ╱ // 0xc12 @0x42
0x0bd0…0c1f at0043 = ╱50╱P╱ // 0xc13 @0x43
0x0bd0…0c1f at0044 = ╱49╱I╱ // 0xc14 @0x44
0x0bd0…0c1f at0045 = ╱4c╱L╱ // 0xc15 @0x45
0x0bd0…0c1f at0046 = ╱34╱4╱ // 0xc16 @0x46
0x0bd0…0c1f at0047 = ╱e2╱ + ╱ // 0xc17 @0x47
0x0bd0…0c1f at0048 = ╱31╱1╱ // 0xc18 @0x48
0x0bd0…0c1f at0049 = ╱fe00008001╱ // 0xc19 @0x49
0x0bd0…0c1f at004e = EOL // 0xc1e @0x4e
0x0bd0…0c1f }
0x0c1f…0c48 9346 0940 FOR J = ANTAL2 + 1 TO PIL4 + 1 STEP - 1
0x0c1f…0c48 LineComalBcd {
0x0c1f…0c48 ptr = 0x9346 // 0xc1f @0x0
0x0c1f…0c48 lno = 0x0940 // 0xc21 @0x2
0x0c1f…0c48 at0004 = ╱83╱ FOR ╱ // 0xc23 @0x4
0x0c1f…0c48 at0005 = ╱4a╱J╱ // 0xc24 @0x5
0x0c1f…0c48 at0006 = ╱dc╱ = ╱ // 0xc25 @0x6
0x0c1f…0c48 at0007 = ╱41╱A╱ // 0xc26 @0x7
0x0c1f…0c48 at0008 = ╱4e╱N╱ // 0xc27 @0x8
0x0c1f…0c48 at0009 = ╱54╱T╱ // 0xc28 @0x9
0x0c1f…0c48 at000a = ╱41╱A╱ // 0xc29 @0xa
0x0c1f…0c48 at000b = ╱4c╱L╱ // 0xc2a @0xb
0x0c1f…0c48 at000c = ╱32╱2╱ // 0xc2b @0xc
0x0c1f…0c48 at000d = ╱e2╱ + ╱ // 0xc2c @0xd
0x0c1f…0c48 at000e = ╱31╱1╱ // 0xc2d @0xe
0x0c1f…0c48 at000f = ╱fe00008001╱ // 0xc2e @0xf
0x0c1f…0c48 at0014 = ╱b7╱ TO ╱ // 0xc33 @0x14
0x0c1f…0c48 at0015 = ╱50╱P╱ // 0xc34 @0x15
0x0c1f…0c48 at0016 = ╱49╱I╱ // 0xc35 @0x16
0x0c1f…0c48 at0017 = ╱4c╱L╱ // 0xc36 @0x17
0x0c1f…0c48 at0018 = ╱34╱4╱ // 0xc37 @0x18
0x0c1f…0c48 at0019 = ╱e2╱ + ╱ // 0xc38 @0x19
0x0c1f…0c48 at001a = ╱31╱1╱ // 0xc39 @0x1a
0x0c1f…0c48 at001b = ╱fe00008001╱ // 0xc3a @0x1b
0x0c1f…0c48 at0020 = ╱b8╱ STEP ╱ // 0xc3f @0x20
0x0c1f…0c48 at0021 = ╱e9╱ - ╱ // 0xc40 @0x21
0x0c1f…0c48 at0022 = ╱31╱1╱ // 0xc41 @0x22
0x0c1f…0c48 at0023 = ╱fe00008001╱ // 0xc42 @0x23
0x0c1f…0c48 at0028 = EOL // 0xc47 @0x28
0x0c1f…0c48 }
0x0c48…0c73 936f 0950 TAB2 ( J , 1 ╱80╱ ╱01╱ ) = TAB2 ( J - 1 , 1 )
0x0c48…0c73 LineComalBcd {
0x0c48…0c73 ptr = 0x936f // 0xc48 @0x0
0x0c48…0c73 lno = 0x0950 // 0xc4a @0x2
0x0c48…0c73 at0004 = ╱54╱T╱ // 0xc4c @0x4
0x0c48…0c73 at0005 = ╱41╱A╱ // 0xc4d @0x5
0x0c48…0c73 at0006 = ╱42╱B╱ // 0xc4e @0x6
0x0c48…0c73 at0007 = ╱32╱2╱ // 0xc4f @0x7
0x0c48…0c73 at0008 = ╱ed╱ ( ╱ // 0xc50 @0x8
0x0c48…0c73 at0009 = ╱4a╱J╱ // 0xc51 @0x9
0x0c48…0c73 at000a = ╱ec╱ , ╱ // 0xc52 @0xa
0x0c48…0c73 at000b = ╱31╱1╱ // 0xc53 @0xb
0x0c48…0c73 at000c = ╱fe00004d4d╱ // 0xc54 @0xc
0x0c48…0c73 at0011 = ╱80╱ // 0xc59 @0x11
0x0c48…0c73 at0012 = ╱01╱ // 0xc5a @0x12
0x0c48…0c73 at0013 = ╱ee╱ ) ╱ // 0xc5b @0x13
0x0c48…0c73 at0014 = ╱dc╱ = ╱ // 0xc5c @0x14
0x0c48…0c73 at0015 = ╱54╱T╱ // 0xc5d @0x15
0x0c48…0c73 at0016 = ╱41╱A╱ // 0xc5e @0x16
0x0c48…0c73 at0017 = ╱42╱B╱ // 0xc5f @0x17
0x0c48…0c73 at0018 = ╱32╱2╱ // 0xc60 @0x18
0x0c48…0c73 at0019 = ╱ed╱ ( ╱ // 0xc61 @0x19
0x0c48…0c73 at001a = ╱4a╱J╱ // 0xc62 @0x1a
0x0c48…0c73 at001b = ╱e3╱ - ╱ // 0xc63 @0x1b
0x0c48…0c73 at001c = ╱31╱1╱ // 0xc64 @0x1c
0x0c48…0c73 at001d = ╱fe00008001╱ // 0xc65 @0x1d
0x0c48…0c73 at0022 = ╱ec╱ , ╱ // 0xc6a @0x22
0x0c48…0c73 at0023 = ╱31╱1╱ // 0xc6b @0x23
0x0c48…0c73 at0024 = ╱fe00008001╱ // 0xc6c @0x24
0x0c48…0c73 at0029 = ╱ee╱ ) ╱ // 0xc71 @0x29
0x0c48…0c73 at002a = EOL // 0xc72 @0x2a
0x0c48…0c73 }
0x0c73…0c9c 9398 0960 TAB2 ( J , 2 ) = TAB2 ( J - 1 , 2 )
0x0c73…0c9c LineComalBcd {
0x0c73…0c9c ptr = 0x9398 // 0xc73 @0x0
0x0c73…0c9c lno = 0x0960 // 0xc75 @0x2
0x0c73…0c9c at0004 = ╱54╱T╱ // 0xc77 @0x4
0x0c73…0c9c at0005 = ╱41╱A╱ // 0xc78 @0x5
0x0c73…0c9c at0006 = ╱42╱B╱ // 0xc79 @0x6
0x0c73…0c9c at0007 = ╱32╱2╱ // 0xc7a @0x7
0x0c73…0c9c at0008 = ╱ed╱ ( ╱ // 0xc7b @0x8
0x0c73…0c9c at0009 = ╱4a╱J╱ // 0xc7c @0x9
0x0c73…0c9c at000a = ╱ec╱ , ╱ // 0xc7d @0xa
0x0c73…0c9c at000b = ╱32╱2╱ // 0xc7e @0xb
0x0c73…0c9c at000c = ╱fe00008002╱ // 0xc7f @0xc
0x0c73…0c9c at0011 = ╱ee╱ ) ╱ // 0xc84 @0x11
0x0c73…0c9c at0012 = ╱dc╱ = ╱ // 0xc85 @0x12
0x0c73…0c9c at0013 = ╱54╱T╱ // 0xc86 @0x13
0x0c73…0c9c at0014 = ╱41╱A╱ // 0xc87 @0x14
0x0c73…0c9c at0015 = ╱42╱B╱ // 0xc88 @0x15
0x0c73…0c9c at0016 = ╱32╱2╱ // 0xc89 @0x16
0x0c73…0c9c at0017 = ╱ed╱ ( ╱ // 0xc8a @0x17
0x0c73…0c9c at0018 = ╱4a╱J╱ // 0xc8b @0x18
0x0c73…0c9c at0019 = ╱e3╱ - ╱ // 0xc8c @0x19
0x0c73…0c9c at001a = ╱31╱1╱ // 0xc8d @0x1a
0x0c73…0c9c at001b = ╱fe00008001╱ // 0xc8e @0x1b
0x0c73…0c9c at0020 = ╱ec╱ , ╱ // 0xc93 @0x20
0x0c73…0c9c at0021 = ╱32╱2╱ // 0xc94 @0x21
0x0c73…0c9c at0022 = ╱fe00008002╱ // 0xc95 @0x22
0x0c73…0c9c at0027 = ╱ee╱ ) ╱ // 0xc9a @0x27
0x0c73…0c9c at0028 = EOL // 0xc9b @0x28
0x0c73…0c9c }
0x0c9c…0ca3 939f 0970 NEXT J
0x0c9c…0ca3 LineComalBcd {
0x0c9c…0ca3 ptr = 0x939f // 0xc9c @0x0
0x0c9c…0ca3 lno = 0x0970 // 0xc9e @0x2
0x0c9c…0ca3 at0004 = ╱84╱ NEXT ╱ // 0xca0 @0x4
0x0c9c…0ca3 at0005 = ╱4a╱J╱ // 0xca1 @0x5
0x0c9c…0ca3 at0006 = EOL // 0xca2 @0x6
0x0c9c…0ca3 }
0x0ca3…0cc1 93bb 094d M ╱80╱ TAB2 ( PIL4 , 1 ) = N\GL2
0x0ca3…0cc1 LineComalBcd {
0x0ca3…0cc1 ptr = 0x93bb // 0xca3 @0x0
0x0ca3…0cc1 lno = 0x094d // 0xca5 @0x2
0x0ca3…0cc1 at0004 = ╱4d╱M╱ // 0xca7 @0x4
0x0ca3…0cc1 at0005 = ╱80╱ // 0xca8 @0x5
0x0ca3…0cc1 at0006 = ╱54╱T╱ // 0xca9 @0x6
0x0ca3…0cc1 at0007 = ╱41╱A╱ // 0xcaa @0x7
0x0ca3…0cc1 at0008 = ╱42╱B╱ // 0xcab @0x8
0x0ca3…0cc1 at0009 = ╱32╱2╱ // 0xcac @0x9
0x0ca3…0cc1 at000a = ╱ed╱ ( ╱ // 0xcad @0xa
0x0ca3…0cc1 at000b = ╱50╱P╱ // 0xcae @0xb
0x0ca3…0cc1 at000c = ╱49╱I╱ // 0xcaf @0xc
0x0ca3…0cc1 at000d = ╱4c╱L╱ // 0xcb0 @0xd
0x0ca3…0cc1 at000e = ╱34╱4╱ // 0xcb1 @0xe
0x0ca3…0cc1 at000f = ╱ec╱ , ╱ // 0xcb2 @0xf
0x0ca3…0cc1 at0010 = ╱31╱1╱ // 0xcb3 @0x10
0x0ca3…0cc1 at0011 = ╱fe00008001╱ // 0xcb4 @0x11
0x0ca3…0cc1 at0016 = ╱ee╱ ) ╱ // 0xcb9 @0x16
0x0ca3…0cc1 at0017 = ╱dc╱ = ╱ // 0xcba @0x17
0x0ca3…0cc1 at0018 = ╱4e╱N╱ // 0xcbb @0x18
0x0ca3…0cc1 at0019 = ╱5c╱\╱ // 0xcbc @0x19
0x0ca3…0cc1 at001a = ╱47╱G╱ // 0xcbd @0x1a
0x0ca3…0cc1 at001b = ╱4c╱L╱ // 0xcbe @0x1b
0x0ca3…0cc1 at001c = ╱32╱2╱ // 0xcbf @0x1c
0x0ca3…0cc1 at001d = EOL // 0xcc0 @0x1d
0x0ca3…0cc1 }
0x0cc1…0cde 93d8 0990 TAB2 ( PIL4 , 2 ) = POSTNR
0x0cc1…0cde LineComalBcd {
0x0cc1…0cde ptr = 0x93d8 // 0xcc1 @0x0
0x0cc1…0cde lno = 0x0990 // 0xcc3 @0x2
0x0cc1…0cde at0004 = ╱54╱T╱ // 0xcc5 @0x4
0x0cc1…0cde at0005 = ╱41╱A╱ // 0xcc6 @0x5
0x0cc1…0cde at0006 = ╱42╱B╱ // 0xcc7 @0x6
0x0cc1…0cde at0007 = ╱32╱2╱ // 0xcc8 @0x7
0x0cc1…0cde at0008 = ╱ed╱ ( ╱ // 0xcc9 @0x8
0x0cc1…0cde at0009 = ╱50╱P╱ // 0xcca @0x9
0x0cc1…0cde at000a = ╱49╱I╱ // 0xccb @0xa
0x0cc1…0cde at000b = ╱4c╱L╱ // 0xccc @0xb
0x0cc1…0cde at000c = ╱34╱4╱ // 0xccd @0xc
0x0cc1…0cde at000d = ╱ec╱ , ╱ // 0xcce @0xd
0x0cc1…0cde at000e = ╱32╱2╱ // 0xccf @0xe
0x0cc1…0cde at000f = ╱fe00008002╱ // 0xcd0 @0xf
0x0cc1…0cde at0014 = ╱ee╱ ) ╱ // 0xcd5 @0x14
0x0cc1…0cde at0015 = ╱dc╱ = ╱ // 0xcd6 @0x15
0x0cc1…0cde at0016 = ╱50╱P╱ // 0xcd7 @0x16
0x0cc1…0cde at0017 = ╱4f╱O╱ // 0xcd8 @0x17
0x0cc1…0cde at0018 = ╱53╱S╱ // 0xcd9 @0x18
0x0cc1…0cde at0019 = ╱54╱T╱ // 0xcda @0x19
0x0cc1…0cde at001a = ╱4e╱N╱ // 0xcdb @0x1a
0x0cc1…0cde at001b = ╱52╱R╱ // 0xcdc @0x1b
0x0cc1…0cde at001c = EOL // 0xcdd @0x1c
0x0cc1…0cde }
0x0cde…0cf9 93f1 1000 ANTAL2 = ANTAL2 + 1M ╱01╱
0x0cde…0cf9 LineComalBcd {
0x0cde…0cf9 ptr = 0x93f1 // 0xcde @0x0
0x0cde…0cf9 lno = 0x1000 // 0xce0 @0x2
0x0cde…0cf9 at0004 = ╱41╱A╱ // 0xce2 @0x4
0x0cde…0cf9 at0005 = ╱4e╱N╱ // 0xce3 @0x5
0x0cde…0cf9 at0006 = ╱54╱T╱ // 0xce4 @0x6
0x0cde…0cf9 at0007 = ╱41╱A╱ // 0xce5 @0x7
0x0cde…0cf9 at0008 = ╱4c╱L╱ // 0xce6 @0x8
0x0cde…0cf9 at0009 = ╱32╱2╱ // 0xce7 @0x9
0x0cde…0cf9 at000a = ╱dc╱ = ╱ // 0xce8 @0xa
0x0cde…0cf9 at000b = ╱41╱A╱ // 0xce9 @0xb
0x0cde…0cf9 at000c = ╱4e╱N╱ // 0xcea @0xc
0x0cde…0cf9 at000d = ╱54╱T╱ // 0xceb @0xd
0x0cde…0cf9 at000e = ╱41╱A╱ // 0xcec @0xe
0x0cde…0cf9 at000f = ╱4c╱L╱ // 0xced @0xf
0x0cde…0cf9 at0010 = ╱32╱2╱ // 0xcee @0x10
0x0cde…0cf9 at0011 = ╱e2╱ + ╱ // 0xcef @0x11
0x0cde…0cf9 at0012 = ╱31╱1╱ // 0xcf0 @0x12
0x0cde…0cf9 at0013 = ╱fe0000804d╱ // 0xcf1 @0x13
0x0cde…0cf9 at0018 = ╱4d╱M╱ // 0xcf6 @0x18
0x0cde…0cf9 at0019 = ╱01╱ // 0xcf7 @0x19
0x0cde…0cf9 at001a = EOL // 0xcf8 @0x1a
0x0cde…0cf9 }
0x0cf9…0cff 93f7 1010 ENDIF
0x0cf9…0cff LineComalBcd {
0x0cf9…0cff ptr = 0x93f7 // 0xcf9 @0x0
0x0cf9…0cff lno = 0x1010 // 0xcfb @0x2
0x0cf9…0cff at0004 = ╱9b╱ ENDIF ╱ // 0xcfd @0x4
0x0cf9…0cff at0005 = EOL // 0xcfe @0x5
0x0cf9…0cff }
0x0cff…0d05 93fd 1020 ENDPROC
0x0cff…0d05 LineComalBcd {
0x0cff…0d05 ptr = 0x93fd // 0xcff @0x0
0x0cff…0d05 lno = 0x1020 // 0xd01 @0x2
0x0cff…0d05 at0004 = ╱9f╱ ENDPROC ╱ // 0xd03 @0x4
0x0cff…0d05 at0005 = EOL // 0xd04 @0x5
0x0cff…0d05 }
0x0d05…0d2b 9423 1030 PROC SLETPOST ( TAB3 , ANTAL3 , N\GL3 , PIL5 )
0x0d05…0d2b LineComalBcd {
0x0d05…0d2b ptr = 0x9423 // 0xd05 @0x0
0x0d05…0d2b lno = 0x1030 // 0xd07 @0x2
0x0d05…0d2b at0004 = ╱9e╱ PROC ╱ // 0xd09 @0x4
0x0d05…0d2b at0005 = ╱53╱S╱ // 0xd0a @0x5
0x0d05…0d2b at0006 = ╱4c╱L╱ // 0xd0b @0x6
0x0d05…0d2b at0007 = ╱45╱E╱ // 0xd0c @0x7
0x0d05…0d2b at0008 = ╱54╱T╱ // 0xd0d @0x8
0x0d05…0d2b at0009 = ╱50╱P╱ // 0xd0e @0x9
0x0d05…0d2b at000a = ╱4f╱O╱ // 0xd0f @0xa
0x0d05…0d2b at000b = ╱53╱S╱ // 0xd10 @0xb
0x0d05…0d2b at000c = ╱54╱T╱ // 0xd11 @0xc
0x0d05…0d2b at000d = ╱ed╱ ( ╱ // 0xd12 @0xd
0x0d05…0d2b at000e = ╱54╱T╱ // 0xd13 @0xe
0x0d05…0d2b at000f = ╱41╱A╱ // 0xd14 @0xf
0x0d05…0d2b at0010 = ╱42╱B╱ // 0xd15 @0x10
0x0d05…0d2b at0011 = ╱33╱3╱ // 0xd16 @0x11
0x0d05…0d2b at0012 = ╱ec╱ , ╱ // 0xd17 @0x12
0x0d05…0d2b at0013 = ╱41╱A╱ // 0xd18 @0x13
0x0d05…0d2b at0014 = ╱4e╱N╱ // 0xd19 @0x14
0x0d05…0d2b at0015 = ╱54╱T╱ // 0xd1a @0x15
0x0d05…0d2b at0016 = ╱41╱A╱ // 0xd1b @0x16
0x0d05…0d2b at0017 = ╱4c╱L╱ // 0xd1c @0x17
0x0d05…0d2b at0018 = ╱33╱3╱ // 0xd1d @0x18
0x0d05…0d2b at0019 = ╱ec╱ , ╱ // 0xd1e @0x19
0x0d05…0d2b at001a = ╱4e╱N╱ // 0xd1f @0x1a
0x0d05…0d2b at001b = ╱5c╱\╱ // 0xd20 @0x1b
0x0d05…0d2b at001c = ╱47╱G╱ // 0xd21 @0x1c
0x0d05…0d2b at001d = ╱4c╱L╱ // 0xd22 @0x1d
0x0d05…0d2b at001e = ╱33╱3╱ // 0xd23 @0x1e
0x0d05…0d2b at001f = ╱ec╱ , ╱ // 0xd24 @0x1f
0x0d05…0d2b at0020 = ╱50╱P╱ // 0xd25 @0x20
0x0d05…0d2b at0021 = ╱49╱I╱ // 0xd26 @0x21
0x0d05…0d2b at0022 = ╱4c╱L╱ // 0xd27 @0x22
0x0d05…0d2b at0023 = ╱35╱5╱ // 0xd28 @0x23
0x0d05…0d2b at0024 = ╱ee╱ ) ╱ // 0xd29 @0x24
0x0d05…0d2b at0025 = EOL // 0xd2a @0x25
0x0d05…0d2b }
0x0d2b…0d3d 9435 1040 IF CEKS = 0 THEN
0x0d2b…0d3d LineComalBcd {
0x0d2b…0d3d ptr = 0x9435 // 0xd2b @0x0
0x0d2b…0d3d lno = 0x1040 // 0xd2d @0x2
0x0d2b…0d3d at0004 = ╱9c╱ IF ╱ // 0xd2f @0x4
0x0d2b…0d3d at0005 = ╱43╱C╱ // 0xd30 @0x5
0x0d2b…0d3d at0006 = ╱45╱E╱ // 0xd31 @0x6
0x0d2b…0d3d at0007 = ╱4b╱K╱ // 0xd32 @0x7
0x0d2b…0d3d at0008 = ╱53╱S╱ // 0xd33 @0x8
0x0d2b…0d3d at0009 = ╱dc╱ = ╱ // 0xd34 @0x9
0x0d2b…0d3d at000a = ╱30╱0╱ // 0xd35 @0xa
0x0d2b…0d3d at000b = ╱fe00000000╱ // 0xd36 @0xb
0x0d2b…0d3d at0010 = ╱b6╱ THEN ╱ // 0xd3b @0x10
0x0d2b…0d3d at0011 = EOL // 0xd3c @0x11
0x0d2b…0d3d }
0x0d3d…0d5c 9452 1050 POSMMTNR = TAB3 ( PIL5 , 2 )
0x0d3d…0d5c LineComalBcd {
0x0d3d…0d5c ptr = 0x9452 // 0xd3d @0x0
0x0d3d…0d5c lno = 0x1050 // 0xd3f @0x2
0x0d3d…0d5c at0004 = ╱50╱P╱ // 0xd41 @0x4
0x0d3d…0d5c at0005 = ╱4f╱O╱ // 0xd42 @0x5
0x0d3d…0d5c at0006 = ╱53╱S╱ // 0xd43 @0x6
0x0d3d…0d5c at0007 = ╱4d╱M╱ // 0xd44 @0x7
0x0d3d…0d5c at0008 = ╱4d╱M╱ // 0xd45 @0x8
0x0d3d…0d5c at0009 = ╱54╱T╱ // 0xd46 @0x9
0x0d3d…0d5c at000a = ╱4e╱N╱ // 0xd47 @0xa
0x0d3d…0d5c at000b = ╱52╱R╱ // 0xd48 @0xb
0x0d3d…0d5c at000c = ╱dc╱ = ╱ // 0xd49 @0xc
0x0d3d…0d5c at000d = ╱54╱T╱ // 0xd4a @0xd
0x0d3d…0d5c at000e = ╱41╱A╱ // 0xd4b @0xe
0x0d3d…0d5c at000f = ╱42╱B╱ // 0xd4c @0xf
0x0d3d…0d5c at0010 = ╱33╱3╱ // 0xd4d @0x10
0x0d3d…0d5c at0011 = ╱ed╱ ( ╱ // 0xd4e @0x11
0x0d3d…0d5c at0012 = ╱50╱P╱ // 0xd4f @0x12
0x0d3d…0d5c at0013 = ╱49╱I╱ // 0xd50 @0x13
0x0d3d…0d5c at0014 = ╱4c╱L╱ // 0xd51 @0x14
0x0d3d…0d5c at0015 = ╱35╱5╱ // 0xd52 @0x15
0x0d3d…0d5c at0016 = ╱ec╱ , ╱ // 0xd53 @0x16
0x0d3d…0d5c at0017 = ╱32╱2╱ // 0xd54 @0x17
0x0d3d…0d5c at0018 = ╱fe00008002╱ // 0xd55 @0x18
0x0d3d…0d5c at001d = ╱ee╱ ) ╱ // 0xd5a @0x1d
0x0d3d…0d5c at001e = EOL // 0xd5b @0x1e
0x0d3d…0d5c }
0x0d5c…0d6f 9465 1060 FOR I = PIL5 TO ANTAL3
0x0d5c…0d6f LineComalBcd {
0x0d5c…0d6f ptr = 0x9465 // 0xd5c @0x0
0x0d5c…0d6f lno = 0x1060 // 0xd5e @0x2
0x0d5c…0d6f at0004 = ╱83╱ FOR ╱ // 0xd60 @0x4
0x0d5c…0d6f at0005 = ╱49╱I╱ // 0xd61 @0x5
0x0d5c…0d6f at0006 = ╱dc╱ = ╱ // 0xd62 @0x6
0x0d5c…0d6f at0007 = ╱50╱P╱ // 0xd63 @0x7
0x0d5c…0d6f at0008 = ╱49╱I╱ // 0xd64 @0x8
0x0d5c…0d6f at0009 = ╱4c╱L╱ // 0xd65 @0x9
0x0d5c…0d6f at000a = ╱35╱5╱ // 0xd66 @0xa
0x0d5c…0d6f at000b = ╱b7╱ TO ╱ // 0xd67 @0xb
0x0d5c…0d6f at000c = ╱41╱A╱ // 0xd68 @0xc
0x0d5c…0d6f at000d = ╱4e╱N╱ // 0xd69 @0xd
0x0d5c…0d6f at000e = ╱54╱T╱ // 0xd6a @0xe
0x0d5c…0d6f at000f = ╱41╱A╱ // 0xd6b @0xf
0x0d5c…0d6f at0010 = ╱4c╱L╱ // 0xd6c @0x10
0x0d5c…0d6f at0011 = ╱33╱3╱ // 0xd6d @0x11
0x0d5c…0d6f at0012 = EOL // 0xd6e @0x12
0x0d5c…0d6f }
0x0d6f…0d9a 948e 1070 TAB3 ( I , 1 ) = TAB3 ( I + 1 , 1 ╱80╱ ╱01╱ )
0x0d6f…0d9a LineComalBcd {
0x0d6f…0d9a ptr = 0x948e // 0xd6f @0x0
0x0d6f…0d9a lno = 0x1070 // 0xd71 @0x2
0x0d6f…0d9a at0004 = ╱54╱T╱ // 0xd73 @0x4
0x0d6f…0d9a at0005 = ╱41╱A╱ // 0xd74 @0x5
0x0d6f…0d9a at0006 = ╱42╱B╱ // 0xd75 @0x6
0x0d6f…0d9a at0007 = ╱33╱3╱ // 0xd76 @0x7
0x0d6f…0d9a at0008 = ╱ed╱ ( ╱ // 0xd77 @0x8
0x0d6f…0d9a at0009 = ╱49╱I╱ // 0xd78 @0x9
0x0d6f…0d9a at000a = ╱ec╱ , ╱ // 0xd79 @0xa
0x0d6f…0d9a at000b = ╱31╱1╱ // 0xd7a @0xb
0x0d6f…0d9a at000c = ╱fe00008001╱ // 0xd7b @0xc
0x0d6f…0d9a at0011 = ╱ee╱ ) ╱ // 0xd80 @0x11
0x0d6f…0d9a at0012 = ╱dc╱ = ╱ // 0xd81 @0x12
0x0d6f…0d9a at0013 = ╱54╱T╱ // 0xd82 @0x13
0x0d6f…0d9a at0014 = ╱41╱A╱ // 0xd83 @0x14
0x0d6f…0d9a at0015 = ╱42╱B╱ // 0xd84 @0x15
0x0d6f…0d9a at0016 = ╱33╱3╱ // 0xd85 @0x16
0x0d6f…0d9a at0017 = ╱ed╱ ( ╱ // 0xd86 @0x17
0x0d6f…0d9a at0018 = ╱49╱I╱ // 0xd87 @0x18
0x0d6f…0d9a at0019 = ╱e2╱ + ╱ // 0xd88 @0x19
0x0d6f…0d9a at001a = ╱31╱1╱ // 0xd89 @0x1a
0x0d6f…0d9a at001b = ╱fe00008001╱ // 0xd8a @0x1b
0x0d6f…0d9a at0020 = ╱ec╱ , ╱ // 0xd8f @0x20
0x0d6f…0d9a at0021 = ╱31╱1╱ // 0xd90 @0x21
0x0d6f…0d9a at0022 = ╱fe004d4d00╱ // 0xd91 @0x22
0x0d6f…0d9a at0027 = ╱80╱ // 0xd96 @0x27
0x0d6f…0d9a at0028 = ╱01╱ // 0xd97 @0x28
0x0d6f…0d9a at0029 = ╱ee╱ ) ╱ // 0xd98 @0x29
0x0d6f…0d9a at002a = EOL // 0xd99 @0x2a
0x0d6f…0d9a }
0x0d9a…0dc3 94b7 1080 TAB3 ( I , 2 ) = TAB3 ( I + 1 , 2 )
0x0d9a…0dc3 LineComalBcd {
0x0d9a…0dc3 ptr = 0x94b7 // 0xd9a @0x0
0x0d9a…0dc3 lno = 0x1080 // 0xd9c @0x2
0x0d9a…0dc3 at0004 = ╱54╱T╱ // 0xd9e @0x4
0x0d9a…0dc3 at0005 = ╱41╱A╱ // 0xd9f @0x5
0x0d9a…0dc3 at0006 = ╱42╱B╱ // 0xda0 @0x6
0x0d9a…0dc3 at0007 = ╱33╱3╱ // 0xda1 @0x7
0x0d9a…0dc3 at0008 = ╱ed╱ ( ╱ // 0xda2 @0x8
0x0d9a…0dc3 at0009 = ╱49╱I╱ // 0xda3 @0x9
0x0d9a…0dc3 at000a = ╱ec╱ , ╱ // 0xda4 @0xa
0x0d9a…0dc3 at000b = ╱32╱2╱ // 0xda5 @0xb
0x0d9a…0dc3 at000c = ╱fe00008002╱ // 0xda6 @0xc
0x0d9a…0dc3 at0011 = ╱ee╱ ) ╱ // 0xdab @0x11
0x0d9a…0dc3 at0012 = ╱dc╱ = ╱ // 0xdac @0x12
0x0d9a…0dc3 at0013 = ╱54╱T╱ // 0xdad @0x13
0x0d9a…0dc3 at0014 = ╱41╱A╱ // 0xdae @0x14
0x0d9a…0dc3 at0015 = ╱42╱B╱ // 0xdaf @0x15
0x0d9a…0dc3 at0016 = ╱33╱3╱ // 0xdb0 @0x16
0x0d9a…0dc3 at0017 = ╱ed╱ ( ╱ // 0xdb1 @0x17
0x0d9a…0dc3 at0018 = ╱49╱I╱ // 0xdb2 @0x18
0x0d9a…0dc3 at0019 = ╱e2╱ + ╱ // 0xdb3 @0x19
0x0d9a…0dc3 at001a = ╱31╱1╱ // 0xdb4 @0x1a
0x0d9a…0dc3 at001b = ╱fe00008001╱ // 0xdb5 @0x1b
0x0d9a…0dc3 at0020 = ╱ec╱ , ╱ // 0xdba @0x20
0x0d9a…0dc3 at0021 = ╱32╱2╱ // 0xdbb @0x21
0x0d9a…0dc3 at0022 = ╱fe00008002╱ // 0xdbc @0x22
0x0d9a…0dc3 at0027 = ╱ee╱ ) ╱ // 0xdc1 @0x27
0x0d9a…0dc3 at0028 = EOL // 0xdc2 @0x28
0x0d9a…0dc3 }
0x0dc3…0dca 94be 1090 NEXT I
0x0dc3…0dca LineComalBcd {
0x0dc3…0dca ptr = 0x94be // 0xdc3 @0x0
0x0dc3…0dca lno = 0x1090 // 0xdc5 @0x2
0x0dc3…0dca at0004 = ╱84╱ NEXT ╱ // 0xdc7 @0x4
0x0dc3…0dca at0005 = ╱49╱I╱ // 0xdc8 @0x5
0x0dc3…0dca at0006 = EOL // 0xdc9 @0x6
0x0dc3…0dca }
0x0dca…0df1 94e3 1100 TAB3 ( ANTAL3 , 1 ) = MM1000000
0x0dca…0df1 LineComalBcd {
0x0dca…0df1 ptr = 0x94e3 // 0xdca @0x0
0x0dca…0df1 lno = 0x1100 // 0xdcc @0x2
0x0dca…0df1 at0004 = ╱54╱T╱ // 0xdce @0x4
0x0dca…0df1 at0005 = ╱41╱A╱ // 0xdcf @0x5
0x0dca…0df1 at0006 = ╱42╱B╱ // 0xdd0 @0x6
0x0dca…0df1 at0007 = ╱33╱3╱ // 0xdd1 @0x7
0x0dca…0df1 at0008 = ╱ed╱ ( ╱ // 0xdd2 @0x8
0x0dca…0df1 at0009 = ╱41╱A╱ // 0xdd3 @0x9
0x0dca…0df1 at000a = ╱4e╱N╱ // 0xdd4 @0xa
0x0dca…0df1 at000b = ╱54╱T╱ // 0xdd5 @0xb
0x0dca…0df1 at000c = ╱41╱A╱ // 0xdd6 @0xc
0x0dca…0df1 at000d = ╱4c╱L╱ // 0xdd7 @0xd
0x0dca…0df1 at000e = ╱33╱3╱ // 0xdd8 @0xe
0x0dca…0df1 at000f = ╱ec╱ , ╱ // 0xdd9 @0xf
0x0dca…0df1 at0010 = ╱31╱1╱ // 0xdda @0x10
0x0dca…0df1 at0011 = ╱fe00008001╱ // 0xddb @0x11
0x0dca…0df1 at0016 = ╱ee╱ ) ╱ // 0xde0 @0x16
0x0dca…0df1 at0017 = ╱dc╱ = ╱ // 0xde1 @0x17
0x0dca…0df1 at0018 = ╱4d╱M╱ // 0xde2 @0x18
0x0dca…0df1 at0019 = ╱4d╱M╱ // 0xde3 @0x19
0x0dca…0df1 at001a = ╱31╱1╱ // 0xde4 @0x1a
0x0dca…0df1 at001b = ╱30╱0╱ // 0xde5 @0x1b
0x0dca…0df1 at001c = ╱30╱0╱ // 0xde6 @0x1c
0x0dca…0df1 at001d = ╱30╱0╱ // 0xde7 @0x1d
0x0dca…0df1 at001e = ╱30╱0╱ // 0xde8 @0x1e
0x0dca…0df1 at001f = ╱30╱0╱ // 0xde9 @0x1f
0x0dca…0df1 at0020 = ╱30╱0╱ // 0xdea @0x20
0x0dca…0df1 at0021 = ╱fe0024f414╱ // 0xdeb @0x21
0x0dca…0df1 at0026 = EOL // 0xdf0 @0x26
0x0dca…0df1 }
0x0df1…0e10 9502 1110 TAB3 ( ANTAL3 , 2 ) = POSTNR
0x0df1…0e10 LineComalBcd {
0x0df1…0e10 ptr = 0x9502 // 0xdf1 @0x0
0x0df1…0e10 lno = 0x1110 // 0xdf3 @0x2
0x0df1…0e10 at0004 = ╱54╱T╱ // 0xdf5 @0x4
0x0df1…0e10 at0005 = ╱41╱A╱ // 0xdf6 @0x5
0x0df1…0e10 at0006 = ╱42╱B╱ // 0xdf7 @0x6
0x0df1…0e10 at0007 = ╱33╱3╱ // 0xdf8 @0x7
0x0df1…0e10 at0008 = ╱ed╱ ( ╱ // 0xdf9 @0x8
0x0df1…0e10 at0009 = ╱41╱A╱ // 0xdfa @0x9
0x0df1…0e10 at000a = ╱4e╱N╱ // 0xdfb @0xa
0x0df1…0e10 at000b = ╱54╱T╱ // 0xdfc @0xb
0x0df1…0e10 at000c = ╱41╱A╱ // 0xdfd @0xc
0x0df1…0e10 at000d = ╱4c╱L╱ // 0xdfe @0xd
0x0df1…0e10 at000e = ╱33╱3╱ // 0xdff @0xe
0x0df1…0e10 at000f = ╱ec╱ , ╱ // 0xe00 @0xf
0x0df1…0e10 at0010 = ╱32╱2╱ // 0xe01 @0x10
0x0df1…0e10 at0011 = ╱fe00008002╱ // 0xe02 @0x11
0x0df1…0e10 at0016 = ╱ee╱ ) ╱ // 0xe07 @0x16
0x0df1…0e10 at0017 = ╱dc╱ = ╱ // 0xe08 @0x17
0x0df1…0e10 at0018 = ╱50╱P╱ // 0xe09 @0x18
0x0df1…0e10 at0019 = ╱4f╱O╱ // 0xe0a @0x19
0x0df1…0e10 at001a = ╱53╱S╱ // 0xe0b @0x1a
0x0df1…0e10 at001b = ╱54╱T╱ // 0xe0c @0x1b
0x0df1…0e10 at001c = ╱4e╱N╱ // 0xe0d @0x1c
0x0df1…0e10 at001d = ╱52╱R╱ // 0xe0e @0x1d
0x0df1…0e10 at001e = EOL // 0xe0f @0x1e
0x0df1…0e10 }
0x0e10…0e29 951b 1120 ANTAL3 = ANTAL3 - 1
0x0e10…0e29 LineComalBcd {
0x0e10…0e29 ptr = 0x951b // 0xe10 @0x0
0x0e10…0e29 lno = 0x1120 // 0xe12 @0x2
0x0e10…0e29 at0004 = ╱41╱A╱ // 0xe14 @0x4
0x0e10…0e29 at0005 = ╱4e╱N╱ // 0xe15 @0x5
0x0e10…0e29 at0006 = ╱54╱T╱ // 0xe16 @0x6
0x0e10…0e29 at0007 = ╱41╱A╱ // 0xe17 @0x7
0x0e10…0e29 at0008 = ╱4c╱L╱ // 0xe18 @0x8
0x0e10…0e29 at0009 = ╱33╱3╱ // 0xe19 @0x9
0x0e10…0e29 at000a = ╱dc╱ = ╱ // 0xe1a @0xa
0x0e10…0e29 at000b = ╱41╱A╱ // 0xe1b @0xb
0x0e10…0e29 at000c = ╱4e╱N╱ // 0xe1c @0xc
0x0e10…0e29 at000d = ╱54╱T╱ // 0xe1d @0xd
0x0e10…0e29 at000e = ╱41╱A╱ // 0xe1e @0xe
0x0e10…0e29 at000f = ╱4c╱L╱ // 0xe1f @0xf
0x0e10…0e29 at0010 = ╱33╱3╱ // 0xe20 @0x10
0x0e10…0e29 at0011 = ╱e3╱ - ╱ // 0xe21 @0x11
0x0e10…0e29 at0012 = ╱31╱1╱ // 0xe22 @0x12
0x0e10…0e29 at0013 = ╱fe00008001╱ // 0xe23 @0x13
0x0e10…0e29 at0018 = EOL // 0xe28 @0x18
0x0e10…0e29 }
0x0e29…0e2f 9521 1130 ENDIF
0x0e29…0e2f LineComalBcd {
0x0e29…0e2f ptr = 0x9521 // 0xe29 @0x0
0x0e29…0e2f lno = 0x1130 // 0xe2b @0x2
0x0e29…0e2f at0004 = ╱9b╱ ENDIF ╱ // 0xe2d @0x4
0x0e29…0e2f at0005 = EOL // 0xe2e @0x5
0x0e29…0e2f }
0x0e2f…0e37 9527 4d4d ╱11╱ @ ENDPROC
0x0e2f…0e37 LineComalBcd {
0x0e2f…0e37 ptr = 0x9527 // 0xe2f @0x0
0x0e2f…0e37 lno = 0x4d4d // 0xe31 @0x2
0x0e2f…0e37 at0004 = ╱11╱ // 0xe33 @0x4
0x0e2f…0e37 at0005 = ╱40╱@╱ // 0xe34 @0x5
0x0e2f…0e37 at0006 = ╱9f╱ ENDPROC ╱ // 0xe35 @0x6
0x0e2f…0e37 at0007 = EOL // 0xe36 @0x7
0x0e2f…0e37 }
0x0e37…0e46 9536 1150 PROC HENTDPOST
0x0e37…0e46 LineComalBcd {
0x0e37…0e46 ptr = 0x9536 // 0xe37 @0x0
0x0e37…0e46 lno = 0x1150 // 0xe39 @0x2
0x0e37…0e46 at0004 = ╱9e╱ PROC ╱ // 0xe3b @0x4
0x0e37…0e46 at0005 = ╱48╱H╱ // 0xe3c @0x5
0x0e37…0e46 at0006 = ╱45╱E╱ // 0xe3d @0x6
0x0e37…0e46 at0007 = ╱4e╱N╱ // 0xe3e @0x7
0x0e37…0e46 at0008 = ╱54╱T╱ // 0xe3f @0x8
0x0e37…0e46 at0009 = ╱44╱D╱ // 0xe40 @0x9
0x0e37…0e46 at000a = ╱50╱P╱ // 0xe41 @0xa
0x0e37…0e46 at000b = ╱4f╱O╱ // 0xe42 @0xb
0x0e37…0e46 at000c = ╱53╱S╱ // 0xe43 @0xc
0x0e37…0e46 at000d = ╱54╱T╱ // 0xe44 @0xd
0x0e37…0e46 at000e = EOL // 0xe45 @0xe
0x0e37…0e46 }
0x0e46…0e5f 954f 1160 S = DTAB ( DPIL3 , 2 )
0x0e46…0e5f LineComalBcd {
0x0e46…0e5f ptr = 0x954f // 0xe46 @0x0
0x0e46…0e5f lno = 0x1160 // 0xe48 @0x2
0x0e46…0e5f at0004 = ╱53╱S╱ // 0xe4a @0x4
0x0e46…0e5f at0005 = ╱dc╱ = ╱ // 0xe4b @0x5
0x0e46…0e5f at0006 = ╱44╱D╱ // 0xe4c @0x6
0x0e46…0e5f at0007 = ╱54╱T╱ // 0xe4d @0x7
0x0e46…0e5f at0008 = ╱41╱A╱ // 0xe4e @0x8
0x0e46…0e5f at0009 = ╱42╱B╱ // 0xe4f @0x9
0x0e46…0e5f at000a = ╱ed╱ ( ╱ // 0xe50 @0xa
0x0e46…0e5f at000b = ╱44╱D╱ // 0xe51 @0xb
0x0e46…0e5f at000c = ╱50╱P╱ // 0xe52 @0xc
0x0e46…0e5f at000d = ╱49╱I╱ // 0xe53 @0xd
0x0e46…0e5f at000e = ╱4c╱L╱ // 0xe54 @0xe
0x0e46…0e5f at000f = ╱33╱3╱ // 0xe55 @0xf
0x0e46…0e5f at0010 = ╱ec╱ , ╱ // 0xe56 @0x10
0x0e46…0e5f at0011 = ╱32╱2╱ // 0xe57 @0x11
0x0e46…0e5f at0012 = ╱fe00008002╱ // 0xe58 @0x12
0x0e46…0e5f at0017 = ╱ee╱ ) ╱ // 0xe5d @0x17
0x0e46…0e5f at0018 = EOL // 0xe5e @0x18
0x0e46…0e5f }
0x0e5f…0e8c 957a 1170 GET K3 $ , S : DEBNR , DEBNAVN $ , DSALDO1MM $ , DEBKGR $
0x0e5f…0e8c LineComalBcd {
0x0e5f…0e8c ptr = 0x957a // 0xe5f @0x0
0x0e5f…0e8c lno = 0x1170 // 0xe61 @0x2
0x0e5f…0e8c at0004 = ╱a9╱ GET ╱ // 0xe63 @0x4
0x0e5f…0e8c at0005 = ╱4b╱K╱ // 0xe64 @0x5
0x0e5f…0e8c at0006 = ╱33╱3╱ // 0xe65 @0x6
0x0e5f…0e8c at0007 = ╱ef╱ $ ╱ // 0xe66 @0x7
0x0e5f…0e8c at0008 = ╱ec╱ , ╱ // 0xe67 @0x8
0x0e5f…0e8c at0009 = ╱53╱S╱ // 0xe68 @0x9
0x0e5f…0e8c at000a = ╱f0╱ : ╱ // 0xe69 @0xa
0x0e5f…0e8c at000b = ╱44╱D╱ // 0xe6a @0xb
0x0e5f…0e8c at000c = ╱45╱E╱ // 0xe6b @0xc
0x0e5f…0e8c at000d = ╱42╱B╱ // 0xe6c @0xd
0x0e5f…0e8c at000e = ╱4e╱N╱ // 0xe6d @0xe
0x0e5f…0e8c at000f = ╱52╱R╱ // 0xe6e @0xf
0x0e5f…0e8c at0010 = ╱ec╱ , ╱ // 0xe6f @0x10
0x0e5f…0e8c at0011 = ╱44╱D╱ // 0xe70 @0x11
0x0e5f…0e8c at0012 = ╱45╱E╱ // 0xe71 @0x12
0x0e5f…0e8c at0013 = ╱42╱B╱ // 0xe72 @0x13
0x0e5f…0e8c at0014 = ╱4e╱N╱ // 0xe73 @0x14
0x0e5f…0e8c at0015 = ╱41╱A╱ // 0xe74 @0x15
0x0e5f…0e8c at0016 = ╱56╱V╱ // 0xe75 @0x16
0x0e5f…0e8c at0017 = ╱4e╱N╱ // 0xe76 @0x17
0x0e5f…0e8c at0018 = ╱ef╱ $ ╱ // 0xe77 @0x18
0x0e5f…0e8c at0019 = ╱ec╱ , ╱ // 0xe78 @0x19
0x0e5f…0e8c at001a = ╱44╱D╱ // 0xe79 @0x1a
0x0e5f…0e8c at001b = ╱53╱S╱ // 0xe7a @0x1b
0x0e5f…0e8c at001c = ╱41╱A╱ // 0xe7b @0x1c
0x0e5f…0e8c at001d = ╱4c╱L╱ // 0xe7c @0x1d
0x0e5f…0e8c at001e = ╱44╱D╱ // 0xe7d @0x1e
0x0e5f…0e8c at001f = ╱4f╱O╱ // 0xe7e @0x1f
0x0e5f…0e8c at0020 = ╱31╱1╱ // 0xe7f @0x20
0x0e5f…0e8c at0021 = ╱4d╱M╱ // 0xe80 @0x21
0x0e5f…0e8c at0022 = ╱4d╱M╱ // 0xe81 @0x22
0x0e5f…0e8c at0023 = ╱ef╱ $ ╱ // 0xe82 @0x23
0x0e5f…0e8c at0024 = ╱ec╱ , ╱ // 0xe83 @0x24
0x0e5f…0e8c at0025 = ╱44╱D╱ // 0xe84 @0x25
0x0e5f…0e8c at0026 = ╱45╱E╱ // 0xe85 @0x26
0x0e5f…0e8c at0027 = ╱42╱B╱ // 0xe86 @0x27
0x0e5f…0e8c at0028 = ╱4b╱K╱ // 0xe87 @0x28
0x0e5f…0e8c at0029 = ╱47╱G╱ // 0xe88 @0x29
0x0e5f…0e8c at002a = ╱52╱R╱ // 0xe89 @0x2a
0x0e5f…0e8c at002b = ╱ef╱ $ ╱ // 0xe8a @0x2b
0x0e5f…0e8c at002c = EOL // 0xe8b @0x2c
0x0e5f…0e8c }
0x0e8c…0ea9 9597 1180 EXEC FEJL ( 8 , 2 , K3 $ )
0x0e8c…0ea9 LineComalBcd {
0x0e8c…0ea9 ptr = 0x9597 // 0xe8c @0x0
0x0e8c…0ea9 lno = 0x1180 // 0xe8e @0x2
0x0e8c…0ea9 at0004 = ╱9d╱ EXEC ╱ // 0xe90 @0x4
0x0e8c…0ea9 at0005 = ╱46╱F╱ // 0xe91 @0x5
0x0e8c…0ea9 at0006 = ╱45╱E╱ // 0xe92 @0x6
0x0e8c…0ea9 at0007 = ╱4a╱J╱ // 0xe93 @0x7
0x0e8c…0ea9 at0008 = ╱4c╱L╱ // 0xe94 @0x8
0x0e8c…0ea9 at0009 = ╱ed╱ ( ╱ // 0xe95 @0x9
0x0e8c…0ea9 at000a = ╱38╱8╱ // 0xe96 @0xa
0x0e8c…0ea9 at000b = ╱fe00008004╱ // 0xe97 @0xb
0x0e8c…0ea9 at0010 = ╱ec╱ , ╱ // 0xe9c @0x10
0x0e8c…0ea9 at0011 = ╱32╱2╱ // 0xe9d @0x11
0x0e8c…0ea9 at0012 = ╱fe00008002╱ // 0xe9e @0x12
0x0e8c…0ea9 at0017 = ╱ec╱ , ╱ // 0xea3 @0x17
0x0e8c…0ea9 at0018 = ╱4b╱K╱ // 0xea4 @0x18
0x0e8c…0ea9 at0019 = ╱33╱3╱ // 0xea5 @0x19
0x0e8c…0ea9 at001a = ╱ef╱ $ ╱ // 0xea6 @0x1a
0x0e8c…0ea9 at001b = ╱ee╱ ) ╱ // 0xea7 @0x1b
0x0e8c…0ea9 at001c = EOL // 0xea8 @0x1c
0x0e8c…0ea9 }
0x0ea9…0ec9 95b7 1190 IF DEBNR >< DTAB ( DPIL3 , 1 ) THEN STOP
0x0ea9…0ec9 LineComalBcd {
0x0ea9…0ec9 ptr = 0x95b7 // 0xea9 @0x0
0x0ea9…0ec9 lno = 0x1190 // 0xeab @0x2
0x0ea9…0ec9 at0004 = ╱82╱ IF ╱ // 0xead @0x4
0x0ea9…0ec9 at0005 = ╱44╱D╱ // 0xeae @0x5
0x0ea9…0ec9 at0006 = ╱45╱E╱ // 0xeaf @0x6
0x0ea9…0ec9 at0007 = ╱42╱B╱ // 0xeb0 @0x7
0x0ea9…0ec9 at0008 = ╱4e╱N╱ // 0xeb1 @0x8
0x0ea9…0ec9 at0009 = ╱52╱R╱ // 0xeb2 @0x9
0x0ea9…0ec9 at000a = ╱e1╱ >< ╱ // 0xeb3 @0xa
0x0ea9…0ec9 at000b = ╱44╱D╱ // 0xeb4 @0xb
0x0ea9…0ec9 at000c = ╱54╱T╱ // 0xeb5 @0xc
0x0ea9…0ec9 at000d = ╱41╱A╱ // 0xeb6 @0xd
0x0ea9…0ec9 at000e = ╱42╱B╱ // 0xeb7 @0xe
0x0ea9…0ec9 at000f = ╱ed╱ ( ╱ // 0xeb8 @0xf
0x0ea9…0ec9 at0010 = ╱44╱D╱ // 0xeb9 @0x10
0x0ea9…0ec9 at0011 = ╱50╱P╱ // 0xeba @0x11
0x0ea9…0ec9 at0012 = ╱49╱I╱ // 0xebb @0x12
0x0ea9…0ec9 at0013 = ╱4c╱L╱ // 0xebc @0x13
0x0ea9…0ec9 at0014 = ╱33╱3╱ // 0xebd @0x14
0x0ea9…0ec9 at0015 = ╱ec╱ , ╱ // 0xebe @0x15
0x0ea9…0ec9 at0016 = ╱31╱1╱ // 0xebf @0x16
0x0ea9…0ec9 at0017 = ╱fe00008001╱ // 0xec0 @0x17
0x0ea9…0ec9 at001c = ╱ee╱ ) ╱ // 0xec5 @0x1c
0x0ea9…0ec9 at001d = ╱b6╱ THEN ╱ // 0xec6 @0x1d
0x0ea9…0ec9 at001e = ╱8d╱ STOP ╱ // 0xec7 @0x1e
0x0ea9…0ec9 at001f = EOL // 0xec8 @0x1f
0x0ea9…0ec9 }
0x0ec9…0f09 95f5 1200 GET KMM3 $ , S + 1 : DSALDO2 $ , DSALDO3 $ , DSALDO4 $ , DEBPOSTNR , DEBLK $
0x0ec9…0f09 LineComalBcd {
0x0ec9…0f09 ptr = 0x95f5 // 0xec9 @0x0
0x0ec9…0f09 lno = 0x1200 // 0xecb @0x2
0x0ec9…0f09 at0004 = ╱a9╱ GET ╱ // 0xecd @0x4
0x0ec9…0f09 at0005 = ╱4b╱K╱ // 0xece @0x5
0x0ec9…0f09 at0006 = ╱4d╱M╱ // 0xecf @0x6
0x0ec9…0f09 at0007 = ╱4d╱M╱ // 0xed0 @0x7
0x0ec9…0f09 at0008 = ╱33╱3╱ // 0xed1 @0x8
0x0ec9…0f09 at0009 = ╱ef╱ $ ╱ // 0xed2 @0x9
0x0ec9…0f09 at000a = ╱ec╱ , ╱ // 0xed3 @0xa
0x0ec9…0f09 at000b = ╱53╱S╱ // 0xed4 @0xb
0x0ec9…0f09 at000c = ╱e2╱ + ╱ // 0xed5 @0xc
0x0ec9…0f09 at000d = ╱31╱1╱ // 0xed6 @0xd
0x0ec9…0f09 at000e = ╱fe00008001╱ // 0xed7 @0xe
0x0ec9…0f09 at0013 = ╱f0╱ : ╱ // 0xedc @0x13
0x0ec9…0f09 at0014 = ╱44╱D╱ // 0xedd @0x14
0x0ec9…0f09 at0015 = ╱53╱S╱ // 0xede @0x15
0x0ec9…0f09 at0016 = ╱41╱A╱ // 0xedf @0x16
0x0ec9…0f09 at0017 = ╱4c╱L╱ // 0xee0 @0x17
0x0ec9…0f09 at0018 = ╱44╱D╱ // 0xee1 @0x18
0x0ec9…0f09 at0019 = ╱4f╱O╱ // 0xee2 @0x19
0x0ec9…0f09 at001a = ╱32╱2╱ // 0xee3 @0x1a
0x0ec9…0f09 at001b = ╱ef╱ $ ╱ // 0xee4 @0x1b
0x0ec9…0f09 at001c = ╱ec╱ , ╱ // 0xee5 @0x1c
0x0ec9…0f09 at001d = ╱44╱D╱ // 0xee6 @0x1d
0x0ec9…0f09 at001e = ╱53╱S╱ // 0xee7 @0x1e
0x0ec9…0f09 at001f = ╱41╱A╱ // 0xee8 @0x1f
0x0ec9…0f09 at0020 = ╱4c╱L╱ // 0xee9 @0x20
0x0ec9…0f09 at0021 = ╱44╱D╱ // 0xeea @0x21
0x0ec9…0f09 at0022 = ╱4f╱O╱ // 0xeeb @0x22
0x0ec9…0f09 at0023 = ╱33╱3╱ // 0xeec @0x23
0x0ec9…0f09 at0024 = ╱ef╱ $ ╱ // 0xeed @0x24
0x0ec9…0f09 at0025 = ╱ec╱ , ╱ // 0xeee @0x25
0x0ec9…0f09 at0026 = ╱44╱D╱ // 0xeef @0x26
0x0ec9…0f09 at0027 = ╱53╱S╱ // 0xef0 @0x27
0x0ec9…0f09 at0028 = ╱41╱A╱ // 0xef1 @0x28
0x0ec9…0f09 at0029 = ╱4c╱L╱ // 0xef2 @0x29
0x0ec9…0f09 at002a = ╱44╱D╱ // 0xef3 @0x2a
0x0ec9…0f09 at002b = ╱4f╱O╱ // 0xef4 @0x2b
0x0ec9…0f09 at002c = ╱34╱4╱ // 0xef5 @0x2c
0x0ec9…0f09 at002d = ╱ef╱ $ ╱ // 0xef6 @0x2d
0x0ec9…0f09 at002e = ╱ec╱ , ╱ // 0xef7 @0x2e
0x0ec9…0f09 at002f = ╱44╱D╱ // 0xef8 @0x2f
0x0ec9…0f09 at0030 = ╱45╱E╱ // 0xef9 @0x30
0x0ec9…0f09 at0031 = ╱42╱B╱ // 0xefa @0x31
0x0ec9…0f09 at0032 = ╱50╱P╱ // 0xefb @0x32
0x0ec9…0f09 at0033 = ╱4f╱O╱ // 0xefc @0x33
0x0ec9…0f09 at0034 = ╱53╱S╱ // 0xefd @0x34
0x0ec9…0f09 at0035 = ╱54╱T╱ // 0xefe @0x35
0x0ec9…0f09 at0036 = ╱4e╱N╱ // 0xeff @0x36
0x0ec9…0f09 at0037 = ╱52╱R╱ // 0xf00 @0x37
0x0ec9…0f09 at0038 = ╱ec╱ , ╱ // 0xf01 @0x38
0x0ec9…0f09 at0039 = ╱44╱D╱ // 0xf02 @0x39
0x0ec9…0f09 at003a = ╱45╱E╱ // 0xf03 @0x3a
0x0ec9…0f09 at003b = ╱42╱B╱ // 0xf04 @0x3b
0x0ec9…0f09 at003c = ╱4c╱L╱ // 0xf05 @0x3c
0x0ec9…0f09 at003d = ╱4b╱K╱ // 0xf06 @0x3d
0x0ec9…0f09 at003e = ╱ef╱ $ ╱ // 0xf07 @0x3e
0x0ec9…0f09 at003f = EOL // 0xf08 @0x3f
0x0ec9…0f09 }
0x0f09…0f28 9612 1210 EXEC FEJL ( 8 , 3 TAN ╱02╱ , K3 $ )
0x0f09…0f28 LineComalBcd {
0x0f09…0f28 ptr = 0x9612 // 0xf09 @0x0
0x0f09…0f28 lno = 0x1210 // 0xf0b @0x2
0x0f09…0f28 at0004 = ╱9d╱ EXEC ╱ // 0xf0d @0x4
0x0f09…0f28 at0005 = ╱46╱F╱ // 0xf0e @0x5
0x0f09…0f28 at0006 = ╱45╱E╱ // 0xf0f @0x6
0x0f09…0f28 at0007 = ╱4a╱J╱ // 0xf10 @0x7
0x0f09…0f28 at0008 = ╱4c╱L╱ // 0xf11 @0x8
0x0f09…0f28 at0009 = ╱ed╱ ( ╱ // 0xf12 @0x9
0x0f09…0f28 at000a = ╱38╱8╱ // 0xf13 @0xa
0x0f09…0f28 at000b = ╱fe00008004╱ // 0xf14 @0xb
0x0f09…0f28 at0010 = ╱ec╱ , ╱ // 0xf19 @0x10
0x0f09…0f28 at0011 = ╱33╱3╱ // 0xf1a @0x11
0x0f09…0f28 at0012 = ╱fe00004d4d╱ // 0xf1b @0x12
0x0f09…0f28 at0017 = ╱c0╱ TAN ╱ // 0xf20 @0x17
0x0f09…0f28 at0018 = ╱02╱ // 0xf21 @0x18
0x0f09…0f28 at0019 = ╱ec╱ , ╱ // 0xf22 @0x19
0x0f09…0f28 at001a = ╱4b╱K╱ // 0xf23 @0x1a
0x0f09…0f28 at001b = ╱33╱3╱ // 0xf24 @0x1b
0x0f09…0f28 at001c = ╱ef╱ $ ╱ // 0xf25 @0x1c
0x0f09…0f28 at001d = ╱ee╱ ) ╱ // 0xf26 @0x1d
0x0f09…0f28 at001e = EOL // 0xf27 @0x1e
0x0f09…0f28 }
0x0f28…0f58 9642 1220 GET K3 $ , S + 2 : DEBGADE $ , DEBTLF $ , HPOST , HKUNDE
0x0f28…0f58 LineComalBcd {
0x0f28…0f58 ptr = 0x9642 // 0xf28 @0x0
0x0f28…0f58 lno = 0x1220 // 0xf2a @0x2
0x0f28…0f58 at0004 = ╱a9╱ GET ╱ // 0xf2c @0x4
0x0f28…0f58 at0005 = ╱4b╱K╱ // 0xf2d @0x5
0x0f28…0f58 at0006 = ╱33╱3╱ // 0xf2e @0x6
0x0f28…0f58 at0007 = ╱ef╱ $ ╱ // 0xf2f @0x7
0x0f28…0f58 at0008 = ╱ec╱ , ╱ // 0xf30 @0x8
0x0f28…0f58 at0009 = ╱53╱S╱ // 0xf31 @0x9
0x0f28…0f58 at000a = ╱e2╱ + ╱ // 0xf32 @0xa
0x0f28…0f58 at000b = ╱32╱2╱ // 0xf33 @0xb
0x0f28…0f58 at000c = ╱fe00008002╱ // 0xf34 @0xc
0x0f28…0f58 at0011 = ╱f0╱ : ╱ // 0xf39 @0x11
0x0f28…0f58 at0012 = ╱44╱D╱ // 0xf3a @0x12
0x0f28…0f58 at0013 = ╱45╱E╱ // 0xf3b @0x13
0x0f28…0f58 at0014 = ╱42╱B╱ // 0xf3c @0x14
0x0f28…0f58 at0015 = ╱47╱G╱ // 0xf3d @0x15
0x0f28…0f58 at0016 = ╱41╱A╱ // 0xf3e @0x16
0x0f28…0f58 at0017 = ╱44╱D╱ // 0xf3f @0x17
0x0f28…0f58 at0018 = ╱45╱E╱ // 0xf40 @0x18
0x0f28…0f58 at0019 = ╱ef╱ $ ╱ // 0xf41 @0x19
0x0f28…0f58 at001a = ╱ec╱ , ╱ // 0xf42 @0x1a
0x0f28…0f58 at001b = ╱44╱D╱ // 0xf43 @0x1b
0x0f28…0f58 at001c = ╱45╱E╱ // 0xf44 @0x1c
0x0f28…0f58 at001d = ╱42╱B╱ // 0xf45 @0x1d
0x0f28…0f58 at001e = ╱54╱T╱ // 0xf46 @0x1e
0x0f28…0f58 at001f = ╱4c╱L╱ // 0xf47 @0x1f
0x0f28…0f58 at0020 = ╱46╱F╱ // 0xf48 @0x20
0x0f28…0f58 at0021 = ╱ef╱ $ ╱ // 0xf49 @0x21
0x0f28…0f58 at0022 = ╱ec╱ , ╱ // 0xf4a @0x22
0x0f28…0f58 at0023 = ╱48╱H╱ // 0xf4b @0x23
0x0f28…0f58 at0024 = ╱50╱P╱ // 0xf4c @0x24
0x0f28…0f58 at0025 = ╱4f╱O╱ // 0xf4d @0x25
0x0f28…0f58 at0026 = ╱53╱S╱ // 0xf4e @0x26
0x0f28…0f58 at0027 = ╱54╱T╱ // 0xf4f @0x27
0x0f28…0f58 at0028 = ╱ec╱ , ╱ // 0xf50 @0x28
0x0f28…0f58 at0029 = ╱48╱H╱ // 0xf51 @0x29
0x0f28…0f58 at002a = ╱4b╱K╱ // 0xf52 @0x2a
0x0f28…0f58 at002b = ╱55╱U╱ // 0xf53 @0x2b
0x0f28…0f58 at002c = ╱4e╱N╱ // 0xf54 @0x2c
0x0f28…0f58 at002d = ╱44╱D╱ // 0xf55 @0x2d
0x0f28…0f58 at002e = ╱45╱E╱ // 0xf56 @0x2e
0x0f28…0f58 at002f = EOL // 0xf57 @0x2f
0x0f28…0f58 }
0x0f58…0f77 965f 1230 EXEC FEJL ( 8 , 4 ╱80╱ ╱03╱ , K3 $ )
0x0f58…0f77 LineComalBcd {
0x0f58…0f77 ptr = 0x965f // 0xf58 @0x0
0x0f58…0f77 lno = 0x1230 // 0xf5a @0x2
0x0f58…0f77 at0004 = ╱9d╱ EXEC ╱ // 0xf5c @0x4
0x0f58…0f77 at0005 = ╱46╱F╱ // 0xf5d @0x5
0x0f58…0f77 at0006 = ╱45╱E╱ // 0xf5e @0x6
0x0f58…0f77 at0007 = ╱4a╱J╱ // 0xf5f @0x7
0x0f58…0f77 at0008 = ╱4c╱L╱ // 0xf60 @0x8
0x0f58…0f77 at0009 = ╱ed╱ ( ╱ // 0xf61 @0x9
0x0f58…0f77 at000a = ╱38╱8╱ // 0xf62 @0xa
0x0f58…0f77 at000b = ╱fe00008004╱ // 0xf63 @0xb
0x0f58…0f77 at0010 = ╱ec╱ , ╱ // 0xf68 @0x10
0x0f58…0f77 at0011 = ╱34╱4╱ // 0xf69 @0x11
0x0f58…0f77 at0012 = ╱fe00004d4d╱ // 0xf6a @0x12
0x0f58…0f77 at0017 = ╱80╱ // 0xf6f @0x17
0x0f58…0f77 at0018 = ╱03╱ // 0xf70 @0x18
0x0f58…0f77 at0019 = ╱ec╱ , ╱ // 0xf71 @0x19
0x0f58…0f77 at001a = ╱4b╱K╱ // 0xf72 @0x1a
0x0f58…0f77 at001b = ╱33╱3╱ // 0xf73 @0x1b
0x0f58…0f77 at001c = ╱ef╱ $ ╱ // 0xf74 @0x1c
0x0f58…0f77 at001d = ╱ee╱ ) ╱ // 0xf75 @0x1d
0x0f58…0f77 at001e = EOL // 0xf76 @0x1e
0x0f58…0f77 }
0x0f77…0f9f 9687 1240 GET K3 $ , S + 3 : DEBBY $ , ]RK\B $ , MDNK\B $
0x0f77…0f9f LineComalBcd {
0x0f77…0f9f ptr = 0x9687 // 0xf77 @0x0
0x0f77…0f9f lno = 0x1240 // 0xf79 @0x2
0x0f77…0f9f at0004 = ╱a9╱ GET ╱ // 0xf7b @0x4
0x0f77…0f9f at0005 = ╱4b╱K╱ // 0xf7c @0x5
0x0f77…0f9f at0006 = ╱33╱3╱ // 0xf7d @0x6
0x0f77…0f9f at0007 = ╱ef╱ $ ╱ // 0xf7e @0x7
0x0f77…0f9f at0008 = ╱ec╱ , ╱ // 0xf7f @0x8
0x0f77…0f9f at0009 = ╱53╱S╱ // 0xf80 @0x9
0x0f77…0f9f at000a = ╱e2╱ + ╱ // 0xf81 @0xa
0x0f77…0f9f at000b = ╱33╱3╱ // 0xf82 @0xb
0x0f77…0f9f at000c = ╱fe0000c002╱ // 0xf83 @0xc
0x0f77…0f9f at0011 = ╱f0╱ : ╱ // 0xf88 @0x11
0x0f77…0f9f at0012 = ╱44╱D╱ // 0xf89 @0x12
0x0f77…0f9f at0013 = ╱45╱E╱ // 0xf8a @0x13
0x0f77…0f9f at0014 = ╱42╱B╱ // 0xf8b @0x14
0x0f77…0f9f at0015 = ╱42╱B╱ // 0xf8c @0x15
0x0f77…0f9f at0016 = ╱59╱Y╱ // 0xf8d @0x16
0x0f77…0f9f at0017 = ╱ef╱ $ ╱ // 0xf8e @0x17
0x0f77…0f9f at0018 = ╱ec╱ , ╱ // 0xf8f @0x18
0x0f77…0f9f at0019 = ╱5d╱]╱ // 0xf90 @0x19
0x0f77…0f9f at001a = ╱52╱R╱ // 0xf91 @0x1a
0x0f77…0f9f at001b = ╱4b╱K╱ // 0xf92 @0x1b
0x0f77…0f9f at001c = ╱5c╱\╱ // 0xf93 @0x1c
0x0f77…0f9f at001d = ╱42╱B╱ // 0xf94 @0x1d
0x0f77…0f9f at001e = ╱ef╱ $ ╱ // 0xf95 @0x1e
0x0f77…0f9f at001f = ╱ec╱ , ╱ // 0xf96 @0x1f
0x0f77…0f9f at0020 = ╱4d╱M╱ // 0xf97 @0x20
0x0f77…0f9f at0021 = ╱44╱D╱ // 0xf98 @0x21
0x0f77…0f9f at0022 = ╱4e╱N╱ // 0xf99 @0x22
0x0f77…0f9f at0023 = ╱4b╱K╱ // 0xf9a @0x23
0x0f77…0f9f at0024 = ╱5c╱\╱ // 0xf9b @0x24
0x0f77…0f9f at0025 = ╱42╱B╱ // 0xf9c @0x25
0x0f77…0f9f at0026 = ╱ef╱ $ ╱ // 0xf9d @0x26
0x0f77…0f9f at0027 = EOL // 0xf9e @0x27
0x0f77…0f9f }
0x0f9f…0fbc 96a4 1250 EXEC FEJL ( 8 , 5 , K3 $ )
0x0f9f…0fbc LineComalBcd {
0x0f9f…0fbc ptr = 0x96a4 // 0xf9f @0x0
0x0f9f…0fbc lno = 0x1250 // 0xfa1 @0x2
0x0f9f…0fbc at0004 = ╱9d╱ EXEC ╱ // 0xfa3 @0x4
0x0f9f…0fbc at0005 = ╱46╱F╱ // 0xfa4 @0x5
0x0f9f…0fbc at0006 = ╱45╱E╱ // 0xfa5 @0x6
0x0f9f…0fbc at0007 = ╱4a╱J╱ // 0xfa6 @0x7
0x0f9f…0fbc at0008 = ╱4c╱L╱ // 0xfa7 @0x8
0x0f9f…0fbc at0009 = ╱ed╱ ( ╱ // 0xfa8 @0x9
0x0f9f…0fbc at000a = ╱38╱8╱ // 0xfa9 @0xa
0x0f9f…0fbc at000b = ╱fe00008004╱ // 0xfaa @0xb
0x0f9f…0fbc at0010 = ╱ec╱ , ╱ // 0xfaf @0x10
0x0f9f…0fbc at0011 = ╱35╱5╱ // 0xfb0 @0x11
0x0f9f…0fbc at0012 = ╱fe0000a003╱ // 0xfb1 @0x12
0x0f9f…0fbc at0017 = ╱ec╱ , ╱ // 0xfb6 @0x17
0x0f9f…0fbc at0018 = ╱4b╱K╱ // 0xfb7 @0x18
0x0f9f…0fbc at0019 = ╱33╱3╱ // 0xfb8 @0x19
0x0f9f…0fbc at001a = ╱ef╱ $ ╱ // 0xfb9 @0x1a
0x0f9f…0fbc at001b = ╱ee╱ ) ╱ // 0xfba @0x1b
0x0f9f…0fbc at001c = EOL // 0xfbb @0x1c
0x0f9f…0fbc }
0x0fbc…0fc4 4d4d aa96 ╱12╱ ` ENDPROC
0x0fbc…0fc4 LineComalBcd {
0x0fbc…0fc4 ptr = 0x4d4d // 0xfbc @0x0
0x0fbc…0fc4 lno = 0xaa96 // 0xfbe @0x2
0x0fbc…0fc4 at0004 = ╱12╱ // 0xfc0 @0x4
0x0fbc…0fc4 at0005 = ╱60╱`╱ // 0xfc1 @0x5
0x0fbc…0fc4 at0006 = ╱9f╱ ENDPROC ╱ // 0xfc2 @0x6
0x0fbc…0fc4 at0007 = EOL // 0xfc3 @0x7
0x0fbc…0fc4 }
0x0fc4…0fd2 96b8 1270 PROC GEMDPOST
0x0fc4…0fd2 LineComalBcd {
0x0fc4…0fd2 ptr = 0x96b8 // 0xfc4 @0x0
0x0fc4…0fd2 lno = 0x1270 // 0xfc6 @0x2
0x0fc4…0fd2 at0004 = ╱9e╱ PROC ╱ // 0xfc8 @0x4
0x0fc4…0fd2 at0005 = ╱47╱G╱ // 0xfc9 @0x5
0x0fc4…0fd2 at0006 = ╱45╱E╱ // 0xfca @0x6
0x0fc4…0fd2 at0007 = ╱4d╱M╱ // 0xfcb @0x7
0x0fc4…0fd2 at0008 = ╱44╱D╱ // 0xfcc @0x8
0x0fc4…0fd2 at0009 = ╱50╱P╱ // 0xfcd @0x9
0x0fc4…0fd2 at000a = ╱4f╱O╱ // 0xfce @0xa
0x0fc4…0fd2 at000b = ╱53╱S╱ // 0xfcf @0xb
0x0fc4…0fd2 at000c = ╱54╱T╱ // 0xfd0 @0xc
0x0fc4…0fd2 at000d = EOL // 0xfd1 @0xd
0x0fc4…0fd2 }
0x0fd2…0feb 96d1 1280 S = DTAB ( DPIL3 , 2 )
0x0fd2…0feb LineComalBcd {
0x0fd2…0feb ptr = 0x96d1 // 0xfd2 @0x0
0x0fd2…0feb lno = 0x1280 // 0xfd4 @0x2
0x0fd2…0feb at0004 = ╱53╱S╱ // 0xfd6 @0x4
0x0fd2…0feb at0005 = ╱dc╱ = ╱ // 0xfd7 @0x5
0x0fd2…0feb at0006 = ╱44╱D╱ // 0xfd8 @0x6
0x0fd2…0feb at0007 = ╱54╱T╱ // 0xfd9 @0x7
0x0fd2…0feb at0008 = ╱41╱A╱ // 0xfda @0x8
0x0fd2…0feb at0009 = ╱42╱B╱ // 0xfdb @0x9
0x0fd2…0feb at000a = ╱ed╱ ( ╱ // 0xfdc @0xa
0x0fd2…0feb at000b = ╱44╱D╱ // 0xfdd @0xb
0x0fd2…0feb at000c = ╱50╱P╱ // 0xfde @0xc
0x0fd2…0feb at000d = ╱49╱I╱ // 0xfdf @0xd
0x0fd2…0feb at000e = ╱4c╱L╱ // 0xfe0 @0xe
0x0fd2…0feb at000f = ╱33╱3╱ // 0xfe1 @0xf
0x0fd2…0feb at0010 = ╱ec╱ , ╱ // 0xfe2 @0x10
0x0fd2…0feb at0011 = ╱32╱2╱ // 0xfe3 @0x11
0x0fd2…0feb at0012 = ╱fe00008002╱ // 0xfe4 @0x12
0x0fd2…0feb at0017 = ╱ee╱ ) ╱ // 0xfe9 @0x17
0x0fd2…0feb at0018 = EOL // 0xfea @0x18
0x0fd2…0feb }
0x0feb…1018 96fc 1290 PUT K3 $ , S : DEBNR , DEBNAVN $ , DSALDOMM1 $ , DEBKGR $
0x0feb…1018 LineComalBcd {
0x0feb…1018 ptr = 0x96fc // 0xfeb @0x0
0x0feb…1018 lno = 0x1290 // 0xfed @0x2
0x0feb…1018 at0004 = ╱aa╱ PUT ╱ // 0xfef @0x4
0x0feb…1018 at0005 = ╱4b╱K╱ // 0xff0 @0x5
0x0feb…1018 at0006 = ╱33╱3╱ // 0xff1 @0x6
0x0feb…1018 at0007 = ╱ef╱ $ ╱ // 0xff2 @0x7
0x0feb…1018 at0008 = ╱ec╱ , ╱ // 0xff3 @0x8
0x0feb…1018 at0009 = ╱53╱S╱ // 0xff4 @0x9
0x0feb…1018 at000a = ╱f0╱ : ╱ // 0xff5 @0xa
0x0feb…1018 at000b = ╱44╱D╱ // 0xff6 @0xb
0x0feb…1018 at000c = ╱45╱E╱ // 0xff7 @0xc
0x0feb…1018 at000d = ╱42╱B╱ // 0xff8 @0xd
0x0feb…1018 at000e = ╱4e╱N╱ // 0xff9 @0xe
0x0feb…1018 at000f = ╱52╱R╱ // 0xffa @0xf
0x0feb…1018 at0010 = ╱ec╱ , ╱ // 0xffb @0x10
0x0feb…1018 at0011 = ╱44╱D╱ // 0xffc @0x11
0x0feb…1018 at0012 = ╱45╱E╱ // 0xffd @0x12
0x0feb…1018 at0013 = ╱42╱B╱ // 0xffe @0x13
0x0feb…1018 at0014 = ╱4e╱N╱ // 0xfff @0x14
0x0feb…1018 at0015 = ╱41╱A╱ // 0x1000 @0x15
0x0feb…1018 at0016 = ╱56╱V╱ // 0x1001 @0x16
0x0feb…1018 at0017 = ╱4e╱N╱ // 0x1002 @0x17
0x0feb…1018 at0018 = ╱ef╱ $ ╱ // 0x1003 @0x18
0x0feb…1018 at0019 = ╱ec╱ , ╱ // 0x1004 @0x19
0x0feb…1018 at001a = ╱44╱D╱ // 0x1005 @0x1a
0x0feb…1018 at001b = ╱53╱S╱ // 0x1006 @0x1b
0x0feb…1018 at001c = ╱41╱A╱ // 0x1007 @0x1c
0x0feb…1018 at001d = ╱4c╱L╱ // 0x1008 @0x1d
0x0feb…1018 at001e = ╱44╱D╱ // 0x1009 @0x1e
0x0feb…1018 at001f = ╱4f╱O╱ // 0x100a @0x1f
0x0feb…1018 at0020 = ╱4d╱M╱ // 0x100b @0x20
0x0feb…1018 at0021 = ╱4d╱M╱ // 0x100c @0x21
0x0feb…1018 at0022 = ╱31╱1╱ // 0x100d @0x22
0x0feb…1018 at0023 = ╱ef╱ $ ╱ // 0x100e @0x23
0x0feb…1018 at0024 = ╱ec╱ , ╱ // 0x100f @0x24
0x0feb…1018 at0025 = ╱44╱D╱ // 0x1010 @0x25
0x0feb…1018 at0026 = ╱45╱E╱ // 0x1011 @0x26
0x0feb…1018 at0027 = ╱42╱B╱ // 0x1012 @0x27
0x0feb…1018 at0028 = ╱4b╱K╱ // 0x1013 @0x28
0x0feb…1018 at0029 = ╱47╱G╱ // 0x1014 @0x29
0x0feb…1018 at002a = ╱52╱R╱ // 0x1015 @0x2a
0x0feb…1018 at002b = ╱ef╱ $ ╱ // 0x1016 @0x2b
0x0feb…1018 at002c = EOL // 0x1017 @0x2c
0x0feb…1018 }
0x1018…1035 9719 1300 EXEC FEJL ( 9 , 3 , K3 $ )
0x1018…1035 LineComalBcd {
0x1018…1035 ptr = 0x9719 // 0x1018 @0x0
0x1018…1035 lno = 0x1300 // 0x101a @0x2
0x1018…1035 at0004 = ╱9d╱ EXEC ╱ // 0x101c @0x4
0x1018…1035 at0005 = ╱46╱F╱ // 0x101d @0x5
0x1018…1035 at0006 = ╱45╱E╱ // 0x101e @0x6
0x1018…1035 at0007 = ╱4a╱J╱ // 0x101f @0x7
0x1018…1035 at0008 = ╱4c╱L╱ // 0x1020 @0x8
0x1018…1035 at0009 = ╱ed╱ ( ╱ // 0x1021 @0x9
0x1018…1035 at000a = ╱39╱9╱ // 0x1022 @0xa
0x1018…1035 at000b = ╱fe00009004╱ // 0x1023 @0xb
0x1018…1035 at0010 = ╱ec╱ , ╱ // 0x1028 @0x10
0x1018…1035 at0011 = ╱33╱3╱ // 0x1029 @0x11
0x1018…1035 at0012 = ╱fe0000c002╱ // 0x102a @0x12
0x1018…1035 at0017 = ╱ec╱ , ╱ // 0x102f @0x17
0x1018…1035 at0018 = ╱4b╱K╱ // 0x1030 @0x18
0x1018…1035 at0019 = ╱33╱3╱ // 0x1031 @0x19
0x1018…1035 at001a = ╱ef╱ $ ╱ // 0x1032 @0x1a
0x1018…1035 at001b = ╱ee╱ ) ╱ // 0x1033 @0x1b
0x1018…1035 at001c = EOL // 0x1034 @0x1c
0x1018…1035 }
0x1035…1075 9757 1310 PUT K3 $ , S + 1 : DSALDO2 $ , DSALDO3 $ , DMMSALDO4 $ , DEBPOSTNR , DEBLK $
0x1035…1075 LineComalBcd {
0x1035…1075 ptr = 0x9757 // 0x1035 @0x0
0x1035…1075 lno = 0x1310 // 0x1037 @0x2
0x1035…1075 at0004 = ╱aa╱ PUT ╱ // 0x1039 @0x4
0x1035…1075 at0005 = ╱4b╱K╱ // 0x103a @0x5
0x1035…1075 at0006 = ╱33╱3╱ // 0x103b @0x6
0x1035…1075 at0007 = ╱ef╱ $ ╱ // 0x103c @0x7
0x1035…1075 at0008 = ╱ec╱ , ╱ // 0x103d @0x8
0x1035…1075 at0009 = ╱53╱S╱ // 0x103e @0x9
0x1035…1075 at000a = ╱e2╱ + ╱ // 0x103f @0xa
0x1035…1075 at000b = ╱31╱1╱ // 0x1040 @0xb
0x1035…1075 at000c = ╱fe00008001╱ // 0x1041 @0xc
0x1035…1075 at0011 = ╱f0╱ : ╱ // 0x1046 @0x11
0x1035…1075 at0012 = ╱44╱D╱ // 0x1047 @0x12
0x1035…1075 at0013 = ╱53╱S╱ // 0x1048 @0x13
0x1035…1075 at0014 = ╱41╱A╱ // 0x1049 @0x14
0x1035…1075 at0015 = ╱4c╱L╱ // 0x104a @0x15
0x1035…1075 at0016 = ╱44╱D╱ // 0x104b @0x16
0x1035…1075 at0017 = ╱4f╱O╱ // 0x104c @0x17
0x1035…1075 at0018 = ╱32╱2╱ // 0x104d @0x18
0x1035…1075 at0019 = ╱ef╱ $ ╱ // 0x104e @0x19
0x1035…1075 at001a = ╱ec╱ , ╱ // 0x104f @0x1a
0x1035…1075 at001b = ╱44╱D╱ // 0x1050 @0x1b
0x1035…1075 at001c = ╱53╱S╱ // 0x1051 @0x1c
0x1035…1075 at001d = ╱41╱A╱ // 0x1052 @0x1d
0x1035…1075 at001e = ╱4c╱L╱ // 0x1053 @0x1e
0x1035…1075 at001f = ╱44╱D╱ // 0x1054 @0x1f
0x1035…1075 at0020 = ╱4f╱O╱ // 0x1055 @0x20
0x1035…1075 at0021 = ╱33╱3╱ // 0x1056 @0x21
0x1035…1075 at0022 = ╱ef╱ $ ╱ // 0x1057 @0x22
0x1035…1075 at0023 = ╱ec╱ , ╱ // 0x1058 @0x23
0x1035…1075 at0024 = ╱44╱D╱ // 0x1059 @0x24
0x1035…1075 at0025 = ╱4d╱M╱ // 0x105a @0x25
0x1035…1075 at0026 = ╱4d╱M╱ // 0x105b @0x26
0x1035…1075 at0027 = ╱53╱S╱ // 0x105c @0x27
0x1035…1075 at0028 = ╱41╱A╱ // 0x105d @0x28
0x1035…1075 at0029 = ╱4c╱L╱ // 0x105e @0x29
0x1035…1075 at002a = ╱44╱D╱ // 0x105f @0x2a
0x1035…1075 at002b = ╱4f╱O╱ // 0x1060 @0x2b
0x1035…1075 at002c = ╱34╱4╱ // 0x1061 @0x2c
0x1035…1075 at002d = ╱ef╱ $ ╱ // 0x1062 @0x2d
0x1035…1075 at002e = ╱ec╱ , ╱ // 0x1063 @0x2e
0x1035…1075 at002f = ╱44╱D╱ // 0x1064 @0x2f
0x1035…1075 at0030 = ╱45╱E╱ // 0x1065 @0x30
0x1035…1075 at0031 = ╱42╱B╱ // 0x1066 @0x31
0x1035…1075 at0032 = ╱50╱P╱ // 0x1067 @0x32
0x1035…1075 at0033 = ╱4f╱O╱ // 0x1068 @0x33
0x1035…1075 at0034 = ╱53╱S╱ // 0x1069 @0x34
0x1035…1075 at0035 = ╱54╱T╱ // 0x106a @0x35
0x1035…1075 at0036 = ╱4e╱N╱ // 0x106b @0x36
0x1035…1075 at0037 = ╱52╱R╱ // 0x106c @0x37
0x1035…1075 at0038 = ╱ec╱ , ╱ // 0x106d @0x38
0x1035…1075 at0039 = ╱44╱D╱ // 0x106e @0x39
0x1035…1075 at003a = ╱45╱E╱ // 0x106f @0x3a
0x1035…1075 at003b = ╱42╱B╱ // 0x1070 @0x3b
0x1035…1075 at003c = ╱4c╱L╱ // 0x1071 @0x3c
0x1035…1075 at003d = ╱4b╱K╱ // 0x1072 @0x3d
0x1035…1075 at003e = ╱ef╱ $ ╱ // 0x1073 @0x3e
0x1035…1075 at003f = EOL // 0x1074 @0x3f
0x1035…1075 }
0x1075…1092 9774 1320 EXEC FEJL ( 9 , 4 , K3 $ )
0x1075…1092 LineComalBcd {
0x1075…1092 ptr = 0x9774 // 0x1075 @0x0
0x1075…1092 lno = 0x1320 // 0x1077 @0x2
0x1075…1092 at0004 = ╱9d╱ EXEC ╱ // 0x1079 @0x4
0x1075…1092 at0005 = ╱46╱F╱ // 0x107a @0x5
0x1075…1092 at0006 = ╱45╱E╱ // 0x107b @0x6
0x1075…1092 at0007 = ╱4a╱J╱ // 0x107c @0x7
0x1075…1092 at0008 = ╱4c╱L╱ // 0x107d @0x8
0x1075…1092 at0009 = ╱ed╱ ( ╱ // 0x107e @0x9
0x1075…1092 at000a = ╱39╱9╱ // 0x107f @0xa
0x1075…1092 at000b = ╱fe00009004╱ // 0x1080 @0xb
0x1075…1092 at0010 = ╱ec╱ , ╱ // 0x1085 @0x10
0x1075…1092 at0011 = ╱34╱4╱ // 0x1086 @0x11
0x1075…1092 at0012 = ╱fe00008003╱ // 0x1087 @0x12
0x1075…1092 at0017 = ╱ec╱ , ╱ // 0x108c @0x17
0x1075…1092 at0018 = ╱4b╱K╱ // 0x108d @0x18
0x1075…1092 at0019 = ╱33╱3╱ // 0x108e @0x19
0x1075…1092 at001a = ╱ef╱ $ ╱ // 0x108f @0x1a
0x1075…1092 at001b = ╱ee╱ ) ╱ // 0x1090 @0x1b
0x1075…1092 at001c = EOL // 0x1091 @0x1c
0x1075…1092 }
0x1092…10c4 97a4 1330 PUT K3 $ , S + 2 : DEBGAMMDE $ , DEBTLF $ , HPOST , HKUNDE
0x1092…10c4 LineComalBcd {
0x1092…10c4 ptr = 0x97a4 // 0x1092 @0x0
0x1092…10c4 lno = 0x1330 // 0x1094 @0x2
0x1092…10c4 at0004 = ╱aa╱ PUT ╱ // 0x1096 @0x4
0x1092…10c4 at0005 = ╱4b╱K╱ // 0x1097 @0x5
0x1092…10c4 at0006 = ╱33╱3╱ // 0x1098 @0x6
0x1092…10c4 at0007 = ╱ef╱ $ ╱ // 0x1099 @0x7
0x1092…10c4 at0008 = ╱ec╱ , ╱ // 0x109a @0x8
0x1092…10c4 at0009 = ╱53╱S╱ // 0x109b @0x9
0x1092…10c4 at000a = ╱e2╱ + ╱ // 0x109c @0xa
0x1092…10c4 at000b = ╱32╱2╱ // 0x109d @0xb
0x1092…10c4 at000c = ╱fe00008002╱ // 0x109e @0xc
0x1092…10c4 at0011 = ╱f0╱ : ╱ // 0x10a3 @0x11
0x1092…10c4 at0012 = ╱44╱D╱ // 0x10a4 @0x12
0x1092…10c4 at0013 = ╱45╱E╱ // 0x10a5 @0x13
0x1092…10c4 at0014 = ╱42╱B╱ // 0x10a6 @0x14
0x1092…10c4 at0015 = ╱47╱G╱ // 0x10a7 @0x15
0x1092…10c4 at0016 = ╱41╱A╱ // 0x10a8 @0x16
0x1092…10c4 at0017 = ╱4d╱M╱ // 0x10a9 @0x17
0x1092…10c4 at0018 = ╱4d╱M╱ // 0x10aa @0x18
0x1092…10c4 at0019 = ╱44╱D╱ // 0x10ab @0x19
0x1092…10c4 at001a = ╱45╱E╱ // 0x10ac @0x1a
0x1092…10c4 at001b = ╱ef╱ $ ╱ // 0x10ad @0x1b
0x1092…10c4 at001c = ╱ec╱ , ╱ // 0x10ae @0x1c
0x1092…10c4 at001d = ╱44╱D╱ // 0x10af @0x1d
0x1092…10c4 at001e = ╱45╱E╱ // 0x10b0 @0x1e
0x1092…10c4 at001f = ╱42╱B╱ // 0x10b1 @0x1f
0x1092…10c4 at0020 = ╱54╱T╱ // 0x10b2 @0x20
0x1092…10c4 at0021 = ╱4c╱L╱ // 0x10b3 @0x21
0x1092…10c4 at0022 = ╱46╱F╱ // 0x10b4 @0x22
0x1092…10c4 at0023 = ╱ef╱ $ ╱ // 0x10b5 @0x23
0x1092…10c4 at0024 = ╱ec╱ , ╱ // 0x10b6 @0x24
0x1092…10c4 at0025 = ╱48╱H╱ // 0x10b7 @0x25
0x1092…10c4 at0026 = ╱50╱P╱ // 0x10b8 @0x26
0x1092…10c4 at0027 = ╱4f╱O╱ // 0x10b9 @0x27
0x1092…10c4 at0028 = ╱53╱S╱ // 0x10ba @0x28
0x1092…10c4 at0029 = ╱54╱T╱ // 0x10bb @0x29
0x1092…10c4 at002a = ╱ec╱ , ╱ // 0x10bc @0x2a
0x1092…10c4 at002b = ╱48╱H╱ // 0x10bd @0x2b
0x1092…10c4 at002c = ╱4b╱K╱ // 0x10be @0x2c
0x1092…10c4 at002d = ╱55╱U╱ // 0x10bf @0x2d
0x1092…10c4 at002e = ╱4e╱N╱ // 0x10c0 @0x2e
0x1092…10c4 at002f = ╱44╱D╱ // 0x10c1 @0x2f
0x1092…10c4 at0030 = ╱45╱E╱ // 0x10c2 @0x30
0x1092…10c4 at0031 = EOL // 0x10c3 @0x31
0x1092…10c4 }
0x10c4…10e1 97c1 1340 EXEC FEJL ( 9 , 4 , K3 $ )
0x10c4…10e1 LineComalBcd {
0x10c4…10e1 ptr = 0x97c1 // 0x10c4 @0x0
0x10c4…10e1 lno = 0x1340 // 0x10c6 @0x2
0x10c4…10e1 at0004 = ╱9d╱ EXEC ╱ // 0x10c8 @0x4
0x10c4…10e1 at0005 = ╱46╱F╱ // 0x10c9 @0x5
0x10c4…10e1 at0006 = ╱45╱E╱ // 0x10ca @0x6
0x10c4…10e1 at0007 = ╱4a╱J╱ // 0x10cb @0x7
0x10c4…10e1 at0008 = ╱4c╱L╱ // 0x10cc @0x8
0x10c4…10e1 at0009 = ╱ed╱ ( ╱ // 0x10cd @0x9
0x10c4…10e1 at000a = ╱39╱9╱ // 0x10ce @0xa
0x10c4…10e1 at000b = ╱fe00009004╱ // 0x10cf @0xb
0x10c4…10e1 at0010 = ╱ec╱ , ╱ // 0x10d4 @0x10
0x10c4…10e1 at0011 = ╱34╱4╱ // 0x10d5 @0x11
0x10c4…10e1 at0012 = ╱fe00008003╱ // 0x10d6 @0x12
0x10c4…10e1 at0017 = ╱ec╱ , ╱ // 0x10db @0x17
0x10c4…10e1 at0018 = ╱4b╱K╱ // 0x10dc @0x18
0x10c4…10e1 at0019 = ╱33╱3╱ // 0x10dd @0x19
0x10c4…10e1 at001a = ╱ef╱ $ ╱ // 0x10de @0x1a
0x10c4…10e1 at001b = ╱ee╱ ) ╱ // 0x10df @0x1b
0x10c4…10e1 at001c = EOL // 0x10e0 @0x1c
0x10c4…10e1 }
0x10e1…110b 97e9 1350 PUT K3 $ , S + 3 : DEBBYMM $ , ]RK\B $ , MDNK\B $
0x10e1…110b LineComalBcd {
0x10e1…110b ptr = 0x97e9 // 0x10e1 @0x0
0x10e1…110b lno = 0x1350 // 0x10e3 @0x2
0x10e1…110b at0004 = ╱aa╱ PUT ╱ // 0x10e5 @0x4
0x10e1…110b at0005 = ╱4b╱K╱ // 0x10e6 @0x5
0x10e1…110b at0006 = ╱33╱3╱ // 0x10e7 @0x6
0x10e1…110b at0007 = ╱ef╱ $ ╱ // 0x10e8 @0x7
0x10e1…110b at0008 = ╱ec╱ , ╱ // 0x10e9 @0x8
0x10e1…110b at0009 = ╱53╱S╱ // 0x10ea @0x9
0x10e1…110b at000a = ╱e2╱ + ╱ // 0x10eb @0xa
0x10e1…110b at000b = ╱33╱3╱ // 0x10ec @0xb
0x10e1…110b at000c = ╱fe0000c002╱ // 0x10ed @0xc
0x10e1…110b at0011 = ╱f0╱ : ╱ // 0x10f2 @0x11
0x10e1…110b at0012 = ╱44╱D╱ // 0x10f3 @0x12
0x10e1…110b at0013 = ╱45╱E╱ // 0x10f4 @0x13
0x10e1…110b at0014 = ╱42╱B╱ // 0x10f5 @0x14
0x10e1…110b at0015 = ╱42╱B╱ // 0x10f6 @0x15
0x10e1…110b at0016 = ╱59╱Y╱ // 0x10f7 @0x16
0x10e1…110b at0017 = ╱4d╱M╱ // 0x10f8 @0x17
0x10e1…110b at0018 = ╱4d╱M╱ // 0x10f9 @0x18
0x10e1…110b at0019 = ╱ef╱ $ ╱ // 0x10fa @0x19
0x10e1…110b at001a = ╱ec╱ , ╱ // 0x10fb @0x1a
0x10e1…110b at001b = ╱5d╱]╱ // 0x10fc @0x1b
0x10e1…110b at001c = ╱52╱R╱ // 0x10fd @0x1c
0x10e1…110b at001d = ╱4b╱K╱ // 0x10fe @0x1d
0x10e1…110b at001e = ╱5c╱\╱ // 0x10ff @0x1e
0x10e1…110b at001f = ╱42╱B╱ // 0x1100 @0x1f
0x10e1…110b at0020 = ╱ef╱ $ ╱ // 0x1101 @0x20
0x10e1…110b at0021 = ╱ec╱ , ╱ // 0x1102 @0x21
0x10e1…110b at0022 = ╱4d╱M╱ // 0x1103 @0x22
0x10e1…110b at0023 = ╱44╱D╱ // 0x1104 @0x23
0x10e1…110b at0024 = ╱4e╱N╱ // 0x1105 @0x24
0x10e1…110b at0025 = ╱4b╱K╱ // 0x1106 @0x25
0x10e1…110b at0026 = ╱5c╱\╱ // 0x1107 @0x26
0x10e1…110b at0027 = ╱42╱B╱ // 0x1108 @0x27
0x10e1…110b at0028 = ╱ef╱ $ ╱ // 0x1109 @0x28
0x10e1…110b at0029 = EOL // 0x110a @0x29
0x10e1…110b }
0x110b…1128 9806 1360 EXEC FEJL ( 9 , 5 , K3 $ )
0x110b…1128 LineComalBcd {
0x110b…1128 ptr = 0x9806 // 0x110b @0x0
0x110b…1128 lno = 0x1360 // 0x110d @0x2
0x110b…1128 at0004 = ╱9d╱ EXEC ╱ // 0x110f @0x4
0x110b…1128 at0005 = ╱46╱F╱ // 0x1110 @0x5
0x110b…1128 at0006 = ╱45╱E╱ // 0x1111 @0x6
0x110b…1128 at0007 = ╱4a╱J╱ // 0x1112 @0x7
0x110b…1128 at0008 = ╱4c╱L╱ // 0x1113 @0x8
0x110b…1128 at0009 = ╱ed╱ ( ╱ // 0x1114 @0x9
0x110b…1128 at000a = ╱39╱9╱ // 0x1115 @0xa
0x110b…1128 at000b = ╱fe00009004╱ // 0x1116 @0xb
0x110b…1128 at0010 = ╱ec╱ , ╱ // 0x111b @0x10
0x110b…1128 at0011 = ╱35╱5╱ // 0x111c @0x11
0x110b…1128 at0012 = ╱fe0000a003╱ // 0x111d @0x12
0x110b…1128 at0017 = ╱ec╱ , ╱ // 0x1122 @0x17
0x110b…1128 at0018 = ╱4b╱K╱ // 0x1123 @0x18
0x110b…1128 at0019 = ╱33╱3╱ // 0x1124 @0x19
0x110b…1128 at001a = ╱ef╱ $ ╱ // 0x1125 @0x1a
0x110b…1128 at001b = ╱ee╱ ) ╱ // 0x1126 @0x1b
0x110b…1128 at001c = EOL // 0x1127 @0x1c
0x110b…1128 }
0x1128…112e 980c 1370 ENDPROC
0x1128…112e LineComalBcd {
0x1128…112e ptr = 0x980c // 0x1128 @0x0
0x1128…112e lno = 0x1370 // 0x112a @0x2
0x1128…112e at0004 = ╱9f╱ ENDPROC ╱ // 0x112c @0x4
0x1128…112e at0005 = EOL // 0x112d @0x5
0x1128…112e }
0x112e…1151 982d 1380 PROC DINDTAST ( DSTYR , C[ND , MMDEBNR2 )
0x112e…1151 LineComalBcd {
0x112e…1151 ptr = 0x982d // 0x112e @0x0
0x112e…1151 lno = 0x1380 // 0x1130 @0x2
0x112e…1151 at0004 = ╱9e╱ PROC ╱ // 0x1132 @0x4
0x112e…1151 at0005 = ╱44╱D╱ // 0x1133 @0x5
0x112e…1151 at0006 = ╱49╱I╱ // 0x1134 @0x6
0x112e…1151 at0007 = ╱4e╱N╱ // 0x1135 @0x7
0x112e…1151 at0008 = ╱44╱D╱ // 0x1136 @0x8
0x112e…1151 at0009 = ╱54╱T╱ // 0x1137 @0x9
0x112e…1151 at000a = ╱41╱A╱ // 0x1138 @0xa
0x112e…1151 at000b = ╱53╱S╱ // 0x1139 @0xb
0x112e…1151 at000c = ╱54╱T╱ // 0x113a @0xc
0x112e…1151 at000d = ╱ed╱ ( ╱ // 0x113b @0xd
0x112e…1151 at000e = ╱44╱D╱ // 0x113c @0xe
0x112e…1151 at000f = ╱53╱S╱ // 0x113d @0xf
0x112e…1151 at0010 = ╱54╱T╱ // 0x113e @0x10
0x112e…1151 at0011 = ╱59╱Y╱ // 0x113f @0x11
0x112e…1151 at0012 = ╱52╱R╱ // 0x1140 @0x12
0x112e…1151 at0013 = ╱ec╱ , ╱ // 0x1141 @0x13
0x112e…1151 at0014 = ╱43╱C╱ // 0x1142 @0x14
0x112e…1151 at0015 = ╱5b╱[╱ // 0x1143 @0x15
0x112e…1151 at0016 = ╱4e╱N╱ // 0x1144 @0x16
0x112e…1151 at0017 = ╱44╱D╱ // 0x1145 @0x17
0x112e…1151 at0018 = ╱ec╱ , ╱ // 0x1146 @0x18
0x112e…1151 at0019 = ╱4d╱M╱ // 0x1147 @0x19
0x112e…1151 at001a = ╱4d╱M╱ // 0x1148 @0x1a
0x112e…1151 at001b = ╱44╱D╱ // 0x1149 @0x1b
0x112e…1151 at001c = ╱45╱E╱ // 0x114a @0x1c
0x112e…1151 at001d = ╱42╱B╱ // 0x114b @0x1d
0x112e…1151 at001e = ╱4e╱N╱ // 0x114c @0x1e
0x112e…1151 at001f = ╱52╱R╱ // 0x114d @0x1f
0x112e…1151 at0020 = ╱32╱2╱ // 0x114e @0x20
0x112e…1151 at0021 = ╱ee╱ ) ╱ // 0x114f @0x21
0x112e…1151 at0022 = EOL // 0x1150 @0x22
0x112e…1151 }
0x1151…1163 983f 1390 IF C[ND >< 1 THEN
0x1151…1163 LineComalBcd {
0x1151…1163 ptr = 0x983f // 0x1151 @0x0
0x1151…1163 lno = 0x1390 // 0x1153 @0x2
0x1151…1163 at0004 = ╱9c╱ IF ╱ // 0x1155 @0x4
0x1151…1163 at0005 = ╱43╱C╱ // 0x1156 @0x5
0x1151…1163 at0006 = ╱5b╱[╱ // 0x1157 @0x6
0x1151…1163 at0007 = ╱4e╱N╱ // 0x1158 @0x7
0x1151…1163 at0008 = ╱44╱D╱ // 0x1159 @0x8
0x1151…1163 at0009 = ╱e1╱ >< ╱ // 0x115a @0x9
0x1151…1163 at000a = ╱31╱1╱ // 0x115b @0xa
0x1151…1163 at000b = ╱fe00008001╱ // 0x115c @0xb
0x1151…1163 at0010 = ╱b6╱ THEN ╱ // 0x1161 @0x10
0x1151…1163 at0011 = EOL // 0x1162 @0x11
0x1151…1163 }
0x1163…1169 9845 1400 CLEAR
0x1163…1169 LineComalBcd {
0x1163…1169 ptr = 0x9845 // 0x1163 @0x0
0x1163…1169 lno = 0x1400 // 0x1165 @0x2
0x1163…1169 at0004 = ╱a0╱ CLEAR ╱ // 0x1167 @0x4
0x1163…1169 at0005 = EOL // 0x1168 @0x5
0x1163…1169 }
0x1169…117d 9859 1410 CURSOR 21 , 1
0x1169…117d LineComalBcd {
0x1169…117d ptr = 0x9859 // 0x1169 @0x0
0x1169…117d lno = 0x1410 // 0x116b @0x2
0x1169…117d at0004 = ╱a1╱ CURSOR ╱ // 0x116d @0x4
0x1169…117d at0005 = ╱32╱2╱ // 0x116e @0x5
0x1169…117d at0006 = ╱31╱1╱ // 0x116f @0x6
0x1169…117d at0007 = ╱fe0000a805╱ // 0x1170 @0x7
0x1169…117d at000c = ╱ec╱ , ╱ // 0x1175 @0xc
0x1169…117d at000d = ╱31╱1╱ // 0x1176 @0xd
0x1169…117d at000e = ╱fe00008001╱ // 0x1177 @0xe
0x1169…117d at0013 = EOL // 0x117c @0x13
0x1169…117d }
0x117d…1195 9871 1420 PRINT "Kundeoplysninger"
0x117d…1195 LineComalBcd {
0x117d…1195 ptr = 0x9871 // 0x117d @0x0
0x117d…1195 lno = 0x1420 // 0x117f @0x2
0x117d…1195 at0004 = ╱92╱ PRINT ╱ // 0x1181 @0x4
0x117d…1195 at0005 = ╱22╱"╱ // 0x1182 @0x5
0x117d…1195 at0006 = ╱4b╱K╱ // 0x1183 @0x6
0x117d…1195 at0007 = ╱75╱u╱ // 0x1184 @0x7
0x117d…1195 at0008 = ╱6e╱n╱ // 0x1185 @0x8
0x117d…1195 at0009 = ╱64╱d╱ // 0x1186 @0x9
0x117d…1195 at000a = ╱65╱e╱ // 0x1187 @0xa
0x117d…1195 at000b = ╱6f╱o╱ // 0x1188 @0xb
0x117d…1195 at000c = ╱70╱p╱ // 0x1189 @0xc
0x117d…1195 at000d = ╱6c╱l╱ // 0x118a @0xd
0x117d…1195 at000e = ╱79╱y╱ // 0x118b @0xe
0x117d…1195 at000f = ╱73╱s╱ // 0x118c @0xf
0x117d…1195 at0010 = ╱6e╱n╱ // 0x118d @0x10
0x117d…1195 at0011 = ╱69╱i╱ // 0x118e @0x11
0x117d…1195 at0012 = ╱6e╱n╱ // 0x118f @0x12
0x117d…1195 at0013 = ╱67╱g╱ // 0x1190 @0x13
0x117d…1195 at0014 = ╱65╱e╱ // 0x1191 @0x14
0x117d…1195 at0015 = ╱72╱r╱ // 0x1192 @0x15
0x117d…1195 at0016 = ╱22╱"╱ // 0x1193 @0x16
0x117d…1195 at0017 = EOL // 0x1194 @0x17
0x117d…1195 }
0x1195…11a7 4d81 4d98 ╱14╱ 0 EXEC OVERSKRIFT
0x1195…11a7 LineComalBcd {
0x1195…11a7 ptr = 0x4d81 // 0x1195 @0x0
0x1195…11a7 lno = 0x4d98 // 0x1197 @0x2
0x1195…11a7 at0004 = ╱14╱ // 0x1199 @0x4
0x1195…11a7 at0005 = ╱30╱0╱ // 0x119a @0x5
0x1195…11a7 at0006 = ╱9d╱ EXEC ╱ // 0x119b @0x6
0x1195…11a7 at0007 = ╱4f╱O╱ // 0x119c @0x7
0x1195…11a7 at0008 = ╱56╱V╱ // 0x119d @0x8
0x1195…11a7 at0009 = ╱45╱E╱ // 0x119e @0x9
0x1195…11a7 at000a = ╱52╱R╱ // 0x119f @0xa
0x1195…11a7 at000b = ╱53╱S╱ // 0x11a0 @0xb
0x1195…11a7 at000c = ╱4b╱K╱ // 0x11a1 @0xc
0x1195…11a7 at000d = ╱52╱R╱ // 0x11a2 @0xd
0x1195…11a7 at000e = ╱49╱I╱ // 0x11a3 @0xe
0x1195…11a7 at000f = ╱46╱F╱ // 0x11a4 @0xf
0x1195…11a7 at0010 = ╱54╱T╱ // 0x11a5 @0x10
0x1195…11a7 at0011 = EOL // 0x11a6 @0x11
0x1195…11a7 }
0x11a7…11ba 9894 1440 CURSOR 2 , 3
0x11a7…11ba LineComalBcd {
0x11a7…11ba ptr = 0x9894 // 0x11a7 @0x0
0x11a7…11ba lno = 0x1440 // 0x11a9 @0x2
0x11a7…11ba at0004 = ╱a1╱ CURSOR ╱ // 0x11ab @0x4
0x11a7…11ba at0005 = ╱32╱2╱ // 0x11ac @0x5
0x11a7…11ba at0006 = ╱fe00008002╱ // 0x11ad @0x6
0x11a7…11ba at000b = ╱ec╱ , ╱ // 0x11b2 @0xb
0x11a7…11ba at000c = ╱33╱3╱ // 0x11b3 @0xc
0x11a7…11ba at000d = ╱fe0000c002╱ // 0x11b4 @0xd
0x11a7…11ba at0012 = EOL // 0x11b9 @0x12
0x11a7…11ba }
0x11ba…11d6 98b0 1450 PRINT "1:Kundenr………:" ; DEBNR2
0x11ba…11d6 LineComalBcd {
0x11ba…11d6 ptr = 0x98b0 // 0x11ba @0x0
0x11ba…11d6 lno = 0x1450 // 0x11bc @0x2
0x11ba…11d6 at0004 = ╱92╱ PRINT ╱ // 0x11be @0x4
0x11ba…11d6 at0005 = ╱22╱"╱ // 0x11bf @0x5
0x11ba…11d6 at0006 = ╱31╱1╱ // 0x11c0 @0x6
0x11ba…11d6 at0007 = ╱3a╱:╱ // 0x11c1 @0x7
0x11ba…11d6 at0008 = ╱4b╱K╱ // 0x11c2 @0x8
0x11ba…11d6 at0009 = ╱75╱u╱ // 0x11c3 @0x9
0x11ba…11d6 at000a = ╱6e╱n╱ // 0x11c4 @0xa
0x11ba…11d6 at000b = ╱64╱d╱ // 0x11c5 @0xb
0x11ba…11d6 at000c = ╱65╱e╱ // 0x11c6 @0xc
0x11ba…11d6 at000d = ╱6e╱n╱ // 0x11c7 @0xd
0x11ba…11d6 at000e = ╱72╱r╱ // 0x11c8 @0xe
0x11ba…11d6 at000f = ╱20╱…╱ // 0x11c9 @0xf
0x11ba…11d6 at0010 = ╱20╱…╱ // 0x11ca @0x10
0x11ba…11d6 at0011 = ╱20╱…╱ // 0x11cb @0x11
0x11ba…11d6 at0012 = ╱3a╱:╱ // 0x11cc @0x12
0x11ba…11d6 at0013 = ╱22╱"╱ // 0x11cd @0x13
0x11ba…11d6 at0014 = ╱eb╱ ; ╱ // 0x11ce @0x14
0x11ba…11d6 at0015 = ╱44╱D╱ // 0x11cf @0x15
0x11ba…11d6 at0016 = ╱45╱E╱ // 0x11d0 @0x16
0x11ba…11d6 at0017 = ╱42╱B╱ // 0x11d1 @0x17
0x11ba…11d6 at0018 = ╱4e╱N╱ // 0x11d2 @0x18
0x11ba…11d6 at0019 = ╱52╱R╱ // 0x11d3 @0x19
0x11ba…11d6 at001a = ╱32╱2╱ // 0x11d4 @0x1a
0x11ba…11d6 at001b = EOL // 0x11d5 @0x1b
0x11ba…11d6 }
0x11d6…11dc 98b6 1460 ENDIF
0x11d6…11dc LineComalBcd {
0x11d6…11dc ptr = 0x98b6 // 0x11d6 @0x0
0x11d6…11dc lno = 0x1460 // 0x11d8 @0x2
0x11d6…11dc at0004 = ╱9b╱ ENDIF ╱ // 0x11da @0x4
0x11d6…11dc at0005 = EOL // 0x11db @0x5
0x11d6…11dc }
0x11dc…11e2 98bc 1470 REPEAT
0x11dc…11e2 LineComalBcd {
0x11dc…11e2 ptr = 0x98bc // 0x11dc @0x0
0x11dc…11e2 lno = 0x1470 // 0x11de @0x2
0x11dc…11e2 at0004 = ╱97╱ REPEAT ╱ // 0x11e0 @0x4
0x11dc…11e2 at0005 = EOL // 0x11e1 @0x5
0x11dc…11e2 }
0x11e2…11f1 98c9 144d M ╱80╱ CASE DSTYR OF
0x11e2…11f1 LineComalBcd {
0x11e2…11f1 ptr = 0x98c9 // 0x11e2 @0x0
0x11e2…11f1 lno = 0x144d // 0x11e4 @0x2
0x11e2…11f1 at0004 = ╱4d╱M╱ // 0x11e6 @0x4
0x11e2…11f1 at0005 = ╱80╱ // 0x11e7 @0x5
0x11e2…11f1 at0006 = ╱a201╱ CASE ╱ // 0x11e8 @0x6
0x11e2…11f1 at0008 = ╱44╱D╱ // 0x11ea @0x8
0x11e2…11f1 at0009 = ╱53╱S╱ // 0x11eb @0x9
0x11e2…11f1 at000a = ╱54╱T╱ // 0x11ec @0xa
0x11e2…11f1 at000b = ╱59╱Y╱ // 0x11ed @0xb
0x11e2…11f1 at000c = ╱52╱R╱ // 0x11ee @0xc
0x11e2…11f1 at000d = ╱ba╱ OF ╱ // 0x11ef @0xd
0x11e2…11f1 at000e = EOL // 0x11f0 @0xe
0x11e2…11f1 }
0x11f1…11f7 98cf 1490 STOP
0x11f1…11f7 LineComalBcd {
0x11f1…11f7 ptr = 0x98cf // 0x11f1 @0x0
0x11f1…11f7 lno = 0x1490 // 0x11f3 @0x2
0x11f1…11f7 at0004 = ╱8d╱ STOP ╱ // 0x11f5 @0x4
0x11f1…11f7 at0005 = EOL // 0x11f6 @0x5
0x11f1…11f7 }
0x11f7…1204 98dc 1500 WHEN 2
0x11f7…1204 LineComalBcd {
0x11f7…1204 ptr = 0x98dc // 0x11f7 @0x0
0x11f7…1204 lno = 0x1500 // 0x11f9 @0x2
0x11f7…1204 at0004 = ╱a301╱ WHEN ╱ // 0x11fb @0x4
0x11f7…1204 at0006 = ╱32╱2╱ // 0x11fd @0x6
0x11f7…1204 at0007 = ╱fe00008002╱ // 0x11fe @0x7
0x11f7…1204 at000c = EOL // 0x1203 @0xc
0x11f7…1204 }
0x1204…1216 98ee 1510 IF C[ND >< 1 THEN
0x1204…1216 LineComalBcd {
0x1204…1216 ptr = 0x98ee // 0x1204 @0x0
0x1204…1216 lno = 0x1510 // 0x1206 @0x2
0x1204…1216 at0004 = ╱9c╱ IF ╱ // 0x1208 @0x4
0x1204…1216 at0005 = ╱43╱C╱ // 0x1209 @0x5
0x1204…1216 at0006 = ╱5b╱[╱ // 0x120a @0x6
0x1204…1216 at0007 = ╱4e╱N╱ // 0x120b @0x7
0x1204…1216 at0008 = ╱44╱D╱ // 0x120c @0x8
0x1204…1216 at0009 = ╱e1╱ >< ╱ // 0x120d @0x9
0x1204…1216 at000a = ╱31╱1╱ // 0x120e @0xa
0x1204…1216 at000b = ╱fe00008001╱ // 0x120f @0xb
0x1204…1216 at0010 = ╱b6╱ THEN ╱ // 0x1214 @0x10
0x1204…1216 at0011 = EOL // 0x1215 @0x11
0x1204…1216 }
0x1216…1229 9901 1520 CURSOR 2 , 4
0x1216…1229 LineComalBcd {
0x1216…1229 ptr = 0x9901 // 0x1216 @0x0
0x1216…1229 lno = 0x1520 // 0x1218 @0x2
0x1216…1229 at0004 = ╱a1╱ CURSOR ╱ // 0x121a @0x4
0x1216…1229 at0005 = ╱32╱2╱ // 0x121b @0x5
0x1216…1229 at0006 = ╱fe00008002╱ // 0x121c @0x6
0x1216…1229 at000b = ╱ec╱ , ╱ // 0x1221 @0xb
0x1216…1229 at000c = ╱34╱4╱ // 0x1222 @0xc
0x1216…1229 at000d = ╱fe00008003╱ // 0x1223 @0xd
0x1216…1229 at0012 = EOL // 0x1228 @0x12
0x1216…1229 }
0x1229…1240 9916 1530 PRINT "2:NavMMn………………:"
0x1229…1240 LineComalBcd {
0x1229…1240 ptr = 0x9916 // 0x1229 @0x0
0x1229…1240 lno = 0x1530 // 0x122b @0x2
0x1229…1240 at0004 = ╱92╱ PRINT ╱ // 0x122d @0x4
0x1229…1240 at0005 = ╱22╱"╱ // 0x122e @0x5
0x1229…1240 at0006 = ╱32╱2╱ // 0x122f @0x6
0x1229…1240 at0007 = ╱3a╱:╱ // 0x1230 @0x7
0x1229…1240 at0008 = ╱4e╱N╱ // 0x1231 @0x8
0x1229…1240 at0009 = ╱61╱a╱ // 0x1232 @0x9
0x1229…1240 at000a = ╱76╱v╱ // 0x1233 @0xa
0x1229…1240 at000b = ╱4d╱M╱ // 0x1234 @0xb
0x1229…1240 at000c = ╱4d╱M╱ // 0x1235 @0xc
0x1229…1240 at000d = ╱6e╱n╱ // 0x1236 @0xd
0x1229…1240 at000e = ╱20╱…╱ // 0x1237 @0xe
0x1229…1240 at000f = ╱20╱…╱ // 0x1238 @0xf
0x1229…1240 at0010 = ╱20╱…╱ // 0x1239 @0x10
0x1229…1240 at0011 = ╱20╱…╱ // 0x123a @0x11
0x1229…1240 at0012 = ╱20╱…╱ // 0x123b @0x12
0x1229…1240 at0013 = ╱20╱…╱ // 0x123c @0x13
0x1229…1240 at0014 = ╱3a╱:╱ // 0x123d @0x14
0x1229…1240 at0015 = ╱22╱"╱ // 0x123e @0x15
0x1229…1240 at0016 = EOL // 0x123f @0x16
0x1229…1240 }
0x1240…1251 9927 1540 DSTYR = 3
0x1240…1251 LineComalBcd {
0x1240…1251 ptr = 0x9927 // 0x1240 @0x0
0x1240…1251 lno = 0x1540 // 0x1242 @0x2
0x1240…1251 at0004 = ╱44╱D╱ // 0x1244 @0x4
0x1240…1251 at0005 = ╱53╱S╱ // 0x1245 @0x5
0x1240…1251 at0006 = ╱54╱T╱ // 0x1246 @0x6
0x1240…1251 at0007 = ╱59╱Y╱ // 0x1247 @0x7
0x1240…1251 at0008 = ╱52╱R╱ // 0x1248 @0x8
0x1240…1251 at0009 = ╱dc╱ = ╱ // 0x1249 @0x9
0x1240…1251 at000a = ╱33╱3╱ // 0x124a @0xa
0x1240…1251 at000b = ╱fe0000c002╱ // 0x124b @0xb
0x1240…1251 at0010 = EOL // 0x1250 @0x10
0x1240…1251 }
0x1251…1257 992d 1550 ENDIF
0x1251…1257 LineComalBcd {
0x1251…1257 ptr = 0x992d // 0x1251 @0x0
0x1251…1257 lno = 0x1550 // 0x1253 @0x2
0x1251…1257 at0004 = ╱9b╱ ENDIF ╱ // 0x1255 @0x4
0x1251…1257 at0005 = EOL // 0x1256 @0x5
0x1251…1257 }
0x1257…1269 993f 1560 IF C[ND >< 2 THEN
0x1257…1269 LineComalBcd {
0x1257…1269 ptr = 0x993f // 0x1257 @0x0
0x1257…1269 lno = 0x1560 // 0x1259 @0x2
0x1257…1269 at0004 = ╱9c╱ IF ╱ // 0x125b @0x4
0x1257…1269 at0005 = ╱43╱C╱ // 0x125c @0x5
0x1257…1269 at0006 = ╱5b╱[╱ // 0x125d @0x6
0x1257…1269 at0007 = ╱4e╱N╱ // 0x125e @0x7
0x1257…1269 at0008 = ╱44╱D╱ // 0x125f @0x8
0x1257…1269 at0009 = ╱e1╱ >< ╱ // 0x1260 @0x9
0x1257…1269 at000a = ╱32╱2╱ // 0x1261 @0xa
0x1257…1269 at000b = ╱fe00008002╱ // 0x1262 @0xb
0x1257…1269 at0010 = ╱b6╱ THEN ╱ // 0x1267 @0x10
0x1257…1269 at0011 = EOL // 0x1268 @0x11
0x1257…1269 }
0x1269…127d 9953 1570 CURSOR 3 , 23
0x1269…127d LineComalBcd {
0x1269…127d ptr = 0x9953 // 0x1269 @0x0
0x1269…127d lno = 0x1570 // 0x126b @0x2
0x1269…127d at0004 = ╱a1╱ CURSOR ╱ // 0x126d @0x4
0x1269…127d at0005 = ╱33╱3╱ // 0x126e @0x5
0x1269…127d at0006 = ╱fe0000c002╱ // 0x126f @0x6
0x1269…127d at000b = ╱ec╱ , ╱ // 0x1274 @0xb
0x1269…127d at000c = ╱32╱2╱ // 0x1275 @0xc
0x1269…127d at000d = ╱33╱3╱ // 0x1276 @0xd
0x1269…127d at000e = ╱fe0000b805╱ // 0x1277 @0xe
0x1269…127d at0013 = EOL // 0x127c @0x13
0x1269…127d }
0x127d…12c9 999d 1580 PRINT "MMNavn" ; BLANK $ ( 1 : 33 ) ; "(max…25…tegn)" ; BLANK $ ( 1 : 26 )
0x127d…12c9 LineComalBcd {
0x127d…12c9 ptr = 0x999d // 0x127d @0x0
0x127d…12c9 lno = 0x1580 // 0x127f @0x2
0x127d…12c9 at0004 = ╱92╱ PRINT ╱ // 0x1281 @0x4
0x127d…12c9 at0005 = ╱22╱"╱ // 0x1282 @0x5
0x127d…12c9 at0006 = ╱4d╱M╱ // 0x1283 @0x6
0x127d…12c9 at0007 = ╱4d╱M╱ // 0x1284 @0x7
0x127d…12c9 at0008 = ╱4e╱N╱ // 0x1285 @0x8
0x127d…12c9 at0009 = ╱61╱a╱ // 0x1286 @0x9
0x127d…12c9 at000a = ╱76╱v╱ // 0x1287 @0xa
0x127d…12c9 at000b = ╱6e╱n╱ // 0x1288 @0xb
0x127d…12c9 at000c = ╱22╱"╱ // 0x1289 @0xc
0x127d…12c9 at000d = ╱eb╱ ; ╱ // 0x128a @0xd
0x127d…12c9 at000e = ╱42╱B╱ // 0x128b @0xe
0x127d…12c9 at000f = ╱4c╱L╱ // 0x128c @0xf
0x127d…12c9 at0010 = ╱41╱A╱ // 0x128d @0x10
0x127d…12c9 at0011 = ╱4e╱N╱ // 0x128e @0x11
0x127d…12c9 at0012 = ╱4b╱K╱ // 0x128f @0x12
0x127d…12c9 at0013 = ╱ef╱ $ ╱ // 0x1290 @0x13
0x127d…12c9 at0014 = ╱ed╱ ( ╱ // 0x1291 @0x14
0x127d…12c9 at0015 = ╱31╱1╱ // 0x1292 @0x15
0x127d…12c9 at0016 = ╱fe00008001╱ // 0x1293 @0x16
0x127d…12c9 at001b = ╱f0╱ : ╱ // 0x1298 @0x1b
0x127d…12c9 at001c = ╱33╱3╱ // 0x1299 @0x1c
0x127d…12c9 at001d = ╱33╱3╱ // 0x129a @0x1d
0x127d…12c9 at001e = ╱fe00008406╱ // 0x129b @0x1e
0x127d…12c9 at0023 = ╱ee╱ ) ╱ // 0x12a0 @0x23
0x127d…12c9 at0024 = ╱eb╱ ; ╱ // 0x12a1 @0x24
0x127d…12c9 at0025 = ╱22╱"╱ // 0x12a2 @0x25
0x127d…12c9 at0026 = ╱28╱(╱ // 0x12a3 @0x26
0x127d…12c9 at0027 = ╱6d╱m╱ // 0x12a4 @0x27
0x127d…12c9 at0028 = ╱61╱a╱ // 0x12a5 @0x28
0x127d…12c9 at0029 = ╱78╱x╱ // 0x12a6 @0x29
0x127d…12c9 at002a = ╱20╱…╱ // 0x12a7 @0x2a
0x127d…12c9 at002b = ╱32╱2╱ // 0x12a8 @0x2b
0x127d…12c9 at002c = ╱35╱5╱ // 0x12a9 @0x2c
0x127d…12c9 at002d = ╱20╱…╱ // 0x12aa @0x2d
0x127d…12c9 at002e = ╱74╱t╱ // 0x12ab @0x2e
0x127d…12c9 at002f = ╱65╱e╱ // 0x12ac @0x2f
0x127d…12c9 at0030 = ╱67╱g╱ // 0x12ad @0x30
0x127d…12c9 at0031 = ╱6e╱n╱ // 0x12ae @0x31
0x127d…12c9 at0032 = ╱29╱)╱ // 0x12af @0x32
0x127d…12c9 at0033 = ╱22╱"╱ // 0x12b0 @0x33
0x127d…12c9 at0034 = ╱eb╱ ; ╱ // 0x12b1 @0x34
0x127d…12c9 at0035 = ╱42╱B╱ // 0x12b2 @0x35
0x127d…12c9 at0036 = ╱4c╱L╱ // 0x12b3 @0x36
0x127d…12c9 at0037 = ╱41╱A╱ // 0x12b4 @0x37
0x127d…12c9 at0038 = ╱4e╱N╱ // 0x12b5 @0x38
0x127d…12c9 at0039 = ╱4b╱K╱ // 0x12b6 @0x39
0x127d…12c9 at003a = ╱ef╱ $ ╱ // 0x12b7 @0x3a
0x127d…12c9 at003b = ╱ed╱ ( ╱ // 0x12b8 @0x3b
0x127d…12c9 at003c = ╱31╱1╱ // 0x12b9 @0x3c
0x127d…12c9 at003d = ╱fe00008001╱ // 0x12ba @0x3d
0x127d…12c9 at0042 = ╱f0╱ : ╱ // 0x12bf @0x42
0x127d…12c9 at0043 = ╱32╱2╱ // 0x12c0 @0x43
0x127d…12c9 at0044 = ╱36╱6╱ // 0x12c1 @0x44
0x127d…12c9 at0045 = ╱fe0000d005╱ // 0x12c2 @0x45
0x127d…12c9 at004a = ╱ee╱ ) ╱ // 0x12c7 @0x4a
0x127d…12c9 at004b = EOL // 0x12c8 @0x4b
0x127d…12c9 }
0x12c9…12e0 99b2 1590 CURSOR 13 ╱d0╱ ╱04╱ , 23
0x12c9…12e0 LineComalBcd {
0x12c9…12e0 ptr = 0x99b2 // 0x12c9 @0x0
0x12c9…12e0 lno = 0x1590 // 0x12cb @0x2
0x12c9…12e0 at0004 = ╱a1╱ CURSOR ╱ // 0x12cd @0x4
0x12c9…12e0 at0005 = ╱31╱1╱ // 0x12ce @0x5
0x12c9…12e0 at0006 = ╱33╱3╱ // 0x12cf @0x6
0x12c9…12e0 at0007 = ╱fe004d4d00╱ // 0x12d0 @0x7
0x12c9…12e0 at000c = ╱d0╱ // 0x12d5 @0xc
0x12c9…12e0 at000d = ╱04╱ // 0x12d6 @0xd
0x12c9…12e0 at000e = ╱ec╱ , ╱ // 0x12d7 @0xe
0x12c9…12e0 at000f = ╱32╱2╱ // 0x12d8 @0xf
0x12c9…12e0 at0010 = ╱33╱3╱ // 0x12d9 @0x10
0x12c9…12e0 at0011 = ╱fe0000b805╱ // 0x12da @0x11
0x12c9…12e0 at0016 = EOL // 0x12df @0x16
0x12c9…12e0 }
0x12e0…12ee 99c0 1600 INPUT DEBNAVN $
0x12e0…12ee LineComalBcd {
0x12e0…12ee ptr = 0x99c0 // 0x12e0 @0x0
0x12e0…12ee lno = 0x1600 // 0x12e2 @0x2
0x12e0…12ee at0004 = ╱91╱ INPUT ╱ // 0x12e4 @0x4
0x12e0…12ee at0005 = ╱44╱D╱ // 0x12e5 @0x5
0x12e0…12ee at0006 = ╱45╱E╱ // 0x12e6 @0x6
0x12e0…12ee at0007 = ╱42╱B╱ // 0x12e7 @0x7
0x12e0…12ee at0008 = ╱4e╱N╱ // 0x12e8 @0x8
0x12e0…12ee at0009 = ╱41╱A╱ // 0x12e9 @0x9
0x12e0…12ee at000a = ╱56╱V╱ // 0x12ea @0xa
0x12e0…12ee at000b = ╱4e╱N╱ // 0x12eb @0xb
0x12e0…12ee at000c = ╱ef╱ $ ╱ // 0x12ec @0xc
0x12e0…12ee at000d = EOL // 0x12ed @0xd
0x12e0…12ee }
0x12ee…12f4 99c6 1610 ENDIF
0x12ee…12f4 LineComalBcd {
0x12ee…12f4 ptr = 0x99c6 // 0x12ee @0x0
0x12ee…12f4 lno = 0x1610 // 0x12f0 @0x2
0x12ee…12f4 at0004 = ╱9b╱ ENDIF ╱ // 0x12f2 @0x4
0x12ee…12f4 at0005 = EOL // 0x12f3 @0x5
0x12ee…12f4 }
0x12f4…1308 99da 1620 CURSOR 16 , 4
0x12f4…1308 LineComalBcd {
0x12f4…1308 ptr = 0x99da // 0x12f4 @0x0
0x12f4…1308 lno = 0x1620 // 0x12f6 @0x2
0x12f4…1308 at0004 = ╱a1╱ CURSOR ╱ // 0x12f8 @0x4
0x12f4…1308 at0005 = ╱31╱1╱ // 0x12f9 @0x5
0x12f4…1308 at0006 = ╱36╱6╱ // 0x12fa @0x6
0x12f4…1308 at0007 = ╱fe00008005╱ // 0x12fb @0x7
0x12f4…1308 at000c = ╱ec╱ , ╱ // 0x1300 @0xc
0x12f4…1308 at000d = ╱34╱4╱ // 0x1301 @0xd
0x12f4…1308 at000e = ╱fe00008003╱ // 0x1302 @0xe
0x12f4…1308 at0013 = EOL // 0x1307 @0x13
0x12f4…1308 }
0x1308…1326 99f6 1630 PRINT BLANK $ ( 1 : 25M ╱05╱ )
0x1308…1326 LineComalBcd {
0x1308…1326 ptr = 0x99f6 // 0x1308 @0x0
0x1308…1326 lno = 0x1630 // 0x130a @0x2
0x1308…1326 at0004 = ╱92╱ PRINT ╱ // 0x130c @0x4
0x1308…1326 at0005 = ╱42╱B╱ // 0x130d @0x5
0x1308…1326 at0006 = ╱4c╱L╱ // 0x130e @0x6
0x1308…1326 at0007 = ╱41╱A╱ // 0x130f @0x7
0x1308…1326 at0008 = ╱4e╱N╱ // 0x1310 @0x8
0x1308…1326 at0009 = ╱4b╱K╱ // 0x1311 @0x9
0x1308…1326 at000a = ╱ef╱ $ ╱ // 0x1312 @0xa
0x1308…1326 at000b = ╱ed╱ ( ╱ // 0x1313 @0xb
0x1308…1326 at000c = ╱31╱1╱ // 0x1314 @0xc
0x1308…1326 at000d = ╱fe00008001╱ // 0x1315 @0xd
0x1308…1326 at0012 = ╱f0╱ : ╱ // 0x131a @0x12
0x1308…1326 at0013 = ╱32╱2╱ // 0x131b @0x13
0x1308…1326 at0014 = ╱35╱5╱ // 0x131c @0x14
0x1308…1326 at0015 = ╱fe0000c84d╱ // 0x131d @0x15
0x1308…1326 at001a = ╱4d╱M╱ // 0x1322 @0x1a
0x1308…1326 at001b = ╱05╱ // 0x1323 @0x1b
0x1308…1326 at001c = ╱ee╱ ) ╱ // 0x1324 @0x1c
0x1308…1326 at001d = EOL // 0x1325 @0x1d
0x1308…1326 }
0x1326…133a 9a0a 1640 CURSOR 16 , 4
0x1326…133a LineComalBcd {
0x1326…133a ptr = 0x9a0a // 0x1326 @0x0
0x1326…133a lno = 0x1640 // 0x1328 @0x2
0x1326…133a at0004 = ╱a1╱ CURSOR ╱ // 0x132a @0x4
0x1326…133a at0005 = ╱31╱1╱ // 0x132b @0x5
0x1326…133a at0006 = ╱36╱6╱ // 0x132c @0x6
0x1326…133a at0007 = ╱fe00008005╱ // 0x132d @0x7
0x1326…133a at000c = ╱ec╱ , ╱ // 0x1332 @0xc
0x1326…133a at000d = ╱34╱4╱ // 0x1333 @0xd
0x1326…133a at000e = ╱fe00008003╱ // 0x1334 @0xe
0x1326…133a at0013 = EOL // 0x1339 @0x13
0x1326…133a }
0x133a…1348 9a18 1650 PRINT DEBNAVN $
0x133a…1348 LineComalBcd {
0x133a…1348 ptr = 0x9a18 // 0x133a @0x0
0x133a…1348 lno = 0x1650 // 0x133c @0x2
0x133a…1348 at0004 = ╱92╱ PRINT ╱ // 0x133e @0x4
0x133a…1348 at0005 = ╱44╱D╱ // 0x133f @0x5
0x133a…1348 at0006 = ╱45╱E╱ // 0x1340 @0x6
0x133a…1348 at0007 = ╱42╱B╱ // 0x1341 @0x7
0x133a…1348 at0008 = ╱4e╱N╱ // 0x1342 @0x8
0x133a…1348 at0009 = ╱41╱A╱ // 0x1343 @0x9
0x133a…1348 at000a = ╱56╱V╱ // 0x1344 @0xa
0x133a…1348 at000b = ╱4e╱N╱ // 0x1345 @0xb
0x133a…1348 at000c = ╱ef╱ $ ╱ // 0x1346 @0xc
0x133a…1348 at000d = EOL // 0x1347 @0xd
0x133a…1348 }
0x1348…1355 9a25 1660 WHEN 3
0x1348…1355 LineComalBcd {
0x1348…1355 ptr = 0x9a25 // 0x1348 @0x0
0x1348…1355 lno = 0x1660 // 0x134a @0x2
0x1348…1355 at0004 = ╱a301╱ WHEN ╱ // 0x134c @0x4
0x1348…1355 at0006 = ╱33╱3╱ // 0x134e @0x6
0x1348…1355 at0007 = ╱fe0000c002╱ // 0x134f @0x7
0x1348…1355 at000c = EOL // 0x1354 @0xc
0x1348…1355 }
0x1355…1367 9a37 1670 IF C[ND >< 1 THEN
0x1355…1367 LineComalBcd {
0x1355…1367 ptr = 0x9a37 // 0x1355 @0x0
0x1355…1367 lno = 0x1670 // 0x1357 @0x2
0x1355…1367 at0004 = ╱9c╱ IF ╱ // 0x1359 @0x4
0x1355…1367 at0005 = ╱43╱C╱ // 0x135a @0x5
0x1355…1367 at0006 = ╱5b╱[╱ // 0x135b @0x6
0x1355…1367 at0007 = ╱4e╱N╱ // 0x135c @0x7
0x1355…1367 at0008 = ╱44╱D╱ // 0x135d @0x8
0x1355…1367 at0009 = ╱e1╱ >< ╱ // 0x135e @0x9
0x1355…1367 at000a = ╱31╱1╱ // 0x135f @0xa
0x1355…1367 at000b = ╱fe00008001╱ // 0x1360 @0xb
0x1355…1367 at0010 = ╱b6╱ THEN ╱ // 0x1365 @0x10
0x1355…1367 at0011 = EOL // 0x1366 @0x11
0x1355…1367 }
0x1367…137c 9a4a 1680 CURSOR 2 ╱80╱ ╱02╱ , 5
0x1367…137c LineComalBcd {
0x1367…137c ptr = 0x9a4a // 0x1367 @0x0
0x1367…137c lno = 0x1680 // 0x1369 @0x2
0x1367…137c at0004 = ╱a1╱ CURSOR ╱ // 0x136b @0x4
0x1367…137c at0005 = ╱32╱2╱ // 0x136c @0x5
0x1367…137c at0006 = ╱fe00004d4d╱ // 0x136d @0x6
0x1367…137c at000b = ╱80╱ // 0x1372 @0xb
0x1367…137c at000c = ╱02╱ // 0x1373 @0xc
0x1367…137c at000d = ╱ec╱ , ╱ // 0x1374 @0xd
0x1367…137c at000e = ╱35╱5╱ // 0x1375 @0xe
0x1367…137c at000f = ╱fe0000a003╱ // 0x1376 @0xf
0x1367…137c at0014 = EOL // 0x137b @0x14
0x1367…137c }
0x137c…1391 9a5f 1690 PRINT "3:Gade………………:"
0x137c…1391 LineComalBcd {
0x137c…1391 ptr = 0x9a5f // 0x137c @0x0
0x137c…1391 lno = 0x1690 // 0x137e @0x2
0x137c…1391 at0004 = ╱92╱ PRINT ╱ // 0x1380 @0x4
0x137c…1391 at0005 = ╱22╱"╱ // 0x1381 @0x5
0x137c…1391 at0006 = ╱33╱3╱ // 0x1382 @0x6
0x137c…1391 at0007 = ╱3a╱:╱ // 0x1383 @0x7
0x137c…1391 at0008 = ╱47╱G╱ // 0x1384 @0x8
0x137c…1391 at0009 = ╱61╱a╱ // 0x1385 @0x9
0x137c…1391 at000a = ╱64╱d╱ // 0x1386 @0xa
0x137c…1391 at000b = ╱65╱e╱ // 0x1387 @0xb
0x137c…1391 at000c = ╱20╱…╱ // 0x1388 @0xc
0x137c…1391 at000d = ╱20╱…╱ // 0x1389 @0xd
0x137c…1391 at000e = ╱20╱…╱ // 0x138a @0xe
0x137c…1391 at000f = ╱20╱…╱ // 0x138b @0xf
0x137c…1391 at0010 = ╱20╱…╱ // 0x138c @0x10
0x137c…1391 at0011 = ╱20╱…╱ // 0x138d @0x11
0x137c…1391 at0012 = ╱3a╱:╱ // 0x138e @0x12
0x137c…1391 at0013 = ╱22╱"╱ // 0x138f @0x13
0x137c…1391 at0014 = EOL // 0x1390 @0x14
0x137c…1391 }
0x1391…13a2 9a70 1700 DSTYR = 4
0x1391…13a2 LineComalBcd {
0x1391…13a2 ptr = 0x9a70 // 0x1391 @0x0
0x1391…13a2 lno = 0x1700 // 0x1393 @0x2
0x1391…13a2 at0004 = ╱44╱D╱ // 0x1395 @0x4
0x1391…13a2 at0005 = ╱53╱S╱ // 0x1396 @0x5
0x1391…13a2 at0006 = ╱54╱T╱ // 0x1397 @0x6
0x1391…13a2 at0007 = ╱59╱Y╱ // 0x1398 @0x7
0x1391…13a2 at0008 = ╱52╱R╱ // 0x1399 @0x8
0x1391…13a2 at0009 = ╱dc╱ = ╱ // 0x139a @0x9
0x1391…13a2 at000a = ╱34╱4╱ // 0x139b @0xa
0x1391…13a2 at000b = ╱fe00008003╱ // 0x139c @0xb
0x1391…13a2 at0010 = EOL // 0x13a1 @0x10
0x1391…13a2 }
0x13a2…13a8 9a76 1710 ENDIF
0x13a2…13a8 LineComalBcd {
0x13a2…13a8 ptr = 0x9a76 // 0x13a2 @0x0
0x13a2…13a8 lno = 0x1710 // 0x13a4 @0x2
0x13a2…13a8 at0004 = ╱9b╱ ENDIF ╱ // 0x13a6 @0x4
0x13a2…13a8 at0005 = EOL // 0x13a7 @0x5
0x13a2…13a8 }
0x13a8…13ba 9a88 1720 IF C[ND >< 2 THEN
0x13a8…13ba LineComalBcd {
0x13a8…13ba ptr = 0x9a88 // 0x13a8 @0x0
0x13a8…13ba lno = 0x1720 // 0x13aa @0x2
0x13a8…13ba at0004 = ╱9c╱ IF ╱ // 0x13ac @0x4
0x13a8…13ba at0005 = ╱43╱C╱ // 0x13ad @0x5
0x13a8…13ba at0006 = ╱5b╱[╱ // 0x13ae @0x6
0x13a8…13ba at0007 = ╱4e╱N╱ // 0x13af @0x7
0x13a8…13ba at0008 = ╱44╱D╱ // 0x13b0 @0x8
0x13a8…13ba at0009 = ╱e1╱ >< ╱ // 0x13b1 @0x9
0x13a8…13ba at000a = ╱32╱2╱ // 0x13b2 @0xa
0x13a8…13ba at000b = ╱fe00008002╱ // 0x13b3 @0xb
0x13a8…13ba at0010 = ╱b6╱ THEN ╱ // 0x13b8 @0x10
0x13a8…13ba at0011 = EOL // 0x13b9 @0x11
0x13a8…13ba }
0x13ba…13d0 9a9c 1730 CURSOR MM3 , 23
0x13ba…13d0 LineComalBcd {
0x13ba…13d0 ptr = 0x9a9c // 0x13ba @0x0
0x13ba…13d0 lno = 0x1730 // 0x13bc @0x2
0x13ba…13d0 at0004 = ╱a1╱ CURSOR ╱ // 0x13be @0x4
0x13ba…13d0 at0005 = ╱4d╱M╱ // 0x13bf @0x5
0x13ba…13d0 at0006 = ╱4d╱M╱ // 0x13c0 @0x6
0x13ba…13d0 at0007 = ╱33╱3╱ // 0x13c1 @0x7
0x13ba…13d0 at0008 = ╱fe0000c002╱ // 0x13c2 @0x8
0x13ba…13d0 at000d = ╱ec╱ , ╱ // 0x13c7 @0xd
0x13ba…13d0 at000e = ╱32╱2╱ // 0x13c8 @0xe
0x13ba…13d0 at000f = ╱33╱3╱ // 0x13c9 @0xf
0x13ba…13d0 at0010 = ╱fe0000b805╱ // 0x13ca @0x10
0x13ba…13d0 at0015 = EOL // 0x13cf @0x15
0x13ba…13d0 }
0x13d0…141c 9ae6 1740 PRINT "Gade" ; BLANK $ ( 1 : 33 ) ; "(max…25…tegn)" ; BLANK $ ( 1 ╱80╱ ╱01╱ : 26 )
0x13d0…141c LineComalBcd {
0x13d0…141c ptr = 0x9ae6 // 0x13d0 @0x0
0x13d0…141c lno = 0x1740 // 0x13d2 @0x2
0x13d0…141c at0004 = ╱92╱ PRINT ╱ // 0x13d4 @0x4
0x13d0…141c at0005 = ╱22╱"╱ // 0x13d5 @0x5
0x13d0…141c at0006 = ╱47╱G╱ // 0x13d6 @0x6
0x13d0…141c at0007 = ╱61╱a╱ // 0x13d7 @0x7
0x13d0…141c at0008 = ╱64╱d╱ // 0x13d8 @0x8
0x13d0…141c at0009 = ╱65╱e╱ // 0x13d9 @0x9
0x13d0…141c at000a = ╱22╱"╱ // 0x13da @0xa
0x13d0…141c at000b = ╱eb╱ ; ╱ // 0x13db @0xb
0x13d0…141c at000c = ╱42╱B╱ // 0x13dc @0xc
0x13d0…141c at000d = ╱4c╱L╱ // 0x13dd @0xd
0x13d0…141c at000e = ╱41╱A╱ // 0x13de @0xe
0x13d0…141c at000f = ╱4e╱N╱ // 0x13df @0xf
0x13d0…141c at0010 = ╱4b╱K╱ // 0x13e0 @0x10
0x13d0…141c at0011 = ╱ef╱ $ ╱ // 0x13e1 @0x11
0x13d0…141c at0012 = ╱ed╱ ( ╱ // 0x13e2 @0x12
0x13d0…141c at0013 = ╱31╱1╱ // 0x13e3 @0x13
0x13d0…141c at0014 = ╱fe00008001╱ // 0x13e4 @0x14
0x13d0…141c at0019 = ╱f0╱ : ╱ // 0x13e9 @0x19
0x13d0…141c at001a = ╱33╱3╱ // 0x13ea @0x1a
0x13d0…141c at001b = ╱33╱3╱ // 0x13eb @0x1b
0x13d0…141c at001c = ╱fe00008406╱ // 0x13ec @0x1c
0x13d0…141c at0021 = ╱ee╱ ) ╱ // 0x13f1 @0x21
0x13d0…141c at0022 = ╱eb╱ ; ╱ // 0x13f2 @0x22
0x13d0…141c at0023 = ╱22╱"╱ // 0x13f3 @0x23
0x13d0…141c at0024 = ╱28╱(╱ // 0x13f4 @0x24
0x13d0…141c at0025 = ╱6d╱m╱ // 0x13f5 @0x25
0x13d0…141c at0026 = ╱61╱a╱ // 0x13f6 @0x26
0x13d0…141c at0027 = ╱78╱x╱ // 0x13f7 @0x27
0x13d0…141c at0028 = ╱20╱…╱ // 0x13f8 @0x28
0x13d0…141c at0029 = ╱32╱2╱ // 0x13f9 @0x29
0x13d0…141c at002a = ╱35╱5╱ // 0x13fa @0x2a
0x13d0…141c at002b = ╱20╱…╱ // 0x13fb @0x2b
0x13d0…141c at002c = ╱74╱t╱ // 0x13fc @0x2c
0x13d0…141c at002d = ╱65╱e╱ // 0x13fd @0x2d
0x13d0…141c at002e = ╱67╱g╱ // 0x13fe @0x2e
0x13d0…141c at002f = ╱6e╱n╱ // 0x13ff @0x2f
0x13d0…141c at0030 = ╱29╱)╱ // 0x1400 @0x30
0x13d0…141c at0031 = ╱22╱"╱ // 0x1401 @0x31
0x13d0…141c at0032 = ╱eb╱ ; ╱ // 0x1402 @0x32
0x13d0…141c at0033 = ╱42╱B╱ // 0x1403 @0x33
0x13d0…141c at0034 = ╱4c╱L╱ // 0x1404 @0x34
0x13d0…141c at0035 = ╱41╱A╱ // 0x1405 @0x35
0x13d0…141c at0036 = ╱4e╱N╱ // 0x1406 @0x36
0x13d0…141c at0037 = ╱4b╱K╱ // 0x1407 @0x37
0x13d0…141c at0038 = ╱ef╱ $ ╱ // 0x1408 @0x38
0x13d0…141c at0039 = ╱ed╱ ( ╱ // 0x1409 @0x39
0x13d0…141c at003a = ╱31╱1╱ // 0x140a @0x3a
0x13d0…141c at003b = ╱fe00004d4d╱ // 0x140b @0x3b
0x13d0…141c at0040 = ╱80╱ // 0x1410 @0x40
0x13d0…141c at0041 = ╱01╱ // 0x1411 @0x41
0x13d0…141c at0042 = ╱f0╱ : ╱ // 0x1412 @0x42
0x13d0…141c at0043 = ╱32╱2╱ // 0x1413 @0x43
0x13d0…141c at0044 = ╱36╱6╱ // 0x1414 @0x44
0x13d0…141c at0045 = ╱fe0000d005╱ // 0x1415 @0x45
0x13d0…141c at004a = ╱ee╱ ) ╱ // 0x141a @0x4a
0x13d0…141c at004b = EOL // 0x141b @0x4b
0x13d0…141c }
0x141c…1431 9afb 1750 CURSOR 13 , 23
0x141c…1431 LineComalBcd {
0x141c…1431 ptr = 0x9afb // 0x141c @0x0
0x141c…1431 lno = 0x1750 // 0x141e @0x2
0x141c…1431 at0004 = ╱a1╱ CURSOR ╱ // 0x1420 @0x4
0x141c…1431 at0005 = ╱31╱1╱ // 0x1421 @0x5
0x141c…1431 at0006 = ╱33╱3╱ // 0x1422 @0x6
0x141c…1431 at0007 = ╱fe0000d004╱ // 0x1423 @0x7
0x141c…1431 at000c = ╱ec╱ , ╱ // 0x1428 @0xc
0x141c…1431 at000d = ╱32╱2╱ // 0x1429 @0xd
0x141c…1431 at000e = ╱33╱3╱ // 0x142a @0xe
0x141c…1431 at000f = ╱fe0000b805╱ // 0x142b @0xf
0x141c…1431 at0014 = EOL // 0x1430 @0x14
0x141c…1431 }
0x1431…143f 9b09 1760 INPUT DEBGADE $
0x1431…143f LineComalBcd {
0x1431…143f ptr = 0x9b09 // 0x1431 @0x0
0x1431…143f lno = 0x1760 // 0x1433 @0x2
0x1431…143f at0004 = ╱91╱ INPUT ╱ // 0x1435 @0x4
0x1431…143f at0005 = ╱44╱D╱ // 0x1436 @0x5
0x1431…143f at0006 = ╱45╱E╱ // 0x1437 @0x6
0x1431…143f at0007 = ╱42╱B╱ // 0x1438 @0x7
0x1431…143f at0008 = ╱47╱G╱ // 0x1439 @0x8
0x1431…143f at0009 = ╱41╱A╱ // 0x143a @0x9
0x1431…143f at000a = ╱44╱D╱ // 0x143b @0xa
0x1431…143f at000b = ╱45╱E╱ // 0x143c @0xb
0x1431…143f at000c = ╱ef╱ $ ╱ // 0x143d @0xc
0x1431…143f at000d = EOL // 0x143e @0xd
0x1431…143f }
0x143f…1445 9b0f 1770 ENDIF
0x143f…1445 LineComalBcd {
0x143f…1445 ptr = 0x9b0f // 0x143f @0x0
0x143f…1445 lno = 0x1770 // 0x1441 @0x2
0x143f…1445 at0004 = ╱9b╱ ENDIF ╱ // 0x1443 @0x4
0x143f…1445 at0005 = EOL // 0x1444 @0x5
0x143f…1445 }
0x1445…1459 9b23 1780 CURSOR 16 , 5
0x1445…1459 LineComalBcd {
0x1445…1459 ptr = 0x9b23 // 0x1445 @0x0
0x1445…1459 lno = 0x1780 // 0x1447 @0x2
0x1445…1459 at0004 = ╱a1╱ CURSOR ╱ // 0x1449 @0x4
0x1445…1459 at0005 = ╱31╱1╱ // 0x144a @0x5
0x1445…1459 at0006 = ╱36╱6╱ // 0x144b @0x6
0x1445…1459 at0007 = ╱fe00008005╱ // 0x144c @0x7
0x1445…1459 at000c = ╱ec╱ , ╱ // 0x1451 @0xc
0x1445…1459 at000d = ╱35╱5╱ // 0x1452 @0xd
0x1445…1459 at000e = ╱fe0000a003╱ // 0x1453 @0xe
0x1445…1459 at0013 = EOL // 0x1458 @0x13
0x1445…1459 }
0x1459…1477 9b3f 1790 MM PRINT BLANK $ ( 1 : 25 )
0x1459…1477 LineComalBcd {
0x1459…1477 ptr = 0x9b3f // 0x1459 @0x0
0x1459…1477 lno = 0x1790 // 0x145b @0x2
0x1459…1477 at0004 = ╱4d╱M╱ // 0x145d @0x4
0x1459…1477 at0005 = ╱4d╱M╱ // 0x145e @0x5
0x1459…1477 at0006 = ╱92╱ PRINT ╱ // 0x145f @0x6
0x1459…1477 at0007 = ╱42╱B╱ // 0x1460 @0x7
0x1459…1477 at0008 = ╱4c╱L╱ // 0x1461 @0x8
0x1459…1477 at0009 = ╱41╱A╱ // 0x1462 @0x9
0x1459…1477 at000a = ╱4e╱N╱ // 0x1463 @0xa
0x1459…1477 at000b = ╱4b╱K╱ // 0x1464 @0xb
0x1459…1477 at000c = ╱ef╱ $ ╱ // 0x1465 @0xc
0x1459…1477 at000d = ╱ed╱ ( ╱ // 0x1466 @0xd
0x1459…1477 at000e = ╱31╱1╱ // 0x1467 @0xe
0x1459…1477 at000f = ╱fe00008001╱ // 0x1468 @0xf
0x1459…1477 at0014 = ╱f0╱ : ╱ // 0x146d @0x14
0x1459…1477 at0015 = ╱32╱2╱ // 0x146e @0x15
0x1459…1477 at0016 = ╱35╱5╱ // 0x146f @0x16
0x1459…1477 at0017 = ╱fe0000c805╱ // 0x1470 @0x17
0x1459…1477 at001c = ╱ee╱ ) ╱ // 0x1475 @0x1c
0x1459…1477 at001d = EOL // 0x1476 @0x1d
0x1459…1477 }
0x1477…148b 9b53 1800 CURSOR 16 , 5
0x1477…148b LineComalBcd {
0x1477…148b ptr = 0x9b53 // 0x1477 @0x0
0x1477…148b lno = 0x1800 // 0x1479 @0x2
0x1477…148b at0004 = ╱a1╱ CURSOR ╱ // 0x147b @0x4
0x1477…148b at0005 = ╱31╱1╱ // 0x147c @0x5
0x1477…148b at0006 = ╱36╱6╱ // 0x147d @0x6
0x1477…148b at0007 = ╱fe00008005╱ // 0x147e @0x7
0x1477…148b at000c = ╱ec╱ , ╱ // 0x1483 @0xc
0x1477…148b at000d = ╱35╱5╱ // 0x1484 @0xd
0x1477…148b at000e = ╱fe0000a003╱ // 0x1485 @0xe
0x1477…148b at0013 = EOL // 0x148a @0x13
0x1477…148b }
0x148b…1499 9b61 1810 PRINT DEBGADE $
0x148b…1499 LineComalBcd {
0x148b…1499 ptr = 0x9b61 // 0x148b @0x0
0x148b…1499 lno = 0x1810 // 0x148d @0x2
0x148b…1499 at0004 = ╱92╱ PRINT ╱ // 0x148f @0x4
0x148b…1499 at0005 = ╱44╱D╱ // 0x1490 @0x5
0x148b…1499 at0006 = ╱45╱E╱ // 0x1491 @0x6
0x148b…1499 at0007 = ╱42╱B╱ // 0x1492 @0x7
0x148b…1499 at0008 = ╱47╱G╱ // 0x1493 @0x8
0x148b…1499 at0009 = ╱41╱A╱ // 0x1494 @0x9
0x148b…1499 at000a = ╱44╱D╱ // 0x1495 @0xa
0x148b…1499 at000b = ╱45╱E╱ // 0x1496 @0xb
0x148b…1499 at000c = ╱ef╱ $ ╱ // 0x1497 @0xc
0x148b…1499 at000d = EOL // 0x1498 @0xd
0x148b…1499 }
0x1499…14a6 9b6e 1820 WHEN 4
0x1499…14a6 LineComalBcd {
0x1499…14a6 ptr = 0x9b6e // 0x1499 @0x0
0x1499…14a6 lno = 0x1820 // 0x149b @0x2
0x1499…14a6 at0004 = ╱a301╱ WHEN ╱ // 0x149d @0x4
0x1499…14a6 at0006 = ╱34╱4╱ // 0x149f @0x6
0x1499…14a6 at0007 = ╱fe00008003╱ // 0x14a0 @0x7
0x1499…14a6 at000c = EOL // 0x14a5 @0xc
0x1499…14a6 }
0x14a6…14ba 9b80 1830 IF CMM[ND >< 1 THEN
0x14a6…14ba LineComalBcd {
0x14a6…14ba ptr = 0x9b80 // 0x14a6 @0x0
0x14a6…14ba lno = 0x1830 // 0x14a8 @0x2
0x14a6…14ba at0004 = ╱9c╱ IF ╱ // 0x14aa @0x4
0x14a6…14ba at0005 = ╱43╱C╱ // 0x14ab @0x5
0x14a6…14ba at0006 = ╱4d╱M╱ // 0x14ac @0x6
0x14a6…14ba at0007 = ╱4d╱M╱ // 0x14ad @0x7
0x14a6…14ba at0008 = ╱5b╱[╱ // 0x14ae @0x8
0x14a6…14ba at0009 = ╱4e╱N╱ // 0x14af @0x9
0x14a6…14ba at000a = ╱44╱D╱ // 0x14b0 @0xa
0x14a6…14ba at000b = ╱e1╱ >< ╱ // 0x14b1 @0xb
0x14a6…14ba at000c = ╱31╱1╱ // 0x14b2 @0xc
0x14a6…14ba at000d = ╱fe00008001╱ // 0x14b3 @0xd
0x14a6…14ba at0012 = ╱b6╱ THEN ╱ // 0x14b8 @0x12
0x14a6…14ba at0013 = EOL // 0x14b9 @0x13
0x14a6…14ba }
0x14ba…14cd 9b93 1840 CURSOR 2 , 6
0x14ba…14cd LineComalBcd {
0x14ba…14cd ptr = 0x9b93 // 0x14ba @0x0
0x14ba…14cd lno = 0x1840 // 0x14bc @0x2
0x14ba…14cd at0004 = ╱a1╱ CURSOR ╱ // 0x14be @0x4
0x14ba…14cd at0005 = ╱32╱2╱ // 0x14bf @0x5
0x14ba…14cd at0006 = ╱fe00008002╱ // 0x14c0 @0x6
0x14ba…14cd at000b = ╱ec╱ , ╱ // 0x14c5 @0xb
0x14ba…14cd at000c = ╱36╱6╱ // 0x14c6 @0xc
0x14ba…14cd at000d = ╱fe0000c003╱ // 0x14c7 @0xd
0x14ba…14cd at0012 = EOL // 0x14cc @0x12
0x14ba…14cd }
0x14cd…14e2 9ba8 1850 PRINT "4:Postnr…………:"
0x14cd…14e2 LineComalBcd {
0x14cd…14e2 ptr = 0x9ba8 // 0x14cd @0x0
0x14cd…14e2 lno = 0x1850 // 0x14cf @0x2
0x14cd…14e2 at0004 = ╱92╱ PRINT ╱ // 0x14d1 @0x4
0x14cd…14e2 at0005 = ╱22╱"╱ // 0x14d2 @0x5
0x14cd…14e2 at0006 = ╱34╱4╱ // 0x14d3 @0x6
0x14cd…14e2 at0007 = ╱3a╱:╱ // 0x14d4 @0x7
0x14cd…14e2 at0008 = ╱50╱P╱ // 0x14d5 @0x8
0x14cd…14e2 at0009 = ╱6f╱o╱ // 0x14d6 @0x9
0x14cd…14e2 at000a = ╱73╱s╱ // 0x14d7 @0xa
0x14cd…14e2 at000b = ╱74╱t╱ // 0x14d8 @0xb
0x14cd…14e2 at000c = ╱6e╱n╱ // 0x14d9 @0xc
0x14cd…14e2 at000d = ╱72╱r╱ // 0x14da @0xd
0x14cd…14e2 at000e = ╱20╱…╱ // 0x14db @0xe
0x14cd…14e2 at000f = ╱20╱…╱ // 0x14dc @0xf
0x14cd…14e2 at0010 = ╱20╱…╱ // 0x14dd @0x10
0x14cd…14e2 at0011 = ╱20╱…╱ // 0x14de @0x11
0x14cd…14e2 at0012 = ╱3a╱:╱ // 0x14df @0x12
0x14cd…14e2 at0013 = ╱22╱"╱ // 0x14e0 @0x13
0x14cd…14e2 at0014 = EOL // 0x14e1 @0x14
0x14cd…14e2 }
0x14e2…14f3 9bb9 1860 DSTYR = 5
0x14e2…14f3 LineComalBcd {
0x14e2…14f3 ptr = 0x9bb9 // 0x14e2 @0x0
0x14e2…14f3 lno = 0x1860 // 0x14e4 @0x2
0x14e2…14f3 at0004 = ╱44╱D╱ // 0x14e6 @0x4
0x14e2…14f3 at0005 = ╱53╱S╱ // 0x14e7 @0x5
0x14e2…14f3 at0006 = ╱54╱T╱ // 0x14e8 @0x6
0x14e2…14f3 at0007 = ╱59╱Y╱ // 0x14e9 @0x7
0x14e2…14f3 at0008 = ╱52╱R╱ // 0x14ea @0x8
0x14e2…14f3 at0009 = ╱dc╱ = ╱ // 0x14eb @0x9
0x14e2…14f3 at000a = ╱35╱5╱ // 0x14ec @0xa
0x14e2…14f3 at000b = ╱fe0000a003╱ // 0x14ed @0xb
0x14e2…14f3 at0010 = EOL // 0x14f2 @0x10
0x14e2…14f3 }
0x14f3…14f9 9bbf 1870 ENDIF
0x14f3…14f9 LineComalBcd {
0x14f3…14f9 ptr = 0x9bbf // 0x14f3 @0x0
0x14f3…14f9 lno = 0x1870 // 0x14f5 @0x2
0x14f3…14f9 at0004 = ╱9b╱ ENDIF ╱ // 0x14f7 @0x4
0x14f3…14f9 at0005 = EOL // 0x14f8 @0x5
0x14f3…14f9 }
0x14f9…150d 9bd1 4d4d ╱18╱ ╱80╱ IF C[ND >< 2 THEN
0x14f9…150d LineComalBcd {
0x14f9…150d ptr = 0x9bd1 // 0x14f9 @0x0
0x14f9…150d lno = 0x4d4d // 0x14fb @0x2
0x14f9…150d at0004 = ╱18╱ // 0x14fd @0x4
0x14f9…150d at0005 = ╱80╱ // 0x14fe @0x5
0x14f9…150d at0006 = ╱9c╱ IF ╱ // 0x14ff @0x6
0x14f9…150d at0007 = ╱43╱C╱ // 0x1500 @0x7
0x14f9…150d at0008 = ╱5b╱[╱ // 0x1501 @0x8
0x14f9…150d at0009 = ╱4e╱N╱ // 0x1502 @0x9
0x14f9…150d at000a = ╱44╱D╱ // 0x1503 @0xa
0x14f9…150d at000b = ╱e1╱ >< ╱ // 0x1504 @0xb
0x14f9…150d at000c = ╱32╱2╱ // 0x1505 @0xc
0x14f9…150d at000d = ╱fe00008002╱ // 0x1506 @0xd
0x14f9…150d at0012 = ╱b6╱ THEN ╱ // 0x150b @0x12
0x14f9…150d at0013 = EOL // 0x150c @0x13
0x14f9…150d }
0x150d…1513 9bd7 1890 REPEAT
0x150d…1513 LineComalBcd {
0x150d…1513 ptr = 0x9bd7 // 0x150d @0x0
0x150d…1513 lno = 0x1890 // 0x150f @0x2
0x150d…1513 at0004 = ╱97╱ REPEAT ╱ // 0x1511 @0x4
0x150d…1513 at0005 = EOL // 0x1512 @0x5
0x150d…1513 }
0x1513…1527 9beb 1900 CURSOR 3 , 23
0x1513…1527 LineComalBcd {
0x1513…1527 ptr = 0x9beb // 0x1513 @0x0
0x1513…1527 lno = 0x1900 // 0x1515 @0x2
0x1513…1527 at0004 = ╱a1╱ CURSOR ╱ // 0x1517 @0x4
0x1513…1527 at0005 = ╱33╱3╱ // 0x1518 @0x5
0x1513…1527 at0006 = ╱fe0000c002╱ // 0x1519 @0x6
0x1513…1527 at000b = ╱ec╱ , ╱ // 0x151e @0xb
0x1513…1527 at000c = ╱32╱2╱ // 0x151f @0xc
0x1513…1527 at000d = ╱33╱3╱ // 0x1520 @0xd
0x1513…1527 at000e = ╱fe0000b805╱ // 0x1521 @0xe
0x1513…1527 at0013 = EOL // 0x1526 @0x13
0x1513…1527 }
0x1527…1574 9c36 1910 PRINT "Postnr" ; BLANK $ ( 1 : 12MM ) ; "(max…6…tegn)" ; BLANK $ ( 1 : 45 )
0x1527…1574 LineComalBcd {
0x1527…1574 ptr = 0x9c36 // 0x1527 @0x0
0x1527…1574 lno = 0x1910 // 0x1529 @0x2
0x1527…1574 at0004 = ╱92╱ PRINT ╱ // 0x152b @0x4
0x1527…1574 at0005 = ╱22╱"╱ // 0x152c @0x5
0x1527…1574 at0006 = ╱50╱P╱ // 0x152d @0x6
0x1527…1574 at0007 = ╱6f╱o╱ // 0x152e @0x7
0x1527…1574 at0008 = ╱73╱s╱ // 0x152f @0x8
0x1527…1574 at0009 = ╱74╱t╱ // 0x1530 @0x9
0x1527…1574 at000a = ╱6e╱n╱ // 0x1531 @0xa
0x1527…1574 at000b = ╱72╱r╱ // 0x1532 @0xb
0x1527…1574 at000c = ╱22╱"╱ // 0x1533 @0xc
0x1527…1574 at000d = ╱eb╱ ; ╱ // 0x1534 @0xd
0x1527…1574 at000e = ╱42╱B╱ // 0x1535 @0xe
0x1527…1574 at000f = ╱4c╱L╱ // 0x1536 @0xf
0x1527…1574 at0010 = ╱41╱A╱ // 0x1537 @0x10
0x1527…1574 at0011 = ╱4e╱N╱ // 0x1538 @0x11
0x1527…1574 at0012 = ╱4b╱K╱ // 0x1539 @0x12
0x1527…1574 at0013 = ╱ef╱ $ ╱ // 0x153a @0x13
0x1527…1574 at0014 = ╱ed╱ ( ╱ // 0x153b @0x14
0x1527…1574 at0015 = ╱31╱1╱ // 0x153c @0x15
0x1527…1574 at0016 = ╱fe00008001╱ // 0x153d @0x16
0x1527…1574 at001b = ╱f0╱ : ╱ // 0x1542 @0x1b
0x1527…1574 at001c = ╱31╱1╱ // 0x1543 @0x1c
0x1527…1574 at001d = ╱32╱2╱ // 0x1544 @0x1d
0x1527…1574 at001e = ╱fe0000c004╱ // 0x1545 @0x1e
0x1527…1574 at0023 = ╱4d╱M╱ // 0x154a @0x23
0x1527…1574 at0024 = ╱4d╱M╱ // 0x154b @0x24
0x1527…1574 at0025 = ╱ee╱ ) ╱ // 0x154c @0x25
0x1527…1574 at0026 = ╱eb╱ ; ╱ // 0x154d @0x26
0x1527…1574 at0027 = ╱22╱"╱ // 0x154e @0x27
0x1527…1574 at0028 = ╱28╱(╱ // 0x154f @0x28
0x1527…1574 at0029 = ╱6d╱m╱ // 0x1550 @0x29
0x1527…1574 at002a = ╱61╱a╱ // 0x1551 @0x2a
0x1527…1574 at002b = ╱78╱x╱ // 0x1552 @0x2b
0x1527…1574 at002c = ╱20╱…╱ // 0x1553 @0x2c
0x1527…1574 at002d = ╱36╱6╱ // 0x1554 @0x2d
0x1527…1574 at002e = ╱20╱…╱ // 0x1555 @0x2e
0x1527…1574 at002f = ╱74╱t╱ // 0x1556 @0x2f
0x1527…1574 at0030 = ╱65╱e╱ // 0x1557 @0x30
0x1527…1574 at0031 = ╱67╱g╱ // 0x1558 @0x31
0x1527…1574 at0032 = ╱6e╱n╱ // 0x1559 @0x32
0x1527…1574 at0033 = ╱29╱)╱ // 0x155a @0x33
0x1527…1574 at0034 = ╱22╱"╱ // 0x155b @0x34
0x1527…1574 at0035 = ╱eb╱ ; ╱ // 0x155c @0x35
0x1527…1574 at0036 = ╱42╱B╱ // 0x155d @0x36
0x1527…1574 at0037 = ╱4c╱L╱ // 0x155e @0x37
0x1527…1574 at0038 = ╱41╱A╱ // 0x155f @0x38
0x1527…1574 at0039 = ╱4e╱N╱ // 0x1560 @0x39
0x1527…1574 at003a = ╱4b╱K╱ // 0x1561 @0x3a
0x1527…1574 at003b = ╱ef╱ $ ╱ // 0x1562 @0x3b
0x1527…1574 at003c = ╱ed╱ ( ╱ // 0x1563 @0x3c
0x1527…1574 at003d = ╱31╱1╱ // 0x1564 @0x3d
0x1527…1574 at003e = ╱fe00008001╱ // 0x1565 @0x3e
0x1527…1574 at0043 = ╱f0╱ : ╱ // 0x156a @0x43
0x1527…1574 at0044 = ╱34╱4╱ // 0x156b @0x44
0x1527…1574 at0045 = ╱35╱5╱ // 0x156c @0x45
0x1527…1574 at0046 = ╱fe0000b406╱ // 0x156d @0x46
0x1527…1574 at004b = ╱ee╱ ) ╱ // 0x1572 @0x4b
0x1527…1574 at004c = EOL // 0x1573 @0x4c
0x1527…1574 }
0x1574…1589 9c4b 1920 CURSOR 13 , 23
0x1574…1589 LineComalBcd {
0x1574…1589 ptr = 0x9c4b // 0x1574 @0x0
0x1574…1589 lno = 0x1920 // 0x1576 @0x2
0x1574…1589 at0004 = ╱a1╱ CURSOR ╱ // 0x1578 @0x4
0x1574…1589 at0005 = ╱31╱1╱ // 0x1579 @0x5
0x1574…1589 at0006 = ╱33╱3╱ // 0x157a @0x6
0x1574…1589 at0007 = ╱fe0000d004╱ // 0x157b @0x7
0x1574…1589 at000c = ╱ec╱ , ╱ // 0x1580 @0xc
0x1574…1589 at000d = ╱32╱2╱ // 0x1581 @0xd
0x1574…1589 at000e = ╱33╱3╱ // 0x1582 @0xe
0x1574…1589 at000f = ╱fe0000b805╱ // 0x1583 @0xf
0x1574…1589 at0014 = EOL // 0x1588 @0x14
0x1574…1589 }
0x1589…1593 9c55 1930 INPUT PNR $
0x1589…1593 LineComalBcd {
0x1589…1593 ptr = 0x9c55 // 0x1589 @0x0
0x1589…1593 lno = 0x1930 // 0x158b @0x2
0x1589…1593 at0004 = ╱91╱ INPUT ╱ // 0x158d @0x4
0x1589…1593 at0005 = ╱50╱P╱ // 0x158e @0x5
0x1589…1593 at0006 = ╱4e╱N╱ // 0x158f @0x6
0x1589…1593 at0007 = ╱52╱R╱ // 0x1590 @0x7
0x1589…1593 at0008 = ╱ef╱ $ ╱ // 0x1591 @0x8
0x1589…1593 at0009 = EOL // 0x1592 @0x9
0x1589…1593 }
0x1593…15a7 9c67 1940 EXEC NMMRTEST ( PNR $ )
0x1593…15a7 LineComalBcd {
0x1593…15a7 ptr = 0x9c67 // 0x1593 @0x0
0x1593…15a7 lno = 0x1940 // 0x1595 @0x2
0x1593…15a7 at0004 = ╱9d╱ EXEC ╱ // 0x1597 @0x4
0x1593…15a7 at0005 = ╱4e╱N╱ // 0x1598 @0x5
0x1593…15a7 at0006 = ╱4d╱M╱ // 0x1599 @0x6
0x1593…15a7 at0007 = ╱4d╱M╱ // 0x159a @0x7
0x1593…15a7 at0008 = ╱52╱R╱ // 0x159b @0x8
0x1593…15a7 at0009 = ╱54╱T╱ // 0x159c @0x9
0x1593…15a7 at000a = ╱45╱E╱ // 0x159d @0xa
0x1593…15a7 at000b = ╱53╱S╱ // 0x159e @0xb
0x1593…15a7 at000c = ╱54╱T╱ // 0x159f @0xc
0x1593…15a7 at000d = ╱ed╱ ( ╱ // 0x15a0 @0xd
0x1593…15a7 at000e = ╱50╱P╱ // 0x15a1 @0xe
0x1593…15a7 at000f = ╱4e╱N╱ // 0x15a2 @0xf
0x1593…15a7 at0010 = ╱52╱R╱ // 0x15a3 @0x10
0x1593…15a7 at0011 = ╱ef╱ $ ╱ // 0x15a4 @0x11
0x1593…15a7 at0012 = ╱ee╱ ) ╱ // 0x15a5 @0x12
0x1593…15a7 at0013 = EOL // 0x15a6 @0x13
0x1593…15a7 }
0x15a7…15e7 9ca7 1950 UNTIL ( ( L > 3 AND L < 7 ) OR ( P = - 1 AND C[ND = 1 ) ) AND TEST2 = 0
0x15a7…15e7 LineComalBcd {
0x15a7…15e7 ptr = 0x9ca7 // 0x15a7 @0x0
0x15a7…15e7 lno = 0x1950 // 0x15a9 @0x2
0x15a7…15e7 at0004 = ╱98╱ UNTIL ╱ // 0x15ab @0x4
0x15a7…15e7 at0005 = ╱ed╱ ( ╱ // 0x15ac @0x5
0x15a7…15e7 at0006 = ╱ed╱ ( ╱ // 0x15ad @0x6
0x15a7…15e7 at0007 = ╱4c╱L╱ // 0x15ae @0x7
0x15a7…15e7 at0008 = ╱de╱ > ╱ // 0x15af @0x8
0x15a7…15e7 at0009 = ╱33╱3╱ // 0x15b0 @0x9
0x15a7…15e7 at000a = ╱fe0000c002╱ // 0x15b1 @0xa
0x15a7…15e7 at000f = ╱da╱ AND ╱ // 0x15b6 @0xf
0x15a7…15e7 at0010 = ╱4c╱L╱ // 0x15b7 @0x10
0x15a7…15e7 at0011 = ╱dd╱ < ╱ // 0x15b8 @0x11
0x15a7…15e7 at0012 = ╱37╱7╱ // 0x15b9 @0x12
0x15a7…15e7 at0013 = ╱fe0000e003╱ // 0x15ba @0x13
0x15a7…15e7 at0018 = ╱ee╱ ) ╱ // 0x15bf @0x18
0x15a7…15e7 at0019 = ╱db╱ OR ╱ // 0x15c0 @0x19
0x15a7…15e7 at001a = ╱ed╱ ( ╱ // 0x15c1 @0x1a
0x15a7…15e7 at001b = ╱50╱P╱ // 0x15c2 @0x1b
0x15a7…15e7 at001c = ╱dc╱ = ╱ // 0x15c3 @0x1c
0x15a7…15e7 at001d = ╱e9╱ - ╱ // 0x15c4 @0x1d
0x15a7…15e7 at001e = ╱31╱1╱ // 0x15c5 @0x1e
0x15a7…15e7 at001f = ╱fe00008001╱ // 0x15c6 @0x1f
0x15a7…15e7 at0024 = ╱da╱ AND ╱ // 0x15cb @0x24
0x15a7…15e7 at0025 = ╱43╱C╱ // 0x15cc @0x25
0x15a7…15e7 at0026 = ╱5b╱[╱ // 0x15cd @0x26
0x15a7…15e7 at0027 = ╱4e╱N╱ // 0x15ce @0x27
0x15a7…15e7 at0028 = ╱44╱D╱ // 0x15cf @0x28
0x15a7…15e7 at0029 = ╱dc╱ = ╱ // 0x15d0 @0x29
0x15a7…15e7 at002a = ╱31╱1╱ // 0x15d1 @0x2a
0x15a7…15e7 at002b = ╱fe00008001╱ // 0x15d2 @0x2b
0x15a7…15e7 at0030 = ╱ee╱ ) ╱ // 0x15d7 @0x30
0x15a7…15e7 at0031 = ╱ee╱ ) ╱ // 0x15d8 @0x31
0x15a7…15e7 at0032 = ╱da╱ AND ╱ // 0x15d9 @0x32
0x15a7…15e7 at0033 = ╱54╱T╱ // 0x15da @0x33
0x15a7…15e7 at0034 = ╱45╱E╱ // 0x15db @0x34
0x15a7…15e7 at0035 = ╱53╱S╱ // 0x15dc @0x35
0x15a7…15e7 at0036 = ╱54╱T╱ // 0x15dd @0x36
0x15a7…15e7 at0037 = ╱32╱2╱ // 0x15de @0x37
0x15a7…15e7 at0038 = ╱dc╱ = ╱ // 0x15df @0x38
0x15a7…15e7 at0039 = ╱30╱0╱ // 0x15e0 @0x39
0x15a7…15e7 at003a = ╱fe00000000╱ // 0x15e1 @0x3a
0x15a7…15e7 at003f = EOL // 0x15e6 @0x3f
0x15a7…15e7 }
0x15e7…1604 4dc2 4d9c ╱19╱ ` IF P >< - 1 THEN DEBPOSTNR = P
0x15e7…1604 LineComalBcd {
0x15e7…1604 ptr = 0x4dc2 // 0x15e7 @0x0
0x15e7…1604 lno = 0x4d9c // 0x15e9 @0x2
0x15e7…1604 at0004 = ╱19╱ // 0x15eb @0x4
0x15e7…1604 at0005 = ╱60╱`╱ // 0x15ec @0x5
0x15e7…1604 at0006 = ╱82╱ IF ╱ // 0x15ed @0x6
0x15e7…1604 at0007 = ╱50╱P╱ // 0x15ee @0x7
0x15e7…1604 at0008 = ╱e1╱ >< ╱ // 0x15ef @0x8
0x15e7…1604 at0009 = ╱e9╱ - ╱ // 0x15f0 @0x9
0x15e7…1604 at000a = ╱31╱1╱ // 0x15f1 @0xa
0x15e7…1604 at000b = ╱fe00008001╱ // 0x15f2 @0xb
0x15e7…1604 at0010 = ╱b6╱ THEN ╱ // 0x15f7 @0x10
0x15e7…1604 at0011 = ╱44╱D╱ // 0x15f8 @0x11
0x15e7…1604 at0012 = ╱45╱E╱ // 0x15f9 @0x12
0x15e7…1604 at0013 = ╱42╱B╱ // 0x15fa @0x13
0x15e7…1604 at0014 = ╱50╱P╱ // 0x15fb @0x14
0x15e7…1604 at0015 = ╱4f╱O╱ // 0x15fc @0x15
0x15e7…1604 at0016 = ╱53╱S╱ // 0x15fd @0x16
0x15e7…1604 at0017 = ╱54╱T╱ // 0x15fe @0x17
0x15e7…1604 at0018 = ╱4e╱N╱ // 0x15ff @0x18
0x15e7…1604 at0019 = ╱52╱R╱ // 0x1600 @0x19
0x15e7…1604 at001a = ╱dc╱ = ╱ // 0x1601 @0x1a
0x15e7…1604 at001b = ╱50╱P╱ // 0x1602 @0x1b
0x15e7…1604 at001c = EOL // 0x1603 @0x1c
0x15e7…1604 }
0x1604…160a 9cc8 1970 ENDIF
0x1604…160a LineComalBcd {
0x1604…160a ptr = 0x9cc8 // 0x1604 @0x0
0x1604…160a lno = 0x1970 // 0x1606 @0x2
0x1604…160a at0004 = ╱9b╱ ENDIF ╱ // 0x1608 @0x4
0x1604…160a at0005 = EOL // 0x1609 @0x5
0x1604…160a }
0x160a…161e 9cdc 1980 CURSOR 16 , 6
0x160a…161e LineComalBcd {
0x160a…161e ptr = 0x9cdc // 0x160a @0x0
0x160a…161e lno = 0x1980 // 0x160c @0x2
0x160a…161e at0004 = ╱a1╱ CURSOR ╱ // 0x160e @0x4
0x160a…161e at0005 = ╱31╱1╱ // 0x160f @0x5
0x160a…161e at0006 = ╱36╱6╱ // 0x1610 @0x6
0x160a…161e at0007 = ╱fe00008005╱ // 0x1611 @0x7
0x160a…161e at000c = ╱ec╱ , ╱ // 0x1616 @0xc
0x160a…161e at000d = ╱36╱6╱ // 0x1617 @0xd
0x160a…161e at000e = ╱fe0000c003╱ // 0x1618 @0xe
0x160a…161e at0013 = EOL // 0x161d @0x13
0x160a…161e }
0x161e…163b 9cf7 1990 PRINT BLANK $ ( 1 : 6MM )
0x161e…163b LineComalBcd {
0x161e…163b ptr = 0x9cf7 // 0x161e @0x0
0x161e…163b lno = 0x1990 // 0x1620 @0x2
0x161e…163b at0004 = ╱92╱ PRINT ╱ // 0x1622 @0x4
0x161e…163b at0005 = ╱42╱B╱ // 0x1623 @0x5
0x161e…163b at0006 = ╱4c╱L╱ // 0x1624 @0x6
0x161e…163b at0007 = ╱41╱A╱ // 0x1625 @0x7
0x161e…163b at0008 = ╱4e╱N╱ // 0x1626 @0x8
0x161e…163b at0009 = ╱4b╱K╱ // 0x1627 @0x9
0x161e…163b at000a = ╱ef╱ $ ╱ // 0x1628 @0xa
0x161e…163b at000b = ╱ed╱ ( ╱ // 0x1629 @0xb
0x161e…163b at000c = ╱31╱1╱ // 0x162a @0xc
0x161e…163b at000d = ╱fe00008001╱ // 0x162b @0xd
0x161e…163b at0012 = ╱f0╱ : ╱ // 0x1630 @0x12
0x161e…163b at0013 = ╱36╱6╱ // 0x1631 @0x13
0x161e…163b at0014 = ╱fe0000c003╱ // 0x1632 @0x14
0x161e…163b at0019 = ╱4d╱M╱ // 0x1637 @0x19
0x161e…163b at001a = ╱4d╱M╱ // 0x1638 @0x1a
0x161e…163b at001b = ╱ee╱ ) ╱ // 0x1639 @0x1b
0x161e…163b at001c = EOL // 0x163a @0x1c
0x161e…163b }
0x163b…164f 9d0b 2000 CURSOR 16 , 6
0x163b…164f LineComalBcd {
0x163b…164f ptr = 0x9d0b // 0x163b @0x0
0x163b…164f lno = 0x2000 // 0x163d @0x2
0x163b…164f at0004 = ╱a1╱ CURSOR ╱ // 0x163f @0x4
0x163b…164f at0005 = ╱31╱1╱ // 0x1640 @0x5
0x163b…164f at0006 = ╱36╱6╱ // 0x1641 @0x6
0x163b…164f at0007 = ╱fe00008005╱ // 0x1642 @0x7
0x163b…164f at000c = ╱ec╱ , ╱ // 0x1647 @0xc
0x163b…164f at000d = ╱36╱6╱ // 0x1648 @0xd
0x163b…164f at000e = ╱fe0000c003╱ // 0x1649 @0xe
0x163b…164f at0013 = EOL // 0x164e @0x13
0x163b…164f }
0x164f…165e 9d1a 2010 PRINT DEBPOSTNR
0x164f…165e LineComalBcd {
0x164f…165e ptr = 0x9d1a // 0x164f @0x0
0x164f…165e lno = 0x2010 // 0x1651 @0x2
0x164f…165e at0004 = ╱92╱ PRINT ╱ // 0x1653 @0x4
0x164f…165e at0005 = ╱44╱D╱ // 0x1654 @0x5
0x164f…165e at0006 = ╱45╱E╱ // 0x1655 @0x6
0x164f…165e at0007 = ╱42╱B╱ // 0x1656 @0x7
0x164f…165e at0008 = ╱50╱P╱ // 0x1657 @0x8
0x164f…165e at0009 = ╱4f╱O╱ // 0x1658 @0x9
0x164f…165e at000a = ╱53╱S╱ // 0x1659 @0xa
0x164f…165e at000b = ╱54╱T╱ // 0x165a @0xb
0x164f…165e at000c = ╱4e╱N╱ // 0x165b @0xc
0x164f…165e at000d = ╱52╱R╱ // 0x165c @0xd
0x164f…165e at000e = EOL // 0x165d @0xe
0x164f…165e }
0x165e…166b 9d27 2020 WHEN 5
0x165e…166b LineComalBcd {
0x165e…166b ptr = 0x9d27 // 0x165e @0x0
0x165e…166b lno = 0x2020 // 0x1660 @0x2
0x165e…166b at0004 = ╱a301╱ WHEN ╱ // 0x1662 @0x4
0x165e…166b at0006 = ╱35╱5╱ // 0x1664 @0x6
0x165e…166b at0007 = ╱fe0000a003╱ // 0x1665 @0x7
0x165e…166b at000c = EOL // 0x166a @0xc
0x165e…166b }
0x166b…167d 9d39 2030 IF C[ND >< 1 THEN
0x166b…167d LineComalBcd {
0x166b…167d ptr = 0x9d39 // 0x166b @0x0
0x166b…167d lno = 0x2030 // 0x166d @0x2
0x166b…167d at0004 = ╱9c╱ IF ╱ // 0x166f @0x4
0x166b…167d at0005 = ╱43╱C╱ // 0x1670 @0x5
0x166b…167d at0006 = ╱5b╱[╱ // 0x1671 @0x6
0x166b…167d at0007 = ╱4e╱N╱ // 0x1672 @0x7
0x166b…167d at0008 = ╱44╱D╱ // 0x1673 @0x8
0x166b…167d at0009 = ╱e1╱ >< ╱ // 0x1674 @0x9
0x166b…167d at000a = ╱31╱1╱ // 0x1675 @0xa
0x166b…167d at000b = ╱fe00008001╱ // 0x1676 @0xb
0x166b…167d at0010 = ╱b6╱ THEN ╱ // 0x167b @0x10
0x166b…167d at0011 = EOL // 0x167c @0x11
0x166b…167d }
0x167d…1692 9d4c 2040 CURSOR 2 ╱80╱ ╱02╱ , 7
0x167d…1692 LineComalBcd {
0x167d…1692 ptr = 0x9d4c // 0x167d @0x0
0x167d…1692 lno = 0x2040 // 0x167f @0x2
0x167d…1692 at0004 = ╱a1╱ CURSOR ╱ // 0x1681 @0x4
0x167d…1692 at0005 = ╱32╱2╱ // 0x1682 @0x5
0x167d…1692 at0006 = ╱fe00004d4d╱ // 0x1683 @0x6
0x167d…1692 at000b = ╱80╱ // 0x1688 @0xb
0x167d…1692 at000c = ╱02╱ // 0x1689 @0xc
0x167d…1692 at000d = ╱ec╱ , ╱ // 0x168a @0xd
0x167d…1692 at000e = ╱37╱7╱ // 0x168b @0xe
0x167d…1692 at000f = ╱fe0000e003╱ // 0x168c @0xf
0x167d…1692 at0014 = EOL // 0x1691 @0x14
0x167d…1692 }
0x1692…16a7 9d61 2050 PRINT "5:By……………………:"
0x1692…16a7 LineComalBcd {
0x1692…16a7 ptr = 0x9d61 // 0x1692 @0x0
0x1692…16a7 lno = 0x2050 // 0x1694 @0x2
0x1692…16a7 at0004 = ╱92╱ PRINT ╱ // 0x1696 @0x4
0x1692…16a7 at0005 = ╱22╱"╱ // 0x1697 @0x5
0x1692…16a7 at0006 = ╱35╱5╱ // 0x1698 @0x6
0x1692…16a7 at0007 = ╱3a╱:╱ // 0x1699 @0x7
0x1692…16a7 at0008 = ╱42╱B╱ // 0x169a @0x8
0x1692…16a7 at0009 = ╱79╱y╱ // 0x169b @0x9
0x1692…16a7 at000a = ╱20╱…╱ // 0x169c @0xa
0x1692…16a7 at000b = ╱20╱…╱ // 0x169d @0xb
0x1692…16a7 at000c = ╱20╱…╱ // 0x169e @0xc
0x1692…16a7 at000d = ╱20╱…╱ // 0x169f @0xd
0x1692…16a7 at000e = ╱20╱…╱ // 0x16a0 @0xe
0x1692…16a7 at000f = ╱20╱…╱ // 0x16a1 @0xf
0x1692…16a7 at0010 = ╱20╱…╱ // 0x16a2 @0x10
0x1692…16a7 at0011 = ╱20╱…╱ // 0x16a3 @0x11
0x1692…16a7 at0012 = ╱3a╱:╱ // 0x16a4 @0x12
0x1692…16a7 at0013 = ╱22╱"╱ // 0x16a5 @0x13
0x1692…16a7 at0014 = EOL // 0x16a6 @0x14
0x1692…16a7 }
0x16a7…16b8 9d72 2060 DSTYR = 6
0x16a7…16b8 LineComalBcd {
0x16a7…16b8 ptr = 0x9d72 // 0x16a7 @0x0
0x16a7…16b8 lno = 0x2060 // 0x16a9 @0x2
0x16a7…16b8 at0004 = ╱44╱D╱ // 0x16ab @0x4
0x16a7…16b8 at0005 = ╱53╱S╱ // 0x16ac @0x5
0x16a7…16b8 at0006 = ╱54╱T╱ // 0x16ad @0x6
0x16a7…16b8 at0007 = ╱59╱Y╱ // 0x16ae @0x7
0x16a7…16b8 at0008 = ╱52╱R╱ // 0x16af @0x8
0x16a7…16b8 at0009 = ╱dc╱ = ╱ // 0x16b0 @0x9
0x16a7…16b8 at000a = ╱36╱6╱ // 0x16b1 @0xa
0x16a7…16b8 at000b = ╱fe0000c003╱ // 0x16b2 @0xb
0x16a7…16b8 at0010 = EOL // 0x16b7 @0x10
0x16a7…16b8 }
0x16b8…16be 9d78 2070 ENDIF
0x16b8…16be LineComalBcd {
0x16b8…16be ptr = 0x9d78 // 0x16b8 @0x0
0x16b8…16be lno = 0x2070 // 0x16ba @0x2
0x16b8…16be at0004 = ╱9b╱ ENDIF ╱ // 0x16bc @0x4
0x16b8…16be at0005 = EOL // 0x16bd @0x5
0x16b8…16be }
0x16be…16d0 9d8a 2080 IF C[ND >< 2 THEN
0x16be…16d0 LineComalBcd {
0x16be…16d0 ptr = 0x9d8a // 0x16be @0x0
0x16be…16d0 lno = 0x2080 // 0x16c0 @0x2
0x16be…16d0 at0004 = ╱9c╱ IF ╱ // 0x16c2 @0x4
0x16be…16d0 at0005 = ╱43╱C╱ // 0x16c3 @0x5
0x16be…16d0 at0006 = ╱5b╱[╱ // 0x16c4 @0x6
0x16be…16d0 at0007 = ╱4e╱N╱ // 0x16c5 @0x7
0x16be…16d0 at0008 = ╱44╱D╱ // 0x16c6 @0x8
0x16be…16d0 at0009 = ╱e1╱ >< ╱ // 0x16c7 @0x9
0x16be…16d0 at000a = ╱32╱2╱ // 0x16c8 @0xa
0x16be…16d0 at000b = ╱fe00008002╱ // 0x16c9 @0xb
0x16be…16d0 at0010 = ╱b6╱ THEN ╱ // 0x16ce @0x10
0x16be…16d0 at0011 = EOL // 0x16cf @0x11
0x16be…16d0 }
0x16d0…16e6 9d9e 2090 CURSOR MM3 , 23
0x16d0…16e6 LineComalBcd {
0x16d0…16e6 ptr = 0x9d9e // 0x16d0 @0x0
0x16d0…16e6 lno = 0x2090 // 0x16d2 @0x2
0x16d0…16e6 at0004 = ╱a1╱ CURSOR ╱ // 0x16d4 @0x4
0x16d0…16e6 at0005 = ╱4d╱M╱ // 0x16d5 @0x5
0x16d0…16e6 at0006 = ╱4d╱M╱ // 0x16d6 @0x6
0x16d0…16e6 at0007 = ╱33╱3╱ // 0x16d7 @0x7
0x16d0…16e6 at0008 = ╱fe0000c002╱ // 0x16d8 @0x8
0x16d0…16e6 at000d = ╱ec╱ , ╱ // 0x16dd @0xd
0x16d0…16e6 at000e = ╱32╱2╱ // 0x16de @0xe
0x16d0…16e6 at000f = ╱33╱3╱ // 0x16df @0xf
0x16d0…16e6 at0010 = ╱fe0000b805╱ // 0x16e0 @0x10
0x16d0…16e6 at0015 = EOL // 0x16e5 @0x15
0x16d0…16e6 }
0x16e6…1730 9de6 2100 PRINT "By" ; BLANK $ ( 1 : 30 ) ; "(max…20…tegn)" ; BLANK $ ( 1MM : 31 )
0x16e6…1730 LineComalBcd {
0x16e6…1730 ptr = 0x9de6 // 0x16e6 @0x0
0x16e6…1730 lno = 0x2100 // 0x16e8 @0x2
0x16e6…1730 at0004 = ╱92╱ PRINT ╱ // 0x16ea @0x4
0x16e6…1730 at0005 = ╱22╱"╱ // 0x16eb @0x5
0x16e6…1730 at0006 = ╱42╱B╱ // 0x16ec @0x6
0x16e6…1730 at0007 = ╱79╱y╱ // 0x16ed @0x7
0x16e6…1730 at0008 = ╱22╱"╱ // 0x16ee @0x8
0x16e6…1730 at0009 = ╱eb╱ ; ╱ // 0x16ef @0x9
0x16e6…1730 at000a = ╱42╱B╱ // 0x16f0 @0xa
0x16e6…1730 at000b = ╱4c╱L╱ // 0x16f1 @0xb
0x16e6…1730 at000c = ╱41╱A╱ // 0x16f2 @0xc
0x16e6…1730 at000d = ╱4e╱N╱ // 0x16f3 @0xd
0x16e6…1730 at000e = ╱4b╱K╱ // 0x16f4 @0xe
0x16e6…1730 at000f = ╱ef╱ $ ╱ // 0x16f5 @0xf
0x16e6…1730 at0010 = ╱ed╱ ( ╱ // 0x16f6 @0x10
0x16e6…1730 at0011 = ╱31╱1╱ // 0x16f7 @0x11
0x16e6…1730 at0012 = ╱fe00008001╱ // 0x16f8 @0x12
0x16e6…1730 at0017 = ╱f0╱ : ╱ // 0x16fd @0x17
0x16e6…1730 at0018 = ╱33╱3╱ // 0x16fe @0x18
0x16e6…1730 at0019 = ╱30╱0╱ // 0x16ff @0x19
0x16e6…1730 at001a = ╱fe0000f005╱ // 0x1700 @0x1a
0x16e6…1730 at001f = ╱ee╱ ) ╱ // 0x1705 @0x1f
0x16e6…1730 at0020 = ╱eb╱ ; ╱ // 0x1706 @0x20
0x16e6…1730 at0021 = ╱22╱"╱ // 0x1707 @0x21
0x16e6…1730 at0022 = ╱28╱(╱ // 0x1708 @0x22
0x16e6…1730 at0023 = ╱6d╱m╱ // 0x1709 @0x23
0x16e6…1730 at0024 = ╱61╱a╱ // 0x170a @0x24
0x16e6…1730 at0025 = ╱78╱x╱ // 0x170b @0x25
0x16e6…1730 at0026 = ╱20╱…╱ // 0x170c @0x26
0x16e6…1730 at0027 = ╱32╱2╱ // 0x170d @0x27
0x16e6…1730 at0028 = ╱30╱0╱ // 0x170e @0x28
0x16e6…1730 at0029 = ╱20╱…╱ // 0x170f @0x29
0x16e6…1730 at002a = ╱74╱t╱ // 0x1710 @0x2a
0x16e6…1730 at002b = ╱65╱e╱ // 0x1711 @0x2b
0x16e6…1730 at002c = ╱67╱g╱ // 0x1712 @0x2c
0x16e6…1730 at002d = ╱6e╱n╱ // 0x1713 @0x2d
0x16e6…1730 at002e = ╱29╱)╱ // 0x1714 @0x2e
0x16e6…1730 at002f = ╱22╱"╱ // 0x1715 @0x2f
0x16e6…1730 at0030 = ╱eb╱ ; ╱ // 0x1716 @0x30
0x16e6…1730 at0031 = ╱42╱B╱ // 0x1717 @0x31
0x16e6…1730 at0032 = ╱4c╱L╱ // 0x1718 @0x32
0x16e6…1730 at0033 = ╱41╱A╱ // 0x1719 @0x33
0x16e6…1730 at0034 = ╱4e╱N╱ // 0x171a @0x34
0x16e6…1730 at0035 = ╱4b╱K╱ // 0x171b @0x35
0x16e6…1730 at0036 = ╱ef╱ $ ╱ // 0x171c @0x36
0x16e6…1730 at0037 = ╱ed╱ ( ╱ // 0x171d @0x37
0x16e6…1730 at0038 = ╱31╱1╱ // 0x171e @0x38
0x16e6…1730 at0039 = ╱fe00008001╱ // 0x171f @0x39
0x16e6…1730 at003e = ╱4d╱M╱ // 0x1724 @0x3e
0x16e6…1730 at003f = ╱4d╱M╱ // 0x1725 @0x3f
0x16e6…1730 at0040 = ╱f0╱ : ╱ // 0x1726 @0x40
0x16e6…1730 at0041 = ╱33╱3╱ // 0x1727 @0x41
0x16e6…1730 at0042 = ╱31╱1╱ // 0x1728 @0x42
0x16e6…1730 at0043 = ╱fe0000f805╱ // 0x1729 @0x43
0x16e6…1730 at0048 = ╱ee╱ ) ╱ // 0x172e @0x48
0x16e6…1730 at0049 = EOL // 0x172f @0x49
0x16e6…1730 }
0x1730…1745 9dfb 2110 CURSOR 13 , 23
0x1730…1745 LineComalBcd {
0x1730…1745 ptr = 0x9dfb // 0x1730 @0x0
0x1730…1745 lno = 0x2110 // 0x1732 @0x2
0x1730…1745 at0004 = ╱a1╱ CURSOR ╱ // 0x1734 @0x4
0x1730…1745 at0005 = ╱31╱1╱ // 0x1735 @0x5
0x1730…1745 at0006 = ╱33╱3╱ // 0x1736 @0x6
0x1730…1745 at0007 = ╱fe0000d004╱ // 0x1737 @0x7
0x1730…1745 at000c = ╱ec╱ , ╱ // 0x173c @0xc
0x1730…1745 at000d = ╱32╱2╱ // 0x173d @0xd
0x1730…1745 at000e = ╱33╱3╱ // 0x173e @0xe
0x1730…1745 at000f = ╱fe0000b805╱ // 0x173f @0xf
0x1730…1745 at0014 = EOL // 0x1744 @0x14
0x1730…1745 }
0x1745…1751 9e07 2120 INPUT DEBBY $
0x1745…1751 LineComalBcd {
0x1745…1751 ptr = 0x9e07 // 0x1745 @0x0
0x1745…1751 lno = 0x2120 // 0x1747 @0x2
0x1745…1751 at0004 = ╱91╱ INPUT ╱ // 0x1749 @0x4
0x1745…1751 at0005 = ╱44╱D╱ // 0x174a @0x5
0x1745…1751 at0006 = ╱45╱E╱ // 0x174b @0x6
0x1745…1751 at0007 = ╱42╱B╱ // 0x174c @0x7
0x1745…1751 at0008 = ╱42╱B╱ // 0x174d @0x8
0x1745…1751 at0009 = ╱59╱Y╱ // 0x174e @0x9
0x1745…1751 at000a = ╱ef╱ $ ╱ // 0x174f @0xa
0x1745…1751 at000b = EOL // 0x1750 @0xb
0x1745…1751 }
0x1751…1757 9e0d 2130 ENDIF
0x1751…1757 LineComalBcd {
0x1751…1757 ptr = 0x9e0d // 0x1751 @0x0
0x1751…1757 lno = 0x2130 // 0x1753 @0x2
0x1751…1757 at0004 = ╱9b╱ ENDIF ╱ // 0x1755 @0x4
0x1751…1757 at0005 = EOL // 0x1756 @0x5
0x1751…1757 }
0x1757…176b 9e21 2140 CURSOR 16 , 7
0x1757…176b LineComalBcd {
0x1757…176b ptr = 0x9e21 // 0x1757 @0x0
0x1757…176b lno = 0x2140 // 0x1759 @0x2
0x1757…176b at0004 = ╱a1╱ CURSOR ╱ // 0x175b @0x4
0x1757…176b at0005 = ╱31╱1╱ // 0x175c @0x5
0x1757…176b at0006 = ╱36╱6╱ // 0x175d @0x6
0x1757…176b at0007 = ╱fe00008005╱ // 0x175e @0x7
0x1757…176b at000c = ╱ec╱ , ╱ // 0x1763 @0xc
0x1757…176b at000d = ╱37╱7╱ // 0x1764 @0xd
0x1757…176b at000e = ╱fe0000e003╱ // 0x1765 @0xe
0x1757…176b at0013 = EOL // 0x176a @0x13
0x1757…176b }
0x176b…1789 9e3d 2150 PRINT BLAMMNK $ ( 1 : 20 )
0x176b…1789 LineComalBcd {
0x176b…1789 ptr = 0x9e3d // 0x176b @0x0
0x176b…1789 lno = 0x2150 // 0x176d @0x2
0x176b…1789 at0004 = ╱92╱ PRINT ╱ // 0x176f @0x4
0x176b…1789 at0005 = ╱42╱B╱ // 0x1770 @0x5
0x176b…1789 at0006 = ╱4c╱L╱ // 0x1771 @0x6
0x176b…1789 at0007 = ╱41╱A╱ // 0x1772 @0x7
0x176b…1789 at0008 = ╱4d╱M╱ // 0x1773 @0x8
0x176b…1789 at0009 = ╱4d╱M╱ // 0x1774 @0x9
0x176b…1789 at000a = ╱4e╱N╱ // 0x1775 @0xa
0x176b…1789 at000b = ╱4b╱K╱ // 0x1776 @0xb
0x176b…1789 at000c = ╱ef╱ $ ╱ // 0x1777 @0xc
0x176b…1789 at000d = ╱ed╱ ( ╱ // 0x1778 @0xd
0x176b…1789 at000e = ╱31╱1╱ // 0x1779 @0xe
0x176b…1789 at000f = ╱fe00008001╱ // 0x177a @0xf
0x176b…1789 at0014 = ╱f0╱ : ╱ // 0x177f @0x14
0x176b…1789 at0015 = ╱32╱2╱ // 0x1780 @0x15
0x176b…1789 at0016 = ╱30╱0╱ // 0x1781 @0x16
0x176b…1789 at0017 = ╱fe0000a005╱ // 0x1782 @0x17
0x176b…1789 at001c = ╱ee╱ ) ╱ // 0x1787 @0x1c
0x176b…1789 at001d = EOL // 0x1788 @0x1d
0x176b…1789 }
0x1789…179d 9e51 2160 CURSOR 16 , 7
0x1789…179d LineComalBcd {
0x1789…179d ptr = 0x9e51 // 0x1789 @0x0
0x1789…179d lno = 0x2160 // 0x178b @0x2
0x1789…179d at0004 = ╱a1╱ CURSOR ╱ // 0x178d @0x4
0x1789…179d at0005 = ╱31╱1╱ // 0x178e @0x5
0x1789…179d at0006 = ╱36╱6╱ // 0x178f @0x6
0x1789…179d at0007 = ╱fe00008005╱ // 0x1790 @0x7
0x1789…179d at000c = ╱ec╱ , ╱ // 0x1795 @0xc
0x1789…179d at000d = ╱37╱7╱ // 0x1796 @0xd
0x1789…179d at000e = ╱fe0000e003╱ // 0x1797 @0xe
0x1789…179d at0013 = EOL // 0x179c @0x13
0x1789…179d }
0x179d…17a9 9e5d 2170 PRINT DEBBY $
0x179d…17a9 LineComalBcd {
0x179d…17a9 ptr = 0x9e5d // 0x179d @0x0
0x179d…17a9 lno = 0x2170 // 0x179f @0x2
0x179d…17a9 at0004 = ╱92╱ PRINT ╱ // 0x17a1 @0x4
0x179d…17a9 at0005 = ╱44╱D╱ // 0x17a2 @0x5
0x179d…17a9 at0006 = ╱45╱E╱ // 0x17a3 @0x6
0x179d…17a9 at0007 = ╱42╱B╱ // 0x17a4 @0x7
0x179d…17a9 at0008 = ╱42╱B╱ // 0x17a5 @0x8
0x179d…17a9 at0009 = ╱59╱Y╱ // 0x17a6 @0x9
0x179d…17a9 at000a = ╱ef╱ $ ╱ // 0x17a7 @0xa
0x179d…17a9 at000b = EOL // 0x17a8 @0xb
0x179d…17a9 }
0x17a9…17b6 9e6a 2180 WHEN 6
0x17a9…17b6 LineComalBcd {
0x17a9…17b6 ptr = 0x9e6a // 0x17a9 @0x0
0x17a9…17b6 lno = 0x2180 // 0x17ab @0x2
0x17a9…17b6 at0004 = ╱a301╱ WHEN ╱ // 0x17ad @0x4
0x17a9…17b6 at0006 = ╱36╱6╱ // 0x17af @0x6
0x17a9…17b6 at0007 = ╱fe0000c003╱ // 0x17b0 @0x7
0x17a9…17b6 at000c = EOL // 0x17b5 @0xc
0x17a9…17b6 }
0x17b6…17ca 9e7c 2190 IF C[ND >< 1 ╱80╱ ╱01╱ THEN
0x17b6…17ca LineComalBcd {
0x17b6…17ca ptr = 0x9e7c // 0x17b6 @0x0
0x17b6…17ca lno = 0x2190 // 0x17b8 @0x2
0x17b6…17ca at0004 = ╱9c╱ IF ╱ // 0x17ba @0x4
0x17b6…17ca at0005 = ╱43╱C╱ // 0x17bb @0x5
0x17b6…17ca at0006 = ╱5b╱[╱ // 0x17bc @0x6
0x17b6…17ca at0007 = ╱4e╱N╱ // 0x17bd @0x7
0x17b6…17ca at0008 = ╱44╱D╱ // 0x17be @0x8
0x17b6…17ca at0009 = ╱e1╱ >< ╱ // 0x17bf @0x9
0x17b6…17ca at000a = ╱31╱1╱ // 0x17c0 @0xa
0x17b6…17ca at000b = ╱fe4d4d0000╱ // 0x17c1 @0xb
0x17b6…17ca at0010 = ╱80╱ // 0x17c6 @0x10
0x17b6…17ca at0011 = ╱01╱ // 0x17c7 @0x11
0x17b6…17ca at0012 = ╱b6╱ THEN ╱ // 0x17c8 @0x12
0x17b6…17ca at0013 = EOL // 0x17c9 @0x13
0x17b6…17ca }
0x17ca…17dd 9e8f 2200 CURSOR 2 , 8
0x17ca…17dd LineComalBcd {
0x17ca…17dd ptr = 0x9e8f // 0x17ca @0x0
0x17ca…17dd lno = 0x2200 // 0x17cc @0x2
0x17ca…17dd at0004 = ╱a1╱ CURSOR ╱ // 0x17ce @0x4
0x17ca…17dd at0005 = ╱32╱2╱ // 0x17cf @0x5
0x17ca…17dd at0006 = ╱fe00008002╱ // 0x17d0 @0x6
0x17ca…17dd at000b = ╱ec╱ , ╱ // 0x17d5 @0xb
0x17ca…17dd at000c = ╱38╱8╱ // 0x17d6 @0xc
0x17ca…17dd at000d = ╱fe00008004╱ // 0x17d7 @0xd
0x17ca…17dd at0012 = EOL // 0x17dc @0x12
0x17ca…17dd }
0x17dd…17fc 9eae 2210 PRINT "6:Landekode…:……………Land:"
0x17dd…17fc LineComalBcd {
0x17dd…17fc ptr = 0x9eae // 0x17dd @0x0
0x17dd…17fc lno = 0x2210 // 0x17df @0x2
0x17dd…17fc at0004 = ╱92╱ PRINT ╱ // 0x17e1 @0x4
0x17dd…17fc at0005 = ╱22╱"╱ // 0x17e2 @0x5
0x17dd…17fc at0006 = ╱36╱6╱ // 0x17e3 @0x6
0x17dd…17fc at0007 = ╱3a╱:╱ // 0x17e4 @0x7
0x17dd…17fc at0008 = ╱4c╱L╱ // 0x17e5 @0x8
0x17dd…17fc at0009 = ╱61╱a╱ // 0x17e6 @0x9
0x17dd…17fc at000a = ╱6e╱n╱ // 0x17e7 @0xa
0x17dd…17fc at000b = ╱64╱d╱ // 0x17e8 @0xb
0x17dd…17fc at000c = ╱65╱e╱ // 0x17e9 @0xc
0x17dd…17fc at000d = ╱6b╱k╱ // 0x17ea @0xd
0x17dd…17fc at000e = ╱6f╱o╱ // 0x17eb @0xe
0x17dd…17fc at000f = ╱64╱d╱ // 0x17ec @0xf
0x17dd…17fc at0010 = ╱65╱e╱ // 0x17ed @0x10
0x17dd…17fc at0011 = ╱20╱…╱ // 0x17ee @0x11
0x17dd…17fc at0012 = ╱3a╱:╱ // 0x17ef @0x12
0x17dd…17fc at0013 = ╱20╱…╱ // 0x17f0 @0x13
0x17dd…17fc at0014 = ╱20╱…╱ // 0x17f1 @0x14
0x17dd…17fc at0015 = ╱20╱…╱ // 0x17f2 @0x15
0x17dd…17fc at0016 = ╱20╱…╱ // 0x17f3 @0x16
0x17dd…17fc at0017 = ╱20╱…╱ // 0x17f4 @0x17
0x17dd…17fc at0018 = ╱4c╱L╱ // 0x17f5 @0x18
0x17dd…17fc at0019 = ╱61╱a╱ // 0x17f6 @0x19
0x17dd…17fc at001a = ╱6e╱n╱ // 0x17f7 @0x1a
0x17dd…17fc at001b = ╱64╱d╱ // 0x17f8 @0x1b
0x17dd…17fc at001c = ╱3a╱:╱ // 0x17f9 @0x1c
0x17dd…17fc at001d = ╱22╱"╱ // 0x17fa @0x1d
0x17dd…17fc at001e = EOL // 0x17fb @0x1e
0x17dd…17fc }
0x17fc…180d 9ebf 2220 DSTYR = 7
0x17fc…180d LineComalBcd {
0x17fc…180d ptr = 0x9ebf // 0x17fc @0x0
0x17fc…180d lno = 0x2220 // 0x17fe @0x2
0x17fc…180d at0004 = ╱44╱D╱ // 0x1800 @0x4
0x17fc…180d at0005 = ╱53╱S╱ // 0x1801 @0x5
0x17fc…180d at0006 = ╱54╱T╱ // 0x1802 @0x6
0x17fc…180d at0007 = ╱59╱Y╱ // 0x1803 @0x7
0x17fc…180d at0008 = ╱52╱R╱ // 0x1804 @0x8
0x17fc…180d at0009 = ╱dc╱ = ╱ // 0x1805 @0x9
0x17fc…180d at000a = ╱37╱7╱ // 0x1806 @0xa
0x17fc…180d at000b = ╱fe0000e003╱ // 0x1807 @0xb
0x17fc…180d at0010 = EOL // 0x180c @0x10
0x17fc…180d }
0x180d…1815 9ec5 2230 MM ENDIF
0x180d…1815 LineComalBcd {
0x180d…1815 ptr = 0x9ec5 // 0x180d @0x0
0x180d…1815 lno = 0x2230 // 0x180f @0x2
0x180d…1815 at0004 = ╱4d╱M╱ // 0x1811 @0x4
0x180d…1815 at0005 = ╱4d╱M╱ // 0x1812 @0x5
0x180d…1815 at0006 = ╱9b╱ ENDIF ╱ // 0x1813 @0x6
0x180d…1815 at0007 = EOL // 0x1814 @0x7
0x180d…1815 }
0x1815…1827 9ed7 2240 IF C[ND >< 2 THEN
0x1815…1827 LineComalBcd {
0x1815…1827 ptr = 0x9ed7 // 0x1815 @0x0
0x1815…1827 lno = 0x2240 // 0x1817 @0x2
0x1815…1827 at0004 = ╱9c╱ IF ╱ // 0x1819 @0x4
0x1815…1827 at0005 = ╱43╱C╱ // 0x181a @0x5
0x1815…1827 at0006 = ╱5b╱[╱ // 0x181b @0x6
0x1815…1827 at0007 = ╱4e╱N╱ // 0x181c @0x7
0x1815…1827 at0008 = ╱44╱D╱ // 0x181d @0x8
0x1815…1827 at0009 = ╱e1╱ >< ╱ // 0x181e @0x9
0x1815…1827 at000a = ╱32╱2╱ // 0x181f @0xa
0x1815…1827 at000b = ╱fe00008002╱ // 0x1820 @0xb
0x1815…1827 at0010 = ╱b6╱ THEN ╱ // 0x1825 @0x10
0x1815…1827 at0011 = EOL // 0x1826 @0x11
0x1815…1827 }
0x1827…182d 9edd 2250 REPEAT
0x1827…182d LineComalBcd {
0x1827…182d ptr = 0x9edd // 0x1827 @0x0
0x1827…182d lno = 0x2250 // 0x1829 @0x2
0x1827…182d at0004 = ╱97╱ REPEAT ╱ // 0x182b @0x4
0x1827…182d at0005 = EOL // 0x182c @0x5
0x1827…182d }
0x182d…1841 9ef1 2260 CURSOR 3 , 23
0x182d…1841 LineComalBcd {
0x182d…1841 ptr = 0x9ef1 // 0x182d @0x0
0x182d…1841 lno = 0x2260 // 0x182f @0x2
0x182d…1841 at0004 = ╱a1╱ CURSOR ╱ // 0x1831 @0x4
0x182d…1841 at0005 = ╱33╱3╱ // 0x1832 @0x5
0x182d…1841 at0006 = ╱fe0000c002╱ // 0x1833 @0x6
0x182d…1841 at000b = ╱ec╱ , ╱ // 0x1838 @0xb
0x182d…1841 at000c = ╱32╱2╱ // 0x1839 @0xc
0x182d…1841 at000d = ╱33╱3╱ // 0x183a @0xd
0x182d…1841 at000e = ╱fe0000b805╱ // 0x183b @0xe
0x182d…1841 at0013 = EOL // 0x1840 @0x13
0x182d…1841 }
0x1841…189e 9f4c 2270 PRINT "Landekode" ; BLANK $ ( 1 : MM9 ) ; "0:for…Danmark,max…2…cifre)" ; BLANK $ ( 1 : 30 )
0x1841…189e LineComalBcd {
0x1841…189e ptr = 0x9f4c // 0x1841 @0x0
0x1841…189e lno = 0x2270 // 0x1843 @0x2
0x1841…189e at0004 = ╱92╱ PRINT ╱ // 0x1845 @0x4
0x1841…189e at0005 = ╱22╱"╱ // 0x1846 @0x5
0x1841…189e at0006 = ╱4c╱L╱ // 0x1847 @0x6
0x1841…189e at0007 = ╱61╱a╱ // 0x1848 @0x7
0x1841…189e at0008 = ╱6e╱n╱ // 0x1849 @0x8
0x1841…189e at0009 = ╱64╱d╱ // 0x184a @0x9
0x1841…189e at000a = ╱65╱e╱ // 0x184b @0xa
0x1841…189e at000b = ╱6b╱k╱ // 0x184c @0xb
0x1841…189e at000c = ╱6f╱o╱ // 0x184d @0xc
0x1841…189e at000d = ╱64╱d╱ // 0x184e @0xd
0x1841…189e at000e = ╱65╱e╱ // 0x184f @0xe
0x1841…189e at000f = ╱22╱"╱ // 0x1850 @0xf
0x1841…189e at0010 = ╱eb╱ ; ╱ // 0x1851 @0x10
0x1841…189e at0011 = ╱42╱B╱ // 0x1852 @0x11
0x1841…189e at0012 = ╱4c╱L╱ // 0x1853 @0x12
0x1841…189e at0013 = ╱41╱A╱ // 0x1854 @0x13
0x1841…189e at0014 = ╱4e╱N╱ // 0x1855 @0x14
0x1841…189e at0015 = ╱4b╱K╱ // 0x1856 @0x15
0x1841…189e at0016 = ╱ef╱ $ ╱ // 0x1857 @0x16
0x1841…189e at0017 = ╱ed╱ ( ╱ // 0x1858 @0x17
0x1841…189e at0018 = ╱31╱1╱ // 0x1859 @0x18
0x1841…189e at0019 = ╱fe00008001╱ // 0x185a @0x19
0x1841…189e at001e = ╱f0╱ : ╱ // 0x185f @0x1e
0x1841…189e at001f = ╱4d╱M╱ // 0x1860 @0x1f
0x1841…189e at0020 = ╱4d╱M╱ // 0x1861 @0x20
0x1841…189e at0021 = ╱39╱9╱ // 0x1862 @0x21
0x1841…189e at0022 = ╱fe00009004╱ // 0x1863 @0x22
0x1841…189e at0027 = ╱ee╱ ) ╱ // 0x1868 @0x27
0x1841…189e at0028 = ╱eb╱ ; ╱ // 0x1869 @0x28
0x1841…189e at0029 = ╱22╱"╱ // 0x186a @0x29
0x1841…189e at002a = ╱30╱0╱ // 0x186b @0x2a
0x1841…189e at002b = ╱3a╱:╱ // 0x186c @0x2b
0x1841…189e at002c = ╱66╱f╱ // 0x186d @0x2c
0x1841…189e at002d = ╱6f╱o╱ // 0x186e @0x2d
0x1841…189e at002e = ╱72╱r╱ // 0x186f @0x2e
0x1841…189e at002f = ╱20╱…╱ // 0x1870 @0x2f
0x1841…189e at0030 = ╱44╱D╱ // 0x1871 @0x30
0x1841…189e at0031 = ╱61╱a╱ // 0x1872 @0x31
0x1841…189e at0032 = ╱6e╱n╱ // 0x1873 @0x32
0x1841…189e at0033 = ╱6d╱m╱ // 0x1874 @0x33
0x1841…189e at0034 = ╱61╱a╱ // 0x1875 @0x34
0x1841…189e at0035 = ╱72╱r╱ // 0x1876 @0x35
0x1841…189e at0036 = ╱6b╱k╱ // 0x1877 @0x36
0x1841…189e at0037 = ╱2c╱,╱ // 0x1878 @0x37
0x1841…189e at0038 = ╱6d╱m╱ // 0x1879 @0x38
0x1841…189e at0039 = ╱61╱a╱ // 0x187a @0x39
0x1841…189e at003a = ╱78╱x╱ // 0x187b @0x3a
0x1841…189e at003b = ╱20╱…╱ // 0x187c @0x3b
0x1841…189e at003c = ╱32╱2╱ // 0x187d @0x3c
0x1841…189e at003d = ╱20╱…╱ // 0x187e @0x3d
0x1841…189e at003e = ╱63╱c╱ // 0x187f @0x3e
0x1841…189e at003f = ╱69╱i╱ // 0x1880 @0x3f
0x1841…189e at0040 = ╱66╱f╱ // 0x1881 @0x40
0x1841…189e at0041 = ╱72╱r╱ // 0x1882 @0x41
0x1841…189e at0042 = ╱65╱e╱ // 0x1883 @0x42
0x1841…189e at0043 = ╱29╱)╱ // 0x1884 @0x43
0x1841…189e at0044 = ╱22╱"╱ // 0x1885 @0x44
0x1841…189e at0045 = ╱eb╱ ; ╱ // 0x1886 @0x45
0x1841…189e at0046 = ╱42╱B╱ // 0x1887 @0x46
0x1841…189e at0047 = ╱4c╱L╱ // 0x1888 @0x47
0x1841…189e at0048 = ╱41╱A╱ // 0x1889 @0x48
0x1841…189e at0049 = ╱4e╱N╱ // 0x188a @0x49
0x1841…189e at004a = ╱4b╱K╱ // 0x188b @0x4a
0x1841…189e at004b = ╱ef╱ $ ╱ // 0x188c @0x4b
0x1841…189e at004c = ╱ed╱ ( ╱ // 0x188d @0x4c
0x1841…189e at004d = ╱31╱1╱ // 0x188e @0x4d
0x1841…189e at004e = ╱fe00008001╱ // 0x188f @0x4e
0x1841…189e at0053 = ╱f0╱ : ╱ // 0x1894 @0x53
0x1841…189e at0054 = ╱33╱3╱ // 0x1895 @0x54
0x1841…189e at0055 = ╱30╱0╱ // 0x1896 @0x55
0x1841…189e at0056 = ╱fe0000f005╱ // 0x1897 @0x56
0x1841…189e at005b = ╱ee╱ ) ╱ // 0x189c @0x5b
0x1841…189e at005c = EOL // 0x189d @0x5c
0x1841…189e }
0x189e…18b5 9f61 2280 CURSOR 13 , 23 STEP ╱05╱
0x189e…18b5 LineComalBcd {
0x189e…18b5 ptr = 0x9f61 // 0x189e @0x0
0x189e…18b5 lno = 0x2280 // 0x18a0 @0x2
0x189e…18b5 at0004 = ╱a1╱ CURSOR ╱ // 0x18a2 @0x4
0x189e…18b5 at0005 = ╱31╱1╱ // 0x18a3 @0x5
0x189e…18b5 at0006 = ╱33╱3╱ // 0x18a4 @0x6
0x189e…18b5 at0007 = ╱fe0000d004╱ // 0x18a5 @0x7
0x189e…18b5 at000c = ╱ec╱ , ╱ // 0x18aa @0xc
0x189e…18b5 at000d = ╱32╱2╱ // 0x18ab @0xd
0x189e…18b5 at000e = ╱33╱3╱ // 0x18ac @0xe
0x189e…18b5 at000f = ╱fe004d4d00╱ // 0x18ad @0xf
0x189e…18b5 at0014 = ╱b8╱ STEP ╱ // 0x18b2 @0x14
0x189e…18b5 at0015 = ╱05╱ // 0x18b3 @0x15
0x189e…18b5 at0016 = EOL // 0x18b4 @0x16
0x189e…18b5 }
0x18b5…18be 9f6a 2290 INPUT LK $
0x18b5…18be LineComalBcd {
0x18b5…18be ptr = 0x9f6a // 0x18b5 @0x0
0x18b5…18be lno = 0x2290 // 0x18b7 @0x2
0x18b5…18be at0004 = ╱91╱ INPUT ╱ // 0x18b9 @0x4
0x18b5…18be at0005 = ╱4c╱L╱ // 0x18ba @0x5
0x18b5…18be at0006 = ╱4b╱K╱ // 0x18bb @0x6
0x18b5…18be at0007 = ╱ef╱ $ ╱ // 0x18bc @0x7
0x18b5…18be at0008 = EOL // 0x18bd @0x8
0x18b5…18be }
0x18be…18cf 9f7b 2300 EXEC NRTEST ( LK $ )
0x18be…18cf LineComalBcd {
0x18be…18cf ptr = 0x9f7b // 0x18be @0x0
0x18be…18cf lno = 0x2300 // 0x18c0 @0x2
0x18be…18cf at0004 = ╱9d╱ EXEC ╱ // 0x18c2 @0x4
0x18be…18cf at0005 = ╱4e╱N╱ // 0x18c3 @0x5
0x18be…18cf at0006 = ╱52╱R╱ // 0x18c4 @0x6
0x18be…18cf at0007 = ╱54╱T╱ // 0x18c5 @0x7
0x18be…18cf at0008 = ╱45╱E╱ // 0x18c6 @0x8
0x18be…18cf at0009 = ╱53╱S╱ // 0x18c7 @0x9
0x18be…18cf at000a = ╱54╱T╱ // 0x18c8 @0xa
0x18be…18cf at000b = ╱ed╱ ( ╱ // 0x18c9 @0xb
0x18be…18cf at000c = ╱4c╱L╱ // 0x18ca @0xc
0x18be…18cf at000d = ╱4b╱K╱ // 0x18cb @0xd
0x18be…18cf at000e = ╱ef╱ $ ╱ // 0x18cc @0xe
0x18be…18cf at000f = ╱ee╱ ) ╱ // 0x18cd @0xf
0x18be…18cf at0010 = EOL // 0x18ce @0x10
0x18be…18cf }
0x18cf…1911 9fbb 2310 UNTIL ( P > - 1 AND P < 10 AND TEST2 = 0 ) OR ( P = - 1 ╱80╱ ╱01╱ AND C[ND = 1 )
0x18cf…1911 LineComalBcd {
0x18cf…1911 ptr = 0x9fbb // 0x18cf @0x0
0x18cf…1911 lno = 0x2310 // 0x18d1 @0x2
0x18cf…1911 at0004 = ╱98╱ UNTIL ╱ // 0x18d3 @0x4
0x18cf…1911 at0005 = ╱ed╱ ( ╱ // 0x18d4 @0x5
0x18cf…1911 at0006 = ╱50╱P╱ // 0x18d5 @0x6
0x18cf…1911 at0007 = ╱de╱ > ╱ // 0x18d6 @0x7
0x18cf…1911 at0008 = ╱e9╱ - ╱ // 0x18d7 @0x8
0x18cf…1911 at0009 = ╱31╱1╱ // 0x18d8 @0x9
0x18cf…1911 at000a = ╱fe00008001╱ // 0x18d9 @0xa
0x18cf…1911 at000f = ╱da╱ AND ╱ // 0x18de @0xf
0x18cf…1911 at0010 = ╱50╱P╱ // 0x18df @0x10
0x18cf…1911 at0011 = ╱dd╱ < ╱ // 0x18e0 @0x11
0x18cf…1911 at0012 = ╱31╱1╱ // 0x18e1 @0x12
0x18cf…1911 at0013 = ╱30╱0╱ // 0x18e2 @0x13
0x18cf…1911 at0014 = ╱fe0000a004╱ // 0x18e3 @0x14
0x18cf…1911 at0019 = ╱da╱ AND ╱ // 0x18e8 @0x19
0x18cf…1911 at001a = ╱54╱T╱ // 0x18e9 @0x1a
0x18cf…1911 at001b = ╱45╱E╱ // 0x18ea @0x1b
0x18cf…1911 at001c = ╱53╱S╱ // 0x18eb @0x1c
0x18cf…1911 at001d = ╱54╱T╱ // 0x18ec @0x1d
0x18cf…1911 at001e = ╱32╱2╱ // 0x18ed @0x1e
0x18cf…1911 at001f = ╱dc╱ = ╱ // 0x18ee @0x1f
0x18cf…1911 at0020 = ╱30╱0╱ // 0x18ef @0x20
0x18cf…1911 at0021 = ╱fe00000000╱ // 0x18f0 @0x21
0x18cf…1911 at0026 = ╱ee╱ ) ╱ // 0x18f5 @0x26
0x18cf…1911 at0027 = ╱db╱ OR ╱ // 0x18f6 @0x27
0x18cf…1911 at0028 = ╱ed╱ ( ╱ // 0x18f7 @0x28
0x18cf…1911 at0029 = ╱50╱P╱ // 0x18f8 @0x29
0x18cf…1911 at002a = ╱dc╱ = ╱ // 0x18f9 @0x2a
0x18cf…1911 at002b = ╱e9╱ - ╱ // 0x18fa @0x2b
0x18cf…1911 at002c = ╱31╱1╱ // 0x18fb @0x2c
0x18cf…1911 at002d = ╱fe004d4d00╱ // 0x18fc @0x2d
0x18cf…1911 at0032 = ╱80╱ // 0x1901 @0x32
0x18cf…1911 at0033 = ╱01╱ // 0x1902 @0x33
0x18cf…1911 at0034 = ╱da╱ AND ╱ // 0x1903 @0x34
0x18cf…1911 at0035 = ╱43╱C╱ // 0x1904 @0x35
0x18cf…1911 at0036 = ╱5b╱[╱ // 0x1905 @0x36
0x18cf…1911 at0037 = ╱4e╱N╱ // 0x1906 @0x37
0x18cf…1911 at0038 = ╱44╱D╱ // 0x1907 @0x38
0x18cf…1911 at0039 = ╱dc╱ = ╱ // 0x1908 @0x39
0x18cf…1911 at003a = ╱31╱1╱ // 0x1909 @0x3a
0x18cf…1911 at003b = ╱fe00008001╱ // 0x190a @0x3b
0x18cf…1911 at0040 = ╱ee╱ ) ╱ // 0x190f @0x40
0x18cf…1911 at0041 = EOL // 0x1910 @0x41
0x18cf…1911 }
0x1911…1917 9fc1 2320 ENDIF
0x1911…1917 LineComalBcd {
0x1911…1917 ptr = 0x9fc1 // 0x1911 @0x0
0x1911…1917 lno = 0x2320 // 0x1913 @0x2
0x1911…1917 at0004 = ╱9b╱ ENDIF ╱ // 0x1915 @0x4
0x1911…1917 at0005 = EOL // 0x1916 @0x5
0x1911…1917 }
0x1917…192b 9fd5 2330 CURSOR 16 , 8
0x1917…192b LineComalBcd {
0x1917…192b ptr = 0x9fd5 // 0x1917 @0x0
0x1917…192b lno = 0x2330 // 0x1919 @0x2
0x1917…192b at0004 = ╱a1╱ CURSOR ╱ // 0x191b @0x4
0x1917…192b at0005 = ╱31╱1╱ // 0x191c @0x5
0x1917…192b at0006 = ╱36╱6╱ // 0x191d @0x6
0x1917…192b at0007 = ╱fe00008005╱ // 0x191e @0x7
0x1917…192b at000c = ╱ec╱ , ╱ // 0x1923 @0xc
0x1917…192b at000d = ╱38╱8╱ // 0x1924 @0xd
0x1917…192b at000e = ╱fe00008004╱ // 0x1925 @0xe
0x1917…192b at0013 = EOL // 0x192a @0x13
0x1917…192b }
0x192b…1946 9ff0 2340 PRINT BLANK $ ( 1 : 3 )
0x192b…1946 LineComalBcd {
0x192b…1946 ptr = 0x9ff0 // 0x192b @0x0
0x192b…1946 lno = 0x2340 // 0x192d @0x2
0x192b…1946 at0004 = ╱92╱ PRINT ╱ // 0x192f @0x4
0x192b…1946 at0005 = ╱42╱B╱ // 0x1930 @0x5
0x192b…1946 at0006 = ╱4c╱L╱ // 0x1931 @0x6
0x192b…1946 at0007 = ╱41╱A╱ // 0x1932 @0x7
0x192b…1946 at0008 = ╱4e╱N╱ // 0x1933 @0x8
0x192b…1946 at0009 = ╱4b╱K╱ // 0x1934 @0x9
0x192b…1946 at000a = ╱ef╱ $ ╱ // 0x1935 @0xa
0x192b…1946 at000b = ╱ed╱ ( ╱ // 0x1936 @0xb
0x192b…1946 at000c = ╱31╱1╱ // 0x1937 @0xc
0x192b…1946 at000d = ╱fe00008001╱ // 0x1938 @0xd
0x192b…1946 at0012 = ╱f0╱ : ╱ // 0x193d @0x12
0x192b…1946 at0013 = ╱33╱3╱ // 0x193e @0x13
0x192b…1946 at0014 = ╱fe0000c002╱ // 0x193f @0x14
0x192b…1946 at0019 = ╱ee╱ ) ╱ // 0x1944 @0x19
0x192b…1946 at001a = EOL // 0x1945 @0x1a
0x192b…1946 }
0x1946…195c a004 2350 CURSOR 27MM , 8
0x1946…195c LineComalBcd {
0x1946…195c ptr = 0xa004 // 0x1946 @0x0
0x1946…195c lno = 0x2350 // 0x1948 @0x2
0x1946…195c at0004 = ╱a1╱ CURSOR ╱ // 0x194a @0x4
0x1946…195c at0005 = ╱32╱2╱ // 0x194b @0x5
0x1946…195c at0006 = ╱37╱7╱ // 0x194c @0x6
0x1946…195c at0007 = ╱4d╱M╱ // 0x194d @0x7
0x1946…195c at0008 = ╱4d╱M╱ // 0x194e @0x8
0x1946…195c at0009 = ╱fe0000d805╱ // 0x194f @0x9
0x1946…195c at000e = ╱ec╱ , ╱ // 0x1954 @0xe
0x1946…195c at000f = ╱38╱8╱ // 0x1955 @0xf
0x1946…195c at0010 = ╱fe00008004╱ // 0x1956 @0x10
0x1946…195c at0015 = EOL // 0x195b @0x15
0x1946…195c }
0x195c…1978 a020 2360 PRINT BLANK $ ( 1 : 15 )
0x195c…1978 LineComalBcd {
0x195c…1978 ptr = 0xa020 // 0x195c @0x0
0x195c…1978 lno = 0x2360 // 0x195e @0x2
0x195c…1978 at0004 = ╱92╱ PRINT ╱ // 0x1960 @0x4
0x195c…1978 at0005 = ╱42╱B╱ // 0x1961 @0x5
0x195c…1978 at0006 = ╱4c╱L╱ // 0x1962 @0x6
0x195c…1978 at0007 = ╱41╱A╱ // 0x1963 @0x7
0x195c…1978 at0008 = ╱4e╱N╱ // 0x1964 @0x8
0x195c…1978 at0009 = ╱4b╱K╱ // 0x1965 @0x9
0x195c…1978 at000a = ╱ef╱ $ ╱ // 0x1966 @0xa
0x195c…1978 at000b = ╱ed╱ ( ╱ // 0x1967 @0xb
0x195c…1978 at000c = ╱31╱1╱ // 0x1968 @0xc
0x195c…1978 at000d = ╱fe00008001╱ // 0x1969 @0xd
0x195c…1978 at0012 = ╱f0╱ : ╱ // 0x196e @0x12
0x195c…1978 at0013 = ╱31╱1╱ // 0x196f @0x13
0x195c…1978 at0014 = ╱35╱5╱ // 0x1970 @0x14
0x195c…1978 at0015 = ╱fe0000f004╱ // 0x1971 @0x15
0x195c…1978 at001a = ╱ee╱ ) ╱ // 0x1976 @0x1a
0x195c…1978 at001b = EOL // 0x1977 @0x1b
0x195c…1978 }
0x1978…198c a034 2370 CURSOR 16 , 8
0x1978…198c LineComalBcd {
0x1978…198c ptr = 0xa034 // 0x1978 @0x0
0x1978…198c lno = 0x2370 // 0x197a @0x2
0x1978…198c at0004 = ╱a1╱ CURSOR ╱ // 0x197c @0x4
0x1978…198c at0005 = ╱31╱1╱ // 0x197d @0x5
0x1978…198c at0006 = ╱36╱6╱ // 0x197e @0x6
0x1978…198c at0007 = ╱fe00008005╱ // 0x197f @0x7
0x1978…198c at000c = ╱ec╱ , ╱ // 0x1984 @0xc
0x1978…198c at000d = ╱38╱8╱ // 0x1985 @0xd
0x1978…198c at000e = ╱fe00008004╱ // 0x1986 @0xe
0x1978…198c at0013 = EOL // 0x198b @0x13
0x1978…198c }
0x198c…19aa a050 2380 IF P < 10 AND CMM[ND >< 2 THEN
0x198c…19aa LineComalBcd {
0x198c…19aa ptr = 0xa050 // 0x198c @0x0
0x198c…19aa lno = 0x2380 // 0x198e @0x2
0x198c…19aa at0004 = ╱9c╱ IF ╱ // 0x1990 @0x4
0x198c…19aa at0005 = ╱50╱P╱ // 0x1991 @0x5
0x198c…19aa at0006 = ╱dd╱ < ╱ // 0x1992 @0x6
0x198c…19aa at0007 = ╱31╱1╱ // 0x1993 @0x7
0x198c…19aa at0008 = ╱30╱0╱ // 0x1994 @0x8
0x198c…19aa at0009 = ╱fe0000a004╱ // 0x1995 @0x9
0x198c…19aa at000e = ╱da╱ AND ╱ // 0x199a @0xe
0x198c…19aa at000f = ╱43╱C╱ // 0x199b @0xf
0x198c…19aa at0010 = ╱4d╱M╱ // 0x199c @0x10
0x198c…19aa at0011 = ╱4d╱M╱ // 0x199d @0x11
0x198c…19aa at0012 = ╱5b╱[╱ // 0x199e @0x12
0x198c…19aa at0013 = ╱4e╱N╱ // 0x199f @0x13
0x198c…19aa at0014 = ╱44╱D╱ // 0x19a0 @0x14
0x198c…19aa at0015 = ╱e1╱ >< ╱ // 0x19a1 @0x15
0x198c…19aa at0016 = ╱32╱2╱ // 0x19a2 @0x16
0x198c…19aa at0017 = ╱fe00008002╱ // 0x19a3 @0x17
0x198c…19aa at001c = ╱b6╱ THEN ╱ // 0x19a8 @0x1c
0x198c…19aa at001d = EOL // 0x19a9 @0x1d
0x198c…19aa }
0x19aa…19c2 a068 2390 DEBLK $ = CHR ( P + 48 )
0x19aa…19c2 LineComalBcd {
0x19aa…19c2 ptr = 0xa068 // 0x19aa @0x0
0x19aa…19c2 lno = 0x2390 // 0x19ac @0x2
0x19aa…19c2 at0004 = ╱44╱D╱ // 0x19ae @0x4
0x19aa…19c2 at0005 = ╱45╱E╱ // 0x19af @0x5
0x19aa…19c2 at0006 = ╱42╱B╱ // 0x19b0 @0x6
0x19aa…19c2 at0007 = ╱4c╱L╱ // 0x19b1 @0x7
0x19aa…19c2 at0008 = ╱4b╱K╱ // 0x19b2 @0x8
0x19aa…19c2 at0009 = ╱ef╱ $ ╱ // 0x19b3 @0x9
0x19aa…19c2 at000a = ╱dc╱ = ╱ // 0x19b4 @0xa
0x19aa…19c2 at000b = ╱cf╱ CHR ╱ // 0x19b5 @0xb
0x19aa…19c2 at000c = ╱ed╱ ( ╱ // 0x19b6 @0xc
0x19aa…19c2 at000d = ╱50╱P╱ // 0x19b7 @0xd
0x19aa…19c2 at000e = ╱e2╱ + ╱ // 0x19b8 @0xe
0x19aa…19c2 at000f = ╱34╱4╱ // 0x19b9 @0xf
0x19aa…19c2 at0010 = ╱38╱8╱ // 0x19ba @0x10
0x19aa…19c2 at0011 = ╱fe0000c006╱ // 0x19bb @0x11
0x19aa…19c2 at0016 = ╱ee╱ ) ╱ // 0x19c0 @0x16
0x19aa…19c2 at0017 = EOL // 0x19c1 @0x17
0x19aa…19c2 }
0x19c2…19c8 a06e 2400 ENDIF
0x19c2…19c8 LineComalBcd {
0x19c2…19c8 ptr = 0xa06e // 0x19c2 @0x0
0x19c2…19c8 lno = 0x2400 // 0x19c4 @0x2
0x19c2…19c8 at0004 = ╱9b╱ ENDIF ╱ // 0x19c6 @0x4
0x19c2…19c8 at0005 = EOL // 0x19c7 @0x5
0x19c2…19c8 }
0x19c8…19e0 a086 2410 P = ORD ( DEBLK $ ) - 48
0x19c8…19e0 LineComalBcd {
0x19c8…19e0 ptr = 0xa086 // 0x19c8 @0x0
0x19c8…19e0 lno = 0x2410 // 0x19ca @0x2
0x19c8…19e0 at0004 = ╱50╱P╱ // 0x19cc @0x4
0x19c8…19e0 at0005 = ╱dc╱ = ╱ // 0x19cd @0x5
0x19c8…19e0 at0006 = ╱cd╱ ORD ╱ // 0x19ce @0x6
0x19c8…19e0 at0007 = ╱ed╱ ( ╱ // 0x19cf @0x7
0x19c8…19e0 at0008 = ╱44╱D╱ // 0x19d0 @0x8
0x19c8…19e0 at0009 = ╱45╱E╱ // 0x19d1 @0x9
0x19c8…19e0 at000a = ╱42╱B╱ // 0x19d2 @0xa
0x19c8…19e0 at000b = ╱4c╱L╱ // 0x19d3 @0xb
0x19c8…19e0 at000c = ╱4b╱K╱ // 0x19d4 @0xc
0x19c8…19e0 at000d = ╱ef╱ $ ╱ // 0x19d5 @0xd
0x19c8…19e0 at000e = ╱ee╱ ) ╱ // 0x19d6 @0xe
0x19c8…19e0 at000f = ╱e3╱ - ╱ // 0x19d7 @0xf
0x19c8…19e0 at0010 = ╱34╱4╱ // 0x19d8 @0x10
0x19c8…19e0 at0011 = ╱38╱8╱ // 0x19d9 @0x11
0x19c8…19e0 at0012 = ╱fe0000c006╱ // 0x19da @0x12
0x19c8…19e0 at0017 = EOL // 0x19df @0x17
0x19c8…19e0 }
0x19e0…19f0 a094 2420 PRINT USING "###"MM : P
0x19e0…19f0 LineComalBcd {
0x19e0…19f0 ptr = 0xa094 // 0x19e0 @0x0
0x19e0…19f0 lno = 0x2420 // 0x19e2 @0x2
0x19e0…19f0 at0004 = ╱92╱ PRINT ╱ // 0x19e4 @0x4
0x19e0…19f0 at0005 = ╱b9╱ USING ╱ // 0x19e5 @0x5
0x19e0…19f0 at0006 = ╱22╱"╱ // 0x19e6 @0x6
0x19e0…19f0 at0007 = ╱23╱#╱ // 0x19e7 @0x7
0x19e0…19f0 at0008 = ╱23╱#╱ // 0x19e8 @0x8
0x19e0…19f0 at0009 = ╱23╱#╱ // 0x19e9 @0x9
0x19e0…19f0 at000a = ╱22╱"╱ // 0x19ea @0xa
0x19e0…19f0 at000b = ╱4d╱M╱ // 0x19eb @0xb
0x19e0…19f0 at000c = ╱4d╱M╱ // 0x19ec @0xc
0x19e0…19f0 at000d = ╱f0╱ : ╱ // 0x19ed @0xd
0x19e0…19f0 at000e = ╱50╱P╱ // 0x19ee @0xe
0x19e0…19f0 at000f = EOL // 0x19ef @0xf
0x19e0…19f0 }
0x19f0…1a04 a0a8 2430 CURSOR 27 , 8
0x19f0…1a04 LineComalBcd {
0x19f0…1a04 ptr = 0xa0a8 // 0x19f0 @0x0
0x19f0…1a04 lno = 0x2430 // 0x19f2 @0x2
0x19f0…1a04 at0004 = ╱a1╱ CURSOR ╱ // 0x19f4 @0x4
0x19f0…1a04 at0005 = ╱32╱2╱ // 0x19f5 @0x5
0x19f0…1a04 at0006 = ╱37╱7╱ // 0x19f6 @0x6
0x19f0…1a04 at0007 = ╱fe0000d805╱ // 0x19f7 @0x7
0x19f0…1a04 at000c = ╱ec╱ , ╱ // 0x19fc @0xc
0x19f0…1a04 at000d = ╱38╱8╱ // 0x19fd @0xd
0x19f0…1a04 at000e = ╱fe00008004╱ // 0x19fe @0xe
0x19f0…1a04 at0013 = EOL // 0x1a03 @0x13
0x19f0…1a04 }
0x1a04…1a13 a0b7 2440 IF P = 0 THEN
0x1a04…1a13 LineComalBcd {
0x1a04…1a13 ptr = 0xa0b7 // 0x1a04 @0x0
0x1a04…1a13 lno = 0x2440 // 0x1a06 @0x2
0x1a04…1a13 at0004 = ╱9c╱ IF ╱ // 0x1a08 @0x4
0x1a04…1a13 at0005 = ╱50╱P╱ // 0x1a09 @0x5
0x1a04…1a13 at0006 = ╱dc╱ = ╱ // 0x1a0a @0x6
0x1a04…1a13 at0007 = ╱30╱0╱ // 0x1a0b @0x7
0x1a04…1a13 at0008 = ╱fe00000000╱ // 0x1a0c @0x8
0x1a04…1a13 at000d = ╱b6╱ THEN ╱ // 0x1a11 @0xd
0x1a04…1a13 at000e = EOL // 0x1a12 @0xe
0x1a04…1a13 }
0x1a13…1a22 a0c6 2450 PRINT "Danmark"
0x1a13…1a22 LineComalBcd {
0x1a13…1a22 ptr = 0xa0c6 // 0x1a13 @0x0
0x1a13…1a22 lno = 0x2450 // 0x1a15 @0x2
0x1a13…1a22 at0004 = ╱92╱ PRINT ╱ // 0x1a17 @0x4
0x1a13…1a22 at0005 = ╱22╱"╱ // 0x1a18 @0x5
0x1a13…1a22 at0006 = ╱44╱D╱ // 0x1a19 @0x6
0x1a13…1a22 at0007 = ╱61╱a╱ // 0x1a1a @0x7
0x1a13…1a22 at0008 = ╱6e╱n╱ // 0x1a1b @0x8
0x1a13…1a22 at0009 = ╱6d╱m╱ // 0x1a1c @0x9
0x1a13…1a22 at000a = ╱61╱a╱ // 0x1a1d @0xa
0x1a13…1a22 at000b = ╱72╱r╱ // 0x1a1e @0xb
0x1a13…1a22 at000c = ╱6b╱k╱ // 0x1a1f @0xc
0x1a13…1a22 at000d = ╱22╱"╱ // 0x1a20 @0xd
0x1a13…1a22 at000e = EOL // 0x1a21 @0xe
0x1a13…1a22 }
0x1a22…1a28 a0cc 2460 ELSE
0x1a22…1a28 LineComalBcd {
0x1a22…1a28 ptr = 0xa0cc // 0x1a22 @0x0
0x1a22…1a28 lno = 0x2460 // 0x1a24 @0x2
0x1a22…1a28 at0004 = ╱9a╱ ELSE ╱ // 0x1a26 @0x4
0x1a22…1a28 at0005 = EOL // 0x1a27 @0x5
0x1a22…1a28 }
0x1a28…1a36 a0da 2470 PRINT LAND $ ( P )
0x1a28…1a36 LineComalBcd {
0x1a28…1a36 ptr = 0xa0da // 0x1a28 @0x0
0x1a28…1a36 lno = 0x2470 // 0x1a2a @0x2
0x1a28…1a36 at0004 = ╱92╱ PRINT ╱ // 0x1a2c @0x4
0x1a28…1a36 at0005 = ╱4c╱L╱ // 0x1a2d @0x5
0x1a28…1a36 at0006 = ╱41╱A╱ // 0x1a2e @0x6
0x1a28…1a36 at0007 = ╱4e╱N╱ // 0x1a2f @0x7
0x1a28…1a36 at0008 = ╱44╱D╱ // 0x1a30 @0x8
0x1a28…1a36 at0009 = ╱ef╱ $ ╱ // 0x1a31 @0x9
0x1a28…1a36 at000a = ╱ed╱ ( ╱ // 0x1a32 @0xa
0x1a28…1a36 at000b = ╱50╱P╱ // 0x1a33 @0xb
0x1a28…1a36 at000c = ╱ee╱ ) ╱ // 0x1a34 @0xc
0x1a28…1a36 at000d = EOL // 0x1a35 @0xd
0x1a28…1a36 }
0x1a36…1a3e a0e0 2480 MM ENDIF
0x1a36…1a3e LineComalBcd {
0x1a36…1a3e ptr = 0xa0e0 // 0x1a36 @0x0
0x1a36…1a3e lno = 0x2480 // 0x1a38 @0x2
0x1a36…1a3e at0004 = ╱4d╱M╱ // 0x1a3a @0x4
0x1a36…1a3e at0005 = ╱4d╱M╱ // 0x1a3b @0x5
0x1a36…1a3e at0006 = ╱9b╱ ENDIF ╱ // 0x1a3c @0x6
0x1a36…1a3e at0007 = EOL // 0x1a3d @0x7
0x1a36…1a3e }
0x1a3e…1a4b a0ed 2490 WHEN 7
0x1a3e…1a4b LineComalBcd {
0x1a3e…1a4b ptr = 0xa0ed // 0x1a3e @0x0
0x1a3e…1a4b lno = 0x2490 // 0x1a40 @0x2
0x1a3e…1a4b at0004 = ╱a301╱ WHEN ╱ // 0x1a42 @0x4
0x1a3e…1a4b at0006 = ╱37╱7╱ // 0x1a44 @0x6
0x1a3e…1a4b at0007 = ╱fe0000e003╱ // 0x1a45 @0x7
0x1a3e…1a4b at000c = EOL // 0x1a4a @0xc
0x1a3e…1a4b }
0x1a4b…1a5d a0ff 2500 IF C[ND >< 1 THEN
0x1a4b…1a5d LineComalBcd {
0x1a4b…1a5d ptr = 0xa0ff // 0x1a4b @0x0
0x1a4b…1a5d lno = 0x2500 // 0x1a4d @0x2
0x1a4b…1a5d at0004 = ╱9c╱ IF ╱ // 0x1a4f @0x4
0x1a4b…1a5d at0005 = ╱43╱C╱ // 0x1a50 @0x5
0x1a4b…1a5d at0006 = ╱5b╱[╱ // 0x1a51 @0x6
0x1a4b…1a5d at0007 = ╱4e╱N╱ // 0x1a52 @0x7
0x1a4b…1a5d at0008 = ╱44╱D╱ // 0x1a53 @0x8
0x1a4b…1a5d at0009 = ╱e1╱ >< ╱ // 0x1a54 @0x9
0x1a4b…1a5d at000a = ╱31╱1╱ // 0x1a55 @0xa
0x1a4b…1a5d at000b = ╱fe00008001╱ // 0x1a56 @0xb
0x1a4b…1a5d at0010 = ╱b6╱ THEN ╱ // 0x1a5b @0x10
0x1a4b…1a5d at0011 = EOL // 0x1a5c @0x11
0x1a4b…1a5d }
0x1a5d…1a70 a112 2510 CURSOR 2 , 9
0x1a5d…1a70 LineComalBcd {
0x1a5d…1a70 ptr = 0xa112 // 0x1a5d @0x0
0x1a5d…1a70 lno = 0x2510 // 0x1a5f @0x2
0x1a5d…1a70 at0004 = ╱a1╱ CURSOR ╱ // 0x1a61 @0x4
0x1a5d…1a70 at0005 = ╱32╱2╱ // 0x1a62 @0x5
0x1a5d…1a70 at0006 = ╱fe00008002╱ // 0x1a63 @0x6
0x1a5d…1a70 at000b = ╱ec╱ , ╱ // 0x1a68 @0xb
0x1a5d…1a70 at000c = ╱39╱9╱ // 0x1a69 @0xc
0x1a5d…1a70 at000d = ╱fe00009004╱ // 0x1a6a @0xd
0x1a5d…1a70 at0012 = EOL // 0x1a6f @0x12
0x1a5d…1a70 }
0x1a70…1a85 a127 2520 PRINT "7:Telefon………:"
0x1a70…1a85 LineComalBcd {
0x1a70…1a85 ptr = 0xa127 // 0x1a70 @0x0
0x1a70…1a85 lno = 0x2520 // 0x1a72 @0x2
0x1a70…1a85 at0004 = ╱92╱ PRINT ╱ // 0x1a74 @0x4
0x1a70…1a85 at0005 = ╱22╱"╱ // 0x1a75 @0x5
0x1a70…1a85 at0006 = ╱37╱7╱ // 0x1a76 @0x6
0x1a70…1a85 at0007 = ╱3a╱:╱ // 0x1a77 @0x7
0x1a70…1a85 at0008 = ╱54╱T╱ // 0x1a78 @0x8
0x1a70…1a85 at0009 = ╱65╱e╱ // 0x1a79 @0x9
0x1a70…1a85 at000a = ╱6c╱l╱ // 0x1a7a @0xa
0x1a70…1a85 at000b = ╱65╱e╱ // 0x1a7b @0xb
0x1a70…1a85 at000c = ╱66╱f╱ // 0x1a7c @0xc
0x1a70…1a85 at000d = ╱6f╱o╱ // 0x1a7d @0xd
0x1a70…1a85 at000e = ╱6e╱n╱ // 0x1a7e @0xe
0x1a70…1a85 at000f = ╱20╱…╱ // 0x1a7f @0xf
0x1a70…1a85 at0010 = ╱20╱…╱ // 0x1a80 @0x10
0x1a70…1a85 at0011 = ╱20╱…╱ // 0x1a81 @0x11
0x1a70…1a85 at0012 = ╱3a╱:╱ // 0x1a82 @0x12
0x1a70…1a85 at0013 = ╱22╱"╱ // 0x1a83 @0x13
0x1a70…1a85 at0014 = EOL // 0x1a84 @0x14
0x1a70…1a85 }
0x1a85…1a98 a138 2530 MMDSTYR = 8
0x1a85…1a98 LineComalBcd {
0x1a85…1a98 ptr = 0xa138 // 0x1a85 @0x0
0x1a85…1a98 lno = 0x2530 // 0x1a87 @0x2
0x1a85…1a98 at0004 = ╱4d╱M╱ // 0x1a89 @0x4
0x1a85…1a98 at0005 = ╱4d╱M╱ // 0x1a8a @0x5
0x1a85…1a98 at0006 = ╱44╱D╱ // 0x1a8b @0x6
0x1a85…1a98 at0007 = ╱53╱S╱ // 0x1a8c @0x7
0x1a85…1a98 at0008 = ╱54╱T╱ // 0x1a8d @0x8
0x1a85…1a98 at0009 = ╱59╱Y╱ // 0x1a8e @0x9
0x1a85…1a98 at000a = ╱52╱R╱ // 0x1a8f @0xa
0x1a85…1a98 at000b = ╱dc╱ = ╱ // 0x1a90 @0xb
0x1a85…1a98 at000c = ╱38╱8╱ // 0x1a91 @0xc
0x1a85…1a98 at000d = ╱fe00008004╱ // 0x1a92 @0xd
0x1a85…1a98 at0012 = EOL // 0x1a97 @0x12
0x1a85…1a98 }
0x1a98…1a9e a13e 2540 ENDIF
0x1a98…1a9e LineComalBcd {
0x1a98…1a9e ptr = 0xa13e // 0x1a98 @0x0
0x1a98…1a9e lno = 0x2540 // 0x1a9a @0x2
0x1a98…1a9e at0004 = ╱9b╱ ENDIF ╱ // 0x1a9c @0x4
0x1a98…1a9e at0005 = EOL // 0x1a9d @0x5
0x1a98…1a9e }
0x1a9e…1ab0 a150 2550 IF C[ND >< 2 THEN
0x1a9e…1ab0 LineComalBcd {
0x1a9e…1ab0 ptr = 0xa150 // 0x1a9e @0x0
0x1a9e…1ab0 lno = 0x2550 // 0x1aa0 @0x2
0x1a9e…1ab0 at0004 = ╱9c╱ IF ╱ // 0x1aa2 @0x4
0x1a9e…1ab0 at0005 = ╱43╱C╱ // 0x1aa3 @0x5
0x1a9e…1ab0 at0006 = ╱5b╱[╱ // 0x1aa4 @0x6
0x1a9e…1ab0 at0007 = ╱4e╱N╱ // 0x1aa5 @0x7
0x1a9e…1ab0 at0008 = ╱44╱D╱ // 0x1aa6 @0x8
0x1a9e…1ab0 at0009 = ╱e1╱ >< ╱ // 0x1aa7 @0x9
0x1a9e…1ab0 at000a = ╱32╱2╱ // 0x1aa8 @0xa
0x1a9e…1ab0 at000b = ╱fe00008002╱ // 0x1aa9 @0xb
0x1a9e…1ab0 at0010 = ╱b6╱ THEN ╱ // 0x1aae @0x10
0x1a9e…1ab0 at0011 = EOL // 0x1aaf @0x11
0x1a9e…1ab0 }
0x1ab0…1ac4 a164 2560 CURSOR 3 , 23
0x1ab0…1ac4 LineComalBcd {
0x1ab0…1ac4 ptr = 0xa164 // 0x1ab0 @0x0
0x1ab0…1ac4 lno = 0x2560 // 0x1ab2 @0x2
0x1ab0…1ac4 at0004 = ╱a1╱ CURSOR ╱ // 0x1ab4 @0x4
0x1ab0…1ac4 at0005 = ╱33╱3╱ // 0x1ab5 @0x5
0x1ab0…1ac4 at0006 = ╱fe0000c002╱ // 0x1ab6 @0x6
0x1ab0…1ac4 at000b = ╱ec╱ , ╱ // 0x1abb @0xb
0x1ab0…1ac4 at000c = ╱32╱2╱ // 0x1abc @0xc
0x1ab0…1ac4 at000d = ╱33╱3╱ // 0x1abd @0xd
0x1ab0…1ac4 at000e = ╱fe0000b805╱ // 0x1abe @0xe
0x1ab0…1ac4 at0013 = EOL // 0x1ac3 @0x13
0x1ab0…1ac4 }
0x1ac4…1b12 a1b0 2570 PRINT "Telefon" ; BLANKMM $ ( 1 : 14 ) ; "(max…9…tegn)" ; BLANK $ ( 1 : 44 )
0x1ac4…1b12 LineComalBcd {
0x1ac4…1b12 ptr = 0xa1b0 // 0x1ac4 @0x0
0x1ac4…1b12 lno = 0x2570 // 0x1ac6 @0x2
0x1ac4…1b12 at0004 = ╱92╱ PRINT ╱ // 0x1ac8 @0x4
0x1ac4…1b12 at0005 = ╱22╱"╱ // 0x1ac9 @0x5
0x1ac4…1b12 at0006 = ╱54╱T╱ // 0x1aca @0x6
0x1ac4…1b12 at0007 = ╱65╱e╱ // 0x1acb @0x7
0x1ac4…1b12 at0008 = ╱6c╱l╱ // 0x1acc @0x8
0x1ac4…1b12 at0009 = ╱65╱e╱ // 0x1acd @0x9
0x1ac4…1b12 at000a = ╱66╱f╱ // 0x1ace @0xa
0x1ac4…1b12 at000b = ╱6f╱o╱ // 0x1acf @0xb
0x1ac4…1b12 at000c = ╱6e╱n╱ // 0x1ad0 @0xc
0x1ac4…1b12 at000d = ╱22╱"╱ // 0x1ad1 @0xd
0x1ac4…1b12 at000e = ╱eb╱ ; ╱ // 0x1ad2 @0xe
0x1ac4…1b12 at000f = ╱42╱B╱ // 0x1ad3 @0xf
0x1ac4…1b12 at0010 = ╱4c╱L╱ // 0x1ad4 @0x10
0x1ac4…1b12 at0011 = ╱41╱A╱ // 0x1ad5 @0x11
0x1ac4…1b12 at0012 = ╱4e╱N╱ // 0x1ad6 @0x12
0x1ac4…1b12 at0013 = ╱4b╱K╱ // 0x1ad7 @0x13
0x1ac4…1b12 at0014 = ╱4d╱M╱ // 0x1ad8 @0x14
0x1ac4…1b12 at0015 = ╱4d╱M╱ // 0x1ad9 @0x15
0x1ac4…1b12 at0016 = ╱ef╱ $ ╱ // 0x1ada @0x16
0x1ac4…1b12 at0017 = ╱ed╱ ( ╱ // 0x1adb @0x17
0x1ac4…1b12 at0018 = ╱31╱1╱ // 0x1adc @0x18
0x1ac4…1b12 at0019 = ╱fe00008001╱ // 0x1add @0x19
0x1ac4…1b12 at001e = ╱f0╱ : ╱ // 0x1ae2 @0x1e
0x1ac4…1b12 at001f = ╱31╱1╱ // 0x1ae3 @0x1f
0x1ac4…1b12 at0020 = ╱34╱4╱ // 0x1ae4 @0x20
0x1ac4…1b12 at0021 = ╱fe0000e004╱ // 0x1ae5 @0x21
0x1ac4…1b12 at0026 = ╱ee╱ ) ╱ // 0x1aea @0x26
0x1ac4…1b12 at0027 = ╱eb╱ ; ╱ // 0x1aeb @0x27
0x1ac4…1b12 at0028 = ╱22╱"╱ // 0x1aec @0x28
0x1ac4…1b12 at0029 = ╱28╱(╱ // 0x1aed @0x29
0x1ac4…1b12 at002a = ╱6d╱m╱ // 0x1aee @0x2a
0x1ac4…1b12 at002b = ╱61╱a╱ // 0x1aef @0x2b
0x1ac4…1b12 at002c = ╱78╱x╱ // 0x1af0 @0x2c
0x1ac4…1b12 at002d = ╱20╱…╱ // 0x1af1 @0x2d
0x1ac4…1b12 at002e = ╱39╱9╱ // 0x1af2 @0x2e
0x1ac4…1b12 at002f = ╱20╱…╱ // 0x1af3 @0x2f
0x1ac4…1b12 at0030 = ╱74╱t╱ // 0x1af4 @0x30
0x1ac4…1b12 at0031 = ╱65╱e╱ // 0x1af5 @0x31
0x1ac4…1b12 at0032 = ╱67╱g╱ // 0x1af6 @0x32
0x1ac4…1b12 at0033 = ╱6e╱n╱ // 0x1af7 @0x33
0x1ac4…1b12 at0034 = ╱29╱)╱ // 0x1af8 @0x34
0x1ac4…1b12 at0035 = ╱22╱"╱ // 0x1af9 @0x35
0x1ac4…1b12 at0036 = ╱eb╱ ; ╱ // 0x1afa @0x36
0x1ac4…1b12 at0037 = ╱42╱B╱ // 0x1afb @0x37
0x1ac4…1b12 at0038 = ╱4c╱L╱ // 0x1afc @0x38
0x1ac4…1b12 at0039 = ╱41╱A╱ // 0x1afd @0x39
0x1ac4…1b12 at003a = ╱4e╱N╱ // 0x1afe @0x3a
0x1ac4…1b12 at003b = ╱4b╱K╱ // 0x1aff @0x3b
0x1ac4…1b12 at003c = ╱ef╱ $ ╱ // 0x1b00 @0x3c
0x1ac4…1b12 at003d = ╱ed╱ ( ╱ // 0x1b01 @0x3d
0x1ac4…1b12 at003e = ╱31╱1╱ // 0x1b02 @0x3e
0x1ac4…1b12 at003f = ╱fe00008001╱ // 0x1b03 @0x3f
0x1ac4…1b12 at0044 = ╱f0╱ : ╱ // 0x1b08 @0x44
0x1ac4…1b12 at0045 = ╱34╱4╱ // 0x1b09 @0x45
0x1ac4…1b12 at0046 = ╱34╱4╱ // 0x1b0a @0x46
0x1ac4…1b12 at0047 = ╱fe0000b006╱ // 0x1b0b @0x47
0x1ac4…1b12 at004c = ╱ee╱ ) ╱ // 0x1b10 @0x4c
0x1ac4…1b12 at004d = EOL // 0x1b11 @0x4d
0x1ac4…1b12 }
0x1b12…1b27 a1c5 2580 CURSOR 13 , 23
0x1b12…1b27 LineComalBcd {
0x1b12…1b27 ptr = 0xa1c5 // 0x1b12 @0x0
0x1b12…1b27 lno = 0x2580 // 0x1b14 @0x2
0x1b12…1b27 at0004 = ╱a1╱ CURSOR ╱ // 0x1b16 @0x4
0x1b12…1b27 at0005 = ╱31╱1╱ // 0x1b17 @0x5
0x1b12…1b27 at0006 = ╱33╱3╱ // 0x1b18 @0x6
0x1b12…1b27 at0007 = ╱fe0000d004╱ // 0x1b19 @0x7
0x1b12…1b27 at000c = ╱ec╱ , ╱ // 0x1b1e @0xc
0x1b12…1b27 at000d = ╱32╱2╱ // 0x1b1f @0xd
0x1b12…1b27 at000e = ╱33╱3╱ // 0x1b20 @0xe
0x1b12…1b27 at000f = ╱fe0000b805╱ // 0x1b21 @0xf
0x1b12…1b27 at0014 = EOL // 0x1b26 @0x14
0x1b12…1b27 }
0x1b27…1b36 4d4d d2a1 % RESTORE INPUT DEBTLF $
0x1b27…1b36 LineComalBcd {
0x1b27…1b36 ptr = 0x4d4d // 0x1b27 @0x0
0x1b27…1b36 lno = 0xd2a1 // 0x1b29 @0x2
0x1b27…1b36 at0004 = ╱25╱%╱ // 0x1b2b @0x4
0x1b27…1b36 at0005 = ╱90╱ RESTORE ╱ // 0x1b2c @0x5
0x1b27…1b36 at0006 = ╱91╱ INPUT ╱ // 0x1b2d @0x6
0x1b27…1b36 at0007 = ╱44╱D╱ // 0x1b2e @0x7
0x1b27…1b36 at0008 = ╱45╱E╱ // 0x1b2f @0x8
0x1b27…1b36 at0009 = ╱42╱B╱ // 0x1b30 @0x9
0x1b27…1b36 at000a = ╱54╱T╱ // 0x1b31 @0xa
0x1b27…1b36 at000b = ╱4c╱L╱ // 0x1b32 @0xb
0x1b27…1b36 at000c = ╱46╱F╱ // 0x1b33 @0xc
0x1b27…1b36 at000d = ╱ef╱ $ ╱ // 0x1b34 @0xd
0x1b27…1b36 at000e = EOL // 0x1b35 @0xe
0x1b27…1b36 }
0x1b36…1b3c a1d8 2600 ENDIF
0x1b36…1b3c LineComalBcd {
0x1b36…1b3c ptr = 0xa1d8 // 0x1b36 @0x0
0x1b36…1b3c lno = 0x2600 // 0x1b38 @0x2
0x1b36…1b3c at0004 = ╱9b╱ ENDIF ╱ // 0x1b3a @0x4
0x1b36…1b3c at0005 = EOL // 0x1b3b @0x5
0x1b36…1b3c }
0x1b3c…1b50 a1ec 2610 CURSOR 16 , 9
0x1b3c…1b50 LineComalBcd {
0x1b3c…1b50 ptr = 0xa1ec // 0x1b3c @0x0
0x1b3c…1b50 lno = 0x2610 // 0x1b3e @0x2
0x1b3c…1b50 at0004 = ╱a1╱ CURSOR ╱ // 0x1b40 @0x4
0x1b3c…1b50 at0005 = ╱31╱1╱ // 0x1b41 @0x5
0x1b3c…1b50 at0006 = ╱36╱6╱ // 0x1b42 @0x6
0x1b3c…1b50 at0007 = ╱fe00008005╱ // 0x1b43 @0x7
0x1b3c…1b50 at000c = ╱ec╱ , ╱ // 0x1b48 @0xc
0x1b3c…1b50 at000d = ╱39╱9╱ // 0x1b49 @0xd
0x1b3c…1b50 at000e = ╱fe00009004╱ // 0x1b4a @0xe
0x1b3c…1b50 at0013 = EOL // 0x1b4f @0x13
0x1b3c…1b50 }
0x1b50…1b6b a207 2620 PRINT BLANK $ ( 1 : 9 )
0x1b50…1b6b LineComalBcd {
0x1b50…1b6b ptr = 0xa207 // 0x1b50 @0x0
0x1b50…1b6b lno = 0x2620 // 0x1b52 @0x2
0x1b50…1b6b at0004 = ╱92╱ PRINT ╱ // 0x1b54 @0x4
0x1b50…1b6b at0005 = ╱42╱B╱ // 0x1b55 @0x5
0x1b50…1b6b at0006 = ╱4c╱L╱ // 0x1b56 @0x6
0x1b50…1b6b at0007 = ╱41╱A╱ // 0x1b57 @0x7
0x1b50…1b6b at0008 = ╱4e╱N╱ // 0x1b58 @0x8
0x1b50…1b6b at0009 = ╱4b╱K╱ // 0x1b59 @0x9
0x1b50…1b6b at000a = ╱ef╱ $ ╱ // 0x1b5a @0xa
0x1b50…1b6b at000b = ╱ed╱ ( ╱ // 0x1b5b @0xb
0x1b50…1b6b at000c = ╱31╱1╱ // 0x1b5c @0xc
0x1b50…1b6b at000d = ╱fe00008001╱ // 0x1b5d @0xd
0x1b50…1b6b at0012 = ╱f0╱ : ╱ // 0x1b62 @0x12
0x1b50…1b6b at0013 = ╱39╱9╱ // 0x1b63 @0x13
0x1b50…1b6b at0014 = ╱fe00009004╱ // 0x1b64 @0x14
0x1b50…1b6b at0019 = ╱ee╱ ) ╱ // 0x1b69 @0x19
0x1b50…1b6b at001a = EOL // 0x1b6a @0x1a
0x1b50…1b6b }
0x1b6b…1b81 a21b 2630 CURSOR 16M ╱05╱ , 9
0x1b6b…1b81 LineComalBcd {
0x1b6b…1b81 ptr = 0xa21b // 0x1b6b @0x0
0x1b6b…1b81 lno = 0x2630 // 0x1b6d @0x2
0x1b6b…1b81 at0004 = ╱a1╱ CURSOR ╱ // 0x1b6f @0x4
0x1b6b…1b81 at0005 = ╱31╱1╱ // 0x1b70 @0x5
0x1b6b…1b81 at0006 = ╱36╱6╱ // 0x1b71 @0x6
0x1b6b…1b81 at0007 = ╱fe0000804d╱ // 0x1b72 @0x7
0x1b6b…1b81 at000c = ╱4d╱M╱ // 0x1b77 @0xc
0x1b6b…1b81 at000d = ╱05╱ // 0x1b78 @0xd
0x1b6b…1b81 at000e = ╱ec╱ , ╱ // 0x1b79 @0xe
0x1b6b…1b81 at000f = ╱39╱9╱ // 0x1b7a @0xf
0x1b6b…1b81 at0010 = ╱fe00009004╱ // 0x1b7b @0x10
0x1b6b…1b81 at0015 = EOL // 0x1b80 @0x15
0x1b6b…1b81 }
0x1b81…1b8e a228 2640 PRINT DEBTLF $
0x1b81…1b8e LineComalBcd {
0x1b81…1b8e ptr = 0xa228 // 0x1b81 @0x0
0x1b81…1b8e lno = 0x2640 // 0x1b83 @0x2
0x1b81…1b8e at0004 = ╱92╱ PRINT ╱ // 0x1b85 @0x4
0x1b81…1b8e at0005 = ╱44╱D╱ // 0x1b86 @0x5
0x1b81…1b8e at0006 = ╱45╱E╱ // 0x1b87 @0x6
0x1b81…1b8e at0007 = ╱42╱B╱ // 0x1b88 @0x7
0x1b81…1b8e at0008 = ╱54╱T╱ // 0x1b89 @0x8
0x1b81…1b8e at0009 = ╱4c╱L╱ // 0x1b8a @0x9
0x1b81…1b8e at000a = ╱46╱F╱ // 0x1b8b @0xa
0x1b81…1b8e at000b = ╱ef╱ $ ╱ // 0x1b8c @0xb
0x1b81…1b8e at000c = EOL // 0x1b8d @0xc
0x1b81…1b8e }
0x1b8e…1b9b a235 2650 WHEN 8
0x1b8e…1b9b LineComalBcd {
0x1b8e…1b9b ptr = 0xa235 // 0x1b8e @0x0
0x1b8e…1b9b lno = 0x2650 // 0x1b90 @0x2
0x1b8e…1b9b at0004 = ╱a301╱ WHEN ╱ // 0x1b92 @0x4
0x1b8e…1b9b at0006 = ╱38╱8╱ // 0x1b94 @0x6
0x1b8e…1b9b at0007 = ╱fe00008004╱ // 0x1b95 @0x7
0x1b8e…1b9b at000c = EOL // 0x1b9a @0xc
0x1b8e…1b9b }
0x1b9b…1bad a247 2660 IF C[ND >< 1 THEN
0x1b9b…1bad LineComalBcd {
0x1b9b…1bad ptr = 0xa247 // 0x1b9b @0x0
0x1b9b…1bad lno = 0x2660 // 0x1b9d @0x2
0x1b9b…1bad at0004 = ╱9c╱ IF ╱ // 0x1b9f @0x4
0x1b9b…1bad at0005 = ╱43╱C╱ // 0x1ba0 @0x5
0x1b9b…1bad at0006 = ╱5b╱[╱ // 0x1ba1 @0x6
0x1b9b…1bad at0007 = ╱4e╱N╱ // 0x1ba2 @0x7
0x1b9b…1bad at0008 = ╱44╱D╱ // 0x1ba3 @0x8
0x1b9b…1bad at0009 = ╱e1╱ >< ╱ // 0x1ba4 @0x9
0x1b9b…1bad at000a = ╱31╱1╱ // 0x1ba5 @0xa
0x1b9b…1bad at000b = ╱fe00008001╱ // 0x1ba6 @0xb
0x1b9b…1bad at0010 = ╱b6╱ THEN ╱ // 0x1bab @0x10
0x1b9b…1bad at0011 = EOL // 0x1bac @0x11
0x1b9b…1bad }
0x1bad…1bc1 a25b 2670 CURSOR 2 , 10
0x1bad…1bc1 LineComalBcd {
0x1bad…1bc1 ptr = 0xa25b // 0x1bad @0x0
0x1bad…1bc1 lno = 0x2670 // 0x1baf @0x2
0x1bad…1bc1 at0004 = ╱a1╱ CURSOR ╱ // 0x1bb1 @0x4
0x1bad…1bc1 at0005 = ╱32╱2╱ // 0x1bb2 @0x5
0x1bad…1bc1 at0006 = ╱fe00008002╱ // 0x1bb3 @0x6
0x1bad…1bc1 at000b = ╱ec╱ , ╱ // 0x1bb8 @0xb
0x1bad…1bc1 at000c = ╱31╱1╱ // 0x1bb9 @0xc
0x1bad…1bc1 at000d = ╱30╱0╱ // 0x1bba @0xd
0x1bad…1bc1 at000e = ╱fe0000a004╱ // 0x1bbb @0xe
0x1bad…1bc1 at0013 = EOL // 0x1bc0 @0x13
0x1bad…1bc1 }
0x1bc1…1bd8 a270 2680 MM PRINT "8:Kundegr………:"
0x1bc1…1bd8 LineComalBcd {
0x1bc1…1bd8 ptr = 0xa270 // 0x1bc1 @0x0
0x1bc1…1bd8 lno = 0x2680 // 0x1bc3 @0x2
0x1bc1…1bd8 at0004 = ╱4d╱M╱ // 0x1bc5 @0x4
0x1bc1…1bd8 at0005 = ╱4d╱M╱ // 0x1bc6 @0x5
0x1bc1…1bd8 at0006 = ╱92╱ PRINT ╱ // 0x1bc7 @0x6
0x1bc1…1bd8 at0007 = ╱22╱"╱ // 0x1bc8 @0x7
0x1bc1…1bd8 at0008 = ╱38╱8╱ // 0x1bc9 @0x8
0x1bc1…1bd8 at0009 = ╱3a╱:╱ // 0x1bca @0x9
0x1bc1…1bd8 at000a = ╱4b╱K╱ // 0x1bcb @0xa
0x1bc1…1bd8 at000b = ╱75╱u╱ // 0x1bcc @0xb
0x1bc1…1bd8 at000c = ╱6e╱n╱ // 0x1bcd @0xc
0x1bc1…1bd8 at000d = ╱64╱d╱ // 0x1bce @0xd
0x1bc1…1bd8 at000e = ╱65╱e╱ // 0x1bcf @0xe
0x1bc1…1bd8 at000f = ╱67╱g╱ // 0x1bd0 @0xf
0x1bc1…1bd8 at0010 = ╱72╱r╱ // 0x1bd1 @0x10
0x1bc1…1bd8 at0011 = ╱20╱…╱ // 0x1bd2 @0x11
0x1bc1…1bd8 at0012 = ╱20╱…╱ // 0x1bd3 @0x12
0x1bc1…1bd8 at0013 = ╱20╱…╱ // 0x1bd4 @0x13
0x1bc1…1bd8 at0014 = ╱3a╱:╱ // 0x1bd5 @0x14
0x1bc1…1bd8 at0015 = ╱22╱"╱ // 0x1bd6 @0x15
0x1bc1…1bd8 at0016 = EOL // 0x1bd7 @0x16
0x1bc1…1bd8 }
0x1bd8…1be9 a281 2690 DSTYR = 9
0x1bd8…1be9 LineComalBcd {
0x1bd8…1be9 ptr = 0xa281 // 0x1bd8 @0x0
0x1bd8…1be9 lno = 0x2690 // 0x1bda @0x2
0x1bd8…1be9 at0004 = ╱44╱D╱ // 0x1bdc @0x4
0x1bd8…1be9 at0005 = ╱53╱S╱ // 0x1bdd @0x5
0x1bd8…1be9 at0006 = ╱54╱T╱ // 0x1bde @0x6
0x1bd8…1be9 at0007 = ╱59╱Y╱ // 0x1bdf @0x7
0x1bd8…1be9 at0008 = ╱52╱R╱ // 0x1be0 @0x8
0x1bd8…1be9 at0009 = ╱dc╱ = ╱ // 0x1be1 @0x9
0x1bd8…1be9 at000a = ╱39╱9╱ // 0x1be2 @0xa
0x1bd8…1be9 at000b = ╱fe00009004╱ // 0x1be3 @0xb
0x1bd8…1be9 at0010 = EOL // 0x1be8 @0x10
0x1bd8…1be9 }
0x1be9…1bef a287 2700 ELSE
0x1be9…1bef LineComalBcd {
0x1be9…1bef ptr = 0xa287 // 0x1be9 @0x0
0x1be9…1bef lno = 0x2700 // 0x1beb @0x2
0x1be9…1bef at0004 = ╱9a╱ ELSE ╱ // 0x1bed @0x4
0x1be9…1bef at0005 = EOL // 0x1bee @0x5
0x1be9…1bef }
0x1bef…1c01 a299 2710 IF TYPE = 2 THEN
0x1bef…1c01 LineComalBcd {
0x1bef…1c01 ptr = 0xa299 // 0x1bef @0x0
0x1bef…1c01 lno = 0x2710 // 0x1bf1 @0x2
0x1bef…1c01 at0004 = ╱9c╱ IF ╱ // 0x1bf3 @0x4
0x1bef…1c01 at0005 = ╱54╱T╱ // 0x1bf4 @0x5
0x1bef…1c01 at0006 = ╱59╱Y╱ // 0x1bf5 @0x6
0x1bef…1c01 at0007 = ╱50╱P╱ // 0x1bf6 @0x7
0x1bef…1c01 at0008 = ╱45╱E╱ // 0x1bf7 @0x8
0x1bef…1c01 at0009 = ╱dc╱ = ╱ // 0x1bf8 @0x9
0x1bef…1c01 at000a = ╱32╱2╱ // 0x1bf9 @0xa
0x1bef…1c01 at000b = ╱fe00008002╱ // 0x1bfa @0xb
0x1bef…1c01 at0010 = ╱b6╱ THEN ╱ // 0x1bff @0x10
0x1bef…1c01 at0011 = EOL // 0x1c00 @0x11
0x1bef…1c01 }
0x1c01…1c28 a2be 2720 EXEC KS\G ( DEBNR2 , ORD ( MMDEBKGR $ ) - 48 )
0x1c01…1c28 LineComalBcd {
0x1c01…1c28 ptr = 0xa2be // 0x1c01 @0x0
0x1c01…1c28 lno = 0x2720 // 0x1c03 @0x2
0x1c01…1c28 at0004 = ╱9d╱ EXEC ╱ // 0x1c05 @0x4
0x1c01…1c28 at0005 = ╱4b╱K╱ // 0x1c06 @0x5
0x1c01…1c28 at0006 = ╱53╱S╱ // 0x1c07 @0x6
0x1c01…1c28 at0007 = ╱5c╱\╱ // 0x1c08 @0x7
0x1c01…1c28 at0008 = ╱47╱G╱ // 0x1c09 @0x8
0x1c01…1c28 at0009 = ╱ed╱ ( ╱ // 0x1c0a @0x9
0x1c01…1c28 at000a = ╱44╱D╱ // 0x1c0b @0xa
0x1c01…1c28 at000b = ╱45╱E╱ // 0x1c0c @0xb
0x1c01…1c28 at000c = ╱42╱B╱ // 0x1c0d @0xc
0x1c01…1c28 at000d = ╱4e╱N╱ // 0x1c0e @0xd
0x1c01…1c28 at000e = ╱52╱R╱ // 0x1c0f @0xe
0x1c01…1c28 at000f = ╱32╱2╱ // 0x1c10 @0xf
0x1c01…1c28 at0010 = ╱ec╱ , ╱ // 0x1c11 @0x10
0x1c01…1c28 at0011 = ╱cd╱ ORD ╱ // 0x1c12 @0x11
0x1c01…1c28 at0012 = ╱ed╱ ( ╱ // 0x1c13 @0x12
0x1c01…1c28 at0013 = ╱4d╱M╱ // 0x1c14 @0x13
0x1c01…1c28 at0014 = ╱4d╱M╱ // 0x1c15 @0x14
0x1c01…1c28 at0015 = ╱44╱D╱ // 0x1c16 @0x15
0x1c01…1c28 at0016 = ╱45╱E╱ // 0x1c17 @0x16
0x1c01…1c28 at0017 = ╱42╱B╱ // 0x1c18 @0x17
0x1c01…1c28 at0018 = ╱4b╱K╱ // 0x1c19 @0x18
0x1c01…1c28 at0019 = ╱47╱G╱ // 0x1c1a @0x19
0x1c01…1c28 at001a = ╱52╱R╱ // 0x1c1b @0x1a
0x1c01…1c28 at001b = ╱ef╱ $ ╱ // 0x1c1c @0x1b
0x1c01…1c28 at001c = ╱ee╱ ) ╱ // 0x1c1d @0x1c
0x1c01…1c28 at001d = ╱e3╱ - ╱ // 0x1c1e @0x1d
0x1c01…1c28 at001e = ╱34╱4╱ // 0x1c1f @0x1e
0x1c01…1c28 at001f = ╱38╱8╱ // 0x1c20 @0x1f
0x1c01…1c28 at0020 = ╱fe0000c006╱ // 0x1c21 @0x20
0x1c01…1c28 at0025 = ╱ee╱ ) ╱ // 0x1c26 @0x25
0x1c01…1c28 at0026 = EOL // 0x1c27 @0x26
0x1c01…1c28 }
0x1c28…1c3e a2d4 2730 EXEC KINDSLET ( 0 )
0x1c28…1c3e LineComalBcd {
0x1c28…1c3e ptr = 0xa2d4 // 0x1c28 @0x0
0x1c28…1c3e lno = 0x2730 // 0x1c2a @0x2
0x1c28…1c3e at0004 = ╱9d╱ EXEC ╱ // 0x1c2c @0x4
0x1c28…1c3e at0005 = ╱4b╱K╱ // 0x1c2d @0x5
0x1c28…1c3e at0006 = ╱49╱I╱ // 0x1c2e @0x6
0x1c28…1c3e at0007 = ╱4e╱N╱ // 0x1c2f @0x7
0x1c28…1c3e at0008 = ╱44╱D╱ // 0x1c30 @0x8
0x1c28…1c3e at0009 = ╱53╱S╱ // 0x1c31 @0x9
0x1c28…1c3e at000a = ╱4c╱L╱ // 0x1c32 @0xa
0x1c28…1c3e at000b = ╱45╱E╱ // 0x1c33 @0xb
0x1c28…1c3e at000c = ╱54╱T╱ // 0x1c34 @0xc
0x1c28…1c3e at000d = ╱ed╱ ( ╱ // 0x1c35 @0xd
0x1c28…1c3e at000e = ╱30╱0╱ // 0x1c36 @0xe
0x1c28…1c3e at000f = ╱fe00000000╱ // 0x1c37 @0xf
0x1c28…1c3e at0014 = ╱ee╱ ) ╱ // 0x1c3c @0x14
0x1c28…1c3e at0015 = EOL // 0x1c3d @0x15
0x1c28…1c3e }
0x1c3e…1c44 a2da 2740 ENDIF
0x1c3e…1c44 LineComalBcd {
0x1c3e…1c44 ptr = 0xa2da // 0x1c3e @0x0
0x1c3e…1c44 lno = 0x2740 // 0x1c40 @0x2
0x1c3e…1c44 at0004 = ╱9b╱ ENDIF ╱ // 0x1c42 @0x4
0x1c3e…1c44 at0005 = EOL // 0x1c43 @0x5
0x1c3e…1c44 }
0x1c44…1c4a a2e0 2750 ENDIF
0x1c44…1c4a LineComalBcd {
0x1c44…1c4a ptr = 0xa2e0 // 0x1c44 @0x0
0x1c44…1c4a lno = 0x2750 // 0x1c46 @0x2
0x1c44…1c4a at0004 = ╱9b╱ ENDIF ╱ // 0x1c48 @0x4
0x1c44…1c4a at0005 = EOL // 0x1c49 @0x5
0x1c44…1c4a }
0x1c4a…1c5c a2f2 2760 IF C[ND >< 2 THEN
0x1c4a…1c5c LineComalBcd {
0x1c4a…1c5c ptr = 0xa2f2 // 0x1c4a @0x0
0x1c4a…1c5c lno = 0x2760 // 0x1c4c @0x2
0x1c4a…1c5c at0004 = ╱9c╱ IF ╱ // 0x1c4e @0x4
0x1c4a…1c5c at0005 = ╱43╱C╱ // 0x1c4f @0x5
0x1c4a…1c5c at0006 = ╱5b╱[╱ // 0x1c50 @0x6
0x1c4a…1c5c at0007 = ╱4e╱N╱ // 0x1c51 @0x7
0x1c4a…1c5c at0008 = ╱44╱D╱ // 0x1c52 @0x8
0x1c4a…1c5c at0009 = ╱e1╱ >< ╱ // 0x1c53 @0x9
0x1c4a…1c5c at000a = ╱32╱2╱ // 0x1c54 @0xa
0x1c4a…1c5c at000b = ╱fe00008002╱ // 0x1c55 @0xb
0x1c4a…1c5c at0010 = ╱b6╱ THEN ╱ // 0x1c5a @0x10
0x1c4a…1c5c at0011 = EOL // 0x1c5b @0x11
0x1c4a…1c5c }
0x1c5c…1c62 a2f8 2770 REPEAT
0x1c5c…1c62 LineComalBcd {
0x1c5c…1c62 ptr = 0xa2f8 // 0x1c5c @0x0
0x1c5c…1c62 lno = 0x2770 // 0x1c5e @0x2
0x1c5c…1c62 at0004 = ╱97╱ REPEAT ╱ // 0x1c60 @0x4
0x1c5c…1c62 at0005 = EOL // 0x1c61 @0x5
0x1c5c…1c62 }
0x1c62…1c78 4d0c 4da3 ' ╱80╱ CURSOR 3 , 23
0x1c62…1c78 LineComalBcd {
0x1c62…1c78 ptr = 0x4d0c // 0x1c62 @0x0
0x1c62…1c78 lno = 0x4da3 // 0x1c64 @0x2
0x1c62…1c78 at0004 = ╱27╱'╱ // 0x1c66 @0x4
0x1c62…1c78 at0005 = ╱80╱ // 0x1c67 @0x5
0x1c62…1c78 at0006 = ╱a1╱ CURSOR ╱ // 0x1c68 @0x6
0x1c62…1c78 at0007 = ╱33╱3╱ // 0x1c69 @0x7
0x1c62…1c78 at0008 = ╱fe0000c002╱ // 0x1c6a @0x8
0x1c62…1c78 at000d = ╱ec╱ , ╱ // 0x1c6f @0xd
0x1c62…1c78 at000e = ╱32╱2╱ // 0x1c70 @0xe
0x1c62…1c78 at000f = ╱33╱3╱ // 0x1c71 @0xf
0x1c62…1c78 at0010 = ╱fe0000b805╱ // 0x1c72 @0x10
0x1c62…1c78 at0015 = EOL // 0x1c77 @0x15
0x1c62…1c78 }
0x1c78…1cb5 a347 2790 PRINT "Kundegr……………………(max…2…cifre)" ; BLANK $ ( 1 : 49 ) MM
0x1c78…1cb5 LineComalBcd {
0x1c78…1cb5 ptr = 0xa347 // 0x1c78 @0x0
0x1c78…1cb5 lno = 0x2790 // 0x1c7a @0x2
0x1c78…1cb5 at0004 = ╱92╱ PRINT ╱ // 0x1c7c @0x4
0x1c78…1cb5 at0005 = ╱22╱"╱ // 0x1c7d @0x5
0x1c78…1cb5 at0006 = ╱4b╱K╱ // 0x1c7e @0x6
0x1c78…1cb5 at0007 = ╱75╱u╱ // 0x1c7f @0x7
0x1c78…1cb5 at0008 = ╱6e╱n╱ // 0x1c80 @0x8
0x1c78…1cb5 at0009 = ╱64╱d╱ // 0x1c81 @0x9
0x1c78…1cb5 at000a = ╱65╱e╱ // 0x1c82 @0xa
0x1c78…1cb5 at000b = ╱67╱g╱ // 0x1c83 @0xb
0x1c78…1cb5 at000c = ╱72╱r╱ // 0x1c84 @0xc
0x1c78…1cb5 at000d = ╱20╱…╱ // 0x1c85 @0xd
0x1c78…1cb5 at000e = ╱20╱…╱ // 0x1c86 @0xe
0x1c78…1cb5 at000f = ╱20╱…╱ // 0x1c87 @0xf
0x1c78…1cb5 at0010 = ╱20╱…╱ // 0x1c88 @0x10
0x1c78…1cb5 at0011 = ╱20╱…╱ // 0x1c89 @0x11
0x1c78…1cb5 at0012 = ╱20╱…╱ // 0x1c8a @0x12
0x1c78…1cb5 at0013 = ╱20╱…╱ // 0x1c8b @0x13
0x1c78…1cb5 at0014 = ╱20╱…╱ // 0x1c8c @0x14
0x1c78…1cb5 at0015 = ╱28╱(╱ // 0x1c8d @0x15
0x1c78…1cb5 at0016 = ╱6d╱m╱ // 0x1c8e @0x16
0x1c78…1cb5 at0017 = ╱61╱a╱ // 0x1c8f @0x17
0x1c78…1cb5 at0018 = ╱78╱x╱ // 0x1c90 @0x18
0x1c78…1cb5 at0019 = ╱20╱…╱ // 0x1c91 @0x19
0x1c78…1cb5 at001a = ╱32╱2╱ // 0x1c92 @0x1a
0x1c78…1cb5 at001b = ╱20╱…╱ // 0x1c93 @0x1b
0x1c78…1cb5 at001c = ╱63╱c╱ // 0x1c94 @0x1c
0x1c78…1cb5 at001d = ╱69╱i╱ // 0x1c95 @0x1d
0x1c78…1cb5 at001e = ╱66╱f╱ // 0x1c96 @0x1e
0x1c78…1cb5 at001f = ╱72╱r╱ // 0x1c97 @0x1f
0x1c78…1cb5 at0020 = ╱65╱e╱ // 0x1c98 @0x20
0x1c78…1cb5 at0021 = ╱29╱)╱ // 0x1c99 @0x21
0x1c78…1cb5 at0022 = ╱22╱"╱ // 0x1c9a @0x22
0x1c78…1cb5 at0023 = ╱eb╱ ; ╱ // 0x1c9b @0x23
0x1c78…1cb5 at0024 = ╱42╱B╱ // 0x1c9c @0x24
0x1c78…1cb5 at0025 = ╱4c╱L╱ // 0x1c9d @0x25
0x1c78…1cb5 at0026 = ╱41╱A╱ // 0x1c9e @0x26
0x1c78…1cb5 at0027 = ╱4e╱N╱ // 0x1c9f @0x27
0x1c78…1cb5 at0028 = ╱4b╱K╱ // 0x1ca0 @0x28
0x1c78…1cb5 at0029 = ╱ef╱ $ ╱ // 0x1ca1 @0x29
0x1c78…1cb5 at002a = ╱ed╱ ( ╱ // 0x1ca2 @0x2a
0x1c78…1cb5 at002b = ╱31╱1╱ // 0x1ca3 @0x2b
0x1c78…1cb5 at002c = ╱fe00008001╱ // 0x1ca4 @0x2c
0x1c78…1cb5 at0031 = ╱f0╱ : ╱ // 0x1ca9 @0x31
0x1c78…1cb5 at0032 = ╱34╱4╱ // 0x1caa @0x32
0x1c78…1cb5 at0033 = ╱39╱9╱ // 0x1cab @0x33
0x1c78…1cb5 at0034 = ╱fe0000c406╱ // 0x1cac @0x34
0x1c78…1cb5 at0039 = ╱ee╱ ) ╱ // 0x1cb1 @0x39
0x1c78…1cb5 at003a = ╱4d╱M╱ // 0x1cb2 @0x3a
0x1c78…1cb5 at003b = ╱4d╱M╱ // 0x1cb3 @0x3b
0x1c78…1cb5 at003c = EOL // 0x1cb4 @0x3c
0x1c78…1cb5 }
0x1cb5…1cca a35c 2800 CURSOR 13 , 23
0x1cb5…1cca LineComalBcd {
0x1cb5…1cca ptr = 0xa35c // 0x1cb5 @0x0
0x1cb5…1cca lno = 0x2800 // 0x1cb7 @0x2
0x1cb5…1cca at0004 = ╱a1╱ CURSOR ╱ // 0x1cb9 @0x4
0x1cb5…1cca at0005 = ╱31╱1╱ // 0x1cba @0x5
0x1cb5…1cca at0006 = ╱33╱3╱ // 0x1cbb @0x6
0x1cb5…1cca at0007 = ╱fe0000d004╱ // 0x1cbc @0x7
0x1cb5…1cca at000c = ╱ec╱ , ╱ // 0x1cc1 @0xc
0x1cb5…1cca at000d = ╱32╱2╱ // 0x1cc2 @0xd
0x1cb5…1cca at000e = ╱33╱3╱ // 0x1cc3 @0xe
0x1cb5…1cca at000f = ╱fe0000b805╱ // 0x1cc4 @0xf
0x1cb5…1cca at0014 = EOL // 0x1cc9 @0x14
0x1cb5…1cca }
0x1cca…1cd3 a365 2810 INPUT KG $
0x1cca…1cd3 LineComalBcd {
0x1cca…1cd3 ptr = 0xa365 // 0x1cca @0x0
0x1cca…1cd3 lno = 0x2810 // 0x1ccc @0x2
0x1cca…1cd3 at0004 = ╱91╱ INPUT ╱ // 0x1cce @0x4
0x1cca…1cd3 at0005 = ╱4b╱K╱ // 0x1ccf @0x5
0x1cca…1cd3 at0006 = ╱47╱G╱ // 0x1cd0 @0x6
0x1cca…1cd3 at0007 = ╱ef╱ $ ╱ // 0x1cd1 @0x7
0x1cca…1cd3 at0008 = EOL // 0x1cd2 @0x8
0x1cca…1cd3 }
0x1cd3…1ce4 a376 2820 EXEC NRTEST ( KG $ )
0x1cd3…1ce4 LineComalBcd {
0x1cd3…1ce4 ptr = 0xa376 // 0x1cd3 @0x0
0x1cd3…1ce4 lno = 0x2820 // 0x1cd5 @0x2
0x1cd3…1ce4 at0004 = ╱9d╱ EXEC ╱ // 0x1cd7 @0x4
0x1cd3…1ce4 at0005 = ╱4e╱N╱ // 0x1cd8 @0x5
0x1cd3…1ce4 at0006 = ╱52╱R╱ // 0x1cd9 @0x6
0x1cd3…1ce4 at0007 = ╱54╱T╱ // 0x1cda @0x7
0x1cd3…1ce4 at0008 = ╱45╱E╱ // 0x1cdb @0x8
0x1cd3…1ce4 at0009 = ╱53╱S╱ // 0x1cdc @0x9
0x1cd3…1ce4 at000a = ╱54╱T╱ // 0x1cdd @0xa
0x1cd3…1ce4 at000b = ╱ed╱ ( ╱ // 0x1cde @0xb
0x1cd3…1ce4 at000c = ╱4b╱K╱ // 0x1cdf @0xc
0x1cd3…1ce4 at000d = ╱47╱G╱ // 0x1ce0 @0xd
0x1cd3…1ce4 at000e = ╱ef╱ $ ╱ // 0x1ce1 @0xe
0x1cd3…1ce4 at000f = ╱ee╱ ) ╱ // 0x1ce2 @0xf
0x1cd3…1ce4 at0010 = EOL // 0x1ce3 @0x10
0x1cd3…1ce4 }
0x1ce4…1d22 a3b2 2830 UNTIL ( P > 0 AND TEST2 = 0 AND PMM =< MKGR ) OR ( P = - 1 AND C[ND = 1 )
0x1ce4…1d22 LineComalBcd {
0x1ce4…1d22 ptr = 0xa3b2 // 0x1ce4 @0x0
0x1ce4…1d22 lno = 0x2830 // 0x1ce6 @0x2
0x1ce4…1d22 at0004 = ╱98╱ UNTIL ╱ // 0x1ce8 @0x4
0x1ce4…1d22 at0005 = ╱ed╱ ( ╱ // 0x1ce9 @0x5
0x1ce4…1d22 at0006 = ╱50╱P╱ // 0x1cea @0x6
0x1ce4…1d22 at0007 = ╱de╱ > ╱ // 0x1ceb @0x7
0x1ce4…1d22 at0008 = ╱30╱0╱ // 0x1cec @0x8
0x1ce4…1d22 at0009 = ╱fe00000000╱ // 0x1ced @0x9
0x1ce4…1d22 at000e = ╱da╱ AND ╱ // 0x1cf2 @0xe
0x1ce4…1d22 at000f = ╱54╱T╱ // 0x1cf3 @0xf
0x1ce4…1d22 at0010 = ╱45╱E╱ // 0x1cf4 @0x10
0x1ce4…1d22 at0011 = ╱53╱S╱ // 0x1cf5 @0x11
0x1ce4…1d22 at0012 = ╱54╱T╱ // 0x1cf6 @0x12
0x1ce4…1d22 at0013 = ╱32╱2╱ // 0x1cf7 @0x13
0x1ce4…1d22 at0014 = ╱dc╱ = ╱ // 0x1cf8 @0x14
0x1ce4…1d22 at0015 = ╱30╱0╱ // 0x1cf9 @0x15
0x1ce4…1d22 at0016 = ╱fe00000000╱ // 0x1cfa @0x16
0x1ce4…1d22 at001b = ╱da╱ AND ╱ // 0x1cff @0x1b
0x1ce4…1d22 at001c = ╱50╱P╱ // 0x1d00 @0x1c
0x1ce4…1d22 at001d = ╱4d╱M╱ // 0x1d01 @0x1d
0x1ce4…1d22 at001e = ╱4d╱M╱ // 0x1d02 @0x1e
0x1ce4…1d22 at001f = ╱df╱ =< ╱ // 0x1d03 @0x1f
0x1ce4…1d22 at0020 = ╱4d╱M╱ // 0x1d04 @0x20
0x1ce4…1d22 at0021 = ╱4b╱K╱ // 0x1d05 @0x21
0x1ce4…1d22 at0022 = ╱47╱G╱ // 0x1d06 @0x22
0x1ce4…1d22 at0023 = ╱52╱R╱ // 0x1d07 @0x23
0x1ce4…1d22 at0024 = ╱ee╱ ) ╱ // 0x1d08 @0x24
0x1ce4…1d22 at0025 = ╱db╱ OR ╱ // 0x1d09 @0x25
0x1ce4…1d22 at0026 = ╱ed╱ ( ╱ // 0x1d0a @0x26
0x1ce4…1d22 at0027 = ╱50╱P╱ // 0x1d0b @0x27
0x1ce4…1d22 at0028 = ╱dc╱ = ╱ // 0x1d0c @0x28
0x1ce4…1d22 at0029 = ╱e9╱ - ╱ // 0x1d0d @0x29
0x1ce4…1d22 at002a = ╱31╱1╱ // 0x1d0e @0x2a
0x1ce4…1d22 at002b = ╱fe00008001╱ // 0x1d0f @0x2b
0x1ce4…1d22 at0030 = ╱da╱ AND ╱ // 0x1d14 @0x30
0x1ce4…1d22 at0031 = ╱43╱C╱ // 0x1d15 @0x31
0x1ce4…1d22 at0032 = ╱5b╱[╱ // 0x1d16 @0x32
0x1ce4…1d22 at0033 = ╱4e╱N╱ // 0x1d17 @0x33
0x1ce4…1d22 at0034 = ╱44╱D╱ // 0x1d18 @0x34
0x1ce4…1d22 at0035 = ╱dc╱ = ╱ // 0x1d19 @0x35
0x1ce4…1d22 at0036 = ╱31╱1╱ // 0x1d1a @0x36
0x1ce4…1d22 at0037 = ╱fe00008001╱ // 0x1d1b @0x37
0x1ce4…1d22 at003c = ╱ee╱ ) ╱ // 0x1d20 @0x3c
0x1ce4…1d22 at003d = EOL // 0x1d21 @0x3d
0x1ce4…1d22 }
0x1d22…1d28 a3b8 2840 ENDIF
0x1d22…1d28 LineComalBcd {
0x1d22…1d28 ptr = 0xa3b8 // 0x1d22 @0x0
0x1d22…1d28 lno = 0x2840 // 0x1d24 @0x2
0x1d22…1d28 at0004 = ╱9b╱ ENDIF ╱ // 0x1d26 @0x4
0x1d22…1d28 at0005 = EOL // 0x1d27 @0x5
0x1d22…1d28 }
0x1d28…1d3d a3cd 2850 CURSOR 16 , 10
0x1d28…1d3d LineComalBcd {
0x1d28…1d3d ptr = 0xa3cd // 0x1d28 @0x0
0x1d28…1d3d lno = 0x2850 // 0x1d2a @0x2
0x1d28…1d3d at0004 = ╱a1╱ CURSOR ╱ // 0x1d2c @0x4
0x1d28…1d3d at0005 = ╱31╱1╱ // 0x1d2d @0x5
0x1d28…1d3d at0006 = ╱36╱6╱ // 0x1d2e @0x6
0x1d28…1d3d at0007 = ╱fe00008005╱ // 0x1d2f @0x7
0x1d28…1d3d at000c = ╱ec╱ , ╱ // 0x1d34 @0xc
0x1d28…1d3d at000d = ╱31╱1╱ // 0x1d35 @0xd
0x1d28…1d3d at000e = ╱30╱0╱ // 0x1d36 @0xe
0x1d28…1d3d at000f = ╱fe0000a004╱ // 0x1d37 @0xf
0x1d28…1d3d at0014 = EOL // 0x1d3c @0x14
0x1d28…1d3d }
0x1d3d…1da0 a3e8 2860 IF P > 0 AND C[ND >< Mccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
0x1d3d…1da0 LineComalBcd {
0x1d3d…1da0 ptr = 0xa3e8 // 0x1d3d @0x0
0x1d3d…1da0 lno = 0x2860 // 0x1d3f @0x2
0x1d3d…1da0 at0004 = ╱9c╱ IF ╱ // 0x1d41 @0x4
0x1d3d…1da0 at0005 = ╱50╱P╱ // 0x1d42 @0x5
0x1d3d…1da0 at0006 = ╱de╱ > ╱ // 0x1d43 @0x6
0x1d3d…1da0 at0007 = ╱30╱0╱ // 0x1d44 @0x7
0x1d3d…1da0 at0008 = ╱fe00000000╱ // 0x1d45 @0x8
0x1d3d…1da0 at000d = ╱da╱ AND ╱ // 0x1d4a @0xd
0x1d3d…1da0 at000e = ╱43╱C╱ // 0x1d4b @0xe
0x1d3d…1da0 at000f = ╱5b╱[╱ // 0x1d4c @0xf
0x1d3d…1da0 at0010 = ╱4e╱N╱ // 0x1d4d @0x10
0x1d3d…1da0 at0011 = ╱44╱D╱ // 0x1d4e @0x11
0x1d3d…1da0 at0012 = ╱e1╱ >< ╱ // 0x1d4f @0x12
0x1d3d…1da0 at0013 = ╱4d╱M╱ // 0x1d50 @0x13
0x1d3d…1da0 at0014 = ╱63╱c╱ // 0x1d51 @0x14
0x1d3d…1da0 at0015 = ╱63╱c╱ // 0x1d52 @0x15
0x1d3d…1da0 at0016 = ╱63╱c╱ // 0x1d53 @0x16
0x1d3d…1da0 at0017 = ╱63╱c╱ // 0x1d54 @0x17
0x1d3d…1da0 at0018 = ╱63╱c╱ // 0x1d55 @0x18
0x1d3d…1da0 at0019 = ╱63╱c╱ // 0x1d56 @0x19
0x1d3d…1da0 at001a = ╱63╱c╱ // 0x1d57 @0x1a
0x1d3d…1da0 at001b = ╱63╱c╱ // 0x1d58 @0x1b
0x1d3d…1da0 at001c = ╱63╱c╱ // 0x1d59 @0x1c
0x1d3d…1da0 at001d = ╱63╱c╱ // 0x1d5a @0x1d
0x1d3d…1da0 at001e = ╱63╱c╱ // 0x1d5b @0x1e
0x1d3d…1da0 at001f = ╱63╱c╱ // 0x1d5c @0x1f
0x1d3d…1da0 at0020 = ╱63╱c╱ // 0x1d5d @0x20
0x1d3d…1da0 at0021 = ╱63╱c╱ // 0x1d5e @0x21
0x1d3d…1da0 at0022 = ╱63╱c╱ // 0x1d5f @0x22
0x1d3d…1da0 at0023 = ╱63╱c╱ // 0x1d60 @0x23
0x1d3d…1da0 at0024 = ╱63╱c╱ // 0x1d61 @0x24
0x1d3d…1da0 at0025 = ╱63╱c╱ // 0x1d62 @0x25
0x1d3d…1da0 at0026 = ╱63╱c╱ // 0x1d63 @0x26
0x1d3d…1da0 at0027 = ╱63╱c╱ // 0x1d64 @0x27
0x1d3d…1da0 at0028 = ╱63╱c╱ // 0x1d65 @0x28
0x1d3d…1da0 at0029 = ╱63╱c╱ // 0x1d66 @0x29
0x1d3d…1da0 at002a = ╱63╱c╱ // 0x1d67 @0x2a
0x1d3d…1da0 at002b = ╱63╱c╱ // 0x1d68 @0x2b
0x1d3d…1da0 at002c = ╱63╱c╱ // 0x1d69 @0x2c
0x1d3d…1da0 at002d = ╱63╱c╱ // 0x1d6a @0x2d
0x1d3d…1da0 at002e = ╱63╱c╱ // 0x1d6b @0x2e
0x1d3d…1da0 at002f = ╱63╱c╱ // 0x1d6c @0x2f
0x1d3d…1da0 at0030 = ╱63╱c╱ // 0x1d6d @0x30
0x1d3d…1da0 at0031 = ╱63╱c╱ // 0x1d6e @0x31
0x1d3d…1da0 at0032 = ╱63╱c╱ // 0x1d6f @0x32
0x1d3d…1da0 at0033 = ╱63╱c╱ // 0x1d70 @0x33
0x1d3d…1da0 at0034 = ╱63╱c╱ // 0x1d71 @0x34
0x1d3d…1da0 at0035 = ╱63╱c╱ // 0x1d72 @0x35
0x1d3d…1da0 at0036 = ╱63╱c╱ // 0x1d73 @0x36
0x1d3d…1da0 at0037 = ╱63╱c╱ // 0x1d74 @0x37
0x1d3d…1da0 at0038 = ╱63╱c╱ // 0x1d75 @0x38
0x1d3d…1da0 at0039 = ╱63╱c╱ // 0x1d76 @0x39
0x1d3d…1da0 at003a = ╱63╱c╱ // 0x1d77 @0x3a
0x1d3d…1da0 at003b = ╱63╱c╱ // 0x1d78 @0x3b
0x1d3d…1da0 at003c = ╱63╱c╱ // 0x1d79 @0x3c
0x1d3d…1da0 at003d = ╱63╱c╱ // 0x1d7a @0x3d
0x1d3d…1da0 at003e = ╱63╱c╱ // 0x1d7b @0x3e
0x1d3d…1da0 at003f = ╱63╱c╱ // 0x1d7c @0x3f
0x1d3d…1da0 at0040 = ╱63╱c╱ // 0x1d7d @0x40
0x1d3d…1da0 at0041 = ╱63╱c╱ // 0x1d7e @0x41
0x1d3d…1da0 at0042 = ╱63╱c╱ // 0x1d7f @0x42
0x1d3d…1da0 at0043 = ╱63╱c╱ // 0x1d80 @0x43
0x1d3d…1da0 at0044 = ╱63╱c╱ // 0x1d81 @0x44
0x1d3d…1da0 at0045 = ╱63╱c╱ // 0x1d82 @0x45
0x1d3d…1da0 at0046 = ╱63╱c╱ // 0x1d83 @0x46
0x1d3d…1da0 at0047 = ╱63╱c╱ // 0x1d84 @0x47
0x1d3d…1da0 at0048 = ╱63╱c╱ // 0x1d85 @0x48
0x1d3d…1da0 at0049 = ╱63╱c╱ // 0x1d86 @0x49
0x1d3d…1da0 at004a = ╱63╱c╱ // 0x1d87 @0x4a
0x1d3d…1da0 at004b = ╱63╱c╱ // 0x1d88 @0x4b
0x1d3d…1da0 at004c = ╱63╱c╱ // 0x1d89 @0x4c
0x1d3d…1da0 at004d = ╱63╱c╱ // 0x1d8a @0x4d
0x1d3d…1da0 at004e = ╱63╱c╱ // 0x1d8b @0x4e
0x1d3d…1da0 at004f = ╱63╱c╱ // 0x1d8c @0x4f
0x1d3d…1da0 at0050 = ╱63╱c╱ // 0x1d8d @0x50
0x1d3d…1da0 at0051 = ╱63╱c╱ // 0x1d8e @0x51
0x1d3d…1da0 at0052 = ╱63╱c╱ // 0x1d8f @0x52
0x1d3d…1da0 at0053 = ╱63╱c╱ // 0x1d90 @0x53
0x1d3d…1da0 at0054 = ╱63╱c╱ // 0x1d91 @0x54
0x1d3d…1da0 at0055 = ╱63╱c╱ // 0x1d92 @0x55
0x1d3d…1da0 at0056 = ╱63╱c╱ // 0x1d93 @0x56
0x1d3d…1da0 at0057 = ╱63╱c╱ // 0x1d94 @0x57
0x1d3d…1da0 at0058 = ╱63╱c╱ // 0x1d95 @0x58
0x1d3d…1da0 at0059 = ╱63╱c╱ // 0x1d96 @0x59
0x1d3d…1da0 at005a = ╱63╱c╱ // 0x1d97 @0x5a
0x1d3d…1da0 at005b = ╱63╱c╱ // 0x1d98 @0x5b
0x1d3d…1da0 at005c = ╱63╱c╱ // 0x1d99 @0x5c
0x1d3d…1da0 at005d = ╱63╱c╱ // 0x1d9a @0x5d
0x1d3d…1da0 at005e = ╱63╱c╱ // 0x1d9b @0x5e
0x1d3d…1da0 at005f = ╱63╱c╱ // 0x1d9c @0x5f
0x1d3d…1da0 at0060 = ╱63╱c╱ // 0x1d9d @0x60
0x1d3d…1da0 at0061 = ╱63╱c╱ // 0x1d9e @0x61
0x1d3d…1da0 at0062 = ╱63╱c╱ // 0x1d9f @0x62
0x1d3d…1da0 }