|
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: 21345 (0x5361)
Types: SPC/1-COMAL-BCD
Notes: Mikados_B
Names: »KASRAP«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »KASRAP«
0100 DIM OP1 $ ( 12 ) , OP2 $ ( 12 ) , RES $ ( 14 ) , A1 $ ( 12 ) , A2 $ ( 77 ) , A3 $ ( 25 ) , A4 $ ( 17 )
0110 DIM A5 $ ( 17 ) , A6 $ ( 17 ) , A7 $ ( 25 ) , A8 $ ( 12 ) , A9 $ ( 1 ) , B0 $ ( 25 )
0120 DIM B1 $ ( 12 ) , B2 $ ( 12 ) , B3 $ ( 12 ) , B4 $ ( 25 ) , B5 $ ( 25 )
0130 DIM B6 $ ( 17 ) , B7 $ ( 77 ) , B8 $ ( 14 ) , B9 $ ( 12 ) , C0 $ ( 9 ) , C1 $ ( 20 ) , C2 $ ( 17 )
0140 DIM C3 $ ( 12 ) , C4 $ ( 12 ) , C5 $ ( 1 ) , A $ ( 2 ) , C6 $ ( 12 ) , C7 $ ( 1 ) , C8 $ ( 1 )
0150 DIM C9 $ ( 17 ) , D0 $ ( 17 ) , D1 $ ( 17 ) , D2 $ ( 17 ) , D3 $ ( 17 ) , D4 $ ( 26 ) , D5 $ ( 7 ) , D6 $ ( 8 )
0160 DIM D7 $ ( 12 ) , D8 $ ( 12 ) , D9 $ ( 12 ) , E0 $ ( 12 ) , E1 $ ( 12 )
0170 DIM E2 $ ( 17 ) , E3 $ ( 25 ) , E4 $ ( 25 ) , E5 $ ( 18 , 10 ) , E6 $ ( 1 ) , E7 $ ( 6 ) , E8 ( 9 )
0180 DIM E9 $ ( 17 ) , F0 ( 9 ) , F1 $ ( 1 ) , F2 $ ( 1 ) , F3 $ ( 12 ) , F4 $ ( 12 ) , F5 $ ( 6 , 12 )
0190 DIM F6 $ ( 12 ) , F7 $ ( 12 ) , F8 $ ( 25 ) , F9 $ ( 6 , 12 ) , G0 $ ( 1 ) , G1 ( 9 )
0200 DIM G2 ( 18 ) , G3 ( 18 ) , G4 ( 18 ) , G5 ( 18 ) , G6 $ ( 18 , 12 ) , G7 ( 18 ) , G8 $ ( 18 , 25 )
0210 PROC CALC ( G9 , H0 , H1 , H2 )
0220 OP1 $ = H0 $ ; OP2 $ = H1 $ ; RES $ = H2 $ ; SI = 0 ; FLAG = 0 ; ART = G9 - 6 * ( G9 > 5 )
0230 CALL "P641210:REGN"
0240 H2 $ = RES $
0250 IF G9 >< 6 THEN
0260 IF FLAG THEN STOP
0270 ENDIF
0280 ENDPROC
0290 PROC INDTASTNING ( H3 )
0300 REPEAT
0310 CASE H3 OF
0320 STOP
0330 WHEN 1
0340 REPEAT
0350 REPEAT
0360 CURSOR 3 , 23
0370 PRINT "Bilag………………(0:F{rdig,…RETURN:Automatisk,…D:Ny…dato,…A:Annuller)"
0380 CURSOR 8 , 23
0390 INPUT D5 $
0400 EXEC NRTEST ( D5 $ )
0410 UNTIL P >= - 3 AND H4 = 0
0420 IF P >< 0 AND H5 = 19 AND P >< - 2 AND P >< - 3 THEN
0430 CLEAR
0440 EXEC UDHOVED
0450 H5 = 1
0460 EXEC UDLINIE ( H6 , H7 , E4 $ , F4 $ , H8 )
0470 EXEC KYSGEM
0480 H5 = H5 + 1
0490 ENDIF
0500 H9 = - 1
0510 REPEAT
0520 H9 = - 1
0530 CASE P OF
0540 CURSOR 1 , H5 + 3
0550 PRINT USING "###" : H5
0560 H7 = P
0570 P = - 4
0580 I0 = H7
0590 CURSOR 4 , H5 + 3
0600 PRINT USING "#######" : H7
0610 H3 = 2
0620 WHEN 0
0630 H3 = 6
0640 IF I1 = 2 THEN H3 = - 1
0650 P = - 4
0660 WHEN - 1
0670 I0 = I0 + 1
0680 P = I0
0690 H9 = 0
0700 WHEN - 2
0710 EXEC NYDATO
0720 EXEC UDHOVED
0730 WHEN - 3
0740 IF I2 > I3 THEN
0750 I0 = I0 - 1
0760 H5 = H5 - 1
0770 EXEC KLET ( 5 )
0780 EXEC [ND ( 1 , F4 $ , H8 )
0790 I2 = I3 ; I4 = I3 - 1
0800 ENDIF
0810 ENDCASE
0820 UNTIL H9 = - 1
0830 UNTIL P = - 4
0840 WHEN 2
0850 REPEAT
0860 REPEAT
0870 CURSOR 3 , 23
0880 PRINT "Tekst" + B7 $ ( 1 : 27 ) + "(max…25…tegn)" + B7 $ ( 1 : 32 )
0890 CURSOR 9 , 23
0900 INPUT D4 $
0910 I5 = LEN ( D4 $ )
0920 UNTIL I5 =< 25
0930 IF I5 < 3 THEN
0940 EXEC NRTEST ( D4 $ )
0950 ELSE
0960 P = 20 ; H4 = 0
0970 ENDIF
0980 UNTIL P >= 0 AND P < 21 AND H4 = 0 AND P >< 10
0990 IF P >< 0 THEN
1000 I6 = P MOD 10
1010 IF I6 = 0 THEN
1020 P = 10
1030 E3 $ = D4 $
1040 E4 $ = E3 $
1050 ELSE
1060 E4 $ = E5 $ ( I6 ) + B7 $ ( 1 : 15 )
1070 IF P > 10 THEN
1080 REPEAT
1090 CURSOR 3 , 23
1100 PRINT "Tekst" ; B7 $ ( 1 : 16 ) ; "(max…14…tegn)" + B7 $ ( 1 : 43 )
1110 CURSOR 9 , 23
1120 INPUT D4 $
1130 UNTIL LEN ( D4 $ ) < 15
1140 E4 $ ( 12 , 25 ) = D4 $
1150 E3 $ = E4 $
1160 ENDIF
1170 ENDIF
1180 CURSOR 12 , H5 + 3
1190 PRINT E4 $
1200 ELSE
1210 E4 $ = B7 $ ( 1 : 25 )
1220 ENDIF
1230 H3 = 3
1240 I7 = P
1250 WHEN 3
1260 REPEAT
1270 REPEAT
1280 CURSOR 3 , 23
1290 PRINT "Konto………………………(5…cifre)" ; B7 $ ( 1 : 53 )
1300 CURSOR 9 , 23
1310 INPUT D5 $
1320 EXEC NRTEST ( D5 $ )
1330 UNTIL H4 = 0 AND ( I8 >< 0 AND I5 = 5 )
1340 H6 = P
1350 EXEC KTNAVN ( I8 , H6 )
1360 CURSOR 15 , 23
1370 PRINT "(Navn:" ; B7 $ ( 1 : 27 ) ; "Er…konto…rigtig……………(J/N)…………………"
1380 CURSOR 22 , 23
1390 PRINT B4 $
1400 REPEAT
1410 CURSOR 64 , 23
1420 INPUT A $
1430 EXEC NRTEST ( A $ )
1440 UNTIL P = - 7 OR P = - 8
1450 UNTIL P = - 7 AND ( ( I9 = 0 AND I1 = 1 ) OR I1 >< 1 )
1460 IF I9 = 1 THEN
1470 EXEC KLET ( 5 )
1480 H3 = 1 ; I0 = I0 - 1
1490 ELSE
1500 CURSOR 38 , H5 + 3
1510 H3 = 4
1520 IF I1 = 1 THEN H3 = - 1
1530 PRINT USING "######" : H6
1540 ENDIF
1550 WHEN 4
1560 REPEAT
1570 REPEAT
1580 REPEAT
1590 REPEAT
1600 CURSOR 3 , 23
1610 PRINT "Bel|b" ; B7 $ ( 1 : 14 ) ; "(Kredit…indtastes…med…efterstillet…minus)" ;
1620 PRINT B7 $ ( 1 : 16 )
1630 CURSOR 8 , 23
1640 INPUT F3 $
1650 UNTIL LEN ( F3 $ ) > 0
1660 EXEC FORTEGN
1670 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
1680 UNTIL FLAG = 0
1690 EXEC CALC ( 4 , F3 $ , B9 $ , B9 $ )
1700 UNTIL SI >< 0 AND FLAG = 0
1710 I8 = H6 DIV 10000
1720 J0 = 0
1730 D5 $ = F3 $ ( LEN ( F3 $ ) )
1740 IF ( I8 = J1 AND D5 $ = "+" ) OR ( I8 = J2 AND D5 $ = "-" ) THEN
1750 EXEC TESTSALDO ( F3 $ )
1760 ENDIF
1770 UNTIL J0 = 0
1780 F4 $ = F3 $
1790 EXEC KLET ( 3 )
1800 IF D5 $ = "+" THEN
1810 CURSOR 46 , H5 + 3
1820 J3 = 1
1830 ELSE
1840 CURSOR 61 , H5 + 3
1850 J3 = 0
1860 ENDIF
1870 EXEC TUD ( F4 $ , B8 $ , 0 , 0 )
1880 PRINT B8 $
1890 H3 = 5
1900 IF I1 = 1 THEN H3 = - 1
1910 WHEN 5
1920 REPEAT
1930 CURSOR 3 , 23
1940 PRINT "Kode………(0:Annullering,…1:Kasse,…2:Giro,…3:Bank)" + B7 $ ( 1 : 27 )
1950 CURSOR 7 , 23
1960 INPUT D5 $
1970 EXEC NRTEST ( D5 $ )
1980 UNTIL ( P > 0 AND P < 4 ) OR ( P = 0 AND I1 >< 1 )
1990 H8 = P ; H3 = 1
2000 IF H8 = 0 THEN
2010 EXEC KLET ( 5 )
2020 I0 = I0 - 1
2030 ELSE
2040 CURSOR 77 , H5 + 3
2050 PRINT USING "##" : H8
2060 IF I1 >< 1 THEN
2070 EXEC [ND ( 0 , F4 $ , H8 )
2080 H5 = H5 + 1
2090 EXEC GENNYPOST
2100 ENDIF
2110 ENDIF
2120 IF I1 = 1 THEN H3 = - 1
2130 WHEN 6
2140 REPEAT
2150 CURSOR 3 , 23
2160 PRINT "\nskes…afstemning…J/N…" + B7 $ ( 1 : 54 )
2170 CURSOR 22 , 23
2180 INPUT A $
2190 EXEC NRTEST ( A $ )
2200 UNTIL P = - 7 OR P = - 8
2210 EXEC KYSGEM
2220 IF P = - 7 THEN
2230 J4 = 0
2240 FOR I = 1 TO 6
2250 REPEAT
2260 REPEAT
2270 CURSOR 3 , 23
2280 PRINT J5 $ ( I ) ; B7 $ ( 1 : 60 )
2290 CURSOR 17 , 23
2300 INPUT F3 $
2310 UNTIL LEN ( F3 $ ) > 0
2320 EXEC FORTEGN
2330 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
2340 UNTIL FLAG = 0
2350 IF I MOD 2 = 1 THEN
2360 F9 $ ( I ) = F3 $
2370 ELSE
2380 F9 $ ( I ) = F3 $ ( 1 : LEN ( F3 $ ) - 1 ) + "-"
2390 ENDIF
2400 NEXT I
2410 ELSE
2420 J4 = 1
2430 ENDIF
2440 H3 = - 1
2450 ENDCASE
2460 UNTIL H3 = - 1
2470 ENDPROC
2480 PROC GENNYPOST
2490 I3 = I2 ; F1 $ = CHR ( I7 + 48 ) ; F2 $ = CHR ( H8 + 48 )
2500 PUT D2 $ , I2 : H6 , J6 , H7 , F1 $ , F4 $ , F2 $
2510 EXEC FEJL ( 6 , 1 , D2 $ )
2520 I2 = I2 + 1
2530 IF I7 > 9 THEN
2540 PUT D2 $ , I2 : E3 $
2550 EXEC FEJL ( 6 , 2 , D2 $ )
2560 I2 = I2 + 1
2570 ENDIF
2580 I4 = I2 - 1
2590 ENDPROC
2600 PROC HENTKRPOST
2610 J7 = J8 ( J9 , 2 )
2620 GET D1 $ , J7 : K0 , F8 $ , A3 $
2630 EXEC FEJL ( 5 , 1 , D1 $ )
2640 GET D1 $ , J7 + 1 : A5 $ , C7 $ , C8 $ , K1 , F6 $ , F7 $
2650 EXEC FEJL ( 5 , 2 , D1 $ )
2660 ENDPROC
2670 PROC HENTKASPOST
2680 EXEC UDHOVED
2690 IF K2 = I2 THEN K2 = 1
2700 K3 = K2 ; H5 = 1
2710 FOR I = 1 TO 18
2720 GET D2 $ , K2 : G2 ( I ) , G3 ( I ) , G4 ( I ) , F1 $ , G6 $ ( I ) , F2 $
2730 EXEC FEJL ( 2 , 1 , D2 $ )
2740 K2 = K2 + 1
2750 G5 ( I ) = ORD ( F1 $ ) - 48 ; G7 ( I ) = ORD ( F2 $ ) - 48
2760 IF G5 ( I ) > 9 AND G5 ( I ) < 20 THEN
2770 IF I2 = K2 THEN EXIT
2780 GET D2 $ , K2 : G8 $ ( I )
2790 EXEC FEJL ( 2 , 2 , D2 $ )
2800 K2 = K2 + 1
2810 ELSE
2820 IF G5 ( I ) > 0 THEN
2830 G8 $ ( I ) = E5 $ ( G5 ( I ) - 10 * ( G5 ( I ) > 20 ) )
2840 ELSE
2850 G8 $ ( I ) = B7 $ ( 1 : 25 )
2860 ENDIF
2870 ENDIF
2880 IF G2 ( I ) >< 0 THEN EXEC UDLINIE ( G2 ( I ) , G4 ( I ) , G8 $ ( I ) , G6 $ ( I ) , G7 ( I ) )
2890 H5 = H5 + 1
2900 IF K2 = I2 THEN EXIT
2910 NEXT I
2920 ENDPROC
2930 PROC GEMKASPOST
2940 FOR I = 1 TO 18
2950 F1 $ = CHR ( G5 ( I ) + 48 ) ; F2 $ = CHR ( G7 ( I ) + 48 )
2960 PUT D2 $ , K3 : G2 ( I ) , G3 ( I ) , G4 ( I ) , F1 $ , G6 $ ( I ) , F2 $
2970 EXEC FEJL ( 3 , 1 , D2 $ )
2980 K3 = K3 + 1
2990 IF G5 ( I ) > 9 AND G5 ( I ) < 20 THEN
3000 PUT D2 $ , K3 : G8 $ ( I )
3010 EXEC FEJL ( 3 , 2 , D2 $ )
3020 K3 = K3 + 1
3030 ENDIF
3040 IF K3 = K2 THEN EXIT
3050 NEXT I
3060 ENDPROC
3070 PROC [ND ( K4 , K5 , K6 )
3080 J3 = 0 ; B8 $ = K5 $
3090 IF B8 $ ( LEN ( B8 $ ) ) = "+" THEN J3 = 1
3100 J3 = 2 * K6 - J3
3110 EXEC CALC ( K4 , F5 $ ( J3 ) , B8 $ , F5 $ ( J3 ) )
3120 ENDPROC
3130 PROC RETTE
3140 K3 = 1 ; K2 = 1
3150 IF I2 = 1 THEN EXIT
3160 REPEAT
3170 CLEAR
3180 EXEC HENTKASPOST
3190 K7 = H5 ; K8 = 0
3200 REPEAT
3210 REPEAT
3220 CURSOR 3 , 23
3230 PRINT "\nskes…{ndringer…………(1-18:Linienr,…0:F{rdig,…RETURN:Ny…side,…N:" ;
3240 PRINT "Ny…post)……………"
3250 CURSOR 20 , 23
3260 INPUT D5 $
3270 EXEC NRTEST ( D5 $ )
3280 UNTIL ( P = - 8 OR P > - 2 AND P < K7 ) AND H4 = 0
3290 K9 = P
3300 IF K9 < 1 THEN EXIT
3310 K8 = 1
3320 REPEAT
3330 REPEAT
3340 CURSOR 3 , 23
3350 PRINT "Linie:" ; K9 ; "…V{lg…{ndring…………(0:F{rdig,…A:Annuller,…1:Konto,…" ;
3360 PRINT "2:Bel|b,…3:Kode)"
3370 CURSOR 25 , 23
3380 INPUT D5 $
3390 EXEC NRTEST ( D5 $ )
3400 UNTIL ( P = - 3 OR P > - 1 AND P < 4 ) AND H4 = 0
3410 L0 = P
3420 IF L0 = 0 THEN EXIT
3430 H5 = K9
3440 IF G2 ( K9 ) = 0 THEN
3450 CURSOR 3 , H5 + 3
3460 PRINT "Postering…er…annulleret"
3470 ELSE
3480 IF L0 >< 1 THEN EXEC [ND ( 1 , G6 $ ( K9 ) , G7 ( K9 ) )
3490 IF L0 = - 3 THEN
3500 EXEC KLET ( 5 )
3510 G2 ( K9 ) = 0
3520 ELSE
3530 L0 = L0 + 2 ; L1 = L0 ; I1 = 1 ; H6 = G2 ( K9 ) ; F4 $ = G6 $ ( K9 ) ; H8 = G7 ( K9 )
3540 EXEC INDTASTNING ( L0 )
3550 G2 ( K9 ) = H6 ; G6 $ ( K9 ) = F4 $ ; G7 ( K9 ) = H8
3560 IF L1 >< 3 THEN EXEC [ND ( 0 , F4 $ , H8 )
3570 ENDIF
3580 ENDIF
3590 UNTIL L0 = - 3 OR L0 = 0
3600 UNTIL K9 < 1
3610 IF K8 = 1 THEN
3620 EXEC GEMKASPOST
3630 EXEC KYSGEM
3640 ENDIF
3650 UNTIL K9 = 0 OR K9 = - 8
3660 IF K9 = - 8 THEN
3670 CLEAR
3680 EXEC UDHOVED
3690 H5 = 1 ; I1 = 2
3700 EXEC INDTASTNING ( 1 )
3710 ENDIF
3720 ENDPROC
3730 PROC KYSGEM
3740 E8 ( 4 ) = L2 ; E8 ( 8 ) = I0 ; F0 ( 2 ) = I4 ; G1 ( 1 ) = L3
3750 OPEN E2 $ , W
3760 EXEC FEJL ( 3 , 1 , E2 $ )
3770 PUT E2 $ , 2 : E8 ( 1 ) , E8 ( 2 ) , E8 ( 3 ) , E8 ( 4 ) , E8 ( 5 ) , E8 ( 6 ) , E8 ( 7 ) , E8 ( 8 ) , E8 ( 9 )
3780 EXEC FEJL ( 3 , 2 , E2 $ )
3790 PUT E2 $ , 12 : F0 ( 1 ) , F0 ( 2 ) , F0 ( 3 ) , F0 ( 4 ) , F0 ( 5 ) , F0 ( 6 ) , F0 ( 7 ) , F0 ( 8 ) , F0 ( 9 )
3800 EXEC FEJL ( 3 , 3 , E2 $ )
3810 PUT E2 $ , 13 : G1 ( 1 ) , G1 ( 2 ) , G1 ( 3 ) , G1 ( 4 ) , G1 ( 5 ) , G1 ( 6 ) , G1 ( 7 ) , G1 ( 8 ) , G1 ( 9 )
3820 EXEC FEJL ( 3 , 4 , E2 $ )
3830 PUT E2 $ , 15 : F5 $ ( 1 ) , F5 $ ( 2 ) , F5 $ ( 3 )
3840 EXEC FEJL ( 3 , 5 , E2 $ )
3850 PUT E2 $ , 16 : F5 $ ( 4 ) , F5 $ ( 5 ) , F5 $ ( 6 )
3860 EXEC FEJL ( 3 , 6 , E2 $ )
3870 CLOSE E2 $
3880 EXEC FEJL ( 3 , 7 , E2 $ )
3890 ENDPROC
3900 PROC HENTKASPOST1
3910 GET D2 $ , I : H6 , L4 , H7 , F1 $ , F4 $ , F2 $
3920 EXEC FEJL ( 4 , 1 , D2 $ )
3930 I7 = ORD ( F1 $ ) - 48 ; H8 = ORD ( F2 $ ) - 48
3940 IF I7 > 9 AND I7 < 20 THEN
3950 I = I + 1
3960 GET D2 $ , I : E3 $
3970 EXEC FEJL ( 4 , 2 , D2 $ )
3980 ENDIF
3990 ENDPROC
4000 PROC FINDPOST1 ( L5 , Q , L6 , L7 , L8 , L9 )
4010 M0 = L6 DIV 8 ; L8 = M0 ; I9 = 1 ; M1 = L6 DIV 4 ; M2 = L6 DIV 32
4020 REPEAT
4030 IF L7 = L5 ( L8 ) OR M0 = 1 THEN EXIT
4040 M0 = ( M0 + 1 ) DIV 2
4050 L8 = L8 + M0 * ( 1 - 2 * ( L7 < L5 ( L8 ) ) )
4060 IF L8 < 1 THEN L8 = 1
4070 IF L8 > M1 THEN L8 = M1
4080 UNTIL M0 = 0
4090 IF L5 ( L8 ) > L7 THEN L8 = L8 - 1 * ( L8 > 1 )
4100 L8 = M2 + L8
4110 GET L9 $ , L8 : Q ( 1 , 1 ) , Q ( 1 , 2 ) , Q ( 2 , 1 ) , Q ( 2 , 2 ) , Q ( 3 , 1 ) , Q ( 3 , 2 ) , Q ( 4 , 1 ) , Q ( 4 , 2 )
4120 EXEC FEJL ( 1 , 1 , L9 $ )
4130 FOR L8 = 1 TO 4
4140 IF L7 = Q ( L8 , 1 ) THEN EXIT
4150 NEXT L8
4160 IF L8 >< 5 THEN I9 = 0
4170 ENDPROC
4180 PROC INDTAB1 ( Z , M3 , M4 )
4190 M0 = M3 DIV 32
4200 FOR I = 1 TO M0
4210 H = ( I - 1 ) * 8 + 1
4220 GET M4 $ , I : Z ( H ) , Z ( H + 1 ) , Z ( H + 2 ) , Z ( H + 3 ) , Z ( H + 4 ) , Z ( H + 5 ) , Z ( H + 6 ) , Z ( H + 7 )
4230 EXEC FEJL ( 5 , 1 , M4 $ )
4240 NEXT I
4250 ENDPROC
4260 PROC KTNAVN ( M5 , M6 )
4270 I9 = 1
4280 CASE M5 OF
4290 EXEC FINDPOST1 ( M7 , M8 , M9 , M6 , N0 , A6 $ )
4300 IF I9 = 0 THEN
4310 EXEC HENTPOST
4320 B4 $ = B0 $
4330 ENDIF
4340 WHEN J1
4350 IF NOT ( M5 * 10000 =< M6 AND M5 * 10000 + N1 >= M6 ) THEN
4360 EXEC FINDPOST1 ( N2 , N3 , N4 , M6 , N5 , A4 $ )
4370 IF I9 = 0 THEN
4380 EXEC HENTDPOST
4390 B4 $ = A7 $
4400 ENDIF
4410 ENDIF
4420 WHEN J2
4430 IF NOT ( M5 * 1000 =< M6 AND M5 * 1000 + N6 >= M6 ) THEN
4440 EXEC FINDPOST1 ( N7 , J8 , N8 , M6 , J9 , B6 $ )
4450 IF I9 = 0 THEN
4460 EXEC HENTKRPOST
4470 B4 $ = F8 $
4480 ENDIF
4490 ENDIF
4500 ENDCASE
4510 IF I9 = 1 THEN
4520 B4 $ = "Konto…eksisterer…ikke…………"
4530 ENDIF
4540 ENDPROC
4550 PROC TESTSALDO ( N9 )
4560 EXEC KTNAVN ( I8 , H6 )
4570 IF I9 = 0 THEN
4580 J0 = 0
4590 C6 $ = N9 $
4600 IF I8 = J1 THEN
4610 EXEC CALC ( 4 , B3 $ , B9 $ , B9 $ )
4620 IF SI >< 0 THEN
4630 EXEC CALC ( 0 , B3 $ , C6 $ , C6 $ )
4640 ELSE
4650 EXEC CALC ( 4 , B2 $ , B9 $ , B9 $ )
4660 IF SI >< 0 THEN
4670 EXEC CALC ( 0 , B2 $ , C6 $ , C6 $ )
4680 ELSE
4690 EXEC CALC ( 4 , B1 $ , B9 $ , B9 $ )
4700 IF SI >< 0 THEN
4710 EXEC CALC ( 0 , B1 $ , C6 $ , C6 $ )
4720 ELSE
4730 EXEC CALC ( 4 , A8 $ , B9 $ , B9 $ )
4740 IF SI >< 0 THEN
4750 EXEC CALC ( 0 , A8 $ , C6 $ , C6 $ )
4760 ELSE
4770 J0 = 1
4780 C6 $ = "0+"
4790 ENDIF
4800 ENDIF
4810 ENDIF
4820 ENDIF
4830 IF C6 $ ( LEN ( C6 $ ) ) = "-" THEN J0 = 1
4840 ELSE
4850 EXEC CALC ( 4 , F7 $ , B9 $ , B9 $ )
4860 IF SI >< 0 THEN
4870 EXEC CALC ( 0 , F7 $ , C6 $ , C6 $ )
4880 ELSE
4890 EXEC CALC ( 4 , F6 $ , B9 $ , B9 $ )
4900 IF SI >< 0 THEN
4910 EXEC CALC ( 0 , F6 $ , C6 $ , C6 $ )
4920 ELSE
4930 C6 $ = "0+"
4940 ENDIF
4950 ENDIF
4960 IF C6 $ ( LEN ( C6 $ ) ) = "+" THEN J0 = 1
4970 ENDIF
4980 IF J0 = 1 THEN
4990 REPEAT
5000 CURSOR 22 , 23
5010 PRINT "……Er…bel|bet…rigtigt…?…………(J/N)" ; B7 $ ( 1 : 20 )
5020 CURSOR 45 , 23
5030 INPUT "…" , A $
5040 EXEC NRTEST ( A $ )
5050 UNTIL P = - 7 OR P = - 8
5060 IF P = - 7 THEN J0 = 0
5070 ENDIF
5080 ELSE
5090 STOP
5100 ENDIF
5110 ENDPROC
5120 PROC KLET ( O0 )
5130 CASE O0 OF
5140 STOP
5150 WHEN 1
5160 CURSOR 4 , H5 + 3
5170 PRINT B7 $ ( 1 : 32 )
5180 WHEN 2
5190 CURSOR 38 , H5 + 3
5200 PRINT "………………"
5210 WHEN 3
5220 CURSOR 46 , H5 + 3
5230 PRINT B7 $ ( 1 : 28 )
5240 WHEN 4
5250 CURSOR 77 , H5 + 3
5260 PRINT B7 $ ( 1 )
5270 WHEN 5
5280 CURSOR 4 , H5 + 3
5290 PRINT B7 $
5300 ENDCASE
5310 ENDPROC
5320 PROC FORTEGN
5330 I5 = LEN ( F3 $ )
5340 IF I5 = 0 THEN F3 $ = "0+"
5350 IF F3 $ ( I5 ) >< "+" AND F3 $ ( I5 ) >< "-" THEN
5360 F3 $ = F3 $ + "+"
5370 ENDIF
5380 ENDPROC
5390 PROC UDHOVED
5400 CURSOR 35 , 1
5410 PRINT "Kasserapport" ; TAB ( 30 ) ; "Dato:"
5420 CURSOR 72 , 1
5430 PRINT J6
5440 CURSOR 2 , 3
5450 PRINT "Nr……Bilag…Tekst" ; TAB ( 38 ) ; "Konto…………………Debet………………………Kredit" ;
5460 PRINT "…………Kode"
5470 ENDPROC
5480 PROC NYDATO
5490 REPEAT
5500 CURSOR 3 , 23
5510 PRINT "Ny…dato……………………(}}mmdd)" + B7 $ ( 1 : 54 )
5520 CURSOR 11 , 23
5530 INPUT D5 $
5540 EXEC NRTEST ( D5 $ )
5550 UNTIL I8 >= 80 AND ( P MOD 10000 ) DIV 100 < 13 AND P MOD 100 < 32
5560 J6 = P
5570 ENDPROC
5580 PROC UDLINIE ( O1 , O2 , O3 , O4 , O5 )
5590 B8 $ = O4 $
5600 CURSOR 1 , H5 + 3
5610 PRINT USING "###" : H5
5620 IF O2 >< - 1 THEN
5630 CURSOR 4 , H5 + 3
5640 PRINT USING "#######" : O2
5650 ENDIF
5660 CURSOR 12 , H5 + 3
5670 PRINT O3 $
5680 CURSOR 38 , H5 + 3
5690 PRINT O1
5700 IF B8 $ ( LEN ( B8 $ ) ) = "+" THEN
5710 CURSOR 46 , H5 + 3
5720 ELSE
5730 CURSOR 61 , H5 + 3
5740 ENDIF
5750 EXEC TUD ( B8 $ , B8 $ , 0 , 0 )
5760 PRINT B8 $
5770 CURSOR 77 , H5 + 3
5780 PRINT O5
5790 ENDPROC
5800 PROC FEJL ( O6 , O7 , O8 )
5810 IF STATUS ( O8 $ ) >< 0 THEN
5820 PRINT STATUS ( O8 $ ) , O6 , O7 , O8 $
5830 STOP
5840 ENDIF
5850 ENDPROC
5860 PROC HENTDPOST
5870 J7 = N3 ( N5 , 2 )
5880 GET D0 $ , J7 : O9 , A7 $ , A8 $ , A9 $
5890 EXEC FEJL ( 8 , 2 , D0 $ )
5900 IF O9 >< N3 ( N5 , 1 ) THEN STOP
5910 GET D0 $ , J7 + 1 : B1 $ , B2 $ , B3 $ , P0 , C5 $
5920 EXEC FEJL ( 8 , 3 , D0 $ )
5930 GET D0 $ , J7 + 2 : B5 $ , C0 $ , P1 , P2
5940 EXEC FEJL ( 8 , 4 , D0 $ )
5950 GET D0 $ , J7 + 3 : C1 $ , C3 $ , C4 $
5960 EXEC FEJL ( 8 , 5 , D0 $ )
5970 ENDPROC
5980 PROC TUD ( P3 , P4 , P5 , P6 )
5990 C6 $ = P3 $ ; B8 $ = P4 $
6000 EXEC CALC ( 5 , C6 $ , B9 $ , B8 $ )
6010 P4 $ = B8 $
6020 IF P5 = 0 THEN
6030 P4 $ = P4 $ ( 1 : 13 )
6040 ELSE
6050 IF P5 = 1 AND P4 $ ( LEN ( P4 $ ) ) = "+" THEN
6060 P4 $ ( LEN ( P4 $ ) ) = "…"
6070 ENDIF
6080 ENDIF
6090 IF P6 = 1 THEN
6100 P4 $ = P4 $ ( 4 : LEN ( P4 $ ) - 3 )
6110 ENDIF
6120 ENDPROC
6130 PROC NRTEST ( P7 )
6140 P = 0 ; H4 = 0 ; I8 = 0 ; I5 = LEN ( P7 $ )
6150 CASE I5 OF
6160 FOR I = 1 TO I5
6170 P8 = INT ( ORD ( P7 $ ( I ) ) - 48 )
6180 IF P8 >= 0 AND P8 < 10 THEN
6190 P = P * 10 + P8
6200 ELSE
6210 H4 = 1
6220 ENDIF
6230 NEXT I
6240 I8 = P DIV 10000 ; KTAL9 = P DIV 1000
6250 IF KTAL9 = J2 THEN I8 = KTAL9
6260 WHEN 0
6270 P = - 1
6280 WHEN 1
6290 CASE P7 $ OF
6300 P = INT ( ORD ( P7 $ ) - 48 )
6310 WHEN "d" , "D"
6320 P = - 2
6330 WHEN "a" , "A"
6340 P = - 3
6350 WHEN "j" , "J"
6360 P = - 7
6370 WHEN "n" , "N"
6380 P = - 8
6390 ENDCASE
6400 ENDCASE
6410 ENDPROC
6420 PROC HENTPOST
6430 J7 = M8 ( N0 , 2 )
6440 GET C9 $ , J7 : P9 , B0 $
6450 EXEC FEJL ( 3 , 2 , C9 $ )
6460 IF P9 >< M8 ( N0 , 1 ) THEN STOP
6470 GET C9 $ , J7 + 1 : G0 $ , D7 $ , D8 $
6480 EXEC FEJL ( 3 , 3 , C9 $ )
6490 GET C9 $ , J7 + 2 : E6 $ , D9 $ , E0 $
6500 EXEC FEJL ( 3 , 4 , C9 $ )
6510 ENDPROC
6520 PROC BFSTEMNING
6530 REPEAT
6540 CLEAR
6550 CURSOR 21 , 1
6560 PRINT "Kasserapport…afstemning"
6570 CURSOR 66 , 1
6580 PRINT "Dato…:" ; J6
6590 CURSOR 21 , 3
6600 PRINT "Differencer………Indtastede…saldi"
6610 FOR I = 1 TO 6
6620 EXEC CALC ( 1 , F5 $ ( I ) , F9 $ ( I ) , F3 $ )
6630 CURSOR 1 , I + 4
6640 PRINT I ; J5 $ ( I )
6650 CURSOR 19 , I + 4
6660 EXEC TUD ( F3 $ , B8 $ , 1 , 0 )
6670 PRINT B8 $
6680 CURSOR 36 , I + 4
6690 EXEC TUD ( F9 $ ( I ) , B8 $ , 1 , 0 )
6700 PRINT B8 $
6710 NEXT I
6720 CURSOR 4 , 12
6730 PRINT "Kontroller…dine…saldi…!"
6740 REPEAT
6750 CURSOR 4 , 14
6760 PRINT "Hvilken…er…forkert……………(0:ingen,1-6)"
6770 CURSOR 25 , 14
6780 INPUT D5 $
6790 EXEC NRTEST ( D5 $ )
6800 UNTIL - 1 < P AND P < 7 AND H4 = 0
6810 IF P >< 0 THEN
6820 REPEAT
6830 REPEAT
6840 CURSOR 1 , 16
6850 PRINT P ; J5 $ ( P ) ; "……………………………………(tast…{ndret…saldo)"
6860 CURSOR 19 , 16
6870 INPUT F3 $
6880 UNTIL LEN ( F3 $ ) > 0
6890 EXEC FORTEGN
6900 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
6910 UNTIL FLAG = 0
6920 IF P MOD 2 = 0 THEN
6930 F9 $ ( P ) = F3 $ ( 1 : LEN ( F3 $ ) - 1 ) + "-"
6940 ELSE
6950 F9 $ ( P ) = F3 $
6960 ENDIF
6970 Q0 = 0
6980 ELSE
6990 FOR I = 1 TO 6
7000 EXEC CALC ( 1 , F5 $ ( I ) , F9 $ ( I ) , F3 $ )
7010 EXEC CALC ( 4 , F3 $ , B9 $ , B9 $ )
7020 IF SI >< 0 THEN EXIT
7030 NEXT I
7040 IF SI >< 0 THEN
7050 EXEC RETTE
7060 Q0 = 0
7070 ELSE
7080 REPEAT
7090 CURSOR 4 , 16
7100 PRINT "\nskes…{ndringer……………(J/N)"
7110 CURSOR 22 , 16
7120 INPUT A $
7130 EXEC NRTEST ( A $ )
7140 UNTIL ( P = - 7 OR P = - 8 ) AND H4 = 0
7150 IF P = - 7 THEN
7160 EXEC RETTE
7170 Q0 = 0
7180 ELSE
7190 Q0 = - 1
7200 ENDIF
7210 ENDIF
7220 ENDIF
7230 UNTIL Q0 = - 1
7240 ENDPROC
7250 PROC HOVEDUD ( Q1 , Q2 )
7260 EXEC DATOUD ( Q1 , D6 $ )
7270 OUTPUT P
7280 IF R3 = 36 THEN PRINT CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 )
7290 PRINT TAB ( 9 ) ; CHR ( 14 ) ; "Kasserapport" ; CHR ( 15 ) ; TAB ( 44 ) ; "Dato:" ; D6 $ ;
7300 PRINT TAB ( 61 ) ;
7310 PRINT USING "Side:####" : Q2
7320 PRINT CHR ( 10 )
7330 PRINT TAB ( 3 ) ; "Bilag" ; TAB ( 10 ) ; "Tekst" ; TAB ( 39 ) ; "Konto" ;
7340 PRINT TAB ( 52 ) ; "Debet" ; TAB ( 67 ) ; "Kredit" ; TAB ( 75 ) ; "Kode"
7350 PRINT TAB ( 3 ) ; A2 $
7360 ENDPROC
7370 PROC LINIEUD ( Q3 , Q4 , Q5 , Q6 , Q7 , Q8 )
7380 IF Q3 >< - 1 THEN
7390 PRINT USING "#######" : Q3 ;
7400 ENDIF
7410 IF Q4 < 10 AND Q4 > 0 THEN
7420 E3 $ = E5 $ ( Q4 ) + B7 $ ( 1 : 15 )
7430 ENDIF
7440 IF Q4 >< 0 THEN
7450 PRINT TAB ( 10 ) ; E3 $ ;
7460 ENDIF
7470 PRINT TAB ( 38 ) ;
7480 PRINT USING "######" : Q5 ;
7490 PRINT TAB ( 47 + 14 * ( Q6 = 0 ) ) ;
7500 EXEC TUD ( Q7 $ , B8 $ , 0 , 0 )
7510 PRINT B8 $ ; TAB ( 76 ) ;
7520 PRINT USING "##" : Q8
7530 ENDPROC
7540 PROC DATOUD ( Q9 , R0 )
7550 R1 = Q9
7560 R0 $ = "……………………"
7570 FOR J = 8 TO 1 STEP - 1
7580 IF J MOD 3 = 0 THEN
7590 R0 $ ( J ) = "."
7600 ELSE
7610 R0 $ ( J ) = CHR ( R1 MOD 10 + 48 )
7620 R1 = R1 DIV 10
7630 ENDIF
7640 NEXT J
7650 ENDPROC
7660 PROC UDSKRIV ( R2 , R3 )
7670 IF R3 = 36 OR R3 = 0 THEN
7680 R2 = R2 + 1
7690 EXEC HOVEDUD ( R4 , R2 )
7700 R3 = 0
7710 ENDIF
7720 R5 = 0
7730 R3 = R3 + 1
7740 IF F4 $ ( LEN ( F4 $ ) ) = "+" THEN R5 = 1
7750 EXEC LINIEUD ( H7 , I7 , H6 , R5 , F4 $ , H8 )
7760 ENDPROC
7770 PROC MODFORTEGN ( R6 , R7 )
7780 I5 = LEN ( R7 $ )
7790 IF R7 $ ( I5 ) = "+" THEN
7800 R6 $ = R7 $ ( 1 : I5 - 1 ) + "-"
7810 ELSE
7820 R6 $ = R7 $ ( 1 : I5 - 1 ) + "+"
7830 ENDIF
7840 ENDPROC
7850 PROC GEMBHPOST
7860 J7 = L3 ; D5 $ = "1"
7870 J7 = J7 + 1
7880 F1 $ = CHR ( I7 + 48 )
7890 PUT D3 $ , J7 : H6 , L4 , H7 , F1 $ , F3 $ , D5 $
7900 EXEC FEJL ( 7 , 2 , D3 $ )
7910 IF I7 >= 10 AND I7 < 20 THEN
7920 J7 = J7 + 1
7930 PUT D3 $ , J7 : H6 , E3 $
7940 EXEC FEJL ( 7 , 3 , D3 $ )
7950 ENDIF
7960 L3 = J7
7970 ENDPROC
7980 PROC BUND
7990 FOR I = R8 TO 36
8000 PRINT CHR ( 10 ) ;
8010 NEXT I
8020 PRINT "…"
8030 PRINT TAB ( 3 ) ; A2 $
8040 EXEC TUD ( A1 $ , B8 $ , 0 , 0 )
8050 PRINT TAB ( 10 ) ; CHR ( 14 ) ; "Difference" ; CHR ( 15 ) ;
8060 PRINT TAB ( 39 + 14 * ( B8 $ ( LEN ( B8 $ ) ) = "-" ) ) ; B8 $
8070 PRINT TAB ( 3 ) ; A2 $
8080 PRINT CHR ( 10 )
8090 ENDPROC
8100 PROC UDBIL
8110 CLEAR
8120 REPEAT
8130 CURSOR 8 , 13
8140 INPUT "Monter…papir…til…udskrift…af…kasserapport…og…tast…RETURN" , A $
8150 UNTIL ORD ( A $ ) = 255
8160 ENDPROC
8170 C2 $ = "P641220:SYSTEM1"
8180 OPEN C2 $ , R
8190 EXEC FEJL ( 9 , 1 , C2 $ )
8200 GET C2 $ , 1 : M9 , N4 , N8
8210 EXEC FEJL ( 9 , 2 , C2 $ )
8220 GET C2 $ , 2 : R9 , S0 , S1
8230 EXEC FEJL ( 9 , 3 , C2 $ )
8240 GET C2 $ , 4 : S2 , S3 , S4 , N1
8250 EXEC FEJL ( 9 , 4 , C2 $ )
8260 GET C2 $ , 5 : N6
8270 EXEC FEJL ( 9 , 5 , C2 $ )
8280 GET C2 $ , 6 : S5 , S6 , S7
8290 EXEC FEJL ( 9 , 6 , C2 $ )
8300 GET C2 $ , 8 : S8 , S9 , T0 , J1
8310 EXEC FEJL ( 9 , 7 , C2 $ )
8320 GET C2 $ , 9 : J2
8330 EXEC FEJL ( 9 , 8 , C2 $ )
8340 GET C2 $ , 10 : E7 $
8350 EXEC FEJL ( 9 , 9 , C2 $ )
8360 GET C2 $ , 11 : A6 $
8370 EXEC FEJL ( 9 , 10 , C2 $ )
8380 GET C2 $ , 12 : A4 $
8390 EXEC FEJL ( 9 , 11 , C2 $ )
8400 GET C2 $ , 13 : B6 $
8410 EXEC FEJL ( 9 , 12 , C2 $ )
8420 GET C2 $ , 15 : C9 $
8430 EXEC FEJL ( 9 , 13 , C2 $ )
8440 GET C2 $ , 16 : D0 $
8450 EXEC FEJL ( 9 , 14 , C2 $ )
8460 GET C2 $ , 17 : D1 $
8470 EXEC FEJL ( 9 , 15 , C2 $ )
8480 GET C2 $ , 19 : D2 $
8490 EXEC FEJL ( 9 , 16 , C2 $ )
8500 GET C2 $ , 21 : D3 $
8510 EXEC FEJL ( 9 , 17 , C2 $ )
8520 GET C2 $ , 36 : E2 $
8530 EXEC FEJL ( 9 , 18 , C2 $ )
8540 CLOSE C2 $
8550 EXEC FEJL ( 9 , 19 , C2 $ )
8560 DIM M7 ( M9 DIV 4 ) , N2 ( N4 DIV 4 ) , N7 ( N8 DIV 4 )
8570 DIM M8 ( 4 , 2 ) , N3 ( 4 , 2 ) , J8 ( 4 , 2 ) , J5 $ ( 6 , 14 )
8580 E2 $ = E7 $ + E2 $
8590 OPEN E2 $ , R
8600 EXEC FEJL ( 9 , 20 , E2 $ )
8610 GET E2 $ , 2 : E8 ( 1 ) , E8 ( 2 ) , E8 ( 3 ) , E8 ( 4 ) , E8 ( 5 ) , E8 ( 6 ) , E8 ( 7 ) , E8 ( 8 ) , E8 ( 9 )
8620 EXEC FEJL ( 9 , 21 , E2 $ )
8630 FOR I = 1 TO 6
8640 J = ( I - 1 ) * 3 + 1
8650 GET E2 $ , I + 5 : E5 $ ( J ) , E5 $ ( J + 1 ) , E5 $ ( J + 2 )
8660 EXEC FEJL ( 9 , 22 , E2 $ )
8670 NEXT I
8680 GET E2 $ , 12 : F0 ( 1 ) , F0 ( 2 ) , F0 ( 3 ) , F0 ( 4 ) , F0 ( 5 ) , F0 ( 6 ) , F0 ( 7 ) , F0 ( 8 ) , F0 ( 9 )
8690 EXEC FEJL ( 9 , 23 , E2 $ )
8700 GET E2 $ , 13 : G1 ( 1 ) , G1 ( 2 ) , G1 ( 3 ) , G1 ( 4 ) , G1 ( 5 ) , G1 ( 6 ) , G1 ( 7 ) , G1 ( 8 ) , G1 ( 9 )
8710 EXEC FEJL ( 9 , 24 , E2 $ )
8720 GET E2 $ , 15 : F5 $ ( 1 ) , F5 $ ( 2 ) , F5 $ ( 3 )
8730 EXEC FEJL ( 9 , 25 , E2 $ )
8740 GET E2 $ , 16 : F5 $ ( 4 ) , F5 $ ( 5 ) , F5 $ ( 6 )
8750 EXEC FEJL ( 9 , 26 , E2 $ )
8760 CLOSE E2 $
8770 EXEC FEJL ( 9 , 27 , E2 $ )
8780 A6 $ = E7 $ + A6 $ ; A4 $ = E7 $ + A4 $ ; B6 $ = E7 $ + B6 $ ; C9 $ = E7 $ + C9 $ ; D0 $ = E7 $ + D0 $ ; D1 $ = E7 $ + D1 $
8790 D2 $ = E7 $ + D2 $ ; D3 $ = E7 $ + D3 $
8800 OPEN A6 $ , R
8810 EXEC FEJL ( 9 , 28 , A6 $ )
8820 OPEN A4 $ , R
8830 EXEC FEJL ( 9 , 29 , A4 $ )
8840 OPEN B6 $ , R
8850 EXEC FEJL ( 9 , 30 , B6 $ )
8860 OPEN C9 $ , R
8870 EXEC FEJL ( 9 , 31 , C9 $ )
8880 OPEN D0 $ , R
8890 EXEC FEJL ( 9 , 32 , D0 $ )
8900 OPEN D1 $ , R
8910 EXEC FEJL ( 9 , 33 , D1 $ )
8920 OPEN D2 $ , W
8930 EXEC FEJL ( 9 , 34 , D2 $ )
8940 EXEC INDTAB1 ( M7 , M9 , A6 $ )
8950 EXEC INDTAB1 ( N2 , N4 , A4 $ )
8960 EXEC INDTAB1 ( N7 , N8 , B6 $ )
8970 J5 $ ( 1 ) = "Kasse…debet………" ; J5 $ ( 2 ) = "Kasse…kredit……" ; J5 $ ( 3 ) = "Giro……debet………"
8980 J5 $ ( 4 ) = "Giro……kredit……" ; J5 $ ( 5 ) = "Bank……debet………" ; J5 $ ( 6 ) = "Bank……kredit……"
8990 B7 $ = "…………………………………………………………………………………………………………" ; B7 $ = B7 $ + B7 $
9000 B9 $ = "0+" ; A1 $ = "0+" ; A2 $ = "--------------------------------------"
9010 I1 = 0 ; A2 $ = A2 $ + A2 $ + "…"
9020 L2 = E8 ( 4 ) ; R4 = E8 ( 7 ) ; I0 = E8 ( 8 ) ; I4 = F0 ( 2 ) ; L3 = G1 ( 1 )
9030 H5 = 1 ; J6 = R4 ; R8 = 0 ; L4 = 0 ; B8 $ = "0+" ; I3 = I4 + 1
9040 I2 = I3 ; K3 = 1 ; K2 = 1
9050 CLEAR
9060 EXEC UDHOVED
9070 EXEC INDTASTNING ( 1 )
9080 IF J4 = 0 THEN
9090 EXEC BFSTEMNING
9100 EXEC UDBIL
9110 OPEN D3 $ , W
9120 EXEC FEJL ( 9 , 37 , D3 $ )
9130 FOR I = 1 TO I4
9140 EXEC HENTKASPOST1
9150 IF H6 >< 0 THEN
9160 EXEC MODFORTEGN ( F3 $ , F4 $ )
9170 EXEC GEMBHPOST
9180 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
9190 EXEC UDSKRIV ( L2 , R8 )
9200 ENDIF
9210 NEXT I
9220 I7 = 24 ; H7 = L2 ; H8 = 0
9230 EXEC CALC ( 0 , F5 $ ( 1 ) , F5 $ ( 2 ) , F3 $ )
9240 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
9250 H6 = S5
9260 EXEC GEMBHPOST
9270 I7 = 10 ; H7 = - 1 ; F4 $ = F3 $ ; E3 $ = "Samlet…kassepostering"
9280 EXEC UDSKRIV ( L2 , R8 )
9290 EXEC CALC ( 0 , F5 $ ( 3 ) , F5 $ ( 4 ) , F3 $ )
9300 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
9310 I7 = 24 ; H7 = L2 ; H6 = S6
9320 EXEC GEMBHPOST
9330 F4 $ = F3 $ ; I7 = 10 ; H7 = - 1 ; E3 $ = "Samlet…giropostering"
9340 EXEC UDSKRIV ( L2 , R8 )
9350 EXEC CALC ( 0 , F5 $ ( 5 ) , F5 $ ( 6 ) , F3 $ )
9360 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
9370 I7 = 24 ; H7 = L2 ; H6 = S7
9380 EXEC GEMBHPOST
9390 E3 $ = "Samlet…bankpostering" ; F4 $ = F3 $ ; I7 = 10 ; H7 = - 1
9400 EXEC UDSKRIV ( L2 , R8 )
9410 EXEC CALC ( 4 , A1 $ , B9 $ , B9 $ )
9420 IF SI >< 0 THEN
9430 I7 = 10 ; H7 = L2 ; H6 = T0 ; E3 $ = "Difference…kasserapport"
9440 EXEC MODFORTEGN ( F3 $ , A1 $ )
9450 EXEC GEMBHPOST
9460 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
9470 F4 $ = F3 $ ; H7 = - 1
9480 EXEC UDSKRIV ( L2 , R8 )
9490 ENDIF
9500 EXEC BUND
9510 CLOSE D3 $
9520 EXEC FEJL ( 9 , 38 , D3 $ )
9530 I4 = 0
9540 FOR I = 1 TO 6
9550 F5 $ ( I ) = "0+"
9560 NEXT I
9570 ELSE
9580 REPEAT
9590 CURSOR 3 , 23
9600 PRINT "\nskes…kontroludskrift…J/N…" ; B7 $ ( 1 : 45 )
9610 CURSOR 26 , 23
9620 INPUT A $
9630 UNTIL ( A $ = "J" OR A $ = "N" OR A $ = "j" OR A $ = "n" ) AND LEN ( A $ ) = 1
9640 IF A $ = "J" OR A $ = "j" THEN
9650 T1 = L2
9660 EXEC UDBIL
9670 FOR I = 1 TO I4
9680 EXEC HENTKASPOST1
9690 EXEC UDSKRIV ( T1 , R8 )
9700 EXEC CALC ( 1 , A1 $ , F4 $ , A1 $ )
9710 NEXT I
9720 I7 = 10 ; H7 = - 1 ; H8 = 0 ; H6 = 0
9730 FOR I = 1 TO 6
9740 E3 $ = J5 $ ( I ) ; F4 $ = F5 $ ( I )
9750 EXEC UDSKRIV ( T1 , R8 )
9760 EXEC CALC ( 0 , A1 $ , F4 $ , A1 $ )
9770 NEXT I
9780 EXEC BUND
9790 ENDIF
9800 ENDIF
9810 EXEC KYSGEM
9820 CLOSE D2 $
9830 EXEC FEJL ( 9 , 39 , D2 $ )
9840 CLOSE
9850 OUTPUT T
9860 CHAIN "P641210:OPSTART"
4d87
0x0000…0063 (0,) 87b0 0100 DIM OP1 $ ( 12 ) , OP2 $ ( 12 ) , RES $ ( 14 ) , A1 $ ( 12 ) , A2 $ ( 77 ) , A3 $ ( 25 ) , A4 $ ( 17 )
0x0000…0063 LineComalBcd {
0x0000…0063 ptr = 0x87b0 // 0x0 @0x0
0x0000…0063 lno = 0x0100 // 0x2 @0x2
0x0000…0063 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…0063 at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…0063 at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…0063 at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…0063 at0008 = ╱ef╱ $ ╱ // 0x8 @0x8
0x0000…0063 at0009 = ╱ed╱ ( ╱ // 0x9 @0x9
0x0000…0063 at000a = ╱31╱1╱ // 0xa @0xa
0x0000…0063 at000b = ╱32╱2╱ // 0xb @0xb
0x0000…0063 at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…0063 at0011 = ╱ee╱ ) ╱ // 0x11 @0x11
0x0000…0063 at0012 = ╱ec╱ , ╱ // 0x12 @0x12
0x0000…0063 at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…0063 at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…0063 at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…0063 at0016 = ╱ef╱ $ ╱ // 0x16 @0x16
0x0000…0063 at0017 = ╱ed╱ ( ╱ // 0x17 @0x17
0x0000…0063 at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…0063 at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…0063 at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…0063 at001f = ╱ee╱ ) ╱ // 0x1f @0x1f
0x0000…0063 at0020 = ╱ec╱ , ╱ // 0x20 @0x20
0x0000…0063 at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…0063 at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…0063 at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…0063 at0024 = ╱ef╱ $ ╱ // 0x24 @0x24
0x0000…0063 at0025 = ╱ed╱ ( ╱ // 0x25 @0x25
0x0000…0063 at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…0063 at0027 = ╱34╱4╱ // 0x27 @0x27
0x0000…0063 at0028 = ╱fe0000e004╱ // 0x28 @0x28
0x0000…0063 at002d = ╱ee╱ ) ╱ // 0x2d @0x2d
0x0000…0063 at002e = ╱ec╱ , ╱ // 0x2e @0x2e
0x0000…0063 at002f = ╱41╱A╱ // 0x2f @0x2f
0x0000…0063 at0030 = ╱31╱1╱ // 0x30 @0x30
0x0000…0063 at0031 = ╱ef╱ $ ╱ // 0x31 @0x31
0x0000…0063 at0032 = ╱ed╱ ( ╱ // 0x32 @0x32
0x0000…0063 at0033 = ╱31╱1╱ // 0x33 @0x33
0x0000…0063 at0034 = ╱32╱2╱ // 0x34 @0x34
0x0000…0063 at0035 = ╱fe0000c004╱ // 0x35 @0x35
0x0000…0063 at003a = ╱ee╱ ) ╱ // 0x3a @0x3a
0x0000…0063 at003b = ╱ec╱ , ╱ // 0x3b @0x3b
0x0000…0063 at003c = ╱41╱A╱ // 0x3c @0x3c
0x0000…0063 at003d = ╱32╱2╱ // 0x3d @0x3d
0x0000…0063 at003e = ╱ef╱ $ ╱ // 0x3e @0x3e
0x0000…0063 at003f = ╱ed╱ ( ╱ // 0x3f @0x3f
0x0000…0063 at0040 = ╱37╱7╱ // 0x40 @0x40
0x0000…0063 at0041 = ╱37╱7╱ // 0x41 @0x41
0x0000…0063 at0042 = ╱fe00009a07╱ // 0x42 @0x42
0x0000…0063 at0047 = ╱ee╱ ) ╱ // 0x47 @0x47
0x0000…0063 at0048 = ╱ec╱ , ╱ // 0x48 @0x48
0x0000…0063 at0049 = ╱41╱A╱ // 0x49 @0x49
0x0000…0063 at004a = ╱33╱3╱ // 0x4a @0x4a
0x0000…0063 at004b = ╱ef╱ $ ╱ // 0x4b @0x4b
0x0000…0063 at004c = ╱ed╱ ( ╱ // 0x4c @0x4c
0x0000…0063 at004d = ╱32╱2╱ // 0x4d @0x4d
0x0000…0063 at004e = ╱35╱5╱ // 0x4e @0x4e
0x0000…0063 at004f = ╱fe0000c805╱ // 0x4f @0x4f
0x0000…0063 at0054 = ╱ee╱ ) ╱ // 0x54 @0x54
0x0000…0063 at0055 = ╱ec╱ , ╱ // 0x55 @0x55
0x0000…0063 at0056 = ╱41╱A╱ // 0x56 @0x56
0x0000…0063 at0057 = ╱34╱4╱ // 0x57 @0x57
0x0000…0063 at0058 = ╱ef╱ $ ╱ // 0x58 @0x58
0x0000…0063 at0059 = ╱ed╱ ( ╱ // 0x59 @0x59
0x0000…0063 at005a = ╱31╱1╱ // 0x5a @0x5a
0x0000…0063 at005b = ╱37╱7╱ // 0x5b @0x5b
0x0000…0063 at005c = ╱fe00008805╱ // 0x5c @0x5c
0x0000…0063 at0061 = ╱ee╱ ) ╱ // 0x61 @0x61
0x0000…0063 at0062 = EOL // 0x62 @0x62
0x0000…0063 }
0x0063…00b5 8802 0110 DIM A5 $ ( 17 ) , A6 $ ( 17 ) , A7 $ ( 25 ) , A8 $ ( 12 ) , A9 $ ( 1 ) , B0 $ ( 25 )
0x0063…00b5 LineComalBcd {
0x0063…00b5 ptr = 0x8802 // 0x63 @0x0
0x0063…00b5 lno = 0x0110 // 0x65 @0x2
0x0063…00b5 at0004 = ╱87╱ DIM ╱ // 0x67 @0x4
0x0063…00b5 at0005 = ╱41╱A╱ // 0x68 @0x5
0x0063…00b5 at0006 = ╱35╱5╱ // 0x69 @0x6
0x0063…00b5 at0007 = ╱ef╱ $ ╱ // 0x6a @0x7
0x0063…00b5 at0008 = ╱ed╱ ( ╱ // 0x6b @0x8
0x0063…00b5 at0009 = ╱31╱1╱ // 0x6c @0x9
0x0063…00b5 at000a = ╱37╱7╱ // 0x6d @0xa
0x0063…00b5 at000b = ╱fe00008805╱ // 0x6e @0xb
0x0063…00b5 at0010 = ╱ee╱ ) ╱ // 0x73 @0x10
0x0063…00b5 at0011 = ╱ec╱ , ╱ // 0x74 @0x11
0x0063…00b5 at0012 = ╱41╱A╱ // 0x75 @0x12
0x0063…00b5 at0013 = ╱36╱6╱ // 0x76 @0x13
0x0063…00b5 at0014 = ╱ef╱ $ ╱ // 0x77 @0x14
0x0063…00b5 at0015 = ╱ed╱ ( ╱ // 0x78 @0x15
0x0063…00b5 at0016 = ╱31╱1╱ // 0x79 @0x16
0x0063…00b5 at0017 = ╱37╱7╱ // 0x7a @0x17
0x0063…00b5 at0018 = ╱fe00008805╱ // 0x7b @0x18
0x0063…00b5 at001d = ╱ee╱ ) ╱ // 0x80 @0x1d
0x0063…00b5 at001e = ╱ec╱ , ╱ // 0x81 @0x1e
0x0063…00b5 at001f = ╱41╱A╱ // 0x82 @0x1f
0x0063…00b5 at0020 = ╱37╱7╱ // 0x83 @0x20
0x0063…00b5 at0021 = ╱ef╱ $ ╱ // 0x84 @0x21
0x0063…00b5 at0022 = ╱ed╱ ( ╱ // 0x85 @0x22
0x0063…00b5 at0023 = ╱32╱2╱ // 0x86 @0x23
0x0063…00b5 at0024 = ╱35╱5╱ // 0x87 @0x24
0x0063…00b5 at0025 = ╱fe0000c805╱ // 0x88 @0x25
0x0063…00b5 at002a = ╱ee╱ ) ╱ // 0x8d @0x2a
0x0063…00b5 at002b = ╱ec╱ , ╱ // 0x8e @0x2b
0x0063…00b5 at002c = ╱41╱A╱ // 0x8f @0x2c
0x0063…00b5 at002d = ╱38╱8╱ // 0x90 @0x2d
0x0063…00b5 at002e = ╱ef╱ $ ╱ // 0x91 @0x2e
0x0063…00b5 at002f = ╱ed╱ ( ╱ // 0x92 @0x2f
0x0063…00b5 at0030 = ╱31╱1╱ // 0x93 @0x30
0x0063…00b5 at0031 = ╱32╱2╱ // 0x94 @0x31
0x0063…00b5 at0032 = ╱fe0000c004╱ // 0x95 @0x32
0x0063…00b5 at0037 = ╱ee╱ ) ╱ // 0x9a @0x37
0x0063…00b5 at0038 = ╱ec╱ , ╱ // 0x9b @0x38
0x0063…00b5 at0039 = ╱41╱A╱ // 0x9c @0x39
0x0063…00b5 at003a = ╱39╱9╱ // 0x9d @0x3a
0x0063…00b5 at003b = ╱ef╱ $ ╱ // 0x9e @0x3b
0x0063…00b5 at003c = ╱ed╱ ( ╱ // 0x9f @0x3c
0x0063…00b5 at003d = ╱31╱1╱ // 0xa0 @0x3d
0x0063…00b5 at003e = ╱fe00008001╱ // 0xa1 @0x3e
0x0063…00b5 at0043 = ╱ee╱ ) ╱ // 0xa6 @0x43
0x0063…00b5 at0044 = ╱ec╱ , ╱ // 0xa7 @0x44
0x0063…00b5 at0045 = ╱42╱B╱ // 0xa8 @0x45
0x0063…00b5 at0046 = ╱30╱0╱ // 0xa9 @0x46
0x0063…00b5 at0047 = ╱ef╱ $ ╱ // 0xaa @0x47
0x0063…00b5 at0048 = ╱ed╱ ( ╱ // 0xab @0x48
0x0063…00b5 at0049 = ╱32╱2╱ // 0xac @0x49
0x0063…00b5 at004a = ╱35╱5╱ // 0xad @0x4a
0x0063…00b5 at004b = ╱fe0000c805╱ // 0xae @0x4b
0x0063…00b5 at0050 = ╱ee╱ ) ╱ // 0xb3 @0x50
0x0063…00b5 at0051 = EOL // 0xb4 @0x51
0x0063…00b5 }
0x00b5…00fb 8848 0120 DIM B1 $ ( 12 ) , B2 $ ( 12 ) , B3 $ ( 12 ) , B4 $ ( 25 ) , B5 $ ( 25 )
0x00b5…00fb LineComalBcd {
0x00b5…00fb ptr = 0x8848 // 0xb5 @0x0
0x00b5…00fb lno = 0x0120 // 0xb7 @0x2
0x00b5…00fb at0004 = ╱87╱ DIM ╱ // 0xb9 @0x4
0x00b5…00fb at0005 = ╱42╱B╱ // 0xba @0x5
0x00b5…00fb at0006 = ╱31╱1╱ // 0xbb @0x6
0x00b5…00fb at0007 = ╱ef╱ $ ╱ // 0xbc @0x7
0x00b5…00fb at0008 = ╱ed╱ ( ╱ // 0xbd @0x8
0x00b5…00fb at0009 = ╱31╱1╱ // 0xbe @0x9
0x00b5…00fb at000a = ╱32╱2╱ // 0xbf @0xa
0x00b5…00fb at000b = ╱fe0000c004╱ // 0xc0 @0xb
0x00b5…00fb at0010 = ╱ee╱ ) ╱ // 0xc5 @0x10
0x00b5…00fb at0011 = ╱ec╱ , ╱ // 0xc6 @0x11
0x00b5…00fb at0012 = ╱42╱B╱ // 0xc7 @0x12
0x00b5…00fb at0013 = ╱32╱2╱ // 0xc8 @0x13
0x00b5…00fb at0014 = ╱ef╱ $ ╱ // 0xc9 @0x14
0x00b5…00fb at0015 = ╱ed╱ ( ╱ // 0xca @0x15
0x00b5…00fb at0016 = ╱31╱1╱ // 0xcb @0x16
0x00b5…00fb at0017 = ╱32╱2╱ // 0xcc @0x17
0x00b5…00fb at0018 = ╱fe0000c004╱ // 0xcd @0x18
0x00b5…00fb at001d = ╱ee╱ ) ╱ // 0xd2 @0x1d
0x00b5…00fb at001e = ╱ec╱ , ╱ // 0xd3 @0x1e
0x00b5…00fb at001f = ╱42╱B╱ // 0xd4 @0x1f
0x00b5…00fb at0020 = ╱33╱3╱ // 0xd5 @0x20
0x00b5…00fb at0021 = ╱ef╱ $ ╱ // 0xd6 @0x21
0x00b5…00fb at0022 = ╱ed╱ ( ╱ // 0xd7 @0x22
0x00b5…00fb at0023 = ╱31╱1╱ // 0xd8 @0x23
0x00b5…00fb at0024 = ╱32╱2╱ // 0xd9 @0x24
0x00b5…00fb at0025 = ╱fe0000c004╱ // 0xda @0x25
0x00b5…00fb at002a = ╱ee╱ ) ╱ // 0xdf @0x2a
0x00b5…00fb at002b = ╱ec╱ , ╱ // 0xe0 @0x2b
0x00b5…00fb at002c = ╱42╱B╱ // 0xe1 @0x2c
0x00b5…00fb at002d = ╱34╱4╱ // 0xe2 @0x2d
0x00b5…00fb at002e = ╱ef╱ $ ╱ // 0xe3 @0x2e
0x00b5…00fb at002f = ╱ed╱ ( ╱ // 0xe4 @0x2f
0x00b5…00fb at0030 = ╱32╱2╱ // 0xe5 @0x30
0x00b5…00fb at0031 = ╱35╱5╱ // 0xe6 @0x31
0x00b5…00fb at0032 = ╱fe0000c805╱ // 0xe7 @0x32
0x00b5…00fb at0037 = ╱ee╱ ) ╱ // 0xec @0x37
0x00b5…00fb at0038 = ╱ec╱ , ╱ // 0xed @0x38
0x00b5…00fb at0039 = ╱42╱B╱ // 0xee @0x39
0x00b5…00fb at003a = ╱35╱5╱ // 0xef @0x3a
0x00b5…00fb at003b = ╱ef╱ $ ╱ // 0xf0 @0x3b
0x00b5…00fb at003c = ╱ed╱ ( ╱ // 0xf1 @0x3c
0x00b5…00fb at003d = ╱32╱2╱ // 0xf2 @0x3d
0x00b5…00fb at003e = ╱35╱5╱ // 0xf3 @0x3e
0x00b5…00fb at003f = ╱fe0000c805╱ // 0xf4 @0x3f
0x00b5…00fb at0044 = ╱ee╱ ) ╱ // 0xf9 @0x44
0x00b5…00fb at0045 = EOL // 0xfa @0x45
0x00b5…00fb }
0x00fb…015a 88a7 0130 DIM B6 $ ( 17 ) , B7 $ ( 77 ) , B8 $ ( 14 ) , B9 $ ( 12 ) , C0 $ ( 9 ) , C1 $ ( 20 ) , C2 $ ( 17 )
0x00fb…015a LineComalBcd {
0x00fb…015a ptr = 0x88a7 // 0xfb @0x0
0x00fb…015a lno = 0x0130 // 0xfd @0x2
0x00fb…015a at0004 = ╱87╱ DIM ╱ // 0xff @0x4
0x00fb…015a at0005 = ╱42╱B╱ // 0x100 @0x5
0x00fb…015a at0006 = ╱36╱6╱ // 0x101 @0x6
0x00fb…015a at0007 = ╱ef╱ $ ╱ // 0x102 @0x7
0x00fb…015a at0008 = ╱ed╱ ( ╱ // 0x103 @0x8
0x00fb…015a at0009 = ╱31╱1╱ // 0x104 @0x9
0x00fb…015a at000a = ╱37╱7╱ // 0x105 @0xa
0x00fb…015a at000b = ╱fe00008805╱ // 0x106 @0xb
0x00fb…015a at0010 = ╱ee╱ ) ╱ // 0x10b @0x10
0x00fb…015a at0011 = ╱ec╱ , ╱ // 0x10c @0x11
0x00fb…015a at0012 = ╱42╱B╱ // 0x10d @0x12
0x00fb…015a at0013 = ╱37╱7╱ // 0x10e @0x13
0x00fb…015a at0014 = ╱ef╱ $ ╱ // 0x10f @0x14
0x00fb…015a at0015 = ╱ed╱ ( ╱ // 0x110 @0x15
0x00fb…015a at0016 = ╱37╱7╱ // 0x111 @0x16
0x00fb…015a at0017 = ╱37╱7╱ // 0x112 @0x17
0x00fb…015a at0018 = ╱fe00009a07╱ // 0x113 @0x18
0x00fb…015a at001d = ╱ee╱ ) ╱ // 0x118 @0x1d
0x00fb…015a at001e = ╱ec╱ , ╱ // 0x119 @0x1e
0x00fb…015a at001f = ╱42╱B╱ // 0x11a @0x1f
0x00fb…015a at0020 = ╱38╱8╱ // 0x11b @0x20
0x00fb…015a at0021 = ╱ef╱ $ ╱ // 0x11c @0x21
0x00fb…015a at0022 = ╱ed╱ ( ╱ // 0x11d @0x22
0x00fb…015a at0023 = ╱31╱1╱ // 0x11e @0x23
0x00fb…015a at0024 = ╱34╱4╱ // 0x11f @0x24
0x00fb…015a at0025 = ╱fe0000e004╱ // 0x120 @0x25
0x00fb…015a at002a = ╱ee╱ ) ╱ // 0x125 @0x2a
0x00fb…015a at002b = ╱ec╱ , ╱ // 0x126 @0x2b
0x00fb…015a at002c = ╱42╱B╱ // 0x127 @0x2c
0x00fb…015a at002d = ╱39╱9╱ // 0x128 @0x2d
0x00fb…015a at002e = ╱ef╱ $ ╱ // 0x129 @0x2e
0x00fb…015a at002f = ╱ed╱ ( ╱ // 0x12a @0x2f
0x00fb…015a at0030 = ╱31╱1╱ // 0x12b @0x30
0x00fb…015a at0031 = ╱32╱2╱ // 0x12c @0x31
0x00fb…015a at0032 = ╱fe0000c004╱ // 0x12d @0x32
0x00fb…015a at0037 = ╱ee╱ ) ╱ // 0x132 @0x37
0x00fb…015a at0038 = ╱ec╱ , ╱ // 0x133 @0x38
0x00fb…015a at0039 = ╱43╱C╱ // 0x134 @0x39
0x00fb…015a at003a = ╱30╱0╱ // 0x135 @0x3a
0x00fb…015a at003b = ╱ef╱ $ ╱ // 0x136 @0x3b
0x00fb…015a at003c = ╱ed╱ ( ╱ // 0x137 @0x3c
0x00fb…015a at003d = ╱39╱9╱ // 0x138 @0x3d
0x00fb…015a at003e = ╱fe00009004╱ // 0x139 @0x3e
0x00fb…015a at0043 = ╱ee╱ ) ╱ // 0x13e @0x43
0x00fb…015a at0044 = ╱ec╱ , ╱ // 0x13f @0x44
0x00fb…015a at0045 = ╱43╱C╱ // 0x140 @0x45
0x00fb…015a at0046 = ╱31╱1╱ // 0x141 @0x46
0x00fb…015a at0047 = ╱ef╱ $ ╱ // 0x142 @0x47
0x00fb…015a at0048 = ╱ed╱ ( ╱ // 0x143 @0x48
0x00fb…015a at0049 = ╱32╱2╱ // 0x144 @0x49
0x00fb…015a at004a = ╱30╱0╱ // 0x145 @0x4a
0x00fb…015a at004b = ╱fe0000a005╱ // 0x146 @0x4b
0x00fb…015a at0050 = ╱ee╱ ) ╱ // 0x14b @0x50
0x00fb…015a at0051 = ╱ec╱ , ╱ // 0x14c @0x51
0x00fb…015a at0052 = ╱43╱C╱ // 0x14d @0x52
0x00fb…015a at0053 = ╱32╱2╱ // 0x14e @0x53
0x00fb…015a at0054 = ╱ef╱ $ ╱ // 0x14f @0x54
0x00fb…015a at0055 = ╱ed╱ ( ╱ // 0x150 @0x55
0x00fb…015a at0056 = ╱31╱1╱ // 0x151 @0x56
0x00fb…015a at0057 = ╱37╱7╱ // 0x152 @0x57
0x00fb…015a at0058 = ╱fe00008805╱ // 0x153 @0x58
0x00fb…015a at005d = ╱ee╱ ) ╱ // 0x158 @0x5d
0x00fb…015a at005e = EOL // 0x159 @0x5e
0x00fb…015a }
0x015a…01b5 8902 0140 DIM C3 $ ( 12 ) , C4 $ ( 12 ) , C5 $ ( 1 ) , A $ ( 2 ) , C6 $ ( 12 ) , C7 $ ( 1 ) , C8 $ ( 1 )
0x015a…01b5 LineComalBcd {
0x015a…01b5 ptr = 0x8902 // 0x15a @0x0
0x015a…01b5 lno = 0x0140 // 0x15c @0x2
0x015a…01b5 at0004 = ╱87╱ DIM ╱ // 0x15e @0x4
0x015a…01b5 at0005 = ╱43╱C╱ // 0x15f @0x5
0x015a…01b5 at0006 = ╱33╱3╱ // 0x160 @0x6
0x015a…01b5 at0007 = ╱ef╱ $ ╱ // 0x161 @0x7
0x015a…01b5 at0008 = ╱ed╱ ( ╱ // 0x162 @0x8
0x015a…01b5 at0009 = ╱31╱1╱ // 0x163 @0x9
0x015a…01b5 at000a = ╱32╱2╱ // 0x164 @0xa
0x015a…01b5 at000b = ╱fe0000c004╱ // 0x165 @0xb
0x015a…01b5 at0010 = ╱ee╱ ) ╱ // 0x16a @0x10
0x015a…01b5 at0011 = ╱ec╱ , ╱ // 0x16b @0x11
0x015a…01b5 at0012 = ╱43╱C╱ // 0x16c @0x12
0x015a…01b5 at0013 = ╱34╱4╱ // 0x16d @0x13
0x015a…01b5 at0014 = ╱ef╱ $ ╱ // 0x16e @0x14
0x015a…01b5 at0015 = ╱ed╱ ( ╱ // 0x16f @0x15
0x015a…01b5 at0016 = ╱31╱1╱ // 0x170 @0x16
0x015a…01b5 at0017 = ╱32╱2╱ // 0x171 @0x17
0x015a…01b5 at0018 = ╱fe0000c004╱ // 0x172 @0x18
0x015a…01b5 at001d = ╱ee╱ ) ╱ // 0x177 @0x1d
0x015a…01b5 at001e = ╱ec╱ , ╱ // 0x178 @0x1e
0x015a…01b5 at001f = ╱43╱C╱ // 0x179 @0x1f
0x015a…01b5 at0020 = ╱35╱5╱ // 0x17a @0x20
0x015a…01b5 at0021 = ╱ef╱ $ ╱ // 0x17b @0x21
0x015a…01b5 at0022 = ╱ed╱ ( ╱ // 0x17c @0x22
0x015a…01b5 at0023 = ╱31╱1╱ // 0x17d @0x23
0x015a…01b5 at0024 = ╱fe00008001╱ // 0x17e @0x24
0x015a…01b5 at0029 = ╱ee╱ ) ╱ // 0x183 @0x29
0x015a…01b5 at002a = ╱ec╱ , ╱ // 0x184 @0x2a
0x015a…01b5 at002b = ╱41╱A╱ // 0x185 @0x2b
0x015a…01b5 at002c = ╱ef╱ $ ╱ // 0x186 @0x2c
0x015a…01b5 at002d = ╱ed╱ ( ╱ // 0x187 @0x2d
0x015a…01b5 at002e = ╱32╱2╱ // 0x188 @0x2e
0x015a…01b5 at002f = ╱fe00008002╱ // 0x189 @0x2f
0x015a…01b5 at0034 = ╱ee╱ ) ╱ // 0x18e @0x34
0x015a…01b5 at0035 = ╱ec╱ , ╱ // 0x18f @0x35
0x015a…01b5 at0036 = ╱43╱C╱ // 0x190 @0x36
0x015a…01b5 at0037 = ╱36╱6╱ // 0x191 @0x37
0x015a…01b5 at0038 = ╱ef╱ $ ╱ // 0x192 @0x38
0x015a…01b5 at0039 = ╱ed╱ ( ╱ // 0x193 @0x39
0x015a…01b5 at003a = ╱31╱1╱ // 0x194 @0x3a
0x015a…01b5 at003b = ╱32╱2╱ // 0x195 @0x3b
0x015a…01b5 at003c = ╱fe0000c004╱ // 0x196 @0x3c
0x015a…01b5 at0041 = ╱ee╱ ) ╱ // 0x19b @0x41
0x015a…01b5 at0042 = ╱ec╱ , ╱ // 0x19c @0x42
0x015a…01b5 at0043 = ╱43╱C╱ // 0x19d @0x43
0x015a…01b5 at0044 = ╱37╱7╱ // 0x19e @0x44
0x015a…01b5 at0045 = ╱ef╱ $ ╱ // 0x19f @0x45
0x015a…01b5 at0046 = ╱ed╱ ( ╱ // 0x1a0 @0x46
0x015a…01b5 at0047 = ╱31╱1╱ // 0x1a1 @0x47
0x015a…01b5 at0048 = ╱fe00008001╱ // 0x1a2 @0x48
0x015a…01b5 at004d = ╱ee╱ ) ╱ // 0x1a7 @0x4d
0x015a…01b5 at004e = ╱ec╱ , ╱ // 0x1a8 @0x4e
0x015a…01b5 at004f = ╱43╱C╱ // 0x1a9 @0x4f
0x015a…01b5 at0050 = ╱38╱8╱ // 0x1aa @0x50
0x015a…01b5 at0051 = ╱ef╱ $ ╱ // 0x1ab @0x51
0x015a…01b5 at0052 = ╱ed╱ ( ╱ // 0x1ac @0x52
0x015a…01b5 at0053 = ╱31╱1╱ // 0x1ad @0x53
0x015a…01b5 at0054 = ╱fe00008001╱ // 0x1ae @0x54
0x015a…01b5 at0059 = ╱ee╱ ) ╱ // 0x1b3 @0x59
0x015a…01b5 at005a = EOL // 0x1b4 @0x5a
0x015a…01b5 }
0x01b5…0220 896d 0150 DIM C9 $ ( 17 ) , D0 $ ( 17 ) , D1 $ ( 17 ) , D2 $ ( 17 ) , D3 $ ( 17 ) , D4 $ ( 26 ) , D5 $ ( 7 ) , D6 $ ( 8 )
0x01b5…0220 LineComalBcd {
0x01b5…0220 ptr = 0x896d // 0x1b5 @0x0
0x01b5…0220 lno = 0x0150 // 0x1b7 @0x2
0x01b5…0220 at0004 = ╱87╱ DIM ╱ // 0x1b9 @0x4
0x01b5…0220 at0005 = ╱43╱C╱ // 0x1ba @0x5
0x01b5…0220 at0006 = ╱39╱9╱ // 0x1bb @0x6
0x01b5…0220 at0007 = ╱ef╱ $ ╱ // 0x1bc @0x7
0x01b5…0220 at0008 = ╱ed╱ ( ╱ // 0x1bd @0x8
0x01b5…0220 at0009 = ╱31╱1╱ // 0x1be @0x9
0x01b5…0220 at000a = ╱37╱7╱ // 0x1bf @0xa
0x01b5…0220 at000b = ╱fe00008805╱ // 0x1c0 @0xb
0x01b5…0220 at0010 = ╱ee╱ ) ╱ // 0x1c5 @0x10
0x01b5…0220 at0011 = ╱ec╱ , ╱ // 0x1c6 @0x11
0x01b5…0220 at0012 = ╱44╱D╱ // 0x1c7 @0x12
0x01b5…0220 at0013 = ╱30╱0╱ // 0x1c8 @0x13
0x01b5…0220 at0014 = ╱ef╱ $ ╱ // 0x1c9 @0x14
0x01b5…0220 at0015 = ╱ed╱ ( ╱ // 0x1ca @0x15
0x01b5…0220 at0016 = ╱31╱1╱ // 0x1cb @0x16
0x01b5…0220 at0017 = ╱37╱7╱ // 0x1cc @0x17
0x01b5…0220 at0018 = ╱fe00008805╱ // 0x1cd @0x18
0x01b5…0220 at001d = ╱ee╱ ) ╱ // 0x1d2 @0x1d
0x01b5…0220 at001e = ╱ec╱ , ╱ // 0x1d3 @0x1e
0x01b5…0220 at001f = ╱44╱D╱ // 0x1d4 @0x1f
0x01b5…0220 at0020 = ╱31╱1╱ // 0x1d5 @0x20
0x01b5…0220 at0021 = ╱ef╱ $ ╱ // 0x1d6 @0x21
0x01b5…0220 at0022 = ╱ed╱ ( ╱ // 0x1d7 @0x22
0x01b5…0220 at0023 = ╱31╱1╱ // 0x1d8 @0x23
0x01b5…0220 at0024 = ╱37╱7╱ // 0x1d9 @0x24
0x01b5…0220 at0025 = ╱fe00008805╱ // 0x1da @0x25
0x01b5…0220 at002a = ╱ee╱ ) ╱ // 0x1df @0x2a
0x01b5…0220 at002b = ╱ec╱ , ╱ // 0x1e0 @0x2b
0x01b5…0220 at002c = ╱44╱D╱ // 0x1e1 @0x2c
0x01b5…0220 at002d = ╱32╱2╱ // 0x1e2 @0x2d
0x01b5…0220 at002e = ╱ef╱ $ ╱ // 0x1e3 @0x2e
0x01b5…0220 at002f = ╱ed╱ ( ╱ // 0x1e4 @0x2f
0x01b5…0220 at0030 = ╱31╱1╱ // 0x1e5 @0x30
0x01b5…0220 at0031 = ╱37╱7╱ // 0x1e6 @0x31
0x01b5…0220 at0032 = ╱fe00008805╱ // 0x1e7 @0x32
0x01b5…0220 at0037 = ╱ee╱ ) ╱ // 0x1ec @0x37
0x01b5…0220 at0038 = ╱ec╱ , ╱ // 0x1ed @0x38
0x01b5…0220 at0039 = ╱44╱D╱ // 0x1ee @0x39
0x01b5…0220 at003a = ╱33╱3╱ // 0x1ef @0x3a
0x01b5…0220 at003b = ╱ef╱ $ ╱ // 0x1f0 @0x3b
0x01b5…0220 at003c = ╱ed╱ ( ╱ // 0x1f1 @0x3c
0x01b5…0220 at003d = ╱31╱1╱ // 0x1f2 @0x3d
0x01b5…0220 at003e = ╱37╱7╱ // 0x1f3 @0x3e
0x01b5…0220 at003f = ╱fe00008805╱ // 0x1f4 @0x3f
0x01b5…0220 at0044 = ╱ee╱ ) ╱ // 0x1f9 @0x44
0x01b5…0220 at0045 = ╱ec╱ , ╱ // 0x1fa @0x45
0x01b5…0220 at0046 = ╱44╱D╱ // 0x1fb @0x46
0x01b5…0220 at0047 = ╱34╱4╱ // 0x1fc @0x47
0x01b5…0220 at0048 = ╱ef╱ $ ╱ // 0x1fd @0x48
0x01b5…0220 at0049 = ╱ed╱ ( ╱ // 0x1fe @0x49
0x01b5…0220 at004a = ╱32╱2╱ // 0x1ff @0x4a
0x01b5…0220 at004b = ╱36╱6╱ // 0x200 @0x4b
0x01b5…0220 at004c = ╱fe0000d005╱ // 0x201 @0x4c
0x01b5…0220 at0051 = ╱ee╱ ) ╱ // 0x206 @0x51
0x01b5…0220 at0052 = ╱ec╱ , ╱ // 0x207 @0x52
0x01b5…0220 at0053 = ╱44╱D╱ // 0x208 @0x53
0x01b5…0220 at0054 = ╱35╱5╱ // 0x209 @0x54
0x01b5…0220 at0055 = ╱ef╱ $ ╱ // 0x20a @0x55
0x01b5…0220 at0056 = ╱ed╱ ( ╱ // 0x20b @0x56
0x01b5…0220 at0057 = ╱37╱7╱ // 0x20c @0x57
0x01b5…0220 at0058 = ╱fe0000e003╱ // 0x20d @0x58
0x01b5…0220 at005d = ╱ee╱ ) ╱ // 0x212 @0x5d
0x01b5…0220 at005e = ╱ec╱ , ╱ // 0x213 @0x5e
0x01b5…0220 at005f = ╱44╱D╱ // 0x214 @0x5f
0x01b5…0220 at0060 = ╱36╱6╱ // 0x215 @0x60
0x01b5…0220 at0061 = ╱ef╱ $ ╱ // 0x216 @0x61
0x01b5…0220 at0062 = ╱ed╱ ( ╱ // 0x217 @0x62
0x01b5…0220 at0063 = ╱38╱8╱ // 0x218 @0x63
0x01b5…0220 at0064 = ╱fe00008004╱ // 0x219 @0x64
0x01b5…0220 at0069 = ╱ee╱ ) ╱ // 0x21e @0x69
0x01b5…0220 at006a = EOL // 0x21f @0x6a
0x01b5…0220 }
0x0220…0266 89b3 0160 DIM D7 $ ( 12 ) , D8 $ ( 12 ) , D9 $ ( 12 ) , E0 $ ( 12 ) , E1 $ ( 12 )
0x0220…0266 LineComalBcd {
0x0220…0266 ptr = 0x89b3 // 0x220 @0x0
0x0220…0266 lno = 0x0160 // 0x222 @0x2
0x0220…0266 at0004 = ╱87╱ DIM ╱ // 0x224 @0x4
0x0220…0266 at0005 = ╱44╱D╱ // 0x225 @0x5
0x0220…0266 at0006 = ╱37╱7╱ // 0x226 @0x6
0x0220…0266 at0007 = ╱ef╱ $ ╱ // 0x227 @0x7
0x0220…0266 at0008 = ╱ed╱ ( ╱ // 0x228 @0x8
0x0220…0266 at0009 = ╱31╱1╱ // 0x229 @0x9
0x0220…0266 at000a = ╱32╱2╱ // 0x22a @0xa
0x0220…0266 at000b = ╱fe0000c004╱ // 0x22b @0xb
0x0220…0266 at0010 = ╱ee╱ ) ╱ // 0x230 @0x10
0x0220…0266 at0011 = ╱ec╱ , ╱ // 0x231 @0x11
0x0220…0266 at0012 = ╱44╱D╱ // 0x232 @0x12
0x0220…0266 at0013 = ╱38╱8╱ // 0x233 @0x13
0x0220…0266 at0014 = ╱ef╱ $ ╱ // 0x234 @0x14
0x0220…0266 at0015 = ╱ed╱ ( ╱ // 0x235 @0x15
0x0220…0266 at0016 = ╱31╱1╱ // 0x236 @0x16
0x0220…0266 at0017 = ╱32╱2╱ // 0x237 @0x17
0x0220…0266 at0018 = ╱fe0000c004╱ // 0x238 @0x18
0x0220…0266 at001d = ╱ee╱ ) ╱ // 0x23d @0x1d
0x0220…0266 at001e = ╱ec╱ , ╱ // 0x23e @0x1e
0x0220…0266 at001f = ╱44╱D╱ // 0x23f @0x1f
0x0220…0266 at0020 = ╱39╱9╱ // 0x240 @0x20
0x0220…0266 at0021 = ╱ef╱ $ ╱ // 0x241 @0x21
0x0220…0266 at0022 = ╱ed╱ ( ╱ // 0x242 @0x22
0x0220…0266 at0023 = ╱31╱1╱ // 0x243 @0x23
0x0220…0266 at0024 = ╱32╱2╱ // 0x244 @0x24
0x0220…0266 at0025 = ╱fe0000c004╱ // 0x245 @0x25
0x0220…0266 at002a = ╱ee╱ ) ╱ // 0x24a @0x2a
0x0220…0266 at002b = ╱ec╱ , ╱ // 0x24b @0x2b
0x0220…0266 at002c = ╱45╱E╱ // 0x24c @0x2c
0x0220…0266 at002d = ╱30╱0╱ // 0x24d @0x2d
0x0220…0266 at002e = ╱ef╱ $ ╱ // 0x24e @0x2e
0x0220…0266 at002f = ╱ed╱ ( ╱ // 0x24f @0x2f
0x0220…0266 at0030 = ╱31╱1╱ // 0x250 @0x30
0x0220…0266 at0031 = ╱32╱2╱ // 0x251 @0x31
0x0220…0266 at0032 = ╱fe0000c004╱ // 0x252 @0x32
0x0220…0266 at0037 = ╱ee╱ ) ╱ // 0x257 @0x37
0x0220…0266 at0038 = ╱ec╱ , ╱ // 0x258 @0x38
0x0220…0266 at0039 = ╱45╱E╱ // 0x259 @0x39
0x0220…0266 at003a = ╱31╱1╱ // 0x25a @0x3a
0x0220…0266 at003b = ╱ef╱ $ ╱ // 0x25b @0x3b
0x0220…0266 at003c = ╱ed╱ ( ╱ // 0x25c @0x3c
0x0220…0266 at003d = ╱31╱1╱ // 0x25d @0x3d
0x0220…0266 at003e = ╱32╱2╱ // 0x25e @0x3e
0x0220…0266 at003f = ╱fe0000c004╱ // 0x25f @0x3f
0x0220…0266 at0044 = ╱ee╱ ) ╱ // 0x264 @0x44
0x0220…0266 at0045 = EOL // 0x265 @0x45
0x0220…0266 }
0x0266…02ca 8a17 0170 DIM E2 $ ( 17 ) , E3 $ ( 25 ) , E4 $ ( 25 ) , E5 $ ( 18 , 10 ) , E6 $ ( 1 ) , E7 $ ( 6 ) , E8 ( 9 )
0x0266…02ca LineComalBcd {
0x0266…02ca ptr = 0x8a17 // 0x266 @0x0
0x0266…02ca lno = 0x0170 // 0x268 @0x2
0x0266…02ca at0004 = ╱87╱ DIM ╱ // 0x26a @0x4
0x0266…02ca at0005 = ╱45╱E╱ // 0x26b @0x5
0x0266…02ca at0006 = ╱32╱2╱ // 0x26c @0x6
0x0266…02ca at0007 = ╱ef╱ $ ╱ // 0x26d @0x7
0x0266…02ca at0008 = ╱ed╱ ( ╱ // 0x26e @0x8
0x0266…02ca at0009 = ╱31╱1╱ // 0x26f @0x9
0x0266…02ca at000a = ╱37╱7╱ // 0x270 @0xa
0x0266…02ca at000b = ╱fe00008805╱ // 0x271 @0xb
0x0266…02ca at0010 = ╱ee╱ ) ╱ // 0x276 @0x10
0x0266…02ca at0011 = ╱ec╱ , ╱ // 0x277 @0x11
0x0266…02ca at0012 = ╱45╱E╱ // 0x278 @0x12
0x0266…02ca at0013 = ╱33╱3╱ // 0x279 @0x13
0x0266…02ca at0014 = ╱ef╱ $ ╱ // 0x27a @0x14
0x0266…02ca at0015 = ╱ed╱ ( ╱ // 0x27b @0x15
0x0266…02ca at0016 = ╱32╱2╱ // 0x27c @0x16
0x0266…02ca at0017 = ╱35╱5╱ // 0x27d @0x17
0x0266…02ca at0018 = ╱fe0000c805╱ // 0x27e @0x18
0x0266…02ca at001d = ╱ee╱ ) ╱ // 0x283 @0x1d
0x0266…02ca at001e = ╱ec╱ , ╱ // 0x284 @0x1e
0x0266…02ca at001f = ╱45╱E╱ // 0x285 @0x1f
0x0266…02ca at0020 = ╱34╱4╱ // 0x286 @0x20
0x0266…02ca at0021 = ╱ef╱ $ ╱ // 0x287 @0x21
0x0266…02ca at0022 = ╱ed╱ ( ╱ // 0x288 @0x22
0x0266…02ca at0023 = ╱32╱2╱ // 0x289 @0x23
0x0266…02ca at0024 = ╱35╱5╱ // 0x28a @0x24
0x0266…02ca at0025 = ╱fe0000c805╱ // 0x28b @0x25
0x0266…02ca at002a = ╱ee╱ ) ╱ // 0x290 @0x2a
0x0266…02ca at002b = ╱ec╱ , ╱ // 0x291 @0x2b
0x0266…02ca at002c = ╱45╱E╱ // 0x292 @0x2c
0x0266…02ca at002d = ╱35╱5╱ // 0x293 @0x2d
0x0266…02ca at002e = ╱ef╱ $ ╱ // 0x294 @0x2e
0x0266…02ca at002f = ╱ed╱ ( ╱ // 0x295 @0x2f
0x0266…02ca at0030 = ╱31╱1╱ // 0x296 @0x30
0x0266…02ca at0031 = ╱38╱8╱ // 0x297 @0x31
0x0266…02ca at0032 = ╱fe00009005╱ // 0x298 @0x32
0x0266…02ca at0037 = ╱ec╱ , ╱ // 0x29d @0x37
0x0266…02ca at0038 = ╱31╱1╱ // 0x29e @0x38
0x0266…02ca at0039 = ╱30╱0╱ // 0x29f @0x39
0x0266…02ca at003a = ╱fe0000a004╱ // 0x2a0 @0x3a
0x0266…02ca at003f = ╱ee╱ ) ╱ // 0x2a5 @0x3f
0x0266…02ca at0040 = ╱ec╱ , ╱ // 0x2a6 @0x40
0x0266…02ca at0041 = ╱45╱E╱ // 0x2a7 @0x41
0x0266…02ca at0042 = ╱36╱6╱ // 0x2a8 @0x42
0x0266…02ca at0043 = ╱ef╱ $ ╱ // 0x2a9 @0x43
0x0266…02ca at0044 = ╱ed╱ ( ╱ // 0x2aa @0x44
0x0266…02ca at0045 = ╱31╱1╱ // 0x2ab @0x45
0x0266…02ca at0046 = ╱fe00008001╱ // 0x2ac @0x46
0x0266…02ca at004b = ╱ee╱ ) ╱ // 0x2b1 @0x4b
0x0266…02ca at004c = ╱ec╱ , ╱ // 0x2b2 @0x4c
0x0266…02ca at004d = ╱45╱E╱ // 0x2b3 @0x4d
0x0266…02ca at004e = ╱37╱7╱ // 0x2b4 @0x4e
0x0266…02ca at004f = ╱ef╱ $ ╱ // 0x2b5 @0x4f
0x0266…02ca at0050 = ╱ed╱ ( ╱ // 0x2b6 @0x50
0x0266…02ca at0051 = ╱36╱6╱ // 0x2b7 @0x51
0x0266…02ca at0052 = ╱fe0000c003╱ // 0x2b8 @0x52
0x0266…02ca at0057 = ╱ee╱ ) ╱ // 0x2bd @0x57
0x0266…02ca at0058 = ╱ec╱ , ╱ // 0x2be @0x58
0x0266…02ca at0059 = ╱45╱E╱ // 0x2bf @0x59
0x0266…02ca at005a = ╱38╱8╱ // 0x2c0 @0x5a
0x0266…02ca at005b = ╱ed╱ ( ╱ // 0x2c1 @0x5b
0x0266…02ca at005c = ╱39╱9╱ // 0x2c2 @0x5c
0x0266…02ca at005d = ╱fe00009004╱ // 0x2c3 @0x5d
0x0266…02ca at0062 = ╱ee╱ ) ╱ // 0x2c8 @0x62
0x0266…02ca at0063 = EOL // 0x2c9 @0x63
0x0266…02ca }
0x02ca…032d 8a7a 0180 DIM E9 $ ( 17 ) , F0 ( 9 ) , F1 $ ( 1 ) , F2 $ ( 1 ) , F3 $ ( 12 ) , F4 $ ( 12 ) , F5 $ ( 6 , 12 )
0x02ca…032d LineComalBcd {
0x02ca…032d ptr = 0x8a7a // 0x2ca @0x0
0x02ca…032d lno = 0x0180 // 0x2cc @0x2
0x02ca…032d at0004 = ╱87╱ DIM ╱ // 0x2ce @0x4
0x02ca…032d at0005 = ╱45╱E╱ // 0x2cf @0x5
0x02ca…032d at0006 = ╱39╱9╱ // 0x2d0 @0x6
0x02ca…032d at0007 = ╱ef╱ $ ╱ // 0x2d1 @0x7
0x02ca…032d at0008 = ╱ed╱ ( ╱ // 0x2d2 @0x8
0x02ca…032d at0009 = ╱31╱1╱ // 0x2d3 @0x9
0x02ca…032d at000a = ╱37╱7╱ // 0x2d4 @0xa
0x02ca…032d at000b = ╱fe00008805╱ // 0x2d5 @0xb
0x02ca…032d at0010 = ╱ee╱ ) ╱ // 0x2da @0x10
0x02ca…032d at0011 = ╱ec╱ , ╱ // 0x2db @0x11
0x02ca…032d at0012 = ╱46╱F╱ // 0x2dc @0x12
0x02ca…032d at0013 = ╱30╱0╱ // 0x2dd @0x13
0x02ca…032d at0014 = ╱ed╱ ( ╱ // 0x2de @0x14
0x02ca…032d at0015 = ╱39╱9╱ // 0x2df @0x15
0x02ca…032d at0016 = ╱fe00009004╱ // 0x2e0 @0x16
0x02ca…032d at001b = ╱ee╱ ) ╱ // 0x2e5 @0x1b
0x02ca…032d at001c = ╱ec╱ , ╱ // 0x2e6 @0x1c
0x02ca…032d at001d = ╱46╱F╱ // 0x2e7 @0x1d
0x02ca…032d at001e = ╱31╱1╱ // 0x2e8 @0x1e
0x02ca…032d at001f = ╱ef╱ $ ╱ // 0x2e9 @0x1f
0x02ca…032d at0020 = ╱ed╱ ( ╱ // 0x2ea @0x20
0x02ca…032d at0021 = ╱31╱1╱ // 0x2eb @0x21
0x02ca…032d at0022 = ╱fe00008001╱ // 0x2ec @0x22
0x02ca…032d at0027 = ╱ee╱ ) ╱ // 0x2f1 @0x27
0x02ca…032d at0028 = ╱ec╱ , ╱ // 0x2f2 @0x28
0x02ca…032d at0029 = ╱46╱F╱ // 0x2f3 @0x29
0x02ca…032d at002a = ╱32╱2╱ // 0x2f4 @0x2a
0x02ca…032d at002b = ╱ef╱ $ ╱ // 0x2f5 @0x2b
0x02ca…032d at002c = ╱ed╱ ( ╱ // 0x2f6 @0x2c
0x02ca…032d at002d = ╱31╱1╱ // 0x2f7 @0x2d
0x02ca…032d at002e = ╱fe00008001╱ // 0x2f8 @0x2e
0x02ca…032d at0033 = ╱ee╱ ) ╱ // 0x2fd @0x33
0x02ca…032d at0034 = ╱ec╱ , ╱ // 0x2fe @0x34
0x02ca…032d at0035 = ╱46╱F╱ // 0x2ff @0x35
0x02ca…032d at0036 = ╱33╱3╱ // 0x300 @0x36
0x02ca…032d at0037 = ╱ef╱ $ ╱ // 0x301 @0x37
0x02ca…032d at0038 = ╱ed╱ ( ╱ // 0x302 @0x38
0x02ca…032d at0039 = ╱31╱1╱ // 0x303 @0x39
0x02ca…032d at003a = ╱32╱2╱ // 0x304 @0x3a
0x02ca…032d at003b = ╱fe0000c004╱ // 0x305 @0x3b
0x02ca…032d at0040 = ╱ee╱ ) ╱ // 0x30a @0x40
0x02ca…032d at0041 = ╱ec╱ , ╱ // 0x30b @0x41
0x02ca…032d at0042 = ╱46╱F╱ // 0x30c @0x42
0x02ca…032d at0043 = ╱34╱4╱ // 0x30d @0x43
0x02ca…032d at0044 = ╱ef╱ $ ╱ // 0x30e @0x44
0x02ca…032d at0045 = ╱ed╱ ( ╱ // 0x30f @0x45
0x02ca…032d at0046 = ╱31╱1╱ // 0x310 @0x46
0x02ca…032d at0047 = ╱32╱2╱ // 0x311 @0x47
0x02ca…032d at0048 = ╱fe0000c004╱ // 0x312 @0x48
0x02ca…032d at004d = ╱ee╱ ) ╱ // 0x317 @0x4d
0x02ca…032d at004e = ╱ec╱ , ╱ // 0x318 @0x4e
0x02ca…032d at004f = ╱46╱F╱ // 0x319 @0x4f
0x02ca…032d at0050 = ╱35╱5╱ // 0x31a @0x50
0x02ca…032d at0051 = ╱ef╱ $ ╱ // 0x31b @0x51
0x02ca…032d at0052 = ╱ed╱ ( ╱ // 0x31c @0x52
0x02ca…032d at0053 = ╱36╱6╱ // 0x31d @0x53
0x02ca…032d at0054 = ╱fe0000c003╱ // 0x31e @0x54
0x02ca…032d at0059 = ╱ec╱ , ╱ // 0x323 @0x59
0x02ca…032d at005a = ╱31╱1╱ // 0x324 @0x5a
0x02ca…032d at005b = ╱32╱2╱ // 0x325 @0x5b
0x02ca…032d at005c = ╱fe0000c004╱ // 0x326 @0x5c
0x02ca…032d at0061 = ╱ee╱ ) ╱ // 0x32b @0x61
0x02ca…032d at0062 = EOL // 0x32c @0x62
0x02ca…032d }
0x032d…0384 8ad1 0190 DIM F6 $ ( 12 ) , F7 $ ( 12 ) , F8 $ ( 25 ) , F9 $ ( 6 , 12 ) , G0 $ ( 1 ) , G1 ( 9 )
0x032d…0384 LineComalBcd {
0x032d…0384 ptr = 0x8ad1 // 0x32d @0x0
0x032d…0384 lno = 0x0190 // 0x32f @0x2
0x032d…0384 at0004 = ╱87╱ DIM ╱ // 0x331 @0x4
0x032d…0384 at0005 = ╱46╱F╱ // 0x332 @0x5
0x032d…0384 at0006 = ╱36╱6╱ // 0x333 @0x6
0x032d…0384 at0007 = ╱ef╱ $ ╱ // 0x334 @0x7
0x032d…0384 at0008 = ╱ed╱ ( ╱ // 0x335 @0x8
0x032d…0384 at0009 = ╱31╱1╱ // 0x336 @0x9
0x032d…0384 at000a = ╱32╱2╱ // 0x337 @0xa
0x032d…0384 at000b = ╱fe0000c004╱ // 0x338 @0xb
0x032d…0384 at0010 = ╱ee╱ ) ╱ // 0x33d @0x10
0x032d…0384 at0011 = ╱ec╱ , ╱ // 0x33e @0x11
0x032d…0384 at0012 = ╱46╱F╱ // 0x33f @0x12
0x032d…0384 at0013 = ╱37╱7╱ // 0x340 @0x13
0x032d…0384 at0014 = ╱ef╱ $ ╱ // 0x341 @0x14
0x032d…0384 at0015 = ╱ed╱ ( ╱ // 0x342 @0x15
0x032d…0384 at0016 = ╱31╱1╱ // 0x343 @0x16
0x032d…0384 at0017 = ╱32╱2╱ // 0x344 @0x17
0x032d…0384 at0018 = ╱fe0000c004╱ // 0x345 @0x18
0x032d…0384 at001d = ╱ee╱ ) ╱ // 0x34a @0x1d
0x032d…0384 at001e = ╱ec╱ , ╱ // 0x34b @0x1e
0x032d…0384 at001f = ╱46╱F╱ // 0x34c @0x1f
0x032d…0384 at0020 = ╱38╱8╱ // 0x34d @0x20
0x032d…0384 at0021 = ╱ef╱ $ ╱ // 0x34e @0x21
0x032d…0384 at0022 = ╱ed╱ ( ╱ // 0x34f @0x22
0x032d…0384 at0023 = ╱32╱2╱ // 0x350 @0x23
0x032d…0384 at0024 = ╱35╱5╱ // 0x351 @0x24
0x032d…0384 at0025 = ╱fe0000c805╱ // 0x352 @0x25
0x032d…0384 at002a = ╱ee╱ ) ╱ // 0x357 @0x2a
0x032d…0384 at002b = ╱ec╱ , ╱ // 0x358 @0x2b
0x032d…0384 at002c = ╱46╱F╱ // 0x359 @0x2c
0x032d…0384 at002d = ╱39╱9╱ // 0x35a @0x2d
0x032d…0384 at002e = ╱ef╱ $ ╱ // 0x35b @0x2e
0x032d…0384 at002f = ╱ed╱ ( ╱ // 0x35c @0x2f
0x032d…0384 at0030 = ╱36╱6╱ // 0x35d @0x30
0x032d…0384 at0031 = ╱fe0000c003╱ // 0x35e @0x31
0x032d…0384 at0036 = ╱ec╱ , ╱ // 0x363 @0x36
0x032d…0384 at0037 = ╱31╱1╱ // 0x364 @0x37
0x032d…0384 at0038 = ╱32╱2╱ // 0x365 @0x38
0x032d…0384 at0039 = ╱fe0000c004╱ // 0x366 @0x39
0x032d…0384 at003e = ╱ee╱ ) ╱ // 0x36b @0x3e
0x032d…0384 at003f = ╱ec╱ , ╱ // 0x36c @0x3f
0x032d…0384 at0040 = ╱47╱G╱ // 0x36d @0x40
0x032d…0384 at0041 = ╱30╱0╱ // 0x36e @0x41
0x032d…0384 at0042 = ╱ef╱ $ ╱ // 0x36f @0x42
0x032d…0384 at0043 = ╱ed╱ ( ╱ // 0x370 @0x43
0x032d…0384 at0044 = ╱31╱1╱ // 0x371 @0x44
0x032d…0384 at0045 = ╱fe00008001╱ // 0x372 @0x45
0x032d…0384 at004a = ╱ee╱ ) ╱ // 0x377 @0x4a
0x032d…0384 at004b = ╱ec╱ , ╱ // 0x378 @0x4b
0x032d…0384 at004c = ╱47╱G╱ // 0x379 @0x4c
0x032d…0384 at004d = ╱31╱1╱ // 0x37a @0x4d
0x032d…0384 at004e = ╱ed╱ ( ╱ // 0x37b @0x4e
0x032d…0384 at004f = ╱39╱9╱ // 0x37c @0x4f
0x032d…0384 at0050 = ╱fe00009004╱ // 0x37d @0x50
0x032d…0384 at0055 = ╱ee╱ ) ╱ // 0x382 @0x55
0x032d…0384 at0056 = EOL // 0x383 @0x56
0x032d…0384 }
0x0384…03ef 8b3c 0200 DIM G2 ( 18 ) , G3 ( 18 ) , G4 ( 18 ) , G5 ( 18 ) , G6 $ ( 18 , 12 ) , G7 ( 18 ) , G8 $ ( 18 , 25 )
0x0384…03ef LineComalBcd {
0x0384…03ef ptr = 0x8b3c // 0x384 @0x0
0x0384…03ef lno = 0x0200 // 0x386 @0x2
0x0384…03ef at0004 = ╱87╱ DIM ╱ // 0x388 @0x4
0x0384…03ef at0005 = ╱47╱G╱ // 0x389 @0x5
0x0384…03ef at0006 = ╱32╱2╱ // 0x38a @0x6
0x0384…03ef at0007 = ╱ed╱ ( ╱ // 0x38b @0x7
0x0384…03ef at0008 = ╱31╱1╱ // 0x38c @0x8
0x0384…03ef at0009 = ╱38╱8╱ // 0x38d @0x9
0x0384…03ef at000a = ╱fe00009005╱ // 0x38e @0xa
0x0384…03ef at000f = ╱ee╱ ) ╱ // 0x393 @0xf
0x0384…03ef at0010 = ╱ec╱ , ╱ // 0x394 @0x10
0x0384…03ef at0011 = ╱47╱G╱ // 0x395 @0x11
0x0384…03ef at0012 = ╱33╱3╱ // 0x396 @0x12
0x0384…03ef at0013 = ╱ed╱ ( ╱ // 0x397 @0x13
0x0384…03ef at0014 = ╱31╱1╱ // 0x398 @0x14
0x0384…03ef at0015 = ╱38╱8╱ // 0x399 @0x15
0x0384…03ef at0016 = ╱fe00009005╱ // 0x39a @0x16
0x0384…03ef at001b = ╱ee╱ ) ╱ // 0x39f @0x1b
0x0384…03ef at001c = ╱ec╱ , ╱ // 0x3a0 @0x1c
0x0384…03ef at001d = ╱47╱G╱ // 0x3a1 @0x1d
0x0384…03ef at001e = ╱34╱4╱ // 0x3a2 @0x1e
0x0384…03ef at001f = ╱ed╱ ( ╱ // 0x3a3 @0x1f
0x0384…03ef at0020 = ╱31╱1╱ // 0x3a4 @0x20
0x0384…03ef at0021 = ╱38╱8╱ // 0x3a5 @0x21
0x0384…03ef at0022 = ╱fe00009005╱ // 0x3a6 @0x22
0x0384…03ef at0027 = ╱ee╱ ) ╱ // 0x3ab @0x27
0x0384…03ef at0028 = ╱ec╱ , ╱ // 0x3ac @0x28
0x0384…03ef at0029 = ╱47╱G╱ // 0x3ad @0x29
0x0384…03ef at002a = ╱35╱5╱ // 0x3ae @0x2a
0x0384…03ef at002b = ╱ed╱ ( ╱ // 0x3af @0x2b
0x0384…03ef at002c = ╱31╱1╱ // 0x3b0 @0x2c
0x0384…03ef at002d = ╱38╱8╱ // 0x3b1 @0x2d
0x0384…03ef at002e = ╱fe00009005╱ // 0x3b2 @0x2e
0x0384…03ef at0033 = ╱ee╱ ) ╱ // 0x3b7 @0x33
0x0384…03ef at0034 = ╱ec╱ , ╱ // 0x3b8 @0x34
0x0384…03ef at0035 = ╱47╱G╱ // 0x3b9 @0x35
0x0384…03ef at0036 = ╱36╱6╱ // 0x3ba @0x36
0x0384…03ef at0037 = ╱ef╱ $ ╱ // 0x3bb @0x37
0x0384…03ef at0038 = ╱ed╱ ( ╱ // 0x3bc @0x38
0x0384…03ef at0039 = ╱31╱1╱ // 0x3bd @0x39
0x0384…03ef at003a = ╱38╱8╱ // 0x3be @0x3a
0x0384…03ef at003b = ╱fe00009005╱ // 0x3bf @0x3b
0x0384…03ef at0040 = ╱ec╱ , ╱ // 0x3c4 @0x40
0x0384…03ef at0041 = ╱31╱1╱ // 0x3c5 @0x41
0x0384…03ef at0042 = ╱32╱2╱ // 0x3c6 @0x42
0x0384…03ef at0043 = ╱fe0000c004╱ // 0x3c7 @0x43
0x0384…03ef at0048 = ╱ee╱ ) ╱ // 0x3cc @0x48
0x0384…03ef at0049 = ╱ec╱ , ╱ // 0x3cd @0x49
0x0384…03ef at004a = ╱47╱G╱ // 0x3ce @0x4a
0x0384…03ef at004b = ╱37╱7╱ // 0x3cf @0x4b
0x0384…03ef at004c = ╱ed╱ ( ╱ // 0x3d0 @0x4c
0x0384…03ef at004d = ╱31╱1╱ // 0x3d1 @0x4d
0x0384…03ef at004e = ╱38╱8╱ // 0x3d2 @0x4e
0x0384…03ef at004f = ╱fe00009005╱ // 0x3d3 @0x4f
0x0384…03ef at0054 = ╱ee╱ ) ╱ // 0x3d8 @0x54
0x0384…03ef at0055 = ╱ec╱ , ╱ // 0x3d9 @0x55
0x0384…03ef at0056 = ╱47╱G╱ // 0x3da @0x56
0x0384…03ef at0057 = ╱38╱8╱ // 0x3db @0x57
0x0384…03ef at0058 = ╱ef╱ $ ╱ // 0x3dc @0x58
0x0384…03ef at0059 = ╱ed╱ ( ╱ // 0x3dd @0x59
0x0384…03ef at005a = ╱31╱1╱ // 0x3de @0x5a
0x0384…03ef at005b = ╱38╱8╱ // 0x3df @0x5b
0x0384…03ef at005c = ╱fe00009005╱ // 0x3e0 @0x5c
0x0384…03ef at0061 = ╱ec╱ , ╱ // 0x3e5 @0x61
0x0384…03ef at0062 = ╱32╱2╱ // 0x3e6 @0x62
0x0384…03ef at0063 = ╱35╱5╱ // 0x3e7 @0x63
0x0384…03ef at0064 = ╱fe0000c805╱ // 0x3e8 @0x64
0x0384…03ef at0069 = ╱ee╱ ) ╱ // 0x3ed @0x69
0x0384…03ef at006a = EOL // 0x3ee @0x6a
0x0384…03ef }
0x03ef…0406 8b53 0210 PROC CALC ( G9 , H0 , H1 , H2 )
0x03ef…0406 LineComalBcd {
0x03ef…0406 ptr = 0x8b53 // 0x3ef @0x0
0x03ef…0406 lno = 0x0210 // 0x3f1 @0x2
0x03ef…0406 at0004 = ╱9e╱ PROC ╱ // 0x3f3 @0x4
0x03ef…0406 at0005 = ╱43╱C╱ // 0x3f4 @0x5
0x03ef…0406 at0006 = ╱41╱A╱ // 0x3f5 @0x6
0x03ef…0406 at0007 = ╱4c╱L╱ // 0x3f6 @0x7
0x03ef…0406 at0008 = ╱43╱C╱ // 0x3f7 @0x8
0x03ef…0406 at0009 = ╱ed╱ ( ╱ // 0x3f8 @0x9
0x03ef…0406 at000a = ╱47╱G╱ // 0x3f9 @0xa
0x03ef…0406 at000b = ╱39╱9╱ // 0x3fa @0xb
0x03ef…0406 at000c = ╱ec╱ , ╱ // 0x3fb @0xc
0x03ef…0406 at000d = ╱48╱H╱ // 0x3fc @0xd
0x03ef…0406 at000e = ╱30╱0╱ // 0x3fd @0xe
0x03ef…0406 at000f = ╱ec╱ , ╱ // 0x3fe @0xf
0x03ef…0406 at0010 = ╱48╱H╱ // 0x3ff @0x10
0x03ef…0406 at0011 = ╱31╱1╱ // 0x400 @0x11
0x03ef…0406 at0012 = ╱ec╱ , ╱ // 0x401 @0x12
0x03ef…0406 at0013 = ╱48╱H╱ // 0x402 @0x13
0x03ef…0406 at0014 = ╱32╱2╱ // 0x403 @0x14
0x03ef…0406 at0015 = ╱ee╱ ) ╱ // 0x404 @0x15
0x03ef…0406 at0016 = EOL // 0x405 @0x16
0x03ef…0406 }
0x0406…0455 8ba2 0220 OP1 $ = H0 $ ; OP2 $ = H1 $ ; RES $ = H2 $ ; SI = 0 ; FLAG = 0 ; ART = G9 - 6 * ( G9 > 5 )
0x0406…0455 LineComalBcd {
0x0406…0455 ptr = 0x8ba2 // 0x406 @0x0
0x0406…0455 lno = 0x0220 // 0x408 @0x2
0x0406…0455 at0004 = ╱4f╱O╱ // 0x40a @0x4
0x0406…0455 at0005 = ╱50╱P╱ // 0x40b @0x5
0x0406…0455 at0006 = ╱31╱1╱ // 0x40c @0x6
0x0406…0455 at0007 = ╱ef╱ $ ╱ // 0x40d @0x7
0x0406…0455 at0008 = ╱dc╱ = ╱ // 0x40e @0x8
0x0406…0455 at0009 = ╱48╱H╱ // 0x40f @0x9
0x0406…0455 at000a = ╱30╱0╱ // 0x410 @0xa
0x0406…0455 at000b = ╱ef╱ $ ╱ // 0x411 @0xb
0x0406…0455 at000c = ╱eb╱ ; ╱ // 0x412 @0xc
0x0406…0455 at000d = ╱4f╱O╱ // 0x413 @0xd
0x0406…0455 at000e = ╱50╱P╱ // 0x414 @0xe
0x0406…0455 at000f = ╱32╱2╱ // 0x415 @0xf
0x0406…0455 at0010 = ╱ef╱ $ ╱ // 0x416 @0x10
0x0406…0455 at0011 = ╱dc╱ = ╱ // 0x417 @0x11
0x0406…0455 at0012 = ╱48╱H╱ // 0x418 @0x12
0x0406…0455 at0013 = ╱31╱1╱ // 0x419 @0x13
0x0406…0455 at0014 = ╱ef╱ $ ╱ // 0x41a @0x14
0x0406…0455 at0015 = ╱eb╱ ; ╱ // 0x41b @0x15
0x0406…0455 at0016 = ╱52╱R╱ // 0x41c @0x16
0x0406…0455 at0017 = ╱45╱E╱ // 0x41d @0x17
0x0406…0455 at0018 = ╱53╱S╱ // 0x41e @0x18
0x0406…0455 at0019 = ╱ef╱ $ ╱ // 0x41f @0x19
0x0406…0455 at001a = ╱dc╱ = ╱ // 0x420 @0x1a
0x0406…0455 at001b = ╱48╱H╱ // 0x421 @0x1b
0x0406…0455 at001c = ╱32╱2╱ // 0x422 @0x1c
0x0406…0455 at001d = ╱ef╱ $ ╱ // 0x423 @0x1d
0x0406…0455 at001e = ╱eb╱ ; ╱ // 0x424 @0x1e
0x0406…0455 at001f = ╱53╱S╱ // 0x425 @0x1f
0x0406…0455 at0020 = ╱49╱I╱ // 0x426 @0x20
0x0406…0455 at0021 = ╱dc╱ = ╱ // 0x427 @0x21
0x0406…0455 at0022 = ╱30╱0╱ // 0x428 @0x22
0x0406…0455 at0023 = ╱fe00000000╱ // 0x429 @0x23
0x0406…0455 at0028 = ╱eb╱ ; ╱ // 0x42e @0x28
0x0406…0455 at0029 = ╱46╱F╱ // 0x42f @0x29
0x0406…0455 at002a = ╱4c╱L╱ // 0x430 @0x2a
0x0406…0455 at002b = ╱41╱A╱ // 0x431 @0x2b
0x0406…0455 at002c = ╱47╱G╱ // 0x432 @0x2c
0x0406…0455 at002d = ╱dc╱ = ╱ // 0x433 @0x2d
0x0406…0455 at002e = ╱30╱0╱ // 0x434 @0x2e
0x0406…0455 at002f = ╱fe00000000╱ // 0x435 @0x2f
0x0406…0455 at0034 = ╱eb╱ ; ╱ // 0x43a @0x34
0x0406…0455 at0035 = ╱41╱A╱ // 0x43b @0x35
0x0406…0455 at0036 = ╱52╱R╱ // 0x43c @0x36
0x0406…0455 at0037 = ╱54╱T╱ // 0x43d @0x37
0x0406…0455 at0038 = ╱dc╱ = ╱ // 0x43e @0x38
0x0406…0455 at0039 = ╱47╱G╱ // 0x43f @0x39
0x0406…0455 at003a = ╱39╱9╱ // 0x440 @0x3a
0x0406…0455 at003b = ╱e3╱ - ╱ // 0x441 @0x3b
0x0406…0455 at003c = ╱36╱6╱ // 0x442 @0x3c
0x0406…0455 at003d = ╱fe0000c003╱ // 0x443 @0x3d
0x0406…0455 at0042 = ╱e4╱ * ╱ // 0x448 @0x42
0x0406…0455 at0043 = ╱ed╱ ( ╱ // 0x449 @0x43
0x0406…0455 at0044 = ╱47╱G╱ // 0x44a @0x44
0x0406…0455 at0045 = ╱39╱9╱ // 0x44b @0x45
0x0406…0455 at0046 = ╱de╱ > ╱ // 0x44c @0x46
0x0406…0455 at0047 = ╱35╱5╱ // 0x44d @0x47
0x0406…0455 at0048 = ╱fe0000a003╱ // 0x44e @0x48
0x0406…0455 at004d = ╱ee╱ ) ╱ // 0x453 @0x4d
0x0406…0455 at004e = EOL // 0x454 @0x4e
0x0406…0455 }
0x0455…046b 8bb8 0230 CALL "P641210:REGN"
0x0455…046b LineComalBcd {
0x0455…046b ptr = 0x8bb8 // 0x455 @0x0
0x0455…046b lno = 0x0230 // 0x457 @0x2
0x0455…046b at0004 = ╱ad00ff╱ CALL ╱ // 0x459 @0x4
0x0455…046b at0007 = ╱22╱"╱ // 0x45c @0x7
0x0455…046b at0008 = ╱50╱P╱ // 0x45d @0x8
0x0455…046b at0009 = ╱36╱6╱ // 0x45e @0x9
0x0455…046b at000a = ╱34╱4╱ // 0x45f @0xa
0x0455…046b at000b = ╱31╱1╱ // 0x460 @0xb
0x0455…046b at000c = ╱32╱2╱ // 0x461 @0xc
0x0455…046b at000d = ╱31╱1╱ // 0x462 @0xd
0x0455…046b at000e = ╱30╱0╱ // 0x463 @0xe
0x0455…046b at000f = ╱3a╱:╱ // 0x464 @0xf
0x0455…046b at0010 = ╱52╱R╱ // 0x465 @0x10
0x0455…046b at0011 = ╱45╱E╱ // 0x466 @0x11
0x0455…046b at0012 = ╱47╱G╱ // 0x467 @0x12
0x0455…046b at0013 = ╱4e╱N╱ // 0x468 @0x13
0x0455…046b at0014 = ╱22╱"╱ // 0x469 @0x14
0x0455…046b at0015 = EOL // 0x46a @0x15
0x0455…046b }
0x046b…0478 8bc5 0240 H2 $ = RES $
0x046b…0478 LineComalBcd {
0x046b…0478 ptr = 0x8bc5 // 0x46b @0x0
0x046b…0478 lno = 0x0240 // 0x46d @0x2
0x046b…0478 at0004 = ╱48╱H╱ // 0x46f @0x4
0x046b…0478 at0005 = ╱32╱2╱ // 0x470 @0x5
0x046b…0478 at0006 = ╱ef╱ $ ╱ // 0x471 @0x6
0x046b…0478 at0007 = ╱dc╱ = ╱ // 0x472 @0x7
0x046b…0478 at0008 = ╱52╱R╱ // 0x473 @0x8
0x046b…0478 at0009 = ╱45╱E╱ // 0x474 @0x9
0x046b…0478 at000a = ╱53╱S╱ // 0x475 @0xa
0x046b…0478 at000b = ╱ef╱ $ ╱ // 0x476 @0xb
0x046b…0478 at000c = EOL // 0x477 @0xc
0x046b…0478 }
0x0478…0488 8bd5 0250 IF G9 >< 6 THEN
0x0478…0488 LineComalBcd {
0x0478…0488 ptr = 0x8bd5 // 0x478 @0x0
0x0478…0488 lno = 0x0250 // 0x47a @0x2
0x0478…0488 at0004 = ╱9c╱ IF ╱ // 0x47c @0x4
0x0478…0488 at0005 = ╱47╱G╱ // 0x47d @0x5
0x0478…0488 at0006 = ╱39╱9╱ // 0x47e @0x6
0x0478…0488 at0007 = ╱e1╱ >< ╱ // 0x47f @0x7
0x0478…0488 at0008 = ╱36╱6╱ // 0x480 @0x8
0x0478…0488 at0009 = ╱fe0000c003╱ // 0x481 @0x9
0x0478…0488 at000e = ╱b6╱ THEN ╱ // 0x486 @0xe
0x0478…0488 at000f = EOL // 0x487 @0xf
0x0478…0488 }
0x0488…0494 8be1 0260 IF FLAG THEN STOP
0x0488…0494 LineComalBcd {
0x0488…0494 ptr = 0x8be1 // 0x488 @0x0
0x0488…0494 lno = 0x0260 // 0x48a @0x2
0x0488…0494 at0004 = ╱82╱ IF ╱ // 0x48c @0x4
0x0488…0494 at0005 = ╱46╱F╱ // 0x48d @0x5
0x0488…0494 at0006 = ╱4c╱L╱ // 0x48e @0x6
0x0488…0494 at0007 = ╱41╱A╱ // 0x48f @0x7
0x0488…0494 at0008 = ╱47╱G╱ // 0x490 @0x8
0x0488…0494 at0009 = ╱b6╱ THEN ╱ // 0x491 @0x9
0x0488…0494 at000a = ╱8d╱ STOP ╱ // 0x492 @0xa
0x0488…0494 at000b = EOL // 0x493 @0xb
0x0488…0494 }
0x0494…049a 8be7 0270 ENDIF
0x0494…049a LineComalBcd {
0x0494…049a ptr = 0x8be7 // 0x494 @0x0
0x0494…049a lno = 0x0270 // 0x496 @0x2
0x0494…049a at0004 = ╱9b╱ ENDIF ╱ // 0x498 @0x4
0x0494…049a at0005 = EOL // 0x499 @0x5
0x0494…049a }
0x049a…04a0 8bed 0280 ENDPROC
0x049a…04a0 LineComalBcd {
0x049a…04a0 ptr = 0x8bed // 0x49a @0x0
0x049a…04a0 lno = 0x0280 // 0x49c @0x2
0x049a…04a0 at0004 = ╱9f╱ ENDPROC ╱ // 0x49e @0x4
0x049a…04a0 at0005 = EOL // 0x49f @0x5
0x049a…04a0 }
0x04a0…04b5 8c02 0290 PROC INDTASTNING ( H3 )
0x04a0…04b5 LineComalBcd {
0x04a0…04b5 ptr = 0x8c02 // 0x4a0 @0x0
0x04a0…04b5 lno = 0x0290 // 0x4a2 @0x2
0x04a0…04b5 at0004 = ╱9e╱ PROC ╱ // 0x4a4 @0x4
0x04a0…04b5 at0005 = ╱49╱I╱ // 0x4a5 @0x5
0x04a0…04b5 at0006 = ╱4e╱N╱ // 0x4a6 @0x6
0x04a0…04b5 at0007 = ╱44╱D╱ // 0x4a7 @0x7
0x04a0…04b5 at0008 = ╱54╱T╱ // 0x4a8 @0x8
0x04a0…04b5 at0009 = ╱41╱A╱ // 0x4a9 @0x9
0x04a0…04b5 at000a = ╱53╱S╱ // 0x4aa @0xa
0x04a0…04b5 at000b = ╱54╱T╱ // 0x4ab @0xb
0x04a0…04b5 at000c = ╱4e╱N╱ // 0x4ac @0xc
0x04a0…04b5 at000d = ╱49╱I╱ // 0x4ad @0xd
0x04a0…04b5 at000e = ╱4e╱N╱ // 0x4ae @0xe
0x04a0…04b5 at000f = ╱47╱G╱ // 0x4af @0xf
0x04a0…04b5 at0010 = ╱ed╱ ( ╱ // 0x4b0 @0x10
0x04a0…04b5 at0011 = ╱48╱H╱ // 0x4b1 @0x11
0x04a0…04b5 at0012 = ╱33╱3╱ // 0x4b2 @0x12
0x04a0…04b5 at0013 = ╱ee╱ ) ╱ // 0x4b3 @0x13
0x04a0…04b5 at0014 = EOL // 0x4b4 @0x14
0x04a0…04b5 }
0x04b5…04bb 8c08 0300 REPEAT
0x04b5…04bb LineComalBcd {
0x04b5…04bb ptr = 0x8c08 // 0x4b5 @0x0
0x04b5…04bb lno = 0x0300 // 0x4b7 @0x2
0x04b5…04bb at0004 = ╱97╱ REPEAT ╱ // 0x4b9 @0x4
0x04b5…04bb at0005 = EOL // 0x4ba @0x5
0x04b5…04bb }
0x04bb…04c5 8c12 0310 CASE H3 OF
0x04bb…04c5 LineComalBcd {
0x04bb…04c5 ptr = 0x8c12 // 0x4bb @0x0
0x04bb…04c5 lno = 0x0310 // 0x4bd @0x2
0x04bb…04c5 at0004 = ╱a201╱ CASE ╱ // 0x4bf @0x4
0x04bb…04c5 at0006 = ╱48╱H╱ // 0x4c1 @0x6
0x04bb…04c5 at0007 = ╱33╱3╱ // 0x4c2 @0x7
0x04bb…04c5 at0008 = ╱ba╱ OF ╱ // 0x4c3 @0x8
0x04bb…04c5 at0009 = EOL // 0x4c4 @0x9
0x04bb…04c5 }
0x04c5…04cb 8c18 0320 STOP
0x04c5…04cb LineComalBcd {
0x04c5…04cb ptr = 0x8c18 // 0x4c5 @0x0
0x04c5…04cb lno = 0x0320 // 0x4c7 @0x2
0x04c5…04cb at0004 = ╱8d╱ STOP ╱ // 0x4c9 @0x4
0x04c5…04cb at0005 = EOL // 0x4ca @0x5
0x04c5…04cb }
0x04cb…04d8 8c25 0330 WHEN 1
0x04cb…04d8 LineComalBcd {
0x04cb…04d8 ptr = 0x8c25 // 0x4cb @0x0
0x04cb…04d8 lno = 0x0330 // 0x4cd @0x2
0x04cb…04d8 at0004 = ╱a301╱ WHEN ╱ // 0x4cf @0x4
0x04cb…04d8 at0006 = ╱31╱1╱ // 0x4d1 @0x6
0x04cb…04d8 at0007 = ╱fe00008001╱ // 0x4d2 @0x7
0x04cb…04d8 at000c = EOL // 0x4d7 @0xc
0x04cb…04d8 }
0x04d8…04de 8c2b 0340 REPEAT
0x04d8…04de LineComalBcd {
0x04d8…04de ptr = 0x8c2b // 0x4d8 @0x0
0x04d8…04de lno = 0x0340 // 0x4da @0x2
0x04d8…04de at0004 = ╱97╱ REPEAT ╱ // 0x4dc @0x4
0x04d8…04de at0005 = EOL // 0x4dd @0x5
0x04d8…04de }
0x04de…04e4 8c31 0350 REPEAT
0x04de…04e4 LineComalBcd {
0x04de…04e4 ptr = 0x8c31 // 0x4de @0x0
0x04de…04e4 lno = 0x0350 // 0x4e0 @0x2
0x04de…04e4 at0004 = ╱97╱ REPEAT ╱ // 0x4e2 @0x4
0x04de…04e4 at0005 = EOL // 0x4e3 @0x5
0x04de…04e4 }
0x04e4…04f8 8c45 0360 CURSOR 3 , 23
0x04e4…04f8 LineComalBcd {
0x04e4…04f8 ptr = 0x8c45 // 0x4e4 @0x0
0x04e4…04f8 lno = 0x0360 // 0x4e6 @0x2
0x04e4…04f8 at0004 = ╱a1╱ CURSOR ╱ // 0x4e8 @0x4
0x04e4…04f8 at0005 = ╱33╱3╱ // 0x4e9 @0x5
0x04e4…04f8 at0006 = ╱fe0000c002╱ // 0x4ea @0x6
0x04e4…04f8 at000b = ╱ec╱ , ╱ // 0x4ef @0xb
0x04e4…04f8 at000c = ╱32╱2╱ // 0x4f0 @0xc
0x04e4…04f8 at000d = ╱33╱3╱ // 0x4f1 @0xd
0x04e4…04f8 at000e = ╱fe0000b805╱ // 0x4f2 @0xe
0x04e4…04f8 at0013 = EOL // 0x4f7 @0x13
0x04e4…04f8 }
0x04f8…053f 8c8c 0370 PRINT "Bilag………………(0:F{rdig,…RETURN:Automatisk,…D:Ny…dato,…A:Annuller)"
0x04f8…053f LineComalBcd {
0x04f8…053f ptr = 0x8c8c // 0x4f8 @0x0
0x04f8…053f lno = 0x0370 // 0x4fa @0x2
0x04f8…053f at0004 = ╱92╱ PRINT ╱ // 0x4fc @0x4
0x04f8…053f at0005 = ╱22╱"╱ // 0x4fd @0x5
0x04f8…053f at0006 = ╱42╱B╱ // 0x4fe @0x6
0x04f8…053f at0007 = ╱69╱i╱ // 0x4ff @0x7
0x04f8…053f at0008 = ╱6c╱l╱ // 0x500 @0x8
0x04f8…053f at0009 = ╱61╱a╱ // 0x501 @0x9
0x04f8…053f at000a = ╱67╱g╱ // 0x502 @0xa
0x04f8…053f at000b = ╱20╱…╱ // 0x503 @0xb
0x04f8…053f at000c = ╱20╱…╱ // 0x504 @0xc
0x04f8…053f at000d = ╱20╱…╱ // 0x505 @0xd
0x04f8…053f at000e = ╱20╱…╱ // 0x506 @0xe
0x04f8…053f at000f = ╱20╱…╱ // 0x507 @0xf
0x04f8…053f at0010 = ╱20╱…╱ // 0x508 @0x10
0x04f8…053f at0011 = ╱28╱(╱ // 0x509 @0x11
0x04f8…053f at0012 = ╱30╱0╱ // 0x50a @0x12
0x04f8…053f at0013 = ╱3a╱:╱ // 0x50b @0x13
0x04f8…053f at0014 = ╱46╱F╱ // 0x50c @0x14
0x04f8…053f at0015 = ╱7b╱{╱ // 0x50d @0x15
0x04f8…053f at0016 = ╱72╱r╱ // 0x50e @0x16
0x04f8…053f at0017 = ╱64╱d╱ // 0x50f @0x17
0x04f8…053f at0018 = ╱69╱i╱ // 0x510 @0x18
0x04f8…053f at0019 = ╱67╱g╱ // 0x511 @0x19
0x04f8…053f at001a = ╱2c╱,╱ // 0x512 @0x1a
0x04f8…053f at001b = ╱20╱…╱ // 0x513 @0x1b
0x04f8…053f at001c = ╱52╱R╱ // 0x514 @0x1c
0x04f8…053f at001d = ╱45╱E╱ // 0x515 @0x1d
0x04f8…053f at001e = ╱54╱T╱ // 0x516 @0x1e
0x04f8…053f at001f = ╱55╱U╱ // 0x517 @0x1f
0x04f8…053f at0020 = ╱52╱R╱ // 0x518 @0x20
0x04f8…053f at0021 = ╱4e╱N╱ // 0x519 @0x21
0x04f8…053f at0022 = ╱3a╱:╱ // 0x51a @0x22
0x04f8…053f at0023 = ╱41╱A╱ // 0x51b @0x23
0x04f8…053f at0024 = ╱75╱u╱ // 0x51c @0x24
0x04f8…053f at0025 = ╱74╱t╱ // 0x51d @0x25
0x04f8…053f at0026 = ╱6f╱o╱ // 0x51e @0x26
0x04f8…053f at0027 = ╱6d╱m╱ // 0x51f @0x27
0x04f8…053f at0028 = ╱61╱a╱ // 0x520 @0x28
0x04f8…053f at0029 = ╱74╱t╱ // 0x521 @0x29
0x04f8…053f at002a = ╱69╱i╱ // 0x522 @0x2a
0x04f8…053f at002b = ╱73╱s╱ // 0x523 @0x2b
0x04f8…053f at002c = ╱6b╱k╱ // 0x524 @0x2c
0x04f8…053f at002d = ╱2c╱,╱ // 0x525 @0x2d
0x04f8…053f at002e = ╱20╱…╱ // 0x526 @0x2e
0x04f8…053f at002f = ╱44╱D╱ // 0x527 @0x2f
0x04f8…053f at0030 = ╱3a╱:╱ // 0x528 @0x30
0x04f8…053f at0031 = ╱4e╱N╱ // 0x529 @0x31
0x04f8…053f at0032 = ╱79╱y╱ // 0x52a @0x32
0x04f8…053f at0033 = ╱20╱…╱ // 0x52b @0x33
0x04f8…053f at0034 = ╱64╱d╱ // 0x52c @0x34
0x04f8…053f at0035 = ╱61╱a╱ // 0x52d @0x35
0x04f8…053f at0036 = ╱74╱t╱ // 0x52e @0x36
0x04f8…053f at0037 = ╱6f╱o╱ // 0x52f @0x37
0x04f8…053f at0038 = ╱2c╱,╱ // 0x530 @0x38
0x04f8…053f at0039 = ╱20╱…╱ // 0x531 @0x39
0x04f8…053f at003a = ╱41╱A╱ // 0x532 @0x3a
0x04f8…053f at003b = ╱3a╱:╱ // 0x533 @0x3b
0x04f8…053f at003c = ╱41╱A╱ // 0x534 @0x3c
0x04f8…053f at003d = ╱6e╱n╱ // 0x535 @0x3d
0x04f8…053f at003e = ╱6e╱n╱ // 0x536 @0x3e
0x04f8…053f at003f = ╱75╱u╱ // 0x537 @0x3f
0x04f8…053f at0040 = ╱6c╱l╱ // 0x538 @0x40
0x04f8…053f at0041 = ╱6c╱l╱ // 0x539 @0x41
0x04f8…053f at0042 = ╱65╱e╱ // 0x53a @0x42
0x04f8…053f at0043 = ╱72╱r╱ // 0x53b @0x43
0x04f8…053f at0044 = ╱29╱)╱ // 0x53c @0x44
0x04f8…053f at0045 = ╱22╱"╱ // 0x53d @0x45
0x04f8…053f at0046 = EOL // 0x53e @0x46
0x04f8…053f }
0x053f…0553 8ca0 0380 CURSOR 8 , 23
0x053f…0553 LineComalBcd {
0x053f…0553 ptr = 0x8ca0 // 0x53f @0x0
0x053f…0553 lno = 0x0380 // 0x541 @0x2
0x053f…0553 at0004 = ╱a1╱ CURSOR ╱ // 0x543 @0x4
0x053f…0553 at0005 = ╱38╱8╱ // 0x544 @0x5
0x053f…0553 at0006 = ╱fe00008004╱ // 0x545 @0x6
0x053f…0553 at000b = ╱ec╱ , ╱ // 0x54a @0xb
0x053f…0553 at000c = ╱32╱2╱ // 0x54b @0xc
0x053f…0553 at000d = ╱33╱3╱ // 0x54c @0xd
0x053f…0553 at000e = ╱fe0000b805╱ // 0x54d @0xe
0x053f…0553 at0013 = EOL // 0x552 @0x13
0x053f…0553 }
0x0553…055c 8ca9 0390 INPUT D5 $
0x0553…055c LineComalBcd {
0x0553…055c ptr = 0x8ca9 // 0x553 @0x0
0x0553…055c lno = 0x0390 // 0x555 @0x2
0x0553…055c at0004 = ╱91╱ INPUT ╱ // 0x557 @0x4
0x0553…055c at0005 = ╱44╱D╱ // 0x558 @0x5
0x0553…055c at0006 = ╱35╱5╱ // 0x559 @0x6
0x0553…055c at0007 = ╱ef╱ $ ╱ // 0x55a @0x7
0x0553…055c at0008 = EOL // 0x55b @0x8
0x0553…055c }
0x055c…056d 8cba 0400 EXEC NRTEST ( D5 $ )
0x055c…056d LineComalBcd {
0x055c…056d ptr = 0x8cba // 0x55c @0x0
0x055c…056d lno = 0x0400 // 0x55e @0x2
0x055c…056d at0004 = ╱9d╱ EXEC ╱ // 0x560 @0x4
0x055c…056d at0005 = ╱4e╱N╱ // 0x561 @0x5
0x055c…056d at0006 = ╱52╱R╱ // 0x562 @0x6
0x055c…056d at0007 = ╱54╱T╱ // 0x563 @0x7
0x055c…056d at0008 = ╱45╱E╱ // 0x564 @0x8
0x055c…056d at0009 = ╱53╱S╱ // 0x565 @0x9
0x055c…056d at000a = ╱54╱T╱ // 0x566 @0xa
0x055c…056d at000b = ╱ed╱ ( ╱ // 0x567 @0xb
0x055c…056d at000c = ╱44╱D╱ // 0x568 @0xc
0x055c…056d at000d = ╱35╱5╱ // 0x569 @0xd
0x055c…056d at000e = ╱ef╱ $ ╱ // 0x56a @0xe
0x055c…056d at000f = ╱ee╱ ) ╱ // 0x56b @0xf
0x055c…056d at0010 = EOL // 0x56c @0x10
0x055c…056d }
0x056d…0586 8cd3 0410 UNTIL P >= - 3 AND H4 = 0
0x056d…0586 LineComalBcd {
0x056d…0586 ptr = 0x8cd3 // 0x56d @0x0
0x056d…0586 lno = 0x0410 // 0x56f @0x2
0x056d…0586 at0004 = ╱98╱ UNTIL ╱ // 0x571 @0x4
0x056d…0586 at0005 = ╱50╱P╱ // 0x572 @0x5
0x056d…0586 at0006 = ╱e0╱ >= ╱ // 0x573 @0x6
0x056d…0586 at0007 = ╱e9╱ - ╱ // 0x574 @0x7
0x056d…0586 at0008 = ╱33╱3╱ // 0x575 @0x8
0x056d…0586 at0009 = ╱fe0000c002╱ // 0x576 @0x9
0x056d…0586 at000e = ╱da╱ AND ╱ // 0x57b @0xe
0x056d…0586 at000f = ╱48╱H╱ // 0x57c @0xf
0x056d…0586 at0010 = ╱34╱4╱ // 0x57d @0x10
0x056d…0586 at0011 = ╱dc╱ = ╱ // 0x57e @0x11
0x056d…0586 at0012 = ╱30╱0╱ // 0x57f @0x12
0x056d…0586 at0013 = ╱fe00000000╱ // 0x580 @0x13
0x056d…0586 at0018 = EOL // 0x585 @0x18
0x056d…0586 }
0x0586…05b4 8d01 0420 IF P >< 0 AND H5 = 19 AND P >< - 2 AND P >< - 3 THEN
0x0586…05b4 LineComalBcd {
0x0586…05b4 ptr = 0x8d01 // 0x586 @0x0
0x0586…05b4 lno = 0x0420 // 0x588 @0x2
0x0586…05b4 at0004 = ╱9c╱ IF ╱ // 0x58a @0x4
0x0586…05b4 at0005 = ╱50╱P╱ // 0x58b @0x5
0x0586…05b4 at0006 = ╱e1╱ >< ╱ // 0x58c @0x6
0x0586…05b4 at0007 = ╱30╱0╱ // 0x58d @0x7
0x0586…05b4 at0008 = ╱fe00000000╱ // 0x58e @0x8
0x0586…05b4 at000d = ╱da╱ AND ╱ // 0x593 @0xd
0x0586…05b4 at000e = ╱48╱H╱ // 0x594 @0xe
0x0586…05b4 at000f = ╱35╱5╱ // 0x595 @0xf
0x0586…05b4 at0010 = ╱dc╱ = ╱ // 0x596 @0x10
0x0586…05b4 at0011 = ╱31╱1╱ // 0x597 @0x11
0x0586…05b4 at0012 = ╱39╱9╱ // 0x598 @0x12
0x0586…05b4 at0013 = ╱fe00009805╱ // 0x599 @0x13
0x0586…05b4 at0018 = ╱da╱ AND ╱ // 0x59e @0x18
0x0586…05b4 at0019 = ╱50╱P╱ // 0x59f @0x19
0x0586…05b4 at001a = ╱e1╱ >< ╱ // 0x5a0 @0x1a
0x0586…05b4 at001b = ╱e9╱ - ╱ // 0x5a1 @0x1b
0x0586…05b4 at001c = ╱32╱2╱ // 0x5a2 @0x1c
0x0586…05b4 at001d = ╱fe00008002╱ // 0x5a3 @0x1d
0x0586…05b4 at0022 = ╱da╱ AND ╱ // 0x5a8 @0x22
0x0586…05b4 at0023 = ╱50╱P╱ // 0x5a9 @0x23
0x0586…05b4 at0024 = ╱e1╱ >< ╱ // 0x5aa @0x24
0x0586…05b4 at0025 = ╱e9╱ - ╱ // 0x5ab @0x25
0x0586…05b4 at0026 = ╱33╱3╱ // 0x5ac @0x26
0x0586…05b4 at0027 = ╱fe0000c002╱ // 0x5ad @0x27
0x0586…05b4 at002c = ╱b6╱ THEN ╱ // 0x5b2 @0x2c
0x0586…05b4 at002d = EOL // 0x5b3 @0x2d
0x0586…05b4 }
0x05b4…05ba 8d07 0430 CLEAR
0x05b4…05ba LineComalBcd {
0x05b4…05ba ptr = 0x8d07 // 0x5b4 @0x0
0x05b4…05ba lno = 0x0430 // 0x5b6 @0x2
0x05b4…05ba at0004 = ╱a0╱ CLEAR ╱ // 0x5b8 @0x4
0x05b4…05ba at0005 = EOL // 0x5b9 @0x5
0x05b4…05ba }
0x05ba…05c7 8d14 0440 EXEC UDHOVED
0x05ba…05c7 LineComalBcd {
0x05ba…05c7 ptr = 0x8d14 // 0x5ba @0x0
0x05ba…05c7 lno = 0x0440 // 0x5bc @0x2
0x05ba…05c7 at0004 = ╱9d╱ EXEC ╱ // 0x5be @0x4
0x05ba…05c7 at0005 = ╱55╱U╱ // 0x5bf @0x5
0x05ba…05c7 at0006 = ╱44╱D╱ // 0x5c0 @0x6
0x05ba…05c7 at0007 = ╱48╱H╱ // 0x5c1 @0x7
0x05ba…05c7 at0008 = ╱4f╱O╱ // 0x5c2 @0x8
0x05ba…05c7 at0009 = ╱56╱V╱ // 0x5c3 @0x9
0x05ba…05c7 at000a = ╱45╱E╱ // 0x5c4 @0xa
0x05ba…05c7 at000b = ╱44╱D╱ // 0x5c5 @0xb
0x05ba…05c7 at000c = EOL // 0x5c6 @0xc
0x05ba…05c7 }
0x05c7…05d5 8d22 0450 H5 = 1
0x05c7…05d5 LineComalBcd {
0x05c7…05d5 ptr = 0x8d22 // 0x5c7 @0x0
0x05c7…05d5 lno = 0x0450 // 0x5c9 @0x2
0x05c7…05d5 at0004 = ╱48╱H╱ // 0x5cb @0x4
0x05c7…05d5 at0005 = ╱35╱5╱ // 0x5cc @0x5
0x05c7…05d5 at0006 = ╱dc╱ = ╱ // 0x5cd @0x6
0x05c7…05d5 at0007 = ╱31╱1╱ // 0x5ce @0x7
0x05c7…05d5 at0008 = ╱fe00008001╱ // 0x5cf @0x8
0x05c7…05d5 at000d = EOL // 0x5d4 @0xd
0x05c7…05d5 }
0x05d5…05f4 8d41 0460 EXEC UDLINIE ( H6 , H7 , E4 $ , F4 $ , H8 )
0x05d5…05f4 LineComalBcd {
0x05d5…05f4 ptr = 0x8d41 // 0x5d5 @0x0
0x05d5…05f4 lno = 0x0460 // 0x5d7 @0x2
0x05d5…05f4 at0004 = ╱9d╱ EXEC ╱ // 0x5d9 @0x4
0x05d5…05f4 at0005 = ╱55╱U╱ // 0x5da @0x5
0x05d5…05f4 at0006 = ╱44╱D╱ // 0x5db @0x6
0x05d5…05f4 at0007 = ╱4c╱L╱ // 0x5dc @0x7
0x05d5…05f4 at0008 = ╱49╱I╱ // 0x5dd @0x8
0x05d5…05f4 at0009 = ╱4e╱N╱ // 0x5de @0x9
0x05d5…05f4 at000a = ╱49╱I╱ // 0x5df @0xa
0x05d5…05f4 at000b = ╱45╱E╱ // 0x5e0 @0xb
0x05d5…05f4 at000c = ╱ed╱ ( ╱ // 0x5e1 @0xc
0x05d5…05f4 at000d = ╱48╱H╱ // 0x5e2 @0xd
0x05d5…05f4 at000e = ╱36╱6╱ // 0x5e3 @0xe
0x05d5…05f4 at000f = ╱ec╱ , ╱ // 0x5e4 @0xf
0x05d5…05f4 at0010 = ╱48╱H╱ // 0x5e5 @0x10
0x05d5…05f4 at0011 = ╱37╱7╱ // 0x5e6 @0x11
0x05d5…05f4 at0012 = ╱ec╱ , ╱ // 0x5e7 @0x12
0x05d5…05f4 at0013 = ╱45╱E╱ // 0x5e8 @0x13
0x05d5…05f4 at0014 = ╱34╱4╱ // 0x5e9 @0x14
0x05d5…05f4 at0015 = ╱ef╱ $ ╱ // 0x5ea @0x15
0x05d5…05f4 at0016 = ╱ec╱ , ╱ // 0x5eb @0x16
0x05d5…05f4 at0017 = ╱46╱F╱ // 0x5ec @0x17
0x05d5…05f4 at0018 = ╱34╱4╱ // 0x5ed @0x18
0x05d5…05f4 at0019 = ╱ef╱ $ ╱ // 0x5ee @0x19
0x05d5…05f4 at001a = ╱ec╱ , ╱ // 0x5ef @0x1a
0x05d5…05f4 at001b = ╱48╱H╱ // 0x5f0 @0x1b
0x05d5…05f4 at001c = ╱38╱8╱ // 0x5f1 @0x1c
0x05d5…05f4 at001d = ╱ee╱ ) ╱ // 0x5f2 @0x1d
0x05d5…05f4 at001e = EOL // 0x5f3 @0x1e
0x05d5…05f4 }
0x05f4…0600 8d4d 0470 EXEC KYSGEM
0x05f4…0600 LineComalBcd {
0x05f4…0600 ptr = 0x8d4d // 0x5f4 @0x0
0x05f4…0600 lno = 0x0470 // 0x5f6 @0x2
0x05f4…0600 at0004 = ╱9d╱ EXEC ╱ // 0x5f8 @0x4
0x05f4…0600 at0005 = ╱4b╱K╱ // 0x5f9 @0x5
0x05f4…0600 at0006 = ╱59╱Y╱ // 0x5fa @0x6
0x05f4…0600 at0007 = ╱53╱S╱ // 0x5fb @0x7
0x05f4…0600 at0008 = ╱47╱G╱ // 0x5fc @0x8
0x05f4…0600 at0009 = ╱45╱E╱ // 0x5fd @0x9
0x05f4…0600 at000a = ╱4d╱M╱ // 0x5fe @0xa
0x05f4…0600 at000b = EOL // 0x5ff @0xb
0x05f4…0600 }
0x0600…0611 8d5e 0480 H5 = H5 + 1
0x0600…0611 LineComalBcd {
0x0600…0611 ptr = 0x8d5e // 0x600 @0x0
0x0600…0611 lno = 0x0480 // 0x602 @0x2
0x0600…0611 at0004 = ╱48╱H╱ // 0x604 @0x4
0x0600…0611 at0005 = ╱35╱5╱ // 0x605 @0x5
0x0600…0611 at0006 = ╱dc╱ = ╱ // 0x606 @0x6
0x0600…0611 at0007 = ╱48╱H╱ // 0x607 @0x7
0x0600…0611 at0008 = ╱35╱5╱ // 0x608 @0x8
0x0600…0611 at0009 = ╱e2╱ + ╱ // 0x609 @0x9
0x0600…0611 at000a = ╱31╱1╱ // 0x60a @0xa
0x0600…0611 at000b = ╱fe00008001╱ // 0x60b @0xb
0x0600…0611 at0010 = EOL // 0x610 @0x10
0x0600…0611 }
0x0611…0617 8d64 0490 ENDIF
0x0611…0617 LineComalBcd {
0x0611…0617 ptr = 0x8d64 // 0x611 @0x0
0x0611…0617 lno = 0x0490 // 0x613 @0x2
0x0611…0617 at0004 = ╱9b╱ ENDIF ╱ // 0x615 @0x4
0x0611…0617 at0005 = EOL // 0x616 @0x5
0x0611…0617 }
0x0617…0626 8d73 0500 H9 = - 1
0x0617…0626 LineComalBcd {
0x0617…0626 ptr = 0x8d73 // 0x617 @0x0
0x0617…0626 lno = 0x0500 // 0x619 @0x2
0x0617…0626 at0004 = ╱48╱H╱ // 0x61b @0x4
0x0617…0626 at0005 = ╱39╱9╱ // 0x61c @0x5
0x0617…0626 at0006 = ╱dc╱ = ╱ // 0x61d @0x6
0x0617…0626 at0007 = ╱e9╱ - ╱ // 0x61e @0x7
0x0617…0626 at0008 = ╱31╱1╱ // 0x61f @0x8
0x0617…0626 at0009 = ╱fe00008001╱ // 0x620 @0x9
0x0617…0626 at000e = EOL // 0x625 @0xe
0x0617…0626 }
0x0626…062c 8d79 0510 REPEAT
0x0626…062c LineComalBcd {
0x0626…062c ptr = 0x8d79 // 0x626 @0x0
0x0626…062c lno = 0x0510 // 0x628 @0x2
0x0626…062c at0004 = ╱97╱ REPEAT ╱ // 0x62a @0x4
0x0626…062c at0005 = EOL // 0x62b @0x5
0x0626…062c }
0x062c…063b 8d88 0520 H9 = - 1
0x062c…063b LineComalBcd {
0x062c…063b ptr = 0x8d88 // 0x62c @0x0
0x062c…063b lno = 0x0520 // 0x62e @0x2
0x062c…063b at0004 = ╱48╱H╱ // 0x630 @0x4
0x062c…063b at0005 = ╱39╱9╱ // 0x631 @0x5
0x062c…063b at0006 = ╱dc╱ = ╱ // 0x632 @0x6
0x062c…063b at0007 = ╱e9╱ - ╱ // 0x633 @0x7
0x062c…063b at0008 = ╱31╱1╱ // 0x634 @0x8
0x062c…063b at0009 = ╱fe00008001╱ // 0x635 @0x9
0x062c…063b at000e = EOL // 0x63a @0xe
0x062c…063b }
0x063b…0644 8d91 0530 CASE P OF
0x063b…0644 LineComalBcd {
0x063b…0644 ptr = 0x8d91 // 0x63b @0x0
0x063b…0644 lno = 0x0530 // 0x63d @0x2
0x063b…0644 at0004 = ╱a201╱ CASE ╱ // 0x63f @0x4
0x063b…0644 at0006 = ╱50╱P╱ // 0x641 @0x6
0x063b…0644 at0007 = ╱ba╱ OF ╱ // 0x642 @0x7
0x063b…0644 at0008 = EOL // 0x643 @0x8
0x063b…0644 }
0x0644…065a 8da7 0540 CURSOR 1 , H5 + 3
0x0644…065a LineComalBcd {
0x0644…065a ptr = 0x8da7 // 0x644 @0x0
0x0644…065a lno = 0x0540 // 0x646 @0x2
0x0644…065a at0004 = ╱a1╱ CURSOR ╱ // 0x648 @0x4
0x0644…065a at0005 = ╱31╱1╱ // 0x649 @0x5
0x0644…065a at0006 = ╱fe00008001╱ // 0x64a @0x6
0x0644…065a at000b = ╱ec╱ , ╱ // 0x64f @0xb
0x0644…065a at000c = ╱48╱H╱ // 0x650 @0xc
0x0644…065a at000d = ╱35╱5╱ // 0x651 @0xd
0x0644…065a at000e = ╱e2╱ + ╱ // 0x652 @0xe
0x0644…065a at000f = ╱33╱3╱ // 0x653 @0xf
0x0644…065a at0010 = ╱fe0000c002╱ // 0x654 @0x10
0x0644…065a at0015 = EOL // 0x659 @0x15
0x0644…065a }
0x065a…0669 8db6 0550 PRINT USING "###" : H5
0x065a…0669 LineComalBcd {
0x065a…0669 ptr = 0x8db6 // 0x65a @0x0
0x065a…0669 lno = 0x0550 // 0x65c @0x2
0x065a…0669 at0004 = ╱92╱ PRINT ╱ // 0x65e @0x4
0x065a…0669 at0005 = ╱b9╱ USING ╱ // 0x65f @0x5
0x065a…0669 at0006 = ╱22╱"╱ // 0x660 @0x6
0x065a…0669 at0007 = ╱23╱#╱ // 0x661 @0x7
0x065a…0669 at0008 = ╱23╱#╱ // 0x662 @0x8
0x065a…0669 at0009 = ╱23╱#╱ // 0x663 @0x9
0x065a…0669 at000a = ╱22╱"╱ // 0x664 @0xa
0x065a…0669 at000b = ╱f0╱ : ╱ // 0x665 @0xb
0x065a…0669 at000c = ╱48╱H╱ // 0x666 @0xc
0x065a…0669 at000d = ╱35╱5╱ // 0x667 @0xd
0x065a…0669 at000e = EOL // 0x668 @0xe
0x065a…0669 }
0x0669…0672 8dbf 0560 H7 = P
0x0669…0672 LineComalBcd {
0x0669…0672 ptr = 0x8dbf // 0x669 @0x0
0x0669…0672 lno = 0x0560 // 0x66b @0x2
0x0669…0672 at0004 = ╱48╱H╱ // 0x66d @0x4
0x0669…0672 at0005 = ╱37╱7╱ // 0x66e @0x5
0x0669…0672 at0006 = ╱dc╱ = ╱ // 0x66f @0x6
0x0669…0672 at0007 = ╱50╱P╱ // 0x670 @0x7
0x0669…0672 at0008 = EOL // 0x671 @0x8
0x0669…0672 }
0x0672…0680 8dcd 0570 P = - 4
0x0672…0680 LineComalBcd {
0x0672…0680 ptr = 0x8dcd // 0x672 @0x0
0x0672…0680 lno = 0x0570 // 0x674 @0x2
0x0672…0680 at0004 = ╱50╱P╱ // 0x676 @0x4
0x0672…0680 at0005 = ╱dc╱ = ╱ // 0x677 @0x5
0x0672…0680 at0006 = ╱e9╱ - ╱ // 0x678 @0x6
0x0672…0680 at0007 = ╱34╱4╱ // 0x679 @0x7
0x0672…0680 at0008 = ╱fe00008003╱ // 0x67a @0x8
0x0672…0680 at000d = EOL // 0x67f @0xd
0x0672…0680 }
0x0680…068a 8dd7 0580 I0 = H7
0x0680…068a LineComalBcd {
0x0680…068a ptr = 0x8dd7 // 0x680 @0x0
0x0680…068a lno = 0x0580 // 0x682 @0x2
0x0680…068a at0004 = ╱49╱I╱ // 0x684 @0x4
0x0680…068a at0005 = ╱30╱0╱ // 0x685 @0x5
0x0680…068a at0006 = ╱dc╱ = ╱ // 0x686 @0x6
0x0680…068a at0007 = ╱48╱H╱ // 0x687 @0x7
0x0680…068a at0008 = ╱37╱7╱ // 0x688 @0x8
0x0680…068a at0009 = EOL // 0x689 @0x9
0x0680…068a }
0x068a…06a0 8ded 0590 CURSOR 4 , H5 + 3
0x068a…06a0 LineComalBcd {
0x068a…06a0 ptr = 0x8ded // 0x68a @0x0
0x068a…06a0 lno = 0x0590 // 0x68c @0x2
0x068a…06a0 at0004 = ╱a1╱ CURSOR ╱ // 0x68e @0x4
0x068a…06a0 at0005 = ╱34╱4╱ // 0x68f @0x5
0x068a…06a0 at0006 = ╱fe00008003╱ // 0x690 @0x6
0x068a…06a0 at000b = ╱ec╱ , ╱ // 0x695 @0xb
0x068a…06a0 at000c = ╱48╱H╱ // 0x696 @0xc
0x068a…06a0 at000d = ╱35╱5╱ // 0x697 @0xd
0x068a…06a0 at000e = ╱e2╱ + ╱ // 0x698 @0xe
0x068a…06a0 at000f = ╱33╱3╱ // 0x699 @0xf
0x068a…06a0 at0010 = ╱fe0000c002╱ // 0x69a @0x10
0x068a…06a0 at0015 = EOL // 0x69f @0x15
0x068a…06a0 }
0x06a0…06b3 8e00 0600 PRINT USING "#######" : H7
0x06a0…06b3 LineComalBcd {
0x06a0…06b3 ptr = 0x8e00 // 0x6a0 @0x0
0x06a0…06b3 lno = 0x0600 // 0x6a2 @0x2
0x06a0…06b3 at0004 = ╱92╱ PRINT ╱ // 0x6a4 @0x4
0x06a0…06b3 at0005 = ╱b9╱ USING ╱ // 0x6a5 @0x5
0x06a0…06b3 at0006 = ╱22╱"╱ // 0x6a6 @0x6
0x06a0…06b3 at0007 = ╱23╱#╱ // 0x6a7 @0x7
0x06a0…06b3 at0008 = ╱23╱#╱ // 0x6a8 @0x8
0x06a0…06b3 at0009 = ╱23╱#╱ // 0x6a9 @0x9
0x06a0…06b3 at000a = ╱23╱#╱ // 0x6aa @0xa
0x06a0…06b3 at000b = ╱23╱#╱ // 0x6ab @0xb
0x06a0…06b3 at000c = ╱23╱#╱ // 0x6ac @0xc
0x06a0…06b3 at000d = ╱23╱#╱ // 0x6ad @0xd
0x06a0…06b3 at000e = ╱22╱"╱ // 0x6ae @0xe
0x06a0…06b3 at000f = ╱f0╱ : ╱ // 0x6af @0xf
0x06a0…06b3 at0010 = ╱48╱H╱ // 0x6b0 @0x10
0x06a0…06b3 at0011 = ╱37╱7╱ // 0x6b1 @0x11
0x06a0…06b3 at0012 = EOL // 0x6b2 @0x12
0x06a0…06b3 }
0x06b3…06c1 8e0e 0610 H3 = 2
0x06b3…06c1 LineComalBcd {
0x06b3…06c1 ptr = 0x8e0e // 0x6b3 @0x0
0x06b3…06c1 lno = 0x0610 // 0x6b5 @0x2
0x06b3…06c1 at0004 = ╱48╱H╱ // 0x6b7 @0x4
0x06b3…06c1 at0005 = ╱33╱3╱ // 0x6b8 @0x5
0x06b3…06c1 at0006 = ╱dc╱ = ╱ // 0x6b9 @0x6
0x06b3…06c1 at0007 = ╱32╱2╱ // 0x6ba @0x7
0x06b3…06c1 at0008 = ╱fe00008002╱ // 0x6bb @0x8
0x06b3…06c1 at000d = EOL // 0x6c0 @0xd
0x06b3…06c1 }
0x06c1…06ce 8e1b 0620 WHEN 0
0x06c1…06ce LineComalBcd {
0x06c1…06ce ptr = 0x8e1b // 0x6c1 @0x0
0x06c1…06ce lno = 0x0620 // 0x6c3 @0x2
0x06c1…06ce at0004 = ╱a301╱ WHEN ╱ // 0x6c5 @0x4
0x06c1…06ce at0006 = ╱30╱0╱ // 0x6c7 @0x6
0x06c1…06ce at0007 = ╱fe00000000╱ // 0x6c8 @0x7
0x06c1…06ce at000c = EOL // 0x6cd @0xc
0x06c1…06ce }
0x06ce…06dc 8e29 0630 H3 = 6
0x06ce…06dc LineComalBcd {
0x06ce…06dc ptr = 0x8e29 // 0x6ce @0x0
0x06ce…06dc lno = 0x0630 // 0x6d0 @0x2
0x06ce…06dc at0004 = ╱48╱H╱ // 0x6d2 @0x4
0x06ce…06dc at0005 = ╱33╱3╱ // 0x6d3 @0x5
0x06ce…06dc at0006 = ╱dc╱ = ╱ // 0x6d4 @0x6
0x06ce…06dc at0007 = ╱36╱6╱ // 0x6d5 @0x7
0x06ce…06dc at0008 = ╱fe0000c003╱ // 0x6d6 @0x8
0x06ce…06dc at000d = EOL // 0x6db @0xd
0x06ce…06dc }
0x06dc…06f6 8e43 0640 IF I1 = 2 THEN H3 = - 1
0x06dc…06f6 LineComalBcd {
0x06dc…06f6 ptr = 0x8e43 // 0x6dc @0x0
0x06dc…06f6 lno = 0x0640 // 0x6de @0x2
0x06dc…06f6 at0004 = ╱82╱ IF ╱ // 0x6e0 @0x4
0x06dc…06f6 at0005 = ╱49╱I╱ // 0x6e1 @0x5
0x06dc…06f6 at0006 = ╱31╱1╱ // 0x6e2 @0x6
0x06dc…06f6 at0007 = ╱dc╱ = ╱ // 0x6e3 @0x7
0x06dc…06f6 at0008 = ╱32╱2╱ // 0x6e4 @0x8
0x06dc…06f6 at0009 = ╱fe00008002╱ // 0x6e5 @0x9
0x06dc…06f6 at000e = ╱b6╱ THEN ╱ // 0x6ea @0xe
0x06dc…06f6 at000f = ╱48╱H╱ // 0x6eb @0xf
0x06dc…06f6 at0010 = ╱33╱3╱ // 0x6ec @0x10
0x06dc…06f6 at0011 = ╱dc╱ = ╱ // 0x6ed @0x11
0x06dc…06f6 at0012 = ╱e9╱ - ╱ // 0x6ee @0x12
0x06dc…06f6 at0013 = ╱31╱1╱ // 0x6ef @0x13
0x06dc…06f6 at0014 = ╱fe00008001╱ // 0x6f0 @0x14
0x06dc…06f6 at0019 = EOL // 0x6f5 @0x19
0x06dc…06f6 }
0x06f6…0704 8e51 0650 P = - 4
0x06f6…0704 LineComalBcd {
0x06f6…0704 ptr = 0x8e51 // 0x6f6 @0x0
0x06f6…0704 lno = 0x0650 // 0x6f8 @0x2
0x06f6…0704 at0004 = ╱50╱P╱ // 0x6fa @0x4
0x06f6…0704 at0005 = ╱dc╱ = ╱ // 0x6fb @0x5
0x06f6…0704 at0006 = ╱e9╱ - ╱ // 0x6fc @0x6
0x06f6…0704 at0007 = ╱34╱4╱ // 0x6fd @0x7
0x06f6…0704 at0008 = ╱fe00008003╱ // 0x6fe @0x8
0x06f6…0704 at000d = EOL // 0x703 @0xd
0x06f6…0704 }
0x0704…0712 8e5f 0660 WHEN - 1
0x0704…0712 LineComalBcd {
0x0704…0712 ptr = 0x8e5f // 0x704 @0x0
0x0704…0712 lno = 0x0660 // 0x706 @0x2
0x0704…0712 at0004 = ╱a301╱ WHEN ╱ // 0x708 @0x4
0x0704…0712 at0006 = ╱e9╱ - ╱ // 0x70a @0x6
0x0704…0712 at0007 = ╱31╱1╱ // 0x70b @0x7
0x0704…0712 at0008 = ╱fe00008001╱ // 0x70c @0x8
0x0704…0712 at000d = EOL // 0x711 @0xd
0x0704…0712 }
0x0712…0723 8e70 0670 I0 = I0 + 1
0x0712…0723 LineComalBcd {
0x0712…0723 ptr = 0x8e70 // 0x712 @0x0
0x0712…0723 lno = 0x0670 // 0x714 @0x2
0x0712…0723 at0004 = ╱49╱I╱ // 0x716 @0x4
0x0712…0723 at0005 = ╱30╱0╱ // 0x717 @0x5
0x0712…0723 at0006 = ╱dc╱ = ╱ // 0x718 @0x6
0x0712…0723 at0007 = ╱49╱I╱ // 0x719 @0x7
0x0712…0723 at0008 = ╱30╱0╱ // 0x71a @0x8
0x0712…0723 at0009 = ╱e2╱ + ╱ // 0x71b @0x9
0x0712…0723 at000a = ╱31╱1╱ // 0x71c @0xa
0x0712…0723 at000b = ╱fe00008001╱ // 0x71d @0xb
0x0712…0723 at0010 = EOL // 0x722 @0x10
0x0712…0723 }
0x0723…072c 8e79 0680 P = I0
0x0723…072c LineComalBcd {
0x0723…072c ptr = 0x8e79 // 0x723 @0x0
0x0723…072c lno = 0x0680 // 0x725 @0x2
0x0723…072c at0004 = ╱50╱P╱ // 0x727 @0x4
0x0723…072c at0005 = ╱dc╱ = ╱ // 0x728 @0x5
0x0723…072c at0006 = ╱49╱I╱ // 0x729 @0x6
0x0723…072c at0007 = ╱30╱0╱ // 0x72a @0x7
0x0723…072c at0008 = EOL // 0x72b @0x8
0x0723…072c }
0x072c…073a 8e87 0690 H9 = 0
0x072c…073a LineComalBcd {
0x072c…073a ptr = 0x8e87 // 0x72c @0x0
0x072c…073a lno = 0x0690 // 0x72e @0x2
0x072c…073a at0004 = ╱48╱H╱ // 0x730 @0x4
0x072c…073a at0005 = ╱39╱9╱ // 0x731 @0x5
0x072c…073a at0006 = ╱dc╱ = ╱ // 0x732 @0x6
0x072c…073a at0007 = ╱30╱0╱ // 0x733 @0x7
0x072c…073a at0008 = ╱fe00000000╱ // 0x734 @0x8
0x072c…073a at000d = EOL // 0x739 @0xd
0x072c…073a }
0x073a…0748 8e95 0700 WHEN - 2
0x073a…0748 LineComalBcd {
0x073a…0748 ptr = 0x8e95 // 0x73a @0x0
0x073a…0748 lno = 0x0700 // 0x73c @0x2
0x073a…0748 at0004 = ╱a301╱ WHEN ╱ // 0x73e @0x4
0x073a…0748 at0006 = ╱e9╱ - ╱ // 0x740 @0x6
0x073a…0748 at0007 = ╱32╱2╱ // 0x741 @0x7
0x073a…0748 at0008 = ╱fe00008002╱ // 0x742 @0x8
0x073a…0748 at000d = EOL // 0x747 @0xd
0x073a…0748 }
0x0748…0754 8ea1 0710 EXEC NYDATO
0x0748…0754 LineComalBcd {
0x0748…0754 ptr = 0x8ea1 // 0x748 @0x0
0x0748…0754 lno = 0x0710 // 0x74a @0x2
0x0748…0754 at0004 = ╱9d╱ EXEC ╱ // 0x74c @0x4
0x0748…0754 at0005 = ╱4e╱N╱ // 0x74d @0x5
0x0748…0754 at0006 = ╱59╱Y╱ // 0x74e @0x6
0x0748…0754 at0007 = ╱44╱D╱ // 0x74f @0x7
0x0748…0754 at0008 = ╱41╱A╱ // 0x750 @0x8
0x0748…0754 at0009 = ╱54╱T╱ // 0x751 @0x9
0x0748…0754 at000a = ╱4f╱O╱ // 0x752 @0xa
0x0748…0754 at000b = EOL // 0x753 @0xb
0x0748…0754 }
0x0754…0761 8eae 0720 EXEC UDHOVED
0x0754…0761 LineComalBcd {
0x0754…0761 ptr = 0x8eae // 0x754 @0x0
0x0754…0761 lno = 0x0720 // 0x756 @0x2
0x0754…0761 at0004 = ╱9d╱ EXEC ╱ // 0x758 @0x4
0x0754…0761 at0005 = ╱55╱U╱ // 0x759 @0x5
0x0754…0761 at0006 = ╱44╱D╱ // 0x75a @0x6
0x0754…0761 at0007 = ╱48╱H╱ // 0x75b @0x7
0x0754…0761 at0008 = ╱4f╱O╱ // 0x75c @0x8
0x0754…0761 at0009 = ╱56╱V╱ // 0x75d @0x9
0x0754…0761 at000a = ╱45╱E╱ // 0x75e @0xa
0x0754…0761 at000b = ╱44╱D╱ // 0x75f @0xb
0x0754…0761 at000c = EOL // 0x760 @0xc
0x0754…0761 }
0x0761…076f 8ebc 0730 WHEN - 3
0x0761…076f LineComalBcd {
0x0761…076f ptr = 0x8ebc // 0x761 @0x0
0x0761…076f lno = 0x0730 // 0x763 @0x2
0x0761…076f at0004 = ╱a301╱ WHEN ╱ // 0x765 @0x4
0x0761…076f at0006 = ╱e9╱ - ╱ // 0x767 @0x6
0x0761…076f at0007 = ╱33╱3╱ // 0x768 @0x7
0x0761…076f at0008 = ╱fe0000c002╱ // 0x769 @0x8
0x0761…076f at000d = EOL // 0x76e @0xd
0x0761…076f }
0x076f…077b 8ec8 0740 IF I2 > I3 THEN
0x076f…077b LineComalBcd {
0x076f…077b ptr = 0x8ec8 // 0x76f @0x0
0x076f…077b lno = 0x0740 // 0x771 @0x2
0x076f…077b at0004 = ╱9c╱ IF ╱ // 0x773 @0x4
0x076f…077b at0005 = ╱49╱I╱ // 0x774 @0x5
0x076f…077b at0006 = ╱32╱2╱ // 0x775 @0x6
0x076f…077b at0007 = ╱de╱ > ╱ // 0x776 @0x7
0x076f…077b at0008 = ╱49╱I╱ // 0x777 @0x8
0x076f…077b at0009 = ╱33╱3╱ // 0x778 @0x9
0x076f…077b at000a = ╱b6╱ THEN ╱ // 0x779 @0xa
0x076f…077b at000b = EOL // 0x77a @0xb
0x076f…077b }
0x077b…078c 8ed9 0750 I0 = I0 - 1
0x077b…078c LineComalBcd {
0x077b…078c ptr = 0x8ed9 // 0x77b @0x0
0x077b…078c lno = 0x0750 // 0x77d @0x2
0x077b…078c at0004 = ╱49╱I╱ // 0x77f @0x4
0x077b…078c at0005 = ╱30╱0╱ // 0x780 @0x5
0x077b…078c at0006 = ╱dc╱ = ╱ // 0x781 @0x6
0x077b…078c at0007 = ╱49╱I╱ // 0x782 @0x7
0x077b…078c at0008 = ╱30╱0╱ // 0x783 @0x8
0x077b…078c at0009 = ╱e3╱ - ╱ // 0x784 @0x9
0x077b…078c at000a = ╱31╱1╱ // 0x785 @0xa
0x077b…078c at000b = ╱fe00008001╱ // 0x786 @0xb
0x077b…078c at0010 = EOL // 0x78b @0x10
0x077b…078c }
0x078c…079d 8eea 0760 H5 = H5 - 1
0x078c…079d LineComalBcd {
0x078c…079d ptr = 0x8eea // 0x78c @0x0
0x078c…079d lno = 0x0760 // 0x78e @0x2
0x078c…079d at0004 = ╱48╱H╱ // 0x790 @0x4
0x078c…079d at0005 = ╱35╱5╱ // 0x791 @0x5
0x078c…079d at0006 = ╱dc╱ = ╱ // 0x792 @0x6
0x078c…079d at0007 = ╱48╱H╱ // 0x793 @0x7
0x078c…079d at0008 = ╱35╱5╱ // 0x794 @0x8
0x078c…079d at0009 = ╱e3╱ - ╱ // 0x795 @0x9
0x078c…079d at000a = ╱31╱1╱ // 0x796 @0xa
0x078c…079d at000b = ╱fe00008001╱ // 0x797 @0xb
0x078c…079d at0010 = EOL // 0x79c @0x10
0x078c…079d }
0x079d…07af 8efc 0770 EXEC KLET ( 5 )
0x079d…07af LineComalBcd {
0x079d…07af ptr = 0x8efc // 0x79d @0x0
0x079d…07af lno = 0x0770 // 0x79f @0x2
0x079d…07af at0004 = ╱9d╱ EXEC ╱ // 0x7a1 @0x4
0x079d…07af at0005 = ╱4b╱K╱ // 0x7a2 @0x5
0x079d…07af at0006 = ╱4c╱L╱ // 0x7a3 @0x6
0x079d…07af at0007 = ╱45╱E╱ // 0x7a4 @0x7
0x079d…07af at0008 = ╱54╱T╱ // 0x7a5 @0x8
0x079d…07af at0009 = ╱ed╱ ( ╱ // 0x7a6 @0x9
0x079d…07af at000a = ╱35╱5╱ // 0x7a7 @0xa
0x079d…07af at000b = ╱fe0000a003╱ // 0x7a8 @0xb
0x079d…07af at0010 = ╱ee╱ ) ╱ // 0x7ad @0x10
0x079d…07af at0011 = EOL // 0x7ae @0x11
0x079d…07af }
0x07af…07c7 8f14 0780 EXEC [ND ( 1 , F4 $ , H8 )
0x07af…07c7 LineComalBcd {
0x07af…07c7 ptr = 0x8f14 // 0x7af @0x0
0x07af…07c7 lno = 0x0780 // 0x7b1 @0x2
0x07af…07c7 at0004 = ╱9d╱ EXEC ╱ // 0x7b3 @0x4
0x07af…07c7 at0005 = ╱5b╱[╱ // 0x7b4 @0x5
0x07af…07c7 at0006 = ╱4e╱N╱ // 0x7b5 @0x6
0x07af…07c7 at0007 = ╱44╱D╱ // 0x7b6 @0x7
0x07af…07c7 at0008 = ╱ed╱ ( ╱ // 0x7b7 @0x8
0x07af…07c7 at0009 = ╱31╱1╱ // 0x7b8 @0x9
0x07af…07c7 at000a = ╱fe00008001╱ // 0x7b9 @0xa
0x07af…07c7 at000f = ╱ec╱ , ╱ // 0x7be @0xf
0x07af…07c7 at0010 = ╱46╱F╱ // 0x7bf @0x10
0x07af…07c7 at0011 = ╱34╱4╱ // 0x7c0 @0x11
0x07af…07c7 at0012 = ╱ef╱ $ ╱ // 0x7c1 @0x12
0x07af…07c7 at0013 = ╱ec╱ , ╱ // 0x7c2 @0x13
0x07af…07c7 at0014 = ╱48╱H╱ // 0x7c3 @0x14
0x07af…07c7 at0015 = ╱38╱8╱ // 0x7c4 @0x15
0x07af…07c7 at0016 = ╱ee╱ ) ╱ // 0x7c5 @0x16
0x07af…07c7 at0017 = EOL // 0x7c6 @0x17
0x07af…07c7 }
0x07c7…07de 8f2b 0790 I2 = I3 ; I4 = I3 - 1
0x07c7…07de LineComalBcd {
0x07c7…07de ptr = 0x8f2b // 0x7c7 @0x0
0x07c7…07de lno = 0x0790 // 0x7c9 @0x2
0x07c7…07de at0004 = ╱49╱I╱ // 0x7cb @0x4
0x07c7…07de at0005 = ╱32╱2╱ // 0x7cc @0x5
0x07c7…07de at0006 = ╱dc╱ = ╱ // 0x7cd @0x6
0x07c7…07de at0007 = ╱49╱I╱ // 0x7ce @0x7
0x07c7…07de at0008 = ╱33╱3╱ // 0x7cf @0x8
0x07c7…07de at0009 = ╱eb╱ ; ╱ // 0x7d0 @0x9
0x07c7…07de at000a = ╱49╱I╱ // 0x7d1 @0xa
0x07c7…07de at000b = ╱34╱4╱ // 0x7d2 @0xb
0x07c7…07de at000c = ╱dc╱ = ╱ // 0x7d3 @0xc
0x07c7…07de at000d = ╱49╱I╱ // 0x7d4 @0xd
0x07c7…07de at000e = ╱33╱3╱ // 0x7d5 @0xe
0x07c7…07de at000f = ╱e3╱ - ╱ // 0x7d6 @0xf
0x07c7…07de at0010 = ╱31╱1╱ // 0x7d7 @0x10
0x07c7…07de at0011 = ╱fe00008001╱ // 0x7d8 @0x11
0x07c7…07de at0016 = EOL // 0x7dd @0x16
0x07c7…07de }
0x07de…07e4 8f31 0800 ENDIF
0x07de…07e4 LineComalBcd {
0x07de…07e4 ptr = 0x8f31 // 0x7de @0x0
0x07de…07e4 lno = 0x0800 // 0x7e0 @0x2
0x07de…07e4 at0004 = ╱9b╱ ENDIF ╱ // 0x7e2 @0x4
0x07de…07e4 at0005 = EOL // 0x7e3 @0x5
0x07de…07e4 }
0x07e4…07ea 8f37 0810 ENDCASE
0x07e4…07ea LineComalBcd {
0x07e4…07ea ptr = 0x8f37 // 0x7e4 @0x0
0x07e4…07ea lno = 0x0810 // 0x7e6 @0x2
0x07e4…07ea at0004 = ╱a4╱ ENDCASE ╱ // 0x7e8 @0x4
0x07e4…07ea at0005 = EOL // 0x7e9 @0x5
0x07e4…07ea }
0x07ea…07fa 8f47 0820 UNTIL H9 = - 1
0x07ea…07fa LineComalBcd {
0x07ea…07fa ptr = 0x8f47 // 0x7ea @0x0
0x07ea…07fa lno = 0x0820 // 0x7ec @0x2
0x07ea…07fa at0004 = ╱98╱ UNTIL ╱ // 0x7ee @0x4
0x07ea…07fa at0005 = ╱48╱H╱ // 0x7ef @0x5
0x07ea…07fa at0006 = ╱39╱9╱ // 0x7f0 @0x6
0x07ea…07fa at0007 = ╱dc╱ = ╱ // 0x7f1 @0x7
0x07ea…07fa at0008 = ╱e9╱ - ╱ // 0x7f2 @0x8
0x07ea…07fa at0009 = ╱31╱1╱ // 0x7f3 @0x9
0x07ea…07fa at000a = ╱fe00008001╱ // 0x7f4 @0xa
0x07ea…07fa at000f = EOL // 0x7f9 @0xf
0x07ea…07fa }
0x07fa…0809 8f56 0830 UNTIL P = - 4
0x07fa…0809 LineComalBcd {
0x07fa…0809 ptr = 0x8f56 // 0x7fa @0x0
0x07fa…0809 lno = 0x0830 // 0x7fc @0x2
0x07fa…0809 at0004 = ╱98╱ UNTIL ╱ // 0x7fe @0x4
0x07fa…0809 at0005 = ╱50╱P╱ // 0x7ff @0x5
0x07fa…0809 at0006 = ╱dc╱ = ╱ // 0x800 @0x6
0x07fa…0809 at0007 = ╱e9╱ - ╱ // 0x801 @0x7
0x07fa…0809 at0008 = ╱34╱4╱ // 0x802 @0x8
0x07fa…0809 at0009 = ╱fe00008003╱ // 0x803 @0x9
0x07fa…0809 at000e = EOL // 0x808 @0xe
0x07fa…0809 }
0x0809…0816 8f63 0840 WHEN 2
0x0809…0816 LineComalBcd {
0x0809…0816 ptr = 0x8f63 // 0x809 @0x0
0x0809…0816 lno = 0x0840 // 0x80b @0x2
0x0809…0816 at0004 = ╱a301╱ WHEN ╱ // 0x80d @0x4
0x0809…0816 at0006 = ╱32╱2╱ // 0x80f @0x6
0x0809…0816 at0007 = ╱fe00008002╱ // 0x810 @0x7
0x0809…0816 at000c = EOL // 0x815 @0xc
0x0809…0816 }
0x0816…081c 8f69 0850 REPEAT
0x0816…081c LineComalBcd {
0x0816…081c ptr = 0x8f69 // 0x816 @0x0
0x0816…081c lno = 0x0850 // 0x818 @0x2
0x0816…081c at0004 = ╱97╱ REPEAT ╱ // 0x81a @0x4
0x0816…081c at0005 = EOL // 0x81b @0x5
0x0816…081c }
0x081c…0822 8f6f 0860 REPEAT
0x081c…0822 LineComalBcd {
0x081c…0822 ptr = 0x8f6f // 0x81c @0x0
0x081c…0822 lno = 0x0860 // 0x81e @0x2
0x081c…0822 at0004 = ╱97╱ REPEAT ╱ // 0x820 @0x4
0x081c…0822 at0005 = EOL // 0x821 @0x5
0x081c…0822 }
0x0822…0836 8f83 0870 CURSOR 3 , 23
0x0822…0836 LineComalBcd {
0x0822…0836 ptr = 0x8f83 // 0x822 @0x0
0x0822…0836 lno = 0x0870 // 0x824 @0x2
0x0822…0836 at0004 = ╱a1╱ CURSOR ╱ // 0x826 @0x4
0x0822…0836 at0005 = ╱33╱3╱ // 0x827 @0x5
0x0822…0836 at0006 = ╱fe0000c002╱ // 0x828 @0x6
0x0822…0836 at000b = ╱ec╱ , ╱ // 0x82d @0xb
0x0822…0836 at000c = ╱32╱2╱ // 0x82e @0xc
0x0822…0836 at000d = ╱33╱3╱ // 0x82f @0xd
0x0822…0836 at000e = ╱fe0000b805╱ // 0x830 @0xe
0x0822…0836 at0013 = EOL // 0x835 @0x13
0x0822…0836 }
0x0836…087b 8fc8 0880 PRINT "Tekst" + B7 $ ( 1 : 27 ) + "(max…25…tegn)" + B7 $ ( 1 : 32 )
0x0836…087b LineComalBcd {
0x0836…087b ptr = 0x8fc8 // 0x836 @0x0
0x0836…087b lno = 0x0880 // 0x838 @0x2
0x0836…087b at0004 = ╱92╱ PRINT ╱ // 0x83a @0x4
0x0836…087b at0005 = ╱22╱"╱ // 0x83b @0x5
0x0836…087b at0006 = ╱54╱T╱ // 0x83c @0x6
0x0836…087b at0007 = ╱65╱e╱ // 0x83d @0x7
0x0836…087b at0008 = ╱6b╱k╱ // 0x83e @0x8
0x0836…087b at0009 = ╱73╱s╱ // 0x83f @0x9
0x0836…087b at000a = ╱74╱t╱ // 0x840 @0xa
0x0836…087b at000b = ╱22╱"╱ // 0x841 @0xb
0x0836…087b at000c = ╱f1╱ + ╱ // 0x842 @0xc
0x0836…087b at000d = ╱42╱B╱ // 0x843 @0xd
0x0836…087b at000e = ╱37╱7╱ // 0x844 @0xe
0x0836…087b at000f = ╱ef╱ $ ╱ // 0x845 @0xf
0x0836…087b at0010 = ╱ed╱ ( ╱ // 0x846 @0x10
0x0836…087b at0011 = ╱31╱1╱ // 0x847 @0x11
0x0836…087b at0012 = ╱fe00008001╱ // 0x848 @0x12
0x0836…087b at0017 = ╱f0╱ : ╱ // 0x84d @0x17
0x0836…087b at0018 = ╱32╱2╱ // 0x84e @0x18
0x0836…087b at0019 = ╱37╱7╱ // 0x84f @0x19
0x0836…087b at001a = ╱fe0000d805╱ // 0x850 @0x1a
0x0836…087b at001f = ╱ee╱ ) ╱ // 0x855 @0x1f
0x0836…087b at0020 = ╱f1╱ + ╱ // 0x856 @0x20
0x0836…087b at0021 = ╱22╱"╱ // 0x857 @0x21
0x0836…087b at0022 = ╱28╱(╱ // 0x858 @0x22
0x0836…087b at0023 = ╱6d╱m╱ // 0x859 @0x23
0x0836…087b at0024 = ╱61╱a╱ // 0x85a @0x24
0x0836…087b at0025 = ╱78╱x╱ // 0x85b @0x25
0x0836…087b at0026 = ╱20╱…╱ // 0x85c @0x26
0x0836…087b at0027 = ╱32╱2╱ // 0x85d @0x27
0x0836…087b at0028 = ╱35╱5╱ // 0x85e @0x28
0x0836…087b at0029 = ╱20╱…╱ // 0x85f @0x29
0x0836…087b at002a = ╱74╱t╱ // 0x860 @0x2a
0x0836…087b at002b = ╱65╱e╱ // 0x861 @0x2b
0x0836…087b at002c = ╱67╱g╱ // 0x862 @0x2c
0x0836…087b at002d = ╱6e╱n╱ // 0x863 @0x2d
0x0836…087b at002e = ╱29╱)╱ // 0x864 @0x2e
0x0836…087b at002f = ╱22╱"╱ // 0x865 @0x2f
0x0836…087b at0030 = ╱f1╱ + ╱ // 0x866 @0x30
0x0836…087b at0031 = ╱42╱B╱ // 0x867 @0x31
0x0836…087b at0032 = ╱37╱7╱ // 0x868 @0x32
0x0836…087b at0033 = ╱ef╱ $ ╱ // 0x869 @0x33
0x0836…087b at0034 = ╱ed╱ ( ╱ // 0x86a @0x34
0x0836…087b at0035 = ╱31╱1╱ // 0x86b @0x35
0x0836…087b at0036 = ╱fe00008001╱ // 0x86c @0x36
0x0836…087b at003b = ╱f0╱ : ╱ // 0x871 @0x3b
0x0836…087b at003c = ╱33╱3╱ // 0x872 @0x3c
0x0836…087b at003d = ╱32╱2╱ // 0x873 @0x3d
0x0836…087b at003e = ╱fe00008006╱ // 0x874 @0x3e
0x0836…087b at0043 = ╱ee╱ ) ╱ // 0x879 @0x43
0x0836…087b at0044 = EOL // 0x87a @0x44
0x0836…087b }
0x087b…088f 8fdc 0890 CURSOR 9 , 23
0x087b…088f LineComalBcd {
0x087b…088f ptr = 0x8fdc // 0x87b @0x0
0x087b…088f lno = 0x0890 // 0x87d @0x2
0x087b…088f at0004 = ╱a1╱ CURSOR ╱ // 0x87f @0x4
0x087b…088f at0005 = ╱39╱9╱ // 0x880 @0x5
0x087b…088f at0006 = ╱fe00009004╱ // 0x881 @0x6
0x087b…088f at000b = ╱ec╱ , ╱ // 0x886 @0xb
0x087b…088f at000c = ╱32╱2╱ // 0x887 @0xc
0x087b…088f at000d = ╱33╱3╱ // 0x888 @0xd
0x087b…088f at000e = ╱fe0000b805╱ // 0x889 @0xe
0x087b…088f at0013 = EOL // 0x88e @0x13
0x087b…088f }
0x088f…0898 8fe5 0900 INPUT D4 $
0x088f…0898 LineComalBcd {
0x088f…0898 ptr = 0x8fe5 // 0x88f @0x0
0x088f…0898 lno = 0x0900 // 0x891 @0x2
0x088f…0898 at0004 = ╱91╱ INPUT ╱ // 0x893 @0x4
0x088f…0898 at0005 = ╱44╱D╱ // 0x894 @0x5
0x088f…0898 at0006 = ╱34╱4╱ // 0x895 @0x6
0x088f…0898 at0007 = ╱ef╱ $ ╱ // 0x896 @0x7
0x088f…0898 at0008 = EOL // 0x897 @0x8
0x088f…0898 }
0x0898…08a6 8ff3 0910 I5 = LEN ( D4 $ )
0x0898…08a6 LineComalBcd {
0x0898…08a6 ptr = 0x8ff3 // 0x898 @0x0
0x0898…08a6 lno = 0x0910 // 0x89a @0x2
0x0898…08a6 at0004 = ╱49╱I╱ // 0x89c @0x4
0x0898…08a6 at0005 = ╱35╱5╱ // 0x89d @0x5
0x0898…08a6 at0006 = ╱dc╱ = ╱ // 0x89e @0x6
0x0898…08a6 at0007 = ╱cc╱ LEN ╱ // 0x89f @0x7
0x0898…08a6 at0008 = ╱ed╱ ( ╱ // 0x8a0 @0x8
0x0898…08a6 at0009 = ╱44╱D╱ // 0x8a1 @0x9
0x0898…08a6 at000a = ╱34╱4╱ // 0x8a2 @0xa
0x0898…08a6 at000b = ╱ef╱ $ ╱ // 0x8a3 @0xb
0x0898…08a6 at000c = ╱ee╱ ) ╱ // 0x8a4 @0xc
0x0898…08a6 at000d = EOL // 0x8a5 @0xd
0x0898…08a6 }
0x08a6…08b6 9003 0920 UNTIL I5 =< 25
0x08a6…08b6 LineComalBcd {
0x08a6…08b6 ptr = 0x9003 // 0x8a6 @0x0
0x08a6…08b6 lno = 0x0920 // 0x8a8 @0x2
0x08a6…08b6 at0004 = ╱98╱ UNTIL ╱ // 0x8aa @0x4
0x08a6…08b6 at0005 = ╱49╱I╱ // 0x8ab @0x5
0x08a6…08b6 at0006 = ╱35╱5╱ // 0x8ac @0x6
0x08a6…08b6 at0007 = ╱df╱ =< ╱ // 0x8ad @0x7
0x08a6…08b6 at0008 = ╱32╱2╱ // 0x8ae @0x8
0x08a6…08b6 at0009 = ╱35╱5╱ // 0x8af @0x9
0x08a6…08b6 at000a = ╱fe0000c805╱ // 0x8b0 @0xa
0x08a6…08b6 at000f = EOL // 0x8b5 @0xf
0x08a6…08b6 }
0x08b6…08c6 9013 0930 IF I5 < 3 THEN
0x08b6…08c6 LineComalBcd {
0x08b6…08c6 ptr = 0x9013 // 0x8b6 @0x0
0x08b6…08c6 lno = 0x0930 // 0x8b8 @0x2
0x08b6…08c6 at0004 = ╱9c╱ IF ╱ // 0x8ba @0x4
0x08b6…08c6 at0005 = ╱49╱I╱ // 0x8bb @0x5
0x08b6…08c6 at0006 = ╱35╱5╱ // 0x8bc @0x6
0x08b6…08c6 at0007 = ╱dd╱ < ╱ // 0x8bd @0x7
0x08b6…08c6 at0008 = ╱33╱3╱ // 0x8be @0x8
0x08b6…08c6 at0009 = ╱fe0000c002╱ // 0x8bf @0x9
0x08b6…08c6 at000e = ╱b6╱ THEN ╱ // 0x8c4 @0xe
0x08b6…08c6 at000f = EOL // 0x8c5 @0xf
0x08b6…08c6 }
0x08c6…08d7 9024 0940 EXEC NRTEST ( D4 $ )
0x08c6…08d7 LineComalBcd {
0x08c6…08d7 ptr = 0x9024 // 0x8c6 @0x0
0x08c6…08d7 lno = 0x0940 // 0x8c8 @0x2
0x08c6…08d7 at0004 = ╱9d╱ EXEC ╱ // 0x8ca @0x4
0x08c6…08d7 at0005 = ╱4e╱N╱ // 0x8cb @0x5
0x08c6…08d7 at0006 = ╱52╱R╱ // 0x8cc @0x6
0x08c6…08d7 at0007 = ╱54╱T╱ // 0x8cd @0x7
0x08c6…08d7 at0008 = ╱45╱E╱ // 0x8ce @0x8
0x08c6…08d7 at0009 = ╱53╱S╱ // 0x8cf @0x9
0x08c6…08d7 at000a = ╱54╱T╱ // 0x8d0 @0xa
0x08c6…08d7 at000b = ╱ed╱ ( ╱ // 0x8d1 @0xb
0x08c6…08d7 at000c = ╱44╱D╱ // 0x8d2 @0xc
0x08c6…08d7 at000d = ╱34╱4╱ // 0x8d3 @0xd
0x08c6…08d7 at000e = ╱ef╱ $ ╱ // 0x8d4 @0xe
0x08c6…08d7 at000f = ╱ee╱ ) ╱ // 0x8d5 @0xf
0x08c6…08d7 at0010 = EOL // 0x8d6 @0x10
0x08c6…08d7 }
0x08d7…08dd 902a 0950 ELSE
0x08d7…08dd LineComalBcd {
0x08d7…08dd ptr = 0x902a // 0x8d7 @0x0
0x08d7…08dd lno = 0x0950 // 0x8d9 @0x2
0x08d7…08dd at0004 = ╱9a╱ ELSE ╱ // 0x8db @0x4
0x08d7…08dd at0005 = EOL // 0x8dc @0x5
0x08d7…08dd }
0x08dd…08f5 9042 0960 P = 20 ; H4 = 0
0x08dd…08f5 LineComalBcd {
0x08dd…08f5 ptr = 0x9042 // 0x8dd @0x0
0x08dd…08f5 lno = 0x0960 // 0x8df @0x2
0x08dd…08f5 at0004 = ╱50╱P╱ // 0x8e1 @0x4
0x08dd…08f5 at0005 = ╱dc╱ = ╱ // 0x8e2 @0x5
0x08dd…08f5 at0006 = ╱32╱2╱ // 0x8e3 @0x6
0x08dd…08f5 at0007 = ╱30╱0╱ // 0x8e4 @0x7
0x08dd…08f5 at0008 = ╱fe0000a005╱ // 0x8e5 @0x8
0x08dd…08f5 at000d = ╱eb╱ ; ╱ // 0x8ea @0xd
0x08dd…08f5 at000e = ╱48╱H╱ // 0x8eb @0xe
0x08dd…08f5 at000f = ╱34╱4╱ // 0x8ec @0xf
0x08dd…08f5 at0010 = ╱dc╱ = ╱ // 0x8ed @0x10
0x08dd…08f5 at0011 = ╱30╱0╱ // 0x8ee @0x11
0x08dd…08f5 at0012 = ╱fe00000000╱ // 0x8ef @0x12
0x08dd…08f5 at0017 = EOL // 0x8f4 @0x17
0x08dd…08f5 }
0x08f5…08fb 9048 0970 ENDIF
0x08f5…08fb LineComalBcd {
0x08f5…08fb ptr = 0x9048 // 0x8f5 @0x0
0x08f5…08fb lno = 0x0970 // 0x8f7 @0x2
0x08f5…08fb at0004 = ╱9b╱ ENDIF ╱ // 0x8f9 @0x4
0x08f5…08fb at0005 = EOL // 0x8fa @0x5
0x08f5…08fb }
0x08fb…0927 9074 0980 UNTIL P >= 0 AND P < 21 AND H4 = 0 AND P >< 10
0x08fb…0927 LineComalBcd {
0x08fb…0927 ptr = 0x9074 // 0x8fb @0x0
0x08fb…0927 lno = 0x0980 // 0x8fd @0x2
0x08fb…0927 at0004 = ╱98╱ UNTIL ╱ // 0x8ff @0x4
0x08fb…0927 at0005 = ╱50╱P╱ // 0x900 @0x5
0x08fb…0927 at0006 = ╱e0╱ >= ╱ // 0x901 @0x6
0x08fb…0927 at0007 = ╱30╱0╱ // 0x902 @0x7
0x08fb…0927 at0008 = ╱fe00000000╱ // 0x903 @0x8
0x08fb…0927 at000d = ╱da╱ AND ╱ // 0x908 @0xd
0x08fb…0927 at000e = ╱50╱P╱ // 0x909 @0xe
0x08fb…0927 at000f = ╱dd╱ < ╱ // 0x90a @0xf
0x08fb…0927 at0010 = ╱32╱2╱ // 0x90b @0x10
0x08fb…0927 at0011 = ╱31╱1╱ // 0x90c @0x11
0x08fb…0927 at0012 = ╱fe0000a805╱ // 0x90d @0x12
0x08fb…0927 at0017 = ╱da╱ AND ╱ // 0x912 @0x17
0x08fb…0927 at0018 = ╱48╱H╱ // 0x913 @0x18
0x08fb…0927 at0019 = ╱34╱4╱ // 0x914 @0x19
0x08fb…0927 at001a = ╱dc╱ = ╱ // 0x915 @0x1a
0x08fb…0927 at001b = ╱30╱0╱ // 0x916 @0x1b
0x08fb…0927 at001c = ╱fe00000000╱ // 0x917 @0x1c
0x08fb…0927 at0021 = ╱da╱ AND ╱ // 0x91c @0x21
0x08fb…0927 at0022 = ╱50╱P╱ // 0x91d @0x22
0x08fb…0927 at0023 = ╱e1╱ >< ╱ // 0x91e @0x23
0x08fb…0927 at0024 = ╱31╱1╱ // 0x91f @0x24
0x08fb…0927 at0025 = ╱30╱0╱ // 0x920 @0x25
0x08fb…0927 at0026 = ╱fe0000a004╱ // 0x921 @0x26
0x08fb…0927 at002b = EOL // 0x926 @0x2b
0x08fb…0927 }
0x0927…0936 9083 0990 IF P >< 0 THEN
0x0927…0936 LineComalBcd {
0x0927…0936 ptr = 0x9083 // 0x927 @0x0
0x0927…0936 lno = 0x0990 // 0x929 @0x2
0x0927…0936 at0004 = ╱9c╱ IF ╱ // 0x92b @0x4
0x0927…0936 at0005 = ╱50╱P╱ // 0x92c @0x5
0x0927…0936 at0006 = ╱e1╱ >< ╱ // 0x92d @0x6
0x0927…0936 at0007 = ╱30╱0╱ // 0x92e @0x7
0x0927…0936 at0008 = ╱fe00000000╱ // 0x92f @0x8
0x0927…0936 at000d = ╱b6╱ THEN ╱ // 0x934 @0xd
0x0927…0936 at000e = EOL // 0x935 @0xe
0x0927…0936 }
0x0936…0947 9094 1000 I6 = P MOD 10
0x0936…0947 LineComalBcd {
0x0936…0947 ptr = 0x9094 // 0x936 @0x0
0x0936…0947 lno = 0x1000 // 0x938 @0x2
0x0936…0947 at0004 = ╱49╱I╱ // 0x93a @0x4
0x0936…0947 at0005 = ╱36╱6╱ // 0x93b @0x5
0x0936…0947 at0006 = ╱dc╱ = ╱ // 0x93c @0x6
0x0936…0947 at0007 = ╱50╱P╱ // 0x93d @0x7
0x0936…0947 at0008 = ╱e8╱ MOD ╱ // 0x93e @0x8
0x0936…0947 at0009 = ╱31╱1╱ // 0x93f @0x9
0x0936…0947 at000a = ╱30╱0╱ // 0x940 @0xa
0x0936…0947 at000b = ╱fe0000a004╱ // 0x941 @0xb
0x0936…0947 at0010 = EOL // 0x946 @0x10
0x0936…0947 }
0x0947…0957 90a4 1010 IF I6 = 0 THEN
0x0947…0957 LineComalBcd {
0x0947…0957 ptr = 0x90a4 // 0x947 @0x0
0x0947…0957 lno = 0x1010 // 0x949 @0x2
0x0947…0957 at0004 = ╱9c╱ IF ╱ // 0x94b @0x4
0x0947…0957 at0005 = ╱49╱I╱ // 0x94c @0x5
0x0947…0957 at0006 = ╱36╱6╱ // 0x94d @0x6
0x0947…0957 at0007 = ╱dc╱ = ╱ // 0x94e @0x7
0x0947…0957 at0008 = ╱30╱0╱ // 0x94f @0x8
0x0947…0957 at0009 = ╱fe00000000╱ // 0x950 @0x9
0x0947…0957 at000e = ╱b6╱ THEN ╱ // 0x955 @0xe
0x0947…0957 at000f = EOL // 0x956 @0xf
0x0947…0957 }
0x0957…0965 90b2 1020 P = 10
0x0957…0965 LineComalBcd {
0x0957…0965 ptr = 0x90b2 // 0x957 @0x0
0x0957…0965 lno = 0x1020 // 0x959 @0x2
0x0957…0965 at0004 = ╱50╱P╱ // 0x95b @0x4
0x0957…0965 at0005 = ╱dc╱ = ╱ // 0x95c @0x5
0x0957…0965 at0006 = ╱31╱1╱ // 0x95d @0x6
0x0957…0965 at0007 = ╱30╱0╱ // 0x95e @0x7
0x0957…0965 at0008 = ╱fe0000a004╱ // 0x95f @0x8
0x0957…0965 at000d = EOL // 0x964 @0xd
0x0957…0965 }
0x0965…0971 90be 1030 E3 $ = D4 $
0x0965…0971 LineComalBcd {
0x0965…0971 ptr = 0x90be // 0x965 @0x0
0x0965…0971 lno = 0x1030 // 0x967 @0x2
0x0965…0971 at0004 = ╱45╱E╱ // 0x969 @0x4
0x0965…0971 at0005 = ╱33╱3╱ // 0x96a @0x5
0x0965…0971 at0006 = ╱ef╱ $ ╱ // 0x96b @0x6
0x0965…0971 at0007 = ╱dc╱ = ╱ // 0x96c @0x7
0x0965…0971 at0008 = ╱44╱D╱ // 0x96d @0x8
0x0965…0971 at0009 = ╱34╱4╱ // 0x96e @0x9
0x0965…0971 at000a = ╱ef╱ $ ╱ // 0x96f @0xa
0x0965…0971 at000b = EOL // 0x970 @0xb
0x0965…0971 }
0x0971…097d 90ca 1040 E4 $ = E3 $
0x0971…097d LineComalBcd {
0x0971…097d ptr = 0x90ca // 0x971 @0x0
0x0971…097d lno = 0x1040 // 0x973 @0x2
0x0971…097d at0004 = ╱45╱E╱ // 0x975 @0x4
0x0971…097d at0005 = ╱34╱4╱ // 0x976 @0x5
0x0971…097d at0006 = ╱ef╱ $ ╱ // 0x977 @0x6
0x0971…097d at0007 = ╱dc╱ = ╱ // 0x978 @0x7
0x0971…097d at0008 = ╱45╱E╱ // 0x979 @0x8
0x0971…097d at0009 = ╱33╱3╱ // 0x97a @0x9
0x0971…097d at000a = ╱ef╱ $ ╱ // 0x97b @0xa
0x0971…097d at000b = EOL // 0x97c @0xb
0x0971…097d }
0x097d…0983 90d0 1050 ELSE
0x097d…0983 LineComalBcd {
0x097d…0983 ptr = 0x90d0 // 0x97d @0x0
0x097d…0983 lno = 0x1050 // 0x97f @0x2
0x097d…0983 at0004 = ╱9a╱ ELSE ╱ // 0x981 @0x4
0x097d…0983 at0005 = EOL // 0x982 @0x5
0x097d…0983 }
0x0983…09a7 90f4 1060 E4 $ = E5 $ ( I6 ) + B7 $ ( 1 : 15 )
0x0983…09a7 LineComalBcd {
0x0983…09a7 ptr = 0x90f4 // 0x983 @0x0
0x0983…09a7 lno = 0x1060 // 0x985 @0x2
0x0983…09a7 at0004 = ╱45╱E╱ // 0x987 @0x4
0x0983…09a7 at0005 = ╱34╱4╱ // 0x988 @0x5
0x0983…09a7 at0006 = ╱ef╱ $ ╱ // 0x989 @0x6
0x0983…09a7 at0007 = ╱dc╱ = ╱ // 0x98a @0x7
0x0983…09a7 at0008 = ╱45╱E╱ // 0x98b @0x8
0x0983…09a7 at0009 = ╱35╱5╱ // 0x98c @0x9
0x0983…09a7 at000a = ╱ef╱ $ ╱ // 0x98d @0xa
0x0983…09a7 at000b = ╱ed╱ ( ╱ // 0x98e @0xb
0x0983…09a7 at000c = ╱49╱I╱ // 0x98f @0xc
0x0983…09a7 at000d = ╱36╱6╱ // 0x990 @0xd
0x0983…09a7 at000e = ╱ee╱ ) ╱ // 0x991 @0xe
0x0983…09a7 at000f = ╱f1╱ + ╱ // 0x992 @0xf
0x0983…09a7 at0010 = ╱42╱B╱ // 0x993 @0x10
0x0983…09a7 at0011 = ╱37╱7╱ // 0x994 @0x11
0x0983…09a7 at0012 = ╱ef╱ $ ╱ // 0x995 @0x12
0x0983…09a7 at0013 = ╱ed╱ ( ╱ // 0x996 @0x13
0x0983…09a7 at0014 = ╱31╱1╱ // 0x997 @0x14
0x0983…09a7 at0015 = ╱fe00008001╱ // 0x998 @0x15
0x0983…09a7 at001a = ╱f0╱ : ╱ // 0x99d @0x1a
0x0983…09a7 at001b = ╱31╱1╱ // 0x99e @0x1b
0x0983…09a7 at001c = ╱35╱5╱ // 0x99f @0x1c
0x0983…09a7 at001d = ╱fe0000f004╱ // 0x9a0 @0x1d
0x0983…09a7 at0022 = ╱ee╱ ) ╱ // 0x9a5 @0x22
0x0983…09a7 at0023 = EOL // 0x9a6 @0x23
0x0983…09a7 }
0x09a7…09b7 9104 1070 IF P > 10 THEN
0x09a7…09b7 LineComalBcd {
0x09a7…09b7 ptr = 0x9104 // 0x9a7 @0x0
0x09a7…09b7 lno = 0x1070 // 0x9a9 @0x2
0x09a7…09b7 at0004 = ╱9c╱ IF ╱ // 0x9ab @0x4
0x09a7…09b7 at0005 = ╱50╱P╱ // 0x9ac @0x5
0x09a7…09b7 at0006 = ╱de╱ > ╱ // 0x9ad @0x6
0x09a7…09b7 at0007 = ╱31╱1╱ // 0x9ae @0x7
0x09a7…09b7 at0008 = ╱30╱0╱ // 0x9af @0x8
0x09a7…09b7 at0009 = ╱fe0000a004╱ // 0x9b0 @0x9
0x09a7…09b7 at000e = ╱b6╱ THEN ╱ // 0x9b5 @0xe
0x09a7…09b7 at000f = EOL // 0x9b6 @0xf
0x09a7…09b7 }
0x09b7…09bd 910a 1080 REPEAT
0x09b7…09bd LineComalBcd {
0x09b7…09bd ptr = 0x910a // 0x9b7 @0x0
0x09b7…09bd lno = 0x1080 // 0x9b9 @0x2
0x09b7…09bd at0004 = ╱97╱ REPEAT ╱ // 0x9bb @0x4
0x09b7…09bd at0005 = EOL // 0x9bc @0x5
0x09b7…09bd }
0x09bd…09d1 911e 1090 CURSOR 3 , 23
0x09bd…09d1 LineComalBcd {
0x09bd…09d1 ptr = 0x911e // 0x9bd @0x0
0x09bd…09d1 lno = 0x1090 // 0x9bf @0x2
0x09bd…09d1 at0004 = ╱a1╱ CURSOR ╱ // 0x9c1 @0x4
0x09bd…09d1 at0005 = ╱33╱3╱ // 0x9c2 @0x5
0x09bd…09d1 at0006 = ╱fe0000c002╱ // 0x9c3 @0x6
0x09bd…09d1 at000b = ╱ec╱ , ╱ // 0x9c8 @0xb
0x09bd…09d1 at000c = ╱32╱2╱ // 0x9c9 @0xc
0x09bd…09d1 at000d = ╱33╱3╱ // 0x9ca @0xd
0x09bd…09d1 at000e = ╱fe0000b805╱ // 0x9cb @0xe
0x09bd…09d1 at0013 = EOL // 0x9d0 @0x13
0x09bd…09d1 }
0x09d1…0a16 9163 1100 PRINT "Tekst" ; B7 $ ( 1 : 16 ) ; "(max…14…tegn)" + B7 $ ( 1 : 43 )
0x09d1…0a16 LineComalBcd {
0x09d1…0a16 ptr = 0x9163 // 0x9d1 @0x0
0x09d1…0a16 lno = 0x1100 // 0x9d3 @0x2
0x09d1…0a16 at0004 = ╱92╱ PRINT ╱ // 0x9d5 @0x4
0x09d1…0a16 at0005 = ╱22╱"╱ // 0x9d6 @0x5
0x09d1…0a16 at0006 = ╱54╱T╱ // 0x9d7 @0x6
0x09d1…0a16 at0007 = ╱65╱e╱ // 0x9d8 @0x7
0x09d1…0a16 at0008 = ╱6b╱k╱ // 0x9d9 @0x8
0x09d1…0a16 at0009 = ╱73╱s╱ // 0x9da @0x9
0x09d1…0a16 at000a = ╱74╱t╱ // 0x9db @0xa
0x09d1…0a16 at000b = ╱22╱"╱ // 0x9dc @0xb
0x09d1…0a16 at000c = ╱eb╱ ; ╱ // 0x9dd @0xc
0x09d1…0a16 at000d = ╱42╱B╱ // 0x9de @0xd
0x09d1…0a16 at000e = ╱37╱7╱ // 0x9df @0xe
0x09d1…0a16 at000f = ╱ef╱ $ ╱ // 0x9e0 @0xf
0x09d1…0a16 at0010 = ╱ed╱ ( ╱ // 0x9e1 @0x10
0x09d1…0a16 at0011 = ╱31╱1╱ // 0x9e2 @0x11
0x09d1…0a16 at0012 = ╱fe00008001╱ // 0x9e3 @0x12
0x09d1…0a16 at0017 = ╱f0╱ : ╱ // 0x9e8 @0x17
0x09d1…0a16 at0018 = ╱31╱1╱ // 0x9e9 @0x18
0x09d1…0a16 at0019 = ╱36╱6╱ // 0x9ea @0x19
0x09d1…0a16 at001a = ╱fe00008005╱ // 0x9eb @0x1a
0x09d1…0a16 at001f = ╱ee╱ ) ╱ // 0x9f0 @0x1f
0x09d1…0a16 at0020 = ╱eb╱ ; ╱ // 0x9f1 @0x20
0x09d1…0a16 at0021 = ╱22╱"╱ // 0x9f2 @0x21
0x09d1…0a16 at0022 = ╱28╱(╱ // 0x9f3 @0x22
0x09d1…0a16 at0023 = ╱6d╱m╱ // 0x9f4 @0x23
0x09d1…0a16 at0024 = ╱61╱a╱ // 0x9f5 @0x24
0x09d1…0a16 at0025 = ╱78╱x╱ // 0x9f6 @0x25
0x09d1…0a16 at0026 = ╱20╱…╱ // 0x9f7 @0x26
0x09d1…0a16 at0027 = ╱31╱1╱ // 0x9f8 @0x27
0x09d1…0a16 at0028 = ╱34╱4╱ // 0x9f9 @0x28
0x09d1…0a16 at0029 = ╱20╱…╱ // 0x9fa @0x29
0x09d1…0a16 at002a = ╱74╱t╱ // 0x9fb @0x2a
0x09d1…0a16 at002b = ╱65╱e╱ // 0x9fc @0x2b
0x09d1…0a16 at002c = ╱67╱g╱ // 0x9fd @0x2c
0x09d1…0a16 at002d = ╱6e╱n╱ // 0x9fe @0x2d
0x09d1…0a16 at002e = ╱29╱)╱ // 0x9ff @0x2e
0x09d1…0a16 at002f = ╱22╱"╱ // 0xa00 @0x2f
0x09d1…0a16 at0030 = ╱f1╱ + ╱ // 0xa01 @0x30
0x09d1…0a16 at0031 = ╱42╱B╱ // 0xa02 @0x31
0x09d1…0a16 at0032 = ╱37╱7╱ // 0xa03 @0x32
0x09d1…0a16 at0033 = ╱ef╱ $ ╱ // 0xa04 @0x33
0x09d1…0a16 at0034 = ╱ed╱ ( ╱ // 0xa05 @0x34
0x09d1…0a16 at0035 = ╱31╱1╱ // 0xa06 @0x35
0x09d1…0a16 at0036 = ╱fe00008001╱ // 0xa07 @0x36
0x09d1…0a16 at003b = ╱f0╱ : ╱ // 0xa0c @0x3b
0x09d1…0a16 at003c = ╱34╱4╱ // 0xa0d @0x3c
0x09d1…0a16 at003d = ╱33╱3╱ // 0xa0e @0x3d
0x09d1…0a16 at003e = ╱fe0000ac06╱ // 0xa0f @0x3e
0x09d1…0a16 at0043 = ╱ee╱ ) ╱ // 0xa14 @0x43
0x09d1…0a16 at0044 = EOL // 0xa15 @0x44
0x09d1…0a16 }
0x0a16…0a2a 9177 1110 CURSOR 9 , 23
0x0a16…0a2a LineComalBcd {
0x0a16…0a2a ptr = 0x9177 // 0xa16 @0x0
0x0a16…0a2a lno = 0x1110 // 0xa18 @0x2
0x0a16…0a2a at0004 = ╱a1╱ CURSOR ╱ // 0xa1a @0x4
0x0a16…0a2a at0005 = ╱39╱9╱ // 0xa1b @0x5
0x0a16…0a2a at0006 = ╱fe00009004╱ // 0xa1c @0x6
0x0a16…0a2a at000b = ╱ec╱ , ╱ // 0xa21 @0xb
0x0a16…0a2a at000c = ╱32╱2╱ // 0xa22 @0xc
0x0a16…0a2a at000d = ╱33╱3╱ // 0xa23 @0xd
0x0a16…0a2a at000e = ╱fe0000b805╱ // 0xa24 @0xe
0x0a16…0a2a at0013 = EOL // 0xa29 @0x13
0x0a16…0a2a }
0x0a2a…0a33 9180 1120 INPUT D4 $
0x0a2a…0a33 LineComalBcd {
0x0a2a…0a33 ptr = 0x9180 // 0xa2a @0x0
0x0a2a…0a33 lno = 0x1120 // 0xa2c @0x2
0x0a2a…0a33 at0004 = ╱91╱ INPUT ╱ // 0xa2e @0x4
0x0a2a…0a33 at0005 = ╱44╱D╱ // 0xa2f @0x5
0x0a2a…0a33 at0006 = ╱34╱4╱ // 0xa30 @0x6
0x0a2a…0a33 at0007 = ╱ef╱ $ ╱ // 0xa31 @0x7
0x0a2a…0a33 at0008 = EOL // 0xa32 @0x8
0x0a2a…0a33 }
0x0a33…0a47 9194 1130 UNTIL LEN ( D4 $ ) < 15
0x0a33…0a47 LineComalBcd {
0x0a33…0a47 ptr = 0x9194 // 0xa33 @0x0
0x0a33…0a47 lno = 0x1130 // 0xa35 @0x2
0x0a33…0a47 at0004 = ╱98╱ UNTIL ╱ // 0xa37 @0x4
0x0a33…0a47 at0005 = ╱cc╱ LEN ╱ // 0xa38 @0x5
0x0a33…0a47 at0006 = ╱ed╱ ( ╱ // 0xa39 @0x6
0x0a33…0a47 at0007 = ╱44╱D╱ // 0xa3a @0x7
0x0a33…0a47 at0008 = ╱34╱4╱ // 0xa3b @0x8
0x0a33…0a47 at0009 = ╱ef╱ $ ╱ // 0xa3c @0x9
0x0a33…0a47 at000a = ╱ee╱ ) ╱ // 0xa3d @0xa
0x0a33…0a47 at000b = ╱dd╱ < ╱ // 0xa3e @0xb
0x0a33…0a47 at000c = ╱31╱1╱ // 0xa3f @0xc
0x0a33…0a47 at000d = ╱35╱5╱ // 0xa40 @0xd
0x0a33…0a47 at000e = ╱fe0000f004╱ // 0xa41 @0xe
0x0a33…0a47 at0013 = EOL // 0xa46 @0x13
0x0a33…0a47 }
0x0a47…0a64 91b1 1140 E4 $ ( 12 , 25 ) = D4 $
0x0a47…0a64 LineComalBcd {
0x0a47…0a64 ptr = 0x91b1 // 0xa47 @0x0
0x0a47…0a64 lno = 0x1140 // 0xa49 @0x2
0x0a47…0a64 at0004 = ╱45╱E╱ // 0xa4b @0x4
0x0a47…0a64 at0005 = ╱34╱4╱ // 0xa4c @0x5
0x0a47…0a64 at0006 = ╱ef╱ $ ╱ // 0xa4d @0x6
0x0a47…0a64 at0007 = ╱ed╱ ( ╱ // 0xa4e @0x7
0x0a47…0a64 at0008 = ╱31╱1╱ // 0xa4f @0x8
0x0a47…0a64 at0009 = ╱32╱2╱ // 0xa50 @0x9
0x0a47…0a64 at000a = ╱fe0000c004╱ // 0xa51 @0xa
0x0a47…0a64 at000f = ╱ec╱ , ╱ // 0xa56 @0xf
0x0a47…0a64 at0010 = ╱32╱2╱ // 0xa57 @0x10
0x0a47…0a64 at0011 = ╱35╱5╱ // 0xa58 @0x11
0x0a47…0a64 at0012 = ╱fe0000c805╱ // 0xa59 @0x12
0x0a47…0a64 at0017 = ╱ee╱ ) ╱ // 0xa5e @0x17
0x0a47…0a64 at0018 = ╱dc╱ = ╱ // 0xa5f @0x18
0x0a47…0a64 at0019 = ╱44╱D╱ // 0xa60 @0x19
0x0a47…0a64 at001a = ╱34╱4╱ // 0xa61 @0x1a
0x0a47…0a64 at001b = ╱ef╱ $ ╱ // 0xa62 @0x1b
0x0a47…0a64 at001c = EOL // 0xa63 @0x1c
0x0a47…0a64 }
0x0a64…0a70 91bd 1150 E3 $ = E4 $
0x0a64…0a70 LineComalBcd {
0x0a64…0a70 ptr = 0x91bd // 0xa64 @0x0
0x0a64…0a70 lno = 0x1150 // 0xa66 @0x2
0x0a64…0a70 at0004 = ╱45╱E╱ // 0xa68 @0x4
0x0a64…0a70 at0005 = ╱33╱3╱ // 0xa69 @0x5
0x0a64…0a70 at0006 = ╱ef╱ $ ╱ // 0xa6a @0x6
0x0a64…0a70 at0007 = ╱dc╱ = ╱ // 0xa6b @0x7
0x0a64…0a70 at0008 = ╱45╱E╱ // 0xa6c @0x8
0x0a64…0a70 at0009 = ╱34╱4╱ // 0xa6d @0x9
0x0a64…0a70 at000a = ╱ef╱ $ ╱ // 0xa6e @0xa
0x0a64…0a70 at000b = EOL // 0xa6f @0xb
0x0a64…0a70 }
0x0a70…0a76 91c3 1160 ENDIF
0x0a70…0a76 LineComalBcd {
0x0a70…0a76 ptr = 0x91c3 // 0xa70 @0x0
0x0a70…0a76 lno = 0x1160 // 0xa72 @0x2
0x0a70…0a76 at0004 = ╱9b╱ ENDIF ╱ // 0xa74 @0x4
0x0a70…0a76 at0005 = EOL // 0xa75 @0x5
0x0a70…0a76 }
0x0a76…0a7c 91c9 1170 ENDIF
0x0a76…0a7c LineComalBcd {
0x0a76…0a7c ptr = 0x91c9 // 0xa76 @0x0
0x0a76…0a7c lno = 0x1170 // 0xa78 @0x2
0x0a76…0a7c at0004 = ╱9b╱ ENDIF ╱ // 0xa7a @0x4
0x0a76…0a7c at0005 = EOL // 0xa7b @0x5
0x0a76…0a7c }
0x0a7c…0a93 91e0 1180 CURSOR 12 , H5 + 3
0x0a7c…0a93 LineComalBcd {
0x0a7c…0a93 ptr = 0x91e0 // 0xa7c @0x0
0x0a7c…0a93 lno = 0x1180 // 0xa7e @0x2
0x0a7c…0a93 at0004 = ╱a1╱ CURSOR ╱ // 0xa80 @0x4
0x0a7c…0a93 at0005 = ╱31╱1╱ // 0xa81 @0x5
0x0a7c…0a93 at0006 = ╱32╱2╱ // 0xa82 @0x6
0x0a7c…0a93 at0007 = ╱fe0000c004╱ // 0xa83 @0x7
0x0a7c…0a93 at000c = ╱ec╱ , ╱ // 0xa88 @0xc
0x0a7c…0a93 at000d = ╱48╱H╱ // 0xa89 @0xd
0x0a7c…0a93 at000e = ╱35╱5╱ // 0xa8a @0xe
0x0a7c…0a93 at000f = ╱e2╱ + ╱ // 0xa8b @0xf
0x0a7c…0a93 at0010 = ╱33╱3╱ // 0xa8c @0x10
0x0a7c…0a93 at0011 = ╱fe0000c002╱ // 0xa8d @0x11
0x0a7c…0a93 at0016 = EOL // 0xa92 @0x16
0x0a7c…0a93 }
0x0a93…0a9c 91e9 1190 PRINT E4 $
0x0a93…0a9c LineComalBcd {
0x0a93…0a9c ptr = 0x91e9 // 0xa93 @0x0
0x0a93…0a9c lno = 0x1190 // 0xa95 @0x2
0x0a93…0a9c at0004 = ╱92╱ PRINT ╱ // 0xa97 @0x4
0x0a93…0a9c at0005 = ╱45╱E╱ // 0xa98 @0x5
0x0a93…0a9c at0006 = ╱34╱4╱ // 0xa99 @0x6
0x0a93…0a9c at0007 = ╱ef╱ $ ╱ // 0xa9a @0x7
0x0a93…0a9c at0008 = EOL // 0xa9b @0x8
0x0a93…0a9c }
0x0a9c…0aa2 91ef 1200 ELSE
0x0a9c…0aa2 LineComalBcd {
0x0a9c…0aa2 ptr = 0x91ef // 0xa9c @0x0
0x0a9c…0aa2 lno = 0x1200 // 0xa9e @0x2
0x0a9c…0aa2 at0004 = ╱9a╱ ELSE ╱ // 0xaa0 @0x4
0x0a9c…0aa2 at0005 = EOL // 0xaa1 @0x5
0x0a9c…0aa2 }
0x0aa2…0abe 920b 1210 E4 $ = B7 $ ( 1 : 25 )
0x0aa2…0abe LineComalBcd {
0x0aa2…0abe ptr = 0x920b // 0xaa2 @0x0
0x0aa2…0abe lno = 0x1210 // 0xaa4 @0x2
0x0aa2…0abe at0004 = ╱45╱E╱ // 0xaa6 @0x4
0x0aa2…0abe at0005 = ╱34╱4╱ // 0xaa7 @0x5
0x0aa2…0abe at0006 = ╱ef╱ $ ╱ // 0xaa8 @0x6
0x0aa2…0abe at0007 = ╱dc╱ = ╱ // 0xaa9 @0x7
0x0aa2…0abe at0008 = ╱42╱B╱ // 0xaaa @0x8
0x0aa2…0abe at0009 = ╱37╱7╱ // 0xaab @0x9
0x0aa2…0abe at000a = ╱ef╱ $ ╱ // 0xaac @0xa
0x0aa2…0abe at000b = ╱ed╱ ( ╱ // 0xaad @0xb
0x0aa2…0abe at000c = ╱31╱1╱ // 0xaae @0xc
0x0aa2…0abe at000d = ╱fe00008001╱ // 0xaaf @0xd
0x0aa2…0abe at0012 = ╱f0╱ : ╱ // 0xab4 @0x12
0x0aa2…0abe at0013 = ╱32╱2╱ // 0xab5 @0x13
0x0aa2…0abe at0014 = ╱35╱5╱ // 0xab6 @0x14
0x0aa2…0abe at0015 = ╱fe0000c805╱ // 0xab7 @0x15
0x0aa2…0abe at001a = ╱ee╱ ) ╱ // 0xabc @0x1a
0x0aa2…0abe at001b = EOL // 0xabd @0x1b
0x0aa2…0abe }
0x0abe…0ac4 9211 1220 ENDIF
0x0abe…0ac4 LineComalBcd {
0x0abe…0ac4 ptr = 0x9211 // 0xabe @0x0
0x0abe…0ac4 lno = 0x1220 // 0xac0 @0x2
0x0abe…0ac4 at0004 = ╱9b╱ ENDIF ╱ // 0xac2 @0x4
0x0abe…0ac4 at0005 = EOL // 0xac3 @0x5
0x0abe…0ac4 }
0x0ac4…0ad2 921f 1230 H3 = 3
0x0ac4…0ad2 LineComalBcd {
0x0ac4…0ad2 ptr = 0x921f // 0xac4 @0x0
0x0ac4…0ad2 lno = 0x1230 // 0xac6 @0x2
0x0ac4…0ad2 at0004 = ╱48╱H╱ // 0xac8 @0x4
0x0ac4…0ad2 at0005 = ╱33╱3╱ // 0xac9 @0x5
0x0ac4…0ad2 at0006 = ╱dc╱ = ╱ // 0xaca @0x6
0x0ac4…0ad2 at0007 = ╱33╱3╱ // 0xacb @0x7
0x0ac4…0ad2 at0008 = ╱fe0000c002╱ // 0xacc @0x8
0x0ac4…0ad2 at000d = EOL // 0xad1 @0xd
0x0ac4…0ad2 }
0x0ad2…0adb 9228 1240 I7 = P
0x0ad2…0adb LineComalBcd {
0x0ad2…0adb ptr = 0x9228 // 0xad2 @0x0
0x0ad2…0adb lno = 0x1240 // 0xad4 @0x2
0x0ad2…0adb at0004 = ╱49╱I╱ // 0xad6 @0x4
0x0ad2…0adb at0005 = ╱37╱7╱ // 0xad7 @0x5
0x0ad2…0adb at0006 = ╱dc╱ = ╱ // 0xad8 @0x6
0x0ad2…0adb at0007 = ╱50╱P╱ // 0xad9 @0x7
0x0ad2…0adb at0008 = EOL // 0xada @0x8
0x0ad2…0adb }
0x0adb…0ae8 9235 1250 WHEN 3
0x0adb…0ae8 LineComalBcd {
0x0adb…0ae8 ptr = 0x9235 // 0xadb @0x0
0x0adb…0ae8 lno = 0x1250 // 0xadd @0x2
0x0adb…0ae8 at0004 = ╱a301╱ WHEN ╱ // 0xadf @0x4
0x0adb…0ae8 at0006 = ╱33╱3╱ // 0xae1 @0x6
0x0adb…0ae8 at0007 = ╱fe0000c002╱ // 0xae2 @0x7
0x0adb…0ae8 at000c = EOL // 0xae7 @0xc
0x0adb…0ae8 }
0x0ae8…0aee 923b 1260 REPEAT
0x0ae8…0aee LineComalBcd {
0x0ae8…0aee ptr = 0x923b // 0xae8 @0x0
0x0ae8…0aee lno = 0x1260 // 0xaea @0x2
0x0ae8…0aee at0004 = ╱97╱ REPEAT ╱ // 0xaec @0x4
0x0ae8…0aee at0005 = EOL // 0xaed @0x5
0x0ae8…0aee }
0x0aee…0af4 9241 1270 REPEAT
0x0aee…0af4 LineComalBcd {
0x0aee…0af4 ptr = 0x9241 // 0xaee @0x0
0x0aee…0af4 lno = 0x1270 // 0xaf0 @0x2
0x0aee…0af4 at0004 = ╱97╱ REPEAT ╱ // 0xaf2 @0x4
0x0aee…0af4 at0005 = EOL // 0xaf3 @0x5
0x0aee…0af4 }
0x0af4…0b08 9255 1280 CURSOR 3 , 23
0x0af4…0b08 LineComalBcd {
0x0af4…0b08 ptr = 0x9255 // 0xaf4 @0x0
0x0af4…0b08 lno = 0x1280 // 0xaf6 @0x2
0x0af4…0b08 at0004 = ╱a1╱ CURSOR ╱ // 0xaf8 @0x4
0x0af4…0b08 at0005 = ╱33╱3╱ // 0xaf9 @0x5
0x0af4…0b08 at0006 = ╱fe0000c002╱ // 0xafa @0x6
0x0af4…0b08 at000b = ╱ec╱ , ╱ // 0xaff @0xb
0x0af4…0b08 at000c = ╱32╱2╱ // 0xb00 @0xc
0x0af4…0b08 at000d = ╱33╱3╱ // 0xb01 @0xd
0x0af4…0b08 at000e = ╱fe0000b805╱ // 0xb02 @0xe
0x0af4…0b08 at0013 = EOL // 0xb07 @0x13
0x0af4…0b08 }
0x0b08…0b3b 9288 1290 PRINT "Konto………………………(5…cifre)" ; B7 $ ( 1 : 53 )
0x0b08…0b3b LineComalBcd {
0x0b08…0b3b ptr = 0x9288 // 0xb08 @0x0
0x0b08…0b3b lno = 0x1290 // 0xb0a @0x2
0x0b08…0b3b at0004 = ╱92╱ PRINT ╱ // 0xb0c @0x4
0x0b08…0b3b at0005 = ╱22╱"╱ // 0xb0d @0x5
0x0b08…0b3b at0006 = ╱4b╱K╱ // 0xb0e @0x6
0x0b08…0b3b at0007 = ╱6f╱o╱ // 0xb0f @0x7
0x0b08…0b3b at0008 = ╱6e╱n╱ // 0xb10 @0x8
0x0b08…0b3b at0009 = ╱74╱t╱ // 0xb11 @0x9
0x0b08…0b3b at000a = ╱6f╱o╱ // 0xb12 @0xa
0x0b08…0b3b at000b = ╱20╱…╱ // 0xb13 @0xb
0x0b08…0b3b at000c = ╱20╱…╱ // 0xb14 @0xc
0x0b08…0b3b at000d = ╱20╱…╱ // 0xb15 @0xd
0x0b08…0b3b at000e = ╱20╱…╱ // 0xb16 @0xe
0x0b08…0b3b at000f = ╱20╱…╱ // 0xb17 @0xf
0x0b08…0b3b at0010 = ╱20╱…╱ // 0xb18 @0x10
0x0b08…0b3b at0011 = ╱20╱…╱ // 0xb19 @0x11
0x0b08…0b3b at0012 = ╱20╱…╱ // 0xb1a @0x12
0x0b08…0b3b at0013 = ╱20╱…╱ // 0xb1b @0x13
0x0b08…0b3b at0014 = ╱28╱(╱ // 0xb1c @0x14
0x0b08…0b3b at0015 = ╱35╱5╱ // 0xb1d @0x15
0x0b08…0b3b at0016 = ╱20╱…╱ // 0xb1e @0x16
0x0b08…0b3b at0017 = ╱63╱c╱ // 0xb1f @0x17
0x0b08…0b3b at0018 = ╱69╱i╱ // 0xb20 @0x18
0x0b08…0b3b at0019 = ╱66╱f╱ // 0xb21 @0x19
0x0b08…0b3b at001a = ╱72╱r╱ // 0xb22 @0x1a
0x0b08…0b3b at001b = ╱65╱e╱ // 0xb23 @0x1b
0x0b08…0b3b at001c = ╱29╱)╱ // 0xb24 @0x1c
0x0b08…0b3b at001d = ╱22╱"╱ // 0xb25 @0x1d
0x0b08…0b3b at001e = ╱eb╱ ; ╱ // 0xb26 @0x1e
0x0b08…0b3b at001f = ╱42╱B╱ // 0xb27 @0x1f
0x0b08…0b3b at0020 = ╱37╱7╱ // 0xb28 @0x20
0x0b08…0b3b at0021 = ╱ef╱ $ ╱ // 0xb29 @0x21
0x0b08…0b3b at0022 = ╱ed╱ ( ╱ // 0xb2a @0x22
0x0b08…0b3b at0023 = ╱31╱1╱ // 0xb2b @0x23
0x0b08…0b3b at0024 = ╱fe00008001╱ // 0xb2c @0x24
0x0b08…0b3b at0029 = ╱f0╱ : ╱ // 0xb31 @0x29
0x0b08…0b3b at002a = ╱35╱5╱ // 0xb32 @0x2a
0x0b08…0b3b at002b = ╱33╱3╱ // 0xb33 @0x2b
0x0b08…0b3b at002c = ╱fe0000d406╱ // 0xb34 @0x2c
0x0b08…0b3b at0031 = ╱ee╱ ) ╱ // 0xb39 @0x31
0x0b08…0b3b at0032 = EOL // 0xb3a @0x32
0x0b08…0b3b }
0x0b3b…0b4f 929c 1300 CURSOR 9 , 23
0x0b3b…0b4f LineComalBcd {
0x0b3b…0b4f ptr = 0x929c // 0xb3b @0x0
0x0b3b…0b4f lno = 0x1300 // 0xb3d @0x2
0x0b3b…0b4f at0004 = ╱a1╱ CURSOR ╱ // 0xb3f @0x4
0x0b3b…0b4f at0005 = ╱39╱9╱ // 0xb40 @0x5
0x0b3b…0b4f at0006 = ╱fe00009004╱ // 0xb41 @0x6
0x0b3b…0b4f at000b = ╱ec╱ , ╱ // 0xb46 @0xb
0x0b3b…0b4f at000c = ╱32╱2╱ // 0xb47 @0xc
0x0b3b…0b4f at000d = ╱33╱3╱ // 0xb48 @0xd
0x0b3b…0b4f at000e = ╱fe0000b805╱ // 0xb49 @0xe
0x0b3b…0b4f at0013 = EOL // 0xb4e @0x13
0x0b3b…0b4f }
0x0b4f…0b58 92a5 1310 INPUT D5 $
0x0b4f…0b58 LineComalBcd {
0x0b4f…0b58 ptr = 0x92a5 // 0xb4f @0x0
0x0b4f…0b58 lno = 0x1310 // 0xb51 @0x2
0x0b4f…0b58 at0004 = ╱91╱ INPUT ╱ // 0xb53 @0x4
0x0b4f…0b58 at0005 = ╱44╱D╱ // 0xb54 @0x5
0x0b4f…0b58 at0006 = ╱35╱5╱ // 0xb55 @0x6
0x0b4f…0b58 at0007 = ╱ef╱ $ ╱ // 0xb56 @0x7
0x0b4f…0b58 at0008 = EOL // 0xb57 @0x8
0x0b4f…0b58 }
0x0b58…0b69 92b6 1320 EXEC NRTEST ( D5 $ )
0x0b58…0b69 LineComalBcd {
0x0b58…0b69 ptr = 0x92b6 // 0xb58 @0x0
0x0b58…0b69 lno = 0x1320 // 0xb5a @0x2
0x0b58…0b69 at0004 = ╱9d╱ EXEC ╱ // 0xb5c @0x4
0x0b58…0b69 at0005 = ╱4e╱N╱ // 0xb5d @0x5
0x0b58…0b69 at0006 = ╱52╱R╱ // 0xb5e @0x6
0x0b58…0b69 at0007 = ╱54╱T╱ // 0xb5f @0x7
0x0b58…0b69 at0008 = ╱45╱E╱ // 0xb60 @0x8
0x0b58…0b69 at0009 = ╱53╱S╱ // 0xb61 @0x9
0x0b58…0b69 at000a = ╱54╱T╱ // 0xb62 @0xa
0x0b58…0b69 at000b = ╱ed╱ ( ╱ // 0xb63 @0xb
0x0b58…0b69 at000c = ╱44╱D╱ // 0xb64 @0xc
0x0b58…0b69 at000d = ╱35╱5╱ // 0xb65 @0xd
0x0b58…0b69 at000e = ╱ef╱ $ ╱ // 0xb66 @0xe
0x0b58…0b69 at000f = ╱ee╱ ) ╱ // 0xb67 @0xf
0x0b58…0b69 at0010 = EOL // 0xb68 @0x10
0x0b58…0b69 }
0x0b69…0b8e 92db 1330 UNTIL H4 = 0 AND ( I8 >< 0 AND I5 = 5 )
0x0b69…0b8e LineComalBcd {
0x0b69…0b8e ptr = 0x92db // 0xb69 @0x0
0x0b69…0b8e lno = 0x1330 // 0xb6b @0x2
0x0b69…0b8e at0004 = ╱98╱ UNTIL ╱ // 0xb6d @0x4
0x0b69…0b8e at0005 = ╱48╱H╱ // 0xb6e @0x5
0x0b69…0b8e at0006 = ╱34╱4╱ // 0xb6f @0x6
0x0b69…0b8e at0007 = ╱dc╱ = ╱ // 0xb70 @0x7
0x0b69…0b8e at0008 = ╱30╱0╱ // 0xb71 @0x8
0x0b69…0b8e at0009 = ╱fe00000000╱ // 0xb72 @0x9
0x0b69…0b8e at000e = ╱da╱ AND ╱ // 0xb77 @0xe
0x0b69…0b8e at000f = ╱ed╱ ( ╱ // 0xb78 @0xf
0x0b69…0b8e at0010 = ╱49╱I╱ // 0xb79 @0x10
0x0b69…0b8e at0011 = ╱38╱8╱ // 0xb7a @0x11
0x0b69…0b8e at0012 = ╱e1╱ >< ╱ // 0xb7b @0x12
0x0b69…0b8e at0013 = ╱30╱0╱ // 0xb7c @0x13
0x0b69…0b8e at0014 = ╱fe00000000╱ // 0xb7d @0x14
0x0b69…0b8e at0019 = ╱da╱ AND ╱ // 0xb82 @0x19
0x0b69…0b8e at001a = ╱49╱I╱ // 0xb83 @0x1a
0x0b69…0b8e at001b = ╱35╱5╱ // 0xb84 @0x1b
0x0b69…0b8e at001c = ╱dc╱ = ╱ // 0xb85 @0x1c
0x0b69…0b8e at001d = ╱35╱5╱ // 0xb86 @0x1d
0x0b69…0b8e at001e = ╱fe0000a003╱ // 0xb87 @0x1e
0x0b69…0b8e at0023 = ╱ee╱ ) ╱ // 0xb8c @0x23
0x0b69…0b8e at0024 = EOL // 0xb8d @0x24
0x0b69…0b8e }
0x0b8e…0b97 92e4 1340 H6 = P
0x0b8e…0b97 LineComalBcd {
0x0b8e…0b97 ptr = 0x92e4 // 0xb8e @0x0
0x0b8e…0b97 lno = 0x1340 // 0xb90 @0x2
0x0b8e…0b97 at0004 = ╱48╱H╱ // 0xb92 @0x4
0x0b8e…0b97 at0005 = ╱36╱6╱ // 0xb93 @0x5
0x0b8e…0b97 at0006 = ╱dc╱ = ╱ // 0xb94 @0x6
0x0b8e…0b97 at0007 = ╱50╱P╱ // 0xb95 @0x7
0x0b8e…0b97 at0008 = EOL // 0xb96 @0x8
0x0b8e…0b97 }
0x0b97…0baa 92f7 1350 EXEC KTNAVN ( I8 , H6 )
0x0b97…0baa LineComalBcd {
0x0b97…0baa ptr = 0x92f7 // 0xb97 @0x0
0x0b97…0baa lno = 0x1350 // 0xb99 @0x2
0x0b97…0baa at0004 = ╱9d╱ EXEC ╱ // 0xb9b @0x4
0x0b97…0baa at0005 = ╱4b╱K╱ // 0xb9c @0x5
0x0b97…0baa at0006 = ╱54╱T╱ // 0xb9d @0x6
0x0b97…0baa at0007 = ╱4e╱N╱ // 0xb9e @0x7
0x0b97…0baa at0008 = ╱41╱A╱ // 0xb9f @0x8
0x0b97…0baa at0009 = ╱56╱V╱ // 0xba0 @0x9
0x0b97…0baa at000a = ╱4e╱N╱ // 0xba1 @0xa
0x0b97…0baa at000b = ╱ed╱ ( ╱ // 0xba2 @0xb
0x0b97…0baa at000c = ╱49╱I╱ // 0xba3 @0xc
0x0b97…0baa at000d = ╱38╱8╱ // 0xba4 @0xd
0x0b97…0baa at000e = ╱ec╱ , ╱ // 0xba5 @0xe
0x0b97…0baa at000f = ╱48╱H╱ // 0xba6 @0xf
0x0b97…0baa at0010 = ╱36╱6╱ // 0xba7 @0x10
0x0b97…0baa at0011 = ╱ee╱ ) ╱ // 0xba8 @0x11
0x0b97…0baa at0012 = EOL // 0xba9 @0x12
0x0b97…0baa }
0x0baa…0bbf 930c 1360 CURSOR 15 , 23
0x0baa…0bbf LineComalBcd {
0x0baa…0bbf ptr = 0x930c // 0xbaa @0x0
0x0baa…0bbf lno = 0x1360 // 0xbac @0x2
0x0baa…0bbf at0004 = ╱a1╱ CURSOR ╱ // 0xbae @0x4
0x0baa…0bbf at0005 = ╱31╱1╱ // 0xbaf @0x5
0x0baa…0bbf at0006 = ╱35╱5╱ // 0xbb0 @0x6
0x0baa…0bbf at0007 = ╱fe0000f004╱ // 0xbb1 @0x7
0x0baa…0bbf at000c = ╱ec╱ , ╱ // 0xbb6 @0xc
0x0baa…0bbf at000d = ╱32╱2╱ // 0xbb7 @0xd
0x0baa…0bbf at000e = ╱33╱3╱ // 0xbb8 @0xe
0x0baa…0bbf at000f = ╱fe0000b805╱ // 0xbb9 @0xf
0x0baa…0bbf at0014 = EOL // 0xbbe @0x14
0x0baa…0bbf }
0x0bbf…0c04 9351 1370 PRINT "(Navn:" ; B7 $ ( 1 : 27 ) ; "Er…konto…rigtig……………(J/N)…………………"
0x0bbf…0c04 LineComalBcd {
0x0bbf…0c04 ptr = 0x9351 // 0xbbf @0x0
0x0bbf…0c04 lno = 0x1370 // 0xbc1 @0x2
0x0bbf…0c04 at0004 = ╱92╱ PRINT ╱ // 0xbc3 @0x4
0x0bbf…0c04 at0005 = ╱22╱"╱ // 0xbc4 @0x5
0x0bbf…0c04 at0006 = ╱28╱(╱ // 0xbc5 @0x6
0x0bbf…0c04 at0007 = ╱4e╱N╱ // 0xbc6 @0x7
0x0bbf…0c04 at0008 = ╱61╱a╱ // 0xbc7 @0x8
0x0bbf…0c04 at0009 = ╱76╱v╱ // 0xbc8 @0x9
0x0bbf…0c04 at000a = ╱6e╱n╱ // 0xbc9 @0xa
0x0bbf…0c04 at000b = ╱3a╱:╱ // 0xbca @0xb
0x0bbf…0c04 at000c = ╱22╱"╱ // 0xbcb @0xc
0x0bbf…0c04 at000d = ╱eb╱ ; ╱ // 0xbcc @0xd
0x0bbf…0c04 at000e = ╱42╱B╱ // 0xbcd @0xe
0x0bbf…0c04 at000f = ╱37╱7╱ // 0xbce @0xf
0x0bbf…0c04 at0010 = ╱ef╱ $ ╱ // 0xbcf @0x10
0x0bbf…0c04 at0011 = ╱ed╱ ( ╱ // 0xbd0 @0x11
0x0bbf…0c04 at0012 = ╱31╱1╱ // 0xbd1 @0x12
0x0bbf…0c04 at0013 = ╱fe00008001╱ // 0xbd2 @0x13
0x0bbf…0c04 at0018 = ╱f0╱ : ╱ // 0xbd7 @0x18
0x0bbf…0c04 at0019 = ╱32╱2╱ // 0xbd8 @0x19
0x0bbf…0c04 at001a = ╱37╱7╱ // 0xbd9 @0x1a
0x0bbf…0c04 at001b = ╱fe0000d805╱ // 0xbda @0x1b
0x0bbf…0c04 at0020 = ╱ee╱ ) ╱ // 0xbdf @0x20
0x0bbf…0c04 at0021 = ╱eb╱ ; ╱ // 0xbe0 @0x21
0x0bbf…0c04 at0022 = ╱22╱"╱ // 0xbe1 @0x22
0x0bbf…0c04 at0023 = ╱45╱E╱ // 0xbe2 @0x23
0x0bbf…0c04 at0024 = ╱72╱r╱ // 0xbe3 @0x24
0x0bbf…0c04 at0025 = ╱20╱…╱ // 0xbe4 @0x25
0x0bbf…0c04 at0026 = ╱6b╱k╱ // 0xbe5 @0x26
0x0bbf…0c04 at0027 = ╱6f╱o╱ // 0xbe6 @0x27
0x0bbf…0c04 at0028 = ╱6e╱n╱ // 0xbe7 @0x28
0x0bbf…0c04 at0029 = ╱74╱t╱ // 0xbe8 @0x29
0x0bbf…0c04 at002a = ╱6f╱o╱ // 0xbe9 @0x2a
0x0bbf…0c04 at002b = ╱20╱…╱ // 0xbea @0x2b
0x0bbf…0c04 at002c = ╱72╱r╱ // 0xbeb @0x2c
0x0bbf…0c04 at002d = ╱69╱i╱ // 0xbec @0x2d
0x0bbf…0c04 at002e = ╱67╱g╱ // 0xbed @0x2e
0x0bbf…0c04 at002f = ╱74╱t╱ // 0xbee @0x2f
0x0bbf…0c04 at0030 = ╱69╱i╱ // 0xbef @0x30
0x0bbf…0c04 at0031 = ╱67╱g╱ // 0xbf0 @0x31
0x0bbf…0c04 at0032 = ╱20╱…╱ // 0xbf1 @0x32
0x0bbf…0c04 at0033 = ╱20╱…╱ // 0xbf2 @0x33
0x0bbf…0c04 at0034 = ╱20╱…╱ // 0xbf3 @0x34
0x0bbf…0c04 at0035 = ╱20╱…╱ // 0xbf4 @0x35
0x0bbf…0c04 at0036 = ╱20╱…╱ // 0xbf5 @0x36
0x0bbf…0c04 at0037 = ╱28╱(╱ // 0xbf6 @0x37
0x0bbf…0c04 at0038 = ╱4a╱J╱ // 0xbf7 @0x38
0x0bbf…0c04 at0039 = ╱2f╱/╱ // 0xbf8 @0x39
0x0bbf…0c04 at003a = ╱4e╱N╱ // 0xbf9 @0x3a
0x0bbf…0c04 at003b = ╱29╱)╱ // 0xbfa @0x3b
0x0bbf…0c04 at003c = ╱20╱…╱ // 0xbfb @0x3c
0x0bbf…0c04 at003d = ╱20╱…╱ // 0xbfc @0x3d
0x0bbf…0c04 at003e = ╱20╱…╱ // 0xbfd @0x3e
0x0bbf…0c04 at003f = ╱20╱…╱ // 0xbfe @0x3f
0x0bbf…0c04 at0040 = ╱20╱…╱ // 0xbff @0x40
0x0bbf…0c04 at0041 = ╱20╱…╱ // 0xc00 @0x41
0x0bbf…0c04 at0042 = ╱20╱…╱ // 0xc01 @0x42
0x0bbf…0c04 at0043 = ╱22╱"╱ // 0xc02 @0x43
0x0bbf…0c04 at0044 = EOL // 0xc03 @0x44
0x0bbf…0c04 }
0x0c04…0c19 9366 1380 CURSOR 22 , 23
0x0c04…0c19 LineComalBcd {
0x0c04…0c19 ptr = 0x9366 // 0xc04 @0x0
0x0c04…0c19 lno = 0x1380 // 0xc06 @0x2
0x0c04…0c19 at0004 = ╱a1╱ CURSOR ╱ // 0xc08 @0x4
0x0c04…0c19 at0005 = ╱32╱2╱ // 0xc09 @0x5
0x0c04…0c19 at0006 = ╱32╱2╱ // 0xc0a @0x6
0x0c04…0c19 at0007 = ╱fe0000b005╱ // 0xc0b @0x7
0x0c04…0c19 at000c = ╱ec╱ , ╱ // 0xc10 @0xc
0x0c04…0c19 at000d = ╱32╱2╱ // 0xc11 @0xd
0x0c04…0c19 at000e = ╱33╱3╱ // 0xc12 @0xe
0x0c04…0c19 at000f = ╱fe0000b805╱ // 0xc13 @0xf
0x0c04…0c19 at0014 = EOL // 0xc18 @0x14
0x0c04…0c19 }
0x0c19…0c22 936f 1390 PRINT B4 $
0x0c19…0c22 LineComalBcd {
0x0c19…0c22 ptr = 0x936f // 0xc19 @0x0
0x0c19…0c22 lno = 0x1390 // 0xc1b @0x2
0x0c19…0c22 at0004 = ╱92╱ PRINT ╱ // 0xc1d @0x4
0x0c19…0c22 at0005 = ╱42╱B╱ // 0xc1e @0x5
0x0c19…0c22 at0006 = ╱34╱4╱ // 0xc1f @0x6
0x0c19…0c22 at0007 = ╱ef╱ $ ╱ // 0xc20 @0x7
0x0c19…0c22 at0008 = EOL // 0xc21 @0x8
0x0c19…0c22 }
0x0c22…0c28 9375 1400 REPEAT
0x0c22…0c28 LineComalBcd {
0x0c22…0c28 ptr = 0x9375 // 0xc22 @0x0
0x0c22…0c28 lno = 0x1400 // 0xc24 @0x2
0x0c22…0c28 at0004 = ╱97╱ REPEAT ╱ // 0xc26 @0x4
0x0c22…0c28 at0005 = EOL // 0xc27 @0x5
0x0c22…0c28 }
0x0c28…0c3d 938a 1410 CURSOR 64 , 23
0x0c28…0c3d LineComalBcd {
0x0c28…0c3d ptr = 0x938a // 0xc28 @0x0
0x0c28…0c3d lno = 0x1410 // 0xc2a @0x2
0x0c28…0c3d at0004 = ╱a1╱ CURSOR ╱ // 0xc2c @0x4
0x0c28…0c3d at0005 = ╱36╱6╱ // 0xc2d @0x5
0x0c28…0c3d at0006 = ╱34╱4╱ // 0xc2e @0x6
0x0c28…0c3d at0007 = ╱fe00008007╱ // 0xc2f @0x7
0x0c28…0c3d at000c = ╱ec╱ , ╱ // 0xc34 @0xc
0x0c28…0c3d at000d = ╱32╱2╱ // 0xc35 @0xd
0x0c28…0c3d at000e = ╱33╱3╱ // 0xc36 @0xe
0x0c28…0c3d at000f = ╱fe0000b805╱ // 0xc37 @0xf
0x0c28…0c3d at0014 = EOL // 0xc3c @0x14
0x0c28…0c3d }
0x0c3d…0c45 9392 1420 INPUT A $
0x0c3d…0c45 LineComalBcd {
0x0c3d…0c45 ptr = 0x9392 // 0xc3d @0x0
0x0c3d…0c45 lno = 0x1420 // 0xc3f @0x2
0x0c3d…0c45 at0004 = ╱91╱ INPUT ╱ // 0xc41 @0x4
0x0c3d…0c45 at0005 = ╱41╱A╱ // 0xc42 @0x5
0x0c3d…0c45 at0006 = ╱ef╱ $ ╱ // 0xc43 @0x6
0x0c3d…0c45 at0007 = EOL // 0xc44 @0x7
0x0c3d…0c45 }
0x0c45…0c55 93a2 1430 EXEC NRTEST ( A $ )
0x0c45…0c55 LineComalBcd {
0x0c45…0c55 ptr = 0x93a2 // 0xc45 @0x0
0x0c45…0c55 lno = 0x1430 // 0xc47 @0x2
0x0c45…0c55 at0004 = ╱9d╱ EXEC ╱ // 0xc49 @0x4
0x0c45…0c55 at0005 = ╱4e╱N╱ // 0xc4a @0x5
0x0c45…0c55 at0006 = ╱52╱R╱ // 0xc4b @0x6
0x0c45…0c55 at0007 = ╱54╱T╱ // 0xc4c @0x7
0x0c45…0c55 at0008 = ╱45╱E╱ // 0xc4d @0x8
0x0c45…0c55 at0009 = ╱53╱S╱ // 0xc4e @0x9
0x0c45…0c55 at000a = ╱54╱T╱ // 0xc4f @0xa
0x0c45…0c55 at000b = ╱ed╱ ( ╱ // 0xc50 @0xb
0x0c45…0c55 at000c = ╱41╱A╱ // 0xc51 @0xc
0x0c45…0c55 at000d = ╱ef╱ $ ╱ // 0xc52 @0xd
0x0c45…0c55 at000e = ╱ee╱ ) ╱ // 0xc53 @0xe
0x0c45…0c55 at000f = EOL // 0xc54 @0xf
0x0c45…0c55 }
0x0c55…0c6e (41,) 93bb 1440 UNTIL P = - 7 OR P = - 8
0x0c55…0c6e LineComalBcd {
0x0c55…0c6e ptr = 0x93bb // 0xc55 @0x0
0x0c55…0c6e lno = 0x1440 // 0xc57 @0x2
0x0c55…0c6e at0004 = ╱98╱ UNTIL ╱ // 0xc59 @0x4
0x0c55…0c6e at0005 = ╱50╱P╱ // 0xc5a @0x5
0x0c55…0c6e at0006 = ╱dc╱ = ╱ // 0xc5b @0x6
0x0c55…0c6e at0007 = ╱e9╱ - ╱ // 0xc5c @0x7
0x0c55…0c6e at0008 = ╱37╱7╱ // 0xc5d @0x8
0x0c55…0c6e at0009 = ╱fe0000e003╱ // 0xc5e @0x9
0x0c55…0c6e at000e = ╱db╱ OR ╱ // 0xc63 @0xe
0x0c55…0c6e at000f = ╱50╱P╱ // 0xc64 @0xf
0x0c55…0c6e at0010 = ╱dc╱ = ╱ // 0xc65 @0x10
0x0c55…0c6e at0011 = ╱e9╱ - ╱ // 0xc66 @0x11
0x0c55…0c6e at0012 = ╱38╱8╱ // 0xc67 @0x12
0x0c55…0c6e at0013 = ╱fe00008004╱ // 0xc68 @0x13
0x0c55…0c6e at0018 = EOL // 0xc6d @0x18
0x0c55…0c6e }
0x0c6e…0c9f 93ec 1450 UNTIL P = - 7 AND ( ( I9 = 0 AND I1 = 1 ) OR I1 >< 1 )
0x0c6e…0c9f LineComalBcd {
0x0c6e…0c9f ptr = 0x93ec // 0xc6e @0x0
0x0c6e…0c9f lno = 0x1450 // 0xc70 @0x2
0x0c6e…0c9f at0004 = ╱98╱ UNTIL ╱ // 0xc72 @0x4
0x0c6e…0c9f at0005 = ╱50╱P╱ // 0xc73 @0x5
0x0c6e…0c9f at0006 = ╱dc╱ = ╱ // 0xc74 @0x6
0x0c6e…0c9f at0007 = ╱e9╱ - ╱ // 0xc75 @0x7
0x0c6e…0c9f at0008 = ╱37╱7╱ // 0xc76 @0x8
0x0c6e…0c9f at0009 = ╱fe0000e003╱ // 0xc77 @0x9
0x0c6e…0c9f at000e = ╱da╱ AND ╱ // 0xc7c @0xe
0x0c6e…0c9f at000f = ╱ed╱ ( ╱ // 0xc7d @0xf
0x0c6e…0c9f at0010 = ╱ed╱ ( ╱ // 0xc7e @0x10
0x0c6e…0c9f at0011 = ╱49╱I╱ // 0xc7f @0x11
0x0c6e…0c9f at0012 = ╱39╱9╱ // 0xc80 @0x12
0x0c6e…0c9f at0013 = ╱dc╱ = ╱ // 0xc81 @0x13
0x0c6e…0c9f at0014 = ╱30╱0╱ // 0xc82 @0x14
0x0c6e…0c9f at0015 = ╱fe00000000╱ // 0xc83 @0x15
0x0c6e…0c9f at001a = ╱da╱ AND ╱ // 0xc88 @0x1a
0x0c6e…0c9f at001b = ╱49╱I╱ // 0xc89 @0x1b
0x0c6e…0c9f at001c = ╱31╱1╱ // 0xc8a @0x1c
0x0c6e…0c9f at001d = ╱dc╱ = ╱ // 0xc8b @0x1d
0x0c6e…0c9f at001e = ╱31╱1╱ // 0xc8c @0x1e
0x0c6e…0c9f at001f = ╱fe00008001╱ // 0xc8d @0x1f
0x0c6e…0c9f at0024 = ╱ee╱ ) ╱ // 0xc92 @0x24
0x0c6e…0c9f at0025 = ╱db╱ OR ╱ // 0xc93 @0x25
0x0c6e…0c9f at0026 = ╱49╱I╱ // 0xc94 @0x26
0x0c6e…0c9f at0027 = ╱31╱1╱ // 0xc95 @0x27
0x0c6e…0c9f at0028 = ╱e1╱ >< ╱ // 0xc96 @0x28
0x0c6e…0c9f at0029 = ╱31╱1╱ // 0xc97 @0x29
0x0c6e…0c9f at002a = ╱fe00008001╱ // 0xc98 @0x2a
0x0c6e…0c9f at002f = ╱ee╱ ) ╱ // 0xc9d @0x2f
0x0c6e…0c9f at0030 = EOL // 0xc9e @0x30
0x0c6e…0c9f }
0x0c9f…0caf 93fc 1460 IF I9 = 1 THEN
0x0c9f…0caf LineComalBcd {
0x0c9f…0caf ptr = 0x93fc // 0xc9f @0x0
0x0c9f…0caf lno = 0x1460 // 0xca1 @0x2
0x0c9f…0caf at0004 = ╱9c╱ IF ╱ // 0xca3 @0x4
0x0c9f…0caf at0005 = ╱49╱I╱ // 0xca4 @0x5
0x0c9f…0caf at0006 = ╱39╱9╱ // 0xca5 @0x6
0x0c9f…0caf at0007 = ╱dc╱ = ╱ // 0xca6 @0x7
0x0c9f…0caf at0008 = ╱31╱1╱ // 0xca7 @0x8
0x0c9f…0caf at0009 = ╱fe00008001╱ // 0xca8 @0x9
0x0c9f…0caf at000e = ╱b6╱ THEN ╱ // 0xcad @0xe
0x0c9f…0caf at000f = EOL // 0xcae @0xf
0x0c9f…0caf }
0x0caf…0cc1 940e 1470 EXEC KLET ( 5 )
0x0caf…0cc1 LineComalBcd {
0x0caf…0cc1 ptr = 0x940e // 0xcaf @0x0
0x0caf…0cc1 lno = 0x1470 // 0xcb1 @0x2
0x0caf…0cc1 at0004 = ╱9d╱ EXEC ╱ // 0xcb3 @0x4
0x0caf…0cc1 at0005 = ╱4b╱K╱ // 0xcb4 @0x5
0x0caf…0cc1 at0006 = ╱4c╱L╱ // 0xcb5 @0x6
0x0caf…0cc1 at0007 = ╱45╱E╱ // 0xcb6 @0x7
0x0caf…0cc1 at0008 = ╱54╱T╱ // 0xcb7 @0x8
0x0caf…0cc1 at0009 = ╱ed╱ ( ╱ // 0xcb8 @0x9
0x0caf…0cc1 at000a = ╱35╱5╱ // 0xcb9 @0xa
0x0caf…0cc1 at000b = ╱fe0000a003╱ // 0xcba @0xb
0x0caf…0cc1 at0010 = ╱ee╱ ) ╱ // 0xcbf @0x10
0x0caf…0cc1 at0011 = EOL // 0xcc0 @0x11
0x0caf…0cc1 }
0x0cc1…0cdc 9429 1480 H3 = 1 ; I0 = I0 - 1
0x0cc1…0cdc LineComalBcd {
0x0cc1…0cdc ptr = 0x9429 // 0xcc1 @0x0
0x0cc1…0cdc lno = 0x1480 // 0xcc3 @0x2
0x0cc1…0cdc at0004 = ╱48╱H╱ // 0xcc5 @0x4
0x0cc1…0cdc at0005 = ╱33╱3╱ // 0xcc6 @0x5
0x0cc1…0cdc at0006 = ╱dc╱ = ╱ // 0xcc7 @0x6
0x0cc1…0cdc at0007 = ╱31╱1╱ // 0xcc8 @0x7
0x0cc1…0cdc at0008 = ╱fe00008001╱ // 0xcc9 @0x8
0x0cc1…0cdc at000d = ╱eb╱ ; ╱ // 0xcce @0xd
0x0cc1…0cdc at000e = ╱49╱I╱ // 0xccf @0xe
0x0cc1…0cdc at000f = ╱30╱0╱ // 0xcd0 @0xf
0x0cc1…0cdc at0010 = ╱dc╱ = ╱ // 0xcd1 @0x10
0x0cc1…0cdc at0011 = ╱49╱I╱ // 0xcd2 @0x11
0x0cc1…0cdc at0012 = ╱30╱0╱ // 0xcd3 @0x12
0x0cc1…0cdc at0013 = ╱e3╱ - ╱ // 0xcd4 @0x13
0x0cc1…0cdc at0014 = ╱31╱1╱ // 0xcd5 @0x14
0x0cc1…0cdc at0015 = ╱fe00008001╱ // 0xcd6 @0x15
0x0cc1…0cdc at001a = EOL // 0xcdb @0x1a
0x0cc1…0cdc }
0x0cdc…0ce2 942f 1490 ELSE
0x0cdc…0ce2 LineComalBcd {
0x0cdc…0ce2 ptr = 0x942f // 0xcdc @0x0
0x0cdc…0ce2 lno = 0x1490 // 0xcde @0x2
0x0cdc…0ce2 at0004 = ╱9a╱ ELSE ╱ // 0xce0 @0x4
0x0cdc…0ce2 at0005 = EOL // 0xce1 @0x5
0x0cdc…0ce2 }
0x0ce2…0cf9 9446 1500 CURSOR 38 , H5 + 3
0x0ce2…0cf9 LineComalBcd {
0x0ce2…0cf9 ptr = 0x9446 // 0xce2 @0x0
0x0ce2…0cf9 lno = 0x1500 // 0xce4 @0x2
0x0ce2…0cf9 at0004 = ╱a1╱ CURSOR ╱ // 0xce6 @0x4
0x0ce2…0cf9 at0005 = ╱33╱3╱ // 0xce7 @0x5
0x0ce2…0cf9 at0006 = ╱38╱8╱ // 0xce8 @0x6
0x0ce2…0cf9 at0007 = ╱fe00009806╱ // 0xce9 @0x7
0x0ce2…0cf9 at000c = ╱ec╱ , ╱ // 0xcee @0xc
0x0ce2…0cf9 at000d = ╱48╱H╱ // 0xcef @0xd
0x0ce2…0cf9 at000e = ╱35╱5╱ // 0xcf0 @0xe
0x0ce2…0cf9 at000f = ╱e2╱ + ╱ // 0xcf1 @0xf
0x0ce2…0cf9 at0010 = ╱33╱3╱ // 0xcf2 @0x10
0x0ce2…0cf9 at0011 = ╱fe0000c002╱ // 0xcf3 @0x11
0x0ce2…0cf9 at0016 = EOL // 0xcf8 @0x16
0x0ce2…0cf9 }
0x0cf9…0d07 9454 1510 H3 = 4
0x0cf9…0d07 LineComalBcd {
0x0cf9…0d07 ptr = 0x9454 // 0xcf9 @0x0
0x0cf9…0d07 lno = 0x1510 // 0xcfb @0x2
0x0cf9…0d07 at0004 = ╱48╱H╱ // 0xcfd @0x4
0x0cf9…0d07 at0005 = ╱33╱3╱ // 0xcfe @0x5
0x0cf9…0d07 at0006 = ╱dc╱ = ╱ // 0xcff @0x6
0x0cf9…0d07 at0007 = ╱34╱4╱ // 0xd00 @0x7
0x0cf9…0d07 at0008 = ╱fe00008003╱ // 0xd01 @0x8
0x0cf9…0d07 at000d = EOL // 0xd06 @0xd
0x0cf9…0d07 }
0x0d07…0d21 946e 1520 IF I1 = 1 THEN H3 = - 1
0x0d07…0d21 LineComalBcd {
0x0d07…0d21 ptr = 0x946e // 0xd07 @0x0
0x0d07…0d21 lno = 0x1520 // 0xd09 @0x2
0x0d07…0d21 at0004 = ╱82╱ IF ╱ // 0xd0b @0x4
0x0d07…0d21 at0005 = ╱49╱I╱ // 0xd0c @0x5
0x0d07…0d21 at0006 = ╱31╱1╱ // 0xd0d @0x6
0x0d07…0d21 at0007 = ╱dc╱ = ╱ // 0xd0e @0x7
0x0d07…0d21 at0008 = ╱31╱1╱ // 0xd0f @0x8
0x0d07…0d21 at0009 = ╱fe00008001╱ // 0xd10 @0x9
0x0d07…0d21 at000e = ╱b6╱ THEN ╱ // 0xd15 @0xe
0x0d07…0d21 at000f = ╱48╱H╱ // 0xd16 @0xf
0x0d07…0d21 at0010 = ╱33╱3╱ // 0xd17 @0x10
0x0d07…0d21 at0011 = ╱dc╱ = ╱ // 0xd18 @0x11
0x0d07…0d21 at0012 = ╱e9╱ - ╱ // 0xd19 @0x12
0x0d07…0d21 at0013 = ╱31╱1╱ // 0xd1a @0x13
0x0d07…0d21 at0014 = ╱fe00008001╱ // 0xd1b @0x14
0x0d07…0d21 at0019 = EOL // 0xd20 @0x19
0x0d07…0d21 }
0x0d21…0d33 9480 1530 PRINT USING "######" : H6
0x0d21…0d33 LineComalBcd {
0x0d21…0d33 ptr = 0x9480 // 0xd21 @0x0
0x0d21…0d33 lno = 0x1530 // 0xd23 @0x2
0x0d21…0d33 at0004 = ╱92╱ PRINT ╱ // 0xd25 @0x4
0x0d21…0d33 at0005 = ╱b9╱ USING ╱ // 0xd26 @0x5
0x0d21…0d33 at0006 = ╱22╱"╱ // 0xd27 @0x6
0x0d21…0d33 at0007 = ╱23╱#╱ // 0xd28 @0x7
0x0d21…0d33 at0008 = ╱23╱#╱ // 0xd29 @0x8
0x0d21…0d33 at0009 = ╱23╱#╱ // 0xd2a @0x9
0x0d21…0d33 at000a = ╱23╱#╱ // 0xd2b @0xa
0x0d21…0d33 at000b = ╱23╱#╱ // 0xd2c @0xb
0x0d21…0d33 at000c = ╱23╱#╱ // 0xd2d @0xc
0x0d21…0d33 at000d = ╱22╱"╱ // 0xd2e @0xd
0x0d21…0d33 at000e = ╱f0╱ : ╱ // 0xd2f @0xe
0x0d21…0d33 at000f = ╱48╱H╱ // 0xd30 @0xf
0x0d21…0d33 at0010 = ╱36╱6╱ // 0xd31 @0x10
0x0d21…0d33 at0011 = EOL // 0xd32 @0x11
0x0d21…0d33 }
0x0d33…0d39 9486 1540 ENDIF
0x0d33…0d39 LineComalBcd {
0x0d33…0d39 ptr = 0x9486 // 0xd33 @0x0
0x0d33…0d39 lno = 0x1540 // 0xd35 @0x2
0x0d33…0d39 at0004 = ╱9b╱ ENDIF ╱ // 0xd37 @0x4
0x0d33…0d39 at0005 = EOL // 0xd38 @0x5
0x0d33…0d39 }
0x0d39…0d46 9493 1550 WHEN 4
0x0d39…0d46 LineComalBcd {
0x0d39…0d46 ptr = 0x9493 // 0xd39 @0x0
0x0d39…0d46 lno = 0x1550 // 0xd3b @0x2
0x0d39…0d46 at0004 = ╱a301╱ WHEN ╱ // 0xd3d @0x4
0x0d39…0d46 at0006 = ╱34╱4╱ // 0xd3f @0x6
0x0d39…0d46 at0007 = ╱fe00008003╱ // 0xd40 @0x7
0x0d39…0d46 at000c = EOL // 0xd45 @0xc
0x0d39…0d46 }
0x0d46…0d4c 9499 1560 REPEAT
0x0d46…0d4c LineComalBcd {
0x0d46…0d4c ptr = 0x9499 // 0xd46 @0x0
0x0d46…0d4c lno = 0x1560 // 0xd48 @0x2
0x0d46…0d4c at0004 = ╱97╱ REPEAT ╱ // 0xd4a @0x4
0x0d46…0d4c at0005 = EOL // 0xd4b @0x5
0x0d46…0d4c }
0x0d4c…0d52 949f 1570 REPEAT
0x0d4c…0d52 LineComalBcd {
0x0d4c…0d52 ptr = 0x949f // 0xd4c @0x0
0x0d4c…0d52 lno = 0x1570 // 0xd4e @0x2
0x0d4c…0d52 at0004 = ╱97╱ REPEAT ╱ // 0xd50 @0x4
0x0d4c…0d52 at0005 = EOL // 0xd51 @0x5
0x0d4c…0d52 }
0x0d52…0d58 94a5 1580 REPEAT
0x0d52…0d58 LineComalBcd {
0x0d52…0d58 ptr = 0x94a5 // 0xd52 @0x0
0x0d52…0d58 lno = 0x1580 // 0xd54 @0x2
0x0d52…0d58 at0004 = ╱97╱ REPEAT ╱ // 0xd56 @0x4
0x0d52…0d58 at0005 = EOL // 0xd57 @0x5
0x0d52…0d58 }
0x0d58…0d5e 94ab 1590 REPEAT
0x0d58…0d5e LineComalBcd {
0x0d58…0d5e ptr = 0x94ab // 0xd58 @0x0
0x0d58…0d5e lno = 0x1590 // 0xd5a @0x2
0x0d58…0d5e at0004 = ╱97╱ REPEAT ╱ // 0xd5c @0x4
0x0d58…0d5e at0005 = EOL // 0xd5d @0x5
0x0d58…0d5e }
0x0d5e…0d72 94bf 1600 CURSOR 3 , 23
0x0d5e…0d72 LineComalBcd {
0x0d5e…0d72 ptr = 0x94bf // 0xd5e @0x0
0x0d5e…0d72 lno = 0x1600 // 0xd60 @0x2
0x0d5e…0d72 at0004 = ╱a1╱ CURSOR ╱ // 0xd62 @0x4
0x0d5e…0d72 at0005 = ╱33╱3╱ // 0xd63 @0x5
0x0d5e…0d72 at0006 = ╱fe0000c002╱ // 0xd64 @0x6
0x0d5e…0d72 at000b = ╱ec╱ , ╱ // 0xd69 @0xb
0x0d5e…0d72 at000c = ╱32╱2╱ // 0xd6a @0xc
0x0d5e…0d72 at000d = ╱33╱3╱ // 0xd6b @0xd
0x0d5e…0d72 at000e = ╱fe0000b805╱ // 0xd6c @0xe
0x0d5e…0d72 at0013 = EOL // 0xd71 @0x13
0x0d5e…0d72 }
0x0d72…0dc0 950d 1610 PRINT "Bel|b" ; B7 $ ( 1 : 14 ) ; "(Kredit…indtastes…med…efterstillet…minus)" ;
0x0d72…0dc0 LineComalBcd {
0x0d72…0dc0 ptr = 0x950d // 0xd72 @0x0
0x0d72…0dc0 lno = 0x1610 // 0xd74 @0x2
0x0d72…0dc0 at0004 = ╱92╱ PRINT ╱ // 0xd76 @0x4
0x0d72…0dc0 at0005 = ╱22╱"╱ // 0xd77 @0x5
0x0d72…0dc0 at0006 = ╱42╱B╱ // 0xd78 @0x6
0x0d72…0dc0 at0007 = ╱65╱e╱ // 0xd79 @0x7
0x0d72…0dc0 at0008 = ╱6c╱l╱ // 0xd7a @0x8
0x0d72…0dc0 at0009 = ╱7c╱|╱ // 0xd7b @0x9
0x0d72…0dc0 at000a = ╱62╱b╱ // 0xd7c @0xa
0x0d72…0dc0 at000b = ╱22╱"╱ // 0xd7d @0xb
0x0d72…0dc0 at000c = ╱eb╱ ; ╱ // 0xd7e @0xc
0x0d72…0dc0 at000d = ╱42╱B╱ // 0xd7f @0xd
0x0d72…0dc0 at000e = ╱37╱7╱ // 0xd80 @0xe
0x0d72…0dc0 at000f = ╱ef╱ $ ╱ // 0xd81 @0xf
0x0d72…0dc0 at0010 = ╱ed╱ ( ╱ // 0xd82 @0x10
0x0d72…0dc0 at0011 = ╱31╱1╱ // 0xd83 @0x11
0x0d72…0dc0 at0012 = ╱fe00008001╱ // 0xd84 @0x12
0x0d72…0dc0 at0017 = ╱f0╱ : ╱ // 0xd89 @0x17
0x0d72…0dc0 at0018 = ╱31╱1╱ // 0xd8a @0x18
0x0d72…0dc0 at0019 = ╱34╱4╱ // 0xd8b @0x19
0x0d72…0dc0 at001a = ╱fe0000e004╱ // 0xd8c @0x1a
0x0d72…0dc0 at001f = ╱ee╱ ) ╱ // 0xd91 @0x1f
0x0d72…0dc0 at0020 = ╱eb╱ ; ╱ // 0xd92 @0x20
0x0d72…0dc0 at0021 = ╱22╱"╱ // 0xd93 @0x21
0x0d72…0dc0 at0022 = ╱28╱(╱ // 0xd94 @0x22
0x0d72…0dc0 at0023 = ╱4b╱K╱ // 0xd95 @0x23
0x0d72…0dc0 at0024 = ╱72╱r╱ // 0xd96 @0x24
0x0d72…0dc0 at0025 = ╱65╱e╱ // 0xd97 @0x25
0x0d72…0dc0 at0026 = ╱64╱d╱ // 0xd98 @0x26
0x0d72…0dc0 at0027 = ╱69╱i╱ // 0xd99 @0x27
0x0d72…0dc0 at0028 = ╱74╱t╱ // 0xd9a @0x28
0x0d72…0dc0 at0029 = ╱20╱…╱ // 0xd9b @0x29
0x0d72…0dc0 at002a = ╱69╱i╱ // 0xd9c @0x2a
0x0d72…0dc0 at002b = ╱6e╱n╱ // 0xd9d @0x2b
0x0d72…0dc0 at002c = ╱64╱d╱ // 0xd9e @0x2c
0x0d72…0dc0 at002d = ╱74╱t╱ // 0xd9f @0x2d
0x0d72…0dc0 at002e = ╱61╱a╱ // 0xda0 @0x2e
0x0d72…0dc0 at002f = ╱73╱s╱ // 0xda1 @0x2f
0x0d72…0dc0 at0030 = ╱74╱t╱ // 0xda2 @0x30
0x0d72…0dc0 at0031 = ╱65╱e╱ // 0xda3 @0x31
0x0d72…0dc0 at0032 = ╱73╱s╱ // 0xda4 @0x32
0x0d72…0dc0 at0033 = ╱20╱…╱ // 0xda5 @0x33
0x0d72…0dc0 at0034 = ╱6d╱m╱ // 0xda6 @0x34
0x0d72…0dc0 at0035 = ╱65╱e╱ // 0xda7 @0x35
0x0d72…0dc0 at0036 = ╱64╱d╱ // 0xda8 @0x36
0x0d72…0dc0 at0037 = ╱20╱…╱ // 0xda9 @0x37
0x0d72…0dc0 at0038 = ╱65╱e╱ // 0xdaa @0x38
0x0d72…0dc0 at0039 = ╱66╱f╱ // 0xdab @0x39
0x0d72…0dc0 at003a = ╱74╱t╱ // 0xdac @0x3a
0x0d72…0dc0 at003b = ╱65╱e╱ // 0xdad @0x3b
0x0d72…0dc0 at003c = ╱72╱r╱ // 0xdae @0x3c
0x0d72…0dc0 at003d = ╱73╱s╱ // 0xdaf @0x3d
0x0d72…0dc0 at003e = ╱74╱t╱ // 0xdb0 @0x3e
0x0d72…0dc0 at003f = ╱69╱i╱ // 0xdb1 @0x3f
0x0d72…0dc0 at0040 = ╱6c╱l╱ // 0xdb2 @0x40
0x0d72…0dc0 at0041 = ╱6c╱l╱ // 0xdb3 @0x41
0x0d72…0dc0 at0042 = ╱65╱e╱ // 0xdb4 @0x42
0x0d72…0dc0 at0043 = ╱74╱t╱ // 0xdb5 @0x43
0x0d72…0dc0 at0044 = ╱20╱…╱ // 0xdb6 @0x44
0x0d72…0dc0 at0045 = ╱6d╱m╱ // 0xdb7 @0x45
0x0d72…0dc0 at0046 = ╱69╱i╱ // 0xdb8 @0x46
0x0d72…0dc0 at0047 = ╱6e╱n╱ // 0xdb9 @0x47
0x0d72…0dc0 at0048 = ╱75╱u╱ // 0xdba @0x48
0x0d72…0dc0 at0049 = ╱73╱s╱ // 0xdbb @0x49
0x0d72…0dc0 at004a = ╱29╱)╱ // 0xdbc @0x4a
0x0d72…0dc0 at004b = ╱22╱"╱ // 0xdbd @0x4b
0x0d72…0dc0 at004c = ╱eb╱ ; ╱ // 0xdbe @0x4c
0x0d72…0dc0 at004d = EOL // 0xdbf @0x4d
0x0d72…0dc0 }
0x0dc0…0dd9 9526 1620 PRINT B7 $ ( 1 : 16 )
0x0dc0…0dd9 LineComalBcd {
0x0dc0…0dd9 ptr = 0x9526 // 0xdc0 @0x0
0x0dc0…0dd9 lno = 0x1620 // 0xdc2 @0x2
0x0dc0…0dd9 at0004 = ╱92╱ PRINT ╱ // 0xdc4 @0x4
0x0dc0…0dd9 at0005 = ╱42╱B╱ // 0xdc5 @0x5
0x0dc0…0dd9 at0006 = ╱37╱7╱ // 0xdc6 @0x6
0x0dc0…0dd9 at0007 = ╱ef╱ $ ╱ // 0xdc7 @0x7
0x0dc0…0dd9 at0008 = ╱ed╱ ( ╱ // 0xdc8 @0x8
0x0dc0…0dd9 at0009 = ╱31╱1╱ // 0xdc9 @0x9
0x0dc0…0dd9 at000a = ╱fe00008001╱ // 0xdca @0xa
0x0dc0…0dd9 at000f = ╱f0╱ : ╱ // 0xdcf @0xf
0x0dc0…0dd9 at0010 = ╱31╱1╱ // 0xdd0 @0x10
0x0dc0…0dd9 at0011 = ╱36╱6╱ // 0xdd1 @0x11
0x0dc0…0dd9 at0012 = ╱fe00008005╱ // 0xdd2 @0x12
0x0dc0…0dd9 at0017 = ╱ee╱ ) ╱ // 0xdd7 @0x17
0x0dc0…0dd9 at0018 = EOL // 0xdd8 @0x18
0x0dc0…0dd9 }
0x0dd9…0ded 953a 1630 CURSOR 8 , 23
0x0dd9…0ded LineComalBcd {
0x0dd9…0ded ptr = 0x953a // 0xdd9 @0x0
0x0dd9…0ded lno = 0x1630 // 0xddb @0x2
0x0dd9…0ded at0004 = ╱a1╱ CURSOR ╱ // 0xddd @0x4
0x0dd9…0ded at0005 = ╱38╱8╱ // 0xdde @0x5
0x0dd9…0ded at0006 = ╱fe00008004╱ // 0xddf @0x6
0x0dd9…0ded at000b = ╱ec╱ , ╱ // 0xde4 @0xb
0x0dd9…0ded at000c = ╱32╱2╱ // 0xde5 @0xc
0x0dd9…0ded at000d = ╱33╱3╱ // 0xde6 @0xd
0x0dd9…0ded at000e = ╱fe0000b805╱ // 0xde7 @0xe
0x0dd9…0ded at0013 = EOL // 0xdec @0x13
0x0dd9…0ded }
0x0ded…0df6 9543 1640 INPUT F3 $
0x0ded…0df6 LineComalBcd {
0x0ded…0df6 ptr = 0x9543 // 0xded @0x0
0x0ded…0df6 lno = 0x1640 // 0xdef @0x2
0x0ded…0df6 at0004 = ╱91╱ INPUT ╱ // 0xdf1 @0x4
0x0ded…0df6 at0005 = ╱46╱F╱ // 0xdf2 @0x5
0x0ded…0df6 at0006 = ╱33╱3╱ // 0xdf3 @0x6
0x0ded…0df6 at0007 = ╱ef╱ $ ╱ // 0xdf4 @0x7
0x0ded…0df6 at0008 = EOL // 0xdf5 @0x8
0x0ded…0df6 }
0x0df6…0e09 9556 1650 UNTIL LEN ( F3 $ ) > 0
0x0df6…0e09 LineComalBcd {
0x0df6…0e09 ptr = 0x9556 // 0xdf6 @0x0
0x0df6…0e09 lno = 0x1650 // 0xdf8 @0x2
0x0df6…0e09 at0004 = ╱98╱ UNTIL ╱ // 0xdfa @0x4
0x0df6…0e09 at0005 = ╱cc╱ LEN ╱ // 0xdfb @0x5
0x0df6…0e09 at0006 = ╱ed╱ ( ╱ // 0xdfc @0x6
0x0df6…0e09 at0007 = ╱46╱F╱ // 0xdfd @0x7
0x0df6…0e09 at0008 = ╱33╱3╱ // 0xdfe @0x8
0x0df6…0e09 at0009 = ╱ef╱ $ ╱ // 0xdff @0x9
0x0df6…0e09 at000a = ╱ee╱ ) ╱ // 0xe00 @0xa
0x0df6…0e09 at000b = ╱de╱ > ╱ // 0xe01 @0xb
0x0df6…0e09 at000c = ╱30╱0╱ // 0xe02 @0xc
0x0df6…0e09 at000d = ╱fe00000000╱ // 0xe03 @0xd
0x0df6…0e09 at0012 = EOL // 0xe08 @0x12
0x0df6…0e09 }
0x0e09…0e16 9563 1660 EXEC FORTEGN
0x0e09…0e16 LineComalBcd {
0x0e09…0e16 ptr = 0x9563 // 0xe09 @0x0
0x0e09…0e16 lno = 0x1660 // 0xe0b @0x2
0x0e09…0e16 at0004 = ╱9d╱ EXEC ╱ // 0xe0d @0x4
0x0e09…0e16 at0005 = ╱46╱F╱ // 0xe0e @0x5
0x0e09…0e16 at0006 = ╱4f╱O╱ // 0xe0f @0x6
0x0e09…0e16 at0007 = ╱52╱R╱ // 0xe10 @0x7
0x0e09…0e16 at0008 = ╱54╱T╱ // 0xe11 @0x8
0x0e09…0e16 at0009 = ╱45╱E╱ // 0xe12 @0x9
0x0e09…0e16 at000a = ╱47╱G╱ // 0xe13 @0xa
0x0e09…0e16 at000b = ╱4e╱N╱ // 0xe14 @0xb
0x0e09…0e16 at000c = EOL // 0xe15 @0xc
0x0e09…0e16 }
0x0e16…0e34 9581 1670 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
0x0e16…0e34 LineComalBcd {
0x0e16…0e34 ptr = 0x9581 // 0xe16 @0x0
0x0e16…0e34 lno = 0x1670 // 0xe18 @0x2
0x0e16…0e34 at0004 = ╱9d╱ EXEC ╱ // 0xe1a @0x4
0x0e16…0e34 at0005 = ╱43╱C╱ // 0xe1b @0x5
0x0e16…0e34 at0006 = ╱41╱A╱ // 0xe1c @0x6
0x0e16…0e34 at0007 = ╱4c╱L╱ // 0xe1d @0x7
0x0e16…0e34 at0008 = ╱43╱C╱ // 0xe1e @0x8
0x0e16…0e34 at0009 = ╱ed╱ ( ╱ // 0xe1f @0x9
0x0e16…0e34 at000a = ╱36╱6╱ // 0xe20 @0xa
0x0e16…0e34 at000b = ╱fe0000c003╱ // 0xe21 @0xb
0x0e16…0e34 at0010 = ╱ec╱ , ╱ // 0xe26 @0x10
0x0e16…0e34 at0011 = ╱46╱F╱ // 0xe27 @0x11
0x0e16…0e34 at0012 = ╱33╱3╱ // 0xe28 @0x12
0x0e16…0e34 at0013 = ╱ef╱ $ ╱ // 0xe29 @0x13
0x0e16…0e34 at0014 = ╱ec╱ , ╱ // 0xe2a @0x14
0x0e16…0e34 at0015 = ╱42╱B╱ // 0xe2b @0x15
0x0e16…0e34 at0016 = ╱39╱9╱ // 0xe2c @0x16
0x0e16…0e34 at0017 = ╱ef╱ $ ╱ // 0xe2d @0x17
0x0e16…0e34 at0018 = ╱ec╱ , ╱ // 0xe2e @0x18
0x0e16…0e34 at0019 = ╱42╱B╱ // 0xe2f @0x19
0x0e16…0e34 at001a = ╱38╱8╱ // 0xe30 @0x1a
0x0e16…0e34 at001b = ╱ef╱ $ ╱ // 0xe31 @0x1b
0x0e16…0e34 at001c = ╱ee╱ ) ╱ // 0xe32 @0x1c
0x0e16…0e34 at001d = EOL // 0xe33 @0x1d
0x0e16…0e34 }
0x0e34…0e45 9592 1680 UNTIL FLAG = 0
0x0e34…0e45 LineComalBcd {
0x0e34…0e45 ptr = 0x9592 // 0xe34 @0x0
0x0e34…0e45 lno = 0x1680 // 0xe36 @0x2
0x0e34…0e45 at0004 = ╱98╱ UNTIL ╱ // 0xe38 @0x4
0x0e34…0e45 at0005 = ╱46╱F╱ // 0xe39 @0x5
0x0e34…0e45 at0006 = ╱4c╱L╱ // 0xe3a @0x6
0x0e34…0e45 at0007 = ╱41╱A╱ // 0xe3b @0x7
0x0e34…0e45 at0008 = ╱47╱G╱ // 0xe3c @0x8
0x0e34…0e45 at0009 = ╱dc╱ = ╱ // 0xe3d @0x9
0x0e34…0e45 at000a = ╱30╱0╱ // 0xe3e @0xa
0x0e34…0e45 at000b = ╱fe00000000╱ // 0xe3f @0xb
0x0e34…0e45 at0010 = EOL // 0xe44 @0x10
0x0e34…0e45 }
0x0e45…0e63 95b0 1690 EXEC CALC ( 4 , F3 $ , B9 $ , B9 $ )
0x0e45…0e63 LineComalBcd {
0x0e45…0e63 ptr = 0x95b0 // 0xe45 @0x0
0x0e45…0e63 lno = 0x1690 // 0xe47 @0x2
0x0e45…0e63 at0004 = ╱9d╱ EXEC ╱ // 0xe49 @0x4
0x0e45…0e63 at0005 = ╱43╱C╱ // 0xe4a @0x5
0x0e45…0e63 at0006 = ╱41╱A╱ // 0xe4b @0x6
0x0e45…0e63 at0007 = ╱4c╱L╱ // 0xe4c @0x7
0x0e45…0e63 at0008 = ╱43╱C╱ // 0xe4d @0x8
0x0e45…0e63 at0009 = ╱ed╱ ( ╱ // 0xe4e @0x9
0x0e45…0e63 at000a = ╱34╱4╱ // 0xe4f @0xa
0x0e45…0e63 at000b = ╱fe00008003╱ // 0xe50 @0xb
0x0e45…0e63 at0010 = ╱ec╱ , ╱ // 0xe55 @0x10
0x0e45…0e63 at0011 = ╱46╱F╱ // 0xe56 @0x11
0x0e45…0e63 at0012 = ╱33╱3╱ // 0xe57 @0x12
0x0e45…0e63 at0013 = ╱ef╱ $ ╱ // 0xe58 @0x13
0x0e45…0e63 at0014 = ╱ec╱ , ╱ // 0xe59 @0x14
0x0e45…0e63 at0015 = ╱42╱B╱ // 0xe5a @0x15
0x0e45…0e63 at0016 = ╱39╱9╱ // 0xe5b @0x16
0x0e45…0e63 at0017 = ╱ef╱ $ ╱ // 0xe5c @0x17
0x0e45…0e63 at0018 = ╱ec╱ , ╱ // 0xe5d @0x18
0x0e45…0e63 at0019 = ╱42╱B╱ // 0xe5e @0x19
0x0e45…0e63 at001a = ╱39╱9╱ // 0xe5f @0x1a
0x0e45…0e63 at001b = ╱ef╱ $ ╱ // 0xe60 @0x1b
0x0e45…0e63 at001c = ╱ee╱ ) ╱ // 0xe61 @0x1c
0x0e45…0e63 at001d = EOL // 0xe62 @0x1d
0x0e45…0e63 }
0x0e63…0e7e 95cb 1700 UNTIL SI >< 0 AND FLAG = 0
0x0e63…0e7e LineComalBcd {
0x0e63…0e7e ptr = 0x95cb // 0xe63 @0x0
0x0e63…0e7e lno = 0x1700 // 0xe65 @0x2
0x0e63…0e7e at0004 = ╱98╱ UNTIL ╱ // 0xe67 @0x4
0x0e63…0e7e at0005 = ╱53╱S╱ // 0xe68 @0x5
0x0e63…0e7e at0006 = ╱49╱I╱ // 0xe69 @0x6
0x0e63…0e7e at0007 = ╱e1╱ >< ╱ // 0xe6a @0x7
0x0e63…0e7e at0008 = ╱30╱0╱ // 0xe6b @0x8
0x0e63…0e7e at0009 = ╱fe00000000╱ // 0xe6c @0x9
0x0e63…0e7e at000e = ╱da╱ AND ╱ // 0xe71 @0xe
0x0e63…0e7e at000f = ╱46╱F╱ // 0xe72 @0xf
0x0e63…0e7e at0010 = ╱4c╱L╱ // 0xe73 @0x10
0x0e63…0e7e at0011 = ╱41╱A╱ // 0xe74 @0x11
0x0e63…0e7e at0012 = ╱47╱G╱ // 0xe75 @0x12
0x0e63…0e7e at0013 = ╱dc╱ = ╱ // 0xe76 @0x13
0x0e63…0e7e at0014 = ╱30╱0╱ // 0xe77 @0x14
0x0e63…0e7e at0015 = ╱fe00000000╱ // 0xe78 @0x15
0x0e63…0e7e at001a = EOL // 0xe7d @0x1a
0x0e63…0e7e }
0x0e7e…0e93 95e0 1710 I8 = H6 DIV 10000
0x0e7e…0e93 LineComalBcd {
0x0e7e…0e93 ptr = 0x95e0 // 0xe7e @0x0
0x0e7e…0e93 lno = 0x1710 // 0xe80 @0x2
0x0e7e…0e93 at0004 = ╱49╱I╱ // 0xe82 @0x4
0x0e7e…0e93 at0005 = ╱38╱8╱ // 0xe83 @0x5
0x0e7e…0e93 at0006 = ╱dc╱ = ╱ // 0xe84 @0x6
0x0e7e…0e93 at0007 = ╱48╱H╱ // 0xe85 @0x7
0x0e7e…0e93 at0008 = ╱36╱6╱ // 0xe86 @0x8
0x0e7e…0e93 at0009 = ╱e7╱ DIV ╱ // 0xe87 @0x9
0x0e7e…0e93 at000a = ╱31╱1╱ // 0xe88 @0xa
0x0e7e…0e93 at000b = ╱30╱0╱ // 0xe89 @0xb
0x0e7e…0e93 at000c = ╱30╱0╱ // 0xe8a @0xc
0x0e7e…0e93 at000d = ╱30╱0╱ // 0xe8b @0xd
0x0e7e…0e93 at000e = ╱30╱0╱ // 0xe8c @0xe
0x0e7e…0e93 at000f = ╱fe00409c0e╱ // 0xe8d @0xf
0x0e7e…0e93 at0014 = EOL // 0xe92 @0x14
0x0e7e…0e93 }
0x0e93…0ea1 95ee 1720 J0 = 0
0x0e93…0ea1 LineComalBcd {
0x0e93…0ea1 ptr = 0x95ee // 0xe93 @0x0
0x0e93…0ea1 lno = 0x1720 // 0xe95 @0x2
0x0e93…0ea1 at0004 = ╱4a╱J╱ // 0xe97 @0x4
0x0e93…0ea1 at0005 = ╱30╱0╱ // 0xe98 @0x5
0x0e93…0ea1 at0006 = ╱dc╱ = ╱ // 0xe99 @0x6
0x0e93…0ea1 at0007 = ╱30╱0╱ // 0xe9a @0x7
0x0e93…0ea1 at0008 = ╱fe00000000╱ // 0xe9b @0x8
0x0e93…0ea1 at000d = EOL // 0xea0 @0xd
0x0e93…0ea1 }
0x0ea1…0eb5 9602 1730 D5 $ = F3 $ ( LEN ( F3 $ ) )
0x0ea1…0eb5 LineComalBcd {
0x0ea1…0eb5 ptr = 0x9602 // 0xea1 @0x0
0x0ea1…0eb5 lno = 0x1730 // 0xea3 @0x2
0x0ea1…0eb5 at0004 = ╱44╱D╱ // 0xea5 @0x4
0x0ea1…0eb5 at0005 = ╱35╱5╱ // 0xea6 @0x5
0x0ea1…0eb5 at0006 = ╱ef╱ $ ╱ // 0xea7 @0x6
0x0ea1…0eb5 at0007 = ╱dc╱ = ╱ // 0xea8 @0x7
0x0ea1…0eb5 at0008 = ╱46╱F╱ // 0xea9 @0x8
0x0ea1…0eb5 at0009 = ╱33╱3╱ // 0xeaa @0x9
0x0ea1…0eb5 at000a = ╱ef╱ $ ╱ // 0xeab @0xa
0x0ea1…0eb5 at000b = ╱ed╱ ( ╱ // 0xeac @0xb
0x0ea1…0eb5 at000c = ╱cc╱ LEN ╱ // 0xead @0xc
0x0ea1…0eb5 at000d = ╱ed╱ ( ╱ // 0xeae @0xd
0x0ea1…0eb5 at000e = ╱46╱F╱ // 0xeaf @0xe
0x0ea1…0eb5 at000f = ╱33╱3╱ // 0xeb0 @0xf
0x0ea1…0eb5 at0010 = ╱ef╱ $ ╱ // 0xeb1 @0x10
0x0ea1…0eb5 at0011 = ╱ee╱ ) ╱ // 0xeb2 @0x11
0x0ea1…0eb5 at0012 = ╱ee╱ ) ╱ // 0xeb3 @0x12
0x0ea1…0eb5 at0013 = EOL // 0xeb4 @0x13
0x0ea1…0eb5 }
0x0eb5…0edb 9628 1740 IF ( I8 = J1 AND D5 $ = "+" ) OR ( I8 = J2 AND D5 $ = "-" ) THEN
0x0eb5…0edb LineComalBcd {
0x0eb5…0edb ptr = 0x9628 // 0xeb5 @0x0
0x0eb5…0edb lno = 0x1740 // 0xeb7 @0x2
0x0eb5…0edb at0004 = ╱9c╱ IF ╱ // 0xeb9 @0x4
0x0eb5…0edb at0005 = ╱ed╱ ( ╱ // 0xeba @0x5
0x0eb5…0edb at0006 = ╱49╱I╱ // 0xebb @0x6
0x0eb5…0edb at0007 = ╱38╱8╱ // 0xebc @0x7
0x0eb5…0edb at0008 = ╱dc╱ = ╱ // 0xebd @0x8
0x0eb5…0edb at0009 = ╱4a╱J╱ // 0xebe @0x9
0x0eb5…0edb at000a = ╱31╱1╱ // 0xebf @0xa
0x0eb5…0edb at000b = ╱da╱ AND ╱ // 0xec0 @0xb
0x0eb5…0edb at000c = ╱44╱D╱ // 0xec1 @0xc
0x0eb5…0edb at000d = ╱35╱5╱ // 0xec2 @0xd
0x0eb5…0edb at000e = ╱ef╱ $ ╱ // 0xec3 @0xe
0x0eb5…0edb at000f = ╱dc╱ = ╱ // 0xec4 @0xf
0x0eb5…0edb at0010 = ╱22╱"╱ // 0xec5 @0x10
0x0eb5…0edb at0011 = ╱2b╱+╱ // 0xec6 @0x11
0x0eb5…0edb at0012 = ╱22╱"╱ // 0xec7 @0x12
0x0eb5…0edb at0013 = ╱ee╱ ) ╱ // 0xec8 @0x13
0x0eb5…0edb at0014 = ╱db╱ OR ╱ // 0xec9 @0x14
0x0eb5…0edb at0015 = ╱ed╱ ( ╱ // 0xeca @0x15
0x0eb5…0edb at0016 = ╱49╱I╱ // 0xecb @0x16
0x0eb5…0edb at0017 = ╱38╱8╱ // 0xecc @0x17
0x0eb5…0edb at0018 = ╱dc╱ = ╱ // 0xecd @0x18
0x0eb5…0edb at0019 = ╱4a╱J╱ // 0xece @0x19
0x0eb5…0edb at001a = ╱32╱2╱ // 0xecf @0x1a
0x0eb5…0edb at001b = ╱da╱ AND ╱ // 0xed0 @0x1b
0x0eb5…0edb at001c = ╱44╱D╱ // 0xed1 @0x1c
0x0eb5…0edb at001d = ╱35╱5╱ // 0xed2 @0x1d
0x0eb5…0edb at001e = ╱ef╱ $ ╱ // 0xed3 @0x1e
0x0eb5…0edb at001f = ╱dc╱ = ╱ // 0xed4 @0x1f
0x0eb5…0edb at0020 = ╱22╱"╱ // 0xed5 @0x20
0x0eb5…0edb at0021 = ╱2d╱-╱ // 0xed6 @0x21
0x0eb5…0edb at0022 = ╱22╱"╱ // 0xed7 @0x22
0x0eb5…0edb at0023 = ╱ee╱ ) ╱ // 0xed8 @0x23
0x0eb5…0edb at0024 = ╱b6╱ THEN ╱ // 0xed9 @0x24
0x0eb5…0edb at0025 = EOL // 0xeda @0x25
0x0eb5…0edb }
0x0edb…0eef 963c 1750 EXEC TESTSALDO ( F3 $ )
0x0edb…0eef LineComalBcd {
0x0edb…0eef ptr = 0x963c // 0xedb @0x0
0x0edb…0eef lno = 0x1750 // 0xedd @0x2
0x0edb…0eef at0004 = ╱9d╱ EXEC ╱ // 0xedf @0x4
0x0edb…0eef at0005 = ╱54╱T╱ // 0xee0 @0x5
0x0edb…0eef at0006 = ╱45╱E╱ // 0xee1 @0x6
0x0edb…0eef at0007 = ╱53╱S╱ // 0xee2 @0x7
0x0edb…0eef at0008 = ╱54╱T╱ // 0xee3 @0x8
0x0edb…0eef at0009 = ╱53╱S╱ // 0xee4 @0x9
0x0edb…0eef at000a = ╱41╱A╱ // 0xee5 @0xa
0x0edb…0eef at000b = ╱4c╱L╱ // 0xee6 @0xb
0x0edb…0eef at000c = ╱44╱D╱ // 0xee7 @0xc
0x0edb…0eef at000d = ╱4f╱O╱ // 0xee8 @0xd
0x0edb…0eef at000e = ╱ed╱ ( ╱ // 0xee9 @0xe
0x0edb…0eef at000f = ╱46╱F╱ // 0xeea @0xf
0x0edb…0eef at0010 = ╱33╱3╱ // 0xeeb @0x10
0x0edb…0eef at0011 = ╱ef╱ $ ╱ // 0xeec @0x11
0x0edb…0eef at0012 = ╱ee╱ ) ╱ // 0xeed @0x12
0x0edb…0eef at0013 = EOL // 0xeee @0x13
0x0edb…0eef }
0x0eef…0ef5 9642 1760 ENDIF
0x0eef…0ef5 LineComalBcd {
0x0eef…0ef5 ptr = 0x9642 // 0xeef @0x0
0x0eef…0ef5 lno = 0x1760 // 0xef1 @0x2
0x0eef…0ef5 at0004 = ╱9b╱ ENDIF ╱ // 0xef3 @0x4
0x0eef…0ef5 at0005 = EOL // 0xef4 @0x5
0x0eef…0ef5 }
0x0ef5…0f04 9651 1770 UNTIL J0 = 0
0x0ef5…0f04 LineComalBcd {
0x0ef5…0f04 ptr = 0x9651 // 0xef5 @0x0
0x0ef5…0f04 lno = 0x1770 // 0xef7 @0x2
0x0ef5…0f04 at0004 = ╱98╱ UNTIL ╱ // 0xef9 @0x4
0x0ef5…0f04 at0005 = ╱4a╱J╱ // 0xefa @0x5
0x0ef5…0f04 at0006 = ╱30╱0╱ // 0xefb @0x6
0x0ef5…0f04 at0007 = ╱dc╱ = ╱ // 0xefc @0x7
0x0ef5…0f04 at0008 = ╱30╱0╱ // 0xefd @0x8
0x0ef5…0f04 at0009 = ╱fe00000000╱ // 0xefe @0x9
0x0ef5…0f04 at000e = EOL // 0xf03 @0xe
0x0ef5…0f04 }
0x0f04…0f10 965d 1780 F4 $ = F3 $
0x0f04…0f10 LineComalBcd {
0x0f04…0f10 ptr = 0x965d // 0xf04 @0x0
0x0f04…0f10 lno = 0x1780 // 0xf06 @0x2
0x0f04…0f10 at0004 = ╱46╱F╱ // 0xf08 @0x4
0x0f04…0f10 at0005 = ╱34╱4╱ // 0xf09 @0x5
0x0f04…0f10 at0006 = ╱ef╱ $ ╱ // 0xf0a @0x6
0x0f04…0f10 at0007 = ╱dc╱ = ╱ // 0xf0b @0x7
0x0f04…0f10 at0008 = ╱46╱F╱ // 0xf0c @0x8
0x0f04…0f10 at0009 = ╱33╱3╱ // 0xf0d @0x9
0x0f04…0f10 at000a = ╱ef╱ $ ╱ // 0xf0e @0xa
0x0f04…0f10 at000b = EOL // 0xf0f @0xb
0x0f04…0f10 }
0x0f10…0f22 966f 1790 EXEC KLET ( 3 )
0x0f10…0f22 LineComalBcd {
0x0f10…0f22 ptr = 0x966f // 0xf10 @0x0
0x0f10…0f22 lno = 0x1790 // 0xf12 @0x2
0x0f10…0f22 at0004 = ╱9d╱ EXEC ╱ // 0xf14 @0x4
0x0f10…0f22 at0005 = ╱4b╱K╱ // 0xf15 @0x5
0x0f10…0f22 at0006 = ╱4c╱L╱ // 0xf16 @0x6
0x0f10…0f22 at0007 = ╱45╱E╱ // 0xf17 @0x7
0x0f10…0f22 at0008 = ╱54╱T╱ // 0xf18 @0x8
0x0f10…0f22 at0009 = ╱ed╱ ( ╱ // 0xf19 @0x9
0x0f10…0f22 at000a = ╱33╱3╱ // 0xf1a @0xa
0x0f10…0f22 at000b = ╱fe0000c002╱ // 0xf1b @0xb
0x0f10…0f22 at0010 = ╱ee╱ ) ╱ // 0xf20 @0x10
0x0f10…0f22 at0011 = EOL // 0xf21 @0x11
0x0f10…0f22 }
0x0f22…0f30 967d 1800 IF D5 $ = "+" THEN
0x0f22…0f30 LineComalBcd {
0x0f22…0f30 ptr = 0x967d // 0xf22 @0x0
0x0f22…0f30 lno = 0x1800 // 0xf24 @0x2
0x0f22…0f30 at0004 = ╱9c╱ IF ╱ // 0xf26 @0x4
0x0f22…0f30 at0005 = ╱44╱D╱ // 0xf27 @0x5
0x0f22…0f30 at0006 = ╱35╱5╱ // 0xf28 @0x6
0x0f22…0f30 at0007 = ╱ef╱ $ ╱ // 0xf29 @0x7
0x0f22…0f30 at0008 = ╱dc╱ = ╱ // 0xf2a @0x8
0x0f22…0f30 at0009 = ╱22╱"╱ // 0xf2b @0x9
0x0f22…0f30 at000a = ╱2b╱+╱ // 0xf2c @0xa
0x0f22…0f30 at000b = ╱22╱"╱ // 0xf2d @0xb
0x0f22…0f30 at000c = ╱b6╱ THEN ╱ // 0xf2e @0xc
0x0f22…0f30 at000d = EOL // 0xf2f @0xd
0x0f22…0f30 }
0x0f30…0f47 9694 1810 CURSOR 46 , H5 + 3
0x0f30…0f47 LineComalBcd {
0x0f30…0f47 ptr = 0x9694 // 0xf30 @0x0
0x0f30…0f47 lno = 0x1810 // 0xf32 @0x2
0x0f30…0f47 at0004 = ╱a1╱ CURSOR ╱ // 0xf34 @0x4
0x0f30…0f47 at0005 = ╱34╱4╱ // 0xf35 @0x5
0x0f30…0f47 at0006 = ╱36╱6╱ // 0xf36 @0x6
0x0f30…0f47 at0007 = ╱fe0000b806╱ // 0xf37 @0x7
0x0f30…0f47 at000c = ╱ec╱ , ╱ // 0xf3c @0xc
0x0f30…0f47 at000d = ╱48╱H╱ // 0xf3d @0xd
0x0f30…0f47 at000e = ╱35╱5╱ // 0xf3e @0xe
0x0f30…0f47 at000f = ╱e2╱ + ╱ // 0xf3f @0xf
0x0f30…0f47 at0010 = ╱33╱3╱ // 0xf40 @0x10
0x0f30…0f47 at0011 = ╱fe0000c002╱ // 0xf41 @0x11
0x0f30…0f47 at0016 = EOL // 0xf46 @0x16
0x0f30…0f47 }
0x0f47…0f55 96a2 1820 J3 = 1
0x0f47…0f55 LineComalBcd {
0x0f47…0f55 ptr = 0x96a2 // 0xf47 @0x0
0x0f47…0f55 lno = 0x1820 // 0xf49 @0x2
0x0f47…0f55 at0004 = ╱4a╱J╱ // 0xf4b @0x4
0x0f47…0f55 at0005 = ╱33╱3╱ // 0xf4c @0x5
0x0f47…0f55 at0006 = ╱dc╱ = ╱ // 0xf4d @0x6
0x0f47…0f55 at0007 = ╱31╱1╱ // 0xf4e @0x7
0x0f47…0f55 at0008 = ╱fe00008001╱ // 0xf4f @0x8
0x0f47…0f55 at000d = EOL // 0xf54 @0xd
0x0f47…0f55 }
0x0f55…0f5b 96a8 1830 ELSE
0x0f55…0f5b LineComalBcd {
0x0f55…0f5b ptr = 0x96a8 // 0xf55 @0x0
0x0f55…0f5b lno = 0x1830 // 0xf57 @0x2
0x0f55…0f5b at0004 = ╱9a╱ ELSE ╱ // 0xf59 @0x4
0x0f55…0f5b at0005 = EOL // 0xf5a @0x5
0x0f55…0f5b }
0x0f5b…0f72 96bf 1840 CURSOR 61 , H5 + 3
0x0f5b…0f72 LineComalBcd {
0x0f5b…0f72 ptr = 0x96bf // 0xf5b @0x0
0x0f5b…0f72 lno = 0x1840 // 0xf5d @0x2
0x0f5b…0f72 at0004 = ╱a1╱ CURSOR ╱ // 0xf5f @0x4
0x0f5b…0f72 at0005 = ╱36╱6╱ // 0xf60 @0x5
0x0f5b…0f72 at0006 = ╱31╱1╱ // 0xf61 @0x6
0x0f5b…0f72 at0007 = ╱fe0000f406╱ // 0xf62 @0x7
0x0f5b…0f72 at000c = ╱ec╱ , ╱ // 0xf67 @0xc
0x0f5b…0f72 at000d = ╱48╱H╱ // 0xf68 @0xd
0x0f5b…0f72 at000e = ╱35╱5╱ // 0xf69 @0xe
0x0f5b…0f72 at000f = ╱e2╱ + ╱ // 0xf6a @0xf
0x0f5b…0f72 at0010 = ╱33╱3╱ // 0xf6b @0x10
0x0f5b…0f72 at0011 = ╱fe0000c002╱ // 0xf6c @0x11
0x0f5b…0f72 at0016 = EOL // 0xf71 @0x16
0x0f5b…0f72 }
0x0f72…0f80 96cd 1850 J3 = 0
0x0f72…0f80 LineComalBcd {
0x0f72…0f80 ptr = 0x96cd // 0xf72 @0x0
0x0f72…0f80 lno = 0x1850 // 0xf74 @0x2
0x0f72…0f80 at0004 = ╱4a╱J╱ // 0xf76 @0x4
0x0f72…0f80 at0005 = ╱33╱3╱ // 0xf77 @0x5
0x0f72…0f80 at0006 = ╱dc╱ = ╱ // 0xf78 @0x6
0x0f72…0f80 at0007 = ╱30╱0╱ // 0xf79 @0x7
0x0f72…0f80 at0008 = ╱fe00000000╱ // 0xf7a @0x8
0x0f72…0f80 at000d = EOL // 0xf7f @0xd
0x0f72…0f80 }
0x0f80…0f86 96d3 1860 ENDIF
0x0f80…0f86 LineComalBcd {
0x0f80…0f86 ptr = 0x96d3 // 0xf80 @0x0
0x0f80…0f86 lno = 0x1860 // 0xf82 @0x2
0x0f80…0f86 at0004 = ╱9b╱ ENDIF ╱ // 0xf84 @0x4
0x0f80…0f86 at0005 = EOL // 0xf85 @0x5
0x0f80…0f86 }
0x0f86…0fa6 96f3 1870 EXEC TUD ( F4 $ , B8 $ , 0 , 0 )
0x0f86…0fa6 LineComalBcd {
0x0f86…0fa6 ptr = 0x96f3 // 0xf86 @0x0
0x0f86…0fa6 lno = 0x1870 // 0xf88 @0x2
0x0f86…0fa6 at0004 = ╱9d╱ EXEC ╱ // 0xf8a @0x4
0x0f86…0fa6 at0005 = ╱54╱T╱ // 0xf8b @0x5
0x0f86…0fa6 at0006 = ╱55╱U╱ // 0xf8c @0x6
0x0f86…0fa6 at0007 = ╱44╱D╱ // 0xf8d @0x7
0x0f86…0fa6 at0008 = ╱ed╱ ( ╱ // 0xf8e @0x8
0x0f86…0fa6 at0009 = ╱46╱F╱ // 0xf8f @0x9
0x0f86…0fa6 at000a = ╱34╱4╱ // 0xf90 @0xa
0x0f86…0fa6 at000b = ╱ef╱ $ ╱ // 0xf91 @0xb
0x0f86…0fa6 at000c = ╱ec╱ , ╱ // 0xf92 @0xc
0x0f86…0fa6 at000d = ╱42╱B╱ // 0xf93 @0xd
0x0f86…0fa6 at000e = ╱38╱8╱ // 0xf94 @0xe
0x0f86…0fa6 at000f = ╱ef╱ $ ╱ // 0xf95 @0xf
0x0f86…0fa6 at0010 = ╱ec╱ , ╱ // 0xf96 @0x10
0x0f86…0fa6 at0011 = ╱30╱0╱ // 0xf97 @0x11
0x0f86…0fa6 at0012 = ╱fe00000000╱ // 0xf98 @0x12
0x0f86…0fa6 at0017 = ╱ec╱ , ╱ // 0xf9d @0x17
0x0f86…0fa6 at0018 = ╱30╱0╱ // 0xf9e @0x18
0x0f86…0fa6 at0019 = ╱fe00000000╱ // 0xf9f @0x19
0x0f86…0fa6 at001e = ╱ee╱ ) ╱ // 0xfa4 @0x1e
0x0f86…0fa6 at001f = EOL // 0xfa5 @0x1f
0x0f86…0fa6 }
0x0fa6…0faf 96fc 1880 PRINT B8 $
0x0fa6…0faf LineComalBcd {
0x0fa6…0faf ptr = 0x96fc // 0xfa6 @0x0
0x0fa6…0faf lno = 0x1880 // 0xfa8 @0x2
0x0fa6…0faf at0004 = ╱92╱ PRINT ╱ // 0xfaa @0x4
0x0fa6…0faf at0005 = ╱42╱B╱ // 0xfab @0x5
0x0fa6…0faf at0006 = ╱38╱8╱ // 0xfac @0x6
0x0fa6…0faf at0007 = ╱ef╱ $ ╱ // 0xfad @0x7
0x0fa6…0faf at0008 = EOL // 0xfae @0x8
0x0fa6…0faf }
0x0faf…0fbd 970a 1890 H3 = 5
0x0faf…0fbd LineComalBcd {
0x0faf…0fbd ptr = 0x970a // 0xfaf @0x0
0x0faf…0fbd lno = 0x1890 // 0xfb1 @0x2
0x0faf…0fbd at0004 = ╱48╱H╱ // 0xfb3 @0x4
0x0faf…0fbd at0005 = ╱33╱3╱ // 0xfb4 @0x5
0x0faf…0fbd at0006 = ╱dc╱ = ╱ // 0xfb5 @0x6
0x0faf…0fbd at0007 = ╱35╱5╱ // 0xfb6 @0x7
0x0faf…0fbd at0008 = ╱fe0000a003╱ // 0xfb7 @0x8
0x0faf…0fbd at000d = EOL // 0xfbc @0xd
0x0faf…0fbd }
0x0fbd…0fd7 9724 1900 IF I1 = 1 THEN H3 = - 1
0x0fbd…0fd7 LineComalBcd {
0x0fbd…0fd7 ptr = 0x9724 // 0xfbd @0x0
0x0fbd…0fd7 lno = 0x1900 // 0xfbf @0x2
0x0fbd…0fd7 at0004 = ╱82╱ IF ╱ // 0xfc1 @0x4
0x0fbd…0fd7 at0005 = ╱49╱I╱ // 0xfc2 @0x5
0x0fbd…0fd7 at0006 = ╱31╱1╱ // 0xfc3 @0x6
0x0fbd…0fd7 at0007 = ╱dc╱ = ╱ // 0xfc4 @0x7
0x0fbd…0fd7 at0008 = ╱31╱1╱ // 0xfc5 @0x8
0x0fbd…0fd7 at0009 = ╱fe00008001╱ // 0xfc6 @0x9
0x0fbd…0fd7 at000e = ╱b6╱ THEN ╱ // 0xfcb @0xe
0x0fbd…0fd7 at000f = ╱48╱H╱ // 0xfcc @0xf
0x0fbd…0fd7 at0010 = ╱33╱3╱ // 0xfcd @0x10
0x0fbd…0fd7 at0011 = ╱dc╱ = ╱ // 0xfce @0x11
0x0fbd…0fd7 at0012 = ╱e9╱ - ╱ // 0xfcf @0x12
0x0fbd…0fd7 at0013 = ╱31╱1╱ // 0xfd0 @0x13
0x0fbd…0fd7 at0014 = ╱fe00008001╱ // 0xfd1 @0x14
0x0fbd…0fd7 at0019 = EOL // 0xfd6 @0x19
0x0fbd…0fd7 }
0x0fd7…0fe4 9731 1910 WHEN 5
0x0fd7…0fe4 LineComalBcd {
0x0fd7…0fe4 ptr = 0x9731 // 0xfd7 @0x0
0x0fd7…0fe4 lno = 0x1910 // 0xfd9 @0x2
0x0fd7…0fe4 at0004 = ╱a301╱ WHEN ╱ // 0xfdb @0x4
0x0fd7…0fe4 at0006 = ╱35╱5╱ // 0xfdd @0x6
0x0fd7…0fe4 at0007 = ╱fe0000a003╱ // 0xfde @0x7
0x0fd7…0fe4 at000c = EOL // 0xfe3 @0xc
0x0fd7…0fe4 }
0x0fe4…0fea 9737 1920 REPEAT
0x0fe4…0fea LineComalBcd {
0x0fe4…0fea ptr = 0x9737 // 0xfe4 @0x0
0x0fe4…0fea lno = 0x1920 // 0xfe6 @0x2
0x0fe4…0fea at0004 = ╱97╱ REPEAT ╱ // 0xfe8 @0x4
0x0fe4…0fea at0005 = EOL // 0xfe9 @0x5
0x0fe4…0fea }
0x0fea…0ffe 974b 1930 CURSOR 3 , 23
0x0fea…0ffe LineComalBcd {
0x0fea…0ffe ptr = 0x974b // 0xfea @0x0
0x0fea…0ffe lno = 0x1930 // 0xfec @0x2
0x0fea…0ffe at0004 = ╱a1╱ CURSOR ╱ // 0xfee @0x4
0x0fea…0ffe at0005 = ╱33╱3╱ // 0xfef @0x5
0x0fea…0ffe at0006 = ╱fe0000c002╱ // 0xff0 @0x6
0x0fea…0ffe at000b = ╱ec╱ , ╱ // 0xff5 @0xb
0x0fea…0ffe at000c = ╱32╱2╱ // 0xff6 @0xc
0x0fea…0ffe at000d = ╱33╱3╱ // 0xff7 @0xd
0x0fea…0ffe at000e = ╱fe0000b805╱ // 0xff8 @0xe
0x0fea…0ffe at0013 = EOL // 0xffd @0x13
0x0fea…0ffe }
0x0ffe…1049 9796 1940 PRINT "Kode………(0:Annullering,…1:Kasse,…2:Giro,…3:Bank)" + B7 $ ( 1 : 27 )
0x0ffe…1049 LineComalBcd {
0x0ffe…1049 ptr = 0x9796 // 0xffe @0x0
0x0ffe…1049 lno = 0x1940 // 0x1000 @0x2
0x0ffe…1049 at0004 = ╱92╱ PRINT ╱ // 0x1002 @0x4
0x0ffe…1049 at0005 = ╱22╱"╱ // 0x1003 @0x5
0x0ffe…1049 at0006 = ╱4b╱K╱ // 0x1004 @0x6
0x0ffe…1049 at0007 = ╱6f╱o╱ // 0x1005 @0x7
0x0ffe…1049 at0008 = ╱64╱d╱ // 0x1006 @0x8
0x0ffe…1049 at0009 = ╱65╱e╱ // 0x1007 @0x9
0x0ffe…1049 at000a = ╱20╱…╱ // 0x1008 @0xa
0x0ffe…1049 at000b = ╱20╱…╱ // 0x1009 @0xb
0x0ffe…1049 at000c = ╱20╱…╱ // 0x100a @0xc
0x0ffe…1049 at000d = ╱28╱(╱ // 0x100b @0xd
0x0ffe…1049 at000e = ╱30╱0╱ // 0x100c @0xe
0x0ffe…1049 at000f = ╱3a╱:╱ // 0x100d @0xf
0x0ffe…1049 at0010 = ╱41╱A╱ // 0x100e @0x10
0x0ffe…1049 at0011 = ╱6e╱n╱ // 0x100f @0x11
0x0ffe…1049 at0012 = ╱6e╱n╱ // 0x1010 @0x12
0x0ffe…1049 at0013 = ╱75╱u╱ // 0x1011 @0x13
0x0ffe…1049 at0014 = ╱6c╱l╱ // 0x1012 @0x14
0x0ffe…1049 at0015 = ╱6c╱l╱ // 0x1013 @0x15
0x0ffe…1049 at0016 = ╱65╱e╱ // 0x1014 @0x16
0x0ffe…1049 at0017 = ╱72╱r╱ // 0x1015 @0x17
0x0ffe…1049 at0018 = ╱69╱i╱ // 0x1016 @0x18
0x0ffe…1049 at0019 = ╱6e╱n╱ // 0x1017 @0x19
0x0ffe…1049 at001a = ╱67╱g╱ // 0x1018 @0x1a
0x0ffe…1049 at001b = ╱2c╱,╱ // 0x1019 @0x1b
0x0ffe…1049 at001c = ╱20╱…╱ // 0x101a @0x1c
0x0ffe…1049 at001d = ╱31╱1╱ // 0x101b @0x1d
0x0ffe…1049 at001e = ╱3a╱:╱ // 0x101c @0x1e
0x0ffe…1049 at001f = ╱4b╱K╱ // 0x101d @0x1f
0x0ffe…1049 at0020 = ╱61╱a╱ // 0x101e @0x20
0x0ffe…1049 at0021 = ╱73╱s╱ // 0x101f @0x21
0x0ffe…1049 at0022 = ╱73╱s╱ // 0x1020 @0x22
0x0ffe…1049 at0023 = ╱65╱e╱ // 0x1021 @0x23
0x0ffe…1049 at0024 = ╱2c╱,╱ // 0x1022 @0x24
0x0ffe…1049 at0025 = ╱20╱…╱ // 0x1023 @0x25
0x0ffe…1049 at0026 = ╱32╱2╱ // 0x1024 @0x26
0x0ffe…1049 at0027 = ╱3a╱:╱ // 0x1025 @0x27
0x0ffe…1049 at0028 = ╱47╱G╱ // 0x1026 @0x28
0x0ffe…1049 at0029 = ╱69╱i╱ // 0x1027 @0x29
0x0ffe…1049 at002a = ╱72╱r╱ // 0x1028 @0x2a
0x0ffe…1049 at002b = ╱6f╱o╱ // 0x1029 @0x2b
0x0ffe…1049 at002c = ╱2c╱,╱ // 0x102a @0x2c
0x0ffe…1049 at002d = ╱20╱…╱ // 0x102b @0x2d
0x0ffe…1049 at002e = ╱33╱3╱ // 0x102c @0x2e
0x0ffe…1049 at002f = ╱3a╱:╱ // 0x102d @0x2f
0x0ffe…1049 at0030 = ╱42╱B╱ // 0x102e @0x30
0x0ffe…1049 at0031 = ╱61╱a╱ // 0x102f @0x31
0x0ffe…1049 at0032 = ╱6e╱n╱ // 0x1030 @0x32
0x0ffe…1049 at0033 = ╱6b╱k╱ // 0x1031 @0x33
0x0ffe…1049 at0034 = ╱29╱)╱ // 0x1032 @0x34
0x0ffe…1049 at0035 = ╱22╱"╱ // 0x1033 @0x35
0x0ffe…1049 at0036 = ╱f1╱ + ╱ // 0x1034 @0x36
0x0ffe…1049 at0037 = ╱42╱B╱ // 0x1035 @0x37
0x0ffe…1049 at0038 = ╱37╱7╱ // 0x1036 @0x38
0x0ffe…1049 at0039 = ╱ef╱ $ ╱ // 0x1037 @0x39
0x0ffe…1049 at003a = ╱ed╱ ( ╱ // 0x1038 @0x3a
0x0ffe…1049 at003b = ╱31╱1╱ // 0x1039 @0x3b
0x0ffe…1049 at003c = ╱fe00008001╱ // 0x103a @0x3c
0x0ffe…1049 at0041 = ╱f0╱ : ╱ // 0x103f @0x41
0x0ffe…1049 at0042 = ╱32╱2╱ // 0x1040 @0x42
0x0ffe…1049 at0043 = ╱37╱7╱ // 0x1041 @0x43
0x0ffe…1049 at0044 = ╱fe0000d805╱ // 0x1042 @0x44
0x0ffe…1049 at0049 = ╱ee╱ ) ╱ // 0x1047 @0x49
0x0ffe…1049 at004a = EOL // 0x1048 @0x4a
0x0ffe…1049 }
0x1049…105d 97aa 1950 CURSOR 7 , 23
0x1049…105d LineComalBcd {
0x1049…105d ptr = 0x97aa // 0x1049 @0x0
0x1049…105d lno = 0x1950 // 0x104b @0x2
0x1049…105d at0004 = ╱a1╱ CURSOR ╱ // 0x104d @0x4
0x1049…105d at0005 = ╱37╱7╱ // 0x104e @0x5
0x1049…105d at0006 = ╱fe0000e003╱ // 0x104f @0x6
0x1049…105d at000b = ╱ec╱ , ╱ // 0x1054 @0xb
0x1049…105d at000c = ╱32╱2╱ // 0x1055 @0xc
0x1049…105d at000d = ╱33╱3╱ // 0x1056 @0xd
0x1049…105d at000e = ╱fe0000b805╱ // 0x1057 @0xe
0x1049…105d at0013 = EOL // 0x105c @0x13
0x1049…105d }
0x105d…1066 97b3 1960 INPUT D5 $
0x105d…1066 LineComalBcd {
0x105d…1066 ptr = 0x97b3 // 0x105d @0x0
0x105d…1066 lno = 0x1960 // 0x105f @0x2
0x105d…1066 at0004 = ╱91╱ INPUT ╱ // 0x1061 @0x4
0x105d…1066 at0005 = ╱44╱D╱ // 0x1062 @0x5
0x105d…1066 at0006 = ╱35╱5╱ // 0x1063 @0x6
0x105d…1066 at0007 = ╱ef╱ $ ╱ // 0x1064 @0x7
0x105d…1066 at0008 = EOL // 0x1065 @0x8
0x105d…1066 }
0x1066…1077 97c4 1970 EXEC NRTEST ( D5 $ )
0x1066…1077 LineComalBcd {
0x1066…1077 ptr = 0x97c4 // 0x1066 @0x0
0x1066…1077 lno = 0x1970 // 0x1068 @0x2
0x1066…1077 at0004 = ╱9d╱ EXEC ╱ // 0x106a @0x4
0x1066…1077 at0005 = ╱4e╱N╱ // 0x106b @0x5
0x1066…1077 at0006 = ╱52╱R╱ // 0x106c @0x6
0x1066…1077 at0007 = ╱54╱T╱ // 0x106d @0x7
0x1066…1077 at0008 = ╱45╱E╱ // 0x106e @0x8
0x1066…1077 at0009 = ╱53╱S╱ // 0x106f @0x9
0x1066…1077 at000a = ╱54╱T╱ // 0x1070 @0xa
0x1066…1077 at000b = ╱ed╱ ( ╱ // 0x1071 @0xb
0x1066…1077 at000c = ╱44╱D╱ // 0x1072 @0xc
0x1066…1077 at000d = ╱35╱5╱ // 0x1073 @0xd
0x1066…1077 at000e = ╱ef╱ $ ╱ // 0x1074 @0xe
0x1066…1077 at000f = ╱ee╱ ) ╱ // 0x1075 @0xf
0x1066…1077 at0010 = EOL // 0x1076 @0x10
0x1066…1077 }
0x1077…10a5 97f2 1980 UNTIL ( P > 0 AND P < 4 ) OR ( P = 0 AND I1 >< 1 )
0x1077…10a5 LineComalBcd {
0x1077…10a5 ptr = 0x97f2 // 0x1077 @0x0
0x1077…10a5 lno = 0x1980 // 0x1079 @0x2
0x1077…10a5 at0004 = ╱98╱ UNTIL ╱ // 0x107b @0x4
0x1077…10a5 at0005 = ╱ed╱ ( ╱ // 0x107c @0x5
0x1077…10a5 at0006 = ╱50╱P╱ // 0x107d @0x6
0x1077…10a5 at0007 = ╱de╱ > ╱ // 0x107e @0x7
0x1077…10a5 at0008 = ╱30╱0╱ // 0x107f @0x8
0x1077…10a5 at0009 = ╱fe00000000╱ // 0x1080 @0x9
0x1077…10a5 at000e = ╱da╱ AND ╱ // 0x1085 @0xe
0x1077…10a5 at000f = ╱50╱P╱ // 0x1086 @0xf
0x1077…10a5 at0010 = ╱dd╱ < ╱ // 0x1087 @0x10
0x1077…10a5 at0011 = ╱34╱4╱ // 0x1088 @0x11
0x1077…10a5 at0012 = ╱fe00008003╱ // 0x1089 @0x12
0x1077…10a5 at0017 = ╱ee╱ ) ╱ // 0x108e @0x17
0x1077…10a5 at0018 = ╱db╱ OR ╱ // 0x108f @0x18
0x1077…10a5 at0019 = ╱ed╱ ( ╱ // 0x1090 @0x19
0x1077…10a5 at001a = ╱50╱P╱ // 0x1091 @0x1a
0x1077…10a5 at001b = ╱dc╱ = ╱ // 0x1092 @0x1b
0x1077…10a5 at001c = ╱30╱0╱ // 0x1093 @0x1c
0x1077…10a5 at001d = ╱fe00000000╱ // 0x1094 @0x1d
0x1077…10a5 at0022 = ╱da╱ AND ╱ // 0x1099 @0x22
0x1077…10a5 at0023 = ╱49╱I╱ // 0x109a @0x23
0x1077…10a5 at0024 = ╱31╱1╱ // 0x109b @0x24
0x1077…10a5 at0025 = ╱e1╱ >< ╱ // 0x109c @0x25
0x1077…10a5 at0026 = ╱31╱1╱ // 0x109d @0x26
0x1077…10a5 at0027 = ╱fe00008001╱ // 0x109e @0x27
0x1077…10a5 at002c = ╱ee╱ ) ╱ // 0x10a3 @0x2c
0x1077…10a5 at002d = EOL // 0x10a4 @0x2d
0x1077…10a5 }
0x10a5…10b8 9805 1990 H8 = P ; H3 = 1
0x10a5…10b8 LineComalBcd {
0x10a5…10b8 ptr = 0x9805 // 0x10a5 @0x0
0x10a5…10b8 lno = 0x1990 // 0x10a7 @0x2
0x10a5…10b8 at0004 = ╱48╱H╱ // 0x10a9 @0x4
0x10a5…10b8 at0005 = ╱38╱8╱ // 0x10aa @0x5
0x10a5…10b8 at0006 = ╱dc╱ = ╱ // 0x10ab @0x6
0x10a5…10b8 at0007 = ╱50╱P╱ // 0x10ac @0x7
0x10a5…10b8 at0008 = ╱eb╱ ; ╱ // 0x10ad @0x8
0x10a5…10b8 at0009 = ╱48╱H╱ // 0x10ae @0x9
0x10a5…10b8 at000a = ╱33╱3╱ // 0x10af @0xa
0x10a5…10b8 at000b = ╱dc╱ = ╱ // 0x10b0 @0xb
0x10a5…10b8 at000c = ╱31╱1╱ // 0x10b1 @0xc
0x10a5…10b8 at000d = ╱fe00008001╱ // 0x10b2 @0xd
0x10a5…10b8 at0012 = EOL // 0x10b7 @0x12
0x10a5…10b8 }
0x10b8…10c8 9815 2000 IF H8 = 0 THEN
0x10b8…10c8 LineComalBcd {
0x10b8…10c8 ptr = 0x9815 // 0x10b8 @0x0
0x10b8…10c8 lno = 0x2000 // 0x10ba @0x2
0x10b8…10c8 at0004 = ╱9c╱ IF ╱ // 0x10bc @0x4
0x10b8…10c8 at0005 = ╱48╱H╱ // 0x10bd @0x5
0x10b8…10c8 at0006 = ╱38╱8╱ // 0x10be @0x6
0x10b8…10c8 at0007 = ╱dc╱ = ╱ // 0x10bf @0x7
0x10b8…10c8 at0008 = ╱30╱0╱ // 0x10c0 @0x8
0x10b8…10c8 at0009 = ╱fe00000000╱ // 0x10c1 @0x9
0x10b8…10c8 at000e = ╱b6╱ THEN ╱ // 0x10c6 @0xe
0x10b8…10c8 at000f = EOL // 0x10c7 @0xf
0x10b8…10c8 }
0x10c8…10da 9827 2010 EXEC KLET ( 5 )
0x10c8…10da LineComalBcd {
0x10c8…10da ptr = 0x9827 // 0x10c8 @0x0
0x10c8…10da lno = 0x2010 // 0x10ca @0x2
0x10c8…10da at0004 = ╱9d╱ EXEC ╱ // 0x10cc @0x4
0x10c8…10da at0005 = ╱4b╱K╱ // 0x10cd @0x5
0x10c8…10da at0006 = ╱4c╱L╱ // 0x10ce @0x6
0x10c8…10da at0007 = ╱45╱E╱ // 0x10cf @0x7
0x10c8…10da at0008 = ╱54╱T╱ // 0x10d0 @0x8
0x10c8…10da at0009 = ╱ed╱ ( ╱ // 0x10d1 @0x9
0x10c8…10da at000a = ╱35╱5╱ // 0x10d2 @0xa
0x10c8…10da at000b = ╱fe0000a003╱ // 0x10d3 @0xb
0x10c8…10da at0010 = ╱ee╱ ) ╱ // 0x10d8 @0x10
0x10c8…10da at0011 = EOL // 0x10d9 @0x11
0x10c8…10da }
0x10da…10eb 9838 2020 I0 = I0 - 1
0x10da…10eb LineComalBcd {
0x10da…10eb ptr = 0x9838 // 0x10da @0x0
0x10da…10eb lno = 0x2020 // 0x10dc @0x2
0x10da…10eb at0004 = ╱49╱I╱ // 0x10de @0x4
0x10da…10eb at0005 = ╱30╱0╱ // 0x10df @0x5
0x10da…10eb at0006 = ╱dc╱ = ╱ // 0x10e0 @0x6
0x10da…10eb at0007 = ╱49╱I╱ // 0x10e1 @0x7
0x10da…10eb at0008 = ╱30╱0╱ // 0x10e2 @0x8
0x10da…10eb at0009 = ╱e3╱ - ╱ // 0x10e3 @0x9
0x10da…10eb at000a = ╱31╱1╱ // 0x10e4 @0xa
0x10da…10eb at000b = ╱fe00008001╱ // 0x10e5 @0xb
0x10da…10eb at0010 = EOL // 0x10ea @0x10
0x10da…10eb }
0x10eb…10f1 983e 2030 ELSE
0x10eb…10f1 LineComalBcd {
0x10eb…10f1 ptr = 0x983e // 0x10eb @0x0
0x10eb…10f1 lno = 0x2030 // 0x10ed @0x2
0x10eb…10f1 at0004 = ╱9a╱ ELSE ╱ // 0x10ef @0x4
0x10eb…10f1 at0005 = EOL // 0x10f0 @0x5
0x10eb…10f1 }
0x10f1…1108 9855 2040 CURSOR 77 , H5 + 3
0x10f1…1108 LineComalBcd {
0x10f1…1108 ptr = 0x9855 // 0x10f1 @0x0
0x10f1…1108 lno = 0x2040 // 0x10f3 @0x2
0x10f1…1108 at0004 = ╱a1╱ CURSOR ╱ // 0x10f5 @0x4
0x10f1…1108 at0005 = ╱37╱7╱ // 0x10f6 @0x5
0x10f1…1108 at0006 = ╱37╱7╱ // 0x10f7 @0x6
0x10f1…1108 at0007 = ╱fe00009a07╱ // 0x10f8 @0x7
0x10f1…1108 at000c = ╱ec╱ , ╱ // 0x10fd @0xc
0x10f1…1108 at000d = ╱48╱H╱ // 0x10fe @0xd
0x10f1…1108 at000e = ╱35╱5╱ // 0x10ff @0xe
0x10f1…1108 at000f = ╱e2╱ + ╱ // 0x1100 @0xf
0x10f1…1108 at0010 = ╱33╱3╱ // 0x1101 @0x10
0x10f1…1108 at0011 = ╱fe0000c002╱ // 0x1102 @0x11
0x10f1…1108 at0016 = EOL // 0x1107 @0x16
0x10f1…1108 }
0x1108…1116 9863 2050 PRINT USING "##" : H8
0x1108…1116 LineComalBcd {
0x1108…1116 ptr = 0x9863 // 0x1108 @0x0
0x1108…1116 lno = 0x2050 // 0x110a @0x2
0x1108…1116 at0004 = ╱92╱ PRINT ╱ // 0x110c @0x4
0x1108…1116 at0005 = ╱b9╱ USING ╱ // 0x110d @0x5
0x1108…1116 at0006 = ╱22╱"╱ // 0x110e @0x6
0x1108…1116 at0007 = ╱23╱#╱ // 0x110f @0x7
0x1108…1116 at0008 = ╱23╱#╱ // 0x1110 @0x8
0x1108…1116 at0009 = ╱22╱"╱ // 0x1111 @0x9
0x1108…1116 at000a = ╱f0╱ : ╱ // 0x1112 @0xa
0x1108…1116 at000b = ╱48╱H╱ // 0x1113 @0xb
0x1108…1116 at000c = ╱38╱8╱ // 0x1114 @0xc
0x1108…1116 at000d = EOL // 0x1115 @0xd
0x1108…1116 }
0x1116…1126 9873 2060 IF I1 >< 1 THEN
0x1116…1126 LineComalBcd {
0x1116…1126 ptr = 0x9873 // 0x1116 @0x0
0x1116…1126 lno = 0x2060 // 0x1118 @0x2
0x1116…1126 at0004 = ╱9c╱ IF ╱ // 0x111a @0x4
0x1116…1126 at0005 = ╱49╱I╱ // 0x111b @0x5
0x1116…1126 at0006 = ╱31╱1╱ // 0x111c @0x6
0x1116…1126 at0007 = ╱e1╱ >< ╱ // 0x111d @0x7
0x1116…1126 at0008 = ╱31╱1╱ // 0x111e @0x8
0x1116…1126 at0009 = ╱fe00008001╱ // 0x111f @0x9
0x1116…1126 at000e = ╱b6╱ THEN ╱ // 0x1124 @0xe
0x1116…1126 at000f = EOL // 0x1125 @0xf
0x1116…1126 }
0x1126…113e 988b 2070 EXEC [ND ( 0 , F4 $ , H8 )
0x1126…113e LineComalBcd {
0x1126…113e ptr = 0x988b // 0x1126 @0x0
0x1126…113e lno = 0x2070 // 0x1128 @0x2
0x1126…113e at0004 = ╱9d╱ EXEC ╱ // 0x112a @0x4
0x1126…113e at0005 = ╱5b╱[╱ // 0x112b @0x5
0x1126…113e at0006 = ╱4e╱N╱ // 0x112c @0x6
0x1126…113e at0007 = ╱44╱D╱ // 0x112d @0x7
0x1126…113e at0008 = ╱ed╱ ( ╱ // 0x112e @0x8
0x1126…113e at0009 = ╱30╱0╱ // 0x112f @0x9
0x1126…113e at000a = ╱fe00000000╱ // 0x1130 @0xa
0x1126…113e at000f = ╱ec╱ , ╱ // 0x1135 @0xf
0x1126…113e at0010 = ╱46╱F╱ // 0x1136 @0x10
0x1126…113e at0011 = ╱34╱4╱ // 0x1137 @0x11
0x1126…113e at0012 = ╱ef╱ $ ╱ // 0x1138 @0x12
0x1126…113e at0013 = ╱ec╱ , ╱ // 0x1139 @0x13
0x1126…113e at0014 = ╱48╱H╱ // 0x113a @0x14
0x1126…113e at0015 = ╱38╱8╱ // 0x113b @0x15
0x1126…113e at0016 = ╱ee╱ ) ╱ // 0x113c @0x16
0x1126…113e at0017 = EOL // 0x113d @0x17
0x1126…113e }
0x113e…114f 989c 2080 H5 = H5 + 1
0x113e…114f LineComalBcd {
0x113e…114f ptr = 0x989c // 0x113e @0x0
0x113e…114f lno = 0x2080 // 0x1140 @0x2
0x113e…114f at0004 = ╱48╱H╱ // 0x1142 @0x4
0x113e…114f at0005 = ╱35╱5╱ // 0x1143 @0x5
0x113e…114f at0006 = ╱dc╱ = ╱ // 0x1144 @0x6
0x113e…114f at0007 = ╱48╱H╱ // 0x1145 @0x7
0x113e…114f at0008 = ╱35╱5╱ // 0x1146 @0x8
0x113e…114f at0009 = ╱e2╱ + ╱ // 0x1147 @0x9
0x113e…114f at000a = ╱31╱1╱ // 0x1148 @0xa
0x113e…114f at000b = ╱fe00008001╱ // 0x1149 @0xb
0x113e…114f at0010 = EOL // 0x114e @0x10
0x113e…114f }
0x114f…115e 98ab 2090 EXEC GENNYPOST
0x114f…115e LineComalBcd {
0x114f…115e ptr = 0x98ab // 0x114f @0x0
0x114f…115e lno = 0x2090 // 0x1151 @0x2
0x114f…115e at0004 = ╱9d╱ EXEC ╱ // 0x1153 @0x4
0x114f…115e at0005 = ╱47╱G╱ // 0x1154 @0x5
0x114f…115e at0006 = ╱45╱E╱ // 0x1155 @0x6
0x114f…115e at0007 = ╱4e╱N╱ // 0x1156 @0x7
0x114f…115e at0008 = ╱4e╱N╱ // 0x1157 @0x8
0x114f…115e at0009 = ╱59╱Y╱ // 0x1158 @0x9
0x114f…115e at000a = ╱50╱P╱ // 0x1159 @0xa
0x114f…115e at000b = ╱4f╱O╱ // 0x115a @0xb
0x114f…115e at000c = ╱53╱S╱ // 0x115b @0xc
0x114f…115e at000d = ╱54╱T╱ // 0x115c @0xd
0x114f…115e at000e = EOL // 0x115d @0xe
0x114f…115e }
0x115e…1164 98b1 2100 ENDIF
0x115e…1164 LineComalBcd {
0x115e…1164 ptr = 0x98b1 // 0x115e @0x0
0x115e…1164 lno = 0x2100 // 0x1160 @0x2
0x115e…1164 at0004 = ╱9b╱ ENDIF ╱ // 0x1162 @0x4
0x115e…1164 at0005 = EOL // 0x1163 @0x5
0x115e…1164 }
0x1164…116a 98b7 2110 ENDIF
0x1164…116a LineComalBcd {
0x1164…116a ptr = 0x98b7 // 0x1164 @0x0
0x1164…116a lno = 0x2110 // 0x1166 @0x2
0x1164…116a at0004 = ╱9b╱ ENDIF ╱ // 0x1168 @0x4
0x1164…116a at0005 = EOL // 0x1169 @0x5
0x1164…116a }
0x116a…1184 98d1 2120 IF I1 = 1 THEN H3 = - 1
0x116a…1184 LineComalBcd {
0x116a…1184 ptr = 0x98d1 // 0x116a @0x0
0x116a…1184 lno = 0x2120 // 0x116c @0x2
0x116a…1184 at0004 = ╱82╱ IF ╱ // 0x116e @0x4
0x116a…1184 at0005 = ╱49╱I╱ // 0x116f @0x5
0x116a…1184 at0006 = ╱31╱1╱ // 0x1170 @0x6
0x116a…1184 at0007 = ╱dc╱ = ╱ // 0x1171 @0x7
0x116a…1184 at0008 = ╱31╱1╱ // 0x1172 @0x8
0x116a…1184 at0009 = ╱fe00008001╱ // 0x1173 @0x9
0x116a…1184 at000e = ╱b6╱ THEN ╱ // 0x1178 @0xe
0x116a…1184 at000f = ╱48╱H╱ // 0x1179 @0xf
0x116a…1184 at0010 = ╱33╱3╱ // 0x117a @0x10
0x116a…1184 at0011 = ╱dc╱ = ╱ // 0x117b @0x11
0x116a…1184 at0012 = ╱e9╱ - ╱ // 0x117c @0x12
0x116a…1184 at0013 = ╱31╱1╱ // 0x117d @0x13
0x116a…1184 at0014 = ╱fe00008001╱ // 0x117e @0x14
0x116a…1184 at0019 = EOL // 0x1183 @0x19
0x116a…1184 }
0x1184…1191 98de 2130 WHEN 6
0x1184…1191 LineComalBcd {
0x1184…1191 ptr = 0x98de // 0x1184 @0x0
0x1184…1191 lno = 0x2130 // 0x1186 @0x2
0x1184…1191 at0004 = ╱a301╱ WHEN ╱ // 0x1188 @0x4
0x1184…1191 at0006 = ╱36╱6╱ // 0x118a @0x6
0x1184…1191 at0007 = ╱fe0000c003╱ // 0x118b @0x7
0x1184…1191 at000c = EOL // 0x1190 @0xc
0x1184…1191 }
0x1191…1197 98e4 2140 REPEAT
0x1191…1197 LineComalBcd {
0x1191…1197 ptr = 0x98e4 // 0x1191 @0x0
0x1191…1197 lno = 0x2140 // 0x1193 @0x2
0x1191…1197 at0004 = ╱97╱ REPEAT ╱ // 0x1195 @0x4
0x1191…1197 at0005 = EOL // 0x1196 @0x5
0x1191…1197 }
0x1197…11ab 98f8 2150 CURSOR 3 , 23
0x1197…11ab LineComalBcd {
0x1197…11ab ptr = 0x98f8 // 0x1197 @0x0
0x1197…11ab lno = 0x2150 // 0x1199 @0x2
0x1197…11ab at0004 = ╱a1╱ CURSOR ╱ // 0x119b @0x4
0x1197…11ab at0005 = ╱33╱3╱ // 0x119c @0x5
0x1197…11ab at0006 = ╱fe0000c002╱ // 0x119d @0x6
0x1197…11ab at000b = ╱ec╱ , ╱ // 0x11a2 @0xb
0x1197…11ab at000c = ╱32╱2╱ // 0x11a3 @0xc
0x1197…11ab at000d = ╱33╱3╱ // 0x11a4 @0xd
0x1197…11ab at000e = ╱fe0000b805╱ // 0x11a5 @0xe
0x1197…11ab at0013 = EOL // 0x11aa @0x13
0x1197…11ab }
0x11ab…11dd 992a 2160 PRINT "\nskes…afstemning…J/N…" + B7 $ ( 1 : 54 )
0x11ab…11dd LineComalBcd {
0x11ab…11dd ptr = 0x992a // 0x11ab @0x0
0x11ab…11dd lno = 0x2160 // 0x11ad @0x2
0x11ab…11dd at0004 = ╱92╱ PRINT ╱ // 0x11af @0x4
0x11ab…11dd at0005 = ╱22╱"╱ // 0x11b0 @0x5
0x11ab…11dd at0006 = ╱5c╱\╱ // 0x11b1 @0x6
0x11ab…11dd at0007 = ╱6e╱n╱ // 0x11b2 @0x7
0x11ab…11dd at0008 = ╱73╱s╱ // 0x11b3 @0x8
0x11ab…11dd at0009 = ╱6b╱k╱ // 0x11b4 @0x9
0x11ab…11dd at000a = ╱65╱e╱ // 0x11b5 @0xa
0x11ab…11dd at000b = ╱73╱s╱ // 0x11b6 @0xb
0x11ab…11dd at000c = ╱20╱…╱ // 0x11b7 @0xc
0x11ab…11dd at000d = ╱61╱a╱ // 0x11b8 @0xd
0x11ab…11dd at000e = ╱66╱f╱ // 0x11b9 @0xe
0x11ab…11dd at000f = ╱73╱s╱ // 0x11ba @0xf
0x11ab…11dd at0010 = ╱74╱t╱ // 0x11bb @0x10
0x11ab…11dd at0011 = ╱65╱e╱ // 0x11bc @0x11
0x11ab…11dd at0012 = ╱6d╱m╱ // 0x11bd @0x12
0x11ab…11dd at0013 = ╱6e╱n╱ // 0x11be @0x13
0x11ab…11dd at0014 = ╱69╱i╱ // 0x11bf @0x14
0x11ab…11dd at0015 = ╱6e╱n╱ // 0x11c0 @0x15
0x11ab…11dd at0016 = ╱67╱g╱ // 0x11c1 @0x16
0x11ab…11dd at0017 = ╱20╱…╱ // 0x11c2 @0x17
0x11ab…11dd at0018 = ╱4a╱J╱ // 0x11c3 @0x18
0x11ab…11dd at0019 = ╱2f╱/╱ // 0x11c4 @0x19
0x11ab…11dd at001a = ╱4e╱N╱ // 0x11c5 @0x1a
0x11ab…11dd at001b = ╱20╱…╱ // 0x11c6 @0x1b
0x11ab…11dd at001c = ╱22╱"╱ // 0x11c7 @0x1c
0x11ab…11dd at001d = ╱f1╱ + ╱ // 0x11c8 @0x1d
0x11ab…11dd at001e = ╱42╱B╱ // 0x11c9 @0x1e
0x11ab…11dd at001f = ╱37╱7╱ // 0x11ca @0x1f
0x11ab…11dd at0020 = ╱ef╱ $ ╱ // 0x11cb @0x20
0x11ab…11dd at0021 = ╱ed╱ ( ╱ // 0x11cc @0x21
0x11ab…11dd at0022 = ╱31╱1╱ // 0x11cd @0x22
0x11ab…11dd at0023 = ╱fe00008001╱ // 0x11ce @0x23
0x11ab…11dd at0028 = ╱f0╱ : ╱ // 0x11d3 @0x28
0x11ab…11dd at0029 = ╱35╱5╱ // 0x11d4 @0x29
0x11ab…11dd at002a = ╱34╱4╱ // 0x11d5 @0x2a
0x11ab…11dd at002b = ╱fe0000d806╱ // 0x11d6 @0x2b
0x11ab…11dd at0030 = ╱ee╱ ) ╱ // 0x11db @0x30
0x11ab…11dd at0031 = EOL // 0x11dc @0x31
0x11ab…11dd }
0x11dd…11f2 993f 2170 CURSOR 22 , 23
0x11dd…11f2 LineComalBcd {
0x11dd…11f2 ptr = 0x993f // 0x11dd @0x0
0x11dd…11f2 lno = 0x2170 // 0x11df @0x2
0x11dd…11f2 at0004 = ╱a1╱ CURSOR ╱ // 0x11e1 @0x4
0x11dd…11f2 at0005 = ╱32╱2╱ // 0x11e2 @0x5
0x11dd…11f2 at0006 = ╱32╱2╱ // 0x11e3 @0x6
0x11dd…11f2 at0007 = ╱fe0000b005╱ // 0x11e4 @0x7
0x11dd…11f2 at000c = ╱ec╱ , ╱ // 0x11e9 @0xc
0x11dd…11f2 at000d = ╱32╱2╱ // 0x11ea @0xd
0x11dd…11f2 at000e = ╱33╱3╱ // 0x11eb @0xe
0x11dd…11f2 at000f = ╱fe0000b805╱ // 0x11ec @0xf
0x11dd…11f2 at0014 = EOL // 0x11f1 @0x14
0x11dd…11f2 }
0x11f2…11fa 9947 2180 INPUT A $
0x11f2…11fa LineComalBcd {
0x11f2…11fa ptr = 0x9947 // 0x11f2 @0x0
0x11f2…11fa lno = 0x2180 // 0x11f4 @0x2
0x11f2…11fa at0004 = ╱91╱ INPUT ╱ // 0x11f6 @0x4
0x11f2…11fa at0005 = ╱41╱A╱ // 0x11f7 @0x5
0x11f2…11fa at0006 = ╱ef╱ $ ╱ // 0x11f8 @0x6
0x11f2…11fa at0007 = EOL // 0x11f9 @0x7
0x11f2…11fa }
0x11fa…120a 9957 2190 EXEC NRTEST ( A $ )
0x11fa…120a LineComalBcd {
0x11fa…120a ptr = 0x9957 // 0x11fa @0x0
0x11fa…120a lno = 0x2190 // 0x11fc @0x2
0x11fa…120a at0004 = ╱9d╱ EXEC ╱ // 0x11fe @0x4
0x11fa…120a at0005 = ╱4e╱N╱ // 0x11ff @0x5
0x11fa…120a at0006 = ╱52╱R╱ // 0x1200 @0x6
0x11fa…120a at0007 = ╱54╱T╱ // 0x1201 @0x7
0x11fa…120a at0008 = ╱45╱E╱ // 0x1202 @0x8
0x11fa…120a at0009 = ╱53╱S╱ // 0x1203 @0x9
0x11fa…120a at000a = ╱54╱T╱ // 0x1204 @0xa
0x11fa…120a at000b = ╱ed╱ ( ╱ // 0x1205 @0xb
0x11fa…120a at000c = ╱41╱A╱ // 0x1206 @0xc
0x11fa…120a at000d = ╱ef╱ $ ╱ // 0x1207 @0xd
0x11fa…120a at000e = ╱ee╱ ) ╱ // 0x1208 @0xe
0x11fa…120a at000f = EOL // 0x1209 @0xf
0x11fa…120a }
0x120a…1223 9970 2200 UNTIL P = - 7 OR P = - 8
0x120a…1223 LineComalBcd {
0x120a…1223 ptr = 0x9970 // 0x120a @0x0
0x120a…1223 lno = 0x2200 // 0x120c @0x2
0x120a…1223 at0004 = ╱98╱ UNTIL ╱ // 0x120e @0x4
0x120a…1223 at0005 = ╱50╱P╱ // 0x120f @0x5
0x120a…1223 at0006 = ╱dc╱ = ╱ // 0x1210 @0x6
0x120a…1223 at0007 = ╱e9╱ - ╱ // 0x1211 @0x7
0x120a…1223 at0008 = ╱37╱7╱ // 0x1212 @0x8
0x120a…1223 at0009 = ╱fe0000e003╱ // 0x1213 @0x9
0x120a…1223 at000e = ╱db╱ OR ╱ // 0x1218 @0xe
0x120a…1223 at000f = ╱50╱P╱ // 0x1219 @0xf
0x120a…1223 at0010 = ╱dc╱ = ╱ // 0x121a @0x10
0x120a…1223 at0011 = ╱e9╱ - ╱ // 0x121b @0x11
0x120a…1223 at0012 = ╱38╱8╱ // 0x121c @0x12
0x120a…1223 at0013 = ╱fe00008004╱ // 0x121d @0x13
0x120a…1223 at0018 = EOL // 0x1222 @0x18
0x120a…1223 }
0x1223…122f 997c 2210 EXEC KYSGEM
0x1223…122f LineComalBcd {
0x1223…122f ptr = 0x997c // 0x1223 @0x0
0x1223…122f lno = 0x2210 // 0x1225 @0x2
0x1223…122f at0004 = ╱9d╱ EXEC ╱ // 0x1227 @0x4
0x1223…122f at0005 = ╱4b╱K╱ // 0x1228 @0x5
0x1223…122f at0006 = ╱59╱Y╱ // 0x1229 @0x6
0x1223…122f at0007 = ╱53╱S╱ // 0x122a @0x7
0x1223…122f at0008 = ╱47╱G╱ // 0x122b @0x8
0x1223…122f at0009 = ╱45╱E╱ // 0x122c @0x9
0x1223…122f at000a = ╱4d╱M╱ // 0x122d @0xa
0x1223…122f at000b = EOL // 0x122e @0xb
0x1223…122f }
0x122f…123f 998c 2220 IF P = - 7 THEN
0x122f…123f LineComalBcd {
0x122f…123f ptr = 0x998c // 0x122f @0x0
0x122f…123f lno = 0x2220 // 0x1231 @0x2
0x122f…123f at0004 = ╱9c╱ IF ╱ // 0x1233 @0x4
0x122f…123f at0005 = ╱50╱P╱ // 0x1234 @0x5
0x122f…123f at0006 = ╱dc╱ = ╱ // 0x1235 @0x6
0x122f…123f at0007 = ╱e9╱ - ╱ // 0x1236 @0x7
0x122f…123f at0008 = ╱37╱7╱ // 0x1237 @0x8
0x122f…123f at0009 = ╱fe0000e003╱ // 0x1238 @0x9
0x122f…123f at000e = ╱b6╱ THEN ╱ // 0x123d @0xe
0x122f…123f at000f = EOL // 0x123e @0xf
0x122f…123f }
0x123f…124d 999a 2230 J4 = 0
0x123f…124d LineComalBcd {
0x123f…124d ptr = 0x999a // 0x123f @0x0
0x123f…124d lno = 0x2230 // 0x1241 @0x2
0x123f…124d at0004 = ╱4a╱J╱ // 0x1243 @0x4
0x123f…124d at0005 = ╱34╱4╱ // 0x1244 @0x5
0x123f…124d at0006 = ╱dc╱ = ╱ // 0x1245 @0x6
0x123f…124d at0007 = ╱30╱0╱ // 0x1246 @0x7
0x123f…124d at0008 = ╱fe00000000╱ // 0x1247 @0x8
0x123f…124d at000d = EOL // 0x124c @0xd
0x123f…124d }
0x124d…1262 99af 2240 FOR I = 1 TO 6
0x124d…1262 LineComalBcd {
0x124d…1262 ptr = 0x99af // 0x124d @0x0
0x124d…1262 lno = 0x2240 // 0x124f @0x2
0x124d…1262 at0004 = ╱83╱ FOR ╱ // 0x1251 @0x4
0x124d…1262 at0005 = ╱49╱I╱ // 0x1252 @0x5
0x124d…1262 at0006 = ╱dc╱ = ╱ // 0x1253 @0x6
0x124d…1262 at0007 = ╱31╱1╱ // 0x1254 @0x7
0x124d…1262 at0008 = ╱fe00008001╱ // 0x1255 @0x8
0x124d…1262 at000d = ╱b7╱ TO ╱ // 0x125a @0xd
0x124d…1262 at000e = ╱36╱6╱ // 0x125b @0xe
0x124d…1262 at000f = ╱fe0000c003╱ // 0x125c @0xf
0x124d…1262 at0014 = EOL // 0x1261 @0x14
0x124d…1262 }
0x1262…1268 99b5 2250 REPEAT
0x1262…1268 LineComalBcd {
0x1262…1268 ptr = 0x99b5 // 0x1262 @0x0
0x1262…1268 lno = 0x2250 // 0x1264 @0x2
0x1262…1268 at0004 = ╱97╱ REPEAT ╱ // 0x1266 @0x4
0x1262…1268 at0005 = EOL // 0x1267 @0x5
0x1262…1268 }
0x1268…126e 99bb 2260 REPEAT
0x1268…126e LineComalBcd {
0x1268…126e ptr = 0x99bb // 0x1268 @0x0
0x1268…126e lno = 0x2260 // 0x126a @0x2
0x1268…126e at0004 = ╱97╱ REPEAT ╱ // 0x126c @0x4
0x1268…126e at0005 = EOL // 0x126d @0x5
0x1268…126e }
0x126e…1282 99cf 2270 CURSOR 3 , 23
0x126e…1282 LineComalBcd {
0x126e…1282 ptr = 0x99cf // 0x126e @0x0
0x126e…1282 lno = 0x2270 // 0x1270 @0x2
0x126e…1282 at0004 = ╱a1╱ CURSOR ╱ // 0x1272 @0x4
0x126e…1282 at0005 = ╱33╱3╱ // 0x1273 @0x5
0x126e…1282 at0006 = ╱fe0000c002╱ // 0x1274 @0x6
0x126e…1282 at000b = ╱ec╱ , ╱ // 0x1279 @0xb
0x126e…1282 at000c = ╱32╱2╱ // 0x127a @0xc
0x126e…1282 at000d = ╱33╱3╱ // 0x127b @0xd
0x126e…1282 at000e = ╱fe0000b805╱ // 0x127c @0xe
0x126e…1282 at0013 = EOL // 0x1281 @0x13
0x126e…1282 }
0x1282…12a2 99ef 2280 PRINT J5 $ ( I ) ; B7 $ ( 1 : 60 )
0x1282…12a2 LineComalBcd {
0x1282…12a2 ptr = 0x99ef // 0x1282 @0x0
0x1282…12a2 lno = 0x2280 // 0x1284 @0x2
0x1282…12a2 at0004 = ╱92╱ PRINT ╱ // 0x1286 @0x4
0x1282…12a2 at0005 = ╱4a╱J╱ // 0x1287 @0x5
0x1282…12a2 at0006 = ╱35╱5╱ // 0x1288 @0x6
0x1282…12a2 at0007 = ╱ef╱ $ ╱ // 0x1289 @0x7
0x1282…12a2 at0008 = ╱ed╱ ( ╱ // 0x128a @0x8
0x1282…12a2 at0009 = ╱49╱I╱ // 0x128b @0x9
0x1282…12a2 at000a = ╱ee╱ ) ╱ // 0x128c @0xa
0x1282…12a2 at000b = ╱eb╱ ; ╱ // 0x128d @0xb
0x1282…12a2 at000c = ╱42╱B╱ // 0x128e @0xc
0x1282…12a2 at000d = ╱37╱7╱ // 0x128f @0xd
0x1282…12a2 at000e = ╱ef╱ $ ╱ // 0x1290 @0xe
0x1282…12a2 at000f = ╱ed╱ ( ╱ // 0x1291 @0xf
0x1282…12a2 at0010 = ╱31╱1╱ // 0x1292 @0x10
0x1282…12a2 at0011 = ╱fe00008001╱ // 0x1293 @0x11
0x1282…12a2 at0016 = ╱f0╱ : ╱ // 0x1298 @0x16
0x1282…12a2 at0017 = ╱36╱6╱ // 0x1299 @0x17
0x1282…12a2 at0018 = ╱30╱0╱ // 0x129a @0x18
0x1282…12a2 at0019 = ╱fe0000f006╱ // 0x129b @0x19
0x1282…12a2 at001e = ╱ee╱ ) ╱ // 0x12a0 @0x1e
0x1282…12a2 at001f = EOL // 0x12a1 @0x1f
0x1282…12a2 }
0x12a2…12b7 9a04 2290 CURSOR 17 , 23
0x12a2…12b7 LineComalBcd {
0x12a2…12b7 ptr = 0x9a04 // 0x12a2 @0x0
0x12a2…12b7 lno = 0x2290 // 0x12a4 @0x2
0x12a2…12b7 at0004 = ╱a1╱ CURSOR ╱ // 0x12a6 @0x4
0x12a2…12b7 at0005 = ╱31╱1╱ // 0x12a7 @0x5
0x12a2…12b7 at0006 = ╱37╱7╱ // 0x12a8 @0x6
0x12a2…12b7 at0007 = ╱fe00008805╱ // 0x12a9 @0x7
0x12a2…12b7 at000c = ╱ec╱ , ╱ // 0x12ae @0xc
0x12a2…12b7 at000d = ╱32╱2╱ // 0x12af @0xd
0x12a2…12b7 at000e = ╱33╱3╱ // 0x12b0 @0xe
0x12a2…12b7 at000f = ╱fe0000b805╱ // 0x12b1 @0xf
0x12a2…12b7 at0014 = EOL // 0x12b6 @0x14
0x12a2…12b7 }
0x12b7…12c0 9a0d 2300 INPUT F3 $
0x12b7…12c0 LineComalBcd {
0x12b7…12c0 ptr = 0x9a0d // 0x12b7 @0x0
0x12b7…12c0 lno = 0x2300 // 0x12b9 @0x2
0x12b7…12c0 at0004 = ╱91╱ INPUT ╱ // 0x12bb @0x4
0x12b7…12c0 at0005 = ╱46╱F╱ // 0x12bc @0x5
0x12b7…12c0 at0006 = ╱33╱3╱ // 0x12bd @0x6
0x12b7…12c0 at0007 = ╱ef╱ $ ╱ // 0x12be @0x7
0x12b7…12c0 at0008 = EOL // 0x12bf @0x8
0x12b7…12c0 }
0x12c0…12d3 9a20 2310 UNTIL LEN ( F3 $ ) > 0
0x12c0…12d3 LineComalBcd {
0x12c0…12d3 ptr = 0x9a20 // 0x12c0 @0x0
0x12c0…12d3 lno = 0x2310 // 0x12c2 @0x2
0x12c0…12d3 at0004 = ╱98╱ UNTIL ╱ // 0x12c4 @0x4
0x12c0…12d3 at0005 = ╱cc╱ LEN ╱ // 0x12c5 @0x5
0x12c0…12d3 at0006 = ╱ed╱ ( ╱ // 0x12c6 @0x6
0x12c0…12d3 at0007 = ╱46╱F╱ // 0x12c7 @0x7
0x12c0…12d3 at0008 = ╱33╱3╱ // 0x12c8 @0x8
0x12c0…12d3 at0009 = ╱ef╱ $ ╱ // 0x12c9 @0x9
0x12c0…12d3 at000a = ╱ee╱ ) ╱ // 0x12ca @0xa
0x12c0…12d3 at000b = ╱de╱ > ╱ // 0x12cb @0xb
0x12c0…12d3 at000c = ╱30╱0╱ // 0x12cc @0xc
0x12c0…12d3 at000d = ╱fe00000000╱ // 0x12cd @0xd
0x12c0…12d3 at0012 = EOL // 0x12d2 @0x12
0x12c0…12d3 }
0x12d3…12e0 9a2d 2320 EXEC FORTEGN
0x12d3…12e0 LineComalBcd {
0x12d3…12e0 ptr = 0x9a2d // 0x12d3 @0x0
0x12d3…12e0 lno = 0x2320 // 0x12d5 @0x2
0x12d3…12e0 at0004 = ╱9d╱ EXEC ╱ // 0x12d7 @0x4
0x12d3…12e0 at0005 = ╱46╱F╱ // 0x12d8 @0x5
0x12d3…12e0 at0006 = ╱4f╱O╱ // 0x12d9 @0x6
0x12d3…12e0 at0007 = ╱52╱R╱ // 0x12da @0x7
0x12d3…12e0 at0008 = ╱54╱T╱ // 0x12db @0x8
0x12d3…12e0 at0009 = ╱45╱E╱ // 0x12dc @0x9
0x12d3…12e0 at000a = ╱47╱G╱ // 0x12dd @0xa
0x12d3…12e0 at000b = ╱4e╱N╱ // 0x12de @0xb
0x12d3…12e0 at000c = EOL // 0x12df @0xc
0x12d3…12e0 }
0x12e0…12fe 9a4b 2330 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
0x12e0…12fe LineComalBcd {
0x12e0…12fe ptr = 0x9a4b // 0x12e0 @0x0
0x12e0…12fe lno = 0x2330 // 0x12e2 @0x2
0x12e0…12fe at0004 = ╱9d╱ EXEC ╱ // 0x12e4 @0x4
0x12e0…12fe at0005 = ╱43╱C╱ // 0x12e5 @0x5
0x12e0…12fe at0006 = ╱41╱A╱ // 0x12e6 @0x6
0x12e0…12fe at0007 = ╱4c╱L╱ // 0x12e7 @0x7
0x12e0…12fe at0008 = ╱43╱C╱ // 0x12e8 @0x8
0x12e0…12fe at0009 = ╱ed╱ ( ╱ // 0x12e9 @0x9
0x12e0…12fe at000a = ╱36╱6╱ // 0x12ea @0xa
0x12e0…12fe at000b = ╱fe0000c003╱ // 0x12eb @0xb
0x12e0…12fe at0010 = ╱ec╱ , ╱ // 0x12f0 @0x10
0x12e0…12fe at0011 = ╱46╱F╱ // 0x12f1 @0x11
0x12e0…12fe at0012 = ╱33╱3╱ // 0x12f2 @0x12
0x12e0…12fe at0013 = ╱ef╱ $ ╱ // 0x12f3 @0x13
0x12e0…12fe at0014 = ╱ec╱ , ╱ // 0x12f4 @0x14
0x12e0…12fe at0015 = ╱42╱B╱ // 0x12f5 @0x15
0x12e0…12fe at0016 = ╱39╱9╱ // 0x12f6 @0x16
0x12e0…12fe at0017 = ╱ef╱ $ ╱ // 0x12f7 @0x17
0x12e0…12fe at0018 = ╱ec╱ , ╱ // 0x12f8 @0x18
0x12e0…12fe at0019 = ╱42╱B╱ // 0x12f9 @0x19
0x12e0…12fe at001a = ╱38╱8╱ // 0x12fa @0x1a
0x12e0…12fe at001b = ╱ef╱ $ ╱ // 0x12fb @0x1b
0x12e0…12fe at001c = ╱ee╱ ) ╱ // 0x12fc @0x1c
0x12e0…12fe at001d = EOL // 0x12fd @0x1d
0x12e0…12fe }
0x12fe…130f 9a5c 2340 UNTIL FLAG = 0
0x12fe…130f LineComalBcd {
0x12fe…130f ptr = 0x9a5c // 0x12fe @0x0
0x12fe…130f lno = 0x2340 // 0x1300 @0x2
0x12fe…130f at0004 = ╱98╱ UNTIL ╱ // 0x1302 @0x4
0x12fe…130f at0005 = ╱46╱F╱ // 0x1303 @0x5
0x12fe…130f at0006 = ╱4c╱L╱ // 0x1304 @0x6
0x12fe…130f at0007 = ╱41╱A╱ // 0x1305 @0x7
0x12fe…130f at0008 = ╱47╱G╱ // 0x1306 @0x8
0x12fe…130f at0009 = ╱dc╱ = ╱ // 0x1307 @0x9
0x12fe…130f at000a = ╱30╱0╱ // 0x1308 @0xa
0x12fe…130f at000b = ╱fe00000000╱ // 0x1309 @0xb
0x12fe…130f at0010 = EOL // 0x130e @0x10
0x12fe…130f }
0x130f…1325 9a72 2350 IF I MOD 2 = 1 THEN
0x130f…1325 LineComalBcd {
0x130f…1325 ptr = 0x9a72 // 0x130f @0x0
0x130f…1325 lno = 0x2350 // 0x1311 @0x2
0x130f…1325 at0004 = ╱9c╱ IF ╱ // 0x1313 @0x4
0x130f…1325 at0005 = ╱49╱I╱ // 0x1314 @0x5
0x130f…1325 at0006 = ╱e8╱ MOD ╱ // 0x1315 @0x6
0x130f…1325 at0007 = ╱32╱2╱ // 0x1316 @0x7
0x130f…1325 at0008 = ╱fe00008002╱ // 0x1317 @0x8
0x130f…1325 at000d = ╱dc╱ = ╱ // 0x131c @0xd
0x130f…1325 at000e = ╱31╱1╱ // 0x131d @0xe
0x130f…1325 at000f = ╱fe00008001╱ // 0x131e @0xf
0x130f…1325 at0014 = ╱b6╱ THEN ╱ // 0x1323 @0x14
0x130f…1325 at0015 = EOL // 0x1324 @0x15
0x130f…1325 }
0x1325…1334 9a81 2360 F9 $ ( I ) = F3 $
0x1325…1334 LineComalBcd {
0x1325…1334 ptr = 0x9a81 // 0x1325 @0x0
0x1325…1334 lno = 0x2360 // 0x1327 @0x2
0x1325…1334 at0004 = ╱46╱F╱ // 0x1329 @0x4
0x1325…1334 at0005 = ╱39╱9╱ // 0x132a @0x5
0x1325…1334 at0006 = ╱ef╱ $ ╱ // 0x132b @0x6
0x1325…1334 at0007 = ╱ed╱ ( ╱ // 0x132c @0x7
0x1325…1334 at0008 = ╱49╱I╱ // 0x132d @0x8
0x1325…1334 at0009 = ╱ee╱ ) ╱ // 0x132e @0x9
0x1325…1334 at000a = ╱dc╱ = ╱ // 0x132f @0xa
0x1325…1334 at000b = ╱46╱F╱ // 0x1330 @0xb
0x1325…1334 at000c = ╱33╱3╱ // 0x1331 @0xc
0x1325…1334 at000d = ╱ef╱ $ ╱ // 0x1332 @0xd
0x1325…1334 at000e = EOL // 0x1333 @0xe
0x1325…1334 }
0x1334…133a 9a87 2370 ELSE
0x1334…133a LineComalBcd {
0x1334…133a ptr = 0x9a87 // 0x1334 @0x0
0x1334…133a lno = 0x2370 // 0x1336 @0x2
0x1334…133a at0004 = ╱9a╱ ELSE ╱ // 0x1338 @0x4
0x1334…133a at0005 = EOL // 0x1339 @0x5
0x1334…133a }
0x133a…1363 9ab0 2380 F9 $ ( I ) = F3 $ ( 1 : LEN ( F3 $ ) - 1 ) + "-"
0x133a…1363 LineComalBcd {
0x133a…1363 ptr = 0x9ab0 // 0x133a @0x0
0x133a…1363 lno = 0x2380 // 0x133c @0x2
0x133a…1363 at0004 = ╱46╱F╱ // 0x133e @0x4
0x133a…1363 at0005 = ╱39╱9╱ // 0x133f @0x5
0x133a…1363 at0006 = ╱ef╱ $ ╱ // 0x1340 @0x6
0x133a…1363 at0007 = ╱ed╱ ( ╱ // 0x1341 @0x7
0x133a…1363 at0008 = ╱49╱I╱ // 0x1342 @0x8
0x133a…1363 at0009 = ╱ee╱ ) ╱ // 0x1343 @0x9
0x133a…1363 at000a = ╱dc╱ = ╱ // 0x1344 @0xa
0x133a…1363 at000b = ╱46╱F╱ // 0x1345 @0xb
0x133a…1363 at000c = ╱33╱3╱ // 0x1346 @0xc
0x133a…1363 at000d = ╱ef╱ $ ╱ // 0x1347 @0xd
0x133a…1363 at000e = ╱ed╱ ( ╱ // 0x1348 @0xe
0x133a…1363 at000f = ╱31╱1╱ // 0x1349 @0xf
0x133a…1363 at0010 = ╱fe00008001╱ // 0x134a @0x10
0x133a…1363 at0015 = ╱f0╱ : ╱ // 0x134f @0x15
0x133a…1363 at0016 = ╱cc╱ LEN ╱ // 0x1350 @0x16
0x133a…1363 at0017 = ╱ed╱ ( ╱ // 0x1351 @0x17
0x133a…1363 at0018 = ╱46╱F╱ // 0x1352 @0x18
0x133a…1363 at0019 = ╱33╱3╱ // 0x1353 @0x19
0x133a…1363 at001a = ╱ef╱ $ ╱ // 0x1354 @0x1a
0x133a…1363 at001b = ╱ee╱ ) ╱ // 0x1355 @0x1b
0x133a…1363 at001c = ╱e3╱ - ╱ // 0x1356 @0x1c
0x133a…1363 at001d = ╱31╱1╱ // 0x1357 @0x1d
0x133a…1363 at001e = ╱fe00008001╱ // 0x1358 @0x1e
0x133a…1363 at0023 = ╱ee╱ ) ╱ // 0x135d @0x23
0x133a…1363 at0024 = ╱f1╱ + ╱ // 0x135e @0x24
0x133a…1363 at0025 = ╱22╱"╱ // 0x135f @0x25
0x133a…1363 at0026 = ╱2d╱-╱ // 0x1360 @0x26
0x133a…1363 at0027 = ╱22╱"╱ // 0x1361 @0x27
0x133a…1363 at0028 = EOL // 0x1362 @0x28
0x133a…1363 }
0x1363…1369 9ab6 2390 ENDIF
0x1363…1369 LineComalBcd {
0x1363…1369 ptr = 0x9ab6 // 0x1363 @0x0
0x1363…1369 lno = 0x2390 // 0x1365 @0x2
0x1363…1369 at0004 = ╱9b╱ ENDIF ╱ // 0x1367 @0x4
0x1363…1369 at0005 = EOL // 0x1368 @0x5
0x1363…1369 }
0x1369…1370 9abd 2400 NEXT I
0x1369…1370 LineComalBcd {
0x1369…1370 ptr = 0x9abd // 0x1369 @0x0
0x1369…1370 lno = 0x2400 // 0x136b @0x2
0x1369…1370 at0004 = ╱84╱ NEXT ╱ // 0x136d @0x4
0x1369…1370 at0005 = ╱49╱I╱ // 0x136e @0x5
0x1369…1370 at0006 = EOL // 0x136f @0x6
0x1369…1370 }
0x1370…1376 9ac3 2410 ELSE
0x1370…1376 LineComalBcd {
0x1370…1376 ptr = 0x9ac3 // 0x1370 @0x0
0x1370…1376 lno = 0x2410 // 0x1372 @0x2
0x1370…1376 at0004 = ╱9a╱ ELSE ╱ // 0x1374 @0x4
0x1370…1376 at0005 = EOL // 0x1375 @0x5
0x1370…1376 }
0x1376…1384 9ad1 2420 J4 = 1
0x1376…1384 LineComalBcd {
0x1376…1384 ptr = 0x9ad1 // 0x1376 @0x0
0x1376…1384 lno = 0x2420 // 0x1378 @0x2
0x1376…1384 at0004 = ╱4a╱J╱ // 0x137a @0x4
0x1376…1384 at0005 = ╱34╱4╱ // 0x137b @0x5
0x1376…1384 at0006 = ╱dc╱ = ╱ // 0x137c @0x6
0x1376…1384 at0007 = ╱31╱1╱ // 0x137d @0x7
0x1376…1384 at0008 = ╱fe00008001╱ // 0x137e @0x8
0x1376…1384 at000d = EOL // 0x1383 @0xd
0x1376…1384 }
0x1384…138a 9ad7 2430 ENDIF
0x1384…138a LineComalBcd {
0x1384…138a ptr = 0x9ad7 // 0x1384 @0x0
0x1384…138a lno = 0x2430 // 0x1386 @0x2
0x1384…138a at0004 = ╱9b╱ ENDIF ╱ // 0x1388 @0x4
0x1384…138a at0005 = EOL // 0x1389 @0x5
0x1384…138a }
0x138a…1399 9ae6 2440 H3 = - 1
0x138a…1399 LineComalBcd {
0x138a…1399 ptr = 0x9ae6 // 0x138a @0x0
0x138a…1399 lno = 0x2440 // 0x138c @0x2
0x138a…1399 at0004 = ╱48╱H╱ // 0x138e @0x4
0x138a…1399 at0005 = ╱33╱3╱ // 0x138f @0x5
0x138a…1399 at0006 = ╱dc╱ = ╱ // 0x1390 @0x6
0x138a…1399 at0007 = ╱e9╱ - ╱ // 0x1391 @0x7
0x138a…1399 at0008 = ╱31╱1╱ // 0x1392 @0x8
0x138a…1399 at0009 = ╱fe00008001╱ // 0x1393 @0x9
0x138a…1399 at000e = EOL // 0x1398 @0xe
0x138a…1399 }
0x1399…139f 9aec 2450 ENDCASE
0x1399…139f LineComalBcd {
0x1399…139f ptr = 0x9aec // 0x1399 @0x0
0x1399…139f lno = 0x2450 // 0x139b @0x2
0x1399…139f at0004 = ╱a4╱ ENDCASE ╱ // 0x139d @0x4
0x1399…139f at0005 = EOL // 0x139e @0x5
0x1399…139f }
0x139f…13af 9afc 2460 UNTIL H3 = - 1
0x139f…13af LineComalBcd {
0x139f…13af ptr = 0x9afc // 0x139f @0x0
0x139f…13af lno = 0x2460 // 0x13a1 @0x2
0x139f…13af at0004 = ╱98╱ UNTIL ╱ // 0x13a3 @0x4
0x139f…13af at0005 = ╱48╱H╱ // 0x13a4 @0x5
0x139f…13af at0006 = ╱33╱3╱ // 0x13a5 @0x6
0x139f…13af at0007 = ╱dc╱ = ╱ // 0x13a6 @0x7
0x139f…13af at0008 = ╱e9╱ - ╱ // 0x13a7 @0x8
0x139f…13af at0009 = ╱31╱1╱ // 0x13a8 @0x9
0x139f…13af at000a = ╱fe00008001╱ // 0x13a9 @0xa
0x139f…13af at000f = EOL // 0x13ae @0xf
0x139f…13af }
0x13af…13b5 9b02 2470 ENDPROC
0x13af…13b5 LineComalBcd {
0x13af…13b5 ptr = 0x9b02 // 0x13af @0x0
0x13af…13b5 lno = 0x2470 // 0x13b1 @0x2
0x13af…13b5 at0004 = ╱9f╱ ENDPROC ╱ // 0x13b3 @0x4
0x13af…13b5 at0005 = EOL // 0x13b4 @0x5
0x13af…13b5 }
0x13b5…13c4 9b11 2480 PROC GENNYPOST
0x13b5…13c4 LineComalBcd {
0x13b5…13c4 ptr = 0x9b11 // 0x13b5 @0x0
0x13b5…13c4 lno = 0x2480 // 0x13b7 @0x2
0x13b5…13c4 at0004 = ╱9e╱ PROC ╱ // 0x13b9 @0x4
0x13b5…13c4 at0005 = ╱47╱G╱ // 0x13ba @0x5
0x13b5…13c4 at0006 = ╱45╱E╱ // 0x13bb @0x6
0x13b5…13c4 at0007 = ╱4e╱N╱ // 0x13bc @0x7
0x13b5…13c4 at0008 = ╱4e╱N╱ // 0x13bd @0x8
0x13b5…13c4 at0009 = ╱59╱Y╱ // 0x13be @0x9
0x13b5…13c4 at000a = ╱50╱P╱ // 0x13bf @0xa
0x13b5…13c4 at000b = ╱4f╱O╱ // 0x13c0 @0xb
0x13b5…13c4 at000c = ╱53╱S╱ // 0x13c1 @0xc
0x13b5…13c4 at000d = ╱54╱T╱ // 0x13c2 @0xd
0x13b5…13c4 at000e = EOL // 0x13c3 @0xe
0x13b5…13c4 }
0x13c4…13f2 9b3f 2490 I3 = I2 ; F1 $ = CHR ( I7 + 48 ) ; F2 $ = CHR ( H8 + 48 )
0x13c4…13f2 LineComalBcd {
0x13c4…13f2 ptr = 0x9b3f // 0x13c4 @0x0
0x13c4…13f2 lno = 0x2490 // 0x13c6 @0x2
0x13c4…13f2 at0004 = ╱49╱I╱ // 0x13c8 @0x4
0x13c4…13f2 at0005 = ╱33╱3╱ // 0x13c9 @0x5
0x13c4…13f2 at0006 = ╱dc╱ = ╱ // 0x13ca @0x6
0x13c4…13f2 at0007 = ╱49╱I╱ // 0x13cb @0x7
0x13c4…13f2 at0008 = ╱32╱2╱ // 0x13cc @0x8
0x13c4…13f2 at0009 = ╱eb╱ ; ╱ // 0x13cd @0x9
0x13c4…13f2 at000a = ╱46╱F╱ // 0x13ce @0xa
0x13c4…13f2 at000b = ╱31╱1╱ // 0x13cf @0xb
0x13c4…13f2 at000c = ╱ef╱ $ ╱ // 0x13d0 @0xc
0x13c4…13f2 at000d = ╱dc╱ = ╱ // 0x13d1 @0xd
0x13c4…13f2 at000e = ╱cf╱ CHR ╱ // 0x13d2 @0xe
0x13c4…13f2 at000f = ╱ed╱ ( ╱ // 0x13d3 @0xf
0x13c4…13f2 at0010 = ╱49╱I╱ // 0x13d4 @0x10
0x13c4…13f2 at0011 = ╱37╱7╱ // 0x13d5 @0x11
0x13c4…13f2 at0012 = ╱e2╱ + ╱ // 0x13d6 @0x12
0x13c4…13f2 at0013 = ╱34╱4╱ // 0x13d7 @0x13
0x13c4…13f2 at0014 = ╱38╱8╱ // 0x13d8 @0x14
0x13c4…13f2 at0015 = ╱fe0000c006╱ // 0x13d9 @0x15
0x13c4…13f2 at001a = ╱ee╱ ) ╱ // 0x13de @0x1a
0x13c4…13f2 at001b = ╱eb╱ ; ╱ // 0x13df @0x1b
0x13c4…13f2 at001c = ╱46╱F╱ // 0x13e0 @0x1c
0x13c4…13f2 at001d = ╱32╱2╱ // 0x13e1 @0x1d
0x13c4…13f2 at001e = ╱ef╱ $ ╱ // 0x13e2 @0x1e
0x13c4…13f2 at001f = ╱dc╱ = ╱ // 0x13e3 @0x1f
0x13c4…13f2 at0020 = ╱cf╱ CHR ╱ // 0x13e4 @0x20
0x13c4…13f2 at0021 = ╱ed╱ ( ╱ // 0x13e5 @0x21
0x13c4…13f2 at0022 = ╱48╱H╱ // 0x13e6 @0x22
0x13c4…13f2 at0023 = ╱38╱8╱ // 0x13e7 @0x23
0x13c4…13f2 at0024 = ╱e2╱ + ╱ // 0x13e8 @0x24
0x13c4…13f2 at0025 = ╱34╱4╱ // 0x13e9 @0x25
0x13c4…13f2 at0026 = ╱38╱8╱ // 0x13ea @0x26
0x13c4…13f2 at0027 = ╱fe0000c006╱ // 0x13eb @0x27
0x13c4…13f2 at002c = ╱ee╱ ) ╱ // 0x13f0 @0x2c
0x13c4…13f2 at002d = EOL // 0x13f1 @0x2d
0x13c4…13f2 }
0x13f2…1413 9b60 2500 PUT D2 $ , I2 : H6 , J6 , H7 , F1 $ , F4 $ , F2 $
0x13f2…1413 LineComalBcd {
0x13f2…1413 ptr = 0x9b60 // 0x13f2 @0x0
0x13f2…1413 lno = 0x2500 // 0x13f4 @0x2
0x13f2…1413 at0004 = ╱aa╱ PUT ╱ // 0x13f6 @0x4
0x13f2…1413 at0005 = ╱44╱D╱ // 0x13f7 @0x5
0x13f2…1413 at0006 = ╱32╱2╱ // 0x13f8 @0x6
0x13f2…1413 at0007 = ╱ef╱ $ ╱ // 0x13f9 @0x7
0x13f2…1413 at0008 = ╱ec╱ , ╱ // 0x13fa @0x8
0x13f2…1413 at0009 = ╱49╱I╱ // 0x13fb @0x9
0x13f2…1413 at000a = ╱32╱2╱ // 0x13fc @0xa
0x13f2…1413 at000b = ╱f0╱ : ╱ // 0x13fd @0xb
0x13f2…1413 at000c = ╱48╱H╱ // 0x13fe @0xc
0x13f2…1413 at000d = ╱36╱6╱ // 0x13ff @0xd
0x13f2…1413 at000e = ╱ec╱ , ╱ // 0x1400 @0xe
0x13f2…1413 at000f = ╱4a╱J╱ // 0x1401 @0xf
0x13f2…1413 at0010 = ╱36╱6╱ // 0x1402 @0x10
0x13f2…1413 at0011 = ╱ec╱ , ╱ // 0x1403 @0x11
0x13f2…1413 at0012 = ╱48╱H╱ // 0x1404 @0x12
0x13f2…1413 at0013 = ╱37╱7╱ // 0x1405 @0x13
0x13f2…1413 at0014 = ╱ec╱ , ╱ // 0x1406 @0x14
0x13f2…1413 at0015 = ╱46╱F╱ // 0x1407 @0x15
0x13f2…1413 at0016 = ╱31╱1╱ // 0x1408 @0x16
0x13f2…1413 at0017 = ╱ef╱ $ ╱ // 0x1409 @0x17
0x13f2…1413 at0018 = ╱ec╱ , ╱ // 0x140a @0x18
0x13f2…1413 at0019 = ╱46╱F╱ // 0x140b @0x19
0x13f2…1413 at001a = ╱34╱4╱ // 0x140c @0x1a
0x13f2…1413 at001b = ╱ef╱ $ ╱ // 0x140d @0x1b
0x13f2…1413 at001c = ╱ec╱ , ╱ // 0x140e @0x1c
0x13f2…1413 at001d = ╱46╱F╱ // 0x140f @0x1d
0x13f2…1413 at001e = ╱32╱2╱ // 0x1410 @0x1e
0x13f2…1413 at001f = ╱ef╱ $ ╱ // 0x1411 @0x1f
0x13f2…1413 at0020 = EOL // 0x1412 @0x20
0x13f2…1413 }
0x1413…1430 9b7d 2510 EXEC FEJL ( 6 , 1 , D2 $ )
0x1413…1430 LineComalBcd {
0x1413…1430 ptr = 0x9b7d // 0x1413 @0x0
0x1413…1430 lno = 0x2510 // 0x1415 @0x2
0x1413…1430 at0004 = ╱9d╱ EXEC ╱ // 0x1417 @0x4
0x1413…1430 at0005 = ╱46╱F╱ // 0x1418 @0x5
0x1413…1430 at0006 = ╱45╱E╱ // 0x1419 @0x6
0x1413…1430 at0007 = ╱4a╱J╱ // 0x141a @0x7
0x1413…1430 at0008 = ╱4c╱L╱ // 0x141b @0x8
0x1413…1430 at0009 = ╱ed╱ ( ╱ // 0x141c @0x9
0x1413…1430 at000a = ╱36╱6╱ // 0x141d @0xa
0x1413…1430 at000b = ╱fe0000c003╱ // 0x141e @0xb
0x1413…1430 at0010 = ╱ec╱ , ╱ // 0x1423 @0x10
0x1413…1430 at0011 = ╱31╱1╱ // 0x1424 @0x11
0x1413…1430 at0012 = ╱fe00008001╱ // 0x1425 @0x12
0x1413…1430 at0017 = ╱ec╱ , ╱ // 0x142a @0x17
0x1413…1430 at0018 = ╱44╱D╱ // 0x142b @0x18
0x1413…1430 at0019 = ╱32╱2╱ // 0x142c @0x19
0x1413…1430 at001a = ╱ef╱ $ ╱ // 0x142d @0x1a
0x1413…1430 at001b = ╱ee╱ ) ╱ // 0x142e @0x1b
0x1413…1430 at001c = EOL // 0x142f @0x1c
0x1413…1430 }
0x1430…1441 9b8e 2520 I2 = I2 + 1
0x1430…1441 LineComalBcd {
0x1430…1441 ptr = 0x9b8e // 0x1430 @0x0
0x1430…1441 lno = 0x2520 // 0x1432 @0x2
0x1430…1441 at0004 = ╱49╱I╱ // 0x1434 @0x4
0x1430…1441 at0005 = ╱32╱2╱ // 0x1435 @0x5
0x1430…1441 at0006 = ╱dc╱ = ╱ // 0x1436 @0x6
0x1430…1441 at0007 = ╱49╱I╱ // 0x1437 @0x7
0x1430…1441 at0008 = ╱32╱2╱ // 0x1438 @0x8
0x1430…1441 at0009 = ╱e2╱ + ╱ // 0x1439 @0x9
0x1430…1441 at000a = ╱31╱1╱ // 0x143a @0xa
0x1430…1441 at000b = ╱fe00008001╱ // 0x143b @0xb
0x1430…1441 at0010 = EOL // 0x1440 @0x10
0x1430…1441 }
0x1441…1451 9b9e 2530 IF I7 > 9 THEN
0x1441…1451 LineComalBcd {
0x1441…1451 ptr = 0x9b9e // 0x1441 @0x0
0x1441…1451 lno = 0x2530 // 0x1443 @0x2
0x1441…1451 at0004 = ╱9c╱ IF ╱ // 0x1445 @0x4
0x1441…1451 at0005 = ╱49╱I╱ // 0x1446 @0x5
0x1441…1451 at0006 = ╱37╱7╱ // 0x1447 @0x6
0x1441…1451 at0007 = ╱de╱ > ╱ // 0x1448 @0x7
0x1441…1451 at0008 = ╱39╱9╱ // 0x1449 @0x8
0x1441…1451 at0009 = ╱fe00009004╱ // 0x144a @0x9
0x1441…1451 at000e = ╱b6╱ THEN ╱ // 0x144f @0xe
0x1441…1451 at000f = EOL // 0x1450 @0xf
0x1441…1451 }
0x1451…1461 9bae 2540 PUT D2 $ , I2 : E3 $
0x1451…1461 LineComalBcd {
0x1451…1461 ptr = 0x9bae // 0x1451 @0x0
0x1451…1461 lno = 0x2540 // 0x1453 @0x2
0x1451…1461 at0004 = ╱aa╱ PUT ╱ // 0x1455 @0x4
0x1451…1461 at0005 = ╱44╱D╱ // 0x1456 @0x5
0x1451…1461 at0006 = ╱32╱2╱ // 0x1457 @0x6
0x1451…1461 at0007 = ╱ef╱ $ ╱ // 0x1458 @0x7
0x1451…1461 at0008 = ╱ec╱ , ╱ // 0x1459 @0x8
0x1451…1461 at0009 = ╱49╱I╱ // 0x145a @0x9
0x1451…1461 at000a = ╱32╱2╱ // 0x145b @0xa
0x1451…1461 at000b = ╱f0╱ : ╱ // 0x145c @0xb
0x1451…1461 at000c = ╱45╱E╱ // 0x145d @0xc
0x1451…1461 at000d = ╱33╱3╱ // 0x145e @0xd
0x1451…1461 at000e = ╱ef╱ $ ╱ // 0x145f @0xe
0x1451…1461 at000f = EOL // 0x1460 @0xf
0x1451…1461 }
0x1461…147e 9bcb 2550 EXEC FEJL ( 6 , 2 , D2 $ )
0x1461…147e LineComalBcd {
0x1461…147e ptr = 0x9bcb // 0x1461 @0x0
0x1461…147e lno = 0x2550 // 0x1463 @0x2
0x1461…147e at0004 = ╱9d╱ EXEC ╱ // 0x1465 @0x4
0x1461…147e at0005 = ╱46╱F╱ // 0x1466 @0x5
0x1461…147e at0006 = ╱45╱E╱ // 0x1467 @0x6
0x1461…147e at0007 = ╱4a╱J╱ // 0x1468 @0x7
0x1461…147e at0008 = ╱4c╱L╱ // 0x1469 @0x8
0x1461…147e at0009 = ╱ed╱ ( ╱ // 0x146a @0x9
0x1461…147e at000a = ╱36╱6╱ // 0x146b @0xa
0x1461…147e at000b = ╱fe0000c003╱ // 0x146c @0xb
0x1461…147e at0010 = ╱ec╱ , ╱ // 0x1471 @0x10
0x1461…147e at0011 = ╱32╱2╱ // 0x1472 @0x11
0x1461…147e at0012 = ╱fe00008002╱ // 0x1473 @0x12
0x1461…147e at0017 = ╱ec╱ , ╱ // 0x1478 @0x17
0x1461…147e at0018 = ╱44╱D╱ // 0x1479 @0x18
0x1461…147e at0019 = ╱32╱2╱ // 0x147a @0x19
0x1461…147e at001a = ╱ef╱ $ ╱ // 0x147b @0x1a
0x1461…147e at001b = ╱ee╱ ) ╱ // 0x147c @0x1b
0x1461…147e at001c = EOL // 0x147d @0x1c
0x1461…147e }
0x147e…148f 9bdc 2560 I2 = I2 + 1
0x147e…148f LineComalBcd {
0x147e…148f ptr = 0x9bdc // 0x147e @0x0
0x147e…148f lno = 0x2560 // 0x1480 @0x2
0x147e…148f at0004 = ╱49╱I╱ // 0x1482 @0x4
0x147e…148f at0005 = ╱32╱2╱ // 0x1483 @0x5
0x147e…148f at0006 = ╱dc╱ = ╱ // 0x1484 @0x6
0x147e…148f at0007 = ╱49╱I╱ // 0x1485 @0x7
0x147e…148f at0008 = ╱32╱2╱ // 0x1486 @0x8
0x147e…148f at0009 = ╱e2╱ + ╱ // 0x1487 @0x9
0x147e…148f at000a = ╱31╱1╱ // 0x1488 @0xa
0x147e…148f at000b = ╱fe00008001╱ // 0x1489 @0xb
0x147e…148f at0010 = EOL // 0x148e @0x10
0x147e…148f }
0x148f…1495 9be2 2570 ENDIF
0x148f…1495 LineComalBcd {
0x148f…1495 ptr = 0x9be2 // 0x148f @0x0
0x148f…1495 lno = 0x2570 // 0x1491 @0x2
0x148f…1495 at0004 = ╱9b╱ ENDIF ╱ // 0x1493 @0x4
0x148f…1495 at0005 = EOL // 0x1494 @0x5
0x148f…1495 }
0x1495…14a6 9bf3 2580 I4 = I2 - 1
0x1495…14a6 LineComalBcd {
0x1495…14a6 ptr = 0x9bf3 // 0x1495 @0x0
0x1495…14a6 lno = 0x2580 // 0x1497 @0x2
0x1495…14a6 at0004 = ╱49╱I╱ // 0x1499 @0x4
0x1495…14a6 at0005 = ╱34╱4╱ // 0x149a @0x5
0x1495…14a6 at0006 = ╱dc╱ = ╱ // 0x149b @0x6
0x1495…14a6 at0007 = ╱49╱I╱ // 0x149c @0x7
0x1495…14a6 at0008 = ╱32╱2╱ // 0x149d @0x8
0x1495…14a6 at0009 = ╱e3╱ - ╱ // 0x149e @0x9
0x1495…14a6 at000a = ╱31╱1╱ // 0x149f @0xa
0x1495…14a6 at000b = ╱fe00008001╱ // 0x14a0 @0xb
0x1495…14a6 at0010 = EOL // 0x14a5 @0x10
0x1495…14a6 }
0x14a6…14ac 9bf9 2590 ENDPROC
0x14a6…14ac LineComalBcd {
0x14a6…14ac ptr = 0x9bf9 // 0x14a6 @0x0
0x14a6…14ac lno = 0x2590 // 0x14a8 @0x2
0x14a6…14ac at0004 = ╱9f╱ ENDPROC ╱ // 0x14aa @0x4
0x14a6…14ac at0005 = EOL // 0x14ab @0x5
0x14a6…14ac }
0x14ac…14bc 9c09 2600 PROC HENTKRPOST
0x14ac…14bc LineComalBcd {
0x14ac…14bc ptr = 0x9c09 // 0x14ac @0x0
0x14ac…14bc lno = 0x2600 // 0x14ae @0x2
0x14ac…14bc at0004 = ╱9e╱ PROC ╱ // 0x14b0 @0x4
0x14ac…14bc at0005 = ╱48╱H╱ // 0x14b1 @0x5
0x14ac…14bc at0006 = ╱45╱E╱ // 0x14b2 @0x6
0x14ac…14bc at0007 = ╱4e╱N╱ // 0x14b3 @0x7
0x14ac…14bc at0008 = ╱54╱T╱ // 0x14b4 @0x8
0x14ac…14bc at0009 = ╱4b╱K╱ // 0x14b5 @0x9
0x14ac…14bc at000a = ╱52╱R╱ // 0x14b6 @0xa
0x14ac…14bc at000b = ╱50╱P╱ // 0x14b7 @0xb
0x14ac…14bc at000c = ╱4f╱O╱ // 0x14b8 @0xc
0x14ac…14bc at000d = ╱53╱S╱ // 0x14b9 @0xd
0x14ac…14bc at000e = ╱54╱T╱ // 0x14ba @0xe
0x14ac…14bc at000f = EOL // 0x14bb @0xf
0x14ac…14bc }
0x14bc…14d1 9c1e 2610 J7 = J8 ( J9 , 2 )
0x14bc…14d1 LineComalBcd {
0x14bc…14d1 ptr = 0x9c1e // 0x14bc @0x0
0x14bc…14d1 lno = 0x2610 // 0x14be @0x2
0x14bc…14d1 at0004 = ╱4a╱J╱ // 0x14c0 @0x4
0x14bc…14d1 at0005 = ╱37╱7╱ // 0x14c1 @0x5
0x14bc…14d1 at0006 = ╱dc╱ = ╱ // 0x14c2 @0x6
0x14bc…14d1 at0007 = ╱4a╱J╱ // 0x14c3 @0x7
0x14bc…14d1 at0008 = ╱38╱8╱ // 0x14c4 @0x8
0x14bc…14d1 at0009 = ╱ed╱ ( ╱ // 0x14c5 @0x9
0x14bc…14d1 at000a = ╱4a╱J╱ // 0x14c6 @0xa
0x14bc…14d1 at000b = ╱39╱9╱ // 0x14c7 @0xb
0x14bc…14d1 at000c = ╱ec╱ , ╱ // 0x14c8 @0xc
0x14bc…14d1 at000d = ╱32╱2╱ // 0x14c9 @0xd
0x14bc…14d1 at000e = ╱fe00008002╱ // 0x14ca @0xe
0x14bc…14d1 at0013 = ╱ee╱ ) ╱ // 0x14cf @0x13
0x14bc…14d1 at0014 = EOL // 0x14d0 @0x14
0x14bc…14d1 }
0x14d1…14e8 9c35 2620 GET D1 $ , J7 : K0 , F8 $ , A3 $
0x14d1…14e8 LineComalBcd {
0x14d1…14e8 ptr = 0x9c35 // 0x14d1 @0x0
0x14d1…14e8 lno = 0x2620 // 0x14d3 @0x2
0x14d1…14e8 at0004 = ╱a9╱ GET ╱ // 0x14d5 @0x4
0x14d1…14e8 at0005 = ╱44╱D╱ // 0x14d6 @0x5
0x14d1…14e8 at0006 = ╱31╱1╱ // 0x14d7 @0x6
0x14d1…14e8 at0007 = ╱ef╱ $ ╱ // 0x14d8 @0x7
0x14d1…14e8 at0008 = ╱ec╱ , ╱ // 0x14d9 @0x8
0x14d1…14e8 at0009 = ╱4a╱J╱ // 0x14da @0x9
0x14d1…14e8 at000a = ╱37╱7╱ // 0x14db @0xa
0x14d1…14e8 at000b = ╱f0╱ : ╱ // 0x14dc @0xb
0x14d1…14e8 at000c = ╱4b╱K╱ // 0x14dd @0xc
0x14d1…14e8 at000d = ╱30╱0╱ // 0x14de @0xd
0x14d1…14e8 at000e = ╱ec╱ , ╱ // 0x14df @0xe
0x14d1…14e8 at000f = ╱46╱F╱ // 0x14e0 @0xf
0x14d1…14e8 at0010 = ╱38╱8╱ // 0x14e1 @0x10
0x14d1…14e8 at0011 = ╱ef╱ $ ╱ // 0x14e2 @0x11
0x14d1…14e8 at0012 = ╱ec╱ , ╱ // 0x14e3 @0x12
0x14d1…14e8 at0013 = ╱41╱A╱ // 0x14e4 @0x13
0x14d1…14e8 at0014 = ╱33╱3╱ // 0x14e5 @0x14
0x14d1…14e8 at0015 = ╱ef╱ $ ╱ // 0x14e6 @0x15
0x14d1…14e8 at0016 = EOL // 0x14e7 @0x16
0x14d1…14e8 }
0x14e8…1505 9c52 2630 EXEC FEJL ( 5 , 1 , D1 $ )
0x14e8…1505 LineComalBcd {
0x14e8…1505 ptr = 0x9c52 // 0x14e8 @0x0
0x14e8…1505 lno = 0x2630 // 0x14ea @0x2
0x14e8…1505 at0004 = ╱9d╱ EXEC ╱ // 0x14ec @0x4
0x14e8…1505 at0005 = ╱46╱F╱ // 0x14ed @0x5
0x14e8…1505 at0006 = ╱45╱E╱ // 0x14ee @0x6
0x14e8…1505 at0007 = ╱4a╱J╱ // 0x14ef @0x7
0x14e8…1505 at0008 = ╱4c╱L╱ // 0x14f0 @0x8
0x14e8…1505 at0009 = ╱ed╱ ( ╱ // 0x14f1 @0x9
0x14e8…1505 at000a = ╱35╱5╱ // 0x14f2 @0xa
0x14e8…1505 at000b = ╱fe0000a003╱ // 0x14f3 @0xb
0x14e8…1505 at0010 = ╱ec╱ , ╱ // 0x14f8 @0x10
0x14e8…1505 at0011 = ╱31╱1╱ // 0x14f9 @0x11
0x14e8…1505 at0012 = ╱fe00008001╱ // 0x14fa @0x12
0x14e8…1505 at0017 = ╱ec╱ , ╱ // 0x14ff @0x17
0x14e8…1505 at0018 = ╱44╱D╱ // 0x1500 @0x18
0x14e8…1505 at0019 = ╱31╱1╱ // 0x1501 @0x19
0x14e8…1505 at001a = ╱ef╱ $ ╱ // 0x1502 @0x1a
0x14e8…1505 at001b = ╱ee╱ ) ╱ // 0x1503 @0x1b
0x14e8…1505 at001c = EOL // 0x1504 @0x1c
0x14e8…1505 }
0x1505…152f 9c7c 2640 GET D1 $ , J7 + 1 : A5 $ , C7 $ , C8 $ , K1 , F6 $ , F7 $
0x1505…152f LineComalBcd {
0x1505…152f ptr = 0x9c7c // 0x1505 @0x0
0x1505…152f lno = 0x2640 // 0x1507 @0x2
0x1505…152f at0004 = ╱a9╱ GET ╱ // 0x1509 @0x4
0x1505…152f at0005 = ╱44╱D╱ // 0x150a @0x5
0x1505…152f at0006 = ╱31╱1╱ // 0x150b @0x6
0x1505…152f at0007 = ╱ef╱ $ ╱ // 0x150c @0x7
0x1505…152f at0008 = ╱ec╱ , ╱ // 0x150d @0x8
0x1505…152f at0009 = ╱4a╱J╱ // 0x150e @0x9
0x1505…152f at000a = ╱37╱7╱ // 0x150f @0xa
0x1505…152f at000b = ╱e2╱ + ╱ // 0x1510 @0xb
0x1505…152f at000c = ╱31╱1╱ // 0x1511 @0xc
0x1505…152f at000d = ╱fe00008001╱ // 0x1512 @0xd
0x1505…152f at0012 = ╱f0╱ : ╱ // 0x1517 @0x12
0x1505…152f at0013 = ╱41╱A╱ // 0x1518 @0x13
0x1505…152f at0014 = ╱35╱5╱ // 0x1519 @0x14
0x1505…152f at0015 = ╱ef╱ $ ╱ // 0x151a @0x15
0x1505…152f at0016 = ╱ec╱ , ╱ // 0x151b @0x16
0x1505…152f at0017 = ╱43╱C╱ // 0x151c @0x17
0x1505…152f at0018 = ╱37╱7╱ // 0x151d @0x18
0x1505…152f at0019 = ╱ef╱ $ ╱ // 0x151e @0x19
0x1505…152f at001a = ╱ec╱ , ╱ // 0x151f @0x1a
0x1505…152f at001b = ╱43╱C╱ // 0x1520 @0x1b
0x1505…152f at001c = ╱38╱8╱ // 0x1521 @0x1c
0x1505…152f at001d = ╱ef╱ $ ╱ // 0x1522 @0x1d
0x1505…152f at001e = ╱ec╱ , ╱ // 0x1523 @0x1e
0x1505…152f at001f = ╱4b╱K╱ // 0x1524 @0x1f
0x1505…152f at0020 = ╱31╱1╱ // 0x1525 @0x20
0x1505…152f at0021 = ╱ec╱ , ╱ // 0x1526 @0x21
0x1505…152f at0022 = ╱46╱F╱ // 0x1527 @0x22
0x1505…152f at0023 = ╱36╱6╱ // 0x1528 @0x23
0x1505…152f at0024 = ╱ef╱ $ ╱ // 0x1529 @0x24
0x1505…152f at0025 = ╱ec╱ , ╱ // 0x152a @0x25
0x1505…152f at0026 = ╱46╱F╱ // 0x152b @0x26
0x1505…152f at0027 = ╱37╱7╱ // 0x152c @0x27
0x1505…152f at0028 = ╱ef╱ $ ╱ // 0x152d @0x28
0x1505…152f at0029 = EOL // 0x152e @0x29
0x1505…152f }
0x152f…154c 9c99 2650 EXEC FEJL ( 5 , 2 , D1 $ )
0x152f…154c LineComalBcd {
0x152f…154c ptr = 0x9c99 // 0x152f @0x0
0x152f…154c lno = 0x2650 // 0x1531 @0x2
0x152f…154c at0004 = ╱9d╱ EXEC ╱ // 0x1533 @0x4
0x152f…154c at0005 = ╱46╱F╱ // 0x1534 @0x5
0x152f…154c at0006 = ╱45╱E╱ // 0x1535 @0x6
0x152f…154c at0007 = ╱4a╱J╱ // 0x1536 @0x7
0x152f…154c at0008 = ╱4c╱L╱ // 0x1537 @0x8
0x152f…154c at0009 = ╱ed╱ ( ╱ // 0x1538 @0x9
0x152f…154c at000a = ╱35╱5╱ // 0x1539 @0xa
0x152f…154c at000b = ╱fe0000a003╱ // 0x153a @0xb
0x152f…154c at0010 = ╱ec╱ , ╱ // 0x153f @0x10
0x152f…154c at0011 = ╱32╱2╱ // 0x1540 @0x11
0x152f…154c at0012 = ╱fe00008002╱ // 0x1541 @0x12
0x152f…154c at0017 = ╱ec╱ , ╱ // 0x1546 @0x17
0x152f…154c at0018 = ╱44╱D╱ // 0x1547 @0x18
0x152f…154c at0019 = ╱31╱1╱ // 0x1548 @0x19
0x152f…154c at001a = ╱ef╱ $ ╱ // 0x1549 @0x1a
0x152f…154c at001b = ╱ee╱ ) ╱ // 0x154a @0x1b
0x152f…154c at001c = EOL // 0x154b @0x1c
0x152f…154c }
0x154c…1552 9c9f 2660 ENDPROC
0x154c…1552 LineComalBcd {
0x154c…1552 ptr = 0x9c9f // 0x154c @0x0
0x154c…1552 lno = 0x2660 // 0x154e @0x2
0x154c…1552 at0004 = ╱9f╱ ENDPROC ╱ // 0x1550 @0x4
0x154c…1552 at0005 = EOL // 0x1551 @0x5
0x154c…1552 }
0x1552…1563 9cb0 2670 PROC HENTKASPOST
0x1552…1563 LineComalBcd {
0x1552…1563 ptr = 0x9cb0 // 0x1552 @0x0
0x1552…1563 lno = 0x2670 // 0x1554 @0x2
0x1552…1563 at0004 = ╱9e╱ PROC ╱ // 0x1556 @0x4
0x1552…1563 at0005 = ╱48╱H╱ // 0x1557 @0x5
0x1552…1563 at0006 = ╱45╱E╱ // 0x1558 @0x6
0x1552…1563 at0007 = ╱4e╱N╱ // 0x1559 @0x7
0x1552…1563 at0008 = ╱54╱T╱ // 0x155a @0x8
0x1552…1563 at0009 = ╱4b╱K╱ // 0x155b @0x9
0x1552…1563 at000a = ╱41╱A╱ // 0x155c @0xa
0x1552…1563 at000b = ╱53╱S╱ // 0x155d @0xb
0x1552…1563 at000c = ╱50╱P╱ // 0x155e @0xc
0x1552…1563 at000d = ╱4f╱O╱ // 0x155f @0xd
0x1552…1563 at000e = ╱53╱S╱ // 0x1560 @0xe
0x1552…1563 at000f = ╱54╱T╱ // 0x1561 @0xf
0x1552…1563 at0010 = EOL // 0x1562 @0x10
0x1552…1563 }
0x1563…1570 9cbd 2680 EXEC UDHOVED
0x1563…1570 LineComalBcd {
0x1563…1570 ptr = 0x9cbd // 0x1563 @0x0
0x1563…1570 lno = 0x2680 // 0x1565 @0x2
0x1563…1570 at0004 = ╱9d╱ EXEC ╱ // 0x1567 @0x4
0x1563…1570 at0005 = ╱55╱U╱ // 0x1568 @0x5
0x1563…1570 at0006 = ╱44╱D╱ // 0x1569 @0x6
0x1563…1570 at0007 = ╱48╱H╱ // 0x156a @0x7
0x1563…1570 at0008 = ╱4f╱O╱ // 0x156b @0x8
0x1563…1570 at0009 = ╱56╱V╱ // 0x156c @0x9
0x1563…1570 at000a = ╱45╱E╱ // 0x156d @0xa
0x1563…1570 at000b = ╱44╱D╱ // 0x156e @0xb
0x1563…1570 at000c = EOL // 0x156f @0xc
0x1563…1570 }
0x1570…1585 9cd2 2690 IF K2 = I2 THEN K2 = 1
0x1570…1585 LineComalBcd {
0x1570…1585 ptr = 0x9cd2 // 0x1570 @0x0
0x1570…1585 lno = 0x2690 // 0x1572 @0x2
0x1570…1585 at0004 = ╱82╱ IF ╱ // 0x1574 @0x4
0x1570…1585 at0005 = ╱4b╱K╱ // 0x1575 @0x5
0x1570…1585 at0006 = ╱32╱2╱ // 0x1576 @0x6
0x1570…1585 at0007 = ╱dc╱ = ╱ // 0x1577 @0x7
0x1570…1585 at0008 = ╱49╱I╱ // 0x1578 @0x8
0x1570…1585 at0009 = ╱32╱2╱ // 0x1579 @0x9
0x1570…1585 at000a = ╱b6╱ THEN ╱ // 0x157a @0xa
0x1570…1585 at000b = ╱4b╱K╱ // 0x157b @0xb
0x1570…1585 at000c = ╱32╱2╱ // 0x157c @0xc
0x1570…1585 at000d = ╱dc╱ = ╱ // 0x157d @0xd
0x1570…1585 at000e = ╱31╱1╱ // 0x157e @0xe
0x1570…1585 at000f = ╱fe00008001╱ // 0x157f @0xf
0x1570…1585 at0014 = EOL // 0x1584 @0x14
0x1570…1585 }
0x1585…1599 9ce6 2700 K3 = K2 ; H5 = 1
0x1585…1599 LineComalBcd {
0x1585…1599 ptr = 0x9ce6 // 0x1585 @0x0
0x1585…1599 lno = 0x2700 // 0x1587 @0x2
0x1585…1599 at0004 = ╱4b╱K╱ // 0x1589 @0x4
0x1585…1599 at0005 = ╱33╱3╱ // 0x158a @0x5
0x1585…1599 at0006 = ╱dc╱ = ╱ // 0x158b @0x6
0x1585…1599 at0007 = ╱4b╱K╱ // 0x158c @0x7
0x1585…1599 at0008 = ╱32╱2╱ // 0x158d @0x8
0x1585…1599 at0009 = ╱eb╱ ; ╱ // 0x158e @0x9
0x1585…1599 at000a = ╱48╱H╱ // 0x158f @0xa
0x1585…1599 at000b = ╱35╱5╱ // 0x1590 @0xb
0x1585…1599 at000c = ╱dc╱ = ╱ // 0x1591 @0xc
0x1585…1599 at000d = ╱31╱1╱ // 0x1592 @0xd
0x1585…1599 at000e = ╱fe00008001╱ // 0x1593 @0xe
0x1585…1599 at0013 = EOL // 0x1598 @0x13
0x1585…1599 }
0x1599…15af 9cfc 2710 FOR I = 1 TO 18
0x1599…15af LineComalBcd {
0x1599…15af ptr = 0x9cfc // 0x1599 @0x0
0x1599…15af lno = 0x2710 // 0x159b @0x2
0x1599…15af at0004 = ╱83╱ FOR ╱ // 0x159d @0x4
0x1599…15af at0005 = ╱49╱I╱ // 0x159e @0x5
0x1599…15af at0006 = ╱dc╱ = ╱ // 0x159f @0x6
0x1599…15af at0007 = ╱31╱1╱ // 0x15a0 @0x7
0x1599…15af at0008 = ╱fe00008001╱ // 0x15a1 @0x8
0x1599…15af at000d = ╱b7╱ TO ╱ // 0x15a6 @0xd
0x1599…15af at000e = ╱31╱1╱ // 0x15a7 @0xe
0x1599…15af at000f = ╱38╱8╱ // 0x15a8 @0xf
0x1599…15af at0010 = ╱fe00009005╱ // 0x15a9 @0x10
0x1599…15af at0015 = EOL // 0x15ae @0x15
0x1599…15af }
0x15af…15dc 9d29 2720 GET D2 $ , K2 : G2 ( I ) , G3 ( I ) , G4 ( I ) , F1 $ , G6 $ ( I ) , F2 $
0x15af…15dc LineComalBcd {
0x15af…15dc ptr = 0x9d29 // 0x15af @0x0
0x15af…15dc lno = 0x2720 // 0x15b1 @0x2
0x15af…15dc at0004 = ╱a9╱ GET ╱ // 0x15b3 @0x4
0x15af…15dc at0005 = ╱44╱D╱ // 0x15b4 @0x5
0x15af…15dc at0006 = ╱32╱2╱ // 0x15b5 @0x6
0x15af…15dc at0007 = ╱ef╱ $ ╱ // 0x15b6 @0x7
0x15af…15dc at0008 = ╱ec╱ , ╱ // 0x15b7 @0x8
0x15af…15dc at0009 = ╱4b╱K╱ // 0x15b8 @0x9
0x15af…15dc at000a = ╱32╱2╱ // 0x15b9 @0xa
0x15af…15dc at000b = ╱f0╱ : ╱ // 0x15ba @0xb
0x15af…15dc at000c = ╱47╱G╱ // 0x15bb @0xc
0x15af…15dc at000d = ╱32╱2╱ // 0x15bc @0xd
0x15af…15dc at000e = ╱ed╱ ( ╱ // 0x15bd @0xe
0x15af…15dc at000f = ╱49╱I╱ // 0x15be @0xf
0x15af…15dc at0010 = ╱ee╱ ) ╱ // 0x15bf @0x10
0x15af…15dc at0011 = ╱ec╱ , ╱ // 0x15c0 @0x11
0x15af…15dc at0012 = ╱47╱G╱ // 0x15c1 @0x12
0x15af…15dc at0013 = ╱33╱3╱ // 0x15c2 @0x13
0x15af…15dc at0014 = ╱ed╱ ( ╱ // 0x15c3 @0x14
0x15af…15dc at0015 = ╱49╱I╱ // 0x15c4 @0x15
0x15af…15dc at0016 = ╱ee╱ ) ╱ // 0x15c5 @0x16
0x15af…15dc at0017 = ╱ec╱ , ╱ // 0x15c6 @0x17
0x15af…15dc at0018 = ╱47╱G╱ // 0x15c7 @0x18
0x15af…15dc at0019 = ╱34╱4╱ // 0x15c8 @0x19
0x15af…15dc at001a = ╱ed╱ ( ╱ // 0x15c9 @0x1a
0x15af…15dc at001b = ╱49╱I╱ // 0x15ca @0x1b
0x15af…15dc at001c = ╱ee╱ ) ╱ // 0x15cb @0x1c
0x15af…15dc at001d = ╱ec╱ , ╱ // 0x15cc @0x1d
0x15af…15dc at001e = ╱46╱F╱ // 0x15cd @0x1e
0x15af…15dc at001f = ╱31╱1╱ // 0x15ce @0x1f
0x15af…15dc at0020 = ╱ef╱ $ ╱ // 0x15cf @0x20
0x15af…15dc at0021 = ╱ec╱ , ╱ // 0x15d0 @0x21
0x15af…15dc at0022 = ╱47╱G╱ // 0x15d1 @0x22
0x15af…15dc at0023 = ╱36╱6╱ // 0x15d2 @0x23
0x15af…15dc at0024 = ╱ef╱ $ ╱ // 0x15d3 @0x24
0x15af…15dc at0025 = ╱ed╱ ( ╱ // 0x15d4 @0x25
0x15af…15dc at0026 = ╱49╱I╱ // 0x15d5 @0x26
0x15af…15dc at0027 = ╱ee╱ ) ╱ // 0x15d6 @0x27
0x15af…15dc at0028 = ╱ec╱ , ╱ // 0x15d7 @0x28
0x15af…15dc at0029 = ╱46╱F╱ // 0x15d8 @0x29
0x15af…15dc at002a = ╱32╱2╱ // 0x15d9 @0x2a
0x15af…15dc at002b = ╱ef╱ $ ╱ // 0x15da @0x2b
0x15af…15dc at002c = EOL // 0x15db @0x2c
0x15af…15dc }
0x15dc…15f9 9d46 2730 EXEC FEJL ( 2 , 1 , D2 $ )
0x15dc…15f9 LineComalBcd {
0x15dc…15f9 ptr = 0x9d46 // 0x15dc @0x0
0x15dc…15f9 lno = 0x2730 // 0x15de @0x2
0x15dc…15f9 at0004 = ╱9d╱ EXEC ╱ // 0x15e0 @0x4
0x15dc…15f9 at0005 = ╱46╱F╱ // 0x15e1 @0x5
0x15dc…15f9 at0006 = ╱45╱E╱ // 0x15e2 @0x6
0x15dc…15f9 at0007 = ╱4a╱J╱ // 0x15e3 @0x7
0x15dc…15f9 at0008 = ╱4c╱L╱ // 0x15e4 @0x8
0x15dc…15f9 at0009 = ╱ed╱ ( ╱ // 0x15e5 @0x9
0x15dc…15f9 at000a = ╱32╱2╱ // 0x15e6 @0xa
0x15dc…15f9 at000b = ╱fe00008002╱ // 0x15e7 @0xb
0x15dc…15f9 at0010 = ╱ec╱ , ╱ // 0x15ec @0x10
0x15dc…15f9 at0011 = ╱31╱1╱ // 0x15ed @0x11
0x15dc…15f9 at0012 = ╱fe00008001╱ // 0x15ee @0x12
0x15dc…15f9 at0017 = ╱ec╱ , ╱ // 0x15f3 @0x17
0x15dc…15f9 at0018 = ╱44╱D╱ // 0x15f4 @0x18
0x15dc…15f9 at0019 = ╱32╱2╱ // 0x15f5 @0x19
0x15dc…15f9 at001a = ╱ef╱ $ ╱ // 0x15f6 @0x1a
0x15dc…15f9 at001b = ╱ee╱ ) ╱ // 0x15f7 @0x1b
0x15dc…15f9 at001c = EOL // 0x15f8 @0x1c
0x15dc…15f9 }
0x15f9…160a 9d57 2740 K2 = K2 + 1
0x15f9…160a LineComalBcd {
0x15f9…160a ptr = 0x9d57 // 0x15f9 @0x0
0x15f9…160a lno = 0x2740 // 0x15fb @0x2
0x15f9…160a at0004 = ╱4b╱K╱ // 0x15fd @0x4
0x15f9…160a at0005 = ╱32╱2╱ // 0x15fe @0x5
0x15f9…160a at0006 = ╱dc╱ = ╱ // 0x15ff @0x6
0x15f9…160a at0007 = ╱4b╱K╱ // 0x1600 @0x7
0x15f9…160a at0008 = ╱32╱2╱ // 0x1601 @0x8
0x15f9…160a at0009 = ╱e2╱ + ╱ // 0x1602 @0x9
0x15f9…160a at000a = ╱31╱1╱ // 0x1603 @0xa
0x15f9…160a at000b = ╱fe00008001╱ // 0x1604 @0xb
0x15f9…160a at0010 = EOL // 0x1609 @0x10
0x15f9…160a }
0x160a…1638 9d85 2750 G5 ( I ) = ORD ( F1 $ ) - 48 ; G7 ( I ) = ORD ( F2 $ ) - 48
0x160a…1638 LineComalBcd {
0x160a…1638 ptr = 0x9d85 // 0x160a @0x0
0x160a…1638 lno = 0x2750 // 0x160c @0x2
0x160a…1638 at0004 = ╱47╱G╱ // 0x160e @0x4
0x160a…1638 at0005 = ╱35╱5╱ // 0x160f @0x5
0x160a…1638 at0006 = ╱ed╱ ( ╱ // 0x1610 @0x6
0x160a…1638 at0007 = ╱49╱I╱ // 0x1611 @0x7
0x160a…1638 at0008 = ╱ee╱ ) ╱ // 0x1612 @0x8
0x160a…1638 at0009 = ╱dc╱ = ╱ // 0x1613 @0x9
0x160a…1638 at000a = ╱cd╱ ORD ╱ // 0x1614 @0xa
0x160a…1638 at000b = ╱ed╱ ( ╱ // 0x1615 @0xb
0x160a…1638 at000c = ╱46╱F╱ // 0x1616 @0xc
0x160a…1638 at000d = ╱31╱1╱ // 0x1617 @0xd
0x160a…1638 at000e = ╱ef╱ $ ╱ // 0x1618 @0xe
0x160a…1638 at000f = ╱ee╱ ) ╱ // 0x1619 @0xf
0x160a…1638 at0010 = ╱e3╱ - ╱ // 0x161a @0x10
0x160a…1638 at0011 = ╱34╱4╱ // 0x161b @0x11
0x160a…1638 at0012 = ╱38╱8╱ // 0x161c @0x12
0x160a…1638 at0013 = ╱fe0000c006╱ // 0x161d @0x13
0x160a…1638 at0018 = ╱eb╱ ; ╱ // 0x1622 @0x18
0x160a…1638 at0019 = ╱47╱G╱ // 0x1623 @0x19
0x160a…1638 at001a = ╱37╱7╱ // 0x1624 @0x1a
0x160a…1638 at001b = ╱ed╱ ( ╱ // 0x1625 @0x1b
0x160a…1638 at001c = ╱49╱I╱ // 0x1626 @0x1c
0x160a…1638 at001d = ╱ee╱ ) ╱ // 0x1627 @0x1d
0x160a…1638 at001e = ╱dc╱ = ╱ // 0x1628 @0x1e
0x160a…1638 at001f = ╱cd╱ ORD ╱ // 0x1629 @0x1f
0x160a…1638 at0020 = ╱ed╱ ( ╱ // 0x162a @0x20
0x160a…1638 at0021 = ╱46╱F╱ // 0x162b @0x21
0x160a…1638 at0022 = ╱32╱2╱ // 0x162c @0x22
0x160a…1638 at0023 = ╱ef╱ $ ╱ // 0x162d @0x23
0x160a…1638 at0024 = ╱ee╱ ) ╱ // 0x162e @0x24
0x160a…1638 at0025 = ╱e3╱ - ╱ // 0x162f @0x25
0x160a…1638 at0026 = ╱34╱4╱ // 0x1630 @0x26
0x160a…1638 at0027 = ╱38╱8╱ // 0x1631 @0x27
0x160a…1638 at0028 = ╱fe0000c006╱ // 0x1632 @0x28
0x160a…1638 at002d = EOL // 0x1637 @0x2d
0x160a…1638 }
0x1638…1659 9da6 2760 IF G5 ( I ) > 9 AND G5 ( I ) < 20 THEN
0x1638…1659 LineComalBcd {
0x1638…1659 ptr = 0x9da6 // 0x1638 @0x0
0x1638…1659 lno = 0x2760 // 0x163a @0x2
0x1638…1659 at0004 = ╱9c╱ IF ╱ // 0x163c @0x4
0x1638…1659 at0005 = ╱47╱G╱ // 0x163d @0x5
0x1638…1659 at0006 = ╱35╱5╱ // 0x163e @0x6
0x1638…1659 at0007 = ╱ed╱ ( ╱ // 0x163f @0x7
0x1638…1659 at0008 = ╱49╱I╱ // 0x1640 @0x8
0x1638…1659 at0009 = ╱ee╱ ) ╱ // 0x1641 @0x9
0x1638…1659 at000a = ╱de╱ > ╱ // 0x1642 @0xa
0x1638…1659 at000b = ╱39╱9╱ // 0x1643 @0xb
0x1638…1659 at000c = ╱fe00009004╱ // 0x1644 @0xc
0x1638…1659 at0011 = ╱da╱ AND ╱ // 0x1649 @0x11
0x1638…1659 at0012 = ╱47╱G╱ // 0x164a @0x12
0x1638…1659 at0013 = ╱35╱5╱ // 0x164b @0x13
0x1638…1659 at0014 = ╱ed╱ ( ╱ // 0x164c @0x14
0x1638…1659 at0015 = ╱49╱I╱ // 0x164d @0x15
0x1638…1659 at0016 = ╱ee╱ ) ╱ // 0x164e @0x16
0x1638…1659 at0017 = ╱dd╱ < ╱ // 0x164f @0x17
0x1638…1659 at0018 = ╱32╱2╱ // 0x1650 @0x18
0x1638…1659 at0019 = ╱30╱0╱ // 0x1651 @0x19
0x1638…1659 at001a = ╱fe0000a005╱ // 0x1652 @0x1a
0x1638…1659 at001f = ╱b6╱ THEN ╱ // 0x1657 @0x1f
0x1638…1659 at0020 = EOL // 0x1658 @0x20
0x1638…1659 }
0x1659…1666 9db3 2770 IF I2 = K2 THEN EXIT
0x1659…1666 LineComalBcd {
0x1659…1666 ptr = 0x9db3 // 0x1659 @0x0
0x1659…1666 lno = 0x2770 // 0x165b @0x2
0x1659…1666 at0004 = ╱82╱ IF ╱ // 0x165d @0x4
0x1659…1666 at0005 = ╱49╱I╱ // 0x165e @0x5
0x1659…1666 at0006 = ╱32╱2╱ // 0x165f @0x6
0x1659…1666 at0007 = ╱dc╱ = ╱ // 0x1660 @0x7
0x1659…1666 at0008 = ╱4b╱K╱ // 0x1661 @0x8
0x1659…1666 at0009 = ╱32╱2╱ // 0x1662 @0x9
0x1659…1666 at000a = ╱b6╱ THEN ╱ // 0x1663 @0xa
0x1659…1666 at000b = ╱99╱ EXIT ╱ // 0x1664 @0xb
0x1659…1666 at000c = EOL // 0x1665 @0xc
0x1659…1666 }
0x1666…1679 9dc6 2780 GET D2 $ , K2 : G8 $ ( I )
0x1666…1679 LineComalBcd {
0x1666…1679 ptr = 0x9dc6 // 0x1666 @0x0
0x1666…1679 lno = 0x2780 // 0x1668 @0x2
0x1666…1679 at0004 = ╱a9╱ GET ╱ // 0x166a @0x4
0x1666…1679 at0005 = ╱44╱D╱ // 0x166b @0x5
0x1666…1679 at0006 = ╱32╱2╱ // 0x166c @0x6
0x1666…1679 at0007 = ╱ef╱ $ ╱ // 0x166d @0x7
0x1666…1679 at0008 = ╱ec╱ , ╱ // 0x166e @0x8
0x1666…1679 at0009 = ╱4b╱K╱ // 0x166f @0x9
0x1666…1679 at000a = ╱32╱2╱ // 0x1670 @0xa
0x1666…1679 at000b = ╱f0╱ : ╱ // 0x1671 @0xb
0x1666…1679 at000c = ╱47╱G╱ // 0x1672 @0xc
0x1666…1679 at000d = ╱38╱8╱ // 0x1673 @0xd
0x1666…1679 at000e = ╱ef╱ $ ╱ // 0x1674 @0xe
0x1666…1679 at000f = ╱ed╱ ( ╱ // 0x1675 @0xf
0x1666…1679 at0010 = ╱49╱I╱ // 0x1676 @0x10
0x1666…1679 at0011 = ╱ee╱ ) ╱ // 0x1677 @0x11
0x1666…1679 at0012 = EOL // 0x1678 @0x12
0x1666…1679 }
0x1679…1696 9de3 2790 EXEC FEJL ( 2 , 2 , D2 $ )
0x1679…1696 LineComalBcd {
0x1679…1696 ptr = 0x9de3 // 0x1679 @0x0
0x1679…1696 lno = 0x2790 // 0x167b @0x2
0x1679…1696 at0004 = ╱9d╱ EXEC ╱ // 0x167d @0x4
0x1679…1696 at0005 = ╱46╱F╱ // 0x167e @0x5
0x1679…1696 at0006 = ╱45╱E╱ // 0x167f @0x6
0x1679…1696 at0007 = ╱4a╱J╱ // 0x1680 @0x7
0x1679…1696 at0008 = ╱4c╱L╱ // 0x1681 @0x8
0x1679…1696 at0009 = ╱ed╱ ( ╱ // 0x1682 @0x9
0x1679…1696 at000a = ╱32╱2╱ // 0x1683 @0xa
0x1679…1696 at000b = ╱fe00008002╱ // 0x1684 @0xb
0x1679…1696 at0010 = ╱ec╱ , ╱ // 0x1689 @0x10
0x1679…1696 at0011 = ╱32╱2╱ // 0x168a @0x11
0x1679…1696 at0012 = ╱fe00008002╱ // 0x168b @0x12
0x1679…1696 at0017 = ╱ec╱ , ╱ // 0x1690 @0x17
0x1679…1696 at0018 = ╱44╱D╱ // 0x1691 @0x18
0x1679…1696 at0019 = ╱32╱2╱ // 0x1692 @0x19
0x1679…1696 at001a = ╱ef╱ $ ╱ // 0x1693 @0x1a
0x1679…1696 at001b = ╱ee╱ ) ╱ // 0x1694 @0x1b
0x1679…1696 at001c = EOL // 0x1695 @0x1c
0x1679…1696 }
0x1696…16a7 9df4 2800 K2 = K2 + 1
0x1696…16a7 LineComalBcd {
0x1696…16a7 ptr = 0x9df4 // 0x1696 @0x0
0x1696…16a7 lno = 0x2800 // 0x1698 @0x2
0x1696…16a7 at0004 = ╱4b╱K╱ // 0x169a @0x4
0x1696…16a7 at0005 = ╱32╱2╱ // 0x169b @0x5
0x1696…16a7 at0006 = ╱dc╱ = ╱ // 0x169c @0x6
0x1696…16a7 at0007 = ╱4b╱K╱ // 0x169d @0x7
0x1696…16a7 at0008 = ╱32╱2╱ // 0x169e @0x8
0x1696…16a7 at0009 = ╱e2╱ + ╱ // 0x169f @0x9
0x1696…16a7 at000a = ╱31╱1╱ // 0x16a0 @0xa
0x1696…16a7 at000b = ╱fe00008001╱ // 0x16a1 @0xb
0x1696…16a7 at0010 = EOL // 0x16a6 @0x10
0x1696…16a7 }
0x16a7…16ad 9dfa 2810 ELSE
0x16a7…16ad LineComalBcd {
0x16a7…16ad ptr = 0x9dfa // 0x16a7 @0x0
0x16a7…16ad lno = 0x2810 // 0x16a9 @0x2
0x16a7…16ad at0004 = ╱9a╱ ELSE ╱ // 0x16ab @0x4
0x16a7…16ad at0005 = EOL // 0x16ac @0x5
0x16a7…16ad }
0x16ad…16c0 9e0d 2820 IF G5 ( I ) > 0 THEN
0x16ad…16c0 LineComalBcd {
0x16ad…16c0 ptr = 0x9e0d // 0x16ad @0x0
0x16ad…16c0 lno = 0x2820 // 0x16af @0x2
0x16ad…16c0 at0004 = ╱9c╱ IF ╱ // 0x16b1 @0x4
0x16ad…16c0 at0005 = ╱47╱G╱ // 0x16b2 @0x5
0x16ad…16c0 at0006 = ╱35╱5╱ // 0x16b3 @0x6
0x16ad…16c0 at0007 = ╱ed╱ ( ╱ // 0x16b4 @0x7
0x16ad…16c0 at0008 = ╱49╱I╱ // 0x16b5 @0x8
0x16ad…16c0 at0009 = ╱ee╱ ) ╱ // 0x16b6 @0x9
0x16ad…16c0 at000a = ╱de╱ > ╱ // 0x16b7 @0xa
0x16ad…16c0 at000b = ╱30╱0╱ // 0x16b8 @0xb
0x16ad…16c0 at000c = ╱fe00000000╱ // 0x16b9 @0xc
0x16ad…16c0 at0011 = ╱b6╱ THEN ╱ // 0x16be @0x11
0x16ad…16c0 at0012 = EOL // 0x16bf @0x12
0x16ad…16c0 }
0x16c0…16ee 9e3b 2830 G8 $ ( I ) = E5 $ ( G5 ( I ) - 10 * ( G5 ( I ) > 20 ) )
0x16c0…16ee LineComalBcd {
0x16c0…16ee ptr = 0x9e3b // 0x16c0 @0x0
0x16c0…16ee lno = 0x2830 // 0x16c2 @0x2
0x16c0…16ee at0004 = ╱47╱G╱ // 0x16c4 @0x4
0x16c0…16ee at0005 = ╱38╱8╱ // 0x16c5 @0x5
0x16c0…16ee at0006 = ╱ef╱ $ ╱ // 0x16c6 @0x6
0x16c0…16ee at0007 = ╱ed╱ ( ╱ // 0x16c7 @0x7
0x16c0…16ee at0008 = ╱49╱I╱ // 0x16c8 @0x8
0x16c0…16ee at0009 = ╱ee╱ ) ╱ // 0x16c9 @0x9
0x16c0…16ee at000a = ╱dc╱ = ╱ // 0x16ca @0xa
0x16c0…16ee at000b = ╱45╱E╱ // 0x16cb @0xb
0x16c0…16ee at000c = ╱35╱5╱ // 0x16cc @0xc
0x16c0…16ee at000d = ╱ef╱ $ ╱ // 0x16cd @0xd
0x16c0…16ee at000e = ╱ed╱ ( ╱ // 0x16ce @0xe
0x16c0…16ee at000f = ╱47╱G╱ // 0x16cf @0xf
0x16c0…16ee at0010 = ╱35╱5╱ // 0x16d0 @0x10
0x16c0…16ee at0011 = ╱ed╱ ( ╱ // 0x16d1 @0x11
0x16c0…16ee at0012 = ╱49╱I╱ // 0x16d2 @0x12
0x16c0…16ee at0013 = ╱ee╱ ) ╱ // 0x16d3 @0x13
0x16c0…16ee at0014 = ╱e3╱ - ╱ // 0x16d4 @0x14
0x16c0…16ee at0015 = ╱31╱1╱ // 0x16d5 @0x15
0x16c0…16ee at0016 = ╱30╱0╱ // 0x16d6 @0x16
0x16c0…16ee at0017 = ╱fe0000a004╱ // 0x16d7 @0x17
0x16c0…16ee at001c = ╱e4╱ * ╱ // 0x16dc @0x1c
0x16c0…16ee at001d = ╱ed╱ ( ╱ // 0x16dd @0x1d
0x16c0…16ee at001e = ╱47╱G╱ // 0x16de @0x1e
0x16c0…16ee at001f = ╱35╱5╱ // 0x16df @0x1f
0x16c0…16ee at0020 = ╱ed╱ ( ╱ // 0x16e0 @0x20
0x16c0…16ee at0021 = ╱49╱I╱ // 0x16e1 @0x21
0x16c0…16ee at0022 = ╱ee╱ ) ╱ // 0x16e2 @0x22
0x16c0…16ee at0023 = ╱de╱ > ╱ // 0x16e3 @0x23
0x16c0…16ee at0024 = ╱32╱2╱ // 0x16e4 @0x24
0x16c0…16ee at0025 = ╱30╱0╱ // 0x16e5 @0x25
0x16c0…16ee at0026 = ╱fe0000a005╱ // 0x16e6 @0x26
0x16c0…16ee at002b = ╱ee╱ ) ╱ // 0x16eb @0x2b
0x16c0…16ee at002c = ╱ee╱ ) ╱ // 0x16ec @0x2c
0x16c0…16ee at002d = EOL // 0x16ed @0x2d
0x16c0…16ee }
0x16ee…16f4 9e41 2840 ELSE
0x16ee…16f4 LineComalBcd {
0x16ee…16f4 ptr = 0x9e41 // 0x16ee @0x0
0x16ee…16f4 lno = 0x2840 // 0x16f0 @0x2
0x16ee…16f4 at0004 = ╱9a╱ ELSE ╱ // 0x16f2 @0x4
0x16ee…16f4 at0005 = EOL // 0x16f3 @0x5
0x16ee…16f4 }
0x16f4…1713 9e60 2850 G8 $ ( I ) = B7 $ ( 1 : 25 )
0x16f4…1713 LineComalBcd {
0x16f4…1713 ptr = 0x9e60 // 0x16f4 @0x0
0x16f4…1713 lno = 0x2850 // 0x16f6 @0x2
0x16f4…1713 at0004 = ╱47╱G╱ // 0x16f8 @0x4
0x16f4…1713 at0005 = ╱38╱8╱ // 0x16f9 @0x5
0x16f4…1713 at0006 = ╱ef╱ $ ╱ // 0x16fa @0x6
0x16f4…1713 at0007 = ╱ed╱ ( ╱ // 0x16fb @0x7
0x16f4…1713 at0008 = ╱49╱I╱ // 0x16fc @0x8
0x16f4…1713 at0009 = ╱ee╱ ) ╱ // 0x16fd @0x9
0x16f4…1713 at000a = ╱dc╱ = ╱ // 0x16fe @0xa
0x16f4…1713 at000b = ╱42╱B╱ // 0x16ff @0xb
0x16f4…1713 at000c = ╱37╱7╱ // 0x1700 @0xc
0x16f4…1713 at000d = ╱ef╱ $ ╱ // 0x1701 @0xd
0x16f4…1713 at000e = ╱ed╱ ( ╱ // 0x1702 @0xe
0x16f4…1713 at000f = ╱31╱1╱ // 0x1703 @0xf
0x16f4…1713 at0010 = ╱fe00008001╱ // 0x1704 @0x10
0x16f4…1713 at0015 = ╱f0╱ : ╱ // 0x1709 @0x15
0x16f4…1713 at0016 = ╱32╱2╱ // 0x170a @0x16
0x16f4…1713 at0017 = ╱35╱5╱ // 0x170b @0x17
0x16f4…1713 at0018 = ╱fe0000c805╱ // 0x170c @0x18
0x16f4…1713 at001d = ╱ee╱ ) ╱ // 0x1711 @0x1d
0x16f4…1713 at001e = EOL // 0x1712 @0x1e
0x16f4…1713 }
0x1713…1719 9e66 2860 ENDIF
0x1713…1719 LineComalBcd {
0x1713…1719 ptr = 0x9e66 // 0x1713 @0x0
0x1713…1719 lno = 0x2860 // 0x1715 @0x2
0x1713…1719 at0004 = ╱9b╱ ENDIF ╱ // 0x1717 @0x4
0x1713…1719 at0005 = EOL // 0x1718 @0x5
0x1713…1719 }
0x1719…171f 9e6c 2870 ENDIF
0x1719…171f LineComalBcd {
0x1719…171f ptr = 0x9e6c // 0x1719 @0x0
0x1719…171f lno = 0x2870 // 0x171b @0x2
0x1719…171f at0004 = ╱9b╱ ENDIF ╱ // 0x171d @0x4
0x1719…171f at0005 = EOL // 0x171e @0x5
0x1719…171f }
0x171f…175b 9ea8 2880 IF G2 ( I ) >< 0 THEN EXEC UDLINIE ( G2 ( I ) , G4 ( I ) , G8 $ ( I ) , G6 $ ( I ) , G7 ( I ) )
0x171f…175b LineComalBcd {
0x171f…175b ptr = 0x9ea8 // 0x171f @0x0
0x171f…175b lno = 0x2880 // 0x1721 @0x2
0x171f…175b at0004 = ╱82╱ IF ╱ // 0x1723 @0x4
0x171f…175b at0005 = ╱47╱G╱ // 0x1724 @0x5
0x171f…175b at0006 = ╱32╱2╱ // 0x1725 @0x6
0x171f…175b at0007 = ╱ed╱ ( ╱ // 0x1726 @0x7
0x171f…175b at0008 = ╱49╱I╱ // 0x1727 @0x8
0x171f…175b at0009 = ╱ee╱ ) ╱ // 0x1728 @0x9
0x171f…175b at000a = ╱e1╱ >< ╱ // 0x1729 @0xa
0x171f…175b at000b = ╱30╱0╱ // 0x172a @0xb
0x171f…175b at000c = ╱fe00000000╱ // 0x172b @0xc
0x171f…175b at0011 = ╱b6╱ THEN ╱ // 0x1730 @0x11
0x171f…175b at0012 = ╱9d╱ EXEC ╱ // 0x1731 @0x12
0x171f…175b at0013 = ╱55╱U╱ // 0x1732 @0x13
0x171f…175b at0014 = ╱44╱D╱ // 0x1733 @0x14
0x171f…175b at0015 = ╱4c╱L╱ // 0x1734 @0x15
0x171f…175b at0016 = ╱49╱I╱ // 0x1735 @0x16
0x171f…175b at0017 = ╱4e╱N╱ // 0x1736 @0x17
0x171f…175b at0018 = ╱49╱I╱ // 0x1737 @0x18
0x171f…175b at0019 = ╱45╱E╱ // 0x1738 @0x19
0x171f…175b at001a = ╱ed╱ ( ╱ // 0x1739 @0x1a
0x171f…175b at001b = ╱47╱G╱ // 0x173a @0x1b
0x171f…175b at001c = ╱32╱2╱ // 0x173b @0x1c
0x171f…175b at001d = ╱ed╱ ( ╱ // 0x173c @0x1d
0x171f…175b at001e = ╱49╱I╱ // 0x173d @0x1e
0x171f…175b at001f = ╱ee╱ ) ╱ // 0x173e @0x1f
0x171f…175b at0020 = ╱ec╱ , ╱ // 0x173f @0x20
0x171f…175b at0021 = ╱47╱G╱ // 0x1740 @0x21
0x171f…175b at0022 = ╱34╱4╱ // 0x1741 @0x22
0x171f…175b at0023 = ╱ed╱ ( ╱ // 0x1742 @0x23
0x171f…175b at0024 = ╱49╱I╱ // 0x1743 @0x24
0x171f…175b at0025 = ╱ee╱ ) ╱ // 0x1744 @0x25
0x171f…175b at0026 = ╱ec╱ , ╱ // 0x1745 @0x26
0x171f…175b at0027 = ╱47╱G╱ // 0x1746 @0x27
0x171f…175b at0028 = ╱38╱8╱ // 0x1747 @0x28
0x171f…175b at0029 = ╱ef╱ $ ╱ // 0x1748 @0x29
0x171f…175b at002a = ╱ed╱ ( ╱ // 0x1749 @0x2a
0x171f…175b at002b = ╱49╱I╱ // 0x174a @0x2b
0x171f…175b at002c = ╱ee╱ ) ╱ // 0x174b @0x2c
0x171f…175b at002d = ╱ec╱ , ╱ // 0x174c @0x2d
0x171f…175b at002e = ╱47╱G╱ // 0x174d @0x2e
0x171f…175b at002f = ╱36╱6╱ // 0x174e @0x2f
0x171f…175b at0030 = ╱ef╱ $ ╱ // 0x174f @0x30
0x171f…175b at0031 = ╱ed╱ ( ╱ // 0x1750 @0x31
0x171f…175b at0032 = ╱49╱I╱ // 0x1751 @0x32
0x171f…175b at0033 = ╱ee╱ ) ╱ // 0x1752 @0x33
0x171f…175b at0034 = ╱ec╱ , ╱ // 0x1753 @0x34
0x171f…175b at0035 = ╱47╱G╱ // 0x1754 @0x35
0x171f…175b at0036 = ╱37╱7╱ // 0x1755 @0x36
0x171f…175b at0037 = ╱ed╱ ( ╱ // 0x1756 @0x37
0x171f…175b at0038 = ╱49╱I╱ // 0x1757 @0x38
0x171f…175b at0039 = ╱ee╱ ) ╱ // 0x1758 @0x39
0x171f…175b at003a = ╱ee╱ ) ╱ // 0x1759 @0x3a
0x171f…175b at003b = EOL // 0x175a @0x3b
0x171f…175b }
0x175b…176c 9eb9 2890 H5 = H5 + 1
0x175b…176c LineComalBcd {
0x175b…176c ptr = 0x9eb9 // 0x175b @0x0
0x175b…176c lno = 0x2890 // 0x175d @0x2
0x175b…176c at0004 = ╱48╱H╱ // 0x175f @0x4
0x175b…176c at0005 = ╱35╱5╱ // 0x1760 @0x5
0x175b…176c at0006 = ╱dc╱ = ╱ // 0x1761 @0x6
0x175b…176c at0007 = ╱48╱H╱ // 0x1762 @0x7
0x175b…176c at0008 = ╱35╱5╱ // 0x1763 @0x8
0x175b…176c at0009 = ╱e2╱ + ╱ // 0x1764 @0x9
0x175b…176c at000a = ╱31╱1╱ // 0x1765 @0xa
0x175b…176c at000b = ╱fe00008001╱ // 0x1766 @0xb
0x175b…176c at0010 = EOL // 0x176b @0x10
0x175b…176c }
0x176c…1779 9ec6 2900 IF K2 = I2 THEN EXIT
0x176c…1779 LineComalBcd {
0x176c…1779 ptr = 0x9ec6 // 0x176c @0x0
0x176c…1779 lno = 0x2900 // 0x176e @0x2
0x176c…1779 at0004 = ╱82╱ IF ╱ // 0x1770 @0x4
0x176c…1779 at0005 = ╱4b╱K╱ // 0x1771 @0x5
0x176c…1779 at0006 = ╱32╱2╱ // 0x1772 @0x6
0x176c…1779 at0007 = ╱dc╱ = ╱ // 0x1773 @0x7
0x176c…1779 at0008 = ╱49╱I╱ // 0x1774 @0x8
0x176c…1779 at0009 = ╱32╱2╱ // 0x1775 @0x9
0x176c…1779 at000a = ╱b6╱ THEN ╱ // 0x1776 @0xa
0x176c…1779 at000b = ╱99╱ EXIT ╱ // 0x1777 @0xb
0x176c…1779 at000c = EOL // 0x1778 @0xc
0x176c…1779 }
0x1779…1780 9ecd 2910 NEXT I
0x1779…1780 LineComalBcd {
0x1779…1780 ptr = 0x9ecd // 0x1779 @0x0
0x1779…1780 lno = 0x2910 // 0x177b @0x2
0x1779…1780 at0004 = ╱84╱ NEXT ╱ // 0x177d @0x4
0x1779…1780 at0005 = ╱49╱I╱ // 0x177e @0x5
0x1779…1780 at0006 = EOL // 0x177f @0x6
0x1779…1780 }
0x1780…1786 9ed3 2920 ENDPROC
0x1780…1786 LineComalBcd {
0x1780…1786 ptr = 0x9ed3 // 0x1780 @0x0
0x1780…1786 lno = 0x2920 // 0x1782 @0x2
0x1780…1786 at0004 = ╱9f╱ ENDPROC ╱ // 0x1784 @0x4
0x1780…1786 at0005 = EOL // 0x1785 @0x5
0x1780…1786 }
0x1786…1796 9ee3 2930 PROC GEMKASPOST
0x1786…1796 LineComalBcd {
0x1786…1796 ptr = 0x9ee3 // 0x1786 @0x0
0x1786…1796 lno = 0x2930 // 0x1788 @0x2
0x1786…1796 at0004 = ╱9e╱ PROC ╱ // 0x178a @0x4
0x1786…1796 at0005 = ╱47╱G╱ // 0x178b @0x5
0x1786…1796 at0006 = ╱45╱E╱ // 0x178c @0x6
0x1786…1796 at0007 = ╱4d╱M╱ // 0x178d @0x7
0x1786…1796 at0008 = ╱4b╱K╱ // 0x178e @0x8
0x1786…1796 at0009 = ╱41╱A╱ // 0x178f @0x9
0x1786…1796 at000a = ╱53╱S╱ // 0x1790 @0xa
0x1786…1796 at000b = ╱50╱P╱ // 0x1791 @0xb
0x1786…1796 at000c = ╱4f╱O╱ // 0x1792 @0xc
0x1786…1796 at000d = ╱53╱S╱ // 0x1793 @0xd
0x1786…1796 at000e = ╱54╱T╱ // 0x1794 @0xe
0x1786…1796 at000f = EOL // 0x1795 @0xf
0x1786…1796 }
0x1796…17ac 9ef9 2940 FOR I = 1 TO 18
0x1796…17ac LineComalBcd {
0x1796…17ac ptr = 0x9ef9 // 0x1796 @0x0
0x1796…17ac lno = 0x2940 // 0x1798 @0x2
0x1796…17ac at0004 = ╱83╱ FOR ╱ // 0x179a @0x4
0x1796…17ac at0005 = ╱49╱I╱ // 0x179b @0x5
0x1796…17ac at0006 = ╱dc╱ = ╱ // 0x179c @0x6
0x1796…17ac at0007 = ╱31╱1╱ // 0x179d @0x7
0x1796…17ac at0008 = ╱fe00008001╱ // 0x179e @0x8
0x1796…17ac at000d = ╱b7╱ TO ╱ // 0x17a3 @0xd
0x1796…17ac at000e = ╱31╱1╱ // 0x17a4 @0xe
0x1796…17ac at000f = ╱38╱8╱ // 0x17a5 @0xf
0x1796…17ac at0010 = ╱fe00009005╱ // 0x17a6 @0x10
0x1796…17ac at0015 = EOL // 0x17ab @0x15
0x1796…17ac }
0x17ac…17da 9f27 2950 F1 $ = CHR ( G5 ( I ) + 48 ) ; F2 $ = CHR ( G7 ( I ) + 48 )
0x17ac…17da LineComalBcd {
0x17ac…17da ptr = 0x9f27 // 0x17ac @0x0
0x17ac…17da lno = 0x2950 // 0x17ae @0x2
0x17ac…17da at0004 = ╱46╱F╱ // 0x17b0 @0x4
0x17ac…17da at0005 = ╱31╱1╱ // 0x17b1 @0x5
0x17ac…17da at0006 = ╱ef╱ $ ╱ // 0x17b2 @0x6
0x17ac…17da at0007 = ╱dc╱ = ╱ // 0x17b3 @0x7
0x17ac…17da at0008 = ╱cf╱ CHR ╱ // 0x17b4 @0x8
0x17ac…17da at0009 = ╱ed╱ ( ╱ // 0x17b5 @0x9
0x17ac…17da at000a = ╱47╱G╱ // 0x17b6 @0xa
0x17ac…17da at000b = ╱35╱5╱ // 0x17b7 @0xb
0x17ac…17da at000c = ╱ed╱ ( ╱ // 0x17b8 @0xc
0x17ac…17da at000d = ╱49╱I╱ // 0x17b9 @0xd
0x17ac…17da at000e = ╱ee╱ ) ╱ // 0x17ba @0xe
0x17ac…17da at000f = ╱e2╱ + ╱ // 0x17bb @0xf
0x17ac…17da at0010 = ╱34╱4╱ // 0x17bc @0x10
0x17ac…17da at0011 = ╱38╱8╱ // 0x17bd @0x11
0x17ac…17da at0012 = ╱fe0000c006╱ // 0x17be @0x12
0x17ac…17da at0017 = ╱ee╱ ) ╱ // 0x17c3 @0x17
0x17ac…17da at0018 = ╱eb╱ ; ╱ // 0x17c4 @0x18
0x17ac…17da at0019 = ╱46╱F╱ // 0x17c5 @0x19
0x17ac…17da at001a = ╱32╱2╱ // 0x17c6 @0x1a
0x17ac…17da at001b = ╱ef╱ $ ╱ // 0x17c7 @0x1b
0x17ac…17da at001c = ╱dc╱ = ╱ // 0x17c8 @0x1c
0x17ac…17da at001d = ╱cf╱ CHR ╱ // 0x17c9 @0x1d
0x17ac…17da at001e = ╱ed╱ ( ╱ // 0x17ca @0x1e
0x17ac…17da at001f = ╱47╱G╱ // 0x17cb @0x1f
0x17ac…17da at0020 = ╱37╱7╱ // 0x17cc @0x20
0x17ac…17da at0021 = ╱ed╱ ( ╱ // 0x17cd @0x21
0x17ac…17da at0022 = ╱49╱I╱ // 0x17ce @0x22
0x17ac…17da at0023 = ╱ee╱ ) ╱ // 0x17cf @0x23
0x17ac…17da at0024 = ╱e2╱ + ╱ // 0x17d0 @0x24
0x17ac…17da at0025 = ╱34╱4╱ // 0x17d1 @0x25
0x17ac…17da at0026 = ╱38╱8╱ // 0x17d2 @0x26
0x17ac…17da at0027 = ╱fe0000c006╱ // 0x17d3 @0x27
0x17ac…17da at002c = ╱ee╱ ) ╱ // 0x17d8 @0x2c
0x17ac…17da at002d = EOL // 0x17d9 @0x2d
0x17ac…17da }
0x17da…1807 9f54 2960 PUT D2 $ , K3 : G2 ( I ) , G3 ( I ) , G4 ( I ) , F1 $ , G6 $ ( I ) , F2 $
0x17da…1807 LineComalBcd {
0x17da…1807 ptr = 0x9f54 // 0x17da @0x0
0x17da…1807 lno = 0x2960 // 0x17dc @0x2
0x17da…1807 at0004 = ╱aa╱ PUT ╱ // 0x17de @0x4
0x17da…1807 at0005 = ╱44╱D╱ // 0x17df @0x5
0x17da…1807 at0006 = ╱32╱2╱ // 0x17e0 @0x6
0x17da…1807 at0007 = ╱ef╱ $ ╱ // 0x17e1 @0x7
0x17da…1807 at0008 = ╱ec╱ , ╱ // 0x17e2 @0x8
0x17da…1807 at0009 = ╱4b╱K╱ // 0x17e3 @0x9
0x17da…1807 at000a = ╱33╱3╱ // 0x17e4 @0xa
0x17da…1807 at000b = ╱f0╱ : ╱ // 0x17e5 @0xb
0x17da…1807 at000c = ╱47╱G╱ // 0x17e6 @0xc
0x17da…1807 at000d = ╱32╱2╱ // 0x17e7 @0xd
0x17da…1807 at000e = ╱ed╱ ( ╱ // 0x17e8 @0xe
0x17da…1807 at000f = ╱49╱I╱ // 0x17e9 @0xf
0x17da…1807 at0010 = ╱ee╱ ) ╱ // 0x17ea @0x10
0x17da…1807 at0011 = ╱ec╱ , ╱ // 0x17eb @0x11
0x17da…1807 at0012 = ╱47╱G╱ // 0x17ec @0x12
0x17da…1807 at0013 = ╱33╱3╱ // 0x17ed @0x13
0x17da…1807 at0014 = ╱ed╱ ( ╱ // 0x17ee @0x14
0x17da…1807 at0015 = ╱49╱I╱ // 0x17ef @0x15
0x17da…1807 at0016 = ╱ee╱ ) ╱ // 0x17f0 @0x16
0x17da…1807 at0017 = ╱ec╱ , ╱ // 0x17f1 @0x17
0x17da…1807 at0018 = ╱47╱G╱ // 0x17f2 @0x18
0x17da…1807 at0019 = ╱34╱4╱ // 0x17f3 @0x19
0x17da…1807 at001a = ╱ed╱ ( ╱ // 0x17f4 @0x1a
0x17da…1807 at001b = ╱49╱I╱ // 0x17f5 @0x1b
0x17da…1807 at001c = ╱ee╱ ) ╱ // 0x17f6 @0x1c
0x17da…1807 at001d = ╱ec╱ , ╱ // 0x17f7 @0x1d
0x17da…1807 at001e = ╱46╱F╱ // 0x17f8 @0x1e
0x17da…1807 at001f = ╱31╱1╱ // 0x17f9 @0x1f
0x17da…1807 at0020 = ╱ef╱ $ ╱ // 0x17fa @0x20
0x17da…1807 at0021 = ╱ec╱ , ╱ // 0x17fb @0x21
0x17da…1807 at0022 = ╱47╱G╱ // 0x17fc @0x22
0x17da…1807 at0023 = ╱36╱6╱ // 0x17fd @0x23
0x17da…1807 at0024 = ╱ef╱ $ ╱ // 0x17fe @0x24
0x17da…1807 at0025 = ╱ed╱ ( ╱ // 0x17ff @0x25
0x17da…1807 at0026 = ╱49╱I╱ // 0x1800 @0x26
0x17da…1807 at0027 = ╱ee╱ ) ╱ // 0x1801 @0x27
0x17da…1807 at0028 = ╱ec╱ , ╱ // 0x1802 @0x28
0x17da…1807 at0029 = ╱46╱F╱ // 0x1803 @0x29
0x17da…1807 at002a = ╱32╱2╱ // 0x1804 @0x2a
0x17da…1807 at002b = ╱ef╱ $ ╱ // 0x1805 @0x2b
0x17da…1807 at002c = EOL // 0x1806 @0x2c
0x17da…1807 }
0x1807…1824 9f71 2970 EXEC FEJL ( 3 , 1 , D2 $ )
0x1807…1824 LineComalBcd {
0x1807…1824 ptr = 0x9f71 // 0x1807 @0x0
0x1807…1824 lno = 0x2970 // 0x1809 @0x2
0x1807…1824 at0004 = ╱9d╱ EXEC ╱ // 0x180b @0x4
0x1807…1824 at0005 = ╱46╱F╱ // 0x180c @0x5
0x1807…1824 at0006 = ╱45╱E╱ // 0x180d @0x6
0x1807…1824 at0007 = ╱4a╱J╱ // 0x180e @0x7
0x1807…1824 at0008 = ╱4c╱L╱ // 0x180f @0x8
0x1807…1824 at0009 = ╱ed╱ ( ╱ // 0x1810 @0x9
0x1807…1824 at000a = ╱33╱3╱ // 0x1811 @0xa
0x1807…1824 at000b = ╱fe0000c002╱ // 0x1812 @0xb
0x1807…1824 at0010 = ╱ec╱ , ╱ // 0x1817 @0x10
0x1807…1824 at0011 = ╱31╱1╱ // 0x1818 @0x11
0x1807…1824 at0012 = ╱fe00008001╱ // 0x1819 @0x12
0x1807…1824 at0017 = ╱ec╱ , ╱ // 0x181e @0x17
0x1807…1824 at0018 = ╱44╱D╱ // 0x181f @0x18
0x1807…1824 at0019 = ╱32╱2╱ // 0x1820 @0x19
0x1807…1824 at001a = ╱ef╱ $ ╱ // 0x1821 @0x1a
0x1807…1824 at001b = ╱ee╱ ) ╱ // 0x1822 @0x1b
0x1807…1824 at001c = EOL // 0x1823 @0x1c
0x1807…1824 }
0x1824…1835 9f82 2980 K3 = K3 + 1
0x1824…1835 LineComalBcd {
0x1824…1835 ptr = 0x9f82 // 0x1824 @0x0
0x1824…1835 lno = 0x2980 // 0x1826 @0x2
0x1824…1835 at0004 = ╱4b╱K╱ // 0x1828 @0x4
0x1824…1835 at0005 = ╱33╱3╱ // 0x1829 @0x5
0x1824…1835 at0006 = ╱dc╱ = ╱ // 0x182a @0x6
0x1824…1835 at0007 = ╱4b╱K╱ // 0x182b @0x7
0x1824…1835 at0008 = ╱33╱3╱ // 0x182c @0x8
0x1824…1835 at0009 = ╱e2╱ + ╱ // 0x182d @0x9
0x1824…1835 at000a = ╱31╱1╱ // 0x182e @0xa
0x1824…1835 at000b = ╱fe00008001╱ // 0x182f @0xb
0x1824…1835 at0010 = EOL // 0x1834 @0x10
0x1824…1835 }
0x1835…1856 9fa3 2990 IF G5 ( I ) > 9 AND G5 ( I ) < 20 THEN
0x1835…1856 LineComalBcd {
0x1835…1856 ptr = 0x9fa3 // 0x1835 @0x0
0x1835…1856 lno = 0x2990 // 0x1837 @0x2
0x1835…1856 at0004 = ╱9c╱ IF ╱ // 0x1839 @0x4
0x1835…1856 at0005 = ╱47╱G╱ // 0x183a @0x5
0x1835…1856 at0006 = ╱35╱5╱ // 0x183b @0x6
0x1835…1856 at0007 = ╱ed╱ ( ╱ // 0x183c @0x7
0x1835…1856 at0008 = ╱49╱I╱ // 0x183d @0x8
0x1835…1856 at0009 = ╱ee╱ ) ╱ // 0x183e @0x9
0x1835…1856 at000a = ╱de╱ > ╱ // 0x183f @0xa
0x1835…1856 at000b = ╱39╱9╱ // 0x1840 @0xb
0x1835…1856 at000c = ╱fe00009004╱ // 0x1841 @0xc
0x1835…1856 at0011 = ╱da╱ AND ╱ // 0x1846 @0x11
0x1835…1856 at0012 = ╱47╱G╱ // 0x1847 @0x12
0x1835…1856 at0013 = ╱35╱5╱ // 0x1848 @0x13
0x1835…1856 at0014 = ╱ed╱ ( ╱ // 0x1849 @0x14
0x1835…1856 at0015 = ╱49╱I╱ // 0x184a @0x15
0x1835…1856 at0016 = ╱ee╱ ) ╱ // 0x184b @0x16
0x1835…1856 at0017 = ╱dd╱ < ╱ // 0x184c @0x17
0x1835…1856 at0018 = ╱32╱2╱ // 0x184d @0x18
0x1835…1856 at0019 = ╱30╱0╱ // 0x184e @0x19
0x1835…1856 at001a = ╱fe0000a005╱ // 0x184f @0x1a
0x1835…1856 at001f = ╱b6╱ THEN ╱ // 0x1854 @0x1f
0x1835…1856 at0020 = EOL // 0x1855 @0x20
0x1835…1856 }
0x1856…1869 9fb6 3000 PUT D2 $ , K3 : G8 $ ( I )
0x1856…1869 LineComalBcd {
0x1856…1869 ptr = 0x9fb6 // 0x1856 @0x0
0x1856…1869 lno = 0x3000 // 0x1858 @0x2
0x1856…1869 at0004 = ╱aa╱ PUT ╱ // 0x185a @0x4
0x1856…1869 at0005 = ╱44╱D╱ // 0x185b @0x5
0x1856…1869 at0006 = ╱32╱2╱ // 0x185c @0x6
0x1856…1869 at0007 = ╱ef╱ $ ╱ // 0x185d @0x7
0x1856…1869 at0008 = ╱ec╱ , ╱ // 0x185e @0x8
0x1856…1869 at0009 = ╱4b╱K╱ // 0x185f @0x9
0x1856…1869 at000a = ╱33╱3╱ // 0x1860 @0xa
0x1856…1869 at000b = ╱f0╱ : ╱ // 0x1861 @0xb
0x1856…1869 at000c = ╱47╱G╱ // 0x1862 @0xc
0x1856…1869 at000d = ╱38╱8╱ // 0x1863 @0xd
0x1856…1869 at000e = ╱ef╱ $ ╱ // 0x1864 @0xe
0x1856…1869 at000f = ╱ed╱ ( ╱ // 0x1865 @0xf
0x1856…1869 at0010 = ╱49╱I╱ // 0x1866 @0x10
0x1856…1869 at0011 = ╱ee╱ ) ╱ // 0x1867 @0x11
0x1856…1869 at0012 = EOL // 0x1868 @0x12
0x1856…1869 }
0x1869…1886 9fd3 3010 EXEC FEJL ( 3 , 2 , D2 $ )
0x1869…1886 LineComalBcd {
0x1869…1886 ptr = 0x9fd3 // 0x1869 @0x0
0x1869…1886 lno = 0x3010 // 0x186b @0x2
0x1869…1886 at0004 = ╱9d╱ EXEC ╱ // 0x186d @0x4
0x1869…1886 at0005 = ╱46╱F╱ // 0x186e @0x5
0x1869…1886 at0006 = ╱45╱E╱ // 0x186f @0x6
0x1869…1886 at0007 = ╱4a╱J╱ // 0x1870 @0x7
0x1869…1886 at0008 = ╱4c╱L╱ // 0x1871 @0x8
0x1869…1886 at0009 = ╱ed╱ ( ╱ // 0x1872 @0x9
0x1869…1886 at000a = ╱33╱3╱ // 0x1873 @0xa
0x1869…1886 at000b = ╱fe0000c002╱ // 0x1874 @0xb
0x1869…1886 at0010 = ╱ec╱ , ╱ // 0x1879 @0x10
0x1869…1886 at0011 = ╱32╱2╱ // 0x187a @0x11
0x1869…1886 at0012 = ╱fe00008002╱ // 0x187b @0x12
0x1869…1886 at0017 = ╱ec╱ , ╱ // 0x1880 @0x17
0x1869…1886 at0018 = ╱44╱D╱ // 0x1881 @0x18
0x1869…1886 at0019 = ╱32╱2╱ // 0x1882 @0x19
0x1869…1886 at001a = ╱ef╱ $ ╱ // 0x1883 @0x1a
0x1869…1886 at001b = ╱ee╱ ) ╱ // 0x1884 @0x1b
0x1869…1886 at001c = EOL // 0x1885 @0x1c
0x1869…1886 }
0x1886…1897 9fe4 3020 K3 = K3 + 1
0x1886…1897 LineComalBcd {
0x1886…1897 ptr = 0x9fe4 // 0x1886 @0x0
0x1886…1897 lno = 0x3020 // 0x1888 @0x2
0x1886…1897 at0004 = ╱4b╱K╱ // 0x188a @0x4
0x1886…1897 at0005 = ╱33╱3╱ // 0x188b @0x5
0x1886…1897 at0006 = ╱dc╱ = ╱ // 0x188c @0x6
0x1886…1897 at0007 = ╱4b╱K╱ // 0x188d @0x7
0x1886…1897 at0008 = ╱33╱3╱ // 0x188e @0x8
0x1886…1897 at0009 = ╱e2╱ + ╱ // 0x188f @0x9
0x1886…1897 at000a = ╱31╱1╱ // 0x1890 @0xa
0x1886…1897 at000b = ╱fe00008001╱ // 0x1891 @0xb
0x1886…1897 at0010 = EOL // 0x1896 @0x10
0x1886…1897 }
0x1897…189d 9fea 3030 ENDIF
0x1897…189d LineComalBcd {
0x1897…189d ptr = 0x9fea // 0x1897 @0x0
0x1897…189d lno = 0x3030 // 0x1899 @0x2
0x1897…189d at0004 = ╱9b╱ ENDIF ╱ // 0x189b @0x4
0x1897…189d at0005 = EOL // 0x189c @0x5
0x1897…189d }
0x189d…18aa 9ff7 3040 IF K3 = K2 THEN EXIT
0x189d…18aa LineComalBcd {
0x189d…18aa ptr = 0x9ff7 // 0x189d @0x0
0x189d…18aa lno = 0x3040 // 0x189f @0x2
0x189d…18aa at0004 = ╱82╱ IF ╱ // 0x18a1 @0x4
0x189d…18aa at0005 = ╱4b╱K╱ // 0x18a2 @0x5
0x189d…18aa at0006 = ╱33╱3╱ // 0x18a3 @0x6
0x189d…18aa at0007 = ╱dc╱ = ╱ // 0x18a4 @0x7
0x189d…18aa at0008 = ╱4b╱K╱ // 0x18a5 @0x8
0x189d…18aa at0009 = ╱32╱2╱ // 0x18a6 @0x9
0x189d…18aa at000a = ╱b6╱ THEN ╱ // 0x18a7 @0xa
0x189d…18aa at000b = ╱99╱ EXIT ╱ // 0x18a8 @0xb
0x189d…18aa at000c = EOL // 0x18a9 @0xc
0x189d…18aa }
0x18aa…18b1 (82,) 9ffe 3050 NEXT I
0x18aa…18b1 LineComalBcd {
0x18aa…18b1 ptr = 0x9ffe // 0x18aa @0x0
0x18aa…18b1 lno = 0x3050 // 0x18ac @0x2
0x18aa…18b1 at0004 = ╱84╱ NEXT ╱ // 0x18ae @0x4
0x18aa…18b1 at0005 = ╱49╱I╱ // 0x18af @0x5
0x18aa…18b1 at0006 = EOL // 0x18b0 @0x6
0x18aa…18b1 }
0x18b1…18b7 a004 3060 ENDPROC
0x18b1…18b7 LineComalBcd {
0x18b1…18b7 ptr = 0xa004 // 0x18b1 @0x0
0x18b1…18b7 lno = 0x3060 // 0x18b3 @0x2
0x18b1…18b7 at0004 = ╱9f╱ ENDPROC ╱ // 0x18b5 @0x4
0x18b1…18b7 at0005 = EOL // 0x18b6 @0x5
0x18b1…18b7 }
0x18b7…18ca a017 3070 PROC [ND ( K4 , K5 , K6 )
0x18b7…18ca LineComalBcd {
0x18b7…18ca ptr = 0xa017 // 0x18b7 @0x0
0x18b7…18ca lno = 0x3070 // 0x18b9 @0x2
0x18b7…18ca at0004 = ╱9e╱ PROC ╱ // 0x18bb @0x4
0x18b7…18ca at0005 = ╱5b╱[╱ // 0x18bc @0x5
0x18b7…18ca at0006 = ╱4e╱N╱ // 0x18bd @0x6
0x18b7…18ca at0007 = ╱44╱D╱ // 0x18be @0x7
0x18b7…18ca at0008 = ╱ed╱ ( ╱ // 0x18bf @0x8
0x18b7…18ca at0009 = ╱4b╱K╱ // 0x18c0 @0x9
0x18b7…18ca at000a = ╱34╱4╱ // 0x18c1 @0xa
0x18b7…18ca at000b = ╱ec╱ , ╱ // 0x18c2 @0xb
0x18b7…18ca at000c = ╱4b╱K╱ // 0x18c3 @0xc
0x18b7…18ca at000d = ╱35╱5╱ // 0x18c4 @0xd
0x18b7…18ca at000e = ╱ec╱ , ╱ // 0x18c5 @0xe
0x18b7…18ca at000f = ╱4b╱K╱ // 0x18c6 @0xf
0x18b7…18ca at0010 = ╱36╱6╱ // 0x18c7 @0x10
0x18b7…18ca at0011 = ╱ee╱ ) ╱ // 0x18c8 @0x11
0x18b7…18ca at0012 = EOL // 0x18c9 @0x12
0x18b7…18ca }
0x18ca…18e0 a02d 3080 J3 = 0 ; B8 $ = K5 $
0x18ca…18e0 LineComalBcd {
0x18ca…18e0 ptr = 0xa02d // 0x18ca @0x0
0x18ca…18e0 lno = 0x3080 // 0x18cc @0x2
0x18ca…18e0 at0004 = ╱4a╱J╱ // 0x18ce @0x4
0x18ca…18e0 at0005 = ╱33╱3╱ // 0x18cf @0x5
0x18ca…18e0 at0006 = ╱dc╱ = ╱ // 0x18d0 @0x6
0x18ca…18e0 at0007 = ╱30╱0╱ // 0x18d1 @0x7
0x18ca…18e0 at0008 = ╱fe00000000╱ // 0x18d2 @0x8
0x18ca…18e0 at000d = ╱eb╱ ; ╱ // 0x18d7 @0xd
0x18ca…18e0 at000e = ╱42╱B╱ // 0x18d8 @0xe
0x18ca…18e0 at000f = ╱38╱8╱ // 0x18d9 @0xf
0x18ca…18e0 at0010 = ╱ef╱ $ ╱ // 0x18da @0x10
0x18ca…18e0 at0011 = ╱dc╱ = ╱ // 0x18db @0x11
0x18ca…18e0 at0012 = ╱4b╱K╱ // 0x18dc @0x12
0x18ca…18e0 at0013 = ╱35╱5╱ // 0x18dd @0x13
0x18ca…18e0 at0014 = ╱ef╱ $ ╱ // 0x18de @0x14
0x18ca…18e0 at0015 = EOL // 0x18df @0x15
0x18ca…18e0 }
0x18e0…18ff a04c 3090 IF B8 $ ( LEN ( B8 $ ) ) = "+" THEN J3 = 1
0x18e0…18ff LineComalBcd {
0x18e0…18ff ptr = 0xa04c // 0x18e0 @0x0
0x18e0…18ff lno = 0x3090 // 0x18e2 @0x2
0x18e0…18ff at0004 = ╱82╱ IF ╱ // 0x18e4 @0x4
0x18e0…18ff at0005 = ╱42╱B╱ // 0x18e5 @0x5
0x18e0…18ff at0006 = ╱38╱8╱ // 0x18e6 @0x6
0x18e0…18ff at0007 = ╱ef╱ $ ╱ // 0x18e7 @0x7
0x18e0…18ff at0008 = ╱ed╱ ( ╱ // 0x18e8 @0x8
0x18e0…18ff at0009 = ╱cc╱ LEN ╱ // 0x18e9 @0x9
0x18e0…18ff at000a = ╱ed╱ ( ╱ // 0x18ea @0xa
0x18e0…18ff at000b = ╱42╱B╱ // 0x18eb @0xb
0x18e0…18ff at000c = ╱38╱8╱ // 0x18ec @0xc
0x18e0…18ff at000d = ╱ef╱ $ ╱ // 0x18ed @0xd
0x18e0…18ff at000e = ╱ee╱ ) ╱ // 0x18ee @0xe
0x18e0…18ff at000f = ╱ee╱ ) ╱ // 0x18ef @0xf
0x18e0…18ff at0010 = ╱dc╱ = ╱ // 0x18f0 @0x10
0x18e0…18ff at0011 = ╱22╱"╱ // 0x18f1 @0x11
0x18e0…18ff at0012 = ╱2b╱+╱ // 0x18f2 @0x12
0x18e0…18ff at0013 = ╱22╱"╱ // 0x18f3 @0x13
0x18e0…18ff at0014 = ╱b6╱ THEN ╱ // 0x18f4 @0x14
0x18e0…18ff at0015 = ╱4a╱J╱ // 0x18f5 @0x15
0x18e0…18ff at0016 = ╱33╱3╱ // 0x18f6 @0x16
0x18e0…18ff at0017 = ╱dc╱ = ╱ // 0x18f7 @0x17
0x18e0…18ff at0018 = ╱31╱1╱ // 0x18f8 @0x18
0x18e0…18ff at0019 = ╱fe00008001╱ // 0x18f9 @0x19
0x18e0…18ff at001e = EOL // 0x18fe @0x1e
0x18e0…18ff }
0x18ff…1913 a060 3100 J3 = 2 * K6 - J3
0x18ff…1913 LineComalBcd {
0x18ff…1913 ptr = 0xa060 // 0x18ff @0x0
0x18ff…1913 lno = 0x3100 // 0x1901 @0x2
0x18ff…1913 at0004 = ╱4a╱J╱ // 0x1903 @0x4
0x18ff…1913 at0005 = ╱33╱3╱ // 0x1904 @0x5
0x18ff…1913 at0006 = ╱dc╱ = ╱ // 0x1905 @0x6
0x18ff…1913 at0007 = ╱32╱2╱ // 0x1906 @0x7
0x18ff…1913 at0008 = ╱fe00008002╱ // 0x1907 @0x8
0x18ff…1913 at000d = ╱e4╱ * ╱ // 0x190c @0xd
0x18ff…1913 at000e = ╱4b╱K╱ // 0x190d @0xe
0x18ff…1913 at000f = ╱36╱6╱ // 0x190e @0xf
0x18ff…1913 at0010 = ╱e3╱ - ╱ // 0x190f @0x10
0x18ff…1913 at0011 = ╱4a╱J╱ // 0x1910 @0x11
0x18ff…1913 at0012 = ╱33╱3╱ // 0x1911 @0x12
0x18ff…1913 at0013 = EOL // 0x1912 @0x13
0x18ff…1913 }
0x1913…1935 a082 3110 EXEC CALC ( K4 , F5 $ ( J3 ) , B8 $ , F5 $ ( J3 ) )
0x1913…1935 LineComalBcd {
0x1913…1935 ptr = 0xa082 // 0x1913 @0x0
0x1913…1935 lno = 0x3110 // 0x1915 @0x2
0x1913…1935 at0004 = ╱9d╱ EXEC ╱ // 0x1917 @0x4
0x1913…1935 at0005 = ╱43╱C╱ // 0x1918 @0x5
0x1913…1935 at0006 = ╱41╱A╱ // 0x1919 @0x6
0x1913…1935 at0007 = ╱4c╱L╱ // 0x191a @0x7
0x1913…1935 at0008 = ╱43╱C╱ // 0x191b @0x8
0x1913…1935 at0009 = ╱ed╱ ( ╱ // 0x191c @0x9
0x1913…1935 at000a = ╱4b╱K╱ // 0x191d @0xa
0x1913…1935 at000b = ╱34╱4╱ // 0x191e @0xb
0x1913…1935 at000c = ╱ec╱ , ╱ // 0x191f @0xc
0x1913…1935 at000d = ╱46╱F╱ // 0x1920 @0xd
0x1913…1935 at000e = ╱35╱5╱ // 0x1921 @0xe
0x1913…1935 at000f = ╱ef╱ $ ╱ // 0x1922 @0xf
0x1913…1935 at0010 = ╱ed╱ ( ╱ // 0x1923 @0x10
0x1913…1935 at0011 = ╱4a╱J╱ // 0x1924 @0x11
0x1913…1935 at0012 = ╱33╱3╱ // 0x1925 @0x12
0x1913…1935 at0013 = ╱ee╱ ) ╱ // 0x1926 @0x13
0x1913…1935 at0014 = ╱ec╱ , ╱ // 0x1927 @0x14
0x1913…1935 at0015 = ╱42╱B╱ // 0x1928 @0x15
0x1913…1935 at0016 = ╱38╱8╱ // 0x1929 @0x16
0x1913…1935 at0017 = ╱ef╱ $ ╱ // 0x192a @0x17
0x1913…1935 at0018 = ╱ec╱ , ╱ // 0x192b @0x18
0x1913…1935 at0019 = ╱46╱F╱ // 0x192c @0x19
0x1913…1935 at001a = ╱35╱5╱ // 0x192d @0x1a
0x1913…1935 at001b = ╱ef╱ $ ╱ // 0x192e @0x1b
0x1913…1935 at001c = ╱ed╱ ( ╱ // 0x192f @0x1c
0x1913…1935 at001d = ╱4a╱J╱ // 0x1930 @0x1d
0x1913…1935 at001e = ╱33╱3╱ // 0x1931 @0x1e
0x1913…1935 at001f = ╱ee╱ ) ╱ // 0x1932 @0x1f
0x1913…1935 at0020 = ╱ee╱ ) ╱ // 0x1933 @0x20
0x1913…1935 at0021 = EOL // 0x1934 @0x21
0x1913…1935 }
0x1935…193b a088 3120 ENDPROC
0x1935…193b LineComalBcd {
0x1935…193b ptr = 0xa088 // 0x1935 @0x0
0x1935…193b lno = 0x3120 // 0x1937 @0x2
0x1935…193b at0004 = ╱9f╱ ENDPROC ╱ // 0x1939 @0x4
0x1935…193b at0005 = EOL // 0x193a @0x5
0x1935…193b }
0x193b…1946 a093 3130 PROC RETTE
0x193b…1946 LineComalBcd {
0x193b…1946 ptr = 0xa093 // 0x193b @0x0
0x193b…1946 lno = 0x3130 // 0x193d @0x2
0x193b…1946 at0004 = ╱9e╱ PROC ╱ // 0x193f @0x4
0x193b…1946 at0005 = ╱52╱R╱ // 0x1940 @0x5
0x193b…1946 at0006 = ╱45╱E╱ // 0x1941 @0x6
0x193b…1946 at0007 = ╱54╱T╱ // 0x1942 @0x7
0x193b…1946 at0008 = ╱54╱T╱ // 0x1943 @0x8
0x193b…1946 at0009 = ╱45╱E╱ // 0x1944 @0x9
0x193b…1946 at000a = EOL // 0x1945 @0xa
0x193b…1946 }
0x1946…195e a0ab 3140 K3 = 1 ; K2 = 1
0x1946…195e LineComalBcd {
0x1946…195e ptr = 0xa0ab // 0x1946 @0x0
0x1946…195e lno = 0x3140 // 0x1948 @0x2
0x1946…195e at0004 = ╱4b╱K╱ // 0x194a @0x4
0x1946…195e at0005 = ╱33╱3╱ // 0x194b @0x5
0x1946…195e at0006 = ╱dc╱ = ╱ // 0x194c @0x6
0x1946…195e at0007 = ╱31╱1╱ // 0x194d @0x7
0x1946…195e at0008 = ╱fe00008001╱ // 0x194e @0x8
0x1946…195e at000d = ╱eb╱ ; ╱ // 0x1953 @0xd
0x1946…195e at000e = ╱4b╱K╱ // 0x1954 @0xe
0x1946…195e at000f = ╱32╱2╱ // 0x1955 @0xf
0x1946…195e at0010 = ╱dc╱ = ╱ // 0x1956 @0x10
0x1946…195e at0011 = ╱31╱1╱ // 0x1957 @0x11
0x1946…195e at0012 = ╱fe00008001╱ // 0x1958 @0x12
0x1946…195e at0017 = EOL // 0x195d @0x17
0x1946…195e }
0x195e…196f a0bc 3150 IF I2 = 1 THEN EXIT
0x195e…196f LineComalBcd {
0x195e…196f ptr = 0xa0bc // 0x195e @0x0
0x195e…196f lno = 0x3150 // 0x1960 @0x2
0x195e…196f at0004 = ╱82╱ IF ╱ // 0x1962 @0x4
0x195e…196f at0005 = ╱49╱I╱ // 0x1963 @0x5
0x195e…196f at0006 = ╱32╱2╱ // 0x1964 @0x6
0x195e…196f at0007 = ╱dc╱ = ╱ // 0x1965 @0x7
0x195e…196f at0008 = ╱31╱1╱ // 0x1966 @0x8
0x195e…196f at0009 = ╱fe00008001╱ // 0x1967 @0x9
0x195e…196f at000e = ╱b6╱ THEN ╱ // 0x196c @0xe
0x195e…196f at000f = ╱99╱ EXIT ╱ // 0x196d @0xf
0x195e…196f at0010 = EOL // 0x196e @0x10
0x195e…196f }
0x196f…1975 a0c2 3160 REPEAT
0x196f…1975 LineComalBcd {
0x196f…1975 ptr = 0xa0c2 // 0x196f @0x0
0x196f…1975 lno = 0x3160 // 0x1971 @0x2
0x196f…1975 at0004 = ╱97╱ REPEAT ╱ // 0x1973 @0x4
0x196f…1975 at0005 = EOL // 0x1974 @0x5
0x196f…1975 }
0x1975…197b a0c8 3170 CLEAR
0x1975…197b LineComalBcd {
0x1975…197b ptr = 0xa0c8 // 0x1975 @0x0
0x1975…197b lno = 0x3170 // 0x1977 @0x2
0x1975…197b at0004 = ╱a0╱ CLEAR ╱ // 0x1979 @0x4
0x1975…197b at0005 = EOL // 0x197a @0x5
0x1975…197b }
0x197b…198c a0d9 3180 EXEC HENTKASPOST
0x197b…198c LineComalBcd {
0x197b…198c ptr = 0xa0d9 // 0x197b @0x0
0x197b…198c lno = 0x3180 // 0x197d @0x2
0x197b…198c at0004 = ╱9d╱ EXEC ╱ // 0x197f @0x4
0x197b…198c at0005 = ╱48╱H╱ // 0x1980 @0x5
0x197b…198c at0006 = ╱45╱E╱ // 0x1981 @0x6
0x197b…198c at0007 = ╱4e╱N╱ // 0x1982 @0x7
0x197b…198c at0008 = ╱54╱T╱ // 0x1983 @0x8
0x197b…198c at0009 = ╱4b╱K╱ // 0x1984 @0x9
0x197b…198c at000a = ╱41╱A╱ // 0x1985 @0xa
0x197b…198c at000b = ╱53╱S╱ // 0x1986 @0xb
0x197b…198c at000c = ╱50╱P╱ // 0x1987 @0xc
0x197b…198c at000d = ╱4f╱O╱ // 0x1988 @0xd
0x197b…198c at000e = ╱53╱S╱ // 0x1989 @0xe
0x197b…198c at000f = ╱54╱T╱ // 0x198a @0xf
0x197b…198c at0010 = EOL // 0x198b @0x10
0x197b…198c }
0x198c…19a0 a0ed 3190 K7 = H5 ; K8 = 0
0x198c…19a0 LineComalBcd {
0x198c…19a0 ptr = 0xa0ed // 0x198c @0x0
0x198c…19a0 lno = 0x3190 // 0x198e @0x2
0x198c…19a0 at0004 = ╱4b╱K╱ // 0x1990 @0x4
0x198c…19a0 at0005 = ╱37╱7╱ // 0x1991 @0x5
0x198c…19a0 at0006 = ╱dc╱ = ╱ // 0x1992 @0x6
0x198c…19a0 at0007 = ╱48╱H╱ // 0x1993 @0x7
0x198c…19a0 at0008 = ╱35╱5╱ // 0x1994 @0x8
0x198c…19a0 at0009 = ╱eb╱ ; ╱ // 0x1995 @0x9
0x198c…19a0 at000a = ╱4b╱K╱ // 0x1996 @0xa
0x198c…19a0 at000b = ╱38╱8╱ // 0x1997 @0xb
0x198c…19a0 at000c = ╱dc╱ = ╱ // 0x1998 @0xc
0x198c…19a0 at000d = ╱30╱0╱ // 0x1999 @0xd
0x198c…19a0 at000e = ╱fe00000000╱ // 0x199a @0xe
0x198c…19a0 at0013 = EOL // 0x199f @0x13
0x198c…19a0 }
0x19a0…19a6 a0f3 3200 REPEAT
0x19a0…19a6 LineComalBcd {
0x19a0…19a6 ptr = 0xa0f3 // 0x19a0 @0x0
0x19a0…19a6 lno = 0x3200 // 0x19a2 @0x2
0x19a0…19a6 at0004 = ╱97╱ REPEAT ╱ // 0x19a4 @0x4
0x19a0…19a6 at0005 = EOL // 0x19a5 @0x5
0x19a0…19a6 }
0x19a6…19ac a0f9 3210 REPEAT
0x19a6…19ac LineComalBcd {
0x19a6…19ac ptr = 0xa0f9 // 0x19a6 @0x0
0x19a6…19ac lno = 0x3210 // 0x19a8 @0x2
0x19a6…19ac at0004 = ╱97╱ REPEAT ╱ // 0x19aa @0x4
0x19a6…19ac at0005 = EOL // 0x19ab @0x5
0x19a6…19ac }
0x19ac…19c0 a10d 3220 CURSOR 3 , 23
0x19ac…19c0 LineComalBcd {
0x19ac…19c0 ptr = 0xa10d // 0x19ac @0x0
0x19ac…19c0 lno = 0x3220 // 0x19ae @0x2
0x19ac…19c0 at0004 = ╱a1╱ CURSOR ╱ // 0x19b0 @0x4
0x19ac…19c0 at0005 = ╱33╱3╱ // 0x19b1 @0x5
0x19ac…19c0 at0006 = ╱fe0000c002╱ // 0x19b2 @0x6
0x19ac…19c0 at000b = ╱ec╱ , ╱ // 0x19b7 @0xb
0x19ac…19c0 at000c = ╱32╱2╱ // 0x19b8 @0xc
0x19ac…19c0 at000d = ╱33╱3╱ // 0x19b9 @0xd
0x19ac…19c0 at000e = ╱fe0000b805╱ // 0x19ba @0xe
0x19ac…19c0 at0013 = EOL // 0x19bf @0x13
0x19ac…19c0 }
0x19c0…1a08 a155 3230 PRINT "\nskes…{ndringer…………(1-18:Linienr,…0:F{rdig,…RETURN:Ny…side,…N:" ;
0x19c0…1a08 LineComalBcd {
0x19c0…1a08 ptr = 0xa155 // 0x19c0 @0x0
0x19c0…1a08 lno = 0x3230 // 0x19c2 @0x2
0x19c0…1a08 at0004 = ╱92╱ PRINT ╱ // 0x19c4 @0x4
0x19c0…1a08 at0005 = ╱22╱"╱ // 0x19c5 @0x5
0x19c0…1a08 at0006 = ╱5c╱\╱ // 0x19c6 @0x6
0x19c0…1a08 at0007 = ╱6e╱n╱ // 0x19c7 @0x7
0x19c0…1a08 at0008 = ╱73╱s╱ // 0x19c8 @0x8
0x19c0…1a08 at0009 = ╱6b╱k╱ // 0x19c9 @0x9
0x19c0…1a08 at000a = ╱65╱e╱ // 0x19ca @0xa
0x19c0…1a08 at000b = ╱73╱s╱ // 0x19cb @0xb
0x19c0…1a08 at000c = ╱20╱…╱ // 0x19cc @0xc
0x19c0…1a08 at000d = ╱7b╱{╱ // 0x19cd @0xd
0x19c0…1a08 at000e = ╱6e╱n╱ // 0x19ce @0xe
0x19c0…1a08 at000f = ╱64╱d╱ // 0x19cf @0xf
0x19c0…1a08 at0010 = ╱72╱r╱ // 0x19d0 @0x10
0x19c0…1a08 at0011 = ╱69╱i╱ // 0x19d1 @0x11
0x19c0…1a08 at0012 = ╱6e╱n╱ // 0x19d2 @0x12
0x19c0…1a08 at0013 = ╱67╱g╱ // 0x19d3 @0x13
0x19c0…1a08 at0014 = ╱65╱e╱ // 0x19d4 @0x14
0x19c0…1a08 at0015 = ╱72╱r╱ // 0x19d5 @0x15
0x19c0…1a08 at0016 = ╱20╱…╱ // 0x19d6 @0x16
0x19c0…1a08 at0017 = ╱20╱…╱ // 0x19d7 @0x17
0x19c0…1a08 at0018 = ╱20╱…╱ // 0x19d8 @0x18
0x19c0…1a08 at0019 = ╱20╱…╱ // 0x19d9 @0x19
0x19c0…1a08 at001a = ╱28╱(╱ // 0x19da @0x1a
0x19c0…1a08 at001b = ╱31╱1╱ // 0x19db @0x1b
0x19c0…1a08 at001c = ╱2d╱-╱ // 0x19dc @0x1c
0x19c0…1a08 at001d = ╱31╱1╱ // 0x19dd @0x1d
0x19c0…1a08 at001e = ╱38╱8╱ // 0x19de @0x1e
0x19c0…1a08 at001f = ╱3a╱:╱ // 0x19df @0x1f
0x19c0…1a08 at0020 = ╱4c╱L╱ // 0x19e0 @0x20
0x19c0…1a08 at0021 = ╱69╱i╱ // 0x19e1 @0x21
0x19c0…1a08 at0022 = ╱6e╱n╱ // 0x19e2 @0x22
0x19c0…1a08 at0023 = ╱69╱i╱ // 0x19e3 @0x23
0x19c0…1a08 at0024 = ╱65╱e╱ // 0x19e4 @0x24
0x19c0…1a08 at0025 = ╱6e╱n╱ // 0x19e5 @0x25
0x19c0…1a08 at0026 = ╱72╱r╱ // 0x19e6 @0x26
0x19c0…1a08 at0027 = ╱2c╱,╱ // 0x19e7 @0x27
0x19c0…1a08 at0028 = ╱20╱…╱ // 0x19e8 @0x28
0x19c0…1a08 at0029 = ╱30╱0╱ // 0x19e9 @0x29
0x19c0…1a08 at002a = ╱3a╱:╱ // 0x19ea @0x2a
0x19c0…1a08 at002b = ╱46╱F╱ // 0x19eb @0x2b
0x19c0…1a08 at002c = ╱7b╱{╱ // 0x19ec @0x2c
0x19c0…1a08 at002d = ╱72╱r╱ // 0x19ed @0x2d
0x19c0…1a08 at002e = ╱64╱d╱ // 0x19ee @0x2e
0x19c0…1a08 at002f = ╱69╱i╱ // 0x19ef @0x2f
0x19c0…1a08 at0030 = ╱67╱g╱ // 0x19f0 @0x30
0x19c0…1a08 at0031 = ╱2c╱,╱ // 0x19f1 @0x31
0x19c0…1a08 at0032 = ╱20╱…╱ // 0x19f2 @0x32
0x19c0…1a08 at0033 = ╱52╱R╱ // 0x19f3 @0x33
0x19c0…1a08 at0034 = ╱45╱E╱ // 0x19f4 @0x34
0x19c0…1a08 at0035 = ╱54╱T╱ // 0x19f5 @0x35
0x19c0…1a08 at0036 = ╱55╱U╱ // 0x19f6 @0x36
0x19c0…1a08 at0037 = ╱52╱R╱ // 0x19f7 @0x37
0x19c0…1a08 at0038 = ╱4e╱N╱ // 0x19f8 @0x38
0x19c0…1a08 at0039 = ╱3a╱:╱ // 0x19f9 @0x39
0x19c0…1a08 at003a = ╱4e╱N╱ // 0x19fa @0x3a
0x19c0…1a08 at003b = ╱79╱y╱ // 0x19fb @0x3b
0x19c0…1a08 at003c = ╱20╱…╱ // 0x19fc @0x3c
0x19c0…1a08 at003d = ╱73╱s╱ // 0x19fd @0x3d
0x19c0…1a08 at003e = ╱69╱i╱ // 0x19fe @0x3e
0x19c0…1a08 at003f = ╱64╱d╱ // 0x19ff @0x3f
0x19c0…1a08 at0040 = ╱65╱e╱ // 0x1a00 @0x40
0x19c0…1a08 at0041 = ╱2c╱,╱ // 0x1a01 @0x41
0x19c0…1a08 at0042 = ╱20╱…╱ // 0x1a02 @0x42
0x19c0…1a08 at0043 = ╱4e╱N╱ // 0x1a03 @0x43
0x19c0…1a08 at0044 = ╱3a╱:╱ // 0x1a04 @0x44
0x19c0…1a08 at0045 = ╱22╱"╱ // 0x1a05 @0x45
0x19c0…1a08 at0046 = ╱eb╱ ; ╱ // 0x1a06 @0x46
0x19c0…1a08 at0047 = EOL // 0x1a07 @0x47
0x19c0…1a08 }
0x1a08…1a1d a16a 3240 PRINT "Ny…post)……………"
0x1a08…1a1d LineComalBcd {
0x1a08…1a1d ptr = 0xa16a // 0x1a08 @0x0
0x1a08…1a1d lno = 0x3240 // 0x1a0a @0x2
0x1a08…1a1d at0004 = ╱92╱ PRINT ╱ // 0x1a0c @0x4
0x1a08…1a1d at0005 = ╱22╱"╱ // 0x1a0d @0x5
0x1a08…1a1d at0006 = ╱4e╱N╱ // 0x1a0e @0x6
0x1a08…1a1d at0007 = ╱79╱y╱ // 0x1a0f @0x7
0x1a08…1a1d at0008 = ╱20╱…╱ // 0x1a10 @0x8
0x1a08…1a1d at0009 = ╱70╱p╱ // 0x1a11 @0x9
0x1a08…1a1d at000a = ╱6f╱o╱ // 0x1a12 @0xa
0x1a08…1a1d at000b = ╱73╱s╱ // 0x1a13 @0xb
0x1a08…1a1d at000c = ╱74╱t╱ // 0x1a14 @0xc
0x1a08…1a1d at000d = ╱29╱)╱ // 0x1a15 @0xd
0x1a08…1a1d at000e = ╱20╱…╱ // 0x1a16 @0xe
0x1a08…1a1d at000f = ╱20╱…╱ // 0x1a17 @0xf
0x1a08…1a1d at0010 = ╱20╱…╱ // 0x1a18 @0x10
0x1a08…1a1d at0011 = ╱20╱…╱ // 0x1a19 @0x11
0x1a08…1a1d at0012 = ╱20╱…╱ // 0x1a1a @0x12
0x1a08…1a1d at0013 = ╱22╱"╱ // 0x1a1b @0x13
0x1a08…1a1d at0014 = EOL // 0x1a1c @0x14
0x1a08…1a1d }
0x1a1d…1a32 a17f 3250 CURSOR 20 , 23
0x1a1d…1a32 LineComalBcd {
0x1a1d…1a32 ptr = 0xa17f // 0x1a1d @0x0
0x1a1d…1a32 lno = 0x3250 // 0x1a1f @0x2
0x1a1d…1a32 at0004 = ╱a1╱ CURSOR ╱ // 0x1a21 @0x4
0x1a1d…1a32 at0005 = ╱32╱2╱ // 0x1a22 @0x5
0x1a1d…1a32 at0006 = ╱30╱0╱ // 0x1a23 @0x6
0x1a1d…1a32 at0007 = ╱fe0000a005╱ // 0x1a24 @0x7
0x1a1d…1a32 at000c = ╱ec╱ , ╱ // 0x1a29 @0xc
0x1a1d…1a32 at000d = ╱32╱2╱ // 0x1a2a @0xd
0x1a1d…1a32 at000e = ╱33╱3╱ // 0x1a2b @0xe
0x1a1d…1a32 at000f = ╱fe0000b805╱ // 0x1a2c @0xf
0x1a1d…1a32 at0014 = EOL // 0x1a31 @0x14
0x1a1d…1a32 }
0x1a32…1a3b a188 3260 INPUT D5 $
0x1a32…1a3b LineComalBcd {
0x1a32…1a3b ptr = 0xa188 // 0x1a32 @0x0
0x1a32…1a3b lno = 0x3260 // 0x1a34 @0x2
0x1a32…1a3b at0004 = ╱91╱ INPUT ╱ // 0x1a36 @0x4
0x1a32…1a3b at0005 = ╱44╱D╱ // 0x1a37 @0x5
0x1a32…1a3b at0006 = ╱35╱5╱ // 0x1a38 @0x6
0x1a32…1a3b at0007 = ╱ef╱ $ ╱ // 0x1a39 @0x7
0x1a32…1a3b at0008 = EOL // 0x1a3a @0x8
0x1a32…1a3b }
0x1a3b…1a4c a199 3270 EXEC NRTEST ( D5 $ )
0x1a3b…1a4c LineComalBcd {
0x1a3b…1a4c ptr = 0xa199 // 0x1a3b @0x0
0x1a3b…1a4c lno = 0x3270 // 0x1a3d @0x2
0x1a3b…1a4c at0004 = ╱9d╱ EXEC ╱ // 0x1a3f @0x4
0x1a3b…1a4c at0005 = ╱4e╱N╱ // 0x1a40 @0x5
0x1a3b…1a4c at0006 = ╱52╱R╱ // 0x1a41 @0x6
0x1a3b…1a4c at0007 = ╱54╱T╱ // 0x1a42 @0x7
0x1a3b…1a4c at0008 = ╱45╱E╱ // 0x1a43 @0x8
0x1a3b…1a4c at0009 = ╱53╱S╱ // 0x1a44 @0x9
0x1a3b…1a4c at000a = ╱54╱T╱ // 0x1a45 @0xa
0x1a3b…1a4c at000b = ╱ed╱ ( ╱ // 0x1a46 @0xb
0x1a3b…1a4c at000c = ╱44╱D╱ // 0x1a47 @0xc
0x1a3b…1a4c at000d = ╱35╱5╱ // 0x1a48 @0xd
0x1a3b…1a4c at000e = ╱ef╱ $ ╱ // 0x1a49 @0xe
0x1a3b…1a4c at000f = ╱ee╱ ) ╱ // 0x1a4a @0xf
0x1a3b…1a4c at0010 = EOL // 0x1a4b @0x10
0x1a3b…1a4c }
0x1a4c…1a76 a1c3 3280 UNTIL ( P = - 8 OR P > - 2 AND P < K7 ) AND H4 = 0
0x1a4c…1a76 LineComalBcd {
0x1a4c…1a76 ptr = 0xa1c3 // 0x1a4c @0x0
0x1a4c…1a76 lno = 0x3280 // 0x1a4e @0x2
0x1a4c…1a76 at0004 = ╱98╱ UNTIL ╱ // 0x1a50 @0x4
0x1a4c…1a76 at0005 = ╱ed╱ ( ╱ // 0x1a51 @0x5
0x1a4c…1a76 at0006 = ╱50╱P╱ // 0x1a52 @0x6
0x1a4c…1a76 at0007 = ╱dc╱ = ╱ // 0x1a53 @0x7
0x1a4c…1a76 at0008 = ╱e9╱ - ╱ // 0x1a54 @0x8
0x1a4c…1a76 at0009 = ╱38╱8╱ // 0x1a55 @0x9
0x1a4c…1a76 at000a = ╱fe00008004╱ // 0x1a56 @0xa
0x1a4c…1a76 at000f = ╱db╱ OR ╱ // 0x1a5b @0xf
0x1a4c…1a76 at0010 = ╱50╱P╱ // 0x1a5c @0x10
0x1a4c…1a76 at0011 = ╱de╱ > ╱ // 0x1a5d @0x11
0x1a4c…1a76 at0012 = ╱e9╱ - ╱ // 0x1a5e @0x12
0x1a4c…1a76 at0013 = ╱32╱2╱ // 0x1a5f @0x13
0x1a4c…1a76 at0014 = ╱fe00008002╱ // 0x1a60 @0x14
0x1a4c…1a76 at0019 = ╱da╱ AND ╱ // 0x1a65 @0x19
0x1a4c…1a76 at001a = ╱50╱P╱ // 0x1a66 @0x1a
0x1a4c…1a76 at001b = ╱dd╱ < ╱ // 0x1a67 @0x1b
0x1a4c…1a76 at001c = ╱4b╱K╱ // 0x1a68 @0x1c
0x1a4c…1a76 at001d = ╱37╱7╱ // 0x1a69 @0x1d
0x1a4c…1a76 at001e = ╱ee╱ ) ╱ // 0x1a6a @0x1e
0x1a4c…1a76 at001f = ╱da╱ AND ╱ // 0x1a6b @0x1f
0x1a4c…1a76 at0020 = ╱48╱H╱ // 0x1a6c @0x20
0x1a4c…1a76 at0021 = ╱34╱4╱ // 0x1a6d @0x21
0x1a4c…1a76 at0022 = ╱dc╱ = ╱ // 0x1a6e @0x22
0x1a4c…1a76 at0023 = ╱30╱0╱ // 0x1a6f @0x23
0x1a4c…1a76 at0024 = ╱fe00000000╱ // 0x1a70 @0x24
0x1a4c…1a76 at0029 = EOL // 0x1a75 @0x29
0x1a4c…1a76 }
0x1a76…1a7f a1cc 3290 K9 = P
0x1a76…1a7f LineComalBcd {
0x1a76…1a7f ptr = 0xa1cc // 0x1a76 @0x0
0x1a76…1a7f lno = 0x3290 // 0x1a78 @0x2
0x1a76…1a7f at0004 = ╱4b╱K╱ // 0x1a7a @0x4
0x1a76…1a7f at0005 = ╱39╱9╱ // 0x1a7b @0x5
0x1a76…1a7f at0006 = ╱dc╱ = ╱ // 0x1a7c @0x6
0x1a76…1a7f at0007 = ╱50╱P╱ // 0x1a7d @0x7
0x1a76…1a7f at0008 = EOL // 0x1a7e @0x8
0x1a76…1a7f }
0x1a7f…1a90 a1dd 3300 IF K9 < 1 THEN EXIT
0x1a7f…1a90 LineComalBcd {
0x1a7f…1a90 ptr = 0xa1dd // 0x1a7f @0x0
0x1a7f…1a90 lno = 0x3300 // 0x1a81 @0x2
0x1a7f…1a90 at0004 = ╱82╱ IF ╱ // 0x1a83 @0x4
0x1a7f…1a90 at0005 = ╱4b╱K╱ // 0x1a84 @0x5
0x1a7f…1a90 at0006 = ╱39╱9╱ // 0x1a85 @0x6
0x1a7f…1a90 at0007 = ╱dd╱ < ╱ // 0x1a86 @0x7
0x1a7f…1a90 at0008 = ╱31╱1╱ // 0x1a87 @0x8
0x1a7f…1a90 at0009 = ╱fe00008001╱ // 0x1a88 @0x9
0x1a7f…1a90 at000e = ╱b6╱ THEN ╱ // 0x1a8d @0xe
0x1a7f…1a90 at000f = ╱99╱ EXIT ╱ // 0x1a8e @0xf
0x1a7f…1a90 at0010 = EOL // 0x1a8f @0x10
0x1a7f…1a90 }
0x1a90…1a9e a1eb 3310 K8 = 1
0x1a90…1a9e LineComalBcd {
0x1a90…1a9e ptr = 0xa1eb // 0x1a90 @0x0
0x1a90…1a9e lno = 0x3310 // 0x1a92 @0x2
0x1a90…1a9e at0004 = ╱4b╱K╱ // 0x1a94 @0x4
0x1a90…1a9e at0005 = ╱38╱8╱ // 0x1a95 @0x5
0x1a90…1a9e at0006 = ╱dc╱ = ╱ // 0x1a96 @0x6
0x1a90…1a9e at0007 = ╱31╱1╱ // 0x1a97 @0x7
0x1a90…1a9e at0008 = ╱fe00008001╱ // 0x1a98 @0x8
0x1a90…1a9e at000d = EOL // 0x1a9d @0xd
0x1a90…1a9e }
0x1a9e…1aa4 a1f1 3320 REPEAT
0x1a9e…1aa4 LineComalBcd {
0x1a9e…1aa4 ptr = 0xa1f1 // 0x1a9e @0x0
0x1a9e…1aa4 lno = 0x3320 // 0x1aa0 @0x2
0x1a9e…1aa4 at0004 = ╱97╱ REPEAT ╱ // 0x1aa2 @0x4
0x1a9e…1aa4 at0005 = EOL // 0x1aa3 @0x5
0x1a9e…1aa4 }
0x1aa4…1aaa a1f7 3330 REPEAT
0x1aa4…1aaa LineComalBcd {
0x1aa4…1aaa ptr = 0xa1f7 // 0x1aa4 @0x0
0x1aa4…1aaa lno = 0x3330 // 0x1aa6 @0x2
0x1aa4…1aaa at0004 = ╱97╱ REPEAT ╱ // 0x1aa8 @0x4
0x1aa4…1aaa at0005 = EOL // 0x1aa9 @0x5
0x1aa4…1aaa }
0x1aaa…1abe a20b 3340 CURSOR 3 , 23
0x1aaa…1abe LineComalBcd {
0x1aaa…1abe ptr = 0xa20b // 0x1aaa @0x0
0x1aaa…1abe lno = 0x3340 // 0x1aac @0x2
0x1aaa…1abe at0004 = ╱a1╱ CURSOR ╱ // 0x1aae @0x4
0x1aaa…1abe at0005 = ╱33╱3╱ // 0x1aaf @0x5
0x1aaa…1abe at0006 = ╱fe0000c002╱ // 0x1ab0 @0x6
0x1aaa…1abe at000b = ╱ec╱ , ╱ // 0x1ab5 @0xb
0x1aaa…1abe at000c = ╱32╱2╱ // 0x1ab6 @0xc
0x1aaa…1abe at000d = ╱33╱3╱ // 0x1ab7 @0xd
0x1aaa…1abe at000e = ╱fe0000b805╱ // 0x1ab8 @0xe
0x1aaa…1abe at0013 = EOL // 0x1abd @0x13
0x1aaa…1abe }
0x1abe…1b04 a251 3350 PRINT "Linie:" ; K9 ; "…V{lg…{ndring…………(0:F{rdig,…A:Annuller,…1:Konto,…" ;
0x1abe…1b04 LineComalBcd {
0x1abe…1b04 ptr = 0xa251 // 0x1abe @0x0
0x1abe…1b04 lno = 0x3350 // 0x1ac0 @0x2
0x1abe…1b04 at0004 = ╱92╱ PRINT ╱ // 0x1ac2 @0x4
0x1abe…1b04 at0005 = ╱22╱"╱ // 0x1ac3 @0x5
0x1abe…1b04 at0006 = ╱4c╱L╱ // 0x1ac4 @0x6
0x1abe…1b04 at0007 = ╱69╱i╱ // 0x1ac5 @0x7
0x1abe…1b04 at0008 = ╱6e╱n╱ // 0x1ac6 @0x8
0x1abe…1b04 at0009 = ╱69╱i╱ // 0x1ac7 @0x9
0x1abe…1b04 at000a = ╱65╱e╱ // 0x1ac8 @0xa
0x1abe…1b04 at000b = ╱3a╱:╱ // 0x1ac9 @0xb
0x1abe…1b04 at000c = ╱22╱"╱ // 0x1aca @0xc
0x1abe…1b04 at000d = ╱eb╱ ; ╱ // 0x1acb @0xd
0x1abe…1b04 at000e = ╱4b╱K╱ // 0x1acc @0xe
0x1abe…1b04 at000f = ╱39╱9╱ // 0x1acd @0xf
0x1abe…1b04 at0010 = ╱eb╱ ; ╱ // 0x1ace @0x10
0x1abe…1b04 at0011 = ╱22╱"╱ // 0x1acf @0x11
0x1abe…1b04 at0012 = ╱20╱…╱ // 0x1ad0 @0x12
0x1abe…1b04 at0013 = ╱56╱V╱ // 0x1ad1 @0x13
0x1abe…1b04 at0014 = ╱7b╱{╱ // 0x1ad2 @0x14
0x1abe…1b04 at0015 = ╱6c╱l╱ // 0x1ad3 @0x15
0x1abe…1b04 at0016 = ╱67╱g╱ // 0x1ad4 @0x16
0x1abe…1b04 at0017 = ╱20╱…╱ // 0x1ad5 @0x17
0x1abe…1b04 at0018 = ╱7b╱{╱ // 0x1ad6 @0x18
0x1abe…1b04 at0019 = ╱6e╱n╱ // 0x1ad7 @0x19
0x1abe…1b04 at001a = ╱64╱d╱ // 0x1ad8 @0x1a
0x1abe…1b04 at001b = ╱72╱r╱ // 0x1ad9 @0x1b
0x1abe…1b04 at001c = ╱69╱i╱ // 0x1ada @0x1c
0x1abe…1b04 at001d = ╱6e╱n╱ // 0x1adb @0x1d
0x1abe…1b04 at001e = ╱67╱g╱ // 0x1adc @0x1e
0x1abe…1b04 at001f = ╱20╱…╱ // 0x1add @0x1f
0x1abe…1b04 at0020 = ╱20╱…╱ // 0x1ade @0x20
0x1abe…1b04 at0021 = ╱20╱…╱ // 0x1adf @0x21
0x1abe…1b04 at0022 = ╱20╱…╱ // 0x1ae0 @0x22
0x1abe…1b04 at0023 = ╱28╱(╱ // 0x1ae1 @0x23
0x1abe…1b04 at0024 = ╱30╱0╱ // 0x1ae2 @0x24
0x1abe…1b04 at0025 = ╱3a╱:╱ // 0x1ae3 @0x25
0x1abe…1b04 at0026 = ╱46╱F╱ // 0x1ae4 @0x26
0x1abe…1b04 at0027 = ╱7b╱{╱ // 0x1ae5 @0x27
0x1abe…1b04 at0028 = ╱72╱r╱ // 0x1ae6 @0x28
0x1abe…1b04 at0029 = ╱64╱d╱ // 0x1ae7 @0x29
0x1abe…1b04 at002a = ╱69╱i╱ // 0x1ae8 @0x2a
0x1abe…1b04 at002b = ╱67╱g╱ // 0x1ae9 @0x2b
0x1abe…1b04 at002c = ╱2c╱,╱ // 0x1aea @0x2c
0x1abe…1b04 at002d = ╱20╱…╱ // 0x1aeb @0x2d
0x1abe…1b04 at002e = ╱41╱A╱ // 0x1aec @0x2e
0x1abe…1b04 at002f = ╱3a╱:╱ // 0x1aed @0x2f
0x1abe…1b04 at0030 = ╱41╱A╱ // 0x1aee @0x30
0x1abe…1b04 at0031 = ╱6e╱n╱ // 0x1aef @0x31
0x1abe…1b04 at0032 = ╱6e╱n╱ // 0x1af0 @0x32
0x1abe…1b04 at0033 = ╱75╱u╱ // 0x1af1 @0x33
0x1abe…1b04 at0034 = ╱6c╱l╱ // 0x1af2 @0x34
0x1abe…1b04 at0035 = ╱6c╱l╱ // 0x1af3 @0x35
0x1abe…1b04 at0036 = ╱65╱e╱ // 0x1af4 @0x36
0x1abe…1b04 at0037 = ╱72╱r╱ // 0x1af5 @0x37
0x1abe…1b04 at0038 = ╱2c╱,╱ // 0x1af6 @0x38
0x1abe…1b04 at0039 = ╱20╱…╱ // 0x1af7 @0x39
0x1abe…1b04 at003a = ╱31╱1╱ // 0x1af8 @0x3a
0x1abe…1b04 at003b = ╱3a╱:╱ // 0x1af9 @0x3b
0x1abe…1b04 at003c = ╱4b╱K╱ // 0x1afa @0x3c
0x1abe…1b04 at003d = ╱6f╱o╱ // 0x1afb @0x3d
0x1abe…1b04 at003e = ╱6e╱n╱ // 0x1afc @0x3e
0x1abe…1b04 at003f = ╱74╱t╱ // 0x1afd @0x3f
0x1abe…1b04 at0040 = ╱6f╱o╱ // 0x1afe @0x40
0x1abe…1b04 at0041 = ╱2c╱,╱ // 0x1aff @0x41
0x1abe…1b04 at0042 = ╱20╱…╱ // 0x1b00 @0x42
0x1abe…1b04 at0043 = ╱22╱"╱ // 0x1b01 @0x43
0x1abe…1b04 at0044 = ╱eb╱ ; ╱ // 0x1b02 @0x44
0x1abe…1b04 at0045 = EOL // 0x1b03 @0x45
0x1abe…1b04 }
0x1b04…1b1c a269 3360 PRINT "2:Bel|b,…3:Kode)"
0x1b04…1b1c LineComalBcd {
0x1b04…1b1c ptr = 0xa269 // 0x1b04 @0x0
0x1b04…1b1c lno = 0x3360 // 0x1b06 @0x2
0x1b04…1b1c at0004 = ╱92╱ PRINT ╱ // 0x1b08 @0x4
0x1b04…1b1c at0005 = ╱22╱"╱ // 0x1b09 @0x5
0x1b04…1b1c at0006 = ╱32╱2╱ // 0x1b0a @0x6
0x1b04…1b1c at0007 = ╱3a╱:╱ // 0x1b0b @0x7
0x1b04…1b1c at0008 = ╱42╱B╱ // 0x1b0c @0x8
0x1b04…1b1c at0009 = ╱65╱e╱ // 0x1b0d @0x9
0x1b04…1b1c at000a = ╱6c╱l╱ // 0x1b0e @0xa
0x1b04…1b1c at000b = ╱7c╱|╱ // 0x1b0f @0xb
0x1b04…1b1c at000c = ╱62╱b╱ // 0x1b10 @0xc
0x1b04…1b1c at000d = ╱2c╱,╱ // 0x1b11 @0xd
0x1b04…1b1c at000e = ╱20╱…╱ // 0x1b12 @0xe
0x1b04…1b1c at000f = ╱33╱3╱ // 0x1b13 @0xf
0x1b04…1b1c at0010 = ╱3a╱:╱ // 0x1b14 @0x10
0x1b04…1b1c at0011 = ╱4b╱K╱ // 0x1b15 @0x11
0x1b04…1b1c at0012 = ╱6f╱o╱ // 0x1b16 @0x12
0x1b04…1b1c at0013 = ╱64╱d╱ // 0x1b17 @0x13
0x1b04…1b1c at0014 = ╱65╱e╱ // 0x1b18 @0x14
0x1b04…1b1c at0015 = ╱29╱)╱ // 0x1b19 @0x15
0x1b04…1b1c at0016 = ╱22╱"╱ // 0x1b1a @0x16
0x1b04…1b1c at0017 = EOL // 0x1b1b @0x17
0x1b04…1b1c }
0x1b1c…1b31 a27e 3370 CURSOR 25 , 23
0x1b1c…1b31 LineComalBcd {
0x1b1c…1b31 ptr = 0xa27e // 0x1b1c @0x0
0x1b1c…1b31 lno = 0x3370 // 0x1b1e @0x2
0x1b1c…1b31 at0004 = ╱a1╱ CURSOR ╱ // 0x1b20 @0x4
0x1b1c…1b31 at0005 = ╱32╱2╱ // 0x1b21 @0x5
0x1b1c…1b31 at0006 = ╱35╱5╱ // 0x1b22 @0x6
0x1b1c…1b31 at0007 = ╱fe0000c805╱ // 0x1b23 @0x7
0x1b1c…1b31 at000c = ╱ec╱ , ╱ // 0x1b28 @0xc
0x1b1c…1b31 at000d = ╱32╱2╱ // 0x1b29 @0xd
0x1b1c…1b31 at000e = ╱33╱3╱ // 0x1b2a @0xe
0x1b1c…1b31 at000f = ╱fe0000b805╱ // 0x1b2b @0xf
0x1b1c…1b31 at0014 = EOL // 0x1b30 @0x14
0x1b1c…1b31 }
0x1b31…1b3a a287 3380 INPUT D5 $
0x1b31…1b3a LineComalBcd {
0x1b31…1b3a ptr = 0xa287 // 0x1b31 @0x0
0x1b31…1b3a lno = 0x3380 // 0x1b33 @0x2
0x1b31…1b3a at0004 = ╱91╱ INPUT ╱ // 0x1b35 @0x4
0x1b31…1b3a at0005 = ╱44╱D╱ // 0x1b36 @0x5
0x1b31…1b3a at0006 = ╱35╱5╱ // 0x1b37 @0x6
0x1b31…1b3a at0007 = ╱ef╱ $ ╱ // 0x1b38 @0x7
0x1b31…1b3a at0008 = EOL // 0x1b39 @0x8
0x1b31…1b3a }
0x1b3a…1b4b a298 3390 EXEC NRTEST ( D5 $ )
0x1b3a…1b4b LineComalBcd {
0x1b3a…1b4b ptr = 0xa298 // 0x1b3a @0x0
0x1b3a…1b4b lno = 0x3390 // 0x1b3c @0x2
0x1b3a…1b4b at0004 = ╱9d╱ EXEC ╱ // 0x1b3e @0x4
0x1b3a…1b4b at0005 = ╱4e╱N╱ // 0x1b3f @0x5
0x1b3a…1b4b at0006 = ╱52╱R╱ // 0x1b40 @0x6
0x1b3a…1b4b at0007 = ╱54╱T╱ // 0x1b41 @0x7
0x1b3a…1b4b at0008 = ╱45╱E╱ // 0x1b42 @0x8
0x1b3a…1b4b at0009 = ╱53╱S╱ // 0x1b43 @0x9
0x1b3a…1b4b at000a = ╱54╱T╱ // 0x1b44 @0xa
0x1b3a…1b4b at000b = ╱ed╱ ( ╱ // 0x1b45 @0xb
0x1b3a…1b4b at000c = ╱44╱D╱ // 0x1b46 @0xc
0x1b3a…1b4b at000d = ╱35╱5╱ // 0x1b47 @0xd
0x1b3a…1b4b at000e = ╱ef╱ $ ╱ // 0x1b48 @0xe
0x1b3a…1b4b at000f = ╱ee╱ ) ╱ // 0x1b49 @0xf
0x1b3a…1b4b at0010 = EOL // 0x1b4a @0x10
0x1b3a…1b4b }
0x1b4b…1b79 a2c6 3400 UNTIL ( P = - 3 OR P > - 1 AND P < 4 ) AND H4 = 0
0x1b4b…1b79 LineComalBcd {
0x1b4b…1b79 ptr = 0xa2c6 // 0x1b4b @0x0
0x1b4b…1b79 lno = 0x3400 // 0x1b4d @0x2
0x1b4b…1b79 at0004 = ╱98╱ UNTIL ╱ // 0x1b4f @0x4
0x1b4b…1b79 at0005 = ╱ed╱ ( ╱ // 0x1b50 @0x5
0x1b4b…1b79 at0006 = ╱50╱P╱ // 0x1b51 @0x6
0x1b4b…1b79 at0007 = ╱dc╱ = ╱ // 0x1b52 @0x7
0x1b4b…1b79 at0008 = ╱e9╱ - ╱ // 0x1b53 @0x8
0x1b4b…1b79 at0009 = ╱33╱3╱ // 0x1b54 @0x9
0x1b4b…1b79 at000a = ╱fe0000c002╱ // 0x1b55 @0xa
0x1b4b…1b79 at000f = ╱db╱ OR ╱ // 0x1b5a @0xf
0x1b4b…1b79 at0010 = ╱50╱P╱ // 0x1b5b @0x10
0x1b4b…1b79 at0011 = ╱de╱ > ╱ // 0x1b5c @0x11
0x1b4b…1b79 at0012 = ╱e9╱ - ╱ // 0x1b5d @0x12
0x1b4b…1b79 at0013 = ╱31╱1╱ // 0x1b5e @0x13
0x1b4b…1b79 at0014 = ╱fe00008001╱ // 0x1b5f @0x14
0x1b4b…1b79 at0019 = ╱da╱ AND ╱ // 0x1b64 @0x19
0x1b4b…1b79 at001a = ╱50╱P╱ // 0x1b65 @0x1a
0x1b4b…1b79 at001b = ╱dd╱ < ╱ // 0x1b66 @0x1b
0x1b4b…1b79 at001c = ╱34╱4╱ // 0x1b67 @0x1c
0x1b4b…1b79 at001d = ╱fe00008003╱ // 0x1b68 @0x1d
0x1b4b…1b79 at0022 = ╱ee╱ ) ╱ // 0x1b6d @0x22
0x1b4b…1b79 at0023 = ╱da╱ AND ╱ // 0x1b6e @0x23
0x1b4b…1b79 at0024 = ╱48╱H╱ // 0x1b6f @0x24
0x1b4b…1b79 at0025 = ╱34╱4╱ // 0x1b70 @0x25
0x1b4b…1b79 at0026 = ╱dc╱ = ╱ // 0x1b71 @0x26
0x1b4b…1b79 at0027 = ╱30╱0╱ // 0x1b72 @0x27
0x1b4b…1b79 at0028 = ╱fe00000000╱ // 0x1b73 @0x28
0x1b4b…1b79 at002d = EOL // 0x1b78 @0x2d
0x1b4b…1b79 }
0x1b79…1b82 a2cf 3410 L0 = P
0x1b79…1b82 LineComalBcd {
0x1b79…1b82 ptr = 0xa2cf // 0x1b79 @0x0
0x1b79…1b82 lno = 0x3410 // 0x1b7b @0x2
0x1b79…1b82 at0004 = ╱4c╱L╱ // 0x1b7d @0x4
0x1b79…1b82 at0005 = ╱30╱0╱ // 0x1b7e @0x5
0x1b79…1b82 at0006 = ╱dc╱ = ╱ // 0x1b7f @0x6
0x1b79…1b82 at0007 = ╱50╱P╱ // 0x1b80 @0x7
0x1b79…1b82 at0008 = EOL // 0x1b81 @0x8
0x1b79…1b82 }
0x1b82…1b93 a2e0 3420 IF L0 = 0 THEN EXIT
0x1b82…1b93 LineComalBcd {
0x1b82…1b93 ptr = 0xa2e0 // 0x1b82 @0x0
0x1b82…1b93 lno = 0x3420 // 0x1b84 @0x2
0x1b82…1b93 at0004 = ╱82╱ IF ╱ // 0x1b86 @0x4
0x1b82…1b93 at0005 = ╱4c╱L╱ // 0x1b87 @0x5
0x1b82…1b93 at0006 = ╱30╱0╱ // 0x1b88 @0x6
0x1b82…1b93 at0007 = ╱dc╱ = ╱ // 0x1b89 @0x7
0x1b82…1b93 at0008 = ╱30╱0╱ // 0x1b8a @0x8
0x1b82…1b93 at0009 = ╱fe00000000╱ // 0x1b8b @0x9
0x1b82…1b93 at000e = ╱b6╱ THEN ╱ // 0x1b90 @0xe
0x1b82…1b93 at000f = ╱99╱ EXIT ╱ // 0x1b91 @0xf
0x1b82…1b93 at0010 = EOL // 0x1b92 @0x10
0x1b82…1b93 }
0x1b93…1b9d a2ea 3430 H5 = K9
0x1b93…1b9d LineComalBcd {
0x1b93…1b9d ptr = 0xa2ea // 0x1b93 @0x0
0x1b93…1b9d lno = 0x3430 // 0x1b95 @0x2
0x1b93…1b9d at0004 = ╱48╱H╱ // 0x1b97 @0x4
0x1b93…1b9d at0005 = ╱35╱5╱ // 0x1b98 @0x5
0x1b93…1b9d at0006 = ╱dc╱ = ╱ // 0x1b99 @0x6
0x1b93…1b9d at0007 = ╱4b╱K╱ // 0x1b9a @0x7
0x1b93…1b9d at0008 = ╱39╱9╱ // 0x1b9b @0x8
0x1b93…1b9d at0009 = EOL // 0x1b9c @0x9
0x1b93…1b9d }
0x1b9d…1bb1 a2fe 3440 IF G2 ( K9 ) = 0 THEN
0x1b9d…1bb1 LineComalBcd {
0x1b9d…1bb1 ptr = 0xa2fe // 0x1b9d @0x0
0x1b9d…1bb1 lno = 0x3440 // 0x1b9f @0x2
0x1b9d…1bb1 at0004 = ╱9c╱ IF ╱ // 0x1ba1 @0x4
0x1b9d…1bb1 at0005 = ╱47╱G╱ // 0x1ba2 @0x5
0x1b9d…1bb1 at0006 = ╱32╱2╱ // 0x1ba3 @0x6
0x1b9d…1bb1 at0007 = ╱ed╱ ( ╱ // 0x1ba4 @0x7
0x1b9d…1bb1 at0008 = ╱4b╱K╱ // 0x1ba5 @0x8
0x1b9d…1bb1 at0009 = ╱39╱9╱ // 0x1ba6 @0x9
0x1b9d…1bb1 at000a = ╱ee╱ ) ╱ // 0x1ba7 @0xa
0x1b9d…1bb1 at000b = ╱dc╱ = ╱ // 0x1ba8 @0xb
0x1b9d…1bb1 at000c = ╱30╱0╱ // 0x1ba9 @0xc
0x1b9d…1bb1 at000d = ╱fe00000000╱ // 0x1baa @0xd
0x1b9d…1bb1 at0012 = ╱b6╱ THEN ╱ // 0x1baf @0x12
0x1b9d…1bb1 at0013 = EOL // 0x1bb0 @0x13
0x1b9d…1bb1 }
0x1bb1…1bc7 a314 3450 CURSOR 3 , H5 + 3
0x1bb1…1bc7 LineComalBcd {
0x1bb1…1bc7 ptr = 0xa314 // 0x1bb1 @0x0
0x1bb1…1bc7 lno = 0x3450 // 0x1bb3 @0x2
0x1bb1…1bc7 at0004 = ╱a1╱ CURSOR ╱ // 0x1bb5 @0x4
0x1bb1…1bc7 at0005 = ╱33╱3╱ // 0x1bb6 @0x5
0x1bb1…1bc7 at0006 = ╱fe0000c002╱ // 0x1bb7 @0x6
0x1bb1…1bc7 at000b = ╱ec╱ , ╱ // 0x1bbc @0xb
0x1bb1…1bc7 at000c = ╱48╱H╱ // 0x1bbd @0xc
0x1bb1…1bc7 at000d = ╱35╱5╱ // 0x1bbe @0xd
0x1bb1…1bc7 at000e = ╱e2╱ + ╱ // 0x1bbf @0xe
0x1bb1…1bc7 at000f = ╱33╱3╱ // 0x1bc0 @0xf
0x1bb1…1bc7 at0010 = ╱fe0000c002╱ // 0x1bc1 @0x10
0x1bb1…1bc7 at0015 = EOL // 0x1bc6 @0x15
0x1bb1…1bc7 }
0x1bc7…1be6 a333 3460 PRINT "Postering…er…annulleret"
0x1bc7…1be6 LineComalBcd {
0x1bc7…1be6 ptr = 0xa333 // 0x1bc7 @0x0
0x1bc7…1be6 lno = 0x3460 // 0x1bc9 @0x2
0x1bc7…1be6 at0004 = ╱92╱ PRINT ╱ // 0x1bcb @0x4
0x1bc7…1be6 at0005 = ╱22╱"╱ // 0x1bcc @0x5
0x1bc7…1be6 at0006 = ╱50╱P╱ // 0x1bcd @0x6
0x1bc7…1be6 at0007 = ╱6f╱o╱ // 0x1bce @0x7
0x1bc7…1be6 at0008 = ╱73╱s╱ // 0x1bcf @0x8
0x1bc7…1be6 at0009 = ╱74╱t╱ // 0x1bd0 @0x9
0x1bc7…1be6 at000a = ╱65╱e╱ // 0x1bd1 @0xa
0x1bc7…1be6 at000b = ╱72╱r╱ // 0x1bd2 @0xb
0x1bc7…1be6 at000c = ╱69╱i╱ // 0x1bd3 @0xc
0x1bc7…1be6 at000d = ╱6e╱n╱ // 0x1bd4 @0xd
0x1bc7…1be6 at000e = ╱67╱g╱ // 0x1bd5 @0xe
0x1bc7…1be6 at000f = ╱20╱…╱ // 0x1bd6 @0xf
0x1bc7…1be6 at0010 = ╱65╱e╱ // 0x1bd7 @0x10
0x1bc7…1be6 at0011 = ╱72╱r╱ // 0x1bd8 @0x11
0x1bc7…1be6 at0012 = ╱20╱…╱ // 0x1bd9 @0x12
0x1bc7…1be6 at0013 = ╱61╱a╱ // 0x1bda @0x13
0x1bc7…1be6 at0014 = ╱6e╱n╱ // 0x1bdb @0x14
0x1bc7…1be6 at0015 = ╱6e╱n╱ // 0x1bdc @0x15
0x1bc7…1be6 at0016 = ╱75╱u╱ // 0x1bdd @0x16
0x1bc7…1be6 at0017 = ╱6c╱l╱ // 0x1bde @0x17
0x1bc7…1be6 at0018 = ╱6c╱l╱ // 0x1bdf @0x18
0x1bc7…1be6 at0019 = ╱65╱e╱ // 0x1be0 @0x19
0x1bc7…1be6 at001a = ╱72╱r╱ // 0x1be1 @0x1a
0x1bc7…1be6 at001b = ╱65╱e╱ // 0x1be2 @0x1b
0x1bc7…1be6 at001c = ╱74╱t╱ // 0x1be3 @0x1c
0x1bc7…1be6 at001d = ╱22╱"╱ // 0x1be4 @0x1d
0x1bc7…1be6 at001e = EOL // 0x1be5 @0x1e
0x1bc7…1be6 }
0x1be6…1bec a339 3470 ELSE
0x1be6…1bec LineComalBcd {
0x1be6…1bec ptr = 0xa339 // 0x1be6 @0x0
0x1be6…1bec lno = 0x3470 // 0x1be8 @0x2
0x1be6…1bec at0004 = ╱9a╱ ELSE ╱ // 0x1bea @0x4
0x1be6…1bec at0005 = EOL // 0x1beb @0x5
0x1be6…1bec }
0x1bec…1c17 a364 3480 IF L0 >< 1 THEN EXEC [ND ( 1 , G6 $ ( K9 ) , G7 ( K9 ) )
0x1bec…1c17 LineComalBcd {
0x1bec…1c17 ptr = 0xa364 // 0x1bec @0x0
0x1bec…1c17 lno = 0x3480 // 0x1bee @0x2
0x1bec…1c17 at0004 = ╱82╱ IF ╱ // 0x1bf0 @0x4
0x1bec…1c17 at0005 = ╱4c╱L╱ // 0x1bf1 @0x5
0x1bec…1c17 at0006 = ╱30╱0╱ // 0x1bf2 @0x6
0x1bec…1c17 at0007 = ╱e1╱ >< ╱ // 0x1bf3 @0x7
0x1bec…1c17 at0008 = ╱31╱1╱ // 0x1bf4 @0x8
0x1bec…1c17 at0009 = ╱fe00008001╱ // 0x1bf5 @0x9
0x1bec…1c17 at000e = ╱b6╱ THEN ╱ // 0x1bfa @0xe
0x1bec…1c17 at000f = ╱9d╱ EXEC ╱ // 0x1bfb @0xf
0x1bec…1c17 at0010 = ╱5b╱[╱ // 0x1bfc @0x10
0x1bec…1c17 at0011 = ╱4e╱N╱ // 0x1bfd @0x11
0x1bec…1c17 at0012 = ╱44╱D╱ // 0x1bfe @0x12
0x1bec…1c17 at0013 = ╱ed╱ ( ╱ // 0x1bff @0x13
0x1bec…1c17 at0014 = ╱31╱1╱ // 0x1c00 @0x14
0x1bec…1c17 at0015 = ╱fe00008001╱ // 0x1c01 @0x15
0x1bec…1c17 at001a = ╱ec╱ , ╱ // 0x1c06 @0x1a
0x1bec…1c17 at001b = ╱47╱G╱ // 0x1c07 @0x1b
0x1bec…1c17 at001c = ╱36╱6╱ // 0x1c08 @0x1c
0x1bec…1c17 at001d = ╱ef╱ $ ╱ // 0x1c09 @0x1d
0x1bec…1c17 at001e = ╱ed╱ ( ╱ // 0x1c0a @0x1e
0x1bec…1c17 at001f = ╱4b╱K╱ // 0x1c0b @0x1f
0x1bec…1c17 at0020 = ╱39╱9╱ // 0x1c0c @0x20
0x1bec…1c17 at0021 = ╱ee╱ ) ╱ // 0x1c0d @0x21
0x1bec…1c17 at0022 = ╱ec╱ , ╱ // 0x1c0e @0x22
0x1bec…1c17 at0023 = ╱47╱G╱ // 0x1c0f @0x23
0x1bec…1c17 at0024 = ╱37╱7╱ // 0x1c10 @0x24
0x1bec…1c17 at0025 = ╱ed╱ ( ╱ // 0x1c11 @0x25
0x1bec…1c17 at0026 = ╱4b╱K╱ // 0x1c12 @0x26
0x1bec…1c17 at0027 = ╱39╱9╱ // 0x1c13 @0x27
0x1bec…1c17 at0028 = ╱ee╱ ) ╱ // 0x1c14 @0x28
0x1bec…1c17 at0029 = ╱ee╱ ) ╱ // 0x1c15 @0x29
0x1bec…1c17 at002a = EOL // 0x1c16 @0x2a
0x1bec…1c17 }
0x1c17…1c28 a375 3490 IF L0 = - 3 THEN
0x1c17…1c28 LineComalBcd {
0x1c17…1c28 ptr = 0xa375 // 0x1c17 @0x0
0x1c17…1c28 lno = 0x3490 // 0x1c19 @0x2
0x1c17…1c28 at0004 = ╱9c╱ IF ╱ // 0x1c1b @0x4
0x1c17…1c28 at0005 = ╱4c╱L╱ // 0x1c1c @0x5
0x1c17…1c28 at0006 = ╱30╱0╱ // 0x1c1d @0x6
0x1c17…1c28 at0007 = ╱dc╱ = ╱ // 0x1c1e @0x7
0x1c17…1c28 at0008 = ╱e9╱ - ╱ // 0x1c1f @0x8
0x1c17…1c28 at0009 = ╱33╱3╱ // 0x1c20 @0x9
0x1c17…1c28 at000a = ╱fe0000c002╱ // 0x1c21 @0xa
0x1c17…1c28 at000f = ╱b6╱ THEN ╱ // 0x1c26 @0xf
0x1c17…1c28 at0010 = EOL // 0x1c27 @0x10
0x1c17…1c28 }
0x1c28…1c3a a387 3500 EXEC KLET ( 5 )
0x1c28…1c3a LineComalBcd {
0x1c28…1c3a ptr = 0xa387 // 0x1c28 @0x0
0x1c28…1c3a lno = 0x3500 // 0x1c2a @0x2
0x1c28…1c3a at0004 = ╱9d╱ EXEC ╱ // 0x1c2c @0x4
0x1c28…1c3a at0005 = ╱4b╱K╱ // 0x1c2d @0x5
0x1c28…1c3a at0006 = ╱4c╱L╱ // 0x1c2e @0x6
0x1c28…1c3a at0007 = ╱45╱E╱ // 0x1c2f @0x7
0x1c28…1c3a at0008 = ╱54╱T╱ // 0x1c30 @0x8
0x1c28…1c3a at0009 = ╱ed╱ ( ╱ // 0x1c31 @0x9
0x1c28…1c3a at000a = ╱35╱5╱ // 0x1c32 @0xa
0x1c28…1c3a at000b = ╱fe0000a003╱ // 0x1c33 @0xb
0x1c28…1c3a at0010 = ╱ee╱ ) ╱ // 0x1c38 @0x10
0x1c28…1c3a at0011 = EOL // 0x1c39 @0x11
0x1c28…1c3a }
0x1c3a…1c4c a399 3510 G2 ( K9 ) = 0
0x1c3a…1c4c LineComalBcd {
0x1c3a…1c4c ptr = 0xa399 // 0x1c3a @0x0
0x1c3a…1c4c lno = 0x3510 // 0x1c3c @0x2
0x1c3a…1c4c at0004 = ╱47╱G╱ // 0x1c3e @0x4
0x1c3a…1c4c at0005 = ╱32╱2╱ // 0x1c3f @0x5
0x1c3a…1c4c at0006 = ╱ed╱ ( ╱ // 0x1c40 @0x6
0x1c3a…1c4c at0007 = ╱4b╱K╱ // 0x1c41 @0x7
0x1c3a…1c4c at0008 = ╱39╱9╱ // 0x1c42 @0x8
0x1c3a…1c4c at0009 = ╱ee╱ ) ╱ // 0x1c43 @0x9
0x1c3a…1c4c at000a = ╱dc╱ = ╱ // 0x1c44 @0xa
0x1c3a…1c4c at000b = ╱30╱0╱ // 0x1c45 @0xb
0x1c3a…1c4c at000c = ╱fe00000000╱ // 0x1c46 @0xc
0x1c3a…1c4c at0011 = EOL // 0x1c4b @0x11
0x1c3a…1c4c }
0x1c4c…1c52 a39f 3520 ELSE
0x1c4c…1c52 LineComalBcd {
0x1c4c…1c52 ptr = 0xa39f // 0x1c4c @0x0
0x1c4c…1c52 lno = 0x3520 // 0x1c4e @0x2
0x1c4c…1c52 at0004 = ╱9a╱ ELSE ╱ // 0x1c50 @0x4
0x1c4c…1c52 at0005 = EOL // 0x1c51 @0x5
0x1c4c…1c52 }
0x1c52…1c93 a3e0 3530 L0 = L0 + 2 ; L1 = L0 ; I1 = 1 ; H6 = G2 ( K9 ) ; F4 $ = G6 $ ( K9 ) ; H8 = G7 ( K9 )
0x1c52…1c93 LineComalBcd {
0x1c52…1c93 ptr = 0xa3e0 // 0x1c52 @0x0
0x1c52…1c93 lno = 0x3530 // 0x1c54 @0x2
0x1c52…1c93 at0004 = ╱4c╱L╱ // 0x1c56 @0x4
0x1c52…1c93 at0005 = ╱30╱0╱ // 0x1c57 @0x5
0x1c52…1c93 at0006 = ╱dc╱ = ╱ // 0x1c58 @0x6
0x1c52…1c93 at0007 = ╱4c╱L╱ // 0x1c59 @0x7
0x1c52…1c93 at0008 = ╱30╱0╱ // 0x1c5a @0x8
0x1c52…1c93 at0009 = ╱e2╱ + ╱ // 0x1c5b @0x9
0x1c52…1c93 at000a = ╱32╱2╱ // 0x1c5c @0xa
0x1c52…1c93 at000b = ╱fe00008002╱ // 0x1c5d @0xb
0x1c52…1c93 at0010 = ╱eb╱ ; ╱ // 0x1c62 @0x10
0x1c52…1c93 at0011 = ╱4c╱L╱ // 0x1c63 @0x11
0x1c52…1c93 at0012 = ╱31╱1╱ // 0x1c64 @0x12
0x1c52…1c93 at0013 = ╱dc╱ = ╱ // 0x1c65 @0x13
0x1c52…1c93 at0014 = ╱4c╱L╱ // 0x1c66 @0x14
0x1c52…1c93 at0015 = ╱30╱0╱ // 0x1c67 @0x15
0x1c52…1c93 at0016 = ╱eb╱ ; ╱ // 0x1c68 @0x16
0x1c52…1c93 at0017 = ╱49╱I╱ // 0x1c69 @0x17
0x1c52…1c93 at0018 = ╱31╱1╱ // 0x1c6a @0x18
0x1c52…1c93 at0019 = ╱dc╱ = ╱ // 0x1c6b @0x19
0x1c52…1c93 at001a = ╱31╱1╱ // 0x1c6c @0x1a
0x1c52…1c93 at001b = ╱fe00008001╱ // 0x1c6d @0x1b
0x1c52…1c93 at0020 = ╱eb╱ ; ╱ // 0x1c72 @0x20
0x1c52…1c93 at0021 = ╱48╱H╱ // 0x1c73 @0x21
0x1c52…1c93 at0022 = ╱36╱6╱ // 0x1c74 @0x22
0x1c52…1c93 at0023 = ╱dc╱ = ╱ // 0x1c75 @0x23
0x1c52…1c93 at0024 = ╱47╱G╱ // 0x1c76 @0x24
0x1c52…1c93 at0025 = ╱32╱2╱ // 0x1c77 @0x25
0x1c52…1c93 at0026 = ╱ed╱ ( ╱ // 0x1c78 @0x26
0x1c52…1c93 at0027 = ╱4b╱K╱ // 0x1c79 @0x27
0x1c52…1c93 at0028 = ╱39╱9╱ // 0x1c7a @0x28
0x1c52…1c93 at0029 = ╱ee╱ ) ╱ // 0x1c7b @0x29
0x1c52…1c93 at002a = ╱eb╱ ; ╱ // 0x1c7c @0x2a
0x1c52…1c93 at002b = ╱46╱F╱ // 0x1c7d @0x2b
0x1c52…1c93 at002c = ╱34╱4╱ // 0x1c7e @0x2c
0x1c52…1c93 at002d = ╱ef╱ $ ╱ // 0x1c7f @0x2d
0x1c52…1c93 at002e = ╱dc╱ = ╱ // 0x1c80 @0x2e
0x1c52…1c93 at002f = ╱47╱G╱ // 0x1c81 @0x2f
0x1c52…1c93 at0030 = ╱36╱6╱ // 0x1c82 @0x30
0x1c52…1c93 at0031 = ╱ef╱ $ ╱ // 0x1c83 @0x31
0x1c52…1c93 at0032 = ╱ed╱ ( ╱ // 0x1c84 @0x32
0x1c52…1c93 at0033 = ╱4b╱K╱ // 0x1c85 @0x33
0x1c52…1c93 at0034 = ╱39╱9╱ // 0x1c86 @0x34
0x1c52…1c93 at0035 = ╱ee╱ ) ╱ // 0x1c87 @0x35
0x1c52…1c93 at0036 = ╱eb╱ ; ╱ // 0x1c88 @0x36
0x1c52…1c93 at0037 = ╱48╱H╱ // 0x1c89 @0x37
0x1c52…1c93 at0038 = ╱38╱8╱ // 0x1c8a @0x38
0x1c52…1c93 at0039 = ╱dc╱ = ╱ // 0x1c8b @0x39
0x1c52…1c93 at003a = ╱47╱G╱ // 0x1c8c @0x3a
0x1c52…1c93 at003b = ╱37╱7╱ // 0x1c8d @0x3b
0x1c52…1c93 at003c = ╱ed╱ ( ╱ // 0x1c8e @0x3c
0x1c52…1c93 at003d = ╱4b╱K╱ // 0x1c8f @0x3d
0x1c52…1c93 at003e = ╱39╱9╱ // 0x1c90 @0x3e
0x1c52…1c93 at003f = ╱ee╱ ) ╱ // 0x1c91 @0x3f
0x1c52…1c93 at0040 = EOL // 0x1c92 @0x40
0x1c52…1c93 }
0x1c93…1ca8 (95,) a3f5 3540 EXEC INDTASTNING ( L0 )
0x1c93…1ca8 LineComalBcd {
0x1c93…1ca8 ptr = 0xa3f5 // 0x1c93 @0x0
0x1c93…1ca8 lno = 0x3540 // 0x1c95 @0x2
0x1c93…1ca8 at0004 = ╱9d╱ EXEC ╱ // 0x1c97 @0x4
0x1c93…1ca8 at0005 = ╱49╱I╱ // 0x1c98 @0x5
0x1c93…1ca8 at0006 = ╱4e╱N╱ // 0x1c99 @0x6
0x1c93…1ca8 at0007 = ╱44╱D╱ // 0x1c9a @0x7
0x1c93…1ca8 at0008 = ╱54╱T╱ // 0x1c9b @0x8
0x1c93…1ca8 at0009 = ╱41╱A╱ // 0x1c9c @0x9
0x1c93…1ca8 at000a = ╱53╱S╱ // 0x1c9d @0xa
0x1c93…1ca8 at000b = ╱54╱T╱ // 0x1c9e @0xb
0x1c93…1ca8 at000c = ╱4e╱N╱ // 0x1c9f @0xc
0x1c93…1ca8 at000d = ╱49╱I╱ // 0x1ca0 @0xd
0x1c93…1ca8 at000e = ╱4e╱N╱ // 0x1ca1 @0xe
0x1c93…1ca8 at000f = ╱47╱G╱ // 0x1ca2 @0xf
0x1c93…1ca8 at0010 = ╱ed╱ ( ╱ // 0x1ca3 @0x10
0x1c93…1ca8 at0011 = ╱4c╱L╱ // 0x1ca4 @0x11
0x1c93…1ca8 at0012 = ╱30╱0╱ // 0x1ca5 @0x12
0x1c93…1ca8 at0013 = ╱ee╱ ) ╱ // 0x1ca6 @0x13
0x1c93…1ca8 at0014 = EOL // 0x1ca7 @0x14
0x1c93…1ca8 }
0x1ca8…1ccc a419 3550 G2 ( K9 ) = H6 ; G6 $ ( K9 ) = F4 $ ; G7 ( K9 ) = H8
0x1ca8…1ccc LineComalBcd {
0x1ca8…1ccc ptr = 0xa419 // 0x1ca8 @0x0
0x1ca8…1ccc lno = 0x3550 // 0x1caa @0x2
0x1ca8…1ccc at0004 = ╱47╱G╱ // 0x1cac @0x4
0x1ca8…1ccc at0005 = ╱32╱2╱ // 0x1cad @0x5
0x1ca8…1ccc at0006 = ╱ed╱ ( ╱ // 0x1cae @0x6
0x1ca8…1ccc at0007 = ╱4b╱K╱ // 0x1caf @0x7
0x1ca8…1ccc at0008 = ╱39╱9╱ // 0x1cb0 @0x8
0x1ca8…1ccc at0009 = ╱ee╱ ) ╱ // 0x1cb1 @0x9
0x1ca8…1ccc at000a = ╱dc╱ = ╱ // 0x1cb2 @0xa
0x1ca8…1ccc at000b = ╱48╱H╱ // 0x1cb3 @0xb
0x1ca8…1ccc at000c = ╱36╱6╱ // 0x1cb4 @0xc
0x1ca8…1ccc at000d = ╱eb╱ ; ╱ // 0x1cb5 @0xd
0x1ca8…1ccc at000e = ╱47╱G╱ // 0x1cb6 @0xe
0x1ca8…1ccc at000f = ╱36╱6╱ // 0x1cb7 @0xf
0x1ca8…1ccc at0010 = ╱ef╱ $ ╱ // 0x1cb8 @0x10
0x1ca8…1ccc at0011 = ╱ed╱ ( ╱ // 0x1cb9 @0x11
0x1ca8…1ccc at0012 = ╱4b╱K╱ // 0x1cba @0x12
0x1ca8…1ccc at0013 = ╱39╱9╱ // 0x1cbb @0x13
0x1ca8…1ccc at0014 = ╱ee╱ ) ╱ // 0x1cbc @0x14
0x1ca8…1ccc at0015 = ╱dc╱ = ╱ // 0x1cbd @0x15
0x1ca8…1ccc at0016 = ╱46╱F╱ // 0x1cbe @0x16
0x1ca8…1ccc at0017 = ╱34╱4╱ // 0x1cbf @0x17
0x1ca8…1ccc at0018 = ╱ef╱ $ ╱ // 0x1cc0 @0x18
0x1ca8…1ccc at0019 = ╱eb╱ ; ╱ // 0x1cc1 @0x19
0x1ca8…1ccc at001a = ╱47╱G╱ // 0x1cc2 @0x1a
0x1ca8…1ccc at001b = ╱37╱7╱ // 0x1cc3 @0x1b
0x1ca8…1ccc at001c = ╱ed╱ ( ╱ // 0x1cc4 @0x1c
0x1ca8…1ccc at001d = ╱4b╱K╱ // 0x1cc5 @0x1d
0x1ca8…1ccc at001e = ╱39╱9╱ // 0x1cc6 @0x1e
0x1ca8…1ccc at001f = ╱ee╱ ) ╱ // 0x1cc7 @0x1f
0x1ca8…1ccc at0020 = ╱dc╱ = ╱ // 0x1cc8 @0x20
0x1ca8…1ccc at0021 = ╱48╱H╱ // 0x1cc9 @0x21
0x1ca8…1ccc at0022 = ╱38╱8╱ // 0x1cca @0x22
0x1ca8…1ccc at0023 = EOL // 0x1ccb @0x23
0x1ca8…1ccc }
0x1ccc…1cef a43c 3560 IF L1 >< 3 THEN EXEC [ND ( 0 , F4 $ , H8 )
0x1ccc…1cef LineComalBcd {
0x1ccc…1cef ptr = 0xa43c // 0x1ccc @0x0
0x1ccc…1cef lno = 0x3560 // 0x1cce @0x2
0x1ccc…1cef at0004 = ╱82╱ IF ╱ // 0x1cd0 @0x4
0x1ccc…1cef at0005 = ╱4c╱L╱ // 0x1cd1 @0x5
0x1ccc…1cef at0006 = ╱31╱1╱ // 0x1cd2 @0x6
0x1ccc…1cef at0007 = ╱e1╱ >< ╱ // 0x1cd3 @0x7
0x1ccc…1cef at0008 = ╱33╱3╱ // 0x1cd4 @0x8
0x1ccc…1cef at0009 = ╱fe0000c002╱ // 0x1cd5 @0x9
0x1ccc…1cef at000e = ╱b6╱ THEN ╱ // 0x1cda @0xe
0x1ccc…1cef at000f = ╱9d╱ EXEC ╱ // 0x1cdb @0xf
0x1ccc…1cef at0010 = ╱5b╱[╱ // 0x1cdc @0x10
0x1ccc…1cef at0011 = ╱4e╱N╱ // 0x1cdd @0x11
0x1ccc…1cef at0012 = ╱44╱D╱ // 0x1cde @0x12
0x1ccc…1cef at0013 = ╱ed╱ ( ╱ // 0x1cdf @0x13
0x1ccc…1cef at0014 = ╱30╱0╱ // 0x1ce0 @0x14
0x1ccc…1cef at0015 = ╱fe00000000╱ // 0x1ce1 @0x15
0x1ccc…1cef at001a = ╱ec╱ , ╱ // 0x1ce6 @0x1a
0x1ccc…1cef at001b = ╱46╱F╱ // 0x1ce7 @0x1b
0x1ccc…1cef at001c = ╱34╱4╱ // 0x1ce8 @0x1c
0x1ccc…1cef at001d = ╱ef╱ $ ╱ // 0x1ce9 @0x1d
0x1ccc…1cef at001e = ╱ec╱ , ╱ // 0x1cea @0x1e
0x1ccc…1cef at001f = ╱48╱H╱ // 0x1ceb @0x1f
0x1ccc…1cef at0020 = ╱38╱8╱ // 0x1cec @0x20
0x1ccc…1cef at0021 = ╱ee╱ ) ╱ // 0x1ced @0x21
0x1ccc…1cef at0022 = EOL // 0x1cee @0x22
0x1ccc…1cef }
0x1cef…1cf5 a442 3570 ENDIF
0x1cef…1cf5 LineComalBcd {
0x1cef…1cf5 ptr = 0xa442 // 0x1cef @0x0
0x1cef…1cf5 lno = 0x3570 // 0x1cf1 @0x2
0x1cef…1cf5 at0004 = ╱9b╱ ENDIF ╱ // 0x1cf3 @0x4
0x1cef…1cf5 at0005 = EOL // 0x1cf4 @0x5
0x1cef…1cf5 }
0x1cf5…1cfb a448 3580 ENDIF
0x1cf5…1cfb LineComalBcd {
0x1cf5…1cfb ptr = 0xa448 // 0x1cf5 @0x0
0x1cf5…1cfb lno = 0x3580 // 0x1cf7 @0x2
0x1cf5…1cfb at0004 = ╱9b╱ ENDIF ╱ // 0x1cf9 @0x4
0x1cf5…1cfb at0005 = EOL // 0x1cfa @0x5
0x1cf5…1cfb }
0x1cfb…1d15 a462 3590 UNTIL L0 = - 3 OR L0 = 0
0x1cfb…1d15 LineComalBcd {
0x1cfb…1d15 ptr = 0xa462 // 0x1cfb @0x0
0x1cfb…1d15 lno = 0x3590 // 0x1cfd @0x2
0x1cfb…1d15 at0004 = ╱98╱ UNTIL ╱ // 0x1cff @0x4
0x1cfb…1d15 at0005 = ╱4c╱L╱ // 0x1d00 @0x5
0x1cfb…1d15 at0006 = ╱30╱0╱ // 0x1d01 @0x6
0x1cfb…1d15 at0007 = ╱dc╱ = ╱ // 0x1d02 @0x7
0x1cfb…1d15 at0008 = ╱e9╱ - ╱ // 0x1d03 @0x8
0x1cfb…1d15 at0009 = ╱33╱3╱ // 0x1d04 @0x9
0x1cfb…1d15 at000a = ╱fe0000c002╱ // 0x1d05 @0xa
0x1cfb…1d15 at000f = ╱db╱ OR ╱ // 0x1d0a @0xf
0x1cfb…1d15 at0010 = ╱4c╱L╱ // 0x1d0b @0x10
0x1cfb…1d15 at0011 = ╱30╱0╱ // 0x1d0c @0x11
0x1cfb…1d15 at0012 = ╱dc╱ = ╱ // 0x1d0d @0x12
0x1cfb…1d15 at0013 = ╱30╱0╱ // 0x1d0e @0x13
0x1cfb…1d15 at0014 = ╱fe00000000╱ // 0x1d0f @0x14
0x1cfb…1d15 at0019 = EOL // 0x1d14 @0x19
0x1cfb…1d15 }
0x1d15…1d24 a471 3600 UNTIL K9 < 1
0x1d15…1d24 LineComalBcd {
0x1d15…1d24 ptr = 0xa471 // 0x1d15 @0x0
0x1d15…1d24 lno = 0x3600 // 0x1d17 @0x2
0x1d15…1d24 at0004 = ╱98╱ UNTIL ╱ // 0x1d19 @0x4
0x1d15…1d24 at0005 = ╱4b╱K╱ // 0x1d1a @0x5
0x1d15…1d24 at0006 = ╱39╱9╱ // 0x1d1b @0x6
0x1d15…1d24 at0007 = ╱dd╱ < ╱ // 0x1d1c @0x7
0x1d15…1d24 at0008 = ╱31╱1╱ // 0x1d1d @0x8
0x1d15…1d24 at0009 = ╱fe00008001╱ // 0x1d1e @0x9
0x1d15…1d24 at000e = EOL // 0x1d23 @0xe
0x1d15…1d24 }
0x1d24…1d34 a481 3610 IF K8 = 1 THEN
0x1d24…1d34 LineComalBcd {
0x1d24…1d34 ptr = 0xa481 // 0x1d24 @0x0
0x1d24…1d34 lno = 0x3610 // 0x1d26 @0x2
0x1d24…1d34 at0004 = ╱9c╱ IF ╱ // 0x1d28 @0x4
0x1d24…1d34 at0005 = ╱4b╱K╱ // 0x1d29 @0x5
0x1d24…1d34 at0006 = ╱38╱8╱ // 0x1d2a @0x6
0x1d24…1d34 at0007 = ╱dc╱ = ╱ // 0x1d2b @0x7
0x1d24…1d34 at0008 = ╱31╱1╱ // 0x1d2c @0x8
0x1d24…1d34 at0009 = ╱fe00008001╱ // 0x1d2d @0x9
0x1d24…1d34 at000e = ╱b6╱ THEN ╱ // 0x1d32 @0xe
0x1d24…1d34 at000f = EOL // 0x1d33 @0xf
0x1d24…1d34 }
0x1d34…1d44 a491 3620 EXEC GEMKASPOST
0x1d34…1d44 LineComalBcd {
0x1d34…1d44 ptr = 0xa491 // 0x1d34 @0x0
0x1d34…1d44 lno = 0x3620 // 0x1d36 @0x2
0x1d34…1d44 at0004 = ╱9d╱ EXEC ╱ // 0x1d38 @0x4
0x1d34…1d44 at0005 = ╱47╱G╱ // 0x1d39 @0x5
0x1d34…1d44 at0006 = ╱45╱E╱ // 0x1d3a @0x6
0x1d34…1d44 at0007 = ╱4d╱M╱ // 0x1d3b @0x7
0x1d34…1d44 at0008 = ╱4b╱K╱ // 0x1d3c @0x8
0x1d34…1d44 at0009 = ╱41╱A╱ // 0x1d3d @0x9
0x1d34…1d44 at000a = ╱53╱S╱ // 0x1d3e @0xa
0x1d34…1d44 at000b = ╱50╱P╱ // 0x1d3f @0xb
0x1d34…1d44 at000c = ╱4f╱O╱ // 0x1d40 @0xc
0x1d34…1d44 at000d = ╱53╱S╱ // 0x1d41 @0xd
0x1d34…1d44 at000e = ╱54╱T╱ // 0x1d42 @0xe
0x1d34…1d44 at000f = EOL // 0x1d43 @0xf
0x1d34…1d44 }
0x1d44…1d50 a49d 3630 EXEC KYSGEM
0x1d44…1d50 LineComalBcd {
0x1d44…1d50 ptr = 0xa49d // 0x1d44 @0x0
0x1d44…1d50 lno = 0x3630 // 0x1d46 @0x2
0x1d44…1d50 at0004 = ╱9d╱ EXEC ╱ // 0x1d48 @0x4
0x1d44…1d50 at0005 = ╱4b╱K╱ // 0x1d49 @0x5
0x1d44…1d50 at0006 = ╱59╱Y╱ // 0x1d4a @0x6
0x1d44…1d50 at0007 = ╱53╱S╱ // 0x1d4b @0x7
0x1d44…1d50 at0008 = ╱47╱G╱ // 0x1d4c @0x8
0x1d44…1d50 at0009 = ╱45╱E╱ // 0x1d4d @0x9
0x1d44…1d50 at000a = ╱4d╱M╱ // 0x1d4e @0xa
0x1d44…1d50 at000b = EOL // 0x1d4f @0xb
0x1d44…1d50 }
0x1d50…1d56 a4a3 3640 ENDIF
0x1d50…1d56 LineComalBcd {
0x1d50…1d56 ptr = 0xa4a3 // 0x1d50 @0x0
0x1d50…1d56 lno = 0x3640 // 0x1d52 @0x2
0x1d50…1d56 at0004 = ╱9b╱ ENDIF ╱ // 0x1d54 @0x4
0x1d50…1d56 at0005 = EOL // 0x1d55 @0x5
0x1d50…1d56 }
0x1d56…1d70 a4bd 3650 UNTIL K9 = 0 OR K9 = - 8
0x1d56…1d70 LineComalBcd {
0x1d56…1d70 ptr = 0xa4bd // 0x1d56 @0x0
0x1d56…1d70 lno = 0x3650 // 0x1d58 @0x2
0x1d56…1d70 at0004 = ╱98╱ UNTIL ╱ // 0x1d5a @0x4
0x1d56…1d70 at0005 = ╱4b╱K╱ // 0x1d5b @0x5
0x1d56…1d70 at0006 = ╱39╱9╱ // 0x1d5c @0x6
0x1d56…1d70 at0007 = ╱dc╱ = ╱ // 0x1d5d @0x7
0x1d56…1d70 at0008 = ╱30╱0╱ // 0x1d5e @0x8
0x1d56…1d70 at0009 = ╱fe00000000╱ // 0x1d5f @0x9
0x1d56…1d70 at000e = ╱db╱ OR ╱ // 0x1d64 @0xe
0x1d56…1d70 at000f = ╱4b╱K╱ // 0x1d65 @0xf
0x1d56…1d70 at0010 = ╱39╱9╱ // 0x1d66 @0x10
0x1d56…1d70 at0011 = ╱dc╱ = ╱ // 0x1d67 @0x11
0x1d56…1d70 at0012 = ╱e9╱ - ╱ // 0x1d68 @0x12
0x1d56…1d70 at0013 = ╱38╱8╱ // 0x1d69 @0x13
0x1d56…1d70 at0014 = ╱fe00008004╱ // 0x1d6a @0x14
0x1d56…1d70 at0019 = EOL // 0x1d6f @0x19
0x1d56…1d70 }
0x1d70…1d81 a4ce 3660 IF K9 = - 8 THEN
0x1d70…1d81 LineComalBcd {
0x1d70…1d81 ptr = 0xa4ce // 0x1d70 @0x0
0x1d70…1d81 lno = 0x3660 // 0x1d72 @0x2
0x1d70…1d81 at0004 = ╱9c╱ IF ╱ // 0x1d74 @0x4
0x1d70…1d81 at0005 = ╱4b╱K╱ // 0x1d75 @0x5
0x1d70…1d81 at0006 = ╱39╱9╱ // 0x1d76 @0x6
0x1d70…1d81 at0007 = ╱dc╱ = ╱ // 0x1d77 @0x7
0x1d70…1d81 at0008 = ╱e9╱ - ╱ // 0x1d78 @0x8
0x1d70…1d81 at0009 = ╱38╱8╱ // 0x1d79 @0x9
0x1d70…1d81 at000a = ╱fe00008004╱ // 0x1d7a @0xa
0x1d70…1d81 at000f = ╱b6╱ THEN ╱ // 0x1d7f @0xf
0x1d70…1d81 at0010 = EOL // 0x1d80 @0x10
0x1d70…1d81 }
0x1d81…1d87 a4d4 3670 CLEAR
0x1d81…1d87 LineComalBcd {
0x1d81…1d87 ptr = 0xa4d4 // 0x1d81 @0x0
0x1d81…1d87 lno = 0x3670 // 0x1d83 @0x2
0x1d81…1d87 at0004 = ╱a0╱ CLEAR ╱ // 0x1d85 @0x4
0x1d81…1d87 at0005 = EOL // 0x1d86 @0x5
0x1d81…1d87 }
0x1d87…1d94 a4e1 3680 EXEC UDHOVED
0x1d87…1d94 LineComalBcd {
0x1d87…1d94 ptr = 0xa4e1 // 0x1d87 @0x0
0x1d87…1d94 lno = 0x3680 // 0x1d89 @0x2
0x1d87…1d94 at0004 = ╱9d╱ EXEC ╱ // 0x1d8b @0x4
0x1d87…1d94 at0005 = ╱55╱U╱ // 0x1d8c @0x5
0x1d87…1d94 at0006 = ╱44╱D╱ // 0x1d8d @0x6
0x1d87…1d94 at0007 = ╱48╱H╱ // 0x1d8e @0x7
0x1d87…1d94 at0008 = ╱4f╱O╱ // 0x1d8f @0x8
0x1d87…1d94 at0009 = ╱56╱V╱ // 0x1d90 @0x9
0x1d87…1d94 at000a = ╱45╱E╱ // 0x1d91 @0xa
0x1d87…1d94 at000b = ╱44╱D╱ // 0x1d92 @0xb
0x1d87…1d94 at000c = EOL // 0x1d93 @0xc
0x1d87…1d94 }
0x1d94…1dac a4f9 3690 H5 = 1 ; I1 = 2
0x1d94…1dac LineComalBcd {
0x1d94…1dac ptr = 0xa4f9 // 0x1d94 @0x0
0x1d94…1dac lno = 0x3690 // 0x1d96 @0x2
0x1d94…1dac at0004 = ╱48╱H╱ // 0x1d98 @0x4
0x1d94…1dac at0005 = ╱35╱5╱ // 0x1d99 @0x5
0x1d94…1dac at0006 = ╱dc╱ = ╱ // 0x1d9a @0x6
0x1d94…1dac at0007 = ╱31╱1╱ // 0x1d9b @0x7
0x1d94…1dac at0008 = ╱fe00008001╱ // 0x1d9c @0x8
0x1d94…1dac at000d = ╱eb╱ ; ╱ // 0x1da1 @0xd
0x1d94…1dac at000e = ╱49╱I╱ // 0x1da2 @0xe
0x1d94…1dac at000f = ╱31╱1╱ // 0x1da3 @0xf
0x1d94…1dac at0010 = ╱dc╱ = ╱ // 0x1da4 @0x10
0x1d94…1dac at0011 = ╱32╱2╱ // 0x1da5 @0x11
0x1d94…1dac at0012 = ╱fe00008002╱ // 0x1da6 @0x12
0x1d94…1dac at0017 = EOL // 0x1dab @0x17
0x1d94…1dac }
0x1dac…1dc5 a512 3700 EXEC INDTASTNING ( 1 )
0x1dac…1dc5 LineComalBcd {
0x1dac…1dc5 ptr = 0xa512 // 0x1dac @0x0
0x1dac…1dc5 lno = 0x3700 // 0x1dae @0x2
0x1dac…1dc5 at0004 = ╱9d╱ EXEC ╱ // 0x1db0 @0x4
0x1dac…1dc5 at0005 = ╱49╱I╱ // 0x1db1 @0x5
0x1dac…1dc5 at0006 = ╱4e╱N╱ // 0x1db2 @0x6
0x1dac…1dc5 at0007 = ╱44╱D╱ // 0x1db3 @0x7
0x1dac…1dc5 at0008 = ╱54╱T╱ // 0x1db4 @0x8
0x1dac…1dc5 at0009 = ╱41╱A╱ // 0x1db5 @0x9
0x1dac…1dc5 at000a = ╱53╱S╱ // 0x1db6 @0xa
0x1dac…1dc5 at000b = ╱54╱T╱ // 0x1db7 @0xb
0x1dac…1dc5 at000c = ╱4e╱N╱ // 0x1db8 @0xc
0x1dac…1dc5 at000d = ╱49╱I╱ // 0x1db9 @0xd
0x1dac…1dc5 at000e = ╱4e╱N╱ // 0x1dba @0xe
0x1dac…1dc5 at000f = ╱47╱G╱ // 0x1dbb @0xf
0x1dac…1dc5 at0010 = ╱ed╱ ( ╱ // 0x1dbc @0x10
0x1dac…1dc5 at0011 = ╱31╱1╱ // 0x1dbd @0x11
0x1dac…1dc5 at0012 = ╱fe00008001╱ // 0x1dbe @0x12
0x1dac…1dc5 at0017 = ╱ee╱ ) ╱ // 0x1dc3 @0x17
0x1dac…1dc5 at0018 = EOL // 0x1dc4 @0x18
0x1dac…1dc5 }
0x1dc5…1dcb a518 3710 ENDIF
0x1dc5…1dcb LineComalBcd {
0x1dc5…1dcb ptr = 0xa518 // 0x1dc5 @0x0
0x1dc5…1dcb lno = 0x3710 // 0x1dc7 @0x2
0x1dc5…1dcb at0004 = ╱9b╱ ENDIF ╱ // 0x1dc9 @0x4
0x1dc5…1dcb at0005 = EOL // 0x1dca @0x5
0x1dc5…1dcb }
0x1dcb…1dd1 a51e 3720 ENDPROC
0x1dcb…1dd1 LineComalBcd {
0x1dcb…1dd1 ptr = 0xa51e // 0x1dcb @0x0
0x1dcb…1dd1 lno = 0x3720 // 0x1dcd @0x2
0x1dcb…1dd1 at0004 = ╱9f╱ ENDPROC ╱ // 0x1dcf @0x4
0x1dcb…1dd1 at0005 = EOL // 0x1dd0 @0x5
0x1dcb…1dd1 }
0x1dd1…1ddd a52a 3730 PROC KYSGEM
0x1dd1…1ddd LineComalBcd {
0x1dd1…1ddd ptr = 0xa52a // 0x1dd1 @0x0
0x1dd1…1ddd lno = 0x3730 // 0x1dd3 @0x2
0x1dd1…1ddd at0004 = ╱9e╱ PROC ╱ // 0x1dd5 @0x4
0x1dd1…1ddd at0005 = ╱4b╱K╱ // 0x1dd6 @0x5
0x1dd1…1ddd at0006 = ╱59╱Y╱ // 0x1dd7 @0x6
0x1dd1…1ddd at0007 = ╱53╱S╱ // 0x1dd8 @0x7
0x1dd1…1ddd at0008 = ╱47╱G╱ // 0x1dd9 @0x8
0x1dd1…1ddd at0009 = ╱45╱E╱ // 0x1dda @0x9
0x1dd1…1ddd at000a = ╱4d╱M╱ // 0x1ddb @0xa
0x1dd1…1ddd at000b = EOL // 0x1ddc @0xb
0x1dd1…1ddd }
0x1ddd…1e19 a566 3740 E8 ( 4 ) = L2 ; E8 ( 8 ) = I0 ; F0 ( 2 ) = I4 ; G1 ( 1 ) = L3
0x1ddd…1e19 LineComalBcd {
0x1ddd…1e19 ptr = 0xa566 // 0x1ddd @0x0
0x1ddd…1e19 lno = 0x3740 // 0x1ddf @0x2
0x1ddd…1e19 at0004 = ╱45╱E╱ // 0x1de1 @0x4
0x1ddd…1e19 at0005 = ╱38╱8╱ // 0x1de2 @0x5
0x1ddd…1e19 at0006 = ╱ed╱ ( ╱ // 0x1de3 @0x6
0x1ddd…1e19 at0007 = ╱34╱4╱ // 0x1de4 @0x7
0x1ddd…1e19 at0008 = ╱fe00008003╱ // 0x1de5 @0x8
0x1ddd…1e19 at000d = ╱ee╱ ) ╱ // 0x1dea @0xd
0x1ddd…1e19 at000e = ╱dc╱ = ╱ // 0x1deb @0xe
0x1ddd…1e19 at000f = ╱4c╱L╱ // 0x1dec @0xf
0x1ddd…1e19 at0010 = ╱32╱2╱ // 0x1ded @0x10
0x1ddd…1e19 at0011 = ╱eb╱ ; ╱ // 0x1dee @0x11
0x1ddd…1e19 at0012 = ╱45╱E╱ // 0x1def @0x12
0x1ddd…1e19 at0013 = ╱38╱8╱ // 0x1df0 @0x13
0x1ddd…1e19 at0014 = ╱ed╱ ( ╱ // 0x1df1 @0x14
0x1ddd…1e19 at0015 = ╱38╱8╱ // 0x1df2 @0x15
0x1ddd…1e19 at0016 = ╱fe00008004╱ // 0x1df3 @0x16
0x1ddd…1e19 at001b = ╱ee╱ ) ╱ // 0x1df8 @0x1b
0x1ddd…1e19 at001c = ╱dc╱ = ╱ // 0x1df9 @0x1c
0x1ddd…1e19 at001d = ╱49╱I╱ // 0x1dfa @0x1d
0x1ddd…1e19 at001e = ╱30╱0╱ // 0x1dfb @0x1e
0x1ddd…1e19 at001f = ╱eb╱ ; ╱ // 0x1dfc @0x1f
0x1ddd…1e19 at0020 = ╱46╱F╱ // 0x1dfd @0x20
0x1ddd…1e19 at0021 = ╱30╱0╱ // 0x1dfe @0x21
0x1ddd…1e19 at0022 = ╱ed╱ ( ╱ // 0x1dff @0x22
0x1ddd…1e19 at0023 = ╱32╱2╱ // 0x1e00 @0x23
0x1ddd…1e19 at0024 = ╱fe00008002╱ // 0x1e01 @0x24
0x1ddd…1e19 at0029 = ╱ee╱ ) ╱ // 0x1e06 @0x29
0x1ddd…1e19 at002a = ╱dc╱ = ╱ // 0x1e07 @0x2a
0x1ddd…1e19 at002b = ╱49╱I╱ // 0x1e08 @0x2b
0x1ddd…1e19 at002c = ╱34╱4╱ // 0x1e09 @0x2c
0x1ddd…1e19 at002d = ╱eb╱ ; ╱ // 0x1e0a @0x2d
0x1ddd…1e19 at002e = ╱47╱G╱ // 0x1e0b @0x2e
0x1ddd…1e19 at002f = ╱31╱1╱ // 0x1e0c @0x2f
0x1ddd…1e19 at0030 = ╱ed╱ ( ╱ // 0x1e0d @0x30
0x1ddd…1e19 at0031 = ╱31╱1╱ // 0x1e0e @0x31
0x1ddd…1e19 at0032 = ╱fe00008001╱ // 0x1e0f @0x32
0x1ddd…1e19 at0037 = ╱ee╱ ) ╱ // 0x1e14 @0x37
0x1ddd…1e19 at0038 = ╱dc╱ = ╱ // 0x1e15 @0x38
0x1ddd…1e19 at0039 = ╱4c╱L╱ // 0x1e16 @0x39
0x1ddd…1e19 at003a = ╱33╱3╱ // 0x1e17 @0x3a
0x1ddd…1e19 at003b = EOL // 0x1e18 @0x3b
0x1ddd…1e19 }
0x1e19…1e24 a571 3750 OPEN E2 $ , W
0x1e19…1e24 LineComalBcd {
0x1e19…1e24 ptr = 0xa571 // 0x1e19 @0x0
0x1e19…1e24 lno = 0x3750 // 0x1e1b @0x2
0x1e19…1e24 at0004 = ╱a7╱ OPEN ╱ // 0x1e1d @0x4
0x1e19…1e24 at0005 = ╱45╱E╱ // 0x1e1e @0x5
0x1e19…1e24 at0006 = ╱32╱2╱ // 0x1e1f @0x6
0x1e19…1e24 at0007 = ╱ef╱ $ ╱ // 0x1e20 @0x7
0x1e19…1e24 at0008 = ╱ec╱ , ╱ // 0x1e21 @0x8
0x1e19…1e24 at0009 = ╱57╱W╱ // 0x1e22 @0x9
0x1e19…1e24 at000a = EOL // 0x1e23 @0xa
0x1e19…1e24 }
0x1e24…1e41 a58e 3760 EXEC FEJL ( 3 , 1 , E2 $ )
0x1e24…1e41 LineComalBcd {
0x1e24…1e41 ptr = 0xa58e // 0x1e24 @0x0
0x1e24…1e41 lno = 0x3760 // 0x1e26 @0x2
0x1e24…1e41 at0004 = ╱9d╱ EXEC ╱ // 0x1e28 @0x4
0x1e24…1e41 at0005 = ╱46╱F╱ // 0x1e29 @0x5
0x1e24…1e41 at0006 = ╱45╱E╱ // 0x1e2a @0x6
0x1e24…1e41 at0007 = ╱4a╱J╱ // 0x1e2b @0x7
0x1e24…1e41 at0008 = ╱4c╱L╱ // 0x1e2c @0x8
0x1e24…1e41 at0009 = ╱ed╱ ( ╱ // 0x1e2d @0x9
0x1e24…1e41 at000a = ╱33╱3╱ // 0x1e2e @0xa
0x1e24…1e41 at000b = ╱fe0000c002╱ // 0x1e2f @0xb
0x1e24…1e41 at0010 = ╱ec╱ , ╱ // 0x1e34 @0x10
0x1e24…1e41 at0011 = ╱31╱1╱ // 0x1e35 @0x11
0x1e24…1e41 at0012 = ╱fe00008001╱ // 0x1e36 @0x12
0x1e24…1e41 at0017 = ╱ec╱ , ╱ // 0x1e3b @0x17
0x1e24…1e41 at0018 = ╱45╱E╱ // 0x1e3c @0x18
0x1e24…1e41 at0019 = ╱32╱2╱ // 0x1e3d @0x19
0x1e24…1e41 at001a = ╱ef╱ $ ╱ // 0x1e3e @0x1a
0x1e24…1e41 at001b = ╱ee╱ ) ╱ // 0x1e3f @0x1b
0x1e24…1e41 at001c = EOL // 0x1e40 @0x1c
0x1e24…1e41 }
0x1e41…1eb4 a601 3770 PUT E2 $ , 2 : E8 ( 1 ) , E8 ( 2 ) , E8 ( 3 ) , E8 ( 4 ) , E8 ( 5 ) , E8 ( 6 ) , E8 ( 7 ) , E8 ( 8 ) , E8 ( 9 )
0x1e41…1eb4 LineComalBcd {
0x1e41…1eb4 ptr = 0xa601 // 0x1e41 @0x0
0x1e41…1eb4 lno = 0x3770 // 0x1e43 @0x2
0x1e41…1eb4 at0004 = ╱aa╱ PUT ╱ // 0x1e45 @0x4
0x1e41…1eb4 at0005 = ╱45╱E╱ // 0x1e46 @0x5
0x1e41…1eb4 at0006 = ╱32╱2╱ // 0x1e47 @0x6
0x1e41…1eb4 at0007 = ╱ef╱ $ ╱ // 0x1e48 @0x7
0x1e41…1eb4 at0008 = ╱ec╱ , ╱ // 0x1e49 @0x8
0x1e41…1eb4 at0009 = ╱32╱2╱ // 0x1e4a @0x9
0x1e41…1eb4 at000a = ╱fe00008002╱ // 0x1e4b @0xa
0x1e41…1eb4 at000f = ╱f0╱ : ╱ // 0x1e50 @0xf
0x1e41…1eb4 at0010 = ╱45╱E╱ // 0x1e51 @0x10
0x1e41…1eb4 at0011 = ╱38╱8╱ // 0x1e52 @0x11
0x1e41…1eb4 at0012 = ╱ed╱ ( ╱ // 0x1e53 @0x12
0x1e41…1eb4 at0013 = ╱31╱1╱ // 0x1e54 @0x13
0x1e41…1eb4 at0014 = ╱fe00008001╱ // 0x1e55 @0x14
0x1e41…1eb4 at0019 = ╱ee╱ ) ╱ // 0x1e5a @0x19
0x1e41…1eb4 at001a = ╱ec╱ , ╱ // 0x1e5b @0x1a
0x1e41…1eb4 at001b = ╱45╱E╱ // 0x1e5c @0x1b
0x1e41…1eb4 at001c = ╱38╱8╱ // 0x1e5d @0x1c
0x1e41…1eb4 at001d = ╱ed╱ ( ╱ // 0x1e5e @0x1d
0x1e41…1eb4 at001e = ╱32╱2╱ // 0x1e5f @0x1e
0x1e41…1eb4 at001f = ╱fe00008002╱ // 0x1e60 @0x1f
0x1e41…1eb4 at0024 = ╱ee╱ ) ╱ // 0x1e65 @0x24
0x1e41…1eb4 at0025 = ╱ec╱ , ╱ // 0x1e66 @0x25
0x1e41…1eb4 at0026 = ╱45╱E╱ // 0x1e67 @0x26
0x1e41…1eb4 at0027 = ╱38╱8╱ // 0x1e68 @0x27
0x1e41…1eb4 at0028 = ╱ed╱ ( ╱ // 0x1e69 @0x28
0x1e41…1eb4 at0029 = ╱33╱3╱ // 0x1e6a @0x29
0x1e41…1eb4 at002a = ╱fe0000c002╱ // 0x1e6b @0x2a
0x1e41…1eb4 at002f = ╱ee╱ ) ╱ // 0x1e70 @0x2f
0x1e41…1eb4 at0030 = ╱ec╱ , ╱ // 0x1e71 @0x30
0x1e41…1eb4 at0031 = ╱45╱E╱ // 0x1e72 @0x31
0x1e41…1eb4 at0032 = ╱38╱8╱ // 0x1e73 @0x32
0x1e41…1eb4 at0033 = ╱ed╱ ( ╱ // 0x1e74 @0x33
0x1e41…1eb4 at0034 = ╱34╱4╱ // 0x1e75 @0x34
0x1e41…1eb4 at0035 = ╱fe00008003╱ // 0x1e76 @0x35
0x1e41…1eb4 at003a = ╱ee╱ ) ╱ // 0x1e7b @0x3a
0x1e41…1eb4 at003b = ╱ec╱ , ╱ // 0x1e7c @0x3b
0x1e41…1eb4 at003c = ╱45╱E╱ // 0x1e7d @0x3c
0x1e41…1eb4 at003d = ╱38╱8╱ // 0x1e7e @0x3d
0x1e41…1eb4 at003e = ╱ed╱ ( ╱ // 0x1e7f @0x3e
0x1e41…1eb4 at003f = ╱35╱5╱ // 0x1e80 @0x3f
0x1e41…1eb4 at0040 = ╱fe0000a003╱ // 0x1e81 @0x40
0x1e41…1eb4 at0045 = ╱ee╱ ) ╱ // 0x1e86 @0x45
0x1e41…1eb4 at0046 = ╱ec╱ , ╱ // 0x1e87 @0x46
0x1e41…1eb4 at0047 = ╱45╱E╱ // 0x1e88 @0x47
0x1e41…1eb4 at0048 = ╱38╱8╱ // 0x1e89 @0x48
0x1e41…1eb4 at0049 = ╱ed╱ ( ╱ // 0x1e8a @0x49
0x1e41…1eb4 at004a = ╱36╱6╱ // 0x1e8b @0x4a
0x1e41…1eb4 at004b = ╱fe0000c003╱ // 0x1e8c @0x4b
0x1e41…1eb4 at0050 = ╱ee╱ ) ╱ // 0x1e91 @0x50
0x1e41…1eb4 at0051 = ╱ec╱ , ╱ // 0x1e92 @0x51
0x1e41…1eb4 at0052 = ╱45╱E╱ // 0x1e93 @0x52
0x1e41…1eb4 at0053 = ╱38╱8╱ // 0x1e94 @0x53
0x1e41…1eb4 at0054 = ╱ed╱ ( ╱ // 0x1e95 @0x54
0x1e41…1eb4 at0055 = ╱37╱7╱ // 0x1e96 @0x55
0x1e41…1eb4 at0056 = ╱fe0000e003╱ // 0x1e97 @0x56
0x1e41…1eb4 at005b = ╱ee╱ ) ╱ // 0x1e9c @0x5b
0x1e41…1eb4 at005c = ╱ec╱ , ╱ // 0x1e9d @0x5c
0x1e41…1eb4 at005d = ╱45╱E╱ // 0x1e9e @0x5d
0x1e41…1eb4 at005e = ╱38╱8╱ // 0x1e9f @0x5e
0x1e41…1eb4 at005f = ╱ed╱ ( ╱ // 0x1ea0 @0x5f
0x1e41…1eb4 at0060 = ╱38╱8╱ // 0x1ea1 @0x60
0x1e41…1eb4 at0061 = ╱fe00008004╱ // 0x1ea2 @0x61
0x1e41…1eb4 at0066 = ╱ee╱ ) ╱ // 0x1ea7 @0x66
0x1e41…1eb4 at0067 = ╱ec╱ , ╱ // 0x1ea8 @0x67
0x1e41…1eb4 at0068 = ╱45╱E╱ // 0x1ea9 @0x68
0x1e41…1eb4 at0069 = ╱38╱8╱ // 0x1eaa @0x69
0x1e41…1eb4 at006a = ╱ed╱ ( ╱ // 0x1eab @0x6a
0x1e41…1eb4 at006b = ╱39╱9╱ // 0x1eac @0x6b
0x1e41…1eb4 at006c = ╱fe00009004╱ // 0x1ead @0x6c
0x1e41…1eb4 at0071 = ╱ee╱ ) ╱ // 0x1eb2 @0x71
0x1e41…1eb4 at0072 = EOL // 0x1eb3 @0x72
0x1e41…1eb4 }
0x1eb4…1ed1 a61e 3780 EXEC FEJL ( 3 , 2 , E2 $ )
0x1eb4…1ed1 LineComalBcd {
0x1eb4…1ed1 ptr = 0xa61e // 0x1eb4 @0x0
0x1eb4…1ed1 lno = 0x3780 // 0x1eb6 @0x2
0x1eb4…1ed1 at0004 = ╱9d╱ EXEC ╱ // 0x1eb8 @0x4
0x1eb4…1ed1 at0005 = ╱46╱F╱ // 0x1eb9 @0x5
0x1eb4…1ed1 at0006 = ╱45╱E╱ // 0x1eba @0x6
0x1eb4…1ed1 at0007 = ╱4a╱J╱ // 0x1ebb @0x7
0x1eb4…1ed1 at0008 = ╱4c╱L╱ // 0x1ebc @0x8
0x1eb4…1ed1 at0009 = ╱ed╱ ( ╱ // 0x1ebd @0x9
0x1eb4…1ed1 at000a = ╱33╱3╱ // 0x1ebe @0xa
0x1eb4…1ed1 at000b = ╱fe0000c002╱ // 0x1ebf @0xb
0x1eb4…1ed1 at0010 = ╱ec╱ , ╱ // 0x1ec4 @0x10
0x1eb4…1ed1 at0011 = ╱32╱2╱ // 0x1ec5 @0x11
0x1eb4…1ed1 at0012 = ╱fe00008002╱ // 0x1ec6 @0x12
0x1eb4…1ed1 at0017 = ╱ec╱ , ╱ // 0x1ecb @0x17
0x1eb4…1ed1 at0018 = ╱45╱E╱ // 0x1ecc @0x18
0x1eb4…1ed1 at0019 = ╱32╱2╱ // 0x1ecd @0x19
0x1eb4…1ed1 at001a = ╱ef╱ $ ╱ // 0x1ece @0x1a
0x1eb4…1ed1 at001b = ╱ee╱ ) ╱ // 0x1ecf @0x1b
0x1eb4…1ed1 at001c = EOL // 0x1ed0 @0x1c
0x1eb4…1ed1 }
0x1ed1…1f45 a692 3790 PUT E2 $ , 12 : F0 ( 1 ) , F0 ( 2 ) , F0 ( 3 ) , F0 ( 4 ) , F0 ( 5 ) , F0 ( 6 ) , F0 ( 7 ) , F0 ( 8 ) , F0 ( 9 )
0x1ed1…1f45 LineComalBcd {
0x1ed1…1f45 ptr = 0xa692 // 0x1ed1 @0x0
0x1ed1…1f45 lno = 0x3790 // 0x1ed3 @0x2
0x1ed1…1f45 at0004 = ╱aa╱ PUT ╱ // 0x1ed5 @0x4
0x1ed1…1f45 at0005 = ╱45╱E╱ // 0x1ed6 @0x5
0x1ed1…1f45 at0006 = ╱32╱2╱ // 0x1ed7 @0x6
0x1ed1…1f45 at0007 = ╱ef╱ $ ╱ // 0x1ed8 @0x7
0x1ed1…1f45 at0008 = ╱ec╱ , ╱ // 0x1ed9 @0x8
0x1ed1…1f45 at0009 = ╱31╱1╱ // 0x1eda @0x9
0x1ed1…1f45 at000a = ╱32╱2╱ // 0x1edb @0xa
0x1ed1…1f45 at000b = ╱fe0000c004╱ // 0x1edc @0xb
0x1ed1…1f45 at0010 = ╱f0╱ : ╱ // 0x1ee1 @0x10
0x1ed1…1f45 at0011 = ╱46╱F╱ // 0x1ee2 @0x11
0x1ed1…1f45 at0012 = ╱30╱0╱ // 0x1ee3 @0x12
0x1ed1…1f45 at0013 = ╱ed╱ ( ╱ // 0x1ee4 @0x13
0x1ed1…1f45 at0014 = ╱31╱1╱ // 0x1ee5 @0x14
0x1ed1…1f45 at0015 = ╱fe00008001╱ // 0x1ee6 @0x15
0x1ed1…1f45 at001a = ╱ee╱ ) ╱ // 0x1eeb @0x1a
0x1ed1…1f45 at001b = ╱ec╱ , ╱ // 0x1eec @0x1b
0x1ed1…1f45 at001c = ╱46╱F╱ // 0x1eed @0x1c
0x1ed1…1f45 at001d = ╱30╱0╱ // 0x1eee @0x1d
0x1ed1…1f45 at001e = ╱ed╱ ( ╱ // 0x1eef @0x1e
0x1ed1…1f45 at001f = ╱32╱2╱ // 0x1ef0 @0x1f
0x1ed1…1f45 at0020 = ╱fe00008002╱ // 0x1ef1 @0x20
0x1ed1…1f45 at0025 = ╱ee╱ ) ╱ // 0x1ef6 @0x25
0x1ed1…1f45 at0026 = ╱ec╱ , ╱ // 0x1ef7 @0x26
0x1ed1…1f45 at0027 = ╱46╱F╱ // 0x1ef8 @0x27
0x1ed1…1f45 at0028 = ╱30╱0╱ // 0x1ef9 @0x28
0x1ed1…1f45 at0029 = ╱ed╱ ( ╱ // 0x1efa @0x29
0x1ed1…1f45 at002a = ╱33╱3╱ // 0x1efb @0x2a
0x1ed1…1f45 at002b = ╱fe0000c002╱ // 0x1efc @0x2b
0x1ed1…1f45 at0030 = ╱ee╱ ) ╱ // 0x1f01 @0x30
0x1ed1…1f45 at0031 = ╱ec╱ , ╱ // 0x1f02 @0x31
0x1ed1…1f45 at0032 = ╱46╱F╱ // 0x1f03 @0x32
0x1ed1…1f45 at0033 = ╱30╱0╱ // 0x1f04 @0x33
0x1ed1…1f45 at0034 = ╱ed╱ ( ╱ // 0x1f05 @0x34
0x1ed1…1f45 at0035 = ╱34╱4╱ // 0x1f06 @0x35
0x1ed1…1f45 at0036 = ╱fe00008003╱ // 0x1f07 @0x36
0x1ed1…1f45 at003b = ╱ee╱ ) ╱ // 0x1f0c @0x3b
0x1ed1…1f45 at003c = ╱ec╱ , ╱ // 0x1f0d @0x3c
0x1ed1…1f45 at003d = ╱46╱F╱ // 0x1f0e @0x3d
0x1ed1…1f45 at003e = ╱30╱0╱ // 0x1f0f @0x3e
0x1ed1…1f45 at003f = ╱ed╱ ( ╱ // 0x1f10 @0x3f
0x1ed1…1f45 at0040 = ╱35╱5╱ // 0x1f11 @0x40
0x1ed1…1f45 at0041 = ╱fe0000a003╱ // 0x1f12 @0x41
0x1ed1…1f45 at0046 = ╱ee╱ ) ╱ // 0x1f17 @0x46
0x1ed1…1f45 at0047 = ╱ec╱ , ╱ // 0x1f18 @0x47
0x1ed1…1f45 at0048 = ╱46╱F╱ // 0x1f19 @0x48
0x1ed1…1f45 at0049 = ╱30╱0╱ // 0x1f1a @0x49
0x1ed1…1f45 at004a = ╱ed╱ ( ╱ // 0x1f1b @0x4a
0x1ed1…1f45 at004b = ╱36╱6╱ // 0x1f1c @0x4b
0x1ed1…1f45 at004c = ╱fe0000c003╱ // 0x1f1d @0x4c
0x1ed1…1f45 at0051 = ╱ee╱ ) ╱ // 0x1f22 @0x51
0x1ed1…1f45 at0052 = ╱ec╱ , ╱ // 0x1f23 @0x52
0x1ed1…1f45 at0053 = ╱46╱F╱ // 0x1f24 @0x53
0x1ed1…1f45 at0054 = ╱30╱0╱ // 0x1f25 @0x54
0x1ed1…1f45 at0055 = ╱ed╱ ( ╱ // 0x1f26 @0x55
0x1ed1…1f45 at0056 = ╱37╱7╱ // 0x1f27 @0x56
0x1ed1…1f45 at0057 = ╱fe0000e003╱ // 0x1f28 @0x57
0x1ed1…1f45 at005c = ╱ee╱ ) ╱ // 0x1f2d @0x5c
0x1ed1…1f45 at005d = ╱ec╱ , ╱ // 0x1f2e @0x5d
0x1ed1…1f45 at005e = ╱46╱F╱ // 0x1f2f @0x5e
0x1ed1…1f45 at005f = ╱30╱0╱ // 0x1f30 @0x5f
0x1ed1…1f45 at0060 = ╱ed╱ ( ╱ // 0x1f31 @0x60
0x1ed1…1f45 at0061 = ╱38╱8╱ // 0x1f32 @0x61
0x1ed1…1f45 at0062 = ╱fe00008004╱ // 0x1f33 @0x62
0x1ed1…1f45 at0067 = ╱ee╱ ) ╱ // 0x1f38 @0x67
0x1ed1…1f45 at0068 = ╱ec╱ , ╱ // 0x1f39 @0x68
0x1ed1…1f45 at0069 = ╱46╱F╱ // 0x1f3a @0x69
0x1ed1…1f45 at006a = ╱30╱0╱ // 0x1f3b @0x6a
0x1ed1…1f45 at006b = ╱ed╱ ( ╱ // 0x1f3c @0x6b
0x1ed1…1f45 at006c = ╱39╱9╱ // 0x1f3d @0x6c
0x1ed1…1f45 at006d = ╱fe00009004╱ // 0x1f3e @0x6d
0x1ed1…1f45 at0072 = ╱ee╱ ) ╱ // 0x1f43 @0x72
0x1ed1…1f45 at0073 = EOL // 0x1f44 @0x73
0x1ed1…1f45 }
0x1f45…1f62 a6af 3800 EXEC FEJL ( 3 , 3 , E2 $ )
0x1f45…1f62 LineComalBcd {
0x1f45…1f62 ptr = 0xa6af // 0x1f45 @0x0
0x1f45…1f62 lno = 0x3800 // 0x1f47 @0x2
0x1f45…1f62 at0004 = ╱9d╱ EXEC ╱ // 0x1f49 @0x4
0x1f45…1f62 at0005 = ╱46╱F╱ // 0x1f4a @0x5
0x1f45…1f62 at0006 = ╱45╱E╱ // 0x1f4b @0x6
0x1f45…1f62 at0007 = ╱4a╱J╱ // 0x1f4c @0x7
0x1f45…1f62 at0008 = ╱4c╱L╱ // 0x1f4d @0x8
0x1f45…1f62 at0009 = ╱ed╱ ( ╱ // 0x1f4e @0x9
0x1f45…1f62 at000a = ╱33╱3╱ // 0x1f4f @0xa
0x1f45…1f62 at000b = ╱fe0000c002╱ // 0x1f50 @0xb
0x1f45…1f62 at0010 = ╱ec╱ , ╱ // 0x1f55 @0x10
0x1f45…1f62 at0011 = ╱33╱3╱ // 0x1f56 @0x11
0x1f45…1f62 at0012 = ╱fe0000c002╱ // 0x1f57 @0x12
0x1f45…1f62 at0017 = ╱ec╱ , ╱ // 0x1f5c @0x17
0x1f45…1f62 at0018 = ╱45╱E╱ // 0x1f5d @0x18
0x1f45…1f62 at0019 = ╱32╱2╱ // 0x1f5e @0x19
0x1f45…1f62 at001a = ╱ef╱ $ ╱ // 0x1f5f @0x1a
0x1f45…1f62 at001b = ╱ee╱ ) ╱ // 0x1f60 @0x1b
0x1f45…1f62 at001c = EOL // 0x1f61 @0x1c
0x1f45…1f62 }
0x1f62…1fd6 a723 3810 PUT E2 $ , 13 : G1 ( 1 ) , G1 ( 2 ) , G1 ( 3 ) , G1 ( 4 ) , G1 ( 5 ) , G1 ( 6 ) , G1 ( 7 ) , G1 ( 8 ) , G1 ( 9 )
0x1f62…1fd6 LineComalBcd {
0x1f62…1fd6 ptr = 0xa723 // 0x1f62 @0x0
0x1f62…1fd6 lno = 0x3810 // 0x1f64 @0x2
0x1f62…1fd6 at0004 = ╱aa╱ PUT ╱ // 0x1f66 @0x4
0x1f62…1fd6 at0005 = ╱45╱E╱ // 0x1f67 @0x5
0x1f62…1fd6 at0006 = ╱32╱2╱ // 0x1f68 @0x6
0x1f62…1fd6 at0007 = ╱ef╱ $ ╱ // 0x1f69 @0x7
0x1f62…1fd6 at0008 = ╱ec╱ , ╱ // 0x1f6a @0x8
0x1f62…1fd6 at0009 = ╱31╱1╱ // 0x1f6b @0x9
0x1f62…1fd6 at000a = ╱33╱3╱ // 0x1f6c @0xa
0x1f62…1fd6 at000b = ╱fe0000d004╱ // 0x1f6d @0xb
0x1f62…1fd6 at0010 = ╱f0╱ : ╱ // 0x1f72 @0x10
0x1f62…1fd6 at0011 = ╱47╱G╱ // 0x1f73 @0x11
0x1f62…1fd6 at0012 = ╱31╱1╱ // 0x1f74 @0x12
0x1f62…1fd6 at0013 = ╱ed╱ ( ╱ // 0x1f75 @0x13
0x1f62…1fd6 at0014 = ╱31╱1╱ // 0x1f76 @0x14
0x1f62…1fd6 at0015 = ╱fe00008001╱ // 0x1f77 @0x15
0x1f62…1fd6 at001a = ╱ee╱ ) ╱ // 0x1f7c @0x1a
0x1f62…1fd6 at001b = ╱ec╱ , ╱ // 0x1f7d @0x1b
0x1f62…1fd6 at001c = ╱47╱G╱ // 0x1f7e @0x1c
0x1f62…1fd6 at001d = ╱31╱1╱ // 0x1f7f @0x1d
0x1f62…1fd6 at001e = ╱ed╱ ( ╱ // 0x1f80 @0x1e
0x1f62…1fd6 at001f = ╱32╱2╱ // 0x1f81 @0x1f
0x1f62…1fd6 at0020 = ╱fe00008002╱ // 0x1f82 @0x20
0x1f62…1fd6 at0025 = ╱ee╱ ) ╱ // 0x1f87 @0x25
0x1f62…1fd6 at0026 = ╱ec╱ , ╱ // 0x1f88 @0x26
0x1f62…1fd6 at0027 = ╱47╱G╱ // 0x1f89 @0x27
0x1f62…1fd6 at0028 = ╱31╱1╱ // 0x1f8a @0x28
0x1f62…1fd6 at0029 = ╱ed╱ ( ╱ // 0x1f8b @0x29
0x1f62…1fd6 at002a = ╱33╱3╱ // 0x1f8c @0x2a
0x1f62…1fd6 at002b = ╱fe0000c002╱ // 0x1f8d @0x2b
0x1f62…1fd6 at0030 = ╱ee╱ ) ╱ // 0x1f92 @0x30
0x1f62…1fd6 at0031 = ╱ec╱ , ╱ // 0x1f93 @0x31
0x1f62…1fd6 at0032 = ╱47╱G╱ // 0x1f94 @0x32
0x1f62…1fd6 at0033 = ╱31╱1╱ // 0x1f95 @0x33
0x1f62…1fd6 at0034 = ╱ed╱ ( ╱ // 0x1f96 @0x34
0x1f62…1fd6 at0035 = ╱34╱4╱ // 0x1f97 @0x35
0x1f62…1fd6 at0036 = ╱fe00008003╱ // 0x1f98 @0x36
0x1f62…1fd6 at003b = ╱ee╱ ) ╱ // 0x1f9d @0x3b
0x1f62…1fd6 at003c = ╱ec╱ , ╱ // 0x1f9e @0x3c
0x1f62…1fd6 at003d = ╱47╱G╱ // 0x1f9f @0x3d
0x1f62…1fd6 at003e = ╱31╱1╱ // 0x1fa0 @0x3e
0x1f62…1fd6 at003f = ╱ed╱ ( ╱ // 0x1fa1 @0x3f
0x1f62…1fd6 at0040 = ╱35╱5╱ // 0x1fa2 @0x40
0x1f62…1fd6 at0041 = ╱fe0000a003╱ // 0x1fa3 @0x41
0x1f62…1fd6 at0046 = ╱ee╱ ) ╱ // 0x1fa8 @0x46
0x1f62…1fd6 at0047 = ╱ec╱ , ╱ // 0x1fa9 @0x47
0x1f62…1fd6 at0048 = ╱47╱G╱ // 0x1faa @0x48
0x1f62…1fd6 at0049 = ╱31╱1╱ // 0x1fab @0x49
0x1f62…1fd6 at004a = ╱ed╱ ( ╱ // 0x1fac @0x4a
0x1f62…1fd6 at004b = ╱36╱6╱ // 0x1fad @0x4b
0x1f62…1fd6 at004c = ╱fe0000c003╱ // 0x1fae @0x4c
0x1f62…1fd6 at0051 = ╱ee╱ ) ╱ // 0x1fb3 @0x51
0x1f62…1fd6 at0052 = ╱ec╱ , ╱ // 0x1fb4 @0x52
0x1f62…1fd6 at0053 = ╱47╱G╱ // 0x1fb5 @0x53
0x1f62…1fd6 at0054 = ╱31╱1╱ // 0x1fb6 @0x54
0x1f62…1fd6 at0055 = ╱ed╱ ( ╱ // 0x1fb7 @0x55
0x1f62…1fd6 at0056 = ╱37╱7╱ // 0x1fb8 @0x56
0x1f62…1fd6 at0057 = ╱fe0000e003╱ // 0x1fb9 @0x57
0x1f62…1fd6 at005c = ╱ee╱ ) ╱ // 0x1fbe @0x5c
0x1f62…1fd6 at005d = ╱ec╱ , ╱ // 0x1fbf @0x5d
0x1f62…1fd6 at005e = ╱47╱G╱ // 0x1fc0 @0x5e
0x1f62…1fd6 at005f = ╱31╱1╱ // 0x1fc1 @0x5f
0x1f62…1fd6 at0060 = ╱ed╱ ( ╱ // 0x1fc2 @0x60
0x1f62…1fd6 at0061 = ╱38╱8╱ // 0x1fc3 @0x61
0x1f62…1fd6 at0062 = ╱fe00008004╱ // 0x1fc4 @0x62
0x1f62…1fd6 at0067 = ╱ee╱ ) ╱ // 0x1fc9 @0x67
0x1f62…1fd6 at0068 = ╱ec╱ , ╱ // 0x1fca @0x68
0x1f62…1fd6 at0069 = ╱47╱G╱ // 0x1fcb @0x69
0x1f62…1fd6 at006a = ╱31╱1╱ // 0x1fcc @0x6a
0x1f62…1fd6 at006b = ╱ed╱ ( ╱ // 0x1fcd @0x6b
0x1f62…1fd6 at006c = ╱39╱9╱ // 0x1fce @0x6c
0x1f62…1fd6 at006d = ╱fe00009004╱ // 0x1fcf @0x6d
0x1f62…1fd6 at0072 = ╱ee╱ ) ╱ // 0x1fd4 @0x72
0x1f62…1fd6 at0073 = EOL // 0x1fd5 @0x73
0x1f62…1fd6 }
0x1fd6…1ff3 a740 3820 EXEC FEJL ( 3 , 4 , E2 $ )
0x1fd6…1ff3 LineComalBcd {
0x1fd6…1ff3 ptr = 0xa740 // 0x1fd6 @0x0
0x1fd6…1ff3 lno = 0x3820 // 0x1fd8 @0x2
0x1fd6…1ff3 at0004 = ╱9d╱ EXEC ╱ // 0x1fda @0x4
0x1fd6…1ff3 at0005 = ╱46╱F╱ // 0x1fdb @0x5
0x1fd6…1ff3 at0006 = ╱45╱E╱ // 0x1fdc @0x6
0x1fd6…1ff3 at0007 = ╱4a╱J╱ // 0x1fdd @0x7
0x1fd6…1ff3 at0008 = ╱4c╱L╱ // 0x1fde @0x8
0x1fd6…1ff3 at0009 = ╱ed╱ ( ╱ // 0x1fdf @0x9
0x1fd6…1ff3 at000a = ╱33╱3╱ // 0x1fe0 @0xa
0x1fd6…1ff3 at000b = ╱fe0000c002╱ // 0x1fe1 @0xb
0x1fd6…1ff3 at0010 = ╱ec╱ , ╱ // 0x1fe6 @0x10
0x1fd6…1ff3 at0011 = ╱34╱4╱ // 0x1fe7 @0x11
0x1fd6…1ff3 at0012 = ╱fe00008003╱ // 0x1fe8 @0x12
0x1fd6…1ff3 at0017 = ╱ec╱ , ╱ // 0x1fed @0x17
0x1fd6…1ff3 at0018 = ╱45╱E╱ // 0x1fee @0x18
0x1fd6…1ff3 at0019 = ╱32╱2╱ // 0x1fef @0x19
0x1fd6…1ff3 at001a = ╱ef╱ $ ╱ // 0x1ff0 @0x1a
0x1fd6…1ff3 at001b = ╱ee╱ ) ╱ // 0x1ff1 @0x1b
0x1fd6…1ff3 at001c = EOL // 0x1ff2 @0x1c
0x1fd6…1ff3 }
0x1ff3…2028 a775 3830 PUT E2 $ , 15 : F5 $ ( 1 ) , F5 $ ( 2 ) , F5 $ ( 3 )
0x1ff3…2028 LineComalBcd {
0x1ff3…2028 ptr = 0xa775 // 0x1ff3 @0x0
0x1ff3…2028 lno = 0x3830 // 0x1ff5 @0x2
0x1ff3…2028 at0004 = ╱aa╱ PUT ╱ // 0x1ff7 @0x4
0x1ff3…2028 at0005 = ╱45╱E╱ // 0x1ff8 @0x5
0x1ff3…2028 at0006 = ╱32╱2╱ // 0x1ff9 @0x6
0x1ff3…2028 at0007 = ╱ef╱ $ ╱ // 0x1ffa @0x7
0x1ff3…2028 at0008 = ╱ec╱ , ╱ // 0x1ffb @0x8
0x1ff3…2028 at0009 = ╱31╱1╱ // 0x1ffc @0x9
0x1ff3…2028 at000a = ╱35╱5╱ // 0x1ffd @0xa
0x1ff3…2028 at000b = ╱fe0000f004╱ // 0x1ffe @0xb
0x1ff3…2028 at0010 = ╱f0╱ : ╱ // 0x2003 @0x10
0x1ff3…2028 at0011 = ╱46╱F╱ // 0x2004 @0x11
0x1ff3…2028 at0012 = ╱35╱5╱ // 0x2005 @0x12
0x1ff3…2028 at0013 = ╱ef╱ $ ╱ // 0x2006 @0x13
0x1ff3…2028 at0014 = ╱ed╱ ( ╱ // 0x2007 @0x14
0x1ff3…2028 at0015 = ╱31╱1╱ // 0x2008 @0x15
0x1ff3…2028 at0016 = ╱fe00008001╱ // 0x2009 @0x16
0x1ff3…2028 at001b = ╱ee╱ ) ╱ // 0x200e @0x1b
0x1ff3…2028 at001c = ╱ec╱ , ╱ // 0x200f @0x1c
0x1ff3…2028 at001d = ╱46╱F╱ // 0x2010 @0x1d
0x1ff3…2028 at001e = ╱35╱5╱ // 0x2011 @0x1e
0x1ff3…2028 at001f = ╱ef╱ $ ╱ // 0x2012 @0x1f
0x1ff3…2028 at0020 = ╱ed╱ ( ╱ // 0x2013 @0x20
0x1ff3…2028 at0021 = ╱32╱2╱ // 0x2014 @0x21
0x1ff3…2028 at0022 = ╱fe00008002╱ // 0x2015 @0x22
0x1ff3…2028 at0027 = ╱ee╱ ) ╱ // 0x201a @0x27
0x1ff3…2028 at0028 = ╱ec╱ , ╱ // 0x201b @0x28
0x1ff3…2028 at0029 = ╱46╱F╱ // 0x201c @0x29
0x1ff3…2028 at002a = ╱35╱5╱ // 0x201d @0x2a
0x1ff3…2028 at002b = ╱ef╱ $ ╱ // 0x201e @0x2b
0x1ff3…2028 at002c = ╱ed╱ ( ╱ // 0x201f @0x2c
0x1ff3…2028 at002d = ╱33╱3╱ // 0x2020 @0x2d
0x1ff3…2028 at002e = ╱fe0000c002╱ // 0x2021 @0x2e
0x1ff3…2028 at0033 = ╱ee╱ ) ╱ // 0x2026 @0x33
0x1ff3…2028 at0034 = EOL // 0x2027 @0x34
0x1ff3…2028 }
0x2028…2045 a792 3840 EXEC FEJL ( 3 , 5 , E2 $ )
0x2028…2045 LineComalBcd {
0x2028…2045 ptr = 0xa792 // 0x2028 @0x0
0x2028…2045 lno = 0x3840 // 0x202a @0x2
0x2028…2045 at0004 = ╱9d╱ EXEC ╱ // 0x202c @0x4
0x2028…2045 at0005 = ╱46╱F╱ // 0x202d @0x5
0x2028…2045 at0006 = ╱45╱E╱ // 0x202e @0x6
0x2028…2045 at0007 = ╱4a╱J╱ // 0x202f @0x7
0x2028…2045 at0008 = ╱4c╱L╱ // 0x2030 @0x8
0x2028…2045 at0009 = ╱ed╱ ( ╱ // 0x2031 @0x9
0x2028…2045 at000a = ╱33╱3╱ // 0x2032 @0xa
0x2028…2045 at000b = ╱fe0000c002╱ // 0x2033 @0xb
0x2028…2045 at0010 = ╱ec╱ , ╱ // 0x2038 @0x10
0x2028…2045 at0011 = ╱35╱5╱ // 0x2039 @0x11
0x2028…2045 at0012 = ╱fe0000a003╱ // 0x203a @0x12
0x2028…2045 at0017 = ╱ec╱ , ╱ // 0x203f @0x17
0x2028…2045 at0018 = ╱45╱E╱ // 0x2040 @0x18
0x2028…2045 at0019 = ╱32╱2╱ // 0x2041 @0x19
0x2028…2045 at001a = ╱ef╱ $ ╱ // 0x2042 @0x1a
0x2028…2045 at001b = ╱ee╱ ) ╱ // 0x2043 @0x1b
0x2028…2045 at001c = EOL // 0x2044 @0x1c
0x2028…2045 }
0x2045…207a a7c7 3850 PUT E2 $ , 16 : F5 $ ( 4 ) , F5 $ ( 5 ) , F5 $ ( 6 )
0x2045…207a LineComalBcd {
0x2045…207a ptr = 0xa7c7 // 0x2045 @0x0
0x2045…207a lno = 0x3850 // 0x2047 @0x2
0x2045…207a at0004 = ╱aa╱ PUT ╱ // 0x2049 @0x4
0x2045…207a at0005 = ╱45╱E╱ // 0x204a @0x5
0x2045…207a at0006 = ╱32╱2╱ // 0x204b @0x6
0x2045…207a at0007 = ╱ef╱ $ ╱ // 0x204c @0x7
0x2045…207a at0008 = ╱ec╱ , ╱ // 0x204d @0x8
0x2045…207a at0009 = ╱31╱1╱ // 0x204e @0x9
0x2045…207a at000a = ╱36╱6╱ // 0x204f @0xa
0x2045…207a at000b = ╱fe00008005╱ // 0x2050 @0xb
0x2045…207a at0010 = ╱f0╱ : ╱ // 0x2055 @0x10
0x2045…207a at0011 = ╱46╱F╱ // 0x2056 @0x11
0x2045…207a at0012 = ╱35╱5╱ // 0x2057 @0x12
0x2045…207a at0013 = ╱ef╱ $ ╱ // 0x2058 @0x13
0x2045…207a at0014 = ╱ed╱ ( ╱ // 0x2059 @0x14
0x2045…207a at0015 = ╱34╱4╱ // 0x205a @0x15
0x2045…207a at0016 = ╱fe00008003╱ // 0x205b @0x16
0x2045…207a at001b = ╱ee╱ ) ╱ // 0x2060 @0x1b
0x2045…207a at001c = ╱ec╱ , ╱ // 0x2061 @0x1c
0x2045…207a at001d = ╱46╱F╱ // 0x2062 @0x1d
0x2045…207a at001e = ╱35╱5╱ // 0x2063 @0x1e
0x2045…207a at001f = ╱ef╱ $ ╱ // 0x2064 @0x1f
0x2045…207a at0020 = ╱ed╱ ( ╱ // 0x2065 @0x20
0x2045…207a at0021 = ╱35╱5╱ // 0x2066 @0x21
0x2045…207a at0022 = ╱fe0000a003╱ // 0x2067 @0x22
0x2045…207a at0027 = ╱ee╱ ) ╱ // 0x206c @0x27
0x2045…207a at0028 = ╱ec╱ , ╱ // 0x206d @0x28
0x2045…207a at0029 = ╱46╱F╱ // 0x206e @0x29
0x2045…207a at002a = ╱35╱5╱ // 0x206f @0x2a
0x2045…207a at002b = ╱ef╱ $ ╱ // 0x2070 @0x2b
0x2045…207a at002c = ╱ed╱ ( ╱ // 0x2071 @0x2c
0x2045…207a at002d = ╱36╱6╱ // 0x2072 @0x2d
0x2045…207a at002e = ╱fe0000c003╱ // 0x2073 @0x2e
0x2045…207a at0033 = ╱ee╱ ) ╱ // 0x2078 @0x33
0x2045…207a at0034 = EOL // 0x2079 @0x34
0x2045…207a }
0x207a…2097 a7e4 3860 EXEC FEJL ( 3 , 6 , E2 $ )
0x207a…2097 LineComalBcd {
0x207a…2097 ptr = 0xa7e4 // 0x207a @0x0
0x207a…2097 lno = 0x3860 // 0x207c @0x2
0x207a…2097 at0004 = ╱9d╱ EXEC ╱ // 0x207e @0x4
0x207a…2097 at0005 = ╱46╱F╱ // 0x207f @0x5
0x207a…2097 at0006 = ╱45╱E╱ // 0x2080 @0x6
0x207a…2097 at0007 = ╱4a╱J╱ // 0x2081 @0x7
0x207a…2097 at0008 = ╱4c╱L╱ // 0x2082 @0x8
0x207a…2097 at0009 = ╱ed╱ ( ╱ // 0x2083 @0x9
0x207a…2097 at000a = ╱33╱3╱ // 0x2084 @0xa
0x207a…2097 at000b = ╱fe0000c002╱ // 0x2085 @0xb
0x207a…2097 at0010 = ╱ec╱ , ╱ // 0x208a @0x10
0x207a…2097 at0011 = ╱36╱6╱ // 0x208b @0x11
0x207a…2097 at0012 = ╱fe0000c003╱ // 0x208c @0x12
0x207a…2097 at0017 = ╱ec╱ , ╱ // 0x2091 @0x17
0x207a…2097 at0018 = ╱45╱E╱ // 0x2092 @0x18
0x207a…2097 at0019 = ╱32╱2╱ // 0x2093 @0x19
0x207a…2097 at001a = ╱ef╱ $ ╱ // 0x2094 @0x1a
0x207a…2097 at001b = ╱ee╱ ) ╱ // 0x2095 @0x1b
0x207a…2097 at001c = EOL // 0x2096 @0x1c
0x207a…2097 }
0x2097…20a0 a7ed 3870 CLOSE E2 $
0x2097…20a0 LineComalBcd {
0x2097…20a0 ptr = 0xa7ed // 0x2097 @0x0
0x2097…20a0 lno = 0x3870 // 0x2099 @0x2
0x2097…20a0 at0004 = ╱a8╱ CLOSE ╱ // 0x209b @0x4
0x2097…20a0 at0005 = ╱45╱E╱ // 0x209c @0x5
0x2097…20a0 at0006 = ╱32╱2╱ // 0x209d @0x6
0x2097…20a0 at0007 = ╱ef╱ $ ╱ // 0x209e @0x7
0x2097…20a0 at0008 = EOL // 0x209f @0x8
0x2097…20a0 }
0x20a0…20bd a80a 3880 EXEC FEJL ( 3 , 7 , E2 $ )
0x20a0…20bd LineComalBcd {
0x20a0…20bd ptr = 0xa80a // 0x20a0 @0x0
0x20a0…20bd lno = 0x3880 // 0x20a2 @0x2
0x20a0…20bd at0004 = ╱9d╱ EXEC ╱ // 0x20a4 @0x4
0x20a0…20bd at0005 = ╱46╱F╱ // 0x20a5 @0x5
0x20a0…20bd at0006 = ╱45╱E╱ // 0x20a6 @0x6
0x20a0…20bd at0007 = ╱4a╱J╱ // 0x20a7 @0x7
0x20a0…20bd at0008 = ╱4c╱L╱ // 0x20a8 @0x8
0x20a0…20bd at0009 = ╱ed╱ ( ╱ // 0x20a9 @0x9
0x20a0…20bd at000a = ╱33╱3╱ // 0x20aa @0xa
0x20a0…20bd at000b = ╱fe0000c002╱ // 0x20ab @0xb
0x20a0…20bd at0010 = ╱ec╱ , ╱ // 0x20b0 @0x10
0x20a0…20bd at0011 = ╱37╱7╱ // 0x20b1 @0x11
0x20a0…20bd at0012 = ╱fe0000e003╱ // 0x20b2 @0x12
0x20a0…20bd at0017 = ╱ec╱ , ╱ // 0x20b7 @0x17
0x20a0…20bd at0018 = ╱45╱E╱ // 0x20b8 @0x18
0x20a0…20bd at0019 = ╱32╱2╱ // 0x20b9 @0x19
0x20a0…20bd at001a = ╱ef╱ $ ╱ // 0x20ba @0x1a
0x20a0…20bd at001b = ╱ee╱ ) ╱ // 0x20bb @0x1b
0x20a0…20bd at001c = EOL // 0x20bc @0x1c
0x20a0…20bd }
0x20bd…20c3 a810 3890 ENDPROC
0x20bd…20c3 LineComalBcd {
0x20bd…20c3 ptr = 0xa810 // 0x20bd @0x0
0x20bd…20c3 lno = 0x3890 // 0x20bf @0x2
0x20bd…20c3 at0004 = ╱9f╱ ENDPROC ╱ // 0x20c1 @0x4
0x20bd…20c3 at0005 = EOL // 0x20c2 @0x5
0x20bd…20c3 }
0x20c3…20d5 a822 3900 PROC HENTKASPOST1
0x20c3…20d5 LineComalBcd {
0x20c3…20d5 ptr = 0xa822 // 0x20c3 @0x0
0x20c3…20d5 lno = 0x3900 // 0x20c5 @0x2
0x20c3…20d5 at0004 = ╱9e╱ PROC ╱ // 0x20c7 @0x4
0x20c3…20d5 at0005 = ╱48╱H╱ // 0x20c8 @0x5
0x20c3…20d5 at0006 = ╱45╱E╱ // 0x20c9 @0x6
0x20c3…20d5 at0007 = ╱4e╱N╱ // 0x20ca @0x7
0x20c3…20d5 at0008 = ╱54╱T╱ // 0x20cb @0x8
0x20c3…20d5 at0009 = ╱4b╱K╱ // 0x20cc @0x9
0x20c3…20d5 at000a = ╱41╱A╱ // 0x20cd @0xa
0x20c3…20d5 at000b = ╱53╱S╱ // 0x20ce @0xb
0x20c3…20d5 at000c = ╱50╱P╱ // 0x20cf @0xc
0x20c3…20d5 at000d = ╱4f╱O╱ // 0x20d0 @0xd
0x20c3…20d5 at000e = ╱53╱S╱ // 0x20d1 @0xe
0x20c3…20d5 at000f = ╱54╱T╱ // 0x20d2 @0xf
0x20c3…20d5 at0010 = ╱31╱1╱ // 0x20d3 @0x10
0x20c3…20d5 at0011 = EOL // 0x20d4 @0x11
0x20c3…20d5 }
0x20d5…20f5 a842 3910 GET D2 $ , I : H6 , L4 , H7 , F1 $ , F4 $ , F2 $
0x20d5…20f5 LineComalBcd {
0x20d5…20f5 ptr = 0xa842 // 0x20d5 @0x0
0x20d5…20f5 lno = 0x3910 // 0x20d7 @0x2
0x20d5…20f5 at0004 = ╱a9╱ GET ╱ // 0x20d9 @0x4
0x20d5…20f5 at0005 = ╱44╱D╱ // 0x20da @0x5
0x20d5…20f5 at0006 = ╱32╱2╱ // 0x20db @0x6
0x20d5…20f5 at0007 = ╱ef╱ $ ╱ // 0x20dc @0x7
0x20d5…20f5 at0008 = ╱ec╱ , ╱ // 0x20dd @0x8
0x20d5…20f5 at0009 = ╱49╱I╱ // 0x20de @0x9
0x20d5…20f5 at000a = ╱f0╱ : ╱ // 0x20df @0xa
0x20d5…20f5 at000b = ╱48╱H╱ // 0x20e0 @0xb
0x20d5…20f5 at000c = ╱36╱6╱ // 0x20e1 @0xc
0x20d5…20f5 at000d = ╱ec╱ , ╱ // 0x20e2 @0xd
0x20d5…20f5 at000e = ╱4c╱L╱ // 0x20e3 @0xe
0x20d5…20f5 at000f = ╱34╱4╱ // 0x20e4 @0xf
0x20d5…20f5 at0010 = ╱ec╱ , ╱ // 0x20e5 @0x10
0x20d5…20f5 at0011 = ╱48╱H╱ // 0x20e6 @0x11
0x20d5…20f5 at0012 = ╱37╱7╱ // 0x20e7 @0x12
0x20d5…20f5 at0013 = ╱ec╱ , ╱ // 0x20e8 @0x13
0x20d5…20f5 at0014 = ╱46╱F╱ // 0x20e9 @0x14
0x20d5…20f5 at0015 = ╱31╱1╱ // 0x20ea @0x15
0x20d5…20f5 at0016 = ╱ef╱ $ ╱ // 0x20eb @0x16
0x20d5…20f5 at0017 = ╱ec╱ , ╱ // 0x20ec @0x17
0x20d5…20f5 at0018 = ╱46╱F╱ // 0x20ed @0x18
0x20d5…20f5 at0019 = ╱34╱4╱ // 0x20ee @0x19
0x20d5…20f5 at001a = ╱ef╱ $ ╱ // 0x20ef @0x1a
0x20d5…20f5 at001b = ╱ec╱ , ╱ // 0x20f0 @0x1b
0x20d5…20f5 at001c = ╱46╱F╱ // 0x20f1 @0x1c
0x20d5…20f5 at001d = ╱32╱2╱ // 0x20f2 @0x1d
0x20d5…20f5 at001e = ╱ef╱ $ ╱ // 0x20f3 @0x1e
0x20d5…20f5 at001f = EOL // 0x20f4 @0x1f
0x20d5…20f5 }
0x20f5…2112 a85f 3920 EXEC FEJL ( 4 , 1 , D2 $ )
0x20f5…2112 LineComalBcd {
0x20f5…2112 ptr = 0xa85f // 0x20f5 @0x0
0x20f5…2112 lno = 0x3920 // 0x20f7 @0x2
0x20f5…2112 at0004 = ╱9d╱ EXEC ╱ // 0x20f9 @0x4
0x20f5…2112 at0005 = ╱46╱F╱ // 0x20fa @0x5
0x20f5…2112 at0006 = ╱45╱E╱ // 0x20fb @0x6
0x20f5…2112 at0007 = ╱4a╱J╱ // 0x20fc @0x7
0x20f5…2112 at0008 = ╱4c╱L╱ // 0x20fd @0x8
0x20f5…2112 at0009 = ╱ed╱ ( ╱ // 0x20fe @0x9
0x20f5…2112 at000a = ╱34╱4╱ // 0x20ff @0xa
0x20f5…2112 at000b = ╱fe00008003╱ // 0x2100 @0xb
0x20f5…2112 at0010 = ╱ec╱ , ╱ // 0x2105 @0x10
0x20f5…2112 at0011 = ╱31╱1╱ // 0x2106 @0x11
0x20f5…2112 at0012 = ╱fe00008001╱ // 0x2107 @0x12
0x20f5…2112 at0017 = ╱ec╱ , ╱ // 0x210c @0x17
0x20f5…2112 at0018 = ╱44╱D╱ // 0x210d @0x18
0x20f5…2112 at0019 = ╱32╱2╱ // 0x210e @0x19
0x20f5…2112 at001a = ╱ef╱ $ ╱ // 0x210f @0x1a
0x20f5…2112 at001b = ╱ee╱ ) ╱ // 0x2110 @0x1b
0x20f5…2112 at001c = EOL // 0x2111 @0x1c
0x20f5…2112 }
0x2112…213a a887 3930 I7 = ORD ( F1 $ ) - 48 ; H8 = ORD ( F2 $ ) - 48
0x2112…213a LineComalBcd {
0x2112…213a ptr = 0xa887 // 0x2112 @0x0
0x2112…213a lno = 0x3930 // 0x2114 @0x2
0x2112…213a at0004 = ╱49╱I╱ // 0x2116 @0x4
0x2112…213a at0005 = ╱37╱7╱ // 0x2117 @0x5
0x2112…213a at0006 = ╱dc╱ = ╱ // 0x2118 @0x6
0x2112…213a at0007 = ╱cd╱ ORD ╱ // 0x2119 @0x7
0x2112…213a at0008 = ╱ed╱ ( ╱ // 0x211a @0x8
0x2112…213a at0009 = ╱46╱F╱ // 0x211b @0x9
0x2112…213a at000a = ╱31╱1╱ // 0x211c @0xa
0x2112…213a at000b = ╱ef╱ $ ╱ // 0x211d @0xb
0x2112…213a at000c = ╱ee╱ ) ╱ // 0x211e @0xc
0x2112…213a at000d = ╱e3╱ - ╱ // 0x211f @0xd
0x2112…213a at000e = ╱34╱4╱ // 0x2120 @0xe
0x2112…213a at000f = ╱38╱8╱ // 0x2121 @0xf
0x2112…213a at0010 = ╱fe0000c006╱ // 0x2122 @0x10
0x2112…213a at0015 = ╱eb╱ ; ╱ // 0x2127 @0x15
0x2112…213a at0016 = ╱48╱H╱ // 0x2128 @0x16
0x2112…213a at0017 = ╱38╱8╱ // 0x2129 @0x17
0x2112…213a at0018 = ╱dc╱ = ╱ // 0x212a @0x18
0x2112…213a at0019 = ╱cd╱ ORD ╱ // 0x212b @0x19
0x2112…213a at001a = ╱ed╱ ( ╱ // 0x212c @0x1a
0x2112…213a at001b = ╱46╱F╱ // 0x212d @0x1b
0x2112…213a at001c = ╱32╱2╱ // 0x212e @0x1c
0x2112…213a at001d = ╱ef╱ $ ╱ // 0x212f @0x1d
0x2112…213a at001e = ╱ee╱ ) ╱ // 0x2130 @0x1e
0x2112…213a at001f = ╱e3╱ - ╱ // 0x2131 @0x1f
0x2112…213a at0020 = ╱34╱4╱ // 0x2132 @0x20
0x2112…213a at0021 = ╱38╱8╱ // 0x2133 @0x21
0x2112…213a at0022 = ╱fe0000c006╱ // 0x2134 @0x22
0x2112…213a at0027 = EOL // 0x2139 @0x27
0x2112…213a }
0x213a…2155 a8a2 3940 IF I7 > 9 AND I7 < 20 THEN
0x213a…2155 LineComalBcd {
0x213a…2155 ptr = 0xa8a2 // 0x213a @0x0
0x213a…2155 lno = 0x3940 // 0x213c @0x2
0x213a…2155 at0004 = ╱9c╱ IF ╱ // 0x213e @0x4
0x213a…2155 at0005 = ╱49╱I╱ // 0x213f @0x5
0x213a…2155 at0006 = ╱37╱7╱ // 0x2140 @0x6
0x213a…2155 at0007 = ╱de╱ > ╱ // 0x2141 @0x7
0x213a…2155 at0008 = ╱39╱9╱ // 0x2142 @0x8
0x213a…2155 at0009 = ╱fe00009004╱ // 0x2143 @0x9
0x213a…2155 at000e = ╱da╱ AND ╱ // 0x2148 @0xe
0x213a…2155 at000f = ╱49╱I╱ // 0x2149 @0xf
0x213a…2155 at0010 = ╱37╱7╱ // 0x214a @0x10
0x213a…2155 at0011 = ╱dd╱ < ╱ // 0x214b @0x11
0x213a…2155 at0012 = ╱32╱2╱ // 0x214c @0x12
0x213a…2155 at0013 = ╱30╱0╱ // 0x214d @0x13
0x213a…2155 at0014 = ╱fe0000a005╱ // 0x214e @0x14
0x213a…2155 at0019 = ╱b6╱ THEN ╱ // 0x2153 @0x19
0x213a…2155 at001a = EOL // 0x2154 @0x1a
0x213a…2155 }
0x2155…2164 a8b1 3950 I = I + 1
0x2155…2164 LineComalBcd {
0x2155…2164 ptr = 0xa8b1 // 0x2155 @0x0
0x2155…2164 lno = 0x3950 // 0x2157 @0x2
0x2155…2164 at0004 = ╱49╱I╱ // 0x2159 @0x4
0x2155…2164 at0005 = ╱dc╱ = ╱ // 0x215a @0x5
0x2155…2164 at0006 = ╱49╱I╱ // 0x215b @0x6
0x2155…2164 at0007 = ╱e2╱ + ╱ // 0x215c @0x7
0x2155…2164 at0008 = ╱31╱1╱ // 0x215d @0x8
0x2155…2164 at0009 = ╱fe00008001╱ // 0x215e @0x9
0x2155…2164 at000e = EOL // 0x2163 @0xe
0x2155…2164 }
0x2164…2173 a8c0 3960 GET D2 $ , I : E3 $
0x2164…2173 LineComalBcd {
0x2164…2173 ptr = 0xa8c0 // 0x2164 @0x0
0x2164…2173 lno = 0x3960 // 0x2166 @0x2
0x2164…2173 at0004 = ╱a9╱ GET ╱ // 0x2168 @0x4
0x2164…2173 at0005 = ╱44╱D╱ // 0x2169 @0x5
0x2164…2173 at0006 = ╱32╱2╱ // 0x216a @0x6
0x2164…2173 at0007 = ╱ef╱ $ ╱ // 0x216b @0x7
0x2164…2173 at0008 = ╱ec╱ , ╱ // 0x216c @0x8
0x2164…2173 at0009 = ╱49╱I╱ // 0x216d @0x9
0x2164…2173 at000a = ╱f0╱ : ╱ // 0x216e @0xa
0x2164…2173 at000b = ╱45╱E╱ // 0x216f @0xb
0x2164…2173 at000c = ╱33╱3╱ // 0x2170 @0xc
0x2164…2173 at000d = ╱ef╱ $ ╱ // 0x2171 @0xd
0x2164…2173 at000e = EOL // 0x2172 @0xe
0x2164…2173 }
0x2173…2190 a8dd 3970 EXEC FEJL ( 4 , 2 , D2 $ )
0x2173…2190 LineComalBcd {
0x2173…2190 ptr = 0xa8dd // 0x2173 @0x0
0x2173…2190 lno = 0x3970 // 0x2175 @0x2
0x2173…2190 at0004 = ╱9d╱ EXEC ╱ // 0x2177 @0x4
0x2173…2190 at0005 = ╱46╱F╱ // 0x2178 @0x5
0x2173…2190 at0006 = ╱45╱E╱ // 0x2179 @0x6
0x2173…2190 at0007 = ╱4a╱J╱ // 0x217a @0x7
0x2173…2190 at0008 = ╱4c╱L╱ // 0x217b @0x8
0x2173…2190 at0009 = ╱ed╱ ( ╱ // 0x217c @0x9
0x2173…2190 at000a = ╱34╱4╱ // 0x217d @0xa
0x2173…2190 at000b = ╱fe00008003╱ // 0x217e @0xb
0x2173…2190 at0010 = ╱ec╱ , ╱ // 0x2183 @0x10
0x2173…2190 at0011 = ╱32╱2╱ // 0x2184 @0x11
0x2173…2190 at0012 = ╱fe00008002╱ // 0x2185 @0x12
0x2173…2190 at0017 = ╱ec╱ , ╱ // 0x218a @0x17
0x2173…2190 at0018 = ╱44╱D╱ // 0x218b @0x18
0x2173…2190 at0019 = ╱32╱2╱ // 0x218c @0x19
0x2173…2190 at001a = ╱ef╱ $ ╱ // 0x218d @0x1a
0x2173…2190 at001b = ╱ee╱ ) ╱ // 0x218e @0x1b
0x2173…2190 at001c = EOL // 0x218f @0x1c
0x2173…2190 }
0x2190…2196 a8e3 3980 ENDIF
0x2190…2196 LineComalBcd {
0x2190…2196 ptr = 0xa8e3 // 0x2190 @0x0
0x2190…2196 lno = 0x3980 // 0x2192 @0x2
0x2190…2196 at0004 = ╱9b╱ ENDIF ╱ // 0x2194 @0x4
0x2190…2196 at0005 = EOL // 0x2195 @0x5
0x2190…2196 }
0x2196…219c a8e9 3990 ENDPROC
0x2196…219c LineComalBcd {
0x2196…219c ptr = 0xa8e9 // 0x2196 @0x0
0x2196…219c lno = 0x3990 // 0x2198 @0x2
0x2196…219c at0004 = ╱9f╱ ENDPROC ╱ // 0x219a @0x4
0x2196…219c at0005 = EOL // 0x219b @0x5
0x2196…219c }
0x219c…21bd a90a 4000 PROC FINDPOST1 ( L5 , Q , L6 , L7 , L8 , L9 )
0x219c…21bd LineComalBcd {
0x219c…21bd ptr = 0xa90a // 0x219c @0x0
0x219c…21bd lno = 0x4000 // 0x219e @0x2
0x219c…21bd at0004 = ╱9e╱ PROC ╱ // 0x21a0 @0x4
0x219c…21bd at0005 = ╱46╱F╱ // 0x21a1 @0x5
0x219c…21bd at0006 = ╱49╱I╱ // 0x21a2 @0x6
0x219c…21bd at0007 = ╱4e╱N╱ // 0x21a3 @0x7
0x219c…21bd at0008 = ╱44╱D╱ // 0x21a4 @0x8
0x219c…21bd at0009 = ╱50╱P╱ // 0x21a5 @0x9
0x219c…21bd at000a = ╱4f╱O╱ // 0x21a6 @0xa
0x219c…21bd at000b = ╱53╱S╱ // 0x21a7 @0xb
0x219c…21bd at000c = ╱54╱T╱ // 0x21a8 @0xc
0x219c…21bd at000d = ╱31╱1╱ // 0x21a9 @0xd
0x219c…21bd at000e = ╱ed╱ ( ╱ // 0x21aa @0xe
0x219c…21bd at000f = ╱4c╱L╱ // 0x21ab @0xf
0x219c…21bd at0010 = ╱35╱5╱ // 0x21ac @0x10
0x219c…21bd at0011 = ╱ec╱ , ╱ // 0x21ad @0x11
0x219c…21bd at0012 = ╱51╱Q╱ // 0x21ae @0x12
0x219c…21bd at0013 = ╱ec╱ , ╱ // 0x21af @0x13
0x219c…21bd at0014 = ╱4c╱L╱ // 0x21b0 @0x14
0x219c…21bd at0015 = ╱36╱6╱ // 0x21b1 @0x15
0x219c…21bd at0016 = ╱ec╱ , ╱ // 0x21b2 @0x16
0x219c…21bd at0017 = ╱4c╱L╱ // 0x21b3 @0x17
0x219c…21bd at0018 = ╱37╱7╱ // 0x21b4 @0x18
0x219c…21bd at0019 = ╱ec╱ , ╱ // 0x21b5 @0x19
0x219c…21bd at001a = ╱4c╱L╱ // 0x21b6 @0x1a
0x219c…21bd at001b = ╱38╱8╱ // 0x21b7 @0x1b
0x219c…21bd at001c = ╱ec╱ , ╱ // 0x21b8 @0x1c
0x219c…21bd at001d = ╱4c╱L╱ // 0x21b9 @0x1d
0x219c…21bd at001e = ╱39╱9╱ // 0x21ba @0x1e
0x219c…21bd at001f = ╱ee╱ ) ╱ // 0x21bb @0x1f
0x219c…21bd at0020 = EOL // 0x21bc @0x20
0x219c…21bd }
0x21bd…21f9 a946 4010 M0 = L6 DIV 8 ; L8 = M0 ; I9 = 1 ; M1 = L6 DIV 4 ; M2 = L6 DIV 32
0x21bd…21f9 LineComalBcd {
0x21bd…21f9 ptr = 0xa946 // 0x21bd @0x0
0x21bd…21f9 lno = 0x4010 // 0x21bf @0x2
0x21bd…21f9 at0004 = ╱4d╱M╱ // 0x21c1 @0x4
0x21bd…21f9 at0005 = ╱30╱0╱ // 0x21c2 @0x5
0x21bd…21f9 at0006 = ╱dc╱ = ╱ // 0x21c3 @0x6
0x21bd…21f9 at0007 = ╱4c╱L╱ // 0x21c4 @0x7
0x21bd…21f9 at0008 = ╱36╱6╱ // 0x21c5 @0x8
0x21bd…21f9 at0009 = ╱e7╱ DIV ╱ // 0x21c6 @0x9
0x21bd…21f9 at000a = ╱38╱8╱ // 0x21c7 @0xa
0x21bd…21f9 at000b = ╱fe00008004╱ // 0x21c8 @0xb
0x21bd…21f9 at0010 = ╱eb╱ ; ╱ // 0x21cd @0x10
0x21bd…21f9 at0011 = ╱4c╱L╱ // 0x21ce @0x11
0x21bd…21f9 at0012 = ╱38╱8╱ // 0x21cf @0x12
0x21bd…21f9 at0013 = ╱dc╱ = ╱ // 0x21d0 @0x13
0x21bd…21f9 at0014 = ╱4d╱M╱ // 0x21d1 @0x14
0x21bd…21f9 at0015 = ╱30╱0╱ // 0x21d2 @0x15
0x21bd…21f9 at0016 = ╱eb╱ ; ╱ // 0x21d3 @0x16
0x21bd…21f9 at0017 = ╱49╱I╱ // 0x21d4 @0x17
0x21bd…21f9 at0018 = ╱39╱9╱ // 0x21d5 @0x18
0x21bd…21f9 at0019 = ╱dc╱ = ╱ // 0x21d6 @0x19
0x21bd…21f9 at001a = ╱31╱1╱ // 0x21d7 @0x1a
0x21bd…21f9 at001b = ╱fe00008001╱ // 0x21d8 @0x1b
0x21bd…21f9 at0020 = ╱eb╱ ; ╱ // 0x21dd @0x20
0x21bd…21f9 at0021 = ╱4d╱M╱ // 0x21de @0x21
0x21bd…21f9 at0022 = ╱31╱1╱ // 0x21df @0x22
0x21bd…21f9 at0023 = ╱dc╱ = ╱ // 0x21e0 @0x23
0x21bd…21f9 at0024 = ╱4c╱L╱ // 0x21e1 @0x24
0x21bd…21f9 at0025 = ╱36╱6╱ // 0x21e2 @0x25
0x21bd…21f9 at0026 = ╱e7╱ DIV ╱ // 0x21e3 @0x26
0x21bd…21f9 at0027 = ╱34╱4╱ // 0x21e4 @0x27
0x21bd…21f9 at0028 = ╱fe00008003╱ // 0x21e5 @0x28
0x21bd…21f9 at002d = ╱eb╱ ; ╱ // 0x21ea @0x2d
0x21bd…21f9 at002e = ╱4d╱M╱ // 0x21eb @0x2e
0x21bd…21f9 at002f = ╱32╱2╱ // 0x21ec @0x2f
0x21bd…21f9 at0030 = ╱dc╱ = ╱ // 0x21ed @0x30
0x21bd…21f9 at0031 = ╱4c╱L╱ // 0x21ee @0x31
0x21bd…21f9 at0032 = ╱36╱6╱ // 0x21ef @0x32
0x21bd…21f9 at0033 = ╱e7╱ DIV ╱ // 0x21f0 @0x33
0x21bd…21f9 at0034 = ╱33╱3╱ // 0x21f1 @0x34
0x21bd…21f9 at0035 = ╱32╱2╱ // 0x21f2 @0x35
0x21bd…21f9 at0036 = ╱fe00008006╱ // 0x21f3 @0x36
0x21bd…21f9 at003b = EOL // 0x21f8 @0x3b
0x21bd…21f9 }
0x21f9…21ff a94c 4020 REPEAT
0x21f9…21ff LineComalBcd {
0x21f9…21ff ptr = 0xa94c // 0x21f9 @0x0
0x21f9…21ff lno = 0x4020 // 0x21fb @0x2
0x21f9…21ff at0004 = ╱97╱ REPEAT ╱ // 0x21fd @0x4
0x21f9…21ff at0005 = EOL // 0x21fe @0x5
0x21f9…21ff }
0x21ff…221a a967 4030 IF L7 = L5 ( L8 ) OR M0 = 1 THEN EXIT
0x21ff…221a LineComalBcd {
0x21ff…221a ptr = 0xa967 // 0x21ff @0x0
0x21ff…221a lno = 0x4030 // 0x2201 @0x2
0x21ff…221a at0004 = ╱82╱ IF ╱ // 0x2203 @0x4
0x21ff…221a at0005 = ╱4c╱L╱ // 0x2204 @0x5
0x21ff…221a at0006 = ╱37╱7╱ // 0x2205 @0x6
0x21ff…221a at0007 = ╱dc╱ = ╱ // 0x2206 @0x7
0x21ff…221a at0008 = ╱4c╱L╱ // 0x2207 @0x8
0x21ff…221a at0009 = ╱35╱5╱ // 0x2208 @0x9
0x21ff…221a at000a = ╱ed╱ ( ╱ // 0x2209 @0xa
0x21ff…221a at000b = ╱4c╱L╱ // 0x220a @0xb
0x21ff…221a at000c = ╱38╱8╱ // 0x220b @0xc
0x21ff…221a at000d = ╱ee╱ ) ╱ // 0x220c @0xd
0x21ff…221a at000e = ╱db╱ OR ╱ // 0x220d @0xe
0x21ff…221a at000f = ╱4d╱M╱ // 0x220e @0xf
0x21ff…221a at0010 = ╱30╱0╱ // 0x220f @0x10
0x21ff…221a at0011 = ╱dc╱ = ╱ // 0x2210 @0x11
0x21ff…221a at0012 = ╱31╱1╱ // 0x2211 @0x12
0x21ff…221a at0013 = ╱fe00008001╱ // 0x2212 @0x13
0x21ff…221a at0018 = ╱b6╱ THEN ╱ // 0x2217 @0x18
0x21ff…221a at0019 = ╱99╱ EXIT ╱ // 0x2218 @0x19
0x21ff…221a at001a = EOL // 0x2219 @0x1a
0x21ff…221a }
0x221a…2234 a981 4040 M0 = ( M0 + 1 ) DIV 2
0x221a…2234 LineComalBcd {
0x221a…2234 ptr = 0xa981 // 0x221a @0x0
0x221a…2234 lno = 0x4040 // 0x221c @0x2
0x221a…2234 at0004 = ╱4d╱M╱ // 0x221e @0x4
0x221a…2234 at0005 = ╱30╱0╱ // 0x221f @0x5
0x221a…2234 at0006 = ╱dc╱ = ╱ // 0x2220 @0x6
0x221a…2234 at0007 = ╱ed╱ ( ╱ // 0x2221 @0x7
0x221a…2234 at0008 = ╱4d╱M╱ // 0x2222 @0x8
0x221a…2234 at0009 = ╱30╱0╱ // 0x2223 @0x9
0x221a…2234 at000a = ╱e2╱ + ╱ // 0x2224 @0xa
0x221a…2234 at000b = ╱31╱1╱ // 0x2225 @0xb
0x221a…2234 at000c = ╱fe00008001╱ // 0x2226 @0xc
0x221a…2234 at0011 = ╱ee╱ ) ╱ // 0x222b @0x11
0x221a…2234 at0012 = ╱e7╱ DIV ╱ // 0x222c @0x12
0x221a…2234 at0013 = ╱32╱2╱ // 0x222d @0x13
0x221a…2234 at0014 = ╱fe00008002╱ // 0x222e @0x14
0x221a…2234 at0019 = EOL // 0x2233 @0x19
0x221a…2234 }
0x2234…225d a9aa 4050 L8 = L8 + M0 * ( 1 - 2 * ( L7 < L5 ( L8 ) ) )
0x2234…225d LineComalBcd {
0x2234…225d ptr = 0xa9aa // 0x2234 @0x0
0x2234…225d lno = 0x4050 // 0x2236 @0x2
0x2234…225d at0004 = ╱4c╱L╱ // 0x2238 @0x4
0x2234…225d at0005 = ╱38╱8╱ // 0x2239 @0x5
0x2234…225d at0006 = ╱dc╱ = ╱ // 0x223a @0x6
0x2234…225d at0007 = ╱4c╱L╱ // 0x223b @0x7
0x2234…225d at0008 = ╱38╱8╱ // 0x223c @0x8
0x2234…225d at0009 = ╱e2╱ + ╱ // 0x223d @0x9
0x2234…225d at000a = ╱4d╱M╱ // 0x223e @0xa
0x2234…225d at000b = ╱30╱0╱ // 0x223f @0xb
0x2234…225d at000c = ╱e4╱ * ╱ // 0x2240 @0xc
0x2234…225d at000d = ╱ed╱ ( ╱ // 0x2241 @0xd
0x2234…225d at000e = ╱31╱1╱ // 0x2242 @0xe
0x2234…225d at000f = ╱fe00008001╱ // 0x2243 @0xf
0x2234…225d at0014 = ╱e3╱ - ╱ // 0x2248 @0x14
0x2234…225d at0015 = ╱32╱2╱ // 0x2249 @0x15
0x2234…225d at0016 = ╱fe00008002╱ // 0x224a @0x16
0x2234…225d at001b = ╱e4╱ * ╱ // 0x224f @0x1b
0x2234…225d at001c = ╱ed╱ ( ╱ // 0x2250 @0x1c
0x2234…225d at001d = ╱4c╱L╱ // 0x2251 @0x1d
0x2234…225d at001e = ╱37╱7╱ // 0x2252 @0x1e
0x2234…225d at001f = ╱dd╱ < ╱ // 0x2253 @0x1f
0x2234…225d at0020 = ╱4c╱L╱ // 0x2254 @0x20
0x2234…225d at0021 = ╱35╱5╱ // 0x2255 @0x21
0x2234…225d at0022 = ╱ed╱ ( ╱ // 0x2256 @0x22
0x2234…225d at0023 = ╱4c╱L╱ // 0x2257 @0x23
0x2234…225d at0024 = ╱38╱8╱ // 0x2258 @0x24
0x2234…225d at0025 = ╱ee╱ ) ╱ // 0x2259 @0x25
0x2234…225d at0026 = ╱ee╱ ) ╱ // 0x225a @0x26
0x2234…225d at0027 = ╱ee╱ ) ╱ // 0x225b @0x27
0x2234…225d at0028 = EOL // 0x225c @0x28
0x2234…225d }
0x225d…2276 a9c3 4060 IF L8 < 1 THEN L8 = 1
0x225d…2276 LineComalBcd {
0x225d…2276 ptr = 0xa9c3 // 0x225d @0x0
0x225d…2276 lno = 0x4060 // 0x225f @0x2
0x225d…2276 at0004 = ╱82╱ IF ╱ // 0x2261 @0x4
0x225d…2276 at0005 = ╱4c╱L╱ // 0x2262 @0x5
0x225d…2276 at0006 = ╱38╱8╱ // 0x2263 @0x6
0x225d…2276 at0007 = ╱dd╱ < ╱ // 0x2264 @0x7
0x225d…2276 at0008 = ╱31╱1╱ // 0x2265 @0x8
0x225d…2276 at0009 = ╱fe00008001╱ // 0x2266 @0x9
0x225d…2276 at000e = ╱b6╱ THEN ╱ // 0x226b @0xe
0x225d…2276 at000f = ╱4c╱L╱ // 0x226c @0xf
0x225d…2276 at0010 = ╱38╱8╱ // 0x226d @0x10
0x225d…2276 at0011 = ╱dc╱ = ╱ // 0x226e @0x11
0x225d…2276 at0012 = ╱31╱1╱ // 0x226f @0x12
0x225d…2276 at0013 = ╱fe00008001╱ // 0x2270 @0x13
0x225d…2276 at0018 = EOL // 0x2275 @0x18
0x225d…2276 }
0x2276…2287 a9d4 4070 IF L8 > M1 THEN L8 = M1
0x2276…2287 LineComalBcd {
0x2276…2287 ptr = 0xa9d4 // 0x2276 @0x0
0x2276…2287 lno = 0x4070 // 0x2278 @0x2
0x2276…2287 at0004 = ╱82╱ IF ╱ // 0x227a @0x4
0x2276…2287 at0005 = ╱4c╱L╱ // 0x227b @0x5
0x2276…2287 at0006 = ╱38╱8╱ // 0x227c @0x6
0x2276…2287 at0007 = ╱de╱ > ╱ // 0x227d @0x7
0x2276…2287 at0008 = ╱4d╱M╱ // 0x227e @0x8
0x2276…2287 at0009 = ╱31╱1╱ // 0x227f @0x9
0x2276…2287 at000a = ╱b6╱ THEN ╱ // 0x2280 @0xa
0x2276…2287 at000b = ╱4c╱L╱ // 0x2281 @0xb
0x2276…2287 at000c = ╱38╱8╱ // 0x2282 @0xc
0x2276…2287 at000d = ╱dc╱ = ╱ // 0x2283 @0xd
0x2276…2287 at000e = ╱4d╱M╱ // 0x2284 @0xe
0x2276…2287 at000f = ╱31╱1╱ // 0x2285 @0xf
0x2276…2287 at0010 = EOL // 0x2286 @0x10
0x2276…2287 }
0x2287…2296 a9e3 4080 UNTIL M0 = 0
0x2287…2296 LineComalBcd {
0x2287…2296 ptr = 0xa9e3 // 0x2287 @0x0
0x2287…2296 lno = 0x4080 // 0x2289 @0x2
0x2287…2296 at0004 = ╱98╱ UNTIL ╱ // 0x228b @0x4
0x2287…2296 at0005 = ╱4d╱M╱ // 0x228c @0x5
0x2287…2296 at0006 = ╱30╱0╱ // 0x228d @0x6
0x2287…2296 at0007 = ╱dc╱ = ╱ // 0x228e @0x7
0x2287…2296 at0008 = ╱30╱0╱ // 0x228f @0x8
0x2287…2296 at0009 = ╱fe00000000╱ // 0x2290 @0x9
0x2287…2296 at000e = EOL // 0x2295 @0xe
0x2287…2296 }
0x2296…22be aa0b 4090 IF L5 ( L8 ) > L7 THEN L8 = L8 - 1 * ( L8 > 1 )
0x2296…22be LineComalBcd {
0x2296…22be ptr = 0xaa0b // 0x2296 @0x0
0x2296…22be lno = 0x4090 // 0x2298 @0x2
0x2296…22be at0004 = ╱82╱ IF ╱ // 0x229a @0x4
0x2296…22be at0005 = ╱4c╱L╱ // 0x229b @0x5
0x2296…22be at0006 = ╱35╱5╱ // 0x229c @0x6
0x2296…22be at0007 = ╱ed╱ ( ╱ // 0x229d @0x7
0x2296…22be at0008 = ╱4c╱L╱ // 0x229e @0x8
0x2296…22be at0009 = ╱38╱8╱ // 0x229f @0x9
0x2296…22be at000a = ╱ee╱ ) ╱ // 0x22a0 @0xa
0x2296…22be at000b = ╱de╱ > ╱ // 0x22a1 @0xb
0x2296…22be at000c = ╱4c╱L╱ // 0x22a2 @0xc
0x2296…22be at000d = ╱37╱7╱ // 0x22a3 @0xd
0x2296…22be at000e = ╱b6╱ THEN ╱ // 0x22a4 @0xe
0x2296…22be at000f = ╱4c╱L╱ // 0x22a5 @0xf
0x2296…22be at0010 = ╱38╱8╱ // 0x22a6 @0x10
0x2296…22be at0011 = ╱dc╱ = ╱ // 0x22a7 @0x11
0x2296…22be at0012 = ╱4c╱L╱ // 0x22a8 @0x12
0x2296…22be at0013 = ╱38╱8╱ // 0x22a9 @0x13
0x2296…22be at0014 = ╱e3╱ - ╱ // 0x22aa @0x14
0x2296…22be at0015 = ╱31╱1╱ // 0x22ab @0x15
0x2296…22be at0016 = ╱fe00008001╱ // 0x22ac @0x16
0x2296…22be at001b = ╱e4╱ * ╱ // 0x22b1 @0x1b
0x2296…22be at001c = ╱ed╱ ( ╱ // 0x22b2 @0x1c
0x2296…22be at001d = ╱4c╱L╱ // 0x22b3 @0x1d
0x2296…22be at001e = ╱38╱8╱ // 0x22b4 @0x1e
0x2296…22be at001f = ╱de╱ > ╱ // 0x22b5 @0x1f
0x2296…22be at0020 = ╱31╱1╱ // 0x22b6 @0x20
0x2296…22be at0021 = ╱fe00008001╱ // 0x22b7 @0x21
0x2296…22be at0026 = ╱ee╱ ) ╱ // 0x22bc @0x26
0x2296…22be at0027 = EOL // 0x22bd @0x27
0x2296…22be }
0x22be…22cb aa18 4100 L8 = M2 + L8
0x22be…22cb LineComalBcd {
0x22be…22cb ptr = 0xaa18 // 0x22be @0x0
0x22be…22cb lno = 0x4100 // 0x22c0 @0x2
0x22be…22cb at0004 = ╱4c╱L╱ // 0x22c2 @0x4
0x22be…22cb at0005 = ╱38╱8╱ // 0x22c3 @0x5
0x22be…22cb at0006 = ╱dc╱ = ╱ // 0x22c4 @0x6
0x22be…22cb at0007 = ╱4d╱M╱ // 0x22c5 @0x7
0x22be…22cb at0008 = ╱32╱2╱ // 0x22c6 @0x8
0x22be…22cb at0009 = ╱e2╱ + ╱ // 0x22c7 @0x9
0x22be…22cb at000a = ╱4c╱L╱ // 0x22c8 @0xa
0x22be…22cb at000b = ╱38╱8╱ // 0x22c9 @0xb
0x22be…22cb at000c = EOL // 0x22ca @0xc
0x22be…22cb }
0x22cb…235f aaac 4110 GET L9 $ , L8 : Q ( 1 , 1 ) , Q ( 1 , 2 ) , Q ( 2 , 1 ) , Q ( 2 , 2 ) , Q ( 3 , 1 ) , Q ( 3 , 2 ) , Q ( 4 , 1 ) , Q ( 4 , 2 )
0x22cb…235f LineComalBcd {
0x22cb…235f ptr = 0xaaac // 0x22cb @0x0
0x22cb…235f lno = 0x4110 // 0x22cd @0x2
0x22cb…235f at0004 = ╱a9╱ GET ╱ // 0x22cf @0x4
0x22cb…235f at0005 = ╱4c╱L╱ // 0x22d0 @0x5
0x22cb…235f at0006 = ╱39╱9╱ // 0x22d1 @0x6
0x22cb…235f at0007 = ╱ef╱ $ ╱ // 0x22d2 @0x7
0x22cb…235f at0008 = ╱ec╱ , ╱ // 0x22d3 @0x8
0x22cb…235f at0009 = ╱4c╱L╱ // 0x22d4 @0x9
0x22cb…235f at000a = ╱38╱8╱ // 0x22d5 @0xa
0x22cb…235f at000b = ╱f0╱ : ╱ // 0x22d6 @0xb
0x22cb…235f at000c = ╱51╱Q╱ // 0x22d7 @0xc
0x22cb…235f at000d = ╱ed╱ ( ╱ // 0x22d8 @0xd
0x22cb…235f at000e = ╱31╱1╱ // 0x22d9 @0xe
0x22cb…235f at000f = ╱fe00008001╱ // 0x22da @0xf
0x22cb…235f at0014 = ╱ec╱ , ╱ // 0x22df @0x14
0x22cb…235f at0015 = ╱31╱1╱ // 0x22e0 @0x15
0x22cb…235f at0016 = ╱fe00008001╱ // 0x22e1 @0x16
0x22cb…235f at001b = ╱ee╱ ) ╱ // 0x22e6 @0x1b
0x22cb…235f at001c = ╱ec╱ , ╱ // 0x22e7 @0x1c
0x22cb…235f at001d = ╱51╱Q╱ // 0x22e8 @0x1d
0x22cb…235f at001e = ╱ed╱ ( ╱ // 0x22e9 @0x1e
0x22cb…235f at001f = ╱31╱1╱ // 0x22ea @0x1f
0x22cb…235f at0020 = ╱fe00008001╱ // 0x22eb @0x20
0x22cb…235f at0025 = ╱ec╱ , ╱ // 0x22f0 @0x25
0x22cb…235f at0026 = ╱32╱2╱ // 0x22f1 @0x26
0x22cb…235f at0027 = ╱fe00008002╱ // 0x22f2 @0x27
0x22cb…235f at002c = ╱ee╱ ) ╱ // 0x22f7 @0x2c
0x22cb…235f at002d = ╱ec╱ , ╱ // 0x22f8 @0x2d
0x22cb…235f at002e = ╱51╱Q╱ // 0x22f9 @0x2e
0x22cb…235f at002f = ╱ed╱ ( ╱ // 0x22fa @0x2f
0x22cb…235f at0030 = ╱32╱2╱ // 0x22fb @0x30
0x22cb…235f at0031 = ╱fe00008002╱ // 0x22fc @0x31
0x22cb…235f at0036 = ╱ec╱ , ╱ // 0x2301 @0x36
0x22cb…235f at0037 = ╱31╱1╱ // 0x2302 @0x37
0x22cb…235f at0038 = ╱fe00008001╱ // 0x2303 @0x38
0x22cb…235f at003d = ╱ee╱ ) ╱ // 0x2308 @0x3d
0x22cb…235f at003e = ╱ec╱ , ╱ // 0x2309 @0x3e
0x22cb…235f at003f = ╱51╱Q╱ // 0x230a @0x3f
0x22cb…235f at0040 = ╱ed╱ ( ╱ // 0x230b @0x40
0x22cb…235f at0041 = ╱32╱2╱ // 0x230c @0x41
0x22cb…235f at0042 = ╱fe00008002╱ // 0x230d @0x42
0x22cb…235f at0047 = ╱ec╱ , ╱ // 0x2312 @0x47
0x22cb…235f at0048 = ╱32╱2╱ // 0x2313 @0x48
0x22cb…235f at0049 = ╱fe00008002╱ // 0x2314 @0x49
0x22cb…235f at004e = ╱ee╱ ) ╱ // 0x2319 @0x4e
0x22cb…235f at004f = ╱ec╱ , ╱ // 0x231a @0x4f
0x22cb…235f at0050 = ╱51╱Q╱ // 0x231b @0x50
0x22cb…235f at0051 = ╱ed╱ ( ╱ // 0x231c @0x51
0x22cb…235f at0052 = ╱33╱3╱ // 0x231d @0x52
0x22cb…235f at0053 = ╱fe0000c002╱ // 0x231e @0x53
0x22cb…235f at0058 = ╱ec╱ , ╱ // 0x2323 @0x58
0x22cb…235f at0059 = ╱31╱1╱ // 0x2324 @0x59
0x22cb…235f at005a = ╱fe00008001╱ // 0x2325 @0x5a
0x22cb…235f at005f = ╱ee╱ ) ╱ // 0x232a @0x5f
0x22cb…235f at0060 = ╱ec╱ , ╱ // 0x232b @0x60
0x22cb…235f at0061 = ╱51╱Q╱ // 0x232c @0x61
0x22cb…235f at0062 = ╱ed╱ ( ╱ // 0x232d @0x62
0x22cb…235f at0063 = ╱33╱3╱ // 0x232e @0x63
0x22cb…235f at0064 = ╱fe0000c002╱ // 0x232f @0x64
0x22cb…235f at0069 = ╱ec╱ , ╱ // 0x2334 @0x69
0x22cb…235f at006a = ╱32╱2╱ // 0x2335 @0x6a
0x22cb…235f at006b = ╱fe00008002╱ // 0x2336 @0x6b
0x22cb…235f at0070 = ╱ee╱ ) ╱ // 0x233b @0x70
0x22cb…235f at0071 = ╱ec╱ , ╱ // 0x233c @0x71
0x22cb…235f at0072 = ╱51╱Q╱ // 0x233d @0x72
0x22cb…235f at0073 = ╱ed╱ ( ╱ // 0x233e @0x73
0x22cb…235f at0074 = ╱34╱4╱ // 0x233f @0x74
0x22cb…235f at0075 = ╱fe00008003╱ // 0x2340 @0x75
0x22cb…235f at007a = ╱ec╱ , ╱ // 0x2345 @0x7a
0x22cb…235f at007b = ╱31╱1╱ // 0x2346 @0x7b
0x22cb…235f at007c = ╱fe00008001╱ // 0x2347 @0x7c
0x22cb…235f at0081 = ╱ee╱ ) ╱ // 0x234c @0x81
0x22cb…235f at0082 = ╱ec╱ , ╱ // 0x234d @0x82
0x22cb…235f at0083 = ╱51╱Q╱ // 0x234e @0x83
0x22cb…235f at0084 = ╱ed╱ ( ╱ // 0x234f @0x84
0x22cb…235f at0085 = ╱34╱4╱ // 0x2350 @0x85
0x22cb…235f at0086 = ╱fe00008003╱ // 0x2351 @0x86
0x22cb…235f at008b = ╱ec╱ , ╱ // 0x2356 @0x8b
0x22cb…235f at008c = ╱32╱2╱ // 0x2357 @0x8c
0x22cb…235f at008d = ╱fe00008002╱ // 0x2358 @0x8d
0x22cb…235f at0092 = ╱ee╱ ) ╱ // 0x235d @0x92
0x22cb…235f at0093 = EOL // 0x235e @0x93
0x22cb…235f }
0x235f…237c aac9 4120 EXEC FEJL ( 1 , 1 , L9 $ )
0x235f…237c LineComalBcd {
0x235f…237c ptr = 0xaac9 // 0x235f @0x0
0x235f…237c lno = 0x4120 // 0x2361 @0x2
0x235f…237c at0004 = ╱9d╱ EXEC ╱ // 0x2363 @0x4
0x235f…237c at0005 = ╱46╱F╱ // 0x2364 @0x5
0x235f…237c at0006 = ╱45╱E╱ // 0x2365 @0x6
0x235f…237c at0007 = ╱4a╱J╱ // 0x2366 @0x7
0x235f…237c at0008 = ╱4c╱L╱ // 0x2367 @0x8
0x235f…237c at0009 = ╱ed╱ ( ╱ // 0x2368 @0x9
0x235f…237c at000a = ╱31╱1╱ // 0x2369 @0xa
0x235f…237c at000b = ╱fe00008001╱ // 0x236a @0xb
0x235f…237c at0010 = ╱ec╱ , ╱ // 0x236f @0x10
0x235f…237c at0011 = ╱31╱1╱ // 0x2370 @0x11
0x235f…237c at0012 = ╱fe00008001╱ // 0x2371 @0x12
0x235f…237c at0017 = ╱ec╱ , ╱ // 0x2376 @0x17
0x235f…237c at0018 = ╱4c╱L╱ // 0x2377 @0x18
0x235f…237c at0019 = ╱39╱9╱ // 0x2378 @0x19
0x235f…237c at001a = ╱ef╱ $ ╱ // 0x2379 @0x1a
0x235f…237c at001b = ╱ee╱ ) ╱ // 0x237a @0x1b
0x235f…237c at001c = EOL // 0x237b @0x1c
0x235f…237c }
0x237c…2392 aadf 4130 FOR L8 = 1 TO 4
0x237c…2392 LineComalBcd {
0x237c…2392 ptr = 0xaadf // 0x237c @0x0
0x237c…2392 lno = 0x4130 // 0x237e @0x2
0x237c…2392 at0004 = ╱83╱ FOR ╱ // 0x2380 @0x4
0x237c…2392 at0005 = ╱4c╱L╱ // 0x2381 @0x5
0x237c…2392 at0006 = ╱38╱8╱ // 0x2382 @0x6
0x237c…2392 at0007 = ╱dc╱ = ╱ // 0x2383 @0x7
0x237c…2392 at0008 = ╱31╱1╱ // 0x2384 @0x8
0x237c…2392 at0009 = ╱fe00008001╱ // 0x2385 @0x9
0x237c…2392 at000e = ╱b7╱ TO ╱ // 0x238a @0xe
0x237c…2392 at000f = ╱34╱4╱ // 0x238b @0xf
0x237c…2392 at0010 = ╱fe00008003╱ // 0x238c @0x10
0x237c…2392 at0015 = EOL // 0x2391 @0x15
0x237c…2392 }
0x2392…23a9 aaf6 4140 IF L7 = Q ( L8 , 1 ) THEN EXIT
0x2392…23a9 LineComalBcd {
0x2392…23a9 ptr = 0xaaf6 // 0x2392 @0x0
0x2392…23a9 lno = 0x4140 // 0x2394 @0x2
0x2392…23a9 at0004 = ╱82╱ IF ╱ // 0x2396 @0x4
0x2392…23a9 at0005 = ╱4c╱L╱ // 0x2397 @0x5
0x2392…23a9 at0006 = ╱37╱7╱ // 0x2398 @0x6
0x2392…23a9 at0007 = ╱dc╱ = ╱ // 0x2399 @0x7
0x2392…23a9 at0008 = ╱51╱Q╱ // 0x239a @0x8
0x2392…23a9 at0009 = ╱ed╱ ( ╱ // 0x239b @0x9
0x2392…23a9 at000a = ╱4c╱L╱ // 0x239c @0xa
0x2392…23a9 at000b = ╱38╱8╱ // 0x239d @0xb
0x2392…23a9 at000c = ╱ec╱ , ╱ // 0x239e @0xc
0x2392…23a9 at000d = ╱31╱1╱ // 0x239f @0xd
0x2392…23a9 at000e = ╱fe00008001╱ // 0x23a0 @0xe
0x2392…23a9 at0013 = ╱ee╱ ) ╱ // 0x23a5 @0x13
0x2392…23a9 at0014 = ╱b6╱ THEN ╱ // 0x23a6 @0x14
0x2392…23a9 at0015 = ╱99╱ EXIT ╱ // 0x23a7 @0x15
0x2392…23a9 at0016 = EOL // 0x23a8 @0x16
0x2392…23a9 }
0x23a9…23b1 aafe 4150 NEXT L8
0x23a9…23b1 LineComalBcd {
0x23a9…23b1 ptr = 0xaafe // 0x23a9 @0x0
0x23a9…23b1 lno = 0x4150 // 0x23ab @0x2
0x23a9…23b1 at0004 = ╱84╱ NEXT ╱ // 0x23ad @0x4
0x23a9…23b1 at0005 = ╱4c╱L╱ // 0x23ae @0x5
0x23a9…23b1 at0006 = ╱38╱8╱ // 0x23af @0x6
0x23a9…23b1 at0007 = EOL // 0x23b0 @0x7
0x23a9…23b1 }
0x23b1…23ca ab17 4160 IF L8 >< 5 THEN I9 = 0
0x23b1…23ca LineComalBcd {
0x23b1…23ca ptr = 0xab17 // 0x23b1 @0x0
0x23b1…23ca lno = 0x4160 // 0x23b3 @0x2
0x23b1…23ca at0004 = ╱82╱ IF ╱ // 0x23b5 @0x4
0x23b1…23ca at0005 = ╱4c╱L╱ // 0x23b6 @0x5
0x23b1…23ca at0006 = ╱38╱8╱ // 0x23b7 @0x6
0x23b1…23ca at0007 = ╱e1╱ >< ╱ // 0x23b8 @0x7
0x23b1…23ca at0008 = ╱35╱5╱ // 0x23b9 @0x8
0x23b1…23ca at0009 = ╱fe0000a003╱ // 0x23ba @0x9
0x23b1…23ca at000e = ╱b6╱ THEN ╱ // 0x23bf @0xe
0x23b1…23ca at000f = ╱49╱I╱ // 0x23c0 @0xf
0x23b1…23ca at0010 = ╱39╱9╱ // 0x23c1 @0x10
0x23b1…23ca at0011 = ╱dc╱ = ╱ // 0x23c2 @0x11
0x23b1…23ca at0012 = ╱30╱0╱ // 0x23c3 @0x12
0x23b1…23ca at0013 = ╱fe00000000╱ // 0x23c4 @0x13
0x23b1…23ca at0018 = EOL // 0x23c9 @0x18
0x23b1…23ca }
0x23ca…23d0 ab1d 4170 ENDPROC
0x23ca…23d0 LineComalBcd {
0x23ca…23d0 ptr = 0xab1d // 0x23ca @0x0
0x23ca…23d0 lno = 0x4170 // 0x23cc @0x2
0x23ca…23d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x23ce @0x4
0x23ca…23d0 at0005 = EOL // 0x23cf @0x5
0x23ca…23d0 }
0x23d0…23e6 ab33 4180 PROC INDTAB1 ( Z , M3 , M4 )
0x23d0…23e6 LineComalBcd {
0x23d0…23e6 ptr = 0xab33 // 0x23d0 @0x0
0x23d0…23e6 lno = 0x4180 // 0x23d2 @0x2
0x23d0…23e6 at0004 = ╱9e╱ PROC ╱ // 0x23d4 @0x4
0x23d0…23e6 at0005 = ╱49╱I╱ // 0x23d5 @0x5
0x23d0…23e6 at0006 = ╱4e╱N╱ // 0x23d6 @0x6
0x23d0…23e6 at0007 = ╱44╱D╱ // 0x23d7 @0x7
0x23d0…23e6 at0008 = ╱54╱T╱ // 0x23d8 @0x8
0x23d0…23e6 at0009 = ╱41╱A╱ // 0x23d9 @0x9
0x23d0…23e6 at000a = ╱42╱B╱ // 0x23da @0xa
0x23d0…23e6 at000b = ╱31╱1╱ // 0x23db @0xb
0x23d0…23e6 at000c = ╱ed╱ ( ╱ // 0x23dc @0xc
0x23d0…23e6 at000d = ╱5a╱Z╱ // 0x23dd @0xd
0x23d0…23e6 at000e = ╱ec╱ , ╱ // 0x23de @0xe
0x23d0…23e6 at000f = ╱4d╱M╱ // 0x23df @0xf
0x23d0…23e6 at0010 = ╱33╱3╱ // 0x23e0 @0x10
0x23d0…23e6 at0011 = ╱ec╱ , ╱ // 0x23e1 @0x11
0x23d0…23e6 at0012 = ╱4d╱M╱ // 0x23e2 @0x12
0x23d0…23e6 at0013 = ╱34╱4╱ // 0x23e3 @0x13
0x23d0…23e6 at0014 = ╱ee╱ ) ╱ // 0x23e4 @0x14
0x23d0…23e6 at0015 = EOL // 0x23e5 @0x15
0x23d0…23e6 }
0x23e6…23f8 ab45 4190 M0 = M3 DIV 32
0x23e6…23f8 LineComalBcd {
0x23e6…23f8 ptr = 0xab45 // 0x23e6 @0x0
0x23e6…23f8 lno = 0x4190 // 0x23e8 @0x2
0x23e6…23f8 at0004 = ╱4d╱M╱ // 0x23ea @0x4
0x23e6…23f8 at0005 = ╱30╱0╱ // 0x23eb @0x5
0x23e6…23f8 at0006 = ╱dc╱ = ╱ // 0x23ec @0x6
0x23e6…23f8 at0007 = ╱4d╱M╱ // 0x23ed @0x7
0x23e6…23f8 at0008 = ╱33╱3╱ // 0x23ee @0x8
0x23e6…23f8 at0009 = ╱e7╱ DIV ╱ // 0x23ef @0x9
0x23e6…23f8 at000a = ╱33╱3╱ // 0x23f0 @0xa
0x23e6…23f8 at000b = ╱32╱2╱ // 0x23f1 @0xb
0x23e6…23f8 at000c = ╱fe00008006╱ // 0x23f2 @0xc
0x23e6…23f8 at0011 = EOL // 0x23f7 @0x11
0x23e6…23f8 }
0x23f8…2409 ab56 4200 FOR I = 1 TO M0
0x23f8…2409 LineComalBcd {
0x23f8…2409 ptr = 0xab56 // 0x23f8 @0x0
0x23f8…2409 lno = 0x4200 // 0x23fa @0x2
0x23f8…2409 at0004 = ╱83╱ FOR ╱ // 0x23fc @0x4
0x23f8…2409 at0005 = ╱49╱I╱ // 0x23fd @0x5
0x23f8…2409 at0006 = ╱dc╱ = ╱ // 0x23fe @0x6
0x23f8…2409 at0007 = ╱31╱1╱ // 0x23ff @0x7
0x23f8…2409 at0008 = ╱fe00008001╱ // 0x2400 @0x8
0x23f8…2409 at000d = ╱b7╱ TO ╱ // 0x2405 @0xd
0x23f8…2409 at000e = ╱4d╱M╱ // 0x2406 @0xe
0x23f8…2409 at000f = ╱30╱0╱ // 0x2407 @0xf
0x23f8…2409 at0010 = EOL // 0x2408 @0x10
0x23f8…2409 }
0x2409…2428 ab75 4210 H = ( I - 1 ) * 8 + 1
0x2409…2428 LineComalBcd {
0x2409…2428 ptr = 0xab75 // 0x2409 @0x0
0x2409…2428 lno = 0x4210 // 0x240b @0x2
0x2409…2428 at0004 = ╱48╱H╱ // 0x240d @0x4
0x2409…2428 at0005 = ╱dc╱ = ╱ // 0x240e @0x5
0x2409…2428 at0006 = ╱ed╱ ( ╱ // 0x240f @0x6
0x2409…2428 at0007 = ╱49╱I╱ // 0x2410 @0x7
0x2409…2428 at0008 = ╱e3╱ - ╱ // 0x2411 @0x8
0x2409…2428 at0009 = ╱31╱1╱ // 0x2412 @0x9
0x2409…2428 at000a = ╱fe00008001╱ // 0x2413 @0xa
0x2409…2428 at000f = ╱ee╱ ) ╱ // 0x2418 @0xf
0x2409…2428 at0010 = ╱e4╱ * ╱ // 0x2419 @0x10
0x2409…2428 at0011 = ╱38╱8╱ // 0x241a @0x11
0x2409…2428 at0012 = ╱fe00008004╱ // 0x241b @0x12
0x2409…2428 at0017 = ╱e2╱ + ╱ // 0x2420 @0x17
0x2409…2428 at0018 = ╱31╱1╱ // 0x2421 @0x18
0x2409…2428 at0019 = ╱fe00008001╱ // 0x2422 @0x19
0x2409…2428 at001e = EOL // 0x2427 @0x1e
0x2409…2428 }
0x2428…248c abd9 4220 GET M4 $ , I : Z ( H ) , Z ( H + 1 ) , Z ( H + 2 ) , Z ( H + 3 ) , Z ( H + 4 ) , Z ( H + 5 ) , Z ( H + 6 ) , Z ( H + 7 )
0x2428…248c LineComalBcd {
0x2428…248c ptr = 0xabd9 // 0x2428 @0x0
0x2428…248c lno = 0x4220 // 0x242a @0x2
0x2428…248c at0004 = ╱a9╱ GET ╱ // 0x242c @0x4
0x2428…248c at0005 = ╱4d╱M╱ // 0x242d @0x5
0x2428…248c at0006 = ╱34╱4╱ // 0x242e @0x6
0x2428…248c at0007 = ╱ef╱ $ ╱ // 0x242f @0x7
0x2428…248c at0008 = ╱ec╱ , ╱ // 0x2430 @0x8
0x2428…248c at0009 = ╱49╱I╱ // 0x2431 @0x9
0x2428…248c at000a = ╱f0╱ : ╱ // 0x2432 @0xa
0x2428…248c at000b = ╱5a╱Z╱ // 0x2433 @0xb
0x2428…248c at000c = ╱ed╱ ( ╱ // 0x2434 @0xc
0x2428…248c at000d = ╱48╱H╱ // 0x2435 @0xd
0x2428…248c at000e = ╱ee╱ ) ╱ // 0x2436 @0xe
0x2428…248c at000f = ╱ec╱ , ╱ // 0x2437 @0xf
0x2428…248c at0010 = ╱5a╱Z╱ // 0x2438 @0x10
0x2428…248c at0011 = ╱ed╱ ( ╱ // 0x2439 @0x11
0x2428…248c at0012 = ╱48╱H╱ // 0x243a @0x12
0x2428…248c at0013 = ╱e2╱ + ╱ // 0x243b @0x13
0x2428…248c at0014 = ╱31╱1╱ // 0x243c @0x14
0x2428…248c at0015 = ╱fe00008001╱ // 0x243d @0x15
0x2428…248c at001a = ╱ee╱ ) ╱ // 0x2442 @0x1a
0x2428…248c at001b = ╱ec╱ , ╱ // 0x2443 @0x1b
0x2428…248c at001c = ╱5a╱Z╱ // 0x2444 @0x1c
0x2428…248c at001d = ╱ed╱ ( ╱ // 0x2445 @0x1d
0x2428…248c at001e = ╱48╱H╱ // 0x2446 @0x1e
0x2428…248c at001f = ╱e2╱ + ╱ // 0x2447 @0x1f
0x2428…248c at0020 = ╱32╱2╱ // 0x2448 @0x20
0x2428…248c at0021 = ╱fe00008002╱ // 0x2449 @0x21
0x2428…248c at0026 = ╱ee╱ ) ╱ // 0x244e @0x26
0x2428…248c at0027 = ╱ec╱ , ╱ // 0x244f @0x27
0x2428…248c at0028 = ╱5a╱Z╱ // 0x2450 @0x28
0x2428…248c at0029 = ╱ed╱ ( ╱ // 0x2451 @0x29
0x2428…248c at002a = ╱48╱H╱ // 0x2452 @0x2a
0x2428…248c at002b = ╱e2╱ + ╱ // 0x2453 @0x2b
0x2428…248c at002c = ╱33╱3╱ // 0x2454 @0x2c
0x2428…248c at002d = ╱fe0000c002╱ // 0x2455 @0x2d
0x2428…248c at0032 = ╱ee╱ ) ╱ // 0x245a @0x32
0x2428…248c at0033 = ╱ec╱ , ╱ // 0x245b @0x33
0x2428…248c at0034 = ╱5a╱Z╱ // 0x245c @0x34
0x2428…248c at0035 = ╱ed╱ ( ╱ // 0x245d @0x35
0x2428…248c at0036 = ╱48╱H╱ // 0x245e @0x36
0x2428…248c at0037 = ╱e2╱ + ╱ // 0x245f @0x37
0x2428…248c at0038 = ╱34╱4╱ // 0x2460 @0x38
0x2428…248c at0039 = ╱fe00008003╱ // 0x2461 @0x39
0x2428…248c at003e = ╱ee╱ ) ╱ // 0x2466 @0x3e
0x2428…248c at003f = ╱ec╱ , ╱ // 0x2467 @0x3f
0x2428…248c at0040 = ╱5a╱Z╱ // 0x2468 @0x40
0x2428…248c at0041 = ╱ed╱ ( ╱ // 0x2469 @0x41
0x2428…248c at0042 = ╱48╱H╱ // 0x246a @0x42
0x2428…248c at0043 = ╱e2╱ + ╱ // 0x246b @0x43
0x2428…248c at0044 = ╱35╱5╱ // 0x246c @0x44
0x2428…248c at0045 = ╱fe0000a003╱ // 0x246d @0x45
0x2428…248c at004a = ╱ee╱ ) ╱ // 0x2472 @0x4a
0x2428…248c at004b = ╱ec╱ , ╱ // 0x2473 @0x4b
0x2428…248c at004c = ╱5a╱Z╱ // 0x2474 @0x4c
0x2428…248c at004d = ╱ed╱ ( ╱ // 0x2475 @0x4d
0x2428…248c at004e = ╱48╱H╱ // 0x2476 @0x4e
0x2428…248c at004f = ╱e2╱ + ╱ // 0x2477 @0x4f
0x2428…248c at0050 = ╱36╱6╱ // 0x2478 @0x50
0x2428…248c at0051 = ╱fe0000c003╱ // 0x2479 @0x51
0x2428…248c at0056 = ╱ee╱ ) ╱ // 0x247e @0x56
0x2428…248c at0057 = ╱ec╱ , ╱ // 0x247f @0x57
0x2428…248c at0058 = ╱5a╱Z╱ // 0x2480 @0x58
0x2428…248c at0059 = ╱ed╱ ( ╱ // 0x2481 @0x59
0x2428…248c at005a = ╱48╱H╱ // 0x2482 @0x5a
0x2428…248c at005b = ╱e2╱ + ╱ // 0x2483 @0x5b
0x2428…248c at005c = ╱37╱7╱ // 0x2484 @0x5c
0x2428…248c at005d = ╱fe0000e003╱ // 0x2485 @0x5d
0x2428…248c at0062 = ╱ee╱ ) ╱ // 0x248a @0x62
0x2428…248c at0063 = EOL // 0x248b @0x63
0x2428…248c }
0x248c…24a9 abf6 4230 EXEC FEJL ( 5 , 1 , M4 $ )
0x248c…24a9 LineComalBcd {
0x248c…24a9 ptr = 0xabf6 // 0x248c @0x0
0x248c…24a9 lno = 0x4230 // 0x248e @0x2
0x248c…24a9 at0004 = ╱9d╱ EXEC ╱ // 0x2490 @0x4
0x248c…24a9 at0005 = ╱46╱F╱ // 0x2491 @0x5
0x248c…24a9 at0006 = ╱45╱E╱ // 0x2492 @0x6
0x248c…24a9 at0007 = ╱4a╱J╱ // 0x2493 @0x7
0x248c…24a9 at0008 = ╱4c╱L╱ // 0x2494 @0x8
0x248c…24a9 at0009 = ╱ed╱ ( ╱ // 0x2495 @0x9
0x248c…24a9 at000a = ╱35╱5╱ // 0x2496 @0xa
0x248c…24a9 at000b = ╱fe0000a003╱ // 0x2497 @0xb
0x248c…24a9 at0010 = ╱ec╱ , ╱ // 0x249c @0x10
0x248c…24a9 at0011 = ╱31╱1╱ // 0x249d @0x11
0x248c…24a9 at0012 = ╱fe00008001╱ // 0x249e @0x12
0x248c…24a9 at0017 = ╱ec╱ , ╱ // 0x24a3 @0x17
0x248c…24a9 at0018 = ╱4d╱M╱ // 0x24a4 @0x18
0x248c…24a9 at0019 = ╱34╱4╱ // 0x24a5 @0x19
0x248c…24a9 at001a = ╱ef╱ $ ╱ // 0x24a6 @0x1a
0x248c…24a9 at001b = ╱ee╱ ) ╱ // 0x24a7 @0x1b
0x248c…24a9 at001c = EOL // 0x24a8 @0x1c
0x248c…24a9 }
0x24a9…24b0 abfd 4240 NEXT I
0x24a9…24b0 LineComalBcd {
0x24a9…24b0 ptr = 0xabfd // 0x24a9 @0x0
0x24a9…24b0 lno = 0x4240 // 0x24ab @0x2
0x24a9…24b0 at0004 = ╱84╱ NEXT ╱ // 0x24ad @0x4
0x24a9…24b0 at0005 = ╱49╱I╱ // 0x24ae @0x5
0x24a9…24b0 at0006 = EOL // 0x24af @0x6
0x24a9…24b0 }
0x24b0…24b6 ac03 4250 ENDPROC
0x24b0…24b6 LineComalBcd {
0x24b0…24b6 ptr = 0xac03 // 0x24b0 @0x0
0x24b0…24b6 lno = 0x4250 // 0x24b2 @0x2
0x24b0…24b6 at0004 = ╱9f╱ ENDPROC ╱ // 0x24b4 @0x4
0x24b0…24b6 at0005 = EOL // 0x24b5 @0x5
0x24b0…24b6 }
0x24b6…24c9 ac16 4260 PROC KTNAVN ( M5 , M6 )
0x24b6…24c9 LineComalBcd {
0x24b6…24c9 ptr = 0xac16 // 0x24b6 @0x0
0x24b6…24c9 lno = 0x4260 // 0x24b8 @0x2
0x24b6…24c9 at0004 = ╱9e╱ PROC ╱ // 0x24ba @0x4
0x24b6…24c9 at0005 = ╱4b╱K╱ // 0x24bb @0x5
0x24b6…24c9 at0006 = ╱54╱T╱ // 0x24bc @0x6
0x24b6…24c9 at0007 = ╱4e╱N╱ // 0x24bd @0x7
0x24b6…24c9 at0008 = ╱41╱A╱ // 0x24be @0x8
0x24b6…24c9 at0009 = ╱56╱V╱ // 0x24bf @0x9
0x24b6…24c9 at000a = ╱4e╱N╱ // 0x24c0 @0xa
0x24b6…24c9 at000b = ╱ed╱ ( ╱ // 0x24c1 @0xb
0x24b6…24c9 at000c = ╱4d╱M╱ // 0x24c2 @0xc
0x24b6…24c9 at000d = ╱35╱5╱ // 0x24c3 @0xd
0x24b6…24c9 at000e = ╱ec╱ , ╱ // 0x24c4 @0xe
0x24b6…24c9 at000f = ╱4d╱M╱ // 0x24c5 @0xf
0x24b6…24c9 at0010 = ╱36╱6╱ // 0x24c6 @0x10
0x24b6…24c9 at0011 = ╱ee╱ ) ╱ // 0x24c7 @0x11
0x24b6…24c9 at0012 = EOL // 0x24c8 @0x12
0x24b6…24c9 }
0x24c9…24d7 ac24 4270 I9 = 1
0x24c9…24d7 LineComalBcd {
0x24c9…24d7 ptr = 0xac24 // 0x24c9 @0x0
0x24c9…24d7 lno = 0x4270 // 0x24cb @0x2
0x24c9…24d7 at0004 = ╱49╱I╱ // 0x24cd @0x4
0x24c9…24d7 at0005 = ╱39╱9╱ // 0x24ce @0x5
0x24c9…24d7 at0006 = ╱dc╱ = ╱ // 0x24cf @0x6
0x24c9…24d7 at0007 = ╱31╱1╱ // 0x24d0 @0x7
0x24c9…24d7 at0008 = ╱fe00008001╱ // 0x24d1 @0x8
0x24c9…24d7 at000d = EOL // 0x24d6 @0xd
0x24c9…24d7 }
0x24d7…24e1 ac2e 4280 CASE M5 OF
0x24d7…24e1 LineComalBcd {
0x24d7…24e1 ptr = 0xac2e // 0x24d7 @0x0
0x24d7…24e1 lno = 0x4280 // 0x24d9 @0x2
0x24d7…24e1 at0004 = ╱a201╱ CASE ╱ // 0x24db @0x4
0x24d7…24e1 at0006 = ╱4d╱M╱ // 0x24dd @0x6
0x24d7…24e1 at0007 = ╱35╱5╱ // 0x24de @0x7
0x24d7…24e1 at0008 = ╱ba╱ OF ╱ // 0x24df @0x8
0x24d7…24e1 at0009 = EOL // 0x24e0 @0x9
0x24d7…24e1 }
0x24e1…2504 ac51 4290 EXEC FINDPOST1 ( M7 , M8 , M9 , M6 , N0 , A6 $ )
0x24e1…2504 LineComalBcd {
0x24e1…2504 ptr = 0xac51 // 0x24e1 @0x0
0x24e1…2504 lno = 0x4290 // 0x24e3 @0x2
0x24e1…2504 at0004 = ╱9d╱ EXEC ╱ // 0x24e5 @0x4
0x24e1…2504 at0005 = ╱46╱F╱ // 0x24e6 @0x5
0x24e1…2504 at0006 = ╱49╱I╱ // 0x24e7 @0x6
0x24e1…2504 at0007 = ╱4e╱N╱ // 0x24e8 @0x7
0x24e1…2504 at0008 = ╱44╱D╱ // 0x24e9 @0x8
0x24e1…2504 at0009 = ╱50╱P╱ // 0x24ea @0x9
0x24e1…2504 at000a = ╱4f╱O╱ // 0x24eb @0xa
0x24e1…2504 at000b = ╱53╱S╱ // 0x24ec @0xb
0x24e1…2504 at000c = ╱54╱T╱ // 0x24ed @0xc
0x24e1…2504 at000d = ╱31╱1╱ // 0x24ee @0xd
0x24e1…2504 at000e = ╱ed╱ ( ╱ // 0x24ef @0xe
0x24e1…2504 at000f = ╱4d╱M╱ // 0x24f0 @0xf
0x24e1…2504 at0010 = ╱37╱7╱ // 0x24f1 @0x10
0x24e1…2504 at0011 = ╱ec╱ , ╱ // 0x24f2 @0x11
0x24e1…2504 at0012 = ╱4d╱M╱ // 0x24f3 @0x12
0x24e1…2504 at0013 = ╱38╱8╱ // 0x24f4 @0x13
0x24e1…2504 at0014 = ╱ec╱ , ╱ // 0x24f5 @0x14
0x24e1…2504 at0015 = ╱4d╱M╱ // 0x24f6 @0x15
0x24e1…2504 at0016 = ╱39╱9╱ // 0x24f7 @0x16
0x24e1…2504 at0017 = ╱ec╱ , ╱ // 0x24f8 @0x17
0x24e1…2504 at0018 = ╱4d╱M╱ // 0x24f9 @0x18
0x24e1…2504 at0019 = ╱36╱6╱ // 0x24fa @0x19
0x24e1…2504 at001a = ╱ec╱ , ╱ // 0x24fb @0x1a
0x24e1…2504 at001b = ╱4e╱N╱ // 0x24fc @0x1b
0x24e1…2504 at001c = ╱30╱0╱ // 0x24fd @0x1c
0x24e1…2504 at001d = ╱ec╱ , ╱ // 0x24fe @0x1d
0x24e1…2504 at001e = ╱41╱A╱ // 0x24ff @0x1e
0x24e1…2504 at001f = ╱36╱6╱ // 0x2500 @0x1f
0x24e1…2504 at0020 = ╱ef╱ $ ╱ // 0x2501 @0x20
0x24e1…2504 at0021 = ╱ee╱ ) ╱ // 0x2502 @0x21
0x24e1…2504 at0022 = EOL // 0x2503 @0x22
0x24e1…2504 }
0x2504…2514 ac61 4300 IF I9 = 0 THEN
0x2504…2514 LineComalBcd {
0x2504…2514 ptr = 0xac61 // 0x2504 @0x0
0x2504…2514 lno = 0x4300 // 0x2506 @0x2
0x2504…2514 at0004 = ╱9c╱ IF ╱ // 0x2508 @0x4
0x2504…2514 at0005 = ╱49╱I╱ // 0x2509 @0x5
0x2504…2514 at0006 = ╱39╱9╱ // 0x250a @0x6
0x2504…2514 at0007 = ╱dc╱ = ╱ // 0x250b @0x7
0x2504…2514 at0008 = ╱30╱0╱ // 0x250c @0x8
0x2504…2514 at0009 = ╱fe00000000╱ // 0x250d @0x9
0x2504…2514 at000e = ╱b6╱ THEN ╱ // 0x2512 @0xe
0x2504…2514 at000f = EOL // 0x2513 @0xf
0x2504…2514 }
0x2514…2522 ac6f 4310 EXEC HENTPOST
0x2514…2522 LineComalBcd {
0x2514…2522 ptr = 0xac6f // 0x2514 @0x0
0x2514…2522 lno = 0x4310 // 0x2516 @0x2
0x2514…2522 at0004 = ╱9d╱ EXEC ╱ // 0x2518 @0x4
0x2514…2522 at0005 = ╱48╱H╱ // 0x2519 @0x5
0x2514…2522 at0006 = ╱45╱E╱ // 0x251a @0x6
0x2514…2522 at0007 = ╱4e╱N╱ // 0x251b @0x7
0x2514…2522 at0008 = ╱54╱T╱ // 0x251c @0x8
0x2514…2522 at0009 = ╱50╱P╱ // 0x251d @0x9
0x2514…2522 at000a = ╱4f╱O╱ // 0x251e @0xa
0x2514…2522 at000b = ╱53╱S╱ // 0x251f @0xb
0x2514…2522 at000c = ╱54╱T╱ // 0x2520 @0xc
0x2514…2522 at000d = EOL // 0x2521 @0xd
0x2514…2522 }
0x2522…252e ac7b 4320 B4 $ = B0 $
0x2522…252e LineComalBcd {
0x2522…252e ptr = 0xac7b // 0x2522 @0x0
0x2522…252e lno = 0x4320 // 0x2524 @0x2
0x2522…252e at0004 = ╱42╱B╱ // 0x2526 @0x4
0x2522…252e at0005 = ╱34╱4╱ // 0x2527 @0x5
0x2522…252e at0006 = ╱ef╱ $ ╱ // 0x2528 @0x6
0x2522…252e at0007 = ╱dc╱ = ╱ // 0x2529 @0x7
0x2522…252e at0008 = ╱42╱B╱ // 0x252a @0x8
0x2522…252e at0009 = ╱30╱0╱ // 0x252b @0x9
0x2522…252e at000a = ╱ef╱ $ ╱ // 0x252c @0xa
0x2522…252e at000b = EOL // 0x252d @0xb
0x2522…252e }
0x252e…2534 ac81 4330 ENDIF
0x252e…2534 LineComalBcd {
0x252e…2534 ptr = 0xac81 // 0x252e @0x0
0x252e…2534 lno = 0x4330 // 0x2530 @0x2
0x252e…2534 at0004 = ╱9b╱ ENDIF ╱ // 0x2532 @0x4
0x252e…2534 at0005 = EOL // 0x2533 @0x5
0x252e…2534 }
0x2534…253d ac8a 4340 WHEN J1
0x2534…253d LineComalBcd {
0x2534…253d ptr = 0xac8a // 0x2534 @0x0
0x2534…253d lno = 0x4340 // 0x2536 @0x2
0x2534…253d at0004 = ╱a301╱ WHEN ╱ // 0x2538 @0x4
0x2534…253d at0006 = ╱4a╱J╱ // 0x253a @0x6
0x2534…253d at0007 = ╱31╱1╱ // 0x253b @0x7
0x2534…253d at0008 = EOL // 0x253c @0x8
0x2534…253d }
0x253d…256b acb8 4350 IF NOT ( M5 * 10000 =< M6 AND M5 * 10000 + N1 >= M6 ) THEN
0x253d…256b LineComalBcd {
0x253d…256b ptr = 0xacb8 // 0x253d @0x0
0x253d…256b lno = 0x4350 // 0x253f @0x2
0x253d…256b at0004 = ╱9c╱ IF ╱ // 0x2541 @0x4
0x253d…256b at0005 = ╱d9╱ NOT ╱ // 0x2542 @0x5
0x253d…256b at0006 = ╱ed╱ ( ╱ // 0x2543 @0x6
0x253d…256b at0007 = ╱4d╱M╱ // 0x2544 @0x7
0x253d…256b at0008 = ╱35╱5╱ // 0x2545 @0x8
0x253d…256b at0009 = ╱e4╱ * ╱ // 0x2546 @0x9
0x253d…256b at000a = ╱31╱1╱ // 0x2547 @0xa
0x253d…256b at000b = ╱30╱0╱ // 0x2548 @0xb
0x253d…256b at000c = ╱30╱0╱ // 0x2549 @0xc
0x253d…256b at000d = ╱30╱0╱ // 0x254a @0xd
0x253d…256b at000e = ╱30╱0╱ // 0x254b @0xe
0x253d…256b at000f = ╱fe00409c0e╱ // 0x254c @0xf
0x253d…256b at0014 = ╱df╱ =< ╱ // 0x2551 @0x14
0x253d…256b at0015 = ╱4d╱M╱ // 0x2552 @0x15
0x253d…256b at0016 = ╱36╱6╱ // 0x2553 @0x16
0x253d…256b at0017 = ╱da╱ AND ╱ // 0x2554 @0x17
0x253d…256b at0018 = ╱4d╱M╱ // 0x2555 @0x18
0x253d…256b at0019 = ╱35╱5╱ // 0x2556 @0x19
0x253d…256b at001a = ╱e4╱ * ╱ // 0x2557 @0x1a
0x253d…256b at001b = ╱31╱1╱ // 0x2558 @0x1b
0x253d…256b at001c = ╱30╱0╱ // 0x2559 @0x1c
0x253d…256b at001d = ╱30╱0╱ // 0x255a @0x1d
0x253d…256b at001e = ╱30╱0╱ // 0x255b @0x1e
0x253d…256b at001f = ╱30╱0╱ // 0x255c @0x1f
0x253d…256b at0020 = ╱fe00409c0e╱ // 0x255d @0x20
0x253d…256b at0025 = ╱e2╱ + ╱ // 0x2562 @0x25
0x253d…256b at0026 = ╱4e╱N╱ // 0x2563 @0x26
0x253d…256b at0027 = ╱31╱1╱ // 0x2564 @0x27
0x253d…256b at0028 = ╱e0╱ >= ╱ // 0x2565 @0x28
0x253d…256b at0029 = ╱4d╱M╱ // 0x2566 @0x29
0x253d…256b at002a = ╱36╱6╱ // 0x2567 @0x2a
0x253d…256b at002b = ╱ee╱ ) ╱ // 0x2568 @0x2b
0x253d…256b at002c = ╱b6╱ THEN ╱ // 0x2569 @0x2c
0x253d…256b at002d = EOL // 0x256a @0x2d
0x253d…256b }
0x256b…258e acdb 4360 EXEC FINDPOST1 ( N2 , N3 , N4 , M6 , N5 , A4 $ )
0x256b…258e LineComalBcd {
0x256b…258e ptr = 0xacdb // 0x256b @0x0
0x256b…258e lno = 0x4360 // 0x256d @0x2
0x256b…258e at0004 = ╱9d╱ EXEC ╱ // 0x256f @0x4
0x256b…258e at0005 = ╱46╱F╱ // 0x2570 @0x5
0x256b…258e at0006 = ╱49╱I╱ // 0x2571 @0x6
0x256b…258e at0007 = ╱4e╱N╱ // 0x2572 @0x7
0x256b…258e at0008 = ╱44╱D╱ // 0x2573 @0x8
0x256b…258e at0009 = ╱50╱P╱ // 0x2574 @0x9
0x256b…258e at000a = ╱4f╱O╱ // 0x2575 @0xa
0x256b…258e at000b = ╱53╱S╱ // 0x2576 @0xb
0x256b…258e at000c = ╱54╱T╱ // 0x2577 @0xc
0x256b…258e at000d = ╱31╱1╱ // 0x2578 @0xd
0x256b…258e at000e = ╱ed╱ ( ╱ // 0x2579 @0xe
0x256b…258e at000f = ╱4e╱N╱ // 0x257a @0xf
0x256b…258e at0010 = ╱32╱2╱ // 0x257b @0x10
0x256b…258e at0011 = ╱ec╱ , ╱ // 0x257c @0x11
0x256b…258e at0012 = ╱4e╱N╱ // 0x257d @0x12
0x256b…258e at0013 = ╱33╱3╱ // 0x257e @0x13
0x256b…258e at0014 = ╱ec╱ , ╱ // 0x257f @0x14
0x256b…258e at0015 = ╱4e╱N╱ // 0x2580 @0x15
0x256b…258e at0016 = ╱34╱4╱ // 0x2581 @0x16
0x256b…258e at0017 = ╱ec╱ , ╱ // 0x2582 @0x17
0x256b…258e at0018 = ╱4d╱M╱ // 0x2583 @0x18
0x256b…258e at0019 = ╱36╱6╱ // 0x2584 @0x19
0x256b…258e at001a = ╱ec╱ , ╱ // 0x2585 @0x1a
0x256b…258e at001b = ╱4e╱N╱ // 0x2586 @0x1b
0x256b…258e at001c = ╱35╱5╱ // 0x2587 @0x1c
0x256b…258e at001d = ╱ec╱ , ╱ // 0x2588 @0x1d
0x256b…258e at001e = ╱41╱A╱ // 0x2589 @0x1e
0x256b…258e at001f = ╱34╱4╱ // 0x258a @0x1f
0x256b…258e at0020 = ╱ef╱ $ ╱ // 0x258b @0x20
0x256b…258e at0021 = ╱ee╱ ) ╱ // 0x258c @0x21
0x256b…258e at0022 = EOL // 0x258d @0x22
0x256b…258e }
0x258e…259e aceb 4370 IF I9 = 0 THEN
0x258e…259e LineComalBcd {
0x258e…259e ptr = 0xaceb // 0x258e @0x0
0x258e…259e lno = 0x4370 // 0x2590 @0x2
0x258e…259e at0004 = ╱9c╱ IF ╱ // 0x2592 @0x4
0x258e…259e at0005 = ╱49╱I╱ // 0x2593 @0x5
0x258e…259e at0006 = ╱39╱9╱ // 0x2594 @0x6
0x258e…259e at0007 = ╱dc╱ = ╱ // 0x2595 @0x7
0x258e…259e at0008 = ╱30╱0╱ // 0x2596 @0x8
0x258e…259e at0009 = ╱fe00000000╱ // 0x2597 @0x9
0x258e…259e at000e = ╱b6╱ THEN ╱ // 0x259c @0xe
0x258e…259e at000f = EOL // 0x259d @0xf
0x258e…259e }
0x259e…25ad acfa 4380 EXEC HENTDPOST
0x259e…25ad LineComalBcd {
0x259e…25ad ptr = 0xacfa // 0x259e @0x0
0x259e…25ad lno = 0x4380 // 0x25a0 @0x2
0x259e…25ad at0004 = ╱9d╱ EXEC ╱ // 0x25a2 @0x4
0x259e…25ad at0005 = ╱48╱H╱ // 0x25a3 @0x5
0x259e…25ad at0006 = ╱45╱E╱ // 0x25a4 @0x6
0x259e…25ad at0007 = ╱4e╱N╱ // 0x25a5 @0x7
0x259e…25ad at0008 = ╱54╱T╱ // 0x25a6 @0x8
0x259e…25ad at0009 = ╱44╱D╱ // 0x25a7 @0x9
0x259e…25ad at000a = ╱50╱P╱ // 0x25a8 @0xa
0x259e…25ad at000b = ╱4f╱O╱ // 0x25a9 @0xb
0x259e…25ad at000c = ╱53╱S╱ // 0x25aa @0xc
0x259e…25ad at000d = ╱54╱T╱ // 0x25ab @0xd
0x259e…25ad at000e = EOL // 0x25ac @0xe
0x259e…25ad }
0x25ad…25b9 ad06 4390 B4 $ = A7 $
0x25ad…25b9 LineComalBcd {
0x25ad…25b9 ptr = 0xad06 // 0x25ad @0x0
0x25ad…25b9 lno = 0x4390 // 0x25af @0x2
0x25ad…25b9 at0004 = ╱42╱B╱ // 0x25b1 @0x4
0x25ad…25b9 at0005 = ╱34╱4╱ // 0x25b2 @0x5
0x25ad…25b9 at0006 = ╱ef╱ $ ╱ // 0x25b3 @0x6
0x25ad…25b9 at0007 = ╱dc╱ = ╱ // 0x25b4 @0x7
0x25ad…25b9 at0008 = ╱41╱A╱ // 0x25b5 @0x8
0x25ad…25b9 at0009 = ╱37╱7╱ // 0x25b6 @0x9
0x25ad…25b9 at000a = ╱ef╱ $ ╱ // 0x25b7 @0xa
0x25ad…25b9 at000b = EOL // 0x25b8 @0xb
0x25ad…25b9 }
0x25b9…25bf ad0c 4400 ENDIF
0x25b9…25bf LineComalBcd {
0x25b9…25bf ptr = 0xad0c // 0x25b9 @0x0
0x25b9…25bf lno = 0x4400 // 0x25bb @0x2
0x25b9…25bf at0004 = ╱9b╱ ENDIF ╱ // 0x25bd @0x4
0x25b9…25bf at0005 = EOL // 0x25be @0x5
0x25b9…25bf }
0x25bf…25c5 ad12 4410 ENDIF
0x25bf…25c5 LineComalBcd {
0x25bf…25c5 ptr = 0xad12 // 0x25bf @0x0
0x25bf…25c5 lno = 0x4410 // 0x25c1 @0x2
0x25bf…25c5 at0004 = ╱9b╱ ENDIF ╱ // 0x25c3 @0x4
0x25bf…25c5 at0005 = EOL // 0x25c4 @0x5
0x25bf…25c5 }
0x25c5…25ce ad1b 4420 WHEN J2
0x25c5…25ce LineComalBcd {
0x25c5…25ce ptr = 0xad1b // 0x25c5 @0x0
0x25c5…25ce lno = 0x4420 // 0x25c7 @0x2
0x25c5…25ce at0004 = ╱a301╱ WHEN ╱ // 0x25c9 @0x4
0x25c5…25ce at0006 = ╱4a╱J╱ // 0x25cb @0x6
0x25c5…25ce at0007 = ╱32╱2╱ // 0x25cc @0x7
0x25c5…25ce at0008 = EOL // 0x25cd @0x8
0x25c5…25ce }
0x25ce…25fa ad47 4430 IF NOT ( M5 * 1000 =< M6 AND M5 * 1000 + N6 >= M6 ) THEN
0x25ce…25fa LineComalBcd {
0x25ce…25fa ptr = 0xad47 // 0x25ce @0x0
0x25ce…25fa lno = 0x4430 // 0x25d0 @0x2
0x25ce…25fa at0004 = ╱9c╱ IF ╱ // 0x25d2 @0x4
0x25ce…25fa at0005 = ╱d9╱ NOT ╱ // 0x25d3 @0x5
0x25ce…25fa at0006 = ╱ed╱ ( ╱ // 0x25d4 @0x6
0x25ce…25fa at0007 = ╱4d╱M╱ // 0x25d5 @0x7
0x25ce…25fa at0008 = ╱35╱5╱ // 0x25d6 @0x8
0x25ce…25fa at0009 = ╱e4╱ * ╱ // 0x25d7 @0x9
0x25ce…25fa at000a = ╱31╱1╱ // 0x25d8 @0xa
0x25ce…25fa at000b = ╱30╱0╱ // 0x25d9 @0xb
0x25ce…25fa at000c = ╱30╱0╱ // 0x25da @0xc
0x25ce…25fa at000d = ╱30╱0╱ // 0x25db @0xd
0x25ce…25fa at000e = ╱fe0000fa0a╱ // 0x25dc @0xe
0x25ce…25fa at0013 = ╱df╱ =< ╱ // 0x25e1 @0x13
0x25ce…25fa at0014 = ╱4d╱M╱ // 0x25e2 @0x14
0x25ce…25fa at0015 = ╱36╱6╱ // 0x25e3 @0x15
0x25ce…25fa at0016 = ╱da╱ AND ╱ // 0x25e4 @0x16
0x25ce…25fa at0017 = ╱4d╱M╱ // 0x25e5 @0x17
0x25ce…25fa at0018 = ╱35╱5╱ // 0x25e6 @0x18
0x25ce…25fa at0019 = ╱e4╱ * ╱ // 0x25e7 @0x19
0x25ce…25fa at001a = ╱31╱1╱ // 0x25e8 @0x1a
0x25ce…25fa at001b = ╱30╱0╱ // 0x25e9 @0x1b
0x25ce…25fa at001c = ╱30╱0╱ // 0x25ea @0x1c
0x25ce…25fa at001d = ╱30╱0╱ // 0x25eb @0x1d
0x25ce…25fa at001e = ╱fe0000fa0a╱ // 0x25ec @0x1e
0x25ce…25fa at0023 = ╱e2╱ + ╱ // 0x25f1 @0x23
0x25ce…25fa at0024 = ╱4e╱N╱ // 0x25f2 @0x24
0x25ce…25fa at0025 = ╱36╱6╱ // 0x25f3 @0x25
0x25ce…25fa at0026 = ╱e0╱ >= ╱ // 0x25f4 @0x26
0x25ce…25fa at0027 = ╱4d╱M╱ // 0x25f5 @0x27
0x25ce…25fa at0028 = ╱36╱6╱ // 0x25f6 @0x28
0x25ce…25fa at0029 = ╱ee╱ ) ╱ // 0x25f7 @0x29
0x25ce…25fa at002a = ╱b6╱ THEN ╱ // 0x25f8 @0x2a
0x25ce…25fa at002b = EOL // 0x25f9 @0x2b
0x25ce…25fa }
0x25fa…261d ad6a 4440 EXEC FINDPOST1 ( N7 , J8 , N8 , M6 , J9 , B6 $ )
0x25fa…261d LineComalBcd {
0x25fa…261d ptr = 0xad6a // 0x25fa @0x0
0x25fa…261d lno = 0x4440 // 0x25fc @0x2
0x25fa…261d at0004 = ╱9d╱ EXEC ╱ // 0x25fe @0x4
0x25fa…261d at0005 = ╱46╱F╱ // 0x25ff @0x5
0x25fa…261d at0006 = ╱49╱I╱ // 0x2600 @0x6
0x25fa…261d at0007 = ╱4e╱N╱ // 0x2601 @0x7
0x25fa…261d at0008 = ╱44╱D╱ // 0x2602 @0x8
0x25fa…261d at0009 = ╱50╱P╱ // 0x2603 @0x9
0x25fa…261d at000a = ╱4f╱O╱ // 0x2604 @0xa
0x25fa…261d at000b = ╱53╱S╱ // 0x2605 @0xb
0x25fa…261d at000c = ╱54╱T╱ // 0x2606 @0xc
0x25fa…261d at000d = ╱31╱1╱ // 0x2607 @0xd
0x25fa…261d at000e = ╱ed╱ ( ╱ // 0x2608 @0xe
0x25fa…261d at000f = ╱4e╱N╱ // 0x2609 @0xf
0x25fa…261d at0010 = ╱37╱7╱ // 0x260a @0x10
0x25fa…261d at0011 = ╱ec╱ , ╱ // 0x260b @0x11
0x25fa…261d at0012 = ╱4a╱J╱ // 0x260c @0x12
0x25fa…261d at0013 = ╱38╱8╱ // 0x260d @0x13
0x25fa…261d at0014 = ╱ec╱ , ╱ // 0x260e @0x14
0x25fa…261d at0015 = ╱4e╱N╱ // 0x260f @0x15
0x25fa…261d at0016 = ╱38╱8╱ // 0x2610 @0x16
0x25fa…261d at0017 = ╱ec╱ , ╱ // 0x2611 @0x17
0x25fa…261d at0018 = ╱4d╱M╱ // 0x2612 @0x18
0x25fa…261d at0019 = ╱36╱6╱ // 0x2613 @0x19
0x25fa…261d at001a = ╱ec╱ , ╱ // 0x2614 @0x1a
0x25fa…261d at001b = ╱4a╱J╱ // 0x2615 @0x1b
0x25fa…261d at001c = ╱39╱9╱ // 0x2616 @0x1c
0x25fa…261d at001d = ╱ec╱ , ╱ // 0x2617 @0x1d
0x25fa…261d at001e = ╱42╱B╱ // 0x2618 @0x1e
0x25fa…261d at001f = ╱36╱6╱ // 0x2619 @0x1f
0x25fa…261d at0020 = ╱ef╱ $ ╱ // 0x261a @0x20
0x25fa…261d at0021 = ╱ee╱ ) ╱ // 0x261b @0x21
0x25fa…261d at0022 = EOL // 0x261c @0x22
0x25fa…261d }
0x261d…262d ad7a 4450 IF I9 = 0 THEN
0x261d…262d LineComalBcd {
0x261d…262d ptr = 0xad7a // 0x261d @0x0
0x261d…262d lno = 0x4450 // 0x261f @0x2
0x261d…262d at0004 = ╱9c╱ IF ╱ // 0x2621 @0x4
0x261d…262d at0005 = ╱49╱I╱ // 0x2622 @0x5
0x261d…262d at0006 = ╱39╱9╱ // 0x2623 @0x6
0x261d…262d at0007 = ╱dc╱ = ╱ // 0x2624 @0x7
0x261d…262d at0008 = ╱30╱0╱ // 0x2625 @0x8
0x261d…262d at0009 = ╱fe00000000╱ // 0x2626 @0x9
0x261d…262d at000e = ╱b6╱ THEN ╱ // 0x262b @0xe
0x261d…262d at000f = EOL // 0x262c @0xf
0x261d…262d }
0x262d…263d ad8a 4460 EXEC HENTKRPOST
0x262d…263d LineComalBcd {
0x262d…263d ptr = 0xad8a // 0x262d @0x0
0x262d…263d lno = 0x4460 // 0x262f @0x2
0x262d…263d at0004 = ╱9d╱ EXEC ╱ // 0x2631 @0x4
0x262d…263d at0005 = ╱48╱H╱ // 0x2632 @0x5
0x262d…263d at0006 = ╱45╱E╱ // 0x2633 @0x6
0x262d…263d at0007 = ╱4e╱N╱ // 0x2634 @0x7
0x262d…263d at0008 = ╱54╱T╱ // 0x2635 @0x8
0x262d…263d at0009 = ╱4b╱K╱ // 0x2636 @0x9
0x262d…263d at000a = ╱52╱R╱ // 0x2637 @0xa
0x262d…263d at000b = ╱50╱P╱ // 0x2638 @0xb
0x262d…263d at000c = ╱4f╱O╱ // 0x2639 @0xc
0x262d…263d at000d = ╱53╱S╱ // 0x263a @0xd
0x262d…263d at000e = ╱54╱T╱ // 0x263b @0xe
0x262d…263d at000f = EOL // 0x263c @0xf
0x262d…263d }
0x263d…2649 ad96 4470 B4 $ = F8 $
0x263d…2649 LineComalBcd {
0x263d…2649 ptr = 0xad96 // 0x263d @0x0
0x263d…2649 lno = 0x4470 // 0x263f @0x2
0x263d…2649 at0004 = ╱42╱B╱ // 0x2641 @0x4
0x263d…2649 at0005 = ╱34╱4╱ // 0x2642 @0x5
0x263d…2649 at0006 = ╱ef╱ $ ╱ // 0x2643 @0x6
0x263d…2649 at0007 = ╱dc╱ = ╱ // 0x2644 @0x7
0x263d…2649 at0008 = ╱46╱F╱ // 0x2645 @0x8
0x263d…2649 at0009 = ╱38╱8╱ // 0x2646 @0x9
0x263d…2649 at000a = ╱ef╱ $ ╱ // 0x2647 @0xa
0x263d…2649 at000b = EOL // 0x2648 @0xb
0x263d…2649 }
0x2649…264f ad9c 4480 ENDIF
0x2649…264f LineComalBcd {
0x2649…264f ptr = 0xad9c // 0x2649 @0x0
0x2649…264f lno = 0x4480 // 0x264b @0x2
0x2649…264f at0004 = ╱9b╱ ENDIF ╱ // 0x264d @0x4
0x2649…264f at0005 = EOL // 0x264e @0x5
0x2649…264f }
0x264f…2655 ada2 4490 ENDIF
0x264f…2655 LineComalBcd {
0x264f…2655 ptr = 0xada2 // 0x264f @0x0
0x264f…2655 lno = 0x4490 // 0x2651 @0x2
0x264f…2655 at0004 = ╱9b╱ ENDIF ╱ // 0x2653 @0x4
0x264f…2655 at0005 = EOL // 0x2654 @0x5
0x264f…2655 }
0x2655…265b ada8 4500 ENDCASE
0x2655…265b LineComalBcd {
0x2655…265b ptr = 0xada8 // 0x2655 @0x0
0x2655…265b lno = 0x4500 // 0x2657 @0x2
0x2655…265b at0004 = ╱a4╱ ENDCASE ╱ // 0x2659 @0x4
0x2655…265b at0005 = EOL // 0x265a @0x5
0x2655…265b }
0x265b…266b adb8 4510 IF I9 = 1 THEN
0x265b…266b LineComalBcd {
0x265b…266b ptr = 0xadb8 // 0x265b @0x0
0x265b…266b lno = 0x4510 // 0x265d @0x2
0x265b…266b at0004 = ╱9c╱ IF ╱ // 0x265f @0x4
0x265b…266b at0005 = ╱49╱I╱ // 0x2660 @0x5
0x265b…266b at0006 = ╱39╱9╱ // 0x2661 @0x6
0x265b…266b at0007 = ╱dc╱ = ╱ // 0x2662 @0x7
0x265b…266b at0008 = ╱31╱1╱ // 0x2663 @0x8
0x265b…266b at0009 = ╱fe00008001╱ // 0x2664 @0x9
0x265b…266b at000e = ╱b6╱ THEN ╱ // 0x2669 @0xe
0x265b…266b at000f = EOL // 0x266a @0xf
0x265b…266b }
0x266b…268f addc 4520 B4 $ = "Konto…eksisterer…ikke…………"
0x266b…268f LineComalBcd {
0x266b…268f ptr = 0xaddc // 0x266b @0x0
0x266b…268f lno = 0x4520 // 0x266d @0x2
0x266b…268f at0004 = ╱42╱B╱ // 0x266f @0x4
0x266b…268f at0005 = ╱34╱4╱ // 0x2670 @0x5
0x266b…268f at0006 = ╱ef╱ $ ╱ // 0x2671 @0x6
0x266b…268f at0007 = ╱dc╱ = ╱ // 0x2672 @0x7
0x266b…268f at0008 = ╱22╱"╱ // 0x2673 @0x8
0x266b…268f at0009 = ╱4b╱K╱ // 0x2674 @0x9
0x266b…268f at000a = ╱6f╱o╱ // 0x2675 @0xa
0x266b…268f at000b = ╱6e╱n╱ // 0x2676 @0xb
0x266b…268f at000c = ╱74╱t╱ // 0x2677 @0xc
0x266b…268f at000d = ╱6f╱o╱ // 0x2678 @0xd
0x266b…268f at000e = ╱20╱…╱ // 0x2679 @0xe
0x266b…268f at000f = ╱65╱e╱ // 0x267a @0xf
0x266b…268f at0010 = ╱6b╱k╱ // 0x267b @0x10
0x266b…268f at0011 = ╱73╱s╱ // 0x267c @0x11
0x266b…268f at0012 = ╱69╱i╱ // 0x267d @0x12
0x266b…268f at0013 = ╱73╱s╱ // 0x267e @0x13
0x266b…268f at0014 = ╱74╱t╱ // 0x267f @0x14
0x266b…268f at0015 = ╱65╱e╱ // 0x2680 @0x15
0x266b…268f at0016 = ╱72╱r╱ // 0x2681 @0x16
0x266b…268f at0017 = ╱65╱e╱ // 0x2682 @0x17
0x266b…268f at0018 = ╱72╱r╱ // 0x2683 @0x18
0x266b…268f at0019 = ╱20╱…╱ // 0x2684 @0x19
0x266b…268f at001a = ╱69╱i╱ // 0x2685 @0x1a
0x266b…268f at001b = ╱6b╱k╱ // 0x2686 @0x1b
0x266b…268f at001c = ╱6b╱k╱ // 0x2687 @0x1c
0x266b…268f at001d = ╱65╱e╱ // 0x2688 @0x1d
0x266b…268f at001e = ╱20╱…╱ // 0x2689 @0x1e
0x266b…268f at001f = ╱20╱…╱ // 0x268a @0x1f
0x266b…268f at0020 = ╱20╱…╱ // 0x268b @0x20
0x266b…268f at0021 = ╱20╱…╱ // 0x268c @0x21
0x266b…268f at0022 = ╱22╱"╱ // 0x268d @0x22
0x266b…268f at0023 = EOL // 0x268e @0x23
0x266b…268f }
0x268f…2695 ade2 4530 ENDIF
0x268f…2695 LineComalBcd {
0x268f…2695 ptr = 0xade2 // 0x268f @0x0
0x268f…2695 lno = 0x4530 // 0x2691 @0x2
0x268f…2695 at0004 = ╱9b╱ ENDIF ╱ // 0x2693 @0x4
0x268f…2695 at0005 = EOL // 0x2694 @0x5
0x268f…2695 }
0x2695…269b ade8 4540 ENDPROC
0x2695…269b LineComalBcd {
0x2695…269b ptr = 0xade8 // 0x2695 @0x0
0x2695…269b lno = 0x4540 // 0x2697 @0x2
0x2695…269b at0004 = ╱9f╱ ENDPROC ╱ // 0x2699 @0x4
0x2695…269b at0005 = EOL // 0x269a @0x5
0x2695…269b }
0x269b…26ae adfb 4550 PROC TESTSALDO ( N9 )
0x269b…26ae LineComalBcd {
0x269b…26ae ptr = 0xadfb // 0x269b @0x0
0x269b…26ae lno = 0x4550 // 0x269d @0x2
0x269b…26ae at0004 = ╱9e╱ PROC ╱ // 0x269f @0x4
0x269b…26ae at0005 = ╱54╱T╱ // 0x26a0 @0x5
0x269b…26ae at0006 = ╱45╱E╱ // 0x26a1 @0x6
0x269b…26ae at0007 = ╱53╱S╱ // 0x26a2 @0x7
0x269b…26ae at0008 = ╱54╱T╱ // 0x26a3 @0x8
0x269b…26ae at0009 = ╱53╱S╱ // 0x26a4 @0x9
0x269b…26ae at000a = ╱41╱A╱ // 0x26a5 @0xa
0x269b…26ae at000b = ╱4c╱L╱ // 0x26a6 @0xb
0x269b…26ae at000c = ╱44╱D╱ // 0x26a7 @0xc
0x269b…26ae at000d = ╱4f╱O╱ // 0x26a8 @0xd
0x269b…26ae at000e = ╱ed╱ ( ╱ // 0x26a9 @0xe
0x269b…26ae at000f = ╱4e╱N╱ // 0x26aa @0xf
0x269b…26ae at0010 = ╱39╱9╱ // 0x26ab @0x10
0x269b…26ae at0011 = ╱ee╱ ) ╱ // 0x26ac @0x11
0x269b…26ae at0012 = EOL // 0x26ad @0x12
0x269b…26ae }
0x26ae…26c1 ae0e 4560 EXEC KTNAVN ( I8 , H6 )
0x26ae…26c1 LineComalBcd {
0x26ae…26c1 ptr = 0xae0e // 0x26ae @0x0
0x26ae…26c1 lno = 0x4560 // 0x26b0 @0x2
0x26ae…26c1 at0004 = ╱9d╱ EXEC ╱ // 0x26b2 @0x4
0x26ae…26c1 at0005 = ╱4b╱K╱ // 0x26b3 @0x5
0x26ae…26c1 at0006 = ╱54╱T╱ // 0x26b4 @0x6
0x26ae…26c1 at0007 = ╱4e╱N╱ // 0x26b5 @0x7
0x26ae…26c1 at0008 = ╱41╱A╱ // 0x26b6 @0x8
0x26ae…26c1 at0009 = ╱56╱V╱ // 0x26b7 @0x9
0x26ae…26c1 at000a = ╱4e╱N╱ // 0x26b8 @0xa
0x26ae…26c1 at000b = ╱ed╱ ( ╱ // 0x26b9 @0xb
0x26ae…26c1 at000c = ╱49╱I╱ // 0x26ba @0xc
0x26ae…26c1 at000d = ╱38╱8╱ // 0x26bb @0xd
0x26ae…26c1 at000e = ╱ec╱ , ╱ // 0x26bc @0xe
0x26ae…26c1 at000f = ╱48╱H╱ // 0x26bd @0xf
0x26ae…26c1 at0010 = ╱36╱6╱ // 0x26be @0x10
0x26ae…26c1 at0011 = ╱ee╱ ) ╱ // 0x26bf @0x11
0x26ae…26c1 at0012 = EOL // 0x26c0 @0x12
0x26ae…26c1 }
0x26c1…26d1 ae1e 4570 IF I9 = 0 THEN
0x26c1…26d1 LineComalBcd {
0x26c1…26d1 ptr = 0xae1e // 0x26c1 @0x0
0x26c1…26d1 lno = 0x4570 // 0x26c3 @0x2
0x26c1…26d1 at0004 = ╱9c╱ IF ╱ // 0x26c5 @0x4
0x26c1…26d1 at0005 = ╱49╱I╱ // 0x26c6 @0x5
0x26c1…26d1 at0006 = ╱39╱9╱ // 0x26c7 @0x6
0x26c1…26d1 at0007 = ╱dc╱ = ╱ // 0x26c8 @0x7
0x26c1…26d1 at0008 = ╱30╱0╱ // 0x26c9 @0x8
0x26c1…26d1 at0009 = ╱fe00000000╱ // 0x26ca @0x9
0x26c1…26d1 at000e = ╱b6╱ THEN ╱ // 0x26cf @0xe
0x26c1…26d1 at000f = EOL // 0x26d0 @0xf
0x26c1…26d1 }
0x26d1…26df ae2c 4580 J0 = 0
0x26d1…26df LineComalBcd {
0x26d1…26df ptr = 0xae2c // 0x26d1 @0x0
0x26d1…26df lno = 0x4580 // 0x26d3 @0x2
0x26d1…26df at0004 = ╱4a╱J╱ // 0x26d5 @0x4
0x26d1…26df at0005 = ╱30╱0╱ // 0x26d6 @0x5
0x26d1…26df at0006 = ╱dc╱ = ╱ // 0x26d7 @0x6
0x26d1…26df at0007 = ╱30╱0╱ // 0x26d8 @0x7
0x26d1…26df at0008 = ╱fe00000000╱ // 0x26d9 @0x8
0x26d1…26df at000d = EOL // 0x26de @0xd
0x26d1…26df }
0x26df…26eb ae38 4590 C6 $ = N9 $
0x26df…26eb LineComalBcd {
0x26df…26eb ptr = 0xae38 // 0x26df @0x0
0x26df…26eb lno = 0x4590 // 0x26e1 @0x2
0x26df…26eb at0004 = ╱43╱C╱ // 0x26e3 @0x4
0x26df…26eb at0005 = ╱36╱6╱ // 0x26e4 @0x5
0x26df…26eb at0006 = ╱ef╱ $ ╱ // 0x26e5 @0x6
0x26df…26eb at0007 = ╱dc╱ = ╱ // 0x26e6 @0x7
0x26df…26eb at0008 = ╱4e╱N╱ // 0x26e7 @0x8
0x26df…26eb at0009 = ╱39╱9╱ // 0x26e8 @0x9
0x26df…26eb at000a = ╱ef╱ $ ╱ // 0x26e9 @0xa
0x26df…26eb at000b = EOL // 0x26ea @0xb
0x26df…26eb }
0x26eb…26f7 ae44 4600 IF I8 = J1 THEN
0x26eb…26f7 LineComalBcd {
0x26eb…26f7 ptr = 0xae44 // 0x26eb @0x0
0x26eb…26f7 lno = 0x4600 // 0x26ed @0x2
0x26eb…26f7 at0004 = ╱9c╱ IF ╱ // 0x26ef @0x4
0x26eb…26f7 at0005 = ╱49╱I╱ // 0x26f0 @0x5
0x26eb…26f7 at0006 = ╱38╱8╱ // 0x26f1 @0x6
0x26eb…26f7 at0007 = ╱dc╱ = ╱ // 0x26f2 @0x7
0x26eb…26f7 at0008 = ╱4a╱J╱ // 0x26f3 @0x8
0x26eb…26f7 at0009 = ╱31╱1╱ // 0x26f4 @0x9
0x26eb…26f7 at000a = ╱b6╱ THEN ╱ // 0x26f5 @0xa
0x26eb…26f7 at000b = EOL // 0x26f6 @0xb
0x26eb…26f7 }
0x26f7…2715 ae62 4610 EXEC CALC ( 4 , B3 $ , B9 $ , B9 $ )
0x26f7…2715 LineComalBcd {
0x26f7…2715 ptr = 0xae62 // 0x26f7 @0x0
0x26f7…2715 lno = 0x4610 // 0x26f9 @0x2
0x26f7…2715 at0004 = ╱9d╱ EXEC ╱ // 0x26fb @0x4
0x26f7…2715 at0005 = ╱43╱C╱ // 0x26fc @0x5
0x26f7…2715 at0006 = ╱41╱A╱ // 0x26fd @0x6
0x26f7…2715 at0007 = ╱4c╱L╱ // 0x26fe @0x7
0x26f7…2715 at0008 = ╱43╱C╱ // 0x26ff @0x8
0x26f7…2715 at0009 = ╱ed╱ ( ╱ // 0x2700 @0x9
0x26f7…2715 at000a = ╱34╱4╱ // 0x2701 @0xa
0x26f7…2715 at000b = ╱fe00008003╱ // 0x2702 @0xb
0x26f7…2715 at0010 = ╱ec╱ , ╱ // 0x2707 @0x10
0x26f7…2715 at0011 = ╱42╱B╱ // 0x2708 @0x11
0x26f7…2715 at0012 = ╱33╱3╱ // 0x2709 @0x12
0x26f7…2715 at0013 = ╱ef╱ $ ╱ // 0x270a @0x13
0x26f7…2715 at0014 = ╱ec╱ , ╱ // 0x270b @0x14
0x26f7…2715 at0015 = ╱42╱B╱ // 0x270c @0x15
0x26f7…2715 at0016 = ╱39╱9╱ // 0x270d @0x16
0x26f7…2715 at0017 = ╱ef╱ $ ╱ // 0x270e @0x17
0x26f7…2715 at0018 = ╱ec╱ , ╱ // 0x270f @0x18
0x26f7…2715 at0019 = ╱42╱B╱ // 0x2710 @0x19
0x26f7…2715 at001a = ╱39╱9╱ // 0x2711 @0x1a
0x26f7…2715 at001b = ╱ef╱ $ ╱ // 0x2712 @0x1b
0x26f7…2715 at001c = ╱ee╱ ) ╱ // 0x2713 @0x1c
0x26f7…2715 at001d = EOL // 0x2714 @0x1d
0x26f7…2715 }
0x2715…2725 ae72 4620 IF SI >< 0 THEN
0x2715…2725 LineComalBcd {
0x2715…2725 ptr = 0xae72 // 0x2715 @0x0
0x2715…2725 lno = 0x4620 // 0x2717 @0x2
0x2715…2725 at0004 = ╱9c╱ IF ╱ // 0x2719 @0x4
0x2715…2725 at0005 = ╱53╱S╱ // 0x271a @0x5
0x2715…2725 at0006 = ╱49╱I╱ // 0x271b @0x6
0x2715…2725 at0007 = ╱e1╱ >< ╱ // 0x271c @0x7
0x2715…2725 at0008 = ╱30╱0╱ // 0x271d @0x8
0x2715…2725 at0009 = ╱fe00000000╱ // 0x271e @0x9
0x2715…2725 at000e = ╱b6╱ THEN ╱ // 0x2723 @0xe
0x2715…2725 at000f = EOL // 0x2724 @0xf
0x2715…2725 }
0x2725…2743 ae90 4630 EXEC CALC ( 0 , B3 $ , C6 $ , C6 $ )
0x2725…2743 LineComalBcd {
0x2725…2743 ptr = 0xae90 // 0x2725 @0x0
0x2725…2743 lno = 0x4630 // 0x2727 @0x2
0x2725…2743 at0004 = ╱9d╱ EXEC ╱ // 0x2729 @0x4
0x2725…2743 at0005 = ╱43╱C╱ // 0x272a @0x5
0x2725…2743 at0006 = ╱41╱A╱ // 0x272b @0x6
0x2725…2743 at0007 = ╱4c╱L╱ // 0x272c @0x7
0x2725…2743 at0008 = ╱43╱C╱ // 0x272d @0x8
0x2725…2743 at0009 = ╱ed╱ ( ╱ // 0x272e @0x9
0x2725…2743 at000a = ╱30╱0╱ // 0x272f @0xa
0x2725…2743 at000b = ╱fe00000000╱ // 0x2730 @0xb
0x2725…2743 at0010 = ╱ec╱ , ╱ // 0x2735 @0x10
0x2725…2743 at0011 = ╱42╱B╱ // 0x2736 @0x11
0x2725…2743 at0012 = ╱33╱3╱ // 0x2737 @0x12
0x2725…2743 at0013 = ╱ef╱ $ ╱ // 0x2738 @0x13
0x2725…2743 at0014 = ╱ec╱ , ╱ // 0x2739 @0x14
0x2725…2743 at0015 = ╱43╱C╱ // 0x273a @0x15
0x2725…2743 at0016 = ╱36╱6╱ // 0x273b @0x16
0x2725…2743 at0017 = ╱ef╱ $ ╱ // 0x273c @0x17
0x2725…2743 at0018 = ╱ec╱ , ╱ // 0x273d @0x18
0x2725…2743 at0019 = ╱43╱C╱ // 0x273e @0x19
0x2725…2743 at001a = ╱36╱6╱ // 0x273f @0x1a
0x2725…2743 at001b = ╱ef╱ $ ╱ // 0x2740 @0x1b
0x2725…2743 at001c = ╱ee╱ ) ╱ // 0x2741 @0x1c
0x2725…2743 at001d = EOL // 0x2742 @0x1d
0x2725…2743 }
0x2743…2749 ae96 4640 ELSE
0x2743…2749 LineComalBcd {
0x2743…2749 ptr = 0xae96 // 0x2743 @0x0
0x2743…2749 lno = 0x4640 // 0x2745 @0x2
0x2743…2749 at0004 = ╱9a╱ ELSE ╱ // 0x2747 @0x4
0x2743…2749 at0005 = EOL // 0x2748 @0x5
0x2743…2749 }
0x2749…2767 aeb4 4650 EXEC CALC ( 4 , B2 $ , B9 $ , B9 $ )
0x2749…2767 LineComalBcd {
0x2749…2767 ptr = 0xaeb4 // 0x2749 @0x0
0x2749…2767 lno = 0x4650 // 0x274b @0x2
0x2749…2767 at0004 = ╱9d╱ EXEC ╱ // 0x274d @0x4
0x2749…2767 at0005 = ╱43╱C╱ // 0x274e @0x5
0x2749…2767 at0006 = ╱41╱A╱ // 0x274f @0x6
0x2749…2767 at0007 = ╱4c╱L╱ // 0x2750 @0x7
0x2749…2767 at0008 = ╱43╱C╱ // 0x2751 @0x8
0x2749…2767 at0009 = ╱ed╱ ( ╱ // 0x2752 @0x9
0x2749…2767 at000a = ╱34╱4╱ // 0x2753 @0xa
0x2749…2767 at000b = ╱fe00008003╱ // 0x2754 @0xb
0x2749…2767 at0010 = ╱ec╱ , ╱ // 0x2759 @0x10
0x2749…2767 at0011 = ╱42╱B╱ // 0x275a @0x11
0x2749…2767 at0012 = ╱32╱2╱ // 0x275b @0x12
0x2749…2767 at0013 = ╱ef╱ $ ╱ // 0x275c @0x13
0x2749…2767 at0014 = ╱ec╱ , ╱ // 0x275d @0x14
0x2749…2767 at0015 = ╱42╱B╱ // 0x275e @0x15
0x2749…2767 at0016 = ╱39╱9╱ // 0x275f @0x16
0x2749…2767 at0017 = ╱ef╱ $ ╱ // 0x2760 @0x17
0x2749…2767 at0018 = ╱ec╱ , ╱ // 0x2761 @0x18
0x2749…2767 at0019 = ╱42╱B╱ // 0x2762 @0x19
0x2749…2767 at001a = ╱39╱9╱ // 0x2763 @0x1a
0x2749…2767 at001b = ╱ef╱ $ ╱ // 0x2764 @0x1b
0x2749…2767 at001c = ╱ee╱ ) ╱ // 0x2765 @0x1c
0x2749…2767 at001d = EOL // 0x2766 @0x1d
0x2749…2767 }
0x2767…2777 (131,) aec4 4660 IF SI >< 0 THEN
0x2767…2777 LineComalBcd {
0x2767…2777 ptr = 0xaec4 // 0x2767 @0x0
0x2767…2777 lno = 0x4660 // 0x2769 @0x2
0x2767…2777 at0004 = ╱9c╱ IF ╱ // 0x276b @0x4
0x2767…2777 at0005 = ╱53╱S╱ // 0x276c @0x5
0x2767…2777 at0006 = ╱49╱I╱ // 0x276d @0x6
0x2767…2777 at0007 = ╱e1╱ >< ╱ // 0x276e @0x7
0x2767…2777 at0008 = ╱30╱0╱ // 0x276f @0x8
0x2767…2777 at0009 = ╱fe00000000╱ // 0x2770 @0x9
0x2767…2777 at000e = ╱b6╱ THEN ╱ // 0x2775 @0xe
0x2767…2777 at000f = EOL // 0x2776 @0xf
0x2767…2777 }
0x2777…2795 aee2 4670 EXEC CALC ( 0 , B2 $ , C6 $ , C6 $ )
0x2777…2795 LineComalBcd {
0x2777…2795 ptr = 0xaee2 // 0x2777 @0x0
0x2777…2795 lno = 0x4670 // 0x2779 @0x2
0x2777…2795 at0004 = ╱9d╱ EXEC ╱ // 0x277b @0x4
0x2777…2795 at0005 = ╱43╱C╱ // 0x277c @0x5
0x2777…2795 at0006 = ╱41╱A╱ // 0x277d @0x6
0x2777…2795 at0007 = ╱4c╱L╱ // 0x277e @0x7
0x2777…2795 at0008 = ╱43╱C╱ // 0x277f @0x8
0x2777…2795 at0009 = ╱ed╱ ( ╱ // 0x2780 @0x9
0x2777…2795 at000a = ╱30╱0╱ // 0x2781 @0xa
0x2777…2795 at000b = ╱fe00000000╱ // 0x2782 @0xb
0x2777…2795 at0010 = ╱ec╱ , ╱ // 0x2787 @0x10
0x2777…2795 at0011 = ╱42╱B╱ // 0x2788 @0x11
0x2777…2795 at0012 = ╱32╱2╱ // 0x2789 @0x12
0x2777…2795 at0013 = ╱ef╱ $ ╱ // 0x278a @0x13
0x2777…2795 at0014 = ╱ec╱ , ╱ // 0x278b @0x14
0x2777…2795 at0015 = ╱43╱C╱ // 0x278c @0x15
0x2777…2795 at0016 = ╱36╱6╱ // 0x278d @0x16
0x2777…2795 at0017 = ╱ef╱ $ ╱ // 0x278e @0x17
0x2777…2795 at0018 = ╱ec╱ , ╱ // 0x278f @0x18
0x2777…2795 at0019 = ╱43╱C╱ // 0x2790 @0x19
0x2777…2795 at001a = ╱36╱6╱ // 0x2791 @0x1a
0x2777…2795 at001b = ╱ef╱ $ ╱ // 0x2792 @0x1b
0x2777…2795 at001c = ╱ee╱ ) ╱ // 0x2793 @0x1c
0x2777…2795 at001d = EOL // 0x2794 @0x1d
0x2777…2795 }
0x2795…279b aee8 4680 ELSE
0x2795…279b LineComalBcd {
0x2795…279b ptr = 0xaee8 // 0x2795 @0x0
0x2795…279b lno = 0x4680 // 0x2797 @0x2
0x2795…279b at0004 = ╱9a╱ ELSE ╱ // 0x2799 @0x4
0x2795…279b at0005 = EOL // 0x279a @0x5
0x2795…279b }
0x279b…27b9 af06 4690 EXEC CALC ( 4 , B1 $ , B9 $ , B9 $ )
0x279b…27b9 LineComalBcd {
0x279b…27b9 ptr = 0xaf06 // 0x279b @0x0
0x279b…27b9 lno = 0x4690 // 0x279d @0x2
0x279b…27b9 at0004 = ╱9d╱ EXEC ╱ // 0x279f @0x4
0x279b…27b9 at0005 = ╱43╱C╱ // 0x27a0 @0x5
0x279b…27b9 at0006 = ╱41╱A╱ // 0x27a1 @0x6
0x279b…27b9 at0007 = ╱4c╱L╱ // 0x27a2 @0x7
0x279b…27b9 at0008 = ╱43╱C╱ // 0x27a3 @0x8
0x279b…27b9 at0009 = ╱ed╱ ( ╱ // 0x27a4 @0x9
0x279b…27b9 at000a = ╱34╱4╱ // 0x27a5 @0xa
0x279b…27b9 at000b = ╱fe00008003╱ // 0x27a6 @0xb
0x279b…27b9 at0010 = ╱ec╱ , ╱ // 0x27ab @0x10
0x279b…27b9 at0011 = ╱42╱B╱ // 0x27ac @0x11
0x279b…27b9 at0012 = ╱31╱1╱ // 0x27ad @0x12
0x279b…27b9 at0013 = ╱ef╱ $ ╱ // 0x27ae @0x13
0x279b…27b9 at0014 = ╱ec╱ , ╱ // 0x27af @0x14
0x279b…27b9 at0015 = ╱42╱B╱ // 0x27b0 @0x15
0x279b…27b9 at0016 = ╱39╱9╱ // 0x27b1 @0x16
0x279b…27b9 at0017 = ╱ef╱ $ ╱ // 0x27b2 @0x17
0x279b…27b9 at0018 = ╱ec╱ , ╱ // 0x27b3 @0x18
0x279b…27b9 at0019 = ╱42╱B╱ // 0x27b4 @0x19
0x279b…27b9 at001a = ╱39╱9╱ // 0x27b5 @0x1a
0x279b…27b9 at001b = ╱ef╱ $ ╱ // 0x27b6 @0x1b
0x279b…27b9 at001c = ╱ee╱ ) ╱ // 0x27b7 @0x1c
0x279b…27b9 at001d = EOL // 0x27b8 @0x1d
0x279b…27b9 }
0x27b9…27c9 af16 4700 IF SI >< 0 THEN
0x27b9…27c9 LineComalBcd {
0x27b9…27c9 ptr = 0xaf16 // 0x27b9 @0x0
0x27b9…27c9 lno = 0x4700 // 0x27bb @0x2
0x27b9…27c9 at0004 = ╱9c╱ IF ╱ // 0x27bd @0x4
0x27b9…27c9 at0005 = ╱53╱S╱ // 0x27be @0x5
0x27b9…27c9 at0006 = ╱49╱I╱ // 0x27bf @0x6
0x27b9…27c9 at0007 = ╱e1╱ >< ╱ // 0x27c0 @0x7
0x27b9…27c9 at0008 = ╱30╱0╱ // 0x27c1 @0x8
0x27b9…27c9 at0009 = ╱fe00000000╱ // 0x27c2 @0x9
0x27b9…27c9 at000e = ╱b6╱ THEN ╱ // 0x27c7 @0xe
0x27b9…27c9 at000f = EOL // 0x27c8 @0xf
0x27b9…27c9 }
0x27c9…27e7 af34 4710 EXEC CALC ( 0 , B1 $ , C6 $ , C6 $ )
0x27c9…27e7 LineComalBcd {
0x27c9…27e7 ptr = 0xaf34 // 0x27c9 @0x0
0x27c9…27e7 lno = 0x4710 // 0x27cb @0x2
0x27c9…27e7 at0004 = ╱9d╱ EXEC ╱ // 0x27cd @0x4
0x27c9…27e7 at0005 = ╱43╱C╱ // 0x27ce @0x5
0x27c9…27e7 at0006 = ╱41╱A╱ // 0x27cf @0x6
0x27c9…27e7 at0007 = ╱4c╱L╱ // 0x27d0 @0x7
0x27c9…27e7 at0008 = ╱43╱C╱ // 0x27d1 @0x8
0x27c9…27e7 at0009 = ╱ed╱ ( ╱ // 0x27d2 @0x9
0x27c9…27e7 at000a = ╱30╱0╱ // 0x27d3 @0xa
0x27c9…27e7 at000b = ╱fe00000000╱ // 0x27d4 @0xb
0x27c9…27e7 at0010 = ╱ec╱ , ╱ // 0x27d9 @0x10
0x27c9…27e7 at0011 = ╱42╱B╱ // 0x27da @0x11
0x27c9…27e7 at0012 = ╱31╱1╱ // 0x27db @0x12
0x27c9…27e7 at0013 = ╱ef╱ $ ╱ // 0x27dc @0x13
0x27c9…27e7 at0014 = ╱ec╱ , ╱ // 0x27dd @0x14
0x27c9…27e7 at0015 = ╱43╱C╱ // 0x27de @0x15
0x27c9…27e7 at0016 = ╱36╱6╱ // 0x27df @0x16
0x27c9…27e7 at0017 = ╱ef╱ $ ╱ // 0x27e0 @0x17
0x27c9…27e7 at0018 = ╱ec╱ , ╱ // 0x27e1 @0x18
0x27c9…27e7 at0019 = ╱43╱C╱ // 0x27e2 @0x19
0x27c9…27e7 at001a = ╱36╱6╱ // 0x27e3 @0x1a
0x27c9…27e7 at001b = ╱ef╱ $ ╱ // 0x27e4 @0x1b
0x27c9…27e7 at001c = ╱ee╱ ) ╱ // 0x27e5 @0x1c
0x27c9…27e7 at001d = EOL // 0x27e6 @0x1d
0x27c9…27e7 }
0x27e7…27ed af3a 4720 ELSE
0x27e7…27ed LineComalBcd {
0x27e7…27ed ptr = 0xaf3a // 0x27e7 @0x0
0x27e7…27ed lno = 0x4720 // 0x27e9 @0x2
0x27e7…27ed at0004 = ╱9a╱ ELSE ╱ // 0x27eb @0x4
0x27e7…27ed at0005 = EOL // 0x27ec @0x5
0x27e7…27ed }
0x27ed…280b af58 4730 EXEC CALC ( 4 , A8 $ , B9 $ , B9 $ )
0x27ed…280b LineComalBcd {
0x27ed…280b ptr = 0xaf58 // 0x27ed @0x0
0x27ed…280b lno = 0x4730 // 0x27ef @0x2
0x27ed…280b at0004 = ╱9d╱ EXEC ╱ // 0x27f1 @0x4
0x27ed…280b at0005 = ╱43╱C╱ // 0x27f2 @0x5
0x27ed…280b at0006 = ╱41╱A╱ // 0x27f3 @0x6
0x27ed…280b at0007 = ╱4c╱L╱ // 0x27f4 @0x7
0x27ed…280b at0008 = ╱43╱C╱ // 0x27f5 @0x8
0x27ed…280b at0009 = ╱ed╱ ( ╱ // 0x27f6 @0x9
0x27ed…280b at000a = ╱34╱4╱ // 0x27f7 @0xa
0x27ed…280b at000b = ╱fe00008003╱ // 0x27f8 @0xb
0x27ed…280b at0010 = ╱ec╱ , ╱ // 0x27fd @0x10
0x27ed…280b at0011 = ╱41╱A╱ // 0x27fe @0x11
0x27ed…280b at0012 = ╱38╱8╱ // 0x27ff @0x12
0x27ed…280b at0013 = ╱ef╱ $ ╱ // 0x2800 @0x13
0x27ed…280b at0014 = ╱ec╱ , ╱ // 0x2801 @0x14
0x27ed…280b at0015 = ╱42╱B╱ // 0x2802 @0x15
0x27ed…280b at0016 = ╱39╱9╱ // 0x2803 @0x16
0x27ed…280b at0017 = ╱ef╱ $ ╱ // 0x2804 @0x17
0x27ed…280b at0018 = ╱ec╱ , ╱ // 0x2805 @0x18
0x27ed…280b at0019 = ╱42╱B╱ // 0x2806 @0x19
0x27ed…280b at001a = ╱39╱9╱ // 0x2807 @0x1a
0x27ed…280b at001b = ╱ef╱ $ ╱ // 0x2808 @0x1b
0x27ed…280b at001c = ╱ee╱ ) ╱ // 0x2809 @0x1c
0x27ed…280b at001d = EOL // 0x280a @0x1d
0x27ed…280b }
0x280b…281b af68 4740 IF SI >< 0 THEN
0x280b…281b LineComalBcd {
0x280b…281b ptr = 0xaf68 // 0x280b @0x0
0x280b…281b lno = 0x4740 // 0x280d @0x2
0x280b…281b at0004 = ╱9c╱ IF ╱ // 0x280f @0x4
0x280b…281b at0005 = ╱53╱S╱ // 0x2810 @0x5
0x280b…281b at0006 = ╱49╱I╱ // 0x2811 @0x6
0x280b…281b at0007 = ╱e1╱ >< ╱ // 0x2812 @0x7
0x280b…281b at0008 = ╱30╱0╱ // 0x2813 @0x8
0x280b…281b at0009 = ╱fe00000000╱ // 0x2814 @0x9
0x280b…281b at000e = ╱b6╱ THEN ╱ // 0x2819 @0xe
0x280b…281b at000f = EOL // 0x281a @0xf
0x280b…281b }
0x281b…2839 af86 4750 EXEC CALC ( 0 , A8 $ , C6 $ , C6 $ )
0x281b…2839 LineComalBcd {
0x281b…2839 ptr = 0xaf86 // 0x281b @0x0
0x281b…2839 lno = 0x4750 // 0x281d @0x2
0x281b…2839 at0004 = ╱9d╱ EXEC ╱ // 0x281f @0x4
0x281b…2839 at0005 = ╱43╱C╱ // 0x2820 @0x5
0x281b…2839 at0006 = ╱41╱A╱ // 0x2821 @0x6
0x281b…2839 at0007 = ╱4c╱L╱ // 0x2822 @0x7
0x281b…2839 at0008 = ╱43╱C╱ // 0x2823 @0x8
0x281b…2839 at0009 = ╱ed╱ ( ╱ // 0x2824 @0x9
0x281b…2839 at000a = ╱30╱0╱ // 0x2825 @0xa
0x281b…2839 at000b = ╱fe00000000╱ // 0x2826 @0xb
0x281b…2839 at0010 = ╱ec╱ , ╱ // 0x282b @0x10
0x281b…2839 at0011 = ╱41╱A╱ // 0x282c @0x11
0x281b…2839 at0012 = ╱38╱8╱ // 0x282d @0x12
0x281b…2839 at0013 = ╱ef╱ $ ╱ // 0x282e @0x13
0x281b…2839 at0014 = ╱ec╱ , ╱ // 0x282f @0x14
0x281b…2839 at0015 = ╱43╱C╱ // 0x2830 @0x15
0x281b…2839 at0016 = ╱36╱6╱ // 0x2831 @0x16
0x281b…2839 at0017 = ╱ef╱ $ ╱ // 0x2832 @0x17
0x281b…2839 at0018 = ╱ec╱ , ╱ // 0x2833 @0x18
0x281b…2839 at0019 = ╱43╱C╱ // 0x2834 @0x19
0x281b…2839 at001a = ╱36╱6╱ // 0x2835 @0x1a
0x281b…2839 at001b = ╱ef╱ $ ╱ // 0x2836 @0x1b
0x281b…2839 at001c = ╱ee╱ ) ╱ // 0x2837 @0x1c
0x281b…2839 at001d = EOL // 0x2838 @0x1d
0x281b…2839 }
0x2839…283f af8c 4760 ELSE
0x2839…283f LineComalBcd {
0x2839…283f ptr = 0xaf8c // 0x2839 @0x0
0x2839…283f lno = 0x4760 // 0x283b @0x2
0x2839…283f at0004 = ╱9a╱ ELSE ╱ // 0x283d @0x4
0x2839…283f at0005 = EOL // 0x283e @0x5
0x2839…283f }
0x283f…284d af9a 4770 J0 = 1
0x283f…284d LineComalBcd {
0x283f…284d ptr = 0xaf9a // 0x283f @0x0
0x283f…284d lno = 0x4770 // 0x2841 @0x2
0x283f…284d at0004 = ╱4a╱J╱ // 0x2843 @0x4
0x283f…284d at0005 = ╱30╱0╱ // 0x2844 @0x5
0x283f…284d at0006 = ╱dc╱ = ╱ // 0x2845 @0x6
0x283f…284d at0007 = ╱31╱1╱ // 0x2846 @0x7
0x283f…284d at0008 = ╱fe00008001╱ // 0x2847 @0x8
0x283f…284d at000d = EOL // 0x284c @0xd
0x283f…284d }
0x284d…285a afa7 4780 C6 $ = "0+"
0x284d…285a LineComalBcd {
0x284d…285a ptr = 0xafa7 // 0x284d @0x0
0x284d…285a lno = 0x4780 // 0x284f @0x2
0x284d…285a at0004 = ╱43╱C╱ // 0x2851 @0x4
0x284d…285a at0005 = ╱36╱6╱ // 0x2852 @0x5
0x284d…285a at0006 = ╱ef╱ $ ╱ // 0x2853 @0x6
0x284d…285a at0007 = ╱dc╱ = ╱ // 0x2854 @0x7
0x284d…285a at0008 = ╱22╱"╱ // 0x2855 @0x8
0x284d…285a at0009 = ╱30╱0╱ // 0x2856 @0x9
0x284d…285a at000a = ╱2b╱+╱ // 0x2857 @0xa
0x284d…285a at000b = ╱22╱"╱ // 0x2858 @0xb
0x284d…285a at000c = EOL // 0x2859 @0xc
0x284d…285a }
0x285a…2860 afad 4790 ENDIF
0x285a…2860 LineComalBcd {
0x285a…2860 ptr = 0xafad // 0x285a @0x0
0x285a…2860 lno = 0x4790 // 0x285c @0x2
0x285a…2860 at0004 = ╱9b╱ ENDIF ╱ // 0x285e @0x4
0x285a…2860 at0005 = EOL // 0x285f @0x5
0x285a…2860 }
0x2860…2866 afb3 4800 ENDIF
0x2860…2866 LineComalBcd {
0x2860…2866 ptr = 0xafb3 // 0x2860 @0x0
0x2860…2866 lno = 0x4800 // 0x2862 @0x2
0x2860…2866 at0004 = ╱9b╱ ENDIF ╱ // 0x2864 @0x4
0x2860…2866 at0005 = EOL // 0x2865 @0x5
0x2860…2866 }
0x2866…286c afb9 4810 ENDIF
0x2866…286c LineComalBcd {
0x2866…286c ptr = 0xafb9 // 0x2866 @0x0
0x2866…286c lno = 0x4810 // 0x2868 @0x2
0x2866…286c at0004 = ╱9b╱ ENDIF ╱ // 0x286a @0x4
0x2866…286c at0005 = EOL // 0x286b @0x5
0x2866…286c }
0x286c…2872 afbf 4820 ENDIF
0x286c…2872 LineComalBcd {
0x286c…2872 ptr = 0xafbf // 0x286c @0x0
0x286c…2872 lno = 0x4820 // 0x286e @0x2
0x286c…2872 at0004 = ╱9b╱ ENDIF ╱ // 0x2870 @0x4
0x286c…2872 at0005 = EOL // 0x2871 @0x5
0x286c…2872 }
0x2872…2891 afde 4830 IF C6 $ ( LEN ( C6 $ ) ) = "-" THEN J0 = 1
0x2872…2891 LineComalBcd {
0x2872…2891 ptr = 0xafde // 0x2872 @0x0
0x2872…2891 lno = 0x4830 // 0x2874 @0x2
0x2872…2891 at0004 = ╱82╱ IF ╱ // 0x2876 @0x4
0x2872…2891 at0005 = ╱43╱C╱ // 0x2877 @0x5
0x2872…2891 at0006 = ╱36╱6╱ // 0x2878 @0x6
0x2872…2891 at0007 = ╱ef╱ $ ╱ // 0x2879 @0x7
0x2872…2891 at0008 = ╱ed╱ ( ╱ // 0x287a @0x8
0x2872…2891 at0009 = ╱cc╱ LEN ╱ // 0x287b @0x9
0x2872…2891 at000a = ╱ed╱ ( ╱ // 0x287c @0xa
0x2872…2891 at000b = ╱43╱C╱ // 0x287d @0xb
0x2872…2891 at000c = ╱36╱6╱ // 0x287e @0xc
0x2872…2891 at000d = ╱ef╱ $ ╱ // 0x287f @0xd
0x2872…2891 at000e = ╱ee╱ ) ╱ // 0x2880 @0xe
0x2872…2891 at000f = ╱ee╱ ) ╱ // 0x2881 @0xf
0x2872…2891 at0010 = ╱dc╱ = ╱ // 0x2882 @0x10
0x2872…2891 at0011 = ╱22╱"╱ // 0x2883 @0x11
0x2872…2891 at0012 = ╱2d╱-╱ // 0x2884 @0x12
0x2872…2891 at0013 = ╱22╱"╱ // 0x2885 @0x13
0x2872…2891 at0014 = ╱b6╱ THEN ╱ // 0x2886 @0x14
0x2872…2891 at0015 = ╱4a╱J╱ // 0x2887 @0x15
0x2872…2891 at0016 = ╱30╱0╱ // 0x2888 @0x16
0x2872…2891 at0017 = ╱dc╱ = ╱ // 0x2889 @0x17
0x2872…2891 at0018 = ╱31╱1╱ // 0x288a @0x18
0x2872…2891 at0019 = ╱fe00008001╱ // 0x288b @0x19
0x2872…2891 at001e = EOL // 0x2890 @0x1e
0x2872…2891 }
0x2891…2897 afe4 4840 ELSE
0x2891…2897 LineComalBcd {
0x2891…2897 ptr = 0xafe4 // 0x2891 @0x0
0x2891…2897 lno = 0x4840 // 0x2893 @0x2
0x2891…2897 at0004 = ╱9a╱ ELSE ╱ // 0x2895 @0x4
0x2891…2897 at0005 = EOL // 0x2896 @0x5
0x2891…2897 }
0x2897…28b5 b002 4850 EXEC CALC ( 4 , F7 $ , B9 $ , B9 $ )
0x2897…28b5 LineComalBcd {
0x2897…28b5 ptr = 0xb002 // 0x2897 @0x0
0x2897…28b5 lno = 0x4850 // 0x2899 @0x2
0x2897…28b5 at0004 = ╱9d╱ EXEC ╱ // 0x289b @0x4
0x2897…28b5 at0005 = ╱43╱C╱ // 0x289c @0x5
0x2897…28b5 at0006 = ╱41╱A╱ // 0x289d @0x6
0x2897…28b5 at0007 = ╱4c╱L╱ // 0x289e @0x7
0x2897…28b5 at0008 = ╱43╱C╱ // 0x289f @0x8
0x2897…28b5 at0009 = ╱ed╱ ( ╱ // 0x28a0 @0x9
0x2897…28b5 at000a = ╱34╱4╱ // 0x28a1 @0xa
0x2897…28b5 at000b = ╱fe00008003╱ // 0x28a2 @0xb
0x2897…28b5 at0010 = ╱ec╱ , ╱ // 0x28a7 @0x10
0x2897…28b5 at0011 = ╱46╱F╱ // 0x28a8 @0x11
0x2897…28b5 at0012 = ╱37╱7╱ // 0x28a9 @0x12
0x2897…28b5 at0013 = ╱ef╱ $ ╱ // 0x28aa @0x13
0x2897…28b5 at0014 = ╱ec╱ , ╱ // 0x28ab @0x14
0x2897…28b5 at0015 = ╱42╱B╱ // 0x28ac @0x15
0x2897…28b5 at0016 = ╱39╱9╱ // 0x28ad @0x16
0x2897…28b5 at0017 = ╱ef╱ $ ╱ // 0x28ae @0x17
0x2897…28b5 at0018 = ╱ec╱ , ╱ // 0x28af @0x18
0x2897…28b5 at0019 = ╱42╱B╱ // 0x28b0 @0x19
0x2897…28b5 at001a = ╱39╱9╱ // 0x28b1 @0x1a
0x2897…28b5 at001b = ╱ef╱ $ ╱ // 0x28b2 @0x1b
0x2897…28b5 at001c = ╱ee╱ ) ╱ // 0x28b3 @0x1c
0x2897…28b5 at001d = EOL // 0x28b4 @0x1d
0x2897…28b5 }
0x28b5…28c5 b012 4860 IF SI >< 0 THEN
0x28b5…28c5 LineComalBcd {
0x28b5…28c5 ptr = 0xb012 // 0x28b5 @0x0
0x28b5…28c5 lno = 0x4860 // 0x28b7 @0x2
0x28b5…28c5 at0004 = ╱9c╱ IF ╱ // 0x28b9 @0x4
0x28b5…28c5 at0005 = ╱53╱S╱ // 0x28ba @0x5
0x28b5…28c5 at0006 = ╱49╱I╱ // 0x28bb @0x6
0x28b5…28c5 at0007 = ╱e1╱ >< ╱ // 0x28bc @0x7
0x28b5…28c5 at0008 = ╱30╱0╱ // 0x28bd @0x8
0x28b5…28c5 at0009 = ╱fe00000000╱ // 0x28be @0x9
0x28b5…28c5 at000e = ╱b6╱ THEN ╱ // 0x28c3 @0xe
0x28b5…28c5 at000f = EOL // 0x28c4 @0xf
0x28b5…28c5 }
0x28c5…28e3 b030 4870 EXEC CALC ( 0 , F7 $ , C6 $ , C6 $ )
0x28c5…28e3 LineComalBcd {
0x28c5…28e3 ptr = 0xb030 // 0x28c5 @0x0
0x28c5…28e3 lno = 0x4870 // 0x28c7 @0x2
0x28c5…28e3 at0004 = ╱9d╱ EXEC ╱ // 0x28c9 @0x4
0x28c5…28e3 at0005 = ╱43╱C╱ // 0x28ca @0x5
0x28c5…28e3 at0006 = ╱41╱A╱ // 0x28cb @0x6
0x28c5…28e3 at0007 = ╱4c╱L╱ // 0x28cc @0x7
0x28c5…28e3 at0008 = ╱43╱C╱ // 0x28cd @0x8
0x28c5…28e3 at0009 = ╱ed╱ ( ╱ // 0x28ce @0x9
0x28c5…28e3 at000a = ╱30╱0╱ // 0x28cf @0xa
0x28c5…28e3 at000b = ╱fe00000000╱ // 0x28d0 @0xb
0x28c5…28e3 at0010 = ╱ec╱ , ╱ // 0x28d5 @0x10
0x28c5…28e3 at0011 = ╱46╱F╱ // 0x28d6 @0x11
0x28c5…28e3 at0012 = ╱37╱7╱ // 0x28d7 @0x12
0x28c5…28e3 at0013 = ╱ef╱ $ ╱ // 0x28d8 @0x13
0x28c5…28e3 at0014 = ╱ec╱ , ╱ // 0x28d9 @0x14
0x28c5…28e3 at0015 = ╱43╱C╱ // 0x28da @0x15
0x28c5…28e3 at0016 = ╱36╱6╱ // 0x28db @0x16
0x28c5…28e3 at0017 = ╱ef╱ $ ╱ // 0x28dc @0x17
0x28c5…28e3 at0018 = ╱ec╱ , ╱ // 0x28dd @0x18
0x28c5…28e3 at0019 = ╱43╱C╱ // 0x28de @0x19
0x28c5…28e3 at001a = ╱36╱6╱ // 0x28df @0x1a
0x28c5…28e3 at001b = ╱ef╱ $ ╱ // 0x28e0 @0x1b
0x28c5…28e3 at001c = ╱ee╱ ) ╱ // 0x28e1 @0x1c
0x28c5…28e3 at001d = EOL // 0x28e2 @0x1d
0x28c5…28e3 }
0x28e3…28e9 b036 4880 ELSE
0x28e3…28e9 LineComalBcd {
0x28e3…28e9 ptr = 0xb036 // 0x28e3 @0x0
0x28e3…28e9 lno = 0x4880 // 0x28e5 @0x2
0x28e3…28e9 at0004 = ╱9a╱ ELSE ╱ // 0x28e7 @0x4
0x28e3…28e9 at0005 = EOL // 0x28e8 @0x5
0x28e3…28e9 }
0x28e9…2907 b054 4890 EXEC CALC ( 4 , F6 $ , B9 $ , B9 $ )
0x28e9…2907 LineComalBcd {
0x28e9…2907 ptr = 0xb054 // 0x28e9 @0x0
0x28e9…2907 lno = 0x4890 // 0x28eb @0x2
0x28e9…2907 at0004 = ╱9d╱ EXEC ╱ // 0x28ed @0x4
0x28e9…2907 at0005 = ╱43╱C╱ // 0x28ee @0x5
0x28e9…2907 at0006 = ╱41╱A╱ // 0x28ef @0x6
0x28e9…2907 at0007 = ╱4c╱L╱ // 0x28f0 @0x7
0x28e9…2907 at0008 = ╱43╱C╱ // 0x28f1 @0x8
0x28e9…2907 at0009 = ╱ed╱ ( ╱ // 0x28f2 @0x9
0x28e9…2907 at000a = ╱34╱4╱ // 0x28f3 @0xa
0x28e9…2907 at000b = ╱fe00008003╱ // 0x28f4 @0xb
0x28e9…2907 at0010 = ╱ec╱ , ╱ // 0x28f9 @0x10
0x28e9…2907 at0011 = ╱46╱F╱ // 0x28fa @0x11
0x28e9…2907 at0012 = ╱36╱6╱ // 0x28fb @0x12
0x28e9…2907 at0013 = ╱ef╱ $ ╱ // 0x28fc @0x13
0x28e9…2907 at0014 = ╱ec╱ , ╱ // 0x28fd @0x14
0x28e9…2907 at0015 = ╱42╱B╱ // 0x28fe @0x15
0x28e9…2907 at0016 = ╱39╱9╱ // 0x28ff @0x16
0x28e9…2907 at0017 = ╱ef╱ $ ╱ // 0x2900 @0x17
0x28e9…2907 at0018 = ╱ec╱ , ╱ // 0x2901 @0x18
0x28e9…2907 at0019 = ╱42╱B╱ // 0x2902 @0x19
0x28e9…2907 at001a = ╱39╱9╱ // 0x2903 @0x1a
0x28e9…2907 at001b = ╱ef╱ $ ╱ // 0x2904 @0x1b
0x28e9…2907 at001c = ╱ee╱ ) ╱ // 0x2905 @0x1c
0x28e9…2907 at001d = EOL // 0x2906 @0x1d
0x28e9…2907 }
0x2907…2917 b064 4900 IF SI >< 0 THEN
0x2907…2917 LineComalBcd {
0x2907…2917 ptr = 0xb064 // 0x2907 @0x0
0x2907…2917 lno = 0x4900 // 0x2909 @0x2
0x2907…2917 at0004 = ╱9c╱ IF ╱ // 0x290b @0x4
0x2907…2917 at0005 = ╱53╱S╱ // 0x290c @0x5
0x2907…2917 at0006 = ╱49╱I╱ // 0x290d @0x6
0x2907…2917 at0007 = ╱e1╱ >< ╱ // 0x290e @0x7
0x2907…2917 at0008 = ╱30╱0╱ // 0x290f @0x8
0x2907…2917 at0009 = ╱fe00000000╱ // 0x2910 @0x9
0x2907…2917 at000e = ╱b6╱ THEN ╱ // 0x2915 @0xe
0x2907…2917 at000f = EOL // 0x2916 @0xf
0x2907…2917 }
0x2917…2935 b082 4910 EXEC CALC ( 0 , F6 $ , C6 $ , C6 $ )
0x2917…2935 LineComalBcd {
0x2917…2935 ptr = 0xb082 // 0x2917 @0x0
0x2917…2935 lno = 0x4910 // 0x2919 @0x2
0x2917…2935 at0004 = ╱9d╱ EXEC ╱ // 0x291b @0x4
0x2917…2935 at0005 = ╱43╱C╱ // 0x291c @0x5
0x2917…2935 at0006 = ╱41╱A╱ // 0x291d @0x6
0x2917…2935 at0007 = ╱4c╱L╱ // 0x291e @0x7
0x2917…2935 at0008 = ╱43╱C╱ // 0x291f @0x8
0x2917…2935 at0009 = ╱ed╱ ( ╱ // 0x2920 @0x9
0x2917…2935 at000a = ╱30╱0╱ // 0x2921 @0xa
0x2917…2935 at000b = ╱fe00000000╱ // 0x2922 @0xb
0x2917…2935 at0010 = ╱ec╱ , ╱ // 0x2927 @0x10
0x2917…2935 at0011 = ╱46╱F╱ // 0x2928 @0x11
0x2917…2935 at0012 = ╱36╱6╱ // 0x2929 @0x12
0x2917…2935 at0013 = ╱ef╱ $ ╱ // 0x292a @0x13
0x2917…2935 at0014 = ╱ec╱ , ╱ // 0x292b @0x14
0x2917…2935 at0015 = ╱43╱C╱ // 0x292c @0x15
0x2917…2935 at0016 = ╱36╱6╱ // 0x292d @0x16
0x2917…2935 at0017 = ╱ef╱ $ ╱ // 0x292e @0x17
0x2917…2935 at0018 = ╱ec╱ , ╱ // 0x292f @0x18
0x2917…2935 at0019 = ╱43╱C╱ // 0x2930 @0x19
0x2917…2935 at001a = ╱36╱6╱ // 0x2931 @0x1a
0x2917…2935 at001b = ╱ef╱ $ ╱ // 0x2932 @0x1b
0x2917…2935 at001c = ╱ee╱ ) ╱ // 0x2933 @0x1c
0x2917…2935 at001d = EOL // 0x2934 @0x1d
0x2917…2935 }
0x2935…293b (137,) b088 4920 ELSE
0x2935…293b LineComalBcd {
0x2935…293b ptr = 0xb088 // 0x2935 @0x0
0x2935…293b lno = 0x4920 // 0x2937 @0x2
0x2935…293b at0004 = ╱9a╱ ELSE ╱ // 0x2939 @0x4
0x2935…293b at0005 = EOL // 0x293a @0x5
0x2935…293b }
0x293b…2948 b095 4930 C6 $ = "0+"
0x293b…2948 LineComalBcd {
0x293b…2948 ptr = 0xb095 // 0x293b @0x0
0x293b…2948 lno = 0x4930 // 0x293d @0x2
0x293b…2948 at0004 = ╱43╱C╱ // 0x293f @0x4
0x293b…2948 at0005 = ╱36╱6╱ // 0x2940 @0x5
0x293b…2948 at0006 = ╱ef╱ $ ╱ // 0x2941 @0x6
0x293b…2948 at0007 = ╱dc╱ = ╱ // 0x2942 @0x7
0x293b…2948 at0008 = ╱22╱"╱ // 0x2943 @0x8
0x293b…2948 at0009 = ╱30╱0╱ // 0x2944 @0x9
0x293b…2948 at000a = ╱2b╱+╱ // 0x2945 @0xa
0x293b…2948 at000b = ╱22╱"╱ // 0x2946 @0xb
0x293b…2948 at000c = EOL // 0x2947 @0xc
0x293b…2948 }
0x2948…294e b09b 4940 ENDIF
0x2948…294e LineComalBcd {
0x2948…294e ptr = 0xb09b // 0x2948 @0x0
0x2948…294e lno = 0x4940 // 0x294a @0x2
0x2948…294e at0004 = ╱9b╱ ENDIF ╱ // 0x294c @0x4
0x2948…294e at0005 = EOL // 0x294d @0x5
0x2948…294e }
0x294e…2954 b0a1 4950 ENDIF
0x294e…2954 LineComalBcd {
0x294e…2954 ptr = 0xb0a1 // 0x294e @0x0
0x294e…2954 lno = 0x4950 // 0x2950 @0x2
0x294e…2954 at0004 = ╱9b╱ ENDIF ╱ // 0x2952 @0x4
0x294e…2954 at0005 = EOL // 0x2953 @0x5
0x294e…2954 }
0x2954…2973 b0c0 4960 IF C6 $ ( LEN ( C6 $ ) ) = "+" THEN J0 = 1
0x2954…2973 LineComalBcd {
0x2954…2973 ptr = 0xb0c0 // 0x2954 @0x0
0x2954…2973 lno = 0x4960 // 0x2956 @0x2
0x2954…2973 at0004 = ╱82╱ IF ╱ // 0x2958 @0x4
0x2954…2973 at0005 = ╱43╱C╱ // 0x2959 @0x5
0x2954…2973 at0006 = ╱36╱6╱ // 0x295a @0x6
0x2954…2973 at0007 = ╱ef╱ $ ╱ // 0x295b @0x7
0x2954…2973 at0008 = ╱ed╱ ( ╱ // 0x295c @0x8
0x2954…2973 at0009 = ╱cc╱ LEN ╱ // 0x295d @0x9
0x2954…2973 at000a = ╱ed╱ ( ╱ // 0x295e @0xa
0x2954…2973 at000b = ╱43╱C╱ // 0x295f @0xb
0x2954…2973 at000c = ╱36╱6╱ // 0x2960 @0xc
0x2954…2973 at000d = ╱ef╱ $ ╱ // 0x2961 @0xd
0x2954…2973 at000e = ╱ee╱ ) ╱ // 0x2962 @0xe
0x2954…2973 at000f = ╱ee╱ ) ╱ // 0x2963 @0xf
0x2954…2973 at0010 = ╱dc╱ = ╱ // 0x2964 @0x10
0x2954…2973 at0011 = ╱22╱"╱ // 0x2965 @0x11
0x2954…2973 at0012 = ╱2b╱+╱ // 0x2966 @0x12
0x2954…2973 at0013 = ╱22╱"╱ // 0x2967 @0x13
0x2954…2973 at0014 = ╱b6╱ THEN ╱ // 0x2968 @0x14
0x2954…2973 at0015 = ╱4a╱J╱ // 0x2969 @0x15
0x2954…2973 at0016 = ╱30╱0╱ // 0x296a @0x16
0x2954…2973 at0017 = ╱dc╱ = ╱ // 0x296b @0x17
0x2954…2973 at0018 = ╱31╱1╱ // 0x296c @0x18
0x2954…2973 at0019 = ╱fe00008001╱ // 0x296d @0x19
0x2954…2973 at001e = EOL // 0x2972 @0x1e
0x2954…2973 }
0x2973…2979 b0c6 4970 ENDIF
0x2973…2979 LineComalBcd {
0x2973…2979 ptr = 0xb0c6 // 0x2973 @0x0
0x2973…2979 lno = 0x4970 // 0x2975 @0x2
0x2973…2979 at0004 = ╱9b╱ ENDIF ╱ // 0x2977 @0x4
0x2973…2979 at0005 = EOL // 0x2978 @0x5
0x2973…2979 }
0x2979…2989 b0d6 4980 IF J0 = 1 THEN
0x2979…2989 LineComalBcd {
0x2979…2989 ptr = 0xb0d6 // 0x2979 @0x0
0x2979…2989 lno = 0x4980 // 0x297b @0x2
0x2979…2989 at0004 = ╱9c╱ IF ╱ // 0x297d @0x4
0x2979…2989 at0005 = ╱4a╱J╱ // 0x297e @0x5
0x2979…2989 at0006 = ╱30╱0╱ // 0x297f @0x6
0x2979…2989 at0007 = ╱dc╱ = ╱ // 0x2980 @0x7
0x2979…2989 at0008 = ╱31╱1╱ // 0x2981 @0x8
0x2979…2989 at0009 = ╱fe00008001╱ // 0x2982 @0x9
0x2979…2989 at000e = ╱b6╱ THEN ╱ // 0x2987 @0xe
0x2979…2989 at000f = EOL // 0x2988 @0xf
0x2979…2989 }
0x2989…298f b0dc 4990 REPEAT
0x2989…298f LineComalBcd {
0x2989…298f ptr = 0xb0dc // 0x2989 @0x0
0x2989…298f lno = 0x4990 // 0x298b @0x2
0x2989…298f at0004 = ╱97╱ REPEAT ╱ // 0x298d @0x4
0x2989…298f at0005 = EOL // 0x298e @0x5
0x2989…298f }
0x298f…29a4 b0f1 5000 CURSOR 22 , 23
0x298f…29a4 LineComalBcd {
0x298f…29a4 ptr = 0xb0f1 // 0x298f @0x0
0x298f…29a4 lno = 0x5000 // 0x2991 @0x2
0x298f…29a4 at0004 = ╱a1╱ CURSOR ╱ // 0x2993 @0x4
0x298f…29a4 at0005 = ╱32╱2╱ // 0x2994 @0x5
0x298f…29a4 at0006 = ╱32╱2╱ // 0x2995 @0x6
0x298f…29a4 at0007 = ╱fe0000b005╱ // 0x2996 @0x7
0x298f…29a4 at000c = ╱ec╱ , ╱ // 0x299b @0xc
0x298f…29a4 at000d = ╱32╱2╱ // 0x299c @0xd
0x298f…29a4 at000e = ╱33╱3╱ // 0x299d @0xe
0x298f…29a4 at000f = ╱fe0000b805╱ // 0x299e @0xf
0x298f…29a4 at0014 = EOL // 0x29a3 @0x14
0x298f…29a4 }
0x29a4…29df b12c 5010 PRINT "……Er…bel|bet…rigtigt…?…………(J/N)" ; B7 $ ( 1 : 20 )
0x29a4…29df LineComalBcd {
0x29a4…29df ptr = 0xb12c // 0x29a4 @0x0
0x29a4…29df lno = 0x5010 // 0x29a6 @0x2
0x29a4…29df at0004 = ╱92╱ PRINT ╱ // 0x29a8 @0x4
0x29a4…29df at0005 = ╱22╱"╱ // 0x29a9 @0x5
0x29a4…29df at0006 = ╱20╱…╱ // 0x29aa @0x6
0x29a4…29df at0007 = ╱20╱…╱ // 0x29ab @0x7
0x29a4…29df at0008 = ╱45╱E╱ // 0x29ac @0x8
0x29a4…29df at0009 = ╱72╱r╱ // 0x29ad @0x9
0x29a4…29df at000a = ╱20╱…╱ // 0x29ae @0xa
0x29a4…29df at000b = ╱62╱b╱ // 0x29af @0xb
0x29a4…29df at000c = ╱65╱e╱ // 0x29b0 @0xc
0x29a4…29df at000d = ╱6c╱l╱ // 0x29b1 @0xd
0x29a4…29df at000e = ╱7c╱|╱ // 0x29b2 @0xe
0x29a4…29df at000f = ╱62╱b╱ // 0x29b3 @0xf
0x29a4…29df at0010 = ╱65╱e╱ // 0x29b4 @0x10
0x29a4…29df at0011 = ╱74╱t╱ // 0x29b5 @0x11
0x29a4…29df at0012 = ╱20╱…╱ // 0x29b6 @0x12
0x29a4…29df at0013 = ╱72╱r╱ // 0x29b7 @0x13
0x29a4…29df at0014 = ╱69╱i╱ // 0x29b8 @0x14
0x29a4…29df at0015 = ╱67╱g╱ // 0x29b9 @0x15
0x29a4…29df at0016 = ╱74╱t╱ // 0x29ba @0x16
0x29a4…29df at0017 = ╱69╱i╱ // 0x29bb @0x17
0x29a4…29df at0018 = ╱67╱g╱ // 0x29bc @0x18
0x29a4…29df at0019 = ╱74╱t╱ // 0x29bd @0x19
0x29a4…29df at001a = ╱20╱…╱ // 0x29be @0x1a
0x29a4…29df at001b = ╱3f╱?╱ // 0x29bf @0x1b
0x29a4…29df at001c = ╱20╱…╱ // 0x29c0 @0x1c
0x29a4…29df at001d = ╱20╱…╱ // 0x29c1 @0x1d
0x29a4…29df at001e = ╱20╱…╱ // 0x29c2 @0x1e
0x29a4…29df at001f = ╱20╱…╱ // 0x29c3 @0x1f
0x29a4…29df at0020 = ╱28╱(╱ // 0x29c4 @0x20
0x29a4…29df at0021 = ╱4a╱J╱ // 0x29c5 @0x21
0x29a4…29df at0022 = ╱2f╱/╱ // 0x29c6 @0x22
0x29a4…29df at0023 = ╱4e╱N╱ // 0x29c7 @0x23
0x29a4…29df at0024 = ╱29╱)╱ // 0x29c8 @0x24
0x29a4…29df at0025 = ╱22╱"╱ // 0x29c9 @0x25
0x29a4…29df at0026 = ╱eb╱ ; ╱ // 0x29ca @0x26
0x29a4…29df at0027 = ╱42╱B╱ // 0x29cb @0x27
0x29a4…29df at0028 = ╱37╱7╱ // 0x29cc @0x28
0x29a4…29df at0029 = ╱ef╱ $ ╱ // 0x29cd @0x29
0x29a4…29df at002a = ╱ed╱ ( ╱ // 0x29ce @0x2a
0x29a4…29df at002b = ╱31╱1╱ // 0x29cf @0x2b
0x29a4…29df at002c = ╱fe00008001╱ // 0x29d0 @0x2c
0x29a4…29df at0031 = ╱f0╱ : ╱ // 0x29d5 @0x31
0x29a4…29df at0032 = ╱32╱2╱ // 0x29d6 @0x32
0x29a4…29df at0033 = ╱30╱0╱ // 0x29d7 @0x33
0x29a4…29df at0034 = ╱fe0000a005╱ // 0x29d8 @0x34
0x29a4…29df at0039 = ╱ee╱ ) ╱ // 0x29dd @0x39
0x29a4…29df at003a = EOL // 0x29de @0x3a
0x29a4…29df }
0x29df…29f4 b141 5020 CURSOR 45 , 23
0x29df…29f4 LineComalBcd {
0x29df…29f4 ptr = 0xb141 // 0x29df @0x0
0x29df…29f4 lno = 0x5020 // 0x29e1 @0x2
0x29df…29f4 at0004 = ╱a1╱ CURSOR ╱ // 0x29e3 @0x4
0x29df…29f4 at0005 = ╱34╱4╱ // 0x29e4 @0x5
0x29df…29f4 at0006 = ╱35╱5╱ // 0x29e5 @0x6
0x29df…29f4 at0007 = ╱fe0000b406╱ // 0x29e6 @0x7
0x29df…29f4 at000c = ╱ec╱ , ╱ // 0x29eb @0xc
0x29df…29f4 at000d = ╱32╱2╱ // 0x29ec @0xd
0x29df…29f4 at000e = ╱33╱3╱ // 0x29ed @0xe
0x29df…29f4 at000f = ╱fe0000b805╱ // 0x29ee @0xf
0x29df…29f4 at0014 = EOL // 0x29f3 @0x14
0x29df…29f4 }
0x29f4…2a00 b14d 5030 INPUT "…" , A $
0x29f4…2a00 LineComalBcd {
0x29f4…2a00 ptr = 0xb14d // 0x29f4 @0x0
0x29f4…2a00 lno = 0x5030 // 0x29f6 @0x2
0x29f4…2a00 at0004 = ╱91╱ INPUT ╱ // 0x29f8 @0x4
0x29f4…2a00 at0005 = ╱22╱"╱ // 0x29f9 @0x5
0x29f4…2a00 at0006 = ╱20╱…╱ // 0x29fa @0x6
0x29f4…2a00 at0007 = ╱22╱"╱ // 0x29fb @0x7
0x29f4…2a00 at0008 = ╱ec╱ , ╱ // 0x29fc @0x8
0x29f4…2a00 at0009 = ╱41╱A╱ // 0x29fd @0x9
0x29f4…2a00 at000a = ╱ef╱ $ ╱ // 0x29fe @0xa
0x29f4…2a00 at000b = EOL // 0x29ff @0xb
0x29f4…2a00 }
0x2a00…2a10 b15d 5040 EXEC NRTEST ( A $ )
0x2a00…2a10 LineComalBcd {
0x2a00…2a10 ptr = 0xb15d // 0x2a00 @0x0
0x2a00…2a10 lno = 0x5040 // 0x2a02 @0x2
0x2a00…2a10 at0004 = ╱9d╱ EXEC ╱ // 0x2a04 @0x4
0x2a00…2a10 at0005 = ╱4e╱N╱ // 0x2a05 @0x5
0x2a00…2a10 at0006 = ╱52╱R╱ // 0x2a06 @0x6
0x2a00…2a10 at0007 = ╱54╱T╱ // 0x2a07 @0x7
0x2a00…2a10 at0008 = ╱45╱E╱ // 0x2a08 @0x8
0x2a00…2a10 at0009 = ╱53╱S╱ // 0x2a09 @0x9
0x2a00…2a10 at000a = ╱54╱T╱ // 0x2a0a @0xa
0x2a00…2a10 at000b = ╱ed╱ ( ╱ // 0x2a0b @0xb
0x2a00…2a10 at000c = ╱41╱A╱ // 0x2a0c @0xc
0x2a00…2a10 at000d = ╱ef╱ $ ╱ // 0x2a0d @0xd
0x2a00…2a10 at000e = ╱ee╱ ) ╱ // 0x2a0e @0xe
0x2a00…2a10 at000f = EOL // 0x2a0f @0xf
0x2a00…2a10 }
0x2a10…2a29 b176 5050 UNTIL P = - 7 OR P = - 8
0x2a10…2a29 LineComalBcd {
0x2a10…2a29 ptr = 0xb176 // 0x2a10 @0x0
0x2a10…2a29 lno = 0x5050 // 0x2a12 @0x2
0x2a10…2a29 at0004 = ╱98╱ UNTIL ╱ // 0x2a14 @0x4
0x2a10…2a29 at0005 = ╱50╱P╱ // 0x2a15 @0x5
0x2a10…2a29 at0006 = ╱dc╱ = ╱ // 0x2a16 @0x6
0x2a10…2a29 at0007 = ╱e9╱ - ╱ // 0x2a17 @0x7
0x2a10…2a29 at0008 = ╱37╱7╱ // 0x2a18 @0x8
0x2a10…2a29 at0009 = ╱fe0000e003╱ // 0x2a19 @0x9
0x2a10…2a29 at000e = ╱db╱ OR ╱ // 0x2a1e @0xe
0x2a10…2a29 at000f = ╱50╱P╱ // 0x2a1f @0xf
0x2a10…2a29 at0010 = ╱dc╱ = ╱ // 0x2a20 @0x10
0x2a10…2a29 at0011 = ╱e9╱ - ╱ // 0x2a21 @0x11
0x2a10…2a29 at0012 = ╱38╱8╱ // 0x2a22 @0x12
0x2a10…2a29 at0013 = ╱fe00008004╱ // 0x2a23 @0x13
0x2a10…2a29 at0018 = EOL // 0x2a28 @0x18
0x2a10…2a29 }
0x2a29…2a42 b18f 5060 IF P = - 7 THEN J0 = 0
0x2a29…2a42 LineComalBcd {
0x2a29…2a42 ptr = 0xb18f // 0x2a29 @0x0
0x2a29…2a42 lno = 0x5060 // 0x2a2b @0x2
0x2a29…2a42 at0004 = ╱82╱ IF ╱ // 0x2a2d @0x4
0x2a29…2a42 at0005 = ╱50╱P╱ // 0x2a2e @0x5
0x2a29…2a42 at0006 = ╱dc╱ = ╱ // 0x2a2f @0x6
0x2a29…2a42 at0007 = ╱e9╱ - ╱ // 0x2a30 @0x7
0x2a29…2a42 at0008 = ╱37╱7╱ // 0x2a31 @0x8
0x2a29…2a42 at0009 = ╱fe0000e003╱ // 0x2a32 @0x9
0x2a29…2a42 at000e = ╱b6╱ THEN ╱ // 0x2a37 @0xe
0x2a29…2a42 at000f = ╱4a╱J╱ // 0x2a38 @0xf
0x2a29…2a42 at0010 = ╱30╱0╱ // 0x2a39 @0x10
0x2a29…2a42 at0011 = ╱dc╱ = ╱ // 0x2a3a @0x11
0x2a29…2a42 at0012 = ╱30╱0╱ // 0x2a3b @0x12
0x2a29…2a42 at0013 = ╱fe00000000╱ // 0x2a3c @0x13
0x2a29…2a42 at0018 = EOL // 0x2a41 @0x18
0x2a29…2a42 }
0x2a42…2a48 b195 5070 ENDIF
0x2a42…2a48 LineComalBcd {
0x2a42…2a48 ptr = 0xb195 // 0x2a42 @0x0
0x2a42…2a48 lno = 0x5070 // 0x2a44 @0x2
0x2a42…2a48 at0004 = ╱9b╱ ENDIF ╱ // 0x2a46 @0x4
0x2a42…2a48 at0005 = EOL // 0x2a47 @0x5
0x2a42…2a48 }
0x2a48…2a4e b19b 5080 ELSE
0x2a48…2a4e LineComalBcd {
0x2a48…2a4e ptr = 0xb19b // 0x2a48 @0x0
0x2a48…2a4e lno = 0x5080 // 0x2a4a @0x2
0x2a48…2a4e at0004 = ╱9a╱ ELSE ╱ // 0x2a4c @0x4
0x2a48…2a4e at0005 = EOL // 0x2a4d @0x5
0x2a48…2a4e }
0x2a4e…2a54 b1a1 5090 STOP
0x2a4e…2a54 LineComalBcd {
0x2a4e…2a54 ptr = 0xb1a1 // 0x2a4e @0x0
0x2a4e…2a54 lno = 0x5090 // 0x2a50 @0x2
0x2a4e…2a54 at0004 = ╱8d╱ STOP ╱ // 0x2a52 @0x4
0x2a4e…2a54 at0005 = EOL // 0x2a53 @0x5
0x2a4e…2a54 }
0x2a54…2a5a b1a7 5100 ENDIF
0x2a54…2a5a LineComalBcd {
0x2a54…2a5a ptr = 0xb1a7 // 0x2a54 @0x0
0x2a54…2a5a lno = 0x5100 // 0x2a56 @0x2
0x2a54…2a5a at0004 = ╱9b╱ ENDIF ╱ // 0x2a58 @0x4
0x2a54…2a5a at0005 = EOL // 0x2a59 @0x5
0x2a54…2a5a }
0x2a5a…2a60 b1ad 5110 ENDPROC
0x2a5a…2a60 LineComalBcd {
0x2a5a…2a60 ptr = 0xb1ad // 0x2a5a @0x0
0x2a5a…2a60 lno = 0x5110 // 0x2a5c @0x2
0x2a5a…2a60 at0004 = ╱9f╱ ENDPROC ╱ // 0x2a5e @0x4
0x2a5a…2a60 at0005 = EOL // 0x2a5f @0x5
0x2a5a…2a60 }
0x2a60…2a6e b1bb 5120 PROC KLET ( O0 )
0x2a60…2a6e LineComalBcd {
0x2a60…2a6e ptr = 0xb1bb // 0x2a60 @0x0
0x2a60…2a6e lno = 0x5120 // 0x2a62 @0x2
0x2a60…2a6e at0004 = ╱9e╱ PROC ╱ // 0x2a64 @0x4
0x2a60…2a6e at0005 = ╱4b╱K╱ // 0x2a65 @0x5
0x2a60…2a6e at0006 = ╱4c╱L╱ // 0x2a66 @0x6
0x2a60…2a6e at0007 = ╱45╱E╱ // 0x2a67 @0x7
0x2a60…2a6e at0008 = ╱54╱T╱ // 0x2a68 @0x8
0x2a60…2a6e at0009 = ╱ed╱ ( ╱ // 0x2a69 @0x9
0x2a60…2a6e at000a = ╱4f╱O╱ // 0x2a6a @0xa
0x2a60…2a6e at000b = ╱30╱0╱ // 0x2a6b @0xb
0x2a60…2a6e at000c = ╱ee╱ ) ╱ // 0x2a6c @0xc
0x2a60…2a6e at000d = EOL // 0x2a6d @0xd
0x2a60…2a6e }
0x2a6e…2a78 b1c5 5130 CASE O0 OF
0x2a6e…2a78 LineComalBcd {
0x2a6e…2a78 ptr = 0xb1c5 // 0x2a6e @0x0
0x2a6e…2a78 lno = 0x5130 // 0x2a70 @0x2
0x2a6e…2a78 at0004 = ╱a201╱ CASE ╱ // 0x2a72 @0x4
0x2a6e…2a78 at0006 = ╱4f╱O╱ // 0x2a74 @0x6
0x2a6e…2a78 at0007 = ╱30╱0╱ // 0x2a75 @0x7
0x2a6e…2a78 at0008 = ╱ba╱ OF ╱ // 0x2a76 @0x8
0x2a6e…2a78 at0009 = EOL // 0x2a77 @0x9
0x2a6e…2a78 }
0x2a78…2a7e b1cb 5140 STOP
0x2a78…2a7e LineComalBcd {
0x2a78…2a7e ptr = 0xb1cb // 0x2a78 @0x0
0x2a78…2a7e lno = 0x5140 // 0x2a7a @0x2
0x2a78…2a7e at0004 = ╱8d╱ STOP ╱ // 0x2a7c @0x4
0x2a78…2a7e at0005 = EOL // 0x2a7d @0x5
0x2a78…2a7e }
0x2a7e…2a8b b1d8 5150 WHEN 1
0x2a7e…2a8b LineComalBcd {
0x2a7e…2a8b ptr = 0xb1d8 // 0x2a7e @0x0
0x2a7e…2a8b lno = 0x5150 // 0x2a80 @0x2
0x2a7e…2a8b at0004 = ╱a301╱ WHEN ╱ // 0x2a82 @0x4
0x2a7e…2a8b at0006 = ╱31╱1╱ // 0x2a84 @0x6
0x2a7e…2a8b at0007 = ╱fe00008001╱ // 0x2a85 @0x7
0x2a7e…2a8b at000c = EOL // 0x2a8a @0xc
0x2a7e…2a8b }
0x2a8b…2aa1 b1ee 5160 CURSOR 4 , H5 + 3
0x2a8b…2aa1 LineComalBcd {
0x2a8b…2aa1 ptr = 0xb1ee // 0x2a8b @0x0
0x2a8b…2aa1 lno = 0x5160 // 0x2a8d @0x2
0x2a8b…2aa1 at0004 = ╱a1╱ CURSOR ╱ // 0x2a8f @0x4
0x2a8b…2aa1 at0005 = ╱34╱4╱ // 0x2a90 @0x5
0x2a8b…2aa1 at0006 = ╱fe00008003╱ // 0x2a91 @0x6
0x2a8b…2aa1 at000b = ╱ec╱ , ╱ // 0x2a96 @0xb
0x2a8b…2aa1 at000c = ╱48╱H╱ // 0x2a97 @0xc
0x2a8b…2aa1 at000d = ╱35╱5╱ // 0x2a98 @0xd
0x2a8b…2aa1 at000e = ╱e2╱ + ╱ // 0x2a99 @0xe
0x2a8b…2aa1 at000f = ╱33╱3╱ // 0x2a9a @0xf
0x2a8b…2aa1 at0010 = ╱fe0000c002╱ // 0x2a9b @0x10
0x2a8b…2aa1 at0015 = EOL // 0x2aa0 @0x15
0x2a8b…2aa1 }
0x2aa1…2aba b207 5170 PRINT B7 $ ( 1 : 32 )
0x2aa1…2aba LineComalBcd {
0x2aa1…2aba ptr = 0xb207 // 0x2aa1 @0x0
0x2aa1…2aba lno = 0x5170 // 0x2aa3 @0x2
0x2aa1…2aba at0004 = ╱92╱ PRINT ╱ // 0x2aa5 @0x4
0x2aa1…2aba at0005 = ╱42╱B╱ // 0x2aa6 @0x5
0x2aa1…2aba at0006 = ╱37╱7╱ // 0x2aa7 @0x6
0x2aa1…2aba at0007 = ╱ef╱ $ ╱ // 0x2aa8 @0x7
0x2aa1…2aba at0008 = ╱ed╱ ( ╱ // 0x2aa9 @0x8
0x2aa1…2aba at0009 = ╱31╱1╱ // 0x2aaa @0x9
0x2aa1…2aba at000a = ╱fe00008001╱ // 0x2aab @0xa
0x2aa1…2aba at000f = ╱f0╱ : ╱ // 0x2ab0 @0xf
0x2aa1…2aba at0010 = ╱33╱3╱ // 0x2ab1 @0x10
0x2aa1…2aba at0011 = ╱32╱2╱ // 0x2ab2 @0x11
0x2aa1…2aba at0012 = ╱fe00008006╱ // 0x2ab3 @0x12
0x2aa1…2aba at0017 = ╱ee╱ ) ╱ // 0x2ab8 @0x17
0x2aa1…2aba at0018 = EOL // 0x2ab9 @0x18
0x2aa1…2aba }
0x2aba…2ac7 b214 5180 WHEN 2
0x2aba…2ac7 LineComalBcd {
0x2aba…2ac7 ptr = 0xb214 // 0x2aba @0x0
0x2aba…2ac7 lno = 0x5180 // 0x2abc @0x2
0x2aba…2ac7 at0004 = ╱a301╱ WHEN ╱ // 0x2abe @0x4
0x2aba…2ac7 at0006 = ╱32╱2╱ // 0x2ac0 @0x6
0x2aba…2ac7 at0007 = ╱fe00008002╱ // 0x2ac1 @0x7
0x2aba…2ac7 at000c = EOL // 0x2ac6 @0xc
0x2aba…2ac7 }
0x2ac7…2ade b22b 5190 CURSOR 38 , H5 + 3
0x2ac7…2ade LineComalBcd {
0x2ac7…2ade ptr = 0xb22b // 0x2ac7 @0x0
0x2ac7…2ade lno = 0x5190 // 0x2ac9 @0x2
0x2ac7…2ade at0004 = ╱a1╱ CURSOR ╱ // 0x2acb @0x4
0x2ac7…2ade at0005 = ╱33╱3╱ // 0x2acc @0x5
0x2ac7…2ade at0006 = ╱38╱8╱ // 0x2acd @0x6
0x2ac7…2ade at0007 = ╱fe00009806╱ // 0x2ace @0x7
0x2ac7…2ade at000c = ╱ec╱ , ╱ // 0x2ad3 @0xc
0x2ac7…2ade at000d = ╱48╱H╱ // 0x2ad4 @0xd
0x2ac7…2ade at000e = ╱35╱5╱ // 0x2ad5 @0xe
0x2ac7…2ade at000f = ╱e2╱ + ╱ // 0x2ad6 @0xf
0x2ac7…2ade at0010 = ╱33╱3╱ // 0x2ad7 @0x10
0x2ac7…2ade at0011 = ╱fe0000c002╱ // 0x2ad8 @0x11
0x2ac7…2ade at0016 = EOL // 0x2add @0x16
0x2ac7…2ade }
0x2ade…2aec b239 5200 PRINT "………………"
0x2ade…2aec LineComalBcd {
0x2ade…2aec ptr = 0xb239 // 0x2ade @0x0
0x2ade…2aec lno = 0x5200 // 0x2ae0 @0x2
0x2ade…2aec at0004 = ╱92╱ PRINT ╱ // 0x2ae2 @0x4
0x2ade…2aec at0005 = ╱22╱"╱ // 0x2ae3 @0x5
0x2ade…2aec at0006 = ╱20╱…╱ // 0x2ae4 @0x6
0x2ade…2aec at0007 = ╱20╱…╱ // 0x2ae5 @0x7
0x2ade…2aec at0008 = ╱20╱…╱ // 0x2ae6 @0x8
0x2ade…2aec at0009 = ╱20╱…╱ // 0x2ae7 @0x9
0x2ade…2aec at000a = ╱20╱…╱ // 0x2ae8 @0xa
0x2ade…2aec at000b = ╱20╱…╱ // 0x2ae9 @0xb
0x2ade…2aec at000c = ╱22╱"╱ // 0x2aea @0xc
0x2ade…2aec at000d = EOL // 0x2aeb @0xd
0x2ade…2aec }
0x2aec…2af9 b246 5210 WHEN 3
0x2aec…2af9 LineComalBcd {
0x2aec…2af9 ptr = 0xb246 // 0x2aec @0x0
0x2aec…2af9 lno = 0x5210 // 0x2aee @0x2
0x2aec…2af9 at0004 = ╱a301╱ WHEN ╱ // 0x2af0 @0x4
0x2aec…2af9 at0006 = ╱33╱3╱ // 0x2af2 @0x6
0x2aec…2af9 at0007 = ╱fe0000c002╱ // 0x2af3 @0x7
0x2aec…2af9 at000c = EOL // 0x2af8 @0xc
0x2aec…2af9 }
0x2af9…2b10 b25d 5220 CURSOR 46 , H5 + 3
0x2af9…2b10 LineComalBcd {
0x2af9…2b10 ptr = 0xb25d // 0x2af9 @0x0
0x2af9…2b10 lno = 0x5220 // 0x2afb @0x2
0x2af9…2b10 at0004 = ╱a1╱ CURSOR ╱ // 0x2afd @0x4
0x2af9…2b10 at0005 = ╱34╱4╱ // 0x2afe @0x5
0x2af9…2b10 at0006 = ╱36╱6╱ // 0x2aff @0x6
0x2af9…2b10 at0007 = ╱fe0000b806╱ // 0x2b00 @0x7
0x2af9…2b10 at000c = ╱ec╱ , ╱ // 0x2b05 @0xc
0x2af9…2b10 at000d = ╱48╱H╱ // 0x2b06 @0xd
0x2af9…2b10 at000e = ╱35╱5╱ // 0x2b07 @0xe
0x2af9…2b10 at000f = ╱e2╱ + ╱ // 0x2b08 @0xf
0x2af9…2b10 at0010 = ╱33╱3╱ // 0x2b09 @0x10
0x2af9…2b10 at0011 = ╱fe0000c002╱ // 0x2b0a @0x11
0x2af9…2b10 at0016 = EOL // 0x2b0f @0x16
0x2af9…2b10 }
0x2b10…2b29 b276 5230 PRINT B7 $ ( 1 : 28 )
0x2b10…2b29 LineComalBcd {
0x2b10…2b29 ptr = 0xb276 // 0x2b10 @0x0
0x2b10…2b29 lno = 0x5230 // 0x2b12 @0x2
0x2b10…2b29 at0004 = ╱92╱ PRINT ╱ // 0x2b14 @0x4
0x2b10…2b29 at0005 = ╱42╱B╱ // 0x2b15 @0x5
0x2b10…2b29 at0006 = ╱37╱7╱ // 0x2b16 @0x6
0x2b10…2b29 at0007 = ╱ef╱ $ ╱ // 0x2b17 @0x7
0x2b10…2b29 at0008 = ╱ed╱ ( ╱ // 0x2b18 @0x8
0x2b10…2b29 at0009 = ╱31╱1╱ // 0x2b19 @0x9
0x2b10…2b29 at000a = ╱fe00008001╱ // 0x2b1a @0xa
0x2b10…2b29 at000f = ╱f0╱ : ╱ // 0x2b1f @0xf
0x2b10…2b29 at0010 = ╱32╱2╱ // 0x2b20 @0x10
0x2b10…2b29 at0011 = ╱38╱8╱ // 0x2b21 @0x11
0x2b10…2b29 at0012 = ╱fe0000e005╱ // 0x2b22 @0x12
0x2b10…2b29 at0017 = ╱ee╱ ) ╱ // 0x2b27 @0x17
0x2b10…2b29 at0018 = EOL // 0x2b28 @0x18
0x2b10…2b29 }
0x2b29…2b36 b283 5240 WHEN 4
0x2b29…2b36 LineComalBcd {
0x2b29…2b36 ptr = 0xb283 // 0x2b29 @0x0
0x2b29…2b36 lno = 0x5240 // 0x2b2b @0x2
0x2b29…2b36 at0004 = ╱a301╱ WHEN ╱ // 0x2b2d @0x4
0x2b29…2b36 at0006 = ╱34╱4╱ // 0x2b2f @0x6
0x2b29…2b36 at0007 = ╱fe00008003╱ // 0x2b30 @0x7
0x2b29…2b36 at000c = EOL // 0x2b35 @0xc
0x2b29…2b36 }
0x2b36…2b4d b29a 5250 CURSOR 77 , H5 + 3
0x2b36…2b4d LineComalBcd {
0x2b36…2b4d ptr = 0xb29a // 0x2b36 @0x0
0x2b36…2b4d lno = 0x5250 // 0x2b38 @0x2
0x2b36…2b4d at0004 = ╱a1╱ CURSOR ╱ // 0x2b3a @0x4
0x2b36…2b4d at0005 = ╱37╱7╱ // 0x2b3b @0x5
0x2b36…2b4d at0006 = ╱37╱7╱ // 0x2b3c @0x6
0x2b36…2b4d at0007 = ╱fe00009a07╱ // 0x2b3d @0x7
0x2b36…2b4d at000c = ╱ec╱ , ╱ // 0x2b42 @0xc
0x2b36…2b4d at000d = ╱48╱H╱ // 0x2b43 @0xd
0x2b36…2b4d at000e = ╱35╱5╱ // 0x2b44 @0xe
0x2b36…2b4d at000f = ╱e2╱ + ╱ // 0x2b45 @0xf
0x2b36…2b4d at0010 = ╱33╱3╱ // 0x2b46 @0x10
0x2b36…2b4d at0011 = ╱fe0000c002╱ // 0x2b47 @0x11
0x2b36…2b4d at0016 = EOL // 0x2b4c @0x16
0x2b36…2b4d }
0x2b4d…2b5e b2ab 5260 PRINT B7 $ ( 1 )
0x2b4d…2b5e LineComalBcd {
0x2b4d…2b5e ptr = 0xb2ab // 0x2b4d @0x0
0x2b4d…2b5e lno = 0x5260 // 0x2b4f @0x2
0x2b4d…2b5e at0004 = ╱92╱ PRINT ╱ // 0x2b51 @0x4
0x2b4d…2b5e at0005 = ╱42╱B╱ // 0x2b52 @0x5
0x2b4d…2b5e at0006 = ╱37╱7╱ // 0x2b53 @0x6
0x2b4d…2b5e at0007 = ╱ef╱ $ ╱ // 0x2b54 @0x7
0x2b4d…2b5e at0008 = ╱ed╱ ( ╱ // 0x2b55 @0x8
0x2b4d…2b5e at0009 = ╱31╱1╱ // 0x2b56 @0x9
0x2b4d…2b5e at000a = ╱fe00008001╱ // 0x2b57 @0xa
0x2b4d…2b5e at000f = ╱ee╱ ) ╱ // 0x2b5c @0xf
0x2b4d…2b5e at0010 = EOL // 0x2b5d @0x10
0x2b4d…2b5e }
0x2b5e…2b6b b2b8 5270 WHEN 5
0x2b5e…2b6b LineComalBcd {
0x2b5e…2b6b ptr = 0xb2b8 // 0x2b5e @0x0
0x2b5e…2b6b lno = 0x5270 // 0x2b60 @0x2
0x2b5e…2b6b at0004 = ╱a301╱ WHEN ╱ // 0x2b62 @0x4
0x2b5e…2b6b at0006 = ╱35╱5╱ // 0x2b64 @0x6
0x2b5e…2b6b at0007 = ╱fe0000a003╱ // 0x2b65 @0x7
0x2b5e…2b6b at000c = EOL // 0x2b6a @0xc
0x2b5e…2b6b }
0x2b6b…2b81 b2ce 5280 CURSOR 4 , H5 + 3
0x2b6b…2b81 LineComalBcd {
0x2b6b…2b81 ptr = 0xb2ce // 0x2b6b @0x0
0x2b6b…2b81 lno = 0x5280 // 0x2b6d @0x2
0x2b6b…2b81 at0004 = ╱a1╱ CURSOR ╱ // 0x2b6f @0x4
0x2b6b…2b81 at0005 = ╱34╱4╱ // 0x2b70 @0x5
0x2b6b…2b81 at0006 = ╱fe00008003╱ // 0x2b71 @0x6
0x2b6b…2b81 at000b = ╱ec╱ , ╱ // 0x2b76 @0xb
0x2b6b…2b81 at000c = ╱48╱H╱ // 0x2b77 @0xc
0x2b6b…2b81 at000d = ╱35╱5╱ // 0x2b78 @0xd
0x2b6b…2b81 at000e = ╱e2╱ + ╱ // 0x2b79 @0xe
0x2b6b…2b81 at000f = ╱33╱3╱ // 0x2b7a @0xf
0x2b6b…2b81 at0010 = ╱fe0000c002╱ // 0x2b7b @0x10
0x2b6b…2b81 at0015 = EOL // 0x2b80 @0x15
0x2b6b…2b81 }
0x2b81…2b8a b2d7 5290 PRINT B7 $
0x2b81…2b8a LineComalBcd {
0x2b81…2b8a ptr = 0xb2d7 // 0x2b81 @0x0
0x2b81…2b8a lno = 0x5290 // 0x2b83 @0x2
0x2b81…2b8a at0004 = ╱92╱ PRINT ╱ // 0x2b85 @0x4
0x2b81…2b8a at0005 = ╱42╱B╱ // 0x2b86 @0x5
0x2b81…2b8a at0006 = ╱37╱7╱ // 0x2b87 @0x6
0x2b81…2b8a at0007 = ╱ef╱ $ ╱ // 0x2b88 @0x7
0x2b81…2b8a at0008 = EOL // 0x2b89 @0x8
0x2b81…2b8a }
0x2b8a…2b90 b2dd 5300 ENDCASE
0x2b8a…2b90 LineComalBcd {
0x2b8a…2b90 ptr = 0xb2dd // 0x2b8a @0x0
0x2b8a…2b90 lno = 0x5300 // 0x2b8c @0x2
0x2b8a…2b90 at0004 = ╱a4╱ ENDCASE ╱ // 0x2b8e @0x4
0x2b8a…2b90 at0005 = EOL // 0x2b8f @0x5
0x2b8a…2b90 }
0x2b90…2b96 b2e3 5310 ENDPROC
0x2b90…2b96 LineComalBcd {
0x2b90…2b96 ptr = 0xb2e3 // 0x2b90 @0x0
0x2b90…2b96 lno = 0x5310 // 0x2b92 @0x2
0x2b90…2b96 at0004 = ╱9f╱ ENDPROC ╱ // 0x2b94 @0x4
0x2b90…2b96 at0005 = EOL // 0x2b95 @0x5
0x2b90…2b96 }
0x2b96…2ba3 b2f0 5320 PROC FORTEGN
0x2b96…2ba3 LineComalBcd {
0x2b96…2ba3 ptr = 0xb2f0 // 0x2b96 @0x0
0x2b96…2ba3 lno = 0x5320 // 0x2b98 @0x2
0x2b96…2ba3 at0004 = ╱9e╱ PROC ╱ // 0x2b9a @0x4
0x2b96…2ba3 at0005 = ╱46╱F╱ // 0x2b9b @0x5
0x2b96…2ba3 at0006 = ╱4f╱O╱ // 0x2b9c @0x6
0x2b96…2ba3 at0007 = ╱52╱R╱ // 0x2b9d @0x7
0x2b96…2ba3 at0008 = ╱54╱T╱ // 0x2b9e @0x8
0x2b96…2ba3 at0009 = ╱45╱E╱ // 0x2b9f @0x9
0x2b96…2ba3 at000a = ╱47╱G╱ // 0x2ba0 @0xa
0x2b96…2ba3 at000b = ╱4e╱N╱ // 0x2ba1 @0xb
0x2b96…2ba3 at000c = EOL // 0x2ba2 @0xc
0x2b96…2ba3 }
0x2ba3…2bb1 b2fe 5330 I5 = LEN ( F3 $ )
0x2ba3…2bb1 LineComalBcd {
0x2ba3…2bb1 ptr = 0xb2fe // 0x2ba3 @0x0
0x2ba3…2bb1 lno = 0x5330 // 0x2ba5 @0x2
0x2ba3…2bb1 at0004 = ╱49╱I╱ // 0x2ba7 @0x4
0x2ba3…2bb1 at0005 = ╱35╱5╱ // 0x2ba8 @0x5
0x2ba3…2bb1 at0006 = ╱dc╱ = ╱ // 0x2ba9 @0x6
0x2ba3…2bb1 at0007 = ╱cc╱ LEN ╱ // 0x2baa @0x7
0x2ba3…2bb1 at0008 = ╱ed╱ ( ╱ // 0x2bab @0x8
0x2ba3…2bb1 at0009 = ╱46╱F╱ // 0x2bac @0x9
0x2ba3…2bb1 at000a = ╱33╱3╱ // 0x2bad @0xa
0x2ba3…2bb1 at000b = ╱ef╱ $ ╱ // 0x2bae @0xb
0x2ba3…2bb1 at000c = ╱ee╱ ) ╱ // 0x2baf @0xc
0x2ba3…2bb1 at000d = EOL // 0x2bb0 @0xd
0x2ba3…2bb1 }
0x2bb1…2bc9 b316 5340 IF I5 = 0 THEN F3 $ = "0+"
0x2bb1…2bc9 LineComalBcd {
0x2bb1…2bc9 ptr = 0xb316 // 0x2bb1 @0x0
0x2bb1…2bc9 lno = 0x5340 // 0x2bb3 @0x2
0x2bb1…2bc9 at0004 = ╱82╱ IF ╱ // 0x2bb5 @0x4
0x2bb1…2bc9 at0005 = ╱49╱I╱ // 0x2bb6 @0x5
0x2bb1…2bc9 at0006 = ╱35╱5╱ // 0x2bb7 @0x6
0x2bb1…2bc9 at0007 = ╱dc╱ = ╱ // 0x2bb8 @0x7
0x2bb1…2bc9 at0008 = ╱30╱0╱ // 0x2bb9 @0x8
0x2bb1…2bc9 at0009 = ╱fe00000000╱ // 0x2bba @0x9
0x2bb1…2bc9 at000e = ╱b6╱ THEN ╱ // 0x2bbf @0xe
0x2bb1…2bc9 at000f = ╱46╱F╱ // 0x2bc0 @0xf
0x2bb1…2bc9 at0010 = ╱33╱3╱ // 0x2bc1 @0x10
0x2bb1…2bc9 at0011 = ╱ef╱ $ ╱ // 0x2bc2 @0x11
0x2bb1…2bc9 at0012 = ╱dc╱ = ╱ // 0x2bc3 @0x12
0x2bb1…2bc9 at0013 = ╱22╱"╱ // 0x2bc4 @0x13
0x2bb1…2bc9 at0014 = ╱30╱0╱ // 0x2bc5 @0x14
0x2bb1…2bc9 at0015 = ╱2b╱+╱ // 0x2bc6 @0x15
0x2bb1…2bc9 at0016 = ╱22╱"╱ // 0x2bc7 @0x16
0x2bb1…2bc9 at0017 = EOL // 0x2bc8 @0x17
0x2bb1…2bc9 }
0x2bc9…2be7 b334 5350 IF F3 $ ( I5 ) >< "+" AND F3 $ ( I5 ) >< "-" THEN
0x2bc9…2be7 LineComalBcd {
0x2bc9…2be7 ptr = 0xb334 // 0x2bc9 @0x0
0x2bc9…2be7 lno = 0x5350 // 0x2bcb @0x2
0x2bc9…2be7 at0004 = ╱9c╱ IF ╱ // 0x2bcd @0x4
0x2bc9…2be7 at0005 = ╱46╱F╱ // 0x2bce @0x5
0x2bc9…2be7 at0006 = ╱33╱3╱ // 0x2bcf @0x6
0x2bc9…2be7 at0007 = ╱ef╱ $ ╱ // 0x2bd0 @0x7
0x2bc9…2be7 at0008 = ╱ed╱ ( ╱ // 0x2bd1 @0x8
0x2bc9…2be7 at0009 = ╱49╱I╱ // 0x2bd2 @0x9
0x2bc9…2be7 at000a = ╱35╱5╱ // 0x2bd3 @0xa
0x2bc9…2be7 at000b = ╱ee╱ ) ╱ // 0x2bd4 @0xb
0x2bc9…2be7 at000c = ╱e1╱ >< ╱ // 0x2bd5 @0xc
0x2bc9…2be7 at000d = ╱22╱"╱ // 0x2bd6 @0xd
0x2bc9…2be7 at000e = ╱2b╱+╱ // 0x2bd7 @0xe
0x2bc9…2be7 at000f = ╱22╱"╱ // 0x2bd8 @0xf
0x2bc9…2be7 at0010 = ╱da╱ AND ╱ // 0x2bd9 @0x10
0x2bc9…2be7 at0011 = ╱46╱F╱ // 0x2bda @0x11
0x2bc9…2be7 at0012 = ╱33╱3╱ // 0x2bdb @0x12
0x2bc9…2be7 at0013 = ╱ef╱ $ ╱ // 0x2bdc @0x13
0x2bc9…2be7 at0014 = ╱ed╱ ( ╱ // 0x2bdd @0x14
0x2bc9…2be7 at0015 = ╱49╱I╱ // 0x2bde @0x15
0x2bc9…2be7 at0016 = ╱35╱5╱ // 0x2bdf @0x16
0x2bc9…2be7 at0017 = ╱ee╱ ) ╱ // 0x2be0 @0x17
0x2bc9…2be7 at0018 = ╱e1╱ >< ╱ // 0x2be1 @0x18
0x2bc9…2be7 at0019 = ╱22╱"╱ // 0x2be2 @0x19
0x2bc9…2be7 at001a = ╱2d╱-╱ // 0x2be3 @0x1a
0x2bc9…2be7 at001b = ╱22╱"╱ // 0x2be4 @0x1b
0x2bc9…2be7 at001c = ╱b6╱ THEN ╱ // 0x2be5 @0x1c
0x2bc9…2be7 at001d = EOL // 0x2be6 @0x1d
0x2bc9…2be7 }
0x2be7…2bf7 b344 5360 F3 $ = F3 $ + "+"
0x2be7…2bf7 LineComalBcd {
0x2be7…2bf7 ptr = 0xb344 // 0x2be7 @0x0
0x2be7…2bf7 lno = 0x5360 // 0x2be9 @0x2
0x2be7…2bf7 at0004 = ╱46╱F╱ // 0x2beb @0x4
0x2be7…2bf7 at0005 = ╱33╱3╱ // 0x2bec @0x5
0x2be7…2bf7 at0006 = ╱ef╱ $ ╱ // 0x2bed @0x6
0x2be7…2bf7 at0007 = ╱dc╱ = ╱ // 0x2bee @0x7
0x2be7…2bf7 at0008 = ╱46╱F╱ // 0x2bef @0x8
0x2be7…2bf7 at0009 = ╱33╱3╱ // 0x2bf0 @0x9
0x2be7…2bf7 at000a = ╱ef╱ $ ╱ // 0x2bf1 @0xa
0x2be7…2bf7 at000b = ╱f1╱ + ╱ // 0x2bf2 @0xb
0x2be7…2bf7 at000c = ╱22╱"╱ // 0x2bf3 @0xc
0x2be7…2bf7 at000d = ╱2b╱+╱ // 0x2bf4 @0xd
0x2be7…2bf7 at000e = ╱22╱"╱ // 0x2bf5 @0xe
0x2be7…2bf7 at000f = EOL // 0x2bf6 @0xf
0x2be7…2bf7 }
0x2bf7…2bfd b34a 5370 ENDIF
0x2bf7…2bfd LineComalBcd {
0x2bf7…2bfd ptr = 0xb34a // 0x2bf7 @0x0
0x2bf7…2bfd lno = 0x5370 // 0x2bf9 @0x2
0x2bf7…2bfd at0004 = ╱9b╱ ENDIF ╱ // 0x2bfb @0x4
0x2bf7…2bfd at0005 = EOL // 0x2bfc @0x5
0x2bf7…2bfd }
0x2bfd…2c03 b350 5380 ENDPROC
0x2bfd…2c03 LineComalBcd {
0x2bfd…2c03 ptr = 0xb350 // 0x2bfd @0x0
0x2bfd…2c03 lno = 0x5380 // 0x2bff @0x2
0x2bfd…2c03 at0004 = ╱9f╱ ENDPROC ╱ // 0x2c01 @0x4
0x2bfd…2c03 at0005 = EOL // 0x2c02 @0x5
0x2bfd…2c03 }
0x2c03…2c10 b35d 5390 PROC UDHOVED
0x2c03…2c10 LineComalBcd {
0x2c03…2c10 ptr = 0xb35d // 0x2c03 @0x0
0x2c03…2c10 lno = 0x5390 // 0x2c05 @0x2
0x2c03…2c10 at0004 = ╱9e╱ PROC ╱ // 0x2c07 @0x4
0x2c03…2c10 at0005 = ╱55╱U╱ // 0x2c08 @0x5
0x2c03…2c10 at0006 = ╱44╱D╱ // 0x2c09 @0x6
0x2c03…2c10 at0007 = ╱48╱H╱ // 0x2c0a @0x7
0x2c03…2c10 at0008 = ╱4f╱O╱ // 0x2c0b @0x8
0x2c03…2c10 at0009 = ╱56╱V╱ // 0x2c0c @0x9
0x2c03…2c10 at000a = ╱45╱E╱ // 0x2c0d @0xa
0x2c03…2c10 at000b = ╱44╱D╱ // 0x2c0e @0xb
0x2c03…2c10 at000c = EOL // 0x2c0f @0xc
0x2c03…2c10 }
0x2c10…2c24 b371 5400 CURSOR 35 , 1
0x2c10…2c24 LineComalBcd {
0x2c10…2c24 ptr = 0xb371 // 0x2c10 @0x0
0x2c10…2c24 lno = 0x5400 // 0x2c12 @0x2
0x2c10…2c24 at0004 = ╱a1╱ CURSOR ╱ // 0x2c14 @0x4
0x2c10…2c24 at0005 = ╱33╱3╱ // 0x2c15 @0x5
0x2c10…2c24 at0006 = ╱35╱5╱ // 0x2c16 @0x6
0x2c10…2c24 at0007 = ╱fe00008c06╱ // 0x2c17 @0x7
0x2c10…2c24 at000c = ╱ec╱ , ╱ // 0x2c1c @0xc
0x2c10…2c24 at000d = ╱31╱1╱ // 0x2c1d @0xd
0x2c10…2c24 at000e = ╱fe00008001╱ // 0x2c1e @0xe
0x2c10…2c24 at0013 = EOL // 0x2c23 @0x13
0x2c10…2c24 }
0x2c24…2c4b b398 5410 PRINT "Kasserapport" ; TAB ( 30 ) ; "Dato:"
0x2c24…2c4b LineComalBcd {
0x2c24…2c4b ptr = 0xb398 // 0x2c24 @0x0
0x2c24…2c4b lno = 0x5410 // 0x2c26 @0x2
0x2c24…2c4b at0004 = ╱92╱ PRINT ╱ // 0x2c28 @0x4
0x2c24…2c4b at0005 = ╱22╱"╱ // 0x2c29 @0x5
0x2c24…2c4b at0006 = ╱4b╱K╱ // 0x2c2a @0x6
0x2c24…2c4b at0007 = ╱61╱a╱ // 0x2c2b @0x7
0x2c24…2c4b at0008 = ╱73╱s╱ // 0x2c2c @0x8
0x2c24…2c4b at0009 = ╱73╱s╱ // 0x2c2d @0x9
0x2c24…2c4b at000a = ╱65╱e╱ // 0x2c2e @0xa
0x2c24…2c4b at000b = ╱72╱r╱ // 0x2c2f @0xb
0x2c24…2c4b at000c = ╱61╱a╱ // 0x2c30 @0xc
0x2c24…2c4b at000d = ╱70╱p╱ // 0x2c31 @0xd
0x2c24…2c4b at000e = ╱70╱p╱ // 0x2c32 @0xe
0x2c24…2c4b at000f = ╱6f╱o╱ // 0x2c33 @0xf
0x2c24…2c4b at0010 = ╱72╱r╱ // 0x2c34 @0x10
0x2c24…2c4b at0011 = ╱74╱t╱ // 0x2c35 @0x11
0x2c24…2c4b at0012 = ╱22╱"╱ // 0x2c36 @0x12
0x2c24…2c4b at0013 = ╱eb╱ ; ╱ // 0x2c37 @0x13
0x2c24…2c4b at0014 = ╱d2╱ TAB ╱ // 0x2c38 @0x14
0x2c24…2c4b at0015 = ╱ed╱ ( ╱ // 0x2c39 @0x15
0x2c24…2c4b at0016 = ╱33╱3╱ // 0x2c3a @0x16
0x2c24…2c4b at0017 = ╱30╱0╱ // 0x2c3b @0x17
0x2c24…2c4b at0018 = ╱fe0000f005╱ // 0x2c3c @0x18
0x2c24…2c4b at001d = ╱ee╱ ) ╱ // 0x2c41 @0x1d
0x2c24…2c4b at001e = ╱eb╱ ; ╱ // 0x2c42 @0x1e
0x2c24…2c4b at001f = ╱22╱"╱ // 0x2c43 @0x1f
0x2c24…2c4b at0020 = ╱44╱D╱ // 0x2c44 @0x20
0x2c24…2c4b at0021 = ╱61╱a╱ // 0x2c45 @0x21
0x2c24…2c4b at0022 = ╱74╱t╱ // 0x2c46 @0x22
0x2c24…2c4b at0023 = ╱6f╱o╱ // 0x2c47 @0x23
0x2c24…2c4b at0024 = ╱3a╱:╱ // 0x2c48 @0x24
0x2c24…2c4b at0025 = ╱22╱"╱ // 0x2c49 @0x25
0x2c24…2c4b at0026 = EOL // 0x2c4a @0x26
0x2c24…2c4b }
0x2c4b…2c5f b3ac 5420 CURSOR 72 , 1
0x2c4b…2c5f LineComalBcd {
0x2c4b…2c5f ptr = 0xb3ac // 0x2c4b @0x0
0x2c4b…2c5f lno = 0x5420 // 0x2c4d @0x2
0x2c4b…2c5f at0004 = ╱a1╱ CURSOR ╱ // 0x2c4f @0x4
0x2c4b…2c5f at0005 = ╱37╱7╱ // 0x2c50 @0x5
0x2c4b…2c5f at0006 = ╱32╱2╱ // 0x2c51 @0x6
0x2c4b…2c5f at0007 = ╱fe00009007╱ // 0x2c52 @0x7
0x2c4b…2c5f at000c = ╱ec╱ , ╱ // 0x2c57 @0xc
0x2c4b…2c5f at000d = ╱31╱1╱ // 0x2c58 @0xd
0x2c4b…2c5f at000e = ╱fe00008001╱ // 0x2c59 @0xe
0x2c4b…2c5f at0013 = EOL // 0x2c5e @0x13
0x2c4b…2c5f }
0x2c5f…2c67 b3b4 5430 PRINT J6
0x2c5f…2c67 LineComalBcd {
0x2c5f…2c67 ptr = 0xb3b4 // 0x2c5f @0x0
0x2c5f…2c67 lno = 0x5430 // 0x2c61 @0x2
0x2c5f…2c67 at0004 = ╱92╱ PRINT ╱ // 0x2c63 @0x4
0x2c5f…2c67 at0005 = ╱4a╱J╱ // 0x2c64 @0x5
0x2c5f…2c67 at0006 = ╱36╱6╱ // 0x2c65 @0x6
0x2c5f…2c67 at0007 = EOL // 0x2c66 @0x7
0x2c5f…2c67 }
0x2c67…2c7a b3c7 5440 CURSOR 2 , 3
0x2c67…2c7a LineComalBcd {
0x2c67…2c7a ptr = 0xb3c7 // 0x2c67 @0x0
0x2c67…2c7a lno = 0x5440 // 0x2c69 @0x2
0x2c67…2c7a at0004 = ╱a1╱ CURSOR ╱ // 0x2c6b @0x4
0x2c67…2c7a at0005 = ╱32╱2╱ // 0x2c6c @0x5
0x2c67…2c7a at0006 = ╱fe00008002╱ // 0x2c6d @0x6
0x2c67…2c7a at000b = ╱ec╱ , ╱ // 0x2c72 @0xb
0x2c67…2c7a at000c = ╱33╱3╱ // 0x2c73 @0xc
0x2c67…2c7a at000d = ╱fe0000c002╱ // 0x2c74 @0xd
0x2c67…2c7a at0012 = EOL // 0x2c79 @0x12
0x2c67…2c7a }
0x2c7a…2cc0 b40d 5450 PRINT "Nr……Bilag…Tekst" ; TAB ( 38 ) ; "Konto…………………Debet………………………Kredit" ;
0x2c7a…2cc0 LineComalBcd {
0x2c7a…2cc0 ptr = 0xb40d // 0x2c7a @0x0
0x2c7a…2cc0 lno = 0x5450 // 0x2c7c @0x2
0x2c7a…2cc0 at0004 = ╱92╱ PRINT ╱ // 0x2c7e @0x4
0x2c7a…2cc0 at0005 = ╱22╱"╱ // 0x2c7f @0x5
0x2c7a…2cc0 at0006 = ╱4e╱N╱ // 0x2c80 @0x6
0x2c7a…2cc0 at0007 = ╱72╱r╱ // 0x2c81 @0x7
0x2c7a…2cc0 at0008 = ╱20╱…╱ // 0x2c82 @0x8
0x2c7a…2cc0 at0009 = ╱20╱…╱ // 0x2c83 @0x9
0x2c7a…2cc0 at000a = ╱42╱B╱ // 0x2c84 @0xa
0x2c7a…2cc0 at000b = ╱69╱i╱ // 0x2c85 @0xb
0x2c7a…2cc0 at000c = ╱6c╱l╱ // 0x2c86 @0xc
0x2c7a…2cc0 at000d = ╱61╱a╱ // 0x2c87 @0xd
0x2c7a…2cc0 at000e = ╱67╱g╱ // 0x2c88 @0xe
0x2c7a…2cc0 at000f = ╱20╱…╱ // 0x2c89 @0xf
0x2c7a…2cc0 at0010 = ╱54╱T╱ // 0x2c8a @0x10
0x2c7a…2cc0 at0011 = ╱65╱e╱ // 0x2c8b @0x11
0x2c7a…2cc0 at0012 = ╱6b╱k╱ // 0x2c8c @0x12
0x2c7a…2cc0 at0013 = ╱73╱s╱ // 0x2c8d @0x13
0x2c7a…2cc0 at0014 = ╱74╱t╱ // 0x2c8e @0x14
0x2c7a…2cc0 at0015 = ╱22╱"╱ // 0x2c8f @0x15
0x2c7a…2cc0 at0016 = ╱eb╱ ; ╱ // 0x2c90 @0x16
0x2c7a…2cc0 at0017 = ╱d2╱ TAB ╱ // 0x2c91 @0x17
0x2c7a…2cc0 at0018 = ╱ed╱ ( ╱ // 0x2c92 @0x18
0x2c7a…2cc0 at0019 = ╱33╱3╱ // 0x2c93 @0x19
0x2c7a…2cc0 at001a = ╱38╱8╱ // 0x2c94 @0x1a
0x2c7a…2cc0 at001b = ╱fe00009806╱ // 0x2c95 @0x1b
0x2c7a…2cc0 at0020 = ╱ee╱ ) ╱ // 0x2c9a @0x20
0x2c7a…2cc0 at0021 = ╱eb╱ ; ╱ // 0x2c9b @0x21
0x2c7a…2cc0 at0022 = ╱22╱"╱ // 0x2c9c @0x22
0x2c7a…2cc0 at0023 = ╱4b╱K╱ // 0x2c9d @0x23
0x2c7a…2cc0 at0024 = ╱6f╱o╱ // 0x2c9e @0x24
0x2c7a…2cc0 at0025 = ╱6e╱n╱ // 0x2c9f @0x25
0x2c7a…2cc0 at0026 = ╱74╱t╱ // 0x2ca0 @0x26
0x2c7a…2cc0 at0027 = ╱6f╱o╱ // 0x2ca1 @0x27
0x2c7a…2cc0 at0028 = ╱20╱…╱ // 0x2ca2 @0x28
0x2c7a…2cc0 at0029 = ╱20╱…╱ // 0x2ca3 @0x29
0x2c7a…2cc0 at002a = ╱20╱…╱ // 0x2ca4 @0x2a
0x2c7a…2cc0 at002b = ╱20╱…╱ // 0x2ca5 @0x2b
0x2c7a…2cc0 at002c = ╱20╱…╱ // 0x2ca6 @0x2c
0x2c7a…2cc0 at002d = ╱20╱…╱ // 0x2ca7 @0x2d
0x2c7a…2cc0 at002e = ╱20╱…╱ // 0x2ca8 @0x2e
0x2c7a…2cc0 at002f = ╱44╱D╱ // 0x2ca9 @0x2f
0x2c7a…2cc0 at0030 = ╱65╱e╱ // 0x2caa @0x30
0x2c7a…2cc0 at0031 = ╱62╱b╱ // 0x2cab @0x31
0x2c7a…2cc0 at0032 = ╱65╱e╱ // 0x2cac @0x32
0x2c7a…2cc0 at0033 = ╱74╱t╱ // 0x2cad @0x33
0x2c7a…2cc0 at0034 = ╱20╱…╱ // 0x2cae @0x34
0x2c7a…2cc0 at0035 = ╱20╱…╱ // 0x2caf @0x35
0x2c7a…2cc0 at0036 = ╱20╱…╱ // 0x2cb0 @0x36
0x2c7a…2cc0 at0037 = ╱20╱…╱ // 0x2cb1 @0x37
0x2c7a…2cc0 at0038 = ╱20╱…╱ // 0x2cb2 @0x38
0x2c7a…2cc0 at0039 = ╱20╱…╱ // 0x2cb3 @0x39
0x2c7a…2cc0 at003a = ╱20╱…╱ // 0x2cb4 @0x3a
0x2c7a…2cc0 at003b = ╱20╱…╱ // 0x2cb5 @0x3b
0x2c7a…2cc0 at003c = ╱20╱…╱ // 0x2cb6 @0x3c
0x2c7a…2cc0 at003d = ╱4b╱K╱ // 0x2cb7 @0x3d
0x2c7a…2cc0 at003e = ╱72╱r╱ // 0x2cb8 @0x3e
0x2c7a…2cc0 at003f = ╱65╱e╱ // 0x2cb9 @0x3f
0x2c7a…2cc0 at0040 = ╱64╱d╱ // 0x2cba @0x40
0x2c7a…2cc0 at0041 = ╱69╱i╱ // 0x2cbb @0x41
0x2c7a…2cc0 at0042 = ╱74╱t╱ // 0x2cbc @0x42
0x2c7a…2cc0 at0043 = ╱22╱"╱ // 0x2cbd @0x43
0x2c7a…2cc0 at0044 = ╱eb╱ ; ╱ // 0x2cbe @0x44
0x2c7a…2cc0 at0045 = EOL // 0x2cbf @0x45
0x2c7a…2cc0 }
0x2cc0…2cd0 b41d 5460 PRINT "…………Kode"
0x2cc0…2cd0 LineComalBcd {
0x2cc0…2cd0 ptr = 0xb41d // 0x2cc0 @0x0
0x2cc0…2cd0 lno = 0x5460 // 0x2cc2 @0x2
0x2cc0…2cd0 at0004 = ╱92╱ PRINT ╱ // 0x2cc4 @0x4
0x2cc0…2cd0 at0005 = ╱22╱"╱ // 0x2cc5 @0x5
0x2cc0…2cd0 at0006 = ╱20╱…╱ // 0x2cc6 @0x6
0x2cc0…2cd0 at0007 = ╱20╱…╱ // 0x2cc7 @0x7
0x2cc0…2cd0 at0008 = ╱20╱…╱ // 0x2cc8 @0x8
0x2cc0…2cd0 at0009 = ╱20╱…╱ // 0x2cc9 @0x9
0x2cc0…2cd0 at000a = ╱4b╱K╱ // 0x2cca @0xa
0x2cc0…2cd0 at000b = ╱6f╱o╱ // 0x2ccb @0xb
0x2cc0…2cd0 at000c = ╱64╱d╱ // 0x2ccc @0xc
0x2cc0…2cd0 at000d = ╱65╱e╱ // 0x2ccd @0xd
0x2cc0…2cd0 at000e = ╱22╱"╱ // 0x2cce @0xe
0x2cc0…2cd0 at000f = EOL // 0x2ccf @0xf
0x2cc0…2cd0 }
0x2cd0…2cd6 b423 5470 ENDPROC
0x2cd0…2cd6 LineComalBcd {
0x2cd0…2cd6 ptr = 0xb423 // 0x2cd0 @0x0
0x2cd0…2cd6 lno = 0x5470 // 0x2cd2 @0x2
0x2cd0…2cd6 at0004 = ╱9f╱ ENDPROC ╱ // 0x2cd4 @0x4
0x2cd0…2cd6 at0005 = EOL // 0x2cd5 @0x5
0x2cd0…2cd6 }
0x2cd6…2ce2 b42f 5480 PROC NYDATO
0x2cd6…2ce2 LineComalBcd {
0x2cd6…2ce2 ptr = 0xb42f // 0x2cd6 @0x0
0x2cd6…2ce2 lno = 0x5480 // 0x2cd8 @0x2
0x2cd6…2ce2 at0004 = ╱9e╱ PROC ╱ // 0x2cda @0x4
0x2cd6…2ce2 at0005 = ╱4e╱N╱ // 0x2cdb @0x5
0x2cd6…2ce2 at0006 = ╱59╱Y╱ // 0x2cdc @0x6
0x2cd6…2ce2 at0007 = ╱44╱D╱ // 0x2cdd @0x7
0x2cd6…2ce2 at0008 = ╱41╱A╱ // 0x2cde @0x8
0x2cd6…2ce2 at0009 = ╱54╱T╱ // 0x2cdf @0x9
0x2cd6…2ce2 at000a = ╱4f╱O╱ // 0x2ce0 @0xa
0x2cd6…2ce2 at000b = EOL // 0x2ce1 @0xb
0x2cd6…2ce2 }
0x2ce2…2ce8 b435 5490 REPEAT
0x2ce2…2ce8 LineComalBcd {
0x2ce2…2ce8 ptr = 0xb435 // 0x2ce2 @0x0
0x2ce2…2ce8 lno = 0x5490 // 0x2ce4 @0x2
0x2ce2…2ce8 at0004 = ╱97╱ REPEAT ╱ // 0x2ce6 @0x4
0x2ce2…2ce8 at0005 = EOL // 0x2ce7 @0x5
0x2ce2…2ce8 }
0x2ce8…2cfc b449 5500 CURSOR 3 , 23
0x2ce8…2cfc LineComalBcd {
0x2ce8…2cfc ptr = 0xb449 // 0x2ce8 @0x0
0x2ce8…2cfc lno = 0x5500 // 0x2cea @0x2
0x2ce8…2cfc at0004 = ╱a1╱ CURSOR ╱ // 0x2cec @0x4
0x2ce8…2cfc at0005 = ╱33╱3╱ // 0x2ced @0x5
0x2ce8…2cfc at0006 = ╱fe0000c002╱ // 0x2cee @0x6
0x2ce8…2cfc at000b = ╱ec╱ , ╱ // 0x2cf3 @0xb
0x2ce8…2cfc at000c = ╱32╱2╱ // 0x2cf4 @0xc
0x2ce8…2cfc at000d = ╱33╱3╱ // 0x2cf5 @0xd
0x2ce8…2cfc at000e = ╱fe0000b805╱ // 0x2cf6 @0xe
0x2ce8…2cfc at0013 = EOL // 0x2cfb @0x13
0x2ce8…2cfc }
0x2cfc…2d2f b47c 5510 PRINT "Ny…dato……………………(}}mmdd)" + B7 $ ( 1 : 54 )
0x2cfc…2d2f LineComalBcd {
0x2cfc…2d2f ptr = 0xb47c // 0x2cfc @0x0
0x2cfc…2d2f lno = 0x5510 // 0x2cfe @0x2
0x2cfc…2d2f at0004 = ╱92╱ PRINT ╱ // 0x2d00 @0x4
0x2cfc…2d2f at0005 = ╱22╱"╱ // 0x2d01 @0x5
0x2cfc…2d2f at0006 = ╱4e╱N╱ // 0x2d02 @0x6
0x2cfc…2d2f at0007 = ╱79╱y╱ // 0x2d03 @0x7
0x2cfc…2d2f at0008 = ╱20╱…╱ // 0x2d04 @0x8
0x2cfc…2d2f at0009 = ╱64╱d╱ // 0x2d05 @0x9
0x2cfc…2d2f at000a = ╱61╱a╱ // 0x2d06 @0xa
0x2cfc…2d2f at000b = ╱74╱t╱ // 0x2d07 @0xb
0x2cfc…2d2f at000c = ╱6f╱o╱ // 0x2d08 @0xc
0x2cfc…2d2f at000d = ╱20╱…╱ // 0x2d09 @0xd
0x2cfc…2d2f at000e = ╱20╱…╱ // 0x2d0a @0xe
0x2cfc…2d2f at000f = ╱20╱…╱ // 0x2d0b @0xf
0x2cfc…2d2f at0010 = ╱20╱…╱ // 0x2d0c @0x10
0x2cfc…2d2f at0011 = ╱20╱…╱ // 0x2d0d @0x11
0x2cfc…2d2f at0012 = ╱20╱…╱ // 0x2d0e @0x12
0x2cfc…2d2f at0013 = ╱20╱…╱ // 0x2d0f @0x13
0x2cfc…2d2f at0014 = ╱20╱…╱ // 0x2d10 @0x14
0x2cfc…2d2f at0015 = ╱28╱(╱ // 0x2d11 @0x15
0x2cfc…2d2f at0016 = ╱7d╱}╱ // 0x2d12 @0x16
0x2cfc…2d2f at0017 = ╱7d╱}╱ // 0x2d13 @0x17
0x2cfc…2d2f at0018 = ╱6d╱m╱ // 0x2d14 @0x18
0x2cfc…2d2f at0019 = ╱6d╱m╱ // 0x2d15 @0x19
0x2cfc…2d2f at001a = ╱64╱d╱ // 0x2d16 @0x1a
0x2cfc…2d2f at001b = ╱64╱d╱ // 0x2d17 @0x1b
0x2cfc…2d2f at001c = ╱29╱)╱ // 0x2d18 @0x1c
0x2cfc…2d2f at001d = ╱22╱"╱ // 0x2d19 @0x1d
0x2cfc…2d2f at001e = ╱f1╱ + ╱ // 0x2d1a @0x1e
0x2cfc…2d2f at001f = ╱42╱B╱ // 0x2d1b @0x1f
0x2cfc…2d2f at0020 = ╱37╱7╱ // 0x2d1c @0x20
0x2cfc…2d2f at0021 = ╱ef╱ $ ╱ // 0x2d1d @0x21
0x2cfc…2d2f at0022 = ╱ed╱ ( ╱ // 0x2d1e @0x22
0x2cfc…2d2f at0023 = ╱31╱1╱ // 0x2d1f @0x23
0x2cfc…2d2f at0024 = ╱fe00008001╱ // 0x2d20 @0x24
0x2cfc…2d2f at0029 = ╱f0╱ : ╱ // 0x2d25 @0x29
0x2cfc…2d2f at002a = ╱35╱5╱ // 0x2d26 @0x2a
0x2cfc…2d2f at002b = ╱34╱4╱ // 0x2d27 @0x2b
0x2cfc…2d2f at002c = ╱fe0000d806╱ // 0x2d28 @0x2c
0x2cfc…2d2f at0031 = ╱ee╱ ) ╱ // 0x2d2d @0x31
0x2cfc…2d2f at0032 = EOL // 0x2d2e @0x32
0x2cfc…2d2f }
0x2d2f…2d44 b491 5520 CURSOR 11 , 23
0x2d2f…2d44 LineComalBcd {
0x2d2f…2d44 ptr = 0xb491 // 0x2d2f @0x0
0x2d2f…2d44 lno = 0x5520 // 0x2d31 @0x2
0x2d2f…2d44 at0004 = ╱a1╱ CURSOR ╱ // 0x2d33 @0x4
0x2d2f…2d44 at0005 = ╱31╱1╱ // 0x2d34 @0x5
0x2d2f…2d44 at0006 = ╱31╱1╱ // 0x2d35 @0x6
0x2d2f…2d44 at0007 = ╱fe0000b004╱ // 0x2d36 @0x7
0x2d2f…2d44 at000c = ╱ec╱ , ╱ // 0x2d3b @0xc
0x2d2f…2d44 at000d = ╱32╱2╱ // 0x2d3c @0xd
0x2d2f…2d44 at000e = ╱33╱3╱ // 0x2d3d @0xe
0x2d2f…2d44 at000f = ╱fe0000b805╱ // 0x2d3e @0xf
0x2d2f…2d44 at0014 = EOL // 0x2d43 @0x14
0x2d2f…2d44 }
0x2d44…2d4d b49a 5530 INPUT D5 $
0x2d44…2d4d LineComalBcd {
0x2d44…2d4d ptr = 0xb49a // 0x2d44 @0x0
0x2d44…2d4d lno = 0x5530 // 0x2d46 @0x2
0x2d44…2d4d at0004 = ╱91╱ INPUT ╱ // 0x2d48 @0x4
0x2d44…2d4d at0005 = ╱44╱D╱ // 0x2d49 @0x5
0x2d44…2d4d at0006 = ╱35╱5╱ // 0x2d4a @0x6
0x2d44…2d4d at0007 = ╱ef╱ $ ╱ // 0x2d4b @0x7
0x2d44…2d4d at0008 = EOL // 0x2d4c @0x8
0x2d44…2d4d }
0x2d4d…2d5e b4ab 5540 EXEC NRTEST ( D5 $ )
0x2d4d…2d5e LineComalBcd {
0x2d4d…2d5e ptr = 0xb4ab // 0x2d4d @0x0
0x2d4d…2d5e lno = 0x5540 // 0x2d4f @0x2
0x2d4d…2d5e at0004 = ╱9d╱ EXEC ╱ // 0x2d51 @0x4
0x2d4d…2d5e at0005 = ╱4e╱N╱ // 0x2d52 @0x5
0x2d4d…2d5e at0006 = ╱52╱R╱ // 0x2d53 @0x6
0x2d4d…2d5e at0007 = ╱54╱T╱ // 0x2d54 @0x7
0x2d4d…2d5e at0008 = ╱45╱E╱ // 0x2d55 @0x8
0x2d4d…2d5e at0009 = ╱53╱S╱ // 0x2d56 @0x9
0x2d4d…2d5e at000a = ╱54╱T╱ // 0x2d57 @0xa
0x2d4d…2d5e at000b = ╱ed╱ ( ╱ // 0x2d58 @0xb
0x2d4d…2d5e at000c = ╱44╱D╱ // 0x2d59 @0xc
0x2d4d…2d5e at000d = ╱35╱5╱ // 0x2d5a @0xd
0x2d4d…2d5e at000e = ╱ef╱ $ ╱ // 0x2d5b @0xe
0x2d4d…2d5e at000f = ╱ee╱ ) ╱ // 0x2d5c @0xf
0x2d4d…2d5e at0010 = EOL // 0x2d5d @0x10
0x2d4d…2d5e }
0x2d5e…2da1 b4ee 5550 UNTIL I8 >= 80 AND ( P MOD 10000 ) DIV 100 < 13 AND P MOD 100 < 32
0x2d5e…2da1 LineComalBcd {
0x2d5e…2da1 ptr = 0xb4ee // 0x2d5e @0x0
0x2d5e…2da1 lno = 0x5550 // 0x2d60 @0x2
0x2d5e…2da1 at0004 = ╱98╱ UNTIL ╱ // 0x2d62 @0x4
0x2d5e…2da1 at0005 = ╱49╱I╱ // 0x2d63 @0x5
0x2d5e…2da1 at0006 = ╱38╱8╱ // 0x2d64 @0x6
0x2d5e…2da1 at0007 = ╱e0╱ >= ╱ // 0x2d65 @0x7
0x2d5e…2da1 at0008 = ╱38╱8╱ // 0x2d66 @0x8
0x2d5e…2da1 at0009 = ╱30╱0╱ // 0x2d67 @0x9
0x2d5e…2da1 at000a = ╱fe0000a007╱ // 0x2d68 @0xa
0x2d5e…2da1 at000f = ╱da╱ AND ╱ // 0x2d6d @0xf
0x2d5e…2da1 at0010 = ╱ed╱ ( ╱ // 0x2d6e @0x10
0x2d5e…2da1 at0011 = ╱50╱P╱ // 0x2d6f @0x11
0x2d5e…2da1 at0012 = ╱e8╱ MOD ╱ // 0x2d70 @0x12
0x2d5e…2da1 at0013 = ╱31╱1╱ // 0x2d71 @0x13
0x2d5e…2da1 at0014 = ╱30╱0╱ // 0x2d72 @0x14
0x2d5e…2da1 at0015 = ╱30╱0╱ // 0x2d73 @0x15
0x2d5e…2da1 at0016 = ╱30╱0╱ // 0x2d74 @0x16
0x2d5e…2da1 at0017 = ╱30╱0╱ // 0x2d75 @0x17
0x2d5e…2da1 at0018 = ╱fe00409c0e╱ // 0x2d76 @0x18
0x2d5e…2da1 at001d = ╱ee╱ ) ╱ // 0x2d7b @0x1d
0x2d5e…2da1 at001e = ╱e7╱ DIV ╱ // 0x2d7c @0x1e
0x2d5e…2da1 at001f = ╱31╱1╱ // 0x2d7d @0x1f
0x2d5e…2da1 at0020 = ╱30╱0╱ // 0x2d7e @0x20
0x2d5e…2da1 at0021 = ╱30╱0╱ // 0x2d7f @0x21
0x2d5e…2da1 at0022 = ╱fe0000c807╱ // 0x2d80 @0x22
0x2d5e…2da1 at0027 = ╱dd╱ < ╱ // 0x2d85 @0x27
0x2d5e…2da1 at0028 = ╱31╱1╱ // 0x2d86 @0x28
0x2d5e…2da1 at0029 = ╱33╱3╱ // 0x2d87 @0x29
0x2d5e…2da1 at002a = ╱fe0000d004╱ // 0x2d88 @0x2a
0x2d5e…2da1 at002f = ╱da╱ AND ╱ // 0x2d8d @0x2f
0x2d5e…2da1 at0030 = ╱50╱P╱ // 0x2d8e @0x30
0x2d5e…2da1 at0031 = ╱e8╱ MOD ╱ // 0x2d8f @0x31
0x2d5e…2da1 at0032 = ╱31╱1╱ // 0x2d90 @0x32
0x2d5e…2da1 at0033 = ╱30╱0╱ // 0x2d91 @0x33
0x2d5e…2da1 at0034 = ╱30╱0╱ // 0x2d92 @0x34
0x2d5e…2da1 at0035 = ╱fe0000c807╱ // 0x2d93 @0x35
0x2d5e…2da1 at003a = ╱dd╱ < ╱ // 0x2d98 @0x3a
0x2d5e…2da1 at003b = ╱33╱3╱ // 0x2d99 @0x3b
0x2d5e…2da1 at003c = ╱32╱2╱ // 0x2d9a @0x3c
0x2d5e…2da1 at003d = ╱fe00008006╱ // 0x2d9b @0x3d
0x2d5e…2da1 at0042 = EOL // 0x2da0 @0x42
0x2d5e…2da1 }
0x2da1…2daa b4f7 5560 J6 = P
0x2da1…2daa LineComalBcd {
0x2da1…2daa ptr = 0xb4f7 // 0x2da1 @0x0
0x2da1…2daa lno = 0x5560 // 0x2da3 @0x2
0x2da1…2daa at0004 = ╱4a╱J╱ // 0x2da5 @0x4
0x2da1…2daa at0005 = ╱36╱6╱ // 0x2da6 @0x5
0x2da1…2daa at0006 = ╱dc╱ = ╱ // 0x2da7 @0x6
0x2da1…2daa at0007 = ╱50╱P╱ // 0x2da8 @0x7
0x2da1…2daa at0008 = EOL // 0x2da9 @0x8
0x2da1…2daa }
0x2daa…2db0 b4fd 5570 ENDPROC
0x2daa…2db0 LineComalBcd {
0x2daa…2db0 ptr = 0xb4fd // 0x2daa @0x0
0x2daa…2db0 lno = 0x5570 // 0x2dac @0x2
0x2daa…2db0 at0004 = ╱9f╱ ENDPROC ╱ // 0x2dae @0x4
0x2daa…2db0 at0005 = EOL // 0x2daf @0x5
0x2daa…2db0 }
0x2db0…2dcd b51a 5580 PROC UDLINIE ( O1 , O2 , O3 , O4 , O5 )
0x2db0…2dcd LineComalBcd {
0x2db0…2dcd ptr = 0xb51a // 0x2db0 @0x0
0x2db0…2dcd lno = 0x5580 // 0x2db2 @0x2
0x2db0…2dcd at0004 = ╱9e╱ PROC ╱ // 0x2db4 @0x4
0x2db0…2dcd at0005 = ╱55╱U╱ // 0x2db5 @0x5
0x2db0…2dcd at0006 = ╱44╱D╱ // 0x2db6 @0x6
0x2db0…2dcd at0007 = ╱4c╱L╱ // 0x2db7 @0x7
0x2db0…2dcd at0008 = ╱49╱I╱ // 0x2db8 @0x8
0x2db0…2dcd at0009 = ╱4e╱N╱ // 0x2db9 @0x9
0x2db0…2dcd at000a = ╱49╱I╱ // 0x2dba @0xa
0x2db0…2dcd at000b = ╱45╱E╱ // 0x2dbb @0xb
0x2db0…2dcd at000c = ╱ed╱ ( ╱ // 0x2dbc @0xc
0x2db0…2dcd at000d = ╱4f╱O╱ // 0x2dbd @0xd
0x2db0…2dcd at000e = ╱31╱1╱ // 0x2dbe @0xe
0x2db0…2dcd at000f = ╱ec╱ , ╱ // 0x2dbf @0xf
0x2db0…2dcd at0010 = ╱4f╱O╱ // 0x2dc0 @0x10
0x2db0…2dcd at0011 = ╱32╱2╱ // 0x2dc1 @0x11
0x2db0…2dcd at0012 = ╱ec╱ , ╱ // 0x2dc2 @0x12
0x2db0…2dcd at0013 = ╱4f╱O╱ // 0x2dc3 @0x13
0x2db0…2dcd at0014 = ╱33╱3╱ // 0x2dc4 @0x14
0x2db0…2dcd at0015 = ╱ec╱ , ╱ // 0x2dc5 @0x15
0x2db0…2dcd at0016 = ╱4f╱O╱ // 0x2dc6 @0x16
0x2db0…2dcd at0017 = ╱34╱4╱ // 0x2dc7 @0x17
0x2db0…2dcd at0018 = ╱ec╱ , ╱ // 0x2dc8 @0x18
0x2db0…2dcd at0019 = ╱4f╱O╱ // 0x2dc9 @0x19
0x2db0…2dcd at001a = ╱35╱5╱ // 0x2dca @0x1a
0x2db0…2dcd at001b = ╱ee╱ ) ╱ // 0x2dcb @0x1b
0x2db0…2dcd at001c = EOL // 0x2dcc @0x1c
0x2db0…2dcd }
0x2dcd…2dd9 b526 5590 B8 $ = O4 $
0x2dcd…2dd9 LineComalBcd {
0x2dcd…2dd9 ptr = 0xb526 // 0x2dcd @0x0
0x2dcd…2dd9 lno = 0x5590 // 0x2dcf @0x2
0x2dcd…2dd9 at0004 = ╱42╱B╱ // 0x2dd1 @0x4
0x2dcd…2dd9 at0005 = ╱38╱8╱ // 0x2dd2 @0x5
0x2dcd…2dd9 at0006 = ╱ef╱ $ ╱ // 0x2dd3 @0x6
0x2dcd…2dd9 at0007 = ╱dc╱ = ╱ // 0x2dd4 @0x7
0x2dcd…2dd9 at0008 = ╱4f╱O╱ // 0x2dd5 @0x8
0x2dcd…2dd9 at0009 = ╱34╱4╱ // 0x2dd6 @0x9
0x2dcd…2dd9 at000a = ╱ef╱ $ ╱ // 0x2dd7 @0xa
0x2dcd…2dd9 at000b = EOL // 0x2dd8 @0xb
0x2dcd…2dd9 }
0x2dd9…2def b53c 5600 CURSOR 1 , H5 + 3
0x2dd9…2def LineComalBcd {
0x2dd9…2def ptr = 0xb53c // 0x2dd9 @0x0
0x2dd9…2def lno = 0x5600 // 0x2ddb @0x2
0x2dd9…2def at0004 = ╱a1╱ CURSOR ╱ // 0x2ddd @0x4
0x2dd9…2def at0005 = ╱31╱1╱ // 0x2dde @0x5
0x2dd9…2def at0006 = ╱fe00008001╱ // 0x2ddf @0x6
0x2dd9…2def at000b = ╱ec╱ , ╱ // 0x2de4 @0xb
0x2dd9…2def at000c = ╱48╱H╱ // 0x2de5 @0xc
0x2dd9…2def at000d = ╱35╱5╱ // 0x2de6 @0xd
0x2dd9…2def at000e = ╱e2╱ + ╱ // 0x2de7 @0xe
0x2dd9…2def at000f = ╱33╱3╱ // 0x2de8 @0xf
0x2dd9…2def at0010 = ╱fe0000c002╱ // 0x2de9 @0x10
0x2dd9…2def at0015 = EOL // 0x2dee @0x15
0x2dd9…2def }
0x2def…2dfe b54b 5610 PRINT USING "###" : H5
0x2def…2dfe LineComalBcd {
0x2def…2dfe ptr = 0xb54b // 0x2def @0x0
0x2def…2dfe lno = 0x5610 // 0x2df1 @0x2
0x2def…2dfe at0004 = ╱92╱ PRINT ╱ // 0x2df3 @0x4
0x2def…2dfe at0005 = ╱b9╱ USING ╱ // 0x2df4 @0x5
0x2def…2dfe at0006 = ╱22╱"╱ // 0x2df5 @0x6
0x2def…2dfe at0007 = ╱23╱#╱ // 0x2df6 @0x7
0x2def…2dfe at0008 = ╱23╱#╱ // 0x2df7 @0x8
0x2def…2dfe at0009 = ╱23╱#╱ // 0x2df8 @0x9
0x2def…2dfe at000a = ╱22╱"╱ // 0x2df9 @0xa
0x2def…2dfe at000b = ╱f0╱ : ╱ // 0x2dfa @0xb
0x2def…2dfe at000c = ╱48╱H╱ // 0x2dfb @0xc
0x2def…2dfe at000d = ╱35╱5╱ // 0x2dfc @0xd
0x2def…2dfe at000e = EOL // 0x2dfd @0xe
0x2def…2dfe }
0x2dfe…2e0f b55c 5620 IF O2 >< - 1 THEN
0x2dfe…2e0f LineComalBcd {
0x2dfe…2e0f ptr = 0xb55c // 0x2dfe @0x0
0x2dfe…2e0f lno = 0x5620 // 0x2e00 @0x2
0x2dfe…2e0f at0004 = ╱9c╱ IF ╱ // 0x2e02 @0x4
0x2dfe…2e0f at0005 = ╱4f╱O╱ // 0x2e03 @0x5
0x2dfe…2e0f at0006 = ╱32╱2╱ // 0x2e04 @0x6
0x2dfe…2e0f at0007 = ╱e1╱ >< ╱ // 0x2e05 @0x7
0x2dfe…2e0f at0008 = ╱e9╱ - ╱ // 0x2e06 @0x8
0x2dfe…2e0f at0009 = ╱31╱1╱ // 0x2e07 @0x9
0x2dfe…2e0f at000a = ╱fe00008001╱ // 0x2e08 @0xa
0x2dfe…2e0f at000f = ╱b6╱ THEN ╱ // 0x2e0d @0xf
0x2dfe…2e0f at0010 = EOL // 0x2e0e @0x10
0x2dfe…2e0f }
0x2e0f…2e25 b572 5630 CURSOR 4 , H5 + 3
0x2e0f…2e25 LineComalBcd {
0x2e0f…2e25 ptr = 0xb572 // 0x2e0f @0x0
0x2e0f…2e25 lno = 0x5630 // 0x2e11 @0x2
0x2e0f…2e25 at0004 = ╱a1╱ CURSOR ╱ // 0x2e13 @0x4
0x2e0f…2e25 at0005 = ╱34╱4╱ // 0x2e14 @0x5
0x2e0f…2e25 at0006 = ╱fe00008003╱ // 0x2e15 @0x6
0x2e0f…2e25 at000b = ╱ec╱ , ╱ // 0x2e1a @0xb
0x2e0f…2e25 at000c = ╱48╱H╱ // 0x2e1b @0xc
0x2e0f…2e25 at000d = ╱35╱5╱ // 0x2e1c @0xd
0x2e0f…2e25 at000e = ╱e2╱ + ╱ // 0x2e1d @0xe
0x2e0f…2e25 at000f = ╱33╱3╱ // 0x2e1e @0xf
0x2e0f…2e25 at0010 = ╱fe0000c002╱ // 0x2e1f @0x10
0x2e0f…2e25 at0015 = EOL // 0x2e24 @0x15
0x2e0f…2e25 }
0x2e25…2e38 b585 5640 PRINT USING "#######" : O2
0x2e25…2e38 LineComalBcd {
0x2e25…2e38 ptr = 0xb585 // 0x2e25 @0x0
0x2e25…2e38 lno = 0x5640 // 0x2e27 @0x2
0x2e25…2e38 at0004 = ╱92╱ PRINT ╱ // 0x2e29 @0x4
0x2e25…2e38 at0005 = ╱b9╱ USING ╱ // 0x2e2a @0x5
0x2e25…2e38 at0006 = ╱22╱"╱ // 0x2e2b @0x6
0x2e25…2e38 at0007 = ╱23╱#╱ // 0x2e2c @0x7
0x2e25…2e38 at0008 = ╱23╱#╱ // 0x2e2d @0x8
0x2e25…2e38 at0009 = ╱23╱#╱ // 0x2e2e @0x9
0x2e25…2e38 at000a = ╱23╱#╱ // 0x2e2f @0xa
0x2e25…2e38 at000b = ╱23╱#╱ // 0x2e30 @0xb
0x2e25…2e38 at000c = ╱23╱#╱ // 0x2e31 @0xc
0x2e25…2e38 at000d = ╱23╱#╱ // 0x2e32 @0xd
0x2e25…2e38 at000e = ╱22╱"╱ // 0x2e33 @0xe
0x2e25…2e38 at000f = ╱f0╱ : ╱ // 0x2e34 @0xf
0x2e25…2e38 at0010 = ╱4f╱O╱ // 0x2e35 @0x10
0x2e25…2e38 at0011 = ╱32╱2╱ // 0x2e36 @0x11
0x2e25…2e38 at0012 = EOL // 0x2e37 @0x12
0x2e25…2e38 }
0x2e38…2e3e b58b 5650 ENDIF
0x2e38…2e3e LineComalBcd {
0x2e38…2e3e ptr = 0xb58b // 0x2e38 @0x0
0x2e38…2e3e lno = 0x5650 // 0x2e3a @0x2
0x2e38…2e3e at0004 = ╱9b╱ ENDIF ╱ // 0x2e3c @0x4
0x2e38…2e3e at0005 = EOL // 0x2e3d @0x5
0x2e38…2e3e }
0x2e3e…2e55 b5a2 5660 CURSOR 12 , H5 + 3
0x2e3e…2e55 LineComalBcd {
0x2e3e…2e55 ptr = 0xb5a2 // 0x2e3e @0x0
0x2e3e…2e55 lno = 0x5660 // 0x2e40 @0x2
0x2e3e…2e55 at0004 = ╱a1╱ CURSOR ╱ // 0x2e42 @0x4
0x2e3e…2e55 at0005 = ╱31╱1╱ // 0x2e43 @0x5
0x2e3e…2e55 at0006 = ╱32╱2╱ // 0x2e44 @0x6
0x2e3e…2e55 at0007 = ╱fe0000c004╱ // 0x2e45 @0x7
0x2e3e…2e55 at000c = ╱ec╱ , ╱ // 0x2e4a @0xc
0x2e3e…2e55 at000d = ╱48╱H╱ // 0x2e4b @0xd
0x2e3e…2e55 at000e = ╱35╱5╱ // 0x2e4c @0xe
0x2e3e…2e55 at000f = ╱e2╱ + ╱ // 0x2e4d @0xf
0x2e3e…2e55 at0010 = ╱33╱3╱ // 0x2e4e @0x10
0x2e3e…2e55 at0011 = ╱fe0000c002╱ // 0x2e4f @0x11
0x2e3e…2e55 at0016 = EOL // 0x2e54 @0x16
0x2e3e…2e55 }
0x2e55…2e5e b5ab 5670 PRINT O3 $
0x2e55…2e5e LineComalBcd {
0x2e55…2e5e ptr = 0xb5ab // 0x2e55 @0x0
0x2e55…2e5e lno = 0x5670 // 0x2e57 @0x2
0x2e55…2e5e at0004 = ╱92╱ PRINT ╱ // 0x2e59 @0x4
0x2e55…2e5e at0005 = ╱4f╱O╱ // 0x2e5a @0x5
0x2e55…2e5e at0006 = ╱33╱3╱ // 0x2e5b @0x6
0x2e55…2e5e at0007 = ╱ef╱ $ ╱ // 0x2e5c @0x7
0x2e55…2e5e at0008 = EOL // 0x2e5d @0x8
0x2e55…2e5e }
0x2e5e…2e75 b5c2 5680 CURSOR 38 , H5 + 3
0x2e5e…2e75 LineComalBcd {
0x2e5e…2e75 ptr = 0xb5c2 // 0x2e5e @0x0
0x2e5e…2e75 lno = 0x5680 // 0x2e60 @0x2
0x2e5e…2e75 at0004 = ╱a1╱ CURSOR ╱ // 0x2e62 @0x4
0x2e5e…2e75 at0005 = ╱33╱3╱ // 0x2e63 @0x5
0x2e5e…2e75 at0006 = ╱38╱8╱ // 0x2e64 @0x6
0x2e5e…2e75 at0007 = ╱fe00009806╱ // 0x2e65 @0x7
0x2e5e…2e75 at000c = ╱ec╱ , ╱ // 0x2e6a @0xc
0x2e5e…2e75 at000d = ╱48╱H╱ // 0x2e6b @0xd
0x2e5e…2e75 at000e = ╱35╱5╱ // 0x2e6c @0xe
0x2e5e…2e75 at000f = ╱e2╱ + ╱ // 0x2e6d @0xf
0x2e5e…2e75 at0010 = ╱33╱3╱ // 0x2e6e @0x10
0x2e5e…2e75 at0011 = ╱fe0000c002╱ // 0x2e6f @0x11
0x2e5e…2e75 at0016 = EOL // 0x2e74 @0x16
0x2e5e…2e75 }
0x2e75…2e7d b5ca 5690 PRINT O1
0x2e75…2e7d LineComalBcd {
0x2e75…2e7d ptr = 0xb5ca // 0x2e75 @0x0
0x2e75…2e7d lno = 0x5690 // 0x2e77 @0x2
0x2e75…2e7d at0004 = ╱92╱ PRINT ╱ // 0x2e79 @0x4
0x2e75…2e7d at0005 = ╱4f╱O╱ // 0x2e7a @0x5
0x2e75…2e7d at0006 = ╱31╱1╱ // 0x2e7b @0x6
0x2e75…2e7d at0007 = EOL // 0x2e7c @0x7
0x2e75…2e7d }
0x2e7d…2e93 b5e0 5700 IF B8 $ ( LEN ( B8 $ ) ) = "+" THEN
0x2e7d…2e93 LineComalBcd {
0x2e7d…2e93 ptr = 0xb5e0 // 0x2e7d @0x0
0x2e7d…2e93 lno = 0x5700 // 0x2e7f @0x2
0x2e7d…2e93 at0004 = ╱9c╱ IF ╱ // 0x2e81 @0x4
0x2e7d…2e93 at0005 = ╱42╱B╱ // 0x2e82 @0x5
0x2e7d…2e93 at0006 = ╱38╱8╱ // 0x2e83 @0x6
0x2e7d…2e93 at0007 = ╱ef╱ $ ╱ // 0x2e84 @0x7
0x2e7d…2e93 at0008 = ╱ed╱ ( ╱ // 0x2e85 @0x8
0x2e7d…2e93 at0009 = ╱cc╱ LEN ╱ // 0x2e86 @0x9
0x2e7d…2e93 at000a = ╱ed╱ ( ╱ // 0x2e87 @0xa
0x2e7d…2e93 at000b = ╱42╱B╱ // 0x2e88 @0xb
0x2e7d…2e93 at000c = ╱38╱8╱ // 0x2e89 @0xc
0x2e7d…2e93 at000d = ╱ef╱ $ ╱ // 0x2e8a @0xd
0x2e7d…2e93 at000e = ╱ee╱ ) ╱ // 0x2e8b @0xe
0x2e7d…2e93 at000f = ╱ee╱ ) ╱ // 0x2e8c @0xf
0x2e7d…2e93 at0010 = ╱dc╱ = ╱ // 0x2e8d @0x10
0x2e7d…2e93 at0011 = ╱22╱"╱ // 0x2e8e @0x11
0x2e7d…2e93 at0012 = ╱2b╱+╱ // 0x2e8f @0x12
0x2e7d…2e93 at0013 = ╱22╱"╱ // 0x2e90 @0x13
0x2e7d…2e93 at0014 = ╱b6╱ THEN ╱ // 0x2e91 @0x14
0x2e7d…2e93 at0015 = EOL // 0x2e92 @0x15
0x2e7d…2e93 }
0x2e93…2eaa b5f7 5710 CURSOR 46 , H5 + 3
0x2e93…2eaa LineComalBcd {
0x2e93…2eaa ptr = 0xb5f7 // 0x2e93 @0x0
0x2e93…2eaa lno = 0x5710 // 0x2e95 @0x2
0x2e93…2eaa at0004 = ╱a1╱ CURSOR ╱ // 0x2e97 @0x4
0x2e93…2eaa at0005 = ╱34╱4╱ // 0x2e98 @0x5
0x2e93…2eaa at0006 = ╱36╱6╱ // 0x2e99 @0x6
0x2e93…2eaa at0007 = ╱fe0000b806╱ // 0x2e9a @0x7
0x2e93…2eaa at000c = ╱ec╱ , ╱ // 0x2e9f @0xc
0x2e93…2eaa at000d = ╱48╱H╱ // 0x2ea0 @0xd
0x2e93…2eaa at000e = ╱35╱5╱ // 0x2ea1 @0xe
0x2e93…2eaa at000f = ╱e2╱ + ╱ // 0x2ea2 @0xf
0x2e93…2eaa at0010 = ╱33╱3╱ // 0x2ea3 @0x10
0x2e93…2eaa at0011 = ╱fe0000c002╱ // 0x2ea4 @0x11
0x2e93…2eaa at0016 = EOL // 0x2ea9 @0x16
0x2e93…2eaa }
0x2eaa…2eb0 b5fd 5720 ELSE
0x2eaa…2eb0 LineComalBcd {
0x2eaa…2eb0 ptr = 0xb5fd // 0x2eaa @0x0
0x2eaa…2eb0 lno = 0x5720 // 0x2eac @0x2
0x2eaa…2eb0 at0004 = ╱9a╱ ELSE ╱ // 0x2eae @0x4
0x2eaa…2eb0 at0005 = EOL // 0x2eaf @0x5
0x2eaa…2eb0 }
0x2eb0…2ec7 b614 5730 CURSOR 61 , H5 + 3
0x2eb0…2ec7 LineComalBcd {
0x2eb0…2ec7 ptr = 0xb614 // 0x2eb0 @0x0
0x2eb0…2ec7 lno = 0x5730 // 0x2eb2 @0x2
0x2eb0…2ec7 at0004 = ╱a1╱ CURSOR ╱ // 0x2eb4 @0x4
0x2eb0…2ec7 at0005 = ╱36╱6╱ // 0x2eb5 @0x5
0x2eb0…2ec7 at0006 = ╱31╱1╱ // 0x2eb6 @0x6
0x2eb0…2ec7 at0007 = ╱fe0000f406╱ // 0x2eb7 @0x7
0x2eb0…2ec7 at000c = ╱ec╱ , ╱ // 0x2ebc @0xc
0x2eb0…2ec7 at000d = ╱48╱H╱ // 0x2ebd @0xd
0x2eb0…2ec7 at000e = ╱35╱5╱ // 0x2ebe @0xe
0x2eb0…2ec7 at000f = ╱e2╱ + ╱ // 0x2ebf @0xf
0x2eb0…2ec7 at0010 = ╱33╱3╱ // 0x2ec0 @0x10
0x2eb0…2ec7 at0011 = ╱fe0000c002╱ // 0x2ec1 @0x11
0x2eb0…2ec7 at0016 = EOL // 0x2ec6 @0x16
0x2eb0…2ec7 }
0x2ec7…2ecd b61a 5740 ENDIF
0x2ec7…2ecd LineComalBcd {
0x2ec7…2ecd ptr = 0xb61a // 0x2ec7 @0x0
0x2ec7…2ecd lno = 0x5740 // 0x2ec9 @0x2
0x2ec7…2ecd at0004 = ╱9b╱ ENDIF ╱ // 0x2ecb @0x4
0x2ec7…2ecd at0005 = EOL // 0x2ecc @0x5
0x2ec7…2ecd }
0x2ecd…2eed b63a 5750 EXEC TUD ( B8 $ , B8 $ , 0 , 0 )
0x2ecd…2eed LineComalBcd {
0x2ecd…2eed ptr = 0xb63a // 0x2ecd @0x0
0x2ecd…2eed lno = 0x5750 // 0x2ecf @0x2
0x2ecd…2eed at0004 = ╱9d╱ EXEC ╱ // 0x2ed1 @0x4
0x2ecd…2eed at0005 = ╱54╱T╱ // 0x2ed2 @0x5
0x2ecd…2eed at0006 = ╱55╱U╱ // 0x2ed3 @0x6
0x2ecd…2eed at0007 = ╱44╱D╱ // 0x2ed4 @0x7
0x2ecd…2eed at0008 = ╱ed╱ ( ╱ // 0x2ed5 @0x8
0x2ecd…2eed at0009 = ╱42╱B╱ // 0x2ed6 @0x9
0x2ecd…2eed at000a = ╱38╱8╱ // 0x2ed7 @0xa
0x2ecd…2eed at000b = ╱ef╱ $ ╱ // 0x2ed8 @0xb
0x2ecd…2eed at000c = ╱ec╱ , ╱ // 0x2ed9 @0xc
0x2ecd…2eed at000d = ╱42╱B╱ // 0x2eda @0xd
0x2ecd…2eed at000e = ╱38╱8╱ // 0x2edb @0xe
0x2ecd…2eed at000f = ╱ef╱ $ ╱ // 0x2edc @0xf
0x2ecd…2eed at0010 = ╱ec╱ , ╱ // 0x2edd @0x10
0x2ecd…2eed at0011 = ╱30╱0╱ // 0x2ede @0x11
0x2ecd…2eed at0012 = ╱fe00000000╱ // 0x2edf @0x12
0x2ecd…2eed at0017 = ╱ec╱ , ╱ // 0x2ee4 @0x17
0x2ecd…2eed at0018 = ╱30╱0╱ // 0x2ee5 @0x18
0x2ecd…2eed at0019 = ╱fe00000000╱ // 0x2ee6 @0x19
0x2ecd…2eed at001e = ╱ee╱ ) ╱ // 0x2eeb @0x1e
0x2ecd…2eed at001f = EOL // 0x2eec @0x1f
0x2ecd…2eed }
0x2eed…2ef6 b643 5760 PRINT B8 $
0x2eed…2ef6 LineComalBcd {
0x2eed…2ef6 ptr = 0xb643 // 0x2eed @0x0
0x2eed…2ef6 lno = 0x5760 // 0x2eef @0x2
0x2eed…2ef6 at0004 = ╱92╱ PRINT ╱ // 0x2ef1 @0x4
0x2eed…2ef6 at0005 = ╱42╱B╱ // 0x2ef2 @0x5
0x2eed…2ef6 at0006 = ╱38╱8╱ // 0x2ef3 @0x6
0x2eed…2ef6 at0007 = ╱ef╱ $ ╱ // 0x2ef4 @0x7
0x2eed…2ef6 at0008 = EOL // 0x2ef5 @0x8
0x2eed…2ef6 }
0x2ef6…2f0d b65a 5770 CURSOR 77 , H5 + 3
0x2ef6…2f0d LineComalBcd {
0x2ef6…2f0d ptr = 0xb65a // 0x2ef6 @0x0
0x2ef6…2f0d lno = 0x5770 // 0x2ef8 @0x2
0x2ef6…2f0d at0004 = ╱a1╱ CURSOR ╱ // 0x2efa @0x4
0x2ef6…2f0d at0005 = ╱37╱7╱ // 0x2efb @0x5
0x2ef6…2f0d at0006 = ╱37╱7╱ // 0x2efc @0x6
0x2ef6…2f0d at0007 = ╱fe00009a07╱ // 0x2efd @0x7
0x2ef6…2f0d at000c = ╱ec╱ , ╱ // 0x2f02 @0xc
0x2ef6…2f0d at000d = ╱48╱H╱ // 0x2f03 @0xd
0x2ef6…2f0d at000e = ╱35╱5╱ // 0x2f04 @0xe
0x2ef6…2f0d at000f = ╱e2╱ + ╱ // 0x2f05 @0xf
0x2ef6…2f0d at0010 = ╱33╱3╱ // 0x2f06 @0x10
0x2ef6…2f0d at0011 = ╱fe0000c002╱ // 0x2f07 @0x11
0x2ef6…2f0d at0016 = EOL // 0x2f0c @0x16
0x2ef6…2f0d }
0x2f0d…2f15 b662 5780 PRINT O5
0x2f0d…2f15 LineComalBcd {
0x2f0d…2f15 ptr = 0xb662 // 0x2f0d @0x0
0x2f0d…2f15 lno = 0x5780 // 0x2f0f @0x2
0x2f0d…2f15 at0004 = ╱92╱ PRINT ╱ // 0x2f11 @0x4
0x2f0d…2f15 at0005 = ╱4f╱O╱ // 0x2f12 @0x5
0x2f0d…2f15 at0006 = ╱35╱5╱ // 0x2f13 @0x6
0x2f0d…2f15 at0007 = EOL // 0x2f14 @0x7
0x2f0d…2f15 }
0x2f15…2f1b b668 5790 ENDPROC
0x2f15…2f1b LineComalBcd {
0x2f15…2f1b ptr = 0xb668 // 0x2f15 @0x0
0x2f15…2f1b lno = 0x5790 // 0x2f17 @0x2
0x2f15…2f1b at0004 = ╱9f╱ ENDPROC ╱ // 0x2f19 @0x4
0x2f15…2f1b at0005 = EOL // 0x2f1a @0x5
0x2f15…2f1b }
0x2f1b…2f2f b67c 5800 PROC FEJL ( O6 , O7 , O8 )
0x2f1b…2f2f LineComalBcd {
0x2f1b…2f2f ptr = 0xb67c // 0x2f1b @0x0
0x2f1b…2f2f lno = 0x5800 // 0x2f1d @0x2
0x2f1b…2f2f at0004 = ╱9e╱ PROC ╱ // 0x2f1f @0x4
0x2f1b…2f2f at0005 = ╱46╱F╱ // 0x2f20 @0x5
0x2f1b…2f2f at0006 = ╱45╱E╱ // 0x2f21 @0x6
0x2f1b…2f2f at0007 = ╱4a╱J╱ // 0x2f22 @0x7
0x2f1b…2f2f at0008 = ╱4c╱L╱ // 0x2f23 @0x8
0x2f1b…2f2f at0009 = ╱ed╱ ( ╱ // 0x2f24 @0x9
0x2f1b…2f2f at000a = ╱4f╱O╱ // 0x2f25 @0xa
0x2f1b…2f2f at000b = ╱36╱6╱ // 0x2f26 @0xb
0x2f1b…2f2f at000c = ╱ec╱ , ╱ // 0x2f27 @0xc
0x2f1b…2f2f at000d = ╱4f╱O╱ // 0x2f28 @0xd
0x2f1b…2f2f at000e = ╱37╱7╱ // 0x2f29 @0xe
0x2f1b…2f2f at000f = ╱ec╱ , ╱ // 0x2f2a @0xf
0x2f1b…2f2f at0010 = ╱4f╱O╱ // 0x2f2b @0x10
0x2f1b…2f2f at0011 = ╱38╱8╱ // 0x2f2c @0x11
0x2f1b…2f2f at0012 = ╱ee╱ ) ╱ // 0x2f2d @0x12
0x2f1b…2f2f at0013 = EOL // 0x2f2e @0x13
0x2f1b…2f2f }
0x2f2f…2f43 b690 5810 IF STATUS ( O8 $ ) >< 0 THEN
0x2f2f…2f43 LineComalBcd {
0x2f2f…2f43 ptr = 0xb690 // 0x2f2f @0x0
0x2f2f…2f43 lno = 0x5810 // 0x2f31 @0x2
0x2f2f…2f43 at0004 = ╱9c╱ IF ╱ // 0x2f33 @0x4
0x2f2f…2f43 at0005 = ╱ce╱ STATUS ╱ // 0x2f34 @0x5
0x2f2f…2f43 at0006 = ╱ed╱ ( ╱ // 0x2f35 @0x6
0x2f2f…2f43 at0007 = ╱4f╱O╱ // 0x2f36 @0x7
0x2f2f…2f43 at0008 = ╱38╱8╱ // 0x2f37 @0x8
0x2f2f…2f43 at0009 = ╱ef╱ $ ╱ // 0x2f38 @0x9
0x2f2f…2f43 at000a = ╱ee╱ ) ╱ // 0x2f39 @0xa
0x2f2f…2f43 at000b = ╱e1╱ >< ╱ // 0x2f3a @0xb
0x2f2f…2f43 at000c = ╱30╱0╱ // 0x2f3b @0xc
0x2f2f…2f43 at000d = ╱fe00000000╱ // 0x2f3c @0xd
0x2f2f…2f43 at0012 = ╱b6╱ THEN ╱ // 0x2f41 @0x12
0x2f2f…2f43 at0013 = EOL // 0x2f42 @0x13
0x2f2f…2f43 }
0x2f43…2f59 b6a6 5820 PRINT STATUS ( O8 $ ) , O6 , O7 , O8 $
0x2f43…2f59 LineComalBcd {
0x2f43…2f59 ptr = 0xb6a6 // 0x2f43 @0x0
0x2f43…2f59 lno = 0x5820 // 0x2f45 @0x2
0x2f43…2f59 at0004 = ╱92╱ PRINT ╱ // 0x2f47 @0x4
0x2f43…2f59 at0005 = ╱ce╱ STATUS ╱ // 0x2f48 @0x5
0x2f43…2f59 at0006 = ╱ed╱ ( ╱ // 0x2f49 @0x6
0x2f43…2f59 at0007 = ╱4f╱O╱ // 0x2f4a @0x7
0x2f43…2f59 at0008 = ╱38╱8╱ // 0x2f4b @0x8
0x2f43…2f59 at0009 = ╱ef╱ $ ╱ // 0x2f4c @0x9
0x2f43…2f59 at000a = ╱ee╱ ) ╱ // 0x2f4d @0xa
0x2f43…2f59 at000b = ╱ec╱ , ╱ // 0x2f4e @0xb
0x2f43…2f59 at000c = ╱4f╱O╱ // 0x2f4f @0xc
0x2f43…2f59 at000d = ╱36╱6╱ // 0x2f50 @0xd
0x2f43…2f59 at000e = ╱ec╱ , ╱ // 0x2f51 @0xe
0x2f43…2f59 at000f = ╱4f╱O╱ // 0x2f52 @0xf
0x2f43…2f59 at0010 = ╱37╱7╱ // 0x2f53 @0x10
0x2f43…2f59 at0011 = ╱ec╱ , ╱ // 0x2f54 @0x11
0x2f43…2f59 at0012 = ╱4f╱O╱ // 0x2f55 @0x12
0x2f43…2f59 at0013 = ╱38╱8╱ // 0x2f56 @0x13
0x2f43…2f59 at0014 = ╱ef╱ $ ╱ // 0x2f57 @0x14
0x2f43…2f59 at0015 = EOL // 0x2f58 @0x15
0x2f43…2f59 }
0x2f59…2f5f b6ac 5830 STOP
0x2f59…2f5f LineComalBcd {
0x2f59…2f5f ptr = 0xb6ac // 0x2f59 @0x0
0x2f59…2f5f lno = 0x5830 // 0x2f5b @0x2
0x2f59…2f5f at0004 = ╱8d╱ STOP ╱ // 0x2f5d @0x4
0x2f59…2f5f at0005 = EOL // 0x2f5e @0x5
0x2f59…2f5f }
0x2f5f…2f65 b6b2 5840 ENDIF
0x2f5f…2f65 LineComalBcd {
0x2f5f…2f65 ptr = 0xb6b2 // 0x2f5f @0x0
0x2f5f…2f65 lno = 0x5840 // 0x2f61 @0x2
0x2f5f…2f65 at0004 = ╱9b╱ ENDIF ╱ // 0x2f63 @0x4
0x2f5f…2f65 at0005 = EOL // 0x2f64 @0x5
0x2f5f…2f65 }
0x2f65…2f6b b6b8 5850 ENDPROC
0x2f65…2f6b LineComalBcd {
0x2f65…2f6b ptr = 0xb6b8 // 0x2f65 @0x0
0x2f65…2f6b lno = 0x5850 // 0x2f67 @0x2
0x2f65…2f6b at0004 = ╱9f╱ ENDPROC ╱ // 0x2f69 @0x4
0x2f65…2f6b at0005 = EOL // 0x2f6a @0x5
0x2f65…2f6b }
0x2f6b…2f7a b6c7 5860 PROC HENTDPOST
0x2f6b…2f7a LineComalBcd {
0x2f6b…2f7a ptr = 0xb6c7 // 0x2f6b @0x0
0x2f6b…2f7a lno = 0x5860 // 0x2f6d @0x2
0x2f6b…2f7a at0004 = ╱9e╱ PROC ╱ // 0x2f6f @0x4
0x2f6b…2f7a at0005 = ╱48╱H╱ // 0x2f70 @0x5
0x2f6b…2f7a at0006 = ╱45╱E╱ // 0x2f71 @0x6
0x2f6b…2f7a at0007 = ╱4e╱N╱ // 0x2f72 @0x7
0x2f6b…2f7a at0008 = ╱54╱T╱ // 0x2f73 @0x8
0x2f6b…2f7a at0009 = ╱44╱D╱ // 0x2f74 @0x9
0x2f6b…2f7a at000a = ╱50╱P╱ // 0x2f75 @0xa
0x2f6b…2f7a at000b = ╱4f╱O╱ // 0x2f76 @0xb
0x2f6b…2f7a at000c = ╱53╱S╱ // 0x2f77 @0xc
0x2f6b…2f7a at000d = ╱54╱T╱ // 0x2f78 @0xd
0x2f6b…2f7a at000e = EOL // 0x2f79 @0xe
0x2f6b…2f7a }
0x2f7a…2f8f b6dc 5870 J7 = N3 ( N5 , 2 )
0x2f7a…2f8f LineComalBcd {
0x2f7a…2f8f ptr = 0xb6dc // 0x2f7a @0x0
0x2f7a…2f8f lno = 0x5870 // 0x2f7c @0x2
0x2f7a…2f8f at0004 = ╱4a╱J╱ // 0x2f7e @0x4
0x2f7a…2f8f at0005 = ╱37╱7╱ // 0x2f7f @0x5
0x2f7a…2f8f at0006 = ╱dc╱ = ╱ // 0x2f80 @0x6
0x2f7a…2f8f at0007 = ╱4e╱N╱ // 0x2f81 @0x7
0x2f7a…2f8f at0008 = ╱33╱3╱ // 0x2f82 @0x8
0x2f7a…2f8f at0009 = ╱ed╱ ( ╱ // 0x2f83 @0x9
0x2f7a…2f8f at000a = ╱4e╱N╱ // 0x2f84 @0xa
0x2f7a…2f8f at000b = ╱35╱5╱ // 0x2f85 @0xb
0x2f7a…2f8f at000c = ╱ec╱ , ╱ // 0x2f86 @0xc
0x2f7a…2f8f at000d = ╱32╱2╱ // 0x2f87 @0xd
0x2f7a…2f8f at000e = ╱fe00008002╱ // 0x2f88 @0xe
0x2f7a…2f8f at0013 = ╱ee╱ ) ╱ // 0x2f8d @0x13
0x2f7a…2f8f at0014 = EOL // 0x2f8e @0x14
0x2f7a…2f8f }
0x2f8f…2faa b6f7 5880 GET D0 $ , J7 : O9 , A7 $ , A8 $ , A9 $
0x2f8f…2faa LineComalBcd {
0x2f8f…2faa ptr = 0xb6f7 // 0x2f8f @0x0
0x2f8f…2faa lno = 0x5880 // 0x2f91 @0x2
0x2f8f…2faa at0004 = ╱a9╱ GET ╱ // 0x2f93 @0x4
0x2f8f…2faa at0005 = ╱44╱D╱ // 0x2f94 @0x5
0x2f8f…2faa at0006 = ╱30╱0╱ // 0x2f95 @0x6
0x2f8f…2faa at0007 = ╱ef╱ $ ╱ // 0x2f96 @0x7
0x2f8f…2faa at0008 = ╱ec╱ , ╱ // 0x2f97 @0x8
0x2f8f…2faa at0009 = ╱4a╱J╱ // 0x2f98 @0x9
0x2f8f…2faa at000a = ╱37╱7╱ // 0x2f99 @0xa
0x2f8f…2faa at000b = ╱f0╱ : ╱ // 0x2f9a @0xb
0x2f8f…2faa at000c = ╱4f╱O╱ // 0x2f9b @0xc
0x2f8f…2faa at000d = ╱39╱9╱ // 0x2f9c @0xd
0x2f8f…2faa at000e = ╱ec╱ , ╱ // 0x2f9d @0xe
0x2f8f…2faa at000f = ╱41╱A╱ // 0x2f9e @0xf
0x2f8f…2faa at0010 = ╱37╱7╱ // 0x2f9f @0x10
0x2f8f…2faa at0011 = ╱ef╱ $ ╱ // 0x2fa0 @0x11
0x2f8f…2faa at0012 = ╱ec╱ , ╱ // 0x2fa1 @0x12
0x2f8f…2faa at0013 = ╱41╱A╱ // 0x2fa2 @0x13
0x2f8f…2faa at0014 = ╱38╱8╱ // 0x2fa3 @0x14
0x2f8f…2faa at0015 = ╱ef╱ $ ╱ // 0x2fa4 @0x15
0x2f8f…2faa at0016 = ╱ec╱ , ╱ // 0x2fa5 @0x16
0x2f8f…2faa at0017 = ╱41╱A╱ // 0x2fa6 @0x17
0x2f8f…2faa at0018 = ╱39╱9╱ // 0x2fa7 @0x18
0x2f8f…2faa at0019 = ╱ef╱ $ ╱ // 0x2fa8 @0x19
0x2f8f…2faa at001a = EOL // 0x2fa9 @0x1a
0x2f8f…2faa }
0x2faa…2fc7 b714 5890 EXEC FEJL ( 8 , 2 , D0 $ )
0x2faa…2fc7 LineComalBcd {
0x2faa…2fc7 ptr = 0xb714 // 0x2faa @0x0
0x2faa…2fc7 lno = 0x5890 // 0x2fac @0x2
0x2faa…2fc7 at0004 = ╱9d╱ EXEC ╱ // 0x2fae @0x4
0x2faa…2fc7 at0005 = ╱46╱F╱ // 0x2faf @0x5
0x2faa…2fc7 at0006 = ╱45╱E╱ // 0x2fb0 @0x6
0x2faa…2fc7 at0007 = ╱4a╱J╱ // 0x2fb1 @0x7
0x2faa…2fc7 at0008 = ╱4c╱L╱ // 0x2fb2 @0x8
0x2faa…2fc7 at0009 = ╱ed╱ ( ╱ // 0x2fb3 @0x9
0x2faa…2fc7 at000a = ╱38╱8╱ // 0x2fb4 @0xa
0x2faa…2fc7 at000b = ╱fe00008004╱ // 0x2fb5 @0xb
0x2faa…2fc7 at0010 = ╱ec╱ , ╱ // 0x2fba @0x10
0x2faa…2fc7 at0011 = ╱32╱2╱ // 0x2fbb @0x11
0x2faa…2fc7 at0012 = ╱fe00008002╱ // 0x2fbc @0x12
0x2faa…2fc7 at0017 = ╱ec╱ , ╱ // 0x2fc1 @0x17
0x2faa…2fc7 at0018 = ╱44╱D╱ // 0x2fc2 @0x18
0x2faa…2fc7 at0019 = ╱30╱0╱ // 0x2fc3 @0x19
0x2faa…2fc7 at001a = ╱ef╱ $ ╱ // 0x2fc4 @0x1a
0x2faa…2fc7 at001b = ╱ee╱ ) ╱ // 0x2fc5 @0x1b
0x2faa…2fc7 at001c = EOL // 0x2fc6 @0x1c
0x2faa…2fc7 }
0x2fc7…2fdf b72c 5900 IF O9 >< N3 ( N5 , 1 ) THEN STOP
0x2fc7…2fdf LineComalBcd {
0x2fc7…2fdf ptr = 0xb72c // 0x2fc7 @0x0
0x2fc7…2fdf lno = 0x5900 // 0x2fc9 @0x2
0x2fc7…2fdf at0004 = ╱82╱ IF ╱ // 0x2fcb @0x4
0x2fc7…2fdf at0005 = ╱4f╱O╱ // 0x2fcc @0x5
0x2fc7…2fdf at0006 = ╱39╱9╱ // 0x2fcd @0x6
0x2fc7…2fdf at0007 = ╱e1╱ >< ╱ // 0x2fce @0x7
0x2fc7…2fdf at0008 = ╱4e╱N╱ // 0x2fcf @0x8
0x2fc7…2fdf at0009 = ╱33╱3╱ // 0x2fd0 @0x9
0x2fc7…2fdf at000a = ╱ed╱ ( ╱ // 0x2fd1 @0xa
0x2fc7…2fdf at000b = ╱4e╱N╱ // 0x2fd2 @0xb
0x2fc7…2fdf at000c = ╱35╱5╱ // 0x2fd3 @0xc
0x2fc7…2fdf at000d = ╱ec╱ , ╱ // 0x2fd4 @0xd
0x2fc7…2fdf at000e = ╱31╱1╱ // 0x2fd5 @0xe
0x2fc7…2fdf at000f = ╱fe00008001╱ // 0x2fd6 @0xf
0x2fc7…2fdf at0014 = ╱ee╱ ) ╱ // 0x2fdb @0x14
0x2fc7…2fdf at0015 = ╱b6╱ THEN ╱ // 0x2fdc @0x15
0x2fc7…2fdf at0016 = ╱8d╱ STOP ╱ // 0x2fdd @0x16
0x2fc7…2fdf at0017 = EOL // 0x2fde @0x17
0x2fc7…2fdf }
0x2fdf…3005 b752 5910 GET D0 $ , J7 + 1 : B1 $ , B2 $ , B3 $ , P0 , C5 $
0x2fdf…3005 LineComalBcd {
0x2fdf…3005 ptr = 0xb752 // 0x2fdf @0x0
0x2fdf…3005 lno = 0x5910 // 0x2fe1 @0x2
0x2fdf…3005 at0004 = ╱a9╱ GET ╱ // 0x2fe3 @0x4
0x2fdf…3005 at0005 = ╱44╱D╱ // 0x2fe4 @0x5
0x2fdf…3005 at0006 = ╱30╱0╱ // 0x2fe5 @0x6
0x2fdf…3005 at0007 = ╱ef╱ $ ╱ // 0x2fe6 @0x7
0x2fdf…3005 at0008 = ╱ec╱ , ╱ // 0x2fe7 @0x8
0x2fdf…3005 at0009 = ╱4a╱J╱ // 0x2fe8 @0x9
0x2fdf…3005 at000a = ╱37╱7╱ // 0x2fe9 @0xa
0x2fdf…3005 at000b = ╱e2╱ + ╱ // 0x2fea @0xb
0x2fdf…3005 at000c = ╱31╱1╱ // 0x2feb @0xc
0x2fdf…3005 at000d = ╱fe00008001╱ // 0x2fec @0xd
0x2fdf…3005 at0012 = ╱f0╱ : ╱ // 0x2ff1 @0x12
0x2fdf…3005 at0013 = ╱42╱B╱ // 0x2ff2 @0x13
0x2fdf…3005 at0014 = ╱31╱1╱ // 0x2ff3 @0x14
0x2fdf…3005 at0015 = ╱ef╱ $ ╱ // 0x2ff4 @0x15
0x2fdf…3005 at0016 = ╱ec╱ , ╱ // 0x2ff5 @0x16
0x2fdf…3005 at0017 = ╱42╱B╱ // 0x2ff6 @0x17
0x2fdf…3005 at0018 = ╱32╱2╱ // 0x2ff7 @0x18
0x2fdf…3005 at0019 = ╱ef╱ $ ╱ // 0x2ff8 @0x19
0x2fdf…3005 at001a = ╱ec╱ , ╱ // 0x2ff9 @0x1a
0x2fdf…3005 at001b = ╱42╱B╱ // 0x2ffa @0x1b
0x2fdf…3005 at001c = ╱33╱3╱ // 0x2ffb @0x1c
0x2fdf…3005 at001d = ╱ef╱ $ ╱ // 0x2ffc @0x1d
0x2fdf…3005 at001e = ╱ec╱ , ╱ // 0x2ffd @0x1e
0x2fdf…3005 at001f = ╱50╱P╱ // 0x2ffe @0x1f
0x2fdf…3005 at0020 = ╱30╱0╱ // 0x2fff @0x20
0x2fdf…3005 at0021 = ╱ec╱ , ╱ // 0x3000 @0x21
0x2fdf…3005 at0022 = ╱43╱C╱ // 0x3001 @0x22
0x2fdf…3005 at0023 = ╱35╱5╱ // 0x3002 @0x23
0x2fdf…3005 at0024 = ╱ef╱ $ ╱ // 0x3003 @0x24
0x2fdf…3005 at0025 = EOL // 0x3004 @0x25
0x2fdf…3005 }
0x3005…3022 b76f 5920 EXEC FEJL ( 8 , 3 , D0 $ )
0x3005…3022 LineComalBcd {
0x3005…3022 ptr = 0xb76f // 0x3005 @0x0
0x3005…3022 lno = 0x5920 // 0x3007 @0x2
0x3005…3022 at0004 = ╱9d╱ EXEC ╱ // 0x3009 @0x4
0x3005…3022 at0005 = ╱46╱F╱ // 0x300a @0x5
0x3005…3022 at0006 = ╱45╱E╱ // 0x300b @0x6
0x3005…3022 at0007 = ╱4a╱J╱ // 0x300c @0x7
0x3005…3022 at0008 = ╱4c╱L╱ // 0x300d @0x8
0x3005…3022 at0009 = ╱ed╱ ( ╱ // 0x300e @0x9
0x3005…3022 at000a = ╱38╱8╱ // 0x300f @0xa
0x3005…3022 at000b = ╱fe00008004╱ // 0x3010 @0xb
0x3005…3022 at0010 = ╱ec╱ , ╱ // 0x3015 @0x10
0x3005…3022 at0011 = ╱33╱3╱ // 0x3016 @0x11
0x3005…3022 at0012 = ╱fe0000c002╱ // 0x3017 @0x12
0x3005…3022 at0017 = ╱ec╱ , ╱ // 0x301c @0x17
0x3005…3022 at0018 = ╱44╱D╱ // 0x301d @0x18
0x3005…3022 at0019 = ╱30╱0╱ // 0x301e @0x19
0x3005…3022 at001a = ╱ef╱ $ ╱ // 0x301f @0x1a
0x3005…3022 at001b = ╱ee╱ ) ╱ // 0x3020 @0x1b
0x3005…3022 at001c = EOL // 0x3021 @0x1c
0x3005…3022 }
0x3022…3043 b790 5930 GET D0 $ , J7 + 2 : B5 $ , C0 $ , P1 , P2
0x3022…3043 LineComalBcd {
0x3022…3043 ptr = 0xb790 // 0x3022 @0x0
0x3022…3043 lno = 0x5930 // 0x3024 @0x2
0x3022…3043 at0004 = ╱a9╱ GET ╱ // 0x3026 @0x4
0x3022…3043 at0005 = ╱44╱D╱ // 0x3027 @0x5
0x3022…3043 at0006 = ╱30╱0╱ // 0x3028 @0x6
0x3022…3043 at0007 = ╱ef╱ $ ╱ // 0x3029 @0x7
0x3022…3043 at0008 = ╱ec╱ , ╱ // 0x302a @0x8
0x3022…3043 at0009 = ╱4a╱J╱ // 0x302b @0x9
0x3022…3043 at000a = ╱37╱7╱ // 0x302c @0xa
0x3022…3043 at000b = ╱e2╱ + ╱ // 0x302d @0xb
0x3022…3043 at000c = ╱32╱2╱ // 0x302e @0xc
0x3022…3043 at000d = ╱fe00008002╱ // 0x302f @0xd
0x3022…3043 at0012 = ╱f0╱ : ╱ // 0x3034 @0x12
0x3022…3043 at0013 = ╱42╱B╱ // 0x3035 @0x13
0x3022…3043 at0014 = ╱35╱5╱ // 0x3036 @0x14
0x3022…3043 at0015 = ╱ef╱ $ ╱ // 0x3037 @0x15
0x3022…3043 at0016 = ╱ec╱ , ╱ // 0x3038 @0x16
0x3022…3043 at0017 = ╱43╱C╱ // 0x3039 @0x17
0x3022…3043 at0018 = ╱30╱0╱ // 0x303a @0x18
0x3022…3043 at0019 = ╱ef╱ $ ╱ // 0x303b @0x19
0x3022…3043 at001a = ╱ec╱ , ╱ // 0x303c @0x1a
0x3022…3043 at001b = ╱50╱P╱ // 0x303d @0x1b
0x3022…3043 at001c = ╱31╱1╱ // 0x303e @0x1c
0x3022…3043 at001d = ╱ec╱ , ╱ // 0x303f @0x1d
0x3022…3043 at001e = ╱50╱P╱ // 0x3040 @0x1e
0x3022…3043 at001f = ╱32╱2╱ // 0x3041 @0x1f
0x3022…3043 at0020 = EOL // 0x3042 @0x20
0x3022…3043 }
0x3043…3060 b7ad 5940 EXEC FEJL ( 8 , 4 , D0 $ )
0x3043…3060 LineComalBcd {
0x3043…3060 ptr = 0xb7ad // 0x3043 @0x0
0x3043…3060 lno = 0x5940 // 0x3045 @0x2
0x3043…3060 at0004 = ╱9d╱ EXEC ╱ // 0x3047 @0x4
0x3043…3060 at0005 = ╱46╱F╱ // 0x3048 @0x5
0x3043…3060 at0006 = ╱45╱E╱ // 0x3049 @0x6
0x3043…3060 at0007 = ╱4a╱J╱ // 0x304a @0x7
0x3043…3060 at0008 = ╱4c╱L╱ // 0x304b @0x8
0x3043…3060 at0009 = ╱ed╱ ( ╱ // 0x304c @0x9
0x3043…3060 at000a = ╱38╱8╱ // 0x304d @0xa
0x3043…3060 at000b = ╱fe00008004╱ // 0x304e @0xb
0x3043…3060 at0010 = ╱ec╱ , ╱ // 0x3053 @0x10
0x3043…3060 at0011 = ╱34╱4╱ // 0x3054 @0x11
0x3043…3060 at0012 = ╱fe00008003╱ // 0x3055 @0x12
0x3043…3060 at0017 = ╱ec╱ , ╱ // 0x305a @0x17
0x3043…3060 at0018 = ╱44╱D╱ // 0x305b @0x18
0x3043…3060 at0019 = ╱30╱0╱ // 0x305c @0x19
0x3043…3060 at001a = ╱ef╱ $ ╱ // 0x305d @0x1a
0x3043…3060 at001b = ╱ee╱ ) ╱ // 0x305e @0x1b
0x3043…3060 at001c = EOL // 0x305f @0x1c
0x3043…3060 }
0x3060…307f b7cc 5950 GET D0 $ , J7 + 3 : C1 $ , C3 $ , C4 $
0x3060…307f LineComalBcd {
0x3060…307f ptr = 0xb7cc // 0x3060 @0x0
0x3060…307f lno = 0x5950 // 0x3062 @0x2
0x3060…307f at0004 = ╱a9╱ GET ╱ // 0x3064 @0x4
0x3060…307f at0005 = ╱44╱D╱ // 0x3065 @0x5
0x3060…307f at0006 = ╱30╱0╱ // 0x3066 @0x6
0x3060…307f at0007 = ╱ef╱ $ ╱ // 0x3067 @0x7
0x3060…307f at0008 = ╱ec╱ , ╱ // 0x3068 @0x8
0x3060…307f at0009 = ╱4a╱J╱ // 0x3069 @0x9
0x3060…307f at000a = ╱37╱7╱ // 0x306a @0xa
0x3060…307f at000b = ╱e2╱ + ╱ // 0x306b @0xb
0x3060…307f at000c = ╱33╱3╱ // 0x306c @0xc
0x3060…307f at000d = ╱fe0000c002╱ // 0x306d @0xd
0x3060…307f at0012 = ╱f0╱ : ╱ // 0x3072 @0x12
0x3060…307f at0013 = ╱43╱C╱ // 0x3073 @0x13
0x3060…307f at0014 = ╱31╱1╱ // 0x3074 @0x14
0x3060…307f at0015 = ╱ef╱ $ ╱ // 0x3075 @0x15
0x3060…307f at0016 = ╱ec╱ , ╱ // 0x3076 @0x16
0x3060…307f at0017 = ╱43╱C╱ // 0x3077 @0x17
0x3060…307f at0018 = ╱33╱3╱ // 0x3078 @0x18
0x3060…307f at0019 = ╱ef╱ $ ╱ // 0x3079 @0x19
0x3060…307f at001a = ╱ec╱ , ╱ // 0x307a @0x1a
0x3060…307f at001b = ╱43╱C╱ // 0x307b @0x1b
0x3060…307f at001c = ╱34╱4╱ // 0x307c @0x1c
0x3060…307f at001d = ╱ef╱ $ ╱ // 0x307d @0x1d
0x3060…307f at001e = EOL // 0x307e @0x1e
0x3060…307f }
0x307f…309c b7e9 5960 EXEC FEJL ( 8 , 5 , D0 $ )
0x307f…309c LineComalBcd {
0x307f…309c ptr = 0xb7e9 // 0x307f @0x0
0x307f…309c lno = 0x5960 // 0x3081 @0x2
0x307f…309c at0004 = ╱9d╱ EXEC ╱ // 0x3083 @0x4
0x307f…309c at0005 = ╱46╱F╱ // 0x3084 @0x5
0x307f…309c at0006 = ╱45╱E╱ // 0x3085 @0x6
0x307f…309c at0007 = ╱4a╱J╱ // 0x3086 @0x7
0x307f…309c at0008 = ╱4c╱L╱ // 0x3087 @0x8
0x307f…309c at0009 = ╱ed╱ ( ╱ // 0x3088 @0x9
0x307f…309c at000a = ╱38╱8╱ // 0x3089 @0xa
0x307f…309c at000b = ╱fe00008004╱ // 0x308a @0xb
0x307f…309c at0010 = ╱ec╱ , ╱ // 0x308f @0x10
0x307f…309c at0011 = ╱35╱5╱ // 0x3090 @0x11
0x307f…309c at0012 = ╱fe0000a003╱ // 0x3091 @0x12
0x307f…309c at0017 = ╱ec╱ , ╱ // 0x3096 @0x17
0x307f…309c at0018 = ╱44╱D╱ // 0x3097 @0x18
0x307f…309c at0019 = ╱30╱0╱ // 0x3098 @0x19
0x307f…309c at001a = ╱ef╱ $ ╱ // 0x3099 @0x1a
0x307f…309c at001b = ╱ee╱ ) ╱ // 0x309a @0x1b
0x307f…309c at001c = EOL // 0x309b @0x1c
0x307f…309c }
0x309c…30a2 b7ef 5970 ENDPROC
0x309c…30a2 LineComalBcd {
0x309c…30a2 ptr = 0xb7ef // 0x309c @0x0
0x309c…30a2 lno = 0x5970 // 0x309e @0x2
0x309c…30a2 at0004 = ╱9f╱ ENDPROC ╱ // 0x30a0 @0x4
0x309c…30a2 at0005 = EOL // 0x30a1 @0x5
0x309c…30a2 }
0x30a2…30b8 b805 5980 PROC TUD ( P3 , P4 , P5 , P6 )
0x30a2…30b8 LineComalBcd {
0x30a2…30b8 ptr = 0xb805 // 0x30a2 @0x0
0x30a2…30b8 lno = 0x5980 // 0x30a4 @0x2
0x30a2…30b8 at0004 = ╱9e╱ PROC ╱ // 0x30a6 @0x4
0x30a2…30b8 at0005 = ╱54╱T╱ // 0x30a7 @0x5
0x30a2…30b8 at0006 = ╱55╱U╱ // 0x30a8 @0x6
0x30a2…30b8 at0007 = ╱44╱D╱ // 0x30a9 @0x7
0x30a2…30b8 at0008 = ╱ed╱ ( ╱ // 0x30aa @0x8
0x30a2…30b8 at0009 = ╱50╱P╱ // 0x30ab @0x9
0x30a2…30b8 at000a = ╱33╱3╱ // 0x30ac @0xa
0x30a2…30b8 at000b = ╱ec╱ , ╱ // 0x30ad @0xb
0x30a2…30b8 at000c = ╱50╱P╱ // 0x30ae @0xc
0x30a2…30b8 at000d = ╱34╱4╱ // 0x30af @0xd
0x30a2…30b8 at000e = ╱ec╱ , ╱ // 0x30b0 @0xe
0x30a2…30b8 at000f = ╱50╱P╱ // 0x30b1 @0xf
0x30a2…30b8 at0010 = ╱35╱5╱ // 0x30b2 @0x10
0x30a2…30b8 at0011 = ╱ec╱ , ╱ // 0x30b3 @0x11
0x30a2…30b8 at0012 = ╱50╱P╱ // 0x30b4 @0x12
0x30a2…30b8 at0013 = ╱36╱6╱ // 0x30b5 @0x13
0x30a2…30b8 at0014 = ╱ee╱ ) ╱ // 0x30b6 @0x14
0x30a2…30b8 at0015 = EOL // 0x30b7 @0x15
0x30a2…30b8 }
0x30b8…30cc b819 5990 C6 $ = P3 $ ; B8 $ = P4 $
0x30b8…30cc LineComalBcd {
0x30b8…30cc ptr = 0xb819 // 0x30b8 @0x0
0x30b8…30cc lno = 0x5990 // 0x30ba @0x2
0x30b8…30cc at0004 = ╱43╱C╱ // 0x30bc @0x4
0x30b8…30cc at0005 = ╱36╱6╱ // 0x30bd @0x5
0x30b8…30cc at0006 = ╱ef╱ $ ╱ // 0x30be @0x6
0x30b8…30cc at0007 = ╱dc╱ = ╱ // 0x30bf @0x7
0x30b8…30cc at0008 = ╱50╱P╱ // 0x30c0 @0x8
0x30b8…30cc at0009 = ╱33╱3╱ // 0x30c1 @0x9
0x30b8…30cc at000a = ╱ef╱ $ ╱ // 0x30c2 @0xa
0x30b8…30cc at000b = ╱eb╱ ; ╱ // 0x30c3 @0xb
0x30b8…30cc at000c = ╱42╱B╱ // 0x30c4 @0xc
0x30b8…30cc at000d = ╱38╱8╱ // 0x30c5 @0xd
0x30b8…30cc at000e = ╱ef╱ $ ╱ // 0x30c6 @0xe
0x30b8…30cc at000f = ╱dc╱ = ╱ // 0x30c7 @0xf
0x30b8…30cc at0010 = ╱50╱P╱ // 0x30c8 @0x10
0x30b8…30cc at0011 = ╱34╱4╱ // 0x30c9 @0x11
0x30b8…30cc at0012 = ╱ef╱ $ ╱ // 0x30ca @0x12
0x30b8…30cc at0013 = EOL // 0x30cb @0x13
0x30b8…30cc }
0x30cc…30ea b837 6000 EXEC CALC ( 5 , C6 $ , B9 $ , B8 $ )
0x30cc…30ea LineComalBcd {
0x30cc…30ea ptr = 0xb837 // 0x30cc @0x0
0x30cc…30ea lno = 0x6000 // 0x30ce @0x2
0x30cc…30ea at0004 = ╱9d╱ EXEC ╱ // 0x30d0 @0x4
0x30cc…30ea at0005 = ╱43╱C╱ // 0x30d1 @0x5
0x30cc…30ea at0006 = ╱41╱A╱ // 0x30d2 @0x6
0x30cc…30ea at0007 = ╱4c╱L╱ // 0x30d3 @0x7
0x30cc…30ea at0008 = ╱43╱C╱ // 0x30d4 @0x8
0x30cc…30ea at0009 = ╱ed╱ ( ╱ // 0x30d5 @0x9
0x30cc…30ea at000a = ╱35╱5╱ // 0x30d6 @0xa
0x30cc…30ea at000b = ╱fe0000a003╱ // 0x30d7 @0xb
0x30cc…30ea at0010 = ╱ec╱ , ╱ // 0x30dc @0x10
0x30cc…30ea at0011 = ╱43╱C╱ // 0x30dd @0x11
0x30cc…30ea at0012 = ╱36╱6╱ // 0x30de @0x12
0x30cc…30ea at0013 = ╱ef╱ $ ╱ // 0x30df @0x13
0x30cc…30ea at0014 = ╱ec╱ , ╱ // 0x30e0 @0x14
0x30cc…30ea at0015 = ╱42╱B╱ // 0x30e1 @0x15
0x30cc…30ea at0016 = ╱39╱9╱ // 0x30e2 @0x16
0x30cc…30ea at0017 = ╱ef╱ $ ╱ // 0x30e3 @0x17
0x30cc…30ea at0018 = ╱ec╱ , ╱ // 0x30e4 @0x18
0x30cc…30ea at0019 = ╱42╱B╱ // 0x30e5 @0x19
0x30cc…30ea at001a = ╱38╱8╱ // 0x30e6 @0x1a
0x30cc…30ea at001b = ╱ef╱ $ ╱ // 0x30e7 @0x1b
0x30cc…30ea at001c = ╱ee╱ ) ╱ // 0x30e8 @0x1c
0x30cc…30ea at001d = EOL // 0x30e9 @0x1d
0x30cc…30ea }
0x30ea…30f6 b843 6010 P4 $ = B8 $
0x30ea…30f6 LineComalBcd {
0x30ea…30f6 ptr = 0xb843 // 0x30ea @0x0
0x30ea…30f6 lno = 0x6010 // 0x30ec @0x2
0x30ea…30f6 at0004 = ╱50╱P╱ // 0x30ee @0x4
0x30ea…30f6 at0005 = ╱34╱4╱ // 0x30ef @0x5
0x30ea…30f6 at0006 = ╱ef╱ $ ╱ // 0x30f0 @0x6
0x30ea…30f6 at0007 = ╱dc╱ = ╱ // 0x30f1 @0x7
0x30ea…30f6 at0008 = ╱42╱B╱ // 0x30f2 @0x8
0x30ea…30f6 at0009 = ╱38╱8╱ // 0x30f3 @0x9
0x30ea…30f6 at000a = ╱ef╱ $ ╱ // 0x30f4 @0xa
0x30ea…30f6 at000b = EOL // 0x30f5 @0xb
0x30ea…30f6 }
0x30f6…3106 b853 6020 IF P5 = 0 THEN
0x30f6…3106 LineComalBcd {
0x30f6…3106 ptr = 0xb853 // 0x30f6 @0x0
0x30f6…3106 lno = 0x6020 // 0x30f8 @0x2
0x30f6…3106 at0004 = ╱9c╱ IF ╱ // 0x30fa @0x4
0x30f6…3106 at0005 = ╱50╱P╱ // 0x30fb @0x5
0x30f6…3106 at0006 = ╱35╱5╱ // 0x30fc @0x6
0x30f6…3106 at0007 = ╱dc╱ = ╱ // 0x30fd @0x7
0x30f6…3106 at0008 = ╱30╱0╱ // 0x30fe @0x8
0x30f6…3106 at0009 = ╱fe00000000╱ // 0x30ff @0x9
0x30f6…3106 at000e = ╱b6╱ THEN ╱ // 0x3104 @0xe
0x30f6…3106 at000f = EOL // 0x3105 @0xf
0x30f6…3106 }
0x3106…3122 b86f 6030 P4 $ = P4 $ ( 1 : 13 )
0x3106…3122 LineComalBcd {
0x3106…3122 ptr = 0xb86f // 0x3106 @0x0
0x3106…3122 lno = 0x6030 // 0x3108 @0x2
0x3106…3122 at0004 = ╱50╱P╱ // 0x310a @0x4
0x3106…3122 at0005 = ╱34╱4╱ // 0x310b @0x5
0x3106…3122 at0006 = ╱ef╱ $ ╱ // 0x310c @0x6
0x3106…3122 at0007 = ╱dc╱ = ╱ // 0x310d @0x7
0x3106…3122 at0008 = ╱50╱P╱ // 0x310e @0x8
0x3106…3122 at0009 = ╱34╱4╱ // 0x310f @0x9
0x3106…3122 at000a = ╱ef╱ $ ╱ // 0x3110 @0xa
0x3106…3122 at000b = ╱ed╱ ( ╱ // 0x3111 @0xb
0x3106…3122 at000c = ╱31╱1╱ // 0x3112 @0xc
0x3106…3122 at000d = ╱fe00008001╱ // 0x3113 @0xd
0x3106…3122 at0012 = ╱f0╱ : ╱ // 0x3118 @0x12
0x3106…3122 at0013 = ╱31╱1╱ // 0x3119 @0x13
0x3106…3122 at0014 = ╱33╱3╱ // 0x311a @0x14
0x3106…3122 at0015 = ╱fe0000d004╱ // 0x311b @0x15
0x3106…3122 at001a = ╱ee╱ ) ╱ // 0x3120 @0x1a
0x3106…3122 at001b = EOL // 0x3121 @0x1b
0x3106…3122 }
0x3122…3128 b875 6040 ELSE
0x3122…3128 LineComalBcd {
0x3122…3128 ptr = 0xb875 // 0x3122 @0x0
0x3122…3128 lno = 0x6040 // 0x3124 @0x2
0x3122…3128 at0004 = ╱9a╱ ELSE ╱ // 0x3126 @0x4
0x3122…3128 at0005 = EOL // 0x3127 @0x5
0x3122…3128 }
0x3128…3148 b895 6050 IF P5 = 1 AND P4 $ ( LEN ( P4 $ ) ) = "+" THEN
0x3128…3148 LineComalBcd {
0x3128…3148 ptr = 0xb895 // 0x3128 @0x0
0x3128…3148 lno = 0x6050 // 0x312a @0x2
0x3128…3148 at0004 = ╱9c╱ IF ╱ // 0x312c @0x4
0x3128…3148 at0005 = ╱50╱P╱ // 0x312d @0x5
0x3128…3148 at0006 = ╱35╱5╱ // 0x312e @0x6
0x3128…3148 at0007 = ╱dc╱ = ╱ // 0x312f @0x7
0x3128…3148 at0008 = ╱31╱1╱ // 0x3130 @0x8
0x3128…3148 at0009 = ╱fe00008001╱ // 0x3131 @0x9
0x3128…3148 at000e = ╱da╱ AND ╱ // 0x3136 @0xe
0x3128…3148 at000f = ╱50╱P╱ // 0x3137 @0xf
0x3128…3148 at0010 = ╱34╱4╱ // 0x3138 @0x10
0x3128…3148 at0011 = ╱ef╱ $ ╱ // 0x3139 @0x11
0x3128…3148 at0012 = ╱ed╱ ( ╱ // 0x313a @0x12
0x3128…3148 at0013 = ╱cc╱ LEN ╱ // 0x313b @0x13
0x3128…3148 at0014 = ╱ed╱ ( ╱ // 0x313c @0x14
0x3128…3148 at0015 = ╱50╱P╱ // 0x313d @0x15
0x3128…3148 at0016 = ╱34╱4╱ // 0x313e @0x16
0x3128…3148 at0017 = ╱ef╱ $ ╱ // 0x313f @0x17
0x3128…3148 at0018 = ╱ee╱ ) ╱ // 0x3140 @0x18
0x3128…3148 at0019 = ╱ee╱ ) ╱ // 0x3141 @0x19
0x3128…3148 at001a = ╱dc╱ = ╱ // 0x3142 @0x1a
0x3128…3148 at001b = ╱22╱"╱ // 0x3143 @0x1b
0x3128…3148 at001c = ╱2b╱+╱ // 0x3144 @0x1c
0x3128…3148 at001d = ╱22╱"╱ // 0x3145 @0x1d
0x3128…3148 at001e = ╱b6╱ THEN ╱ // 0x3146 @0x1e
0x3128…3148 at001f = EOL // 0x3147 @0x1f
0x3128…3148 }
0x3148…315c b8a9 6060 P4 $ ( LEN ( P4 $ ) ) = "…"
0x3148…315c LineComalBcd {
0x3148…315c ptr = 0xb8a9 // 0x3148 @0x0
0x3148…315c lno = 0x6060 // 0x314a @0x2
0x3148…315c at0004 = ╱50╱P╱ // 0x314c @0x4
0x3148…315c at0005 = ╱34╱4╱ // 0x314d @0x5
0x3148…315c at0006 = ╱ef╱ $ ╱ // 0x314e @0x6
0x3148…315c at0007 = ╱ed╱ ( ╱ // 0x314f @0x7
0x3148…315c at0008 = ╱cc╱ LEN ╱ // 0x3150 @0x8
0x3148…315c at0009 = ╱ed╱ ( ╱ // 0x3151 @0x9
0x3148…315c at000a = ╱50╱P╱ // 0x3152 @0xa
0x3148…315c at000b = ╱34╱4╱ // 0x3153 @0xb
0x3148…315c at000c = ╱ef╱ $ ╱ // 0x3154 @0xc
0x3148…315c at000d = ╱ee╱ ) ╱ // 0x3155 @0xd
0x3148…315c at000e = ╱ee╱ ) ╱ // 0x3156 @0xe
0x3148…315c at000f = ╱dc╱ = ╱ // 0x3157 @0xf
0x3148…315c at0010 = ╱22╱"╱ // 0x3158 @0x10
0x3148…315c at0011 = ╱20╱…╱ // 0x3159 @0x11
0x3148…315c at0012 = ╱22╱"╱ // 0x315a @0x12
0x3148…315c at0013 = EOL // 0x315b @0x13
0x3148…315c }
0x315c…3162 b8af 6070 ENDIF
0x315c…3162 LineComalBcd {
0x315c…3162 ptr = 0xb8af // 0x315c @0x0
0x315c…3162 lno = 0x6070 // 0x315e @0x2
0x315c…3162 at0004 = ╱9b╱ ENDIF ╱ // 0x3160 @0x4
0x315c…3162 at0005 = EOL // 0x3161 @0x5
0x315c…3162 }
0x3162…3168 b8b5 6080 ENDIF
0x3162…3168 LineComalBcd {
0x3162…3168 ptr = 0xb8b5 // 0x3162 @0x0
0x3162…3168 lno = 0x6080 // 0x3164 @0x2
0x3162…3168 at0004 = ╱9b╱ ENDIF ╱ // 0x3166 @0x4
0x3162…3168 at0005 = EOL // 0x3167 @0x5
0x3162…3168 }
0x3168…3178 b8c5 6090 IF P6 = 1 THEN
0x3168…3178 LineComalBcd {
0x3168…3178 ptr = 0xb8c5 // 0x3168 @0x0
0x3168…3178 lno = 0x6090 // 0x316a @0x2
0x3168…3178 at0004 = ╱9c╱ IF ╱ // 0x316c @0x4
0x3168…3178 at0005 = ╱50╱P╱ // 0x316d @0x5
0x3168…3178 at0006 = ╱36╱6╱ // 0x316e @0x6
0x3168…3178 at0007 = ╱dc╱ = ╱ // 0x316f @0x7
0x3168…3178 at0008 = ╱31╱1╱ // 0x3170 @0x8
0x3168…3178 at0009 = ╱fe00008001╱ // 0x3171 @0x9
0x3168…3178 at000e = ╱b6╱ THEN ╱ // 0x3176 @0xe
0x3168…3178 at000f = EOL // 0x3177 @0xf
0x3168…3178 }
0x3178…319a b8e7 6100 P4 $ = P4 $ ( 4 : LEN ( P4 $ ) - 3 )
0x3178…319a LineComalBcd {
0x3178…319a ptr = 0xb8e7 // 0x3178 @0x0
0x3178…319a lno = 0x6100 // 0x317a @0x2
0x3178…319a at0004 = ╱50╱P╱ // 0x317c @0x4
0x3178…319a at0005 = ╱34╱4╱ // 0x317d @0x5
0x3178…319a at0006 = ╱ef╱ $ ╱ // 0x317e @0x6
0x3178…319a at0007 = ╱dc╱ = ╱ // 0x317f @0x7
0x3178…319a at0008 = ╱50╱P╱ // 0x3180 @0x8
0x3178…319a at0009 = ╱34╱4╱ // 0x3181 @0x9
0x3178…319a at000a = ╱ef╱ $ ╱ // 0x3182 @0xa
0x3178…319a at000b = ╱ed╱ ( ╱ // 0x3183 @0xb
0x3178…319a at000c = ╱34╱4╱ // 0x3184 @0xc
0x3178…319a at000d = ╱fe00008003╱ // 0x3185 @0xd
0x3178…319a at0012 = ╱f0╱ : ╱ // 0x318a @0x12
0x3178…319a at0013 = ╱cc╱ LEN ╱ // 0x318b @0x13
0x3178…319a at0014 = ╱ed╱ ( ╱ // 0x318c @0x14
0x3178…319a at0015 = ╱50╱P╱ // 0x318d @0x15
0x3178…319a at0016 = ╱34╱4╱ // 0x318e @0x16
0x3178…319a at0017 = ╱ef╱ $ ╱ // 0x318f @0x17
0x3178…319a at0018 = ╱ee╱ ) ╱ // 0x3190 @0x18
0x3178…319a at0019 = ╱e3╱ - ╱ // 0x3191 @0x19
0x3178…319a at001a = ╱33╱3╱ // 0x3192 @0x1a
0x3178…319a at001b = ╱fe0000c002╱ // 0x3193 @0x1b
0x3178…319a at0020 = ╱ee╱ ) ╱ // 0x3198 @0x20
0x3178…319a at0021 = EOL // 0x3199 @0x21
0x3178…319a }
0x319a…31a0 b8ed 6110 ENDIF
0x319a…31a0 LineComalBcd {
0x319a…31a0 ptr = 0xb8ed // 0x319a @0x0
0x319a…31a0 lno = 0x6110 // 0x319c @0x2
0x319a…31a0 at0004 = ╱9b╱ ENDIF ╱ // 0x319e @0x4
0x319a…31a0 at0005 = EOL // 0x319f @0x5
0x319a…31a0 }
0x31a0…31a6 b8f3 6120 ENDPROC
0x31a0…31a6 LineComalBcd {
0x31a0…31a6 ptr = 0xb8f3 // 0x31a0 @0x0
0x31a0…31a6 lno = 0x6120 // 0x31a2 @0x2
0x31a0…31a6 at0004 = ╱9f╱ ENDPROC ╱ // 0x31a4 @0x4
0x31a0…31a6 at0005 = EOL // 0x31a5 @0x5
0x31a0…31a6 }
0x31a6…31b6 b903 6130 PROC NRTEST ( P7 )
0x31a6…31b6 LineComalBcd {
0x31a6…31b6 ptr = 0xb903 // 0x31a6 @0x0
0x31a6…31b6 lno = 0x6130 // 0x31a8 @0x2
0x31a6…31b6 at0004 = ╱9e╱ PROC ╱ // 0x31aa @0x4
0x31a6…31b6 at0005 = ╱4e╱N╱ // 0x31ab @0x5
0x31a6…31b6 at0006 = ╱52╱R╱ // 0x31ac @0x6
0x31a6…31b6 at0007 = ╱54╱T╱ // 0x31ad @0x7
0x31a6…31b6 at0008 = ╱45╱E╱ // 0x31ae @0x8
0x31a6…31b6 at0009 = ╱53╱S╱ // 0x31af @0x9
0x31a6…31b6 at000a = ╱54╱T╱ // 0x31b0 @0xa
0x31a6…31b6 at000b = ╱ed╱ ( ╱ // 0x31b1 @0xb
0x31a6…31b6 at000c = ╱50╱P╱ // 0x31b2 @0xc
0x31a6…31b6 at000d = ╱37╱7╱ // 0x31b3 @0xd
0x31a6…31b6 at000e = ╱ee╱ ) ╱ // 0x31b4 @0xe
0x31a6…31b6 at000f = EOL // 0x31b5 @0xf
0x31a6…31b6 }
0x31b6…31e1 b92e 6140 P = 0 ; H4 = 0 ; I8 = 0 ; I5 = LEN ( P7 $ )
0x31b6…31e1 LineComalBcd {
0x31b6…31e1 ptr = 0xb92e // 0x31b6 @0x0
0x31b6…31e1 lno = 0x6140 // 0x31b8 @0x2
0x31b6…31e1 at0004 = ╱50╱P╱ // 0x31ba @0x4
0x31b6…31e1 at0005 = ╱dc╱ = ╱ // 0x31bb @0x5
0x31b6…31e1 at0006 = ╱30╱0╱ // 0x31bc @0x6
0x31b6…31e1 at0007 = ╱fe00000000╱ // 0x31bd @0x7
0x31b6…31e1 at000c = ╱eb╱ ; ╱ // 0x31c2 @0xc
0x31b6…31e1 at000d = ╱48╱H╱ // 0x31c3 @0xd
0x31b6…31e1 at000e = ╱34╱4╱ // 0x31c4 @0xe
0x31b6…31e1 at000f = ╱dc╱ = ╱ // 0x31c5 @0xf
0x31b6…31e1 at0010 = ╱30╱0╱ // 0x31c6 @0x10
0x31b6…31e1 at0011 = ╱fe00000000╱ // 0x31c7 @0x11
0x31b6…31e1 at0016 = ╱eb╱ ; ╱ // 0x31cc @0x16
0x31b6…31e1 at0017 = ╱49╱I╱ // 0x31cd @0x17
0x31b6…31e1 at0018 = ╱38╱8╱ // 0x31ce @0x18
0x31b6…31e1 at0019 = ╱dc╱ = ╱ // 0x31cf @0x19
0x31b6…31e1 at001a = ╱30╱0╱ // 0x31d0 @0x1a
0x31b6…31e1 at001b = ╱fe00000000╱ // 0x31d1 @0x1b
0x31b6…31e1 at0020 = ╱eb╱ ; ╱ // 0x31d6 @0x20
0x31b6…31e1 at0021 = ╱49╱I╱ // 0x31d7 @0x21
0x31b6…31e1 at0022 = ╱35╱5╱ // 0x31d8 @0x22
0x31b6…31e1 at0023 = ╱dc╱ = ╱ // 0x31d9 @0x23
0x31b6…31e1 at0024 = ╱cc╱ LEN ╱ // 0x31da @0x24
0x31b6…31e1 at0025 = ╱ed╱ ( ╱ // 0x31db @0x25
0x31b6…31e1 at0026 = ╱50╱P╱ // 0x31dc @0x26
0x31b6…31e1 at0027 = ╱37╱7╱ // 0x31dd @0x27
0x31b6…31e1 at0028 = ╱ef╱ $ ╱ // 0x31de @0x28
0x31b6…31e1 at0029 = ╱ee╱ ) ╱ // 0x31df @0x29
0x31b6…31e1 at002a = EOL // 0x31e0 @0x2a
0x31b6…31e1 }
0x31e1…31eb b938 6150 CASE I5 OF
0x31e1…31eb LineComalBcd {
0x31e1…31eb ptr = 0xb938 // 0x31e1 @0x0
0x31e1…31eb lno = 0x6150 // 0x31e3 @0x2
0x31e1…31eb at0004 = ╱a201╱ CASE ╱ // 0x31e5 @0x4
0x31e1…31eb at0006 = ╱49╱I╱ // 0x31e7 @0x6
0x31e1…31eb at0007 = ╱35╱5╱ // 0x31e8 @0x7
0x31e1…31eb at0008 = ╱ba╱ OF ╱ // 0x31e9 @0x8
0x31e1…31eb at0009 = EOL // 0x31ea @0x9
0x31e1…31eb }
0x31eb…31fc b949 6160 FOR I = 1 TO I5
0x31eb…31fc LineComalBcd {
0x31eb…31fc ptr = 0xb949 // 0x31eb @0x0
0x31eb…31fc lno = 0x6160 // 0x31ed @0x2
0x31eb…31fc at0004 = ╱83╱ FOR ╱ // 0x31ef @0x4
0x31eb…31fc at0005 = ╱49╱I╱ // 0x31f0 @0x5
0x31eb…31fc at0006 = ╱dc╱ = ╱ // 0x31f1 @0x6
0x31eb…31fc at0007 = ╱31╱1╱ // 0x31f2 @0x7
0x31eb…31fc at0008 = ╱fe00008001╱ // 0x31f3 @0x8
0x31eb…31fc at000d = ╱b7╱ TO ╱ // 0x31f8 @0xd
0x31eb…31fc at000e = ╱49╱I╱ // 0x31f9 @0xe
0x31eb…31fc at000f = ╱35╱5╱ // 0x31fa @0xf
0x31eb…31fc at0010 = EOL // 0x31fb @0x10
0x31eb…31fc }
0x31fc…3218 b965 6170 P8 = INT ( ORD ( P7 $ ( I ) ) - 48 )
0x31fc…3218 LineComalBcd {
0x31fc…3218 ptr = 0xb965 // 0x31fc @0x0
0x31fc…3218 lno = 0x6170 // 0x31fe @0x2
0x31fc…3218 at0004 = ╱50╱P╱ // 0x3200 @0x4
0x31fc…3218 at0005 = ╱38╱8╱ // 0x3201 @0x5
0x31fc…3218 at0006 = ╱dc╱ = ╱ // 0x3202 @0x6
0x31fc…3218 at0007 = ╱c6╱ INT ╱ // 0x3203 @0x7
0x31fc…3218 at0008 = ╱ed╱ ( ╱ // 0x3204 @0x8
0x31fc…3218 at0009 = ╱cd╱ ORD ╱ // 0x3205 @0x9
0x31fc…3218 at000a = ╱ed╱ ( ╱ // 0x3206 @0xa
0x31fc…3218 at000b = ╱50╱P╱ // 0x3207 @0xb
0x31fc…3218 at000c = ╱37╱7╱ // 0x3208 @0xc
0x31fc…3218 at000d = ╱ef╱ $ ╱ // 0x3209 @0xd
0x31fc…3218 at000e = ╱ed╱ ( ╱ // 0x320a @0xe
0x31fc…3218 at000f = ╱49╱I╱ // 0x320b @0xf
0x31fc…3218 at0010 = ╱ee╱ ) ╱ // 0x320c @0x10
0x31fc…3218 at0011 = ╱ee╱ ) ╱ // 0x320d @0x11
0x31fc…3218 at0012 = ╱e3╱ - ╱ // 0x320e @0x12
0x31fc…3218 at0013 = ╱34╱4╱ // 0x320f @0x13
0x31fc…3218 at0014 = ╱38╱8╱ // 0x3210 @0x14
0x31fc…3218 at0015 = ╱fe0000c006╱ // 0x3211 @0x15
0x31fc…3218 at001a = ╱ee╱ ) ╱ // 0x3216 @0x1a
0x31fc…3218 at001b = EOL // 0x3217 @0x1b
0x31fc…3218 }
0x3218…3233 b980 6180 IF P8 >= 0 AND P8 < 10 THEN
0x3218…3233 LineComalBcd {
0x3218…3233 ptr = 0xb980 // 0x3218 @0x0
0x3218…3233 lno = 0x6180 // 0x321a @0x2
0x3218…3233 at0004 = ╱9c╱ IF ╱ // 0x321c @0x4
0x3218…3233 at0005 = ╱50╱P╱ // 0x321d @0x5
0x3218…3233 at0006 = ╱38╱8╱ // 0x321e @0x6
0x3218…3233 at0007 = ╱e0╱ >= ╱ // 0x321f @0x7
0x3218…3233 at0008 = ╱30╱0╱ // 0x3220 @0x8
0x3218…3233 at0009 = ╱fe00000000╱ // 0x3221 @0x9
0x3218…3233 at000e = ╱da╱ AND ╱ // 0x3226 @0xe
0x3218…3233 at000f = ╱50╱P╱ // 0x3227 @0xf
0x3218…3233 at0010 = ╱38╱8╱ // 0x3228 @0x10
0x3218…3233 at0011 = ╱dd╱ < ╱ // 0x3229 @0x11
0x3218…3233 at0012 = ╱31╱1╱ // 0x322a @0x12
0x3218…3233 at0013 = ╱30╱0╱ // 0x322b @0x13
0x3218…3233 at0014 = ╱fe0000a004╱ // 0x322c @0x14
0x3218…3233 at0019 = ╱b6╱ THEN ╱ // 0x3231 @0x19
0x3218…3233 at001a = EOL // 0x3232 @0x1a
0x3218…3233 }
0x3233…3246 b993 6190 P = P * 10 + P8
0x3233…3246 LineComalBcd {
0x3233…3246 ptr = 0xb993 // 0x3233 @0x0
0x3233…3246 lno = 0x6190 // 0x3235 @0x2
0x3233…3246 at0004 = ╱50╱P╱ // 0x3237 @0x4
0x3233…3246 at0005 = ╱dc╱ = ╱ // 0x3238 @0x5
0x3233…3246 at0006 = ╱50╱P╱ // 0x3239 @0x6
0x3233…3246 at0007 = ╱e4╱ * ╱ // 0x323a @0x7
0x3233…3246 at0008 = ╱31╱1╱ // 0x323b @0x8
0x3233…3246 at0009 = ╱30╱0╱ // 0x323c @0x9
0x3233…3246 at000a = ╱fe0000a004╱ // 0x323d @0xa
0x3233…3246 at000f = ╱e2╱ + ╱ // 0x3242 @0xf
0x3233…3246 at0010 = ╱50╱P╱ // 0x3243 @0x10
0x3233…3246 at0011 = ╱38╱8╱ // 0x3244 @0x11
0x3233…3246 at0012 = EOL // 0x3245 @0x12
0x3233…3246 }
0x3246…324c b999 6200 ELSE
0x3246…324c LineComalBcd {
0x3246…324c ptr = 0xb999 // 0x3246 @0x0
0x3246…324c lno = 0x6200 // 0x3248 @0x2
0x3246…324c at0004 = ╱9a╱ ELSE ╱ // 0x324a @0x4
0x3246…324c at0005 = EOL // 0x324b @0x5
0x3246…324c }
0x324c…325a b9a7 6210 H4 = 1
0x324c…325a LineComalBcd {
0x324c…325a ptr = 0xb9a7 // 0x324c @0x0
0x324c…325a lno = 0x6210 // 0x324e @0x2
0x324c…325a at0004 = ╱48╱H╱ // 0x3250 @0x4
0x324c…325a at0005 = ╱34╱4╱ // 0x3251 @0x5
0x324c…325a at0006 = ╱dc╱ = ╱ // 0x3252 @0x6
0x324c…325a at0007 = ╱31╱1╱ // 0x3253 @0x7
0x324c…325a at0008 = ╱fe00008001╱ // 0x3254 @0x8
0x324c…325a at000d = EOL // 0x3259 @0xd
0x324c…325a }
0x325a…3260 b9ad 6220 ENDIF
0x325a…3260 LineComalBcd {
0x325a…3260 ptr = 0xb9ad // 0x325a @0x0
0x325a…3260 lno = 0x6220 // 0x325c @0x2
0x325a…3260 at0004 = ╱9b╱ ENDIF ╱ // 0x325e @0x4
0x325a…3260 at0005 = EOL // 0x325f @0x5
0x325a…3260 }
0x3260…3267 b9b4 6230 NEXT I
0x3260…3267 LineComalBcd {
0x3260…3267 ptr = 0xb9b4 // 0x3260 @0x0
0x3260…3267 lno = 0x6230 // 0x3262 @0x2
0x3260…3267 at0004 = ╱84╱ NEXT ╱ // 0x3264 @0x4
0x3260…3267 at0005 = ╱49╱I╱ // 0x3265 @0x5
0x3260…3267 at0006 = EOL // 0x3266 @0x6
0x3260…3267 }
0x3267…328d b9da 6240 I8 = P DIV 10000 ; KTAL9 = P DIV 1000
0x3267…328d LineComalBcd {
0x3267…328d ptr = 0xb9da // 0x3267 @0x0
0x3267…328d lno = 0x6240 // 0x3269 @0x2
0x3267…328d at0004 = ╱49╱I╱ // 0x326b @0x4
0x3267…328d at0005 = ╱38╱8╱ // 0x326c @0x5
0x3267…328d at0006 = ╱dc╱ = ╱ // 0x326d @0x6
0x3267…328d at0007 = ╱50╱P╱ // 0x326e @0x7
0x3267…328d at0008 = ╱e7╱ DIV ╱ // 0x326f @0x8
0x3267…328d at0009 = ╱31╱1╱ // 0x3270 @0x9
0x3267…328d at000a = ╱30╱0╱ // 0x3271 @0xa
0x3267…328d at000b = ╱30╱0╱ // 0x3272 @0xb
0x3267…328d at000c = ╱30╱0╱ // 0x3273 @0xc
0x3267…328d at000d = ╱30╱0╱ // 0x3274 @0xd
0x3267…328d at000e = ╱fe00409c0e╱ // 0x3275 @0xe
0x3267…328d at0013 = ╱eb╱ ; ╱ // 0x327a @0x13
0x3267…328d at0014 = ╱4b╱K╱ // 0x327b @0x14
0x3267…328d at0015 = ╱54╱T╱ // 0x327c @0x15
0x3267…328d at0016 = ╱41╱A╱ // 0x327d @0x16
0x3267…328d at0017 = ╱4c╱L╱ // 0x327e @0x17
0x3267…328d at0018 = ╱39╱9╱ // 0x327f @0x18
0x3267…328d at0019 = ╱dc╱ = ╱ // 0x3280 @0x19
0x3267…328d at001a = ╱50╱P╱ // 0x3281 @0x1a
0x3267…328d at001b = ╱e7╱ DIV ╱ // 0x3282 @0x1b
0x3267…328d at001c = ╱31╱1╱ // 0x3283 @0x1c
0x3267…328d at001d = ╱30╱0╱ // 0x3284 @0x1d
0x3267…328d at001e = ╱30╱0╱ // 0x3285 @0x1e
0x3267…328d at001f = ╱30╱0╱ // 0x3286 @0x1f
0x3267…328d at0020 = ╱fe0000fa0a╱ // 0x3287 @0x20
0x3267…328d at0025 = EOL // 0x328c @0x25
0x3267…328d }
0x328d…32a4 b9f1 6250 IF KTAL9 = J2 THEN I8 = KTAL9
0x328d…32a4 LineComalBcd {
0x328d…32a4 ptr = 0xb9f1 // 0x328d @0x0
0x328d…32a4 lno = 0x6250 // 0x328f @0x2
0x328d…32a4 at0004 = ╱82╱ IF ╱ // 0x3291 @0x4
0x328d…32a4 at0005 = ╱4b╱K╱ // 0x3292 @0x5
0x328d…32a4 at0006 = ╱54╱T╱ // 0x3293 @0x6
0x328d…32a4 at0007 = ╱41╱A╱ // 0x3294 @0x7
0x328d…32a4 at0008 = ╱4c╱L╱ // 0x3295 @0x8
0x328d…32a4 at0009 = ╱39╱9╱ // 0x3296 @0x9
0x328d…32a4 at000a = ╱dc╱ = ╱ // 0x3297 @0xa
0x328d…32a4 at000b = ╱4a╱J╱ // 0x3298 @0xb
0x328d…32a4 at000c = ╱32╱2╱ // 0x3299 @0xc
0x328d…32a4 at000d = ╱b6╱ THEN ╱ // 0x329a @0xd
0x328d…32a4 at000e = ╱49╱I╱ // 0x329b @0xe
0x328d…32a4 at000f = ╱38╱8╱ // 0x329c @0xf
0x328d…32a4 at0010 = ╱dc╱ = ╱ // 0x329d @0x10
0x328d…32a4 at0011 = ╱4b╱K╱ // 0x329e @0x11
0x328d…32a4 at0012 = ╱54╱T╱ // 0x329f @0x12
0x328d…32a4 at0013 = ╱41╱A╱ // 0x32a0 @0x13
0x328d…32a4 at0014 = ╱4c╱L╱ // 0x32a1 @0x14
0x328d…32a4 at0015 = ╱39╱9╱ // 0x32a2 @0x15
0x328d…32a4 at0016 = EOL // 0x32a3 @0x16
0x328d…32a4 }
0x32a4…32b1 b9fe 6260 WHEN 0
0x32a4…32b1 LineComalBcd {
0x32a4…32b1 ptr = 0xb9fe // 0x32a4 @0x0
0x32a4…32b1 lno = 0x6260 // 0x32a6 @0x2
0x32a4…32b1 at0004 = ╱a301╱ WHEN ╱ // 0x32a8 @0x4
0x32a4…32b1 at0006 = ╱30╱0╱ // 0x32aa @0x6
0x32a4…32b1 at0007 = ╱fe00000000╱ // 0x32ab @0x7
0x32a4…32b1 at000c = EOL // 0x32b0 @0xc
0x32a4…32b1 }
0x32b1…32bf ba0c 6270 P = - 1
0x32b1…32bf LineComalBcd {
0x32b1…32bf ptr = 0xba0c // 0x32b1 @0x0
0x32b1…32bf lno = 0x6270 // 0x32b3 @0x2
0x32b1…32bf at0004 = ╱50╱P╱ // 0x32b5 @0x4
0x32b1…32bf at0005 = ╱dc╱ = ╱ // 0x32b6 @0x5
0x32b1…32bf at0006 = ╱e9╱ - ╱ // 0x32b7 @0x6
0x32b1…32bf at0007 = ╱31╱1╱ // 0x32b8 @0x7
0x32b1…32bf at0008 = ╱fe00008001╱ // 0x32b9 @0x8
0x32b1…32bf at000d = EOL // 0x32be @0xd
0x32b1…32bf }
0x32bf…32cc ba19 6280 WHEN 1
0x32bf…32cc LineComalBcd {
0x32bf…32cc ptr = 0xba19 // 0x32bf @0x0
0x32bf…32cc lno = 0x6280 // 0x32c1 @0x2
0x32bf…32cc at0004 = ╱a301╱ WHEN ╱ // 0x32c3 @0x4
0x32bf…32cc at0006 = ╱31╱1╱ // 0x32c5 @0x6
0x32bf…32cc at0007 = ╱fe00008001╱ // 0x32c6 @0x7
0x32bf…32cc at000c = EOL // 0x32cb @0xc
0x32bf…32cc }
0x32cc…32d7 ba24 6290 CASE P7 $ OF
0x32cc…32d7 LineComalBcd {
0x32cc…32d7 ptr = 0xba24 // 0x32cc @0x0
0x32cc…32d7 lno = 0x6290 // 0x32ce @0x2
0x32cc…32d7 at0004 = ╱a200╱ CASE ╱ // 0x32d0 @0x4
0x32cc…32d7 at0006 = ╱50╱P╱ // 0x32d2 @0x6
0x32cc…32d7 at0007 = ╱37╱7╱ // 0x32d3 @0x7
0x32cc…32d7 at0008 = ╱ef╱ $ ╱ // 0x32d4 @0x8
0x32cc…32d7 at0009 = ╱ba╱ OF ╱ // 0x32d5 @0x9
0x32cc…32d7 at000a = EOL // 0x32d6 @0xa
0x32cc…32d7 }
0x32d7…32ef ba3c 6300 P = INT ( ORD ( P7 $ ) - 48 )
0x32d7…32ef LineComalBcd {
0x32d7…32ef ptr = 0xba3c // 0x32d7 @0x0
0x32d7…32ef lno = 0x6300 // 0x32d9 @0x2
0x32d7…32ef at0004 = ╱50╱P╱ // 0x32db @0x4
0x32d7…32ef at0005 = ╱dc╱ = ╱ // 0x32dc @0x5
0x32d7…32ef at0006 = ╱c6╱ INT ╱ // 0x32dd @0x6
0x32d7…32ef at0007 = ╱ed╱ ( ╱ // 0x32de @0x7
0x32d7…32ef at0008 = ╱cd╱ ORD ╱ // 0x32df @0x8
0x32d7…32ef at0009 = ╱ed╱ ( ╱ // 0x32e0 @0x9
0x32d7…32ef at000a = ╱50╱P╱ // 0x32e1 @0xa
0x32d7…32ef at000b = ╱37╱7╱ // 0x32e2 @0xb
0x32d7…32ef at000c = ╱ef╱ $ ╱ // 0x32e3 @0xc
0x32d7…32ef at000d = ╱ee╱ ) ╱ // 0x32e4 @0xd
0x32d7…32ef at000e = ╱e3╱ - ╱ // 0x32e5 @0xe
0x32d7…32ef at000f = ╱34╱4╱ // 0x32e6 @0xf
0x32d7…32ef at0010 = ╱38╱8╱ // 0x32e7 @0x10
0x32d7…32ef at0011 = ╱fe0000c006╱ // 0x32e8 @0x11
0x32d7…32ef at0016 = ╱ee╱ ) ╱ // 0x32ed @0x16
0x32d7…32ef at0017 = EOL // 0x32ee @0x17
0x32d7…32ef }
0x32ef…32fd ba4a 6310 WHEN "d" , "D"
0x32ef…32fd LineComalBcd {
0x32ef…32fd ptr = 0xba4a // 0x32ef @0x0
0x32ef…32fd lno = 0x6310 // 0x32f1 @0x2
0x32ef…32fd at0004 = ╱a300╱ WHEN ╱ // 0x32f3 @0x4
0x32ef…32fd at0006 = ╱22╱"╱ // 0x32f5 @0x6
0x32ef…32fd at0007 = ╱64╱d╱ // 0x32f6 @0x7
0x32ef…32fd at0008 = ╱22╱"╱ // 0x32f7 @0x8
0x32ef…32fd at0009 = ╱ec╱ , ╱ // 0x32f8 @0x9
0x32ef…32fd at000a = ╱22╱"╱ // 0x32f9 @0xa
0x32ef…32fd at000b = ╱44╱D╱ // 0x32fa @0xb
0x32ef…32fd at000c = ╱22╱"╱ // 0x32fb @0xc
0x32ef…32fd at000d = EOL // 0x32fc @0xd
0x32ef…32fd }
0x32fd…330b ba58 6320 P = - 2
0x32fd…330b LineComalBcd {
0x32fd…330b ptr = 0xba58 // 0x32fd @0x0
0x32fd…330b lno = 0x6320 // 0x32ff @0x2
0x32fd…330b at0004 = ╱50╱P╱ // 0x3301 @0x4
0x32fd…330b at0005 = ╱dc╱ = ╱ // 0x3302 @0x5
0x32fd…330b at0006 = ╱e9╱ - ╱ // 0x3303 @0x6
0x32fd…330b at0007 = ╱32╱2╱ // 0x3304 @0x7
0x32fd…330b at0008 = ╱fe00008002╱ // 0x3305 @0x8
0x32fd…330b at000d = EOL // 0x330a @0xd
0x32fd…330b }
0x330b…3319 ba66 6330 WHEN "a" , "A"
0x330b…3319 LineComalBcd {
0x330b…3319 ptr = 0xba66 // 0x330b @0x0
0x330b…3319 lno = 0x6330 // 0x330d @0x2
0x330b…3319 at0004 = ╱a300╱ WHEN ╱ // 0x330f @0x4
0x330b…3319 at0006 = ╱22╱"╱ // 0x3311 @0x6
0x330b…3319 at0007 = ╱61╱a╱ // 0x3312 @0x7
0x330b…3319 at0008 = ╱22╱"╱ // 0x3313 @0x8
0x330b…3319 at0009 = ╱ec╱ , ╱ // 0x3314 @0x9
0x330b…3319 at000a = ╱22╱"╱ // 0x3315 @0xa
0x330b…3319 at000b = ╱41╱A╱ // 0x3316 @0xb
0x330b…3319 at000c = ╱22╱"╱ // 0x3317 @0xc
0x330b…3319 at000d = EOL // 0x3318 @0xd
0x330b…3319 }
0x3319…3327 ba74 6340 P = - 3
0x3319…3327 LineComalBcd {
0x3319…3327 ptr = 0xba74 // 0x3319 @0x0
0x3319…3327 lno = 0x6340 // 0x331b @0x2
0x3319…3327 at0004 = ╱50╱P╱ // 0x331d @0x4
0x3319…3327 at0005 = ╱dc╱ = ╱ // 0x331e @0x5
0x3319…3327 at0006 = ╱e9╱ - ╱ // 0x331f @0x6
0x3319…3327 at0007 = ╱33╱3╱ // 0x3320 @0x7
0x3319…3327 at0008 = ╱fe0000c002╱ // 0x3321 @0x8
0x3319…3327 at000d = EOL // 0x3326 @0xd
0x3319…3327 }
0x3327…3335 ba82 6350 WHEN "j" , "J"
0x3327…3335 LineComalBcd {
0x3327…3335 ptr = 0xba82 // 0x3327 @0x0
0x3327…3335 lno = 0x6350 // 0x3329 @0x2
0x3327…3335 at0004 = ╱a300╱ WHEN ╱ // 0x332b @0x4
0x3327…3335 at0006 = ╱22╱"╱ // 0x332d @0x6
0x3327…3335 at0007 = ╱6a╱j╱ // 0x332e @0x7
0x3327…3335 at0008 = ╱22╱"╱ // 0x332f @0x8
0x3327…3335 at0009 = ╱ec╱ , ╱ // 0x3330 @0x9
0x3327…3335 at000a = ╱22╱"╱ // 0x3331 @0xa
0x3327…3335 at000b = ╱4a╱J╱ // 0x3332 @0xb
0x3327…3335 at000c = ╱22╱"╱ // 0x3333 @0xc
0x3327…3335 at000d = EOL // 0x3334 @0xd
0x3327…3335 }
0x3335…3343 ba90 6360 P = - 7
0x3335…3343 LineComalBcd {
0x3335…3343 ptr = 0xba90 // 0x3335 @0x0
0x3335…3343 lno = 0x6360 // 0x3337 @0x2
0x3335…3343 at0004 = ╱50╱P╱ // 0x3339 @0x4
0x3335…3343 at0005 = ╱dc╱ = ╱ // 0x333a @0x5
0x3335…3343 at0006 = ╱e9╱ - ╱ // 0x333b @0x6
0x3335…3343 at0007 = ╱37╱7╱ // 0x333c @0x7
0x3335…3343 at0008 = ╱fe0000e003╱ // 0x333d @0x8
0x3335…3343 at000d = EOL // 0x3342 @0xd
0x3335…3343 }
0x3343…3351 ba9e 6370 WHEN "n" , "N"
0x3343…3351 LineComalBcd {
0x3343…3351 ptr = 0xba9e // 0x3343 @0x0
0x3343…3351 lno = 0x6370 // 0x3345 @0x2
0x3343…3351 at0004 = ╱a300╱ WHEN ╱ // 0x3347 @0x4
0x3343…3351 at0006 = ╱22╱"╱ // 0x3349 @0x6
0x3343…3351 at0007 = ╱6e╱n╱ // 0x334a @0x7
0x3343…3351 at0008 = ╱22╱"╱ // 0x334b @0x8
0x3343…3351 at0009 = ╱ec╱ , ╱ // 0x334c @0x9
0x3343…3351 at000a = ╱22╱"╱ // 0x334d @0xa
0x3343…3351 at000b = ╱4e╱N╱ // 0x334e @0xb
0x3343…3351 at000c = ╱22╱"╱ // 0x334f @0xc
0x3343…3351 at000d = EOL // 0x3350 @0xd
0x3343…3351 }
0x3351…335f baac 6380 P = - 8
0x3351…335f LineComalBcd {
0x3351…335f ptr = 0xbaac // 0x3351 @0x0
0x3351…335f lno = 0x6380 // 0x3353 @0x2
0x3351…335f at0004 = ╱50╱P╱ // 0x3355 @0x4
0x3351…335f at0005 = ╱dc╱ = ╱ // 0x3356 @0x5
0x3351…335f at0006 = ╱e9╱ - ╱ // 0x3357 @0x6
0x3351…335f at0007 = ╱38╱8╱ // 0x3358 @0x7
0x3351…335f at0008 = ╱fe00008004╱ // 0x3359 @0x8
0x3351…335f at000d = EOL // 0x335e @0xd
0x3351…335f }
0x335f…3365 bab2 6390 ENDCASE
0x335f…3365 LineComalBcd {
0x335f…3365 ptr = 0xbab2 // 0x335f @0x0
0x335f…3365 lno = 0x6390 // 0x3361 @0x2
0x335f…3365 at0004 = ╱a4╱ ENDCASE ╱ // 0x3363 @0x4
0x335f…3365 at0005 = EOL // 0x3364 @0x5
0x335f…3365 }
0x3365…336b bab8 6400 ENDCASE
0x3365…336b LineComalBcd {
0x3365…336b ptr = 0xbab8 // 0x3365 @0x0
0x3365…336b lno = 0x6400 // 0x3367 @0x2
0x3365…336b at0004 = ╱a4╱ ENDCASE ╱ // 0x3369 @0x4
0x3365…336b at0005 = EOL // 0x336a @0x5
0x3365…336b }
0x336b…3371 babe 6410 ENDPROC
0x336b…3371 LineComalBcd {
0x336b…3371 ptr = 0xbabe // 0x336b @0x0
0x336b…3371 lno = 0x6410 // 0x336d @0x2
0x336b…3371 at0004 = ╱9f╱ ENDPROC ╱ // 0x336f @0x4
0x336b…3371 at0005 = EOL // 0x3370 @0x5
0x336b…3371 }
0x3371…337f bacc 6420 PROC HENTPOST
0x3371…337f LineComalBcd {
0x3371…337f ptr = 0xbacc // 0x3371 @0x0
0x3371…337f lno = 0x6420 // 0x3373 @0x2
0x3371…337f at0004 = ╱9e╱ PROC ╱ // 0x3375 @0x4
0x3371…337f at0005 = ╱48╱H╱ // 0x3376 @0x5
0x3371…337f at0006 = ╱45╱E╱ // 0x3377 @0x6
0x3371…337f at0007 = ╱4e╱N╱ // 0x3378 @0x7
0x3371…337f at0008 = ╱54╱T╱ // 0x3379 @0x8
0x3371…337f at0009 = ╱50╱P╱ // 0x337a @0x9
0x3371…337f at000a = ╱4f╱O╱ // 0x337b @0xa
0x3371…337f at000b = ╱53╱S╱ // 0x337c @0xb
0x3371…337f at000c = ╱54╱T╱ // 0x337d @0xc
0x3371…337f at000d = EOL // 0x337e @0xd
0x3371…337f }
0x337f…3394 bae1 6430 J7 = M8 ( N0 , 2 )
0x337f…3394 LineComalBcd {
0x337f…3394 ptr = 0xbae1 // 0x337f @0x0
0x337f…3394 lno = 0x6430 // 0x3381 @0x2
0x337f…3394 at0004 = ╱4a╱J╱ // 0x3383 @0x4
0x337f…3394 at0005 = ╱37╱7╱ // 0x3384 @0x5
0x337f…3394 at0006 = ╱dc╱ = ╱ // 0x3385 @0x6
0x337f…3394 at0007 = ╱4d╱M╱ // 0x3386 @0x7
0x337f…3394 at0008 = ╱38╱8╱ // 0x3387 @0x8
0x337f…3394 at0009 = ╱ed╱ ( ╱ // 0x3388 @0x9
0x337f…3394 at000a = ╱4e╱N╱ // 0x3389 @0xa
0x337f…3394 at000b = ╱30╱0╱ // 0x338a @0xb
0x337f…3394 at000c = ╱ec╱ , ╱ // 0x338b @0xc
0x337f…3394 at000d = ╱32╱2╱ // 0x338c @0xd
0x337f…3394 at000e = ╱fe00008002╱ // 0x338d @0xe
0x337f…3394 at0013 = ╱ee╱ ) ╱ // 0x3392 @0x13
0x337f…3394 at0014 = EOL // 0x3393 @0x14
0x337f…3394 }
0x3394…33a7 baf4 6440 GET C9 $ , J7 : P9 , B0 $
0x3394…33a7 LineComalBcd {
0x3394…33a7 ptr = 0xbaf4 // 0x3394 @0x0
0x3394…33a7 lno = 0x6440 // 0x3396 @0x2
0x3394…33a7 at0004 = ╱a9╱ GET ╱ // 0x3398 @0x4
0x3394…33a7 at0005 = ╱43╱C╱ // 0x3399 @0x5
0x3394…33a7 at0006 = ╱39╱9╱ // 0x339a @0x6
0x3394…33a7 at0007 = ╱ef╱ $ ╱ // 0x339b @0x7
0x3394…33a7 at0008 = ╱ec╱ , ╱ // 0x339c @0x8
0x3394…33a7 at0009 = ╱4a╱J╱ // 0x339d @0x9
0x3394…33a7 at000a = ╱37╱7╱ // 0x339e @0xa
0x3394…33a7 at000b = ╱f0╱ : ╱ // 0x339f @0xb
0x3394…33a7 at000c = ╱50╱P╱ // 0x33a0 @0xc
0x3394…33a7 at000d = ╱39╱9╱ // 0x33a1 @0xd
0x3394…33a7 at000e = ╱ec╱ , ╱ // 0x33a2 @0xe
0x3394…33a7 at000f = ╱42╱B╱ // 0x33a3 @0xf
0x3394…33a7 at0010 = ╱30╱0╱ // 0x33a4 @0x10
0x3394…33a7 at0011 = ╱ef╱ $ ╱ // 0x33a5 @0x11
0x3394…33a7 at0012 = EOL // 0x33a6 @0x12
0x3394…33a7 }
0x33a7…33c4 bb11 6450 EXEC FEJL ( 3 , 2 , C9 $ )
0x33a7…33c4 LineComalBcd {
0x33a7…33c4 ptr = 0xbb11 // 0x33a7 @0x0
0x33a7…33c4 lno = 0x6450 // 0x33a9 @0x2
0x33a7…33c4 at0004 = ╱9d╱ EXEC ╱ // 0x33ab @0x4
0x33a7…33c4 at0005 = ╱46╱F╱ // 0x33ac @0x5
0x33a7…33c4 at0006 = ╱45╱E╱ // 0x33ad @0x6
0x33a7…33c4 at0007 = ╱4a╱J╱ // 0x33ae @0x7
0x33a7…33c4 at0008 = ╱4c╱L╱ // 0x33af @0x8
0x33a7…33c4 at0009 = ╱ed╱ ( ╱ // 0x33b0 @0x9
0x33a7…33c4 at000a = ╱33╱3╱ // 0x33b1 @0xa
0x33a7…33c4 at000b = ╱fe0000c002╱ // 0x33b2 @0xb
0x33a7…33c4 at0010 = ╱ec╱ , ╱ // 0x33b7 @0x10
0x33a7…33c4 at0011 = ╱32╱2╱ // 0x33b8 @0x11
0x33a7…33c4 at0012 = ╱fe00008002╱ // 0x33b9 @0x12
0x33a7…33c4 at0017 = ╱ec╱ , ╱ // 0x33be @0x17
0x33a7…33c4 at0018 = ╱43╱C╱ // 0x33bf @0x18
0x33a7…33c4 at0019 = ╱39╱9╱ // 0x33c0 @0x19
0x33a7…33c4 at001a = ╱ef╱ $ ╱ // 0x33c1 @0x1a
0x33a7…33c4 at001b = ╱ee╱ ) ╱ // 0x33c2 @0x1b
0x33a7…33c4 at001c = EOL // 0x33c3 @0x1c
0x33a7…33c4 }
0x33c4…33dc bb29 6460 IF P9 >< M8 ( N0 , 1 ) THEN STOP
0x33c4…33dc LineComalBcd {
0x33c4…33dc ptr = 0xbb29 // 0x33c4 @0x0
0x33c4…33dc lno = 0x6460 // 0x33c6 @0x2
0x33c4…33dc at0004 = ╱82╱ IF ╱ // 0x33c8 @0x4
0x33c4…33dc at0005 = ╱50╱P╱ // 0x33c9 @0x5
0x33c4…33dc at0006 = ╱39╱9╱ // 0x33ca @0x6
0x33c4…33dc at0007 = ╱e1╱ >< ╱ // 0x33cb @0x7
0x33c4…33dc at0008 = ╱4d╱M╱ // 0x33cc @0x8
0x33c4…33dc at0009 = ╱38╱8╱ // 0x33cd @0x9
0x33c4…33dc at000a = ╱ed╱ ( ╱ // 0x33ce @0xa
0x33c4…33dc at000b = ╱4e╱N╱ // 0x33cf @0xb
0x33c4…33dc at000c = ╱30╱0╱ // 0x33d0 @0xc
0x33c4…33dc at000d = ╱ec╱ , ╱ // 0x33d1 @0xd
0x33c4…33dc at000e = ╱31╱1╱ // 0x33d2 @0xe
0x33c4…33dc at000f = ╱fe00008001╱ // 0x33d3 @0xf
0x33c4…33dc at0014 = ╱ee╱ ) ╱ // 0x33d8 @0x14
0x33c4…33dc at0015 = ╱b6╱ THEN ╱ // 0x33d9 @0x15
0x33c4…33dc at0016 = ╱8d╱ STOP ╱ // 0x33da @0x16
0x33c4…33dc at0017 = EOL // 0x33db @0x17
0x33c4…33dc }
0x33dc…33fb bb48 6470 GET C9 $ , J7 + 1 : G0 $ , D7 $ , D8 $
0x33dc…33fb LineComalBcd {
0x33dc…33fb ptr = 0xbb48 // 0x33dc @0x0
0x33dc…33fb lno = 0x6470 // 0x33de @0x2
0x33dc…33fb at0004 = ╱a9╱ GET ╱ // 0x33e0 @0x4
0x33dc…33fb at0005 = ╱43╱C╱ // 0x33e1 @0x5
0x33dc…33fb at0006 = ╱39╱9╱ // 0x33e2 @0x6
0x33dc…33fb at0007 = ╱ef╱ $ ╱ // 0x33e3 @0x7
0x33dc…33fb at0008 = ╱ec╱ , ╱ // 0x33e4 @0x8
0x33dc…33fb at0009 = ╱4a╱J╱ // 0x33e5 @0x9
0x33dc…33fb at000a = ╱37╱7╱ // 0x33e6 @0xa
0x33dc…33fb at000b = ╱e2╱ + ╱ // 0x33e7 @0xb
0x33dc…33fb at000c = ╱31╱1╱ // 0x33e8 @0xc
0x33dc…33fb at000d = ╱fe00008001╱ // 0x33e9 @0xd
0x33dc…33fb at0012 = ╱f0╱ : ╱ // 0x33ee @0x12
0x33dc…33fb at0013 = ╱47╱G╱ // 0x33ef @0x13
0x33dc…33fb at0014 = ╱30╱0╱ // 0x33f0 @0x14
0x33dc…33fb at0015 = ╱ef╱ $ ╱ // 0x33f1 @0x15
0x33dc…33fb at0016 = ╱ec╱ , ╱ // 0x33f2 @0x16
0x33dc…33fb at0017 = ╱44╱D╱ // 0x33f3 @0x17
0x33dc…33fb at0018 = ╱37╱7╱ // 0x33f4 @0x18
0x33dc…33fb at0019 = ╱ef╱ $ ╱ // 0x33f5 @0x19
0x33dc…33fb at001a = ╱ec╱ , ╱ // 0x33f6 @0x1a
0x33dc…33fb at001b = ╱44╱D╱ // 0x33f7 @0x1b
0x33dc…33fb at001c = ╱38╱8╱ // 0x33f8 @0x1c
0x33dc…33fb at001d = ╱ef╱ $ ╱ // 0x33f9 @0x1d
0x33dc…33fb at001e = EOL // 0x33fa @0x1e
0x33dc…33fb }
0x33fb…3418 bb65 6480 EXEC FEJL ( 3 , 3 , C9 $ )
0x33fb…3418 LineComalBcd {
0x33fb…3418 ptr = 0xbb65 // 0x33fb @0x0
0x33fb…3418 lno = 0x6480 // 0x33fd @0x2
0x33fb…3418 at0004 = ╱9d╱ EXEC ╱ // 0x33ff @0x4
0x33fb…3418 at0005 = ╱46╱F╱ // 0x3400 @0x5
0x33fb…3418 at0006 = ╱45╱E╱ // 0x3401 @0x6
0x33fb…3418 at0007 = ╱4a╱J╱ // 0x3402 @0x7
0x33fb…3418 at0008 = ╱4c╱L╱ // 0x3403 @0x8
0x33fb…3418 at0009 = ╱ed╱ ( ╱ // 0x3404 @0x9
0x33fb…3418 at000a = ╱33╱3╱ // 0x3405 @0xa
0x33fb…3418 at000b = ╱fe0000c002╱ // 0x3406 @0xb
0x33fb…3418 at0010 = ╱ec╱ , ╱ // 0x340b @0x10
0x33fb…3418 at0011 = ╱33╱3╱ // 0x340c @0x11
0x33fb…3418 at0012 = ╱fe0000c002╱ // 0x340d @0x12
0x33fb…3418 at0017 = ╱ec╱ , ╱ // 0x3412 @0x17
0x33fb…3418 at0018 = ╱43╱C╱ // 0x3413 @0x18
0x33fb…3418 at0019 = ╱39╱9╱ // 0x3414 @0x19
0x33fb…3418 at001a = ╱ef╱ $ ╱ // 0x3415 @0x1a
0x33fb…3418 at001b = ╱ee╱ ) ╱ // 0x3416 @0x1b
0x33fb…3418 at001c = EOL // 0x3417 @0x1c
0x33fb…3418 }
0x3418…3437 bb84 6490 GET C9 $ , J7 + 2 : E6 $ , D9 $ , E0 $
0x3418…3437 LineComalBcd {
0x3418…3437 ptr = 0xbb84 // 0x3418 @0x0
0x3418…3437 lno = 0x6490 // 0x341a @0x2
0x3418…3437 at0004 = ╱a9╱ GET ╱ // 0x341c @0x4
0x3418…3437 at0005 = ╱43╱C╱ // 0x341d @0x5
0x3418…3437 at0006 = ╱39╱9╱ // 0x341e @0x6
0x3418…3437 at0007 = ╱ef╱ $ ╱ // 0x341f @0x7
0x3418…3437 at0008 = ╱ec╱ , ╱ // 0x3420 @0x8
0x3418…3437 at0009 = ╱4a╱J╱ // 0x3421 @0x9
0x3418…3437 at000a = ╱37╱7╱ // 0x3422 @0xa
0x3418…3437 at000b = ╱e2╱ + ╱ // 0x3423 @0xb
0x3418…3437 at000c = ╱32╱2╱ // 0x3424 @0xc
0x3418…3437 at000d = ╱fe00008002╱ // 0x3425 @0xd
0x3418…3437 at0012 = ╱f0╱ : ╱ // 0x342a @0x12
0x3418…3437 at0013 = ╱45╱E╱ // 0x342b @0x13
0x3418…3437 at0014 = ╱36╱6╱ // 0x342c @0x14
0x3418…3437 at0015 = ╱ef╱ $ ╱ // 0x342d @0x15
0x3418…3437 at0016 = ╱ec╱ , ╱ // 0x342e @0x16
0x3418…3437 at0017 = ╱44╱D╱ // 0x342f @0x17
0x3418…3437 at0018 = ╱39╱9╱ // 0x3430 @0x18
0x3418…3437 at0019 = ╱ef╱ $ ╱ // 0x3431 @0x19
0x3418…3437 at001a = ╱ec╱ , ╱ // 0x3432 @0x1a
0x3418…3437 at001b = ╱45╱E╱ // 0x3433 @0x1b
0x3418…3437 at001c = ╱30╱0╱ // 0x3434 @0x1c
0x3418…3437 at001d = ╱ef╱ $ ╱ // 0x3435 @0x1d
0x3418…3437 at001e = EOL // 0x3436 @0x1e
0x3418…3437 }
0x3437…3454 bba1 6500 EXEC FEJL ( 3 , 4 , C9 $ )
0x3437…3454 LineComalBcd {
0x3437…3454 ptr = 0xbba1 // 0x3437 @0x0
0x3437…3454 lno = 0x6500 // 0x3439 @0x2
0x3437…3454 at0004 = ╱9d╱ EXEC ╱ // 0x343b @0x4
0x3437…3454 at0005 = ╱46╱F╱ // 0x343c @0x5
0x3437…3454 at0006 = ╱45╱E╱ // 0x343d @0x6
0x3437…3454 at0007 = ╱4a╱J╱ // 0x343e @0x7
0x3437…3454 at0008 = ╱4c╱L╱ // 0x343f @0x8
0x3437…3454 at0009 = ╱ed╱ ( ╱ // 0x3440 @0x9
0x3437…3454 at000a = ╱33╱3╱ // 0x3441 @0xa
0x3437…3454 at000b = ╱fe0000c002╱ // 0x3442 @0xb
0x3437…3454 at0010 = ╱ec╱ , ╱ // 0x3447 @0x10
0x3437…3454 at0011 = ╱34╱4╱ // 0x3448 @0x11
0x3437…3454 at0012 = ╱fe00008003╱ // 0x3449 @0x12
0x3437…3454 at0017 = ╱ec╱ , ╱ // 0x344e @0x17
0x3437…3454 at0018 = ╱43╱C╱ // 0x344f @0x18
0x3437…3454 at0019 = ╱39╱9╱ // 0x3450 @0x19
0x3437…3454 at001a = ╱ef╱ $ ╱ // 0x3451 @0x1a
0x3437…3454 at001b = ╱ee╱ ) ╱ // 0x3452 @0x1b
0x3437…3454 at001c = EOL // 0x3453 @0x1c
0x3437…3454 }
0x3454…345a bba7 6510 ENDPROC
0x3454…345a LineComalBcd {
0x3454…345a ptr = 0xbba7 // 0x3454 @0x0
0x3454…345a lno = 0x6510 // 0x3456 @0x2
0x3454…345a at0004 = ╱9f╱ ENDPROC ╱ // 0x3458 @0x4
0x3454…345a at0005 = EOL // 0x3459 @0x5
0x3454…345a }
0x345a…346a bbb7 6520 PROC BFSTEMNING
0x345a…346a LineComalBcd {
0x345a…346a ptr = 0xbbb7 // 0x345a @0x0
0x345a…346a lno = 0x6520 // 0x345c @0x2
0x345a…346a at0004 = ╱9e╱ PROC ╱ // 0x345e @0x4
0x345a…346a at0005 = ╱42╱B╱ // 0x345f @0x5
0x345a…346a at0006 = ╱46╱F╱ // 0x3460 @0x6
0x345a…346a at0007 = ╱53╱S╱ // 0x3461 @0x7
0x345a…346a at0008 = ╱54╱T╱ // 0x3462 @0x8
0x345a…346a at0009 = ╱45╱E╱ // 0x3463 @0x9
0x345a…346a at000a = ╱4d╱M╱ // 0x3464 @0xa
0x345a…346a at000b = ╱4e╱N╱ // 0x3465 @0xb
0x345a…346a at000c = ╱49╱I╱ // 0x3466 @0xc
0x345a…346a at000d = ╱4e╱N╱ // 0x3467 @0xd
0x345a…346a at000e = ╱47╱G╱ // 0x3468 @0xe
0x345a…346a at000f = EOL // 0x3469 @0xf
0x345a…346a }
0x346a…3470 bbbd 6530 REPEAT
0x346a…3470 LineComalBcd {
0x346a…3470 ptr = 0xbbbd // 0x346a @0x0
0x346a…3470 lno = 0x6530 // 0x346c @0x2
0x346a…3470 at0004 = ╱97╱ REPEAT ╱ // 0x346e @0x4
0x346a…3470 at0005 = EOL // 0x346f @0x5
0x346a…3470 }
0x3470…3476 bbc3 6540 CLEAR
0x3470…3476 LineComalBcd {
0x3470…3476 ptr = 0xbbc3 // 0x3470 @0x0
0x3470…3476 lno = 0x6540 // 0x3472 @0x2
0x3470…3476 at0004 = ╱a0╱ CLEAR ╱ // 0x3474 @0x4
0x3470…3476 at0005 = EOL // 0x3475 @0x5
0x3470…3476 }
0x3476…348a bbd7 6550 CURSOR 21 , 1
0x3476…348a LineComalBcd {
0x3476…348a ptr = 0xbbd7 // 0x3476 @0x0
0x3476…348a lno = 0x6550 // 0x3478 @0x2
0x3476…348a at0004 = ╱a1╱ CURSOR ╱ // 0x347a @0x4
0x3476…348a at0005 = ╱32╱2╱ // 0x347b @0x5
0x3476…348a at0006 = ╱31╱1╱ // 0x347c @0x6
0x3476…348a at0007 = ╱fe0000a805╱ // 0x347d @0x7
0x3476…348a at000c = ╱ec╱ , ╱ // 0x3482 @0xc
0x3476…348a at000d = ╱31╱1╱ // 0x3483 @0xd
0x3476…348a at000e = ╱fe00008001╱ // 0x3484 @0xe
0x3476…348a at0013 = EOL // 0x3489 @0x13
0x3476…348a }
0x348a…34a9 bbf6 6560 PRINT "Kasserapport…afstemning"
0x348a…34a9 LineComalBcd {
0x348a…34a9 ptr = 0xbbf6 // 0x348a @0x0
0x348a…34a9 lno = 0x6560 // 0x348c @0x2
0x348a…34a9 at0004 = ╱92╱ PRINT ╱ // 0x348e @0x4
0x348a…34a9 at0005 = ╱22╱"╱ // 0x348f @0x5
0x348a…34a9 at0006 = ╱4b╱K╱ // 0x3490 @0x6
0x348a…34a9 at0007 = ╱61╱a╱ // 0x3491 @0x7
0x348a…34a9 at0008 = ╱73╱s╱ // 0x3492 @0x8
0x348a…34a9 at0009 = ╱73╱s╱ // 0x3493 @0x9
0x348a…34a9 at000a = ╱65╱e╱ // 0x3494 @0xa
0x348a…34a9 at000b = ╱72╱r╱ // 0x3495 @0xb
0x348a…34a9 at000c = ╱61╱a╱ // 0x3496 @0xc
0x348a…34a9 at000d = ╱70╱p╱ // 0x3497 @0xd
0x348a…34a9 at000e = ╱70╱p╱ // 0x3498 @0xe
0x348a…34a9 at000f = ╱6f╱o╱ // 0x3499 @0xf
0x348a…34a9 at0010 = ╱72╱r╱ // 0x349a @0x10
0x348a…34a9 at0011 = ╱74╱t╱ // 0x349b @0x11
0x348a…34a9 at0012 = ╱20╱…╱ // 0x349c @0x12
0x348a…34a9 at0013 = ╱61╱a╱ // 0x349d @0x13
0x348a…34a9 at0014 = ╱66╱f╱ // 0x349e @0x14
0x348a…34a9 at0015 = ╱73╱s╱ // 0x349f @0x15
0x348a…34a9 at0016 = ╱74╱t╱ // 0x34a0 @0x16
0x348a…34a9 at0017 = ╱65╱e╱ // 0x34a1 @0x17
0x348a…34a9 at0018 = ╱6d╱m╱ // 0x34a2 @0x18
0x348a…34a9 at0019 = ╱6e╱n╱ // 0x34a3 @0x19
0x348a…34a9 at001a = ╱69╱i╱ // 0x34a4 @0x1a
0x348a…34a9 at001b = ╱6e╱n╱ // 0x34a5 @0x1b
0x348a…34a9 at001c = ╱67╱g╱ // 0x34a6 @0x1c
0x348a…34a9 at001d = ╱22╱"╱ // 0x34a7 @0x1d
0x348a…34a9 at001e = EOL // 0x34a8 @0x1e
0x348a…34a9 }
0x34a9…34bd bc0a 6570 CURSOR 66 , 1
0x34a9…34bd LineComalBcd {
0x34a9…34bd ptr = 0xbc0a // 0x34a9 @0x0
0x34a9…34bd lno = 0x6570 // 0x34ab @0x2
0x34a9…34bd at0004 = ╱a1╱ CURSOR ╱ // 0x34ad @0x4
0x34a9…34bd at0005 = ╱36╱6╱ // 0x34ae @0x5
0x34a9…34bd at0006 = ╱36╱6╱ // 0x34af @0x6
0x34a9…34bd at0007 = ╱fe00008407╱ // 0x34b0 @0x7
0x34a9…34bd at000c = ╱ec╱ , ╱ // 0x34b5 @0xc
0x34a9…34bd at000d = ╱31╱1╱ // 0x34b6 @0xd
0x34a9…34bd at000e = ╱fe00008001╱ // 0x34b7 @0xe
0x34a9…34bd at0013 = EOL // 0x34bc @0x13
0x34a9…34bd }
0x34bd…34ce bc1b 6580 PRINT "Dato…:" ; J6
0x34bd…34ce LineComalBcd {
0x34bd…34ce ptr = 0xbc1b // 0x34bd @0x0
0x34bd…34ce lno = 0x6580 // 0x34bf @0x2
0x34bd…34ce at0004 = ╱92╱ PRINT ╱ // 0x34c1 @0x4
0x34bd…34ce at0005 = ╱22╱"╱ // 0x34c2 @0x5
0x34bd…34ce at0006 = ╱44╱D╱ // 0x34c3 @0x6
0x34bd…34ce at0007 = ╱61╱a╱ // 0x34c4 @0x7
0x34bd…34ce at0008 = ╱74╱t╱ // 0x34c5 @0x8
0x34bd…34ce at0009 = ╱6f╱o╱ // 0x34c6 @0x9
0x34bd…34ce at000a = ╱20╱…╱ // 0x34c7 @0xa
0x34bd…34ce at000b = ╱3a╱:╱ // 0x34c8 @0xb
0x34bd…34ce at000c = ╱22╱"╱ // 0x34c9 @0xc
0x34bd…34ce at000d = ╱eb╱ ; ╱ // 0x34ca @0xd
0x34bd…34ce at000e = ╱4a╱J╱ // 0x34cb @0xe
0x34bd…34ce at000f = ╱36╱6╱ // 0x34cc @0xf
0x34bd…34ce at0010 = EOL // 0x34cd @0x10
0x34bd…34ce }
0x34ce…34e2 bc2f 6590 CURSOR 21 , 3
0x34ce…34e2 LineComalBcd {
0x34ce…34e2 ptr = 0xbc2f // 0x34ce @0x0
0x34ce…34e2 lno = 0x6590 // 0x34d0 @0x2
0x34ce…34e2 at0004 = ╱a1╱ CURSOR ╱ // 0x34d2 @0x4
0x34ce…34e2 at0005 = ╱32╱2╱ // 0x34d3 @0x5
0x34ce…34e2 at0006 = ╱31╱1╱ // 0x34d4 @0x6
0x34ce…34e2 at0007 = ╱fe0000a805╱ // 0x34d5 @0x7
0x34ce…34e2 at000c = ╱ec╱ , ╱ // 0x34da @0xc
0x34ce…34e2 at000d = ╱33╱3╱ // 0x34db @0xd
0x34ce…34e2 at000e = ╱fe0000c002╱ // 0x34dc @0xe
0x34ce…34e2 at0013 = EOL // 0x34e1 @0x13
0x34ce…34e2 }
0x34e2…3508 bc55 6600 PRINT "Differencer………Indtastede…saldi"
0x34e2…3508 LineComalBcd {
0x34e2…3508 ptr = 0xbc55 // 0x34e2 @0x0
0x34e2…3508 lno = 0x6600 // 0x34e4 @0x2
0x34e2…3508 at0004 = ╱92╱ PRINT ╱ // 0x34e6 @0x4
0x34e2…3508 at0005 = ╱22╱"╱ // 0x34e7 @0x5
0x34e2…3508 at0006 = ╱44╱D╱ // 0x34e8 @0x6
0x34e2…3508 at0007 = ╱69╱i╱ // 0x34e9 @0x7
0x34e2…3508 at0008 = ╱66╱f╱ // 0x34ea @0x8
0x34e2…3508 at0009 = ╱66╱f╱ // 0x34eb @0x9
0x34e2…3508 at000a = ╱65╱e╱ // 0x34ec @0xa
0x34e2…3508 at000b = ╱72╱r╱ // 0x34ed @0xb
0x34e2…3508 at000c = ╱65╱e╱ // 0x34ee @0xc
0x34e2…3508 at000d = ╱6e╱n╱ // 0x34ef @0xd
0x34e2…3508 at000e = ╱63╱c╱ // 0x34f0 @0xe
0x34e2…3508 at000f = ╱65╱e╱ // 0x34f1 @0xf
0x34e2…3508 at0010 = ╱72╱r╱ // 0x34f2 @0x10
0x34e2…3508 at0011 = ╱20╱…╱ // 0x34f3 @0x11
0x34e2…3508 at0012 = ╱20╱…╱ // 0x34f4 @0x12
0x34e2…3508 at0013 = ╱20╱…╱ // 0x34f5 @0x13
0x34e2…3508 at0014 = ╱49╱I╱ // 0x34f6 @0x14
0x34e2…3508 at0015 = ╱6e╱n╱ // 0x34f7 @0x15
0x34e2…3508 at0016 = ╱64╱d╱ // 0x34f8 @0x16
0x34e2…3508 at0017 = ╱74╱t╱ // 0x34f9 @0x17
0x34e2…3508 at0018 = ╱61╱a╱ // 0x34fa @0x18
0x34e2…3508 at0019 = ╱73╱s╱ // 0x34fb @0x19
0x34e2…3508 at001a = ╱74╱t╱ // 0x34fc @0x1a
0x34e2…3508 at001b = ╱65╱e╱ // 0x34fd @0x1b
0x34e2…3508 at001c = ╱64╱d╱ // 0x34fe @0x1c
0x34e2…3508 at001d = ╱65╱e╱ // 0x34ff @0x1d
0x34e2…3508 at001e = ╱20╱…╱ // 0x3500 @0x1e
0x34e2…3508 at001f = ╱73╱s╱ // 0x3501 @0x1f
0x34e2…3508 at0020 = ╱61╱a╱ // 0x3502 @0x20
0x34e2…3508 at0021 = ╱6c╱l╱ // 0x3503 @0x21
0x34e2…3508 at0022 = ╱64╱d╱ // 0x3504 @0x22
0x34e2…3508 at0023 = ╱69╱i╱ // 0x3505 @0x23
0x34e2…3508 at0024 = ╱22╱"╱ // 0x3506 @0x24
0x34e2…3508 at0025 = EOL // 0x3507 @0x25
0x34e2…3508 }
0x3508…351d bc6a 6610 FOR I = 1 TO 6
0x3508…351d LineComalBcd {
0x3508…351d ptr = 0xbc6a // 0x3508 @0x0
0x3508…351d lno = 0x6610 // 0x350a @0x2
0x3508…351d at0004 = ╱83╱ FOR ╱ // 0x350c @0x4
0x3508…351d at0005 = ╱49╱I╱ // 0x350d @0x5
0x3508…351d at0006 = ╱dc╱ = ╱ // 0x350e @0x6
0x3508…351d at0007 = ╱31╱1╱ // 0x350f @0x7
0x3508…351d at0008 = ╱fe00008001╱ // 0x3510 @0x8
0x3508…351d at000d = ╱b7╱ TO ╱ // 0x3515 @0xd
0x3508…351d at000e = ╱36╱6╱ // 0x3516 @0xe
0x3508…351d at000f = ╱fe0000c003╱ // 0x3517 @0xf
0x3508…351d at0014 = EOL // 0x351c @0x14
0x3508…351d }
0x351d…3541 bc8e 6620 EXEC CALC ( 1 , F5 $ ( I ) , F9 $ ( I ) , F3 $ )
0x351d…3541 LineComalBcd {
0x351d…3541 ptr = 0xbc8e // 0x351d @0x0
0x351d…3541 lno = 0x6620 // 0x351f @0x2
0x351d…3541 at0004 = ╱9d╱ EXEC ╱ // 0x3521 @0x4
0x351d…3541 at0005 = ╱43╱C╱ // 0x3522 @0x5
0x351d…3541 at0006 = ╱41╱A╱ // 0x3523 @0x6
0x351d…3541 at0007 = ╱4c╱L╱ // 0x3524 @0x7
0x351d…3541 at0008 = ╱43╱C╱ // 0x3525 @0x8
0x351d…3541 at0009 = ╱ed╱ ( ╱ // 0x3526 @0x9
0x351d…3541 at000a = ╱31╱1╱ // 0x3527 @0xa
0x351d…3541 at000b = ╱fe00008001╱ // 0x3528 @0xb
0x351d…3541 at0010 = ╱ec╱ , ╱ // 0x352d @0x10
0x351d…3541 at0011 = ╱46╱F╱ // 0x352e @0x11
0x351d…3541 at0012 = ╱35╱5╱ // 0x352f @0x12
0x351d…3541 at0013 = ╱ef╱ $ ╱ // 0x3530 @0x13
0x351d…3541 at0014 = ╱ed╱ ( ╱ // 0x3531 @0x14
0x351d…3541 at0015 = ╱49╱I╱ // 0x3532 @0x15
0x351d…3541 at0016 = ╱ee╱ ) ╱ // 0x3533 @0x16
0x351d…3541 at0017 = ╱ec╱ , ╱ // 0x3534 @0x17
0x351d…3541 at0018 = ╱46╱F╱ // 0x3535 @0x18
0x351d…3541 at0019 = ╱39╱9╱ // 0x3536 @0x19
0x351d…3541 at001a = ╱ef╱ $ ╱ // 0x3537 @0x1a
0x351d…3541 at001b = ╱ed╱ ( ╱ // 0x3538 @0x1b
0x351d…3541 at001c = ╱49╱I╱ // 0x3539 @0x1c
0x351d…3541 at001d = ╱ee╱ ) ╱ // 0x353a @0x1d
0x351d…3541 at001e = ╱ec╱ , ╱ // 0x353b @0x1e
0x351d…3541 at001f = ╱46╱F╱ // 0x353c @0x1f
0x351d…3541 at0020 = ╱33╱3╱ // 0x353d @0x20
0x351d…3541 at0021 = ╱ef╱ $ ╱ // 0x353e @0x21
0x351d…3541 at0022 = ╱ee╱ ) ╱ // 0x353f @0x22
0x351d…3541 at0023 = EOL // 0x3540 @0x23
0x351d…3541 }
0x3541…3556 bca3 6630 CURSOR 1 , I + 4
0x3541…3556 LineComalBcd {
0x3541…3556 ptr = 0xbca3 // 0x3541 @0x0
0x3541…3556 lno = 0x6630 // 0x3543 @0x2
0x3541…3556 at0004 = ╱a1╱ CURSOR ╱ // 0x3545 @0x4
0x3541…3556 at0005 = ╱31╱1╱ // 0x3546 @0x5
0x3541…3556 at0006 = ╱fe00008001╱ // 0x3547 @0x6
0x3541…3556 at000b = ╱ec╱ , ╱ // 0x354c @0xb
0x3541…3556 at000c = ╱49╱I╱ // 0x354d @0xc
0x3541…3556 at000d = ╱e2╱ + ╱ // 0x354e @0xd
0x3541…3556 at000e = ╱34╱4╱ // 0x354f @0xe
0x3541…3556 at000f = ╱fe00008003╱ // 0x3550 @0xf
0x3541…3556 at0014 = EOL // 0x3555 @0x14
0x3541…3556 }
0x3556…3564 bcb1 6640 PRINT I ; J5 $ ( I )
0x3556…3564 LineComalBcd {
0x3556…3564 ptr = 0xbcb1 // 0x3556 @0x0
0x3556…3564 lno = 0x6640 // 0x3558 @0x2
0x3556…3564 at0004 = ╱92╱ PRINT ╱ // 0x355a @0x4
0x3556…3564 at0005 = ╱49╱I╱ // 0x355b @0x5
0x3556…3564 at0006 = ╱eb╱ ; ╱ // 0x355c @0x6
0x3556…3564 at0007 = ╱4a╱J╱ // 0x355d @0x7
0x3556…3564 at0008 = ╱35╱5╱ // 0x355e @0x8
0x3556…3564 at0009 = ╱ef╱ $ ╱ // 0x355f @0x9
0x3556…3564 at000a = ╱ed╱ ( ╱ // 0x3560 @0xa
0x3556…3564 at000b = ╱49╱I╱ // 0x3561 @0xb
0x3556…3564 at000c = ╱ee╱ ) ╱ // 0x3562 @0xc
0x3556…3564 at000d = EOL // 0x3563 @0xd
0x3556…3564 }
0x3564…357a bcc7 6650 CURSOR 19 , I + 4
0x3564…357a LineComalBcd {
0x3564…357a ptr = 0xbcc7 // 0x3564 @0x0
0x3564…357a lno = 0x6650 // 0x3566 @0x2
0x3564…357a at0004 = ╱a1╱ CURSOR ╱ // 0x3568 @0x4
0x3564…357a at0005 = ╱31╱1╱ // 0x3569 @0x5
0x3564…357a at0006 = ╱39╱9╱ // 0x356a @0x6
0x3564…357a at0007 = ╱fe00009805╱ // 0x356b @0x7
0x3564…357a at000c = ╱ec╱ , ╱ // 0x3570 @0xc
0x3564…357a at000d = ╱49╱I╱ // 0x3571 @0xd
0x3564…357a at000e = ╱e2╱ + ╱ // 0x3572 @0xe
0x3564…357a at000f = ╱34╱4╱ // 0x3573 @0xf
0x3564…357a at0010 = ╱fe00008003╱ // 0x3574 @0x10
0x3564…357a at0015 = EOL // 0x3579 @0x15
0x3564…357a }
0x357a…359a bce7 6660 EXEC TUD ( F3 $ , B8 $ , 1 , 0 )
0x357a…359a LineComalBcd {
0x357a…359a ptr = 0xbce7 // 0x357a @0x0
0x357a…359a lno = 0x6660 // 0x357c @0x2
0x357a…359a at0004 = ╱9d╱ EXEC ╱ // 0x357e @0x4
0x357a…359a at0005 = ╱54╱T╱ // 0x357f @0x5
0x357a…359a at0006 = ╱55╱U╱ // 0x3580 @0x6
0x357a…359a at0007 = ╱44╱D╱ // 0x3581 @0x7
0x357a…359a at0008 = ╱ed╱ ( ╱ // 0x3582 @0x8
0x357a…359a at0009 = ╱46╱F╱ // 0x3583 @0x9
0x357a…359a at000a = ╱33╱3╱ // 0x3584 @0xa
0x357a…359a at000b = ╱ef╱ $ ╱ // 0x3585 @0xb
0x357a…359a at000c = ╱ec╱ , ╱ // 0x3586 @0xc
0x357a…359a at000d = ╱42╱B╱ // 0x3587 @0xd
0x357a…359a at000e = ╱38╱8╱ // 0x3588 @0xe
0x357a…359a at000f = ╱ef╱ $ ╱ // 0x3589 @0xf
0x357a…359a at0010 = ╱ec╱ , ╱ // 0x358a @0x10
0x357a…359a at0011 = ╱31╱1╱ // 0x358b @0x11
0x357a…359a at0012 = ╱fe00008001╱ // 0x358c @0x12
0x357a…359a at0017 = ╱ec╱ , ╱ // 0x3591 @0x17
0x357a…359a at0018 = ╱30╱0╱ // 0x3592 @0x18
0x357a…359a at0019 = ╱fe00000000╱ // 0x3593 @0x19
0x357a…359a at001e = ╱ee╱ ) ╱ // 0x3598 @0x1e
0x357a…359a at001f = EOL // 0x3599 @0x1f
0x357a…359a }
0x359a…35a3 bcf0 6670 PRINT B8 $
0x359a…35a3 LineComalBcd {
0x359a…35a3 ptr = 0xbcf0 // 0x359a @0x0
0x359a…35a3 lno = 0x6670 // 0x359c @0x2
0x359a…35a3 at0004 = ╱92╱ PRINT ╱ // 0x359e @0x4
0x359a…35a3 at0005 = ╱42╱B╱ // 0x359f @0x5
0x359a…35a3 at0006 = ╱38╱8╱ // 0x35a0 @0x6
0x359a…35a3 at0007 = ╱ef╱ $ ╱ // 0x35a1 @0x7
0x359a…35a3 at0008 = EOL // 0x35a2 @0x8
0x359a…35a3 }
0x35a3…35b9 bd06 6680 CURSOR 36 , I + 4
0x35a3…35b9 LineComalBcd {
0x35a3…35b9 ptr = 0xbd06 // 0x35a3 @0x0
0x35a3…35b9 lno = 0x6680 // 0x35a5 @0x2
0x35a3…35b9 at0004 = ╱a1╱ CURSOR ╱ // 0x35a7 @0x4
0x35a3…35b9 at0005 = ╱33╱3╱ // 0x35a8 @0x5
0x35a3…35b9 at0006 = ╱36╱6╱ // 0x35a9 @0x6
0x35a3…35b9 at0007 = ╱fe00009006╱ // 0x35aa @0x7
0x35a3…35b9 at000c = ╱ec╱ , ╱ // 0x35af @0xc
0x35a3…35b9 at000d = ╱49╱I╱ // 0x35b0 @0xd
0x35a3…35b9 at000e = ╱e2╱ + ╱ // 0x35b1 @0xe
0x35a3…35b9 at000f = ╱34╱4╱ // 0x35b2 @0xf
0x35a3…35b9 at0010 = ╱fe00008003╱ // 0x35b3 @0x10
0x35a3…35b9 at0015 = EOL // 0x35b8 @0x15
0x35a3…35b9 }
0x35b9…35dc bd29 6690 EXEC TUD ( F9 $ ( I ) , B8 $ , 1 , 0 )
0x35b9…35dc LineComalBcd {
0x35b9…35dc ptr = 0xbd29 // 0x35b9 @0x0
0x35b9…35dc lno = 0x6690 // 0x35bb @0x2
0x35b9…35dc at0004 = ╱9d╱ EXEC ╱ // 0x35bd @0x4
0x35b9…35dc at0005 = ╱54╱T╱ // 0x35be @0x5
0x35b9…35dc at0006 = ╱55╱U╱ // 0x35bf @0x6
0x35b9…35dc at0007 = ╱44╱D╱ // 0x35c0 @0x7
0x35b9…35dc at0008 = ╱ed╱ ( ╱ // 0x35c1 @0x8
0x35b9…35dc at0009 = ╱46╱F╱ // 0x35c2 @0x9
0x35b9…35dc at000a = ╱39╱9╱ // 0x35c3 @0xa
0x35b9…35dc at000b = ╱ef╱ $ ╱ // 0x35c4 @0xb
0x35b9…35dc at000c = ╱ed╱ ( ╱ // 0x35c5 @0xc
0x35b9…35dc at000d = ╱49╱I╱ // 0x35c6 @0xd
0x35b9…35dc at000e = ╱ee╱ ) ╱ // 0x35c7 @0xe
0x35b9…35dc at000f = ╱ec╱ , ╱ // 0x35c8 @0xf
0x35b9…35dc at0010 = ╱42╱B╱ // 0x35c9 @0x10
0x35b9…35dc at0011 = ╱38╱8╱ // 0x35ca @0x11
0x35b9…35dc at0012 = ╱ef╱ $ ╱ // 0x35cb @0x12
0x35b9…35dc at0013 = ╱ec╱ , ╱ // 0x35cc @0x13
0x35b9…35dc at0014 = ╱31╱1╱ // 0x35cd @0x14
0x35b9…35dc at0015 = ╱fe00008001╱ // 0x35ce @0x15
0x35b9…35dc at001a = ╱ec╱ , ╱ // 0x35d3 @0x1a
0x35b9…35dc at001b = ╱30╱0╱ // 0x35d4 @0x1b
0x35b9…35dc at001c = ╱fe00000000╱ // 0x35d5 @0x1c
0x35b9…35dc at0021 = ╱ee╱ ) ╱ // 0x35da @0x21
0x35b9…35dc at0022 = EOL // 0x35db @0x22
0x35b9…35dc }
0x35dc…35e5 bd32 6700 PRINT B8 $
0x35dc…35e5 LineComalBcd {
0x35dc…35e5 ptr = 0xbd32 // 0x35dc @0x0
0x35dc…35e5 lno = 0x6700 // 0x35de @0x2
0x35dc…35e5 at0004 = ╱92╱ PRINT ╱ // 0x35e0 @0x4
0x35dc…35e5 at0005 = ╱42╱B╱ // 0x35e1 @0x5
0x35dc…35e5 at0006 = ╱38╱8╱ // 0x35e2 @0x6
0x35dc…35e5 at0007 = ╱ef╱ $ ╱ // 0x35e3 @0x7
0x35dc…35e5 at0008 = EOL // 0x35e4 @0x8
0x35dc…35e5 }
0x35e5…35ec bd39 6710 NEXT I
0x35e5…35ec LineComalBcd {
0x35e5…35ec ptr = 0xbd39 // 0x35e5 @0x0
0x35e5…35ec lno = 0x6710 // 0x35e7 @0x2
0x35e5…35ec at0004 = ╱84╱ NEXT ╱ // 0x35e9 @0x4
0x35e5…35ec at0005 = ╱49╱I╱ // 0x35ea @0x5
0x35e5…35ec at0006 = EOL // 0x35eb @0x6
0x35e5…35ec }
0x35ec…3600 bd4d 6720 CURSOR 4 , 12
0x35ec…3600 LineComalBcd {
0x35ec…3600 ptr = 0xbd4d // 0x35ec @0x0
0x35ec…3600 lno = 0x6720 // 0x35ee @0x2
0x35ec…3600 at0004 = ╱a1╱ CURSOR ╱ // 0x35f0 @0x4
0x35ec…3600 at0005 = ╱34╱4╱ // 0x35f1 @0x5
0x35ec…3600 at0006 = ╱fe00008003╱ // 0x35f2 @0x6
0x35ec…3600 at000b = ╱ec╱ , ╱ // 0x35f7 @0xb
0x35ec…3600 at000c = ╱31╱1╱ // 0x35f8 @0xc
0x35ec…3600 at000d = ╱32╱2╱ // 0x35f9 @0xd
0x35ec…3600 at000e = ╱fe0000c004╱ // 0x35fa @0xe
0x35ec…3600 at0013 = EOL // 0x35ff @0x13
0x35ec…3600 }
0x3600…361f bd6c 6730 PRINT "Kontroller…dine…saldi…!"
0x3600…361f LineComalBcd {
0x3600…361f ptr = 0xbd6c // 0x3600 @0x0
0x3600…361f lno = 0x6730 // 0x3602 @0x2
0x3600…361f at0004 = ╱92╱ PRINT ╱ // 0x3604 @0x4
0x3600…361f at0005 = ╱22╱"╱ // 0x3605 @0x5
0x3600…361f at0006 = ╱4b╱K╱ // 0x3606 @0x6
0x3600…361f at0007 = ╱6f╱o╱ // 0x3607 @0x7
0x3600…361f at0008 = ╱6e╱n╱ // 0x3608 @0x8
0x3600…361f at0009 = ╱74╱t╱ // 0x3609 @0x9
0x3600…361f at000a = ╱72╱r╱ // 0x360a @0xa
0x3600…361f at000b = ╱6f╱o╱ // 0x360b @0xb
0x3600…361f at000c = ╱6c╱l╱ // 0x360c @0xc
0x3600…361f at000d = ╱6c╱l╱ // 0x360d @0xd
0x3600…361f at000e = ╱65╱e╱ // 0x360e @0xe
0x3600…361f at000f = ╱72╱r╱ // 0x360f @0xf
0x3600…361f at0010 = ╱20╱…╱ // 0x3610 @0x10
0x3600…361f at0011 = ╱64╱d╱ // 0x3611 @0x11
0x3600…361f at0012 = ╱69╱i╱ // 0x3612 @0x12
0x3600…361f at0013 = ╱6e╱n╱ // 0x3613 @0x13
0x3600…361f at0014 = ╱65╱e╱ // 0x3614 @0x14
0x3600…361f at0015 = ╱20╱…╱ // 0x3615 @0x15
0x3600…361f at0016 = ╱73╱s╱ // 0x3616 @0x16
0x3600…361f at0017 = ╱61╱a╱ // 0x3617 @0x17
0x3600…361f at0018 = ╱6c╱l╱ // 0x3618 @0x18
0x3600…361f at0019 = ╱64╱d╱ // 0x3619 @0x19
0x3600…361f at001a = ╱69╱i╱ // 0x361a @0x1a
0x3600…361f at001b = ╱20╱…╱ // 0x361b @0x1b
0x3600…361f at001c = ╱21╱!╱ // 0x361c @0x1c
0x3600…361f at001d = ╱22╱"╱ // 0x361d @0x1d
0x3600…361f at001e = EOL // 0x361e @0x1e
0x3600…361f }
0x361f…3625 bd72 6740 REPEAT
0x361f…3625 LineComalBcd {
0x361f…3625 ptr = 0xbd72 // 0x361f @0x0
0x361f…3625 lno = 0x6740 // 0x3621 @0x2
0x361f…3625 at0004 = ╱97╱ REPEAT ╱ // 0x3623 @0x4
0x361f…3625 at0005 = EOL // 0x3624 @0x5
0x361f…3625 }
0x3625…3639 bd86 6750 CURSOR 4 , 14
0x3625…3639 LineComalBcd {
0x3625…3639 ptr = 0xbd86 // 0x3625 @0x0
0x3625…3639 lno = 0x6750 // 0x3627 @0x2
0x3625…3639 at0004 = ╱a1╱ CURSOR ╱ // 0x3629 @0x4
0x3625…3639 at0005 = ╱34╱4╱ // 0x362a @0x5
0x3625…3639 at0006 = ╱fe00008003╱ // 0x362b @0x6
0x3625…3639 at000b = ╱ec╱ , ╱ // 0x3630 @0xb
0x3625…3639 at000c = ╱31╱1╱ // 0x3631 @0xc
0x3625…3639 at000d = ╱34╱4╱ // 0x3632 @0xd
0x3625…3639 at000e = ╱fe0000e004╱ // 0x3633 @0xe
0x3625…3639 at0013 = EOL // 0x3638 @0x13
0x3625…3639 }
0x3639…3665 bdb2 6760 PRINT "Hvilken…er…forkert……………(0:ingen,1-6)"
0x3639…3665 LineComalBcd {
0x3639…3665 ptr = 0xbdb2 // 0x3639 @0x0
0x3639…3665 lno = 0x6760 // 0x363b @0x2
0x3639…3665 at0004 = ╱92╱ PRINT ╱ // 0x363d @0x4
0x3639…3665 at0005 = ╱22╱"╱ // 0x363e @0x5
0x3639…3665 at0006 = ╱48╱H╱ // 0x363f @0x6
0x3639…3665 at0007 = ╱76╱v╱ // 0x3640 @0x7
0x3639…3665 at0008 = ╱69╱i╱ // 0x3641 @0x8
0x3639…3665 at0009 = ╱6c╱l╱ // 0x3642 @0x9
0x3639…3665 at000a = ╱6b╱k╱ // 0x3643 @0xa
0x3639…3665 at000b = ╱65╱e╱ // 0x3644 @0xb
0x3639…3665 at000c = ╱6e╱n╱ // 0x3645 @0xc
0x3639…3665 at000d = ╱20╱…╱ // 0x3646 @0xd
0x3639…3665 at000e = ╱65╱e╱ // 0x3647 @0xe
0x3639…3665 at000f = ╱72╱r╱ // 0x3648 @0xf
0x3639…3665 at0010 = ╱20╱…╱ // 0x3649 @0x10
0x3639…3665 at0011 = ╱66╱f╱ // 0x364a @0x11
0x3639…3665 at0012 = ╱6f╱o╱ // 0x364b @0x12
0x3639…3665 at0013 = ╱72╱r╱ // 0x364c @0x13
0x3639…3665 at0014 = ╱6b╱k╱ // 0x364d @0x14
0x3639…3665 at0015 = ╱65╱e╱ // 0x364e @0x15
0x3639…3665 at0016 = ╱72╱r╱ // 0x364f @0x16
0x3639…3665 at0017 = ╱74╱t╱ // 0x3650 @0x17
0x3639…3665 at0018 = ╱20╱…╱ // 0x3651 @0x18
0x3639…3665 at0019 = ╱20╱…╱ // 0x3652 @0x19
0x3639…3665 at001a = ╱20╱…╱ // 0x3653 @0x1a
0x3639…3665 at001b = ╱20╱…╱ // 0x3654 @0x1b
0x3639…3665 at001c = ╱20╱…╱ // 0x3655 @0x1c
0x3639…3665 at001d = ╱28╱(╱ // 0x3656 @0x1d
0x3639…3665 at001e = ╱30╱0╱ // 0x3657 @0x1e
0x3639…3665 at001f = ╱3a╱:╱ // 0x3658 @0x1f
0x3639…3665 at0020 = ╱69╱i╱ // 0x3659 @0x20
0x3639…3665 at0021 = ╱6e╱n╱ // 0x365a @0x21
0x3639…3665 at0022 = ╱67╱g╱ // 0x365b @0x22
0x3639…3665 at0023 = ╱65╱e╱ // 0x365c @0x23
0x3639…3665 at0024 = ╱6e╱n╱ // 0x365d @0x24
0x3639…3665 at0025 = ╱2c╱,╱ // 0x365e @0x25
0x3639…3665 at0026 = ╱31╱1╱ // 0x365f @0x26
0x3639…3665 at0027 = ╱2d╱-╱ // 0x3660 @0x27
0x3639…3665 at0028 = ╱36╱6╱ // 0x3661 @0x28
0x3639…3665 at0029 = ╱29╱)╱ // 0x3662 @0x29
0x3639…3665 at002a = ╱22╱"╱ // 0x3663 @0x2a
0x3639…3665 at002b = EOL // 0x3664 @0x2b
0x3639…3665 }
0x3665…367a bdc7 6770 CURSOR 25 , 14
0x3665…367a LineComalBcd {
0x3665…367a ptr = 0xbdc7 // 0x3665 @0x0
0x3665…367a lno = 0x6770 // 0x3667 @0x2
0x3665…367a at0004 = ╱a1╱ CURSOR ╱ // 0x3669 @0x4
0x3665…367a at0005 = ╱32╱2╱ // 0x366a @0x5
0x3665…367a at0006 = ╱35╱5╱ // 0x366b @0x6
0x3665…367a at0007 = ╱fe0000c805╱ // 0x366c @0x7
0x3665…367a at000c = ╱ec╱ , ╱ // 0x3671 @0xc
0x3665…367a at000d = ╱31╱1╱ // 0x3672 @0xd
0x3665…367a at000e = ╱34╱4╱ // 0x3673 @0xe
0x3665…367a at000f = ╱fe0000e004╱ // 0x3674 @0xf
0x3665…367a at0014 = EOL // 0x3679 @0x14
0x3665…367a }
0x367a…3683 bdd0 6780 INPUT D5 $
0x367a…3683 LineComalBcd {
0x367a…3683 ptr = 0xbdd0 // 0x367a @0x0
0x367a…3683 lno = 0x6780 // 0x367c @0x2
0x367a…3683 at0004 = ╱91╱ INPUT ╱ // 0x367e @0x4
0x367a…3683 at0005 = ╱44╱D╱ // 0x367f @0x5
0x367a…3683 at0006 = ╱35╱5╱ // 0x3680 @0x6
0x367a…3683 at0007 = ╱ef╱ $ ╱ // 0x3681 @0x7
0x367a…3683 at0008 = EOL // 0x3682 @0x8
0x367a…3683 }
0x3683…3694 bde1 6790 EXEC NRTEST ( D5 $ )
0x3683…3694 LineComalBcd {
0x3683…3694 ptr = 0xbde1 // 0x3683 @0x0
0x3683…3694 lno = 0x6790 // 0x3685 @0x2
0x3683…3694 at0004 = ╱9d╱ EXEC ╱ // 0x3687 @0x4
0x3683…3694 at0005 = ╱4e╱N╱ // 0x3688 @0x5
0x3683…3694 at0006 = ╱52╱R╱ // 0x3689 @0x6
0x3683…3694 at0007 = ╱54╱T╱ // 0x368a @0x7
0x3683…3694 at0008 = ╱45╱E╱ // 0x368b @0x8
0x3683…3694 at0009 = ╱53╱S╱ // 0x368c @0x9
0x3683…3694 at000a = ╱54╱T╱ // 0x368d @0xa
0x3683…3694 at000b = ╱ed╱ ( ╱ // 0x368e @0xb
0x3683…3694 at000c = ╱44╱D╱ // 0x368f @0xc
0x3683…3694 at000d = ╱35╱5╱ // 0x3690 @0xd
0x3683…3694 at000e = ╱ef╱ $ ╱ // 0x3691 @0xe
0x3683…3694 at000f = ╱ee╱ ) ╱ // 0x3692 @0xf
0x3683…3694 at0010 = EOL // 0x3693 @0x10
0x3683…3694 }
0x3694…36b6 be03 6800 UNTIL - 1 < P AND P < 7 AND H4 = 0
0x3694…36b6 LineComalBcd {
0x3694…36b6 ptr = 0xbe03 // 0x3694 @0x0
0x3694…36b6 lno = 0x6800 // 0x3696 @0x2
0x3694…36b6 at0004 = ╱98╱ UNTIL ╱ // 0x3698 @0x4
0x3694…36b6 at0005 = ╱e9╱ - ╱ // 0x3699 @0x5
0x3694…36b6 at0006 = ╱31╱1╱ // 0x369a @0x6
0x3694…36b6 at0007 = ╱fe00008001╱ // 0x369b @0x7
0x3694…36b6 at000c = ╱dd╱ < ╱ // 0x36a0 @0xc
0x3694…36b6 at000d = ╱50╱P╱ // 0x36a1 @0xd
0x3694…36b6 at000e = ╱da╱ AND ╱ // 0x36a2 @0xe
0x3694…36b6 at000f = ╱50╱P╱ // 0x36a3 @0xf
0x3694…36b6 at0010 = ╱dd╱ < ╱ // 0x36a4 @0x10
0x3694…36b6 at0011 = ╱37╱7╱ // 0x36a5 @0x11
0x3694…36b6 at0012 = ╱fe0000e003╱ // 0x36a6 @0x12
0x3694…36b6 at0017 = ╱da╱ AND ╱ // 0x36ab @0x17
0x3694…36b6 at0018 = ╱48╱H╱ // 0x36ac @0x18
0x3694…36b6 at0019 = ╱34╱4╱ // 0x36ad @0x19
0x3694…36b6 at001a = ╱dc╱ = ╱ // 0x36ae @0x1a
0x3694…36b6 at001b = ╱30╱0╱ // 0x36af @0x1b
0x3694…36b6 at001c = ╱fe00000000╱ // 0x36b0 @0x1c
0x3694…36b6 at0021 = EOL // 0x36b5 @0x21
0x3694…36b6 }
0x36b6…36c5 be12 6810 IF P >< 0 THEN
0x36b6…36c5 LineComalBcd {
0x36b6…36c5 ptr = 0xbe12 // 0x36b6 @0x0
0x36b6…36c5 lno = 0x6810 // 0x36b8 @0x2
0x36b6…36c5 at0004 = ╱9c╱ IF ╱ // 0x36ba @0x4
0x36b6…36c5 at0005 = ╱50╱P╱ // 0x36bb @0x5
0x36b6…36c5 at0006 = ╱e1╱ >< ╱ // 0x36bc @0x6
0x36b6…36c5 at0007 = ╱30╱0╱ // 0x36bd @0x7
0x36b6…36c5 at0008 = ╱fe00000000╱ // 0x36be @0x8
0x36b6…36c5 at000d = ╱b6╱ THEN ╱ // 0x36c3 @0xd
0x36b6…36c5 at000e = EOL // 0x36c4 @0xe
0x36b6…36c5 }
0x36c5…36cb be18 6820 REPEAT
0x36c5…36cb LineComalBcd {
0x36c5…36cb ptr = 0xbe18 // 0x36c5 @0x0
0x36c5…36cb lno = 0x6820 // 0x36c7 @0x2
0x36c5…36cb at0004 = ╱97╱ REPEAT ╱ // 0x36c9 @0x4
0x36c5…36cb at0005 = EOL // 0x36ca @0x5
0x36c5…36cb }
0x36cb…36d1 be1e 6830 REPEAT
0x36cb…36d1 LineComalBcd {
0x36cb…36d1 ptr = 0xbe1e // 0x36cb @0x0
0x36cb…36d1 lno = 0x6830 // 0x36cd @0x2
0x36cb…36d1 at0004 = ╱97╱ REPEAT ╱ // 0x36cf @0x4
0x36cb…36d1 at0005 = EOL // 0x36d0 @0x5
0x36cb…36d1 }
0x36d1…36e5 be32 6840 CURSOR 1 , 16
0x36d1…36e5 LineComalBcd {
0x36d1…36e5 ptr = 0xbe32 // 0x36d1 @0x0
0x36d1…36e5 lno = 0x6840 // 0x36d3 @0x2
0x36d1…36e5 at0004 = ╱a1╱ CURSOR ╱ // 0x36d5 @0x4
0x36d1…36e5 at0005 = ╱31╱1╱ // 0x36d6 @0x5
0x36d1…36e5 at0006 = ╱fe00008001╱ // 0x36d7 @0x6
0x36d1…36e5 at000b = ╱ec╱ , ╱ // 0x36dc @0xb
0x36d1…36e5 at000c = ╱31╱1╱ // 0x36dd @0xc
0x36d1…36e5 at000d = ╱36╱6╱ // 0x36de @0xd
0x36d1…36e5 at000e = ╱fe00008005╱ // 0x36df @0xe
0x36d1…36e5 at0013 = EOL // 0x36e4 @0x13
0x36d1…36e5 }
0x36e5…3717 be64 6850 PRINT P ; J5 $ ( P ) ; "……………………………………(tast…{ndret…saldo)"
0x36e5…3717 LineComalBcd {
0x36e5…3717 ptr = 0xbe64 // 0x36e5 @0x0
0x36e5…3717 lno = 0x6850 // 0x36e7 @0x2
0x36e5…3717 at0004 = ╱92╱ PRINT ╱ // 0x36e9 @0x4
0x36e5…3717 at0005 = ╱50╱P╱ // 0x36ea @0x5
0x36e5…3717 at0006 = ╱eb╱ ; ╱ // 0x36eb @0x6
0x36e5…3717 at0007 = ╱4a╱J╱ // 0x36ec @0x7
0x36e5…3717 at0008 = ╱35╱5╱ // 0x36ed @0x8
0x36e5…3717 at0009 = ╱ef╱ $ ╱ // 0x36ee @0x9
0x36e5…3717 at000a = ╱ed╱ ( ╱ // 0x36ef @0xa
0x36e5…3717 at000b = ╱50╱P╱ // 0x36f0 @0xb
0x36e5…3717 at000c = ╱ee╱ ) ╱ // 0x36f1 @0xc
0x36e5…3717 at000d = ╱eb╱ ; ╱ // 0x36f2 @0xd
0x36e5…3717 at000e = ╱22╱"╱ // 0x36f3 @0xe
0x36e5…3717 at000f = ╱20╱…╱ // 0x36f4 @0xf
0x36e5…3717 at0010 = ╱20╱…╱ // 0x36f5 @0x10
0x36e5…3717 at0011 = ╱20╱…╱ // 0x36f6 @0x11
0x36e5…3717 at0012 = ╱20╱…╱ // 0x36f7 @0x12
0x36e5…3717 at0013 = ╱20╱…╱ // 0x36f8 @0x13
0x36e5…3717 at0014 = ╱20╱…╱ // 0x36f9 @0x14
0x36e5…3717 at0015 = ╱20╱…╱ // 0x36fa @0x15
0x36e5…3717 at0016 = ╱20╱…╱ // 0x36fb @0x16
0x36e5…3717 at0017 = ╱20╱…╱ // 0x36fc @0x17
0x36e5…3717 at0018 = ╱20╱…╱ // 0x36fd @0x18
0x36e5…3717 at0019 = ╱20╱…╱ // 0x36fe @0x19
0x36e5…3717 at001a = ╱20╱…╱ // 0x36ff @0x1a
0x36e5…3717 at001b = ╱20╱…╱ // 0x3700 @0x1b
0x36e5…3717 at001c = ╱20╱…╱ // 0x3701 @0x1c
0x36e5…3717 at001d = ╱28╱(╱ // 0x3702 @0x1d
0x36e5…3717 at001e = ╱74╱t╱ // 0x3703 @0x1e
0x36e5…3717 at001f = ╱61╱a╱ // 0x3704 @0x1f
0x36e5…3717 at0020 = ╱73╱s╱ // 0x3705 @0x20
0x36e5…3717 at0021 = ╱74╱t╱ // 0x3706 @0x21
0x36e5…3717 at0022 = ╱20╱…╱ // 0x3707 @0x22
0x36e5…3717 at0023 = ╱7b╱{╱ // 0x3708 @0x23
0x36e5…3717 at0024 = ╱6e╱n╱ // 0x3709 @0x24
0x36e5…3717 at0025 = ╱64╱d╱ // 0x370a @0x25
0x36e5…3717 at0026 = ╱72╱r╱ // 0x370b @0x26
0x36e5…3717 at0027 = ╱65╱e╱ // 0x370c @0x27
0x36e5…3717 at0028 = ╱74╱t╱ // 0x370d @0x28
0x36e5…3717 at0029 = ╱20╱…╱ // 0x370e @0x29
0x36e5…3717 at002a = ╱73╱s╱ // 0x370f @0x2a
0x36e5…3717 at002b = ╱61╱a╱ // 0x3710 @0x2b
0x36e5…3717 at002c = ╱6c╱l╱ // 0x3711 @0x2c
0x36e5…3717 at002d = ╱64╱d╱ // 0x3712 @0x2d
0x36e5…3717 at002e = ╱6f╱o╱ // 0x3713 @0x2e
0x36e5…3717 at002f = ╱29╱)╱ // 0x3714 @0x2f
0x36e5…3717 at0030 = ╱22╱"╱ // 0x3715 @0x30
0x36e5…3717 at0031 = EOL // 0x3716 @0x31
0x36e5…3717 }
0x3717…372c be79 6860 CURSOR 19 , 16
0x3717…372c LineComalBcd {
0x3717…372c ptr = 0xbe79 // 0x3717 @0x0
0x3717…372c lno = 0x6860 // 0x3719 @0x2
0x3717…372c at0004 = ╱a1╱ CURSOR ╱ // 0x371b @0x4
0x3717…372c at0005 = ╱31╱1╱ // 0x371c @0x5
0x3717…372c at0006 = ╱39╱9╱ // 0x371d @0x6
0x3717…372c at0007 = ╱fe00009805╱ // 0x371e @0x7
0x3717…372c at000c = ╱ec╱ , ╱ // 0x3723 @0xc
0x3717…372c at000d = ╱31╱1╱ // 0x3724 @0xd
0x3717…372c at000e = ╱36╱6╱ // 0x3725 @0xe
0x3717…372c at000f = ╱fe00008005╱ // 0x3726 @0xf
0x3717…372c at0014 = EOL // 0x372b @0x14
0x3717…372c }
0x372c…3735 be82 6870 INPUT F3 $
0x372c…3735 LineComalBcd {
0x372c…3735 ptr = 0xbe82 // 0x372c @0x0
0x372c…3735 lno = 0x6870 // 0x372e @0x2
0x372c…3735 at0004 = ╱91╱ INPUT ╱ // 0x3730 @0x4
0x372c…3735 at0005 = ╱46╱F╱ // 0x3731 @0x5
0x372c…3735 at0006 = ╱33╱3╱ // 0x3732 @0x6
0x372c…3735 at0007 = ╱ef╱ $ ╱ // 0x3733 @0x7
0x372c…3735 at0008 = EOL // 0x3734 @0x8
0x372c…3735 }
0x3735…3748 be95 6880 UNTIL LEN ( F3 $ ) > 0
0x3735…3748 LineComalBcd {
0x3735…3748 ptr = 0xbe95 // 0x3735 @0x0
0x3735…3748 lno = 0x6880 // 0x3737 @0x2
0x3735…3748 at0004 = ╱98╱ UNTIL ╱ // 0x3739 @0x4
0x3735…3748 at0005 = ╱cc╱ LEN ╱ // 0x373a @0x5
0x3735…3748 at0006 = ╱ed╱ ( ╱ // 0x373b @0x6
0x3735…3748 at0007 = ╱46╱F╱ // 0x373c @0x7
0x3735…3748 at0008 = ╱33╱3╱ // 0x373d @0x8
0x3735…3748 at0009 = ╱ef╱ $ ╱ // 0x373e @0x9
0x3735…3748 at000a = ╱ee╱ ) ╱ // 0x373f @0xa
0x3735…3748 at000b = ╱de╱ > ╱ // 0x3740 @0xb
0x3735…3748 at000c = ╱30╱0╱ // 0x3741 @0xc
0x3735…3748 at000d = ╱fe00000000╱ // 0x3742 @0xd
0x3735…3748 at0012 = EOL // 0x3747 @0x12
0x3735…3748 }
0x3748…3755 bea2 6890 EXEC FORTEGN
0x3748…3755 LineComalBcd {
0x3748…3755 ptr = 0xbea2 // 0x3748 @0x0
0x3748…3755 lno = 0x6890 // 0x374a @0x2
0x3748…3755 at0004 = ╱9d╱ EXEC ╱ // 0x374c @0x4
0x3748…3755 at0005 = ╱46╱F╱ // 0x374d @0x5
0x3748…3755 at0006 = ╱4f╱O╱ // 0x374e @0x6
0x3748…3755 at0007 = ╱52╱R╱ // 0x374f @0x7
0x3748…3755 at0008 = ╱54╱T╱ // 0x3750 @0x8
0x3748…3755 at0009 = ╱45╱E╱ // 0x3751 @0x9
0x3748…3755 at000a = ╱47╱G╱ // 0x3752 @0xa
0x3748…3755 at000b = ╱4e╱N╱ // 0x3753 @0xb
0x3748…3755 at000c = EOL // 0x3754 @0xc
0x3748…3755 }
0x3755…3773 bec0 6900 EXEC CALC ( 6 , F3 $ , B9 $ , B8 $ )
0x3755…3773 LineComalBcd {
0x3755…3773 ptr = 0xbec0 // 0x3755 @0x0
0x3755…3773 lno = 0x6900 // 0x3757 @0x2
0x3755…3773 at0004 = ╱9d╱ EXEC ╱ // 0x3759 @0x4
0x3755…3773 at0005 = ╱43╱C╱ // 0x375a @0x5
0x3755…3773 at0006 = ╱41╱A╱ // 0x375b @0x6
0x3755…3773 at0007 = ╱4c╱L╱ // 0x375c @0x7
0x3755…3773 at0008 = ╱43╱C╱ // 0x375d @0x8
0x3755…3773 at0009 = ╱ed╱ ( ╱ // 0x375e @0x9
0x3755…3773 at000a = ╱36╱6╱ // 0x375f @0xa
0x3755…3773 at000b = ╱fe0000c003╱ // 0x3760 @0xb
0x3755…3773 at0010 = ╱ec╱ , ╱ // 0x3765 @0x10
0x3755…3773 at0011 = ╱46╱F╱ // 0x3766 @0x11
0x3755…3773 at0012 = ╱33╱3╱ // 0x3767 @0x12
0x3755…3773 at0013 = ╱ef╱ $ ╱ // 0x3768 @0x13
0x3755…3773 at0014 = ╱ec╱ , ╱ // 0x3769 @0x14
0x3755…3773 at0015 = ╱42╱B╱ // 0x376a @0x15
0x3755…3773 at0016 = ╱39╱9╱ // 0x376b @0x16
0x3755…3773 at0017 = ╱ef╱ $ ╱ // 0x376c @0x17
0x3755…3773 at0018 = ╱ec╱ , ╱ // 0x376d @0x18
0x3755…3773 at0019 = ╱42╱B╱ // 0x376e @0x19
0x3755…3773 at001a = ╱38╱8╱ // 0x376f @0x1a
0x3755…3773 at001b = ╱ef╱ $ ╱ // 0x3770 @0x1b
0x3755…3773 at001c = ╱ee╱ ) ╱ // 0x3771 @0x1c
0x3755…3773 at001d = EOL // 0x3772 @0x1d
0x3755…3773 }
0x3773…3784 bed1 6910 UNTIL FLAG = 0
0x3773…3784 LineComalBcd {
0x3773…3784 ptr = 0xbed1 // 0x3773 @0x0
0x3773…3784 lno = 0x6910 // 0x3775 @0x2
0x3773…3784 at0004 = ╱98╱ UNTIL ╱ // 0x3777 @0x4
0x3773…3784 at0005 = ╱46╱F╱ // 0x3778 @0x5
0x3773…3784 at0006 = ╱4c╱L╱ // 0x3779 @0x6
0x3773…3784 at0007 = ╱41╱A╱ // 0x377a @0x7
0x3773…3784 at0008 = ╱47╱G╱ // 0x377b @0x8
0x3773…3784 at0009 = ╱dc╱ = ╱ // 0x377c @0x9
0x3773…3784 at000a = ╱30╱0╱ // 0x377d @0xa
0x3773…3784 at000b = ╱fe00000000╱ // 0x377e @0xb
0x3773…3784 at0010 = EOL // 0x3783 @0x10
0x3773…3784 }
0x3784…379a bee7 6920 IF P MOD 2 = 0 THEN
0x3784…379a LineComalBcd {
0x3784…379a ptr = 0xbee7 // 0x3784 @0x0
0x3784…379a lno = 0x6920 // 0x3786 @0x2
0x3784…379a at0004 = ╱9c╱ IF ╱ // 0x3788 @0x4
0x3784…379a at0005 = ╱50╱P╱ // 0x3789 @0x5
0x3784…379a at0006 = ╱e8╱ MOD ╱ // 0x378a @0x6
0x3784…379a at0007 = ╱32╱2╱ // 0x378b @0x7
0x3784…379a at0008 = ╱fe00008002╱ // 0x378c @0x8
0x3784…379a at000d = ╱dc╱ = ╱ // 0x3791 @0xd
0x3784…379a at000e = ╱30╱0╱ // 0x3792 @0xe
0x3784…379a at000f = ╱fe00000000╱ // 0x3793 @0xf
0x3784…379a at0014 = ╱b6╱ THEN ╱ // 0x3798 @0x14
0x3784…379a at0015 = EOL // 0x3799 @0x15
0x3784…379a }
0x379a…37c3 bf10 6930 F9 $ ( P ) = F3 $ ( 1 : LEN ( F3 $ ) - 1 ) + "-"
0x379a…37c3 LineComalBcd {
0x379a…37c3 ptr = 0xbf10 // 0x379a @0x0
0x379a…37c3 lno = 0x6930 // 0x379c @0x2
0x379a…37c3 at0004 = ╱46╱F╱ // 0x379e @0x4
0x379a…37c3 at0005 = ╱39╱9╱ // 0x379f @0x5
0x379a…37c3 at0006 = ╱ef╱ $ ╱ // 0x37a0 @0x6
0x379a…37c3 at0007 = ╱ed╱ ( ╱ // 0x37a1 @0x7
0x379a…37c3 at0008 = ╱50╱P╱ // 0x37a2 @0x8
0x379a…37c3 at0009 = ╱ee╱ ) ╱ // 0x37a3 @0x9
0x379a…37c3 at000a = ╱dc╱ = ╱ // 0x37a4 @0xa
0x379a…37c3 at000b = ╱46╱F╱ // 0x37a5 @0xb
0x379a…37c3 at000c = ╱33╱3╱ // 0x37a6 @0xc
0x379a…37c3 at000d = ╱ef╱ $ ╱ // 0x37a7 @0xd
0x379a…37c3 at000e = ╱ed╱ ( ╱ // 0x37a8 @0xe
0x379a…37c3 at000f = ╱31╱1╱ // 0x37a9 @0xf
0x379a…37c3 at0010 = ╱fe00008001╱ // 0x37aa @0x10
0x379a…37c3 at0015 = ╱f0╱ : ╱ // 0x37af @0x15
0x379a…37c3 at0016 = ╱cc╱ LEN ╱ // 0x37b0 @0x16
0x379a…37c3 at0017 = ╱ed╱ ( ╱ // 0x37b1 @0x17
0x379a…37c3 at0018 = ╱46╱F╱ // 0x37b2 @0x18
0x379a…37c3 at0019 = ╱33╱3╱ // 0x37b3 @0x19
0x379a…37c3 at001a = ╱ef╱ $ ╱ // 0x37b4 @0x1a
0x379a…37c3 at001b = ╱ee╱ ) ╱ // 0x37b5 @0x1b
0x379a…37c3 at001c = ╱e3╱ - ╱ // 0x37b6 @0x1c
0x379a…37c3 at001d = ╱31╱1╱ // 0x37b7 @0x1d
0x379a…37c3 at001e = ╱fe00008001╱ // 0x37b8 @0x1e
0x379a…37c3 at0023 = ╱ee╱ ) ╱ // 0x37bd @0x23
0x379a…37c3 at0024 = ╱f1╱ + ╱ // 0x37be @0x24
0x379a…37c3 at0025 = ╱22╱"╱ // 0x37bf @0x25
0x379a…37c3 at0026 = ╱2d╱-╱ // 0x37c0 @0x26
0x379a…37c3 at0027 = ╱22╱"╱ // 0x37c1 @0x27
0x379a…37c3 at0028 = EOL // 0x37c2 @0x28
0x379a…37c3 }
0x37c3…37c9 bf16 6940 ELSE
0x37c3…37c9 LineComalBcd {
0x37c3…37c9 ptr = 0xbf16 // 0x37c3 @0x0
0x37c3…37c9 lno = 0x6940 // 0x37c5 @0x2
0x37c3…37c9 at0004 = ╱9a╱ ELSE ╱ // 0x37c7 @0x4
0x37c3…37c9 at0005 = EOL // 0x37c8 @0x5
0x37c3…37c9 }
0x37c9…37d8 bf25 6950 F9 $ ( P ) = F3 $
0x37c9…37d8 LineComalBcd {
0x37c9…37d8 ptr = 0xbf25 // 0x37c9 @0x0
0x37c9…37d8 lno = 0x6950 // 0x37cb @0x2
0x37c9…37d8 at0004 = ╱46╱F╱ // 0x37cd @0x4
0x37c9…37d8 at0005 = ╱39╱9╱ // 0x37ce @0x5
0x37c9…37d8 at0006 = ╱ef╱ $ ╱ // 0x37cf @0x6
0x37c9…37d8 at0007 = ╱ed╱ ( ╱ // 0x37d0 @0x7
0x37c9…37d8 at0008 = ╱50╱P╱ // 0x37d1 @0x8
0x37c9…37d8 at0009 = ╱ee╱ ) ╱ // 0x37d2 @0x9
0x37c9…37d8 at000a = ╱dc╱ = ╱ // 0x37d3 @0xa
0x37c9…37d8 at000b = ╱46╱F╱ // 0x37d4 @0xb
0x37c9…37d8 at000c = ╱33╱3╱ // 0x37d5 @0xc
0x37c9…37d8 at000d = ╱ef╱ $ ╱ // 0x37d6 @0xd
0x37c9…37d8 at000e = EOL // 0x37d7 @0xe
0x37c9…37d8 }
0x37d8…37de bf2b 6960 ENDIF
0x37d8…37de LineComalBcd {
0x37d8…37de ptr = 0xbf2b // 0x37d8 @0x0
0x37d8…37de lno = 0x6960 // 0x37da @0x2
0x37d8…37de at0004 = ╱9b╱ ENDIF ╱ // 0x37dc @0x4
0x37d8…37de at0005 = EOL // 0x37dd @0x5
0x37d8…37de }
0x37de…37ec bf39 6970 Q0 = 0
0x37de…37ec LineComalBcd {
0x37de…37ec ptr = 0xbf39 // 0x37de @0x0
0x37de…37ec lno = 0x6970 // 0x37e0 @0x2
0x37de…37ec at0004 = ╱51╱Q╱ // 0x37e2 @0x4
0x37de…37ec at0005 = ╱30╱0╱ // 0x37e3 @0x5
0x37de…37ec at0006 = ╱dc╱ = ╱ // 0x37e4 @0x6
0x37de…37ec at0007 = ╱30╱0╱ // 0x37e5 @0x7
0x37de…37ec at0008 = ╱fe00000000╱ // 0x37e6 @0x8
0x37de…37ec at000d = EOL // 0x37eb @0xd
0x37de…37ec }
0x37ec…37f2 bf3f 6980 ELSE
0x37ec…37f2 LineComalBcd {
0x37ec…37f2 ptr = 0xbf3f // 0x37ec @0x0
0x37ec…37f2 lno = 0x6980 // 0x37ee @0x2
0x37ec…37f2 at0004 = ╱9a╱ ELSE ╱ // 0x37f0 @0x4
0x37ec…37f2 at0005 = EOL // 0x37f1 @0x5
0x37ec…37f2 }
0x37f2…3807 (186,) bf54 6990 FOR I = 1 TO 6
0x37f2…3807 LineComalBcd {
0x37f2…3807 ptr = 0xbf54 // 0x37f2 @0x0
0x37f2…3807 lno = 0x6990 // 0x37f4 @0x2
0x37f2…3807 at0004 = ╱83╱ FOR ╱ // 0x37f6 @0x4
0x37f2…3807 at0005 = ╱49╱I╱ // 0x37f7 @0x5
0x37f2…3807 at0006 = ╱dc╱ = ╱ // 0x37f8 @0x6
0x37f2…3807 at0007 = ╱31╱1╱ // 0x37f9 @0x7
0x37f2…3807 at0008 = ╱fe00008001╱ // 0x37fa @0x8
0x37f2…3807 at000d = ╱b7╱ TO ╱ // 0x37ff @0xd
0x37f2…3807 at000e = ╱36╱6╱ // 0x3800 @0xe
0x37f2…3807 at000f = ╱fe0000c003╱ // 0x3801 @0xf
0x37f2…3807 at0014 = EOL // 0x3806 @0x14
0x37f2…3807 }
0x3807…382b bf78 7000 EXEC CALC ( 1 , F5 $ ( I ) , F9 $ ( I ) , F3 $ )
0x3807…382b LineComalBcd {
0x3807…382b ptr = 0xbf78 // 0x3807 @0x0
0x3807…382b lno = 0x7000 // 0x3809 @0x2
0x3807…382b at0004 = ╱9d╱ EXEC ╱ // 0x380b @0x4
0x3807…382b at0005 = ╱43╱C╱ // 0x380c @0x5
0x3807…382b at0006 = ╱41╱A╱ // 0x380d @0x6
0x3807…382b at0007 = ╱4c╱L╱ // 0x380e @0x7
0x3807…382b at0008 = ╱43╱C╱ // 0x380f @0x8
0x3807…382b at0009 = ╱ed╱ ( ╱ // 0x3810 @0x9
0x3807…382b at000a = ╱31╱1╱ // 0x3811 @0xa
0x3807…382b at000b = ╱fe00008001╱ // 0x3812 @0xb
0x3807…382b at0010 = ╱ec╱ , ╱ // 0x3817 @0x10
0x3807…382b at0011 = ╱46╱F╱ // 0x3818 @0x11
0x3807…382b at0012 = ╱35╱5╱ // 0x3819 @0x12
0x3807…382b at0013 = ╱ef╱ $ ╱ // 0x381a @0x13
0x3807…382b at0014 = ╱ed╱ ( ╱ // 0x381b @0x14
0x3807…382b at0015 = ╱49╱I╱ // 0x381c @0x15
0x3807…382b at0016 = ╱ee╱ ) ╱ // 0x381d @0x16
0x3807…382b at0017 = ╱ec╱ , ╱ // 0x381e @0x17
0x3807…382b at0018 = ╱46╱F╱ // 0x381f @0x18
0x3807…382b at0019 = ╱39╱9╱ // 0x3820 @0x19
0x3807…382b at001a = ╱ef╱ $ ╱ // 0x3821 @0x1a
0x3807…382b at001b = ╱ed╱ ( ╱ // 0x3822 @0x1b
0x3807…382b at001c = ╱49╱I╱ // 0x3823 @0x1c
0x3807…382b at001d = ╱ee╱ ) ╱ // 0x3824 @0x1d
0x3807…382b at001e = ╱ec╱ , ╱ // 0x3825 @0x1e
0x3807…382b at001f = ╱46╱F╱ // 0x3826 @0x1f
0x3807…382b at0020 = ╱33╱3╱ // 0x3827 @0x20
0x3807…382b at0021 = ╱ef╱ $ ╱ // 0x3828 @0x21
0x3807…382b at0022 = ╱ee╱ ) ╱ // 0x3829 @0x22
0x3807…382b at0023 = EOL // 0x382a @0x23
0x3807…382b }
0x382b…3849 bf96 7010 EXEC CALC ( 4 , F3 $ , B9 $ , B9 $ )
0x382b…3849 LineComalBcd {
0x382b…3849 ptr = 0xbf96 // 0x382b @0x0
0x382b…3849 lno = 0x7010 // 0x382d @0x2
0x382b…3849 at0004 = ╱9d╱ EXEC ╱ // 0x382f @0x4
0x382b…3849 at0005 = ╱43╱C╱ // 0x3830 @0x5
0x382b…3849 at0006 = ╱41╱A╱ // 0x3831 @0x6
0x382b…3849 at0007 = ╱4c╱L╱ // 0x3832 @0x7
0x382b…3849 at0008 = ╱43╱C╱ // 0x3833 @0x8
0x382b…3849 at0009 = ╱ed╱ ( ╱ // 0x3834 @0x9
0x382b…3849 at000a = ╱34╱4╱ // 0x3835 @0xa
0x382b…3849 at000b = ╱fe00008003╱ // 0x3836 @0xb
0x382b…3849 at0010 = ╱ec╱ , ╱ // 0x383b @0x10
0x382b…3849 at0011 = ╱46╱F╱ // 0x383c @0x11
0x382b…3849 at0012 = ╱33╱3╱ // 0x383d @0x12
0x382b…3849 at0013 = ╱ef╱ $ ╱ // 0x383e @0x13
0x382b…3849 at0014 = ╱ec╱ , ╱ // 0x383f @0x14
0x382b…3849 at0015 = ╱42╱B╱ // 0x3840 @0x15
0x382b…3849 at0016 = ╱39╱9╱ // 0x3841 @0x16
0x382b…3849 at0017 = ╱ef╱ $ ╱ // 0x3842 @0x17
0x382b…3849 at0018 = ╱ec╱ , ╱ // 0x3843 @0x18
0x382b…3849 at0019 = ╱42╱B╱ // 0x3844 @0x19
0x382b…3849 at001a = ╱39╱9╱ // 0x3845 @0x1a
0x382b…3849 at001b = ╱ef╱ $ ╱ // 0x3846 @0x1b
0x382b…3849 at001c = ╱ee╱ ) ╱ // 0x3847 @0x1c
0x382b…3849 at001d = EOL // 0x3848 @0x1d
0x382b…3849 }
0x3849…385a bfa7 7020 IF SI >< 0 THEN EXIT
0x3849…385a LineComalBcd {
0x3849…385a ptr = 0xbfa7 // 0x3849 @0x0
0x3849…385a lno = 0x7020 // 0x384b @0x2
0x3849…385a at0004 = ╱82╱ IF ╱ // 0x384d @0x4
0x3849…385a at0005 = ╱53╱S╱ // 0x384e @0x5
0x3849…385a at0006 = ╱49╱I╱ // 0x384f @0x6
0x3849…385a at0007 = ╱e1╱ >< ╱ // 0x3850 @0x7
0x3849…385a at0008 = ╱30╱0╱ // 0x3851 @0x8
0x3849…385a at0009 = ╱fe00000000╱ // 0x3852 @0x9
0x3849…385a at000e = ╱b6╱ THEN ╱ // 0x3857 @0xe
0x3849…385a at000f = ╱99╱ EXIT ╱ // 0x3858 @0xf
0x3849…385a at0010 = EOL // 0x3859 @0x10
0x3849…385a }
0x385a…3861 bfae 7030 NEXT I
0x385a…3861 LineComalBcd {
0x385a…3861 ptr = 0xbfae // 0x385a @0x0
0x385a…3861 lno = 0x7030 // 0x385c @0x2
0x385a…3861 at0004 = ╱84╱ NEXT ╱ // 0x385e @0x4
0x385a…3861 at0005 = ╱49╱I╱ // 0x385f @0x5
0x385a…3861 at0006 = EOL // 0x3860 @0x6
0x385a…3861 }
0x3861…3871 bfbe 7040 IF SI >< 0 THEN
0x3861…3871 LineComalBcd {
0x3861…3871 ptr = 0xbfbe // 0x3861 @0x0
0x3861…3871 lno = 0x7040 // 0x3863 @0x2
0x3861…3871 at0004 = ╱9c╱ IF ╱ // 0x3865 @0x4
0x3861…3871 at0005 = ╱53╱S╱ // 0x3866 @0x5
0x3861…3871 at0006 = ╱49╱I╱ // 0x3867 @0x6
0x3861…3871 at0007 = ╱e1╱ >< ╱ // 0x3868 @0x7
0x3861…3871 at0008 = ╱30╱0╱ // 0x3869 @0x8
0x3861…3871 at0009 = ╱fe00000000╱ // 0x386a @0x9
0x3861…3871 at000e = ╱b6╱ THEN ╱ // 0x386f @0xe
0x3861…3871 at000f = EOL // 0x3870 @0xf
0x3861…3871 }
0x3871…387c bfc9 7050 EXEC RETTE
0x3871…387c LineComalBcd {
0x3871…387c ptr = 0xbfc9 // 0x3871 @0x0
0x3871…387c lno = 0x7050 // 0x3873 @0x2
0x3871…387c at0004 = ╱9d╱ EXEC ╱ // 0x3875 @0x4
0x3871…387c at0005 = ╱52╱R╱ // 0x3876 @0x5
0x3871…387c at0006 = ╱45╱E╱ // 0x3877 @0x6
0x3871…387c at0007 = ╱54╱T╱ // 0x3878 @0x7
0x3871…387c at0008 = ╱54╱T╱ // 0x3879 @0x8
0x3871…387c at0009 = ╱45╱E╱ // 0x387a @0x9
0x3871…387c at000a = EOL // 0x387b @0xa
0x3871…387c }
0x387c…388a bfd7 7060 Q0 = 0
0x387c…388a LineComalBcd {
0x387c…388a ptr = 0xbfd7 // 0x387c @0x0
0x387c…388a lno = 0x7060 // 0x387e @0x2
0x387c…388a at0004 = ╱51╱Q╱ // 0x3880 @0x4
0x387c…388a at0005 = ╱30╱0╱ // 0x3881 @0x5
0x387c…388a at0006 = ╱dc╱ = ╱ // 0x3882 @0x6
0x387c…388a at0007 = ╱30╱0╱ // 0x3883 @0x7
0x387c…388a at0008 = ╱fe00000000╱ // 0x3884 @0x8
0x387c…388a at000d = EOL // 0x3889 @0xd
0x387c…388a }
0x388a…3890 bfdd 7070 ELSE
0x388a…3890 LineComalBcd {
0x388a…3890 ptr = 0xbfdd // 0x388a @0x0
0x388a…3890 lno = 0x7070 // 0x388c @0x2
0x388a…3890 at0004 = ╱9a╱ ELSE ╱ // 0x388e @0x4
0x388a…3890 at0005 = EOL // 0x388f @0x5
0x388a…3890 }
0x3890…3896 bfe3 7080 REPEAT
0x3890…3896 LineComalBcd {
0x3890…3896 ptr = 0xbfe3 // 0x3890 @0x0
0x3890…3896 lno = 0x7080 // 0x3892 @0x2
0x3890…3896 at0004 = ╱97╱ REPEAT ╱ // 0x3894 @0x4
0x3890…3896 at0005 = EOL // 0x3895 @0x5
0x3890…3896 }
0x3896…38aa bff7 7090 CURSOR 4 , 16
0x3896…38aa LineComalBcd {
0x3896…38aa ptr = 0xbff7 // 0x3896 @0x0
0x3896…38aa lno = 0x7090 // 0x3898 @0x2
0x3896…38aa at0004 = ╱a1╱ CURSOR ╱ // 0x389a @0x4
0x3896…38aa at0005 = ╱34╱4╱ // 0x389b @0x5
0x3896…38aa at0006 = ╱fe00008003╱ // 0x389c @0x6
0x3896…38aa at000b = ╱ec╱ , ╱ // 0x38a1 @0xb
0x3896…38aa at000c = ╱31╱1╱ // 0x38a2 @0xc
0x3896…38aa at000d = ╱36╱6╱ // 0x38a3 @0xd
0x3896…38aa at000e = ╱fe00008005╱ // 0x38a4 @0xe
0x3896…38aa at0013 = EOL // 0x38a9 @0x13
0x3896…38aa }
0x38aa…38cc c019 7100 PRINT "\nskes…{ndringer……………(J/N)"
0x38aa…38cc LineComalBcd {
0x38aa…38cc ptr = 0xc019 // 0x38aa @0x0
0x38aa…38cc lno = 0x7100 // 0x38ac @0x2
0x38aa…38cc at0004 = ╱92╱ PRINT ╱ // 0x38ae @0x4
0x38aa…38cc at0005 = ╱22╱"╱ // 0x38af @0x5
0x38aa…38cc at0006 = ╱5c╱\╱ // 0x38b0 @0x6
0x38aa…38cc at0007 = ╱6e╱n╱ // 0x38b1 @0x7
0x38aa…38cc at0008 = ╱73╱s╱ // 0x38b2 @0x8
0x38aa…38cc at0009 = ╱6b╱k╱ // 0x38b3 @0x9
0x38aa…38cc at000a = ╱65╱e╱ // 0x38b4 @0xa
0x38aa…38cc at000b = ╱73╱s╱ // 0x38b5 @0xb
0x38aa…38cc at000c = ╱20╱…╱ // 0x38b6 @0xc
0x38aa…38cc at000d = ╱7b╱{╱ // 0x38b7 @0xd
0x38aa…38cc at000e = ╱6e╱n╱ // 0x38b8 @0xe
0x38aa…38cc at000f = ╱64╱d╱ // 0x38b9 @0xf
0x38aa…38cc at0010 = ╱72╱r╱ // 0x38ba @0x10
0x38aa…38cc at0011 = ╱69╱i╱ // 0x38bb @0x11
0x38aa…38cc at0012 = ╱6e╱n╱ // 0x38bc @0x12
0x38aa…38cc at0013 = ╱67╱g╱ // 0x38bd @0x13
0x38aa…38cc at0014 = ╱65╱e╱ // 0x38be @0x14
0x38aa…38cc at0015 = ╱72╱r╱ // 0x38bf @0x15
0x38aa…38cc at0016 = ╱20╱…╱ // 0x38c0 @0x16
0x38aa…38cc at0017 = ╱20╱…╱ // 0x38c1 @0x17
0x38aa…38cc at0018 = ╱20╱…╱ // 0x38c2 @0x18
0x38aa…38cc at0019 = ╱20╱…╱ // 0x38c3 @0x19
0x38aa…38cc at001a = ╱20╱…╱ // 0x38c4 @0x1a
0x38aa…38cc at001b = ╱28╱(╱ // 0x38c5 @0x1b
0x38aa…38cc at001c = ╱4a╱J╱ // 0x38c6 @0x1c
0x38aa…38cc at001d = ╱2f╱/╱ // 0x38c7 @0x1d
0x38aa…38cc at001e = ╱4e╱N╱ // 0x38c8 @0x1e
0x38aa…38cc at001f = ╱29╱)╱ // 0x38c9 @0x1f
0x38aa…38cc at0020 = ╱22╱"╱ // 0x38ca @0x20
0x38aa…38cc at0021 = EOL // 0x38cb @0x21
0x38aa…38cc }
0x38cc…38e1 c02e 7110 CURSOR 22 , 16
0x38cc…38e1 LineComalBcd {
0x38cc…38e1 ptr = 0xc02e // 0x38cc @0x0
0x38cc…38e1 lno = 0x7110 // 0x38ce @0x2
0x38cc…38e1 at0004 = ╱a1╱ CURSOR ╱ // 0x38d0 @0x4
0x38cc…38e1 at0005 = ╱32╱2╱ // 0x38d1 @0x5
0x38cc…38e1 at0006 = ╱32╱2╱ // 0x38d2 @0x6
0x38cc…38e1 at0007 = ╱fe0000b005╱ // 0x38d3 @0x7
0x38cc…38e1 at000c = ╱ec╱ , ╱ // 0x38d8 @0xc
0x38cc…38e1 at000d = ╱31╱1╱ // 0x38d9 @0xd
0x38cc…38e1 at000e = ╱36╱6╱ // 0x38da @0xe
0x38cc…38e1 at000f = ╱fe00008005╱ // 0x38db @0xf
0x38cc…38e1 at0014 = EOL // 0x38e0 @0x14
0x38cc…38e1 }
0x38e1…38e9 c036 7120 INPUT A $
0x38e1…38e9 LineComalBcd {
0x38e1…38e9 ptr = 0xc036 // 0x38e1 @0x0
0x38e1…38e9 lno = 0x7120 // 0x38e3 @0x2
0x38e1…38e9 at0004 = ╱91╱ INPUT ╱ // 0x38e5 @0x4
0x38e1…38e9 at0005 = ╱41╱A╱ // 0x38e6 @0x5
0x38e1…38e9 at0006 = ╱ef╱ $ ╱ // 0x38e7 @0x6
0x38e1…38e9 at0007 = EOL // 0x38e8 @0x7
0x38e1…38e9 }
0x38e9…38f9 c046 7130 EXEC NRTEST ( A $ )
0x38e9…38f9 LineComalBcd {
0x38e9…38f9 ptr = 0xc046 // 0x38e9 @0x0
0x38e9…38f9 lno = 0x7130 // 0x38eb @0x2
0x38e9…38f9 at0004 = ╱9d╱ EXEC ╱ // 0x38ed @0x4
0x38e9…38f9 at0005 = ╱4e╱N╱ // 0x38ee @0x5
0x38e9…38f9 at0006 = ╱52╱R╱ // 0x38ef @0x6
0x38e9…38f9 at0007 = ╱54╱T╱ // 0x38f0 @0x7
0x38e9…38f9 at0008 = ╱45╱E╱ // 0x38f1 @0x8
0x38e9…38f9 at0009 = ╱53╱S╱ // 0x38f2 @0x9
0x38e9…38f9 at000a = ╱54╱T╱ // 0x38f3 @0xa
0x38e9…38f9 at000b = ╱ed╱ ( ╱ // 0x38f4 @0xb
0x38e9…38f9 at000c = ╱41╱A╱ // 0x38f5 @0xc
0x38e9…38f9 at000d = ╱ef╱ $ ╱ // 0x38f6 @0xd
0x38e9…38f9 at000e = ╱ee╱ ) ╱ // 0x38f7 @0xe
0x38e9…38f9 at000f = EOL // 0x38f8 @0xf
0x38e9…38f9 }
0x38f9…391e c06b 7140 UNTIL ( P = - 7 OR P = - 8 ) AND H4 = 0
0x38f9…391e LineComalBcd {
0x38f9…391e ptr = 0xc06b // 0x38f9 @0x0
0x38f9…391e lno = 0x7140 // 0x38fb @0x2
0x38f9…391e at0004 = ╱98╱ UNTIL ╱ // 0x38fd @0x4
0x38f9…391e at0005 = ╱ed╱ ( ╱ // 0x38fe @0x5
0x38f9…391e at0006 = ╱50╱P╱ // 0x38ff @0x6
0x38f9…391e at0007 = ╱dc╱ = ╱ // 0x3900 @0x7
0x38f9…391e at0008 = ╱e9╱ - ╱ // 0x3901 @0x8
0x38f9…391e at0009 = ╱37╱7╱ // 0x3902 @0x9
0x38f9…391e at000a = ╱fe0000e003╱ // 0x3903 @0xa
0x38f9…391e at000f = ╱db╱ OR ╱ // 0x3908 @0xf
0x38f9…391e at0010 = ╱50╱P╱ // 0x3909 @0x10
0x38f9…391e at0011 = ╱dc╱ = ╱ // 0x390a @0x11
0x38f9…391e at0012 = ╱e9╱ - ╱ // 0x390b @0x12
0x38f9…391e at0013 = ╱38╱8╱ // 0x390c @0x13
0x38f9…391e at0014 = ╱fe00008004╱ // 0x390d @0x14
0x38f9…391e at0019 = ╱ee╱ ) ╱ // 0x3912 @0x19
0x38f9…391e at001a = ╱da╱ AND ╱ // 0x3913 @0x1a
0x38f9…391e at001b = ╱48╱H╱ // 0x3914 @0x1b
0x38f9…391e at001c = ╱34╱4╱ // 0x3915 @0x1c
0x38f9…391e at001d = ╱dc╱ = ╱ // 0x3916 @0x1d
0x38f9…391e at001e = ╱30╱0╱ // 0x3917 @0x1e
0x38f9…391e at001f = ╱fe00000000╱ // 0x3918 @0x1f
0x38f9…391e at0024 = EOL // 0x391d @0x24
0x38f9…391e }
0x391e…392e c07b 7150 IF P = - 7 THEN
0x391e…392e LineComalBcd {
0x391e…392e ptr = 0xc07b // 0x391e @0x0
0x391e…392e lno = 0x7150 // 0x3920 @0x2
0x391e…392e at0004 = ╱9c╱ IF ╱ // 0x3922 @0x4
0x391e…392e at0005 = ╱50╱P╱ // 0x3923 @0x5
0x391e…392e at0006 = ╱dc╱ = ╱ // 0x3924 @0x6
0x391e…392e at0007 = ╱e9╱ - ╱ // 0x3925 @0x7
0x391e…392e at0008 = ╱37╱7╱ // 0x3926 @0x8
0x391e…392e at0009 = ╱fe0000e003╱ // 0x3927 @0x9
0x391e…392e at000e = ╱b6╱ THEN ╱ // 0x392c @0xe
0x391e…392e at000f = EOL // 0x392d @0xf
0x391e…392e }
0x392e…3939 c086 7160 EXEC RETTE
0x392e…3939 LineComalBcd {
0x392e…3939 ptr = 0xc086 // 0x392e @0x0
0x392e…3939 lno = 0x7160 // 0x3930 @0x2
0x392e…3939 at0004 = ╱9d╱ EXEC ╱ // 0x3932 @0x4
0x392e…3939 at0005 = ╱52╱R╱ // 0x3933 @0x5
0x392e…3939 at0006 = ╱45╱E╱ // 0x3934 @0x6
0x392e…3939 at0007 = ╱54╱T╱ // 0x3935 @0x7
0x392e…3939 at0008 = ╱54╱T╱ // 0x3936 @0x8
0x392e…3939 at0009 = ╱45╱E╱ // 0x3937 @0x9
0x392e…3939 at000a = EOL // 0x3938 @0xa
0x392e…3939 }
0x3939…3947 c094 7170 Q0 = 0
0x3939…3947 LineComalBcd {
0x3939…3947 ptr = 0xc094 // 0x3939 @0x0
0x3939…3947 lno = 0x7170 // 0x393b @0x2
0x3939…3947 at0004 = ╱51╱Q╱ // 0x393d @0x4
0x3939…3947 at0005 = ╱30╱0╱ // 0x393e @0x5
0x3939…3947 at0006 = ╱dc╱ = ╱ // 0x393f @0x6
0x3939…3947 at0007 = ╱30╱0╱ // 0x3940 @0x7
0x3939…3947 at0008 = ╱fe00000000╱ // 0x3941 @0x8
0x3939…3947 at000d = EOL // 0x3946 @0xd
0x3939…3947 }
0x3947…394d c09a 7180 ELSE
0x3947…394d LineComalBcd {
0x3947…394d ptr = 0xc09a // 0x3947 @0x0
0x3947…394d lno = 0x7180 // 0x3949 @0x2
0x3947…394d at0004 = ╱9a╱ ELSE ╱ // 0x394b @0x4
0x3947…394d at0005 = EOL // 0x394c @0x5
0x3947…394d }
0x394d…395c c0a9 7190 Q0 = - 1
0x394d…395c LineComalBcd {
0x394d…395c ptr = 0xc0a9 // 0x394d @0x0
0x394d…395c lno = 0x7190 // 0x394f @0x2
0x394d…395c at0004 = ╱51╱Q╱ // 0x3951 @0x4
0x394d…395c at0005 = ╱30╱0╱ // 0x3952 @0x5
0x394d…395c at0006 = ╱dc╱ = ╱ // 0x3953 @0x6
0x394d…395c at0007 = ╱e9╱ - ╱ // 0x3954 @0x7
0x394d…395c at0008 = ╱31╱1╱ // 0x3955 @0x8
0x394d…395c at0009 = ╱fe00008001╱ // 0x3956 @0x9
0x394d…395c at000e = EOL // 0x395b @0xe
0x394d…395c }
0x395c…3962 c0af 7200 ENDIF
0x395c…3962 LineComalBcd {
0x395c…3962 ptr = 0xc0af // 0x395c @0x0
0x395c…3962 lno = 0x7200 // 0x395e @0x2
0x395c…3962 at0004 = ╱9b╱ ENDIF ╱ // 0x3960 @0x4
0x395c…3962 at0005 = EOL // 0x3961 @0x5
0x395c…3962 }
0x3962…3968 c0b5 7210 ENDIF
0x3962…3968 LineComalBcd {
0x3962…3968 ptr = 0xc0b5 // 0x3962 @0x0
0x3962…3968 lno = 0x7210 // 0x3964 @0x2
0x3962…3968 at0004 = ╱9b╱ ENDIF ╱ // 0x3966 @0x4
0x3962…3968 at0005 = EOL // 0x3967 @0x5
0x3962…3968 }
0x3968…396e c0bb 7220 ENDIF
0x3968…396e LineComalBcd {
0x3968…396e ptr = 0xc0bb // 0x3968 @0x0
0x3968…396e lno = 0x7220 // 0x396a @0x2
0x3968…396e at0004 = ╱9b╱ ENDIF ╱ // 0x396c @0x4
0x3968…396e at0005 = EOL // 0x396d @0x5
0x3968…396e }
0x396e…397e c0cb 7230 UNTIL Q0 = - 1
0x396e…397e LineComalBcd {
0x396e…397e ptr = 0xc0cb // 0x396e @0x0
0x396e…397e lno = 0x7230 // 0x3970 @0x2
0x396e…397e at0004 = ╱98╱ UNTIL ╱ // 0x3972 @0x4
0x396e…397e at0005 = ╱51╱Q╱ // 0x3973 @0x5
0x396e…397e at0006 = ╱30╱0╱ // 0x3974 @0x6
0x396e…397e at0007 = ╱dc╱ = ╱ // 0x3975 @0x7
0x396e…397e at0008 = ╱e9╱ - ╱ // 0x3976 @0x8
0x396e…397e at0009 = ╱31╱1╱ // 0x3977 @0x9
0x396e…397e at000a = ╱fe00008001╱ // 0x3978 @0xa
0x396e…397e at000f = EOL // 0x397d @0xf
0x396e…397e }
0x397e…3984 c0d1 7240 ENDPROC
0x397e…3984 LineComalBcd {
0x397e…3984 ptr = 0xc0d1 // 0x397e @0x0
0x397e…3984 lno = 0x7240 // 0x3980 @0x2
0x397e…3984 at0004 = ╱9f╱ ENDPROC ╱ // 0x3982 @0x4
0x397e…3984 at0005 = EOL // 0x3983 @0x5
0x397e…3984 }
0x3984…3998 c0e5 7250 PROC HOVEDUD ( Q1 , Q2 )
0x3984…3998 LineComalBcd {
0x3984…3998 ptr = 0xc0e5 // 0x3984 @0x0
0x3984…3998 lno = 0x7250 // 0x3986 @0x2
0x3984…3998 at0004 = ╱9e╱ PROC ╱ // 0x3988 @0x4
0x3984…3998 at0005 = ╱48╱H╱ // 0x3989 @0x5
0x3984…3998 at0006 = ╱4f╱O╱ // 0x398a @0x6
0x3984…3998 at0007 = ╱56╱V╱ // 0x398b @0x7
0x3984…3998 at0008 = ╱45╱E╱ // 0x398c @0x8
0x3984…3998 at0009 = ╱44╱D╱ // 0x398d @0x9
0x3984…3998 at000a = ╱55╱U╱ // 0x398e @0xa
0x3984…3998 at000b = ╱44╱D╱ // 0x398f @0xb
0x3984…3998 at000c = ╱ed╱ ( ╱ // 0x3990 @0xc
0x3984…3998 at000d = ╱51╱Q╱ // 0x3991 @0xd
0x3984…3998 at000e = ╱31╱1╱ // 0x3992 @0xe
0x3984…3998 at000f = ╱ec╱ , ╱ // 0x3993 @0xf
0x3984…3998 at0010 = ╱51╱Q╱ // 0x3994 @0x10
0x3984…3998 at0011 = ╱32╱2╱ // 0x3995 @0x11
0x3984…3998 at0012 = ╱ee╱ ) ╱ // 0x3996 @0x12
0x3984…3998 at0013 = EOL // 0x3997 @0x13
0x3984…3998 }
0x3998…39ac c0f9 7260 EXEC DATOUD ( Q1 , D6 $ )
0x3998…39ac LineComalBcd {
0x3998…39ac ptr = 0xc0f9 // 0x3998 @0x0
0x3998…39ac lno = 0x7260 // 0x399a @0x2
0x3998…39ac at0004 = ╱9d╱ EXEC ╱ // 0x399c @0x4
0x3998…39ac at0005 = ╱44╱D╱ // 0x399d @0x5
0x3998…39ac at0006 = ╱41╱A╱ // 0x399e @0x6
0x3998…39ac at0007 = ╱54╱T╱ // 0x399f @0x7
0x3998…39ac at0008 = ╱4f╱O╱ // 0x39a0 @0x8
0x3998…39ac at0009 = ╱55╱U╱ // 0x39a1 @0x9
0x3998…39ac at000a = ╱44╱D╱ // 0x39a2 @0xa
0x3998…39ac at000b = ╱ed╱ ( ╱ // 0x39a3 @0xb
0x3998…39ac at000c = ╱51╱Q╱ // 0x39a4 @0xc
0x3998…39ac at000d = ╱31╱1╱ // 0x39a5 @0xd
0x3998…39ac at000e = ╱ec╱ , ╱ // 0x39a6 @0xe
0x3998…39ac at000f = ╱44╱D╱ // 0x39a7 @0xf
0x3998…39ac at0010 = ╱36╱6╱ // 0x39a8 @0x10
0x3998…39ac at0011 = ╱ef╱ $ ╱ // 0x39a9 @0x11
0x3998…39ac at0012 = ╱ee╱ ) ╱ // 0x39aa @0x12
0x3998…39ac at0013 = EOL // 0x39ab @0x13
0x3998…39ac }
0x39ac…39b3 c100 7270 OUTPUT P
0x39ac…39b3 LineComalBcd {
0x39ac…39b3 ptr = 0xc100 // 0x39ac @0x0
0x39ac…39b3 lno = 0x7270 // 0x39ae @0x2
0x39ac…39b3 at0004 = ╱a5╱ OUTPUT ╱ // 0x39b0 @0x4
0x39ac…39b3 at0005 = ╱50╱P╱ // 0x39b1 @0x5
0x39ac…39b3 at0006 = EOL // 0x39b2 @0x6
0x39ac…39b3 }
0x39b3…3a06 c153 7280 IF R3 = 36 THEN PRINT CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 ) ; CHR ( 10 )
0x39b3…3a06 LineComalBcd {
0x39b3…3a06 ptr = 0xc153 // 0x39b3 @0x0
0x39b3…3a06 lno = 0x7280 // 0x39b5 @0x2
0x39b3…3a06 at0004 = ╱82╱ IF ╱ // 0x39b7 @0x4
0x39b3…3a06 at0005 = ╱52╱R╱ // 0x39b8 @0x5
0x39b3…3a06 at0006 = ╱33╱3╱ // 0x39b9 @0x6
0x39b3…3a06 at0007 = ╱dc╱ = ╱ // 0x39ba @0x7
0x39b3…3a06 at0008 = ╱33╱3╱ // 0x39bb @0x8
0x39b3…3a06 at0009 = ╱36╱6╱ // 0x39bc @0x9
0x39b3…3a06 at000a = ╱fe00009006╱ // 0x39bd @0xa
0x39b3…3a06 at000f = ╱b6╱ THEN ╱ // 0x39c2 @0xf
0x39b3…3a06 at0010 = ╱92╱ PRINT ╱ // 0x39c3 @0x10
0x39b3…3a06 at0011 = ╱cf╱ CHR ╱ // 0x39c4 @0x11
0x39b3…3a06 at0012 = ╱ed╱ ( ╱ // 0x39c5 @0x12
0x39b3…3a06 at0013 = ╱31╱1╱ // 0x39c6 @0x13
0x39b3…3a06 at0014 = ╱30╱0╱ // 0x39c7 @0x14
0x39b3…3a06 at0015 = ╱fe0000a004╱ // 0x39c8 @0x15
0x39b3…3a06 at001a = ╱ee╱ ) ╱ // 0x39cd @0x1a
0x39b3…3a06 at001b = ╱eb╱ ; ╱ // 0x39ce @0x1b
0x39b3…3a06 at001c = ╱cf╱ CHR ╱ // 0x39cf @0x1c
0x39b3…3a06 at001d = ╱ed╱ ( ╱ // 0x39d0 @0x1d
0x39b3…3a06 at001e = ╱31╱1╱ // 0x39d1 @0x1e
0x39b3…3a06 at001f = ╱30╱0╱ // 0x39d2 @0x1f
0x39b3…3a06 at0020 = ╱fe0000a004╱ // 0x39d3 @0x20
0x39b3…3a06 at0025 = ╱ee╱ ) ╱ // 0x39d8 @0x25
0x39b3…3a06 at0026 = ╱eb╱ ; ╱ // 0x39d9 @0x26
0x39b3…3a06 at0027 = ╱cf╱ CHR ╱ // 0x39da @0x27
0x39b3…3a06 at0028 = ╱ed╱ ( ╱ // 0x39db @0x28
0x39b3…3a06 at0029 = ╱31╱1╱ // 0x39dc @0x29
0x39b3…3a06 at002a = ╱30╱0╱ // 0x39dd @0x2a
0x39b3…3a06 at002b = ╱fe0000a004╱ // 0x39de @0x2b
0x39b3…3a06 at0030 = ╱ee╱ ) ╱ // 0x39e3 @0x30
0x39b3…3a06 at0031 = ╱eb╱ ; ╱ // 0x39e4 @0x31
0x39b3…3a06 at0032 = ╱cf╱ CHR ╱ // 0x39e5 @0x32
0x39b3…3a06 at0033 = ╱ed╱ ( ╱ // 0x39e6 @0x33
0x39b3…3a06 at0034 = ╱31╱1╱ // 0x39e7 @0x34
0x39b3…3a06 at0035 = ╱30╱0╱ // 0x39e8 @0x35
0x39b3…3a06 at0036 = ╱fe0000a004╱ // 0x39e9 @0x36
0x39b3…3a06 at003b = ╱ee╱ ) ╱ // 0x39ee @0x3b
0x39b3…3a06 at003c = ╱eb╱ ; ╱ // 0x39ef @0x3c
0x39b3…3a06 at003d = ╱cf╱ CHR ╱ // 0x39f0 @0x3d
0x39b3…3a06 at003e = ╱ed╱ ( ╱ // 0x39f1 @0x3e
0x39b3…3a06 at003f = ╱31╱1╱ // 0x39f2 @0x3f
0x39b3…3a06 at0040 = ╱30╱0╱ // 0x39f3 @0x40
0x39b3…3a06 at0041 = ╱fe0000a004╱ // 0x39f4 @0x41
0x39b3…3a06 at0046 = ╱ee╱ ) ╱ // 0x39f9 @0x46
0x39b3…3a06 at0047 = ╱eb╱ ; ╱ // 0x39fa @0x47
0x39b3…3a06 at0048 = ╱cf╱ CHR ╱ // 0x39fb @0x48
0x39b3…3a06 at0049 = ╱ed╱ ( ╱ // 0x39fc @0x49
0x39b3…3a06 at004a = ╱31╱1╱ // 0x39fd @0x4a
0x39b3…3a06 at004b = ╱30╱0╱ // 0x39fe @0x4b
0x39b3…3a06 at004c = ╱fe0000a004╱ // 0x39ff @0x4c
0x39b3…3a06 at0051 = ╱ee╱ ) ╱ // 0x3a04 @0x51
0x39b3…3a06 at0052 = EOL // 0x3a05 @0x52
0x39b3…3a06 }
0x3a06…3a52 c19f 7290 PRINT TAB ( 9 ) ; CHR ( 14 ) ; "Kasserapport" ; CHR ( 15 ) ; TAB ( 44 ) ; "Dato:" ; D6 $ ;
0x3a06…3a52 LineComalBcd {
0x3a06…3a52 ptr = 0xc19f // 0x3a06 @0x0
0x3a06…3a52 lno = 0x7290 // 0x3a08 @0x2
0x3a06…3a52 at0004 = ╱92╱ PRINT ╱ // 0x3a0a @0x4
0x3a06…3a52 at0005 = ╱d2╱ TAB ╱ // 0x3a0b @0x5
0x3a06…3a52 at0006 = ╱ed╱ ( ╱ // 0x3a0c @0x6
0x3a06…3a52 at0007 = ╱39╱9╱ // 0x3a0d @0x7
0x3a06…3a52 at0008 = ╱fe00009004╱ // 0x3a0e @0x8
0x3a06…3a52 at000d = ╱ee╱ ) ╱ // 0x3a13 @0xd
0x3a06…3a52 at000e = ╱eb╱ ; ╱ // 0x3a14 @0xe
0x3a06…3a52 at000f = ╱cf╱ CHR ╱ // 0x3a15 @0xf
0x3a06…3a52 at0010 = ╱ed╱ ( ╱ // 0x3a16 @0x10
0x3a06…3a52 at0011 = ╱31╱1╱ // 0x3a17 @0x11
0x3a06…3a52 at0012 = ╱34╱4╱ // 0x3a18 @0x12
0x3a06…3a52 at0013 = ╱fe0000e004╱ // 0x3a19 @0x13
0x3a06…3a52 at0018 = ╱ee╱ ) ╱ // 0x3a1e @0x18
0x3a06…3a52 at0019 = ╱eb╱ ; ╱ // 0x3a1f @0x19
0x3a06…3a52 at001a = ╱22╱"╱ // 0x3a20 @0x1a
0x3a06…3a52 at001b = ╱4b╱K╱ // 0x3a21 @0x1b
0x3a06…3a52 at001c = ╱61╱a╱ // 0x3a22 @0x1c
0x3a06…3a52 at001d = ╱73╱s╱ // 0x3a23 @0x1d
0x3a06…3a52 at001e = ╱73╱s╱ // 0x3a24 @0x1e
0x3a06…3a52 at001f = ╱65╱e╱ // 0x3a25 @0x1f
0x3a06…3a52 at0020 = ╱72╱r╱ // 0x3a26 @0x20
0x3a06…3a52 at0021 = ╱61╱a╱ // 0x3a27 @0x21
0x3a06…3a52 at0022 = ╱70╱p╱ // 0x3a28 @0x22
0x3a06…3a52 at0023 = ╱70╱p╱ // 0x3a29 @0x23
0x3a06…3a52 at0024 = ╱6f╱o╱ // 0x3a2a @0x24
0x3a06…3a52 at0025 = ╱72╱r╱ // 0x3a2b @0x25
0x3a06…3a52 at0026 = ╱74╱t╱ // 0x3a2c @0x26
0x3a06…3a52 at0027 = ╱22╱"╱ // 0x3a2d @0x27
0x3a06…3a52 at0028 = ╱eb╱ ; ╱ // 0x3a2e @0x28
0x3a06…3a52 at0029 = ╱cf╱ CHR ╱ // 0x3a2f @0x29
0x3a06…3a52 at002a = ╱ed╱ ( ╱ // 0x3a30 @0x2a
0x3a06…3a52 at002b = ╱31╱1╱ // 0x3a31 @0x2b
0x3a06…3a52 at002c = ╱35╱5╱ // 0x3a32 @0x2c
0x3a06…3a52 at002d = ╱fe0000f004╱ // 0x3a33 @0x2d
0x3a06…3a52 at0032 = ╱ee╱ ) ╱ // 0x3a38 @0x32
0x3a06…3a52 at0033 = ╱eb╱ ; ╱ // 0x3a39 @0x33
0x3a06…3a52 at0034 = ╱d2╱ TAB ╱ // 0x3a3a @0x34
0x3a06…3a52 at0035 = ╱ed╱ ( ╱ // 0x3a3b @0x35
0x3a06…3a52 at0036 = ╱34╱4╱ // 0x3a3c @0x36
0x3a06…3a52 at0037 = ╱34╱4╱ // 0x3a3d @0x37
0x3a06…3a52 at0038 = ╱fe0000b006╱ // 0x3a3e @0x38
0x3a06…3a52 at003d = ╱ee╱ ) ╱ // 0x3a43 @0x3d
0x3a06…3a52 at003e = ╱eb╱ ; ╱ // 0x3a44 @0x3e
0x3a06…3a52 at003f = ╱22╱"╱ // 0x3a45 @0x3f
0x3a06…3a52 at0040 = ╱44╱D╱ // 0x3a46 @0x40
0x3a06…3a52 at0041 = ╱61╱a╱ // 0x3a47 @0x41
0x3a06…3a52 at0042 = ╱74╱t╱ // 0x3a48 @0x42
0x3a06…3a52 at0043 = ╱6f╱o╱ // 0x3a49 @0x43
0x3a06…3a52 at0044 = ╱3a╱:╱ // 0x3a4a @0x44
0x3a06…3a52 at0045 = ╱22╱"╱ // 0x3a4b @0x45
0x3a06…3a52 at0046 = ╱eb╱ ; ╱ // 0x3a4c @0x46
0x3a06…3a52 at0047 = ╱44╱D╱ // 0x3a4d @0x47
0x3a06…3a52 at0048 = ╱36╱6╱ // 0x3a4e @0x48
0x3a06…3a52 at0049 = ╱ef╱ $ ╱ // 0x3a4f @0x49
0x3a06…3a52 at004a = ╱eb╱ ; ╱ // 0x3a50 @0x4a
0x3a06…3a52 at004b = EOL // 0x3a51 @0x4b
0x3a06…3a52 }
0x3a52…3a63 c1b0 7300 PRINT TAB ( 61 ) ;
0x3a52…3a63 LineComalBcd {
0x3a52…3a63 ptr = 0xc1b0 // 0x3a52 @0x0
0x3a52…3a63 lno = 0x7300 // 0x3a54 @0x2
0x3a52…3a63 at0004 = ╱92╱ PRINT ╱ // 0x3a56 @0x4
0x3a52…3a63 at0005 = ╱d2╱ TAB ╱ // 0x3a57 @0x5
0x3a52…3a63 at0006 = ╱ed╱ ( ╱ // 0x3a58 @0x6
0x3a52…3a63 at0007 = ╱36╱6╱ // 0x3a59 @0x7
0x3a52…3a63 at0008 = ╱31╱1╱ // 0x3a5a @0x8
0x3a52…3a63 at0009 = ╱fe0000f406╱ // 0x3a5b @0x9
0x3a52…3a63 at000e = ╱ee╱ ) ╱ // 0x3a60 @0xe
0x3a52…3a63 at000f = ╱eb╱ ; ╱ // 0x3a61 @0xf
0x3a52…3a63 at0010 = EOL // 0x3a62 @0x10
0x3a52…3a63 }
0x3a63…3a78 c1c5 7310 PRINT USING "Side:####" : Q2
0x3a63…3a78 LineComalBcd {
0x3a63…3a78 ptr = 0xc1c5 // 0x3a63 @0x0
0x3a63…3a78 lno = 0x7310 // 0x3a65 @0x2
0x3a63…3a78 at0004 = ╱92╱ PRINT ╱ // 0x3a67 @0x4
0x3a63…3a78 at0005 = ╱b9╱ USING ╱ // 0x3a68 @0x5
0x3a63…3a78 at0006 = ╱22╱"╱ // 0x3a69 @0x6
0x3a63…3a78 at0007 = ╱53╱S╱ // 0x3a6a @0x7
0x3a63…3a78 at0008 = ╱69╱i╱ // 0x3a6b @0x8
0x3a63…3a78 at0009 = ╱64╱d╱ // 0x3a6c @0x9
0x3a63…3a78 at000a = ╱65╱e╱ // 0x3a6d @0xa
0x3a63…3a78 at000b = ╱3a╱:╱ // 0x3a6e @0xb
0x3a63…3a78 at000c = ╱23╱#╱ // 0x3a6f @0xc
0x3a63…3a78 at000d = ╱23╱#╱ // 0x3a70 @0xd
0x3a63…3a78 at000e = ╱23╱#╱ // 0x3a71 @0xe
0x3a63…3a78 at000f = ╱23╱#╱ // 0x3a72 @0xf
0x3a63…3a78 at0010 = ╱22╱"╱ // 0x3a73 @0x10
0x3a63…3a78 at0011 = ╱f0╱ : ╱ // 0x3a74 @0x11
0x3a63…3a78 at0012 = ╱51╱Q╱ // 0x3a75 @0x12
0x3a63…3a78 at0013 = ╱32╱2╱ // 0x3a76 @0x13
0x3a63…3a78 at0014 = EOL // 0x3a77 @0x14
0x3a63…3a78 }
0x3a78…3a88 c1d5 7320 PRINT CHR ( 10 )
0x3a78…3a88 LineComalBcd {
0x3a78…3a88 ptr = 0xc1d5 // 0x3a78 @0x0
0x3a78…3a88 lno = 0x7320 // 0x3a7a @0x2
0x3a78…3a88 at0004 = ╱92╱ PRINT ╱ // 0x3a7c @0x4
0x3a78…3a88 at0005 = ╱cf╱ CHR ╱ // 0x3a7d @0x5
0x3a78…3a88 at0006 = ╱ed╱ ( ╱ // 0x3a7e @0x6
0x3a78…3a88 at0007 = ╱31╱1╱ // 0x3a7f @0x7
0x3a78…3a88 at0008 = ╱30╱0╱ // 0x3a80 @0x8
0x3a78…3a88 at0009 = ╱fe0000a004╱ // 0x3a81 @0x9
0x3a78…3a88 at000e = ╱ee╱ ) ╱ // 0x3a86 @0xe
0x3a78…3a88 at000f = EOL // 0x3a87 @0xf
0x3a78…3a88 }
0x3a88…3ac6 c213 7330 PRINT TAB ( 3 ) ; "Bilag" ; TAB ( 10 ) ; "Tekst" ; TAB ( 39 ) ; "Konto" ;
0x3a88…3ac6 LineComalBcd {
0x3a88…3ac6 ptr = 0xc213 // 0x3a88 @0x0
0x3a88…3ac6 lno = 0x7330 // 0x3a8a @0x2
0x3a88…3ac6 at0004 = ╱92╱ PRINT ╱ // 0x3a8c @0x4
0x3a88…3ac6 at0005 = ╱d2╱ TAB ╱ // 0x3a8d @0x5
0x3a88…3ac6 at0006 = ╱ed╱ ( ╱ // 0x3a8e @0x6
0x3a88…3ac6 at0007 = ╱33╱3╱ // 0x3a8f @0x7
0x3a88…3ac6 at0008 = ╱fe0000c002╱ // 0x3a90 @0x8
0x3a88…3ac6 at000d = ╱ee╱ ) ╱ // 0x3a95 @0xd
0x3a88…3ac6 at000e = ╱eb╱ ; ╱ // 0x3a96 @0xe
0x3a88…3ac6 at000f = ╱22╱"╱ // 0x3a97 @0xf
0x3a88…3ac6 at0010 = ╱42╱B╱ // 0x3a98 @0x10
0x3a88…3ac6 at0011 = ╱69╱i╱ // 0x3a99 @0x11
0x3a88…3ac6 at0012 = ╱6c╱l╱ // 0x3a9a @0x12
0x3a88…3ac6 at0013 = ╱61╱a╱ // 0x3a9b @0x13
0x3a88…3ac6 at0014 = ╱67╱g╱ // 0x3a9c @0x14
0x3a88…3ac6 at0015 = ╱22╱"╱ // 0x3a9d @0x15
0x3a88…3ac6 at0016 = ╱eb╱ ; ╱ // 0x3a9e @0x16
0x3a88…3ac6 at0017 = ╱d2╱ TAB ╱ // 0x3a9f @0x17
0x3a88…3ac6 at0018 = ╱ed╱ ( ╱ // 0x3aa0 @0x18
0x3a88…3ac6 at0019 = ╱31╱1╱ // 0x3aa1 @0x19
0x3a88…3ac6 at001a = ╱30╱0╱ // 0x3aa2 @0x1a
0x3a88…3ac6 at001b = ╱fe0000a004╱ // 0x3aa3 @0x1b
0x3a88…3ac6 at0020 = ╱ee╱ ) ╱ // 0x3aa8 @0x20
0x3a88…3ac6 at0021 = ╱eb╱ ; ╱ // 0x3aa9 @0x21
0x3a88…3ac6 at0022 = ╱22╱"╱ // 0x3aaa @0x22
0x3a88…3ac6 at0023 = ╱54╱T╱ // 0x3aab @0x23
0x3a88…3ac6 at0024 = ╱65╱e╱ // 0x3aac @0x24
0x3a88…3ac6 at0025 = ╱6b╱k╱ // 0x3aad @0x25
0x3a88…3ac6 at0026 = ╱73╱s╱ // 0x3aae @0x26
0x3a88…3ac6 at0027 = ╱74╱t╱ // 0x3aaf @0x27
0x3a88…3ac6 at0028 = ╱22╱"╱ // 0x3ab0 @0x28
0x3a88…3ac6 at0029 = ╱eb╱ ; ╱ // 0x3ab1 @0x29
0x3a88…3ac6 at002a = ╱d2╱ TAB ╱ // 0x3ab2 @0x2a
0x3a88…3ac6 at002b = ╱ed╱ ( ╱ // 0x3ab3 @0x2b
0x3a88…3ac6 at002c = ╱33╱3╱ // 0x3ab4 @0x2c
0x3a88…3ac6 at002d = ╱39╱9╱ // 0x3ab5 @0x2d
0x3a88…3ac6 at002e = ╱fe00009c06╱ // 0x3ab6 @0x2e
0x3a88…3ac6 at0033 = ╱ee╱ ) ╱ // 0x3abb @0x33
0x3a88…3ac6 at0034 = ╱eb╱ ; ╱ // 0x3abc @0x34
0x3a88…3ac6 at0035 = ╱22╱"╱ // 0x3abd @0x35
0x3a88…3ac6 at0036 = ╱4b╱K╱ // 0x3abe @0x36
0x3a88…3ac6 at0037 = ╱6f╱o╱ // 0x3abf @0x37
0x3a88…3ac6 at0038 = ╱6e╱n╱ // 0x3ac0 @0x38
0x3a88…3ac6 at0039 = ╱74╱t╱ // 0x3ac1 @0x39
0x3a88…3ac6 at003a = ╱6f╱o╱ // 0x3ac2 @0x3a
0x3a88…3ac6 at003b = ╱22╱"╱ // 0x3ac3 @0x3b
0x3a88…3ac6 at003c = ╱eb╱ ; ╱ // 0x3ac4 @0x3c
0x3a88…3ac6 at003d = EOL // 0x3ac5 @0x3d
0x3a88…3ac6 }
0x3ac6…3b04 c251 7340 PRINT TAB ( 52 ) ; "Debet" ; TAB ( 67 ) ; "Kredit" ; TAB ( 75 ) ; "Kode"
0x3ac6…3b04 LineComalBcd {
0x3ac6…3b04 ptr = 0xc251 // 0x3ac6 @0x0
0x3ac6…3b04 lno = 0x7340 // 0x3ac8 @0x2
0x3ac6…3b04 at0004 = ╱92╱ PRINT ╱ // 0x3aca @0x4
0x3ac6…3b04 at0005 = ╱d2╱ TAB ╱ // 0x3acb @0x5
0x3ac6…3b04 at0006 = ╱ed╱ ( ╱ // 0x3acc @0x6
0x3ac6…3b04 at0007 = ╱35╱5╱ // 0x3acd @0x7
0x3ac6…3b04 at0008 = ╱32╱2╱ // 0x3ace @0x8
0x3ac6…3b04 at0009 = ╱fe0000d006╱ // 0x3acf @0x9
0x3ac6…3b04 at000e = ╱ee╱ ) ╱ // 0x3ad4 @0xe
0x3ac6…3b04 at000f = ╱eb╱ ; ╱ // 0x3ad5 @0xf
0x3ac6…3b04 at0010 = ╱22╱"╱ // 0x3ad6 @0x10
0x3ac6…3b04 at0011 = ╱44╱D╱ // 0x3ad7 @0x11
0x3ac6…3b04 at0012 = ╱65╱e╱ // 0x3ad8 @0x12
0x3ac6…3b04 at0013 = ╱62╱b╱ // 0x3ad9 @0x13
0x3ac6…3b04 at0014 = ╱65╱e╱ // 0x3ada @0x14
0x3ac6…3b04 at0015 = ╱74╱t╱ // 0x3adb @0x15
0x3ac6…3b04 at0016 = ╱22╱"╱ // 0x3adc @0x16
0x3ac6…3b04 at0017 = ╱eb╱ ; ╱ // 0x3add @0x17
0x3ac6…3b04 at0018 = ╱d2╱ TAB ╱ // 0x3ade @0x18
0x3ac6…3b04 at0019 = ╱ed╱ ( ╱ // 0x3adf @0x19
0x3ac6…3b04 at001a = ╱36╱6╱ // 0x3ae0 @0x1a
0x3ac6…3b04 at001b = ╱37╱7╱ // 0x3ae1 @0x1b
0x3ac6…3b04 at001c = ╱fe00008607╱ // 0x3ae2 @0x1c
0x3ac6…3b04 at0021 = ╱ee╱ ) ╱ // 0x3ae7 @0x21
0x3ac6…3b04 at0022 = ╱eb╱ ; ╱ // 0x3ae8 @0x22
0x3ac6…3b04 at0023 = ╱22╱"╱ // 0x3ae9 @0x23
0x3ac6…3b04 at0024 = ╱4b╱K╱ // 0x3aea @0x24
0x3ac6…3b04 at0025 = ╱72╱r╱ // 0x3aeb @0x25
0x3ac6…3b04 at0026 = ╱65╱e╱ // 0x3aec @0x26
0x3ac6…3b04 at0027 = ╱64╱d╱ // 0x3aed @0x27
0x3ac6…3b04 at0028 = ╱69╱i╱ // 0x3aee @0x28
0x3ac6…3b04 at0029 = ╱74╱t╱ // 0x3aef @0x29
0x3ac6…3b04 at002a = ╱22╱"╱ // 0x3af0 @0x2a
0x3ac6…3b04 at002b = ╱eb╱ ; ╱ // 0x3af1 @0x2b
0x3ac6…3b04 at002c = ╱d2╱ TAB ╱ // 0x3af2 @0x2c
0x3ac6…3b04 at002d = ╱ed╱ ( ╱ // 0x3af3 @0x2d
0x3ac6…3b04 at002e = ╱37╱7╱ // 0x3af4 @0x2e
0x3ac6…3b04 at002f = ╱35╱5╱ // 0x3af5 @0x2f
0x3ac6…3b04 at0030 = ╱fe00009607╱ // 0x3af6 @0x30
0x3ac6…3b04 at0035 = ╱ee╱ ) ╱ // 0x3afb @0x35
0x3ac6…3b04 at0036 = ╱eb╱ ; ╱ // 0x3afc @0x36
0x3ac6…3b04 at0037 = ╱22╱"╱ // 0x3afd @0x37
0x3ac6…3b04 at0038 = ╱4b╱K╱ // 0x3afe @0x38
0x3ac6…3b04 at0039 = ╱6f╱o╱ // 0x3aff @0x39
0x3ac6…3b04 at003a = ╱64╱d╱ // 0x3b00 @0x3a
0x3ac6…3b04 at003b = ╱65╱e╱ // 0x3b01 @0x3b
0x3ac6…3b04 at003c = ╱22╱"╱ // 0x3b02 @0x3c
0x3ac6…3b04 at003d = EOL // 0x3b03 @0x3d
0x3ac6…3b04 }
0x3b04…3b17 c264 7350 PRINT TAB ( 3 ) ; A2 $
0x3b04…3b17 LineComalBcd {
0x3b04…3b17 ptr = 0xc264 // 0x3b04 @0x0
0x3b04…3b17 lno = 0x7350 // 0x3b06 @0x2
0x3b04…3b17 at0004 = ╱92╱ PRINT ╱ // 0x3b08 @0x4
0x3b04…3b17 at0005 = ╱d2╱ TAB ╱ // 0x3b09 @0x5
0x3b04…3b17 at0006 = ╱ed╱ ( ╱ // 0x3b0a @0x6
0x3b04…3b17 at0007 = ╱33╱3╱ // 0x3b0b @0x7
0x3b04…3b17 at0008 = ╱fe0000c002╱ // 0x3b0c @0x8
0x3b04…3b17 at000d = ╱ee╱ ) ╱ // 0x3b11 @0xd
0x3b04…3b17 at000e = ╱eb╱ ; ╱ // 0x3b12 @0xe
0x3b04…3b17 at000f = ╱41╱A╱ // 0x3b13 @0xf
0x3b04…3b17 at0010 = ╱32╱2╱ // 0x3b14 @0x10
0x3b04…3b17 at0011 = ╱ef╱ $ ╱ // 0x3b15 @0x11
0x3b04…3b17 at0012 = EOL // 0x3b16 @0x12
0x3b04…3b17 }
0x3b17…3b1d c26a 7360 ENDPROC
0x3b17…3b1d LineComalBcd {
0x3b17…3b1d ptr = 0xc26a // 0x3b17 @0x0
0x3b17…3b1d lno = 0x7360 // 0x3b19 @0x2
0x3b17…3b1d at0004 = ╱9f╱ ENDPROC ╱ // 0x3b1b @0x4
0x3b17…3b1d at0005 = EOL // 0x3b1c @0x5
0x3b17…3b1d }
0x3b1d…3b3d c28a 7370 PROC LINIEUD ( Q3 , Q4 , Q5 , Q6 , Q7 , Q8 )
0x3b1d…3b3d LineComalBcd {
0x3b1d…3b3d ptr = 0xc28a // 0x3b1d @0x0
0x3b1d…3b3d lno = 0x7370 // 0x3b1f @0x2
0x3b1d…3b3d at0004 = ╱9e╱ PROC ╱ // 0x3b21 @0x4
0x3b1d…3b3d at0005 = ╱4c╱L╱ // 0x3b22 @0x5
0x3b1d…3b3d at0006 = ╱49╱I╱ // 0x3b23 @0x6
0x3b1d…3b3d at0007 = ╱4e╱N╱ // 0x3b24 @0x7
0x3b1d…3b3d at0008 = ╱49╱I╱ // 0x3b25 @0x8
0x3b1d…3b3d at0009 = ╱45╱E╱ // 0x3b26 @0x9
0x3b1d…3b3d at000a = ╱55╱U╱ // 0x3b27 @0xa
0x3b1d…3b3d at000b = ╱44╱D╱ // 0x3b28 @0xb
0x3b1d…3b3d at000c = ╱ed╱ ( ╱ // 0x3b29 @0xc
0x3b1d…3b3d at000d = ╱51╱Q╱ // 0x3b2a @0xd
0x3b1d…3b3d at000e = ╱33╱3╱ // 0x3b2b @0xe
0x3b1d…3b3d at000f = ╱ec╱ , ╱ // 0x3b2c @0xf
0x3b1d…3b3d at0010 = ╱51╱Q╱ // 0x3b2d @0x10
0x3b1d…3b3d at0011 = ╱34╱4╱ // 0x3b2e @0x11
0x3b1d…3b3d at0012 = ╱ec╱ , ╱ // 0x3b2f @0x12
0x3b1d…3b3d at0013 = ╱51╱Q╱ // 0x3b30 @0x13
0x3b1d…3b3d at0014 = ╱35╱5╱ // 0x3b31 @0x14
0x3b1d…3b3d at0015 = ╱ec╱ , ╱ // 0x3b32 @0x15
0x3b1d…3b3d at0016 = ╱51╱Q╱ // 0x3b33 @0x16
0x3b1d…3b3d at0017 = ╱36╱6╱ // 0x3b34 @0x17
0x3b1d…3b3d at0018 = ╱ec╱ , ╱ // 0x3b35 @0x18
0x3b1d…3b3d at0019 = ╱51╱Q╱ // 0x3b36 @0x19
0x3b1d…3b3d at001a = ╱37╱7╱ // 0x3b37 @0x1a
0x3b1d…3b3d at001b = ╱ec╱ , ╱ // 0x3b38 @0x1b
0x3b1d…3b3d at001c = ╱51╱Q╱ // 0x3b39 @0x1c
0x3b1d…3b3d at001d = ╱38╱8╱ // 0x3b3a @0x1d
0x3b1d…3b3d at001e = ╱ee╱ ) ╱ // 0x3b3b @0x1e
0x3b1d…3b3d at001f = EOL // 0x3b3c @0x1f
0x3b1d…3b3d }
0x3b3d…3b4e c29b 7380 IF Q3 >< - 1 THEN
0x3b3d…3b4e LineComalBcd {
0x3b3d…3b4e ptr = 0xc29b // 0x3b3d @0x0
0x3b3d…3b4e lno = 0x7380 // 0x3b3f @0x2
0x3b3d…3b4e at0004 = ╱9c╱ IF ╱ // 0x3b41 @0x4
0x3b3d…3b4e at0005 = ╱51╱Q╱ // 0x3b42 @0x5
0x3b3d…3b4e at0006 = ╱33╱3╱ // 0x3b43 @0x6
0x3b3d…3b4e at0007 = ╱e1╱ >< ╱ // 0x3b44 @0x7
0x3b3d…3b4e at0008 = ╱e9╱ - ╱ // 0x3b45 @0x8
0x3b3d…3b4e at0009 = ╱31╱1╱ // 0x3b46 @0x9
0x3b3d…3b4e at000a = ╱fe00008001╱ // 0x3b47 @0xa
0x3b3d…3b4e at000f = ╱b6╱ THEN ╱ // 0x3b4c @0xf
0x3b3d…3b4e at0010 = EOL // 0x3b4d @0x10
0x3b3d…3b4e }
0x3b4e…3b62 c2af 7390 PRINT USING "#######" : Q3 ;
0x3b4e…3b62 LineComalBcd {
0x3b4e…3b62 ptr = 0xc2af // 0x3b4e @0x0
0x3b4e…3b62 lno = 0x7390 // 0x3b50 @0x2
0x3b4e…3b62 at0004 = ╱92╱ PRINT ╱ // 0x3b52 @0x4
0x3b4e…3b62 at0005 = ╱b9╱ USING ╱ // 0x3b53 @0x5
0x3b4e…3b62 at0006 = ╱22╱"╱ // 0x3b54 @0x6
0x3b4e…3b62 at0007 = ╱23╱#╱ // 0x3b55 @0x7
0x3b4e…3b62 at0008 = ╱23╱#╱ // 0x3b56 @0x8
0x3b4e…3b62 at0009 = ╱23╱#╱ // 0x3b57 @0x9
0x3b4e…3b62 at000a = ╱23╱#╱ // 0x3b58 @0xa
0x3b4e…3b62 at000b = ╱23╱#╱ // 0x3b59 @0xb
0x3b4e…3b62 at000c = ╱23╱#╱ // 0x3b5a @0xc
0x3b4e…3b62 at000d = ╱23╱#╱ // 0x3b5b @0xd
0x3b4e…3b62 at000e = ╱22╱"╱ // 0x3b5c @0xe
0x3b4e…3b62 at000f = ╱f0╱ : ╱ // 0x3b5d @0xf
0x3b4e…3b62 at0010 = ╱51╱Q╱ // 0x3b5e @0x10
0x3b4e…3b62 at0011 = ╱33╱3╱ // 0x3b5f @0x11
0x3b4e…3b62 at0012 = ╱eb╱ ; ╱ // 0x3b60 @0x12
0x3b4e…3b62 at0013 = EOL // 0x3b61 @0x13
0x3b4e…3b62 }
0x3b62…3b68 c2b5 7400 ENDIF
0x3b62…3b68 LineComalBcd {
0x3b62…3b68 ptr = 0xc2b5 // 0x3b62 @0x0
0x3b62…3b68 lno = 0x7400 // 0x3b64 @0x2
0x3b62…3b68 at0004 = ╱9b╱ ENDIF ╱ // 0x3b66 @0x4
0x3b62…3b68 at0005 = EOL // 0x3b67 @0x5
0x3b62…3b68 }
0x3b68…3b83 c2d0 7410 IF Q4 < 10 AND Q4 > 0 THEN
0x3b68…3b83 LineComalBcd {
0x3b68…3b83 ptr = 0xc2d0 // 0x3b68 @0x0
0x3b68…3b83 lno = 0x7410 // 0x3b6a @0x2
0x3b68…3b83 at0004 = ╱9c╱ IF ╱ // 0x3b6c @0x4
0x3b68…3b83 at0005 = ╱51╱Q╱ // 0x3b6d @0x5
0x3b68…3b83 at0006 = ╱34╱4╱ // 0x3b6e @0x6
0x3b68…3b83 at0007 = ╱dd╱ < ╱ // 0x3b6f @0x7
0x3b68…3b83 at0008 = ╱31╱1╱ // 0x3b70 @0x8
0x3b68…3b83 at0009 = ╱30╱0╱ // 0x3b71 @0x9
0x3b68…3b83 at000a = ╱fe0000a004╱ // 0x3b72 @0xa
0x3b68…3b83 at000f = ╱da╱ AND ╱ // 0x3b77 @0xf
0x3b68…3b83 at0010 = ╱51╱Q╱ // 0x3b78 @0x10
0x3b68…3b83 at0011 = ╱34╱4╱ // 0x3b79 @0x11
0x3b68…3b83 at0012 = ╱de╱ > ╱ // 0x3b7a @0x12
0x3b68…3b83 at0013 = ╱30╱0╱ // 0x3b7b @0x13
0x3b68…3b83 at0014 = ╱fe00000000╱ // 0x3b7c @0x14
0x3b68…3b83 at0019 = ╱b6╱ THEN ╱ // 0x3b81 @0x19
0x3b68…3b83 at001a = EOL // 0x3b82 @0x1a
0x3b68…3b83 }
0x3b83…3ba7 c2f4 7420 E3 $ = E5 $ ( Q4 ) + B7 $ ( 1 : 15 )
0x3b83…3ba7 LineComalBcd {
0x3b83…3ba7 ptr = 0xc2f4 // 0x3b83 @0x0
0x3b83…3ba7 lno = 0x7420 // 0x3b85 @0x2
0x3b83…3ba7 at0004 = ╱45╱E╱ // 0x3b87 @0x4
0x3b83…3ba7 at0005 = ╱33╱3╱ // 0x3b88 @0x5
0x3b83…3ba7 at0006 = ╱ef╱ $ ╱ // 0x3b89 @0x6
0x3b83…3ba7 at0007 = ╱dc╱ = ╱ // 0x3b8a @0x7
0x3b83…3ba7 at0008 = ╱45╱E╱ // 0x3b8b @0x8
0x3b83…3ba7 at0009 = ╱35╱5╱ // 0x3b8c @0x9
0x3b83…3ba7 at000a = ╱ef╱ $ ╱ // 0x3b8d @0xa
0x3b83…3ba7 at000b = ╱ed╱ ( ╱ // 0x3b8e @0xb
0x3b83…3ba7 at000c = ╱51╱Q╱ // 0x3b8f @0xc
0x3b83…3ba7 at000d = ╱34╱4╱ // 0x3b90 @0xd
0x3b83…3ba7 at000e = ╱ee╱ ) ╱ // 0x3b91 @0xe
0x3b83…3ba7 at000f = ╱f1╱ + ╱ // 0x3b92 @0xf
0x3b83…3ba7 at0010 = ╱42╱B╱ // 0x3b93 @0x10
0x3b83…3ba7 at0011 = ╱37╱7╱ // 0x3b94 @0x11
0x3b83…3ba7 at0012 = ╱ef╱ $ ╱ // 0x3b95 @0x12
0x3b83…3ba7 at0013 = ╱ed╱ ( ╱ // 0x3b96 @0x13
0x3b83…3ba7 at0014 = ╱31╱1╱ // 0x3b97 @0x14
0x3b83…3ba7 at0015 = ╱fe00008001╱ // 0x3b98 @0x15
0x3b83…3ba7 at001a = ╱f0╱ : ╱ // 0x3b9d @0x1a
0x3b83…3ba7 at001b = ╱31╱1╱ // 0x3b9e @0x1b
0x3b83…3ba7 at001c = ╱35╱5╱ // 0x3b9f @0x1c
0x3b83…3ba7 at001d = ╱fe0000f004╱ // 0x3ba0 @0x1d
0x3b83…3ba7 at0022 = ╱ee╱ ) ╱ // 0x3ba5 @0x22
0x3b83…3ba7 at0023 = EOL // 0x3ba6 @0x23
0x3b83…3ba7 }
0x3ba7…3bad c2fa 7430 ENDIF
0x3ba7…3bad LineComalBcd {
0x3ba7…3bad ptr = 0xc2fa // 0x3ba7 @0x0
0x3ba7…3bad lno = 0x7430 // 0x3ba9 @0x2
0x3ba7…3bad at0004 = ╱9b╱ ENDIF ╱ // 0x3bab @0x4
0x3ba7…3bad at0005 = EOL // 0x3bac @0x5
0x3ba7…3bad }
0x3bad…3bbd c30a 7440 IF Q4 >< 0 THEN
0x3bad…3bbd LineComalBcd {
0x3bad…3bbd ptr = 0xc30a // 0x3bad @0x0
0x3bad…3bbd lno = 0x7440 // 0x3baf @0x2
0x3bad…3bbd at0004 = ╱9c╱ IF ╱ // 0x3bb1 @0x4
0x3bad…3bbd at0005 = ╱51╱Q╱ // 0x3bb2 @0x5
0x3bad…3bbd at0006 = ╱34╱4╱ // 0x3bb3 @0x6
0x3bad…3bbd at0007 = ╱e1╱ >< ╱ // 0x3bb4 @0x7
0x3bad…3bbd at0008 = ╱30╱0╱ // 0x3bb5 @0x8
0x3bad…3bbd at0009 = ╱fe00000000╱ // 0x3bb6 @0x9
0x3bad…3bbd at000e = ╱b6╱ THEN ╱ // 0x3bbb @0xe
0x3bad…3bbd at000f = EOL // 0x3bbc @0xf
0x3bad…3bbd }
0x3bbd…3bd2 c31f 7450 PRINT TAB ( 10 ) ; E3 $ ;
0x3bbd…3bd2 LineComalBcd {
0x3bbd…3bd2 ptr = 0xc31f // 0x3bbd @0x0
0x3bbd…3bd2 lno = 0x7450 // 0x3bbf @0x2
0x3bbd…3bd2 at0004 = ╱92╱ PRINT ╱ // 0x3bc1 @0x4
0x3bbd…3bd2 at0005 = ╱d2╱ TAB ╱ // 0x3bc2 @0x5
0x3bbd…3bd2 at0006 = ╱ed╱ ( ╱ // 0x3bc3 @0x6
0x3bbd…3bd2 at0007 = ╱31╱1╱ // 0x3bc4 @0x7
0x3bbd…3bd2 at0008 = ╱30╱0╱ // 0x3bc5 @0x8
0x3bbd…3bd2 at0009 = ╱fe0000a004╱ // 0x3bc6 @0x9
0x3bbd…3bd2 at000e = ╱ee╱ ) ╱ // 0x3bcb @0xe
0x3bbd…3bd2 at000f = ╱eb╱ ; ╱ // 0x3bcc @0xf
0x3bbd…3bd2 at0010 = ╱45╱E╱ // 0x3bcd @0x10
0x3bbd…3bd2 at0011 = ╱33╱3╱ // 0x3bce @0x11
0x3bbd…3bd2 at0012 = ╱ef╱ $ ╱ // 0x3bcf @0x12
0x3bbd…3bd2 at0013 = ╱eb╱ ; ╱ // 0x3bd0 @0x13
0x3bbd…3bd2 at0014 = EOL // 0x3bd1 @0x14
0x3bbd…3bd2 }
0x3bd2…3bd8 c325 7460 ENDIF
0x3bd2…3bd8 LineComalBcd {
0x3bd2…3bd8 ptr = 0xc325 // 0x3bd2 @0x0
0x3bd2…3bd8 lno = 0x7460 // 0x3bd4 @0x2
0x3bd2…3bd8 at0004 = ╱9b╱ ENDIF ╱ // 0x3bd6 @0x4
0x3bd2…3bd8 at0005 = EOL // 0x3bd7 @0x5
0x3bd2…3bd8 }
0x3bd8…3be9 c336 7470 PRINT TAB ( 38 ) ;
0x3bd8…3be9 LineComalBcd {
0x3bd8…3be9 ptr = 0xc336 // 0x3bd8 @0x0
0x3bd8…3be9 lno = 0x7470 // 0x3bda @0x2
0x3bd8…3be9 at0004 = ╱92╱ PRINT ╱ // 0x3bdc @0x4
0x3bd8…3be9 at0005 = ╱d2╱ TAB ╱ // 0x3bdd @0x5
0x3bd8…3be9 at0006 = ╱ed╱ ( ╱ // 0x3bde @0x6
0x3bd8…3be9 at0007 = ╱33╱3╱ // 0x3bdf @0x7
0x3bd8…3be9 at0008 = ╱38╱8╱ // 0x3be0 @0x8
0x3bd8…3be9 at0009 = ╱fe00009806╱ // 0x3be1 @0x9
0x3bd8…3be9 at000e = ╱ee╱ ) ╱ // 0x3be6 @0xe
0x3bd8…3be9 at000f = ╱eb╱ ; ╱ // 0x3be7 @0xf
0x3bd8…3be9 at0010 = EOL // 0x3be8 @0x10
0x3bd8…3be9 }
0x3be9…3bfc c349 7480 PRINT USING "######" : Q5 ;
0x3be9…3bfc LineComalBcd {
0x3be9…3bfc ptr = 0xc349 // 0x3be9 @0x0
0x3be9…3bfc lno = 0x7480 // 0x3beb @0x2
0x3be9…3bfc at0004 = ╱92╱ PRINT ╱ // 0x3bed @0x4
0x3be9…3bfc at0005 = ╱b9╱ USING ╱ // 0x3bee @0x5
0x3be9…3bfc at0006 = ╱22╱"╱ // 0x3bef @0x6
0x3be9…3bfc at0007 = ╱23╱#╱ // 0x3bf0 @0x7
0x3be9…3bfc at0008 = ╱23╱#╱ // 0x3bf1 @0x8
0x3be9…3bfc at0009 = ╱23╱#╱ // 0x3bf2 @0x9
0x3be9…3bfc at000a = ╱23╱#╱ // 0x3bf3 @0xa
0x3be9…3bfc at000b = ╱23╱#╱ // 0x3bf4 @0xb
0x3be9…3bfc at000c = ╱23╱#╱ // 0x3bf5 @0xc
0x3be9…3bfc at000d = ╱22╱"╱ // 0x3bf6 @0xd
0x3be9…3bfc at000e = ╱f0╱ : ╱ // 0x3bf7 @0xe
0x3be9…3bfc at000f = ╱51╱Q╱ // 0x3bf8 @0xf
0x3be9…3bfc at0010 = ╱35╱5╱ // 0x3bf9 @0x10
0x3be9…3bfc at0011 = ╱eb╱ ; ╱ // 0x3bfa @0x11
0x3be9…3bfc at0012 = EOL // 0x3bfb @0x12
0x3be9…3bfc }
0x3bfc…3c21 c36e 7490 PRINT TAB ( 47 + 14 * ( Q6 = 0 ) ) ;
0x3bfc…3c21 LineComalBcd {
0x3bfc…3c21 ptr = 0xc36e // 0x3bfc @0x0
0x3bfc…3c21 lno = 0x7490 // 0x3bfe @0x2
0x3bfc…3c21 at0004 = ╱92╱ PRINT ╱ // 0x3c00 @0x4
0x3bfc…3c21 at0005 = ╱d2╱ TAB ╱ // 0x3c01 @0x5
0x3bfc…3c21 at0006 = ╱ed╱ ( ╱ // 0x3c02 @0x6
0x3bfc…3c21 at0007 = ╱34╱4╱ // 0x3c03 @0x7
0x3bfc…3c21 at0008 = ╱37╱7╱ // 0x3c04 @0x8
0x3bfc…3c21 at0009 = ╱fe0000bc06╱ // 0x3c05 @0x9
0x3bfc…3c21 at000e = ╱e2╱ + ╱ // 0x3c0a @0xe
0x3bfc…3c21 at000f = ╱31╱1╱ // 0x3c0b @0xf
0x3bfc…3c21 at0010 = ╱34╱4╱ // 0x3c0c @0x10
0x3bfc…3c21 at0011 = ╱fe0000e004╱ // 0x3c0d @0x11
0x3bfc…3c21 at0016 = ╱e4╱ * ╱ // 0x3c12 @0x16
0x3bfc…3c21 at0017 = ╱ed╱ ( ╱ // 0x3c13 @0x17
0x3bfc…3c21 at0018 = ╱51╱Q╱ // 0x3c14 @0x18
0x3bfc…3c21 at0019 = ╱36╱6╱ // 0x3c15 @0x19
0x3bfc…3c21 at001a = ╱dc╱ = ╱ // 0x3c16 @0x1a
0x3bfc…3c21 at001b = ╱30╱0╱ // 0x3c17 @0x1b
0x3bfc…3c21 at001c = ╱fe00000000╱ // 0x3c18 @0x1c
0x3bfc…3c21 at0021 = ╱ee╱ ) ╱ // 0x3c1d @0x21
0x3bfc…3c21 at0022 = ╱ee╱ ) ╱ // 0x3c1e @0x22
0x3bfc…3c21 at0023 = ╱eb╱ ; ╱ // 0x3c1f @0x23
0x3bfc…3c21 at0024 = EOL // 0x3c20 @0x24
0x3bfc…3c21 }
0x3c21…3c41 c38e 7500 EXEC TUD ( Q7 $ , B8 $ , 0 , 0 )
0x3c21…3c41 LineComalBcd {
0x3c21…3c41 ptr = 0xc38e // 0x3c21 @0x0
0x3c21…3c41 lno = 0x7500 // 0x3c23 @0x2
0x3c21…3c41 at0004 = ╱9d╱ EXEC ╱ // 0x3c25 @0x4
0x3c21…3c41 at0005 = ╱54╱T╱ // 0x3c26 @0x5
0x3c21…3c41 at0006 = ╱55╱U╱ // 0x3c27 @0x6
0x3c21…3c41 at0007 = ╱44╱D╱ // 0x3c28 @0x7
0x3c21…3c41 at0008 = ╱ed╱ ( ╱ // 0x3c29 @0x8
0x3c21…3c41 at0009 = ╱51╱Q╱ // 0x3c2a @0x9
0x3c21…3c41 at000a = ╱37╱7╱ // 0x3c2b @0xa
0x3c21…3c41 at000b = ╱ef╱ $ ╱ // 0x3c2c @0xb
0x3c21…3c41 at000c = ╱ec╱ , ╱ // 0x3c2d @0xc
0x3c21…3c41 at000d = ╱42╱B╱ // 0x3c2e @0xd
0x3c21…3c41 at000e = ╱38╱8╱ // 0x3c2f @0xe
0x3c21…3c41 at000f = ╱ef╱ $ ╱ // 0x3c30 @0xf
0x3c21…3c41 at0010 = ╱ec╱ , ╱ // 0x3c31 @0x10
0x3c21…3c41 at0011 = ╱30╱0╱ // 0x3c32 @0x11
0x3c21…3c41 at0012 = ╱fe00000000╱ // 0x3c33 @0x12
0x3c21…3c41 at0017 = ╱ec╱ , ╱ // 0x3c38 @0x17
0x3c21…3c41 at0018 = ╱30╱0╱ // 0x3c39 @0x18
0x3c21…3c41 at0019 = ╱fe00000000╱ // 0x3c3a @0x19
0x3c21…3c41 at001e = ╱ee╱ ) ╱ // 0x3c3f @0x1e
0x3c21…3c41 at001f = EOL // 0x3c40 @0x1f
0x3c21…3c41 }
0x3c41…3c56 c3a3 7510 PRINT B8 $ ; TAB ( 76 ) ;
0x3c41…3c56 LineComalBcd {
0x3c41…3c56 ptr = 0xc3a3 // 0x3c41 @0x0
0x3c41…3c56 lno = 0x7510 // 0x3c43 @0x2
0x3c41…3c56 at0004 = ╱92╱ PRINT ╱ // 0x3c45 @0x4
0x3c41…3c56 at0005 = ╱42╱B╱ // 0x3c46 @0x5
0x3c41…3c56 at0006 = ╱38╱8╱ // 0x3c47 @0x6
0x3c41…3c56 at0007 = ╱ef╱ $ ╱ // 0x3c48 @0x7
0x3c41…3c56 at0008 = ╱eb╱ ; ╱ // 0x3c49 @0x8
0x3c41…3c56 at0009 = ╱d2╱ TAB ╱ // 0x3c4a @0x9
0x3c41…3c56 at000a = ╱ed╱ ( ╱ // 0x3c4b @0xa
0x3c41…3c56 at000b = ╱37╱7╱ // 0x3c4c @0xb
0x3c41…3c56 at000c = ╱36╱6╱ // 0x3c4d @0xc
0x3c41…3c56 at000d = ╱fe00009807╱ // 0x3c4e @0xd
0x3c41…3c56 at0012 = ╱ee╱ ) ╱ // 0x3c53 @0x12
0x3c41…3c56 at0013 = ╱eb╱ ; ╱ // 0x3c54 @0x13
0x3c41…3c56 at0014 = EOL // 0x3c55 @0x14
0x3c41…3c56 }
0x3c56…3c64 c3b1 7520 PRINT USING "##" : Q8
0x3c56…3c64 LineComalBcd {
0x3c56…3c64 ptr = 0xc3b1 // 0x3c56 @0x0
0x3c56…3c64 lno = 0x7520 // 0x3c58 @0x2
0x3c56…3c64 at0004 = ╱92╱ PRINT ╱ // 0x3c5a @0x4
0x3c56…3c64 at0005 = ╱b9╱ USING ╱ // 0x3c5b @0x5
0x3c56…3c64 at0006 = ╱22╱"╱ // 0x3c5c @0x6
0x3c56…3c64 at0007 = ╱23╱#╱ // 0x3c5d @0x7
0x3c56…3c64 at0008 = ╱23╱#╱ // 0x3c5e @0x8
0x3c56…3c64 at0009 = ╱22╱"╱ // 0x3c5f @0x9
0x3c56…3c64 at000a = ╱f0╱ : ╱ // 0x3c60 @0xa
0x3c56…3c64 at000b = ╱51╱Q╱ // 0x3c61 @0xb
0x3c56…3c64 at000c = ╱38╱8╱ // 0x3c62 @0xc
0x3c56…3c64 at000d = EOL // 0x3c63 @0xd
0x3c56…3c64 }
0x3c64…3c6a c3b7 7530 ENDPROC
0x3c64…3c6a LineComalBcd {
0x3c64…3c6a ptr = 0xc3b7 // 0x3c64 @0x0
0x3c64…3c6a lno = 0x7530 // 0x3c66 @0x2
0x3c64…3c6a at0004 = ╱9f╱ ENDPROC ╱ // 0x3c68 @0x4
0x3c64…3c6a at0005 = EOL // 0x3c69 @0x5
0x3c64…3c6a }
0x3c6a…3c7d c3ca 7540 PROC DATOUD ( Q9 , R0 )
0x3c6a…3c7d LineComalBcd {
0x3c6a…3c7d ptr = 0xc3ca // 0x3c6a @0x0
0x3c6a…3c7d lno = 0x7540 // 0x3c6c @0x2
0x3c6a…3c7d at0004 = ╱9e╱ PROC ╱ // 0x3c6e @0x4
0x3c6a…3c7d at0005 = ╱44╱D╱ // 0x3c6f @0x5
0x3c6a…3c7d at0006 = ╱41╱A╱ // 0x3c70 @0x6
0x3c6a…3c7d at0007 = ╱54╱T╱ // 0x3c71 @0x7
0x3c6a…3c7d at0008 = ╱4f╱O╱ // 0x3c72 @0x8
0x3c6a…3c7d at0009 = ╱55╱U╱ // 0x3c73 @0x9
0x3c6a…3c7d at000a = ╱44╱D╱ // 0x3c74 @0xa
0x3c6a…3c7d at000b = ╱ed╱ ( ╱ // 0x3c75 @0xb
0x3c6a…3c7d at000c = ╱51╱Q╱ // 0x3c76 @0xc
0x3c6a…3c7d at000d = ╱39╱9╱ // 0x3c77 @0xd
0x3c6a…3c7d at000e = ╱ec╱ , ╱ // 0x3c78 @0xe
0x3c6a…3c7d at000f = ╱52╱R╱ // 0x3c79 @0xf
0x3c6a…3c7d at0010 = ╱30╱0╱ // 0x3c7a @0x10
0x3c6a…3c7d at0011 = ╱ee╱ ) ╱ // 0x3c7b @0x11
0x3c6a…3c7d at0012 = EOL // 0x3c7c @0x12
0x3c6a…3c7d }
0x3c7d…3c87 c3d4 7550 R1 = Q9
0x3c7d…3c87 LineComalBcd {
0x3c7d…3c87 ptr = 0xc3d4 // 0x3c7d @0x0
0x3c7d…3c87 lno = 0x7550 // 0x3c7f @0x2
0x3c7d…3c87 at0004 = ╱52╱R╱ // 0x3c81 @0x4
0x3c7d…3c87 at0005 = ╱31╱1╱ // 0x3c82 @0x5
0x3c7d…3c87 at0006 = ╱dc╱ = ╱ // 0x3c83 @0x6
0x3c7d…3c87 at0007 = ╱51╱Q╱ // 0x3c84 @0x7
0x3c7d…3c87 at0008 = ╱39╱9╱ // 0x3c85 @0x8
0x3c7d…3c87 at0009 = EOL // 0x3c86 @0x9
0x3c7d…3c87 }
0x3c87…3c9a c3e7 7560 R0 $ = "……………………"
0x3c87…3c9a LineComalBcd {
0x3c87…3c9a ptr = 0xc3e7 // 0x3c87 @0x0
0x3c87…3c9a lno = 0x7560 // 0x3c89 @0x2
0x3c87…3c9a at0004 = ╱52╱R╱ // 0x3c8b @0x4
0x3c87…3c9a at0005 = ╱30╱0╱ // 0x3c8c @0x5
0x3c87…3c9a at0006 = ╱ef╱ $ ╱ // 0x3c8d @0x6
0x3c87…3c9a at0007 = ╱dc╱ = ╱ // 0x3c8e @0x7
0x3c87…3c9a at0008 = ╱22╱"╱ // 0x3c8f @0x8
0x3c87…3c9a at0009 = ╱20╱…╱ // 0x3c90 @0x9
0x3c87…3c9a at000a = ╱20╱…╱ // 0x3c91 @0xa
0x3c87…3c9a at000b = ╱20╱…╱ // 0x3c92 @0xb
0x3c87…3c9a at000c = ╱20╱…╱ // 0x3c93 @0xc
0x3c87…3c9a at000d = ╱20╱…╱ // 0x3c94 @0xd
0x3c87…3c9a at000e = ╱20╱…╱ // 0x3c95 @0xe
0x3c87…3c9a at000f = ╱20╱…╱ // 0x3c96 @0xf
0x3c87…3c9a at0010 = ╱20╱…╱ // 0x3c97 @0x10
0x3c87…3c9a at0011 = ╱22╱"╱ // 0x3c98 @0x11
0x3c87…3c9a at0012 = EOL // 0x3c99 @0x12
0x3c87…3c9a }
0x3c9a…3cb7 c404 7570 FOR J = 8 TO 1 STEP - 1
0x3c9a…3cb7 LineComalBcd {
0x3c9a…3cb7 ptr = 0xc404 // 0x3c9a @0x0
0x3c9a…3cb7 lno = 0x7570 // 0x3c9c @0x2
0x3c9a…3cb7 at0004 = ╱83╱ FOR ╱ // 0x3c9e @0x4
0x3c9a…3cb7 at0005 = ╱4a╱J╱ // 0x3c9f @0x5
0x3c9a…3cb7 at0006 = ╱dc╱ = ╱ // 0x3ca0 @0x6
0x3c9a…3cb7 at0007 = ╱38╱8╱ // 0x3ca1 @0x7
0x3c9a…3cb7 at0008 = ╱fe00008004╱ // 0x3ca2 @0x8
0x3c9a…3cb7 at000d = ╱b7╱ TO ╱ // 0x3ca7 @0xd
0x3c9a…3cb7 at000e = ╱31╱1╱ // 0x3ca8 @0xe
0x3c9a…3cb7 at000f = ╱fe00008001╱ // 0x3ca9 @0xf
0x3c9a…3cb7 at0014 = ╱b8╱ STEP ╱ // 0x3cae @0x14
0x3c9a…3cb7 at0015 = ╱e9╱ - ╱ // 0x3caf @0x15
0x3c9a…3cb7 at0016 = ╱31╱1╱ // 0x3cb0 @0x16
0x3c9a…3cb7 at0017 = ╱fe00008001╱ // 0x3cb1 @0x17
0x3c9a…3cb7 at001c = EOL // 0x3cb6 @0x1c
0x3c9a…3cb7 }
0x3cb7…3ccd c41a 7580 IF J MOD 3 = 0 THEN
0x3cb7…3ccd LineComalBcd {
0x3cb7…3ccd ptr = 0xc41a // 0x3cb7 @0x0
0x3cb7…3ccd lno = 0x7580 // 0x3cb9 @0x2
0x3cb7…3ccd at0004 = ╱9c╱ IF ╱ // 0x3cbb @0x4
0x3cb7…3ccd at0005 = ╱4a╱J╱ // 0x3cbc @0x5
0x3cb7…3ccd at0006 = ╱e8╱ MOD ╱ // 0x3cbd @0x6
0x3cb7…3ccd at0007 = ╱33╱3╱ // 0x3cbe @0x7
0x3cb7…3ccd at0008 = ╱fe0000c002╱ // 0x3cbf @0x8
0x3cb7…3ccd at000d = ╱dc╱ = ╱ // 0x3cc4 @0xd
0x3cb7…3ccd at000e = ╱30╱0╱ // 0x3cc5 @0xe
0x3cb7…3ccd at000f = ╱fe00000000╱ // 0x3cc6 @0xf
0x3cb7…3ccd at0014 = ╱b6╱ THEN ╱ // 0x3ccb @0x14
0x3cb7…3ccd at0015 = EOL // 0x3ccc @0x15
0x3cb7…3ccd }
0x3ccd…3cdc c429 7590 R0 $ ( J ) = "."
0x3ccd…3cdc LineComalBcd {
0x3ccd…3cdc ptr = 0xc429 // 0x3ccd @0x0
0x3ccd…3cdc lno = 0x7590 // 0x3ccf @0x2
0x3ccd…3cdc at0004 = ╱52╱R╱ // 0x3cd1 @0x4
0x3ccd…3cdc at0005 = ╱30╱0╱ // 0x3cd2 @0x5
0x3ccd…3cdc at0006 = ╱ef╱ $ ╱ // 0x3cd3 @0x6
0x3ccd…3cdc at0007 = ╱ed╱ ( ╱ // 0x3cd4 @0x7
0x3ccd…3cdc at0008 = ╱4a╱J╱ // 0x3cd5 @0x8
0x3ccd…3cdc at0009 = ╱ee╱ ) ╱ // 0x3cd6 @0x9
0x3ccd…3cdc at000a = ╱dc╱ = ╱ // 0x3cd7 @0xa
0x3ccd…3cdc at000b = ╱22╱"╱ // 0x3cd8 @0xb
0x3ccd…3cdc at000c = ╱2e╱.╱ // 0x3cd9 @0xc
0x3ccd…3cdc at000d = ╱22╱"╱ // 0x3cda @0xd
0x3ccd…3cdc at000e = EOL // 0x3cdb @0xe
0x3ccd…3cdc }
0x3cdc…3ce2 c42f 7600 ELSE
0x3cdc…3ce2 LineComalBcd {
0x3cdc…3ce2 ptr = 0xc42f // 0x3cdc @0x0
0x3cdc…3ce2 lno = 0x7600 // 0x3cde @0x2
0x3cdc…3ce2 at0004 = ╱9a╱ ELSE ╱ // 0x3ce0 @0x4
0x3cdc…3ce2 at0005 = EOL // 0x3ce1 @0x5
0x3cdc…3ce2 }
0x3ce2…3d03 c450 7610 R0 $ ( J ) = CHR ( R1 MOD 10 + 48 )
0x3ce2…3d03 LineComalBcd {
0x3ce2…3d03 ptr = 0xc450 // 0x3ce2 @0x0
0x3ce2…3d03 lno = 0x7610 // 0x3ce4 @0x2
0x3ce2…3d03 at0004 = ╱52╱R╱ // 0x3ce6 @0x4
0x3ce2…3d03 at0005 = ╱30╱0╱ // 0x3ce7 @0x5
0x3ce2…3d03 at0006 = ╱ef╱ $ ╱ // 0x3ce8 @0x6
0x3ce2…3d03 at0007 = ╱ed╱ ( ╱ // 0x3ce9 @0x7
0x3ce2…3d03 at0008 = ╱4a╱J╱ // 0x3cea @0x8
0x3ce2…3d03 at0009 = ╱ee╱ ) ╱ // 0x3ceb @0x9
0x3ce2…3d03 at000a = ╱dc╱ = ╱ // 0x3cec @0xa
0x3ce2…3d03 at000b = ╱cf╱ CHR ╱ // 0x3ced @0xb
0x3ce2…3d03 at000c = ╱ed╱ ( ╱ // 0x3cee @0xc
0x3ce2…3d03 at000d = ╱52╱R╱ // 0x3cef @0xd
0x3ce2…3d03 at000e = ╱31╱1╱ // 0x3cf0 @0xe
0x3ce2…3d03 at000f = ╱e8╱ MOD ╱ // 0x3cf1 @0xf
0x3ce2…3d03 at0010 = ╱31╱1╱ // 0x3cf2 @0x10
0x3ce2…3d03 at0011 = ╱30╱0╱ // 0x3cf3 @0x11
0x3ce2…3d03 at0012 = ╱fe0000a004╱ // 0x3cf4 @0x12
0x3ce2…3d03 at0017 = ╱e2╱ + ╱ // 0x3cf9 @0x17
0x3ce2…3d03 at0018 = ╱34╱4╱ // 0x3cfa @0x18
0x3ce2…3d03 at0019 = ╱38╱8╱ // 0x3cfb @0x19
0x3ce2…3d03 at001a = ╱fe0000c006╱ // 0x3cfc @0x1a
0x3ce2…3d03 at001f = ╱ee╱ ) ╱ // 0x3d01 @0x1f
0x3ce2…3d03 at0020 = EOL // 0x3d02 @0x20
0x3ce2…3d03 }
0x3d03…3d15 c462 7620 R1 = R1 DIV 10
0x3d03…3d15 LineComalBcd {
0x3d03…3d15 ptr = 0xc462 // 0x3d03 @0x0
0x3d03…3d15 lno = 0x7620 // 0x3d05 @0x2
0x3d03…3d15 at0004 = ╱52╱R╱ // 0x3d07 @0x4
0x3d03…3d15 at0005 = ╱31╱1╱ // 0x3d08 @0x5
0x3d03…3d15 at0006 = ╱dc╱ = ╱ // 0x3d09 @0x6
0x3d03…3d15 at0007 = ╱52╱R╱ // 0x3d0a @0x7
0x3d03…3d15 at0008 = ╱31╱1╱ // 0x3d0b @0x8
0x3d03…3d15 at0009 = ╱e7╱ DIV ╱ // 0x3d0c @0x9
0x3d03…3d15 at000a = ╱31╱1╱ // 0x3d0d @0xa
0x3d03…3d15 at000b = ╱30╱0╱ // 0x3d0e @0xb
0x3d03…3d15 at000c = ╱fe0000a004╱ // 0x3d0f @0xc
0x3d03…3d15 at0011 = EOL // 0x3d14 @0x11
0x3d03…3d15 }
0x3d15…3d1b c468 7630 ENDIF
0x3d15…3d1b LineComalBcd {
0x3d15…3d1b ptr = 0xc468 // 0x3d15 @0x0
0x3d15…3d1b lno = 0x7630 // 0x3d17 @0x2
0x3d15…3d1b at0004 = ╱9b╱ ENDIF ╱ // 0x3d19 @0x4
0x3d15…3d1b at0005 = EOL // 0x3d1a @0x5
0x3d15…3d1b }
0x3d1b…3d22 c46f 7640 NEXT J
0x3d1b…3d22 LineComalBcd {
0x3d1b…3d22 ptr = 0xc46f // 0x3d1b @0x0
0x3d1b…3d22 lno = 0x7640 // 0x3d1d @0x2
0x3d1b…3d22 at0004 = ╱84╱ NEXT ╱ // 0x3d1f @0x4
0x3d1b…3d22 at0005 = ╱4a╱J╱ // 0x3d20 @0x5
0x3d1b…3d22 at0006 = EOL // 0x3d21 @0x6
0x3d1b…3d22 }
0x3d22…3d28 c475 7650 ENDPROC
0x3d22…3d28 LineComalBcd {
0x3d22…3d28 ptr = 0xc475 // 0x3d22 @0x0
0x3d22…3d28 lno = 0x7650 // 0x3d24 @0x2
0x3d22…3d28 at0004 = ╱9f╱ ENDPROC ╱ // 0x3d26 @0x4
0x3d22…3d28 at0005 = EOL // 0x3d27 @0x5
0x3d22…3d28 }
0x3d28…3d3c c489 7660 PROC UDSKRIV ( R2 , R3 )
0x3d28…3d3c LineComalBcd {
0x3d28…3d3c ptr = 0xc489 // 0x3d28 @0x0
0x3d28…3d3c lno = 0x7660 // 0x3d2a @0x2
0x3d28…3d3c at0004 = ╱9e╱ PROC ╱ // 0x3d2c @0x4
0x3d28…3d3c at0005 = ╱55╱U╱ // 0x3d2d @0x5
0x3d28…3d3c at0006 = ╱44╱D╱ // 0x3d2e @0x6
0x3d28…3d3c at0007 = ╱53╱S╱ // 0x3d2f @0x7
0x3d28…3d3c at0008 = ╱4b╱K╱ // 0x3d30 @0x8
0x3d28…3d3c at0009 = ╱52╱R╱ // 0x3d31 @0x9
0x3d28…3d3c at000a = ╱49╱I╱ // 0x3d32 @0xa
0x3d28…3d3c at000b = ╱56╱V╱ // 0x3d33 @0xb
0x3d28…3d3c at000c = ╱ed╱ ( ╱ // 0x3d34 @0xc
0x3d28…3d3c at000d = ╱52╱R╱ // 0x3d35 @0xd
0x3d28…3d3c at000e = ╱32╱2╱ // 0x3d36 @0xe
0x3d28…3d3c at000f = ╱ec╱ , ╱ // 0x3d37 @0xf
0x3d28…3d3c at0010 = ╱52╱R╱ // 0x3d38 @0x10
0x3d28…3d3c at0011 = ╱33╱3╱ // 0x3d39 @0x11
0x3d28…3d3c at0012 = ╱ee╱ ) ╱ // 0x3d3a @0x12
0x3d28…3d3c at0013 = EOL // 0x3d3b @0x13
0x3d28…3d3c }
0x3d3c…3d57 c4a4 7670 IF R3 = 36 OR R3 = 0 THEN
0x3d3c…3d57 LineComalBcd {
0x3d3c…3d57 ptr = 0xc4a4 // 0x3d3c @0x0
0x3d3c…3d57 lno = 0x7670 // 0x3d3e @0x2
0x3d3c…3d57 at0004 = ╱9c╱ IF ╱ // 0x3d40 @0x4
0x3d3c…3d57 at0005 = ╱52╱R╱ // 0x3d41 @0x5
0x3d3c…3d57 at0006 = ╱33╱3╱ // 0x3d42 @0x6
0x3d3c…3d57 at0007 = ╱dc╱ = ╱ // 0x3d43 @0x7
0x3d3c…3d57 at0008 = ╱33╱3╱ // 0x3d44 @0x8
0x3d3c…3d57 at0009 = ╱36╱6╱ // 0x3d45 @0x9
0x3d3c…3d57 at000a = ╱fe00009006╱ // 0x3d46 @0xa
0x3d3c…3d57 at000f = ╱db╱ OR ╱ // 0x3d4b @0xf
0x3d3c…3d57 at0010 = ╱52╱R╱ // 0x3d4c @0x10
0x3d3c…3d57 at0011 = ╱33╱3╱ // 0x3d4d @0x11
0x3d3c…3d57 at0012 = ╱dc╱ = ╱ // 0x3d4e @0x12
0x3d3c…3d57 at0013 = ╱30╱0╱ // 0x3d4f @0x13
0x3d3c…3d57 at0014 = ╱fe00000000╱ // 0x3d50 @0x14
0x3d3c…3d57 at0019 = ╱b6╱ THEN ╱ // 0x3d55 @0x19
0x3d3c…3d57 at001a = EOL // 0x3d56 @0x1a
0x3d3c…3d57 }
0x3d57…3d68 c4b5 7680 R2 = R2 + 1
0x3d57…3d68 LineComalBcd {
0x3d57…3d68 ptr = 0xc4b5 // 0x3d57 @0x0
0x3d57…3d68 lno = 0x7680 // 0x3d59 @0x2
0x3d57…3d68 at0004 = ╱52╱R╱ // 0x3d5b @0x4
0x3d57…3d68 at0005 = ╱32╱2╱ // 0x3d5c @0x5
0x3d57…3d68 at0006 = ╱dc╱ = ╱ // 0x3d5d @0x6
0x3d57…3d68 at0007 = ╱52╱R╱ // 0x3d5e @0x7
0x3d57…3d68 at0008 = ╱32╱2╱ // 0x3d5f @0x8
0x3d57…3d68 at0009 = ╱e2╱ + ╱ // 0x3d60 @0x9
0x3d57…3d68 at000a = ╱31╱1╱ // 0x3d61 @0xa
0x3d57…3d68 at000b = ╱fe00008001╱ // 0x3d62 @0xb
0x3d57…3d68 at0010 = EOL // 0x3d67 @0x10
0x3d57…3d68 }
0x3d68…3d7c c4c9 7690 EXEC HOVEDUD ( R4 , R2 )
0x3d68…3d7c LineComalBcd {
0x3d68…3d7c ptr = 0xc4c9 // 0x3d68 @0x0
0x3d68…3d7c lno = 0x7690 // 0x3d6a @0x2
0x3d68…3d7c at0004 = ╱9d╱ EXEC ╱ // 0x3d6c @0x4
0x3d68…3d7c at0005 = ╱48╱H╱ // 0x3d6d @0x5
0x3d68…3d7c at0006 = ╱4f╱O╱ // 0x3d6e @0x6
0x3d68…3d7c at0007 = ╱56╱V╱ // 0x3d6f @0x7
0x3d68…3d7c at0008 = ╱45╱E╱ // 0x3d70 @0x8
0x3d68…3d7c at0009 = ╱44╱D╱ // 0x3d71 @0x9
0x3d68…3d7c at000a = ╱55╱U╱ // 0x3d72 @0xa
0x3d68…3d7c at000b = ╱44╱D╱ // 0x3d73 @0xb
0x3d68…3d7c at000c = ╱ed╱ ( ╱ // 0x3d74 @0xc
0x3d68…3d7c at000d = ╱52╱R╱ // 0x3d75 @0xd
0x3d68…3d7c at000e = ╱34╱4╱ // 0x3d76 @0xe
0x3d68…3d7c at000f = ╱ec╱ , ╱ // 0x3d77 @0xf
0x3d68…3d7c at0010 = ╱52╱R╱ // 0x3d78 @0x10
0x3d68…3d7c at0011 = ╱32╱2╱ // 0x3d79 @0x11
0x3d68…3d7c at0012 = ╱ee╱ ) ╱ // 0x3d7a @0x12
0x3d68…3d7c at0013 = EOL // 0x3d7b @0x13
0x3d68…3d7c }
0x3d7c…3d8a c4d7 7700 R3 = 0
0x3d7c…3d8a LineComalBcd {
0x3d7c…3d8a ptr = 0xc4d7 // 0x3d7c @0x0
0x3d7c…3d8a lno = 0x7700 // 0x3d7e @0x2
0x3d7c…3d8a at0004 = ╱52╱R╱ // 0x3d80 @0x4
0x3d7c…3d8a at0005 = ╱33╱3╱ // 0x3d81 @0x5
0x3d7c…3d8a at0006 = ╱dc╱ = ╱ // 0x3d82 @0x6
0x3d7c…3d8a at0007 = ╱30╱0╱ // 0x3d83 @0x7
0x3d7c…3d8a at0008 = ╱fe00000000╱ // 0x3d84 @0x8
0x3d7c…3d8a at000d = EOL // 0x3d89 @0xd
0x3d7c…3d8a }
0x3d8a…3d90 c4dd 7710 ENDIF
0x3d8a…3d90 LineComalBcd {
0x3d8a…3d90 ptr = 0xc4dd // 0x3d8a @0x0
0x3d8a…3d90 lno = 0x7710 // 0x3d8c @0x2
0x3d8a…3d90 at0004 = ╱9b╱ ENDIF ╱ // 0x3d8e @0x4
0x3d8a…3d90 at0005 = EOL // 0x3d8f @0x5
0x3d8a…3d90 }
0x3d90…3d9e c4eb 7720 R5 = 0
0x3d90…3d9e LineComalBcd {
0x3d90…3d9e ptr = 0xc4eb // 0x3d90 @0x0
0x3d90…3d9e lno = 0x7720 // 0x3d92 @0x2
0x3d90…3d9e at0004 = ╱52╱R╱ // 0x3d94 @0x4
0x3d90…3d9e at0005 = ╱35╱5╱ // 0x3d95 @0x5
0x3d90…3d9e at0006 = ╱dc╱ = ╱ // 0x3d96 @0x6
0x3d90…3d9e at0007 = ╱30╱0╱ // 0x3d97 @0x7
0x3d90…3d9e at0008 = ╱fe00000000╱ // 0x3d98 @0x8
0x3d90…3d9e at000d = EOL // 0x3d9d @0xd
0x3d90…3d9e }
0x3d9e…3daf c4fc 7730 R3 = R3 + 1
0x3d9e…3daf LineComalBcd {
0x3d9e…3daf ptr = 0xc4fc // 0x3d9e @0x0
0x3d9e…3daf lno = 0x7730 // 0x3da0 @0x2
0x3d9e…3daf at0004 = ╱52╱R╱ // 0x3da2 @0x4
0x3d9e…3daf at0005 = ╱33╱3╱ // 0x3da3 @0x5
0x3d9e…3daf at0006 = ╱dc╱ = ╱ // 0x3da4 @0x6
0x3d9e…3daf at0007 = ╱52╱R╱ // 0x3da5 @0x7
0x3d9e…3daf at0008 = ╱33╱3╱ // 0x3da6 @0x8
0x3d9e…3daf at0009 = ╱e2╱ + ╱ // 0x3da7 @0x9
0x3d9e…3daf at000a = ╱31╱1╱ // 0x3da8 @0xa
0x3d9e…3daf at000b = ╱fe00008001╱ // 0x3da9 @0xb
0x3d9e…3daf at0010 = EOL // 0x3dae @0x10
0x3d9e…3daf }
0x3daf…3dce c51b 7740 IF F4 $ ( LEN ( F4 $ ) ) = "+" THEN R5 = 1
0x3daf…3dce LineComalBcd {
0x3daf…3dce ptr = 0xc51b // 0x3daf @0x0
0x3daf…3dce lno = 0x7740 // 0x3db1 @0x2
0x3daf…3dce at0004 = ╱82╱ IF ╱ // 0x3db3 @0x4
0x3daf…3dce at0005 = ╱46╱F╱ // 0x3db4 @0x5
0x3daf…3dce at0006 = ╱34╱4╱ // 0x3db5 @0x6
0x3daf…3dce at0007 = ╱ef╱ $ ╱ // 0x3db6 @0x7
0x3daf…3dce at0008 = ╱ed╱ ( ╱ // 0x3db7 @0x8
0x3daf…3dce at0009 = ╱cc╱ LEN ╱ // 0x3db8 @0x9
0x3daf…3dce at000a = ╱ed╱ ( ╱ // 0x3db9 @0xa
0x3daf…3dce at000b = ╱46╱F╱ // 0x3dba @0xb
0x3daf…3dce at000c = ╱34╱4╱ // 0x3dbb @0xc
0x3daf…3dce at000d = ╱ef╱ $ ╱ // 0x3dbc @0xd
0x3daf…3dce at000e = ╱ee╱ ) ╱ // 0x3dbd @0xe
0x3daf…3dce at000f = ╱ee╱ ) ╱ // 0x3dbe @0xf
0x3daf…3dce at0010 = ╱dc╱ = ╱ // 0x3dbf @0x10
0x3daf…3dce at0011 = ╱22╱"╱ // 0x3dc0 @0x11
0x3daf…3dce at0012 = ╱2b╱+╱ // 0x3dc1 @0x12
0x3daf…3dce at0013 = ╱22╱"╱ // 0x3dc2 @0x13
0x3daf…3dce at0014 = ╱b6╱ THEN ╱ // 0x3dc3 @0x14
0x3daf…3dce at0015 = ╱52╱R╱ // 0x3dc4 @0x15
0x3daf…3dce at0016 = ╱35╱5╱ // 0x3dc5 @0x16
0x3daf…3dce at0017 = ╱dc╱ = ╱ // 0x3dc6 @0x17
0x3daf…3dce at0018 = ╱31╱1╱ // 0x3dc7 @0x18
0x3daf…3dce at0019 = ╱fe00008001╱ // 0x3dc8 @0x19
0x3daf…3dce at001e = EOL // 0x3dcd @0x1e
0x3daf…3dce }
0x3dce…3def c53c 7750 EXEC LINIEUD ( H7 , I7 , H6 , R5 , F4 $ , H8 )
0x3dce…3def LineComalBcd {
0x3dce…3def ptr = 0xc53c // 0x3dce @0x0
0x3dce…3def lno = 0x7750 // 0x3dd0 @0x2
0x3dce…3def at0004 = ╱9d╱ EXEC ╱ // 0x3dd2 @0x4
0x3dce…3def at0005 = ╱4c╱L╱ // 0x3dd3 @0x5
0x3dce…3def at0006 = ╱49╱I╱ // 0x3dd4 @0x6
0x3dce…3def at0007 = ╱4e╱N╱ // 0x3dd5 @0x7
0x3dce…3def at0008 = ╱49╱I╱ // 0x3dd6 @0x8
0x3dce…3def at0009 = ╱45╱E╱ // 0x3dd7 @0x9
0x3dce…3def at000a = ╱55╱U╱ // 0x3dd8 @0xa
0x3dce…3def at000b = ╱44╱D╱ // 0x3dd9 @0xb
0x3dce…3def at000c = ╱ed╱ ( ╱ // 0x3dda @0xc
0x3dce…3def at000d = ╱48╱H╱ // 0x3ddb @0xd
0x3dce…3def at000e = ╱37╱7╱ // 0x3ddc @0xe
0x3dce…3def at000f = ╱ec╱ , ╱ // 0x3ddd @0xf
0x3dce…3def at0010 = ╱49╱I╱ // 0x3dde @0x10
0x3dce…3def at0011 = ╱37╱7╱ // 0x3ddf @0x11
0x3dce…3def at0012 = ╱ec╱ , ╱ // 0x3de0 @0x12
0x3dce…3def at0013 = ╱48╱H╱ // 0x3de1 @0x13
0x3dce…3def at0014 = ╱36╱6╱ // 0x3de2 @0x14
0x3dce…3def at0015 = ╱ec╱ , ╱ // 0x3de3 @0x15
0x3dce…3def at0016 = ╱52╱R╱ // 0x3de4 @0x16
0x3dce…3def at0017 = ╱35╱5╱ // 0x3de5 @0x17
0x3dce…3def at0018 = ╱ec╱ , ╱ // 0x3de6 @0x18
0x3dce…3def at0019 = ╱46╱F╱ // 0x3de7 @0x19
0x3dce…3def at001a = ╱34╱4╱ // 0x3de8 @0x1a
0x3dce…3def at001b = ╱ef╱ $ ╱ // 0x3de9 @0x1b
0x3dce…3def at001c = ╱ec╱ , ╱ // 0x3dea @0x1c
0x3dce…3def at001d = ╱48╱H╱ // 0x3deb @0x1d
0x3dce…3def at001e = ╱38╱8╱ // 0x3dec @0x1e
0x3dce…3def at001f = ╱ee╱ ) ╱ // 0x3ded @0x1f
0x3dce…3def at0020 = EOL // 0x3dee @0x20
0x3dce…3def }
0x3def…3df5 c542 7760 ENDPROC
0x3def…3df5 LineComalBcd {
0x3def…3df5 ptr = 0xc542 // 0x3def @0x0
0x3def…3df5 lno = 0x7760 // 0x3df1 @0x2
0x3def…3df5 at0004 = ╱9f╱ ENDPROC ╱ // 0x3df3 @0x4
0x3def…3df5 at0005 = EOL // 0x3df4 @0x5
0x3def…3df5 }
0x3df5…3e0c c559 7770 PROC MODFORTEGN ( R6 , R7 )
0x3df5…3e0c LineComalBcd {
0x3df5…3e0c ptr = 0xc559 // 0x3df5 @0x0
0x3df5…3e0c lno = 0x7770 // 0x3df7 @0x2
0x3df5…3e0c at0004 = ╱9e╱ PROC ╱ // 0x3df9 @0x4
0x3df5…3e0c at0005 = ╱4d╱M╱ // 0x3dfa @0x5
0x3df5…3e0c at0006 = ╱4f╱O╱ // 0x3dfb @0x6
0x3df5…3e0c at0007 = ╱44╱D╱ // 0x3dfc @0x7
0x3df5…3e0c at0008 = ╱46╱F╱ // 0x3dfd @0x8
0x3df5…3e0c at0009 = ╱4f╱O╱ // 0x3dfe @0x9
0x3df5…3e0c at000a = ╱52╱R╱ // 0x3dff @0xa
0x3df5…3e0c at000b = ╱54╱T╱ // 0x3e00 @0xb
0x3df5…3e0c at000c = ╱45╱E╱ // 0x3e01 @0xc
0x3df5…3e0c at000d = ╱47╱G╱ // 0x3e02 @0xd
0x3df5…3e0c at000e = ╱4e╱N╱ // 0x3e03 @0xe
0x3df5…3e0c at000f = ╱ed╱ ( ╱ // 0x3e04 @0xf
0x3df5…3e0c at0010 = ╱52╱R╱ // 0x3e05 @0x10
0x3df5…3e0c at0011 = ╱36╱6╱ // 0x3e06 @0x11
0x3df5…3e0c at0012 = ╱ec╱ , ╱ // 0x3e07 @0x12
0x3df5…3e0c at0013 = ╱52╱R╱ // 0x3e08 @0x13
0x3df5…3e0c at0014 = ╱37╱7╱ // 0x3e09 @0x14
0x3df5…3e0c at0015 = ╱ee╱ ) ╱ // 0x3e0a @0x15
0x3df5…3e0c at0016 = EOL // 0x3e0b @0x16
0x3df5…3e0c }
0x3e0c…3e1a c567 7780 I5 = LEN ( R7 $ )
0x3e0c…3e1a LineComalBcd {
0x3e0c…3e1a ptr = 0xc567 // 0x3e0c @0x0
0x3e0c…3e1a lno = 0x7780 // 0x3e0e @0x2
0x3e0c…3e1a at0004 = ╱49╱I╱ // 0x3e10 @0x4
0x3e0c…3e1a at0005 = ╱35╱5╱ // 0x3e11 @0x5
0x3e0c…3e1a at0006 = ╱dc╱ = ╱ // 0x3e12 @0x6
0x3e0c…3e1a at0007 = ╱cc╱ LEN ╱ // 0x3e13 @0x7
0x3e0c…3e1a at0008 = ╱ed╱ ( ╱ // 0x3e14 @0x8
0x3e0c…3e1a at0009 = ╱52╱R╱ // 0x3e15 @0x9
0x3e0c…3e1a at000a = ╱37╱7╱ // 0x3e16 @0xa
0x3e0c…3e1a at000b = ╱ef╱ $ ╱ // 0x3e17 @0xb
0x3e0c…3e1a at000c = ╱ee╱ ) ╱ // 0x3e18 @0xc
0x3e0c…3e1a at000d = EOL // 0x3e19 @0xd
0x3e0c…3e1a }
0x3e1a…3e2c c579 7790 IF R7 $ ( I5 ) = "+" THEN
0x3e1a…3e2c LineComalBcd {
0x3e1a…3e2c ptr = 0xc579 // 0x3e1a @0x0
0x3e1a…3e2c lno = 0x7790 // 0x3e1c @0x2
0x3e1a…3e2c at0004 = ╱9c╱ IF ╱ // 0x3e1e @0x4
0x3e1a…3e2c at0005 = ╱52╱R╱ // 0x3e1f @0x5
0x3e1a…3e2c at0006 = ╱37╱7╱ // 0x3e20 @0x6
0x3e1a…3e2c at0007 = ╱ef╱ $ ╱ // 0x3e21 @0x7
0x3e1a…3e2c at0008 = ╱ed╱ ( ╱ // 0x3e22 @0x8
0x3e1a…3e2c at0009 = ╱49╱I╱ // 0x3e23 @0x9
0x3e1a…3e2c at000a = ╱35╱5╱ // 0x3e24 @0xa
0x3e1a…3e2c at000b = ╱ee╱ ) ╱ // 0x3e25 @0xb
0x3e1a…3e2c at000c = ╱dc╱ = ╱ // 0x3e26 @0xc
0x3e1a…3e2c at000d = ╱22╱"╱ // 0x3e27 @0xd
0x3e1a…3e2c at000e = ╱2b╱+╱ // 0x3e28 @0xe
0x3e1a…3e2c at000f = ╱22╱"╱ // 0x3e29 @0xf
0x3e1a…3e2c at0010 = ╱b6╱ THEN ╱ // 0x3e2a @0x10
0x3e1a…3e2c at0011 = EOL // 0x3e2b @0x11
0x3e1a…3e2c }
0x3e2c…3e4e c59b 7800 R6 $ = R7 $ ( 1 : I5 - 1 ) + "-"
0x3e2c…3e4e LineComalBcd {
0x3e2c…3e4e ptr = 0xc59b // 0x3e2c @0x0
0x3e2c…3e4e lno = 0x7800 // 0x3e2e @0x2
0x3e2c…3e4e at0004 = ╱52╱R╱ // 0x3e30 @0x4
0x3e2c…3e4e at0005 = ╱36╱6╱ // 0x3e31 @0x5
0x3e2c…3e4e at0006 = ╱ef╱ $ ╱ // 0x3e32 @0x6
0x3e2c…3e4e at0007 = ╱dc╱ = ╱ // 0x3e33 @0x7
0x3e2c…3e4e at0008 = ╱52╱R╱ // 0x3e34 @0x8
0x3e2c…3e4e at0009 = ╱37╱7╱ // 0x3e35 @0x9
0x3e2c…3e4e at000a = ╱ef╱ $ ╱ // 0x3e36 @0xa
0x3e2c…3e4e at000b = ╱ed╱ ( ╱ // 0x3e37 @0xb
0x3e2c…3e4e at000c = ╱31╱1╱ // 0x3e38 @0xc
0x3e2c…3e4e at000d = ╱fe00008001╱ // 0x3e39 @0xd
0x3e2c…3e4e at0012 = ╱f0╱ : ╱ // 0x3e3e @0x12
0x3e2c…3e4e at0013 = ╱49╱I╱ // 0x3e3f @0x13
0x3e2c…3e4e at0014 = ╱35╱5╱ // 0x3e40 @0x14
0x3e2c…3e4e at0015 = ╱e3╱ - ╱ // 0x3e41 @0x15
0x3e2c…3e4e at0016 = ╱31╱1╱ // 0x3e42 @0x16
0x3e2c…3e4e at0017 = ╱fe00008001╱ // 0x3e43 @0x17
0x3e2c…3e4e at001c = ╱ee╱ ) ╱ // 0x3e48 @0x1c
0x3e2c…3e4e at001d = ╱f1╱ + ╱ // 0x3e49 @0x1d
0x3e2c…3e4e at001e = ╱22╱"╱ // 0x3e4a @0x1e
0x3e2c…3e4e at001f = ╱2d╱-╱ // 0x3e4b @0x1f
0x3e2c…3e4e at0020 = ╱22╱"╱ // 0x3e4c @0x20
0x3e2c…3e4e at0021 = EOL // 0x3e4d @0x21
0x3e2c…3e4e }
0x3e4e…3e54 c5a1 7810 ELSE
0x3e4e…3e54 LineComalBcd {
0x3e4e…3e54 ptr = 0xc5a1 // 0x3e4e @0x0
0x3e4e…3e54 lno = 0x7810 // 0x3e50 @0x2
0x3e4e…3e54 at0004 = ╱9a╱ ELSE ╱ // 0x3e52 @0x4
0x3e4e…3e54 at0005 = EOL // 0x3e53 @0x5
0x3e4e…3e54 }
0x3e54…3e76 c5c3 7820 R6 $ = R7 $ ( 1 : I5 - 1 ) + "+"
0x3e54…3e76 LineComalBcd {
0x3e54…3e76 ptr = 0xc5c3 // 0x3e54 @0x0
0x3e54…3e76 lno = 0x7820 // 0x3e56 @0x2
0x3e54…3e76 at0004 = ╱52╱R╱ // 0x3e58 @0x4
0x3e54…3e76 at0005 = ╱36╱6╱ // 0x3e59 @0x5
0x3e54…3e76 at0006 = ╱ef╱ $ ╱ // 0x3e5a @0x6
0x3e54…3e76 at0007 = ╱dc╱ = ╱ // 0x3e5b @0x7
0x3e54…3e76 at0008 = ╱52╱R╱ // 0x3e5c @0x8
0x3e54…3e76 at0009 = ╱37╱7╱ // 0x3e5d @0x9
0x3e54…3e76 at000a = ╱ef╱ $ ╱ // 0x3e5e @0xa
0x3e54…3e76 at000b = ╱ed╱ ( ╱ // 0x3e5f @0xb
0x3e54…3e76 at000c = ╱31╱1╱ // 0x3e60 @0xc
0x3e54…3e76 at000d = ╱fe00008001╱ // 0x3e61 @0xd
0x3e54…3e76 at0012 = ╱f0╱ : ╱ // 0x3e66 @0x12
0x3e54…3e76 at0013 = ╱49╱I╱ // 0x3e67 @0x13
0x3e54…3e76 at0014 = ╱35╱5╱ // 0x3e68 @0x14
0x3e54…3e76 at0015 = ╱e3╱ - ╱ // 0x3e69 @0x15
0x3e54…3e76 at0016 = ╱31╱1╱ // 0x3e6a @0x16
0x3e54…3e76 at0017 = ╱fe00008001╱ // 0x3e6b @0x17
0x3e54…3e76 at001c = ╱ee╱ ) ╱ // 0x3e70 @0x1c
0x3e54…3e76 at001d = ╱f1╱ + ╱ // 0x3e71 @0x1d
0x3e54…3e76 at001e = ╱22╱"╱ // 0x3e72 @0x1e
0x3e54…3e76 at001f = ╱2b╱+╱ // 0x3e73 @0x1f
0x3e54…3e76 at0020 = ╱22╱"╱ // 0x3e74 @0x20
0x3e54…3e76 at0021 = EOL // 0x3e75 @0x21
0x3e54…3e76 }
0x3e76…3e7c c5c9 7830 ENDIF
0x3e76…3e7c LineComalBcd {
0x3e76…3e7c ptr = 0xc5c9 // 0x3e76 @0x0
0x3e76…3e7c lno = 0x7830 // 0x3e78 @0x2
0x3e76…3e7c at0004 = ╱9b╱ ENDIF ╱ // 0x3e7a @0x4
0x3e76…3e7c at0005 = EOL // 0x3e7b @0x5
0x3e76…3e7c }
0x3e7c…3e82 c5cf 7840 ENDPROC
0x3e7c…3e82 LineComalBcd {
0x3e7c…3e82 ptr = 0xc5cf // 0x3e7c @0x0
0x3e7c…3e82 lno = 0x7840 // 0x3e7e @0x2
0x3e7c…3e82 at0004 = ╱9f╱ ENDPROC ╱ // 0x3e80 @0x4
0x3e7c…3e82 at0005 = EOL // 0x3e81 @0x5
0x3e7c…3e82 }
0x3e82…3e91 c5de 7850 PROC GEMBHPOST
0x3e82…3e91 LineComalBcd {
0x3e82…3e91 ptr = 0xc5de // 0x3e82 @0x0
0x3e82…3e91 lno = 0x7850 // 0x3e84 @0x2
0x3e82…3e91 at0004 = ╱9e╱ PROC ╱ // 0x3e86 @0x4
0x3e82…3e91 at0005 = ╱47╱G╱ // 0x3e87 @0x5
0x3e82…3e91 at0006 = ╱45╱E╱ // 0x3e88 @0x6
0x3e82…3e91 at0007 = ╱4d╱M╱ // 0x3e89 @0x7
0x3e82…3e91 at0008 = ╱42╱B╱ // 0x3e8a @0x8
0x3e82…3e91 at0009 = ╱48╱H╱ // 0x3e8b @0x9
0x3e82…3e91 at000a = ╱50╱P╱ // 0x3e8c @0xa
0x3e82…3e91 at000b = ╱4f╱O╱ // 0x3e8d @0xb
0x3e82…3e91 at000c = ╱53╱S╱ // 0x3e8e @0xc
0x3e82…3e91 at000d = ╱54╱T╱ // 0x3e8f @0xd
0x3e82…3e91 at000e = EOL // 0x3e90 @0xe
0x3e82…3e91 }
0x3e91…3ea3 c5f0 7860 J7 = L3 ; D5 $ = "1"
0x3e91…3ea3 LineComalBcd {
0x3e91…3ea3 ptr = 0xc5f0 // 0x3e91 @0x0
0x3e91…3ea3 lno = 0x7860 // 0x3e93 @0x2
0x3e91…3ea3 at0004 = ╱4a╱J╱ // 0x3e95 @0x4
0x3e91…3ea3 at0005 = ╱37╱7╱ // 0x3e96 @0x5
0x3e91…3ea3 at0006 = ╱dc╱ = ╱ // 0x3e97 @0x6
0x3e91…3ea3 at0007 = ╱4c╱L╱ // 0x3e98 @0x7
0x3e91…3ea3 at0008 = ╱33╱3╱ // 0x3e99 @0x8
0x3e91…3ea3 at0009 = ╱eb╱ ; ╱ // 0x3e9a @0x9
0x3e91…3ea3 at000a = ╱44╱D╱ // 0x3e9b @0xa
0x3e91…3ea3 at000b = ╱35╱5╱ // 0x3e9c @0xb
0x3e91…3ea3 at000c = ╱ef╱ $ ╱ // 0x3e9d @0xc
0x3e91…3ea3 at000d = ╱dc╱ = ╱ // 0x3e9e @0xd
0x3e91…3ea3 at000e = ╱22╱"╱ // 0x3e9f @0xe
0x3e91…3ea3 at000f = ╱31╱1╱ // 0x3ea0 @0xf
0x3e91…3ea3 at0010 = ╱22╱"╱ // 0x3ea1 @0x10
0x3e91…3ea3 at0011 = EOL // 0x3ea2 @0x11
0x3e91…3ea3 }
0x3ea3…3eb4 c601 7870 J7 = J7 + 1
0x3ea3…3eb4 LineComalBcd {
0x3ea3…3eb4 ptr = 0xc601 // 0x3ea3 @0x0
0x3ea3…3eb4 lno = 0x7870 // 0x3ea5 @0x2
0x3ea3…3eb4 at0004 = ╱4a╱J╱ // 0x3ea7 @0x4
0x3ea3…3eb4 at0005 = ╱37╱7╱ // 0x3ea8 @0x5
0x3ea3…3eb4 at0006 = ╱dc╱ = ╱ // 0x3ea9 @0x6
0x3ea3…3eb4 at0007 = ╱4a╱J╱ // 0x3eaa @0x7
0x3ea3…3eb4 at0008 = ╱37╱7╱ // 0x3eab @0x8
0x3ea3…3eb4 at0009 = ╱e2╱ + ╱ // 0x3eac @0x9
0x3ea3…3eb4 at000a = ╱31╱1╱ // 0x3ead @0xa
0x3ea3…3eb4 at000b = ╱fe00008001╱ // 0x3eae @0xb
0x3ea3…3eb4 at0010 = EOL // 0x3eb3 @0x10
0x3ea3…3eb4 }
0x3eb4…3eca c617 7880 F1 $ = CHR ( I7 + 48 )
0x3eb4…3eca LineComalBcd {
0x3eb4…3eca ptr = 0xc617 // 0x3eb4 @0x0
0x3eb4…3eca lno = 0x7880 // 0x3eb6 @0x2
0x3eb4…3eca at0004 = ╱46╱F╱ // 0x3eb8 @0x4
0x3eb4…3eca at0005 = ╱31╱1╱ // 0x3eb9 @0x5
0x3eb4…3eca at0006 = ╱ef╱ $ ╱ // 0x3eba @0x6
0x3eb4…3eca at0007 = ╱dc╱ = ╱ // 0x3ebb @0x7
0x3eb4…3eca at0008 = ╱cf╱ CHR ╱ // 0x3ebc @0x8
0x3eb4…3eca at0009 = ╱ed╱ ( ╱ // 0x3ebd @0x9
0x3eb4…3eca at000a = ╱49╱I╱ // 0x3ebe @0xa
0x3eb4…3eca at000b = ╱37╱7╱ // 0x3ebf @0xb
0x3eb4…3eca at000c = ╱e2╱ + ╱ // 0x3ec0 @0xc
0x3eb4…3eca at000d = ╱34╱4╱ // 0x3ec1 @0xd
0x3eb4…3eca at000e = ╱38╱8╱ // 0x3ec2 @0xe
0x3eb4…3eca at000f = ╱fe0000c006╱ // 0x3ec3 @0xf
0x3eb4…3eca at0014 = ╱ee╱ ) ╱ // 0x3ec8 @0x14
0x3eb4…3eca at0015 = EOL // 0x3ec9 @0x15
0x3eb4…3eca }
0x3eca…3eeb c638 7890 PUT D3 $ , J7 : H6 , L4 , H7 , F1 $ , F3 $ , D5 $
0x3eca…3eeb LineComalBcd {
0x3eca…3eeb ptr = 0xc638 // 0x3eca @0x0
0x3eca…3eeb lno = 0x7890 // 0x3ecc @0x2
0x3eca…3eeb at0004 = ╱aa╱ PUT ╱ // 0x3ece @0x4
0x3eca…3eeb at0005 = ╱44╱D╱ // 0x3ecf @0x5
0x3eca…3eeb at0006 = ╱33╱3╱ // 0x3ed0 @0x6
0x3eca…3eeb at0007 = ╱ef╱ $ ╱ // 0x3ed1 @0x7
0x3eca…3eeb at0008 = ╱ec╱ , ╱ // 0x3ed2 @0x8
0x3eca…3eeb at0009 = ╱4a╱J╱ // 0x3ed3 @0x9
0x3eca…3eeb at000a = ╱37╱7╱ // 0x3ed4 @0xa
0x3eca…3eeb at000b = ╱f0╱ : ╱ // 0x3ed5 @0xb
0x3eca…3eeb at000c = ╱48╱H╱ // 0x3ed6 @0xc
0x3eca…3eeb at000d = ╱36╱6╱ // 0x3ed7 @0xd
0x3eca…3eeb at000e = ╱ec╱ , ╱ // 0x3ed8 @0xe
0x3eca…3eeb at000f = ╱4c╱L╱ // 0x3ed9 @0xf
0x3eca…3eeb at0010 = ╱34╱4╱ // 0x3eda @0x10
0x3eca…3eeb at0011 = ╱ec╱ , ╱ // 0x3edb @0x11
0x3eca…3eeb at0012 = ╱48╱H╱ // 0x3edc @0x12
0x3eca…3eeb at0013 = ╱37╱7╱ // 0x3edd @0x13
0x3eca…3eeb at0014 = ╱ec╱ , ╱ // 0x3ede @0x14
0x3eca…3eeb at0015 = ╱46╱F╱ // 0x3edf @0x15
0x3eca…3eeb at0016 = ╱31╱1╱ // 0x3ee0 @0x16
0x3eca…3eeb at0017 = ╱ef╱ $ ╱ // 0x3ee1 @0x17
0x3eca…3eeb at0018 = ╱ec╱ , ╱ // 0x3ee2 @0x18
0x3eca…3eeb at0019 = ╱46╱F╱ // 0x3ee3 @0x19
0x3eca…3eeb at001a = ╱33╱3╱ // 0x3ee4 @0x1a
0x3eca…3eeb at001b = ╱ef╱ $ ╱ // 0x3ee5 @0x1b
0x3eca…3eeb at001c = ╱ec╱ , ╱ // 0x3ee6 @0x1c
0x3eca…3eeb at001d = ╱44╱D╱ // 0x3ee7 @0x1d
0x3eca…3eeb at001e = ╱35╱5╱ // 0x3ee8 @0x1e
0x3eca…3eeb at001f = ╱ef╱ $ ╱ // 0x3ee9 @0x1f
0x3eca…3eeb at0020 = EOL // 0x3eea @0x20
0x3eca…3eeb }
0x3eeb…3f08 c655 7900 EXEC FEJL ( 7 , 2 , D3 $ )
0x3eeb…3f08 LineComalBcd {
0x3eeb…3f08 ptr = 0xc655 // 0x3eeb @0x0
0x3eeb…3f08 lno = 0x7900 // 0x3eed @0x2
0x3eeb…3f08 at0004 = ╱9d╱ EXEC ╱ // 0x3eef @0x4
0x3eeb…3f08 at0005 = ╱46╱F╱ // 0x3ef0 @0x5
0x3eeb…3f08 at0006 = ╱45╱E╱ // 0x3ef1 @0x6
0x3eeb…3f08 at0007 = ╱4a╱J╱ // 0x3ef2 @0x7
0x3eeb…3f08 at0008 = ╱4c╱L╱ // 0x3ef3 @0x8
0x3eeb…3f08 at0009 = ╱ed╱ ( ╱ // 0x3ef4 @0x9
0x3eeb…3f08 at000a = ╱37╱7╱ // 0x3ef5 @0xa
0x3eeb…3f08 at000b = ╱fe0000e003╱ // 0x3ef6 @0xb
0x3eeb…3f08 at0010 = ╱ec╱ , ╱ // 0x3efb @0x10
0x3eeb…3f08 at0011 = ╱32╱2╱ // 0x3efc @0x11
0x3eeb…3f08 at0012 = ╱fe00008002╱ // 0x3efd @0x12
0x3eeb…3f08 at0017 = ╱ec╱ , ╱ // 0x3f02 @0x17
0x3eeb…3f08 at0018 = ╱44╱D╱ // 0x3f03 @0x18
0x3eeb…3f08 at0019 = ╱33╱3╱ // 0x3f04 @0x19
0x3eeb…3f08 at001a = ╱ef╱ $ ╱ // 0x3f05 @0x1a
0x3eeb…3f08 at001b = ╱ee╱ ) ╱ // 0x3f06 @0x1b
0x3eeb…3f08 at001c = EOL // 0x3f07 @0x1c
0x3eeb…3f08 }
0x3f08…3f24 c671 7910 IF I7 >= 10 AND I7 < 20 THEN
0x3f08…3f24 LineComalBcd {
0x3f08…3f24 ptr = 0xc671 // 0x3f08 @0x0
0x3f08…3f24 lno = 0x7910 // 0x3f0a @0x2
0x3f08…3f24 at0004 = ╱9c╱ IF ╱ // 0x3f0c @0x4
0x3f08…3f24 at0005 = ╱49╱I╱ // 0x3f0d @0x5
0x3f08…3f24 at0006 = ╱37╱7╱ // 0x3f0e @0x6
0x3f08…3f24 at0007 = ╱e0╱ >= ╱ // 0x3f0f @0x7
0x3f08…3f24 at0008 = ╱31╱1╱ // 0x3f10 @0x8
0x3f08…3f24 at0009 = ╱30╱0╱ // 0x3f11 @0x9
0x3f08…3f24 at000a = ╱fe0000a004╱ // 0x3f12 @0xa
0x3f08…3f24 at000f = ╱da╱ AND ╱ // 0x3f17 @0xf
0x3f08…3f24 at0010 = ╱49╱I╱ // 0x3f18 @0x10
0x3f08…3f24 at0011 = ╱37╱7╱ // 0x3f19 @0x11
0x3f08…3f24 at0012 = ╱dd╱ < ╱ // 0x3f1a @0x12
0x3f08…3f24 at0013 = ╱32╱2╱ // 0x3f1b @0x13
0x3f08…3f24 at0014 = ╱30╱0╱ // 0x3f1c @0x14
0x3f08…3f24 at0015 = ╱fe0000a005╱ // 0x3f1d @0x15
0x3f08…3f24 at001a = ╱b6╱ THEN ╱ // 0x3f22 @0x1a
0x3f08…3f24 at001b = EOL // 0x3f23 @0x1b
0x3f08…3f24 }
0x3f24…3f35 c682 7920 J7 = J7 + 1
0x3f24…3f35 LineComalBcd {
0x3f24…3f35 ptr = 0xc682 // 0x3f24 @0x0
0x3f24…3f35 lno = 0x7920 // 0x3f26 @0x2
0x3f24…3f35 at0004 = ╱4a╱J╱ // 0x3f28 @0x4
0x3f24…3f35 at0005 = ╱37╱7╱ // 0x3f29 @0x5
0x3f24…3f35 at0006 = ╱dc╱ = ╱ // 0x3f2a @0x6
0x3f24…3f35 at0007 = ╱4a╱J╱ // 0x3f2b @0x7
0x3f24…3f35 at0008 = ╱37╱7╱ // 0x3f2c @0x8
0x3f24…3f35 at0009 = ╱e2╱ + ╱ // 0x3f2d @0x9
0x3f24…3f35 at000a = ╱31╱1╱ // 0x3f2e @0xa
0x3f24…3f35 at000b = ╱fe00008001╱ // 0x3f2f @0xb
0x3f24…3f35 at0010 = EOL // 0x3f34 @0x10
0x3f24…3f35 }
0x3f35…3f48 c695 7930 PUT D3 $ , J7 : H6 , E3 $
0x3f35…3f48 LineComalBcd {
0x3f35…3f48 ptr = 0xc695 // 0x3f35 @0x0
0x3f35…3f48 lno = 0x7930 // 0x3f37 @0x2
0x3f35…3f48 at0004 = ╱aa╱ PUT ╱ // 0x3f39 @0x4
0x3f35…3f48 at0005 = ╱44╱D╱ // 0x3f3a @0x5
0x3f35…3f48 at0006 = ╱33╱3╱ // 0x3f3b @0x6
0x3f35…3f48 at0007 = ╱ef╱ $ ╱ // 0x3f3c @0x7
0x3f35…3f48 at0008 = ╱ec╱ , ╱ // 0x3f3d @0x8
0x3f35…3f48 at0009 = ╱4a╱J╱ // 0x3f3e @0x9
0x3f35…3f48 at000a = ╱37╱7╱ // 0x3f3f @0xa
0x3f35…3f48 at000b = ╱f0╱ : ╱ // 0x3f40 @0xb
0x3f35…3f48 at000c = ╱48╱H╱ // 0x3f41 @0xc
0x3f35…3f48 at000d = ╱36╱6╱ // 0x3f42 @0xd
0x3f35…3f48 at000e = ╱ec╱ , ╱ // 0x3f43 @0xe
0x3f35…3f48 at000f = ╱45╱E╱ // 0x3f44 @0xf
0x3f35…3f48 at0010 = ╱33╱3╱ // 0x3f45 @0x10
0x3f35…3f48 at0011 = ╱ef╱ $ ╱ // 0x3f46 @0x11
0x3f35…3f48 at0012 = EOL // 0x3f47 @0x12
0x3f35…3f48 }
0x3f48…3f65 c6b2 7940 EXEC FEJL ( 7 , 3 , D3 $ )
0x3f48…3f65 LineComalBcd {
0x3f48…3f65 ptr = 0xc6b2 // 0x3f48 @0x0
0x3f48…3f65 lno = 0x7940 // 0x3f4a @0x2
0x3f48…3f65 at0004 = ╱9d╱ EXEC ╱ // 0x3f4c @0x4
0x3f48…3f65 at0005 = ╱46╱F╱ // 0x3f4d @0x5
0x3f48…3f65 at0006 = ╱45╱E╱ // 0x3f4e @0x6
0x3f48…3f65 at0007 = ╱4a╱J╱ // 0x3f4f @0x7
0x3f48…3f65 at0008 = ╱4c╱L╱ // 0x3f50 @0x8
0x3f48…3f65 at0009 = ╱ed╱ ( ╱ // 0x3f51 @0x9
0x3f48…3f65 at000a = ╱37╱7╱ // 0x3f52 @0xa
0x3f48…3f65 at000b = ╱fe0000e003╱ // 0x3f53 @0xb
0x3f48…3f65 at0010 = ╱ec╱ , ╱ // 0x3f58 @0x10
0x3f48…3f65 at0011 = ╱33╱3╱ // 0x3f59 @0x11
0x3f48…3f65 at0012 = ╱fe0000c002╱ // 0x3f5a @0x12
0x3f48…3f65 at0017 = ╱ec╱ , ╱ // 0x3f5f @0x17
0x3f48…3f65 at0018 = ╱44╱D╱ // 0x3f60 @0x18
0x3f48…3f65 at0019 = ╱33╱3╱ // 0x3f61 @0x19
0x3f48…3f65 at001a = ╱ef╱ $ ╱ // 0x3f62 @0x1a
0x3f48…3f65 at001b = ╱ee╱ ) ╱ // 0x3f63 @0x1b
0x3f48…3f65 at001c = EOL // 0x3f64 @0x1c
0x3f48…3f65 }
0x3f65…3f6b c6b8 7950 ENDIF
0x3f65…3f6b LineComalBcd {
0x3f65…3f6b ptr = 0xc6b8 // 0x3f65 @0x0
0x3f65…3f6b lno = 0x7950 // 0x3f67 @0x2
0x3f65…3f6b at0004 = ╱9b╱ ENDIF ╱ // 0x3f69 @0x4
0x3f65…3f6b at0005 = EOL // 0x3f6a @0x5
0x3f65…3f6b }
0x3f6b…3f75 c6c2 7960 L3 = J7
0x3f6b…3f75 LineComalBcd {
0x3f6b…3f75 ptr = 0xc6c2 // 0x3f6b @0x0
0x3f6b…3f75 lno = 0x7960 // 0x3f6d @0x2
0x3f6b…3f75 at0004 = ╱4c╱L╱ // 0x3f6f @0x4
0x3f6b…3f75 at0005 = ╱33╱3╱ // 0x3f70 @0x5
0x3f6b…3f75 at0006 = ╱dc╱ = ╱ // 0x3f71 @0x6
0x3f6b…3f75 at0007 = ╱4a╱J╱ // 0x3f72 @0x7
0x3f6b…3f75 at0008 = ╱37╱7╱ // 0x3f73 @0x8
0x3f6b…3f75 at0009 = EOL // 0x3f74 @0x9
0x3f6b…3f75 }
0x3f75…3f7b c6c8 7970 ENDPROC
0x3f75…3f7b LineComalBcd {
0x3f75…3f7b ptr = 0xc6c8 // 0x3f75 @0x0
0x3f75…3f7b lno = 0x7970 // 0x3f77 @0x2
0x3f75…3f7b at0004 = ╱9f╱ ENDPROC ╱ // 0x3f79 @0x4
0x3f75…3f7b at0005 = EOL // 0x3f7a @0x5
0x3f75…3f7b }
0x3f7b…3f85 c6d2 7980 PROC BUND
0x3f7b…3f85 LineComalBcd {
0x3f7b…3f85 ptr = 0xc6d2 // 0x3f7b @0x0
0x3f7b…3f85 lno = 0x7980 // 0x3f7d @0x2
0x3f7b…3f85 at0004 = ╱9e╱ PROC ╱ // 0x3f7f @0x4
0x3f7b…3f85 at0005 = ╱42╱B╱ // 0x3f80 @0x5
0x3f7b…3f85 at0006 = ╱55╱U╱ // 0x3f81 @0x6
0x3f7b…3f85 at0007 = ╱4e╱N╱ // 0x3f82 @0x7
0x3f7b…3f85 at0008 = ╱44╱D╱ // 0x3f83 @0x8
0x3f7b…3f85 at0009 = EOL // 0x3f84 @0x9
0x3f7b…3f85 }
0x3f85…3f97 c6e4 7990 FOR I = R8 TO 36
0x3f85…3f97 LineComalBcd {
0x3f85…3f97 ptr = 0xc6e4 // 0x3f85 @0x0
0x3f85…3f97 lno = 0x7990 // 0x3f87 @0x2
0x3f85…3f97 at0004 = ╱83╱ FOR ╱ // 0x3f89 @0x4
0x3f85…3f97 at0005 = ╱49╱I╱ // 0x3f8a @0x5
0x3f85…3f97 at0006 = ╱dc╱ = ╱ // 0x3f8b @0x6
0x3f85…3f97 at0007 = ╱52╱R╱ // 0x3f8c @0x7
0x3f85…3f97 at0008 = ╱38╱8╱ // 0x3f8d @0x8
0x3f85…3f97 at0009 = ╱b7╱ TO ╱ // 0x3f8e @0x9
0x3f85…3f97 at000a = ╱33╱3╱ // 0x3f8f @0xa
0x3f85…3f97 at000b = ╱36╱6╱ // 0x3f90 @0xb
0x3f85…3f97 at000c = ╱fe00009006╱ // 0x3f91 @0xc
0x3f85…3f97 at0011 = EOL // 0x3f96 @0x11
0x3f85…3f97 }
0x3f97…3fa8 c6f5 8000 PRINT CHR ( 10 ) ;
0x3f97…3fa8 LineComalBcd {
0x3f97…3fa8 ptr = 0xc6f5 // 0x3f97 @0x0
0x3f97…3fa8 lno = 0x8000 // 0x3f99 @0x2
0x3f97…3fa8 at0004 = ╱92╱ PRINT ╱ // 0x3f9b @0x4
0x3f97…3fa8 at0005 = ╱cf╱ CHR ╱ // 0x3f9c @0x5
0x3f97…3fa8 at0006 = ╱ed╱ ( ╱ // 0x3f9d @0x6
0x3f97…3fa8 at0007 = ╱31╱1╱ // 0x3f9e @0x7
0x3f97…3fa8 at0008 = ╱30╱0╱ // 0x3f9f @0x8
0x3f97…3fa8 at0009 = ╱fe0000a004╱ // 0x3fa0 @0x9
0x3f97…3fa8 at000e = ╱ee╱ ) ╱ // 0x3fa5 @0xe
0x3f97…3fa8 at000f = ╱eb╱ ; ╱ // 0x3fa6 @0xf
0x3f97…3fa8 at0010 = EOL // 0x3fa7 @0x10
0x3f97…3fa8 }
0x3fa8…3faf c6fc 8010 NEXT I
0x3fa8…3faf LineComalBcd {
0x3fa8…3faf ptr = 0xc6fc // 0x3fa8 @0x0
0x3fa8…3faf lno = 0x8010 // 0x3faa @0x2
0x3fa8…3faf at0004 = ╱84╱ NEXT ╱ // 0x3fac @0x4
0x3fa8…3faf at0005 = ╱49╱I╱ // 0x3fad @0x5
0x3fa8…3faf at0006 = EOL // 0x3fae @0x6
0x3fa8…3faf }
0x3faf…3fb8 c705 8020 PRINT "…"
0x3faf…3fb8 LineComalBcd {
0x3faf…3fb8 ptr = 0xc705 // 0x3faf @0x0
0x3faf…3fb8 lno = 0x8020 // 0x3fb1 @0x2
0x3faf…3fb8 at0004 = ╱92╱ PRINT ╱ // 0x3fb3 @0x4
0x3faf…3fb8 at0005 = ╱22╱"╱ // 0x3fb4 @0x5
0x3faf…3fb8 at0006 = ╱20╱…╱ // 0x3fb5 @0x6
0x3faf…3fb8 at0007 = ╱22╱"╱ // 0x3fb6 @0x7
0x3faf…3fb8 at0008 = EOL // 0x3fb7 @0x8
0x3faf…3fb8 }
0x3fb8…3fcb c718 8030 PRINT TAB ( 3 ) ; A2 $
0x3fb8…3fcb LineComalBcd {
0x3fb8…3fcb ptr = 0xc718 // 0x3fb8 @0x0
0x3fb8…3fcb lno = 0x8030 // 0x3fba @0x2
0x3fb8…3fcb at0004 = ╱92╱ PRINT ╱ // 0x3fbc @0x4
0x3fb8…3fcb at0005 = ╱d2╱ TAB ╱ // 0x3fbd @0x5
0x3fb8…3fcb at0006 = ╱ed╱ ( ╱ // 0x3fbe @0x6
0x3fb8…3fcb at0007 = ╱33╱3╱ // 0x3fbf @0x7
0x3fb8…3fcb at0008 = ╱fe0000c002╱ // 0x3fc0 @0x8
0x3fb8…3fcb at000d = ╱ee╱ ) ╱ // 0x3fc5 @0xd
0x3fb8…3fcb at000e = ╱eb╱ ; ╱ // 0x3fc6 @0xe
0x3fb8…3fcb at000f = ╱41╱A╱ // 0x3fc7 @0xf
0x3fb8…3fcb at0010 = ╱32╱2╱ // 0x3fc8 @0x10
0x3fb8…3fcb at0011 = ╱ef╱ $ ╱ // 0x3fc9 @0x11
0x3fb8…3fcb at0012 = EOL // 0x3fca @0x12
0x3fb8…3fcb }
0x3fcb…3feb c738 8040 EXEC TUD ( A1 $ , B8 $ , 0 , 0 )
0x3fcb…3feb LineComalBcd {
0x3fcb…3feb ptr = 0xc738 // 0x3fcb @0x0
0x3fcb…3feb lno = 0x8040 // 0x3fcd @0x2
0x3fcb…3feb at0004 = ╱9d╱ EXEC ╱ // 0x3fcf @0x4
0x3fcb…3feb at0005 = ╱54╱T╱ // 0x3fd0 @0x5
0x3fcb…3feb at0006 = ╱55╱U╱ // 0x3fd1 @0x6
0x3fcb…3feb at0007 = ╱44╱D╱ // 0x3fd2 @0x7
0x3fcb…3feb at0008 = ╱ed╱ ( ╱ // 0x3fd3 @0x8
0x3fcb…3feb at0009 = ╱41╱A╱ // 0x3fd4 @0x9
0x3fcb…3feb at000a = ╱31╱1╱ // 0x3fd5 @0xa
0x3fcb…3feb at000b = ╱ef╱ $ ╱ // 0x3fd6 @0xb
0x3fcb…3feb at000c = ╱ec╱ , ╱ // 0x3fd7 @0xc
0x3fcb…3feb at000d = ╱42╱B╱ // 0x3fd8 @0xd
0x3fcb…3feb at000e = ╱38╱8╱ // 0x3fd9 @0xe
0x3fcb…3feb at000f = ╱ef╱ $ ╱ // 0x3fda @0xf
0x3fcb…3feb at0010 = ╱ec╱ , ╱ // 0x3fdb @0x10
0x3fcb…3feb at0011 = ╱30╱0╱ // 0x3fdc @0x11
0x3fcb…3feb at0012 = ╱fe00000000╱ // 0x3fdd @0x12
0x3fcb…3feb at0017 = ╱ec╱ , ╱ // 0x3fe2 @0x17
0x3fcb…3feb at0018 = ╱30╱0╱ // 0x3fe3 @0x18
0x3fcb…3feb at0019 = ╱fe00000000╱ // 0x3fe4 @0x19
0x3fcb…3feb at001e = ╱ee╱ ) ╱ // 0x3fe9 @0x1e
0x3fcb…3feb at001f = EOL // 0x3fea @0x1f
0x3fcb…3feb }
0x3feb…401f c76c 8050 PRINT TAB ( 10 ) ; CHR ( 14 ) ; "Difference" ; CHR ( 15 ) ;
0x3feb…401f LineComalBcd {
0x3feb…401f ptr = 0xc76c // 0x3feb @0x0
0x3feb…401f lno = 0x8050 // 0x3fed @0x2
0x3feb…401f at0004 = ╱92╱ PRINT ╱ // 0x3fef @0x4
0x3feb…401f at0005 = ╱d2╱ TAB ╱ // 0x3ff0 @0x5
0x3feb…401f at0006 = ╱ed╱ ( ╱ // 0x3ff1 @0x6
0x3feb…401f at0007 = ╱31╱1╱ // 0x3ff2 @0x7
0x3feb…401f at0008 = ╱30╱0╱ // 0x3ff3 @0x8
0x3feb…401f at0009 = ╱fe0000a004╱ // 0x3ff4 @0x9
0x3feb…401f at000e = ╱ee╱ ) ╱ // 0x3ff9 @0xe
0x3feb…401f at000f = ╱eb╱ ; ╱ // 0x3ffa @0xf
0x3feb…401f at0010 = ╱cf╱ CHR ╱ // 0x3ffb @0x10
0x3feb…401f at0011 = ╱ed╱ ( ╱ // 0x3ffc @0x11
0x3feb…401f at0012 = ╱31╱1╱ // 0x3ffd @0x12
0x3feb…401f at0013 = ╱34╱4╱ // 0x3ffe @0x13
0x3feb…401f at0014 = ╱fe0000e004╱ // 0x3fff @0x14
0x3feb…401f at0019 = ╱ee╱ ) ╱ // 0x4004 @0x19
0x3feb…401f at001a = ╱eb╱ ; ╱ // 0x4005 @0x1a
0x3feb…401f at001b = ╱22╱"╱ // 0x4006 @0x1b
0x3feb…401f at001c = ╱44╱D╱ // 0x4007 @0x1c
0x3feb…401f at001d = ╱69╱i╱ // 0x4008 @0x1d
0x3feb…401f at001e = ╱66╱f╱ // 0x4009 @0x1e
0x3feb…401f at001f = ╱66╱f╱ // 0x400a @0x1f
0x3feb…401f at0020 = ╱65╱e╱ // 0x400b @0x20
0x3feb…401f at0021 = ╱72╱r╱ // 0x400c @0x21
0x3feb…401f at0022 = ╱65╱e╱ // 0x400d @0x22
0x3feb…401f at0023 = ╱6e╱n╱ // 0x400e @0x23
0x3feb…401f at0024 = ╱63╱c╱ // 0x400f @0x24
0x3feb…401f at0025 = ╱65╱e╱ // 0x4010 @0x25
0x3feb…401f at0026 = ╱22╱"╱ // 0x4011 @0x26
0x3feb…401f at0027 = ╱eb╱ ; ╱ // 0x4012 @0x27
0x3feb…401f at0028 = ╱cf╱ CHR ╱ // 0x4013 @0x28
0x3feb…401f at0029 = ╱ed╱ ( ╱ // 0x4014 @0x29
0x3feb…401f at002a = ╱31╱1╱ // 0x4015 @0x2a
0x3feb…401f at002b = ╱35╱5╱ // 0x4016 @0x2b
0x3feb…401f at002c = ╱fe0000f004╱ // 0x4017 @0x2c
0x3feb…401f at0031 = ╱ee╱ ) ╱ // 0x401c @0x31
0x3feb…401f at0032 = ╱eb╱ ; ╱ // 0x401d @0x32
0x3feb…401f at0033 = EOL // 0x401e @0x33
0x3feb…401f }
0x401f…404d c79a 8060 PRINT TAB ( 39 + 14 * ( B8 $ ( LEN ( B8 $ ) ) = "-" ) ) ; B8 $
0x401f…404d LineComalBcd {
0x401f…404d ptr = 0xc79a // 0x401f @0x0
0x401f…404d lno = 0x8060 // 0x4021 @0x2
0x401f…404d at0004 = ╱92╱ PRINT ╱ // 0x4023 @0x4
0x401f…404d at0005 = ╱d2╱ TAB ╱ // 0x4024 @0x5
0x401f…404d at0006 = ╱ed╱ ( ╱ // 0x4025 @0x6
0x401f…404d at0007 = ╱33╱3╱ // 0x4026 @0x7
0x401f…404d at0008 = ╱39╱9╱ // 0x4027 @0x8
0x401f…404d at0009 = ╱fe00009c06╱ // 0x4028 @0x9
0x401f…404d at000e = ╱e2╱ + ╱ // 0x402d @0xe
0x401f…404d at000f = ╱31╱1╱ // 0x402e @0xf
0x401f…404d at0010 = ╱34╱4╱ // 0x402f @0x10
0x401f…404d at0011 = ╱fe0000e004╱ // 0x4030 @0x11
0x401f…404d at0016 = ╱e4╱ * ╱ // 0x4035 @0x16
0x401f…404d at0017 = ╱ed╱ ( ╱ // 0x4036 @0x17
0x401f…404d at0018 = ╱42╱B╱ // 0x4037 @0x18
0x401f…404d at0019 = ╱38╱8╱ // 0x4038 @0x19
0x401f…404d at001a = ╱ef╱ $ ╱ // 0x4039 @0x1a
0x401f…404d at001b = ╱ed╱ ( ╱ // 0x403a @0x1b
0x401f…404d at001c = ╱cc╱ LEN ╱ // 0x403b @0x1c
0x401f…404d at001d = ╱ed╱ ( ╱ // 0x403c @0x1d
0x401f…404d at001e = ╱42╱B╱ // 0x403d @0x1e
0x401f…404d at001f = ╱38╱8╱ // 0x403e @0x1f
0x401f…404d at0020 = ╱ef╱ $ ╱ // 0x403f @0x20
0x401f…404d at0021 = ╱ee╱ ) ╱ // 0x4040 @0x21
0x401f…404d at0022 = ╱ee╱ ) ╱ // 0x4041 @0x22
0x401f…404d at0023 = ╱dc╱ = ╱ // 0x4042 @0x23
0x401f…404d at0024 = ╱22╱"╱ // 0x4043 @0x24
0x401f…404d at0025 = ╱2d╱-╱ // 0x4044 @0x25
0x401f…404d at0026 = ╱22╱"╱ // 0x4045 @0x26
0x401f…404d at0027 = ╱ee╱ ) ╱ // 0x4046 @0x27
0x401f…404d at0028 = ╱ee╱ ) ╱ // 0x4047 @0x28
0x401f…404d at0029 = ╱eb╱ ; ╱ // 0x4048 @0x29
0x401f…404d at002a = ╱42╱B╱ // 0x4049 @0x2a
0x401f…404d at002b = ╱38╱8╱ // 0x404a @0x2b
0x401f…404d at002c = ╱ef╱ $ ╱ // 0x404b @0x2c
0x401f…404d at002d = EOL // 0x404c @0x2d
0x401f…404d }
0x404d…4060 c7ad 8070 PRINT TAB ( 3 ) ; A2 $
0x404d…4060 LineComalBcd {
0x404d…4060 ptr = 0xc7ad // 0x404d @0x0
0x404d…4060 lno = 0x8070 // 0x404f @0x2
0x404d…4060 at0004 = ╱92╱ PRINT ╱ // 0x4051 @0x4
0x404d…4060 at0005 = ╱d2╱ TAB ╱ // 0x4052 @0x5
0x404d…4060 at0006 = ╱ed╱ ( ╱ // 0x4053 @0x6
0x404d…4060 at0007 = ╱33╱3╱ // 0x4054 @0x7
0x404d…4060 at0008 = ╱fe0000c002╱ // 0x4055 @0x8
0x404d…4060 at000d = ╱ee╱ ) ╱ // 0x405a @0xd
0x404d…4060 at000e = ╱eb╱ ; ╱ // 0x405b @0xe
0x404d…4060 at000f = ╱41╱A╱ // 0x405c @0xf
0x404d…4060 at0010 = ╱32╱2╱ // 0x405d @0x10
0x404d…4060 at0011 = ╱ef╱ $ ╱ // 0x405e @0x11
0x404d…4060 at0012 = EOL // 0x405f @0x12
0x404d…4060 }
0x4060…4070 c7bd 8080 PRINT CHR ( 10 )
0x4060…4070 LineComalBcd {
0x4060…4070 ptr = 0xc7bd // 0x4060 @0x0
0x4060…4070 lno = 0x8080 // 0x4062 @0x2
0x4060…4070 at0004 = ╱92╱ PRINT ╱ // 0x4064 @0x4
0x4060…4070 at0005 = ╱cf╱ CHR ╱ // 0x4065 @0x5
0x4060…4070 at0006 = ╱ed╱ ( ╱ // 0x4066 @0x6
0x4060…4070 at0007 = ╱31╱1╱ // 0x4067 @0x7
0x4060…4070 at0008 = ╱30╱0╱ // 0x4068 @0x8
0x4060…4070 at0009 = ╱fe0000a004╱ // 0x4069 @0x9
0x4060…4070 at000e = ╱ee╱ ) ╱ // 0x406e @0xe
0x4060…4070 at000f = EOL // 0x406f @0xf
0x4060…4070 }
0x4070…4076 c7c3 8090 ENDPROC
0x4070…4076 LineComalBcd {
0x4070…4076 ptr = 0xc7c3 // 0x4070 @0x0
0x4070…4076 lno = 0x8090 // 0x4072 @0x2
0x4070…4076 at0004 = ╱9f╱ ENDPROC ╱ // 0x4074 @0x4
0x4070…4076 at0005 = EOL // 0x4075 @0x5
0x4070…4076 }
0x4076…4081 c7ce 8100 PROC UDBIL
0x4076…4081 LineComalBcd {
0x4076…4081 ptr = 0xc7ce // 0x4076 @0x0
0x4076…4081 lno = 0x8100 // 0x4078 @0x2
0x4076…4081 at0004 = ╱9e╱ PROC ╱ // 0x407a @0x4
0x4076…4081 at0005 = ╱55╱U╱ // 0x407b @0x5
0x4076…4081 at0006 = ╱44╱D╱ // 0x407c @0x6
0x4076…4081 at0007 = ╱42╱B╱ // 0x407d @0x7
0x4076…4081 at0008 = ╱49╱I╱ // 0x407e @0x8
0x4076…4081 at0009 = ╱4c╱L╱ // 0x407f @0x9
0x4076…4081 at000a = EOL // 0x4080 @0xa
0x4076…4081 }
0x4081…4087 c7d4 8110 CLEAR
0x4081…4087 LineComalBcd {
0x4081…4087 ptr = 0xc7d4 // 0x4081 @0x0
0x4081…4087 lno = 0x8110 // 0x4083 @0x2
0x4081…4087 at0004 = ╱a0╱ CLEAR ╱ // 0x4085 @0x4
0x4081…4087 at0005 = EOL // 0x4086 @0x5
0x4081…4087 }
0x4087…408d c7da 8120 REPEAT
0x4087…408d LineComalBcd {
0x4087…408d ptr = 0xc7da // 0x4087 @0x0
0x4087…408d lno = 0x8120 // 0x4089 @0x2
0x4087…408d at0004 = ╱97╱ REPEAT ╱ // 0x408b @0x4
0x4087…408d at0005 = EOL // 0x408c @0x5
0x4087…408d }
0x408d…40a1 c7ee 8130 CURSOR 8 , 13
0x408d…40a1 LineComalBcd {
0x408d…40a1 ptr = 0xc7ee // 0x408d @0x0
0x408d…40a1 lno = 0x8130 // 0x408f @0x2
0x408d…40a1 at0004 = ╱a1╱ CURSOR ╱ // 0x4091 @0x4
0x408d…40a1 at0005 = ╱38╱8╱ // 0x4092 @0x5
0x408d…40a1 at0006 = ╱fe00008004╱ // 0x4093 @0x6
0x408d…40a1 at000b = ╱ec╱ , ╱ // 0x4098 @0xb
0x408d…40a1 at000c = ╱31╱1╱ // 0x4099 @0xc
0x408d…40a1 at000d = ╱33╱3╱ // 0x409a @0xd
0x408d…40a1 at000e = ╱fe0000d004╱ // 0x409b @0xe
0x408d…40a1 at0013 = EOL // 0x40a0 @0x13
0x408d…40a1 }
0x40a1…40e4 c831 8140 INPUT "Monter…papir…til…udskrift…af…kasserapport…og…tast…RETURN" , A $
0x40a1…40e4 LineComalBcd {
0x40a1…40e4 ptr = 0xc831 // 0x40a1 @0x0
0x40a1…40e4 lno = 0x8140 // 0x40a3 @0x2
0x40a1…40e4 at0004 = ╱91╱ INPUT ╱ // 0x40a5 @0x4
0x40a1…40e4 at0005 = ╱22╱"╱ // 0x40a6 @0x5
0x40a1…40e4 at0006 = ╱4d╱M╱ // 0x40a7 @0x6
0x40a1…40e4 at0007 = ╱6f╱o╱ // 0x40a8 @0x7
0x40a1…40e4 at0008 = ╱6e╱n╱ // 0x40a9 @0x8
0x40a1…40e4 at0009 = ╱74╱t╱ // 0x40aa @0x9
0x40a1…40e4 at000a = ╱65╱e╱ // 0x40ab @0xa
0x40a1…40e4 at000b = ╱72╱r╱ // 0x40ac @0xb
0x40a1…40e4 at000c = ╱20╱…╱ // 0x40ad @0xc
0x40a1…40e4 at000d = ╱70╱p╱ // 0x40ae @0xd
0x40a1…40e4 at000e = ╱61╱a╱ // 0x40af @0xe
0x40a1…40e4 at000f = ╱70╱p╱ // 0x40b0 @0xf
0x40a1…40e4 at0010 = ╱69╱i╱ // 0x40b1 @0x10
0x40a1…40e4 at0011 = ╱72╱r╱ // 0x40b2 @0x11
0x40a1…40e4 at0012 = ╱20╱…╱ // 0x40b3 @0x12
0x40a1…40e4 at0013 = ╱74╱t╱ // 0x40b4 @0x13
0x40a1…40e4 at0014 = ╱69╱i╱ // 0x40b5 @0x14
0x40a1…40e4 at0015 = ╱6c╱l╱ // 0x40b6 @0x15
0x40a1…40e4 at0016 = ╱20╱…╱ // 0x40b7 @0x16
0x40a1…40e4 at0017 = ╱75╱u╱ // 0x40b8 @0x17
0x40a1…40e4 at0018 = ╱64╱d╱ // 0x40b9 @0x18
0x40a1…40e4 at0019 = ╱73╱s╱ // 0x40ba @0x19
0x40a1…40e4 at001a = ╱6b╱k╱ // 0x40bb @0x1a
0x40a1…40e4 at001b = ╱72╱r╱ // 0x40bc @0x1b
0x40a1…40e4 at001c = ╱69╱i╱ // 0x40bd @0x1c
0x40a1…40e4 at001d = ╱66╱f╱ // 0x40be @0x1d
0x40a1…40e4 at001e = ╱74╱t╱ // 0x40bf @0x1e
0x40a1…40e4 at001f = ╱20╱…╱ // 0x40c0 @0x1f
0x40a1…40e4 at0020 = ╱61╱a╱ // 0x40c1 @0x20
0x40a1…40e4 at0021 = ╱66╱f╱ // 0x40c2 @0x21
0x40a1…40e4 at0022 = ╱20╱…╱ // 0x40c3 @0x22
0x40a1…40e4 at0023 = ╱6b╱k╱ // 0x40c4 @0x23
0x40a1…40e4 at0024 = ╱61╱a╱ // 0x40c5 @0x24
0x40a1…40e4 at0025 = ╱73╱s╱ // 0x40c6 @0x25
0x40a1…40e4 at0026 = ╱73╱s╱ // 0x40c7 @0x26
0x40a1…40e4 at0027 = ╱65╱e╱ // 0x40c8 @0x27
0x40a1…40e4 at0028 = ╱72╱r╱ // 0x40c9 @0x28
0x40a1…40e4 at0029 = ╱61╱a╱ // 0x40ca @0x29
0x40a1…40e4 at002a = ╱70╱p╱ // 0x40cb @0x2a
0x40a1…40e4 at002b = ╱70╱p╱ // 0x40cc @0x2b
0x40a1…40e4 at002c = ╱6f╱o╱ // 0x40cd @0x2c
0x40a1…40e4 at002d = ╱72╱r╱ // 0x40ce @0x2d
0x40a1…40e4 at002e = ╱74╱t╱ // 0x40cf @0x2e
0x40a1…40e4 at002f = ╱20╱…╱ // 0x40d0 @0x2f
0x40a1…40e4 at0030 = ╱6f╱o╱ // 0x40d1 @0x30
0x40a1…40e4 at0031 = ╱67╱g╱ // 0x40d2 @0x31
0x40a1…40e4 at0032 = ╱20╱…╱ // 0x40d3 @0x32
0x40a1…40e4 at0033 = ╱74╱t╱ // 0x40d4 @0x33
0x40a1…40e4 at0034 = ╱61╱a╱ // 0x40d5 @0x34
0x40a1…40e4 at0035 = ╱73╱s╱ // 0x40d6 @0x35
0x40a1…40e4 at0036 = ╱74╱t╱ // 0x40d7 @0x36
0x40a1…40e4 at0037 = ╱20╱…╱ // 0x40d8 @0x37
0x40a1…40e4 at0038 = ╱52╱R╱ // 0x40d9 @0x38
0x40a1…40e4 at0039 = ╱45╱E╱ // 0x40da @0x39
0x40a1…40e4 at003a = ╱54╱T╱ // 0x40db @0x3a
0x40a1…40e4 at003b = ╱55╱U╱ // 0x40dc @0x3b
0x40a1…40e4 at003c = ╱52╱R╱ // 0x40dd @0x3c
0x40a1…40e4 at003d = ╱4e╱N╱ // 0x40de @0x3d
0x40a1…40e4 at003e = ╱22╱"╱ // 0x40df @0x3e
0x40a1…40e4 at003f = ╱ec╱ , ╱ // 0x40e0 @0x3f
0x40a1…40e4 at0040 = ╱41╱A╱ // 0x40e1 @0x40
0x40a1…40e4 at0041 = ╱ef╱ $ ╱ // 0x40e2 @0x41
0x40a1…40e4 at0042 = EOL // 0x40e3 @0x42
0x40a1…40e4 }
0x40e4…40f8 c845 8150 UNTIL ORD ( A $ ) = 255
0x40e4…40f8 LineComalBcd {
0x40e4…40f8 ptr = 0xc845 // 0x40e4 @0x0
0x40e4…40f8 lno = 0x8150 // 0x40e6 @0x2
0x40e4…40f8 at0004 = ╱98╱ UNTIL ╱ // 0x40e8 @0x4
0x40e4…40f8 at0005 = ╱cd╱ ORD ╱ // 0x40e9 @0x5
0x40e4…40f8 at0006 = ╱ed╱ ( ╱ // 0x40ea @0x6
0x40e4…40f8 at0007 = ╱41╱A╱ // 0x40eb @0x7
0x40e4…40f8 at0008 = ╱ef╱ $ ╱ // 0x40ec @0x8
0x40e4…40f8 at0009 = ╱ee╱ ) ╱ // 0x40ed @0x9
0x40e4…40f8 at000a = ╱dc╱ = ╱ // 0x40ee @0xa
0x40e4…40f8 at000b = ╱32╱2╱ // 0x40ef @0xb
0x40e4…40f8 at000c = ╱35╱5╱ // 0x40f0 @0xc
0x40e4…40f8 at000d = ╱35╱5╱ // 0x40f1 @0xd
0x40e4…40f8 at000e = ╱fe0000ff08╱ // 0x40f2 @0xe
0x40e4…40f8 at0013 = EOL // 0x40f7 @0x13
0x40e4…40f8 }
0x40f8…40fe (216,) c84b 8160 ENDPROC
0x40f8…40fe LineComalBcd {
0x40f8…40fe ptr = 0xc84b // 0x40f8 @0x0
0x40f8…40fe lno = 0x8160 // 0x40fa @0x2
0x40f8…40fe at0004 = ╱9f╱ ENDPROC ╱ // 0x40fc @0x4
0x40f8…40fe at0005 = EOL // 0x40fd @0x5
0x40f8…40fe }
0x40fe…4118 c865 8170 C2 $ = "P641220:SYSTEM1"
0x40fe…4118 LineComalBcd {
0x40fe…4118 ptr = 0xc865 // 0x40fe @0x0
0x40fe…4118 lno = 0x8170 // 0x4100 @0x2
0x40fe…4118 at0004 = ╱43╱C╱ // 0x4102 @0x4
0x40fe…4118 at0005 = ╱32╱2╱ // 0x4103 @0x5
0x40fe…4118 at0006 = ╱ef╱ $ ╱ // 0x4104 @0x6
0x40fe…4118 at0007 = ╱dc╱ = ╱ // 0x4105 @0x7
0x40fe…4118 at0008 = ╱22╱"╱ // 0x4106 @0x8
0x40fe…4118 at0009 = ╱50╱P╱ // 0x4107 @0x9
0x40fe…4118 at000a = ╱36╱6╱ // 0x4108 @0xa
0x40fe…4118 at000b = ╱34╱4╱ // 0x4109 @0xb
0x40fe…4118 at000c = ╱31╱1╱ // 0x410a @0xc
0x40fe…4118 at000d = ╱32╱2╱ // 0x410b @0xd
0x40fe…4118 at000e = ╱32╱2╱ // 0x410c @0xe
0x40fe…4118 at000f = ╱30╱0╱ // 0x410d @0xf
0x40fe…4118 at0010 = ╱3a╱:╱ // 0x410e @0x10
0x40fe…4118 at0011 = ╱53╱S╱ // 0x410f @0x11
0x40fe…4118 at0012 = ╱59╱Y╱ // 0x4110 @0x12
0x40fe…4118 at0013 = ╱53╱S╱ // 0x4111 @0x13
0x40fe…4118 at0014 = ╱54╱T╱ // 0x4112 @0x14
0x40fe…4118 at0015 = ╱45╱E╱ // 0x4113 @0x15
0x40fe…4118 at0016 = ╱4d╱M╱ // 0x4114 @0x16
0x40fe…4118 at0017 = ╱31╱1╱ // 0x4115 @0x17
0x40fe…4118 at0018 = ╱22╱"╱ // 0x4116 @0x18
0x40fe…4118 at0019 = EOL // 0x4117 @0x19
0x40fe…4118 }
0x4118…4123 c870 8180 OPEN C2 $ , R
0x4118…4123 LineComalBcd {
0x4118…4123 ptr = 0xc870 // 0x4118 @0x0
0x4118…4123 lno = 0x8180 // 0x411a @0x2
0x4118…4123 at0004 = ╱a7╱ OPEN ╱ // 0x411c @0x4
0x4118…4123 at0005 = ╱43╱C╱ // 0x411d @0x5
0x4118…4123 at0006 = ╱32╱2╱ // 0x411e @0x6
0x4118…4123 at0007 = ╱ef╱ $ ╱ // 0x411f @0x7
0x4118…4123 at0008 = ╱ec╱ , ╱ // 0x4120 @0x8
0x4118…4123 at0009 = ╱52╱R╱ // 0x4121 @0x9
0x4118…4123 at000a = EOL // 0x4122 @0xa
0x4118…4123 }
0x4123…4140 c88d 8190 EXEC FEJL ( 9 , 1 , C2 $ )
0x4123…4140 LineComalBcd {
0x4123…4140 ptr = 0xc88d // 0x4123 @0x0
0x4123…4140 lno = 0x8190 // 0x4125 @0x2
0x4123…4140 at0004 = ╱9d╱ EXEC ╱ // 0x4127 @0x4
0x4123…4140 at0005 = ╱46╱F╱ // 0x4128 @0x5
0x4123…4140 at0006 = ╱45╱E╱ // 0x4129 @0x6
0x4123…4140 at0007 = ╱4a╱J╱ // 0x412a @0x7
0x4123…4140 at0008 = ╱4c╱L╱ // 0x412b @0x8
0x4123…4140 at0009 = ╱ed╱ ( ╱ // 0x412c @0x9
0x4123…4140 at000a = ╱39╱9╱ // 0x412d @0xa
0x4123…4140 at000b = ╱fe00009004╱ // 0x412e @0xb
0x4123…4140 at0010 = ╱ec╱ , ╱ // 0x4133 @0x10
0x4123…4140 at0011 = ╱31╱1╱ // 0x4134 @0x11
0x4123…4140 at0012 = ╱fe00008001╱ // 0x4135 @0x12
0x4123…4140 at0017 = ╱ec╱ , ╱ // 0x413a @0x17
0x4123…4140 at0018 = ╱43╱C╱ // 0x413b @0x18
0x4123…4140 at0019 = ╱32╱2╱ // 0x413c @0x19
0x4123…4140 at001a = ╱ef╱ $ ╱ // 0x413d @0x1a
0x4123…4140 at001b = ╱ee╱ ) ╱ // 0x413e @0x1b
0x4123…4140 at001c = EOL // 0x413f @0x1c
0x4123…4140 }
0x4140…4159 c8a6 8200 GET C2 $ , 1 : M9 , N4 , N8
0x4140…4159 LineComalBcd {
0x4140…4159 ptr = 0xc8a6 // 0x4140 @0x0
0x4140…4159 lno = 0x8200 // 0x4142 @0x2
0x4140…4159 at0004 = ╱a9╱ GET ╱ // 0x4144 @0x4
0x4140…4159 at0005 = ╱43╱C╱ // 0x4145 @0x5
0x4140…4159 at0006 = ╱32╱2╱ // 0x4146 @0x6
0x4140…4159 at0007 = ╱ef╱ $ ╱ // 0x4147 @0x7
0x4140…4159 at0008 = ╱ec╱ , ╱ // 0x4148 @0x8
0x4140…4159 at0009 = ╱31╱1╱ // 0x4149 @0x9
0x4140…4159 at000a = ╱fe00008001╱ // 0x414a @0xa
0x4140…4159 at000f = ╱f0╱ : ╱ // 0x414f @0xf
0x4140…4159 at0010 = ╱4d╱M╱ // 0x4150 @0x10
0x4140…4159 at0011 = ╱39╱9╱ // 0x4151 @0x11
0x4140…4159 at0012 = ╱ec╱ , ╱ // 0x4152 @0x12
0x4140…4159 at0013 = ╱4e╱N╱ // 0x4153 @0x13
0x4140…4159 at0014 = ╱34╱4╱ // 0x4154 @0x14
0x4140…4159 at0015 = ╱ec╱ , ╱ // 0x4155 @0x15
0x4140…4159 at0016 = ╱4e╱N╱ // 0x4156 @0x16
0x4140…4159 at0017 = ╱38╱8╱ // 0x4157 @0x17
0x4140…4159 at0018 = EOL // 0x4158 @0x18
0x4140…4159 }
0x4159…4176 c8c3 8210 EXEC FEJL ( 9 , 2 , C2 $ )
0x4159…4176 LineComalBcd {
0x4159…4176 ptr = 0xc8c3 // 0x4159 @0x0
0x4159…4176 lno = 0x8210 // 0x415b @0x2
0x4159…4176 at0004 = ╱9d╱ EXEC ╱ // 0x415d @0x4
0x4159…4176 at0005 = ╱46╱F╱ // 0x415e @0x5
0x4159…4176 at0006 = ╱45╱E╱ // 0x415f @0x6
0x4159…4176 at0007 = ╱4a╱J╱ // 0x4160 @0x7
0x4159…4176 at0008 = ╱4c╱L╱ // 0x4161 @0x8
0x4159…4176 at0009 = ╱ed╱ ( ╱ // 0x4162 @0x9
0x4159…4176 at000a = ╱39╱9╱ // 0x4163 @0xa
0x4159…4176 at000b = ╱fe00009004╱ // 0x4164 @0xb
0x4159…4176 at0010 = ╱ec╱ , ╱ // 0x4169 @0x10
0x4159…4176 at0011 = ╱32╱2╱ // 0x416a @0x11
0x4159…4176 at0012 = ╱fe00008002╱ // 0x416b @0x12
0x4159…4176 at0017 = ╱ec╱ , ╱ // 0x4170 @0x17
0x4159…4176 at0018 = ╱43╱C╱ // 0x4171 @0x18
0x4159…4176 at0019 = ╱32╱2╱ // 0x4172 @0x19
0x4159…4176 at001a = ╱ef╱ $ ╱ // 0x4173 @0x1a
0x4159…4176 at001b = ╱ee╱ ) ╱ // 0x4174 @0x1b
0x4159…4176 at001c = EOL // 0x4175 @0x1c
0x4159…4176 }
0x4176…418f c8dc 8220 GET C2 $ , 2 : R9 , S0 , S1
0x4176…418f LineComalBcd {
0x4176…418f ptr = 0xc8dc // 0x4176 @0x0
0x4176…418f lno = 0x8220 // 0x4178 @0x2
0x4176…418f at0004 = ╱a9╱ GET ╱ // 0x417a @0x4
0x4176…418f at0005 = ╱43╱C╱ // 0x417b @0x5
0x4176…418f at0006 = ╱32╱2╱ // 0x417c @0x6
0x4176…418f at0007 = ╱ef╱ $ ╱ // 0x417d @0x7
0x4176…418f at0008 = ╱ec╱ , ╱ // 0x417e @0x8
0x4176…418f at0009 = ╱32╱2╱ // 0x417f @0x9
0x4176…418f at000a = ╱fe00008002╱ // 0x4180 @0xa
0x4176…418f at000f = ╱f0╱ : ╱ // 0x4185 @0xf
0x4176…418f at0010 = ╱52╱R╱ // 0x4186 @0x10
0x4176…418f at0011 = ╱39╱9╱ // 0x4187 @0x11
0x4176…418f at0012 = ╱ec╱ , ╱ // 0x4188 @0x12
0x4176…418f at0013 = ╱53╱S╱ // 0x4189 @0x13
0x4176…418f at0014 = ╱30╱0╱ // 0x418a @0x14
0x4176…418f at0015 = ╱ec╱ , ╱ // 0x418b @0x15
0x4176…418f at0016 = ╱53╱S╱ // 0x418c @0x16
0x4176…418f at0017 = ╱31╱1╱ // 0x418d @0x17
0x4176…418f at0018 = EOL // 0x418e @0x18
0x4176…418f }
0x418f…41ac c8f9 8230 EXEC FEJL ( 9 , 3 , C2 $ )
0x418f…41ac LineComalBcd {
0x418f…41ac ptr = 0xc8f9 // 0x418f @0x0
0x418f…41ac lno = 0x8230 // 0x4191 @0x2
0x418f…41ac at0004 = ╱9d╱ EXEC ╱ // 0x4193 @0x4
0x418f…41ac at0005 = ╱46╱F╱ // 0x4194 @0x5
0x418f…41ac at0006 = ╱45╱E╱ // 0x4195 @0x6
0x418f…41ac at0007 = ╱4a╱J╱ // 0x4196 @0x7
0x418f…41ac at0008 = ╱4c╱L╱ // 0x4197 @0x8
0x418f…41ac at0009 = ╱ed╱ ( ╱ // 0x4198 @0x9
0x418f…41ac at000a = ╱39╱9╱ // 0x4199 @0xa
0x418f…41ac at000b = ╱fe00009004╱ // 0x419a @0xb
0x418f…41ac at0010 = ╱ec╱ , ╱ // 0x419f @0x10
0x418f…41ac at0011 = ╱33╱3╱ // 0x41a0 @0x11
0x418f…41ac at0012 = ╱fe0000c002╱ // 0x41a1 @0x12
0x418f…41ac at0017 = ╱ec╱ , ╱ // 0x41a6 @0x17
0x418f…41ac at0018 = ╱43╱C╱ // 0x41a7 @0x18
0x418f…41ac at0019 = ╱32╱2╱ // 0x41a8 @0x19
0x418f…41ac at001a = ╱ef╱ $ ╱ // 0x41a9 @0x1a
0x418f…41ac at001b = ╱ee╱ ) ╱ // 0x41aa @0x1b
0x418f…41ac at001c = EOL // 0x41ab @0x1c
0x418f…41ac }
0x41ac…41c8 c915 8240 GET C2 $ , 4 : S2 , S3 , S4 , N1
0x41ac…41c8 LineComalBcd {
0x41ac…41c8 ptr = 0xc915 // 0x41ac @0x0
0x41ac…41c8 lno = 0x8240 // 0x41ae @0x2
0x41ac…41c8 at0004 = ╱a9╱ GET ╱ // 0x41b0 @0x4
0x41ac…41c8 at0005 = ╱43╱C╱ // 0x41b1 @0x5
0x41ac…41c8 at0006 = ╱32╱2╱ // 0x41b2 @0x6
0x41ac…41c8 at0007 = ╱ef╱ $ ╱ // 0x41b3 @0x7
0x41ac…41c8 at0008 = ╱ec╱ , ╱ // 0x41b4 @0x8
0x41ac…41c8 at0009 = ╱34╱4╱ // 0x41b5 @0x9
0x41ac…41c8 at000a = ╱fe00008003╱ // 0x41b6 @0xa
0x41ac…41c8 at000f = ╱f0╱ : ╱ // 0x41bb @0xf
0x41ac…41c8 at0010 = ╱53╱S╱ // 0x41bc @0x10
0x41ac…41c8 at0011 = ╱32╱2╱ // 0x41bd @0x11
0x41ac…41c8 at0012 = ╱ec╱ , ╱ // 0x41be @0x12
0x41ac…41c8 at0013 = ╱53╱S╱ // 0x41bf @0x13
0x41ac…41c8 at0014 = ╱33╱3╱ // 0x41c0 @0x14
0x41ac…41c8 at0015 = ╱ec╱ , ╱ // 0x41c1 @0x15
0x41ac…41c8 at0016 = ╱53╱S╱ // 0x41c2 @0x16
0x41ac…41c8 at0017 = ╱34╱4╱ // 0x41c3 @0x17
0x41ac…41c8 at0018 = ╱ec╱ , ╱ // 0x41c4 @0x18
0x41ac…41c8 at0019 = ╱4e╱N╱ // 0x41c5 @0x19
0x41ac…41c8 at001a = ╱31╱1╱ // 0x41c6 @0x1a
0x41ac…41c8 at001b = EOL // 0x41c7 @0x1b
0x41ac…41c8 }
0x41c8…41e5 c932 8250 EXEC FEJL ( 9 , 4 , C2 $ )
0x41c8…41e5 LineComalBcd {
0x41c8…41e5 ptr = 0xc932 // 0x41c8 @0x0
0x41c8…41e5 lno = 0x8250 // 0x41ca @0x2
0x41c8…41e5 at0004 = ╱9d╱ EXEC ╱ // 0x41cc @0x4
0x41c8…41e5 at0005 = ╱46╱F╱ // 0x41cd @0x5
0x41c8…41e5 at0006 = ╱45╱E╱ // 0x41ce @0x6
0x41c8…41e5 at0007 = ╱4a╱J╱ // 0x41cf @0x7
0x41c8…41e5 at0008 = ╱4c╱L╱ // 0x41d0 @0x8
0x41c8…41e5 at0009 = ╱ed╱ ( ╱ // 0x41d1 @0x9
0x41c8…41e5 at000a = ╱39╱9╱ // 0x41d2 @0xa
0x41c8…41e5 at000b = ╱fe00009004╱ // 0x41d3 @0xb
0x41c8…41e5 at0010 = ╱ec╱ , ╱ // 0x41d8 @0x10
0x41c8…41e5 at0011 = ╱34╱4╱ // 0x41d9 @0x11
0x41c8…41e5 at0012 = ╱fe00008003╱ // 0x41da @0x12
0x41c8…41e5 at0017 = ╱ec╱ , ╱ // 0x41df @0x17
0x41c8…41e5 at0018 = ╱43╱C╱ // 0x41e0 @0x18
0x41c8…41e5 at0019 = ╱32╱2╱ // 0x41e1 @0x19
0x41c8…41e5 at001a = ╱ef╱ $ ╱ // 0x41e2 @0x1a
0x41c8…41e5 at001b = ╱ee╱ ) ╱ // 0x41e3 @0x1b
0x41c8…41e5 at001c = EOL // 0x41e4 @0x1c
0x41c8…41e5 }
0x41e5…41f8 c945 8260 GET C2 $ , 5 : N6
0x41e5…41f8 LineComalBcd {
0x41e5…41f8 ptr = 0xc945 // 0x41e5 @0x0
0x41e5…41f8 lno = 0x8260 // 0x41e7 @0x2
0x41e5…41f8 at0004 = ╱a9╱ GET ╱ // 0x41e9 @0x4
0x41e5…41f8 at0005 = ╱43╱C╱ // 0x41ea @0x5
0x41e5…41f8 at0006 = ╱32╱2╱ // 0x41eb @0x6
0x41e5…41f8 at0007 = ╱ef╱ $ ╱ // 0x41ec @0x7
0x41e5…41f8 at0008 = ╱ec╱ , ╱ // 0x41ed @0x8
0x41e5…41f8 at0009 = ╱35╱5╱ // 0x41ee @0x9
0x41e5…41f8 at000a = ╱fe0000a003╱ // 0x41ef @0xa
0x41e5…41f8 at000f = ╱f0╱ : ╱ // 0x41f4 @0xf
0x41e5…41f8 at0010 = ╱4e╱N╱ // 0x41f5 @0x10
0x41e5…41f8 at0011 = ╱36╱6╱ // 0x41f6 @0x11
0x41e5…41f8 at0012 = EOL // 0x41f7 @0x12
0x41e5…41f8 }
0x41f8…4215 c962 8270 EXEC FEJL ( 9 , 5 , C2 $ )
0x41f8…4215 LineComalBcd {
0x41f8…4215 ptr = 0xc962 // 0x41f8 @0x0
0x41f8…4215 lno = 0x8270 // 0x41fa @0x2
0x41f8…4215 at0004 = ╱9d╱ EXEC ╱ // 0x41fc @0x4
0x41f8…4215 at0005 = ╱46╱F╱ // 0x41fd @0x5
0x41f8…4215 at0006 = ╱45╱E╱ // 0x41fe @0x6
0x41f8…4215 at0007 = ╱4a╱J╱ // 0x41ff @0x7
0x41f8…4215 at0008 = ╱4c╱L╱ // 0x4200 @0x8
0x41f8…4215 at0009 = ╱ed╱ ( ╱ // 0x4201 @0x9
0x41f8…4215 at000a = ╱39╱9╱ // 0x4202 @0xa
0x41f8…4215 at000b = ╱fe00009004╱ // 0x4203 @0xb
0x41f8…4215 at0010 = ╱ec╱ , ╱ // 0x4208 @0x10
0x41f8…4215 at0011 = ╱35╱5╱ // 0x4209 @0x11
0x41f8…4215 at0012 = ╱fe0000a003╱ // 0x420a @0x12
0x41f8…4215 at0017 = ╱ec╱ , ╱ // 0x420f @0x17
0x41f8…4215 at0018 = ╱43╱C╱ // 0x4210 @0x18
0x41f8…4215 at0019 = ╱32╱2╱ // 0x4211 @0x19
0x41f8…4215 at001a = ╱ef╱ $ ╱ // 0x4212 @0x1a
0x41f8…4215 at001b = ╱ee╱ ) ╱ // 0x4213 @0x1b
0x41f8…4215 at001c = EOL // 0x4214 @0x1c
0x41f8…4215 }
0x4215…422e c97b 8280 GET C2 $ , 6 : S5 , S6 , S7
0x4215…422e LineComalBcd {
0x4215…422e ptr = 0xc97b // 0x4215 @0x0
0x4215…422e lno = 0x8280 // 0x4217 @0x2
0x4215…422e at0004 = ╱a9╱ GET ╱ // 0x4219 @0x4
0x4215…422e at0005 = ╱43╱C╱ // 0x421a @0x5
0x4215…422e at0006 = ╱32╱2╱ // 0x421b @0x6
0x4215…422e at0007 = ╱ef╱ $ ╱ // 0x421c @0x7
0x4215…422e at0008 = ╱ec╱ , ╱ // 0x421d @0x8
0x4215…422e at0009 = ╱36╱6╱ // 0x421e @0x9
0x4215…422e at000a = ╱fe0000c003╱ // 0x421f @0xa
0x4215…422e at000f = ╱f0╱ : ╱ // 0x4224 @0xf
0x4215…422e at0010 = ╱53╱S╱ // 0x4225 @0x10
0x4215…422e at0011 = ╱35╱5╱ // 0x4226 @0x11
0x4215…422e at0012 = ╱ec╱ , ╱ // 0x4227 @0x12
0x4215…422e at0013 = ╱53╱S╱ // 0x4228 @0x13
0x4215…422e at0014 = ╱36╱6╱ // 0x4229 @0x14
0x4215…422e at0015 = ╱ec╱ , ╱ // 0x422a @0x15
0x4215…422e at0016 = ╱53╱S╱ // 0x422b @0x16
0x4215…422e at0017 = ╱37╱7╱ // 0x422c @0x17
0x4215…422e at0018 = EOL // 0x422d @0x18
0x4215…422e }
0x422e…424b c998 8290 EXEC FEJL ( 9 , 6 , C2 $ )
0x422e…424b LineComalBcd {
0x422e…424b ptr = 0xc998 // 0x422e @0x0
0x422e…424b lno = 0x8290 // 0x4230 @0x2
0x422e…424b at0004 = ╱9d╱ EXEC ╱ // 0x4232 @0x4
0x422e…424b at0005 = ╱46╱F╱ // 0x4233 @0x5
0x422e…424b at0006 = ╱45╱E╱ // 0x4234 @0x6
0x422e…424b at0007 = ╱4a╱J╱ // 0x4235 @0x7
0x422e…424b at0008 = ╱4c╱L╱ // 0x4236 @0x8
0x422e…424b at0009 = ╱ed╱ ( ╱ // 0x4237 @0x9
0x422e…424b at000a = ╱39╱9╱ // 0x4238 @0xa
0x422e…424b at000b = ╱fe00009004╱ // 0x4239 @0xb
0x422e…424b at0010 = ╱ec╱ , ╱ // 0x423e @0x10
0x422e…424b at0011 = ╱36╱6╱ // 0x423f @0x11
0x422e…424b at0012 = ╱fe0000c003╱ // 0x4240 @0x12
0x422e…424b at0017 = ╱ec╱ , ╱ // 0x4245 @0x17
0x422e…424b at0018 = ╱43╱C╱ // 0x4246 @0x18
0x422e…424b at0019 = ╱32╱2╱ // 0x4247 @0x19
0x422e…424b at001a = ╱ef╱ $ ╱ // 0x4248 @0x1a
0x422e…424b at001b = ╱ee╱ ) ╱ // 0x4249 @0x1b
0x422e…424b at001c = EOL // 0x424a @0x1c
0x422e…424b }
0x424b…4267 c9b4 8300 GET C2 $ , 8 : S8 , S9 , T0 , J1
0x424b…4267 LineComalBcd {
0x424b…4267 ptr = 0xc9b4 // 0x424b @0x0
0x424b…4267 lno = 0x8300 // 0x424d @0x2
0x424b…4267 at0004 = ╱a9╱ GET ╱ // 0x424f @0x4
0x424b…4267 at0005 = ╱43╱C╱ // 0x4250 @0x5
0x424b…4267 at0006 = ╱32╱2╱ // 0x4251 @0x6
0x424b…4267 at0007 = ╱ef╱ $ ╱ // 0x4252 @0x7
0x424b…4267 at0008 = ╱ec╱ , ╱ // 0x4253 @0x8
0x424b…4267 at0009 = ╱38╱8╱ // 0x4254 @0x9
0x424b…4267 at000a = ╱fe00008004╱ // 0x4255 @0xa
0x424b…4267 at000f = ╱f0╱ : ╱ // 0x425a @0xf
0x424b…4267 at0010 = ╱53╱S╱ // 0x425b @0x10
0x424b…4267 at0011 = ╱38╱8╱ // 0x425c @0x11
0x424b…4267 at0012 = ╱ec╱ , ╱ // 0x425d @0x12
0x424b…4267 at0013 = ╱53╱S╱ // 0x425e @0x13
0x424b…4267 at0014 = ╱39╱9╱ // 0x425f @0x14
0x424b…4267 at0015 = ╱ec╱ , ╱ // 0x4260 @0x15
0x424b…4267 at0016 = ╱54╱T╱ // 0x4261 @0x16
0x424b…4267 at0017 = ╱30╱0╱ // 0x4262 @0x17
0x424b…4267 at0018 = ╱ec╱ , ╱ // 0x4263 @0x18
0x424b…4267 at0019 = ╱4a╱J╱ // 0x4264 @0x19
0x424b…4267 at001a = ╱31╱1╱ // 0x4265 @0x1a
0x424b…4267 at001b = EOL // 0x4266 @0x1b
0x424b…4267 }
0x4267…4284 c9d1 8310 EXEC FEJL ( 9 , 7 , C2 $ )
0x4267…4284 LineComalBcd {
0x4267…4284 ptr = 0xc9d1 // 0x4267 @0x0
0x4267…4284 lno = 0x8310 // 0x4269 @0x2
0x4267…4284 at0004 = ╱9d╱ EXEC ╱ // 0x426b @0x4
0x4267…4284 at0005 = ╱46╱F╱ // 0x426c @0x5
0x4267…4284 at0006 = ╱45╱E╱ // 0x426d @0x6
0x4267…4284 at0007 = ╱4a╱J╱ // 0x426e @0x7
0x4267…4284 at0008 = ╱4c╱L╱ // 0x426f @0x8
0x4267…4284 at0009 = ╱ed╱ ( ╱ // 0x4270 @0x9
0x4267…4284 at000a = ╱39╱9╱ // 0x4271 @0xa
0x4267…4284 at000b = ╱fe00009004╱ // 0x4272 @0xb
0x4267…4284 at0010 = ╱ec╱ , ╱ // 0x4277 @0x10
0x4267…4284 at0011 = ╱37╱7╱ // 0x4278 @0x11
0x4267…4284 at0012 = ╱fe0000e003╱ // 0x4279 @0x12
0x4267…4284 at0017 = ╱ec╱ , ╱ // 0x427e @0x17
0x4267…4284 at0018 = ╱43╱C╱ // 0x427f @0x18
0x4267…4284 at0019 = ╱32╱2╱ // 0x4280 @0x19
0x4267…4284 at001a = ╱ef╱ $ ╱ // 0x4281 @0x1a
0x4267…4284 at001b = ╱ee╱ ) ╱ // 0x4282 @0x1b
0x4267…4284 at001c = EOL // 0x4283 @0x1c
0x4267…4284 }
0x4284…4297 c9e4 8320 GET C2 $ , 9 : J2
0x4284…4297 LineComalBcd {
0x4284…4297 ptr = 0xc9e4 // 0x4284 @0x0
0x4284…4297 lno = 0x8320 // 0x4286 @0x2
0x4284…4297 at0004 = ╱a9╱ GET ╱ // 0x4288 @0x4
0x4284…4297 at0005 = ╱43╱C╱ // 0x4289 @0x5
0x4284…4297 at0006 = ╱32╱2╱ // 0x428a @0x6
0x4284…4297 at0007 = ╱ef╱ $ ╱ // 0x428b @0x7
0x4284…4297 at0008 = ╱ec╱ , ╱ // 0x428c @0x8
0x4284…4297 at0009 = ╱39╱9╱ // 0x428d @0x9
0x4284…4297 at000a = ╱fe00009004╱ // 0x428e @0xa
0x4284…4297 at000f = ╱f0╱ : ╱ // 0x4293 @0xf
0x4284…4297 at0010 = ╱4a╱J╱ // 0x4294 @0x10
0x4284…4297 at0011 = ╱32╱2╱ // 0x4295 @0x11
0x4284…4297 at0012 = EOL // 0x4296 @0x12
0x4284…4297 }
0x4297…42b4 ca01 8330 EXEC FEJL ( 9 , 8 , C2 $ )
0x4297…42b4 LineComalBcd {
0x4297…42b4 ptr = 0xca01 // 0x4297 @0x0
0x4297…42b4 lno = 0x8330 // 0x4299 @0x2
0x4297…42b4 at0004 = ╱9d╱ EXEC ╱ // 0x429b @0x4
0x4297…42b4 at0005 = ╱46╱F╱ // 0x429c @0x5
0x4297…42b4 at0006 = ╱45╱E╱ // 0x429d @0x6
0x4297…42b4 at0007 = ╱4a╱J╱ // 0x429e @0x7
0x4297…42b4 at0008 = ╱4c╱L╱ // 0x429f @0x8
0x4297…42b4 at0009 = ╱ed╱ ( ╱ // 0x42a0 @0x9
0x4297…42b4 at000a = ╱39╱9╱ // 0x42a1 @0xa
0x4297…42b4 at000b = ╱fe00009004╱ // 0x42a2 @0xb
0x4297…42b4 at0010 = ╱ec╱ , ╱ // 0x42a7 @0x10
0x4297…42b4 at0011 = ╱38╱8╱ // 0x42a8 @0x11
0x4297…42b4 at0012 = ╱fe00008004╱ // 0x42a9 @0x12
0x4297…42b4 at0017 = ╱ec╱ , ╱ // 0x42ae @0x17
0x4297…42b4 at0018 = ╱43╱C╱ // 0x42af @0x18
0x4297…42b4 at0019 = ╱32╱2╱ // 0x42b0 @0x19
0x4297…42b4 at001a = ╱ef╱ $ ╱ // 0x42b1 @0x1a
0x4297…42b4 at001b = ╱ee╱ ) ╱ // 0x42b2 @0x1b
0x4297…42b4 at001c = EOL // 0x42b3 @0x1c
0x4297…42b4 }
0x42b4…42c9 ca16 8340 GET C2 $ , 10 : E7 $
0x42b4…42c9 LineComalBcd {
0x42b4…42c9 ptr = 0xca16 // 0x42b4 @0x0
0x42b4…42c9 lno = 0x8340 // 0x42b6 @0x2
0x42b4…42c9 at0004 = ╱a9╱ GET ╱ // 0x42b8 @0x4
0x42b4…42c9 at0005 = ╱43╱C╱ // 0x42b9 @0x5
0x42b4…42c9 at0006 = ╱32╱2╱ // 0x42ba @0x6
0x42b4…42c9 at0007 = ╱ef╱ $ ╱ // 0x42bb @0x7
0x42b4…42c9 at0008 = ╱ec╱ , ╱ // 0x42bc @0x8
0x42b4…42c9 at0009 = ╱31╱1╱ // 0x42bd @0x9
0x42b4…42c9 at000a = ╱30╱0╱ // 0x42be @0xa
0x42b4…42c9 at000b = ╱fe0000a004╱ // 0x42bf @0xb
0x42b4…42c9 at0010 = ╱f0╱ : ╱ // 0x42c4 @0x10
0x42b4…42c9 at0011 = ╱45╱E╱ // 0x42c5 @0x11
0x42b4…42c9 at0012 = ╱37╱7╱ // 0x42c6 @0x12
0x42b4…42c9 at0013 = ╱ef╱ $ ╱ // 0x42c7 @0x13
0x42b4…42c9 at0014 = EOL // 0x42c8 @0x14
0x42b4…42c9 }
0x42c9…42e6 ca33 8350 EXEC FEJL ( 9 , 9 , C2 $ )
0x42c9…42e6 LineComalBcd {
0x42c9…42e6 ptr = 0xca33 // 0x42c9 @0x0
0x42c9…42e6 lno = 0x8350 // 0x42cb @0x2
0x42c9…42e6 at0004 = ╱9d╱ EXEC ╱ // 0x42cd @0x4
0x42c9…42e6 at0005 = ╱46╱F╱ // 0x42ce @0x5
0x42c9…42e6 at0006 = ╱45╱E╱ // 0x42cf @0x6
0x42c9…42e6 at0007 = ╱4a╱J╱ // 0x42d0 @0x7
0x42c9…42e6 at0008 = ╱4c╱L╱ // 0x42d1 @0x8
0x42c9…42e6 at0009 = ╱ed╱ ( ╱ // 0x42d2 @0x9
0x42c9…42e6 at000a = ╱39╱9╱ // 0x42d3 @0xa
0x42c9…42e6 at000b = ╱fe00009004╱ // 0x42d4 @0xb
0x42c9…42e6 at0010 = ╱ec╱ , ╱ // 0x42d9 @0x10
0x42c9…42e6 at0011 = ╱39╱9╱ // 0x42da @0x11
0x42c9…42e6 at0012 = ╱fe00009004╱ // 0x42db @0x12
0x42c9…42e6 at0017 = ╱ec╱ , ╱ // 0x42e0 @0x17
0x42c9…42e6 at0018 = ╱43╱C╱ // 0x42e1 @0x18
0x42c9…42e6 at0019 = ╱32╱2╱ // 0x42e2 @0x19
0x42c9…42e6 at001a = ╱ef╱ $ ╱ // 0x42e3 @0x1a
0x42c9…42e6 at001b = ╱ee╱ ) ╱ // 0x42e4 @0x1b
0x42c9…42e6 at001c = EOL // 0x42e5 @0x1c
0x42c9…42e6 }
0x42e6…42fb ca48 8360 GET C2 $ , 11 : A6 $
0x42e6…42fb LineComalBcd {
0x42e6…42fb ptr = 0xca48 // 0x42e6 @0x0
0x42e6…42fb lno = 0x8360 // 0x42e8 @0x2
0x42e6…42fb at0004 = ╱a9╱ GET ╱ // 0x42ea @0x4
0x42e6…42fb at0005 = ╱43╱C╱ // 0x42eb @0x5
0x42e6…42fb at0006 = ╱32╱2╱ // 0x42ec @0x6
0x42e6…42fb at0007 = ╱ef╱ $ ╱ // 0x42ed @0x7
0x42e6…42fb at0008 = ╱ec╱ , ╱ // 0x42ee @0x8
0x42e6…42fb at0009 = ╱31╱1╱ // 0x42ef @0x9
0x42e6…42fb at000a = ╱31╱1╱ // 0x42f0 @0xa
0x42e6…42fb at000b = ╱fe0000b004╱ // 0x42f1 @0xb
0x42e6…42fb at0010 = ╱f0╱ : ╱ // 0x42f6 @0x10
0x42e6…42fb at0011 = ╱41╱A╱ // 0x42f7 @0x11
0x42e6…42fb at0012 = ╱36╱6╱ // 0x42f8 @0x12
0x42e6…42fb at0013 = ╱ef╱ $ ╱ // 0x42f9 @0x13
0x42e6…42fb at0014 = EOL // 0x42fa @0x14
0x42e6…42fb }
0x42fb…4319 ca66 8370 EXEC FEJL ( 9 , 10 , C2 $ )
0x42fb…4319 LineComalBcd {
0x42fb…4319 ptr = 0xca66 // 0x42fb @0x0
0x42fb…4319 lno = 0x8370 // 0x42fd @0x2
0x42fb…4319 at0004 = ╱9d╱ EXEC ╱ // 0x42ff @0x4
0x42fb…4319 at0005 = ╱46╱F╱ // 0x4300 @0x5
0x42fb…4319 at0006 = ╱45╱E╱ // 0x4301 @0x6
0x42fb…4319 at0007 = ╱4a╱J╱ // 0x4302 @0x7
0x42fb…4319 at0008 = ╱4c╱L╱ // 0x4303 @0x8
0x42fb…4319 at0009 = ╱ed╱ ( ╱ // 0x4304 @0x9
0x42fb…4319 at000a = ╱39╱9╱ // 0x4305 @0xa
0x42fb…4319 at000b = ╱fe00009004╱ // 0x4306 @0xb
0x42fb…4319 at0010 = ╱ec╱ , ╱ // 0x430b @0x10
0x42fb…4319 at0011 = ╱31╱1╱ // 0x430c @0x11
0x42fb…4319 at0012 = ╱30╱0╱ // 0x430d @0x12
0x42fb…4319 at0013 = ╱fe0000a004╱ // 0x430e @0x13
0x42fb…4319 at0018 = ╱ec╱ , ╱ // 0x4313 @0x18
0x42fb…4319 at0019 = ╱43╱C╱ // 0x4314 @0x19
0x42fb…4319 at001a = ╱32╱2╱ // 0x4315 @0x1a
0x42fb…4319 at001b = ╱ef╱ $ ╱ // 0x4316 @0x1b
0x42fb…4319 at001c = ╱ee╱ ) ╱ // 0x4317 @0x1c
0x42fb…4319 at001d = EOL // 0x4318 @0x1d
0x42fb…4319 }
0x4319…432e ca7b 8380 GET C2 $ , 12 : A4 $
0x4319…432e LineComalBcd {
0x4319…432e ptr = 0xca7b // 0x4319 @0x0
0x4319…432e lno = 0x8380 // 0x431b @0x2
0x4319…432e at0004 = ╱a9╱ GET ╱ // 0x431d @0x4
0x4319…432e at0005 = ╱43╱C╱ // 0x431e @0x5
0x4319…432e at0006 = ╱32╱2╱ // 0x431f @0x6
0x4319…432e at0007 = ╱ef╱ $ ╱ // 0x4320 @0x7
0x4319…432e at0008 = ╱ec╱ , ╱ // 0x4321 @0x8
0x4319…432e at0009 = ╱31╱1╱ // 0x4322 @0x9
0x4319…432e at000a = ╱32╱2╱ // 0x4323 @0xa
0x4319…432e at000b = ╱fe0000c004╱ // 0x4324 @0xb
0x4319…432e at0010 = ╱f0╱ : ╱ // 0x4329 @0x10
0x4319…432e at0011 = ╱41╱A╱ // 0x432a @0x11
0x4319…432e at0012 = ╱34╱4╱ // 0x432b @0x12
0x4319…432e at0013 = ╱ef╱ $ ╱ // 0x432c @0x13
0x4319…432e at0014 = EOL // 0x432d @0x14
0x4319…432e }
0x432e…434c ca99 8390 EXEC FEJL ( 9 , 11 , C2 $ )
0x432e…434c LineComalBcd {
0x432e…434c ptr = 0xca99 // 0x432e @0x0
0x432e…434c lno = 0x8390 // 0x4330 @0x2
0x432e…434c at0004 = ╱9d╱ EXEC ╱ // 0x4332 @0x4
0x432e…434c at0005 = ╱46╱F╱ // 0x4333 @0x5
0x432e…434c at0006 = ╱45╱E╱ // 0x4334 @0x6
0x432e…434c at0007 = ╱4a╱J╱ // 0x4335 @0x7
0x432e…434c at0008 = ╱4c╱L╱ // 0x4336 @0x8
0x432e…434c at0009 = ╱ed╱ ( ╱ // 0x4337 @0x9
0x432e…434c at000a = ╱39╱9╱ // 0x4338 @0xa
0x432e…434c at000b = ╱fe00009004╱ // 0x4339 @0xb
0x432e…434c at0010 = ╱ec╱ , ╱ // 0x433e @0x10
0x432e…434c at0011 = ╱31╱1╱ // 0x433f @0x11
0x432e…434c at0012 = ╱31╱1╱ // 0x4340 @0x12
0x432e…434c at0013 = ╱fe0000b004╱ // 0x4341 @0x13
0x432e…434c at0018 = ╱ec╱ , ╱ // 0x4346 @0x18
0x432e…434c at0019 = ╱43╱C╱ // 0x4347 @0x19
0x432e…434c at001a = ╱32╱2╱ // 0x4348 @0x1a
0x432e…434c at001b = ╱ef╱ $ ╱ // 0x4349 @0x1b
0x432e…434c at001c = ╱ee╱ ) ╱ // 0x434a @0x1c
0x432e…434c at001d = EOL // 0x434b @0x1d
0x432e…434c }
0x434c…4361 caae 8400 GET C2 $ , 13 : B6 $
0x434c…4361 LineComalBcd {
0x434c…4361 ptr = 0xcaae // 0x434c @0x0
0x434c…4361 lno = 0x8400 // 0x434e @0x2
0x434c…4361 at0004 = ╱a9╱ GET ╱ // 0x4350 @0x4
0x434c…4361 at0005 = ╱43╱C╱ // 0x4351 @0x5
0x434c…4361 at0006 = ╱32╱2╱ // 0x4352 @0x6
0x434c…4361 at0007 = ╱ef╱ $ ╱ // 0x4353 @0x7
0x434c…4361 at0008 = ╱ec╱ , ╱ // 0x4354 @0x8
0x434c…4361 at0009 = ╱31╱1╱ // 0x4355 @0x9
0x434c…4361 at000a = ╱33╱3╱ // 0x4356 @0xa
0x434c…4361 at000b = ╱fe0000d004╱ // 0x4357 @0xb
0x434c…4361 at0010 = ╱f0╱ : ╱ // 0x435c @0x10
0x434c…4361 at0011 = ╱42╱B╱ // 0x435d @0x11
0x434c…4361 at0012 = ╱36╱6╱ // 0x435e @0x12
0x434c…4361 at0013 = ╱ef╱ $ ╱ // 0x435f @0x13
0x434c…4361 at0014 = EOL // 0x4360 @0x14
0x434c…4361 }
0x4361…437f cacc 8410 EXEC FEJL ( 9 , 12 , C2 $ )
0x4361…437f LineComalBcd {
0x4361…437f ptr = 0xcacc // 0x4361 @0x0
0x4361…437f lno = 0x8410 // 0x4363 @0x2
0x4361…437f at0004 = ╱9d╱ EXEC ╱ // 0x4365 @0x4
0x4361…437f at0005 = ╱46╱F╱ // 0x4366 @0x5
0x4361…437f at0006 = ╱45╱E╱ // 0x4367 @0x6
0x4361…437f at0007 = ╱4a╱J╱ // 0x4368 @0x7
0x4361…437f at0008 = ╱4c╱L╱ // 0x4369 @0x8
0x4361…437f at0009 = ╱ed╱ ( ╱ // 0x436a @0x9
0x4361…437f at000a = ╱39╱9╱ // 0x436b @0xa
0x4361…437f at000b = ╱fe00009004╱ // 0x436c @0xb
0x4361…437f at0010 = ╱ec╱ , ╱ // 0x4371 @0x10
0x4361…437f at0011 = ╱31╱1╱ // 0x4372 @0x11
0x4361…437f at0012 = ╱32╱2╱ // 0x4373 @0x12
0x4361…437f at0013 = ╱fe0000c004╱ // 0x4374 @0x13
0x4361…437f at0018 = ╱ec╱ , ╱ // 0x4379 @0x18
0x4361…437f at0019 = ╱43╱C╱ // 0x437a @0x19
0x4361…437f at001a = ╱32╱2╱ // 0x437b @0x1a
0x4361…437f at001b = ╱ef╱ $ ╱ // 0x437c @0x1b
0x4361…437f at001c = ╱ee╱ ) ╱ // 0x437d @0x1c
0x4361…437f at001d = EOL // 0x437e @0x1d
0x4361…437f }
0x437f…4394 cae1 8420 GET C2 $ , 15 : C9 $
0x437f…4394 LineComalBcd {
0x437f…4394 ptr = 0xcae1 // 0x437f @0x0
0x437f…4394 lno = 0x8420 // 0x4381 @0x2
0x437f…4394 at0004 = ╱a9╱ GET ╱ // 0x4383 @0x4
0x437f…4394 at0005 = ╱43╱C╱ // 0x4384 @0x5
0x437f…4394 at0006 = ╱32╱2╱ // 0x4385 @0x6
0x437f…4394 at0007 = ╱ef╱ $ ╱ // 0x4386 @0x7
0x437f…4394 at0008 = ╱ec╱ , ╱ // 0x4387 @0x8
0x437f…4394 at0009 = ╱31╱1╱ // 0x4388 @0x9
0x437f…4394 at000a = ╱35╱5╱ // 0x4389 @0xa
0x437f…4394 at000b = ╱fe0000f004╱ // 0x438a @0xb
0x437f…4394 at0010 = ╱f0╱ : ╱ // 0x438f @0x10
0x437f…4394 at0011 = ╱43╱C╱ // 0x4390 @0x11
0x437f…4394 at0012 = ╱39╱9╱ // 0x4391 @0x12
0x437f…4394 at0013 = ╱ef╱ $ ╱ // 0x4392 @0x13
0x437f…4394 at0014 = EOL // 0x4393 @0x14
0x437f…4394 }
0x4394…43b2 caff 8430 EXEC FEJL ( 9 , 13 , C2 $ )
0x4394…43b2 LineComalBcd {
0x4394…43b2 ptr = 0xcaff // 0x4394 @0x0
0x4394…43b2 lno = 0x8430 // 0x4396 @0x2
0x4394…43b2 at0004 = ╱9d╱ EXEC ╱ // 0x4398 @0x4
0x4394…43b2 at0005 = ╱46╱F╱ // 0x4399 @0x5
0x4394…43b2 at0006 = ╱45╱E╱ // 0x439a @0x6
0x4394…43b2 at0007 = ╱4a╱J╱ // 0x439b @0x7
0x4394…43b2 at0008 = ╱4c╱L╱ // 0x439c @0x8
0x4394…43b2 at0009 = ╱ed╱ ( ╱ // 0x439d @0x9
0x4394…43b2 at000a = ╱39╱9╱ // 0x439e @0xa
0x4394…43b2 at000b = ╱fe00009004╱ // 0x439f @0xb
0x4394…43b2 at0010 = ╱ec╱ , ╱ // 0x43a4 @0x10
0x4394…43b2 at0011 = ╱31╱1╱ // 0x43a5 @0x11
0x4394…43b2 at0012 = ╱33╱3╱ // 0x43a6 @0x12
0x4394…43b2 at0013 = ╱fe0000d004╱ // 0x43a7 @0x13
0x4394…43b2 at0018 = ╱ec╱ , ╱ // 0x43ac @0x18
0x4394…43b2 at0019 = ╱43╱C╱ // 0x43ad @0x19
0x4394…43b2 at001a = ╱32╱2╱ // 0x43ae @0x1a
0x4394…43b2 at001b = ╱ef╱ $ ╱ // 0x43af @0x1b
0x4394…43b2 at001c = ╱ee╱ ) ╱ // 0x43b0 @0x1c
0x4394…43b2 at001d = EOL // 0x43b1 @0x1d
0x4394…43b2 }
0x43b2…43c7 cb14 8440 GET C2 $ , 16 : D0 $
0x43b2…43c7 LineComalBcd {
0x43b2…43c7 ptr = 0xcb14 // 0x43b2 @0x0
0x43b2…43c7 lno = 0x8440 // 0x43b4 @0x2
0x43b2…43c7 at0004 = ╱a9╱ GET ╱ // 0x43b6 @0x4
0x43b2…43c7 at0005 = ╱43╱C╱ // 0x43b7 @0x5
0x43b2…43c7 at0006 = ╱32╱2╱ // 0x43b8 @0x6
0x43b2…43c7 at0007 = ╱ef╱ $ ╱ // 0x43b9 @0x7
0x43b2…43c7 at0008 = ╱ec╱ , ╱ // 0x43ba @0x8
0x43b2…43c7 at0009 = ╱31╱1╱ // 0x43bb @0x9
0x43b2…43c7 at000a = ╱36╱6╱ // 0x43bc @0xa
0x43b2…43c7 at000b = ╱fe00008005╱ // 0x43bd @0xb
0x43b2…43c7 at0010 = ╱f0╱ : ╱ // 0x43c2 @0x10
0x43b2…43c7 at0011 = ╱44╱D╱ // 0x43c3 @0x11
0x43b2…43c7 at0012 = ╱30╱0╱ // 0x43c4 @0x12
0x43b2…43c7 at0013 = ╱ef╱ $ ╱ // 0x43c5 @0x13
0x43b2…43c7 at0014 = EOL // 0x43c6 @0x14
0x43b2…43c7 }
0x43c7…43e5 cb32 8450 EXEC FEJL ( 9 , 14 , C2 $ )
0x43c7…43e5 LineComalBcd {
0x43c7…43e5 ptr = 0xcb32 // 0x43c7 @0x0
0x43c7…43e5 lno = 0x8450 // 0x43c9 @0x2
0x43c7…43e5 at0004 = ╱9d╱ EXEC ╱ // 0x43cb @0x4
0x43c7…43e5 at0005 = ╱46╱F╱ // 0x43cc @0x5
0x43c7…43e5 at0006 = ╱45╱E╱ // 0x43cd @0x6
0x43c7…43e5 at0007 = ╱4a╱J╱ // 0x43ce @0x7
0x43c7…43e5 at0008 = ╱4c╱L╱ // 0x43cf @0x8
0x43c7…43e5 at0009 = ╱ed╱ ( ╱ // 0x43d0 @0x9
0x43c7…43e5 at000a = ╱39╱9╱ // 0x43d1 @0xa
0x43c7…43e5 at000b = ╱fe00009004╱ // 0x43d2 @0xb
0x43c7…43e5 at0010 = ╱ec╱ , ╱ // 0x43d7 @0x10
0x43c7…43e5 at0011 = ╱31╱1╱ // 0x43d8 @0x11
0x43c7…43e5 at0012 = ╱34╱4╱ // 0x43d9 @0x12
0x43c7…43e5 at0013 = ╱fe0000e004╱ // 0x43da @0x13
0x43c7…43e5 at0018 = ╱ec╱ , ╱ // 0x43df @0x18
0x43c7…43e5 at0019 = ╱43╱C╱ // 0x43e0 @0x19
0x43c7…43e5 at001a = ╱32╱2╱ // 0x43e1 @0x1a
0x43c7…43e5 at001b = ╱ef╱ $ ╱ // 0x43e2 @0x1b
0x43c7…43e5 at001c = ╱ee╱ ) ╱ // 0x43e3 @0x1c
0x43c7…43e5 at001d = EOL // 0x43e4 @0x1d
0x43c7…43e5 }
0x43e5…43fa cb47 8460 GET C2 $ , 17 : D1 $
0x43e5…43fa LineComalBcd {
0x43e5…43fa ptr = 0xcb47 // 0x43e5 @0x0
0x43e5…43fa lno = 0x8460 // 0x43e7 @0x2
0x43e5…43fa at0004 = ╱a9╱ GET ╱ // 0x43e9 @0x4
0x43e5…43fa at0005 = ╱43╱C╱ // 0x43ea @0x5
0x43e5…43fa at0006 = ╱32╱2╱ // 0x43eb @0x6
0x43e5…43fa at0007 = ╱ef╱ $ ╱ // 0x43ec @0x7
0x43e5…43fa at0008 = ╱ec╱ , ╱ // 0x43ed @0x8
0x43e5…43fa at0009 = ╱31╱1╱ // 0x43ee @0x9
0x43e5…43fa at000a = ╱37╱7╱ // 0x43ef @0xa
0x43e5…43fa at000b = ╱fe00008805╱ // 0x43f0 @0xb
0x43e5…43fa at0010 = ╱f0╱ : ╱ // 0x43f5 @0x10
0x43e5…43fa at0011 = ╱44╱D╱ // 0x43f6 @0x11
0x43e5…43fa at0012 = ╱31╱1╱ // 0x43f7 @0x12
0x43e5…43fa at0013 = ╱ef╱ $ ╱ // 0x43f8 @0x13
0x43e5…43fa at0014 = EOL // 0x43f9 @0x14
0x43e5…43fa }
0x43fa…4418 (226,) cb65 8470 EXEC FEJL ( 9 , 15 , C2 $ )
0x43fa…4418 LineComalBcd {
0x43fa…4418 ptr = 0xcb65 // 0x43fa @0x0
0x43fa…4418 lno = 0x8470 // 0x43fc @0x2
0x43fa…4418 at0004 = ╱9d╱ EXEC ╱ // 0x43fe @0x4
0x43fa…4418 at0005 = ╱46╱F╱ // 0x43ff @0x5
0x43fa…4418 at0006 = ╱45╱E╱ // 0x4400 @0x6
0x43fa…4418 at0007 = ╱4a╱J╱ // 0x4401 @0x7
0x43fa…4418 at0008 = ╱4c╱L╱ // 0x4402 @0x8
0x43fa…4418 at0009 = ╱ed╱ ( ╱ // 0x4403 @0x9
0x43fa…4418 at000a = ╱39╱9╱ // 0x4404 @0xa
0x43fa…4418 at000b = ╱fe00009004╱ // 0x4405 @0xb
0x43fa…4418 at0010 = ╱ec╱ , ╱ // 0x440a @0x10
0x43fa…4418 at0011 = ╱31╱1╱ // 0x440b @0x11
0x43fa…4418 at0012 = ╱35╱5╱ // 0x440c @0x12
0x43fa…4418 at0013 = ╱fe0000f004╱ // 0x440d @0x13
0x43fa…4418 at0018 = ╱ec╱ , ╱ // 0x4412 @0x18
0x43fa…4418 at0019 = ╱43╱C╱ // 0x4413 @0x19
0x43fa…4418 at001a = ╱32╱2╱ // 0x4414 @0x1a
0x43fa…4418 at001b = ╱ef╱ $ ╱ // 0x4415 @0x1b
0x43fa…4418 at001c = ╱ee╱ ) ╱ // 0x4416 @0x1c
0x43fa…4418 at001d = EOL // 0x4417 @0x1d
0x43fa…4418 }
0x4418…442d cb7a 8480 GET C2 $ , 19 : D2 $
0x4418…442d LineComalBcd {
0x4418…442d ptr = 0xcb7a // 0x4418 @0x0
0x4418…442d lno = 0x8480 // 0x441a @0x2
0x4418…442d at0004 = ╱a9╱ GET ╱ // 0x441c @0x4
0x4418…442d at0005 = ╱43╱C╱ // 0x441d @0x5
0x4418…442d at0006 = ╱32╱2╱ // 0x441e @0x6
0x4418…442d at0007 = ╱ef╱ $ ╱ // 0x441f @0x7
0x4418…442d at0008 = ╱ec╱ , ╱ // 0x4420 @0x8
0x4418…442d at0009 = ╱31╱1╱ // 0x4421 @0x9
0x4418…442d at000a = ╱39╱9╱ // 0x4422 @0xa
0x4418…442d at000b = ╱fe00009805╱ // 0x4423 @0xb
0x4418…442d at0010 = ╱f0╱ : ╱ // 0x4428 @0x10
0x4418…442d at0011 = ╱44╱D╱ // 0x4429 @0x11
0x4418…442d at0012 = ╱32╱2╱ // 0x442a @0x12
0x4418…442d at0013 = ╱ef╱ $ ╱ // 0x442b @0x13
0x4418…442d at0014 = EOL // 0x442c @0x14
0x4418…442d }
0x442d…444b cb98 8490 EXEC FEJL ( 9 , 16 , C2 $ )
0x442d…444b LineComalBcd {
0x442d…444b ptr = 0xcb98 // 0x442d @0x0
0x442d…444b lno = 0x8490 // 0x442f @0x2
0x442d…444b at0004 = ╱9d╱ EXEC ╱ // 0x4431 @0x4
0x442d…444b at0005 = ╱46╱F╱ // 0x4432 @0x5
0x442d…444b at0006 = ╱45╱E╱ // 0x4433 @0x6
0x442d…444b at0007 = ╱4a╱J╱ // 0x4434 @0x7
0x442d…444b at0008 = ╱4c╱L╱ // 0x4435 @0x8
0x442d…444b at0009 = ╱ed╱ ( ╱ // 0x4436 @0x9
0x442d…444b at000a = ╱39╱9╱ // 0x4437 @0xa
0x442d…444b at000b = ╱fe00009004╱ // 0x4438 @0xb
0x442d…444b at0010 = ╱ec╱ , ╱ // 0x443d @0x10
0x442d…444b at0011 = ╱31╱1╱ // 0x443e @0x11
0x442d…444b at0012 = ╱36╱6╱ // 0x443f @0x12
0x442d…444b at0013 = ╱fe00008005╱ // 0x4440 @0x13
0x442d…444b at0018 = ╱ec╱ , ╱ // 0x4445 @0x18
0x442d…444b at0019 = ╱43╱C╱ // 0x4446 @0x19
0x442d…444b at001a = ╱32╱2╱ // 0x4447 @0x1a
0x442d…444b at001b = ╱ef╱ $ ╱ // 0x4448 @0x1b
0x442d…444b at001c = ╱ee╱ ) ╱ // 0x4449 @0x1c
0x442d…444b at001d = EOL // 0x444a @0x1d
0x442d…444b }
0x444b…4460 cbad 8500 GET C2 $ , 21 : D3 $
0x444b…4460 LineComalBcd {
0x444b…4460 ptr = 0xcbad // 0x444b @0x0
0x444b…4460 lno = 0x8500 // 0x444d @0x2
0x444b…4460 at0004 = ╱a9╱ GET ╱ // 0x444f @0x4
0x444b…4460 at0005 = ╱43╱C╱ // 0x4450 @0x5
0x444b…4460 at0006 = ╱32╱2╱ // 0x4451 @0x6
0x444b…4460 at0007 = ╱ef╱ $ ╱ // 0x4452 @0x7
0x444b…4460 at0008 = ╱ec╱ , ╱ // 0x4453 @0x8
0x444b…4460 at0009 = ╱32╱2╱ // 0x4454 @0x9
0x444b…4460 at000a = ╱31╱1╱ // 0x4455 @0xa
0x444b…4460 at000b = ╱fe0000a805╱ // 0x4456 @0xb
0x444b…4460 at0010 = ╱f0╱ : ╱ // 0x445b @0x10
0x444b…4460 at0011 = ╱44╱D╱ // 0x445c @0x11
0x444b…4460 at0012 = ╱33╱3╱ // 0x445d @0x12
0x444b…4460 at0013 = ╱ef╱ $ ╱ // 0x445e @0x13
0x444b…4460 at0014 = EOL // 0x445f @0x14
0x444b…4460 }
0x4460…447e cbcb 8510 EXEC FEJL ( 9 , 17 , C2 $ )
0x4460…447e LineComalBcd {
0x4460…447e ptr = 0xcbcb // 0x4460 @0x0
0x4460…447e lno = 0x8510 // 0x4462 @0x2
0x4460…447e at0004 = ╱9d╱ EXEC ╱ // 0x4464 @0x4
0x4460…447e at0005 = ╱46╱F╱ // 0x4465 @0x5
0x4460…447e at0006 = ╱45╱E╱ // 0x4466 @0x6
0x4460…447e at0007 = ╱4a╱J╱ // 0x4467 @0x7
0x4460…447e at0008 = ╱4c╱L╱ // 0x4468 @0x8
0x4460…447e at0009 = ╱ed╱ ( ╱ // 0x4469 @0x9
0x4460…447e at000a = ╱39╱9╱ // 0x446a @0xa
0x4460…447e at000b = ╱fe00009004╱ // 0x446b @0xb
0x4460…447e at0010 = ╱ec╱ , ╱ // 0x4470 @0x10
0x4460…447e at0011 = ╱31╱1╱ // 0x4471 @0x11
0x4460…447e at0012 = ╱37╱7╱ // 0x4472 @0x12
0x4460…447e at0013 = ╱fe00008805╱ // 0x4473 @0x13
0x4460…447e at0018 = ╱ec╱ , ╱ // 0x4478 @0x18
0x4460…447e at0019 = ╱43╱C╱ // 0x4479 @0x19
0x4460…447e at001a = ╱32╱2╱ // 0x447a @0x1a
0x4460…447e at001b = ╱ef╱ $ ╱ // 0x447b @0x1b
0x4460…447e at001c = ╱ee╱ ) ╱ // 0x447c @0x1c
0x4460…447e at001d = EOL // 0x447d @0x1d
0x4460…447e }
0x447e…4493 cbe0 8520 GET C2 $ , 36 : E2 $
0x447e…4493 LineComalBcd {
0x447e…4493 ptr = 0xcbe0 // 0x447e @0x0
0x447e…4493 lno = 0x8520 // 0x4480 @0x2
0x447e…4493 at0004 = ╱a9╱ GET ╱ // 0x4482 @0x4
0x447e…4493 at0005 = ╱43╱C╱ // 0x4483 @0x5
0x447e…4493 at0006 = ╱32╱2╱ // 0x4484 @0x6
0x447e…4493 at0007 = ╱ef╱ $ ╱ // 0x4485 @0x7
0x447e…4493 at0008 = ╱ec╱ , ╱ // 0x4486 @0x8
0x447e…4493 at0009 = ╱33╱3╱ // 0x4487 @0x9
0x447e…4493 at000a = ╱36╱6╱ // 0x4488 @0xa
0x447e…4493 at000b = ╱fe00009006╱ // 0x4489 @0xb
0x447e…4493 at0010 = ╱f0╱ : ╱ // 0x448e @0x10
0x447e…4493 at0011 = ╱45╱E╱ // 0x448f @0x11
0x447e…4493 at0012 = ╱32╱2╱ // 0x4490 @0x12
0x447e…4493 at0013 = ╱ef╱ $ ╱ // 0x4491 @0x13
0x447e…4493 at0014 = EOL // 0x4492 @0x14
0x447e…4493 }
0x4493…44b1 cbfe 8530 EXEC FEJL ( 9 , 18 , C2 $ )
0x4493…44b1 LineComalBcd {
0x4493…44b1 ptr = 0xcbfe // 0x4493 @0x0
0x4493…44b1 lno = 0x8530 // 0x4495 @0x2
0x4493…44b1 at0004 = ╱9d╱ EXEC ╱ // 0x4497 @0x4
0x4493…44b1 at0005 = ╱46╱F╱ // 0x4498 @0x5
0x4493…44b1 at0006 = ╱45╱E╱ // 0x4499 @0x6
0x4493…44b1 at0007 = ╱4a╱J╱ // 0x449a @0x7
0x4493…44b1 at0008 = ╱4c╱L╱ // 0x449b @0x8
0x4493…44b1 at0009 = ╱ed╱ ( ╱ // 0x449c @0x9
0x4493…44b1 at000a = ╱39╱9╱ // 0x449d @0xa
0x4493…44b1 at000b = ╱fe00009004╱ // 0x449e @0xb
0x4493…44b1 at0010 = ╱ec╱ , ╱ // 0x44a3 @0x10
0x4493…44b1 at0011 = ╱31╱1╱ // 0x44a4 @0x11
0x4493…44b1 at0012 = ╱38╱8╱ // 0x44a5 @0x12
0x4493…44b1 at0013 = ╱fe00009005╱ // 0x44a6 @0x13
0x4493…44b1 at0018 = ╱ec╱ , ╱ // 0x44ab @0x18
0x4493…44b1 at0019 = ╱43╱C╱ // 0x44ac @0x19
0x4493…44b1 at001a = ╱32╱2╱ // 0x44ad @0x1a
0x4493…44b1 at001b = ╱ef╱ $ ╱ // 0x44ae @0x1b
0x4493…44b1 at001c = ╱ee╱ ) ╱ // 0x44af @0x1c
0x4493…44b1 at001d = EOL // 0x44b0 @0x1d
0x4493…44b1 }
0x44b1…44ba cc07 8540 CLOSE C2 $
0x44b1…44ba LineComalBcd {
0x44b1…44ba ptr = 0xcc07 // 0x44b1 @0x0
0x44b1…44ba lno = 0x8540 // 0x44b3 @0x2
0x44b1…44ba at0004 = ╱a8╱ CLOSE ╱ // 0x44b5 @0x4
0x44b1…44ba at0005 = ╱43╱C╱ // 0x44b6 @0x5
0x44b1…44ba at0006 = ╱32╱2╱ // 0x44b7 @0x6
0x44b1…44ba at0007 = ╱ef╱ $ ╱ // 0x44b8 @0x7
0x44b1…44ba at0008 = EOL // 0x44b9 @0x8
0x44b1…44ba }
0x44ba…44d8 cc25 8550 EXEC FEJL ( 9 , 19 , C2 $ )
0x44ba…44d8 LineComalBcd {
0x44ba…44d8 ptr = 0xcc25 // 0x44ba @0x0
0x44ba…44d8 lno = 0x8550 // 0x44bc @0x2
0x44ba…44d8 at0004 = ╱9d╱ EXEC ╱ // 0x44be @0x4
0x44ba…44d8 at0005 = ╱46╱F╱ // 0x44bf @0x5
0x44ba…44d8 at0006 = ╱45╱E╱ // 0x44c0 @0x6
0x44ba…44d8 at0007 = ╱4a╱J╱ // 0x44c1 @0x7
0x44ba…44d8 at0008 = ╱4c╱L╱ // 0x44c2 @0x8
0x44ba…44d8 at0009 = ╱ed╱ ( ╱ // 0x44c3 @0x9
0x44ba…44d8 at000a = ╱39╱9╱ // 0x44c4 @0xa
0x44ba…44d8 at000b = ╱fe00009004╱ // 0x44c5 @0xb
0x44ba…44d8 at0010 = ╱ec╱ , ╱ // 0x44ca @0x10
0x44ba…44d8 at0011 = ╱31╱1╱ // 0x44cb @0x11
0x44ba…44d8 at0012 = ╱39╱9╱ // 0x44cc @0x12
0x44ba…44d8 at0013 = ╱fe00009805╱ // 0x44cd @0x13
0x44ba…44d8 at0018 = ╱ec╱ , ╱ // 0x44d2 @0x18
0x44ba…44d8 at0019 = ╱43╱C╱ // 0x44d3 @0x19
0x44ba…44d8 at001a = ╱32╱2╱ // 0x44d4 @0x1a
0x44ba…44d8 at001b = ╱ef╱ $ ╱ // 0x44d5 @0x1b
0x44ba…44d8 at001c = ╱ee╱ ) ╱ // 0x44d6 @0x1c
0x44ba…44d8 at001d = EOL // 0x44d7 @0x1d
0x44ba…44d8 }
0x44d8…4507 cc54 8560 DIM M7 ( M9 DIV 4 ) , N2 ( N4 DIV 4 ) , N7 ( N8 DIV 4 )
0x44d8…4507 LineComalBcd {
0x44d8…4507 ptr = 0xcc54 // 0x44d8 @0x0
0x44d8…4507 lno = 0x8560 // 0x44da @0x2
0x44d8…4507 at0004 = ╱87╱ DIM ╱ // 0x44dc @0x4
0x44d8…4507 at0005 = ╱4d╱M╱ // 0x44dd @0x5
0x44d8…4507 at0006 = ╱37╱7╱ // 0x44de @0x6
0x44d8…4507 at0007 = ╱ed╱ ( ╱ // 0x44df @0x7
0x44d8…4507 at0008 = ╱4d╱M╱ // 0x44e0 @0x8
0x44d8…4507 at0009 = ╱39╱9╱ // 0x44e1 @0x9
0x44d8…4507 at000a = ╱e7╱ DIV ╱ // 0x44e2 @0xa
0x44d8…4507 at000b = ╱34╱4╱ // 0x44e3 @0xb
0x44d8…4507 at000c = ╱fe00008003╱ // 0x44e4 @0xc
0x44d8…4507 at0011 = ╱ee╱ ) ╱ // 0x44e9 @0x11
0x44d8…4507 at0012 = ╱ec╱ , ╱ // 0x44ea @0x12
0x44d8…4507 at0013 = ╱4e╱N╱ // 0x44eb @0x13
0x44d8…4507 at0014 = ╱32╱2╱ // 0x44ec @0x14
0x44d8…4507 at0015 = ╱ed╱ ( ╱ // 0x44ed @0x15
0x44d8…4507 at0016 = ╱4e╱N╱ // 0x44ee @0x16
0x44d8…4507 at0017 = ╱34╱4╱ // 0x44ef @0x17
0x44d8…4507 at0018 = ╱e7╱ DIV ╱ // 0x44f0 @0x18
0x44d8…4507 at0019 = ╱34╱4╱ // 0x44f1 @0x19
0x44d8…4507 at001a = ╱fe00008003╱ // 0x44f2 @0x1a
0x44d8…4507 at001f = ╱ee╱ ) ╱ // 0x44f7 @0x1f
0x44d8…4507 at0020 = ╱ec╱ , ╱ // 0x44f8 @0x20
0x44d8…4507 at0021 = ╱4e╱N╱ // 0x44f9 @0x21
0x44d8…4507 at0022 = ╱37╱7╱ // 0x44fa @0x22
0x44d8…4507 at0023 = ╱ed╱ ( ╱ // 0x44fb @0x23
0x44d8…4507 at0024 = ╱4e╱N╱ // 0x44fc @0x24
0x44d8…4507 at0025 = ╱38╱8╱ // 0x44fd @0x25
0x44d8…4507 at0026 = ╱e7╱ DIV ╱ // 0x44fe @0x26
0x44d8…4507 at0027 = ╱34╱4╱ // 0x44ff @0x27
0x44d8…4507 at0028 = ╱fe00008003╱ // 0x4500 @0x28
0x44d8…4507 at002d = ╱ee╱ ) ╱ // 0x4505 @0x2d
0x44d8…4507 at002e = EOL // 0x4506 @0x2e
0x44d8…4507 }
0x4507…4556 cca3 8570 DIM M8 ( 4 , 2 ) , N3 ( 4 , 2 ) , J8 ( 4 , 2 ) , J5 $ ( 6 , 14 )
0x4507…4556 LineComalBcd {
0x4507…4556 ptr = 0xcca3 // 0x4507 @0x0
0x4507…4556 lno = 0x8570 // 0x4509 @0x2
0x4507…4556 at0004 = ╱87╱ DIM ╱ // 0x450b @0x4
0x4507…4556 at0005 = ╱4d╱M╱ // 0x450c @0x5
0x4507…4556 at0006 = ╱38╱8╱ // 0x450d @0x6
0x4507…4556 at0007 = ╱ed╱ ( ╱ // 0x450e @0x7
0x4507…4556 at0008 = ╱34╱4╱ // 0x450f @0x8
0x4507…4556 at0009 = ╱fe00008003╱ // 0x4510 @0x9
0x4507…4556 at000e = ╱ec╱ , ╱ // 0x4515 @0xe
0x4507…4556 at000f = ╱32╱2╱ // 0x4516 @0xf
0x4507…4556 at0010 = ╱fe00008002╱ // 0x4517 @0x10
0x4507…4556 at0015 = ╱ee╱ ) ╱ // 0x451c @0x15
0x4507…4556 at0016 = ╱ec╱ , ╱ // 0x451d @0x16
0x4507…4556 at0017 = ╱4e╱N╱ // 0x451e @0x17
0x4507…4556 at0018 = ╱33╱3╱ // 0x451f @0x18
0x4507…4556 at0019 = ╱ed╱ ( ╱ // 0x4520 @0x19
0x4507…4556 at001a = ╱34╱4╱ // 0x4521 @0x1a
0x4507…4556 at001b = ╱fe00008003╱ // 0x4522 @0x1b
0x4507…4556 at0020 = ╱ec╱ , ╱ // 0x4527 @0x20
0x4507…4556 at0021 = ╱32╱2╱ // 0x4528 @0x21
0x4507…4556 at0022 = ╱fe00008002╱ // 0x4529 @0x22
0x4507…4556 at0027 = ╱ee╱ ) ╱ // 0x452e @0x27
0x4507…4556 at0028 = ╱ec╱ , ╱ // 0x452f @0x28
0x4507…4556 at0029 = ╱4a╱J╱ // 0x4530 @0x29
0x4507…4556 at002a = ╱38╱8╱ // 0x4531 @0x2a
0x4507…4556 at002b = ╱ed╱ ( ╱ // 0x4532 @0x2b
0x4507…4556 at002c = ╱34╱4╱ // 0x4533 @0x2c
0x4507…4556 at002d = ╱fe00008003╱ // 0x4534 @0x2d
0x4507…4556 at0032 = ╱ec╱ , ╱ // 0x4539 @0x32
0x4507…4556 at0033 = ╱32╱2╱ // 0x453a @0x33
0x4507…4556 at0034 = ╱fe00008002╱ // 0x453b @0x34
0x4507…4556 at0039 = ╱ee╱ ) ╱ // 0x4540 @0x39
0x4507…4556 at003a = ╱ec╱ , ╱ // 0x4541 @0x3a
0x4507…4556 at003b = ╱4a╱J╱ // 0x4542 @0x3b
0x4507…4556 at003c = ╱35╱5╱ // 0x4543 @0x3c
0x4507…4556 at003d = ╱ef╱ $ ╱ // 0x4544 @0x3d
0x4507…4556 at003e = ╱ed╱ ( ╱ // 0x4545 @0x3e
0x4507…4556 at003f = ╱36╱6╱ // 0x4546 @0x3f
0x4507…4556 at0040 = ╱fe0000c003╱ // 0x4547 @0x40
0x4507…4556 at0045 = ╱ec╱ , ╱ // 0x454c @0x45
0x4507…4556 at0046 = ╱31╱1╱ // 0x454d @0x46
0x4507…4556 at0047 = ╱34╱4╱ // 0x454e @0x47
0x4507…4556 at0048 = ╱fe0000e004╱ // 0x454f @0x48
0x4507…4556 at004d = ╱ee╱ ) ╱ // 0x4554 @0x4d
0x4507…4556 at004e = EOL // 0x4555 @0x4e
0x4507…4556 }
0x4556…4566 ccb3 8580 E2 $ = E7 $ + E2 $
0x4556…4566 LineComalBcd {
0x4556…4566 ptr = 0xccb3 // 0x4556 @0x0
0x4556…4566 lno = 0x8580 // 0x4558 @0x2
0x4556…4566 at0004 = ╱45╱E╱ // 0x455a @0x4
0x4556…4566 at0005 = ╱32╱2╱ // 0x455b @0x5
0x4556…4566 at0006 = ╱ef╱ $ ╱ // 0x455c @0x6
0x4556…4566 at0007 = ╱dc╱ = ╱ // 0x455d @0x7
0x4556…4566 at0008 = ╱45╱E╱ // 0x455e @0x8
0x4556…4566 at0009 = ╱37╱7╱ // 0x455f @0x9
0x4556…4566 at000a = ╱ef╱ $ ╱ // 0x4560 @0xa
0x4556…4566 at000b = ╱f1╱ + ╱ // 0x4561 @0xb
0x4556…4566 at000c = ╱45╱E╱ // 0x4562 @0xc
0x4556…4566 at000d = ╱32╱2╱ // 0x4563 @0xd
0x4556…4566 at000e = ╱ef╱ $ ╱ // 0x4564 @0xe
0x4556…4566 at000f = EOL // 0x4565 @0xf
0x4556…4566 }
0x4566…4571 ccbe 8590 OPEN E2 $ , R
0x4566…4571 LineComalBcd {
0x4566…4571 ptr = 0xccbe // 0x4566 @0x0
0x4566…4571 lno = 0x8590 // 0x4568 @0x2
0x4566…4571 at0004 = ╱a7╱ OPEN ╱ // 0x456a @0x4
0x4566…4571 at0005 = ╱45╱E╱ // 0x456b @0x5
0x4566…4571 at0006 = ╱32╱2╱ // 0x456c @0x6
0x4566…4571 at0007 = ╱ef╱ $ ╱ // 0x456d @0x7
0x4566…4571 at0008 = ╱ec╱ , ╱ // 0x456e @0x8
0x4566…4571 at0009 = ╱52╱R╱ // 0x456f @0x9
0x4566…4571 at000a = EOL // 0x4570 @0xa
0x4566…4571 }
0x4571…458f ccdc 8600 EXEC FEJL ( 9 , 20 , E2 $ )
0x4571…458f LineComalBcd {
0x4571…458f ptr = 0xccdc // 0x4571 @0x0
0x4571…458f lno = 0x8600 // 0x4573 @0x2
0x4571…458f at0004 = ╱9d╱ EXEC ╱ // 0x4575 @0x4
0x4571…458f at0005 = ╱46╱F╱ // 0x4576 @0x5
0x4571…458f at0006 = ╱45╱E╱ // 0x4577 @0x6
0x4571…458f at0007 = ╱4a╱J╱ // 0x4578 @0x7
0x4571…458f at0008 = ╱4c╱L╱ // 0x4579 @0x8
0x4571…458f at0009 = ╱ed╱ ( ╱ // 0x457a @0x9
0x4571…458f at000a = ╱39╱9╱ // 0x457b @0xa
0x4571…458f at000b = ╱fe00009004╱ // 0x457c @0xb
0x4571…458f at0010 = ╱ec╱ , ╱ // 0x4581 @0x10
0x4571…458f at0011 = ╱32╱2╱ // 0x4582 @0x11
0x4571…458f at0012 = ╱30╱0╱ // 0x4583 @0x12
0x4571…458f at0013 = ╱fe0000a005╱ // 0x4584 @0x13
0x4571…458f at0018 = ╱ec╱ , ╱ // 0x4589 @0x18
0x4571…458f at0019 = ╱45╱E╱ // 0x458a @0x19
0x4571…458f at001a = ╱32╱2╱ // 0x458b @0x1a
0x4571…458f at001b = ╱ef╱ $ ╱ // 0x458c @0x1b
0x4571…458f at001c = ╱ee╱ ) ╱ // 0x458d @0x1c
0x4571…458f at001d = EOL // 0x458e @0x1d
0x4571…458f }
0x458f…4602 cd4f 8610 GET E2 $ , 2 : E8 ( 1 ) , E8 ( 2 ) , E8 ( 3 ) , E8 ( 4 ) , E8 ( 5 ) , E8 ( 6 ) , E8 ( 7 ) , E8 ( 8 ) , E8 ( 9 )
0x458f…4602 LineComalBcd {
0x458f…4602 ptr = 0xcd4f // 0x458f @0x0
0x458f…4602 lno = 0x8610 // 0x4591 @0x2
0x458f…4602 at0004 = ╱a9╱ GET ╱ // 0x4593 @0x4
0x458f…4602 at0005 = ╱45╱E╱ // 0x4594 @0x5
0x458f…4602 at0006 = ╱32╱2╱ // 0x4595 @0x6
0x458f…4602 at0007 = ╱ef╱ $ ╱ // 0x4596 @0x7
0x458f…4602 at0008 = ╱ec╱ , ╱ // 0x4597 @0x8
0x458f…4602 at0009 = ╱32╱2╱ // 0x4598 @0x9
0x458f…4602 at000a = ╱fe00008002╱ // 0x4599 @0xa
0x458f…4602 at000f = ╱f0╱ : ╱ // 0x459e @0xf
0x458f…4602 at0010 = ╱45╱E╱ // 0x459f @0x10
0x458f…4602 at0011 = ╱38╱8╱ // 0x45a0 @0x11
0x458f…4602 at0012 = ╱ed╱ ( ╱ // 0x45a1 @0x12
0x458f…4602 at0013 = ╱31╱1╱ // 0x45a2 @0x13
0x458f…4602 at0014 = ╱fe00008001╱ // 0x45a3 @0x14
0x458f…4602 at0019 = ╱ee╱ ) ╱ // 0x45a8 @0x19
0x458f…4602 at001a = ╱ec╱ , ╱ // 0x45a9 @0x1a
0x458f…4602 at001b = ╱45╱E╱ // 0x45aa @0x1b
0x458f…4602 at001c = ╱38╱8╱ // 0x45ab @0x1c
0x458f…4602 at001d = ╱ed╱ ( ╱ // 0x45ac @0x1d
0x458f…4602 at001e = ╱32╱2╱ // 0x45ad @0x1e
0x458f…4602 at001f = ╱fe00008002╱ // 0x45ae @0x1f
0x458f…4602 at0024 = ╱ee╱ ) ╱ // 0x45b3 @0x24
0x458f…4602 at0025 = ╱ec╱ , ╱ // 0x45b4 @0x25
0x458f…4602 at0026 = ╱45╱E╱ // 0x45b5 @0x26
0x458f…4602 at0027 = ╱38╱8╱ // 0x45b6 @0x27
0x458f…4602 at0028 = ╱ed╱ ( ╱ // 0x45b7 @0x28
0x458f…4602 at0029 = ╱33╱3╱ // 0x45b8 @0x29
0x458f…4602 at002a = ╱fe0000c002╱ // 0x45b9 @0x2a
0x458f…4602 at002f = ╱ee╱ ) ╱ // 0x45be @0x2f
0x458f…4602 at0030 = ╱ec╱ , ╱ // 0x45bf @0x30
0x458f…4602 at0031 = ╱45╱E╱ // 0x45c0 @0x31
0x458f…4602 at0032 = ╱38╱8╱ // 0x45c1 @0x32
0x458f…4602 at0033 = ╱ed╱ ( ╱ // 0x45c2 @0x33
0x458f…4602 at0034 = ╱34╱4╱ // 0x45c3 @0x34
0x458f…4602 at0035 = ╱fe00008003╱ // 0x45c4 @0x35
0x458f…4602 at003a = ╱ee╱ ) ╱ // 0x45c9 @0x3a
0x458f…4602 at003b = ╱ec╱ , ╱ // 0x45ca @0x3b
0x458f…4602 at003c = ╱45╱E╱ // 0x45cb @0x3c
0x458f…4602 at003d = ╱38╱8╱ // 0x45cc @0x3d
0x458f…4602 at003e = ╱ed╱ ( ╱ // 0x45cd @0x3e
0x458f…4602 at003f = ╱35╱5╱ // 0x45ce @0x3f
0x458f…4602 at0040 = ╱fe0000a003╱ // 0x45cf @0x40
0x458f…4602 at0045 = ╱ee╱ ) ╱ // 0x45d4 @0x45
0x458f…4602 at0046 = ╱ec╱ , ╱ // 0x45d5 @0x46
0x458f…4602 at0047 = ╱45╱E╱ // 0x45d6 @0x47
0x458f…4602 at0048 = ╱38╱8╱ // 0x45d7 @0x48
0x458f…4602 at0049 = ╱ed╱ ( ╱ // 0x45d8 @0x49
0x458f…4602 at004a = ╱36╱6╱ // 0x45d9 @0x4a
0x458f…4602 at004b = ╱fe0000c003╱ // 0x45da @0x4b
0x458f…4602 at0050 = ╱ee╱ ) ╱ // 0x45df @0x50
0x458f…4602 at0051 = ╱ec╱ , ╱ // 0x45e0 @0x51
0x458f…4602 at0052 = ╱45╱E╱ // 0x45e1 @0x52
0x458f…4602 at0053 = ╱38╱8╱ // 0x45e2 @0x53
0x458f…4602 at0054 = ╱ed╱ ( ╱ // 0x45e3 @0x54
0x458f…4602 at0055 = ╱37╱7╱ // 0x45e4 @0x55
0x458f…4602 at0056 = ╱fe0000e003╱ // 0x45e5 @0x56
0x458f…4602 at005b = ╱ee╱ ) ╱ // 0x45ea @0x5b
0x458f…4602 at005c = ╱ec╱ , ╱ // 0x45eb @0x5c
0x458f…4602 at005d = ╱45╱E╱ // 0x45ec @0x5d
0x458f…4602 at005e = ╱38╱8╱ // 0x45ed @0x5e
0x458f…4602 at005f = ╱ed╱ ( ╱ // 0x45ee @0x5f
0x458f…4602 at0060 = ╱38╱8╱ // 0x45ef @0x60
0x458f…4602 at0061 = ╱fe00008004╱ // 0x45f0 @0x61
0x458f…4602 at0066 = ╱ee╱ ) ╱ // 0x45f5 @0x66
0x458f…4602 at0067 = ╱ec╱ , ╱ // 0x45f6 @0x67
0x458f…4602 at0068 = ╱45╱E╱ // 0x45f7 @0x68
0x458f…4602 at0069 = ╱38╱8╱ // 0x45f8 @0x69
0x458f…4602 at006a = ╱ed╱ ( ╱ // 0x45f9 @0x6a
0x458f…4602 at006b = ╱39╱9╱ // 0x45fa @0x6b
0x458f…4602 at006c = ╱fe00009004╱ // 0x45fb @0x6c
0x458f…4602 at0071 = ╱ee╱ ) ╱ // 0x4600 @0x71
0x458f…4602 at0072 = EOL // 0x4601 @0x72
0x458f…4602 }
0x4602…4620 cd6d 8620 EXEC FEJL ( 9 , 21 , E2 $ )
0x4602…4620 LineComalBcd {
0x4602…4620 ptr = 0xcd6d // 0x4602 @0x0
0x4602…4620 lno = 0x8620 // 0x4604 @0x2
0x4602…4620 at0004 = ╱9d╱ EXEC ╱ // 0x4606 @0x4
0x4602…4620 at0005 = ╱46╱F╱ // 0x4607 @0x5
0x4602…4620 at0006 = ╱45╱E╱ // 0x4608 @0x6
0x4602…4620 at0007 = ╱4a╱J╱ // 0x4609 @0x7
0x4602…4620 at0008 = ╱4c╱L╱ // 0x460a @0x8
0x4602…4620 at0009 = ╱ed╱ ( ╱ // 0x460b @0x9
0x4602…4620 at000a = ╱39╱9╱ // 0x460c @0xa
0x4602…4620 at000b = ╱fe00009004╱ // 0x460d @0xb
0x4602…4620 at0010 = ╱ec╱ , ╱ // 0x4612 @0x10
0x4602…4620 at0011 = ╱32╱2╱ // 0x4613 @0x11
0x4602…4620 at0012 = ╱31╱1╱ // 0x4614 @0x12
0x4602…4620 at0013 = ╱fe0000a805╱ // 0x4615 @0x13
0x4602…4620 at0018 = ╱ec╱ , ╱ // 0x461a @0x18
0x4602…4620 at0019 = ╱45╱E╱ // 0x461b @0x19
0x4602…4620 at001a = ╱32╱2╱ // 0x461c @0x1a
0x4602…4620 at001b = ╱ef╱ $ ╱ // 0x461d @0x1b
0x4602…4620 at001c = ╱ee╱ ) ╱ // 0x461e @0x1c
0x4602…4620 at001d = EOL // 0x461f @0x1d
0x4602…4620 }
0x4620…4635 cd82 8630 FOR I = 1 TO 6
0x4620…4635 LineComalBcd {
0x4620…4635 ptr = 0xcd82 // 0x4620 @0x0
0x4620…4635 lno = 0x8630 // 0x4622 @0x2
0x4620…4635 at0004 = ╱83╱ FOR ╱ // 0x4624 @0x4
0x4620…4635 at0005 = ╱49╱I╱ // 0x4625 @0x5
0x4620…4635 at0006 = ╱dc╱ = ╱ // 0x4626 @0x6
0x4620…4635 at0007 = ╱31╱1╱ // 0x4627 @0x7
0x4620…4635 at0008 = ╱fe00008001╱ // 0x4628 @0x8
0x4620…4635 at000d = ╱b7╱ TO ╱ // 0x462d @0xd
0x4620…4635 at000e = ╱36╱6╱ // 0x462e @0xe
0x4620…4635 at000f = ╱fe0000c003╱ // 0x462f @0xf
0x4620…4635 at0014 = EOL // 0x4634 @0x14
0x4620…4635 }
0x4635…4654 cda1 8640 J = ( I - 1 ) * 3 + 1
0x4635…4654 LineComalBcd {
0x4635…4654 ptr = 0xcda1 // 0x4635 @0x0
0x4635…4654 lno = 0x8640 // 0x4637 @0x2
0x4635…4654 at0004 = ╱4a╱J╱ // 0x4639 @0x4
0x4635…4654 at0005 = ╱dc╱ = ╱ // 0x463a @0x5
0x4635…4654 at0006 = ╱ed╱ ( ╱ // 0x463b @0x6
0x4635…4654 at0007 = ╱49╱I╱ // 0x463c @0x7
0x4635…4654 at0008 = ╱e3╱ - ╱ // 0x463d @0x8
0x4635…4654 at0009 = ╱31╱1╱ // 0x463e @0x9
0x4635…4654 at000a = ╱fe00008001╱ // 0x463f @0xa
0x4635…4654 at000f = ╱ee╱ ) ╱ // 0x4644 @0xf
0x4635…4654 at0010 = ╱e4╱ * ╱ // 0x4645 @0x10
0x4635…4654 at0011 = ╱33╱3╱ // 0x4646 @0x11
0x4635…4654 at0012 = ╱fe0000c002╱ // 0x4647 @0x12
0x4635…4654 at0017 = ╱e2╱ + ╱ // 0x464c @0x17
0x4635…4654 at0018 = ╱31╱1╱ // 0x464d @0x18
0x4635…4654 at0019 = ╱fe00008001╱ // 0x464e @0x19
0x4635…4654 at001e = EOL // 0x4653 @0x1e
0x4635…4654 }
0x4654…4689 cdd6 8650 GET E2 $ , I + 5 : E5 $ ( J ) , E5 $ ( J + 1 ) , E5 $ ( J + 2 )
0x4654…4689 LineComalBcd {
0x4654…4689 ptr = 0xcdd6 // 0x4654 @0x0
0x4654…4689 lno = 0x8650 // 0x4656 @0x2
0x4654…4689 at0004 = ╱a9╱ GET ╱ // 0x4658 @0x4
0x4654…4689 at0005 = ╱45╱E╱ // 0x4659 @0x5
0x4654…4689 at0006 = ╱32╱2╱ // 0x465a @0x6
0x4654…4689 at0007 = ╱ef╱ $ ╱ // 0x465b @0x7
0x4654…4689 at0008 = ╱ec╱ , ╱ // 0x465c @0x8
0x4654…4689 at0009 = ╱49╱I╱ // 0x465d @0x9
0x4654…4689 at000a = ╱e2╱ + ╱ // 0x465e @0xa
0x4654…4689 at000b = ╱35╱5╱ // 0x465f @0xb
0x4654…4689 at000c = ╱fe0000a003╱ // 0x4660 @0xc
0x4654…4689 at0011 = ╱f0╱ : ╱ // 0x4665 @0x11
0x4654…4689 at0012 = ╱45╱E╱ // 0x4666 @0x12
0x4654…4689 at0013 = ╱35╱5╱ // 0x4667 @0x13
0x4654…4689 at0014 = ╱ef╱ $ ╱ // 0x4668 @0x14
0x4654…4689 at0015 = ╱ed╱ ( ╱ // 0x4669 @0x15
0x4654…4689 at0016 = ╱4a╱J╱ // 0x466a @0x16
0x4654…4689 at0017 = ╱ee╱ ) ╱ // 0x466b @0x17
0x4654…4689 at0018 = ╱ec╱ , ╱ // 0x466c @0x18
0x4654…4689 at0019 = ╱45╱E╱ // 0x466d @0x19
0x4654…4689 at001a = ╱35╱5╱ // 0x466e @0x1a
0x4654…4689 at001b = ╱ef╱ $ ╱ // 0x466f @0x1b
0x4654…4689 at001c = ╱ed╱ ( ╱ // 0x4670 @0x1c
0x4654…4689 at001d = ╱4a╱J╱ // 0x4671 @0x1d
0x4654…4689 at001e = ╱e2╱ + ╱ // 0x4672 @0x1e
0x4654…4689 at001f = ╱31╱1╱ // 0x4673 @0x1f
0x4654…4689 at0020 = ╱fe00008001╱ // 0x4674 @0x20
0x4654…4689 at0025 = ╱ee╱ ) ╱ // 0x4679 @0x25
0x4654…4689 at0026 = ╱ec╱ , ╱ // 0x467a @0x26
0x4654…4689 at0027 = ╱45╱E╱ // 0x467b @0x27
0x4654…4689 at0028 = ╱35╱5╱ // 0x467c @0x28
0x4654…4689 at0029 = ╱ef╱ $ ╱ // 0x467d @0x29
0x4654…4689 at002a = ╱ed╱ ( ╱ // 0x467e @0x2a
0x4654…4689 at002b = ╱4a╱J╱ // 0x467f @0x2b
0x4654…4689 at002c = ╱e2╱ + ╱ // 0x4680 @0x2c
0x4654…4689 at002d = ╱32╱2╱ // 0x4681 @0x2d
0x4654…4689 at002e = ╱fe00008002╱ // 0x4682 @0x2e
0x4654…4689 at0033 = ╱ee╱ ) ╱ // 0x4687 @0x33
0x4654…4689 at0034 = EOL // 0x4688 @0x34
0x4654…4689 }
0x4689…46a7 cdf4 8660 EXEC FEJL ( 9 , 22 , E2 $ )
0x4689…46a7 LineComalBcd {
0x4689…46a7 ptr = 0xcdf4 // 0x4689 @0x0
0x4689…46a7 lno = 0x8660 // 0x468b @0x2
0x4689…46a7 at0004 = ╱9d╱ EXEC ╱ // 0x468d @0x4
0x4689…46a7 at0005 = ╱46╱F╱ // 0x468e @0x5
0x4689…46a7 at0006 = ╱45╱E╱ // 0x468f @0x6
0x4689…46a7 at0007 = ╱4a╱J╱ // 0x4690 @0x7
0x4689…46a7 at0008 = ╱4c╱L╱ // 0x4691 @0x8
0x4689…46a7 at0009 = ╱ed╱ ( ╱ // 0x4692 @0x9
0x4689…46a7 at000a = ╱39╱9╱ // 0x4693 @0xa
0x4689…46a7 at000b = ╱fe00009004╱ // 0x4694 @0xb
0x4689…46a7 at0010 = ╱ec╱ , ╱ // 0x4699 @0x10
0x4689…46a7 at0011 = ╱32╱2╱ // 0x469a @0x11
0x4689…46a7 at0012 = ╱32╱2╱ // 0x469b @0x12
0x4689…46a7 at0013 = ╱fe0000b005╱ // 0x469c @0x13
0x4689…46a7 at0018 = ╱ec╱ , ╱ // 0x46a1 @0x18
0x4689…46a7 at0019 = ╱45╱E╱ // 0x46a2 @0x19
0x4689…46a7 at001a = ╱32╱2╱ // 0x46a3 @0x1a
0x4689…46a7 at001b = ╱ef╱ $ ╱ // 0x46a4 @0x1b
0x4689…46a7 at001c = ╱ee╱ ) ╱ // 0x46a5 @0x1c
0x4689…46a7 at001d = EOL // 0x46a6 @0x1d
0x4689…46a7 }
0x46a7…46ae cdfb 8670 NEXT I
0x46a7…46ae LineComalBcd {
0x46a7…46ae ptr = 0xcdfb // 0x46a7 @0x0
0x46a7…46ae lno = 0x8670 // 0x46a9 @0x2
0x46a7…46ae at0004 = ╱84╱ NEXT ╱ // 0x46ab @0x4
0x46a7…46ae at0005 = ╱49╱I╱ // 0x46ac @0x5
0x46a7…46ae at0006 = EOL // 0x46ad @0x6
0x46a7…46ae }
0x46ae…4722 ce6f 8680 GET E2 $ , 12 : F0 ( 1 ) , F0 ( 2 ) , F0 ( 3 ) , F0 ( 4 ) , F0 ( 5 ) , F0 ( 6 ) , F0 ( 7 ) , F0 ( 8 ) , F0 ( 9 )
0x46ae…4722 LineComalBcd {
0x46ae…4722 ptr = 0xce6f // 0x46ae @0x0
0x46ae…4722 lno = 0x8680 // 0x46b0 @0x2
0x46ae…4722 at0004 = ╱a9╱ GET ╱ // 0x46b2 @0x4
0x46ae…4722 at0005 = ╱45╱E╱ // 0x46b3 @0x5
0x46ae…4722 at0006 = ╱32╱2╱ // 0x46b4 @0x6
0x46ae…4722 at0007 = ╱ef╱ $ ╱ // 0x46b5 @0x7
0x46ae…4722 at0008 = ╱ec╱ , ╱ // 0x46b6 @0x8
0x46ae…4722 at0009 = ╱31╱1╱ // 0x46b7 @0x9
0x46ae…4722 at000a = ╱32╱2╱ // 0x46b8 @0xa
0x46ae…4722 at000b = ╱fe0000c004╱ // 0x46b9 @0xb
0x46ae…4722 at0010 = ╱f0╱ : ╱ // 0x46be @0x10
0x46ae…4722 at0011 = ╱46╱F╱ // 0x46bf @0x11
0x46ae…4722 at0012 = ╱30╱0╱ // 0x46c0 @0x12
0x46ae…4722 at0013 = ╱ed╱ ( ╱ // 0x46c1 @0x13
0x46ae…4722 at0014 = ╱31╱1╱ // 0x46c2 @0x14
0x46ae…4722 at0015 = ╱fe00008001╱ // 0x46c3 @0x15
0x46ae…4722 at001a = ╱ee╱ ) ╱ // 0x46c8 @0x1a
0x46ae…4722 at001b = ╱ec╱ , ╱ // 0x46c9 @0x1b
0x46ae…4722 at001c = ╱46╱F╱ // 0x46ca @0x1c
0x46ae…4722 at001d = ╱30╱0╱ // 0x46cb @0x1d
0x46ae…4722 at001e = ╱ed╱ ( ╱ // 0x46cc @0x1e
0x46ae…4722 at001f = ╱32╱2╱ // 0x46cd @0x1f
0x46ae…4722 at0020 = ╱fe00008002╱ // 0x46ce @0x20
0x46ae…4722 at0025 = ╱ee╱ ) ╱ // 0x46d3 @0x25
0x46ae…4722 at0026 = ╱ec╱ , ╱ // 0x46d4 @0x26
0x46ae…4722 at0027 = ╱46╱F╱ // 0x46d5 @0x27
0x46ae…4722 at0028 = ╱30╱0╱ // 0x46d6 @0x28
0x46ae…4722 at0029 = ╱ed╱ ( ╱ // 0x46d7 @0x29
0x46ae…4722 at002a = ╱33╱3╱ // 0x46d8 @0x2a
0x46ae…4722 at002b = ╱fe0000c002╱ // 0x46d9 @0x2b
0x46ae…4722 at0030 = ╱ee╱ ) ╱ // 0x46de @0x30
0x46ae…4722 at0031 = ╱ec╱ , ╱ // 0x46df @0x31
0x46ae…4722 at0032 = ╱46╱F╱ // 0x46e0 @0x32
0x46ae…4722 at0033 = ╱30╱0╱ // 0x46e1 @0x33
0x46ae…4722 at0034 = ╱ed╱ ( ╱ // 0x46e2 @0x34
0x46ae…4722 at0035 = ╱34╱4╱ // 0x46e3 @0x35
0x46ae…4722 at0036 = ╱fe00008003╱ // 0x46e4 @0x36
0x46ae…4722 at003b = ╱ee╱ ) ╱ // 0x46e9 @0x3b
0x46ae…4722 at003c = ╱ec╱ , ╱ // 0x46ea @0x3c
0x46ae…4722 at003d = ╱46╱F╱ // 0x46eb @0x3d
0x46ae…4722 at003e = ╱30╱0╱ // 0x46ec @0x3e
0x46ae…4722 at003f = ╱ed╱ ( ╱ // 0x46ed @0x3f
0x46ae…4722 at0040 = ╱35╱5╱ // 0x46ee @0x40
0x46ae…4722 at0041 = ╱fe0000a003╱ // 0x46ef @0x41
0x46ae…4722 at0046 = ╱ee╱ ) ╱ // 0x46f4 @0x46
0x46ae…4722 at0047 = ╱ec╱ , ╱ // 0x46f5 @0x47
0x46ae…4722 at0048 = ╱46╱F╱ // 0x46f6 @0x48
0x46ae…4722 at0049 = ╱30╱0╱ // 0x46f7 @0x49
0x46ae…4722 at004a = ╱ed╱ ( ╱ // 0x46f8 @0x4a
0x46ae…4722 at004b = ╱36╱6╱ // 0x46f9 @0x4b
0x46ae…4722 at004c = ╱fe0000c003╱ // 0x46fa @0x4c
0x46ae…4722 at0051 = ╱ee╱ ) ╱ // 0x46ff @0x51
0x46ae…4722 at0052 = ╱ec╱ , ╱ // 0x4700 @0x52
0x46ae…4722 at0053 = ╱46╱F╱ // 0x4701 @0x53
0x46ae…4722 at0054 = ╱30╱0╱ // 0x4702 @0x54
0x46ae…4722 at0055 = ╱ed╱ ( ╱ // 0x4703 @0x55
0x46ae…4722 at0056 = ╱37╱7╱ // 0x4704 @0x56
0x46ae…4722 at0057 = ╱fe0000e003╱ // 0x4705 @0x57
0x46ae…4722 at005c = ╱ee╱ ) ╱ // 0x470a @0x5c
0x46ae…4722 at005d = ╱ec╱ , ╱ // 0x470b @0x5d
0x46ae…4722 at005e = ╱46╱F╱ // 0x470c @0x5e
0x46ae…4722 at005f = ╱30╱0╱ // 0x470d @0x5f
0x46ae…4722 at0060 = ╱ed╱ ( ╱ // 0x470e @0x60
0x46ae…4722 at0061 = ╱38╱8╱ // 0x470f @0x61
0x46ae…4722 at0062 = ╱fe00008004╱ // 0x4710 @0x62
0x46ae…4722 at0067 = ╱ee╱ ) ╱ // 0x4715 @0x67
0x46ae…4722 at0068 = ╱ec╱ , ╱ // 0x4716 @0x68
0x46ae…4722 at0069 = ╱46╱F╱ // 0x4717 @0x69
0x46ae…4722 at006a = ╱30╱0╱ // 0x4718 @0x6a
0x46ae…4722 at006b = ╱ed╱ ( ╱ // 0x4719 @0x6b
0x46ae…4722 at006c = ╱39╱9╱ // 0x471a @0x6c
0x46ae…4722 at006d = ╱fe00009004╱ // 0x471b @0x6d
0x46ae…4722 at0072 = ╱ee╱ ) ╱ // 0x4720 @0x72
0x46ae…4722 at0073 = EOL // 0x4721 @0x73
0x46ae…4722 }
0x4722…4740 ce8d 8690 EXEC FEJL ( 9 , 23 , E2 $ )
0x4722…4740 LineComalBcd {
0x4722…4740 ptr = 0xce8d // 0x4722 @0x0
0x4722…4740 lno = 0x8690 // 0x4724 @0x2
0x4722…4740 at0004 = ╱9d╱ EXEC ╱ // 0x4726 @0x4
0x4722…4740 at0005 = ╱46╱F╱ // 0x4727 @0x5
0x4722…4740 at0006 = ╱45╱E╱ // 0x4728 @0x6
0x4722…4740 at0007 = ╱4a╱J╱ // 0x4729 @0x7
0x4722…4740 at0008 = ╱4c╱L╱ // 0x472a @0x8
0x4722…4740 at0009 = ╱ed╱ ( ╱ // 0x472b @0x9
0x4722…4740 at000a = ╱39╱9╱ // 0x472c @0xa
0x4722…4740 at000b = ╱fe00009004╱ // 0x472d @0xb
0x4722…4740 at0010 = ╱ec╱ , ╱ // 0x4732 @0x10
0x4722…4740 at0011 = ╱32╱2╱ // 0x4733 @0x11
0x4722…4740 at0012 = ╱33╱3╱ // 0x4734 @0x12
0x4722…4740 at0013 = ╱fe0000b805╱ // 0x4735 @0x13
0x4722…4740 at0018 = ╱ec╱ , ╱ // 0x473a @0x18
0x4722…4740 at0019 = ╱45╱E╱ // 0x473b @0x19
0x4722…4740 at001a = ╱32╱2╱ // 0x473c @0x1a
0x4722…4740 at001b = ╱ef╱ $ ╱ // 0x473d @0x1b
0x4722…4740 at001c = ╱ee╱ ) ╱ // 0x473e @0x1c
0x4722…4740 at001d = EOL // 0x473f @0x1d
0x4722…4740 }
0x4740…47b4 cf01 8700 GET E2 $ , 13 : G1 ( 1 ) , G1 ( 2 ) , G1 ( 3 ) , G1 ( 4 ) , G1 ( 5 ) , G1 ( 6 ) , G1 ( 7 ) , G1 ( 8 ) , G1 ( 9 )
0x4740…47b4 LineComalBcd {
0x4740…47b4 ptr = 0xcf01 // 0x4740 @0x0
0x4740…47b4 lno = 0x8700 // 0x4742 @0x2
0x4740…47b4 at0004 = ╱a9╱ GET ╱ // 0x4744 @0x4
0x4740…47b4 at0005 = ╱45╱E╱ // 0x4745 @0x5
0x4740…47b4 at0006 = ╱32╱2╱ // 0x4746 @0x6
0x4740…47b4 at0007 = ╱ef╱ $ ╱ // 0x4747 @0x7
0x4740…47b4 at0008 = ╱ec╱ , ╱ // 0x4748 @0x8
0x4740…47b4 at0009 = ╱31╱1╱ // 0x4749 @0x9
0x4740…47b4 at000a = ╱33╱3╱ // 0x474a @0xa
0x4740…47b4 at000b = ╱fe0000d004╱ // 0x474b @0xb
0x4740…47b4 at0010 = ╱f0╱ : ╱ // 0x4750 @0x10
0x4740…47b4 at0011 = ╱47╱G╱ // 0x4751 @0x11
0x4740…47b4 at0012 = ╱31╱1╱ // 0x4752 @0x12
0x4740…47b4 at0013 = ╱ed╱ ( ╱ // 0x4753 @0x13
0x4740…47b4 at0014 = ╱31╱1╱ // 0x4754 @0x14
0x4740…47b4 at0015 = ╱fe00008001╱ // 0x4755 @0x15
0x4740…47b4 at001a = ╱ee╱ ) ╱ // 0x475a @0x1a
0x4740…47b4 at001b = ╱ec╱ , ╱ // 0x475b @0x1b
0x4740…47b4 at001c = ╱47╱G╱ // 0x475c @0x1c
0x4740…47b4 at001d = ╱31╱1╱ // 0x475d @0x1d
0x4740…47b4 at001e = ╱ed╱ ( ╱ // 0x475e @0x1e
0x4740…47b4 at001f = ╱32╱2╱ // 0x475f @0x1f
0x4740…47b4 at0020 = ╱fe00008002╱ // 0x4760 @0x20
0x4740…47b4 at0025 = ╱ee╱ ) ╱ // 0x4765 @0x25
0x4740…47b4 at0026 = ╱ec╱ , ╱ // 0x4766 @0x26
0x4740…47b4 at0027 = ╱47╱G╱ // 0x4767 @0x27
0x4740…47b4 at0028 = ╱31╱1╱ // 0x4768 @0x28
0x4740…47b4 at0029 = ╱ed╱ ( ╱ // 0x4769 @0x29
0x4740…47b4 at002a = ╱33╱3╱ // 0x476a @0x2a
0x4740…47b4 at002b = ╱fe0000c002╱ // 0x476b @0x2b
0x4740…47b4 at0030 = ╱ee╱ ) ╱ // 0x4770 @0x30
0x4740…47b4 at0031 = ╱ec╱ , ╱ // 0x4771 @0x31
0x4740…47b4 at0032 = ╱47╱G╱ // 0x4772 @0x32
0x4740…47b4 at0033 = ╱31╱1╱ // 0x4773 @0x33
0x4740…47b4 at0034 = ╱ed╱ ( ╱ // 0x4774 @0x34
0x4740…47b4 at0035 = ╱34╱4╱ // 0x4775 @0x35
0x4740…47b4 at0036 = ╱fe00008003╱ // 0x4776 @0x36
0x4740…47b4 at003b = ╱ee╱ ) ╱ // 0x477b @0x3b
0x4740…47b4 at003c = ╱ec╱ , ╱ // 0x477c @0x3c
0x4740…47b4 at003d = ╱47╱G╱ // 0x477d @0x3d
0x4740…47b4 at003e = ╱31╱1╱ // 0x477e @0x3e
0x4740…47b4 at003f = ╱ed╱ ( ╱ // 0x477f @0x3f
0x4740…47b4 at0040 = ╱35╱5╱ // 0x4780 @0x40
0x4740…47b4 at0041 = ╱fe0000a003╱ // 0x4781 @0x41
0x4740…47b4 at0046 = ╱ee╱ ) ╱ // 0x4786 @0x46
0x4740…47b4 at0047 = ╱ec╱ , ╱ // 0x4787 @0x47
0x4740…47b4 at0048 = ╱47╱G╱ // 0x4788 @0x48
0x4740…47b4 at0049 = ╱31╱1╱ // 0x4789 @0x49
0x4740…47b4 at004a = ╱ed╱ ( ╱ // 0x478a @0x4a
0x4740…47b4 at004b = ╱36╱6╱ // 0x478b @0x4b
0x4740…47b4 at004c = ╱fe0000c003╱ // 0x478c @0x4c
0x4740…47b4 at0051 = ╱ee╱ ) ╱ // 0x4791 @0x51
0x4740…47b4 at0052 = ╱ec╱ , ╱ // 0x4792 @0x52
0x4740…47b4 at0053 = ╱47╱G╱ // 0x4793 @0x53
0x4740…47b4 at0054 = ╱31╱1╱ // 0x4794 @0x54
0x4740…47b4 at0055 = ╱ed╱ ( ╱ // 0x4795 @0x55
0x4740…47b4 at0056 = ╱37╱7╱ // 0x4796 @0x56
0x4740…47b4 at0057 = ╱fe0000e003╱ // 0x4797 @0x57
0x4740…47b4 at005c = ╱ee╱ ) ╱ // 0x479c @0x5c
0x4740…47b4 at005d = ╱ec╱ , ╱ // 0x479d @0x5d
0x4740…47b4 at005e = ╱47╱G╱ // 0x479e @0x5e
0x4740…47b4 at005f = ╱31╱1╱ // 0x479f @0x5f
0x4740…47b4 at0060 = ╱ed╱ ( ╱ // 0x47a0 @0x60
0x4740…47b4 at0061 = ╱38╱8╱ // 0x47a1 @0x61
0x4740…47b4 at0062 = ╱fe00008004╱ // 0x47a2 @0x62
0x4740…47b4 at0067 = ╱ee╱ ) ╱ // 0x47a7 @0x67
0x4740…47b4 at0068 = ╱ec╱ , ╱ // 0x47a8 @0x68
0x4740…47b4 at0069 = ╱47╱G╱ // 0x47a9 @0x69
0x4740…47b4 at006a = ╱31╱1╱ // 0x47aa @0x6a
0x4740…47b4 at006b = ╱ed╱ ( ╱ // 0x47ab @0x6b
0x4740…47b4 at006c = ╱39╱9╱ // 0x47ac @0x6c
0x4740…47b4 at006d = ╱fe00009004╱ // 0x47ad @0x6d
0x4740…47b4 at0072 = ╱ee╱ ) ╱ // 0x47b2 @0x72
0x4740…47b4 at0073 = EOL // 0x47b3 @0x73
0x4740…47b4 }
0x47b4…47d2 cf1f 8710 EXEC FEJL ( 9 , 24 , E2 $ )
0x47b4…47d2 LineComalBcd {
0x47b4…47d2 ptr = 0xcf1f // 0x47b4 @0x0
0x47b4…47d2 lno = 0x8710 // 0x47b6 @0x2
0x47b4…47d2 at0004 = ╱9d╱ EXEC ╱ // 0x47b8 @0x4
0x47b4…47d2 at0005 = ╱46╱F╱ // 0x47b9 @0x5
0x47b4…47d2 at0006 = ╱45╱E╱ // 0x47ba @0x6
0x47b4…47d2 at0007 = ╱4a╱J╱ // 0x47bb @0x7
0x47b4…47d2 at0008 = ╱4c╱L╱ // 0x47bc @0x8
0x47b4…47d2 at0009 = ╱ed╱ ( ╱ // 0x47bd @0x9
0x47b4…47d2 at000a = ╱39╱9╱ // 0x47be @0xa
0x47b4…47d2 at000b = ╱fe00009004╱ // 0x47bf @0xb
0x47b4…47d2 at0010 = ╱ec╱ , ╱ // 0x47c4 @0x10
0x47b4…47d2 at0011 = ╱32╱2╱ // 0x47c5 @0x11
0x47b4…47d2 at0012 = ╱34╱4╱ // 0x47c6 @0x12
0x47b4…47d2 at0013 = ╱fe0000c005╱ // 0x47c7 @0x13
0x47b4…47d2 at0018 = ╱ec╱ , ╱ // 0x47cc @0x18
0x47b4…47d2 at0019 = ╱45╱E╱ // 0x47cd @0x19
0x47b4…47d2 at001a = ╱32╱2╱ // 0x47ce @0x1a
0x47b4…47d2 at001b = ╱ef╱ $ ╱ // 0x47cf @0x1b
0x47b4…47d2 at001c = ╱ee╱ ) ╱ // 0x47d0 @0x1c
0x47b4…47d2 at001d = EOL // 0x47d1 @0x1d
0x47b4…47d2 }
0x47d2…4807 cf54 8720 GET E2 $ , 15 : F5 $ ( 1 ) , F5 $ ( 2 ) , F5 $ ( 3 )
0x47d2…4807 LineComalBcd {
0x47d2…4807 ptr = 0xcf54 // 0x47d2 @0x0
0x47d2…4807 lno = 0x8720 // 0x47d4 @0x2
0x47d2…4807 at0004 = ╱a9╱ GET ╱ // 0x47d6 @0x4
0x47d2…4807 at0005 = ╱45╱E╱ // 0x47d7 @0x5
0x47d2…4807 at0006 = ╱32╱2╱ // 0x47d8 @0x6
0x47d2…4807 at0007 = ╱ef╱ $ ╱ // 0x47d9 @0x7
0x47d2…4807 at0008 = ╱ec╱ , ╱ // 0x47da @0x8
0x47d2…4807 at0009 = ╱31╱1╱ // 0x47db @0x9
0x47d2…4807 at000a = ╱35╱5╱ // 0x47dc @0xa
0x47d2…4807 at000b = ╱fe0000f004╱ // 0x47dd @0xb
0x47d2…4807 at0010 = ╱f0╱ : ╱ // 0x47e2 @0x10
0x47d2…4807 at0011 = ╱46╱F╱ // 0x47e3 @0x11
0x47d2…4807 at0012 = ╱35╱5╱ // 0x47e4 @0x12
0x47d2…4807 at0013 = ╱ef╱ $ ╱ // 0x47e5 @0x13
0x47d2…4807 at0014 = ╱ed╱ ( ╱ // 0x47e6 @0x14
0x47d2…4807 at0015 = ╱31╱1╱ // 0x47e7 @0x15
0x47d2…4807 at0016 = ╱fe00008001╱ // 0x47e8 @0x16
0x47d2…4807 at001b = ╱ee╱ ) ╱ // 0x47ed @0x1b
0x47d2…4807 at001c = ╱ec╱ , ╱ // 0x47ee @0x1c
0x47d2…4807 at001d = ╱46╱F╱ // 0x47ef @0x1d
0x47d2…4807 at001e = ╱35╱5╱ // 0x47f0 @0x1e
0x47d2…4807 at001f = ╱ef╱ $ ╱ // 0x47f1 @0x1f
0x47d2…4807 at0020 = ╱ed╱ ( ╱ // 0x47f2 @0x20
0x47d2…4807 at0021 = ╱32╱2╱ // 0x47f3 @0x21
0x47d2…4807 at0022 = ╱fe00008002╱ // 0x47f4 @0x22
0x47d2…4807 at0027 = ╱ee╱ ) ╱ // 0x47f9 @0x27
0x47d2…4807 at0028 = ╱ec╱ , ╱ // 0x47fa @0x28
0x47d2…4807 at0029 = ╱46╱F╱ // 0x47fb @0x29
0x47d2…4807 at002a = ╱35╱5╱ // 0x47fc @0x2a
0x47d2…4807 at002b = ╱ef╱ $ ╱ // 0x47fd @0x2b
0x47d2…4807 at002c = ╱ed╱ ( ╱ // 0x47fe @0x2c
0x47d2…4807 at002d = ╱33╱3╱ // 0x47ff @0x2d
0x47d2…4807 at002e = ╱fe0000c002╱ // 0x4800 @0x2e
0x47d2…4807 at0033 = ╱ee╱ ) ╱ // 0x4805 @0x33
0x47d2…4807 at0034 = EOL // 0x4806 @0x34
0x47d2…4807 }
0x4807…4825 cf72 8730 EXEC FEJL ( 9 , 25 , E2 $ )
0x4807…4825 LineComalBcd {
0x4807…4825 ptr = 0xcf72 // 0x4807 @0x0
0x4807…4825 lno = 0x8730 // 0x4809 @0x2
0x4807…4825 at0004 = ╱9d╱ EXEC ╱ // 0x480b @0x4
0x4807…4825 at0005 = ╱46╱F╱ // 0x480c @0x5
0x4807…4825 at0006 = ╱45╱E╱ // 0x480d @0x6
0x4807…4825 at0007 = ╱4a╱J╱ // 0x480e @0x7
0x4807…4825 at0008 = ╱4c╱L╱ // 0x480f @0x8
0x4807…4825 at0009 = ╱ed╱ ( ╱ // 0x4810 @0x9
0x4807…4825 at000a = ╱39╱9╱ // 0x4811 @0xa
0x4807…4825 at000b = ╱fe00009004╱ // 0x4812 @0xb
0x4807…4825 at0010 = ╱ec╱ , ╱ // 0x4817 @0x10
0x4807…4825 at0011 = ╱32╱2╱ // 0x4818 @0x11
0x4807…4825 at0012 = ╱35╱5╱ // 0x4819 @0x12
0x4807…4825 at0013 = ╱fe0000c805╱ // 0x481a @0x13
0x4807…4825 at0018 = ╱ec╱ , ╱ // 0x481f @0x18
0x4807…4825 at0019 = ╱45╱E╱ // 0x4820 @0x19
0x4807…4825 at001a = ╱32╱2╱ // 0x4821 @0x1a
0x4807…4825 at001b = ╱ef╱ $ ╱ // 0x4822 @0x1b
0x4807…4825 at001c = ╱ee╱ ) ╱ // 0x4823 @0x1c
0x4807…4825 at001d = EOL // 0x4824 @0x1d
0x4807…4825 }
0x4825…485a cfa7 8740 GET E2 $ , 16 : F5 $ ( 4 ) , F5 $ ( 5 ) , F5 $ ( 6 )
0x4825…485a LineComalBcd {
0x4825…485a ptr = 0xcfa7 // 0x4825 @0x0
0x4825…485a lno = 0x8740 // 0x4827 @0x2
0x4825…485a at0004 = ╱a9╱ GET ╱ // 0x4829 @0x4
0x4825…485a at0005 = ╱45╱E╱ // 0x482a @0x5
0x4825…485a at0006 = ╱32╱2╱ // 0x482b @0x6
0x4825…485a at0007 = ╱ef╱ $ ╱ // 0x482c @0x7
0x4825…485a at0008 = ╱ec╱ , ╱ // 0x482d @0x8
0x4825…485a at0009 = ╱31╱1╱ // 0x482e @0x9
0x4825…485a at000a = ╱36╱6╱ // 0x482f @0xa
0x4825…485a at000b = ╱fe00008005╱ // 0x4830 @0xb
0x4825…485a at0010 = ╱f0╱ : ╱ // 0x4835 @0x10
0x4825…485a at0011 = ╱46╱F╱ // 0x4836 @0x11
0x4825…485a at0012 = ╱35╱5╱ // 0x4837 @0x12
0x4825…485a at0013 = ╱ef╱ $ ╱ // 0x4838 @0x13
0x4825…485a at0014 = ╱ed╱ ( ╱ // 0x4839 @0x14
0x4825…485a at0015 = ╱34╱4╱ // 0x483a @0x15
0x4825…485a at0016 = ╱fe00008003╱ // 0x483b @0x16
0x4825…485a at001b = ╱ee╱ ) ╱ // 0x4840 @0x1b
0x4825…485a at001c = ╱ec╱ , ╱ // 0x4841 @0x1c
0x4825…485a at001d = ╱46╱F╱ // 0x4842 @0x1d
0x4825…485a at001e = ╱35╱5╱ // 0x4843 @0x1e
0x4825…485a at001f = ╱ef╱ $ ╱ // 0x4844 @0x1f
0x4825…485a at0020 = ╱ed╱ ( ╱ // 0x4845 @0x20
0x4825…485a at0021 = ╱35╱5╱ // 0x4846 @0x21
0x4825…485a at0022 = ╱fe0000a003╱ // 0x4847 @0x22
0x4825…485a at0027 = ╱ee╱ ) ╱ // 0x484c @0x27
0x4825…485a at0028 = ╱ec╱ , ╱ // 0x484d @0x28
0x4825…485a at0029 = ╱46╱F╱ // 0x484e @0x29
0x4825…485a at002a = ╱35╱5╱ // 0x484f @0x2a
0x4825…485a at002b = ╱ef╱ $ ╱ // 0x4850 @0x2b
0x4825…485a at002c = ╱ed╱ ( ╱ // 0x4851 @0x2c
0x4825…485a at002d = ╱36╱6╱ // 0x4852 @0x2d
0x4825…485a at002e = ╱fe0000c003╱ // 0x4853 @0x2e
0x4825…485a at0033 = ╱ee╱ ) ╱ // 0x4858 @0x33
0x4825…485a at0034 = EOL // 0x4859 @0x34
0x4825…485a }
0x485a…4878 cfc5 8750 EXEC FEJL ( 9 , 26 , E2 $ )
0x485a…4878 LineComalBcd {
0x485a…4878 ptr = 0xcfc5 // 0x485a @0x0
0x485a…4878 lno = 0x8750 // 0x485c @0x2
0x485a…4878 at0004 = ╱9d╱ EXEC ╱ // 0x485e @0x4
0x485a…4878 at0005 = ╱46╱F╱ // 0x485f @0x5
0x485a…4878 at0006 = ╱45╱E╱ // 0x4860 @0x6
0x485a…4878 at0007 = ╱4a╱J╱ // 0x4861 @0x7
0x485a…4878 at0008 = ╱4c╱L╱ // 0x4862 @0x8
0x485a…4878 at0009 = ╱ed╱ ( ╱ // 0x4863 @0x9
0x485a…4878 at000a = ╱39╱9╱ // 0x4864 @0xa
0x485a…4878 at000b = ╱fe00009004╱ // 0x4865 @0xb
0x485a…4878 at0010 = ╱ec╱ , ╱ // 0x486a @0x10
0x485a…4878 at0011 = ╱32╱2╱ // 0x486b @0x11
0x485a…4878 at0012 = ╱36╱6╱ // 0x486c @0x12
0x485a…4878 at0013 = ╱fe0000d005╱ // 0x486d @0x13
0x485a…4878 at0018 = ╱ec╱ , ╱ // 0x4872 @0x18
0x485a…4878 at0019 = ╱45╱E╱ // 0x4873 @0x19
0x485a…4878 at001a = ╱32╱2╱ // 0x4874 @0x1a
0x485a…4878 at001b = ╱ef╱ $ ╱ // 0x4875 @0x1b
0x485a…4878 at001c = ╱ee╱ ) ╱ // 0x4876 @0x1c
0x485a…4878 at001d = EOL // 0x4877 @0x1d
0x485a…4878 }
0x4878…4881 cfce 8760 CLOSE E2 $
0x4878…4881 LineComalBcd {
0x4878…4881 ptr = 0xcfce // 0x4878 @0x0
0x4878…4881 lno = 0x8760 // 0x487a @0x2
0x4878…4881 at0004 = ╱a8╱ CLOSE ╱ // 0x487c @0x4
0x4878…4881 at0005 = ╱45╱E╱ // 0x487d @0x5
0x4878…4881 at0006 = ╱32╱2╱ // 0x487e @0x6
0x4878…4881 at0007 = ╱ef╱ $ ╱ // 0x487f @0x7
0x4878…4881 at0008 = EOL // 0x4880 @0x8
0x4878…4881 }
0x4881…489f cfec 8770 EXEC FEJL ( 9 , 27 , E2 $ )
0x4881…489f LineComalBcd {
0x4881…489f ptr = 0xcfec // 0x4881 @0x0
0x4881…489f lno = 0x8770 // 0x4883 @0x2
0x4881…489f at0004 = ╱9d╱ EXEC ╱ // 0x4885 @0x4
0x4881…489f at0005 = ╱46╱F╱ // 0x4886 @0x5
0x4881…489f at0006 = ╱45╱E╱ // 0x4887 @0x6
0x4881…489f at0007 = ╱4a╱J╱ // 0x4888 @0x7
0x4881…489f at0008 = ╱4c╱L╱ // 0x4889 @0x8
0x4881…489f at0009 = ╱ed╱ ( ╱ // 0x488a @0x9
0x4881…489f at000a = ╱39╱9╱ // 0x488b @0xa
0x4881…489f at000b = ╱fe00009004╱ // 0x488c @0xb
0x4881…489f at0010 = ╱ec╱ , ╱ // 0x4891 @0x10
0x4881…489f at0011 = ╱32╱2╱ // 0x4892 @0x11
0x4881…489f at0012 = ╱37╱7╱ // 0x4893 @0x12
0x4881…489f at0013 = ╱fe0000d805╱ // 0x4894 @0x13
0x4881…489f at0018 = ╱ec╱ , ╱ // 0x4899 @0x18
0x4881…489f at0019 = ╱45╱E╱ // 0x489a @0x19
0x4881…489f at001a = ╱32╱2╱ // 0x489b @0x1a
0x4881…489f at001b = ╱ef╱ $ ╱ // 0x489c @0x1b
0x4881…489f at001c = ╱ee╱ ) ╱ // 0x489d @0x1c
0x4881…489f at001d = EOL // 0x489e @0x1d
0x4881…489f }
0x489f…48eb d038 8780 A6 $ = E7 $ + A6 $ ; A4 $ = E7 $ + A4 $ ; B6 $ = E7 $ + B6 $ ; C9 $ = E7 $ + C9 $ ; D0 $ = E7 $ + D0 $ ; D1 $ = E7 $ + D1 $
0x489f…48eb LineComalBcd {
0x489f…48eb ptr = 0xd038 // 0x489f @0x0
0x489f…48eb lno = 0x8780 // 0x48a1 @0x2
0x489f…48eb at0004 = ╱41╱A╱ // 0x48a3 @0x4
0x489f…48eb at0005 = ╱36╱6╱ // 0x48a4 @0x5
0x489f…48eb at0006 = ╱ef╱ $ ╱ // 0x48a5 @0x6
0x489f…48eb at0007 = ╱dc╱ = ╱ // 0x48a6 @0x7
0x489f…48eb at0008 = ╱45╱E╱ // 0x48a7 @0x8
0x489f…48eb at0009 = ╱37╱7╱ // 0x48a8 @0x9
0x489f…48eb at000a = ╱ef╱ $ ╱ // 0x48a9 @0xa
0x489f…48eb at000b = ╱f1╱ + ╱ // 0x48aa @0xb
0x489f…48eb at000c = ╱41╱A╱ // 0x48ab @0xc
0x489f…48eb at000d = ╱36╱6╱ // 0x48ac @0xd
0x489f…48eb at000e = ╱ef╱ $ ╱ // 0x48ad @0xe
0x489f…48eb at000f = ╱eb╱ ; ╱ // 0x48ae @0xf
0x489f…48eb at0010 = ╱41╱A╱ // 0x48af @0x10
0x489f…48eb at0011 = ╱34╱4╱ // 0x48b0 @0x11
0x489f…48eb at0012 = ╱ef╱ $ ╱ // 0x48b1 @0x12
0x489f…48eb at0013 = ╱dc╱ = ╱ // 0x48b2 @0x13
0x489f…48eb at0014 = ╱45╱E╱ // 0x48b3 @0x14
0x489f…48eb at0015 = ╱37╱7╱ // 0x48b4 @0x15
0x489f…48eb at0016 = ╱ef╱ $ ╱ // 0x48b5 @0x16
0x489f…48eb at0017 = ╱f1╱ + ╱ // 0x48b6 @0x17
0x489f…48eb at0018 = ╱41╱A╱ // 0x48b7 @0x18
0x489f…48eb at0019 = ╱34╱4╱ // 0x48b8 @0x19
0x489f…48eb at001a = ╱ef╱ $ ╱ // 0x48b9 @0x1a
0x489f…48eb at001b = ╱eb╱ ; ╱ // 0x48ba @0x1b
0x489f…48eb at001c = ╱42╱B╱ // 0x48bb @0x1c
0x489f…48eb at001d = ╱36╱6╱ // 0x48bc @0x1d
0x489f…48eb at001e = ╱ef╱ $ ╱ // 0x48bd @0x1e
0x489f…48eb at001f = ╱dc╱ = ╱ // 0x48be @0x1f
0x489f…48eb at0020 = ╱45╱E╱ // 0x48bf @0x20
0x489f…48eb at0021 = ╱37╱7╱ // 0x48c0 @0x21
0x489f…48eb at0022 = ╱ef╱ $ ╱ // 0x48c1 @0x22
0x489f…48eb at0023 = ╱f1╱ + ╱ // 0x48c2 @0x23
0x489f…48eb at0024 = ╱42╱B╱ // 0x48c3 @0x24
0x489f…48eb at0025 = ╱36╱6╱ // 0x48c4 @0x25
0x489f…48eb at0026 = ╱ef╱ $ ╱ // 0x48c5 @0x26
0x489f…48eb at0027 = ╱eb╱ ; ╱ // 0x48c6 @0x27
0x489f…48eb at0028 = ╱43╱C╱ // 0x48c7 @0x28
0x489f…48eb at0029 = ╱39╱9╱ // 0x48c8 @0x29
0x489f…48eb at002a = ╱ef╱ $ ╱ // 0x48c9 @0x2a
0x489f…48eb at002b = ╱dc╱ = ╱ // 0x48ca @0x2b
0x489f…48eb at002c = ╱45╱E╱ // 0x48cb @0x2c
0x489f…48eb at002d = ╱37╱7╱ // 0x48cc @0x2d
0x489f…48eb at002e = ╱ef╱ $ ╱ // 0x48cd @0x2e
0x489f…48eb at002f = ╱f1╱ + ╱ // 0x48ce @0x2f
0x489f…48eb at0030 = ╱43╱C╱ // 0x48cf @0x30
0x489f…48eb at0031 = ╱39╱9╱ // 0x48d0 @0x31
0x489f…48eb at0032 = ╱ef╱ $ ╱ // 0x48d1 @0x32
0x489f…48eb at0033 = ╱eb╱ ; ╱ // 0x48d2 @0x33
0x489f…48eb at0034 = ╱44╱D╱ // 0x48d3 @0x34
0x489f…48eb at0035 = ╱30╱0╱ // 0x48d4 @0x35
0x489f…48eb at0036 = ╱ef╱ $ ╱ // 0x48d5 @0x36
0x489f…48eb at0037 = ╱dc╱ = ╱ // 0x48d6 @0x37
0x489f…48eb at0038 = ╱45╱E╱ // 0x48d7 @0x38
0x489f…48eb at0039 = ╱37╱7╱ // 0x48d8 @0x39
0x489f…48eb at003a = ╱ef╱ $ ╱ // 0x48d9 @0x3a
0x489f…48eb at003b = ╱f1╱ + ╱ // 0x48da @0x3b
0x489f…48eb at003c = ╱44╱D╱ // 0x48db @0x3c
0x489f…48eb at003d = ╱30╱0╱ // 0x48dc @0x3d
0x489f…48eb at003e = ╱ef╱ $ ╱ // 0x48dd @0x3e
0x489f…48eb at003f = ╱eb╱ ; ╱ // 0x48de @0x3f
0x489f…48eb at0040 = ╱44╱D╱ // 0x48df @0x40
0x489f…48eb at0041 = ╱31╱1╱ // 0x48e0 @0x41
0x489f…48eb at0042 = ╱ef╱ $ ╱ // 0x48e1 @0x42
0x489f…48eb at0043 = ╱dc╱ = ╱ // 0x48e2 @0x43
0x489f…48eb at0044 = ╱45╱E╱ // 0x48e3 @0x44
0x489f…48eb at0045 = ╱37╱7╱ // 0x48e4 @0x45
0x489f…48eb at0046 = ╱ef╱ $ ╱ // 0x48e5 @0x46
0x489f…48eb at0047 = ╱f1╱ + ╱ // 0x48e6 @0x47
0x489f…48eb at0048 = ╱44╱D╱ // 0x48e7 @0x48
0x489f…48eb at0049 = ╱31╱1╱ // 0x48e8 @0x49
0x489f…48eb at004a = ╱ef╱ $ ╱ // 0x48e9 @0x4a
0x489f…48eb at004b = EOL // 0x48ea @0x4b
0x489f…48eb }
0x48eb…4907 d054 8790 D2 $ = E7 $ + D2 $ ; D3 $ = E7 $ + D3 $
0x48eb…4907 LineComalBcd {
0x48eb…4907 ptr = 0xd054 // 0x48eb @0x0
0x48eb…4907 lno = 0x8790 // 0x48ed @0x2
0x48eb…4907 at0004 = ╱44╱D╱ // 0x48ef @0x4
0x48eb…4907 at0005 = ╱32╱2╱ // 0x48f0 @0x5
0x48eb…4907 at0006 = ╱ef╱ $ ╱ // 0x48f1 @0x6
0x48eb…4907 at0007 = ╱dc╱ = ╱ // 0x48f2 @0x7
0x48eb…4907 at0008 = ╱45╱E╱ // 0x48f3 @0x8
0x48eb…4907 at0009 = ╱37╱7╱ // 0x48f4 @0x9
0x48eb…4907 at000a = ╱ef╱ $ ╱ // 0x48f5 @0xa
0x48eb…4907 at000b = ╱f1╱ + ╱ // 0x48f6 @0xb
0x48eb…4907 at000c = ╱44╱D╱ // 0x48f7 @0xc
0x48eb…4907 at000d = ╱32╱2╱ // 0x48f8 @0xd
0x48eb…4907 at000e = ╱ef╱ $ ╱ // 0x48f9 @0xe
0x48eb…4907 at000f = ╱eb╱ ; ╱ // 0x48fa @0xf
0x48eb…4907 at0010 = ╱44╱D╱ // 0x48fb @0x10
0x48eb…4907 at0011 = ╱33╱3╱ // 0x48fc @0x11
0x48eb…4907 at0012 = ╱ef╱ $ ╱ // 0x48fd @0x12
0x48eb…4907 at0013 = ╱dc╱ = ╱ // 0x48fe @0x13
0x48eb…4907 at0014 = ╱45╱E╱ // 0x48ff @0x14
0x48eb…4907 at0015 = ╱37╱7╱ // 0x4900 @0x15
0x48eb…4907 at0016 = ╱ef╱ $ ╱ // 0x4901 @0x16
0x48eb…4907 at0017 = ╱f1╱ + ╱ // 0x4902 @0x17
0x48eb…4907 at0018 = ╱44╱D╱ // 0x4903 @0x18
0x48eb…4907 at0019 = ╱33╱3╱ // 0x4904 @0x19
0x48eb…4907 at001a = ╱ef╱ $ ╱ // 0x4905 @0x1a
0x48eb…4907 at001b = EOL // 0x4906 @0x1b
0x48eb…4907 }
0x4907…4912 d05f 8800 OPEN A6 $ , R
0x4907…4912 LineComalBcd {
0x4907…4912 ptr = 0xd05f // 0x4907 @0x0
0x4907…4912 lno = 0x8800 // 0x4909 @0x2
0x4907…4912 at0004 = ╱a7╱ OPEN ╱ // 0x490b @0x4
0x4907…4912 at0005 = ╱41╱A╱ // 0x490c @0x5
0x4907…4912 at0006 = ╱36╱6╱ // 0x490d @0x6
0x4907…4912 at0007 = ╱ef╱ $ ╱ // 0x490e @0x7
0x4907…4912 at0008 = ╱ec╱ , ╱ // 0x490f @0x8
0x4907…4912 at0009 = ╱52╱R╱ // 0x4910 @0x9
0x4907…4912 at000a = EOL // 0x4911 @0xa
0x4907…4912 }
0x4912…4930 d07d 8810 EXEC FEJL ( 9 , 28 , A6 $ )
0x4912…4930 LineComalBcd {
0x4912…4930 ptr = 0xd07d // 0x4912 @0x0
0x4912…4930 lno = 0x8810 // 0x4914 @0x2
0x4912…4930 at0004 = ╱9d╱ EXEC ╱ // 0x4916 @0x4
0x4912…4930 at0005 = ╱46╱F╱ // 0x4917 @0x5
0x4912…4930 at0006 = ╱45╱E╱ // 0x4918 @0x6
0x4912…4930 at0007 = ╱4a╱J╱ // 0x4919 @0x7
0x4912…4930 at0008 = ╱4c╱L╱ // 0x491a @0x8
0x4912…4930 at0009 = ╱ed╱ ( ╱ // 0x491b @0x9
0x4912…4930 at000a = ╱39╱9╱ // 0x491c @0xa
0x4912…4930 at000b = ╱fe00009004╱ // 0x491d @0xb
0x4912…4930 at0010 = ╱ec╱ , ╱ // 0x4922 @0x10
0x4912…4930 at0011 = ╱32╱2╱ // 0x4923 @0x11
0x4912…4930 at0012 = ╱38╱8╱ // 0x4924 @0x12
0x4912…4930 at0013 = ╱fe0000e005╱ // 0x4925 @0x13
0x4912…4930 at0018 = ╱ec╱ , ╱ // 0x492a @0x18
0x4912…4930 at0019 = ╱41╱A╱ // 0x492b @0x19
0x4912…4930 at001a = ╱36╱6╱ // 0x492c @0x1a
0x4912…4930 at001b = ╱ef╱ $ ╱ // 0x492d @0x1b
0x4912…4930 at001c = ╱ee╱ ) ╱ // 0x492e @0x1c
0x4912…4930 at001d = EOL // 0x492f @0x1d
0x4912…4930 }
0x4930…493b d088 8820 OPEN A4 $ , R
0x4930…493b LineComalBcd {
0x4930…493b ptr = 0xd088 // 0x4930 @0x0
0x4930…493b lno = 0x8820 // 0x4932 @0x2
0x4930…493b at0004 = ╱a7╱ OPEN ╱ // 0x4934 @0x4
0x4930…493b at0005 = ╱41╱A╱ // 0x4935 @0x5
0x4930…493b at0006 = ╱34╱4╱ // 0x4936 @0x6
0x4930…493b at0007 = ╱ef╱ $ ╱ // 0x4937 @0x7
0x4930…493b at0008 = ╱ec╱ , ╱ // 0x4938 @0x8
0x4930…493b at0009 = ╱52╱R╱ // 0x4939 @0x9
0x4930…493b at000a = EOL // 0x493a @0xa
0x4930…493b }
0x493b…4959 d0a6 8830 EXEC FEJL ( 9 , 29 , A4 $ )
0x493b…4959 LineComalBcd {
0x493b…4959 ptr = 0xd0a6 // 0x493b @0x0
0x493b…4959 lno = 0x8830 // 0x493d @0x2
0x493b…4959 at0004 = ╱9d╱ EXEC ╱ // 0x493f @0x4
0x493b…4959 at0005 = ╱46╱F╱ // 0x4940 @0x5
0x493b…4959 at0006 = ╱45╱E╱ // 0x4941 @0x6
0x493b…4959 at0007 = ╱4a╱J╱ // 0x4942 @0x7
0x493b…4959 at0008 = ╱4c╱L╱ // 0x4943 @0x8
0x493b…4959 at0009 = ╱ed╱ ( ╱ // 0x4944 @0x9
0x493b…4959 at000a = ╱39╱9╱ // 0x4945 @0xa
0x493b…4959 at000b = ╱fe00009004╱ // 0x4946 @0xb
0x493b…4959 at0010 = ╱ec╱ , ╱ // 0x494b @0x10
0x493b…4959 at0011 = ╱32╱2╱ // 0x494c @0x11
0x493b…4959 at0012 = ╱39╱9╱ // 0x494d @0x12
0x493b…4959 at0013 = ╱fe0000e805╱ // 0x494e @0x13
0x493b…4959 at0018 = ╱ec╱ , ╱ // 0x4953 @0x18
0x493b…4959 at0019 = ╱41╱A╱ // 0x4954 @0x19
0x493b…4959 at001a = ╱34╱4╱ // 0x4955 @0x1a
0x493b…4959 at001b = ╱ef╱ $ ╱ // 0x4956 @0x1b
0x493b…4959 at001c = ╱ee╱ ) ╱ // 0x4957 @0x1c
0x493b…4959 at001d = EOL // 0x4958 @0x1d
0x493b…4959 }
0x4959…4964 d0b1 8840 OPEN B6 $ , R
0x4959…4964 LineComalBcd {
0x4959…4964 ptr = 0xd0b1 // 0x4959 @0x0
0x4959…4964 lno = 0x8840 // 0x495b @0x2
0x4959…4964 at0004 = ╱a7╱ OPEN ╱ // 0x495d @0x4
0x4959…4964 at0005 = ╱42╱B╱ // 0x495e @0x5
0x4959…4964 at0006 = ╱36╱6╱ // 0x495f @0x6
0x4959…4964 at0007 = ╱ef╱ $ ╱ // 0x4960 @0x7
0x4959…4964 at0008 = ╱ec╱ , ╱ // 0x4961 @0x8
0x4959…4964 at0009 = ╱52╱R╱ // 0x4962 @0x9
0x4959…4964 at000a = EOL // 0x4963 @0xa
0x4959…4964 }
0x4964…4982 (244,) d0cf 8850 EXEC FEJL ( 9 , 30 , B6 $ )
0x4964…4982 LineComalBcd {
0x4964…4982 ptr = 0xd0cf // 0x4964 @0x0
0x4964…4982 lno = 0x8850 // 0x4966 @0x2
0x4964…4982 at0004 = ╱9d╱ EXEC ╱ // 0x4968 @0x4
0x4964…4982 at0005 = ╱46╱F╱ // 0x4969 @0x5
0x4964…4982 at0006 = ╱45╱E╱ // 0x496a @0x6
0x4964…4982 at0007 = ╱4a╱J╱ // 0x496b @0x7
0x4964…4982 at0008 = ╱4c╱L╱ // 0x496c @0x8
0x4964…4982 at0009 = ╱ed╱ ( ╱ // 0x496d @0x9
0x4964…4982 at000a = ╱39╱9╱ // 0x496e @0xa
0x4964…4982 at000b = ╱fe00009004╱ // 0x496f @0xb
0x4964…4982 at0010 = ╱ec╱ , ╱ // 0x4974 @0x10
0x4964…4982 at0011 = ╱33╱3╱ // 0x4975 @0x11
0x4964…4982 at0012 = ╱30╱0╱ // 0x4976 @0x12
0x4964…4982 at0013 = ╱fe0000f005╱ // 0x4977 @0x13
0x4964…4982 at0018 = ╱ec╱ , ╱ // 0x497c @0x18
0x4964…4982 at0019 = ╱42╱B╱ // 0x497d @0x19
0x4964…4982 at001a = ╱36╱6╱ // 0x497e @0x1a
0x4964…4982 at001b = ╱ef╱ $ ╱ // 0x497f @0x1b
0x4964…4982 at001c = ╱ee╱ ) ╱ // 0x4980 @0x1c
0x4964…4982 at001d = EOL // 0x4981 @0x1d
0x4964…4982 }
0x4982…498d d0da 8860 OPEN C9 $ , R
0x4982…498d LineComalBcd {
0x4982…498d ptr = 0xd0da // 0x4982 @0x0
0x4982…498d lno = 0x8860 // 0x4984 @0x2
0x4982…498d at0004 = ╱a7╱ OPEN ╱ // 0x4986 @0x4
0x4982…498d at0005 = ╱43╱C╱ // 0x4987 @0x5
0x4982…498d at0006 = ╱39╱9╱ // 0x4988 @0x6
0x4982…498d at0007 = ╱ef╱ $ ╱ // 0x4989 @0x7
0x4982…498d at0008 = ╱ec╱ , ╱ // 0x498a @0x8
0x4982…498d at0009 = ╱52╱R╱ // 0x498b @0x9
0x4982…498d at000a = EOL // 0x498c @0xa
0x4982…498d }
0x498d…49ab d0f8 8870 EXEC FEJL ( 9 , 31 , C9 $ )
0x498d…49ab LineComalBcd {
0x498d…49ab ptr = 0xd0f8 // 0x498d @0x0
0x498d…49ab lno = 0x8870 // 0x498f @0x2
0x498d…49ab at0004 = ╱9d╱ EXEC ╱ // 0x4991 @0x4
0x498d…49ab at0005 = ╱46╱F╱ // 0x4992 @0x5
0x498d…49ab at0006 = ╱45╱E╱ // 0x4993 @0x6
0x498d…49ab at0007 = ╱4a╱J╱ // 0x4994 @0x7
0x498d…49ab at0008 = ╱4c╱L╱ // 0x4995 @0x8
0x498d…49ab at0009 = ╱ed╱ ( ╱ // 0x4996 @0x9
0x498d…49ab at000a = ╱39╱9╱ // 0x4997 @0xa
0x498d…49ab at000b = ╱fe00009004╱ // 0x4998 @0xb
0x498d…49ab at0010 = ╱ec╱ , ╱ // 0x499d @0x10
0x498d…49ab at0011 = ╱33╱3╱ // 0x499e @0x11
0x498d…49ab at0012 = ╱31╱1╱ // 0x499f @0x12
0x498d…49ab at0013 = ╱fe0000f805╱ // 0x49a0 @0x13
0x498d…49ab at0018 = ╱ec╱ , ╱ // 0x49a5 @0x18
0x498d…49ab at0019 = ╱43╱C╱ // 0x49a6 @0x19
0x498d…49ab at001a = ╱39╱9╱ // 0x49a7 @0x1a
0x498d…49ab at001b = ╱ef╱ $ ╱ // 0x49a8 @0x1b
0x498d…49ab at001c = ╱ee╱ ) ╱ // 0x49a9 @0x1c
0x498d…49ab at001d = EOL // 0x49aa @0x1d
0x498d…49ab }
0x49ab…49b6 d103 8880 OPEN D0 $ , R
0x49ab…49b6 LineComalBcd {
0x49ab…49b6 ptr = 0xd103 // 0x49ab @0x0
0x49ab…49b6 lno = 0x8880 // 0x49ad @0x2
0x49ab…49b6 at0004 = ╱a7╱ OPEN ╱ // 0x49af @0x4
0x49ab…49b6 at0005 = ╱44╱D╱ // 0x49b0 @0x5
0x49ab…49b6 at0006 = ╱30╱0╱ // 0x49b1 @0x6
0x49ab…49b6 at0007 = ╱ef╱ $ ╱ // 0x49b2 @0x7
0x49ab…49b6 at0008 = ╱ec╱ , ╱ // 0x49b3 @0x8
0x49ab…49b6 at0009 = ╱52╱R╱ // 0x49b4 @0x9
0x49ab…49b6 at000a = EOL // 0x49b5 @0xa
0x49ab…49b6 }
0x49b6…49d4 d121 8890 EXEC FEJL ( 9 , 32 , D0 $ )
0x49b6…49d4 LineComalBcd {
0x49b6…49d4 ptr = 0xd121 // 0x49b6 @0x0
0x49b6…49d4 lno = 0x8890 // 0x49b8 @0x2
0x49b6…49d4 at0004 = ╱9d╱ EXEC ╱ // 0x49ba @0x4
0x49b6…49d4 at0005 = ╱46╱F╱ // 0x49bb @0x5
0x49b6…49d4 at0006 = ╱45╱E╱ // 0x49bc @0x6
0x49b6…49d4 at0007 = ╱4a╱J╱ // 0x49bd @0x7
0x49b6…49d4 at0008 = ╱4c╱L╱ // 0x49be @0x8
0x49b6…49d4 at0009 = ╱ed╱ ( ╱ // 0x49bf @0x9
0x49b6…49d4 at000a = ╱39╱9╱ // 0x49c0 @0xa
0x49b6…49d4 at000b = ╱fe00009004╱ // 0x49c1 @0xb
0x49b6…49d4 at0010 = ╱ec╱ , ╱ // 0x49c6 @0x10
0x49b6…49d4 at0011 = ╱33╱3╱ // 0x49c7 @0x11
0x49b6…49d4 at0012 = ╱32╱2╱ // 0x49c8 @0x12
0x49b6…49d4 at0013 = ╱fe00008006╱ // 0x49c9 @0x13
0x49b6…49d4 at0018 = ╱ec╱ , ╱ // 0x49ce @0x18
0x49b6…49d4 at0019 = ╱44╱D╱ // 0x49cf @0x19
0x49b6…49d4 at001a = ╱30╱0╱ // 0x49d0 @0x1a
0x49b6…49d4 at001b = ╱ef╱ $ ╱ // 0x49d1 @0x1b
0x49b6…49d4 at001c = ╱ee╱ ) ╱ // 0x49d2 @0x1c
0x49b6…49d4 at001d = EOL // 0x49d3 @0x1d
0x49b6…49d4 }
0x49d4…49df d12c 8900 OPEN D1 $ , R
0x49d4…49df LineComalBcd {
0x49d4…49df ptr = 0xd12c // 0x49d4 @0x0
0x49d4…49df lno = 0x8900 // 0x49d6 @0x2
0x49d4…49df at0004 = ╱a7╱ OPEN ╱ // 0x49d8 @0x4
0x49d4…49df at0005 = ╱44╱D╱ // 0x49d9 @0x5
0x49d4…49df at0006 = ╱31╱1╱ // 0x49da @0x6
0x49d4…49df at0007 = ╱ef╱ $ ╱ // 0x49db @0x7
0x49d4…49df at0008 = ╱ec╱ , ╱ // 0x49dc @0x8
0x49d4…49df at0009 = ╱52╱R╱ // 0x49dd @0x9
0x49d4…49df at000a = EOL // 0x49de @0xa
0x49d4…49df }
0x49df…49fd d14a 8910 EXEC FEJL ( 9 , 33 , D1 $ )
0x49df…49fd LineComalBcd {
0x49df…49fd ptr = 0xd14a // 0x49df @0x0
0x49df…49fd lno = 0x8910 // 0x49e1 @0x2
0x49df…49fd at0004 = ╱9d╱ EXEC ╱ // 0x49e3 @0x4
0x49df…49fd at0005 = ╱46╱F╱ // 0x49e4 @0x5
0x49df…49fd at0006 = ╱45╱E╱ // 0x49e5 @0x6
0x49df…49fd at0007 = ╱4a╱J╱ // 0x49e6 @0x7
0x49df…49fd at0008 = ╱4c╱L╱ // 0x49e7 @0x8
0x49df…49fd at0009 = ╱ed╱ ( ╱ // 0x49e8 @0x9
0x49df…49fd at000a = ╱39╱9╱ // 0x49e9 @0xa
0x49df…49fd at000b = ╱fe00009004╱ // 0x49ea @0xb
0x49df…49fd at0010 = ╱ec╱ , ╱ // 0x49ef @0x10
0x49df…49fd at0011 = ╱33╱3╱ // 0x49f0 @0x11
0x49df…49fd at0012 = ╱33╱3╱ // 0x49f1 @0x12
0x49df…49fd at0013 = ╱fe00008406╱ // 0x49f2 @0x13
0x49df…49fd at0018 = ╱ec╱ , ╱ // 0x49f7 @0x18
0x49df…49fd at0019 = ╱44╱D╱ // 0x49f8 @0x19
0x49df…49fd at001a = ╱31╱1╱ // 0x49f9 @0x1a
0x49df…49fd at001b = ╱ef╱ $ ╱ // 0x49fa @0x1b
0x49df…49fd at001c = ╱ee╱ ) ╱ // 0x49fb @0x1c
0x49df…49fd at001d = EOL // 0x49fc @0x1d
0x49df…49fd }
0x49fd…4a08 d155 8920 OPEN D2 $ , W
0x49fd…4a08 LineComalBcd {
0x49fd…4a08 ptr = 0xd155 // 0x49fd @0x0
0x49fd…4a08 lno = 0x8920 // 0x49ff @0x2
0x49fd…4a08 at0004 = ╱a7╱ OPEN ╱ // 0x4a01 @0x4
0x49fd…4a08 at0005 = ╱44╱D╱ // 0x4a02 @0x5
0x49fd…4a08 at0006 = ╱32╱2╱ // 0x4a03 @0x6
0x49fd…4a08 at0007 = ╱ef╱ $ ╱ // 0x4a04 @0x7
0x49fd…4a08 at0008 = ╱ec╱ , ╱ // 0x4a05 @0x8
0x49fd…4a08 at0009 = ╱57╱W╱ // 0x4a06 @0x9
0x49fd…4a08 at000a = EOL // 0x4a07 @0xa
0x49fd…4a08 }
0x4a08…4a26 d173 8930 EXEC FEJL ( 9 , 34 , D2 $ )
0x4a08…4a26 LineComalBcd {
0x4a08…4a26 ptr = 0xd173 // 0x4a08 @0x0
0x4a08…4a26 lno = 0x8930 // 0x4a0a @0x2
0x4a08…4a26 at0004 = ╱9d╱ EXEC ╱ // 0x4a0c @0x4
0x4a08…4a26 at0005 = ╱46╱F╱ // 0x4a0d @0x5
0x4a08…4a26 at0006 = ╱45╱E╱ // 0x4a0e @0x6
0x4a08…4a26 at0007 = ╱4a╱J╱ // 0x4a0f @0x7
0x4a08…4a26 at0008 = ╱4c╱L╱ // 0x4a10 @0x8
0x4a08…4a26 at0009 = ╱ed╱ ( ╱ // 0x4a11 @0x9
0x4a08…4a26 at000a = ╱39╱9╱ // 0x4a12 @0xa
0x4a08…4a26 at000b = ╱fe00009004╱ // 0x4a13 @0xb
0x4a08…4a26 at0010 = ╱ec╱ , ╱ // 0x4a18 @0x10
0x4a08…4a26 at0011 = ╱33╱3╱ // 0x4a19 @0x11
0x4a08…4a26 at0012 = ╱34╱4╱ // 0x4a1a @0x12
0x4a08…4a26 at0013 = ╱fe00008806╱ // 0x4a1b @0x13
0x4a08…4a26 at0018 = ╱ec╱ , ╱ // 0x4a20 @0x18
0x4a08…4a26 at0019 = ╱44╱D╱ // 0x4a21 @0x19
0x4a08…4a26 at001a = ╱32╱2╱ // 0x4a22 @0x1a
0x4a08…4a26 at001b = ╱ef╱ $ ╱ // 0x4a23 @0x1b
0x4a08…4a26 at001c = ╱ee╱ ) ╱ // 0x4a24 @0x1c
0x4a08…4a26 at001d = EOL // 0x4a25 @0x1d
0x4a08…4a26 }
0x4a26…4a3e d18b 8940 EXEC INDTAB1 ( M7 , M9 , A6 $ )
0x4a26…4a3e LineComalBcd {
0x4a26…4a3e ptr = 0xd18b // 0x4a26 @0x0
0x4a26…4a3e lno = 0x8940 // 0x4a28 @0x2
0x4a26…4a3e at0004 = ╱9d╱ EXEC ╱ // 0x4a2a @0x4
0x4a26…4a3e at0005 = ╱49╱I╱ // 0x4a2b @0x5
0x4a26…4a3e at0006 = ╱4e╱N╱ // 0x4a2c @0x6
0x4a26…4a3e at0007 = ╱44╱D╱ // 0x4a2d @0x7
0x4a26…4a3e at0008 = ╱54╱T╱ // 0x4a2e @0x8
0x4a26…4a3e at0009 = ╱41╱A╱ // 0x4a2f @0x9
0x4a26…4a3e at000a = ╱42╱B╱ // 0x4a30 @0xa
0x4a26…4a3e at000b = ╱31╱1╱ // 0x4a31 @0xb
0x4a26…4a3e at000c = ╱ed╱ ( ╱ // 0x4a32 @0xc
0x4a26…4a3e at000d = ╱4d╱M╱ // 0x4a33 @0xd
0x4a26…4a3e at000e = ╱37╱7╱ // 0x4a34 @0xe
0x4a26…4a3e at000f = ╱ec╱ , ╱ // 0x4a35 @0xf
0x4a26…4a3e at0010 = ╱4d╱M╱ // 0x4a36 @0x10
0x4a26…4a3e at0011 = ╱39╱9╱ // 0x4a37 @0x11
0x4a26…4a3e at0012 = ╱ec╱ , ╱ // 0x4a38 @0x12
0x4a26…4a3e at0013 = ╱41╱A╱ // 0x4a39 @0x13
0x4a26…4a3e at0014 = ╱36╱6╱ // 0x4a3a @0x14
0x4a26…4a3e at0015 = ╱ef╱ $ ╱ // 0x4a3b @0x15
0x4a26…4a3e at0016 = ╱ee╱ ) ╱ // 0x4a3c @0x16
0x4a26…4a3e at0017 = EOL // 0x4a3d @0x17
0x4a26…4a3e }
0x4a3e…4a56 d1a3 8950 EXEC INDTAB1 ( N2 , N4 , A4 $ )
0x4a3e…4a56 LineComalBcd {
0x4a3e…4a56 ptr = 0xd1a3 // 0x4a3e @0x0
0x4a3e…4a56 lno = 0x8950 // 0x4a40 @0x2
0x4a3e…4a56 at0004 = ╱9d╱ EXEC ╱ // 0x4a42 @0x4
0x4a3e…4a56 at0005 = ╱49╱I╱ // 0x4a43 @0x5
0x4a3e…4a56 at0006 = ╱4e╱N╱ // 0x4a44 @0x6
0x4a3e…4a56 at0007 = ╱44╱D╱ // 0x4a45 @0x7
0x4a3e…4a56 at0008 = ╱54╱T╱ // 0x4a46 @0x8
0x4a3e…4a56 at0009 = ╱41╱A╱ // 0x4a47 @0x9
0x4a3e…4a56 at000a = ╱42╱B╱ // 0x4a48 @0xa
0x4a3e…4a56 at000b = ╱31╱1╱ // 0x4a49 @0xb
0x4a3e…4a56 at000c = ╱ed╱ ( ╱ // 0x4a4a @0xc
0x4a3e…4a56 at000d = ╱4e╱N╱ // 0x4a4b @0xd
0x4a3e…4a56 at000e = ╱32╱2╱ // 0x4a4c @0xe
0x4a3e…4a56 at000f = ╱ec╱ , ╱ // 0x4a4d @0xf
0x4a3e…4a56 at0010 = ╱4e╱N╱ // 0x4a4e @0x10
0x4a3e…4a56 at0011 = ╱34╱4╱ // 0x4a4f @0x11
0x4a3e…4a56 at0012 = ╱ec╱ , ╱ // 0x4a50 @0x12
0x4a3e…4a56 at0013 = ╱41╱A╱ // 0x4a51 @0x13
0x4a3e…4a56 at0014 = ╱34╱4╱ // 0x4a52 @0x14
0x4a3e…4a56 at0015 = ╱ef╱ $ ╱ // 0x4a53 @0x15
0x4a3e…4a56 at0016 = ╱ee╱ ) ╱ // 0x4a54 @0x16
0x4a3e…4a56 at0017 = EOL // 0x4a55 @0x17
0x4a3e…4a56 }
0x4a56…4a6e d1bb 8960 EXEC INDTAB1 ( N7 , N8 , B6 $ )
0x4a56…4a6e LineComalBcd {
0x4a56…4a6e ptr = 0xd1bb // 0x4a56 @0x0
0x4a56…4a6e lno = 0x8960 // 0x4a58 @0x2
0x4a56…4a6e at0004 = ╱9d╱ EXEC ╱ // 0x4a5a @0x4
0x4a56…4a6e at0005 = ╱49╱I╱ // 0x4a5b @0x5
0x4a56…4a6e at0006 = ╱4e╱N╱ // 0x4a5c @0x6
0x4a56…4a6e at0007 = ╱44╱D╱ // 0x4a5d @0x7
0x4a56…4a6e at0008 = ╱54╱T╱ // 0x4a5e @0x8
0x4a56…4a6e at0009 = ╱41╱A╱ // 0x4a5f @0x9
0x4a56…4a6e at000a = ╱42╱B╱ // 0x4a60 @0xa
0x4a56…4a6e at000b = ╱31╱1╱ // 0x4a61 @0xb
0x4a56…4a6e at000c = ╱ed╱ ( ╱ // 0x4a62 @0xc
0x4a56…4a6e at000d = ╱4e╱N╱ // 0x4a63 @0xd
0x4a56…4a6e at000e = ╱37╱7╱ // 0x4a64 @0xe
0x4a56…4a6e at000f = ╱ec╱ , ╱ // 0x4a65 @0xf
0x4a56…4a6e at0010 = ╱4e╱N╱ // 0x4a66 @0x10
0x4a56…4a6e at0011 = ╱38╱8╱ // 0x4a67 @0x11
0x4a56…4a6e at0012 = ╱ec╱ , ╱ // 0x4a68 @0x12
0x4a56…4a6e at0013 = ╱42╱B╱ // 0x4a69 @0x13
0x4a56…4a6e at0014 = ╱36╱6╱ // 0x4a6a @0x14
0x4a56…4a6e at0015 = ╱ef╱ $ ╱ // 0x4a6b @0x15
0x4a56…4a6e at0016 = ╱ee╱ ) ╱ // 0x4a6c @0x16
0x4a56…4a6e at0017 = EOL // 0x4a6d @0x17
0x4a56…4a6e }
0x4a6e…4ac9 d216 8970 J5 $ ( 1 ) = "Kasse…debet………" ; J5 $ ( 2 ) = "Kasse…kredit……" ; J5 $ ( 3 ) = "Giro……debet………"
0x4a6e…4ac9 LineComalBcd {
0x4a6e…4ac9 ptr = 0xd216 // 0x4a6e @0x0
0x4a6e…4ac9 lno = 0x8970 // 0x4a70 @0x2
0x4a6e…4ac9 at0004 = ╱4a╱J╱ // 0x4a72 @0x4
0x4a6e…4ac9 at0005 = ╱35╱5╱ // 0x4a73 @0x5
0x4a6e…4ac9 at0006 = ╱ef╱ $ ╱ // 0x4a74 @0x6
0x4a6e…4ac9 at0007 = ╱ed╱ ( ╱ // 0x4a75 @0x7
0x4a6e…4ac9 at0008 = ╱31╱1╱ // 0x4a76 @0x8
0x4a6e…4ac9 at0009 = ╱fe00008001╱ // 0x4a77 @0x9
0x4a6e…4ac9 at000e = ╱ee╱ ) ╱ // 0x4a7c @0xe
0x4a6e…4ac9 at000f = ╱dc╱ = ╱ // 0x4a7d @0xf
0x4a6e…4ac9 at0010 = ╱22╱"╱ // 0x4a7e @0x10
0x4a6e…4ac9 at0011 = ╱4b╱K╱ // 0x4a7f @0x11
0x4a6e…4ac9 at0012 = ╱61╱a╱ // 0x4a80 @0x12
0x4a6e…4ac9 at0013 = ╱73╱s╱ // 0x4a81 @0x13
0x4a6e…4ac9 at0014 = ╱73╱s╱ // 0x4a82 @0x14
0x4a6e…4ac9 at0015 = ╱65╱e╱ // 0x4a83 @0x15
0x4a6e…4ac9 at0016 = ╱20╱…╱ // 0x4a84 @0x16
0x4a6e…4ac9 at0017 = ╱64╱d╱ // 0x4a85 @0x17
0x4a6e…4ac9 at0018 = ╱65╱e╱ // 0x4a86 @0x18
0x4a6e…4ac9 at0019 = ╱62╱b╱ // 0x4a87 @0x19
0x4a6e…4ac9 at001a = ╱65╱e╱ // 0x4a88 @0x1a
0x4a6e…4ac9 at001b = ╱74╱t╱ // 0x4a89 @0x1b
0x4a6e…4ac9 at001c = ╱20╱…╱ // 0x4a8a @0x1c
0x4a6e…4ac9 at001d = ╱20╱…╱ // 0x4a8b @0x1d
0x4a6e…4ac9 at001e = ╱20╱…╱ // 0x4a8c @0x1e
0x4a6e…4ac9 at001f = ╱22╱"╱ // 0x4a8d @0x1f
0x4a6e…4ac9 at0020 = ╱eb╱ ; ╱ // 0x4a8e @0x20
0x4a6e…4ac9 at0021 = ╱4a╱J╱ // 0x4a8f @0x21
0x4a6e…4ac9 at0022 = ╱35╱5╱ // 0x4a90 @0x22
0x4a6e…4ac9 at0023 = ╱ef╱ $ ╱ // 0x4a91 @0x23
0x4a6e…4ac9 at0024 = ╱ed╱ ( ╱ // 0x4a92 @0x24
0x4a6e…4ac9 at0025 = ╱32╱2╱ // 0x4a93 @0x25
0x4a6e…4ac9 at0026 = ╱fe00008002╱ // 0x4a94 @0x26
0x4a6e…4ac9 at002b = ╱ee╱ ) ╱ // 0x4a99 @0x2b
0x4a6e…4ac9 at002c = ╱dc╱ = ╱ // 0x4a9a @0x2c
0x4a6e…4ac9 at002d = ╱22╱"╱ // 0x4a9b @0x2d
0x4a6e…4ac9 at002e = ╱4b╱K╱ // 0x4a9c @0x2e
0x4a6e…4ac9 at002f = ╱61╱a╱ // 0x4a9d @0x2f
0x4a6e…4ac9 at0030 = ╱73╱s╱ // 0x4a9e @0x30
0x4a6e…4ac9 at0031 = ╱73╱s╱ // 0x4a9f @0x31
0x4a6e…4ac9 at0032 = ╱65╱e╱ // 0x4aa0 @0x32
0x4a6e…4ac9 at0033 = ╱20╱…╱ // 0x4aa1 @0x33
0x4a6e…4ac9 at0034 = ╱6b╱k╱ // 0x4aa2 @0x34
0x4a6e…4ac9 at0035 = ╱72╱r╱ // 0x4aa3 @0x35
0x4a6e…4ac9 at0036 = ╱65╱e╱ // 0x4aa4 @0x36
0x4a6e…4ac9 at0037 = ╱64╱d╱ // 0x4aa5 @0x37
0x4a6e…4ac9 at0038 = ╱69╱i╱ // 0x4aa6 @0x38
0x4a6e…4ac9 at0039 = ╱74╱t╱ // 0x4aa7 @0x39
0x4a6e…4ac9 at003a = ╱20╱…╱ // 0x4aa8 @0x3a
0x4a6e…4ac9 at003b = ╱20╱…╱ // 0x4aa9 @0x3b
0x4a6e…4ac9 at003c = ╱22╱"╱ // 0x4aaa @0x3c
0x4a6e…4ac9 at003d = ╱eb╱ ; ╱ // 0x4aab @0x3d
0x4a6e…4ac9 at003e = ╱4a╱J╱ // 0x4aac @0x3e
0x4a6e…4ac9 at003f = ╱35╱5╱ // 0x4aad @0x3f
0x4a6e…4ac9 at0040 = ╱ef╱ $ ╱ // 0x4aae @0x40
0x4a6e…4ac9 at0041 = ╱ed╱ ( ╱ // 0x4aaf @0x41
0x4a6e…4ac9 at0042 = ╱33╱3╱ // 0x4ab0 @0x42
0x4a6e…4ac9 at0043 = ╱fe0000c002╱ // 0x4ab1 @0x43
0x4a6e…4ac9 at0048 = ╱ee╱ ) ╱ // 0x4ab6 @0x48
0x4a6e…4ac9 at0049 = ╱dc╱ = ╱ // 0x4ab7 @0x49
0x4a6e…4ac9 at004a = ╱22╱"╱ // 0x4ab8 @0x4a
0x4a6e…4ac9 at004b = ╱47╱G╱ // 0x4ab9 @0x4b
0x4a6e…4ac9 at004c = ╱69╱i╱ // 0x4aba @0x4c
0x4a6e…4ac9 at004d = ╱72╱r╱ // 0x4abb @0x4d
0x4a6e…4ac9 at004e = ╱6f╱o╱ // 0x4abc @0x4e
0x4a6e…4ac9 at004f = ╱20╱…╱ // 0x4abd @0x4f
0x4a6e…4ac9 at0050 = ╱20╱…╱ // 0x4abe @0x50
0x4a6e…4ac9 at0051 = ╱64╱d╱ // 0x4abf @0x51
0x4a6e…4ac9 at0052 = ╱65╱e╱ // 0x4ac0 @0x52
0x4a6e…4ac9 at0053 = ╱62╱b╱ // 0x4ac1 @0x53
0x4a6e…4ac9 at0054 = ╱65╱e╱ // 0x4ac2 @0x54
0x4a6e…4ac9 at0055 = ╱74╱t╱ // 0x4ac3 @0x55
0x4a6e…4ac9 at0056 = ╱20╱…╱ // 0x4ac4 @0x56
0x4a6e…4ac9 at0057 = ╱20╱…╱ // 0x4ac5 @0x57
0x4a6e…4ac9 at0058 = ╱20╱…╱ // 0x4ac6 @0x58
0x4a6e…4ac9 at0059 = ╱22╱"╱ // 0x4ac7 @0x59
0x4a6e…4ac9 at005a = EOL // 0x4ac8 @0x5a
0x4a6e…4ac9 }
0x4ac9…4b24 d271 8980 J5 $ ( 4 ) = "Giro……kredit……" ; J5 $ ( 5 ) = "Bank……debet………" ; J5 $ ( 6 ) = "Bank……kredit……"
0x4ac9…4b24 LineComalBcd {
0x4ac9…4b24 ptr = 0xd271 // 0x4ac9 @0x0
0x4ac9…4b24 lno = 0x8980 // 0x4acb @0x2
0x4ac9…4b24 at0004 = ╱4a╱J╱ // 0x4acd @0x4
0x4ac9…4b24 at0005 = ╱35╱5╱ // 0x4ace @0x5
0x4ac9…4b24 at0006 = ╱ef╱ $ ╱ // 0x4acf @0x6
0x4ac9…4b24 at0007 = ╱ed╱ ( ╱ // 0x4ad0 @0x7
0x4ac9…4b24 at0008 = ╱34╱4╱ // 0x4ad1 @0x8
0x4ac9…4b24 at0009 = ╱fe00008003╱ // 0x4ad2 @0x9
0x4ac9…4b24 at000e = ╱ee╱ ) ╱ // 0x4ad7 @0xe
0x4ac9…4b24 at000f = ╱dc╱ = ╱ // 0x4ad8 @0xf
0x4ac9…4b24 at0010 = ╱22╱"╱ // 0x4ad9 @0x10
0x4ac9…4b24 at0011 = ╱47╱G╱ // 0x4ada @0x11
0x4ac9…4b24 at0012 = ╱69╱i╱ // 0x4adb @0x12
0x4ac9…4b24 at0013 = ╱72╱r╱ // 0x4adc @0x13
0x4ac9…4b24 at0014 = ╱6f╱o╱ // 0x4add @0x14
0x4ac9…4b24 at0015 = ╱20╱…╱ // 0x4ade @0x15
0x4ac9…4b24 at0016 = ╱20╱…╱ // 0x4adf @0x16
0x4ac9…4b24 at0017 = ╱6b╱k╱ // 0x4ae0 @0x17
0x4ac9…4b24 at0018 = ╱72╱r╱ // 0x4ae1 @0x18
0x4ac9…4b24 at0019 = ╱65╱e╱ // 0x4ae2 @0x19
0x4ac9…4b24 at001a = ╱64╱d╱ // 0x4ae3 @0x1a
0x4ac9…4b24 at001b = ╱69╱i╱ // 0x4ae4 @0x1b
0x4ac9…4b24 at001c = ╱74╱t╱ // 0x4ae5 @0x1c
0x4ac9…4b24 at001d = ╱20╱…╱ // 0x4ae6 @0x1d
0x4ac9…4b24 at001e = ╱20╱…╱ // 0x4ae7 @0x1e
0x4ac9…4b24 at001f = ╱22╱"╱ // 0x4ae8 @0x1f
0x4ac9…4b24 at0020 = ╱eb╱ ; ╱ // 0x4ae9 @0x20
0x4ac9…4b24 at0021 = ╱4a╱J╱ // 0x4aea @0x21
0x4ac9…4b24 at0022 = ╱35╱5╱ // 0x4aeb @0x22
0x4ac9…4b24 at0023 = ╱ef╱ $ ╱ // 0x4aec @0x23
0x4ac9…4b24 at0024 = ╱ed╱ ( ╱ // 0x4aed @0x24
0x4ac9…4b24 at0025 = ╱35╱5╱ // 0x4aee @0x25
0x4ac9…4b24 at0026 = ╱fe0000a003╱ // 0x4aef @0x26
0x4ac9…4b24 at002b = ╱ee╱ ) ╱ // 0x4af4 @0x2b
0x4ac9…4b24 at002c = ╱dc╱ = ╱ // 0x4af5 @0x2c
0x4ac9…4b24 at002d = ╱22╱"╱ // 0x4af6 @0x2d
0x4ac9…4b24 at002e = ╱42╱B╱ // 0x4af7 @0x2e
0x4ac9…4b24 at002f = ╱61╱a╱ // 0x4af8 @0x2f
0x4ac9…4b24 at0030 = ╱6e╱n╱ // 0x4af9 @0x30
0x4ac9…4b24 at0031 = ╱6b╱k╱ // 0x4afa @0x31
0x4ac9…4b24 at0032 = ╱20╱…╱ // 0x4afb @0x32
0x4ac9…4b24 at0033 = ╱20╱…╱ // 0x4afc @0x33
0x4ac9…4b24 at0034 = ╱64╱d╱ // 0x4afd @0x34
0x4ac9…4b24 at0035 = ╱65╱e╱ // 0x4afe @0x35
0x4ac9…4b24 at0036 = ╱62╱b╱ // 0x4aff @0x36
0x4ac9…4b24 at0037 = ╱65╱e╱ // 0x4b00 @0x37
0x4ac9…4b24 at0038 = ╱74╱t╱ // 0x4b01 @0x38
0x4ac9…4b24 at0039 = ╱20╱…╱ // 0x4b02 @0x39
0x4ac9…4b24 at003a = ╱20╱…╱ // 0x4b03 @0x3a
0x4ac9…4b24 at003b = ╱20╱…╱ // 0x4b04 @0x3b
0x4ac9…4b24 at003c = ╱22╱"╱ // 0x4b05 @0x3c
0x4ac9…4b24 at003d = ╱eb╱ ; ╱ // 0x4b06 @0x3d
0x4ac9…4b24 at003e = ╱4a╱J╱ // 0x4b07 @0x3e
0x4ac9…4b24 at003f = ╱35╱5╱ // 0x4b08 @0x3f
0x4ac9…4b24 at0040 = ╱ef╱ $ ╱ // 0x4b09 @0x40
0x4ac9…4b24 at0041 = ╱ed╱ ( ╱ // 0x4b0a @0x41
0x4ac9…4b24 at0042 = ╱36╱6╱ // 0x4b0b @0x42
0x4ac9…4b24 at0043 = ╱fe0000c003╱ // 0x4b0c @0x43
0x4ac9…4b24 at0048 = ╱ee╱ ) ╱ // 0x4b11 @0x48
0x4ac9…4b24 at0049 = ╱dc╱ = ╱ // 0x4b12 @0x49
0x4ac9…4b24 at004a = ╱22╱"╱ // 0x4b13 @0x4a
0x4ac9…4b24 at004b = ╱42╱B╱ // 0x4b14 @0x4b
0x4ac9…4b24 at004c = ╱61╱a╱ // 0x4b15 @0x4c
0x4ac9…4b24 at004d = ╱6e╱n╱ // 0x4b16 @0x4d
0x4ac9…4b24 at004e = ╱6b╱k╱ // 0x4b17 @0x4e
0x4ac9…4b24 at004f = ╱20╱…╱ // 0x4b18 @0x4f
0x4ac9…4b24 at0050 = ╱20╱…╱ // 0x4b19 @0x50
0x4ac9…4b24 at0051 = ╱6b╱k╱ // 0x4b1a @0x51
0x4ac9…4b24 at0052 = ╱72╱r╱ // 0x4b1b @0x52
0x4ac9…4b24 at0053 = ╱65╱e╱ // 0x4b1c @0x53
0x4ac9…4b24 at0054 = ╱64╱d╱ // 0x4b1d @0x54
0x4ac9…4b24 at0055 = ╱69╱i╱ // 0x4b1e @0x55
0x4ac9…4b24 at0056 = ╱74╱t╱ // 0x4b1f @0x56
0x4ac9…4b24 at0057 = ╱20╱…╱ // 0x4b20 @0x57
0x4ac9…4b24 at0058 = ╱20╱…╱ // 0x4b21 @0x58
0x4ac9…4b24 at0059 = ╱22╱"╱ // 0x4b22 @0x59
0x4ac9…4b24 at005a = EOL // 0x4b23 @0x5a
0x4ac9…4b24 }
0x4b24…4b63 d2b0 8990 B7 $ = "…………………………………………………………………………………………………………" ; B7 $ = B7 $ + B7 $
0x4b24…4b63 LineComalBcd {
0x4b24…4b63 ptr = 0xd2b0 // 0x4b24 @0x0
0x4b24…4b63 lno = 0x8990 // 0x4b26 @0x2
0x4b24…4b63 at0004 = ╱42╱B╱ // 0x4b28 @0x4
0x4b24…4b63 at0005 = ╱37╱7╱ // 0x4b29 @0x5
0x4b24…4b63 at0006 = ╱ef╱ $ ╱ // 0x4b2a @0x6
0x4b24…4b63 at0007 = ╱dc╱ = ╱ // 0x4b2b @0x7
0x4b24…4b63 at0008 = ╱22╱"╱ // 0x4b2c @0x8
0x4b24…4b63 at0009 = ╱20╱…╱ // 0x4b2d @0x9
0x4b24…4b63 at000a = ╱20╱…╱ // 0x4b2e @0xa
0x4b24…4b63 at000b = ╱20╱…╱ // 0x4b2f @0xb
0x4b24…4b63 at000c = ╱20╱…╱ // 0x4b30 @0xc
0x4b24…4b63 at000d = ╱20╱…╱ // 0x4b31 @0xd
0x4b24…4b63 at000e = ╱20╱…╱ // 0x4b32 @0xe
0x4b24…4b63 at000f = ╱20╱…╱ // 0x4b33 @0xf
0x4b24…4b63 at0010 = ╱20╱…╱ // 0x4b34 @0x10
0x4b24…4b63 at0011 = ╱20╱…╱ // 0x4b35 @0x11
0x4b24…4b63 at0012 = ╱20╱…╱ // 0x4b36 @0x12
0x4b24…4b63 at0013 = ╱20╱…╱ // 0x4b37 @0x13
0x4b24…4b63 at0014 = ╱20╱…╱ // 0x4b38 @0x14
0x4b24…4b63 at0015 = ╱20╱…╱ // 0x4b39 @0x15
0x4b24…4b63 at0016 = ╱20╱…╱ // 0x4b3a @0x16
0x4b24…4b63 at0017 = ╱20╱…╱ // 0x4b3b @0x17
0x4b24…4b63 at0018 = ╱20╱…╱ // 0x4b3c @0x18
0x4b24…4b63 at0019 = ╱20╱…╱ // 0x4b3d @0x19
0x4b24…4b63 at001a = ╱20╱…╱ // 0x4b3e @0x1a
0x4b24…4b63 at001b = ╱20╱…╱ // 0x4b3f @0x1b
0x4b24…4b63 at001c = ╱20╱…╱ // 0x4b40 @0x1c
0x4b24…4b63 at001d = ╱20╱…╱ // 0x4b41 @0x1d
0x4b24…4b63 at001e = ╱20╱…╱ // 0x4b42 @0x1e
0x4b24…4b63 at001f = ╱20╱…╱ // 0x4b43 @0x1f
0x4b24…4b63 at0020 = ╱20╱…╱ // 0x4b44 @0x20
0x4b24…4b63 at0021 = ╱20╱…╱ // 0x4b45 @0x21
0x4b24…4b63 at0022 = ╱20╱…╱ // 0x4b46 @0x22
0x4b24…4b63 at0023 = ╱20╱…╱ // 0x4b47 @0x23
0x4b24…4b63 at0024 = ╱20╱…╱ // 0x4b48 @0x24
0x4b24…4b63 at0025 = ╱20╱…╱ // 0x4b49 @0x25
0x4b24…4b63 at0026 = ╱20╱…╱ // 0x4b4a @0x26
0x4b24…4b63 at0027 = ╱20╱…╱ // 0x4b4b @0x27
0x4b24…4b63 at0028 = ╱20╱…╱ // 0x4b4c @0x28
0x4b24…4b63 at0029 = ╱20╱…╱ // 0x4b4d @0x29
0x4b24…4b63 at002a = ╱20╱…╱ // 0x4b4e @0x2a
0x4b24…4b63 at002b = ╱20╱…╱ // 0x4b4f @0x2b
0x4b24…4b63 at002c = ╱20╱…╱ // 0x4b50 @0x2c
0x4b24…4b63 at002d = ╱20╱…╱ // 0x4b51 @0x2d
0x4b24…4b63 at002e = ╱20╱…╱ // 0x4b52 @0x2e
0x4b24…4b63 at002f = ╱20╱…╱ // 0x4b53 @0x2f
0x4b24…4b63 at0030 = ╱20╱…╱ // 0x4b54 @0x30
0x4b24…4b63 at0031 = ╱22╱"╱ // 0x4b55 @0x31
0x4b24…4b63 at0032 = ╱eb╱ ; ╱ // 0x4b56 @0x32
0x4b24…4b63 at0033 = ╱42╱B╱ // 0x4b57 @0x33
0x4b24…4b63 at0034 = ╱37╱7╱ // 0x4b58 @0x34
0x4b24…4b63 at0035 = ╱ef╱ $ ╱ // 0x4b59 @0x35
0x4b24…4b63 at0036 = ╱dc╱ = ╱ // 0x4b5a @0x36
0x4b24…4b63 at0037 = ╱42╱B╱ // 0x4b5b @0x37
0x4b24…4b63 at0038 = ╱37╱7╱ // 0x4b5c @0x38
0x4b24…4b63 at0039 = ╱ef╱ $ ╱ // 0x4b5d @0x39
0x4b24…4b63 at003a = ╱f1╱ + ╱ // 0x4b5e @0x3a
0x4b24…4b63 at003b = ╱42╱B╱ // 0x4b5f @0x3b
0x4b24…4b63 at003c = ╱37╱7╱ // 0x4b60 @0x3c
0x4b24…4b63 at003d = ╱ef╱ $ ╱ // 0x4b61 @0x3d
0x4b24…4b63 at003e = EOL // 0x4b62 @0x3e
0x4b24…4b63 }
0x4b63…4ba6 d2f3 9000 B9 $ = "0+" ; A1 $ = "0+" ; A2 $ = "--------------------------------------"
0x4b63…4ba6 LineComalBcd {
0x4b63…4ba6 ptr = 0xd2f3 // 0x4b63 @0x0
0x4b63…4ba6 lno = 0x9000 // 0x4b65 @0x2
0x4b63…4ba6 at0004 = ╱42╱B╱ // 0x4b67 @0x4
0x4b63…4ba6 at0005 = ╱39╱9╱ // 0x4b68 @0x5
0x4b63…4ba6 at0006 = ╱ef╱ $ ╱ // 0x4b69 @0x6
0x4b63…4ba6 at0007 = ╱dc╱ = ╱ // 0x4b6a @0x7
0x4b63…4ba6 at0008 = ╱22╱"╱ // 0x4b6b @0x8
0x4b63…4ba6 at0009 = ╱30╱0╱ // 0x4b6c @0x9
0x4b63…4ba6 at000a = ╱2b╱+╱ // 0x4b6d @0xa
0x4b63…4ba6 at000b = ╱22╱"╱ // 0x4b6e @0xb
0x4b63…4ba6 at000c = ╱eb╱ ; ╱ // 0x4b6f @0xc
0x4b63…4ba6 at000d = ╱41╱A╱ // 0x4b70 @0xd
0x4b63…4ba6 at000e = ╱31╱1╱ // 0x4b71 @0xe
0x4b63…4ba6 at000f = ╱ef╱ $ ╱ // 0x4b72 @0xf
0x4b63…4ba6 at0010 = ╱dc╱ = ╱ // 0x4b73 @0x10
0x4b63…4ba6 at0011 = ╱22╱"╱ // 0x4b74 @0x11
0x4b63…4ba6 at0012 = ╱30╱0╱ // 0x4b75 @0x12
0x4b63…4ba6 at0013 = ╱2b╱+╱ // 0x4b76 @0x13
0x4b63…4ba6 at0014 = ╱22╱"╱ // 0x4b77 @0x14
0x4b63…4ba6 at0015 = ╱eb╱ ; ╱ // 0x4b78 @0x15
0x4b63…4ba6 at0016 = ╱41╱A╱ // 0x4b79 @0x16
0x4b63…4ba6 at0017 = ╱32╱2╱ // 0x4b7a @0x17
0x4b63…4ba6 at0018 = ╱ef╱ $ ╱ // 0x4b7b @0x18
0x4b63…4ba6 at0019 = ╱dc╱ = ╱ // 0x4b7c @0x19
0x4b63…4ba6 at001a = ╱22╱"╱ // 0x4b7d @0x1a
0x4b63…4ba6 at001b = ╱2d╱-╱ // 0x4b7e @0x1b
0x4b63…4ba6 at001c = ╱2d╱-╱ // 0x4b7f @0x1c
0x4b63…4ba6 at001d = ╱2d╱-╱ // 0x4b80 @0x1d
0x4b63…4ba6 at001e = ╱2d╱-╱ // 0x4b81 @0x1e
0x4b63…4ba6 at001f = ╱2d╱-╱ // 0x4b82 @0x1f
0x4b63…4ba6 at0020 = ╱2d╱-╱ // 0x4b83 @0x20
0x4b63…4ba6 at0021 = ╱2d╱-╱ // 0x4b84 @0x21
0x4b63…4ba6 at0022 = ╱2d╱-╱ // 0x4b85 @0x22
0x4b63…4ba6 at0023 = ╱2d╱-╱ // 0x4b86 @0x23
0x4b63…4ba6 at0024 = ╱2d╱-╱ // 0x4b87 @0x24
0x4b63…4ba6 at0025 = ╱2d╱-╱ // 0x4b88 @0x25
0x4b63…4ba6 at0026 = ╱2d╱-╱ // 0x4b89 @0x26
0x4b63…4ba6 at0027 = ╱2d╱-╱ // 0x4b8a @0x27
0x4b63…4ba6 at0028 = ╱2d╱-╱ // 0x4b8b @0x28
0x4b63…4ba6 at0029 = ╱2d╱-╱ // 0x4b8c @0x29
0x4b63…4ba6 at002a = ╱2d╱-╱ // 0x4b8d @0x2a
0x4b63…4ba6 at002b = ╱2d╱-╱ // 0x4b8e @0x2b
0x4b63…4ba6 at002c = ╱2d╱-╱ // 0x4b8f @0x2c
0x4b63…4ba6 at002d = ╱2d╱-╱ // 0x4b90 @0x2d
0x4b63…4ba6 at002e = ╱2d╱-╱ // 0x4b91 @0x2e
0x4b63…4ba6 at002f = ╱2d╱-╱ // 0x4b92 @0x2f
0x4b63…4ba6 at0030 = ╱2d╱-╱ // 0x4b93 @0x30
0x4b63…4ba6 at0031 = ╱2d╱-╱ // 0x4b94 @0x31
0x4b63…4ba6 at0032 = ╱2d╱-╱ // 0x4b95 @0x32
0x4b63…4ba6 at0033 = ╱2d╱-╱ // 0x4b96 @0x33
0x4b63…4ba6 at0034 = ╱2d╱-╱ // 0x4b97 @0x34
0x4b63…4ba6 at0035 = ╱2d╱-╱ // 0x4b98 @0x35
0x4b63…4ba6 at0036 = ╱2d╱-╱ // 0x4b99 @0x36
0x4b63…4ba6 at0037 = ╱2d╱-╱ // 0x4b9a @0x37
0x4b63…4ba6 at0038 = ╱2d╱-╱ // 0x4b9b @0x38
0x4b63…4ba6 at0039 = ╱2d╱-╱ // 0x4b9c @0x39
0x4b63…4ba6 at003a = ╱2d╱-╱ // 0x4b9d @0x3a
0x4b63…4ba6 at003b = ╱2d╱-╱ // 0x4b9e @0x3b
0x4b63…4ba6 at003c = ╱2d╱-╱ // 0x4b9f @0x3c
0x4b63…4ba6 at003d = ╱2d╱-╱ // 0x4ba0 @0x3d
0x4b63…4ba6 at003e = ╱2d╱-╱ // 0x4ba1 @0x3e
0x4b63…4ba6 at003f = ╱2d╱-╱ // 0x4ba2 @0x3f
0x4b63…4ba6 at0040 = ╱2d╱-╱ // 0x4ba3 @0x40
0x4b63…4ba6 at0041 = ╱22╱"╱ // 0x4ba4 @0x41
0x4b63…4ba6 at0042 = EOL // 0x4ba5 @0x42
0x4b63…4ba6 }
0x4ba6…4bc4 d311 9010 I1 = 0 ; A2 $ = A2 $ + A2 $ + "…"
0x4ba6…4bc4 LineComalBcd {
0x4ba6…4bc4 ptr = 0xd311 // 0x4ba6 @0x0
0x4ba6…4bc4 lno = 0x9010 // 0x4ba8 @0x2
0x4ba6…4bc4 at0004 = ╱49╱I╱ // 0x4baa @0x4
0x4ba6…4bc4 at0005 = ╱31╱1╱ // 0x4bab @0x5
0x4ba6…4bc4 at0006 = ╱dc╱ = ╱ // 0x4bac @0x6
0x4ba6…4bc4 at0007 = ╱30╱0╱ // 0x4bad @0x7
0x4ba6…4bc4 at0008 = ╱fe00000000╱ // 0x4bae @0x8
0x4ba6…4bc4 at000d = ╱eb╱ ; ╱ // 0x4bb3 @0xd
0x4ba6…4bc4 at000e = ╱41╱A╱ // 0x4bb4 @0xe
0x4ba6…4bc4 at000f = ╱32╱2╱ // 0x4bb5 @0xf
0x4ba6…4bc4 at0010 = ╱ef╱ $ ╱ // 0x4bb6 @0x10
0x4ba6…4bc4 at0011 = ╱dc╱ = ╱ // 0x4bb7 @0x11
0x4ba6…4bc4 at0012 = ╱41╱A╱ // 0x4bb8 @0x12
0x4ba6…4bc4 at0013 = ╱32╱2╱ // 0x4bb9 @0x13
0x4ba6…4bc4 at0014 = ╱ef╱ $ ╱ // 0x4bba @0x14
0x4ba6…4bc4 at0015 = ╱f1╱ + ╱ // 0x4bbb @0x15
0x4ba6…4bc4 at0016 = ╱41╱A╱ // 0x4bbc @0x16
0x4ba6…4bc4 at0017 = ╱32╱2╱ // 0x4bbd @0x17
0x4ba6…4bc4 at0018 = ╱ef╱ $ ╱ // 0x4bbe @0x18
0x4ba6…4bc4 at0019 = ╱f1╱ + ╱ // 0x4bbf @0x19
0x4ba6…4bc4 at001a = ╱22╱"╱ // 0x4bc0 @0x1a
0x4ba6…4bc4 at001b = ╱20╱…╱ // 0x4bc1 @0x1b
0x4ba6…4bc4 at001c = ╱22╱"╱ // 0x4bc2 @0x1c
0x4ba6…4bc4 at001d = EOL // 0x4bc3 @0x1d
0x4ba6…4bc4 }
0x4bc4…4c0e d35b 9020 L2 = E8 ( 4 ) ; R4 = E8 ( 7 ) ; I0 = E8 ( 8 ) ; I4 = F0 ( 2 ) ; L3 = G1 ( 1 )
0x4bc4…4c0e LineComalBcd {
0x4bc4…4c0e ptr = 0xd35b // 0x4bc4 @0x0
0x4bc4…4c0e lno = 0x9020 // 0x4bc6 @0x2
0x4bc4…4c0e at0004 = ╱4c╱L╱ // 0x4bc8 @0x4
0x4bc4…4c0e at0005 = ╱32╱2╱ // 0x4bc9 @0x5
0x4bc4…4c0e at0006 = ╱dc╱ = ╱ // 0x4bca @0x6
0x4bc4…4c0e at0007 = ╱45╱E╱ // 0x4bcb @0x7
0x4bc4…4c0e at0008 = ╱38╱8╱ // 0x4bcc @0x8
0x4bc4…4c0e at0009 = ╱ed╱ ( ╱ // 0x4bcd @0x9
0x4bc4…4c0e at000a = ╱34╱4╱ // 0x4bce @0xa
0x4bc4…4c0e at000b = ╱fe00008003╱ // 0x4bcf @0xb
0x4bc4…4c0e at0010 = ╱ee╱ ) ╱ // 0x4bd4 @0x10
0x4bc4…4c0e at0011 = ╱eb╱ ; ╱ // 0x4bd5 @0x11
0x4bc4…4c0e at0012 = ╱52╱R╱ // 0x4bd6 @0x12
0x4bc4…4c0e at0013 = ╱34╱4╱ // 0x4bd7 @0x13
0x4bc4…4c0e at0014 = ╱dc╱ = ╱ // 0x4bd8 @0x14
0x4bc4…4c0e at0015 = ╱45╱E╱ // 0x4bd9 @0x15
0x4bc4…4c0e at0016 = ╱38╱8╱ // 0x4bda @0x16
0x4bc4…4c0e at0017 = ╱ed╱ ( ╱ // 0x4bdb @0x17
0x4bc4…4c0e at0018 = ╱37╱7╱ // 0x4bdc @0x18
0x4bc4…4c0e at0019 = ╱fe0000e003╱ // 0x4bdd @0x19
0x4bc4…4c0e at001e = ╱ee╱ ) ╱ // 0x4be2 @0x1e
0x4bc4…4c0e at001f = ╱eb╱ ; ╱ // 0x4be3 @0x1f
0x4bc4…4c0e at0020 = ╱49╱I╱ // 0x4be4 @0x20
0x4bc4…4c0e at0021 = ╱30╱0╱ // 0x4be5 @0x21
0x4bc4…4c0e at0022 = ╱dc╱ = ╱ // 0x4be6 @0x22
0x4bc4…4c0e at0023 = ╱45╱E╱ // 0x4be7 @0x23
0x4bc4…4c0e at0024 = ╱38╱8╱ // 0x4be8 @0x24
0x4bc4…4c0e at0025 = ╱ed╱ ( ╱ // 0x4be9 @0x25
0x4bc4…4c0e at0026 = ╱38╱8╱ // 0x4bea @0x26
0x4bc4…4c0e at0027 = ╱fe00008004╱ // 0x4beb @0x27
0x4bc4…4c0e at002c = ╱ee╱ ) ╱ // 0x4bf0 @0x2c
0x4bc4…4c0e at002d = ╱eb╱ ; ╱ // 0x4bf1 @0x2d
0x4bc4…4c0e at002e = ╱49╱I╱ // 0x4bf2 @0x2e
0x4bc4…4c0e at002f = ╱34╱4╱ // 0x4bf3 @0x2f
0x4bc4…4c0e at0030 = ╱dc╱ = ╱ // 0x4bf4 @0x30
0x4bc4…4c0e at0031 = ╱46╱F╱ // 0x4bf5 @0x31
0x4bc4…4c0e at0032 = ╱30╱0╱ // 0x4bf6 @0x32
0x4bc4…4c0e at0033 = ╱ed╱ ( ╱ // 0x4bf7 @0x33
0x4bc4…4c0e at0034 = ╱32╱2╱ // 0x4bf8 @0x34
0x4bc4…4c0e at0035 = ╱fe00008002╱ // 0x4bf9 @0x35
0x4bc4…4c0e at003a = ╱ee╱ ) ╱ // 0x4bfe @0x3a
0x4bc4…4c0e at003b = ╱eb╱ ; ╱ // 0x4bff @0x3b
0x4bc4…4c0e at003c = ╱4c╱L╱ // 0x4c00 @0x3c
0x4bc4…4c0e at003d = ╱33╱3╱ // 0x4c01 @0x3d
0x4bc4…4c0e at003e = ╱dc╱ = ╱ // 0x4c02 @0x3e
0x4bc4…4c0e at003f = ╱47╱G╱ // 0x4c03 @0x3f
0x4bc4…4c0e at0040 = ╱31╱1╱ // 0x4c04 @0x40
0x4bc4…4c0e at0041 = ╱ed╱ ( ╱ // 0x4c05 @0x41
0x4bc4…4c0e at0042 = ╱31╱1╱ // 0x4c06 @0x42
0x4bc4…4c0e at0043 = ╱fe00008001╱ // 0x4c07 @0x43
0x4bc4…4c0e at0048 = ╱ee╱ ) ╱ // 0x4c0c @0x48
0x4bc4…4c0e at0049 = EOL // 0x4c0d @0x49
0x4bc4…4c0e }
0x4c0e…4c4c d399 9030 H5 = 1 ; J6 = R4 ; R8 = 0 ; L4 = 0 ; B8 $ = "0+" ; I3 = I4 + 1
0x4c0e…4c4c LineComalBcd {
0x4c0e…4c4c ptr = 0xd399 // 0x4c0e @0x0
0x4c0e…4c4c lno = 0x9030 // 0x4c10 @0x2
0x4c0e…4c4c at0004 = ╱48╱H╱ // 0x4c12 @0x4
0x4c0e…4c4c at0005 = ╱35╱5╱ // 0x4c13 @0x5
0x4c0e…4c4c at0006 = ╱dc╱ = ╱ // 0x4c14 @0x6
0x4c0e…4c4c at0007 = ╱31╱1╱ // 0x4c15 @0x7
0x4c0e…4c4c at0008 = ╱fe00008001╱ // 0x4c16 @0x8
0x4c0e…4c4c at000d = ╱eb╱ ; ╱ // 0x4c1b @0xd
0x4c0e…4c4c at000e = ╱4a╱J╱ // 0x4c1c @0xe
0x4c0e…4c4c at000f = ╱36╱6╱ // 0x4c1d @0xf
0x4c0e…4c4c at0010 = ╱dc╱ = ╱ // 0x4c1e @0x10
0x4c0e…4c4c at0011 = ╱52╱R╱ // 0x4c1f @0x11
0x4c0e…4c4c at0012 = ╱34╱4╱ // 0x4c20 @0x12
0x4c0e…4c4c at0013 = ╱eb╱ ; ╱ // 0x4c21 @0x13
0x4c0e…4c4c at0014 = ╱52╱R╱ // 0x4c22 @0x14
0x4c0e…4c4c at0015 = ╱38╱8╱ // 0x4c23 @0x15
0x4c0e…4c4c at0016 = ╱dc╱ = ╱ // 0x4c24 @0x16
0x4c0e…4c4c at0017 = ╱30╱0╱ // 0x4c25 @0x17
0x4c0e…4c4c at0018 = ╱fe00000000╱ // 0x4c26 @0x18
0x4c0e…4c4c at001d = ╱eb╱ ; ╱ // 0x4c2b @0x1d
0x4c0e…4c4c at001e = ╱4c╱L╱ // 0x4c2c @0x1e
0x4c0e…4c4c at001f = ╱34╱4╱ // 0x4c2d @0x1f
0x4c0e…4c4c at0020 = ╱dc╱ = ╱ // 0x4c2e @0x20
0x4c0e…4c4c at0021 = ╱30╱0╱ // 0x4c2f @0x21
0x4c0e…4c4c at0022 = ╱fe00000000╱ // 0x4c30 @0x22
0x4c0e…4c4c at0027 = ╱eb╱ ; ╱ // 0x4c35 @0x27
0x4c0e…4c4c at0028 = ╱42╱B╱ // 0x4c36 @0x28
0x4c0e…4c4c at0029 = ╱38╱8╱ // 0x4c37 @0x29
0x4c0e…4c4c at002a = ╱ef╱ $ ╱ // 0x4c38 @0x2a
0x4c0e…4c4c at002b = ╱dc╱ = ╱ // 0x4c39 @0x2b
0x4c0e…4c4c at002c = ╱22╱"╱ // 0x4c3a @0x2c
0x4c0e…4c4c at002d = ╱30╱0╱ // 0x4c3b @0x2d
0x4c0e…4c4c at002e = ╱2b╱+╱ // 0x4c3c @0x2e
0x4c0e…4c4c at002f = ╱22╱"╱ // 0x4c3d @0x2f
0x4c0e…4c4c at0030 = ╱eb╱ ; ╱ // 0x4c3e @0x30
0x4c0e…4c4c at0031 = ╱49╱I╱ // 0x4c3f @0x31
0x4c0e…4c4c at0032 = ╱33╱3╱ // 0x4c40 @0x32
0x4c0e…4c4c at0033 = ╱dc╱ = ╱ // 0x4c41 @0x33
0x4c0e…4c4c at0034 = ╱49╱I╱ // 0x4c42 @0x34
0x4c0e…4c4c at0035 = ╱34╱4╱ // 0x4c43 @0x35
0x4c0e…4c4c at0036 = ╱e2╱ + ╱ // 0x4c44 @0x36
0x4c0e…4c4c at0037 = ╱31╱1╱ // 0x4c45 @0x37
0x4c0e…4c4c at0038 = ╱fe00008001╱ // 0x4c46 @0x38
0x4c0e…4c4c at003d = EOL // 0x4c4b @0x3d
0x4c0e…4c4c }
0x4c4c…4c6a d3b7 9040 I2 = I3 ; K3 = 1 ; K2 = 1
0x4c4c…4c6a LineComalBcd {
0x4c4c…4c6a ptr = 0xd3b7 // 0x4c4c @0x0
0x4c4c…4c6a lno = 0x9040 // 0x4c4e @0x2
0x4c4c…4c6a at0004 = ╱49╱I╱ // 0x4c50 @0x4
0x4c4c…4c6a at0005 = ╱32╱2╱ // 0x4c51 @0x5
0x4c4c…4c6a at0006 = ╱dc╱ = ╱ // 0x4c52 @0x6
0x4c4c…4c6a at0007 = ╱49╱I╱ // 0x4c53 @0x7
0x4c4c…4c6a at0008 = ╱33╱3╱ // 0x4c54 @0x8
0x4c4c…4c6a at0009 = ╱eb╱ ; ╱ // 0x4c55 @0x9
0x4c4c…4c6a at000a = ╱4b╱K╱ // 0x4c56 @0xa
0x4c4c…4c6a at000b = ╱33╱3╱ // 0x4c57 @0xb
0x4c4c…4c6a at000c = ╱dc╱ = ╱ // 0x4c58 @0xc
0x4c4c…4c6a at000d = ╱31╱1╱ // 0x4c59 @0xd
0x4c4c…4c6a at000e = ╱fe00008001╱ // 0x4c5a @0xe
0x4c4c…4c6a at0013 = ╱eb╱ ; ╱ // 0x4c5f @0x13
0x4c4c…4c6a at0014 = ╱4b╱K╱ // 0x4c60 @0x14
0x4c4c…4c6a at0015 = ╱32╱2╱ // 0x4c61 @0x15
0x4c4c…4c6a at0016 = ╱dc╱ = ╱ // 0x4c62 @0x16
0x4c4c…4c6a at0017 = ╱31╱1╱ // 0x4c63 @0x17
0x4c4c…4c6a at0018 = ╱fe00008001╱ // 0x4c64 @0x18
0x4c4c…4c6a at001d = EOL // 0x4c69 @0x1d
0x4c4c…4c6a }
0x4c6a…4c70 d3bd 9050 CLEAR
0x4c6a…4c70 LineComalBcd {
0x4c6a…4c70 ptr = 0xd3bd // 0x4c6a @0x0
0x4c6a…4c70 lno = 0x9050 // 0x4c6c @0x2
0x4c6a…4c70 at0004 = ╱a0╱ CLEAR ╱ // 0x4c6e @0x4
0x4c6a…4c70 at0005 = EOL // 0x4c6f @0x5
0x4c6a…4c70 }
0x4c70…4c7d d3ca 9060 EXEC UDHOVED
0x4c70…4c7d LineComalBcd {
0x4c70…4c7d ptr = 0xd3ca // 0x4c70 @0x0
0x4c70…4c7d lno = 0x9060 // 0x4c72 @0x2
0x4c70…4c7d at0004 = ╱9d╱ EXEC ╱ // 0x4c74 @0x4
0x4c70…4c7d at0005 = ╱55╱U╱ // 0x4c75 @0x5
0x4c70…4c7d at0006 = ╱44╱D╱ // 0x4c76 @0x6
0x4c70…4c7d at0007 = ╱48╱H╱ // 0x4c77 @0x7
0x4c70…4c7d at0008 = ╱4f╱O╱ // 0x4c78 @0x8
0x4c70…4c7d at0009 = ╱56╱V╱ // 0x4c79 @0x9
0x4c70…4c7d at000a = ╱45╱E╱ // 0x4c7a @0xa
0x4c70…4c7d at000b = ╱44╱D╱ // 0x4c7b @0xb
0x4c70…4c7d at000c = EOL // 0x4c7c @0xc
0x4c70…4c7d }
0x4c7d…4c96 d3e3 9070 EXEC INDTASTNING ( 1 )
0x4c7d…4c96 LineComalBcd {
0x4c7d…4c96 ptr = 0xd3e3 // 0x4c7d @0x0
0x4c7d…4c96 lno = 0x9070 // 0x4c7f @0x2
0x4c7d…4c96 at0004 = ╱9d╱ EXEC ╱ // 0x4c81 @0x4
0x4c7d…4c96 at0005 = ╱49╱I╱ // 0x4c82 @0x5
0x4c7d…4c96 at0006 = ╱4e╱N╱ // 0x4c83 @0x6
0x4c7d…4c96 at0007 = ╱44╱D╱ // 0x4c84 @0x7
0x4c7d…4c96 at0008 = ╱54╱T╱ // 0x4c85 @0x8
0x4c7d…4c96 at0009 = ╱41╱A╱ // 0x4c86 @0x9
0x4c7d…4c96 at000a = ╱53╱S╱ // 0x4c87 @0xa
0x4c7d…4c96 at000b = ╱54╱T╱ // 0x4c88 @0xb
0x4c7d…4c96 at000c = ╱4e╱N╱ // 0x4c89 @0xc
0x4c7d…4c96 at000d = ╱49╱I╱ // 0x4c8a @0xd
0x4c7d…4c96 at000e = ╱4e╱N╱ // 0x4c8b @0xe
0x4c7d…4c96 at000f = ╱47╱G╱ // 0x4c8c @0xf
0x4c7d…4c96 at0010 = ╱ed╱ ( ╱ // 0x4c8d @0x10
0x4c7d…4c96 at0011 = ╱31╱1╱ // 0x4c8e @0x11
0x4c7d…4c96 at0012 = ╱fe00008001╱ // 0x4c8f @0x12
0x4c7d…4c96 at0017 = ╱ee╱ ) ╱ // 0x4c94 @0x17
0x4c7d…4c96 at0018 = EOL // 0x4c95 @0x18
0x4c7d…4c96 }
0x4c96…4ca6 d3f3 9080 IF J4 = 0 THEN
0x4c96…4ca6 LineComalBcd {
0x4c96…4ca6 ptr = 0xd3f3 // 0x4c96 @0x0
0x4c96…4ca6 lno = 0x9080 // 0x4c98 @0x2
0x4c96…4ca6 at0004 = ╱9c╱ IF ╱ // 0x4c9a @0x4
0x4c96…4ca6 at0005 = ╱4a╱J╱ // 0x4c9b @0x5
0x4c96…4ca6 at0006 = ╱34╱4╱ // 0x4c9c @0x6
0x4c96…4ca6 at0007 = ╱dc╱ = ╱ // 0x4c9d @0x7
0x4c96…4ca6 at0008 = ╱30╱0╱ // 0x4c9e @0x8
0x4c96…4ca6 at0009 = ╱fe00000000╱ // 0x4c9f @0x9
0x4c96…4ca6 at000e = ╱b6╱ THEN ╱ // 0x4ca4 @0xe
0x4c96…4ca6 at000f = EOL // 0x4ca5 @0xf
0x4c96…4ca6 }
0x4ca6…4cb6 d403 9090 EXEC BFSTEMNING
0x4ca6…4cb6 LineComalBcd {
0x4ca6…4cb6 ptr = 0xd403 // 0x4ca6 @0x0
0x4ca6…4cb6 lno = 0x9090 // 0x4ca8 @0x2
0x4ca6…4cb6 at0004 = ╱9d╱ EXEC ╱ // 0x4caa @0x4
0x4ca6…4cb6 at0005 = ╱42╱B╱ // 0x4cab @0x5
0x4ca6…4cb6 at0006 = ╱46╱F╱ // 0x4cac @0x6
0x4ca6…4cb6 at0007 = ╱53╱S╱ // 0x4cad @0x7
0x4ca6…4cb6 at0008 = ╱54╱T╱ // 0x4cae @0x8
0x4ca6…4cb6 at0009 = ╱45╱E╱ // 0x4caf @0x9
0x4ca6…4cb6 at000a = ╱4d╱M╱ // 0x4cb0 @0xa
0x4ca6…4cb6 at000b = ╱4e╱N╱ // 0x4cb1 @0xb
0x4ca6…4cb6 at000c = ╱49╱I╱ // 0x4cb2 @0xc
0x4ca6…4cb6 at000d = ╱4e╱N╱ // 0x4cb3 @0xd
0x4ca6…4cb6 at000e = ╱47╱G╱ // 0x4cb4 @0xe
0x4ca6…4cb6 at000f = EOL // 0x4cb5 @0xf
0x4ca6…4cb6 }
0x4cb6…4cc1 d40e 9100 EXEC UDBIL
0x4cb6…4cc1 LineComalBcd {
0x4cb6…4cc1 ptr = 0xd40e // 0x4cb6 @0x0
0x4cb6…4cc1 lno = 0x9100 // 0x4cb8 @0x2
0x4cb6…4cc1 at0004 = ╱9d╱ EXEC ╱ // 0x4cba @0x4
0x4cb6…4cc1 at0005 = ╱55╱U╱ // 0x4cbb @0x5
0x4cb6…4cc1 at0006 = ╱44╱D╱ // 0x4cbc @0x6
0x4cb6…4cc1 at0007 = ╱42╱B╱ // 0x4cbd @0x7
0x4cb6…4cc1 at0008 = ╱49╱I╱ // 0x4cbe @0x8
0x4cb6…4cc1 at0009 = ╱4c╱L╱ // 0x4cbf @0x9
0x4cb6…4cc1 at000a = EOL // 0x4cc0 @0xa
0x4cb6…4cc1 }
0x4cc1…4ccc d419 9110 OPEN D3 $ , W
0x4cc1…4ccc LineComalBcd {
0x4cc1…4ccc ptr = 0xd419 // 0x4cc1 @0x0
0x4cc1…4ccc lno = 0x9110 // 0x4cc3 @0x2
0x4cc1…4ccc at0004 = ╱a7╱ OPEN ╱ // 0x4cc5 @0x4
0x4cc1…4ccc at0005 = ╱44╱D╱ // 0x4cc6 @0x5
0x4cc1…4ccc at0006 = ╱33╱3╱ // 0x4cc7 @0x6
0x4cc1…4ccc at0007 = ╱ef╱ $ ╱ // 0x4cc8 @0x7
0x4cc1…4ccc at0008 = ╱ec╱ , ╱ // 0x4cc9 @0x8
0x4cc1…4ccc at0009 = ╱57╱W╱ // 0x4cca @0x9
0x4cc1…4ccc at000a = EOL // 0x4ccb @0xa
0x4cc1…4ccc }
0x4ccc…4cea d437 9120 EXEC FEJL ( 9 , 37 , D3 $ )
0x4ccc…4cea LineComalBcd {
0x4ccc…4cea ptr = 0xd437 // 0x4ccc @0x0
0x4ccc…4cea lno = 0x9120 // 0x4cce @0x2
0x4ccc…4cea at0004 = ╱9d╱ EXEC ╱ // 0x4cd0 @0x4
0x4ccc…4cea at0005 = ╱46╱F╱ // 0x4cd1 @0x5
0x4ccc…4cea at0006 = ╱45╱E╱ // 0x4cd2 @0x6
0x4ccc…4cea at0007 = ╱4a╱J╱ // 0x4cd3 @0x7
0x4ccc…4cea at0008 = ╱4c╱L╱ // 0x4cd4 @0x8
0x4ccc…4cea at0009 = ╱ed╱ ( ╱ // 0x4cd5 @0x9
0x4ccc…4cea at000a = ╱39╱9╱ // 0x4cd6 @0xa
0x4ccc…4cea at000b = ╱fe00009004╱ // 0x4cd7 @0xb
0x4ccc…4cea at0010 = ╱ec╱ , ╱ // 0x4cdc @0x10
0x4ccc…4cea at0011 = ╱33╱3╱ // 0x4cdd @0x11
0x4ccc…4cea at0012 = ╱37╱7╱ // 0x4cde @0x12
0x4ccc…4cea at0013 = ╱fe00009406╱ // 0x4cdf @0x13
0x4ccc…4cea at0018 = ╱ec╱ , ╱ // 0x4ce4 @0x18
0x4ccc…4cea at0019 = ╱44╱D╱ // 0x4ce5 @0x19
0x4ccc…4cea at001a = ╱33╱3╱ // 0x4ce6 @0x1a
0x4ccc…4cea at001b = ╱ef╱ $ ╱ // 0x4ce7 @0x1b
0x4ccc…4cea at001c = ╱ee╱ ) ╱ // 0x4ce8 @0x1c
0x4ccc…4cea at001d = EOL // 0x4ce9 @0x1d
0x4ccc…4cea }
0x4cea…4cfb d448 9130 FOR I = 1 TO I4
0x4cea…4cfb LineComalBcd {
0x4cea…4cfb ptr = 0xd448 // 0x4cea @0x0
0x4cea…4cfb lno = 0x9130 // 0x4cec @0x2
0x4cea…4cfb at0004 = ╱83╱ FOR ╱ // 0x4cee @0x4
0x4cea…4cfb at0005 = ╱49╱I╱ // 0x4cef @0x5
0x4cea…4cfb at0006 = ╱dc╱ = ╱ // 0x4cf0 @0x6
0x4cea…4cfb at0007 = ╱31╱1╱ // 0x4cf1 @0x7
0x4cea…4cfb at0008 = ╱fe00008001╱ // 0x4cf2 @0x8
0x4cea…4cfb at000d = ╱b7╱ TO ╱ // 0x4cf7 @0xd
0x4cea…4cfb at000e = ╱49╱I╱ // 0x4cf8 @0xe
0x4cea…4cfb at000f = ╱34╱4╱ // 0x4cf9 @0xf
0x4cea…4cfb at0010 = EOL // 0x4cfa @0x10
0x4cea…4cfb }
0x4cfb…4d0d d45a 9140 EXEC HENTKASPOST1
0x4cfb…4d0d LineComalBcd {
0x4cfb…4d0d ptr = 0xd45a // 0x4cfb @0x0
0x4cfb…4d0d lno = 0x9140 // 0x4cfd @0x2
0x4cfb…4d0d at0004 = ╱9d╱ EXEC ╱ // 0x4cff @0x4
0x4cfb…4d0d at0005 = ╱48╱H╱ // 0x4d00 @0x5
0x4cfb…4d0d at0006 = ╱45╱E╱ // 0x4d01 @0x6
0x4cfb…4d0d at0007 = ╱4e╱N╱ // 0x4d02 @0x7
0x4cfb…4d0d at0008 = ╱54╱T╱ // 0x4d03 @0x8
0x4cfb…4d0d at0009 = ╱4b╱K╱ // 0x4d04 @0x9
0x4cfb…4d0d at000a = ╱41╱A╱ // 0x4d05 @0xa
0x4cfb…4d0d at000b = ╱53╱S╱ // 0x4d06 @0xb
0x4cfb…4d0d at000c = ╱50╱P╱ // 0x4d07 @0xc
0x4cfb…4d0d at000d = ╱4f╱O╱ // 0x4d08 @0xd
0x4cfb…4d0d at000e = ╱53╱S╱ // 0x4d09 @0xe
0x4cfb…4d0d at000f = ╱54╱T╱ // 0x4d0a @0xf
0x4cfb…4d0d at0010 = ╱31╱1╱ // 0x4d0b @0x10
0x4cfb…4d0d at0011 = EOL // 0x4d0c @0x11
0x4cfb…4d0d }
0x4d0d…4d1d d46a 9150 IF H6 >< 0 THEN
0x4d0d…4d1d LineComalBcd {
0x4d0d…4d1d ptr = 0xd46a // 0x4d0d @0x0
0x4d0d…4d1d lno = 0x9150 // 0x4d0f @0x2
0x4d0d…4d1d at0004 = ╱9c╱ IF ╱ // 0x4d11 @0x4
0x4d0d…4d1d at0005 = ╱48╱H╱ // 0x4d12 @0x5
0x4d0d…4d1d at0006 = ╱36╱6╱ // 0x4d13 @0x6
0x4d0d…4d1d at0007 = ╱e1╱ >< ╱ // 0x4d14 @0x7
0x4d0d…4d1d at0008 = ╱30╱0╱ // 0x4d15 @0x8
0x4d0d…4d1d at0009 = ╱fe00000000╱ // 0x4d16 @0x9
0x4d0d…4d1d at000e = ╱b6╱ THEN ╱ // 0x4d1b @0xe
0x4d0d…4d1d at000f = EOL // 0x4d1c @0xf
0x4d0d…4d1d }
0x4d1d…4d36 d483 9160 EXEC MODFORTEGN ( F3 $ , F4 $ )
0x4d1d…4d36 LineComalBcd {
0x4d1d…4d36 ptr = 0xd483 // 0x4d1d @0x0
0x4d1d…4d36 lno = 0x9160 // 0x4d1f @0x2
0x4d1d…4d36 at0004 = ╱9d╱ EXEC ╱ // 0x4d21 @0x4
0x4d1d…4d36 at0005 = ╱4d╱M╱ // 0x4d22 @0x5
0x4d1d…4d36 at0006 = ╱4f╱O╱ // 0x4d23 @0x6
0x4d1d…4d36 at0007 = ╱44╱D╱ // 0x4d24 @0x7
0x4d1d…4d36 at0008 = ╱46╱F╱ // 0x4d25 @0x8
0x4d1d…4d36 at0009 = ╱4f╱O╱ // 0x4d26 @0x9
0x4d1d…4d36 at000a = ╱52╱R╱ // 0x4d27 @0xa
0x4d1d…4d36 at000b = ╱54╱T╱ // 0x4d28 @0xb
0x4d1d…4d36 at000c = ╱45╱E╱ // 0x4d29 @0xc
0x4d1d…4d36 at000d = ╱47╱G╱ // 0x4d2a @0xd
0x4d1d…4d36 at000e = ╱4e╱N╱ // 0x4d2b @0xe
0x4d1d…4d36 at000f = ╱ed╱ ( ╱ // 0x4d2c @0xf
0x4d1d…4d36 at0010 = ╱46╱F╱ // 0x4d2d @0x10
0x4d1d…4d36 at0011 = ╱33╱3╱ // 0x4d2e @0x11
0x4d1d…4d36 at0012 = ╱ef╱ $ ╱ // 0x4d2f @0x12
0x4d1d…4d36 at0013 = ╱ec╱ , ╱ // 0x4d30 @0x13
0x4d1d…4d36 at0014 = ╱46╱F╱ // 0x4d31 @0x14
0x4d1d…4d36 at0015 = ╱34╱4╱ // 0x4d32 @0x15
0x4d1d…4d36 at0016 = ╱ef╱ $ ╱ // 0x4d33 @0x16
0x4d1d…4d36 at0017 = ╱ee╱ ) ╱ // 0x4d34 @0x17
0x4d1d…4d36 at0018 = EOL // 0x4d35 @0x18
0x4d1d…4d36 }
0x4d36…4d45 d492 9170 EXEC GEMBHPOST
0x4d36…4d45 LineComalBcd {
0x4d36…4d45 ptr = 0xd492 // 0x4d36 @0x0
0x4d36…4d45 lno = 0x9170 // 0x4d38 @0x2
0x4d36…4d45 at0004 = ╱9d╱ EXEC ╱ // 0x4d3a @0x4
0x4d36…4d45 at0005 = ╱47╱G╱ // 0x4d3b @0x5
0x4d36…4d45 at0006 = ╱45╱E╱ // 0x4d3c @0x6
0x4d36…4d45 at0007 = ╱4d╱M╱ // 0x4d3d @0x7
0x4d36…4d45 at0008 = ╱42╱B╱ // 0x4d3e @0x8
0x4d36…4d45 at0009 = ╱48╱H╱ // 0x4d3f @0x9
0x4d36…4d45 at000a = ╱50╱P╱ // 0x4d40 @0xa
0x4d36…4d45 at000b = ╱4f╱O╱ // 0x4d41 @0xb
0x4d36…4d45 at000c = ╱53╱S╱ // 0x4d42 @0xc
0x4d36…4d45 at000d = ╱54╱T╱ // 0x4d43 @0xd
0x4d36…4d45 at000e = EOL // 0x4d44 @0xe
0x4d36…4d45 }
0x4d45…4d63 d4b0 9180 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
0x4d45…4d63 LineComalBcd {
0x4d45…4d63 ptr = 0xd4b0 // 0x4d45 @0x0
0x4d45…4d63 lno = 0x9180 // 0x4d47 @0x2
0x4d45…4d63 at0004 = ╱9d╱ EXEC ╱ // 0x4d49 @0x4
0x4d45…4d63 at0005 = ╱43╱C╱ // 0x4d4a @0x5
0x4d45…4d63 at0006 = ╱41╱A╱ // 0x4d4b @0x6
0x4d45…4d63 at0007 = ╱4c╱L╱ // 0x4d4c @0x7
0x4d45…4d63 at0008 = ╱43╱C╱ // 0x4d4d @0x8
0x4d45…4d63 at0009 = ╱ed╱ ( ╱ // 0x4d4e @0x9
0x4d45…4d63 at000a = ╱30╱0╱ // 0x4d4f @0xa
0x4d45…4d63 at000b = ╱fe00000000╱ // 0x4d50 @0xb
0x4d45…4d63 at0010 = ╱ec╱ , ╱ // 0x4d55 @0x10
0x4d45…4d63 at0011 = ╱46╱F╱ // 0x4d56 @0x11
0x4d45…4d63 at0012 = ╱33╱3╱ // 0x4d57 @0x12
0x4d45…4d63 at0013 = ╱ef╱ $ ╱ // 0x4d58 @0x13
0x4d45…4d63 at0014 = ╱ec╱ , ╱ // 0x4d59 @0x14
0x4d45…4d63 at0015 = ╱41╱A╱ // 0x4d5a @0x15
0x4d45…4d63 at0016 = ╱31╱1╱ // 0x4d5b @0x16
0x4d45…4d63 at0017 = ╱ef╱ $ ╱ // 0x4d5c @0x17
0x4d45…4d63 at0018 = ╱ec╱ , ╱ // 0x4d5d @0x18
0x4d45…4d63 at0019 = ╱41╱A╱ // 0x4d5e @0x19
0x4d45…4d63 at001a = ╱31╱1╱ // 0x4d5f @0x1a
0x4d45…4d63 at001b = ╱ef╱ $ ╱ // 0x4d60 @0x1b
0x4d45…4d63 at001c = ╱ee╱ ) ╱ // 0x4d61 @0x1c
0x4d45…4d63 at001d = EOL // 0x4d62 @0x1d
0x4d45…4d63 }
0x4d63…4d77 d4c4 9190 EXEC UDSKRIV ( L2 , R8 )
0x4d63…4d77 LineComalBcd {
0x4d63…4d77 ptr = 0xd4c4 // 0x4d63 @0x0
0x4d63…4d77 lno = 0x9190 // 0x4d65 @0x2
0x4d63…4d77 at0004 = ╱9d╱ EXEC ╱ // 0x4d67 @0x4
0x4d63…4d77 at0005 = ╱55╱U╱ // 0x4d68 @0x5
0x4d63…4d77 at0006 = ╱44╱D╱ // 0x4d69 @0x6
0x4d63…4d77 at0007 = ╱53╱S╱ // 0x4d6a @0x7
0x4d63…4d77 at0008 = ╱4b╱K╱ // 0x4d6b @0x8
0x4d63…4d77 at0009 = ╱52╱R╱ // 0x4d6c @0x9
0x4d63…4d77 at000a = ╱49╱I╱ // 0x4d6d @0xa
0x4d63…4d77 at000b = ╱56╱V╱ // 0x4d6e @0xb
0x4d63…4d77 at000c = ╱ed╱ ( ╱ // 0x4d6f @0xc
0x4d63…4d77 at000d = ╱4c╱L╱ // 0x4d70 @0xd
0x4d63…4d77 at000e = ╱32╱2╱ // 0x4d71 @0xe
0x4d63…4d77 at000f = ╱ec╱ , ╱ // 0x4d72 @0xf
0x4d63…4d77 at0010 = ╱52╱R╱ // 0x4d73 @0x10
0x4d63…4d77 at0011 = ╱38╱8╱ // 0x4d74 @0x11
0x4d63…4d77 at0012 = ╱ee╱ ) ╱ // 0x4d75 @0x12
0x4d63…4d77 at0013 = EOL // 0x4d76 @0x13
0x4d63…4d77 }
0x4d77…4d7d d4ca 9200 ENDIF
0x4d77…4d7d LineComalBcd {
0x4d77…4d7d ptr = 0xd4ca // 0x4d77 @0x0
0x4d77…4d7d lno = 0x9200 // 0x4d79 @0x2
0x4d77…4d7d at0004 = ╱9b╱ ENDIF ╱ // 0x4d7b @0x4
0x4d77…4d7d at0005 = EOL // 0x4d7c @0x5
0x4d77…4d7d }
0x4d7d…4d84 d4d1 9210 NEXT I
0x4d7d…4d84 LineComalBcd {
0x4d7d…4d84 ptr = 0xd4d1 // 0x4d7d @0x0
0x4d7d…4d84 lno = 0x9210 // 0x4d7f @0x2
0x4d7d…4d84 at0004 = ╱84╱ NEXT ╱ // 0x4d81 @0x4
0x4d7d…4d84 at0005 = ╱49╱I╱ // 0x4d82 @0x5
0x4d7d…4d84 at0006 = EOL // 0x4d83 @0x6
0x4d7d…4d84 }
0x4d84…4da3 d4f0 9220 I7 = 24 ; H7 = L2 ; H8 = 0
0x4d84…4da3 LineComalBcd {
0x4d84…4da3 ptr = 0xd4f0 // 0x4d84 @0x0
0x4d84…4da3 lno = 0x9220 // 0x4d86 @0x2
0x4d84…4da3 at0004 = ╱49╱I╱ // 0x4d88 @0x4
0x4d84…4da3 at0005 = ╱37╱7╱ // 0x4d89 @0x5
0x4d84…4da3 at0006 = ╱dc╱ = ╱ // 0x4d8a @0x6
0x4d84…4da3 at0007 = ╱32╱2╱ // 0x4d8b @0x7
0x4d84…4da3 at0008 = ╱34╱4╱ // 0x4d8c @0x8
0x4d84…4da3 at0009 = ╱fe0000c005╱ // 0x4d8d @0x9
0x4d84…4da3 at000e = ╱eb╱ ; ╱ // 0x4d92 @0xe
0x4d84…4da3 at000f = ╱48╱H╱ // 0x4d93 @0xf
0x4d84…4da3 at0010 = ╱37╱7╱ // 0x4d94 @0x10
0x4d84…4da3 at0011 = ╱dc╱ = ╱ // 0x4d95 @0x11
0x4d84…4da3 at0012 = ╱4c╱L╱ // 0x4d96 @0x12
0x4d84…4da3 at0013 = ╱32╱2╱ // 0x4d97 @0x13
0x4d84…4da3 at0014 = ╱eb╱ ; ╱ // 0x4d98 @0x14
0x4d84…4da3 at0015 = ╱48╱H╱ // 0x4d99 @0x15
0x4d84…4da3 at0016 = ╱38╱8╱ // 0x4d9a @0x16
0x4d84…4da3 at0017 = ╱dc╱ = ╱ // 0x4d9b @0x17
0x4d84…4da3 at0018 = ╱30╱0╱ // 0x4d9c @0x18
0x4d84…4da3 at0019 = ╱fe00000000╱ // 0x4d9d @0x19
0x4d84…4da3 at001e = EOL // 0x4da2 @0x1e
0x4d84…4da3 }
0x4da3…4dd1 d51e 9230 EXEC CALC ( 0 , F5 $ ( 1 ) , F5 $ ( 2 ) , F3 $ )
0x4da3…4dd1 LineComalBcd {
0x4da3…4dd1 ptr = 0xd51e // 0x4da3 @0x0
0x4da3…4dd1 lno = 0x9230 // 0x4da5 @0x2
0x4da3…4dd1 at0004 = ╱9d╱ EXEC ╱ // 0x4da7 @0x4
0x4da3…4dd1 at0005 = ╱43╱C╱ // 0x4da8 @0x5
0x4da3…4dd1 at0006 = ╱41╱A╱ // 0x4da9 @0x6
0x4da3…4dd1 at0007 = ╱4c╱L╱ // 0x4daa @0x7
0x4da3…4dd1 at0008 = ╱43╱C╱ // 0x4dab @0x8
0x4da3…4dd1 at0009 = ╱ed╱ ( ╱ // 0x4dac @0x9
0x4da3…4dd1 at000a = ╱30╱0╱ // 0x4dad @0xa
0x4da3…4dd1 at000b = ╱fe00000000╱ // 0x4dae @0xb
0x4da3…4dd1 at0010 = ╱ec╱ , ╱ // 0x4db3 @0x10
0x4da3…4dd1 at0011 = ╱46╱F╱ // 0x4db4 @0x11
0x4da3…4dd1 at0012 = ╱35╱5╱ // 0x4db5 @0x12
0x4da3…4dd1 at0013 = ╱ef╱ $ ╱ // 0x4db6 @0x13
0x4da3…4dd1 at0014 = ╱ed╱ ( ╱ // 0x4db7 @0x14
0x4da3…4dd1 at0015 = ╱31╱1╱ // 0x4db8 @0x15
0x4da3…4dd1 at0016 = ╱fe00008001╱ // 0x4db9 @0x16
0x4da3…4dd1 at001b = ╱ee╱ ) ╱ // 0x4dbe @0x1b
0x4da3…4dd1 at001c = ╱ec╱ , ╱ // 0x4dbf @0x1c
0x4da3…4dd1 at001d = ╱46╱F╱ // 0x4dc0 @0x1d
0x4da3…4dd1 at001e = ╱35╱5╱ // 0x4dc1 @0x1e
0x4da3…4dd1 at001f = ╱ef╱ $ ╱ // 0x4dc2 @0x1f
0x4da3…4dd1 at0020 = ╱ed╱ ( ╱ // 0x4dc3 @0x20
0x4da3…4dd1 at0021 = ╱32╱2╱ // 0x4dc4 @0x21
0x4da3…4dd1 at0022 = ╱fe00008002╱ // 0x4dc5 @0x22
0x4da3…4dd1 at0027 = ╱ee╱ ) ╱ // 0x4dca @0x27
0x4da3…4dd1 at0028 = ╱ec╱ , ╱ // 0x4dcb @0x28
0x4da3…4dd1 at0029 = ╱46╱F╱ // 0x4dcc @0x29
0x4da3…4dd1 at002a = ╱33╱3╱ // 0x4dcd @0x2a
0x4da3…4dd1 at002b = ╱ef╱ $ ╱ // 0x4dce @0x2b
0x4da3…4dd1 at002c = ╱ee╱ ) ╱ // 0x4dcf @0x2c
0x4da3…4dd1 at002d = EOL // 0x4dd0 @0x2d
0x4da3…4dd1 }
0x4dd1…4def d53c 9240 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
0x4dd1…4def LineComalBcd {
0x4dd1…4def ptr = 0xd53c // 0x4dd1 @0x0
0x4dd1…4def lno = 0x9240 // 0x4dd3 @0x2
0x4dd1…4def at0004 = ╱9d╱ EXEC ╱ // 0x4dd5 @0x4
0x4dd1…4def at0005 = ╱43╱C╱ // 0x4dd6 @0x5
0x4dd1…4def at0006 = ╱41╱A╱ // 0x4dd7 @0x6
0x4dd1…4def at0007 = ╱4c╱L╱ // 0x4dd8 @0x7
0x4dd1…4def at0008 = ╱43╱C╱ // 0x4dd9 @0x8
0x4dd1…4def at0009 = ╱ed╱ ( ╱ // 0x4dda @0x9
0x4dd1…4def at000a = ╱30╱0╱ // 0x4ddb @0xa
0x4dd1…4def at000b = ╱fe00000000╱ // 0x4ddc @0xb
0x4dd1…4def at0010 = ╱ec╱ , ╱ // 0x4de1 @0x10
0x4dd1…4def at0011 = ╱46╱F╱ // 0x4de2 @0x11
0x4dd1…4def at0012 = ╱33╱3╱ // 0x4de3 @0x12
0x4dd1…4def at0013 = ╱ef╱ $ ╱ // 0x4de4 @0x13
0x4dd1…4def at0014 = ╱ec╱ , ╱ // 0x4de5 @0x14
0x4dd1…4def at0015 = ╱41╱A╱ // 0x4de6 @0x15
0x4dd1…4def at0016 = ╱31╱1╱ // 0x4de7 @0x16
0x4dd1…4def at0017 = ╱ef╱ $ ╱ // 0x4de8 @0x17
0x4dd1…4def at0018 = ╱ec╱ , ╱ // 0x4de9 @0x18
0x4dd1…4def at0019 = ╱41╱A╱ // 0x4dea @0x19
0x4dd1…4def at001a = ╱31╱1╱ // 0x4deb @0x1a
0x4dd1…4def at001b = ╱ef╱ $ ╱ // 0x4dec @0x1b
0x4dd1…4def at001c = ╱ee╱ ) ╱ // 0x4ded @0x1c
0x4dd1…4def at001d = EOL // 0x4dee @0x1d
0x4dd1…4def }
0x4def…4df9 d546 9250 H6 = S5
0x4def…4df9 LineComalBcd {
0x4def…4df9 ptr = 0xd546 // 0x4def @0x0
0x4def…4df9 lno = 0x9250 // 0x4df1 @0x2
0x4def…4df9 at0004 = ╱48╱H╱ // 0x4df3 @0x4
0x4def…4df9 at0005 = ╱36╱6╱ // 0x4df4 @0x5
0x4def…4df9 at0006 = ╱dc╱ = ╱ // 0x4df5 @0x6
0x4def…4df9 at0007 = ╱53╱S╱ // 0x4df6 @0x7
0x4def…4df9 at0008 = ╱35╱5╱ // 0x4df7 @0x8
0x4def…4df9 at0009 = EOL // 0x4df8 @0x9
0x4def…4df9 }
0x4df9…4e08 d555 9260 EXEC GEMBHPOST
0x4df9…4e08 LineComalBcd {
0x4df9…4e08 ptr = 0xd555 // 0x4df9 @0x0
0x4df9…4e08 lno = 0x9260 // 0x4dfb @0x2
0x4df9…4e08 at0004 = ╱9d╱ EXEC ╱ // 0x4dfd @0x4
0x4df9…4e08 at0005 = ╱47╱G╱ // 0x4dfe @0x5
0x4df9…4e08 at0006 = ╱45╱E╱ // 0x4dff @0x6
0x4df9…4e08 at0007 = ╱4d╱M╱ // 0x4e00 @0x7
0x4df9…4e08 at0008 = ╱42╱B╱ // 0x4e01 @0x8
0x4df9…4e08 at0009 = ╱48╱H╱ // 0x4e02 @0x9
0x4df9…4e08 at000a = ╱50╱P╱ // 0x4e03 @0xa
0x4df9…4e08 at000b = ╱4f╱O╱ // 0x4e04 @0xb
0x4df9…4e08 at000c = ╱53╱S╱ // 0x4e05 @0xc
0x4df9…4e08 at000d = ╱54╱T╱ // 0x4e06 @0xd
0x4df9…4e08 at000e = EOL // 0x4e07 @0xe
0x4df9…4e08 }
0x4e08…4e46 d593 9270 I7 = 10 ; H7 = - 1 ; F4 $ = F3 $ ; E3 $ = "Samlet…kassepostering"
0x4e08…4e46 LineComalBcd {
0x4e08…4e46 ptr = 0xd593 // 0x4e08 @0x0
0x4e08…4e46 lno = 0x9270 // 0x4e0a @0x2
0x4e08…4e46 at0004 = ╱49╱I╱ // 0x4e0c @0x4
0x4e08…4e46 at0005 = ╱37╱7╱ // 0x4e0d @0x5
0x4e08…4e46 at0006 = ╱dc╱ = ╱ // 0x4e0e @0x6
0x4e08…4e46 at0007 = ╱31╱1╱ // 0x4e0f @0x7
0x4e08…4e46 at0008 = ╱30╱0╱ // 0x4e10 @0x8
0x4e08…4e46 at0009 = ╱fe0000a004╱ // 0x4e11 @0x9
0x4e08…4e46 at000e = ╱eb╱ ; ╱ // 0x4e16 @0xe
0x4e08…4e46 at000f = ╱48╱H╱ // 0x4e17 @0xf
0x4e08…4e46 at0010 = ╱37╱7╱ // 0x4e18 @0x10
0x4e08…4e46 at0011 = ╱dc╱ = ╱ // 0x4e19 @0x11
0x4e08…4e46 at0012 = ╱e9╱ - ╱ // 0x4e1a @0x12
0x4e08…4e46 at0013 = ╱31╱1╱ // 0x4e1b @0x13
0x4e08…4e46 at0014 = ╱fe00008001╱ // 0x4e1c @0x14
0x4e08…4e46 at0019 = ╱eb╱ ; ╱ // 0x4e21 @0x19
0x4e08…4e46 at001a = ╱46╱F╱ // 0x4e22 @0x1a
0x4e08…4e46 at001b = ╱34╱4╱ // 0x4e23 @0x1b
0x4e08…4e46 at001c = ╱ef╱ $ ╱ // 0x4e24 @0x1c
0x4e08…4e46 at001d = ╱dc╱ = ╱ // 0x4e25 @0x1d
0x4e08…4e46 at001e = ╱46╱F╱ // 0x4e26 @0x1e
0x4e08…4e46 at001f = ╱33╱3╱ // 0x4e27 @0x1f
0x4e08…4e46 at0020 = ╱ef╱ $ ╱ // 0x4e28 @0x20
0x4e08…4e46 at0021 = ╱eb╱ ; ╱ // 0x4e29 @0x21
0x4e08…4e46 at0022 = ╱45╱E╱ // 0x4e2a @0x22
0x4e08…4e46 at0023 = ╱33╱3╱ // 0x4e2b @0x23
0x4e08…4e46 at0024 = ╱ef╱ $ ╱ // 0x4e2c @0x24
0x4e08…4e46 at0025 = ╱dc╱ = ╱ // 0x4e2d @0x25
0x4e08…4e46 at0026 = ╱22╱"╱ // 0x4e2e @0x26
0x4e08…4e46 at0027 = ╱53╱S╱ // 0x4e2f @0x27
0x4e08…4e46 at0028 = ╱61╱a╱ // 0x4e30 @0x28
0x4e08…4e46 at0029 = ╱6d╱m╱ // 0x4e31 @0x29
0x4e08…4e46 at002a = ╱6c╱l╱ // 0x4e32 @0x2a
0x4e08…4e46 at002b = ╱65╱e╱ // 0x4e33 @0x2b
0x4e08…4e46 at002c = ╱74╱t╱ // 0x4e34 @0x2c
0x4e08…4e46 at002d = ╱20╱…╱ // 0x4e35 @0x2d
0x4e08…4e46 at002e = ╱6b╱k╱ // 0x4e36 @0x2e
0x4e08…4e46 at002f = ╱61╱a╱ // 0x4e37 @0x2f
0x4e08…4e46 at0030 = ╱73╱s╱ // 0x4e38 @0x30
0x4e08…4e46 at0031 = ╱73╱s╱ // 0x4e39 @0x31
0x4e08…4e46 at0032 = ╱65╱e╱ // 0x4e3a @0x32
0x4e08…4e46 at0033 = ╱70╱p╱ // 0x4e3b @0x33
0x4e08…4e46 at0034 = ╱6f╱o╱ // 0x4e3c @0x34
0x4e08…4e46 at0035 = ╱73╱s╱ // 0x4e3d @0x35
0x4e08…4e46 at0036 = ╱74╱t╱ // 0x4e3e @0x36
0x4e08…4e46 at0037 = ╱65╱e╱ // 0x4e3f @0x37
0x4e08…4e46 at0038 = ╱72╱r╱ // 0x4e40 @0x38
0x4e08…4e46 at0039 = ╱69╱i╱ // 0x4e41 @0x39
0x4e08…4e46 at003a = ╱6e╱n╱ // 0x4e42 @0x3a
0x4e08…4e46 at003b = ╱67╱g╱ // 0x4e43 @0x3b
0x4e08…4e46 at003c = ╱22╱"╱ // 0x4e44 @0x3c
0x4e08…4e46 at003d = EOL // 0x4e45 @0x3d
0x4e08…4e46 }
0x4e46…4e5a d5a7 9280 EXEC UDSKRIV ( L2 , R8 )
0x4e46…4e5a LineComalBcd {
0x4e46…4e5a ptr = 0xd5a7 // 0x4e46 @0x0
0x4e46…4e5a lno = 0x9280 // 0x4e48 @0x2
0x4e46…4e5a at0004 = ╱9d╱ EXEC ╱ // 0x4e4a @0x4
0x4e46…4e5a at0005 = ╱55╱U╱ // 0x4e4b @0x5
0x4e46…4e5a at0006 = ╱44╱D╱ // 0x4e4c @0x6
0x4e46…4e5a at0007 = ╱53╱S╱ // 0x4e4d @0x7
0x4e46…4e5a at0008 = ╱4b╱K╱ // 0x4e4e @0x8
0x4e46…4e5a at0009 = ╱52╱R╱ // 0x4e4f @0x9
0x4e46…4e5a at000a = ╱49╱I╱ // 0x4e50 @0xa
0x4e46…4e5a at000b = ╱56╱V╱ // 0x4e51 @0xb
0x4e46…4e5a at000c = ╱ed╱ ( ╱ // 0x4e52 @0xc
0x4e46…4e5a at000d = ╱4c╱L╱ // 0x4e53 @0xd
0x4e46…4e5a at000e = ╱32╱2╱ // 0x4e54 @0xe
0x4e46…4e5a at000f = ╱ec╱ , ╱ // 0x4e55 @0xf
0x4e46…4e5a at0010 = ╱52╱R╱ // 0x4e56 @0x10
0x4e46…4e5a at0011 = ╱38╱8╱ // 0x4e57 @0x11
0x4e46…4e5a at0012 = ╱ee╱ ) ╱ // 0x4e58 @0x12
0x4e46…4e5a at0013 = EOL // 0x4e59 @0x13
0x4e46…4e5a }
0x4e5a…4e88 d5d5 9290 EXEC CALC ( 0 , F5 $ ( 3 ) , F5 $ ( 4 ) , F3 $ )
0x4e5a…4e88 LineComalBcd {
0x4e5a…4e88 ptr = 0xd5d5 // 0x4e5a @0x0
0x4e5a…4e88 lno = 0x9290 // 0x4e5c @0x2
0x4e5a…4e88 at0004 = ╱9d╱ EXEC ╱ // 0x4e5e @0x4
0x4e5a…4e88 at0005 = ╱43╱C╱ // 0x4e5f @0x5
0x4e5a…4e88 at0006 = ╱41╱A╱ // 0x4e60 @0x6
0x4e5a…4e88 at0007 = ╱4c╱L╱ // 0x4e61 @0x7
0x4e5a…4e88 at0008 = ╱43╱C╱ // 0x4e62 @0x8
0x4e5a…4e88 at0009 = ╱ed╱ ( ╱ // 0x4e63 @0x9
0x4e5a…4e88 at000a = ╱30╱0╱ // 0x4e64 @0xa
0x4e5a…4e88 at000b = ╱fe00000000╱ // 0x4e65 @0xb
0x4e5a…4e88 at0010 = ╱ec╱ , ╱ // 0x4e6a @0x10
0x4e5a…4e88 at0011 = ╱46╱F╱ // 0x4e6b @0x11
0x4e5a…4e88 at0012 = ╱35╱5╱ // 0x4e6c @0x12
0x4e5a…4e88 at0013 = ╱ef╱ $ ╱ // 0x4e6d @0x13
0x4e5a…4e88 at0014 = ╱ed╱ ( ╱ // 0x4e6e @0x14
0x4e5a…4e88 at0015 = ╱33╱3╱ // 0x4e6f @0x15
0x4e5a…4e88 at0016 = ╱fe0000c002╱ // 0x4e70 @0x16
0x4e5a…4e88 at001b = ╱ee╱ ) ╱ // 0x4e75 @0x1b
0x4e5a…4e88 at001c = ╱ec╱ , ╱ // 0x4e76 @0x1c
0x4e5a…4e88 at001d = ╱46╱F╱ // 0x4e77 @0x1d
0x4e5a…4e88 at001e = ╱35╱5╱ // 0x4e78 @0x1e
0x4e5a…4e88 at001f = ╱ef╱ $ ╱ // 0x4e79 @0x1f
0x4e5a…4e88 at0020 = ╱ed╱ ( ╱ // 0x4e7a @0x20
0x4e5a…4e88 at0021 = ╱34╱4╱ // 0x4e7b @0x21
0x4e5a…4e88 at0022 = ╱fe00008003╱ // 0x4e7c @0x22
0x4e5a…4e88 at0027 = ╱ee╱ ) ╱ // 0x4e81 @0x27
0x4e5a…4e88 at0028 = ╱ec╱ , ╱ // 0x4e82 @0x28
0x4e5a…4e88 at0029 = ╱46╱F╱ // 0x4e83 @0x29
0x4e5a…4e88 at002a = ╱33╱3╱ // 0x4e84 @0x2a
0x4e5a…4e88 at002b = ╱ef╱ $ ╱ // 0x4e85 @0x2b
0x4e5a…4e88 at002c = ╱ee╱ ) ╱ // 0x4e86 @0x2c
0x4e5a…4e88 at002d = EOL // 0x4e87 @0x2d
0x4e5a…4e88 }
0x4e88…4ea6 d5f3 9300 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
0x4e88…4ea6 LineComalBcd {
0x4e88…4ea6 ptr = 0xd5f3 // 0x4e88 @0x0
0x4e88…4ea6 lno = 0x9300 // 0x4e8a @0x2
0x4e88…4ea6 at0004 = ╱9d╱ EXEC ╱ // 0x4e8c @0x4
0x4e88…4ea6 at0005 = ╱43╱C╱ // 0x4e8d @0x5
0x4e88…4ea6 at0006 = ╱41╱A╱ // 0x4e8e @0x6
0x4e88…4ea6 at0007 = ╱4c╱L╱ // 0x4e8f @0x7
0x4e88…4ea6 at0008 = ╱43╱C╱ // 0x4e90 @0x8
0x4e88…4ea6 at0009 = ╱ed╱ ( ╱ // 0x4e91 @0x9
0x4e88…4ea6 at000a = ╱30╱0╱ // 0x4e92 @0xa
0x4e88…4ea6 at000b = ╱fe00000000╱ // 0x4e93 @0xb
0x4e88…4ea6 at0010 = ╱ec╱ , ╱ // 0x4e98 @0x10
0x4e88…4ea6 at0011 = ╱46╱F╱ // 0x4e99 @0x11
0x4e88…4ea6 at0012 = ╱33╱3╱ // 0x4e9a @0x12
0x4e88…4ea6 at0013 = ╱ef╱ $ ╱ // 0x4e9b @0x13
0x4e88…4ea6 at0014 = ╱ec╱ , ╱ // 0x4e9c @0x14
0x4e88…4ea6 at0015 = ╱41╱A╱ // 0x4e9d @0x15
0x4e88…4ea6 at0016 = ╱31╱1╱ // 0x4e9e @0x16
0x4e88…4ea6 at0017 = ╱ef╱ $ ╱ // 0x4e9f @0x17
0x4e88…4ea6 at0018 = ╱ec╱ , ╱ // 0x4ea0 @0x18
0x4e88…4ea6 at0019 = ╱41╱A╱ // 0x4ea1 @0x19
0x4e88…4ea6 at001a = ╱31╱1╱ // 0x4ea2 @0x1a
0x4e88…4ea6 at001b = ╱ef╱ $ ╱ // 0x4ea3 @0x1b
0x4e88…4ea6 at001c = ╱ee╱ ) ╱ // 0x4ea4 @0x1c
0x4e88…4ea6 at001d = EOL // 0x4ea5 @0x1d
0x4e88…4ea6 }
0x4ea6…4ec1 d60e 9310 I7 = 24 ; H7 = L2 ; H6 = S6
0x4ea6…4ec1 LineComalBcd {
0x4ea6…4ec1 ptr = 0xd60e // 0x4ea6 @0x0
0x4ea6…4ec1 lno = 0x9310 // 0x4ea8 @0x2
0x4ea6…4ec1 at0004 = ╱49╱I╱ // 0x4eaa @0x4
0x4ea6…4ec1 at0005 = ╱37╱7╱ // 0x4eab @0x5
0x4ea6…4ec1 at0006 = ╱dc╱ = ╱ // 0x4eac @0x6
0x4ea6…4ec1 at0007 = ╱32╱2╱ // 0x4ead @0x7
0x4ea6…4ec1 at0008 = ╱34╱4╱ // 0x4eae @0x8
0x4ea6…4ec1 at0009 = ╱fe0000c005╱ // 0x4eaf @0x9
0x4ea6…4ec1 at000e = ╱eb╱ ; ╱ // 0x4eb4 @0xe
0x4ea6…4ec1 at000f = ╱48╱H╱ // 0x4eb5 @0xf
0x4ea6…4ec1 at0010 = ╱37╱7╱ // 0x4eb6 @0x10
0x4ea6…4ec1 at0011 = ╱dc╱ = ╱ // 0x4eb7 @0x11
0x4ea6…4ec1 at0012 = ╱4c╱L╱ // 0x4eb8 @0x12
0x4ea6…4ec1 at0013 = ╱32╱2╱ // 0x4eb9 @0x13
0x4ea6…4ec1 at0014 = ╱eb╱ ; ╱ // 0x4eba @0x14
0x4ea6…4ec1 at0015 = ╱48╱H╱ // 0x4ebb @0x15
0x4ea6…4ec1 at0016 = ╱36╱6╱ // 0x4ebc @0x16
0x4ea6…4ec1 at0017 = ╱dc╱ = ╱ // 0x4ebd @0x17
0x4ea6…4ec1 at0018 = ╱53╱S╱ // 0x4ebe @0x18
0x4ea6…4ec1 at0019 = ╱36╱6╱ // 0x4ebf @0x19
0x4ea6…4ec1 at001a = EOL // 0x4ec0 @0x1a
0x4ea6…4ec1 }
0x4ec1…4ed0 d61d 9320 EXEC GEMBHPOST
0x4ec1…4ed0 LineComalBcd {
0x4ec1…4ed0 ptr = 0xd61d // 0x4ec1 @0x0
0x4ec1…4ed0 lno = 0x9320 // 0x4ec3 @0x2
0x4ec1…4ed0 at0004 = ╱9d╱ EXEC ╱ // 0x4ec5 @0x4
0x4ec1…4ed0 at0005 = ╱47╱G╱ // 0x4ec6 @0x5
0x4ec1…4ed0 at0006 = ╱45╱E╱ // 0x4ec7 @0x6
0x4ec1…4ed0 at0007 = ╱4d╱M╱ // 0x4ec8 @0x7
0x4ec1…4ed0 at0008 = ╱42╱B╱ // 0x4ec9 @0x8
0x4ec1…4ed0 at0009 = ╱48╱H╱ // 0x4eca @0x9
0x4ec1…4ed0 at000a = ╱50╱P╱ // 0x4ecb @0xa
0x4ec1…4ed0 at000b = ╱4f╱O╱ // 0x4ecc @0xb
0x4ec1…4ed0 at000c = ╱53╱S╱ // 0x4ecd @0xc
0x4ec1…4ed0 at000d = ╱54╱T╱ // 0x4ece @0xd
0x4ec1…4ed0 at000e = EOL // 0x4ecf @0xe
0x4ec1…4ed0 }
0x4ed0…4f0d d65a 9330 F4 $ = F3 $ ; I7 = 10 ; H7 = - 1 ; E3 $ = "Samlet…giropostering"
0x4ed0…4f0d LineComalBcd {
0x4ed0…4f0d ptr = 0xd65a // 0x4ed0 @0x0
0x4ed0…4f0d lno = 0x9330 // 0x4ed2 @0x2
0x4ed0…4f0d at0004 = ╱46╱F╱ // 0x4ed4 @0x4
0x4ed0…4f0d at0005 = ╱34╱4╱ // 0x4ed5 @0x5
0x4ed0…4f0d at0006 = ╱ef╱ $ ╱ // 0x4ed6 @0x6
0x4ed0…4f0d at0007 = ╱dc╱ = ╱ // 0x4ed7 @0x7
0x4ed0…4f0d at0008 = ╱46╱F╱ // 0x4ed8 @0x8
0x4ed0…4f0d at0009 = ╱33╱3╱ // 0x4ed9 @0x9
0x4ed0…4f0d at000a = ╱ef╱ $ ╱ // 0x4eda @0xa
0x4ed0…4f0d at000b = ╱eb╱ ; ╱ // 0x4edb @0xb
0x4ed0…4f0d at000c = ╱49╱I╱ // 0x4edc @0xc
0x4ed0…4f0d at000d = ╱37╱7╱ // 0x4edd @0xd
0x4ed0…4f0d at000e = ╱dc╱ = ╱ // 0x4ede @0xe
0x4ed0…4f0d at000f = ╱31╱1╱ // 0x4edf @0xf
0x4ed0…4f0d at0010 = ╱30╱0╱ // 0x4ee0 @0x10
0x4ed0…4f0d at0011 = ╱fe0000a004╱ // 0x4ee1 @0x11
0x4ed0…4f0d at0016 = ╱eb╱ ; ╱ // 0x4ee6 @0x16
0x4ed0…4f0d at0017 = ╱48╱H╱ // 0x4ee7 @0x17
0x4ed0…4f0d at0018 = ╱37╱7╱ // 0x4ee8 @0x18
0x4ed0…4f0d at0019 = ╱dc╱ = ╱ // 0x4ee9 @0x19
0x4ed0…4f0d at001a = ╱e9╱ - ╱ // 0x4eea @0x1a
0x4ed0…4f0d at001b = ╱31╱1╱ // 0x4eeb @0x1b
0x4ed0…4f0d at001c = ╱fe00008001╱ // 0x4eec @0x1c
0x4ed0…4f0d at0021 = ╱eb╱ ; ╱ // 0x4ef1 @0x21
0x4ed0…4f0d at0022 = ╱45╱E╱ // 0x4ef2 @0x22
0x4ed0…4f0d at0023 = ╱33╱3╱ // 0x4ef3 @0x23
0x4ed0…4f0d at0024 = ╱ef╱ $ ╱ // 0x4ef4 @0x24
0x4ed0…4f0d at0025 = ╱dc╱ = ╱ // 0x4ef5 @0x25
0x4ed0…4f0d at0026 = ╱22╱"╱ // 0x4ef6 @0x26
0x4ed0…4f0d at0027 = ╱53╱S╱ // 0x4ef7 @0x27
0x4ed0…4f0d at0028 = ╱61╱a╱ // 0x4ef8 @0x28
0x4ed0…4f0d at0029 = ╱6d╱m╱ // 0x4ef9 @0x29
0x4ed0…4f0d at002a = ╱6c╱l╱ // 0x4efa @0x2a
0x4ed0…4f0d at002b = ╱65╱e╱ // 0x4efb @0x2b
0x4ed0…4f0d at002c = ╱74╱t╱ // 0x4efc @0x2c
0x4ed0…4f0d at002d = ╱20╱…╱ // 0x4efd @0x2d
0x4ed0…4f0d at002e = ╱67╱g╱ // 0x4efe @0x2e
0x4ed0…4f0d at002f = ╱69╱i╱ // 0x4eff @0x2f
0x4ed0…4f0d at0030 = ╱72╱r╱ // 0x4f00 @0x30
0x4ed0…4f0d at0031 = ╱6f╱o╱ // 0x4f01 @0x31
0x4ed0…4f0d at0032 = ╱70╱p╱ // 0x4f02 @0x32
0x4ed0…4f0d at0033 = ╱6f╱o╱ // 0x4f03 @0x33
0x4ed0…4f0d at0034 = ╱73╱s╱ // 0x4f04 @0x34
0x4ed0…4f0d at0035 = ╱74╱t╱ // 0x4f05 @0x35
0x4ed0…4f0d at0036 = ╱65╱e╱ // 0x4f06 @0x36
0x4ed0…4f0d at0037 = ╱72╱r╱ // 0x4f07 @0x37
0x4ed0…4f0d at0038 = ╱69╱i╱ // 0x4f08 @0x38
0x4ed0…4f0d at0039 = ╱6e╱n╱ // 0x4f09 @0x39
0x4ed0…4f0d at003a = ╱67╱g╱ // 0x4f0a @0x3a
0x4ed0…4f0d at003b = ╱22╱"╱ // 0x4f0b @0x3b
0x4ed0…4f0d at003c = EOL // 0x4f0c @0x3c
0x4ed0…4f0d }
0x4f0d…4f21 d66e 9340 EXEC UDSKRIV ( L2 , R8 )
0x4f0d…4f21 LineComalBcd {
0x4f0d…4f21 ptr = 0xd66e // 0x4f0d @0x0
0x4f0d…4f21 lno = 0x9340 // 0x4f0f @0x2
0x4f0d…4f21 at0004 = ╱9d╱ EXEC ╱ // 0x4f11 @0x4
0x4f0d…4f21 at0005 = ╱55╱U╱ // 0x4f12 @0x5
0x4f0d…4f21 at0006 = ╱44╱D╱ // 0x4f13 @0x6
0x4f0d…4f21 at0007 = ╱53╱S╱ // 0x4f14 @0x7
0x4f0d…4f21 at0008 = ╱4b╱K╱ // 0x4f15 @0x8
0x4f0d…4f21 at0009 = ╱52╱R╱ // 0x4f16 @0x9
0x4f0d…4f21 at000a = ╱49╱I╱ // 0x4f17 @0xa
0x4f0d…4f21 at000b = ╱56╱V╱ // 0x4f18 @0xb
0x4f0d…4f21 at000c = ╱ed╱ ( ╱ // 0x4f19 @0xc
0x4f0d…4f21 at000d = ╱4c╱L╱ // 0x4f1a @0xd
0x4f0d…4f21 at000e = ╱32╱2╱ // 0x4f1b @0xe
0x4f0d…4f21 at000f = ╱ec╱ , ╱ // 0x4f1c @0xf
0x4f0d…4f21 at0010 = ╱52╱R╱ // 0x4f1d @0x10
0x4f0d…4f21 at0011 = ╱38╱8╱ // 0x4f1e @0x11
0x4f0d…4f21 at0012 = ╱ee╱ ) ╱ // 0x4f1f @0x12
0x4f0d…4f21 at0013 = EOL // 0x4f20 @0x13
0x4f0d…4f21 }
0x4f21…4f4f d69c 9350 EXEC CALC ( 0 , F5 $ ( 5 ) , F5 $ ( 6 ) , F3 $ )
0x4f21…4f4f LineComalBcd {
0x4f21…4f4f ptr = 0xd69c // 0x4f21 @0x0
0x4f21…4f4f lno = 0x9350 // 0x4f23 @0x2
0x4f21…4f4f at0004 = ╱9d╱ EXEC ╱ // 0x4f25 @0x4
0x4f21…4f4f at0005 = ╱43╱C╱ // 0x4f26 @0x5
0x4f21…4f4f at0006 = ╱41╱A╱ // 0x4f27 @0x6
0x4f21…4f4f at0007 = ╱4c╱L╱ // 0x4f28 @0x7
0x4f21…4f4f at0008 = ╱43╱C╱ // 0x4f29 @0x8
0x4f21…4f4f at0009 = ╱ed╱ ( ╱ // 0x4f2a @0x9
0x4f21…4f4f at000a = ╱30╱0╱ // 0x4f2b @0xa
0x4f21…4f4f at000b = ╱fe00000000╱ // 0x4f2c @0xb
0x4f21…4f4f at0010 = ╱ec╱ , ╱ // 0x4f31 @0x10
0x4f21…4f4f at0011 = ╱46╱F╱ // 0x4f32 @0x11
0x4f21…4f4f at0012 = ╱35╱5╱ // 0x4f33 @0x12
0x4f21…4f4f at0013 = ╱ef╱ $ ╱ // 0x4f34 @0x13
0x4f21…4f4f at0014 = ╱ed╱ ( ╱ // 0x4f35 @0x14
0x4f21…4f4f at0015 = ╱35╱5╱ // 0x4f36 @0x15
0x4f21…4f4f at0016 = ╱fe0000a003╱ // 0x4f37 @0x16
0x4f21…4f4f at001b = ╱ee╱ ) ╱ // 0x4f3c @0x1b
0x4f21…4f4f at001c = ╱ec╱ , ╱ // 0x4f3d @0x1c
0x4f21…4f4f at001d = ╱46╱F╱ // 0x4f3e @0x1d
0x4f21…4f4f at001e = ╱35╱5╱ // 0x4f3f @0x1e
0x4f21…4f4f at001f = ╱ef╱ $ ╱ // 0x4f40 @0x1f
0x4f21…4f4f at0020 = ╱ed╱ ( ╱ // 0x4f41 @0x20
0x4f21…4f4f at0021 = ╱36╱6╱ // 0x4f42 @0x21
0x4f21…4f4f at0022 = ╱fe0000c003╱ // 0x4f43 @0x22
0x4f21…4f4f at0027 = ╱ee╱ ) ╱ // 0x4f48 @0x27
0x4f21…4f4f at0028 = ╱ec╱ , ╱ // 0x4f49 @0x28
0x4f21…4f4f at0029 = ╱46╱F╱ // 0x4f4a @0x29
0x4f21…4f4f at002a = ╱33╱3╱ // 0x4f4b @0x2a
0x4f21…4f4f at002b = ╱ef╱ $ ╱ // 0x4f4c @0x2b
0x4f21…4f4f at002c = ╱ee╱ ) ╱ // 0x4f4d @0x2c
0x4f21…4f4f at002d = EOL // 0x4f4e @0x2d
0x4f21…4f4f }
0x4f4f…4f6d d6ba 9360 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
0x4f4f…4f6d LineComalBcd {
0x4f4f…4f6d ptr = 0xd6ba // 0x4f4f @0x0
0x4f4f…4f6d lno = 0x9360 // 0x4f51 @0x2
0x4f4f…4f6d at0004 = ╱9d╱ EXEC ╱ // 0x4f53 @0x4
0x4f4f…4f6d at0005 = ╱43╱C╱ // 0x4f54 @0x5
0x4f4f…4f6d at0006 = ╱41╱A╱ // 0x4f55 @0x6
0x4f4f…4f6d at0007 = ╱4c╱L╱ // 0x4f56 @0x7
0x4f4f…4f6d at0008 = ╱43╱C╱ // 0x4f57 @0x8
0x4f4f…4f6d at0009 = ╱ed╱ ( ╱ // 0x4f58 @0x9
0x4f4f…4f6d at000a = ╱30╱0╱ // 0x4f59 @0xa
0x4f4f…4f6d at000b = ╱fe00000000╱ // 0x4f5a @0xb
0x4f4f…4f6d at0010 = ╱ec╱ , ╱ // 0x4f5f @0x10
0x4f4f…4f6d at0011 = ╱46╱F╱ // 0x4f60 @0x11
0x4f4f…4f6d at0012 = ╱33╱3╱ // 0x4f61 @0x12
0x4f4f…4f6d at0013 = ╱ef╱ $ ╱ // 0x4f62 @0x13
0x4f4f…4f6d at0014 = ╱ec╱ , ╱ // 0x4f63 @0x14
0x4f4f…4f6d at0015 = ╱41╱A╱ // 0x4f64 @0x15
0x4f4f…4f6d at0016 = ╱31╱1╱ // 0x4f65 @0x16
0x4f4f…4f6d at0017 = ╱ef╱ $ ╱ // 0x4f66 @0x17
0x4f4f…4f6d at0018 = ╱ec╱ , ╱ // 0x4f67 @0x18
0x4f4f…4f6d at0019 = ╱41╱A╱ // 0x4f68 @0x19
0x4f4f…4f6d at001a = ╱31╱1╱ // 0x4f69 @0x1a
0x4f4f…4f6d at001b = ╱ef╱ $ ╱ // 0x4f6a @0x1b
0x4f4f…4f6d at001c = ╱ee╱ ) ╱ // 0x4f6b @0x1c
0x4f4f…4f6d at001d = EOL // 0x4f6c @0x1d
0x4f4f…4f6d }
0x4f6d…4f88 d6d5 9370 I7 = 24 ; H7 = L2 ; H6 = S7
0x4f6d…4f88 LineComalBcd {
0x4f6d…4f88 ptr = 0xd6d5 // 0x4f6d @0x0
0x4f6d…4f88 lno = 0x9370 // 0x4f6f @0x2
0x4f6d…4f88 at0004 = ╱49╱I╱ // 0x4f71 @0x4
0x4f6d…4f88 at0005 = ╱37╱7╱ // 0x4f72 @0x5
0x4f6d…4f88 at0006 = ╱dc╱ = ╱ // 0x4f73 @0x6
0x4f6d…4f88 at0007 = ╱32╱2╱ // 0x4f74 @0x7
0x4f6d…4f88 at0008 = ╱34╱4╱ // 0x4f75 @0x8
0x4f6d…4f88 at0009 = ╱fe0000c005╱ // 0x4f76 @0x9
0x4f6d…4f88 at000e = ╱eb╱ ; ╱ // 0x4f7b @0xe
0x4f6d…4f88 at000f = ╱48╱H╱ // 0x4f7c @0xf
0x4f6d…4f88 at0010 = ╱37╱7╱ // 0x4f7d @0x10
0x4f6d…4f88 at0011 = ╱dc╱ = ╱ // 0x4f7e @0x11
0x4f6d…4f88 at0012 = ╱4c╱L╱ // 0x4f7f @0x12
0x4f6d…4f88 at0013 = ╱32╱2╱ // 0x4f80 @0x13
0x4f6d…4f88 at0014 = ╱eb╱ ; ╱ // 0x4f81 @0x14
0x4f6d…4f88 at0015 = ╱48╱H╱ // 0x4f82 @0x15
0x4f6d…4f88 at0016 = ╱36╱6╱ // 0x4f83 @0x16
0x4f6d…4f88 at0017 = ╱dc╱ = ╱ // 0x4f84 @0x17
0x4f6d…4f88 at0018 = ╱53╱S╱ // 0x4f85 @0x18
0x4f6d…4f88 at0019 = ╱37╱7╱ // 0x4f86 @0x19
0x4f6d…4f88 at001a = EOL // 0x4f87 @0x1a
0x4f6d…4f88 }
0x4f88…4f97 d6e4 9380 EXEC GEMBHPOST
0x4f88…4f97 LineComalBcd {
0x4f88…4f97 ptr = 0xd6e4 // 0x4f88 @0x0
0x4f88…4f97 lno = 0x9380 // 0x4f8a @0x2
0x4f88…4f97 at0004 = ╱9d╱ EXEC ╱ // 0x4f8c @0x4
0x4f88…4f97 at0005 = ╱47╱G╱ // 0x4f8d @0x5
0x4f88…4f97 at0006 = ╱45╱E╱ // 0x4f8e @0x6
0x4f88…4f97 at0007 = ╱4d╱M╱ // 0x4f8f @0x7
0x4f88…4f97 at0008 = ╱42╱B╱ // 0x4f90 @0x8
0x4f88…4f97 at0009 = ╱48╱H╱ // 0x4f91 @0x9
0x4f88…4f97 at000a = ╱50╱P╱ // 0x4f92 @0xa
0x4f88…4f97 at000b = ╱4f╱O╱ // 0x4f93 @0xb
0x4f88…4f97 at000c = ╱53╱S╱ // 0x4f94 @0xc
0x4f88…4f97 at000d = ╱54╱T╱ // 0x4f95 @0xd
0x4f88…4f97 at000e = EOL // 0x4f96 @0xe
0x4f88…4f97 }
0x4f97…4fd4 d721 9390 E3 $ = "Samlet…bankpostering" ; F4 $ = F3 $ ; I7 = 10 ; H7 = - 1
0x4f97…4fd4 LineComalBcd {
0x4f97…4fd4 ptr = 0xd721 // 0x4f97 @0x0
0x4f97…4fd4 lno = 0x9390 // 0x4f99 @0x2
0x4f97…4fd4 at0004 = ╱45╱E╱ // 0x4f9b @0x4
0x4f97…4fd4 at0005 = ╱33╱3╱ // 0x4f9c @0x5
0x4f97…4fd4 at0006 = ╱ef╱ $ ╱ // 0x4f9d @0x6
0x4f97…4fd4 at0007 = ╱dc╱ = ╱ // 0x4f9e @0x7
0x4f97…4fd4 at0008 = ╱22╱"╱ // 0x4f9f @0x8
0x4f97…4fd4 at0009 = ╱53╱S╱ // 0x4fa0 @0x9
0x4f97…4fd4 at000a = ╱61╱a╱ // 0x4fa1 @0xa
0x4f97…4fd4 at000b = ╱6d╱m╱ // 0x4fa2 @0xb
0x4f97…4fd4 at000c = ╱6c╱l╱ // 0x4fa3 @0xc
0x4f97…4fd4 at000d = ╱65╱e╱ // 0x4fa4 @0xd
0x4f97…4fd4 at000e = ╱74╱t╱ // 0x4fa5 @0xe
0x4f97…4fd4 at000f = ╱20╱…╱ // 0x4fa6 @0xf
0x4f97…4fd4 at0010 = ╱62╱b╱ // 0x4fa7 @0x10
0x4f97…4fd4 at0011 = ╱61╱a╱ // 0x4fa8 @0x11
0x4f97…4fd4 at0012 = ╱6e╱n╱ // 0x4fa9 @0x12
0x4f97…4fd4 at0013 = ╱6b╱k╱ // 0x4faa @0x13
0x4f97…4fd4 at0014 = ╱70╱p╱ // 0x4fab @0x14
0x4f97…4fd4 at0015 = ╱6f╱o╱ // 0x4fac @0x15
0x4f97…4fd4 at0016 = ╱73╱s╱ // 0x4fad @0x16
0x4f97…4fd4 at0017 = ╱74╱t╱ // 0x4fae @0x17
0x4f97…4fd4 at0018 = ╱65╱e╱ // 0x4faf @0x18
0x4f97…4fd4 at0019 = ╱72╱r╱ // 0x4fb0 @0x19
0x4f97…4fd4 at001a = ╱69╱i╱ // 0x4fb1 @0x1a
0x4f97…4fd4 at001b = ╱6e╱n╱ // 0x4fb2 @0x1b
0x4f97…4fd4 at001c = ╱67╱g╱ // 0x4fb3 @0x1c
0x4f97…4fd4 at001d = ╱22╱"╱ // 0x4fb4 @0x1d
0x4f97…4fd4 at001e = ╱eb╱ ; ╱ // 0x4fb5 @0x1e
0x4f97…4fd4 at001f = ╱46╱F╱ // 0x4fb6 @0x1f
0x4f97…4fd4 at0020 = ╱34╱4╱ // 0x4fb7 @0x20
0x4f97…4fd4 at0021 = ╱ef╱ $ ╱ // 0x4fb8 @0x21
0x4f97…4fd4 at0022 = ╱dc╱ = ╱ // 0x4fb9 @0x22
0x4f97…4fd4 at0023 = ╱46╱F╱ // 0x4fba @0x23
0x4f97…4fd4 at0024 = ╱33╱3╱ // 0x4fbb @0x24
0x4f97…4fd4 at0025 = ╱ef╱ $ ╱ // 0x4fbc @0x25
0x4f97…4fd4 at0026 = ╱eb╱ ; ╱ // 0x4fbd @0x26
0x4f97…4fd4 at0027 = ╱49╱I╱ // 0x4fbe @0x27
0x4f97…4fd4 at0028 = ╱37╱7╱ // 0x4fbf @0x28
0x4f97…4fd4 at0029 = ╱dc╱ = ╱ // 0x4fc0 @0x29
0x4f97…4fd4 at002a = ╱31╱1╱ // 0x4fc1 @0x2a
0x4f97…4fd4 at002b = ╱30╱0╱ // 0x4fc2 @0x2b
0x4f97…4fd4 at002c = ╱fe0000a004╱ // 0x4fc3 @0x2c
0x4f97…4fd4 at0031 = ╱eb╱ ; ╱ // 0x4fc8 @0x31
0x4f97…4fd4 at0032 = ╱48╱H╱ // 0x4fc9 @0x32
0x4f97…4fd4 at0033 = ╱37╱7╱ // 0x4fca @0x33
0x4f97…4fd4 at0034 = ╱dc╱ = ╱ // 0x4fcb @0x34
0x4f97…4fd4 at0035 = ╱e9╱ - ╱ // 0x4fcc @0x35
0x4f97…4fd4 at0036 = ╱31╱1╱ // 0x4fcd @0x36
0x4f97…4fd4 at0037 = ╱fe00008001╱ // 0x4fce @0x37
0x4f97…4fd4 at003c = EOL // 0x4fd3 @0x3c
0x4f97…4fd4 }
0x4fd4…4fe8 d735 9400 EXEC UDSKRIV ( L2 , R8 )
0x4fd4…4fe8 LineComalBcd {
0x4fd4…4fe8 ptr = 0xd735 // 0x4fd4 @0x0
0x4fd4…4fe8 lno = 0x9400 // 0x4fd6 @0x2
0x4fd4…4fe8 at0004 = ╱9d╱ EXEC ╱ // 0x4fd8 @0x4
0x4fd4…4fe8 at0005 = ╱55╱U╱ // 0x4fd9 @0x5
0x4fd4…4fe8 at0006 = ╱44╱D╱ // 0x4fda @0x6
0x4fd4…4fe8 at0007 = ╱53╱S╱ // 0x4fdb @0x7
0x4fd4…4fe8 at0008 = ╱4b╱K╱ // 0x4fdc @0x8
0x4fd4…4fe8 at0009 = ╱52╱R╱ // 0x4fdd @0x9
0x4fd4…4fe8 at000a = ╱49╱I╱ // 0x4fde @0xa
0x4fd4…4fe8 at000b = ╱56╱V╱ // 0x4fdf @0xb
0x4fd4…4fe8 at000c = ╱ed╱ ( ╱ // 0x4fe0 @0xc
0x4fd4…4fe8 at000d = ╱4c╱L╱ // 0x4fe1 @0xd
0x4fd4…4fe8 at000e = ╱32╱2╱ // 0x4fe2 @0xe
0x4fd4…4fe8 at000f = ╱ec╱ , ╱ // 0x4fe3 @0xf
0x4fd4…4fe8 at0010 = ╱52╱R╱ // 0x4fe4 @0x10
0x4fd4…4fe8 at0011 = ╱38╱8╱ // 0x4fe5 @0x11
0x4fd4…4fe8 at0012 = ╱ee╱ ) ╱ // 0x4fe6 @0x12
0x4fd4…4fe8 at0013 = EOL // 0x4fe7 @0x13
0x4fd4…4fe8 }
0x4fe8…5006 d753 9410 EXEC CALC ( 4 , A1 $ , B9 $ , B9 $ )
0x4fe8…5006 LineComalBcd {
0x4fe8…5006 ptr = 0xd753 // 0x4fe8 @0x0
0x4fe8…5006 lno = 0x9410 // 0x4fea @0x2
0x4fe8…5006 at0004 = ╱9d╱ EXEC ╱ // 0x4fec @0x4
0x4fe8…5006 at0005 = ╱43╱C╱ // 0x4fed @0x5
0x4fe8…5006 at0006 = ╱41╱A╱ // 0x4fee @0x6
0x4fe8…5006 at0007 = ╱4c╱L╱ // 0x4fef @0x7
0x4fe8…5006 at0008 = ╱43╱C╱ // 0x4ff0 @0x8
0x4fe8…5006 at0009 = ╱ed╱ ( ╱ // 0x4ff1 @0x9
0x4fe8…5006 at000a = ╱34╱4╱ // 0x4ff2 @0xa
0x4fe8…5006 at000b = ╱fe00008003╱ // 0x4ff3 @0xb
0x4fe8…5006 at0010 = ╱ec╱ , ╱ // 0x4ff8 @0x10
0x4fe8…5006 at0011 = ╱41╱A╱ // 0x4ff9 @0x11
0x4fe8…5006 at0012 = ╱31╱1╱ // 0x4ffa @0x12
0x4fe8…5006 at0013 = ╱ef╱ $ ╱ // 0x4ffb @0x13
0x4fe8…5006 at0014 = ╱ec╱ , ╱ // 0x4ffc @0x14
0x4fe8…5006 at0015 = ╱42╱B╱ // 0x4ffd @0x15
0x4fe8…5006 at0016 = ╱39╱9╱ // 0x4ffe @0x16
0x4fe8…5006 at0017 = ╱ef╱ $ ╱ // 0x4fff @0x17
0x4fe8…5006 at0018 = ╱ec╱ , ╱ // 0x5000 @0x18
0x4fe8…5006 at0019 = ╱42╱B╱ // 0x5001 @0x19
0x4fe8…5006 at001a = ╱39╱9╱ // 0x5002 @0x1a
0x4fe8…5006 at001b = ╱ef╱ $ ╱ // 0x5003 @0x1b
0x4fe8…5006 at001c = ╱ee╱ ) ╱ // 0x5004 @0x1c
0x4fe8…5006 at001d = EOL // 0x5005 @0x1d
0x4fe8…5006 }
0x5006…5016 d763 9420 IF SI >< 0 THEN
0x5006…5016 LineComalBcd {
0x5006…5016 ptr = 0xd763 // 0x5006 @0x0
0x5006…5016 lno = 0x9420 // 0x5008 @0x2
0x5006…5016 at0004 = ╱9c╱ IF ╱ // 0x500a @0x4
0x5006…5016 at0005 = ╱53╱S╱ // 0x500b @0x5
0x5006…5016 at0006 = ╱49╱I╱ // 0x500c @0x6
0x5006…5016 at0007 = ╱e1╱ >< ╱ // 0x500d @0x7
0x5006…5016 at0008 = ╱30╱0╱ // 0x500e @0x8
0x5006…5016 at0009 = ╱fe00000000╱ // 0x500f @0x9
0x5006…5016 at000e = ╱b6╱ THEN ╱ // 0x5014 @0xe
0x5006…5016 at000f = EOL // 0x5015 @0xf
0x5006…5016 }
0x5016…504f d79c 9430 I7 = 10 ; H7 = L2 ; H6 = T0 ; E3 $ = "Difference…kasserapport"
0x5016…504f LineComalBcd {
0x5016…504f ptr = 0xd79c // 0x5016 @0x0
0x5016…504f lno = 0x9430 // 0x5018 @0x2
0x5016…504f at0004 = ╱49╱I╱ // 0x501a @0x4
0x5016…504f at0005 = ╱37╱7╱ // 0x501b @0x5
0x5016…504f at0006 = ╱dc╱ = ╱ // 0x501c @0x6
0x5016…504f at0007 = ╱31╱1╱ // 0x501d @0x7
0x5016…504f at0008 = ╱30╱0╱ // 0x501e @0x8
0x5016…504f at0009 = ╱fe0000a004╱ // 0x501f @0x9
0x5016…504f at000e = ╱eb╱ ; ╱ // 0x5024 @0xe
0x5016…504f at000f = ╱48╱H╱ // 0x5025 @0xf
0x5016…504f at0010 = ╱37╱7╱ // 0x5026 @0x10
0x5016…504f at0011 = ╱dc╱ = ╱ // 0x5027 @0x11
0x5016…504f at0012 = ╱4c╱L╱ // 0x5028 @0x12
0x5016…504f at0013 = ╱32╱2╱ // 0x5029 @0x13
0x5016…504f at0014 = ╱eb╱ ; ╱ // 0x502a @0x14
0x5016…504f at0015 = ╱48╱H╱ // 0x502b @0x15
0x5016…504f at0016 = ╱36╱6╱ // 0x502c @0x16
0x5016…504f at0017 = ╱dc╱ = ╱ // 0x502d @0x17
0x5016…504f at0018 = ╱54╱T╱ // 0x502e @0x18
0x5016…504f at0019 = ╱30╱0╱ // 0x502f @0x19
0x5016…504f at001a = ╱eb╱ ; ╱ // 0x5030 @0x1a
0x5016…504f at001b = ╱45╱E╱ // 0x5031 @0x1b
0x5016…504f at001c = ╱33╱3╱ // 0x5032 @0x1c
0x5016…504f at001d = ╱ef╱ $ ╱ // 0x5033 @0x1d
0x5016…504f at001e = ╱dc╱ = ╱ // 0x5034 @0x1e
0x5016…504f at001f = ╱22╱"╱ // 0x5035 @0x1f
0x5016…504f at0020 = ╱44╱D╱ // 0x5036 @0x20
0x5016…504f at0021 = ╱69╱i╱ // 0x5037 @0x21
0x5016…504f at0022 = ╱66╱f╱ // 0x5038 @0x22
0x5016…504f at0023 = ╱66╱f╱ // 0x5039 @0x23
0x5016…504f at0024 = ╱65╱e╱ // 0x503a @0x24
0x5016…504f at0025 = ╱72╱r╱ // 0x503b @0x25
0x5016…504f at0026 = ╱65╱e╱ // 0x503c @0x26
0x5016…504f at0027 = ╱6e╱n╱ // 0x503d @0x27
0x5016…504f at0028 = ╱63╱c╱ // 0x503e @0x28
0x5016…504f at0029 = ╱65╱e╱ // 0x503f @0x29
0x5016…504f at002a = ╱20╱…╱ // 0x5040 @0x2a
0x5016…504f at002b = ╱6b╱k╱ // 0x5041 @0x2b
0x5016…504f at002c = ╱61╱a╱ // 0x5042 @0x2c
0x5016…504f at002d = ╱73╱s╱ // 0x5043 @0x2d
0x5016…504f at002e = ╱73╱s╱ // 0x5044 @0x2e
0x5016…504f at002f = ╱65╱e╱ // 0x5045 @0x2f
0x5016…504f at0030 = ╱72╱r╱ // 0x5046 @0x30
0x5016…504f at0031 = ╱61╱a╱ // 0x5047 @0x31
0x5016…504f at0032 = ╱70╱p╱ // 0x5048 @0x32
0x5016…504f at0033 = ╱70╱p╱ // 0x5049 @0x33
0x5016…504f at0034 = ╱6f╱o╱ // 0x504a @0x34
0x5016…504f at0035 = ╱72╱r╱ // 0x504b @0x35
0x5016…504f at0036 = ╱74╱t╱ // 0x504c @0x36
0x5016…504f at0037 = ╱22╱"╱ // 0x504d @0x37
0x5016…504f at0038 = EOL // 0x504e @0x38
0x5016…504f }
0x504f…5068 (267,) d7b5 9440 EXEC MODFORTEGN ( F3 $ , A1 $ )
0x504f…5068 LineComalBcd {
0x504f…5068 ptr = 0xd7b5 // 0x504f @0x0
0x504f…5068 lno = 0x9440 // 0x5051 @0x2
0x504f…5068 at0004 = ╱9d╱ EXEC ╱ // 0x5053 @0x4
0x504f…5068 at0005 = ╱4d╱M╱ // 0x5054 @0x5
0x504f…5068 at0006 = ╱4f╱O╱ // 0x5055 @0x6
0x504f…5068 at0007 = ╱44╱D╱ // 0x5056 @0x7
0x504f…5068 at0008 = ╱46╱F╱ // 0x5057 @0x8
0x504f…5068 at0009 = ╱4f╱O╱ // 0x5058 @0x9
0x504f…5068 at000a = ╱52╱R╱ // 0x5059 @0xa
0x504f…5068 at000b = ╱54╱T╱ // 0x505a @0xb
0x504f…5068 at000c = ╱45╱E╱ // 0x505b @0xc
0x504f…5068 at000d = ╱47╱G╱ // 0x505c @0xd
0x504f…5068 at000e = ╱4e╱N╱ // 0x505d @0xe
0x504f…5068 at000f = ╱ed╱ ( ╱ // 0x505e @0xf
0x504f…5068 at0010 = ╱46╱F╱ // 0x505f @0x10
0x504f…5068 at0011 = ╱33╱3╱ // 0x5060 @0x11
0x504f…5068 at0012 = ╱ef╱ $ ╱ // 0x5061 @0x12
0x504f…5068 at0013 = ╱ec╱ , ╱ // 0x5062 @0x13
0x504f…5068 at0014 = ╱41╱A╱ // 0x5063 @0x14
0x504f…5068 at0015 = ╱31╱1╱ // 0x5064 @0x15
0x504f…5068 at0016 = ╱ef╱ $ ╱ // 0x5065 @0x16
0x504f…5068 at0017 = ╱ee╱ ) ╱ // 0x5066 @0x17
0x504f…5068 at0018 = EOL // 0x5067 @0x18
0x504f…5068 }
0x5068…5077 d7c4 9450 EXEC GEMBHPOST
0x5068…5077 LineComalBcd {
0x5068…5077 ptr = 0xd7c4 // 0x5068 @0x0
0x5068…5077 lno = 0x9450 // 0x506a @0x2
0x5068…5077 at0004 = ╱9d╱ EXEC ╱ // 0x506c @0x4
0x5068…5077 at0005 = ╱47╱G╱ // 0x506d @0x5
0x5068…5077 at0006 = ╱45╱E╱ // 0x506e @0x6
0x5068…5077 at0007 = ╱4d╱M╱ // 0x506f @0x7
0x5068…5077 at0008 = ╱42╱B╱ // 0x5070 @0x8
0x5068…5077 at0009 = ╱48╱H╱ // 0x5071 @0x9
0x5068…5077 at000a = ╱50╱P╱ // 0x5072 @0xa
0x5068…5077 at000b = ╱4f╱O╱ // 0x5073 @0xb
0x5068…5077 at000c = ╱53╱S╱ // 0x5074 @0xc
0x5068…5077 at000d = ╱54╱T╱ // 0x5075 @0xd
0x5068…5077 at000e = EOL // 0x5076 @0xe
0x5068…5077 }
0x5077…5095 d7e2 9460 EXEC CALC ( 0 , F3 $ , A1 $ , A1 $ )
0x5077…5095 LineComalBcd {
0x5077…5095 ptr = 0xd7e2 // 0x5077 @0x0
0x5077…5095 lno = 0x9460 // 0x5079 @0x2
0x5077…5095 at0004 = ╱9d╱ EXEC ╱ // 0x507b @0x4
0x5077…5095 at0005 = ╱43╱C╱ // 0x507c @0x5
0x5077…5095 at0006 = ╱41╱A╱ // 0x507d @0x6
0x5077…5095 at0007 = ╱4c╱L╱ // 0x507e @0x7
0x5077…5095 at0008 = ╱43╱C╱ // 0x507f @0x8
0x5077…5095 at0009 = ╱ed╱ ( ╱ // 0x5080 @0x9
0x5077…5095 at000a = ╱30╱0╱ // 0x5081 @0xa
0x5077…5095 at000b = ╱fe00000000╱ // 0x5082 @0xb
0x5077…5095 at0010 = ╱ec╱ , ╱ // 0x5087 @0x10
0x5077…5095 at0011 = ╱46╱F╱ // 0x5088 @0x11
0x5077…5095 at0012 = ╱33╱3╱ // 0x5089 @0x12
0x5077…5095 at0013 = ╱ef╱ $ ╱ // 0x508a @0x13
0x5077…5095 at0014 = ╱ec╱ , ╱ // 0x508b @0x14
0x5077…5095 at0015 = ╱41╱A╱ // 0x508c @0x15
0x5077…5095 at0016 = ╱31╱1╱ // 0x508d @0x16
0x5077…5095 at0017 = ╱ef╱ $ ╱ // 0x508e @0x17
0x5077…5095 at0018 = ╱ec╱ , ╱ // 0x508f @0x18
0x5077…5095 at0019 = ╱41╱A╱ // 0x5090 @0x19
0x5077…5095 at001a = ╱31╱1╱ // 0x5091 @0x1a
0x5077…5095 at001b = ╱ef╱ $ ╱ // 0x5092 @0x1b
0x5077…5095 at001c = ╱ee╱ ) ╱ // 0x5093 @0x1c
0x5077…5095 at001d = EOL // 0x5094 @0x1d
0x5077…5095 }
0x5095…50ac d7f9 9470 F4 $ = F3 $ ; H7 = - 1
0x5095…50ac LineComalBcd {
0x5095…50ac ptr = 0xd7f9 // 0x5095 @0x0
0x5095…50ac lno = 0x9470 // 0x5097 @0x2
0x5095…50ac at0004 = ╱46╱F╱ // 0x5099 @0x4
0x5095…50ac at0005 = ╱34╱4╱ // 0x509a @0x5
0x5095…50ac at0006 = ╱ef╱ $ ╱ // 0x509b @0x6
0x5095…50ac at0007 = ╱dc╱ = ╱ // 0x509c @0x7
0x5095…50ac at0008 = ╱46╱F╱ // 0x509d @0x8
0x5095…50ac at0009 = ╱33╱3╱ // 0x509e @0x9
0x5095…50ac at000a = ╱ef╱ $ ╱ // 0x509f @0xa
0x5095…50ac at000b = ╱eb╱ ; ╱ // 0x50a0 @0xb
0x5095…50ac at000c = ╱48╱H╱ // 0x50a1 @0xc
0x5095…50ac at000d = ╱37╱7╱ // 0x50a2 @0xd
0x5095…50ac at000e = ╱dc╱ = ╱ // 0x50a3 @0xe
0x5095…50ac at000f = ╱e9╱ - ╱ // 0x50a4 @0xf
0x5095…50ac at0010 = ╱31╱1╱ // 0x50a5 @0x10
0x5095…50ac at0011 = ╱fe00008001╱ // 0x50a6 @0x11
0x5095…50ac at0016 = EOL // 0x50ab @0x16
0x5095…50ac }
0x50ac…50c0 d80d 9480 EXEC UDSKRIV ( L2 , R8 )
0x50ac…50c0 LineComalBcd {
0x50ac…50c0 ptr = 0xd80d // 0x50ac @0x0
0x50ac…50c0 lno = 0x9480 // 0x50ae @0x2
0x50ac…50c0 at0004 = ╱9d╱ EXEC ╱ // 0x50b0 @0x4
0x50ac…50c0 at0005 = ╱55╱U╱ // 0x50b1 @0x5
0x50ac…50c0 at0006 = ╱44╱D╱ // 0x50b2 @0x6
0x50ac…50c0 at0007 = ╱53╱S╱ // 0x50b3 @0x7
0x50ac…50c0 at0008 = ╱4b╱K╱ // 0x50b4 @0x8
0x50ac…50c0 at0009 = ╱52╱R╱ // 0x50b5 @0x9
0x50ac…50c0 at000a = ╱49╱I╱ // 0x50b6 @0xa
0x50ac…50c0 at000b = ╱56╱V╱ // 0x50b7 @0xb
0x50ac…50c0 at000c = ╱ed╱ ( ╱ // 0x50b8 @0xc
0x50ac…50c0 at000d = ╱4c╱L╱ // 0x50b9 @0xd
0x50ac…50c0 at000e = ╱32╱2╱ // 0x50ba @0xe
0x50ac…50c0 at000f = ╱ec╱ , ╱ // 0x50bb @0xf
0x50ac…50c0 at0010 = ╱52╱R╱ // 0x50bc @0x10
0x50ac…50c0 at0011 = ╱38╱8╱ // 0x50bd @0x11
0x50ac…50c0 at0012 = ╱ee╱ ) ╱ // 0x50be @0x12
0x50ac…50c0 at0013 = EOL // 0x50bf @0x13
0x50ac…50c0 }
0x50c0…50c6 d813 9490 ENDIF
0x50c0…50c6 LineComalBcd {
0x50c0…50c6 ptr = 0xd813 // 0x50c0 @0x0
0x50c0…50c6 lno = 0x9490 // 0x50c2 @0x2
0x50c0…50c6 at0004 = ╱9b╱ ENDIF ╱ // 0x50c4 @0x4
0x50c0…50c6 at0005 = EOL // 0x50c5 @0x5
0x50c0…50c6 }
0x50c6…50d0 d81d 9500 EXEC BUND
0x50c6…50d0 LineComalBcd {
0x50c6…50d0 ptr = 0xd81d // 0x50c6 @0x0
0x50c6…50d0 lno = 0x9500 // 0x50c8 @0x2
0x50c6…50d0 at0004 = ╱9d╱ EXEC ╱ // 0x50ca @0x4
0x50c6…50d0 at0005 = ╱42╱B╱ // 0x50cb @0x5
0x50c6…50d0 at0006 = ╱55╱U╱ // 0x50cc @0x6
0x50c6…50d0 at0007 = ╱4e╱N╱ // 0x50cd @0x7
0x50c6…50d0 at0008 = ╱44╱D╱ // 0x50ce @0x8
0x50c6…50d0 at0009 = EOL // 0x50cf @0x9
0x50c6…50d0 }
0x50d0…50d9 d826 9510 CLOSE D3 $
0x50d0…50d9 LineComalBcd {
0x50d0…50d9 ptr = 0xd826 // 0x50d0 @0x0
0x50d0…50d9 lno = 0x9510 // 0x50d2 @0x2
0x50d0…50d9 at0004 = ╱a8╱ CLOSE ╱ // 0x50d4 @0x4
0x50d0…50d9 at0005 = ╱44╱D╱ // 0x50d5 @0x5
0x50d0…50d9 at0006 = ╱33╱3╱ // 0x50d6 @0x6
0x50d0…50d9 at0007 = ╱ef╱ $ ╱ // 0x50d7 @0x7
0x50d0…50d9 at0008 = EOL // 0x50d8 @0x8
0x50d0…50d9 }
0x50d9…50f7 d844 9520 EXEC FEJL ( 9 , 38 , D3 $ )
0x50d9…50f7 LineComalBcd {
0x50d9…50f7 ptr = 0xd844 // 0x50d9 @0x0
0x50d9…50f7 lno = 0x9520 // 0x50db @0x2
0x50d9…50f7 at0004 = ╱9d╱ EXEC ╱ // 0x50dd @0x4
0x50d9…50f7 at0005 = ╱46╱F╱ // 0x50de @0x5
0x50d9…50f7 at0006 = ╱45╱E╱ // 0x50df @0x6
0x50d9…50f7 at0007 = ╱4a╱J╱ // 0x50e0 @0x7
0x50d9…50f7 at0008 = ╱4c╱L╱ // 0x50e1 @0x8
0x50d9…50f7 at0009 = ╱ed╱ ( ╱ // 0x50e2 @0x9
0x50d9…50f7 at000a = ╱39╱9╱ // 0x50e3 @0xa
0x50d9…50f7 at000b = ╱fe00009004╱ // 0x50e4 @0xb
0x50d9…50f7 at0010 = ╱ec╱ , ╱ // 0x50e9 @0x10
0x50d9…50f7 at0011 = ╱33╱3╱ // 0x50ea @0x11
0x50d9…50f7 at0012 = ╱38╱8╱ // 0x50eb @0x12
0x50d9…50f7 at0013 = ╱fe00009806╱ // 0x50ec @0x13
0x50d9…50f7 at0018 = ╱ec╱ , ╱ // 0x50f1 @0x18
0x50d9…50f7 at0019 = ╱44╱D╱ // 0x50f2 @0x19
0x50d9…50f7 at001a = ╱33╱3╱ // 0x50f3 @0x1a
0x50d9…50f7 at001b = ╱ef╱ $ ╱ // 0x50f4 @0x1b
0x50d9…50f7 at001c = ╱ee╱ ) ╱ // 0x50f5 @0x1c
0x50d9…50f7 at001d = EOL // 0x50f6 @0x1d
0x50d9…50f7 }
0x50f7…5105 d852 9530 I4 = 0
0x50f7…5105 LineComalBcd {
0x50f7…5105 ptr = 0xd852 // 0x50f7 @0x0
0x50f7…5105 lno = 0x9530 // 0x50f9 @0x2
0x50f7…5105 at0004 = ╱49╱I╱ // 0x50fb @0x4
0x50f7…5105 at0005 = ╱34╱4╱ // 0x50fc @0x5
0x50f7…5105 at0006 = ╱dc╱ = ╱ // 0x50fd @0x6
0x50f7…5105 at0007 = ╱30╱0╱ // 0x50fe @0x7
0x50f7…5105 at0008 = ╱fe00000000╱ // 0x50ff @0x8
0x50f7…5105 at000d = EOL // 0x5104 @0xd
0x50f7…5105 }
0x5105…511a d867 9540 FOR I = 1 TO 6
0x5105…511a LineComalBcd {
0x5105…511a ptr = 0xd867 // 0x5105 @0x0
0x5105…511a lno = 0x9540 // 0x5107 @0x2
0x5105…511a at0004 = ╱83╱ FOR ╱ // 0x5109 @0x4
0x5105…511a at0005 = ╱49╱I╱ // 0x510a @0x5
0x5105…511a at0006 = ╱dc╱ = ╱ // 0x510b @0x6
0x5105…511a at0007 = ╱31╱1╱ // 0x510c @0x7
0x5105…511a at0008 = ╱fe00008001╱ // 0x510d @0x8
0x5105…511a at000d = ╱b7╱ TO ╱ // 0x5112 @0xd
0x5105…511a at000e = ╱36╱6╱ // 0x5113 @0xe
0x5105…511a at000f = ╱fe0000c003╱ // 0x5114 @0xf
0x5105…511a at0014 = EOL // 0x5119 @0x14
0x5105…511a }
0x511a…512a d877 9550 F5 $ ( I ) = "0+"
0x511a…512a LineComalBcd {
0x511a…512a ptr = 0xd877 // 0x511a @0x0
0x511a…512a lno = 0x9550 // 0x511c @0x2
0x511a…512a at0004 = ╱46╱F╱ // 0x511e @0x4
0x511a…512a at0005 = ╱35╱5╱ // 0x511f @0x5
0x511a…512a at0006 = ╱ef╱ $ ╱ // 0x5120 @0x6
0x511a…512a at0007 = ╱ed╱ ( ╱ // 0x5121 @0x7
0x511a…512a at0008 = ╱49╱I╱ // 0x5122 @0x8
0x511a…512a at0009 = ╱ee╱ ) ╱ // 0x5123 @0x9
0x511a…512a at000a = ╱dc╱ = ╱ // 0x5124 @0xa
0x511a…512a at000b = ╱22╱"╱ // 0x5125 @0xb
0x511a…512a at000c = ╱30╱0╱ // 0x5126 @0xc
0x511a…512a at000d = ╱2b╱+╱ // 0x5127 @0xd
0x511a…512a at000e = ╱22╱"╱ // 0x5128 @0xe
0x511a…512a at000f = EOL // 0x5129 @0xf
0x511a…512a }
0x512a…5131 d87e 9560 NEXT I
0x512a…5131 LineComalBcd {
0x512a…5131 ptr = 0xd87e // 0x512a @0x0
0x512a…5131 lno = 0x9560 // 0x512c @0x2
0x512a…5131 at0004 = ╱84╱ NEXT ╱ // 0x512e @0x4
0x512a…5131 at0005 = ╱49╱I╱ // 0x512f @0x5
0x512a…5131 at0006 = EOL // 0x5130 @0x6
0x512a…5131 }
0x5131…5137 d884 9570 ELSE
0x5131…5137 LineComalBcd {
0x5131…5137 ptr = 0xd884 // 0x5131 @0x0
0x5131…5137 lno = 0x9570 // 0x5133 @0x2
0x5131…5137 at0004 = ╱9a╱ ELSE ╱ // 0x5135 @0x4
0x5131…5137 at0005 = EOL // 0x5136 @0x5
0x5131…5137 }
0x5137…513d d88a 9580 REPEAT
0x5137…513d LineComalBcd {
0x5137…513d ptr = 0xd88a // 0x5137 @0x0
0x5137…513d lno = 0x9580 // 0x5139 @0x2
0x5137…513d at0004 = ╱97╱ REPEAT ╱ // 0x513b @0x4
0x5137…513d at0005 = EOL // 0x513c @0x5
0x5137…513d }
0x513d…5151 d89e 9590 CURSOR 3 , 23
0x513d…5151 LineComalBcd {
0x513d…5151 ptr = 0xd89e // 0x513d @0x0
0x513d…5151 lno = 0x9590 // 0x513f @0x2
0x513d…5151 at0004 = ╱a1╱ CURSOR ╱ // 0x5141 @0x4
0x513d…5151 at0005 = ╱33╱3╱ // 0x5142 @0x5
0x513d…5151 at0006 = ╱fe0000c002╱ // 0x5143 @0x6
0x513d…5151 at000b = ╱ec╱ , ╱ // 0x5148 @0xb
0x513d…5151 at000c = ╱32╱2╱ // 0x5149 @0xc
0x513d…5151 at000d = ╱33╱3╱ // 0x514a @0xd
0x513d…5151 at000e = ╱fe0000b805╱ // 0x514b @0xe
0x513d…5151 at0013 = EOL // 0x5150 @0x13
0x513d…5151 }
0x5151…5188 d8d5 9600 PRINT "\nskes…kontroludskrift…J/N…" ; B7 $ ( 1 : 45 )
0x5151…5188 LineComalBcd {
0x5151…5188 ptr = 0xd8d5 // 0x5151 @0x0
0x5151…5188 lno = 0x9600 // 0x5153 @0x2
0x5151…5188 at0004 = ╱92╱ PRINT ╱ // 0x5155 @0x4
0x5151…5188 at0005 = ╱22╱"╱ // 0x5156 @0x5
0x5151…5188 at0006 = ╱5c╱\╱ // 0x5157 @0x6
0x5151…5188 at0007 = ╱6e╱n╱ // 0x5158 @0x7
0x5151…5188 at0008 = ╱73╱s╱ // 0x5159 @0x8
0x5151…5188 at0009 = ╱6b╱k╱ // 0x515a @0x9
0x5151…5188 at000a = ╱65╱e╱ // 0x515b @0xa
0x5151…5188 at000b = ╱73╱s╱ // 0x515c @0xb
0x5151…5188 at000c = ╱20╱…╱ // 0x515d @0xc
0x5151…5188 at000d = ╱6b╱k╱ // 0x515e @0xd
0x5151…5188 at000e = ╱6f╱o╱ // 0x515f @0xe
0x5151…5188 at000f = ╱6e╱n╱ // 0x5160 @0xf
0x5151…5188 at0010 = ╱74╱t╱ // 0x5161 @0x10
0x5151…5188 at0011 = ╱72╱r╱ // 0x5162 @0x11
0x5151…5188 at0012 = ╱6f╱o╱ // 0x5163 @0x12
0x5151…5188 at0013 = ╱6c╱l╱ // 0x5164 @0x13
0x5151…5188 at0014 = ╱75╱u╱ // 0x5165 @0x14
0x5151…5188 at0015 = ╱64╱d╱ // 0x5166 @0x15
0x5151…5188 at0016 = ╱73╱s╱ // 0x5167 @0x16
0x5151…5188 at0017 = ╱6b╱k╱ // 0x5168 @0x17
0x5151…5188 at0018 = ╱72╱r╱ // 0x5169 @0x18
0x5151…5188 at0019 = ╱69╱i╱ // 0x516a @0x19
0x5151…5188 at001a = ╱66╱f╱ // 0x516b @0x1a
0x5151…5188 at001b = ╱74╱t╱ // 0x516c @0x1b
0x5151…5188 at001c = ╱20╱…╱ // 0x516d @0x1c
0x5151…5188 at001d = ╱4a╱J╱ // 0x516e @0x1d
0x5151…5188 at001e = ╱2f╱/╱ // 0x516f @0x1e
0x5151…5188 at001f = ╱4e╱N╱ // 0x5170 @0x1f
0x5151…5188 at0020 = ╱20╱…╱ // 0x5171 @0x20
0x5151…5188 at0021 = ╱22╱"╱ // 0x5172 @0x21
0x5151…5188 at0022 = ╱eb╱ ; ╱ // 0x5173 @0x22
0x5151…5188 at0023 = ╱42╱B╱ // 0x5174 @0x23
0x5151…5188 at0024 = ╱37╱7╱ // 0x5175 @0x24
0x5151…5188 at0025 = ╱ef╱ $ ╱ // 0x5176 @0x25
0x5151…5188 at0026 = ╱ed╱ ( ╱ // 0x5177 @0x26
0x5151…5188 at0027 = ╱31╱1╱ // 0x5178 @0x27
0x5151…5188 at0028 = ╱fe00008001╱ // 0x5179 @0x28
0x5151…5188 at002d = ╱f0╱ : ╱ // 0x517e @0x2d
0x5151…5188 at002e = ╱34╱4╱ // 0x517f @0x2e
0x5151…5188 at002f = ╱35╱5╱ // 0x5180 @0x2f
0x5151…5188 at0030 = ╱fe0000b406╱ // 0x5181 @0x30
0x5151…5188 at0035 = ╱ee╱ ) ╱ // 0x5186 @0x35
0x5151…5188 at0036 = EOL // 0x5187 @0x36
0x5151…5188 }
0x5188…519d d8ea 9610 CURSOR 26 , 23
0x5188…519d LineComalBcd {
0x5188…519d ptr = 0xd8ea // 0x5188 @0x0
0x5188…519d lno = 0x9610 // 0x518a @0x2
0x5188…519d at0004 = ╱a1╱ CURSOR ╱ // 0x518c @0x4
0x5188…519d at0005 = ╱32╱2╱ // 0x518d @0x5
0x5188…519d at0006 = ╱36╱6╱ // 0x518e @0x6
0x5188…519d at0007 = ╱fe0000d005╱ // 0x518f @0x7
0x5188…519d at000c = ╱ec╱ , ╱ // 0x5194 @0xc
0x5188…519d at000d = ╱32╱2╱ // 0x5195 @0xd
0x5188…519d at000e = ╱33╱3╱ // 0x5196 @0xe
0x5188…519d at000f = ╱fe0000b805╱ // 0x5197 @0xf
0x5188…519d at0014 = EOL // 0x519c @0x14
0x5188…519d }
0x519d…51a5 d8f2 9620 INPUT A $
0x519d…51a5 LineComalBcd {
0x519d…51a5 ptr = 0xd8f2 // 0x519d @0x0
0x519d…51a5 lno = 0x9620 // 0x519f @0x2
0x519d…51a5 at0004 = ╱91╱ INPUT ╱ // 0x51a1 @0x4
0x519d…51a5 at0005 = ╱41╱A╱ // 0x51a2 @0x5
0x519d…51a5 at0006 = ╱ef╱ $ ╱ // 0x51a3 @0x6
0x519d…51a5 at0007 = EOL // 0x51a4 @0x7
0x519d…51a5 }
0x51a5…51d5 d922 9630 UNTIL ( A $ = "J" OR A $ = "N" OR A $ = "j" OR A $ = "n" ) AND LEN ( A $ ) = 1
0x51a5…51d5 LineComalBcd {
0x51a5…51d5 ptr = 0xd922 // 0x51a5 @0x0
0x51a5…51d5 lno = 0x9630 // 0x51a7 @0x2
0x51a5…51d5 at0004 = ╱98╱ UNTIL ╱ // 0x51a9 @0x4
0x51a5…51d5 at0005 = ╱ed╱ ( ╱ // 0x51aa @0x5
0x51a5…51d5 at0006 = ╱41╱A╱ // 0x51ab @0x6
0x51a5…51d5 at0007 = ╱ef╱ $ ╱ // 0x51ac @0x7
0x51a5…51d5 at0008 = ╱dc╱ = ╱ // 0x51ad @0x8
0x51a5…51d5 at0009 = ╱22╱"╱ // 0x51ae @0x9
0x51a5…51d5 at000a = ╱4a╱J╱ // 0x51af @0xa
0x51a5…51d5 at000b = ╱22╱"╱ // 0x51b0 @0xb
0x51a5…51d5 at000c = ╱db╱ OR ╱ // 0x51b1 @0xc
0x51a5…51d5 at000d = ╱41╱A╱ // 0x51b2 @0xd
0x51a5…51d5 at000e = ╱ef╱ $ ╱ // 0x51b3 @0xe
0x51a5…51d5 at000f = ╱dc╱ = ╱ // 0x51b4 @0xf
0x51a5…51d5 at0010 = ╱22╱"╱ // 0x51b5 @0x10
0x51a5…51d5 at0011 = ╱4e╱N╱ // 0x51b6 @0x11
0x51a5…51d5 at0012 = ╱22╱"╱ // 0x51b7 @0x12
0x51a5…51d5 at0013 = ╱db╱ OR ╱ // 0x51b8 @0x13
0x51a5…51d5 at0014 = ╱41╱A╱ // 0x51b9 @0x14
0x51a5…51d5 at0015 = ╱ef╱ $ ╱ // 0x51ba @0x15
0x51a5…51d5 at0016 = ╱dc╱ = ╱ // 0x51bb @0x16
0x51a5…51d5 at0017 = ╱22╱"╱ // 0x51bc @0x17
0x51a5…51d5 at0018 = ╱6a╱j╱ // 0x51bd @0x18
0x51a5…51d5 at0019 = ╱22╱"╱ // 0x51be @0x19
0x51a5…51d5 at001a = ╱db╱ OR ╱ // 0x51bf @0x1a
0x51a5…51d5 at001b = ╱41╱A╱ // 0x51c0 @0x1b
0x51a5…51d5 at001c = ╱ef╱ $ ╱ // 0x51c1 @0x1c
0x51a5…51d5 at001d = ╱dc╱ = ╱ // 0x51c2 @0x1d
0x51a5…51d5 at001e = ╱22╱"╱ // 0x51c3 @0x1e
0x51a5…51d5 at001f = ╱6e╱n╱ // 0x51c4 @0x1f
0x51a5…51d5 at0020 = ╱22╱"╱ // 0x51c5 @0x20
0x51a5…51d5 at0021 = ╱ee╱ ) ╱ // 0x51c6 @0x21
0x51a5…51d5 at0022 = ╱da╱ AND ╱ // 0x51c7 @0x22
0x51a5…51d5 at0023 = ╱cc╱ LEN ╱ // 0x51c8 @0x23
0x51a5…51d5 at0024 = ╱ed╱ ( ╱ // 0x51c9 @0x24
0x51a5…51d5 at0025 = ╱41╱A╱ // 0x51ca @0x25
0x51a5…51d5 at0026 = ╱ef╱ $ ╱ // 0x51cb @0x26
0x51a5…51d5 at0027 = ╱ee╱ ) ╱ // 0x51cc @0x27
0x51a5…51d5 at0028 = ╱dc╱ = ╱ // 0x51cd @0x28
0x51a5…51d5 at0029 = ╱31╱1╱ // 0x51ce @0x29
0x51a5…51d5 at002a = ╱fe00008001╱ // 0x51cf @0x2a
0x51a5…51d5 at002f = EOL // 0x51d4 @0x2f
0x51a5…51d5 }
0x51d5…51e9 d936 9640 IF A $ = "J" OR A $ = "j" THEN
0x51d5…51e9 LineComalBcd {
0x51d5…51e9 ptr = 0xd936 // 0x51d5 @0x0
0x51d5…51e9 lno = 0x9640 // 0x51d7 @0x2
0x51d5…51e9 at0004 = ╱9c╱ IF ╱ // 0x51d9 @0x4
0x51d5…51e9 at0005 = ╱41╱A╱ // 0x51da @0x5
0x51d5…51e9 at0006 = ╱ef╱ $ ╱ // 0x51db @0x6
0x51d5…51e9 at0007 = ╱dc╱ = ╱ // 0x51dc @0x7
0x51d5…51e9 at0008 = ╱22╱"╱ // 0x51dd @0x8
0x51d5…51e9 at0009 = ╱4a╱J╱ // 0x51de @0x9
0x51d5…51e9 at000a = ╱22╱"╱ // 0x51df @0xa
0x51d5…51e9 at000b = ╱db╱ OR ╱ // 0x51e0 @0xb
0x51d5…51e9 at000c = ╱41╱A╱ // 0x51e1 @0xc
0x51d5…51e9 at000d = ╱ef╱ $ ╱ // 0x51e2 @0xd
0x51d5…51e9 at000e = ╱dc╱ = ╱ // 0x51e3 @0xe
0x51d5…51e9 at000f = ╱22╱"╱ // 0x51e4 @0xf
0x51d5…51e9 at0010 = ╱6a╱j╱ // 0x51e5 @0x10
0x51d5…51e9 at0011 = ╱22╱"╱ // 0x51e6 @0x11
0x51d5…51e9 at0012 = ╱b6╱ THEN ╱ // 0x51e7 @0x12
0x51d5…51e9 at0013 = EOL // 0x51e8 @0x13
0x51d5…51e9 }
0x51e9…51f3 d940 9650 T1 = L2
0x51e9…51f3 LineComalBcd {
0x51e9…51f3 ptr = 0xd940 // 0x51e9 @0x0
0x51e9…51f3 lno = 0x9650 // 0x51eb @0x2
0x51e9…51f3 at0004 = ╱54╱T╱ // 0x51ed @0x4
0x51e9…51f3 at0005 = ╱31╱1╱ // 0x51ee @0x5
0x51e9…51f3 at0006 = ╱dc╱ = ╱ // 0x51ef @0x6
0x51e9…51f3 at0007 = ╱4c╱L╱ // 0x51f0 @0x7
0x51e9…51f3 at0008 = ╱32╱2╱ // 0x51f1 @0x8
0x51e9…51f3 at0009 = EOL // 0x51f2 @0x9
0x51e9…51f3 }
0x51f3…51fe d94b 9660 EXEC UDBIL
0x51f3…51fe LineComalBcd {
0x51f3…51fe ptr = 0xd94b // 0x51f3 @0x0
0x51f3…51fe lno = 0x9660 // 0x51f5 @0x2
0x51f3…51fe at0004 = ╱9d╱ EXEC ╱ // 0x51f7 @0x4
0x51f3…51fe at0005 = ╱55╱U╱ // 0x51f8 @0x5
0x51f3…51fe at0006 = ╱44╱D╱ // 0x51f9 @0x6
0x51f3…51fe at0007 = ╱42╱B╱ // 0x51fa @0x7
0x51f3…51fe at0008 = ╱49╱I╱ // 0x51fb @0x8
0x51f3…51fe at0009 = ╱4c╱L╱ // 0x51fc @0x9
0x51f3…51fe at000a = EOL // 0x51fd @0xa
0x51f3…51fe }
0x51fe…520f d95c 9670 FOR I = 1 TO I4
0x51fe…520f LineComalBcd {
0x51fe…520f ptr = 0xd95c // 0x51fe @0x0
0x51fe…520f lno = 0x9670 // 0x5200 @0x2
0x51fe…520f at0004 = ╱83╱ FOR ╱ // 0x5202 @0x4
0x51fe…520f at0005 = ╱49╱I╱ // 0x5203 @0x5
0x51fe…520f at0006 = ╱dc╱ = ╱ // 0x5204 @0x6
0x51fe…520f at0007 = ╱31╱1╱ // 0x5205 @0x7
0x51fe…520f at0008 = ╱fe00008001╱ // 0x5206 @0x8
0x51fe…520f at000d = ╱b7╱ TO ╱ // 0x520b @0xd
0x51fe…520f at000e = ╱49╱I╱ // 0x520c @0xe
0x51fe…520f at000f = ╱34╱4╱ // 0x520d @0xf
0x51fe…520f at0010 = EOL // 0x520e @0x10
0x51fe…520f }
0x520f…5221 d96e 9680 EXEC HENTKASPOST1
0x520f…5221 LineComalBcd {
0x520f…5221 ptr = 0xd96e // 0x520f @0x0
0x520f…5221 lno = 0x9680 // 0x5211 @0x2
0x520f…5221 at0004 = ╱9d╱ EXEC ╱ // 0x5213 @0x4
0x520f…5221 at0005 = ╱48╱H╱ // 0x5214 @0x5
0x520f…5221 at0006 = ╱45╱E╱ // 0x5215 @0x6
0x520f…5221 at0007 = ╱4e╱N╱ // 0x5216 @0x7
0x520f…5221 at0008 = ╱54╱T╱ // 0x5217 @0x8
0x520f…5221 at0009 = ╱4b╱K╱ // 0x5218 @0x9
0x520f…5221 at000a = ╱41╱A╱ // 0x5219 @0xa
0x520f…5221 at000b = ╱53╱S╱ // 0x521a @0xb
0x520f…5221 at000c = ╱50╱P╱ // 0x521b @0xc
0x520f…5221 at000d = ╱4f╱O╱ // 0x521c @0xd
0x520f…5221 at000e = ╱53╱S╱ // 0x521d @0xe
0x520f…5221 at000f = ╱54╱T╱ // 0x521e @0xf
0x520f…5221 at0010 = ╱31╱1╱ // 0x521f @0x10
0x520f…5221 at0011 = EOL // 0x5220 @0x11
0x520f…5221 }
0x5221…5235 d982 9690 EXEC UDSKRIV ( T1 , R8 )
0x5221…5235 LineComalBcd {
0x5221…5235 ptr = 0xd982 // 0x5221 @0x0
0x5221…5235 lno = 0x9690 // 0x5223 @0x2
0x5221…5235 at0004 = ╱9d╱ EXEC ╱ // 0x5225 @0x4
0x5221…5235 at0005 = ╱55╱U╱ // 0x5226 @0x5
0x5221…5235 at0006 = ╱44╱D╱ // 0x5227 @0x6
0x5221…5235 at0007 = ╱53╱S╱ // 0x5228 @0x7
0x5221…5235 at0008 = ╱4b╱K╱ // 0x5229 @0x8
0x5221…5235 at0009 = ╱52╱R╱ // 0x522a @0x9
0x5221…5235 at000a = ╱49╱I╱ // 0x522b @0xa
0x5221…5235 at000b = ╱56╱V╱ // 0x522c @0xb
0x5221…5235 at000c = ╱ed╱ ( ╱ // 0x522d @0xc
0x5221…5235 at000d = ╱54╱T╱ // 0x522e @0xd
0x5221…5235 at000e = ╱31╱1╱ // 0x522f @0xe
0x5221…5235 at000f = ╱ec╱ , ╱ // 0x5230 @0xf
0x5221…5235 at0010 = ╱52╱R╱ // 0x5231 @0x10
0x5221…5235 at0011 = ╱38╱8╱ // 0x5232 @0x11
0x5221…5235 at0012 = ╱ee╱ ) ╱ // 0x5233 @0x12
0x5221…5235 at0013 = EOL // 0x5234 @0x13
0x5221…5235 }
0x5235…5253 d9a0 9700 EXEC CALC ( 1 , A1 $ , F4 $ , A1 $ )
0x5235…5253 LineComalBcd {
0x5235…5253 ptr = 0xd9a0 // 0x5235 @0x0
0x5235…5253 lno = 0x9700 // 0x5237 @0x2
0x5235…5253 at0004 = ╱9d╱ EXEC ╱ // 0x5239 @0x4
0x5235…5253 at0005 = ╱43╱C╱ // 0x523a @0x5
0x5235…5253 at0006 = ╱41╱A╱ // 0x523b @0x6
0x5235…5253 at0007 = ╱4c╱L╱ // 0x523c @0x7
0x5235…5253 at0008 = ╱43╱C╱ // 0x523d @0x8
0x5235…5253 at0009 = ╱ed╱ ( ╱ // 0x523e @0x9
0x5235…5253 at000a = ╱31╱1╱ // 0x523f @0xa
0x5235…5253 at000b = ╱fe00008001╱ // 0x5240 @0xb
0x5235…5253 at0010 = ╱ec╱ , ╱ // 0x5245 @0x10
0x5235…5253 at0011 = ╱41╱A╱ // 0x5246 @0x11
0x5235…5253 at0012 = ╱31╱1╱ // 0x5247 @0x12
0x5235…5253 at0013 = ╱ef╱ $ ╱ // 0x5248 @0x13
0x5235…5253 at0014 = ╱ec╱ , ╱ // 0x5249 @0x14
0x5235…5253 at0015 = ╱46╱F╱ // 0x524a @0x15
0x5235…5253 at0016 = ╱34╱4╱ // 0x524b @0x16
0x5235…5253 at0017 = ╱ef╱ $ ╱ // 0x524c @0x17
0x5235…5253 at0018 = ╱ec╱ , ╱ // 0x524d @0x18
0x5235…5253 at0019 = ╱41╱A╱ // 0x524e @0x19
0x5235…5253 at001a = ╱31╱1╱ // 0x524f @0x1a
0x5235…5253 at001b = ╱ef╱ $ ╱ // 0x5250 @0x1b
0x5235…5253 at001c = ╱ee╱ ) ╱ // 0x5251 @0x1c
0x5235…5253 at001d = EOL // 0x5252 @0x1d
0x5235…5253 }
0x5253…525a d9a7 9710 NEXT I
0x5253…525a LineComalBcd {
0x5253…525a ptr = 0xd9a7 // 0x5253 @0x0
0x5253…525a lno = 0x9710 // 0x5255 @0x2
0x5253…525a at0004 = ╱84╱ NEXT ╱ // 0x5257 @0x4
0x5253…525a at0005 = ╱49╱I╱ // 0x5258 @0x5
0x5253…525a at0006 = EOL // 0x5259 @0x6
0x5253…525a }
0x525a…5288 d9d5 9720 I7 = 10 ; H7 = - 1 ; H8 = 0 ; H6 = 0
0x525a…5288 LineComalBcd {
0x525a…5288 ptr = 0xd9d5 // 0x525a @0x0
0x525a…5288 lno = 0x9720 // 0x525c @0x2
0x525a…5288 at0004 = ╱49╱I╱ // 0x525e @0x4
0x525a…5288 at0005 = ╱37╱7╱ // 0x525f @0x5
0x525a…5288 at0006 = ╱dc╱ = ╱ // 0x5260 @0x6
0x525a…5288 at0007 = ╱31╱1╱ // 0x5261 @0x7
0x525a…5288 at0008 = ╱30╱0╱ // 0x5262 @0x8
0x525a…5288 at0009 = ╱fe0000a004╱ // 0x5263 @0x9
0x525a…5288 at000e = ╱eb╱ ; ╱ // 0x5268 @0xe
0x525a…5288 at000f = ╱48╱H╱ // 0x5269 @0xf
0x525a…5288 at0010 = ╱37╱7╱ // 0x526a @0x10
0x525a…5288 at0011 = ╱dc╱ = ╱ // 0x526b @0x11
0x525a…5288 at0012 = ╱e9╱ - ╱ // 0x526c @0x12
0x525a…5288 at0013 = ╱31╱1╱ // 0x526d @0x13
0x525a…5288 at0014 = ╱fe00008001╱ // 0x526e @0x14
0x525a…5288 at0019 = ╱eb╱ ; ╱ // 0x5273 @0x19
0x525a…5288 at001a = ╱48╱H╱ // 0x5274 @0x1a
0x525a…5288 at001b = ╱38╱8╱ // 0x5275 @0x1b
0x525a…5288 at001c = ╱dc╱ = ╱ // 0x5276 @0x1c
0x525a…5288 at001d = ╱30╱0╱ // 0x5277 @0x1d
0x525a…5288 at001e = ╱fe00000000╱ // 0x5278 @0x1e
0x525a…5288 at0023 = ╱eb╱ ; ╱ // 0x527d @0x23
0x525a…5288 at0024 = ╱48╱H╱ // 0x527e @0x24
0x525a…5288 at0025 = ╱36╱6╱ // 0x527f @0x25
0x525a…5288 at0026 = ╱dc╱ = ╱ // 0x5280 @0x26
0x525a…5288 at0027 = ╱30╱0╱ // 0x5281 @0x27
0x525a…5288 at0028 = ╱fe00000000╱ // 0x5282 @0x28
0x525a…5288 at002d = EOL // 0x5287 @0x2d
0x525a…5288 }
0x5288…529d d9ea 9730 FOR I = 1 TO 6
0x5288…529d LineComalBcd {
0x5288…529d ptr = 0xd9ea // 0x5288 @0x0
0x5288…529d lno = 0x9730 // 0x528a @0x2
0x5288…529d at0004 = ╱83╱ FOR ╱ // 0x528c @0x4
0x5288…529d at0005 = ╱49╱I╱ // 0x528d @0x5
0x5288…529d at0006 = ╱dc╱ = ╱ // 0x528e @0x6
0x5288…529d at0007 = ╱31╱1╱ // 0x528f @0x7
0x5288…529d at0008 = ╱fe00008001╱ // 0x5290 @0x8
0x5288…529d at000d = ╱b7╱ TO ╱ // 0x5295 @0xd
0x5288…529d at000e = ╱36╱6╱ // 0x5296 @0xe
0x5288…529d at000f = ╱fe0000c003╱ // 0x5297 @0xf
0x5288…529d at0014 = EOL // 0x529c @0x14
0x5288…529d }
0x529d…52b7 da04 9740 E3 $ = J5 $ ( I ) ; F4 $ = F5 $ ( I )
0x529d…52b7 LineComalBcd {
0x529d…52b7 ptr = 0xda04 // 0x529d @0x0
0x529d…52b7 lno = 0x9740 // 0x529f @0x2
0x529d…52b7 at0004 = ╱45╱E╱ // 0x52a1 @0x4
0x529d…52b7 at0005 = ╱33╱3╱ // 0x52a2 @0x5
0x529d…52b7 at0006 = ╱ef╱ $ ╱ // 0x52a3 @0x6
0x529d…52b7 at0007 = ╱dc╱ = ╱ // 0x52a4 @0x7
0x529d…52b7 at0008 = ╱4a╱J╱ // 0x52a5 @0x8
0x529d…52b7 at0009 = ╱35╱5╱ // 0x52a6 @0x9
0x529d…52b7 at000a = ╱ef╱ $ ╱ // 0x52a7 @0xa
0x529d…52b7 at000b = ╱ed╱ ( ╱ // 0x52a8 @0xb
0x529d…52b7 at000c = ╱49╱I╱ // 0x52a9 @0xc
0x529d…52b7 at000d = ╱ee╱ ) ╱ // 0x52aa @0xd
0x529d…52b7 at000e = ╱eb╱ ; ╱ // 0x52ab @0xe
0x529d…52b7 at000f = ╱46╱F╱ // 0x52ac @0xf
0x529d…52b7 at0010 = ╱34╱4╱ // 0x52ad @0x10
0x529d…52b7 at0011 = ╱ef╱ $ ╱ // 0x52ae @0x11
0x529d…52b7 at0012 = ╱dc╱ = ╱ // 0x52af @0x12
0x529d…52b7 at0013 = ╱46╱F╱ // 0x52b0 @0x13
0x529d…52b7 at0014 = ╱35╱5╱ // 0x52b1 @0x14
0x529d…52b7 at0015 = ╱ef╱ $ ╱ // 0x52b2 @0x15
0x529d…52b7 at0016 = ╱ed╱ ( ╱ // 0x52b3 @0x16
0x529d…52b7 at0017 = ╱49╱I╱ // 0x52b4 @0x17
0x529d…52b7 at0018 = ╱ee╱ ) ╱ // 0x52b5 @0x18
0x529d…52b7 at0019 = EOL // 0x52b6 @0x19
0x529d…52b7 }
0x52b7…52cb (275,) da18 9750 EXEC UDSKRIV ( T1 , R8 )
0x52b7…52cb LineComalBcd {
0x52b7…52cb ptr = 0xda18 // 0x52b7 @0x0
0x52b7…52cb lno = 0x9750 // 0x52b9 @0x2
0x52b7…52cb at0004 = ╱9d╱ EXEC ╱ // 0x52bb @0x4
0x52b7…52cb at0005 = ╱55╱U╱ // 0x52bc @0x5
0x52b7…52cb at0006 = ╱44╱D╱ // 0x52bd @0x6
0x52b7…52cb at0007 = ╱53╱S╱ // 0x52be @0x7
0x52b7…52cb at0008 = ╱4b╱K╱ // 0x52bf @0x8
0x52b7…52cb at0009 = ╱52╱R╱ // 0x52c0 @0x9
0x52b7…52cb at000a = ╱49╱I╱ // 0x52c1 @0xa
0x52b7…52cb at000b = ╱56╱V╱ // 0x52c2 @0xb
0x52b7…52cb at000c = ╱ed╱ ( ╱ // 0x52c3 @0xc
0x52b7…52cb at000d = ╱54╱T╱ // 0x52c4 @0xd
0x52b7…52cb at000e = ╱31╱1╱ // 0x52c5 @0xe
0x52b7…52cb at000f = ╱ec╱ , ╱ // 0x52c6 @0xf
0x52b7…52cb at0010 = ╱52╱R╱ // 0x52c7 @0x10
0x52b7…52cb at0011 = ╱38╱8╱ // 0x52c8 @0x11
0x52b7…52cb at0012 = ╱ee╱ ) ╱ // 0x52c9 @0x12
0x52b7…52cb at0013 = EOL // 0x52ca @0x13
0x52b7…52cb }
0x52cb…52e9 da36 9760 EXEC CALC ( 0 , A1 $ , F4 $ , A1 $ )
0x52cb…52e9 LineComalBcd {
0x52cb…52e9 ptr = 0xda36 // 0x52cb @0x0
0x52cb…52e9 lno = 0x9760 // 0x52cd @0x2
0x52cb…52e9 at0004 = ╱9d╱ EXEC ╱ // 0x52cf @0x4
0x52cb…52e9 at0005 = ╱43╱C╱ // 0x52d0 @0x5
0x52cb…52e9 at0006 = ╱41╱A╱ // 0x52d1 @0x6
0x52cb…52e9 at0007 = ╱4c╱L╱ // 0x52d2 @0x7
0x52cb…52e9 at0008 = ╱43╱C╱ // 0x52d3 @0x8
0x52cb…52e9 at0009 = ╱ed╱ ( ╱ // 0x52d4 @0x9
0x52cb…52e9 at000a = ╱30╱0╱ // 0x52d5 @0xa
0x52cb…52e9 at000b = ╱fe00000000╱ // 0x52d6 @0xb
0x52cb…52e9 at0010 = ╱ec╱ , ╱ // 0x52db @0x10
0x52cb…52e9 at0011 = ╱41╱A╱ // 0x52dc @0x11
0x52cb…52e9 at0012 = ╱31╱1╱ // 0x52dd @0x12
0x52cb…52e9 at0013 = ╱ef╱ $ ╱ // 0x52de @0x13
0x52cb…52e9 at0014 = ╱ec╱ , ╱ // 0x52df @0x14
0x52cb…52e9 at0015 = ╱46╱F╱ // 0x52e0 @0x15
0x52cb…52e9 at0016 = ╱34╱4╱ // 0x52e1 @0x16
0x52cb…52e9 at0017 = ╱ef╱ $ ╱ // 0x52e2 @0x17
0x52cb…52e9 at0018 = ╱ec╱ , ╱ // 0x52e3 @0x18
0x52cb…52e9 at0019 = ╱41╱A╱ // 0x52e4 @0x19
0x52cb…52e9 at001a = ╱31╱1╱ // 0x52e5 @0x1a
0x52cb…52e9 at001b = ╱ef╱ $ ╱ // 0x52e6 @0x1b
0x52cb…52e9 at001c = ╱ee╱ ) ╱ // 0x52e7 @0x1c
0x52cb…52e9 at001d = EOL // 0x52e8 @0x1d
0x52cb…52e9 }
0x52e9…52f0 da3d 9770 NEXT I
0x52e9…52f0 LineComalBcd {
0x52e9…52f0 ptr = 0xda3d // 0x52e9 @0x0
0x52e9…52f0 lno = 0x9770 // 0x52eb @0x2
0x52e9…52f0 at0004 = ╱84╱ NEXT ╱ // 0x52ed @0x4
0x52e9…52f0 at0005 = ╱49╱I╱ // 0x52ee @0x5
0x52e9…52f0 at0006 = EOL // 0x52ef @0x6
0x52e9…52f0 }
0x52f0…52fa da47 9780 EXEC BUND
0x52f0…52fa LineComalBcd {
0x52f0…52fa ptr = 0xda47 // 0x52f0 @0x0
0x52f0…52fa lno = 0x9780 // 0x52f2 @0x2
0x52f0…52fa at0004 = ╱9d╱ EXEC ╱ // 0x52f4 @0x4
0x52f0…52fa at0005 = ╱42╱B╱ // 0x52f5 @0x5
0x52f0…52fa at0006 = ╱55╱U╱ // 0x52f6 @0x6
0x52f0…52fa at0007 = ╱4e╱N╱ // 0x52f7 @0x7
0x52f0…52fa at0008 = ╱44╱D╱ // 0x52f8 @0x8
0x52f0…52fa at0009 = EOL // 0x52f9 @0x9
0x52f0…52fa }
0x52fa…5300 da4d 9790 ENDIF
0x52fa…5300 LineComalBcd {
0x52fa…5300 ptr = 0xda4d // 0x52fa @0x0
0x52fa…5300 lno = 0x9790 // 0x52fc @0x2
0x52fa…5300 at0004 = ╱9b╱ ENDIF ╱ // 0x52fe @0x4
0x52fa…5300 at0005 = EOL // 0x52ff @0x5
0x52fa…5300 }
0x5300…5306 da53 9800 ENDIF
0x5300…5306 LineComalBcd {
0x5300…5306 ptr = 0xda53 // 0x5300 @0x0
0x5300…5306 lno = 0x9800 // 0x5302 @0x2
0x5300…5306 at0004 = ╱9b╱ ENDIF ╱ // 0x5304 @0x4
0x5300…5306 at0005 = EOL // 0x5305 @0x5
0x5300…5306 }
0x5306…5312 da5f 9810 EXEC KYSGEM
0x5306…5312 LineComalBcd {
0x5306…5312 ptr = 0xda5f // 0x5306 @0x0
0x5306…5312 lno = 0x9810 // 0x5308 @0x2
0x5306…5312 at0004 = ╱9d╱ EXEC ╱ // 0x530a @0x4
0x5306…5312 at0005 = ╱4b╱K╱ // 0x530b @0x5
0x5306…5312 at0006 = ╱59╱Y╱ // 0x530c @0x6
0x5306…5312 at0007 = ╱53╱S╱ // 0x530d @0x7
0x5306…5312 at0008 = ╱47╱G╱ // 0x530e @0x8
0x5306…5312 at0009 = ╱45╱E╱ // 0x530f @0x9
0x5306…5312 at000a = ╱4d╱M╱ // 0x5310 @0xa
0x5306…5312 at000b = EOL // 0x5311 @0xb
0x5306…5312 }
0x5312…531b da68 9820 CLOSE D2 $
0x5312…531b LineComalBcd {
0x5312…531b ptr = 0xda68 // 0x5312 @0x0
0x5312…531b lno = 0x9820 // 0x5314 @0x2
0x5312…531b at0004 = ╱a8╱ CLOSE ╱ // 0x5316 @0x4
0x5312…531b at0005 = ╱44╱D╱ // 0x5317 @0x5
0x5312…531b at0006 = ╱32╱2╱ // 0x5318 @0x6
0x5312…531b at0007 = ╱ef╱ $ ╱ // 0x5319 @0x7
0x5312…531b at0008 = EOL // 0x531a @0x8
0x5312…531b }
0x531b…5339 da86 9830 EXEC FEJL ( 9 , 39 , D2 $ )
0x531b…5339 LineComalBcd {
0x531b…5339 ptr = 0xda86 // 0x531b @0x0
0x531b…5339 lno = 0x9830 // 0x531d @0x2
0x531b…5339 at0004 = ╱9d╱ EXEC ╱ // 0x531f @0x4
0x531b…5339 at0005 = ╱46╱F╱ // 0x5320 @0x5
0x531b…5339 at0006 = ╱45╱E╱ // 0x5321 @0x6
0x531b…5339 at0007 = ╱4a╱J╱ // 0x5322 @0x7
0x531b…5339 at0008 = ╱4c╱L╱ // 0x5323 @0x8
0x531b…5339 at0009 = ╱ed╱ ( ╱ // 0x5324 @0x9
0x531b…5339 at000a = ╱39╱9╱ // 0x5325 @0xa
0x531b…5339 at000b = ╱fe00009004╱ // 0x5326 @0xb
0x531b…5339 at0010 = ╱ec╱ , ╱ // 0x532b @0x10
0x531b…5339 at0011 = ╱33╱3╱ // 0x532c @0x11
0x531b…5339 at0012 = ╱39╱9╱ // 0x532d @0x12
0x531b…5339 at0013 = ╱fe00009c06╱ // 0x532e @0x13
0x531b…5339 at0018 = ╱ec╱ , ╱ // 0x5333 @0x18
0x531b…5339 at0019 = ╱44╱D╱ // 0x5334 @0x19
0x531b…5339 at001a = ╱32╱2╱ // 0x5335 @0x1a
0x531b…5339 at001b = ╱ef╱ $ ╱ // 0x5336 @0x1b
0x531b…5339 at001c = ╱ee╱ ) ╱ // 0x5337 @0x1c
0x531b…5339 at001d = EOL // 0x5338 @0x1d
0x531b…5339 }
0x5339…533f da8c 9840 CLOSE
0x5339…533f LineComalBcd {
0x5339…533f ptr = 0xda8c // 0x5339 @0x0
0x5339…533f lno = 0x9840 // 0x533b @0x2
0x5339…533f at0004 = ╱a8╱ CLOSE ╱ // 0x533d @0x4
0x5339…533f at0005 = EOL // 0x533e @0x5
0x5339…533f }
0x533f…5346 da93 9850 OUTPUT T
0x533f…5346 LineComalBcd {
0x533f…5346 ptr = 0xda93 // 0x533f @0x0
0x533f…5346 lno = 0x9850 // 0x5341 @0x2
0x533f…5346 at0004 = ╱a5╱ OUTPUT ╱ // 0x5343 @0x4
0x533f…5346 at0005 = ╱54╱T╱ // 0x5344 @0x5
0x533f…5346 at0006 = EOL // 0x5345 @0x6
0x533f…5346 }
0x5346…535d 0000 9860 CHAIN "P641210:OPSTART"
0x5346…535d LineComalBcd {
0x5346…535d ptr = 0x0000 // 0x5346 @0x0
0x5346…535d lno = 0x9860 // 0x5348 @0x2
0x5346…535d at0004 = ╱ac╱ CHAIN ╱ // 0x534a @0x4
0x5346…535d at0005 = ╱22╱"╱ // 0x534b @0x5
0x5346…535d at0006 = ╱50╱P╱ // 0x534c @0x6
0x5346…535d at0007 = ╱36╱6╱ // 0x534d @0x7
0x5346…535d at0008 = ╱34╱4╱ // 0x534e @0x8
0x5346…535d at0009 = ╱31╱1╱ // 0x534f @0x9
0x5346…535d at000a = ╱32╱2╱ // 0x5350 @0xa
0x5346…535d at000b = ╱31╱1╱ // 0x5351 @0xb
0x5346…535d at000c = ╱30╱0╱ // 0x5352 @0xc
0x5346…535d at000d = ╱3a╱:╱ // 0x5353 @0xd
0x5346…535d at000e = ╱4f╱O╱ // 0x5354 @0xe
0x5346…535d at000f = ╱50╱P╱ // 0x5355 @0xf
0x5346…535d at0010 = ╱53╱S╱ // 0x5356 @0x10
0x5346…535d at0011 = ╱54╱T╱ // 0x5357 @0x11
0x5346…535d at0012 = ╱41╱A╱ // 0x5358 @0x12
0x5346…535d at0013 = ╱52╱R╱ // 0x5359 @0x13
0x5346…535d at0014 = ╱54╱T╱ // 0x535a @0x14
0x5346…535d at0015 = ╱22╱"╱ // 0x535b @0x15
0x5346…535d at0016 = EOL // 0x535c @0x16
0x5346…535d }
0x535d…5361 (278,) 874d 4d87
0x535d…5361 LineComalBcd {
0x535d…5361 ptr = 0x874d // 0x535d @0x0
0x535d…5361 lno = 0x4d87 // 0x535f @0x2
0x535d…5361 }