|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4044 (0xfcc)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »VIRK.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »VIRK.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »VIRK.B«
0010 PROC DATOCHECK(NR5,OK5) 0015 OK5=E 0020 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0025 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0030 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0035 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0040 IF OK5=B THEN EXIT 0045 CASE MÅNED OF 0050 WHEN 4,6,W,11 0055 IF DATO>30 THEN OK5=B 0060 WHEN G 0065 IF DATO>29 THEN OK5=B 0070 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0075 ENDCASE 0080 ENDPROC 0100 PROC CHECK(NR1,OK1) 0110 OK1=B 0115 RESULT=B 0120 IF LEN(NR1$)>B THEN 0130 IF NR1$(E)="-" THEN 0140 FORTEGN=-E 0150 OK1=E 0160 ELSE 0170 FORTEGN=E 0180 ENDIF 0190 WHILE LEN(NR1$)>OK1 0200 OK1=OK1+E 0210 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 0220 FORTEGN=B 0230 OK1=LEN(NR1$) 0240 ENDIF 0245 RESULT=RESULT*10+ORD(NR1$(OK1))-48 0250 ENDWHILE 0260 OK1=OK1*FORTEGN 0270 IF OK1<B THEN OK1=OK1+E 0280 ENDIF 0290 ENDPROC 0300 PROC INOPL(OPL) 0305 EXEC INLINE(OPL) 0310 CASE OPL OF 0315 WHEN E 0320 POST1$(E,7)=LINE$ 0325 WHEN G 0330 POST1$(8,32)=LINE$ 0335 WHEN V 0340 POST1$(33,55)=LINE$ 0345 WHEN 4 0350 POST2$(E,4)=LINE$ 0355 WHEN 5 0360 POST2$(5,18)=LINE$ 0365 WHEN 6 0370 POST2$(19,24)=LINE$ 0375 WHEN 7 0380 POST2$(25,34)=LINE$ 0381 WHEN 8 0382 REPEAT 0383 EXEC DATOCHECK(LINE$,J) 0384 IF J=B THEN EXEC INLINE(OPL) 0385 UNTIL J>B 0386 DAD$=LINE$ 0387 ENDCASE 0390 ENDPROC 0395 PROC SKRIVOPL 0400 IF OUTP=B THEN CLEAR 0405 FOR J=E TO A 0410 CASE J OF 0415 WHEN E 0420 LINE$=POST1$(E,7) 0425 WHEN G 0430 LINE$=POST1$(8,32) 0435 WHEN V 0440 LINE$=POST1$(33,55) 0445 WHEN 4 0450 LINE$=POST2$(E,4) 0455 WHEN 5 0460 LINE$=POST2$(5,18) 0465 WHEN 6 0470 LINE$=POST2$(19,24) 0475 WHEN 7 0480 LINE$=POST2$(25,34) 0481 WHEN 8 0482 LINE$=DAD$ 0485 ENDCASE 0487 IF OUTP=B THEN 0490 EXEC OUTLINE(J) 0491 ELSE 0492 EXEC OUTPLINE(J) 0493 ENDIF 0495 NEXT J 0500 ENDPROC 0505 PROC OUTLINE(N) 0510 CURSOR X(N),Y(N) 0515 PRINT USING "### ":N; 0520 PRINT PICT$(N); 0525 CURSOR X(N)+25,Y(N) 0530 PRINT LINE$ 0535 ENDPROC 0540 PROC INDVIRK 0545 OPEN FIL$,W 0550 EXEC FEJL(B,B,FIL$) 0555 GET FIL$,E:POST1$ 0560 GET FIL$,G:POST2$,SLJNR,MLMNR,ATPLM 0563 GET FIL$,V:DAD$ 0565 ENDPROC 0570 PROC UDVIRK 0575 PUT FIL$,E:POST1$ 0580 PUT FIL$,G:POST2$,SLJNR,MLMNR,ATPLM 0583 PUT FIL$,V:DAD$ 0585 CLOSE FIL$ 0590 EXEC FEJL(E,B,FIL$) 0595 ENDPROC 0600 PROC FEJL(P1,P2,P3) 0605 IF STATUS(P3$)<>B THEN 0610 OUTPUT T 0615 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0620 STOP 0625 ENDIF 0630 ENDPROC 0680 PROC INLINE(N) 0690 REPEAT 0700 CURSOR X(N),Y(N) 0705 PRINT USING "###":N; 0710 PRINT BL$(X(N)+V,79) 0720 CURSOR X(N)+4,Y(N) 0730 PRINT PICT$(N) 0740 CURSOR X(N)+25,Y(N) 0750 INPUT "",LINE$ 0760 IF TYPE(N)<B THEN 0770 IF LEN(LINE$)<=ABS(TYPE(N)) THEN 0780 OK=E 0790 FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 0800 LINE$(I)=" " 0810 NEXT I 0820 ELSE 0830 OK=B 0840 ENDIF 0850 ELSE 0860 EXEC CHECK(LINE$,OK) 0870 IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 0880 ENDIF 0890 UNTIL OK<>B 0900 ENDPROC 0910 PROC SKRIVPICT 0920 CLEAR 0930 FOR I=E TO A 0940 CURSOR X(I),Y(I) 0945 PRINT USING "### ":I; 0950 PRINT PICT$(I) 0960 NEXT I 0970 ENDPROC 0975 PROC OUTPLINE(N) 0977 PRINT TAB(X(N)); 0979 PRINT USING "### ":N; 0981 PRINT PICT$(N);TAB(X(N)+25);LINE$ 0983 ENDPROC 9000 A=8 9010 DIM X(A),Y(A),PICT$(A,20),TYPE(A) 9011 DIM POST1$(55),POST2$(34),DAD$(6) 9020 DIM BL$(79),LINE$(30),FIL$(20) 9025 OUTP=B 9030 FOR I=E TO 79 9031 BL$=BL$+" " 9032 NEXT I 9040 FIL$="P641220:VIRKKART" 9200 FOR I=E TO A 9210 X(I)=E 9220 Y(I)=E+G*I 9230 NEXT I 9240 PICT$(E)="CIR-nr" 9250 TYPE(E)=7 9260 PICT$(G)="Navn" 9270 TYPE(G)=-25 9280 PICT$(V)="Adresse" 9290 TYPE(V)=-23 9300 PICT$(4)="Postnr" 9310 TYPE(4)=4 9320 PICT$(5)="By" 9330 TYPE(5)=-14 9340 PICT$(6)="Aftalenr i PI" 9350 TYPE(6)=6 9360 PICT$(7)="Kontonr i PI" 9370 TYPE(7)=10 9372 PICT$(8)="System-dato" 9374 TYPE(8)=6 9380 Æ=B 9390 EXEC INDVIRK 9400 REPEAT 9405 SV=G 9410 CLEAR 9420 CURSOR 10,10 9430 PRINT "V I R K S O M H E D S - K A R T O T E K" 9440 PRINT 9450 PRINT TAB(10);"0 Færdig" 9460 PRINT TAB(10);"1 Ændring" 9470 PRINT TAB(10);"2 Udskrift på skærm" 9480 PRINT TAB(10);"3 Udskrift på printer" 9490 PRINT 9500 REPEAT 9510 CURSOR E,17 9520 EDIT " ",SV 9530 UNTIL SV=>B AND SV<=V 9540 CASE SV OF 9550 WHEN E 9560 EXEC SKRIVOPL 9570 REPEAT 9580 REPEAT 9585 SV1=B 9590 CURSOR E,23 9600 EDIT "Feltnr ",SV1 9610 UNTIL SV1=>B AND SV1<W 9620 IF SV1>B THEN 9630 EXEC INOPL(SV1) 9640 Æ=E 9650 ENDIF 9660 UNTIL SV1=B 9670 WHEN G 9675 OUTP=B 9680 EXEC SKRIVOPL 9685 INPUT "RETURN",LINE$ 9690 WHEN V 9700 OUTPUT P 9705 OUTP=E 9710 EXEC SKRIVOPL 9711 FOR I=W TO 72 9712 PRINT 9713 NEXT I 9715 OUTP=B 9720 OUTPUT T 9730 ENDCASE 9740 UNTIL SV=B 9750 IF Æ=E THEN 9760 EXEC UDVIRK 9790 ENDIF 9800 CLOSE 9810 CHAIN "P641210:STARTB"
0x000…018 (0,) 8d6f 0010 PROC DATOCHECK(NR5,OK5)
0x000…018 LineComalBin {
0x000…018 ptr = 0x8d6f // 0x0 @0x0
0x000…018 lno = 0x000a // 0x2 @0x2
0x000…018 at0004 = ╱9e╱ PROC ╱ // 0x4 @0x4
0x000…018 at0005 = ╱44╱D╱ // 0x5 @0x5
0x000…018 at0006 = ╱41╱A╱ // 0x6 @0x6
0x000…018 at0007 = ╱54╱T╱ // 0x7 @0x7
0x000…018 at0008 = ╱4f╱O╱ // 0x8 @0x8
0x000…018 at0009 = ╱43╱C╱ // 0x9 @0x9
0x000…018 at000a = ╱48╱H╱ // 0xa @0xa
0x000…018 at000b = ╱45╱E╱ // 0xb @0xb
0x000…018 at000c = ╱43╱C╱ // 0xc @0xc
0x000…018 at000d = ╱4b╱K╱ // 0xd @0xd
0x000…018 at000e = ╱ed╱(╱ // 0xe @0xe
0x000…018 at000f = ╱4e╱N╱ // 0xf @0xf
0x000…018 at0010 = ╱52╱R╱ // 0x10 @0x10
0x000…018 at0011 = ╱35╱5╱ // 0x11 @0x11
0x000…018 at0012 = ╱ec╱,╱ // 0x12 @0x12
0x000…018 at0013 = ╱4f╱O╱ // 0x13 @0x13
0x000…018 at0014 = ╱4b╱K╱ // 0x14 @0x14
0x000…018 at0015 = ╱35╱5╱ // 0x15 @0x15
0x000…018 at0016 = ╱ee╱)╱ // 0x16 @0x16
0x000…018 at0017 = EOL // 0x17 @0x17
0x000…018 }
0x018…022 8d79 0015 OK5=E
0x018…022 LineComalBin {
0x018…022 ptr = 0x8d79 // 0x18 @0x0
0x018…022 lno = 0x000f // 0x1a @0x2
0x018…022 at0004 = ╱4f╱O╱ // 0x1c @0x4
0x018…022 at0005 = ╱4b╱K╱ // 0x1d @0x5
0x018…022 at0006 = ╱35╱5╱ // 0x1e @0x6
0x018…022 at0007 = ╱dc╱=╱ // 0x1f @0x7
0x018…022 at0008 = ╱45╱E╱ // 0x20 @0x8
0x018…022 at0009 = EOL // 0x21 @0x9
0x018…022 }
0x022…059 8db0 0020 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48
0x022…059 LineComalBin {
0x022…059 ptr = 0x8db0 // 0x22 @0x0
0x022…059 lno = 0x0014 // 0x24 @0x2
0x022…059 at0004 = ╱5d╱Å╱ // 0x26 @0x4
0x022…059 at0005 = ╱52╱R╱ // 0x27 @0x5
0x022…059 at0006 = ╱dc╱=╱ // 0x28 @0x6
0x022…059 at0007 = ╱ed╱(╱ // 0x29 @0x7
0x022…059 at0008 = ╱cd╱ORD╱ // 0x2a @0x8
0x022…059 at0009 = ╱ed╱(╱ // 0x2b @0x9
0x022…059 at000a = ╱4e╱N╱ // 0x2c @0xa
0x022…059 at000b = ╱52╱R╱ // 0x2d @0xb
0x022…059 at000c = ╱35╱5╱ // 0x2e @0xc
0x022…059 at000d = ╱ef╱$╱ // 0x2f @0xd
0x022…059 at000e = ╱ed╱(╱ // 0x30 @0xe
0x022…059 at000f = ╱45╱E╱ // 0x31 @0xf
0x022…059 at0010 = ╱ee╱)╱ // 0x32 @0x10
0x022…059 at0011 = ╱ee╱)╱ // 0x33 @0x11
0x022…059 at0012 = ╱e3╱-╱ // 0x34 @0x12
0x022…059 at0013 = ╱34╱4╱ // 0x35 @0x13
0x022…059 at0014 = ╱38╱8╱ // 0x36 @0x14
0x022…059 at0015 = ╱fe0000c006╱ // 0x37 @0x15
0x022…059 at001a = ╱ee╱)╱ // 0x3c @0x1a
0x022…059 at001b = ╱e4╱*╱ // 0x3d @0x1b
0x022…059 at001c = ╱31╱1╱ // 0x3e @0x1c
0x022…059 at001d = ╱30╱0╱ // 0x3f @0x1d
0x022…059 at001e = ╱fe0000a004╱ // 0x40 @0x1e
0x022…059 at0023 = ╱e2╱+╱ // 0x45 @0x23
0x022…059 at0024 = ╱cd╱ORD╱ // 0x46 @0x24
0x022…059 at0025 = ╱ed╱(╱ // 0x47 @0x25
0x022…059 at0026 = ╱4e╱N╱ // 0x48 @0x26
0x022…059 at0027 = ╱52╱R╱ // 0x49 @0x27
0x022…059 at0028 = ╱35╱5╱ // 0x4a @0x28
0x022…059 at0029 = ╱ef╱$╱ // 0x4b @0x29
0x022…059 at002a = ╱ed╱(╱ // 0x4c @0x2a
0x022…059 at002b = ╱47╱G╱ // 0x4d @0x2b
0x022…059 at002c = ╱ee╱)╱ // 0x4e @0x2c
0x022…059 at002d = ╱ee╱)╱ // 0x4f @0x2d
0x022…059 at002e = ╱e3╱-╱ // 0x50 @0x2e
0x022…059 at002f = ╱34╱4╱ // 0x51 @0x2f
0x022…059 at0030 = ╱38╱8╱ // 0x52 @0x30
0x022…059 at0031 = ╱fe0000c006╱ // 0x53 @0x31
0x022…059 at0036 = EOL // 0x58 @0x36
0x022…059 }
0x059…098 8def 0025 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48
0x059…098 LineComalBin {
0x059…098 ptr = 0x8def // 0x59 @0x0
0x059…098 lno = 0x0019 // 0x5b @0x2
0x059…098 at0004 = ╱4d╱M╱ // 0x5d @0x4
0x059…098 at0005 = ╱5d╱Å╱ // 0x5e @0x5
0x059…098 at0006 = ╱4e╱N╱ // 0x5f @0x6
0x059…098 at0007 = ╱45╱E╱ // 0x60 @0x7
0x059…098 at0008 = ╱44╱D╱ // 0x61 @0x8
0x059…098 at0009 = ╱dc╱=╱ // 0x62 @0x9
0x059…098 at000a = ╱ed╱(╱ // 0x63 @0xa
0x059…098 at000b = ╱cd╱ORD╱ // 0x64 @0xb
0x059…098 at000c = ╱ed╱(╱ // 0x65 @0xc
0x059…098 at000d = ╱4e╱N╱ // 0x66 @0xd
0x059…098 at000e = ╱52╱R╱ // 0x67 @0xe
0x059…098 at000f = ╱35╱5╱ // 0x68 @0xf
0x059…098 at0010 = ╱ef╱$╱ // 0x69 @0x10
0x059…098 at0011 = ╱ed╱(╱ // 0x6a @0x11
0x059…098 at0012 = ╱56╱V╱ // 0x6b @0x12
0x059…098 at0013 = ╱ee╱)╱ // 0x6c @0x13
0x059…098 at0014 = ╱ee╱)╱ // 0x6d @0x14
0x059…098 at0015 = ╱e3╱-╱ // 0x6e @0x15
0x059…098 at0016 = ╱34╱4╱ // 0x6f @0x16
0x059…098 at0017 = ╱38╱8╱ // 0x70 @0x17
0x059…098 at0018 = ╱fe0000c006╱ // 0x71 @0x18
0x059…098 at001d = ╱ee╱)╱ // 0x76 @0x1d
0x059…098 at001e = ╱e4╱*╱ // 0x77 @0x1e
0x059…098 at001f = ╱31╱1╱ // 0x78 @0x1f
0x059…098 at0020 = ╱30╱0╱ // 0x79 @0x20
0x059…098 at0021 = ╱fe0000a004╱ // 0x7a @0x21
0x059…098 at0026 = ╱e2╱+╱ // 0x7f @0x26
0x059…098 at0027 = ╱cd╱ORD╱ // 0x80 @0x27
0x059…098 at0028 = ╱ed╱(╱ // 0x81 @0x28
0x059…098 at0029 = ╱4e╱N╱ // 0x82 @0x29
0x059…098 at002a = ╱52╱R╱ // 0x83 @0x2a
0x059…098 at002b = ╱35╱5╱ // 0x84 @0x2b
0x059…098 at002c = ╱ef╱$╱ // 0x85 @0x2c
0x059…098 at002d = ╱ed╱(╱ // 0x86 @0x2d
0x059…098 at002e = ╱34╱4╱ // 0x87 @0x2e
0x059…098 at002f = ╱fe00008003╱ // 0x88 @0x2f
0x059…098 at0034 = ╱ee╱)╱ // 0x8d @0x34
0x059…098 at0035 = ╱ee╱)╱ // 0x8e @0x35
0x059…098 at0036 = ╱e3╱-╱ // 0x8f @0x36
0x059…098 at0037 = ╱34╱4╱ // 0x90 @0x37
0x059…098 at0038 = ╱38╱8╱ // 0x91 @0x38
0x059…098 at0039 = ╱fe0000c006╱ // 0x92 @0x39
0x059…098 at003e = EOL // 0x97 @0x3e
0x059…098 }
0x098…0db 8e32 0030 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48
0x098…0db LineComalBin {
0x098…0db ptr = 0x8e32 // 0x98 @0x0
0x098…0db lno = 0x001e // 0x9a @0x2
0x098…0db at0004 = ╱44╱D╱ // 0x9c @0x4
0x098…0db at0005 = ╱41╱A╱ // 0x9d @0x5
0x098…0db at0006 = ╱54╱T╱ // 0x9e @0x6
0x098…0db at0007 = ╱4f╱O╱ // 0x9f @0x7
0x098…0db at0008 = ╱dc╱=╱ // 0xa0 @0x8
0x098…0db at0009 = ╱ed╱(╱ // 0xa1 @0x9
0x098…0db at000a = ╱cd╱ORD╱ // 0xa2 @0xa
0x098…0db at000b = ╱ed╱(╱ // 0xa3 @0xb
0x098…0db at000c = ╱4e╱N╱ // 0xa4 @0xc
0x098…0db at000d = ╱52╱R╱ // 0xa5 @0xd
0x098…0db at000e = ╱35╱5╱ // 0xa6 @0xe
0x098…0db at000f = ╱ef╱$╱ // 0xa7 @0xf
0x098…0db at0010 = ╱ed╱(╱ // 0xa8 @0x10
0x098…0db at0011 = ╱35╱5╱ // 0xa9 @0x11
0x098…0db at0012 = ╱fe0000a003╱ // 0xaa @0x12
0x098…0db at0017 = ╱ee╱)╱ // 0xaf @0x17
0x098…0db at0018 = ╱ee╱)╱ // 0xb0 @0x18
0x098…0db at0019 = ╱e3╱-╱ // 0xb1 @0x19
0x098…0db at001a = ╱34╱4╱ // 0xb2 @0x1a
0x098…0db at001b = ╱38╱8╱ // 0xb3 @0x1b
0x098…0db at001c = ╱fe0000c006╱ // 0xb4 @0x1c
0x098…0db at0021 = ╱ee╱)╱ // 0xb9 @0x21
0x098…0db at0022 = ╱e4╱*╱ // 0xba @0x22
0x098…0db at0023 = ╱31╱1╱ // 0xbb @0x23
0x098…0db at0024 = ╱30╱0╱ // 0xbc @0x24
0x098…0db at0025 = ╱fe0000a004╱ // 0xbd @0x25
0x098…0db at002a = ╱e2╱+╱ // 0xc2 @0x2a
0x098…0db at002b = ╱cd╱ORD╱ // 0xc3 @0x2b
0x098…0db at002c = ╱ed╱(╱ // 0xc4 @0x2c
0x098…0db at002d = ╱4e╱N╱ // 0xc5 @0x2d
0x098…0db at002e = ╱52╱R╱ // 0xc6 @0x2e
0x098…0db at002f = ╱35╱5╱ // 0xc7 @0x2f
0x098…0db at0030 = ╱ef╱$╱ // 0xc8 @0x30
0x098…0db at0031 = ╱ed╱(╱ // 0xc9 @0x31
0x098…0db at0032 = ╱36╱6╱ // 0xca @0x32
0x098…0db at0033 = ╱fe0000c003╱ // 0xcb @0x33
0x098…0db at0038 = ╱ee╱)╱ // 0xd0 @0x38
0x098…0db at0039 = ╱ee╱)╱ // 0xd1 @0x39
0x098…0db at003a = ╱e3╱-╱ // 0xd2 @0x3a
0x098…0db at003b = ╱34╱4╱ // 0xd3 @0x3b
0x098…0db at003c = ╱38╱8╱ // 0xd4 @0x3c
0x098…0db at003d = ╱fe0000c006╱ // 0xd5 @0x3d
0x098…0db at0042 = EOL // 0xda @0x42
0x098…0db }
0x0db…110 8e67 0035 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B
0x0db…110 LineComalBin {
0x0db…110 ptr = 0x8e67 // 0xdb @0x0
0x0db…110 lno = 0x0023 // 0xdd @0x2
0x0db…110 at0004 = ╱82╱ IF ╱ // 0xdf @0x4
0x0db…110 at0005 = ╱44╱D╱ // 0xe0 @0x5
0x0db…110 at0006 = ╱41╱A╱ // 0xe1 @0x6
0x0db…110 at0007 = ╱54╱T╱ // 0xe2 @0x7
0x0db…110 at0008 = ╱4f╱O╱ // 0xe3 @0x8
0x0db…110 at0009 = ╱dd╱<╱ // 0xe4 @0x9
0x0db…110 at000a = ╱45╱E╱ // 0xe5 @0xa
0x0db…110 at000b = ╱db╱ OR ╱ // 0xe6 @0xb
0x0db…110 at000c = ╱4d╱M╱ // 0xe7 @0xc
0x0db…110 at000d = ╱5d╱Å╱ // 0xe8 @0xd
0x0db…110 at000e = ╱4e╱N╱ // 0xe9 @0xe
0x0db…110 at000f = ╱45╱E╱ // 0xea @0xf
0x0db…110 at0010 = ╱44╱D╱ // 0xeb @0x10
0x0db…110 at0011 = ╱dd╱<╱ // 0xec @0x11
0x0db…110 at0012 = ╱45╱E╱ // 0xed @0x12
0x0db…110 at0013 = ╱db╱ OR ╱ // 0xee @0x13
0x0db…110 at0014 = ╱4d╱M╱ // 0xef @0x14
0x0db…110 at0015 = ╱5d╱Å╱ // 0xf0 @0x15
0x0db…110 at0016 = ╱4e╱N╱ // 0xf1 @0x16
0x0db…110 at0017 = ╱45╱E╱ // 0xf2 @0x17
0x0db…110 at0018 = ╱44╱D╱ // 0xf3 @0x18
0x0db…110 at0019 = ╱de╱>╱ // 0xf4 @0x19
0x0db…110 at001a = ╱31╱1╱ // 0xf5 @0x1a
0x0db…110 at001b = ╱32╱2╱ // 0xf6 @0x1b
0x0db…110 at001c = ╱fe0000c004╱ // 0xf7 @0x1c
0x0db…110 at0021 = ╱db╱ OR ╱ // 0xfc @0x21
0x0db…110 at0022 = ╱44╱D╱ // 0xfd @0x22
0x0db…110 at0023 = ╱41╱A╱ // 0xfe @0x23
0x0db…110 at0024 = ╱54╱T╱ // 0xff @0x24
0x0db…110 at0025 = ╱4f╱O╱ // 0x100 @0x25
0x0db…110 at0026 = ╱de╱>╱ // 0x101 @0x26
0x0db…110 at0027 = ╱33╱3╱ // 0x102 @0x27
0x0db…110 at0028 = ╱31╱1╱ // 0x103 @0x28
0x0db…110 at0029 = ╱fe0000f805╱ // 0x104 @0x29
0x0db…110 at002e = ╱b6╱ THEN ╱ // 0x109 @0x2e
0x0db…110 at002f = ╱4f╱O╱ // 0x10a @0x2f
0x0db…110 at0030 = ╱4b╱K╱ // 0x10b @0x30
0x0db…110 at0031 = ╱35╱5╱ // 0x10c @0x31
0x0db…110 at0032 = ╱dc╱=╱ // 0x10d @0x32
0x0db…110 at0033 = ╱42╱B╱ // 0x10e @0x33
0x0db…110 at0034 = EOL // 0x10f @0x34
0x0db…110 }
0x110…11d 8e74 0040 IF OK5=B THEN EXIT
0x110…11d LineComalBin {
0x110…11d ptr = 0x8e74 // 0x110 @0x0
0x110…11d lno = 0x0028 // 0x112 @0x2
0x110…11d at0004 = ╱82╱ IF ╱ // 0x114 @0x4
0x110…11d at0005 = ╱4f╱O╱ // 0x115 @0x5
0x110…11d at0006 = ╱4b╱K╱ // 0x116 @0x6
0x110…11d at0007 = ╱35╱5╱ // 0x117 @0x7
0x110…11d at0008 = ╱dc╱=╱ // 0x118 @0x8
0x110…11d at0009 = ╱42╱B╱ // 0x119 @0x9
0x110…11d at000a = ╱b6╱ THEN ╱ // 0x11a @0xa
0x110…11d at000b = ╱99╱ EXIT ╱ // 0x11b @0xb
0x110…11d at000c = EOL // 0x11c @0xc
0x110…11d }
0x11d…12a 8e81 0045 CASE MÅNED OF
0x11d…12a LineComalBin {
0x11d…12a ptr = 0x8e81 // 0x11d @0x0
0x11d…12a lno = 0x002d // 0x11f @0x2
0x11d…12a at0004 = ╱a201╱ CASE ╱ // 0x121 @0x4
0x11d…12a at0006 = ╱4d╱M╱ // 0x123 @0x6
0x11d…12a at0007 = ╱5d╱Å╱ // 0x124 @0x7
0x11d…12a at0008 = ╱4e╱N╱ // 0x125 @0x8
0x11d…12a at0009 = ╱45╱E╱ // 0x126 @0x9
0x11d…12a at000a = ╱44╱D╱ // 0x127 @0xa
0x11d…12a at000b = ╱ba╱ OF ╱ // 0x128 @0xb
0x11d…12a at000c = EOL // 0x129 @0xc
0x11d…12a }
0x12a…148 8e9f 0050 WHEN 4,6,W,11
0x12a…148 LineComalBin {
0x12a…148 ptr = 0x8e9f // 0x12a @0x0
0x12a…148 lno = 0x0032 // 0x12c @0x2
0x12a…148 at0004 = ╱a301╱ WHEN ╱ // 0x12e @0x4
0x12a…148 at0006 = ╱34╱4╱ // 0x130 @0x6
0x12a…148 at0007 = ╱fe00008003╱ // 0x131 @0x7
0x12a…148 at000c = ╱ec╱,╱ // 0x136 @0xc
0x12a…148 at000d = ╱36╱6╱ // 0x137 @0xd
0x12a…148 at000e = ╱fe0000c003╱ // 0x138 @0xe
0x12a…148 at0013 = ╱ec╱,╱ // 0x13d @0x13
0x12a…148 at0014 = ╱57╱W╱ // 0x13e @0x14
0x12a…148 at0015 = ╱ec╱,╱ // 0x13f @0x15
0x12a…148 at0016 = ╱31╱1╱ // 0x140 @0x16
0x12a…148 at0017 = ╱31╱1╱ // 0x141 @0x17
0x12a…148 at0018 = ╱fe0000b004╱ // 0x142 @0x18
0x12a…148 at001d = EOL // 0x147 @0x1d
0x12a…148 }
0x148…160 8eb7 0055 IF DATO>30 THEN OK5=B
0x148…160 LineComalBin {
0x148…160 ptr = 0x8eb7 // 0x148 @0x0
0x148…160 lno = 0x0037 // 0x14a @0x2
0x148…160 at0004 = ╱82╱ IF ╱ // 0x14c @0x4
0x148…160 at0005 = ╱44╱D╱ // 0x14d @0x5
0x148…160 at0006 = ╱41╱A╱ // 0x14e @0x6
0x148…160 at0007 = ╱54╱T╱ // 0x14f @0x7
0x148…160 at0008 = ╱4f╱O╱ // 0x150 @0x8
0x148…160 at0009 = ╱de╱>╱ // 0x151 @0x9
0x148…160 at000a = ╱33╱3╱ // 0x152 @0xa
0x148…160 at000b = ╱30╱0╱ // 0x153 @0xb
0x148…160 at000c = ╱fe0000f005╱ // 0x154 @0xc
0x148…160 at0011 = ╱b6╱ THEN ╱ // 0x159 @0x11
0x148…160 at0012 = ╱4f╱O╱ // 0x15a @0x12
0x148…160 at0013 = ╱4b╱K╱ // 0x15b @0x13
0x148…160 at0014 = ╱35╱5╱ // 0x15c @0x14
0x148…160 at0015 = ╱dc╱=╱ // 0x15d @0x15
0x148…160 at0016 = ╱42╱B╱ // 0x15e @0x16
0x148…160 at0017 = EOL // 0x15f @0x17
0x148…160 }
0x160…168 8ebf 0060 WHEN G
0x160…168 LineComalBin {
0x160…168 ptr = 0x8ebf // 0x160 @0x0
0x160…168 lno = 0x003c // 0x162 @0x2
0x160…168 at0004 = ╱a301╱ WHEN ╱ // 0x164 @0x4
0x160…168 at0006 = ╱47╱G╱ // 0x166 @0x6
0x160…168 at0007 = EOL // 0x167 @0x7
0x160…168 }
0x168…180 8ed7 0065 IF DATO>29 THEN OK5=B
0x168…180 LineComalBin {
0x168…180 ptr = 0x8ed7 // 0x168 @0x0
0x168…180 lno = 0x0041 // 0x16a @0x2
0x168…180 at0004 = ╱82╱ IF ╱ // 0x16c @0x4
0x168…180 at0005 = ╱44╱D╱ // 0x16d @0x5
0x168…180 at0006 = ╱41╱A╱ // 0x16e @0x6
0x168…180 at0007 = ╱54╱T╱ // 0x16f @0x7
0x168…180 at0008 = ╱4f╱O╱ // 0x170 @0x8
0x168…180 at0009 = ╱de╱>╱ // 0x171 @0x9
0x168…180 at000a = ╱32╱2╱ // 0x172 @0xa
0x168…180 at000b = ╱39╱9╱ // 0x173 @0xb
0x168…180 at000c = ╱fe0000e805╱ // 0x174 @0xc
0x168…180 at0011 = ╱b6╱ THEN ╱ // 0x179 @0x11
0x168…180 at0012 = ╱4f╱O╱ // 0x17a @0x12
0x168…180 at0013 = ╱4b╱K╱ // 0x17b @0x13
0x168…180 at0014 = ╱35╱5╱ // 0x17c @0x14
0x168…180 at0015 = ╱dc╱=╱ // 0x17d @0x15
0x168…180 at0016 = ╱42╱B╱ // 0x17e @0x16
0x168…180 at0017 = EOL // 0x17f @0x17
0x168…180 }
0x180…1a4 8efb 0070 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B
0x180…1a4 LineComalBin {
0x180…1a4 ptr = 0x8efb // 0x180 @0x0
0x180…1a4 lno = 0x0046 // 0x182 @0x2
0x180…1a4 at0004 = ╱82╱ IF ╱ // 0x184 @0x4
0x180…1a4 at0005 = ╱44╱D╱ // 0x185 @0x5
0x180…1a4 at0006 = ╱41╱A╱ // 0x186 @0x6
0x180…1a4 at0007 = ╱54╱T╱ // 0x187 @0x7
0x180…1a4 at0008 = ╱4f╱O╱ // 0x188 @0x8
0x180…1a4 at0009 = ╱dc╱=╱ // 0x189 @0x9
0x180…1a4 at000a = ╱32╱2╱ // 0x18a @0xa
0x180…1a4 at000b = ╱39╱9╱ // 0x18b @0xb
0x180…1a4 at000c = ╱fe0000e805╱ // 0x18c @0xc
0x180…1a4 at0011 = ╱da╱ AND ╱ // 0x191 @0x11
0x180…1a4 at0012 = ╱5d╱Å╱ // 0x192 @0x12
0x180…1a4 at0013 = ╱52╱R╱ // 0x193 @0x13
0x180…1a4 at0014 = ╱e8╱ MOD ╱ // 0x194 @0x14
0x180…1a4 at0015 = ╱34╱4╱ // 0x195 @0x15
0x180…1a4 at0016 = ╱fe00008003╱ // 0x196 @0x16
0x180…1a4 at001b = ╱e1╱<>╱ // 0x19b @0x1b
0x180…1a4 at001c = ╱42╱B╱ // 0x19c @0x1c
0x180…1a4 at001d = ╱b6╱ THEN ╱ // 0x19d @0x1d
0x180…1a4 at001e = ╱4f╱O╱ // 0x19e @0x1e
0x180…1a4 at001f = ╱4b╱K╱ // 0x19f @0x1f
0x180…1a4 at0020 = ╱35╱5╱ // 0x1a0 @0x20
0x180…1a4 at0021 = ╱dc╱=╱ // 0x1a1 @0x21
0x180…1a4 at0022 = ╱42╱B╱ // 0x1a2 @0x22
0x180…1a4 at0023 = EOL // 0x1a3 @0x23
0x180…1a4 }
0x1a4…1aa 8f01 0075 ENDCASE
0x1a4…1aa LineComalBin {
0x1a4…1aa ptr = 0x8f01 // 0x1a4 @0x0
0x1a4…1aa lno = 0x004b // 0x1a6 @0x2
0x1a4…1aa at0004 = ╱a4╱ ENDCASE ╱ // 0x1a8 @0x4
0x1a4…1aa at0005 = EOL // 0x1a9 @0x5
0x1a4…1aa }
0x1aa…1b0 8f07 0080 ENDPROC
0x1aa…1b0 LineComalBin {
0x1aa…1b0 ptr = 0x8f07 // 0x1aa @0x0
0x1aa…1b0 lno = 0x0050 // 0x1ac @0x2
0x1aa…1b0 at0004 = ╱9f╱ ENDPROC ╱ // 0x1ae @0x4
0x1aa…1b0 at0005 = EOL // 0x1af @0x5
0x1aa…1b0 }
0x1b0…1c4 8f1b 0100 PROC CHECK(NR1,OK1)
0x1b0…1c4 LineComalBin {
0x1b0…1c4 ptr = 0x8f1b // 0x1b0 @0x0
0x1b0…1c4 lno = 0x0064 // 0x1b2 @0x2
0x1b0…1c4 at0004 = ╱9e╱ PROC ╱ // 0x1b4 @0x4
0x1b0…1c4 at0005 = ╱43╱C╱ // 0x1b5 @0x5
0x1b0…1c4 at0006 = ╱48╱H╱ // 0x1b6 @0x6
0x1b0…1c4 at0007 = ╱45╱E╱ // 0x1b7 @0x7
0x1b0…1c4 at0008 = ╱43╱C╱ // 0x1b8 @0x8
0x1b0…1c4 at0009 = ╱4b╱K╱ // 0x1b9 @0x9
0x1b0…1c4 at000a = ╱ed╱(╱ // 0x1ba @0xa
0x1b0…1c4 at000b = ╱4e╱N╱ // 0x1bb @0xb
0x1b0…1c4 at000c = ╱52╱R╱ // 0x1bc @0xc
0x1b0…1c4 at000d = ╱31╱1╱ // 0x1bd @0xd
0x1b0…1c4 at000e = ╱ec╱,╱ // 0x1be @0xe
0x1b0…1c4 at000f = ╱4f╱O╱ // 0x1bf @0xf
0x1b0…1c4 at0010 = ╱4b╱K╱ // 0x1c0 @0x10
0x1b0…1c4 at0011 = ╱31╱1╱ // 0x1c1 @0x11
0x1b0…1c4 at0012 = ╱ee╱)╱ // 0x1c2 @0x12
0x1b0…1c4 at0013 = EOL // 0x1c3 @0x13
0x1b0…1c4 }
0x1c4…1ce 8f25 0110 OK1=B
0x1c4…1ce LineComalBin {
0x1c4…1ce ptr = 0x8f25 // 0x1c4 @0x0
0x1c4…1ce lno = 0x006e // 0x1c6 @0x2
0x1c4…1ce at0004 = ╱4f╱O╱ // 0x1c8 @0x4
0x1c4…1ce at0005 = ╱4b╱K╱ // 0x1c9 @0x5
0x1c4…1ce at0006 = ╱31╱1╱ // 0x1ca @0x6
0x1c4…1ce at0007 = ╱dc╱=╱ // 0x1cb @0x7
0x1c4…1ce at0008 = ╱42╱B╱ // 0x1cc @0x8
0x1c4…1ce at0009 = EOL // 0x1cd @0x9
0x1c4…1ce }
0x1ce…1db (6,) 8f32 0115 RESULT=B
0x1ce…1db LineComalBin {
0x1ce…1db ptr = 0x8f32 // 0x1ce @0x0
0x1ce…1db lno = 0x0073 // 0x1d0 @0x2
0x1ce…1db at0004 = ╱52╱R╱ // 0x1d2 @0x4
0x1ce…1db at0005 = ╱45╱E╱ // 0x1d3 @0x5
0x1ce…1db at0006 = ╱53╱S╱ // 0x1d4 @0x6
0x1ce…1db at0007 = ╱55╱U╱ // 0x1d5 @0x7
0x1ce…1db at0008 = ╱4c╱L╱ // 0x1d6 @0x8
0x1ce…1db at0009 = ╱54╱T╱ // 0x1d7 @0x9
0x1ce…1db at000a = ╱dc╱=╱ // 0x1d8 @0xa
0x1ce…1db at000b = ╱42╱B╱ // 0x1d9 @0xb
0x1ce…1db at000c = EOL // 0x1da @0xc
0x1ce…1db }
0x1db…1eb 8f42 0120 IF LEN(NR1$)>B THEN
0x1db…1eb LineComalBin {
0x1db…1eb ptr = 0x8f42 // 0x1db @0x0
0x1db…1eb lno = 0x0078 // 0x1dd @0x2
0x1db…1eb at0004 = ╱9c╱ IF ╱ // 0x1df @0x4
0x1db…1eb at0005 = ╱cc╱LEN╱ // 0x1e0 @0x5
0x1db…1eb at0006 = ╱ed╱(╱ // 0x1e1 @0x6
0x1db…1eb at0007 = ╱4e╱N╱ // 0x1e2 @0x7
0x1db…1eb at0008 = ╱52╱R╱ // 0x1e3 @0x8
0x1db…1eb at0009 = ╱31╱1╱ // 0x1e4 @0x9
0x1db…1eb at000a = ╱ef╱$╱ // 0x1e5 @0xa
0x1db…1eb at000b = ╱ee╱)╱ // 0x1e6 @0xb
0x1db…1eb at000c = ╱de╱>╱ // 0x1e7 @0xc
0x1db…1eb at000d = ╱42╱B╱ // 0x1e8 @0xd
0x1db…1eb at000e = ╱b6╱ THEN ╱ // 0x1e9 @0xe
0x1db…1eb at000f = EOL // 0x1ea @0xf
0x1db…1eb }
0x1eb…1fd 8f54 0130 IF NR1$(E)="-" THEN
0x1eb…1fd LineComalBin {
0x1eb…1fd ptr = 0x8f54 // 0x1eb @0x0
0x1eb…1fd lno = 0x0082 // 0x1ed @0x2
0x1eb…1fd at0004 = ╱9c╱ IF ╱ // 0x1ef @0x4
0x1eb…1fd at0005 = ╱4e╱N╱ // 0x1f0 @0x5
0x1eb…1fd at0006 = ╱52╱R╱ // 0x1f1 @0x6
0x1eb…1fd at0007 = ╱31╱1╱ // 0x1f2 @0x7
0x1eb…1fd at0008 = ╱ef╱$╱ // 0x1f3 @0x8
0x1eb…1fd at0009 = ╱ed╱(╱ // 0x1f4 @0x9
0x1eb…1fd at000a = ╱45╱E╱ // 0x1f5 @0xa
0x1eb…1fd at000b = ╱ee╱)╱ // 0x1f6 @0xb
0x1eb…1fd at000c = ╱dc╱=╱ // 0x1f7 @0xc
0x1eb…1fd at000d = ╱22╱"╱ // 0x1f8 @0xd
0x1eb…1fd at000e = ╱2d╱-╱ // 0x1f9 @0xe
0x1eb…1fd at000f = ╱22╱"╱ // 0x1fa @0xf
0x1eb…1fd at0010 = ╱b6╱ THEN ╱ // 0x1fb @0x10
0x1eb…1fd at0011 = EOL // 0x1fc @0x11
0x1eb…1fd }
0x1fd…20c 8f63 0140 FORTEGN=-E
0x1fd…20c LineComalBin {
0x1fd…20c ptr = 0x8f63 // 0x1fd @0x0
0x1fd…20c lno = 0x008c // 0x1ff @0x2
0x1fd…20c at0004 = ╱46╱F╱ // 0x201 @0x4
0x1fd…20c at0005 = ╱4f╱O╱ // 0x202 @0x5
0x1fd…20c at0006 = ╱52╱R╱ // 0x203 @0x6
0x1fd…20c at0007 = ╱54╱T╱ // 0x204 @0x7
0x1fd…20c at0008 = ╱45╱E╱ // 0x205 @0x8
0x1fd…20c at0009 = ╱47╱G╱ // 0x206 @0x9
0x1fd…20c at000a = ╱4e╱N╱ // 0x207 @0xa
0x1fd…20c at000b = ╱dc╱=╱ // 0x208 @0xb
0x1fd…20c at000c = ╱e9╱-╱ // 0x209 @0xc
0x1fd…20c at000d = ╱45╱E╱ // 0x20a @0xd
0x1fd…20c at000e = EOL // 0x20b @0xe
0x1fd…20c }
0x20c…216 8f6d 0150 OK1=E
0x20c…216 LineComalBin {
0x20c…216 ptr = 0x8f6d // 0x20c @0x0
0x20c…216 lno = 0x0096 // 0x20e @0x2
0x20c…216 at0004 = ╱4f╱O╱ // 0x210 @0x4
0x20c…216 at0005 = ╱4b╱K╱ // 0x211 @0x5
0x20c…216 at0006 = ╱31╱1╱ // 0x212 @0x6
0x20c…216 at0007 = ╱dc╱=╱ // 0x213 @0x7
0x20c…216 at0008 = ╱45╱E╱ // 0x214 @0x8
0x20c…216 at0009 = EOL // 0x215 @0x9
0x20c…216 }
0x216…21c 8f73 0160 ELSE
0x216…21c LineComalBin {
0x216…21c ptr = 0x8f73 // 0x216 @0x0
0x216…21c lno = 0x00a0 // 0x218 @0x2
0x216…21c at0004 = ╱9a╱ ELSE ╱ // 0x21a @0x4
0x216…21c at0005 = EOL // 0x21b @0x5
0x216…21c }
0x21c…22a 8f81 0170 FORTEGN=E
0x21c…22a LineComalBin {
0x21c…22a ptr = 0x8f81 // 0x21c @0x0
0x21c…22a lno = 0x00aa // 0x21e @0x2
0x21c…22a at0004 = ╱46╱F╱ // 0x220 @0x4
0x21c…22a at0005 = ╱4f╱O╱ // 0x221 @0x5
0x21c…22a at0006 = ╱52╱R╱ // 0x222 @0x6
0x21c…22a at0007 = ╱54╱T╱ // 0x223 @0x7
0x21c…22a at0008 = ╱45╱E╱ // 0x224 @0x8
0x21c…22a at0009 = ╱47╱G╱ // 0x225 @0x9
0x21c…22a at000a = ╱4e╱N╱ // 0x226 @0xa
0x21c…22a at000b = ╱dc╱=╱ // 0x227 @0xb
0x21c…22a at000c = ╱45╱E╱ // 0x228 @0xc
0x21c…22a at000d = EOL // 0x229 @0xd
0x21c…22a }
0x22a…230 8f87 0180 ENDIF
0x22a…230 LineComalBin {
0x22a…230 ptr = 0x8f87 // 0x22a @0x0
0x22a…230 lno = 0x00b4 // 0x22c @0x2
0x22a…230 at0004 = ╱9b╱ ENDIF ╱ // 0x22e @0x4
0x22a…230 at0005 = EOL // 0x22f @0x5
0x22a…230 }
0x230…241 8f98 0190 WHILE LEN(NR1$)>OK1
0x230…241 LineComalBin {
0x230…241 ptr = 0x8f98 // 0x230 @0x0
0x230…241 lno = 0x00be // 0x232 @0x2
0x230…241 at0004 = ╱93╱ WHILE ╱ // 0x234 @0x4
0x230…241 at0005 = ╱cc╱LEN╱ // 0x235 @0x5
0x230…241 at0006 = ╱ed╱(╱ // 0x236 @0x6
0x230…241 at0007 = ╱4e╱N╱ // 0x237 @0x7
0x230…241 at0008 = ╱52╱R╱ // 0x238 @0x8
0x230…241 at0009 = ╱31╱1╱ // 0x239 @0x9
0x230…241 at000a = ╱ef╱$╱ // 0x23a @0xa
0x230…241 at000b = ╱ee╱)╱ // 0x23b @0xb
0x230…241 at000c = ╱de╱>╱ // 0x23c @0xc
0x230…241 at000d = ╱4f╱O╱ // 0x23d @0xd
0x230…241 at000e = ╱4b╱K╱ // 0x23e @0xe
0x230…241 at000f = ╱31╱1╱ // 0x23f @0xf
0x230…241 at0010 = EOL // 0x240 @0x10
0x230…241 }
0x241…24f 8fa6 0200 OK1=OK1+E
0x241…24f LineComalBin {
0x241…24f ptr = 0x8fa6 // 0x241 @0x0
0x241…24f lno = 0x00c8 // 0x243 @0x2
0x241…24f at0004 = ╱4f╱O╱ // 0x245 @0x4
0x241…24f at0005 = ╱4b╱K╱ // 0x246 @0x5
0x241…24f at0006 = ╱31╱1╱ // 0x247 @0x6
0x241…24f at0007 = ╱dc╱=╱ // 0x248 @0x7
0x241…24f at0008 = ╱4f╱O╱ // 0x249 @0x8
0x241…24f at0009 = ╱4b╱K╱ // 0x24a @0x9
0x241…24f at000a = ╱31╱1╱ // 0x24b @0xa
0x241…24f at000b = ╱e2╱+╱ // 0x24c @0xb
0x241…24f at000c = ╱45╱E╱ // 0x24d @0xc
0x241…24f at000d = EOL // 0x24e @0xd
0x241…24f }
0x24f…271 8fc8 0210 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN
0x24f…271 LineComalBin {
0x24f…271 ptr = 0x8fc8 // 0x24f @0x0
0x24f…271 lno = 0x00d2 // 0x251 @0x2
0x24f…271 at0004 = ╱9c╱ IF ╱ // 0x253 @0x4
0x24f…271 at0005 = ╱4e╱N╱ // 0x254 @0x5
0x24f…271 at0006 = ╱52╱R╱ // 0x255 @0x6
0x24f…271 at0007 = ╱31╱1╱ // 0x256 @0x7
0x24f…271 at0008 = ╱ef╱$╱ // 0x257 @0x8
0x24f…271 at0009 = ╱ed╱(╱ // 0x258 @0x9
0x24f…271 at000a = ╱4f╱O╱ // 0x259 @0xa
0x24f…271 at000b = ╱4b╱K╱ // 0x25a @0xb
0x24f…271 at000c = ╱31╱1╱ // 0x25b @0xc
0x24f…271 at000d = ╱ee╱)╱ // 0x25c @0xd
0x24f…271 at000e = ╱dd╱<╱ // 0x25d @0xe
0x24f…271 at000f = ╱22╱"╱ // 0x25e @0xf
0x24f…271 at0010 = ╱30╱0╱ // 0x25f @0x10
0x24f…271 at0011 = ╱22╱"╱ // 0x260 @0x11
0x24f…271 at0012 = ╱db╱ OR ╱ // 0x261 @0x12
0x24f…271 at0013 = ╱4e╱N╱ // 0x262 @0x13
0x24f…271 at0014 = ╱52╱R╱ // 0x263 @0x14
0x24f…271 at0015 = ╱31╱1╱ // 0x264 @0x15
0x24f…271 at0016 = ╱ef╱$╱ // 0x265 @0x16
0x24f…271 at0017 = ╱ed╱(╱ // 0x266 @0x17
0x24f…271 at0018 = ╱4f╱O╱ // 0x267 @0x18
0x24f…271 at0019 = ╱4b╱K╱ // 0x268 @0x19
0x24f…271 at001a = ╱31╱1╱ // 0x269 @0x1a
0x24f…271 at001b = ╱ee╱)╱ // 0x26a @0x1b
0x24f…271 at001c = ╱de╱>╱ // 0x26b @0x1c
0x24f…271 at001d = ╱22╱"╱ // 0x26c @0x1d
0x24f…271 at001e = ╱39╱9╱ // 0x26d @0x1e
0x24f…271 at001f = ╱22╱"╱ // 0x26e @0x1f
0x24f…271 at0020 = ╱b6╱ THEN ╱ // 0x26f @0x20
0x24f…271 at0021 = EOL // 0x270 @0x21
0x24f…271 }
0x271…27f 8fd6 0220 FORTEGN=B
0x271…27f LineComalBin {
0x271…27f ptr = 0x8fd6 // 0x271 @0x0
0x271…27f lno = 0x00dc // 0x273 @0x2
0x271…27f at0004 = ╱46╱F╱ // 0x275 @0x4
0x271…27f at0005 = ╱4f╱O╱ // 0x276 @0x5
0x271…27f at0006 = ╱52╱R╱ // 0x277 @0x6
0x271…27f at0007 = ╱54╱T╱ // 0x278 @0x7
0x271…27f at0008 = ╱45╱E╱ // 0x279 @0x8
0x271…27f at0009 = ╱47╱G╱ // 0x27a @0x9
0x271…27f at000a = ╱4e╱N╱ // 0x27b @0xa
0x271…27f at000b = ╱dc╱=╱ // 0x27c @0xb
0x271…27f at000c = ╱42╱B╱ // 0x27d @0xc
0x271…27f at000d = EOL // 0x27e @0xd
0x271…27f }
0x27f…28f 8fe6 0230 OK1=LEN(NR1$)
0x27f…28f LineComalBin {
0x27f…28f ptr = 0x8fe6 // 0x27f @0x0
0x27f…28f lno = 0x00e6 // 0x281 @0x2
0x27f…28f at0004 = ╱4f╱O╱ // 0x283 @0x4
0x27f…28f at0005 = ╱4b╱K╱ // 0x284 @0x5
0x27f…28f at0006 = ╱31╱1╱ // 0x285 @0x6
0x27f…28f at0007 = ╱dc╱=╱ // 0x286 @0x7
0x27f…28f at0008 = ╱cc╱LEN╱ // 0x287 @0x8
0x27f…28f at0009 = ╱ed╱(╱ // 0x288 @0x9
0x27f…28f at000a = ╱4e╱N╱ // 0x289 @0xa
0x27f…28f at000b = ╱52╱R╱ // 0x28a @0xb
0x27f…28f at000c = ╱31╱1╱ // 0x28b @0xc
0x27f…28f at000d = ╱ef╱$╱ // 0x28c @0xd
0x27f…28f at000e = ╱ee╱)╱ // 0x28d @0xe
0x27f…28f at000f = EOL // 0x28e @0xf
0x27f…28f }
0x28f…295 8fec 0240 ENDIF
0x28f…295 LineComalBin {
0x28f…295 ptr = 0x8fec // 0x28f @0x0
0x28f…295 lno = 0x00f0 // 0x291 @0x2
0x28f…295 at0004 = ╱9b╱ ENDIF ╱ // 0x293 @0x4
0x28f…295 at0005 = EOL // 0x294 @0x5
0x28f…295 }
0x295…2c4 901b 0245 RESULT=RESULT*10+ORD(NR1$(OK1))-48
0x295…2c4 LineComalBin {
0x295…2c4 ptr = 0x901b // 0x295 @0x0
0x295…2c4 lno = 0x00f5 // 0x297 @0x2
0x295…2c4 at0004 = ╱52╱R╱ // 0x299 @0x4
0x295…2c4 at0005 = ╱45╱E╱ // 0x29a @0x5
0x295…2c4 at0006 = ╱53╱S╱ // 0x29b @0x6
0x295…2c4 at0007 = ╱55╱U╱ // 0x29c @0x7
0x295…2c4 at0008 = ╱4c╱L╱ // 0x29d @0x8
0x295…2c4 at0009 = ╱54╱T╱ // 0x29e @0x9
0x295…2c4 at000a = ╱dc╱=╱ // 0x29f @0xa
0x295…2c4 at000b = ╱52╱R╱ // 0x2a0 @0xb
0x295…2c4 at000c = ╱45╱E╱ // 0x2a1 @0xc
0x295…2c4 at000d = ╱53╱S╱ // 0x2a2 @0xd
0x295…2c4 at000e = ╱55╱U╱ // 0x2a3 @0xe
0x295…2c4 at000f = ╱4c╱L╱ // 0x2a4 @0xf
0x295…2c4 at0010 = ╱54╱T╱ // 0x2a5 @0x10
0x295…2c4 at0011 = ╱e4╱*╱ // 0x2a6 @0x11
0x295…2c4 at0012 = ╱31╱1╱ // 0x2a7 @0x12
0x295…2c4 at0013 = ╱30╱0╱ // 0x2a8 @0x13
0x295…2c4 at0014 = ╱fe0000a004╱ // 0x2a9 @0x14
0x295…2c4 at0019 = ╱e2╱+╱ // 0x2ae @0x19
0x295…2c4 at001a = ╱cd╱ORD╱ // 0x2af @0x1a
0x295…2c4 at001b = ╱ed╱(╱ // 0x2b0 @0x1b
0x295…2c4 at001c = ╱4e╱N╱ // 0x2b1 @0x1c
0x295…2c4 at001d = ╱52╱R╱ // 0x2b2 @0x1d
0x295…2c4 at001e = ╱31╱1╱ // 0x2b3 @0x1e
0x295…2c4 at001f = ╱ef╱$╱ // 0x2b4 @0x1f
0x295…2c4 at0020 = ╱ed╱(╱ // 0x2b5 @0x20
0x295…2c4 at0021 = ╱4f╱O╱ // 0x2b6 @0x21
0x295…2c4 at0022 = ╱4b╱K╱ // 0x2b7 @0x22
0x295…2c4 at0023 = ╱31╱1╱ // 0x2b8 @0x23
0x295…2c4 at0024 = ╱ee╱)╱ // 0x2b9 @0x24
0x295…2c4 at0025 = ╱ee╱)╱ // 0x2ba @0x25
0x295…2c4 at0026 = ╱e3╱-╱ // 0x2bb @0x26
0x295…2c4 at0027 = ╱34╱4╱ // 0x2bc @0x27
0x295…2c4 at0028 = ╱38╱8╱ // 0x2bd @0x28
0x295…2c4 at0029 = ╱fe0000c006╱ // 0x2be @0x29
0x295…2c4 at002e = EOL // 0x2c3 @0x2e
0x295…2c4 }
0x2c4…2ca 9021 0250 ENDWHILE
0x2c4…2ca LineComalBin {
0x2c4…2ca ptr = 0x9021 // 0x2c4 @0x0
0x2c4…2ca lno = 0x00fa // 0x2c6 @0x2
0x2c4…2ca at0004 = ╱94╱ ENDWHILE ╱ // 0x2c8 @0x4
0x2c4…2ca at0005 = EOL // 0x2c9 @0x5
0x2c4…2ca }
0x2ca…2de 9035 0260 OK1=OK1*FORTEGN
0x2ca…2de LineComalBin {
0x2ca…2de ptr = 0x9035 // 0x2ca @0x0
0x2ca…2de lno = 0x0104 // 0x2cc @0x2
0x2ca…2de at0004 = ╱4f╱O╱ // 0x2ce @0x4
0x2ca…2de at0005 = ╱4b╱K╱ // 0x2cf @0x5
0x2ca…2de at0006 = ╱31╱1╱ // 0x2d0 @0x6
0x2ca…2de at0007 = ╱dc╱=╱ // 0x2d1 @0x7
0x2ca…2de at0008 = ╱4f╱O╱ // 0x2d2 @0x8
0x2ca…2de at0009 = ╱4b╱K╱ // 0x2d3 @0x9
0x2ca…2de at000a = ╱31╱1╱ // 0x2d4 @0xa
0x2ca…2de at000b = ╱e4╱*╱ // 0x2d5 @0xb
0x2ca…2de at000c = ╱46╱F╱ // 0x2d6 @0xc
0x2ca…2de at000d = ╱4f╱O╱ // 0x2d7 @0xd
0x2ca…2de at000e = ╱52╱R╱ // 0x2d8 @0xe
0x2ca…2de at000f = ╱54╱T╱ // 0x2d9 @0xf
0x2ca…2de at0010 = ╱45╱E╱ // 0x2da @0x10
0x2ca…2de at0011 = ╱47╱G╱ // 0x2db @0x11
0x2ca…2de at0012 = ╱4e╱N╱ // 0x2dc @0x12
0x2ca…2de at0013 = EOL // 0x2dd @0x13
0x2ca…2de }
0x2de…2f3 904a 0270 IF OK1<B THEN OK1=OK1+E
0x2de…2f3 LineComalBin {
0x2de…2f3 ptr = 0x904a // 0x2de @0x0
0x2de…2f3 lno = 0x010e // 0x2e0 @0x2
0x2de…2f3 at0004 = ╱82╱ IF ╱ // 0x2e2 @0x4
0x2de…2f3 at0005 = ╱4f╱O╱ // 0x2e3 @0x5
0x2de…2f3 at0006 = ╱4b╱K╱ // 0x2e4 @0x6
0x2de…2f3 at0007 = ╱31╱1╱ // 0x2e5 @0x7
0x2de…2f3 at0008 = ╱dd╱<╱ // 0x2e6 @0x8
0x2de…2f3 at0009 = ╱42╱B╱ // 0x2e7 @0x9
0x2de…2f3 at000a = ╱b6╱ THEN ╱ // 0x2e8 @0xa
0x2de…2f3 at000b = ╱4f╱O╱ // 0x2e9 @0xb
0x2de…2f3 at000c = ╱4b╱K╱ // 0x2ea @0xc
0x2de…2f3 at000d = ╱31╱1╱ // 0x2eb @0xd
0x2de…2f3 at000e = ╱dc╱=╱ // 0x2ec @0xe
0x2de…2f3 at000f = ╱4f╱O╱ // 0x2ed @0xf
0x2de…2f3 at0010 = ╱4b╱K╱ // 0x2ee @0x10
0x2de…2f3 at0011 = ╱31╱1╱ // 0x2ef @0x11
0x2de…2f3 at0012 = ╱e2╱+╱ // 0x2f0 @0x12
0x2de…2f3 at0013 = ╱45╱E╱ // 0x2f1 @0x13
0x2de…2f3 at0014 = EOL // 0x2f2 @0x14
0x2de…2f3 }
0x2f3…2f9 9050 0280 ENDIF
0x2f3…2f9 LineComalBin {
0x2f3…2f9 ptr = 0x9050 // 0x2f3 @0x0
0x2f3…2f9 lno = 0x0118 // 0x2f5 @0x2
0x2f3…2f9 at0004 = ╱9b╱ ENDIF ╱ // 0x2f7 @0x4
0x2f3…2f9 at0005 = EOL // 0x2f8 @0x5
0x2f3…2f9 }
0x2f9…2ff 9056 0290 ENDPROC
0x2f9…2ff LineComalBin {
0x2f9…2ff ptr = 0x9056 // 0x2f9 @0x0
0x2f9…2ff lno = 0x0122 // 0x2fb @0x2
0x2f9…2ff at0004 = ╱9f╱ ENDPROC ╱ // 0x2fd @0x4
0x2f9…2ff at0005 = EOL // 0x2fe @0x5
0x2f9…2ff }
0x2ff…30f 9066 0300 PROC INOPL(OPL)
0x2ff…30f LineComalBin {
0x2ff…30f ptr = 0x9066 // 0x2ff @0x0
0x2ff…30f lno = 0x012c // 0x301 @0x2
0x2ff…30f at0004 = ╱9e╱ PROC ╱ // 0x303 @0x4
0x2ff…30f at0005 = ╱49╱I╱ // 0x304 @0x5
0x2ff…30f at0006 = ╱4e╱N╱ // 0x305 @0x6
0x2ff…30f at0007 = ╱4f╱O╱ // 0x306 @0x7
0x2ff…30f at0008 = ╱50╱P╱ // 0x307 @0x8
0x2ff…30f at0009 = ╱4c╱L╱ // 0x308 @0x9
0x2ff…30f at000a = ╱ed╱(╱ // 0x309 @0xa
0x2ff…30f at000b = ╱4f╱O╱ // 0x30a @0xb
0x2ff…30f at000c = ╱50╱P╱ // 0x30b @0xc
0x2ff…30f at000d = ╱4c╱L╱ // 0x30c @0xd
0x2ff…30f at000e = ╱ee╱)╱ // 0x30d @0xe
0x2ff…30f at000f = EOL // 0x30e @0xf
0x2ff…30f }
0x30f…320 9077 0305 EXEC INLINE(OPL)
0x30f…320 LineComalBin {
0x30f…320 ptr = 0x9077 // 0x30f @0x0
0x30f…320 lno = 0x0131 // 0x311 @0x2
0x30f…320 at0004 = ╱9d╱ EXEC ╱ // 0x313 @0x4
0x30f…320 at0005 = ╱49╱I╱ // 0x314 @0x5
0x30f…320 at0006 = ╱4e╱N╱ // 0x315 @0x6
0x30f…320 at0007 = ╱4c╱L╱ // 0x316 @0x7
0x30f…320 at0008 = ╱49╱I╱ // 0x317 @0x8
0x30f…320 at0009 = ╱4e╱N╱ // 0x318 @0x9
0x30f…320 at000a = ╱45╱E╱ // 0x319 @0xa
0x30f…320 at000b = ╱ed╱(╱ // 0x31a @0xb
0x30f…320 at000c = ╱4f╱O╱ // 0x31b @0xc
0x30f…320 at000d = ╱50╱P╱ // 0x31c @0xd
0x30f…320 at000e = ╱4c╱L╱ // 0x31d @0xe
0x30f…320 at000f = ╱ee╱)╱ // 0x31e @0xf
0x30f…320 at0010 = EOL // 0x31f @0x10
0x30f…320 }
0x320…32b 9082 0310 CASE OPL OF
0x320…32b LineComalBin {
0x320…32b ptr = 0x9082 // 0x320 @0x0
0x320…32b lno = 0x0136 // 0x322 @0x2
0x320…32b at0004 = ╱a201╱ CASE ╱ // 0x324 @0x4
0x320…32b at0006 = ╱4f╱O╱ // 0x326 @0x6
0x320…32b at0007 = ╱50╱P╱ // 0x327 @0x7
0x320…32b at0008 = ╱4c╱L╱ // 0x328 @0x8
0x320…32b at0009 = ╱ba╱ OF ╱ // 0x329 @0x9
0x320…32b at000a = EOL // 0x32a @0xa
0x320…32b }
0x32b…333 908a 0315 WHEN E
0x32b…333 LineComalBin {
0x32b…333 ptr = 0x908a // 0x32b @0x0
0x32b…333 lno = 0x013b // 0x32d @0x2
0x32b…333 at0004 = ╱a301╱ WHEN ╱ // 0x32f @0x4
0x32b…333 at0006 = ╱45╱E╱ // 0x331 @0x6
0x32b…333 at0007 = EOL // 0x332 @0x7
0x32b…333 }
0x333…34e 90a5 0320 POST1$(E,7)=LINE$
0x333…34e LineComalBin {
0x333…34e ptr = 0x90a5 // 0x333 @0x0
0x333…34e lno = 0x0140 // 0x335 @0x2
0x333…34e at0004 = ╱50╱P╱ // 0x337 @0x4
0x333…34e at0005 = ╱4f╱O╱ // 0x338 @0x5
0x333…34e at0006 = ╱53╱S╱ // 0x339 @0x6
0x333…34e at0007 = ╱54╱T╱ // 0x33a @0x7
0x333…34e at0008 = ╱31╱1╱ // 0x33b @0x8
0x333…34e at0009 = ╱ef╱$╱ // 0x33c @0x9
0x333…34e at000a = ╱ed╱(╱ // 0x33d @0xa
0x333…34e at000b = ╱45╱E╱ // 0x33e @0xb
0x333…34e at000c = ╱ec╱,╱ // 0x33f @0xc
0x333…34e at000d = ╱37╱7╱ // 0x340 @0xd
0x333…34e at000e = ╱fe0000e003╱ // 0x341 @0xe
0x333…34e at0013 = ╱ee╱)╱ // 0x346 @0x13
0x333…34e at0014 = ╱dc╱=╱ // 0x347 @0x14
0x333…34e at0015 = ╱4c╱L╱ // 0x348 @0x15
0x333…34e at0016 = ╱49╱I╱ // 0x349 @0x16
0x333…34e at0017 = ╱4e╱N╱ // 0x34a @0x17
0x333…34e at0018 = ╱45╱E╱ // 0x34b @0x18
0x333…34e at0019 = ╱ef╱$╱ // 0x34c @0x19
0x333…34e at001a = EOL // 0x34d @0x1a
0x333…34e }
0x34e…356 90ad 0325 WHEN G
0x34e…356 LineComalBin {
0x34e…356 ptr = 0x90ad // 0x34e @0x0
0x34e…356 lno = 0x0145 // 0x350 @0x2
0x34e…356 at0004 = ╱a301╱ WHEN ╱ // 0x352 @0x4
0x34e…356 at0006 = ╱47╱G╱ // 0x354 @0x6
0x34e…356 at0007 = EOL // 0x355 @0x7
0x34e…356 }
0x356…377 90ce 0330 POST1$(8,32)=LINE$
0x356…377 LineComalBin {
0x356…377 ptr = 0x90ce // 0x356 @0x0
0x356…377 lno = 0x014a // 0x358 @0x2
0x356…377 at0004 = ╱50╱P╱ // 0x35a @0x4
0x356…377 at0005 = ╱4f╱O╱ // 0x35b @0x5
0x356…377 at0006 = ╱53╱S╱ // 0x35c @0x6
0x356…377 at0007 = ╱54╱T╱ // 0x35d @0x7
0x356…377 at0008 = ╱31╱1╱ // 0x35e @0x8
0x356…377 at0009 = ╱ef╱$╱ // 0x35f @0x9
0x356…377 at000a = ╱ed╱(╱ // 0x360 @0xa
0x356…377 at000b = ╱38╱8╱ // 0x361 @0xb
0x356…377 at000c = ╱fe00008004╱ // 0x362 @0xc
0x356…377 at0011 = ╱ec╱,╱ // 0x367 @0x11
0x356…377 at0012 = ╱33╱3╱ // 0x368 @0x12
0x356…377 at0013 = ╱32╱2╱ // 0x369 @0x13
0x356…377 at0014 = ╱fe00008006╱ // 0x36a @0x14
0x356…377 at0019 = ╱ee╱)╱ // 0x36f @0x19
0x356…377 at001a = ╱dc╱=╱ // 0x370 @0x1a
0x356…377 at001b = ╱4c╱L╱ // 0x371 @0x1b
0x356…377 at001c = ╱49╱I╱ // 0x372 @0x1c
0x356…377 at001d = ╱4e╱N╱ // 0x373 @0x1d
0x356…377 at001e = ╱45╱E╱ // 0x374 @0x1e
0x356…377 at001f = ╱ef╱$╱ // 0x375 @0x1f
0x356…377 at0020 = EOL // 0x376 @0x20
0x356…377 }
0x377…37f 90d6 0335 WHEN V
0x377…37f LineComalBin {
0x377…37f ptr = 0x90d6 // 0x377 @0x0
0x377…37f lno = 0x014f // 0x379 @0x2
0x377…37f at0004 = ╱a301╱ WHEN ╱ // 0x37b @0x4
0x377…37f at0006 = ╱56╱V╱ // 0x37d @0x6
0x377…37f at0007 = EOL // 0x37e @0x7
0x377…37f }
0x37f…3a1 90f8 0340 POST1$(33,55)=LINE$
0x37f…3a1 LineComalBin {
0x37f…3a1 ptr = 0x90f8 // 0x37f @0x0
0x37f…3a1 lno = 0x0154 // 0x381 @0x2
0x37f…3a1 at0004 = ╱50╱P╱ // 0x383 @0x4
0x37f…3a1 at0005 = ╱4f╱O╱ // 0x384 @0x5
0x37f…3a1 at0006 = ╱53╱S╱ // 0x385 @0x6
0x37f…3a1 at0007 = ╱54╱T╱ // 0x386 @0x7
0x37f…3a1 at0008 = ╱31╱1╱ // 0x387 @0x8
0x37f…3a1 at0009 = ╱ef╱$╱ // 0x388 @0x9
0x37f…3a1 at000a = ╱ed╱(╱ // 0x389 @0xa
0x37f…3a1 at000b = ╱33╱3╱ // 0x38a @0xb
0x37f…3a1 at000c = ╱33╱3╱ // 0x38b @0xc
0x37f…3a1 at000d = ╱fe00008406╱ // 0x38c @0xd
0x37f…3a1 at0012 = ╱ec╱,╱ // 0x391 @0x12
0x37f…3a1 at0013 = ╱35╱5╱ // 0x392 @0x13
0x37f…3a1 at0014 = ╱35╱5╱ // 0x393 @0x14
0x37f…3a1 at0015 = ╱fe0000dc06╱ // 0x394 @0x15
0x37f…3a1 at001a = ╱ee╱)╱ // 0x399 @0x1a
0x37f…3a1 at001b = ╱dc╱=╱ // 0x39a @0x1b
0x37f…3a1 at001c = ╱4c╱L╱ // 0x39b @0x1c
0x37f…3a1 at001d = ╱49╱I╱ // 0x39c @0x1d
0x37f…3a1 at001e = ╱4e╱N╱ // 0x39d @0x1e
0x37f…3a1 at001f = ╱45╱E╱ // 0x39e @0x1f
0x37f…3a1 at0020 = ╱ef╱$╱ // 0x39f @0x20
0x37f…3a1 at0021 = EOL // 0x3a0 @0x21
0x37f…3a1 }
0x3a1…3ae 9105 0345 WHEN 4
0x3a1…3ae LineComalBin {
0x3a1…3ae ptr = 0x9105 // 0x3a1 @0x0
0x3a1…3ae lno = 0x0159 // 0x3a3 @0x2
0x3a1…3ae at0004 = ╱a301╱ WHEN ╱ // 0x3a5 @0x4
0x3a1…3ae at0006 = ╱34╱4╱ // 0x3a7 @0x6
0x3a1…3ae at0007 = ╱fe00008003╱ // 0x3a8 @0x7
0x3a1…3ae at000c = EOL // 0x3ad @0xc
0x3a1…3ae }
0x3ae…3c9 9120 0350 POST2$(E,4)=LINE$
0x3ae…3c9 LineComalBin {
0x3ae…3c9 ptr = 0x9120 // 0x3ae @0x0
0x3ae…3c9 lno = 0x015e // 0x3b0 @0x2
0x3ae…3c9 at0004 = ╱50╱P╱ // 0x3b2 @0x4
0x3ae…3c9 at0005 = ╱4f╱O╱ // 0x3b3 @0x5
0x3ae…3c9 at0006 = ╱53╱S╱ // 0x3b4 @0x6
0x3ae…3c9 at0007 = ╱54╱T╱ // 0x3b5 @0x7
0x3ae…3c9 at0008 = ╱32╱2╱ // 0x3b6 @0x8
0x3ae…3c9 at0009 = ╱ef╱$╱ // 0x3b7 @0x9
0x3ae…3c9 at000a = ╱ed╱(╱ // 0x3b8 @0xa
0x3ae…3c9 at000b = ╱45╱E╱ // 0x3b9 @0xb
0x3ae…3c9 at000c = ╱ec╱,╱ // 0x3ba @0xc
0x3ae…3c9 at000d = ╱34╱4╱ // 0x3bb @0xd
0x3ae…3c9 at000e = ╱fe00008003╱ // 0x3bc @0xe
0x3ae…3c9 at0013 = ╱ee╱)╱ // 0x3c1 @0x13
0x3ae…3c9 at0014 = ╱dc╱=╱ // 0x3c2 @0x14
0x3ae…3c9 at0015 = ╱4c╱L╱ // 0x3c3 @0x15
0x3ae…3c9 at0016 = ╱49╱I╱ // 0x3c4 @0x16
0x3ae…3c9 at0017 = ╱4e╱N╱ // 0x3c5 @0x17
0x3ae…3c9 at0018 = ╱45╱E╱ // 0x3c6 @0x18
0x3ae…3c9 at0019 = ╱ef╱$╱ // 0x3c7 @0x19
0x3ae…3c9 at001a = EOL // 0x3c8 @0x1a
0x3ae…3c9 }
0x3c9…3d6 912d 0355 WHEN 5
0x3c9…3d6 LineComalBin {
0x3c9…3d6 ptr = 0x912d // 0x3c9 @0x0
0x3c9…3d6 lno = 0x0163 // 0x3cb @0x2
0x3c9…3d6 at0004 = ╱a301╱ WHEN ╱ // 0x3cd @0x4
0x3c9…3d6 at0006 = ╱35╱5╱ // 0x3cf @0x6
0x3c9…3d6 at0007 = ╱fe0000a003╱ // 0x3d0 @0x7
0x3c9…3d6 at000c = EOL // 0x3d5 @0xc
0x3c9…3d6 }
0x3d6…3f7 914e 0360 POST2$(5,18)=LINE$
0x3d6…3f7 LineComalBin {
0x3d6…3f7 ptr = 0x914e // 0x3d6 @0x0
0x3d6…3f7 lno = 0x0168 // 0x3d8 @0x2
0x3d6…3f7 at0004 = ╱50╱P╱ // 0x3da @0x4
0x3d6…3f7 at0005 = ╱4f╱O╱ // 0x3db @0x5
0x3d6…3f7 at0006 = ╱53╱S╱ // 0x3dc @0x6
0x3d6…3f7 at0007 = ╱54╱T╱ // 0x3dd @0x7
0x3d6…3f7 at0008 = ╱32╱2╱ // 0x3de @0x8
0x3d6…3f7 at0009 = ╱ef╱$╱ // 0x3df @0x9
0x3d6…3f7 at000a = ╱ed╱(╱ // 0x3e0 @0xa
0x3d6…3f7 at000b = ╱35╱5╱ // 0x3e1 @0xb
0x3d6…3f7 at000c = ╱fe0000a003╱ // 0x3e2 @0xc
0x3d6…3f7 at0011 = ╱ec╱,╱ // 0x3e7 @0x11
0x3d6…3f7 at0012 = ╱31╱1╱ // 0x3e8 @0x12
0x3d6…3f7 at0013 = ╱38╱8╱ // 0x3e9 @0x13
0x3d6…3f7 at0014 = ╱fe00009005╱ // 0x3ea @0x14
0x3d6…3f7 at0019 = ╱ee╱)╱ // 0x3ef @0x19
0x3d6…3f7 at001a = ╱dc╱=╱ // 0x3f0 @0x1a
0x3d6…3f7 at001b = ╱4c╱L╱ // 0x3f1 @0x1b
0x3d6…3f7 at001c = ╱49╱I╱ // 0x3f2 @0x1c
0x3d6…3f7 at001d = ╱4e╱N╱ // 0x3f3 @0x1d
0x3d6…3f7 at001e = ╱45╱E╱ // 0x3f4 @0x1e
0x3d6…3f7 at001f = ╱ef╱$╱ // 0x3f5 @0x1f
0x3d6…3f7 at0020 = EOL // 0x3f6 @0x20
0x3d6…3f7 }
0x3f7…404 915b 0365 WHEN 6
0x3f7…404 LineComalBin {
0x3f7…404 ptr = 0x915b // 0x3f7 @0x0
0x3f7…404 lno = 0x016d // 0x3f9 @0x2
0x3f7…404 at0004 = ╱a301╱ WHEN ╱ // 0x3fb @0x4
0x3f7…404 at0006 = ╱36╱6╱ // 0x3fd @0x6
0x3f7…404 at0007 = ╱fe0000c003╱ // 0x3fe @0x7
0x3f7…404 at000c = EOL // 0x403 @0xc
0x3f7…404 }
0x404…426 917d 0370 POST2$(19,24)=LINE$
0x404…426 LineComalBin {
0x404…426 ptr = 0x917d // 0x404 @0x0
0x404…426 lno = 0x0172 // 0x406 @0x2
0x404…426 at0004 = ╱50╱P╱ // 0x408 @0x4
0x404…426 at0005 = ╱4f╱O╱ // 0x409 @0x5
0x404…426 at0006 = ╱53╱S╱ // 0x40a @0x6
0x404…426 at0007 = ╱54╱T╱ // 0x40b @0x7
0x404…426 at0008 = ╱32╱2╱ // 0x40c @0x8
0x404…426 at0009 = ╱ef╱$╱ // 0x40d @0x9
0x404…426 at000a = ╱ed╱(╱ // 0x40e @0xa
0x404…426 at000b = ╱31╱1╱ // 0x40f @0xb
0x404…426 at000c = ╱39╱9╱ // 0x410 @0xc
0x404…426 at000d = ╱fe00009805╱ // 0x411 @0xd
0x404…426 at0012 = ╱ec╱,╱ // 0x416 @0x12
0x404…426 at0013 = ╱32╱2╱ // 0x417 @0x13
0x404…426 at0014 = ╱34╱4╱ // 0x418 @0x14
0x404…426 at0015 = ╱fe0000c005╱ // 0x419 @0x15
0x404…426 at001a = ╱ee╱)╱ // 0x41e @0x1a
0x404…426 at001b = ╱dc╱=╱ // 0x41f @0x1b
0x404…426 at001c = ╱4c╱L╱ // 0x420 @0x1c
0x404…426 at001d = ╱49╱I╱ // 0x421 @0x1d
0x404…426 at001e = ╱4e╱N╱ // 0x422 @0x1e
0x404…426 at001f = ╱45╱E╱ // 0x423 @0x1f
0x404…426 at0020 = ╱ef╱$╱ // 0x424 @0x20
0x404…426 at0021 = EOL // 0x425 @0x21
0x404…426 }
0x426…433 918a 0375 WHEN 7
0x426…433 LineComalBin {
0x426…433 ptr = 0x918a // 0x426 @0x0
0x426…433 lno = 0x0177 // 0x428 @0x2
0x426…433 at0004 = ╱a301╱ WHEN ╱ // 0x42a @0x4
0x426…433 at0006 = ╱37╱7╱ // 0x42c @0x6
0x426…433 at0007 = ╱fe0000e003╱ // 0x42d @0x7
0x426…433 at000c = EOL // 0x432 @0xc
0x426…433 }
0x433…455 91ac 0380 POST2$(25,34)=LINE$
0x433…455 LineComalBin {
0x433…455 ptr = 0x91ac // 0x433 @0x0
0x433…455 lno = 0x017c // 0x435 @0x2
0x433…455 at0004 = ╱50╱P╱ // 0x437 @0x4
0x433…455 at0005 = ╱4f╱O╱ // 0x438 @0x5
0x433…455 at0006 = ╱53╱S╱ // 0x439 @0x6
0x433…455 at0007 = ╱54╱T╱ // 0x43a @0x7
0x433…455 at0008 = ╱32╱2╱ // 0x43b @0x8
0x433…455 at0009 = ╱ef╱$╱ // 0x43c @0x9
0x433…455 at000a = ╱ed╱(╱ // 0x43d @0xa
0x433…455 at000b = ╱32╱2╱ // 0x43e @0xb
0x433…455 at000c = ╱35╱5╱ // 0x43f @0xc
0x433…455 at000d = ╱fe0000c805╱ // 0x440 @0xd
0x433…455 at0012 = ╱ec╱,╱ // 0x445 @0x12
0x433…455 at0013 = ╱33╱3╱ // 0x446 @0x13
0x433…455 at0014 = ╱34╱4╱ // 0x447 @0x14
0x433…455 at0015 = ╱fe00008806╱ // 0x448 @0x15
0x433…455 at001a = ╱ee╱)╱ // 0x44d @0x1a
0x433…455 at001b = ╱dc╱=╱ // 0x44e @0x1b
0x433…455 at001c = ╱4c╱L╱ // 0x44f @0x1c
0x433…455 at001d = ╱49╱I╱ // 0x450 @0x1d
0x433…455 at001e = ╱4e╱N╱ // 0x451 @0x1e
0x433…455 at001f = ╱45╱E╱ // 0x452 @0x1f
0x433…455 at0020 = ╱ef╱$╱ // 0x453 @0x20
0x433…455 at0021 = EOL // 0x454 @0x21
0x433…455 }
0x455…462 91b9 0381 WHEN 8
0x455…462 LineComalBin {
0x455…462 ptr = 0x91b9 // 0x455 @0x0
0x455…462 lno = 0x017d // 0x457 @0x2
0x455…462 at0004 = ╱a301╱ WHEN ╱ // 0x459 @0x4
0x455…462 at0006 = ╱38╱8╱ // 0x45b @0x6
0x455…462 at0007 = ╱fe00008004╱ // 0x45c @0x7
0x455…462 at000c = EOL // 0x461 @0xc
0x455…462 }
0x462…468 91bf 0382 REPEAT
0x462…468 LineComalBin {
0x462…468 ptr = 0x91bf // 0x462 @0x0
0x462…468 lno = 0x017e // 0x464 @0x2
0x462…468 at0004 = ╱97╱ REPEAT ╱ // 0x466 @0x4
0x462…468 at0005 = EOL // 0x467 @0x5
0x462…468 }
0x468…480 91d7 0383 EXEC DATOCHECK(LINE$,J)
0x468…480 LineComalBin {
0x468…480 ptr = 0x91d7 // 0x468 @0x0
0x468…480 lno = 0x017f // 0x46a @0x2
0x468…480 at0004 = ╱9d╱ EXEC ╱ // 0x46c @0x4
0x468…480 at0005 = ╱44╱D╱ // 0x46d @0x5
0x468…480 at0006 = ╱41╱A╱ // 0x46e @0x6
0x468…480 at0007 = ╱54╱T╱ // 0x46f @0x7
0x468…480 at0008 = ╱4f╱O╱ // 0x470 @0x8
0x468…480 at0009 = ╱43╱C╱ // 0x471 @0x9
0x468…480 at000a = ╱48╱H╱ // 0x472 @0xa
0x468…480 at000b = ╱45╱E╱ // 0x473 @0xb
0x468…480 at000c = ╱43╱C╱ // 0x474 @0xc
0x468…480 at000d = ╱4b╱K╱ // 0x475 @0xd
0x468…480 at000e = ╱ed╱(╱ // 0x476 @0xe
0x468…480 at000f = ╱4c╱L╱ // 0x477 @0xf
0x468…480 at0010 = ╱49╱I╱ // 0x478 @0x10
0x468…480 at0011 = ╱4e╱N╱ // 0x479 @0x11
0x468…480 at0012 = ╱45╱E╱ // 0x47a @0x12
0x468…480 at0013 = ╱ef╱$╱ // 0x47b @0x13
0x468…480 at0014 = ╱ec╱,╱ // 0x47c @0x14
0x468…480 at0015 = ╱4a╱J╱ // 0x47d @0x15
0x468…480 at0016 = ╱ee╱)╱ // 0x47e @0x16
0x468…480 at0017 = EOL // 0x47f @0x17
0x468…480 }
0x480…496 91ed 0384 IF J=B THEN EXEC INLINE(OPL)
0x480…496 LineComalBin {
0x480…496 ptr = 0x91ed // 0x480 @0x0
0x480…496 lno = 0x0180 // 0x482 @0x2
0x480…496 at0004 = ╱82╱ IF ╱ // 0x484 @0x4
0x480…496 at0005 = ╱4a╱J╱ // 0x485 @0x5
0x480…496 at0006 = ╱dc╱=╱ // 0x486 @0x6
0x480…496 at0007 = ╱42╱B╱ // 0x487 @0x7
0x480…496 at0008 = ╱b6╱ THEN ╱ // 0x488 @0x8
0x480…496 at0009 = ╱9d╱ EXEC ╱ // 0x489 @0x9
0x480…496 at000a = ╱49╱I╱ // 0x48a @0xa
0x480…496 at000b = ╱4e╱N╱ // 0x48b @0xb
0x480…496 at000c = ╱4c╱L╱ // 0x48c @0xc
0x480…496 at000d = ╱49╱I╱ // 0x48d @0xd
0x480…496 at000e = ╱4e╱N╱ // 0x48e @0xe
0x480…496 at000f = ╱45╱E╱ // 0x48f @0xf
0x480…496 at0010 = ╱ed╱(╱ // 0x490 @0x10
0x480…496 at0011 = ╱4f╱O╱ // 0x491 @0x11
0x480…496 at0012 = ╱50╱P╱ // 0x492 @0x12
0x480…496 at0013 = ╱4c╱L╱ // 0x493 @0x13
0x480…496 at0014 = ╱ee╱)╱ // 0x494 @0x14
0x480…496 at0015 = EOL // 0x495 @0x15
0x480…496 }
0x496…49f 91f6 0385 UNTIL J>B
0x496…49f LineComalBin {
0x496…49f ptr = 0x91f6 // 0x496 @0x0
0x496…49f lno = 0x0181 // 0x498 @0x2
0x496…49f at0004 = ╱98╱ UNTIL ╱ // 0x49a @0x4
0x496…49f at0005 = ╱4a╱J╱ // 0x49b @0x5
0x496…49f at0006 = ╱de╱>╱ // 0x49c @0x6
0x496…49f at0007 = ╱42╱B╱ // 0x49d @0x7
0x496…49f at0008 = EOL // 0x49e @0x8
0x496…49f }
0x49f…4ae 9205 0386 DAD$=LINE$
0x49f…4ae LineComalBin {
0x49f…4ae ptr = 0x9205 // 0x49f @0x0
0x49f…4ae lno = 0x0182 // 0x4a1 @0x2
0x49f…4ae at0004 = ╱44╱D╱ // 0x4a3 @0x4
0x49f…4ae at0005 = ╱41╱A╱ // 0x4a4 @0x5
0x49f…4ae at0006 = ╱44╱D╱ // 0x4a5 @0x6
0x49f…4ae at0007 = ╱ef╱$╱ // 0x4a6 @0x7
0x49f…4ae at0008 = ╱dc╱=╱ // 0x4a7 @0x8
0x49f…4ae at0009 = ╱4c╱L╱ // 0x4a8 @0x9
0x49f…4ae at000a = ╱49╱I╱ // 0x4a9 @0xa
0x49f…4ae at000b = ╱4e╱N╱ // 0x4aa @0xb
0x49f…4ae at000c = ╱45╱E╱ // 0x4ab @0xc
0x49f…4ae at000d = ╱ef╱$╱ // 0x4ac @0xd
0x49f…4ae at000e = EOL // 0x4ad @0xe
0x49f…4ae }
0x4ae…4b4 920b 0387 ENDCASE
0x4ae…4b4 LineComalBin {
0x4ae…4b4 ptr = 0x920b // 0x4ae @0x0
0x4ae…4b4 lno = 0x0183 // 0x4b0 @0x2
0x4ae…4b4 at0004 = ╱a4╱ ENDCASE ╱ // 0x4b2 @0x4
0x4ae…4b4 at0005 = EOL // 0x4b3 @0x5
0x4ae…4b4 }
0x4b4…4ba 9211 0390 ENDPROC
0x4b4…4ba LineComalBin {
0x4b4…4ba ptr = 0x9211 // 0x4b4 @0x0
0x4b4…4ba lno = 0x0186 // 0x4b6 @0x2
0x4b4…4ba at0004 = ╱9f╱ ENDPROC ╱ // 0x4b8 @0x4
0x4b4…4ba at0005 = EOL // 0x4b9 @0x5
0x4b4…4ba }
0x4ba…4c8 921f 0395 PROC SKRIVOPL
0x4ba…4c8 LineComalBin {
0x4ba…4c8 ptr = 0x921f // 0x4ba @0x0
0x4ba…4c8 lno = 0x018b // 0x4bc @0x2
0x4ba…4c8 at0004 = ╱9e╱ PROC ╱ // 0x4be @0x4
0x4ba…4c8 at0005 = ╱53╱S╱ // 0x4bf @0x5
0x4ba…4c8 at0006 = ╱4b╱K╱ // 0x4c0 @0x6
0x4ba…4c8 at0007 = ╱52╱R╱ // 0x4c1 @0x7
0x4ba…4c8 at0008 = ╱49╱I╱ // 0x4c2 @0x8
0x4ba…4c8 at0009 = ╱56╱V╱ // 0x4c3 @0x9
0x4ba…4c8 at000a = ╱4f╱O╱ // 0x4c4 @0xa
0x4ba…4c8 at000b = ╱50╱P╱ // 0x4c5 @0xb
0x4ba…4c8 at000c = ╱4c╱L╱ // 0x4c6 @0xc
0x4ba…4c8 at000d = EOL // 0x4c7 @0xd
0x4ba…4c8 }
0x4c8…4d6 922d 0400 IF OUTP=B THEN CLEAR
0x4c8…4d6 LineComalBin {
0x4c8…4d6 ptr = 0x922d // 0x4c8 @0x0
0x4c8…4d6 lno = 0x0190 // 0x4ca @0x2
0x4c8…4d6 at0004 = ╱82╱ IF ╱ // 0x4cc @0x4
0x4c8…4d6 at0005 = ╱4f╱O╱ // 0x4cd @0x5
0x4c8…4d6 at0006 = ╱55╱U╱ // 0x4ce @0x6
0x4c8…4d6 at0007 = ╱54╱T╱ // 0x4cf @0x7
0x4c8…4d6 at0008 = ╱50╱P╱ // 0x4d0 @0x8
0x4c8…4d6 at0009 = ╱dc╱=╱ // 0x4d1 @0x9
0x4c8…4d6 at000a = ╱42╱B╱ // 0x4d2 @0xa
0x4c8…4d6 at000b = ╱b6╱ THEN ╱ // 0x4d3 @0xb
0x4c8…4d6 at000c = ╱a0╱ CLEAR ╱ // 0x4d4 @0xc
0x4c8…4d6 at000d = EOL // 0x4d5 @0xd
0x4c8…4d6 }
0x4d6…4e1 9238 0405 FOR J=E TO A
0x4d6…4e1 LineComalBin {
0x4d6…4e1 ptr = 0x9238 // 0x4d6 @0x0
0x4d6…4e1 lno = 0x0195 // 0x4d8 @0x2
0x4d6…4e1 at0004 = ╱83╱ FOR ╱ // 0x4da @0x4
0x4d6…4e1 at0005 = ╱4a╱J╱ // 0x4db @0x5
0x4d6…4e1 at0006 = ╱dc╱=╱ // 0x4dc @0x6
0x4d6…4e1 at0007 = ╱45╱E╱ // 0x4dd @0x7
0x4d6…4e1 at0008 = ╱b7╱ TO ╱ // 0x4de @0x8
0x4d6…4e1 at0009 = ╱41╱A╱ // 0x4df @0x9
0x4d6…4e1 at000a = EOL // 0x4e0 @0xa
0x4d6…4e1 }
0x4e1…4ea 9241 0410 CASE J OF
0x4e1…4ea LineComalBin {
0x4e1…4ea ptr = 0x9241 // 0x4e1 @0x0
0x4e1…4ea lno = 0x019a // 0x4e3 @0x2
0x4e1…4ea at0004 = ╱a201╱ CASE ╱ // 0x4e5 @0x4
0x4e1…4ea at0006 = ╱4a╱J╱ // 0x4e7 @0x6
0x4e1…4ea at0007 = ╱ba╱ OF ╱ // 0x4e8 @0x7
0x4e1…4ea at0008 = EOL // 0x4e9 @0x8
0x4e1…4ea }
0x4ea…4f2 9249 0415 WHEN E
0x4ea…4f2 LineComalBin {
0x4ea…4f2 ptr = 0x9249 // 0x4ea @0x0
0x4ea…4f2 lno = 0x019f // 0x4ec @0x2
0x4ea…4f2 at0004 = ╱a301╱ WHEN ╱ // 0x4ee @0x4
0x4ea…4f2 at0006 = ╱45╱E╱ // 0x4f0 @0x6
0x4ea…4f2 at0007 = EOL // 0x4f1 @0x7
0x4ea…4f2 }
0x4f2…50d 9264 0420 LINE$=POST1$(E,7)
0x4f2…50d LineComalBin {
0x4f2…50d ptr = 0x9264 // 0x4f2 @0x0
0x4f2…50d lno = 0x01a4 // 0x4f4 @0x2
0x4f2…50d at0004 = ╱4c╱L╱ // 0x4f6 @0x4
0x4f2…50d at0005 = ╱49╱I╱ // 0x4f7 @0x5
0x4f2…50d at0006 = ╱4e╱N╱ // 0x4f8 @0x6
0x4f2…50d at0007 = ╱45╱E╱ // 0x4f9 @0x7
0x4f2…50d at0008 = ╱ef╱$╱ // 0x4fa @0x8
0x4f2…50d at0009 = ╱dc╱=╱ // 0x4fb @0x9
0x4f2…50d at000a = ╱50╱P╱ // 0x4fc @0xa
0x4f2…50d at000b = ╱4f╱O╱ // 0x4fd @0xb
0x4f2…50d at000c = ╱53╱S╱ // 0x4fe @0xc
0x4f2…50d at000d = ╱54╱T╱ // 0x4ff @0xd
0x4f2…50d at000e = ╱31╱1╱ // 0x500 @0xe
0x4f2…50d at000f = ╱ef╱$╱ // 0x501 @0xf
0x4f2…50d at0010 = ╱ed╱(╱ // 0x502 @0x10
0x4f2…50d at0011 = ╱45╱E╱ // 0x503 @0x11
0x4f2…50d at0012 = ╱ec╱,╱ // 0x504 @0x12
0x4f2…50d at0013 = ╱37╱7╱ // 0x505 @0x13
0x4f2…50d at0014 = ╱fe0000e003╱ // 0x506 @0x14
0x4f2…50d at0019 = ╱ee╱)╱ // 0x50b @0x19
0x4f2…50d at001a = EOL // 0x50c @0x1a
0x4f2…50d }
0x50d…515 926c 0425 WHEN G
0x50d…515 LineComalBin {
0x50d…515 ptr = 0x926c // 0x50d @0x0
0x50d…515 lno = 0x01a9 // 0x50f @0x2
0x50d…515 at0004 = ╱a301╱ WHEN ╱ // 0x511 @0x4
0x50d…515 at0006 = ╱47╱G╱ // 0x513 @0x6
0x50d…515 at0007 = EOL // 0x514 @0x7
0x50d…515 }
0x515…536 928d 0430 LINE$=POST1$(8,32)
0x515…536 LineComalBin {
0x515…536 ptr = 0x928d // 0x515 @0x0
0x515…536 lno = 0x01ae // 0x517 @0x2
0x515…536 at0004 = ╱4c╱L╱ // 0x519 @0x4
0x515…536 at0005 = ╱49╱I╱ // 0x51a @0x5
0x515…536 at0006 = ╱4e╱N╱ // 0x51b @0x6
0x515…536 at0007 = ╱45╱E╱ // 0x51c @0x7
0x515…536 at0008 = ╱ef╱$╱ // 0x51d @0x8
0x515…536 at0009 = ╱dc╱=╱ // 0x51e @0x9
0x515…536 at000a = ╱50╱P╱ // 0x51f @0xa
0x515…536 at000b = ╱4f╱O╱ // 0x520 @0xb
0x515…536 at000c = ╱53╱S╱ // 0x521 @0xc
0x515…536 at000d = ╱54╱T╱ // 0x522 @0xd
0x515…536 at000e = ╱31╱1╱ // 0x523 @0xe
0x515…536 at000f = ╱ef╱$╱ // 0x524 @0xf
0x515…536 at0010 = ╱ed╱(╱ // 0x525 @0x10
0x515…536 at0011 = ╱38╱8╱ // 0x526 @0x11
0x515…536 at0012 = ╱fe00008004╱ // 0x527 @0x12
0x515…536 at0017 = ╱ec╱,╱ // 0x52c @0x17
0x515…536 at0018 = ╱33╱3╱ // 0x52d @0x18
0x515…536 at0019 = ╱32╱2╱ // 0x52e @0x19
0x515…536 at001a = ╱fe00008006╱ // 0x52f @0x1a
0x515…536 at001f = ╱ee╱)╱ // 0x534 @0x1f
0x515…536 at0020 = EOL // 0x535 @0x20
0x515…536 }
0x536…53e 9295 0435 WHEN V
0x536…53e LineComalBin {
0x536…53e ptr = 0x9295 // 0x536 @0x0
0x536…53e lno = 0x01b3 // 0x538 @0x2
0x536…53e at0004 = ╱a301╱ WHEN ╱ // 0x53a @0x4
0x536…53e at0006 = ╱56╱V╱ // 0x53c @0x6
0x536…53e at0007 = EOL // 0x53d @0x7
0x536…53e }
0x53e…560 92b7 0440 LINE$=POST1$(33,55)
0x53e…560 LineComalBin {
0x53e…560 ptr = 0x92b7 // 0x53e @0x0
0x53e…560 lno = 0x01b8 // 0x540 @0x2
0x53e…560 at0004 = ╱4c╱L╱ // 0x542 @0x4
0x53e…560 at0005 = ╱49╱I╱ // 0x543 @0x5
0x53e…560 at0006 = ╱4e╱N╱ // 0x544 @0x6
0x53e…560 at0007 = ╱45╱E╱ // 0x545 @0x7
0x53e…560 at0008 = ╱ef╱$╱ // 0x546 @0x8
0x53e…560 at0009 = ╱dc╱=╱ // 0x547 @0x9
0x53e…560 at000a = ╱50╱P╱ // 0x548 @0xa
0x53e…560 at000b = ╱4f╱O╱ // 0x549 @0xb
0x53e…560 at000c = ╱53╱S╱ // 0x54a @0xc
0x53e…560 at000d = ╱54╱T╱ // 0x54b @0xd
0x53e…560 at000e = ╱31╱1╱ // 0x54c @0xe
0x53e…560 at000f = ╱ef╱$╱ // 0x54d @0xf
0x53e…560 at0010 = ╱ed╱(╱ // 0x54e @0x10
0x53e…560 at0011 = ╱33╱3╱ // 0x54f @0x11
0x53e…560 at0012 = ╱33╱3╱ // 0x550 @0x12
0x53e…560 at0013 = ╱fe00008406╱ // 0x551 @0x13
0x53e…560 at0018 = ╱ec╱,╱ // 0x556 @0x18
0x53e…560 at0019 = ╱35╱5╱ // 0x557 @0x19
0x53e…560 at001a = ╱35╱5╱ // 0x558 @0x1a
0x53e…560 at001b = ╱fe0000dc06╱ // 0x559 @0x1b
0x53e…560 at0020 = ╱ee╱)╱ // 0x55e @0x20
0x53e…560 at0021 = EOL // 0x55f @0x21
0x53e…560 }
0x560…56d 92c4 0445 WHEN 4
0x560…56d LineComalBin {
0x560…56d ptr = 0x92c4 // 0x560 @0x0
0x560…56d lno = 0x01bd // 0x562 @0x2
0x560…56d at0004 = ╱a301╱ WHEN ╱ // 0x564 @0x4
0x560…56d at0006 = ╱34╱4╱ // 0x566 @0x6
0x560…56d at0007 = ╱fe00008003╱ // 0x567 @0x7
0x560…56d at000c = EOL // 0x56c @0xc
0x560…56d }
0x56d…588 92df 0450 LINE$=POST2$(E,4)
0x56d…588 LineComalBin {
0x56d…588 ptr = 0x92df // 0x56d @0x0
0x56d…588 lno = 0x01c2 // 0x56f @0x2
0x56d…588 at0004 = ╱4c╱L╱ // 0x571 @0x4
0x56d…588 at0005 = ╱49╱I╱ // 0x572 @0x5
0x56d…588 at0006 = ╱4e╱N╱ // 0x573 @0x6
0x56d…588 at0007 = ╱45╱E╱ // 0x574 @0x7
0x56d…588 at0008 = ╱ef╱$╱ // 0x575 @0x8
0x56d…588 at0009 = ╱dc╱=╱ // 0x576 @0x9
0x56d…588 at000a = ╱50╱P╱ // 0x577 @0xa
0x56d…588 at000b = ╱4f╱O╱ // 0x578 @0xb
0x56d…588 at000c = ╱53╱S╱ // 0x579 @0xc
0x56d…588 at000d = ╱54╱T╱ // 0x57a @0xd
0x56d…588 at000e = ╱32╱2╱ // 0x57b @0xe
0x56d…588 at000f = ╱ef╱$╱ // 0x57c @0xf
0x56d…588 at0010 = ╱ed╱(╱ // 0x57d @0x10
0x56d…588 at0011 = ╱45╱E╱ // 0x57e @0x11
0x56d…588 at0012 = ╱ec╱,╱ // 0x57f @0x12
0x56d…588 at0013 = ╱34╱4╱ // 0x580 @0x13
0x56d…588 at0014 = ╱fe00008003╱ // 0x581 @0x14
0x56d…588 at0019 = ╱ee╱)╱ // 0x586 @0x19
0x56d…588 at001a = EOL // 0x587 @0x1a
0x56d…588 }
0x588…595 92ec 0455 WHEN 5
0x588…595 LineComalBin {
0x588…595 ptr = 0x92ec // 0x588 @0x0
0x588…595 lno = 0x01c7 // 0x58a @0x2
0x588…595 at0004 = ╱a301╱ WHEN ╱ // 0x58c @0x4
0x588…595 at0006 = ╱35╱5╱ // 0x58e @0x6
0x588…595 at0007 = ╱fe0000a003╱ // 0x58f @0x7
0x588…595 at000c = EOL // 0x594 @0xc
0x588…595 }
0x595…5b6 930d 0460 LINE$=POST2$(5,18)
0x595…5b6 LineComalBin {
0x595…5b6 ptr = 0x930d // 0x595 @0x0
0x595…5b6 lno = 0x01cc // 0x597 @0x2
0x595…5b6 at0004 = ╱4c╱L╱ // 0x599 @0x4
0x595…5b6 at0005 = ╱49╱I╱ // 0x59a @0x5
0x595…5b6 at0006 = ╱4e╱N╱ // 0x59b @0x6
0x595…5b6 at0007 = ╱45╱E╱ // 0x59c @0x7
0x595…5b6 at0008 = ╱ef╱$╱ // 0x59d @0x8
0x595…5b6 at0009 = ╱dc╱=╱ // 0x59e @0x9
0x595…5b6 at000a = ╱50╱P╱ // 0x59f @0xa
0x595…5b6 at000b = ╱4f╱O╱ // 0x5a0 @0xb
0x595…5b6 at000c = ╱53╱S╱ // 0x5a1 @0xc
0x595…5b6 at000d = ╱54╱T╱ // 0x5a2 @0xd
0x595…5b6 at000e = ╱32╱2╱ // 0x5a3 @0xe
0x595…5b6 at000f = ╱ef╱$╱ // 0x5a4 @0xf
0x595…5b6 at0010 = ╱ed╱(╱ // 0x5a5 @0x10
0x595…5b6 at0011 = ╱35╱5╱ // 0x5a6 @0x11
0x595…5b6 at0012 = ╱fe0000a003╱ // 0x5a7 @0x12
0x595…5b6 at0017 = ╱ec╱,╱ // 0x5ac @0x17
0x595…5b6 at0018 = ╱31╱1╱ // 0x5ad @0x18
0x595…5b6 at0019 = ╱38╱8╱ // 0x5ae @0x19
0x595…5b6 at001a = ╱fe00009005╱ // 0x5af @0x1a
0x595…5b6 at001f = ╱ee╱)╱ // 0x5b4 @0x1f
0x595…5b6 at0020 = EOL // 0x5b5 @0x20
0x595…5b6 }
0x5b6…5c3 931a 0465 WHEN 6
0x5b6…5c3 LineComalBin {
0x5b6…5c3 ptr = 0x931a // 0x5b6 @0x0
0x5b6…5c3 lno = 0x01d1 // 0x5b8 @0x2
0x5b6…5c3 at0004 = ╱a301╱ WHEN ╱ // 0x5ba @0x4
0x5b6…5c3 at0006 = ╱36╱6╱ // 0x5bc @0x6
0x5b6…5c3 at0007 = ╱fe0000c003╱ // 0x5bd @0x7
0x5b6…5c3 at000c = EOL // 0x5c2 @0xc
0x5b6…5c3 }
0x5c3…5e5 933c 0470 LINE$=POST2$(19,24)
0x5c3…5e5 LineComalBin {
0x5c3…5e5 ptr = 0x933c // 0x5c3 @0x0
0x5c3…5e5 lno = 0x01d6 // 0x5c5 @0x2
0x5c3…5e5 at0004 = ╱4c╱L╱ // 0x5c7 @0x4
0x5c3…5e5 at0005 = ╱49╱I╱ // 0x5c8 @0x5
0x5c3…5e5 at0006 = ╱4e╱N╱ // 0x5c9 @0x6
0x5c3…5e5 at0007 = ╱45╱E╱ // 0x5ca @0x7
0x5c3…5e5 at0008 = ╱ef╱$╱ // 0x5cb @0x8
0x5c3…5e5 at0009 = ╱dc╱=╱ // 0x5cc @0x9
0x5c3…5e5 at000a = ╱50╱P╱ // 0x5cd @0xa
0x5c3…5e5 at000b = ╱4f╱O╱ // 0x5ce @0xb
0x5c3…5e5 at000c = ╱53╱S╱ // 0x5cf @0xc
0x5c3…5e5 at000d = ╱54╱T╱ // 0x5d0 @0xd
0x5c3…5e5 at000e = ╱32╱2╱ // 0x5d1 @0xe
0x5c3…5e5 at000f = ╱ef╱$╱ // 0x5d2 @0xf
0x5c3…5e5 at0010 = ╱ed╱(╱ // 0x5d3 @0x10
0x5c3…5e5 at0011 = ╱31╱1╱ // 0x5d4 @0x11
0x5c3…5e5 at0012 = ╱39╱9╱ // 0x5d5 @0x12
0x5c3…5e5 at0013 = ╱fe00009805╱ // 0x5d6 @0x13
0x5c3…5e5 at0018 = ╱ec╱,╱ // 0x5db @0x18
0x5c3…5e5 at0019 = ╱32╱2╱ // 0x5dc @0x19
0x5c3…5e5 at001a = ╱34╱4╱ // 0x5dd @0x1a
0x5c3…5e5 at001b = ╱fe0000c005╱ // 0x5de @0x1b
0x5c3…5e5 at0020 = ╱ee╱)╱ // 0x5e3 @0x20
0x5c3…5e5 at0021 = EOL // 0x5e4 @0x21
0x5c3…5e5 }
0x5e5…5f2 9349 0475 WHEN 7
0x5e5…5f2 LineComalBin {
0x5e5…5f2 ptr = 0x9349 // 0x5e5 @0x0
0x5e5…5f2 lno = 0x01db // 0x5e7 @0x2
0x5e5…5f2 at0004 = ╱a301╱ WHEN ╱ // 0x5e9 @0x4
0x5e5…5f2 at0006 = ╱37╱7╱ // 0x5eb @0x6
0x5e5…5f2 at0007 = ╱fe0000e003╱ // 0x5ec @0x7
0x5e5…5f2 at000c = EOL // 0x5f1 @0xc
0x5e5…5f2 }
0x5f2…614 936b 0480 LINE$=POST2$(25,34)
0x5f2…614 LineComalBin {
0x5f2…614 ptr = 0x936b // 0x5f2 @0x0
0x5f2…614 lno = 0x01e0 // 0x5f4 @0x2
0x5f2…614 at0004 = ╱4c╱L╱ // 0x5f6 @0x4
0x5f2…614 at0005 = ╱49╱I╱ // 0x5f7 @0x5
0x5f2…614 at0006 = ╱4e╱N╱ // 0x5f8 @0x6
0x5f2…614 at0007 = ╱45╱E╱ // 0x5f9 @0x7
0x5f2…614 at0008 = ╱ef╱$╱ // 0x5fa @0x8
0x5f2…614 at0009 = ╱dc╱=╱ // 0x5fb @0x9
0x5f2…614 at000a = ╱50╱P╱ // 0x5fc @0xa
0x5f2…614 at000b = ╱4f╱O╱ // 0x5fd @0xb
0x5f2…614 at000c = ╱53╱S╱ // 0x5fe @0xc
0x5f2…614 at000d = ╱54╱T╱ // 0x5ff @0xd
0x5f2…614 at000e = ╱32╱2╱ // 0x600 @0xe
0x5f2…614 at000f = ╱ef╱$╱ // 0x601 @0xf
0x5f2…614 at0010 = ╱ed╱(╱ // 0x602 @0x10
0x5f2…614 at0011 = ╱32╱2╱ // 0x603 @0x11
0x5f2…614 at0012 = ╱35╱5╱ // 0x604 @0x12
0x5f2…614 at0013 = ╱fe0000c805╱ // 0x605 @0x13
0x5f2…614 at0018 = ╱ec╱,╱ // 0x60a @0x18
0x5f2…614 at0019 = ╱33╱3╱ // 0x60b @0x19
0x5f2…614 at001a = ╱34╱4╱ // 0x60c @0x1a
0x5f2…614 at001b = ╱fe00008806╱ // 0x60d @0x1b
0x5f2…614 at0020 = ╱ee╱)╱ // 0x612 @0x20
0x5f2…614 at0021 = EOL // 0x613 @0x21
0x5f2…614 }
0x614…621 9378 0481 WHEN 8
0x614…621 LineComalBin {
0x614…621 ptr = 0x9378 // 0x614 @0x0
0x614…621 lno = 0x01e1 // 0x616 @0x2
0x614…621 at0004 = ╱a301╱ WHEN ╱ // 0x618 @0x4
0x614…621 at0006 = ╱38╱8╱ // 0x61a @0x6
0x614…621 at0007 = ╱fe00008004╱ // 0x61b @0x7
0x614…621 at000c = EOL // 0x620 @0xc
0x614…621 }
0x621…630 9387 0482 LINE$=DAD$
0x621…630 LineComalBin {
0x621…630 ptr = 0x9387 // 0x621 @0x0
0x621…630 lno = 0x01e2 // 0x623 @0x2
0x621…630 at0004 = ╱4c╱L╱ // 0x625 @0x4
0x621…630 at0005 = ╱49╱I╱ // 0x626 @0x5
0x621…630 at0006 = ╱4e╱N╱ // 0x627 @0x6
0x621…630 at0007 = ╱45╱E╱ // 0x628 @0x7
0x621…630 at0008 = ╱ef╱$╱ // 0x629 @0x8
0x621…630 at0009 = ╱dc╱=╱ // 0x62a @0x9
0x621…630 at000a = ╱44╱D╱ // 0x62b @0xa
0x621…630 at000b = ╱41╱A╱ // 0x62c @0xb
0x621…630 at000c = ╱44╱D╱ // 0x62d @0xc
0x621…630 at000d = ╱ef╱$╱ // 0x62e @0xd
0x621…630 at000e = EOL // 0x62f @0xe
0x621…630 }
0x630…636 938d 0485 ENDCASE
0x630…636 LineComalBin {
0x630…636 ptr = 0x938d // 0x630 @0x0
0x630…636 lno = 0x01e5 // 0x632 @0x2
0x630…636 at0004 = ╱a4╱ ENDCASE ╱ // 0x634 @0x4
0x630…636 at0005 = EOL // 0x635 @0x5
0x630…636 }
0x636…643 939a 0487 IF OUTP=B THEN
0x636…643 LineComalBin {
0x636…643 ptr = 0x939a // 0x636 @0x0
0x636…643 lno = 0x01e7 // 0x638 @0x2
0x636…643 at0004 = ╱9c╱ IF ╱ // 0x63a @0x4
0x636…643 at0005 = ╱4f╱O╱ // 0x63b @0x5
0x636…643 at0006 = ╱55╱U╱ // 0x63c @0x6
0x636…643 at0007 = ╱54╱T╱ // 0x63d @0x7
0x636…643 at0008 = ╱50╱P╱ // 0x63e @0x8
0x636…643 at0009 = ╱dc╱=╱ // 0x63f @0x9
0x636…643 at000a = ╱42╱B╱ // 0x640 @0xa
0x636…643 at000b = ╱b6╱ THEN ╱ // 0x641 @0xb
0x636…643 at000c = EOL // 0x642 @0xc
0x636…643 }
0x643…653 93aa 0490 EXEC OUTLINE(J)
0x643…653 LineComalBin {
0x643…653 ptr = 0x93aa // 0x643 @0x0
0x643…653 lno = 0x01ea // 0x645 @0x2
0x643…653 at0004 = ╱9d╱ EXEC ╱ // 0x647 @0x4
0x643…653 at0005 = ╱4f╱O╱ // 0x648 @0x5
0x643…653 at0006 = ╱55╱U╱ // 0x649 @0x6
0x643…653 at0007 = ╱54╱T╱ // 0x64a @0x7
0x643…653 at0008 = ╱4c╱L╱ // 0x64b @0x8
0x643…653 at0009 = ╱49╱I╱ // 0x64c @0x9
0x643…653 at000a = ╱4e╱N╱ // 0x64d @0xa
0x643…653 at000b = ╱45╱E╱ // 0x64e @0xb
0x643…653 at000c = ╱ed╱(╱ // 0x64f @0xc
0x643…653 at000d = ╱4a╱J╱ // 0x650 @0xd
0x643…653 at000e = ╱ee╱)╱ // 0x651 @0xe
0x643…653 at000f = EOL // 0x652 @0xf
0x643…653 }
0x653…659 93b0 0491 ELSE
0x653…659 LineComalBin {
0x653…659 ptr = 0x93b0 // 0x653 @0x0
0x653…659 lno = 0x01eb // 0x655 @0x2
0x653…659 at0004 = ╱9a╱ ELSE ╱ // 0x657 @0x4
0x653…659 at0005 = EOL // 0x658 @0x5
0x653…659 }
0x659…66a 93c1 0492 EXEC OUTPLINE(J)
0x659…66a LineComalBin {
0x659…66a ptr = 0x93c1 // 0x659 @0x0
0x659…66a lno = 0x01ec // 0x65b @0x2
0x659…66a at0004 = ╱9d╱ EXEC ╱ // 0x65d @0x4
0x659…66a at0005 = ╱4f╱O╱ // 0x65e @0x5
0x659…66a at0006 = ╱55╱U╱ // 0x65f @0x6
0x659…66a at0007 = ╱54╱T╱ // 0x660 @0x7
0x659…66a at0008 = ╱50╱P╱ // 0x661 @0x8
0x659…66a at0009 = ╱4c╱L╱ // 0x662 @0x9
0x659…66a at000a = ╱49╱I╱ // 0x663 @0xa
0x659…66a at000b = ╱4e╱N╱ // 0x664 @0xb
0x659…66a at000c = ╱45╱E╱ // 0x665 @0xc
0x659…66a at000d = ╱ed╱(╱ // 0x666 @0xd
0x659…66a at000e = ╱4a╱J╱ // 0x667 @0xe
0x659…66a at000f = ╱ee╱)╱ // 0x668 @0xf
0x659…66a at0010 = EOL // 0x669 @0x10
0x659…66a }
0x66a…670 93c7 0493 ENDIF
0x66a…670 LineComalBin {
0x66a…670 ptr = 0x93c7 // 0x66a @0x0
0x66a…670 lno = 0x01ed // 0x66c @0x2
0x66a…670 at0004 = ╱9b╱ ENDIF ╱ // 0x66e @0x4
0x66a…670 at0005 = EOL // 0x66f @0x5
0x66a…670 }
0x670…677 93ce 0495 NEXT J
0x670…677 LineComalBin {
0x670…677 ptr = 0x93ce // 0x670 @0x0
0x670…677 lno = 0x01ef // 0x672 @0x2
0x670…677 at0004 = ╱84╱ NEXT ╱ // 0x674 @0x4
0x670…677 at0005 = ╱4a╱J╱ // 0x675 @0x5
0x670…677 at0006 = EOL // 0x676 @0x6
0x670…677 }
0x677…67d 93d4 0500 ENDPROC
0x677…67d LineComalBin {
0x677…67d ptr = 0x93d4 // 0x677 @0x0
0x677…67d lno = 0x01f4 // 0x679 @0x2
0x677…67d at0004 = ╱9f╱ ENDPROC ╱ // 0x67b @0x4
0x677…67d at0005 = EOL // 0x67c @0x5
0x677…67d }
0x67d…68d 93e4 0505 PROC OUTLINE(N)
0x67d…68d LineComalBin {
0x67d…68d ptr = 0x93e4 // 0x67d @0x0
0x67d…68d lno = 0x01f9 // 0x67f @0x2
0x67d…68d at0004 = ╱9e╱ PROC ╱ // 0x681 @0x4
0x67d…68d at0005 = ╱4f╱O╱ // 0x682 @0x5
0x67d…68d at0006 = ╱55╱U╱ // 0x683 @0x6
0x67d…68d at0007 = ╱54╱T╱ // 0x684 @0x7
0x67d…68d at0008 = ╱4c╱L╱ // 0x685 @0x8
0x67d…68d at0009 = ╱49╱I╱ // 0x686 @0x9
0x67d…68d at000a = ╱4e╱N╱ // 0x687 @0xa
0x67d…68d at000b = ╱45╱E╱ // 0x688 @0xb
0x67d…68d at000c = ╱ed╱(╱ // 0x689 @0xc
0x67d…68d at000d = ╱4e╱N╱ // 0x68a @0xd
0x67d…68d at000e = ╱ee╱)╱ // 0x68b @0xe
0x67d…68d at000f = EOL // 0x68c @0xf
0x67d…68d }
0x68d…69c 93f3 0510 CURSOR X(N),Y(N)
0x68d…69c LineComalBin {
0x68d…69c ptr = 0x93f3 // 0x68d @0x0
0x68d…69c lno = 0x01fe // 0x68f @0x2
0x68d…69c at0004 = ╱a1╱ CURSOR ╱ // 0x691 @0x4
0x68d…69c at0005 = ╱58╱X╱ // 0x692 @0x5
0x68d…69c at0006 = ╱ed╱(╱ // 0x693 @0x6
0x68d…69c at0007 = ╱4e╱N╱ // 0x694 @0x7
0x68d…69c at0008 = ╱ee╱)╱ // 0x695 @0x8
0x68d…69c at0009 = ╱ec╱,╱ // 0x696 @0x9
0x68d…69c at000a = ╱59╱Y╱ // 0x697 @0xa
0x68d…69c at000b = ╱ed╱(╱ // 0x698 @0xb
0x68d…69c at000c = ╱4e╱N╱ // 0x699 @0xc
0x68d…69c at000d = ╱ee╱)╱ // 0x69a @0xd
0x68d…69c at000e = EOL // 0x69b @0xe
0x68d…69c }
0x69c…6ac 9403 0515 PRINT USING "### ":N;
0x69c…6ac LineComalBin {
0x69c…6ac ptr = 0x9403 // 0x69c @0x0
0x69c…6ac lno = 0x0203 // 0x69e @0x2
0x69c…6ac at0004 = ╱92╱ PRINT ╱ // 0x6a0 @0x4
0x69c…6ac at0005 = ╱b9╱ USING ╱ // 0x6a1 @0x5
0x69c…6ac at0006 = ╱22╱"╱ // 0x6a2 @0x6
0x69c…6ac at0007 = ╱23╱#╱ // 0x6a3 @0x7
0x69c…6ac at0008 = ╱23╱#╱ // 0x6a4 @0x8
0x69c…6ac at0009 = ╱23╱#╱ // 0x6a5 @0x9
0x69c…6ac at000a = ╱20╱…╱ // 0x6a6 @0xa
0x69c…6ac at000b = ╱22╱"╱ // 0x6a7 @0xb
0x69c…6ac at000c = ╱f0╱:╱ // 0x6a8 @0xc
0x69c…6ac at000d = ╱4e╱N╱ // 0x6a9 @0xd
0x69c…6ac at000e = ╱eb╱;╱ // 0x6aa @0xe
0x69c…6ac at000f = EOL // 0x6ab @0xf
0x69c…6ac }
0x6ac…6bb 9412 0520 PRINT PICT$(N);
0x6ac…6bb LineComalBin {
0x6ac…6bb ptr = 0x9412 // 0x6ac @0x0
0x6ac…6bb lno = 0x0208 // 0x6ae @0x2
0x6ac…6bb at0004 = ╱92╱ PRINT ╱ // 0x6b0 @0x4
0x6ac…6bb at0005 = ╱50╱P╱ // 0x6b1 @0x5
0x6ac…6bb at0006 = ╱49╱I╱ // 0x6b2 @0x6
0x6ac…6bb at0007 = ╱43╱C╱ // 0x6b3 @0x7
0x6ac…6bb at0008 = ╱54╱T╱ // 0x6b4 @0x8
0x6ac…6bb at0009 = ╱ef╱$╱ // 0x6b5 @0x9
0x6ac…6bb at000a = ╱ed╱(╱ // 0x6b6 @0xa
0x6ac…6bb at000b = ╱4e╱N╱ // 0x6b7 @0xb
0x6ac…6bb at000c = ╱ee╱)╱ // 0x6b8 @0xc
0x6ac…6bb at000d = ╱eb╱;╱ // 0x6b9 @0xd
0x6ac…6bb at000e = EOL // 0x6ba @0xe
0x6ac…6bb }
0x6bb…6d2 9429 0525 CURSOR X(N)+25,Y(N)
0x6bb…6d2 LineComalBin {
0x6bb…6d2 ptr = 0x9429 // 0x6bb @0x0
0x6bb…6d2 lno = 0x020d // 0x6bd @0x2
0x6bb…6d2 at0004 = ╱a1╱ CURSOR ╱ // 0x6bf @0x4
0x6bb…6d2 at0005 = ╱58╱X╱ // 0x6c0 @0x5
0x6bb…6d2 at0006 = ╱ed╱(╱ // 0x6c1 @0x6
0x6bb…6d2 at0007 = ╱4e╱N╱ // 0x6c2 @0x7
0x6bb…6d2 at0008 = ╱ee╱)╱ // 0x6c3 @0x8
0x6bb…6d2 at0009 = ╱e2╱+╱ // 0x6c4 @0x9
0x6bb…6d2 at000a = ╱32╱2╱ // 0x6c5 @0xa
0x6bb…6d2 at000b = ╱35╱5╱ // 0x6c6 @0xb
0x6bb…6d2 at000c = ╱fe0000c805╱ // 0x6c7 @0xc
0x6bb…6d2 at0011 = ╱ec╱,╱ // 0x6cc @0x11
0x6bb…6d2 at0012 = ╱59╱Y╱ // 0x6cd @0x12
0x6bb…6d2 at0013 = ╱ed╱(╱ // 0x6ce @0x13
0x6bb…6d2 at0014 = ╱4e╱N╱ // 0x6cf @0x14
0x6bb…6d2 at0015 = ╱ee╱)╱ // 0x6d0 @0x15
0x6bb…6d2 at0016 = EOL // 0x6d1 @0x16
0x6bb…6d2 }
0x6d2…6dd 9434 0530 PRINT LINE$
0x6d2…6dd LineComalBin {
0x6d2…6dd ptr = 0x9434 // 0x6d2 @0x0
0x6d2…6dd lno = 0x0212 // 0x6d4 @0x2
0x6d2…6dd at0004 = ╱92╱ PRINT ╱ // 0x6d6 @0x4
0x6d2…6dd at0005 = ╱4c╱L╱ // 0x6d7 @0x5
0x6d2…6dd at0006 = ╱49╱I╱ // 0x6d8 @0x6
0x6d2…6dd at0007 = ╱4e╱N╱ // 0x6d9 @0x7
0x6d2…6dd at0008 = ╱45╱E╱ // 0x6da @0x8
0x6d2…6dd at0009 = ╱ef╱$╱ // 0x6db @0x9
0x6d2…6dd at000a = EOL // 0x6dc @0xa
0x6d2…6dd }
0x6dd…6e3 943a 0535 ENDPROC
0x6dd…6e3 LineComalBin {
0x6dd…6e3 ptr = 0x943a // 0x6dd @0x0
0x6dd…6e3 lno = 0x0217 // 0x6df @0x2
0x6dd…6e3 at0004 = ╱9f╱ ENDPROC ╱ // 0x6e1 @0x4
0x6dd…6e3 at0005 = EOL // 0x6e2 @0x5
0x6dd…6e3 }
0x6e3…6f0 9447 0540 PROC INDVIRK
0x6e3…6f0 LineComalBin {
0x6e3…6f0 ptr = 0x9447 // 0x6e3 @0x0
0x6e3…6f0 lno = 0x021c // 0x6e5 @0x2
0x6e3…6f0 at0004 = ╱9e╱ PROC ╱ // 0x6e7 @0x4
0x6e3…6f0 at0005 = ╱49╱I╱ // 0x6e8 @0x5
0x6e3…6f0 at0006 = ╱4e╱N╱ // 0x6e9 @0x6
0x6e3…6f0 at0007 = ╱44╱D╱ // 0x6ea @0x7
0x6e3…6f0 at0008 = ╱56╱V╱ // 0x6eb @0x8
0x6e3…6f0 at0009 = ╱49╱I╱ // 0x6ec @0x9
0x6e3…6f0 at000a = ╱52╱R╱ // 0x6ed @0xa
0x6e3…6f0 at000b = ╱4b╱K╱ // 0x6ee @0xb
0x6e3…6f0 at000c = EOL // 0x6ef @0xc
0x6e3…6f0 }
0x6f0…6fc 9453 0545 OPEN FIL$,W
0x6f0…6fc LineComalBin {
0x6f0…6fc ptr = 0x9453 // 0x6f0 @0x0
0x6f0…6fc lno = 0x0221 // 0x6f2 @0x2
0x6f0…6fc at0004 = ╱a7╱ OPEN ╱ // 0x6f4 @0x4
0x6f0…6fc at0005 = ╱46╱F╱ // 0x6f5 @0x5
0x6f0…6fc at0006 = ╱49╱I╱ // 0x6f6 @0x6
0x6f0…6fc at0007 = ╱4c╱L╱ // 0x6f7 @0x7
0x6f0…6fc at0008 = ╱ef╱$╱ // 0x6f8 @0x8
0x6f0…6fc at0009 = ╱ec╱,╱ // 0x6f9 @0x9
0x6f0…6fc at000a = ╱57╱W╱ // 0x6fa @0xa
0x6f0…6fc at000b = EOL // 0x6fb @0xb
0x6f0…6fc }
0x6fc…710 9467 0550 EXEC FEJL(B,B,FIL$)
0x6fc…710 LineComalBin {
0x6fc…710 ptr = 0x9467 // 0x6fc @0x0
0x6fc…710 lno = 0x0226 // 0x6fe @0x2
0x6fc…710 at0004 = ╱9d╱ EXEC ╱ // 0x700 @0x4
0x6fc…710 at0005 = ╱46╱F╱ // 0x701 @0x5
0x6fc…710 at0006 = ╱45╱E╱ // 0x702 @0x6
0x6fc…710 at0007 = ╱4a╱J╱ // 0x703 @0x7
0x6fc…710 at0008 = ╱4c╱L╱ // 0x704 @0x8
0x6fc…710 at0009 = ╱ed╱(╱ // 0x705 @0x9
0x6fc…710 at000a = ╱42╱B╱ // 0x706 @0xa
0x6fc…710 at000b = ╱ec╱,╱ // 0x707 @0xb
0x6fc…710 at000c = ╱42╱B╱ // 0x708 @0xc
0x6fc…710 at000d = ╱ec╱,╱ // 0x709 @0xd
0x6fc…710 at000e = ╱46╱F╱ // 0x70a @0xe
0x6fc…710 at000f = ╱49╱I╱ // 0x70b @0xf
0x6fc…710 at0010 = ╱4c╱L╱ // 0x70c @0x10
0x6fc…710 at0011 = ╱ef╱$╱ // 0x70d @0x11
0x6fc…710 at0012 = ╱ee╱)╱ // 0x70e @0x12
0x6fc…710 at0013 = EOL // 0x70f @0x13
0x6fc…710 }
0x710…723 947a 0555 GET FIL$,E:POST1$
0x710…723 LineComalBin {
0x710…723 ptr = 0x947a // 0x710 @0x0
0x710…723 lno = 0x022b // 0x712 @0x2
0x710…723 at0004 = ╱a9╱ GET ╱ // 0x714 @0x4
0x710…723 at0005 = ╱46╱F╱ // 0x715 @0x5
0x710…723 at0006 = ╱49╱I╱ // 0x716 @0x6
0x710…723 at0007 = ╱4c╱L╱ // 0x717 @0x7
0x710…723 at0008 = ╱ef╱$╱ // 0x718 @0x8
0x710…723 at0009 = ╱ec╱,╱ // 0x719 @0x9
0x710…723 at000a = ╱45╱E╱ // 0x71a @0xa
0x710…723 at000b = ╱f0╱:╱ // 0x71b @0xb
0x710…723 at000c = ╱50╱P╱ // 0x71c @0xc
0x710…723 at000d = ╱4f╱O╱ // 0x71d @0xd
0x710…723 at000e = ╱53╱S╱ // 0x71e @0xe
0x710…723 at000f = ╱54╱T╱ // 0x71f @0xf
0x710…723 at0010 = ╱31╱1╱ // 0x720 @0x10
0x710…723 at0011 = ╱ef╱$╱ // 0x721 @0x11
0x710…723 at0012 = EOL // 0x722 @0x12
0x710…723 }
0x723…748 949f 0560 GET FIL$,G:POST2$,SLJNR,MLMNR,ATPLM
0x723…748 LineComalBin {
0x723…748 ptr = 0x949f // 0x723 @0x0
0x723…748 lno = 0x0230 // 0x725 @0x2
0x723…748 at0004 = ╱a9╱ GET ╱ // 0x727 @0x4
0x723…748 at0005 = ╱46╱F╱ // 0x728 @0x5
0x723…748 at0006 = ╱49╱I╱ // 0x729 @0x6
0x723…748 at0007 = ╱4c╱L╱ // 0x72a @0x7
0x723…748 at0008 = ╱ef╱$╱ // 0x72b @0x8
0x723…748 at0009 = ╱ec╱,╱ // 0x72c @0x9
0x723…748 at000a = ╱47╱G╱ // 0x72d @0xa
0x723…748 at000b = ╱f0╱:╱ // 0x72e @0xb
0x723…748 at000c = ╱50╱P╱ // 0x72f @0xc
0x723…748 at000d = ╱4f╱O╱ // 0x730 @0xd
0x723…748 at000e = ╱53╱S╱ // 0x731 @0xe
0x723…748 at000f = ╱54╱T╱ // 0x732 @0xf
0x723…748 at0010 = ╱32╱2╱ // 0x733 @0x10
0x723…748 at0011 = ╱ef╱$╱ // 0x734 @0x11
0x723…748 at0012 = ╱ec╱,╱ // 0x735 @0x12
0x723…748 at0013 = ╱53╱S╱ // 0x736 @0x13
0x723…748 at0014 = ╱4c╱L╱ // 0x737 @0x14
0x723…748 at0015 = ╱4a╱J╱ // 0x738 @0x15
0x723…748 at0016 = ╱4e╱N╱ // 0x739 @0x16
0x723…748 at0017 = ╱52╱R╱ // 0x73a @0x17
0x723…748 at0018 = ╱ec╱,╱ // 0x73b @0x18
0x723…748 at0019 = ╱4d╱M╱ // 0x73c @0x19
0x723…748 at001a = ╱4c╱L╱ // 0x73d @0x1a
0x723…748 at001b = ╱4d╱M╱ // 0x73e @0x1b
0x723…748 at001c = ╱4e╱N╱ // 0x73f @0x1c
0x723…748 at001d = ╱52╱R╱ // 0x740 @0x1d
0x723…748 at001e = ╱ec╱,╱ // 0x741 @0x1e
0x723…748 at001f = ╱41╱A╱ // 0x742 @0x1f
0x723…748 at0020 = ╱54╱T╱ // 0x743 @0x20
0x723…748 at0021 = ╱50╱P╱ // 0x744 @0x21
0x723…748 at0022 = ╱4c╱L╱ // 0x745 @0x22
0x723…748 at0023 = ╱4d╱M╱ // 0x746 @0x23
0x723…748 at0024 = EOL // 0x747 @0x24
0x723…748 }
0x748…759 94b0 0563 GET FIL$,V:DAD$
0x748…759 LineComalBin {
0x748…759 ptr = 0x94b0 // 0x748 @0x0
0x748…759 lno = 0x0233 // 0x74a @0x2
0x748…759 at0004 = ╱a9╱ GET ╱ // 0x74c @0x4
0x748…759 at0005 = ╱46╱F╱ // 0x74d @0x5
0x748…759 at0006 = ╱49╱I╱ // 0x74e @0x6
0x748…759 at0007 = ╱4c╱L╱ // 0x74f @0x7
0x748…759 at0008 = ╱ef╱$╱ // 0x750 @0x8
0x748…759 at0009 = ╱ec╱,╱ // 0x751 @0x9
0x748…759 at000a = ╱56╱V╱ // 0x752 @0xa
0x748…759 at000b = ╱f0╱:╱ // 0x753 @0xb
0x748…759 at000c = ╱44╱D╱ // 0x754 @0xc
0x748…759 at000d = ╱41╱A╱ // 0x755 @0xd
0x748…759 at000e = ╱44╱D╱ // 0x756 @0xe
0x748…759 at000f = ╱ef╱$╱ // 0x757 @0xf
0x748…759 at0010 = EOL // 0x758 @0x10
0x748…759 }
0x759…75f 94b6 0565 ENDPROC
0x759…75f LineComalBin {
0x759…75f ptr = 0x94b6 // 0x759 @0x0
0x759…75f lno = 0x0235 // 0x75b @0x2
0x759…75f at0004 = ╱9f╱ ENDPROC ╱ // 0x75d @0x4
0x759…75f at0005 = EOL // 0x75e @0x5
0x759…75f }
0x75f…76b 94c2 0570 PROC UDVIRK
0x75f…76b LineComalBin {
0x75f…76b ptr = 0x94c2 // 0x75f @0x0
0x75f…76b lno = 0x023a // 0x761 @0x2
0x75f…76b at0004 = ╱9e╱ PROC ╱ // 0x763 @0x4
0x75f…76b at0005 = ╱55╱U╱ // 0x764 @0x5
0x75f…76b at0006 = ╱44╱D╱ // 0x765 @0x6
0x75f…76b at0007 = ╱56╱V╱ // 0x766 @0x7
0x75f…76b at0008 = ╱49╱I╱ // 0x767 @0x8
0x75f…76b at0009 = ╱52╱R╱ // 0x768 @0x9
0x75f…76b at000a = ╱4b╱K╱ // 0x769 @0xa
0x75f…76b at000b = EOL // 0x76a @0xb
0x75f…76b }
0x76b…77e 94d5 0575 PUT FIL$,E:POST1$
0x76b…77e LineComalBin {
0x76b…77e ptr = 0x94d5 // 0x76b @0x0
0x76b…77e lno = 0x023f // 0x76d @0x2
0x76b…77e at0004 = ╱aa╱ PUT ╱ // 0x76f @0x4
0x76b…77e at0005 = ╱46╱F╱ // 0x770 @0x5
0x76b…77e at0006 = ╱49╱I╱ // 0x771 @0x6
0x76b…77e at0007 = ╱4c╱L╱ // 0x772 @0x7
0x76b…77e at0008 = ╱ef╱$╱ // 0x773 @0x8
0x76b…77e at0009 = ╱ec╱,╱ // 0x774 @0x9
0x76b…77e at000a = ╱45╱E╱ // 0x775 @0xa
0x76b…77e at000b = ╱f0╱:╱ // 0x776 @0xb
0x76b…77e at000c = ╱50╱P╱ // 0x777 @0xc
0x76b…77e at000d = ╱4f╱O╱ // 0x778 @0xd
0x76b…77e at000e = ╱53╱S╱ // 0x779 @0xe
0x76b…77e at000f = ╱54╱T╱ // 0x77a @0xf
0x76b…77e at0010 = ╱31╱1╱ // 0x77b @0x10
0x76b…77e at0011 = ╱ef╱$╱ // 0x77c @0x11
0x76b…77e at0012 = EOL // 0x77d @0x12
0x76b…77e }
0x77e…7a3 94fa 0580 PUT FIL$,G:POST2$,SLJNR,MLMNR,ATPLM
0x77e…7a3 LineComalBin {
0x77e…7a3 ptr = 0x94fa // 0x77e @0x0
0x77e…7a3 lno = 0x0244 // 0x780 @0x2
0x77e…7a3 at0004 = ╱aa╱ PUT ╱ // 0x782 @0x4
0x77e…7a3 at0005 = ╱46╱F╱ // 0x783 @0x5
0x77e…7a3 at0006 = ╱49╱I╱ // 0x784 @0x6
0x77e…7a3 at0007 = ╱4c╱L╱ // 0x785 @0x7
0x77e…7a3 at0008 = ╱ef╱$╱ // 0x786 @0x8
0x77e…7a3 at0009 = ╱ec╱,╱ // 0x787 @0x9
0x77e…7a3 at000a = ╱47╱G╱ // 0x788 @0xa
0x77e…7a3 at000b = ╱f0╱:╱ // 0x789 @0xb
0x77e…7a3 at000c = ╱50╱P╱ // 0x78a @0xc
0x77e…7a3 at000d = ╱4f╱O╱ // 0x78b @0xd
0x77e…7a3 at000e = ╱53╱S╱ // 0x78c @0xe
0x77e…7a3 at000f = ╱54╱T╱ // 0x78d @0xf
0x77e…7a3 at0010 = ╱32╱2╱ // 0x78e @0x10
0x77e…7a3 at0011 = ╱ef╱$╱ // 0x78f @0x11
0x77e…7a3 at0012 = ╱ec╱,╱ // 0x790 @0x12
0x77e…7a3 at0013 = ╱53╱S╱ // 0x791 @0x13
0x77e…7a3 at0014 = ╱4c╱L╱ // 0x792 @0x14
0x77e…7a3 at0015 = ╱4a╱J╱ // 0x793 @0x15
0x77e…7a3 at0016 = ╱4e╱N╱ // 0x794 @0x16
0x77e…7a3 at0017 = ╱52╱R╱ // 0x795 @0x17
0x77e…7a3 at0018 = ╱ec╱,╱ // 0x796 @0x18
0x77e…7a3 at0019 = ╱4d╱M╱ // 0x797 @0x19
0x77e…7a3 at001a = ╱4c╱L╱ // 0x798 @0x1a
0x77e…7a3 at001b = ╱4d╱M╱ // 0x799 @0x1b
0x77e…7a3 at001c = ╱4e╱N╱ // 0x79a @0x1c
0x77e…7a3 at001d = ╱52╱R╱ // 0x79b @0x1d
0x77e…7a3 at001e = ╱ec╱,╱ // 0x79c @0x1e
0x77e…7a3 at001f = ╱41╱A╱ // 0x79d @0x1f
0x77e…7a3 at0020 = ╱54╱T╱ // 0x79e @0x20
0x77e…7a3 at0021 = ╱50╱P╱ // 0x79f @0x21
0x77e…7a3 at0022 = ╱4c╱L╱ // 0x7a0 @0x22
0x77e…7a3 at0023 = ╱4d╱M╱ // 0x7a1 @0x23
0x77e…7a3 at0024 = EOL // 0x7a2 @0x24
0x77e…7a3 }
0x7a3…7b4 950b 0583 PUT FIL$,V:DAD$
0x7a3…7b4 LineComalBin {
0x7a3…7b4 ptr = 0x950b // 0x7a3 @0x0
0x7a3…7b4 lno = 0x0247 // 0x7a5 @0x2
0x7a3…7b4 at0004 = ╱aa╱ PUT ╱ // 0x7a7 @0x4
0x7a3…7b4 at0005 = ╱46╱F╱ // 0x7a8 @0x5
0x7a3…7b4 at0006 = ╱49╱I╱ // 0x7a9 @0x6
0x7a3…7b4 at0007 = ╱4c╱L╱ // 0x7aa @0x7
0x7a3…7b4 at0008 = ╱ef╱$╱ // 0x7ab @0x8
0x7a3…7b4 at0009 = ╱ec╱,╱ // 0x7ac @0x9
0x7a3…7b4 at000a = ╱56╱V╱ // 0x7ad @0xa
0x7a3…7b4 at000b = ╱f0╱:╱ // 0x7ae @0xb
0x7a3…7b4 at000c = ╱44╱D╱ // 0x7af @0xc
0x7a3…7b4 at000d = ╱41╱A╱ // 0x7b0 @0xd
0x7a3…7b4 at000e = ╱44╱D╱ // 0x7b1 @0xe
0x7a3…7b4 at000f = ╱ef╱$╱ // 0x7b2 @0xf
0x7a3…7b4 at0010 = EOL // 0x7b3 @0x10
0x7a3…7b4 }
0x7b4…7be 9515 0585 CLOSE FIL$
0x7b4…7be LineComalBin {
0x7b4…7be ptr = 0x9515 // 0x7b4 @0x0
0x7b4…7be lno = 0x0249 // 0x7b6 @0x2
0x7b4…7be at0004 = ╱a8╱ CLOSE ╱ // 0x7b8 @0x4
0x7b4…7be at0005 = ╱46╱F╱ // 0x7b9 @0x5
0x7b4…7be at0006 = ╱49╱I╱ // 0x7ba @0x6
0x7b4…7be at0007 = ╱4c╱L╱ // 0x7bb @0x7
0x7b4…7be at0008 = ╱ef╱$╱ // 0x7bc @0x8
0x7b4…7be at0009 = EOL // 0x7bd @0x9
0x7b4…7be }
0x7be…7d2 9529 0590 EXEC FEJL(E,B,FIL$)
0x7be…7d2 LineComalBin {
0x7be…7d2 ptr = 0x9529 // 0x7be @0x0
0x7be…7d2 lno = 0x024e // 0x7c0 @0x2
0x7be…7d2 at0004 = ╱9d╱ EXEC ╱ // 0x7c2 @0x4
0x7be…7d2 at0005 = ╱46╱F╱ // 0x7c3 @0x5
0x7be…7d2 at0006 = ╱45╱E╱ // 0x7c4 @0x6
0x7be…7d2 at0007 = ╱4a╱J╱ // 0x7c5 @0x7
0x7be…7d2 at0008 = ╱4c╱L╱ // 0x7c6 @0x8
0x7be…7d2 at0009 = ╱ed╱(╱ // 0x7c7 @0x9
0x7be…7d2 at000a = ╱45╱E╱ // 0x7c8 @0xa
0x7be…7d2 at000b = ╱ec╱,╱ // 0x7c9 @0xb
0x7be…7d2 at000c = ╱42╱B╱ // 0x7ca @0xc
0x7be…7d2 at000d = ╱ec╱,╱ // 0x7cb @0xd
0x7be…7d2 at000e = ╱46╱F╱ // 0x7cc @0xe
0x7be…7d2 at000f = ╱49╱I╱ // 0x7cd @0xf
0x7be…7d2 at0010 = ╱4c╱L╱ // 0x7ce @0x10
0x7be…7d2 at0011 = ╱ef╱$╱ // 0x7cf @0x11
0x7be…7d2 at0012 = ╱ee╱)╱ // 0x7d0 @0x12
0x7be…7d2 at0013 = EOL // 0x7d1 @0x13
0x7be…7d2 }
0x7d2…7d8 (26,) 952f 0595 ENDPROC
0x7d2…7d8 LineComalBin {
0x7d2…7d8 ptr = 0x952f // 0x7d2 @0x0
0x7d2…7d8 lno = 0x0253 // 0x7d4 @0x2
0x7d2…7d8 at0004 = ╱9f╱ ENDPROC ╱ // 0x7d6 @0x4
0x7d2…7d8 at0005 = EOL // 0x7d7 @0x5
0x7d2…7d8 }
0x7d8…7ec 9543 0600 PROC FEJL(P1,P2,P3)
0x7d8…7ec LineComalBin {
0x7d8…7ec ptr = 0x9543 // 0x7d8 @0x0
0x7d8…7ec lno = 0x0258 // 0x7da @0x2
0x7d8…7ec at0004 = ╱9e╱ PROC ╱ // 0x7dc @0x4
0x7d8…7ec at0005 = ╱46╱F╱ // 0x7dd @0x5
0x7d8…7ec at0006 = ╱45╱E╱ // 0x7de @0x6
0x7d8…7ec at0007 = ╱4a╱J╱ // 0x7df @0x7
0x7d8…7ec at0008 = ╱4c╱L╱ // 0x7e0 @0x8
0x7d8…7ec at0009 = ╱ed╱(╱ // 0x7e1 @0x9
0x7d8…7ec at000a = ╱50╱P╱ // 0x7e2 @0xa
0x7d8…7ec at000b = ╱31╱1╱ // 0x7e3 @0xb
0x7d8…7ec at000c = ╱ec╱,╱ // 0x7e4 @0xc
0x7d8…7ec at000d = ╱50╱P╱ // 0x7e5 @0xd
0x7d8…7ec at000e = ╱32╱2╱ // 0x7e6 @0xe
0x7d8…7ec at000f = ╱ec╱,╱ // 0x7e7 @0xf
0x7d8…7ec at0010 = ╱50╱P╱ // 0x7e8 @0x10
0x7d8…7ec at0011 = ╱33╱3╱ // 0x7e9 @0x11
0x7d8…7ec at0012 = ╱ee╱)╱ // 0x7ea @0x12
0x7d8…7ec at0013 = EOL // 0x7eb @0x13
0x7d8…7ec }
0x7ec…7fb 9552 0605 IF STATUS(P3$)<>B THEN
0x7ec…7fb LineComalBin {
0x7ec…7fb ptr = 0x9552 // 0x7ec @0x0
0x7ec…7fb lno = 0x025d // 0x7ee @0x2
0x7ec…7fb at0004 = ╱9c╱ IF ╱ // 0x7f0 @0x4
0x7ec…7fb at0005 = ╱ce╱STATUS╱ // 0x7f1 @0x5
0x7ec…7fb at0006 = ╱ed╱(╱ // 0x7f2 @0x6
0x7ec…7fb at0007 = ╱50╱P╱ // 0x7f3 @0x7
0x7ec…7fb at0008 = ╱33╱3╱ // 0x7f4 @0x8
0x7ec…7fb at0009 = ╱ef╱$╱ // 0x7f5 @0x9
0x7ec…7fb at000a = ╱ee╱)╱ // 0x7f6 @0xa
0x7ec…7fb at000b = ╱e1╱<>╱ // 0x7f7 @0xb
0x7ec…7fb at000c = ╱42╱B╱ // 0x7f8 @0xc
0x7ec…7fb at000d = ╱b6╱ THEN ╱ // 0x7f9 @0xd
0x7ec…7fb at000e = EOL // 0x7fa @0xe
0x7ec…7fb }
0x7fb…802 9559 0610 OUTPUT T
0x7fb…802 LineComalBin {
0x7fb…802 ptr = 0x9559 // 0x7fb @0x0
0x7fb…802 lno = 0x0262 // 0x7fd @0x2
0x7fb…802 at0004 = ╱a5╱ OUTPUT ╱ // 0x7ff @0x4
0x7fb…802 at0005 = ╱54╱T╱ // 0x800 @0x5
0x7fb…802 at0006 = EOL // 0x801 @0x6
0x7fb…802 }
0x802…824 957b 0615 PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2
0x802…824 LineComalBin {
0x802…824 ptr = 0x957b // 0x802 @0x0
0x802…824 lno = 0x0267 // 0x804 @0x2
0x802…824 at0004 = ╱92╱ PRINT ╱ // 0x806 @0x4
0x802…824 at0005 = ╱22╱"╱ // 0x807 @0x5
0x802…824 at0006 = ╱46╱F╱ // 0x808 @0x6
0x802…824 at0007 = ╱49╱I╱ // 0x809 @0x7
0x802…824 at0008 = ╱4c╱L╱ // 0x80a @0x8
0x802…824 at0009 = ╱2d╱-╱ // 0x80b @0x9
0x802…824 at000a = ╱46╱F╱ // 0x80c @0xa
0x802…824 at000b = ╱45╱E╱ // 0x80d @0xb
0x802…824 at000c = ╱4a╱J╱ // 0x80e @0xc
0x802…824 at000d = ╱4c╱L╱ // 0x80f @0xd
0x802…824 at000e = ╱20╱…╱ // 0x810 @0xe
0x802…824 at000f = ╱22╱"╱ // 0x811 @0xf
0x802…824 at0010 = ╱eb╱;╱ // 0x812 @0x10
0x802…824 at0011 = ╱50╱P╱ // 0x813 @0x11
0x802…824 at0012 = ╱33╱3╱ // 0x814 @0x12
0x802…824 at0013 = ╱ef╱$╱ // 0x815 @0x13
0x802…824 at0014 = ╱eb╱;╱ // 0x816 @0x14
0x802…824 at0015 = ╱ce╱STATUS╱ // 0x817 @0x15
0x802…824 at0016 = ╱ed╱(╱ // 0x818 @0x16
0x802…824 at0017 = ╱50╱P╱ // 0x819 @0x17
0x802…824 at0018 = ╱33╱3╱ // 0x81a @0x18
0x802…824 at0019 = ╱ef╱$╱ // 0x81b @0x19
0x802…824 at001a = ╱ee╱)╱ // 0x81c @0x1a
0x802…824 at001b = ╱ec╱,╱ // 0x81d @0x1b
0x802…824 at001c = ╱50╱P╱ // 0x81e @0x1c
0x802…824 at001d = ╱31╱1╱ // 0x81f @0x1d
0x802…824 at001e = ╱eb╱;╱ // 0x820 @0x1e
0x802…824 at001f = ╱50╱P╱ // 0x821 @0x1f
0x802…824 at0020 = ╱32╱2╱ // 0x822 @0x20
0x802…824 at0021 = EOL // 0x823 @0x21
0x802…824 }
0x824…82a 9581 0620 STOP
0x824…82a LineComalBin {
0x824…82a ptr = 0x9581 // 0x824 @0x0
0x824…82a lno = 0x026c // 0x826 @0x2
0x824…82a at0004 = ╱8d╱ STOP ╱ // 0x828 @0x4
0x824…82a at0005 = EOL // 0x829 @0x5
0x824…82a }
0x82a…830 9587 0625 ENDIF
0x82a…830 LineComalBin {
0x82a…830 ptr = 0x9587 // 0x82a @0x0
0x82a…830 lno = 0x0271 // 0x82c @0x2
0x82a…830 at0004 = ╱9b╱ ENDIF ╱ // 0x82e @0x4
0x82a…830 at0005 = EOL // 0x82f @0x5
0x82a…830 }
0x830…836 958d 0630 ENDPROC
0x830…836 LineComalBin {
0x830…836 ptr = 0x958d // 0x830 @0x0
0x830…836 lno = 0x0276 // 0x832 @0x2
0x830…836 at0004 = ╱9f╱ ENDPROC ╱ // 0x834 @0x4
0x830…836 at0005 = EOL // 0x835 @0x5
0x830…836 }
0x836…845 959c 0680 PROC INLINE(N)
0x836…845 LineComalBin {
0x836…845 ptr = 0x959c // 0x836 @0x0
0x836…845 lno = 0x02a8 // 0x838 @0x2
0x836…845 at0004 = ╱9e╱ PROC ╱ // 0x83a @0x4
0x836…845 at0005 = ╱49╱I╱ // 0x83b @0x5
0x836…845 at0006 = ╱4e╱N╱ // 0x83c @0x6
0x836…845 at0007 = ╱4c╱L╱ // 0x83d @0x7
0x836…845 at0008 = ╱49╱I╱ // 0x83e @0x8
0x836…845 at0009 = ╱4e╱N╱ // 0x83f @0x9
0x836…845 at000a = ╱45╱E╱ // 0x840 @0xa
0x836…845 at000b = ╱ed╱(╱ // 0x841 @0xb
0x836…845 at000c = ╱4e╱N╱ // 0x842 @0xc
0x836…845 at000d = ╱ee╱)╱ // 0x843 @0xd
0x836…845 at000e = EOL // 0x844 @0xe
0x836…845 }
0x845…84b 95a2 0690 REPEAT
0x845…84b LineComalBin {
0x845…84b ptr = 0x95a2 // 0x845 @0x0
0x845…84b lno = 0x02b2 // 0x847 @0x2
0x845…84b at0004 = ╱97╱ REPEAT ╱ // 0x849 @0x4
0x845…84b at0005 = EOL // 0x84a @0x5
0x845…84b }
0x84b…85a 95b1 0700 CURSOR X(N),Y(N)
0x84b…85a LineComalBin {
0x84b…85a ptr = 0x95b1 // 0x84b @0x0
0x84b…85a lno = 0x02bc // 0x84d @0x2
0x84b…85a at0004 = ╱a1╱ CURSOR ╱ // 0x84f @0x4
0x84b…85a at0005 = ╱58╱X╱ // 0x850 @0x5
0x84b…85a at0006 = ╱ed╱(╱ // 0x851 @0x6
0x84b…85a at0007 = ╱4e╱N╱ // 0x852 @0x7
0x84b…85a at0008 = ╱ee╱)╱ // 0x853 @0x8
0x84b…85a at0009 = ╱ec╱,╱ // 0x854 @0x9
0x84b…85a at000a = ╱59╱Y╱ // 0x855 @0xa
0x84b…85a at000b = ╱ed╱(╱ // 0x856 @0xb
0x84b…85a at000c = ╱4e╱N╱ // 0x857 @0xc
0x84b…85a at000d = ╱ee╱)╱ // 0x858 @0xd
0x84b…85a at000e = EOL // 0x859 @0xe
0x84b…85a }
0x85a…869 95c0 0705 PRINT USING "###":N;
0x85a…869 LineComalBin {
0x85a…869 ptr = 0x95c0 // 0x85a @0x0
0x85a…869 lno = 0x02c1 // 0x85c @0x2
0x85a…869 at0004 = ╱92╱ PRINT ╱ // 0x85e @0x4
0x85a…869 at0005 = ╱b9╱ USING ╱ // 0x85f @0x5
0x85a…869 at0006 = ╱22╱"╱ // 0x860 @0x6
0x85a…869 at0007 = ╱23╱#╱ // 0x861 @0x7
0x85a…869 at0008 = ╱23╱#╱ // 0x862 @0x8
0x85a…869 at0009 = ╱23╱#╱ // 0x863 @0x9
0x85a…869 at000a = ╱22╱"╱ // 0x864 @0xa
0x85a…869 at000b = ╱f0╱:╱ // 0x865 @0xb
0x85a…869 at000c = ╱4e╱N╱ // 0x866 @0xc
0x85a…869 at000d = ╱eb╱;╱ // 0x867 @0xd
0x85a…869 at000e = EOL // 0x868 @0xe
0x85a…869 }
0x869…882 95d9 0710 PRINT BL$(X(N)+V,79)
0x869…882 LineComalBin {
0x869…882 ptr = 0x95d9 // 0x869 @0x0
0x869…882 lno = 0x02c6 // 0x86b @0x2
0x869…882 at0004 = ╱92╱ PRINT ╱ // 0x86d @0x4
0x869…882 at0005 = ╱42╱B╱ // 0x86e @0x5
0x869…882 at0006 = ╱4c╱L╱ // 0x86f @0x6
0x869…882 at0007 = ╱ef╱$╱ // 0x870 @0x7
0x869…882 at0008 = ╱ed╱(╱ // 0x871 @0x8
0x869…882 at0009 = ╱58╱X╱ // 0x872 @0x9
0x869…882 at000a = ╱ed╱(╱ // 0x873 @0xa
0x869…882 at000b = ╱4e╱N╱ // 0x874 @0xb
0x869…882 at000c = ╱ee╱)╱ // 0x875 @0xc
0x869…882 at000d = ╱e2╱+╱ // 0x876 @0xd
0x869…882 at000e = ╱56╱V╱ // 0x877 @0xe
0x869…882 at000f = ╱ec╱,╱ // 0x878 @0xf
0x869…882 at0010 = ╱37╱7╱ // 0x879 @0x10
0x869…882 at0011 = ╱39╱9╱ // 0x87a @0x11
0x869…882 at0012 = ╱fe00009e07╱ // 0x87b @0x12
0x869…882 at0017 = ╱ee╱)╱ // 0x880 @0x17
0x869…882 at0018 = EOL // 0x881 @0x18
0x869…882 }
0x882…898 95ef 0720 CURSOR X(N)+4,Y(N)
0x882…898 LineComalBin {
0x882…898 ptr = 0x95ef // 0x882 @0x0
0x882…898 lno = 0x02d0 // 0x884 @0x2
0x882…898 at0004 = ╱a1╱ CURSOR ╱ // 0x886 @0x4
0x882…898 at0005 = ╱58╱X╱ // 0x887 @0x5
0x882…898 at0006 = ╱ed╱(╱ // 0x888 @0x6
0x882…898 at0007 = ╱4e╱N╱ // 0x889 @0x7
0x882…898 at0008 = ╱ee╱)╱ // 0x88a @0x8
0x882…898 at0009 = ╱e2╱+╱ // 0x88b @0x9
0x882…898 at000a = ╱34╱4╱ // 0x88c @0xa
0x882…898 at000b = ╱fe00008003╱ // 0x88d @0xb
0x882…898 at0010 = ╱ec╱,╱ // 0x892 @0x10
0x882…898 at0011 = ╱59╱Y╱ // 0x893 @0x11
0x882…898 at0012 = ╱ed╱(╱ // 0x894 @0x12
0x882…898 at0013 = ╱4e╱N╱ // 0x895 @0x13
0x882…898 at0014 = ╱ee╱)╱ // 0x896 @0x14
0x882…898 at0015 = EOL // 0x897 @0x15
0x882…898 }
0x898…8a6 95fd 0730 PRINT PICT$(N)
0x898…8a6 LineComalBin {
0x898…8a6 ptr = 0x95fd // 0x898 @0x0
0x898…8a6 lno = 0x02da // 0x89a @0x2
0x898…8a6 at0004 = ╱92╱ PRINT ╱ // 0x89c @0x4
0x898…8a6 at0005 = ╱50╱P╱ // 0x89d @0x5
0x898…8a6 at0006 = ╱49╱I╱ // 0x89e @0x6
0x898…8a6 at0007 = ╱43╱C╱ // 0x89f @0x7
0x898…8a6 at0008 = ╱54╱T╱ // 0x8a0 @0x8
0x898…8a6 at0009 = ╱ef╱$╱ // 0x8a1 @0x9
0x898…8a6 at000a = ╱ed╱(╱ // 0x8a2 @0xa
0x898…8a6 at000b = ╱4e╱N╱ // 0x8a3 @0xb
0x898…8a6 at000c = ╱ee╱)╱ // 0x8a4 @0xc
0x898…8a6 at000d = EOL // 0x8a5 @0xd
0x898…8a6 }
0x8a6…8bd 9614 0740 CURSOR X(N)+25,Y(N)
0x8a6…8bd LineComalBin {
0x8a6…8bd ptr = 0x9614 // 0x8a6 @0x0
0x8a6…8bd lno = 0x02e4 // 0x8a8 @0x2
0x8a6…8bd at0004 = ╱a1╱ CURSOR ╱ // 0x8aa @0x4
0x8a6…8bd at0005 = ╱58╱X╱ // 0x8ab @0x5
0x8a6…8bd at0006 = ╱ed╱(╱ // 0x8ac @0x6
0x8a6…8bd at0007 = ╱4e╱N╱ // 0x8ad @0x7
0x8a6…8bd at0008 = ╱ee╱)╱ // 0x8ae @0x8
0x8a6…8bd at0009 = ╱e2╱+╱ // 0x8af @0x9
0x8a6…8bd at000a = ╱32╱2╱ // 0x8b0 @0xa
0x8a6…8bd at000b = ╱35╱5╱ // 0x8b1 @0xb
0x8a6…8bd at000c = ╱fe0000c805╱ // 0x8b2 @0xc
0x8a6…8bd at0011 = ╱ec╱,╱ // 0x8b7 @0x11
0x8a6…8bd at0012 = ╱59╱Y╱ // 0x8b8 @0x12
0x8a6…8bd at0013 = ╱ed╱(╱ // 0x8b9 @0x13
0x8a6…8bd at0014 = ╱4e╱N╱ // 0x8ba @0x14
0x8a6…8bd at0015 = ╱ee╱)╱ // 0x8bb @0x15
0x8a6…8bd at0016 = EOL // 0x8bc @0x16
0x8a6…8bd }
0x8bd…8cb 9622 0750 INPUT "",LINE$
0x8bd…8cb LineComalBin {
0x8bd…8cb ptr = 0x9622 // 0x8bd @0x0
0x8bd…8cb lno = 0x02ee // 0x8bf @0x2
0x8bd…8cb at0004 = ╱91╱ INPUT ╱ // 0x8c1 @0x4
0x8bd…8cb at0005 = ╱22╱"╱ // 0x8c2 @0x5
0x8bd…8cb at0006 = ╱22╱"╱ // 0x8c3 @0x6
0x8bd…8cb at0007 = ╱ec╱,╱ // 0x8c4 @0x7
0x8bd…8cb at0008 = ╱4c╱L╱ // 0x8c5 @0x8
0x8bd…8cb at0009 = ╱49╱I╱ // 0x8c6 @0x9
0x8bd…8cb at000a = ╱4e╱N╱ // 0x8c7 @0xa
0x8bd…8cb at000b = ╱45╱E╱ // 0x8c8 @0xb
0x8bd…8cb at000c = ╱ef╱$╱ // 0x8c9 @0xc
0x8bd…8cb at000d = EOL // 0x8ca @0xd
0x8bd…8cb }
0x8cb…8db 9632 0760 IF TYPE(N)<B THEN
0x8cb…8db LineComalBin {
0x8cb…8db ptr = 0x9632 // 0x8cb @0x0
0x8cb…8db lno = 0x02f8 // 0x8cd @0x2
0x8cb…8db at0004 = ╱9c╱ IF ╱ // 0x8cf @0x4
0x8cb…8db at0005 = ╱54╱T╱ // 0x8d0 @0x5
0x8cb…8db at0006 = ╱59╱Y╱ // 0x8d1 @0x6
0x8cb…8db at0007 = ╱50╱P╱ // 0x8d2 @0x7
0x8cb…8db at0008 = ╱45╱E╱ // 0x8d3 @0x8
0x8cb…8db at0009 = ╱ed╱(╱ // 0x8d4 @0x9
0x8cb…8db at000a = ╱4e╱N╱ // 0x8d5 @0xa
0x8cb…8db at000b = ╱ee╱)╱ // 0x8d6 @0xb
0x8cb…8db at000c = ╱dd╱<╱ // 0x8d7 @0xc
0x8cb…8db at000d = ╱42╱B╱ // 0x8d8 @0xd
0x8cb…8db at000e = ╱b6╱ THEN ╱ // 0x8d9 @0xe
0x8cb…8db at000f = EOL // 0x8da @0xf
0x8cb…8db }
0x8db…8f5 964c 0770 IF LEN(LINE$)<=ABS(TYPE(N)) THEN
0x8db…8f5 LineComalBin {
0x8db…8f5 ptr = 0x964c // 0x8db @0x0
0x8db…8f5 lno = 0x0302 // 0x8dd @0x2
0x8db…8f5 at0004 = ╱9c╱ IF ╱ // 0x8df @0x4
0x8db…8f5 at0005 = ╱cc╱LEN╱ // 0x8e0 @0x5
0x8db…8f5 at0006 = ╱ed╱(╱ // 0x8e1 @0x6
0x8db…8f5 at0007 = ╱4c╱L╱ // 0x8e2 @0x7
0x8db…8f5 at0008 = ╱49╱I╱ // 0x8e3 @0x8
0x8db…8f5 at0009 = ╱4e╱N╱ // 0x8e4 @0x9
0x8db…8f5 at000a = ╱45╱E╱ // 0x8e5 @0xa
0x8db…8f5 at000b = ╱ef╱$╱ // 0x8e6 @0xb
0x8db…8f5 at000c = ╱ee╱)╱ // 0x8e7 @0xc
0x8db…8f5 at000d = ╱df╱<=╱ // 0x8e8 @0xd
0x8db…8f5 at000e = ╱c4╱ABS╱ // 0x8e9 @0xe
0x8db…8f5 at000f = ╱ed╱(╱ // 0x8ea @0xf
0x8db…8f5 at0010 = ╱54╱T╱ // 0x8eb @0x10
0x8db…8f5 at0011 = ╱59╱Y╱ // 0x8ec @0x11
0x8db…8f5 at0012 = ╱50╱P╱ // 0x8ed @0x12
0x8db…8f5 at0013 = ╱45╱E╱ // 0x8ee @0x13
0x8db…8f5 at0014 = ╱ed╱(╱ // 0x8ef @0x14
0x8db…8f5 at0015 = ╱4e╱N╱ // 0x8f0 @0x15
0x8db…8f5 at0016 = ╱ee╱)╱ // 0x8f1 @0x16
0x8db…8f5 at0017 = ╱ee╱)╱ // 0x8f2 @0x17
0x8db…8f5 at0018 = ╱b6╱ THEN ╱ // 0x8f3 @0x18
0x8db…8f5 at0019 = EOL // 0x8f4 @0x19
0x8db…8f5 }
0x8f5…8fe 9655 0780 OK=E
0x8f5…8fe LineComalBin {
0x8f5…8fe ptr = 0x9655 // 0x8f5 @0x0
0x8f5…8fe lno = 0x030c // 0x8f7 @0x2
0x8f5…8fe at0004 = ╱4f╱O╱ // 0x8f9 @0x4
0x8f5…8fe at0005 = ╱4b╱K╱ // 0x8fa @0x5
0x8f5…8fe at0006 = ╱dc╱=╱ // 0x8fb @0x6
0x8f5…8fe at0007 = ╱45╱E╱ // 0x8fc @0x7
0x8f5…8fe at0008 = EOL // 0x8fd @0x8
0x8f5…8fe }
0x8fe…91b 9672 0790 FOR I=LEN(LINE$)+E TO ABS(TYPE(N))
0x8fe…91b LineComalBin {
0x8fe…91b ptr = 0x9672 // 0x8fe @0x0
0x8fe…91b lno = 0x0316 // 0x900 @0x2
0x8fe…91b at0004 = ╱83╱ FOR ╱ // 0x902 @0x4
0x8fe…91b at0005 = ╱49╱I╱ // 0x903 @0x5
0x8fe…91b at0006 = ╱dc╱=╱ // 0x904 @0x6
0x8fe…91b at0007 = ╱cc╱LEN╱ // 0x905 @0x7
0x8fe…91b at0008 = ╱ed╱(╱ // 0x906 @0x8
0x8fe…91b at0009 = ╱4c╱L╱ // 0x907 @0x9
0x8fe…91b at000a = ╱49╱I╱ // 0x908 @0xa
0x8fe…91b at000b = ╱4e╱N╱ // 0x909 @0xb
0x8fe…91b at000c = ╱45╱E╱ // 0x90a @0xc
0x8fe…91b at000d = ╱ef╱$╱ // 0x90b @0xd
0x8fe…91b at000e = ╱ee╱)╱ // 0x90c @0xe
0x8fe…91b at000f = ╱e2╱+╱ // 0x90d @0xf
0x8fe…91b at0010 = ╱45╱E╱ // 0x90e @0x10
0x8fe…91b at0011 = ╱b7╱ TO ╱ // 0x90f @0x11
0x8fe…91b at0012 = ╱c4╱ABS╱ // 0x910 @0x12
0x8fe…91b at0013 = ╱ed╱(╱ // 0x911 @0x13
0x8fe…91b at0014 = ╱54╱T╱ // 0x912 @0x14
0x8fe…91b at0015 = ╱59╱Y╱ // 0x913 @0x15
0x8fe…91b at0016 = ╱50╱P╱ // 0x914 @0x16
0x8fe…91b at0017 = ╱45╱E╱ // 0x915 @0x17
0x8fe…91b at0018 = ╱ed╱(╱ // 0x916 @0x18
0x8fe…91b at0019 = ╱4e╱N╱ // 0x917 @0x19
0x8fe…91b at001a = ╱ee╱)╱ // 0x918 @0x1a
0x8fe…91b at001b = ╱ee╱)╱ // 0x919 @0x1b
0x8fe…91b at001c = EOL // 0x91a @0x1c
0x8fe…91b }
0x91b…92c 9683 0800 LINE$(I)=" "
0x91b…92c LineComalBin {
0x91b…92c ptr = 0x9683 // 0x91b @0x0
0x91b…92c lno = 0x0320 // 0x91d @0x2
0x91b…92c at0004 = ╱4c╱L╱ // 0x91f @0x4
0x91b…92c at0005 = ╱49╱I╱ // 0x920 @0x5
0x91b…92c at0006 = ╱4e╱N╱ // 0x921 @0x6
0x91b…92c at0007 = ╱45╱E╱ // 0x922 @0x7
0x91b…92c at0008 = ╱ef╱$╱ // 0x923 @0x8
0x91b…92c at0009 = ╱ed╱(╱ // 0x924 @0x9
0x91b…92c at000a = ╱49╱I╱ // 0x925 @0xa
0x91b…92c at000b = ╱ee╱)╱ // 0x926 @0xb
0x91b…92c at000c = ╱dc╱=╱ // 0x927 @0xc
0x91b…92c at000d = ╱22╱"╱ // 0x928 @0xd
0x91b…92c at000e = ╱20╱…╱ // 0x929 @0xe
0x91b…92c at000f = ╱22╱"╱ // 0x92a @0xf
0x91b…92c at0010 = EOL // 0x92b @0x10
0x91b…92c }
0x92c…933 968a 0810 NEXT I
0x92c…933 LineComalBin {
0x92c…933 ptr = 0x968a // 0x92c @0x0
0x92c…933 lno = 0x032a // 0x92e @0x2
0x92c…933 at0004 = ╱84╱ NEXT ╱ // 0x930 @0x4
0x92c…933 at0005 = ╱49╱I╱ // 0x931 @0x5
0x92c…933 at0006 = EOL // 0x932 @0x6
0x92c…933 }
0x933…939 9690 0820 ELSE
0x933…939 LineComalBin {
0x933…939 ptr = 0x9690 // 0x933 @0x0
0x933…939 lno = 0x0334 // 0x935 @0x2
0x933…939 at0004 = ╱9a╱ ELSE ╱ // 0x937 @0x4
0x933…939 at0005 = EOL // 0x938 @0x5
0x933…939 }
0x939…942 9699 0830 OK=B
0x939…942 LineComalBin {
0x939…942 ptr = 0x9699 // 0x939 @0x0
0x939…942 lno = 0x033e // 0x93b @0x2
0x939…942 at0004 = ╱4f╱O╱ // 0x93d @0x4
0x939…942 at0005 = ╱4b╱K╱ // 0x93e @0x5
0x939…942 at0006 = ╱dc╱=╱ // 0x93f @0x6
0x939…942 at0007 = ╱42╱B╱ // 0x940 @0x7
0x939…942 at0008 = EOL // 0x941 @0x8
0x939…942 }
0x942…948 969f 0840 ENDIF
0x942…948 LineComalBin {
0x942…948 ptr = 0x969f // 0x942 @0x0
0x942…948 lno = 0x0348 // 0x944 @0x2
0x942…948 at0004 = ╱9b╱ ENDIF ╱ // 0x946 @0x4
0x942…948 at0005 = EOL // 0x947 @0x5
0x942…948 }
0x948…94e 96a5 0850 ELSE
0x948…94e LineComalBin {
0x948…94e ptr = 0x96a5 // 0x948 @0x0
0x948…94e lno = 0x0352 // 0x94a @0x2
0x948…94e at0004 = ╱9a╱ ELSE ╱ // 0x94c @0x4
0x948…94e at0005 = EOL // 0x94d @0x5
0x948…94e }
0x94e…963 96ba 0860 EXEC CHECK(LINE$,OK)
0x94e…963 LineComalBin {
0x94e…963 ptr = 0x96ba // 0x94e @0x0
0x94e…963 lno = 0x035c // 0x950 @0x2
0x94e…963 at0004 = ╱9d╱ EXEC ╱ // 0x952 @0x4
0x94e…963 at0005 = ╱43╱C╱ // 0x953 @0x5
0x94e…963 at0006 = ╱48╱H╱ // 0x954 @0x6
0x94e…963 at0007 = ╱45╱E╱ // 0x955 @0x7
0x94e…963 at0008 = ╱43╱C╱ // 0x956 @0x8
0x94e…963 at0009 = ╱4b╱K╱ // 0x957 @0x9
0x94e…963 at000a = ╱ed╱(╱ // 0x958 @0xa
0x94e…963 at000b = ╱4c╱L╱ // 0x959 @0xb
0x94e…963 at000c = ╱49╱I╱ // 0x95a @0xc
0x94e…963 at000d = ╱4e╱N╱ // 0x95b @0xd
0x94e…963 at000e = ╱45╱E╱ // 0x95c @0xe
0x94e…963 at000f = ╱ef╱$╱ // 0x95d @0xf
0x94e…963 at0010 = ╱ec╱,╱ // 0x95e @0x10
0x94e…963 at0011 = ╱4f╱O╱ // 0x95f @0x11
0x94e…963 at0012 = ╱4b╱K╱ // 0x960 @0x12
0x94e…963 at0013 = ╱ee╱)╱ // 0x961 @0x13
0x94e…963 at0014 = EOL // 0x962 @0x14
0x94e…963 }
0x963…982 96d9 0870 IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B
0x963…982 LineComalBin {
0x963…982 ptr = 0x96d9 // 0x963 @0x0
0x963…982 lno = 0x0366 // 0x965 @0x2
0x963…982 at0004 = ╱82╱ IF ╱ // 0x967 @0x4
0x963…982 at0005 = ╱54╱T╱ // 0x968 @0x5
0x963…982 at0006 = ╱59╱Y╱ // 0x969 @0x6
0x963…982 at0007 = ╱50╱P╱ // 0x96a @0x7
0x963…982 at0008 = ╱45╱E╱ // 0x96b @0x8
0x963…982 at0009 = ╱ed╱(╱ // 0x96c @0x9
0x963…982 at000a = ╱4e╱N╱ // 0x96d @0xa
0x963…982 at000b = ╱ee╱)╱ // 0x96e @0xb
0x963…982 at000c = ╱de╱>╱ // 0x96f @0xc
0x963…982 at000d = ╱42╱B╱ // 0x970 @0xd
0x963…982 at000e = ╱da╱ AND ╱ // 0x971 @0xe
0x963…982 at000f = ╱54╱T╱ // 0x972 @0xf
0x963…982 at0010 = ╱59╱Y╱ // 0x973 @0x10
0x963…982 at0011 = ╱50╱P╱ // 0x974 @0x11
0x963…982 at0012 = ╱45╱E╱ // 0x975 @0x12
0x963…982 at0013 = ╱ed╱(╱ // 0x976 @0x13
0x963…982 at0014 = ╱4e╱N╱ // 0x977 @0x14
0x963…982 at0015 = ╱ee╱)╱ // 0x978 @0x15
0x963…982 at0016 = ╱e1╱<>╱ // 0x979 @0x16
0x963…982 at0017 = ╱4f╱O╱ // 0x97a @0x17
0x963…982 at0018 = ╱4b╱K╱ // 0x97b @0x18
0x963…982 at0019 = ╱b6╱ THEN ╱ // 0x97c @0x19
0x963…982 at001a = ╱4f╱O╱ // 0x97d @0x1a
0x963…982 at001b = ╱4b╱K╱ // 0x97e @0x1b
0x963…982 at001c = ╱dc╱=╱ // 0x97f @0x1c
0x963…982 at001d = ╱42╱B╱ // 0x980 @0x1d
0x963…982 at001e = EOL // 0x981 @0x1e
0x963…982 }
0x982…988 96df 0880 ENDIF
0x982…988 LineComalBin {
0x982…988 ptr = 0x96df // 0x982 @0x0
0x982…988 lno = 0x0370 // 0x984 @0x2
0x982…988 at0004 = ╱9b╱ ENDIF ╱ // 0x986 @0x4
0x982…988 at0005 = EOL // 0x987 @0x5
0x982…988 }
0x988…992 96e9 0890 UNTIL OK<>B
0x988…992 LineComalBin {
0x988…992 ptr = 0x96e9 // 0x988 @0x0
0x988…992 lno = 0x037a // 0x98a @0x2
0x988…992 at0004 = ╱98╱ UNTIL ╱ // 0x98c @0x4
0x988…992 at0005 = ╱4f╱O╱ // 0x98d @0x5
0x988…992 at0006 = ╱4b╱K╱ // 0x98e @0x6
0x988…992 at0007 = ╱e1╱<>╱ // 0x98f @0x7
0x988…992 at0008 = ╱42╱B╱ // 0x990 @0x8
0x988…992 at0009 = EOL // 0x991 @0x9
0x988…992 }
0x992…998 96ef 0900 ENDPROC
0x992…998 LineComalBin {
0x992…998 ptr = 0x96ef // 0x992 @0x0
0x992…998 lno = 0x0384 // 0x994 @0x2
0x992…998 at0004 = ╱9f╱ ENDPROC ╱ // 0x996 @0x4
0x992…998 at0005 = EOL // 0x997 @0x5
0x992…998 }
0x998…9a7 96fe 0910 PROC SKRIVPICT
0x998…9a7 LineComalBin {
0x998…9a7 ptr = 0x96fe // 0x998 @0x0
0x998…9a7 lno = 0x038e // 0x99a @0x2
0x998…9a7 at0004 = ╱9e╱ PROC ╱ // 0x99c @0x4
0x998…9a7 at0005 = ╱53╱S╱ // 0x99d @0x5
0x998…9a7 at0006 = ╱4b╱K╱ // 0x99e @0x6
0x998…9a7 at0007 = ╱52╱R╱ // 0x99f @0x7
0x998…9a7 at0008 = ╱49╱I╱ // 0x9a0 @0x8
0x998…9a7 at0009 = ╱56╱V╱ // 0x9a1 @0x9
0x998…9a7 at000a = ╱50╱P╱ // 0x9a2 @0xa
0x998…9a7 at000b = ╱49╱I╱ // 0x9a3 @0xb
0x998…9a7 at000c = ╱43╱C╱ // 0x9a4 @0xc
0x998…9a7 at000d = ╱54╱T╱ // 0x9a5 @0xd
0x998…9a7 at000e = EOL // 0x9a6 @0xe
0x998…9a7 }
0x9a7…9ad 9704 0920 CLEAR
0x9a7…9ad LineComalBin {
0x9a7…9ad ptr = 0x9704 // 0x9a7 @0x0
0x9a7…9ad lno = 0x0398 // 0x9a9 @0x2
0x9a7…9ad at0004 = ╱a0╱ CLEAR ╱ // 0x9ab @0x4
0x9a7…9ad at0005 = EOL // 0x9ac @0x5
0x9a7…9ad }
0x9ad…9b8 970f 0930 FOR I=E TO A
0x9ad…9b8 LineComalBin {
0x9ad…9b8 ptr = 0x970f // 0x9ad @0x0
0x9ad…9b8 lno = 0x03a2 // 0x9af @0x2
0x9ad…9b8 at0004 = ╱83╱ FOR ╱ // 0x9b1 @0x4
0x9ad…9b8 at0005 = ╱49╱I╱ // 0x9b2 @0x5
0x9ad…9b8 at0006 = ╱dc╱=╱ // 0x9b3 @0x6
0x9ad…9b8 at0007 = ╱45╱E╱ // 0x9b4 @0x7
0x9ad…9b8 at0008 = ╱b7╱ TO ╱ // 0x9b5 @0x8
0x9ad…9b8 at0009 = ╱41╱A╱ // 0x9b6 @0x9
0x9ad…9b8 at000a = EOL // 0x9b7 @0xa
0x9ad…9b8 }
0x9b8…9c7 971e 0940 CURSOR X(I),Y(I)
0x9b8…9c7 LineComalBin {
0x9b8…9c7 ptr = 0x971e // 0x9b8 @0x0
0x9b8…9c7 lno = 0x03ac // 0x9ba @0x2
0x9b8…9c7 at0004 = ╱a1╱ CURSOR ╱ // 0x9bc @0x4
0x9b8…9c7 at0005 = ╱58╱X╱ // 0x9bd @0x5
0x9b8…9c7 at0006 = ╱ed╱(╱ // 0x9be @0x6
0x9b8…9c7 at0007 = ╱49╱I╱ // 0x9bf @0x7
0x9b8…9c7 at0008 = ╱ee╱)╱ // 0x9c0 @0x8
0x9b8…9c7 at0009 = ╱ec╱,╱ // 0x9c1 @0x9
0x9b8…9c7 at000a = ╱59╱Y╱ // 0x9c2 @0xa
0x9b8…9c7 at000b = ╱ed╱(╱ // 0x9c3 @0xb
0x9b8…9c7 at000c = ╱49╱I╱ // 0x9c4 @0xc
0x9b8…9c7 at000d = ╱ee╱)╱ // 0x9c5 @0xd
0x9b8…9c7 at000e = EOL // 0x9c6 @0xe
0x9b8…9c7 }
0x9c7…9d7 972e 0945 PRINT USING "### ":I;
0x9c7…9d7 LineComalBin {
0x9c7…9d7 ptr = 0x972e // 0x9c7 @0x0
0x9c7…9d7 lno = 0x03b1 // 0x9c9 @0x2
0x9c7…9d7 at0004 = ╱92╱ PRINT ╱ // 0x9cb @0x4
0x9c7…9d7 at0005 = ╱b9╱ USING ╱ // 0x9cc @0x5
0x9c7…9d7 at0006 = ╱22╱"╱ // 0x9cd @0x6
0x9c7…9d7 at0007 = ╱23╱#╱ // 0x9ce @0x7
0x9c7…9d7 at0008 = ╱23╱#╱ // 0x9cf @0x8
0x9c7…9d7 at0009 = ╱23╱#╱ // 0x9d0 @0x9
0x9c7…9d7 at000a = ╱20╱…╱ // 0x9d1 @0xa
0x9c7…9d7 at000b = ╱22╱"╱ // 0x9d2 @0xb
0x9c7…9d7 at000c = ╱f0╱:╱ // 0x9d3 @0xc
0x9c7…9d7 at000d = ╱49╱I╱ // 0x9d4 @0xd
0x9c7…9d7 at000e = ╱eb╱;╱ // 0x9d5 @0xe
0x9c7…9d7 at000f = EOL // 0x9d6 @0xf
0x9c7…9d7 }
0x9d7…9e5 973c 0950 PRINT PICT$(I)
0x9d7…9e5 LineComalBin {
0x9d7…9e5 ptr = 0x973c // 0x9d7 @0x0
0x9d7…9e5 lno = 0x03b6 // 0x9d9 @0x2
0x9d7…9e5 at0004 = ╱92╱ PRINT ╱ // 0x9db @0x4
0x9d7…9e5 at0005 = ╱50╱P╱ // 0x9dc @0x5
0x9d7…9e5 at0006 = ╱49╱I╱ // 0x9dd @0x6
0x9d7…9e5 at0007 = ╱43╱C╱ // 0x9de @0x7
0x9d7…9e5 at0008 = ╱54╱T╱ // 0x9df @0x8
0x9d7…9e5 at0009 = ╱ef╱$╱ // 0x9e0 @0x9
0x9d7…9e5 at000a = ╱ed╱(╱ // 0x9e1 @0xa
0x9d7…9e5 at000b = ╱49╱I╱ // 0x9e2 @0xb
0x9d7…9e5 at000c = ╱ee╱)╱ // 0x9e3 @0xc
0x9d7…9e5 at000d = EOL // 0x9e4 @0xd
0x9d7…9e5 }
0x9e5…9ec 9743 0960 NEXT I
0x9e5…9ec LineComalBin {
0x9e5…9ec ptr = 0x9743 // 0x9e5 @0x0
0x9e5…9ec lno = 0x03c0 // 0x9e7 @0x2
0x9e5…9ec at0004 = ╱84╱ NEXT ╱ // 0x9e9 @0x4
0x9e5…9ec at0005 = ╱49╱I╱ // 0x9ea @0x5
0x9e5…9ec at0006 = EOL // 0x9eb @0x6
0x9e5…9ec }
0x9ec…9f2 9749 0970 ENDPROC
0x9ec…9f2 LineComalBin {
0x9ec…9f2 ptr = 0x9749 // 0x9ec @0x0
0x9ec…9f2 lno = 0x03ca // 0x9ee @0x2
0x9ec…9f2 at0004 = ╱9f╱ ENDPROC ╱ // 0x9f0 @0x4
0x9ec…9f2 at0005 = EOL // 0x9f1 @0x5
0x9ec…9f2 }
0x9f2…a03 975a 0975 PROC OUTPLINE(N)
0x9f2…a03 LineComalBin {
0x9f2…a03 ptr = 0x975a // 0x9f2 @0x0
0x9f2…a03 lno = 0x03cf // 0x9f4 @0x2
0x9f2…a03 at0004 = ╱9e╱ PROC ╱ // 0x9f6 @0x4
0x9f2…a03 at0005 = ╱4f╱O╱ // 0x9f7 @0x5
0x9f2…a03 at0006 = ╱55╱U╱ // 0x9f8 @0x6
0x9f2…a03 at0007 = ╱54╱T╱ // 0x9f9 @0x7
0x9f2…a03 at0008 = ╱50╱P╱ // 0x9fa @0x8
0x9f2…a03 at0009 = ╱4c╱L╱ // 0x9fb @0x9
0x9f2…a03 at000a = ╱49╱I╱ // 0x9fc @0xa
0x9f2…a03 at000b = ╱4e╱N╱ // 0x9fd @0xb
0x9f2…a03 at000c = ╱45╱E╱ // 0x9fe @0xc
0x9f2…a03 at000d = ╱ed╱(╱ // 0x9ff @0xd
0x9f2…a03 at000e = ╱4e╱N╱ // 0xa00 @0xe
0x9f2…a03 at000f = ╱ee╱)╱ // 0xa01 @0xf
0x9f2…a03 at0010 = EOL // 0xa02 @0x10
0x9f2…a03 }
0xa03…a11 9768 0977 PRINT TAB(X(N));
0xa03…a11 LineComalBin {
0xa03…a11 ptr = 0x9768 // 0xa03 @0x0
0xa03…a11 lno = 0x03d1 // 0xa05 @0x2
0xa03…a11 at0004 = ╱92╱ PRINT ╱ // 0xa07 @0x4
0xa03…a11 at0005 = ╱d2╱TAB╱ // 0xa08 @0x5
0xa03…a11 at0006 = ╱ed╱(╱ // 0xa09 @0x6
0xa03…a11 at0007 = ╱58╱X╱ // 0xa0a @0x7
0xa03…a11 at0008 = ╱ed╱(╱ // 0xa0b @0x8
0xa03…a11 at0009 = ╱4e╱N╱ // 0xa0c @0x9
0xa03…a11 at000a = ╱ee╱)╱ // 0xa0d @0xa
0xa03…a11 at000b = ╱ee╱)╱ // 0xa0e @0xb
0xa03…a11 at000c = ╱eb╱;╱ // 0xa0f @0xc
0xa03…a11 at000d = EOL // 0xa10 @0xd
0xa03…a11 }
0xa11…a21 9778 0979 PRINT USING "### ":N;
0xa11…a21 LineComalBin {
0xa11…a21 ptr = 0x9778 // 0xa11 @0x0
0xa11…a21 lno = 0x03d3 // 0xa13 @0x2
0xa11…a21 at0004 = ╱92╱ PRINT ╱ // 0xa15 @0x4
0xa11…a21 at0005 = ╱b9╱ USING ╱ // 0xa16 @0x5
0xa11…a21 at0006 = ╱22╱"╱ // 0xa17 @0x6
0xa11…a21 at0007 = ╱23╱#╱ // 0xa18 @0x7
0xa11…a21 at0008 = ╱23╱#╱ // 0xa19 @0x8
0xa11…a21 at0009 = ╱23╱#╱ // 0xa1a @0x9
0xa11…a21 at000a = ╱20╱…╱ // 0xa1b @0xa
0xa11…a21 at000b = ╱22╱"╱ // 0xa1c @0xb
0xa11…a21 at000c = ╱f0╱:╱ // 0xa1d @0xc
0xa11…a21 at000d = ╱4e╱N╱ // 0xa1e @0xd
0xa11…a21 at000e = ╱eb╱;╱ // 0xa1f @0xe
0xa11…a21 at000f = EOL // 0xa20 @0xf
0xa11…a21 }
0xa21…a45 979c 0981 PRINT PICT$(N);TAB(X(N)+25);LINE$
0xa21…a45 LineComalBin {
0xa21…a45 ptr = 0x979c // 0xa21 @0x0
0xa21…a45 lno = 0x03d5 // 0xa23 @0x2
0xa21…a45 at0004 = ╱92╱ PRINT ╱ // 0xa25 @0x4
0xa21…a45 at0005 = ╱50╱P╱ // 0xa26 @0x5
0xa21…a45 at0006 = ╱49╱I╱ // 0xa27 @0x6
0xa21…a45 at0007 = ╱43╱C╱ // 0xa28 @0x7
0xa21…a45 at0008 = ╱54╱T╱ // 0xa29 @0x8
0xa21…a45 at0009 = ╱ef╱$╱ // 0xa2a @0x9
0xa21…a45 at000a = ╱ed╱(╱ // 0xa2b @0xa
0xa21…a45 at000b = ╱4e╱N╱ // 0xa2c @0xb
0xa21…a45 at000c = ╱ee╱)╱ // 0xa2d @0xc
0xa21…a45 at000d = ╱eb╱;╱ // 0xa2e @0xd
0xa21…a45 at000e = ╱d2╱TAB╱ // 0xa2f @0xe
0xa21…a45 at000f = ╱ed╱(╱ // 0xa30 @0xf
0xa21…a45 at0010 = ╱58╱X╱ // 0xa31 @0x10
0xa21…a45 at0011 = ╱ed╱(╱ // 0xa32 @0x11
0xa21…a45 at0012 = ╱4e╱N╱ // 0xa33 @0x12
0xa21…a45 at0013 = ╱ee╱)╱ // 0xa34 @0x13
0xa21…a45 at0014 = ╱e2╱+╱ // 0xa35 @0x14
0xa21…a45 at0015 = ╱32╱2╱ // 0xa36 @0x15
0xa21…a45 at0016 = ╱35╱5╱ // 0xa37 @0x16
0xa21…a45 at0017 = ╱fe0000c805╱ // 0xa38 @0x17
0xa21…a45 at001c = ╱ee╱)╱ // 0xa3d @0x1c
0xa21…a45 at001d = ╱eb╱;╱ // 0xa3e @0x1d
0xa21…a45 at001e = ╱4c╱L╱ // 0xa3f @0x1e
0xa21…a45 at001f = ╱49╱I╱ // 0xa40 @0x1f
0xa21…a45 at0020 = ╱4e╱N╱ // 0xa41 @0x20
0xa21…a45 at0021 = ╱45╱E╱ // 0xa42 @0x21
0xa21…a45 at0022 = ╱ef╱$╱ // 0xa43 @0x22
0xa21…a45 at0023 = EOL // 0xa44 @0x23
0xa21…a45 }
0xa45…a4b 97a2 0983 ENDPROC
0xa45…a4b LineComalBin {
0xa45…a4b ptr = 0x97a2 // 0xa45 @0x0
0xa45…a4b lno = 0x03d7 // 0xa47 @0x2
0xa45…a4b at0004 = ╱9f╱ ENDPROC ╱ // 0xa49 @0x4
0xa45…a4b at0005 = EOL // 0xa4a @0x5
0xa45…a4b }
0xa4b…a58 97af 9000 A=8
0xa4b…a58 LineComalBin {
0xa4b…a58 ptr = 0x97af // 0xa4b @0x0
0xa4b…a58 lno = 0x2328 // 0xa4d @0x2
0xa4b…a58 at0004 = ╱41╱A╱ // 0xa4f @0x4
0xa4b…a58 at0005 = ╱dc╱=╱ // 0xa50 @0x5
0xa4b…a58 at0006 = ╱38╱8╱ // 0xa51 @0x6
0xa4b…a58 at0007 = ╱fe00008004╱ // 0xa52 @0x7
0xa4b…a58 at000c = EOL // 0xa57 @0xc
0xa4b…a58 }
0xa58…a80 97d7 9010 DIM X(A),Y(A),PICT$(A,20),TYPE(A)
0xa58…a80 LineComalBin {
0xa58…a80 ptr = 0x97d7 // 0xa58 @0x0
0xa58…a80 lno = 0x2332 // 0xa5a @0x2
0xa58…a80 at0004 = ╱87╱ DIM ╱ // 0xa5c @0x4
0xa58…a80 at0005 = ╱58╱X╱ // 0xa5d @0x5
0xa58…a80 at0006 = ╱ed╱(╱ // 0xa5e @0x6
0xa58…a80 at0007 = ╱41╱A╱ // 0xa5f @0x7
0xa58…a80 at0008 = ╱ee╱)╱ // 0xa60 @0x8
0xa58…a80 at0009 = ╱ec╱,╱ // 0xa61 @0x9
0xa58…a80 at000a = ╱59╱Y╱ // 0xa62 @0xa
0xa58…a80 at000b = ╱ed╱(╱ // 0xa63 @0xb
0xa58…a80 at000c = ╱41╱A╱ // 0xa64 @0xc
0xa58…a80 at000d = ╱ee╱)╱ // 0xa65 @0xd
0xa58…a80 at000e = ╱ec╱,╱ // 0xa66 @0xe
0xa58…a80 at000f = ╱50╱P╱ // 0xa67 @0xf
0xa58…a80 at0010 = ╱49╱I╱ // 0xa68 @0x10
0xa58…a80 at0011 = ╱43╱C╱ // 0xa69 @0x11
0xa58…a80 at0012 = ╱54╱T╱ // 0xa6a @0x12
0xa58…a80 at0013 = ╱ef╱$╱ // 0xa6b @0x13
0xa58…a80 at0014 = ╱ed╱(╱ // 0xa6c @0x14
0xa58…a80 at0015 = ╱41╱A╱ // 0xa6d @0x15
0xa58…a80 at0016 = ╱ec╱,╱ // 0xa6e @0x16
0xa58…a80 at0017 = ╱32╱2╱ // 0xa6f @0x17
0xa58…a80 at0018 = ╱30╱0╱ // 0xa70 @0x18
0xa58…a80 at0019 = ╱fe0000a005╱ // 0xa71 @0x19
0xa58…a80 at001e = ╱ee╱)╱ // 0xa76 @0x1e
0xa58…a80 at001f = ╱ec╱,╱ // 0xa77 @0x1f
0xa58…a80 at0020 = ╱54╱T╱ // 0xa78 @0x20
0xa58…a80 at0021 = ╱59╱Y╱ // 0xa79 @0x21
0xa58…a80 at0022 = ╱50╱P╱ // 0xa7a @0x22
0xa58…a80 at0023 = ╱45╱E╱ // 0xa7b @0x23
0xa58…a80 at0024 = ╱ed╱(╱ // 0xa7c @0x24
0xa58…a80 at0025 = ╱41╱A╱ // 0xa7d @0x25
0xa58…a80 at0026 = ╱ee╱)╱ // 0xa7e @0x26
0xa58…a80 at0027 = EOL // 0xa7f @0x27
0xa58…a80 }
0xa80…ab2 9809 9011 DIM POST1$(55),POST2$(34),DAD$(6)
0xa80…ab2 LineComalBin {
0xa80…ab2 ptr = 0x9809 // 0xa80 @0x0
0xa80…ab2 lno = 0x2333 // 0xa82 @0x2
0xa80…ab2 at0004 = ╱87╱ DIM ╱ // 0xa84 @0x4
0xa80…ab2 at0005 = ╱50╱P╱ // 0xa85 @0x5
0xa80…ab2 at0006 = ╱4f╱O╱ // 0xa86 @0x6
0xa80…ab2 at0007 = ╱53╱S╱ // 0xa87 @0x7
0xa80…ab2 at0008 = ╱54╱T╱ // 0xa88 @0x8
0xa80…ab2 at0009 = ╱31╱1╱ // 0xa89 @0x9
0xa80…ab2 at000a = ╱ef╱$╱ // 0xa8a @0xa
0xa80…ab2 at000b = ╱ed╱(╱ // 0xa8b @0xb
0xa80…ab2 at000c = ╱35╱5╱ // 0xa8c @0xc
0xa80…ab2 at000d = ╱35╱5╱ // 0xa8d @0xd
0xa80…ab2 at000e = ╱fe0000dc06╱ // 0xa8e @0xe
0xa80…ab2 at0013 = ╱ee╱)╱ // 0xa93 @0x13
0xa80…ab2 at0014 = ╱ec╱,╱ // 0xa94 @0x14
0xa80…ab2 at0015 = ╱50╱P╱ // 0xa95 @0x15
0xa80…ab2 at0016 = ╱4f╱O╱ // 0xa96 @0x16
0xa80…ab2 at0017 = ╱53╱S╱ // 0xa97 @0x17
0xa80…ab2 at0018 = ╱54╱T╱ // 0xa98 @0x18
0xa80…ab2 at0019 = ╱32╱2╱ // 0xa99 @0x19
0xa80…ab2 at001a = ╱ef╱$╱ // 0xa9a @0x1a
0xa80…ab2 at001b = ╱ed╱(╱ // 0xa9b @0x1b
0xa80…ab2 at001c = ╱33╱3╱ // 0xa9c @0x1c
0xa80…ab2 at001d = ╱34╱4╱ // 0xa9d @0x1d
0xa80…ab2 at001e = ╱fe00008806╱ // 0xa9e @0x1e
0xa80…ab2 at0023 = ╱ee╱)╱ // 0xaa3 @0x23
0xa80…ab2 at0024 = ╱ec╱,╱ // 0xaa4 @0x24
0xa80…ab2 at0025 = ╱44╱D╱ // 0xaa5 @0x25
0xa80…ab2 at0026 = ╱41╱A╱ // 0xaa6 @0x26
0xa80…ab2 at0027 = ╱44╱D╱ // 0xaa7 @0x27
0xa80…ab2 at0028 = ╱ef╱$╱ // 0xaa8 @0x28
0xa80…ab2 at0029 = ╱ed╱(╱ // 0xaa9 @0x29
0xa80…ab2 at002a = ╱36╱6╱ // 0xaaa @0x2a
0xa80…ab2 at002b = ╱fe0000c003╱ // 0xaab @0x2b
0xa80…ab2 at0030 = ╱ee╱)╱ // 0xab0 @0x30
0xa80…ab2 at0031 = EOL // 0xab1 @0x31
0xa80…ab2 }
0xab2…ae1 9838 9020 DIM BL$(79),LINE$(30),FIL$(20)
0xab2…ae1 LineComalBin {
0xab2…ae1 ptr = 0x9838 // 0xab2 @0x0
0xab2…ae1 lno = 0x233c // 0xab4 @0x2
0xab2…ae1 at0004 = ╱87╱ DIM ╱ // 0xab6 @0x4
0xab2…ae1 at0005 = ╱42╱B╱ // 0xab7 @0x5
0xab2…ae1 at0006 = ╱4c╱L╱ // 0xab8 @0x6
0xab2…ae1 at0007 = ╱ef╱$╱ // 0xab9 @0x7
0xab2…ae1 at0008 = ╱ed╱(╱ // 0xaba @0x8
0xab2…ae1 at0009 = ╱37╱7╱ // 0xabb @0x9
0xab2…ae1 at000a = ╱39╱9╱ // 0xabc @0xa
0xab2…ae1 at000b = ╱fe00009e07╱ // 0xabd @0xb
0xab2…ae1 at0010 = ╱ee╱)╱ // 0xac2 @0x10
0xab2…ae1 at0011 = ╱ec╱,╱ // 0xac3 @0x11
0xab2…ae1 at0012 = ╱4c╱L╱ // 0xac4 @0x12
0xab2…ae1 at0013 = ╱49╱I╱ // 0xac5 @0x13
0xab2…ae1 at0014 = ╱4e╱N╱ // 0xac6 @0x14
0xab2…ae1 at0015 = ╱45╱E╱ // 0xac7 @0x15
0xab2…ae1 at0016 = ╱ef╱$╱ // 0xac8 @0x16
0xab2…ae1 at0017 = ╱ed╱(╱ // 0xac9 @0x17
0xab2…ae1 at0018 = ╱33╱3╱ // 0xaca @0x18
0xab2…ae1 at0019 = ╱30╱0╱ // 0xacb @0x19
0xab2…ae1 at001a = ╱fe0000f005╱ // 0xacc @0x1a
0xab2…ae1 at001f = ╱ee╱)╱ // 0xad1 @0x1f
0xab2…ae1 at0020 = ╱ec╱,╱ // 0xad2 @0x20
0xab2…ae1 at0021 = ╱46╱F╱ // 0xad3 @0x21
0xab2…ae1 at0022 = ╱49╱I╱ // 0xad4 @0x22
0xab2…ae1 at0023 = ╱4c╱L╱ // 0xad5 @0x23
0xab2…ae1 at0024 = ╱ef╱$╱ // 0xad6 @0x24
0xab2…ae1 at0025 = ╱ed╱(╱ // 0xad7 @0x25
0xab2…ae1 at0026 = ╱32╱2╱ // 0xad8 @0x26
0xab2…ae1 at0027 = ╱30╱0╱ // 0xad9 @0x27
0xab2…ae1 at0028 = ╱fe0000a005╱ // 0xada @0x28
0xab2…ae1 at002d = ╱ee╱)╱ // 0xadf @0x2d
0xab2…ae1 at002e = EOL // 0xae0 @0x2e
0xab2…ae1 }
0xae1…aec 9843 9025 OUTP=B
0xae1…aec LineComalBin {
0xae1…aec ptr = 0x9843 // 0xae1 @0x0
0xae1…aec lno = 0x2341 // 0xae3 @0x2
0xae1…aec at0004 = ╱4f╱O╱ // 0xae5 @0x4
0xae1…aec at0005 = ╱55╱U╱ // 0xae6 @0x5
0xae1…aec at0006 = ╱54╱T╱ // 0xae7 @0x6
0xae1…aec at0007 = ╱50╱P╱ // 0xae8 @0x7
0xae1…aec at0008 = ╱dc╱=╱ // 0xae9 @0x8
0xae1…aec at0009 = ╱42╱B╱ // 0xaea @0x9
0xae1…aec at000a = EOL // 0xaeb @0xa
0xae1…aec }
0xaec…afd 9854 9030 FOR I=E TO 79
0xaec…afd LineComalBin {
0xaec…afd ptr = 0x9854 // 0xaec @0x0
0xaec…afd lno = 0x2346 // 0xaee @0x2
0xaec…afd at0004 = ╱83╱ FOR ╱ // 0xaf0 @0x4
0xaec…afd at0005 = ╱49╱I╱ // 0xaf1 @0x5
0xaec…afd at0006 = ╱dc╱=╱ // 0xaf2 @0x6
0xaec…afd at0007 = ╱45╱E╱ // 0xaf3 @0x7
0xaec…afd at0008 = ╱b7╱ TO ╱ // 0xaf4 @0x8
0xaec…afd at0009 = ╱37╱7╱ // 0xaf5 @0x9
0xaec…afd at000a = ╱39╱9╱ // 0xaf6 @0xa
0xaec…afd at000b = ╱fe00009e07╱ // 0xaf7 @0xb
0xaec…afd at0010 = EOL // 0xafc @0x10
0xaec…afd }
0xafd…b0d 9864 9031 BL$=BL$+" "
0xafd…b0d LineComalBin {
0xafd…b0d ptr = 0x9864 // 0xafd @0x0
0xafd…b0d lno = 0x2347 // 0xaff @0x2
0xafd…b0d at0004 = ╱42╱B╱ // 0xb01 @0x4
0xafd…b0d at0005 = ╱4c╱L╱ // 0xb02 @0x5
0xafd…b0d at0006 = ╱ef╱$╱ // 0xb03 @0x6
0xafd…b0d at0007 = ╱dc╱=╱ // 0xb04 @0x7
0xafd…b0d at0008 = ╱42╱B╱ // 0xb05 @0x8
0xafd…b0d at0009 = ╱4c╱L╱ // 0xb06 @0x9
0xafd…b0d at000a = ╱ef╱$╱ // 0xb07 @0xa
0xafd…b0d at000b = ╱f1╱+╱ // 0xb08 @0xb
0xafd…b0d at000c = ╱22╱"╱ // 0xb09 @0xc
0xafd…b0d at000d = ╱20╱…╱ // 0xb0a @0xd
0xafd…b0d at000e = ╱22╱"╱ // 0xb0b @0xe
0xafd…b0d at000f = EOL // 0xb0c @0xf
0xafd…b0d }
0xb0d…b14 986b 9032 NEXT I
0xb0d…b14 LineComalBin {
0xb0d…b14 ptr = 0x986b // 0xb0d @0x0
0xb0d…b14 lno = 0x2348 // 0xb0f @0x2
0xb0d…b14 at0004 = ╱84╱ NEXT ╱ // 0xb11 @0x4
0xb0d…b14 at0005 = ╱49╱I╱ // 0xb12 @0x5
0xb0d…b14 at0006 = EOL // 0xb13 @0x6
0xb0d…b14 }
0xb14…b30 9887 9040 FIL$="P641220:VIRKKART"
0xb14…b30 LineComalBin {
0xb14…b30 ptr = 0x9887 // 0xb14 @0x0
0xb14…b30 lno = 0x2350 // 0xb16 @0x2
0xb14…b30 at0004 = ╱46╱F╱ // 0xb18 @0x4
0xb14…b30 at0005 = ╱49╱I╱ // 0xb19 @0x5
0xb14…b30 at0006 = ╱4c╱L╱ // 0xb1a @0x6
0xb14…b30 at0007 = ╱ef╱$╱ // 0xb1b @0x7
0xb14…b30 at0008 = ╱dc╱=╱ // 0xb1c @0x8
0xb14…b30 at0009 = ╱22╱"╱ // 0xb1d @0x9
0xb14…b30 at000a = ╱50╱P╱ // 0xb1e @0xa
0xb14…b30 at000b = ╱36╱6╱ // 0xb1f @0xb
0xb14…b30 at000c = ╱34╱4╱ // 0xb20 @0xc
0xb14…b30 at000d = ╱31╱1╱ // 0xb21 @0xd
0xb14…b30 at000e = ╱32╱2╱ // 0xb22 @0xe
0xb14…b30 at000f = ╱32╱2╱ // 0xb23 @0xf
0xb14…b30 at0010 = ╱30╱0╱ // 0xb24 @0x10
0xb14…b30 at0011 = ╱3a╱:╱ // 0xb25 @0x11
0xb14…b30 at0012 = ╱56╱V╱ // 0xb26 @0x12
0xb14…b30 at0013 = ╱49╱I╱ // 0xb27 @0x13
0xb14…b30 at0014 = ╱52╱R╱ // 0xb28 @0x14
0xb14…b30 at0015 = ╱4b╱K╱ // 0xb29 @0x15
0xb14…b30 at0016 = ╱4b╱K╱ // 0xb2a @0x16
0xb14…b30 at0017 = ╱41╱A╱ // 0xb2b @0x17
0xb14…b30 at0018 = ╱52╱R╱ // 0xb2c @0x18
0xb14…b30 at0019 = ╱54╱T╱ // 0xb2d @0x19
0xb14…b30 at001a = ╱22╱"╱ // 0xb2e @0x1a
0xb14…b30 at001b = EOL // 0xb2f @0x1b
0xb14…b30 }
0xb30…b3b 9892 9200 FOR I=E TO A
0xb30…b3b LineComalBin {
0xb30…b3b ptr = 0x9892 // 0xb30 @0x0
0xb30…b3b lno = 0x23f0 // 0xb32 @0x2
0xb30…b3b at0004 = ╱83╱ FOR ╱ // 0xb34 @0x4
0xb30…b3b at0005 = ╱49╱I╱ // 0xb35 @0x5
0xb30…b3b at0006 = ╱dc╱=╱ // 0xb36 @0x6
0xb30…b3b at0007 = ╱45╱E╱ // 0xb37 @0x7
0xb30…b3b at0008 = ╱b7╱ TO ╱ // 0xb38 @0x8
0xb30…b3b at0009 = ╱41╱A╱ // 0xb39 @0x9
0xb30…b3b at000a = EOL // 0xb3a @0xa
0xb30…b3b }
0xb3b…b46 989d 9210 X(I)=E
0xb3b…b46 LineComalBin {
0xb3b…b46 ptr = 0x989d // 0xb3b @0x0
0xb3b…b46 lno = 0x23fa // 0xb3d @0x2
0xb3b…b46 at0004 = ╱58╱X╱ // 0xb3f @0x4
0xb3b…b46 at0005 = ╱ed╱(╱ // 0xb40 @0x5
0xb3b…b46 at0006 = ╱49╱I╱ // 0xb41 @0x6
0xb3b…b46 at0007 = ╱ee╱)╱ // 0xb42 @0x7
0xb3b…b46 at0008 = ╱dc╱=╱ // 0xb43 @0x8
0xb3b…b46 at0009 = ╱45╱E╱ // 0xb44 @0x9
0xb3b…b46 at000a = EOL // 0xb45 @0xa
0xb3b…b46 }
0xb46…b55 98ac 9220 Y(I)=E+G*I
0xb46…b55 LineComalBin {
0xb46…b55 ptr = 0x98ac // 0xb46 @0x0
0xb46…b55 lno = 0x2404 // 0xb48 @0x2
0xb46…b55 at0004 = ╱59╱Y╱ // 0xb4a @0x4
0xb46…b55 at0005 = ╱ed╱(╱ // 0xb4b @0x5
0xb46…b55 at0006 = ╱49╱I╱ // 0xb4c @0x6
0xb46…b55 at0007 = ╱ee╱)╱ // 0xb4d @0x7
0xb46…b55 at0008 = ╱dc╱=╱ // 0xb4e @0x8
0xb46…b55 at0009 = ╱45╱E╱ // 0xb4f @0x9
0xb46…b55 at000a = ╱e2╱+╱ // 0xb50 @0xa
0xb46…b55 at000b = ╱47╱G╱ // 0xb51 @0xb
0xb46…b55 at000c = ╱e4╱*╱ // 0xb52 @0xc
0xb46…b55 at000d = ╱49╱I╱ // 0xb53 @0xd
0xb46…b55 at000e = EOL // 0xb54 @0xe
0xb46…b55 }
0xb55…b5c 98b3 9230 NEXT I
0xb55…b5c LineComalBin {
0xb55…b5c ptr = 0x98b3 // 0xb55 @0x0
0xb55…b5c lno = 0x240e // 0xb57 @0x2
0xb55…b5c at0004 = ╱84╱ NEXT ╱ // 0xb59 @0x4
0xb55…b5c at0005 = ╱49╱I╱ // 0xb5a @0x5
0xb55…b5c at0006 = EOL // 0xb5b @0x6
0xb55…b5c }
0xb5c…b72 98c9 9240 PICT$(E)="CIR-nr"
0xb5c…b72 LineComalBin {
0xb5c…b72 ptr = 0x98c9 // 0xb5c @0x0
0xb5c…b72 lno = 0x2418 // 0xb5e @0x2
0xb5c…b72 at0004 = ╱50╱P╱ // 0xb60 @0x4
0xb5c…b72 at0005 = ╱49╱I╱ // 0xb61 @0x5
0xb5c…b72 at0006 = ╱43╱C╱ // 0xb62 @0x6
0xb5c…b72 at0007 = ╱54╱T╱ // 0xb63 @0x7
0xb5c…b72 at0008 = ╱ef╱$╱ // 0xb64 @0x8
0xb5c…b72 at0009 = ╱ed╱(╱ // 0xb65 @0x9
0xb5c…b72 at000a = ╱45╱E╱ // 0xb66 @0xa
0xb5c…b72 at000b = ╱ee╱)╱ // 0xb67 @0xb
0xb5c…b72 at000c = ╱dc╱=╱ // 0xb68 @0xc
0xb5c…b72 at000d = ╱22╱"╱ // 0xb69 @0xd
0xb5c…b72 at000e = ╱43╱C╱ // 0xb6a @0xe
0xb5c…b72 at000f = ╱49╱I╱ // 0xb6b @0xf
0xb5c…b72 at0010 = ╱52╱R╱ // 0xb6c @0x10
0xb5c…b72 at0011 = ╱2d╱-╱ // 0xb6d @0x11
0xb5c…b72 at0012 = ╱6e╱n╱ // 0xb6e @0x12
0xb5c…b72 at0013 = ╱72╱r╱ // 0xb6f @0x13
0xb5c…b72 at0014 = ╱22╱"╱ // 0xb70 @0x14
0xb5c…b72 at0015 = EOL // 0xb71 @0x15
0xb5c…b72 }
0xb72…b85 98dc 9250 TYPE(E)=7
0xb72…b85 LineComalBin {
0xb72…b85 ptr = 0x98dc // 0xb72 @0x0
0xb72…b85 lno = 0x2422 // 0xb74 @0x2
0xb72…b85 at0004 = ╱54╱T╱ // 0xb76 @0x4
0xb72…b85 at0005 = ╱59╱Y╱ // 0xb77 @0x5
0xb72…b85 at0006 = ╱50╱P╱ // 0xb78 @0x6
0xb72…b85 at0007 = ╱45╱E╱ // 0xb79 @0x7
0xb72…b85 at0008 = ╱ed╱(╱ // 0xb7a @0x8
0xb72…b85 at0009 = ╱45╱E╱ // 0xb7b @0x9
0xb72…b85 at000a = ╱ee╱)╱ // 0xb7c @0xa
0xb72…b85 at000b = ╱dc╱=╱ // 0xb7d @0xb
0xb72…b85 at000c = ╱37╱7╱ // 0xb7e @0xc
0xb72…b85 at000d = ╱fe0000e003╱ // 0xb7f @0xd
0xb72…b85 at0012 = EOL // 0xb84 @0x12
0xb72…b85 }
0xb85…b99 98f0 9260 PICT$(G)="Navn"
0xb85…b99 LineComalBin {
0xb85…b99 ptr = 0x98f0 // 0xb85 @0x0
0xb85…b99 lno = 0x242c // 0xb87 @0x2
0xb85…b99 at0004 = ╱50╱P╱ // 0xb89 @0x4
0xb85…b99 at0005 = ╱49╱I╱ // 0xb8a @0x5
0xb85…b99 at0006 = ╱43╱C╱ // 0xb8b @0x6
0xb85…b99 at0007 = ╱54╱T╱ // 0xb8c @0x7
0xb85…b99 at0008 = ╱ef╱$╱ // 0xb8d @0x8
0xb85…b99 at0009 = ╱ed╱(╱ // 0xb8e @0x9
0xb85…b99 at000a = ╱47╱G╱ // 0xb8f @0xa
0xb85…b99 at000b = ╱ee╱)╱ // 0xb90 @0xb
0xb85…b99 at000c = ╱dc╱=╱ // 0xb91 @0xc
0xb85…b99 at000d = ╱22╱"╱ // 0xb92 @0xd
0xb85…b99 at000e = ╱4e╱N╱ // 0xb93 @0xe
0xb85…b99 at000f = ╱61╱a╱ // 0xb94 @0xf
0xb85…b99 at0010 = ╱76╱v╱ // 0xb95 @0x10
0xb85…b99 at0011 = ╱6e╱n╱ // 0xb96 @0x11
0xb85…b99 at0012 = ╱22╱"╱ // 0xb97 @0x12
0xb85…b99 at0013 = EOL // 0xb98 @0x13
0xb85…b99 }
0xb99…bae 9905 9270 TYPE(G)=-25
0xb99…bae LineComalBin {
0xb99…bae ptr = 0x9905 // 0xb99 @0x0
0xb99…bae lno = 0x2436 // 0xb9b @0x2
0xb99…bae at0004 = ╱54╱T╱ // 0xb9d @0x4
0xb99…bae at0005 = ╱59╱Y╱ // 0xb9e @0x5
0xb99…bae at0006 = ╱50╱P╱ // 0xb9f @0x6
0xb99…bae at0007 = ╱45╱E╱ // 0xba0 @0x7
0xb99…bae at0008 = ╱ed╱(╱ // 0xba1 @0x8
0xb99…bae at0009 = ╱47╱G╱ // 0xba2 @0x9
0xb99…bae at000a = ╱ee╱)╱ // 0xba3 @0xa
0xb99…bae at000b = ╱dc╱=╱ // 0xba4 @0xb
0xb99…bae at000c = ╱e9╱-╱ // 0xba5 @0xc
0xb99…bae at000d = ╱32╱2╱ // 0xba6 @0xd
0xb99…bae at000e = ╱35╱5╱ // 0xba7 @0xe
0xb99…bae at000f = ╱fe0000c805╱ // 0xba8 @0xf
0xb99…bae at0014 = EOL // 0xbad @0x14
0xb99…bae }
0xbae…bc5 991c 9280 PICT$(V)="Adresse"
0xbae…bc5 LineComalBin {
0xbae…bc5 ptr = 0x991c // 0xbae @0x0
0xbae…bc5 lno = 0x2440 // 0xbb0 @0x2
0xbae…bc5 at0004 = ╱50╱P╱ // 0xbb2 @0x4
0xbae…bc5 at0005 = ╱49╱I╱ // 0xbb3 @0x5
0xbae…bc5 at0006 = ╱43╱C╱ // 0xbb4 @0x6
0xbae…bc5 at0007 = ╱54╱T╱ // 0xbb5 @0x7
0xbae…bc5 at0008 = ╱ef╱$╱ // 0xbb6 @0x8
0xbae…bc5 at0009 = ╱ed╱(╱ // 0xbb7 @0x9
0xbae…bc5 at000a = ╱56╱V╱ // 0xbb8 @0xa
0xbae…bc5 at000b = ╱ee╱)╱ // 0xbb9 @0xb
0xbae…bc5 at000c = ╱dc╱=╱ // 0xbba @0xc
0xbae…bc5 at000d = ╱22╱"╱ // 0xbbb @0xd
0xbae…bc5 at000e = ╱41╱A╱ // 0xbbc @0xe
0xbae…bc5 at000f = ╱64╱d╱ // 0xbbd @0xf
0xbae…bc5 at0010 = ╱72╱r╱ // 0xbbe @0x10
0xbae…bc5 at0011 = ╱65╱e╱ // 0xbbf @0x11
0xbae…bc5 at0012 = ╱73╱s╱ // 0xbc0 @0x12
0xbae…bc5 at0013 = ╱73╱s╱ // 0xbc1 @0x13
0xbae…bc5 at0014 = ╱65╱e╱ // 0xbc2 @0x14
0xbae…bc5 at0015 = ╱22╱"╱ // 0xbc3 @0x15
0xbae…bc5 at0016 = EOL // 0xbc4 @0x16
0xbae…bc5 }
0xbc5…bda 9931 9290 TYPE(V)=-23
0xbc5…bda LineComalBin {
0xbc5…bda ptr = 0x9931 // 0xbc5 @0x0
0xbc5…bda lno = 0x244a // 0xbc7 @0x2
0xbc5…bda at0004 = ╱54╱T╱ // 0xbc9 @0x4
0xbc5…bda at0005 = ╱59╱Y╱ // 0xbca @0x5
0xbc5…bda at0006 = ╱50╱P╱ // 0xbcb @0x6
0xbc5…bda at0007 = ╱45╱E╱ // 0xbcc @0x7
0xbc5…bda at0008 = ╱ed╱(╱ // 0xbcd @0x8
0xbc5…bda at0009 = ╱56╱V╱ // 0xbce @0x9
0xbc5…bda at000a = ╱ee╱)╱ // 0xbcf @0xa
0xbc5…bda at000b = ╱dc╱=╱ // 0xbd0 @0xb
0xbc5…bda at000c = ╱e9╱-╱ // 0xbd1 @0xc
0xbc5…bda at000d = ╱32╱2╱ // 0xbd2 @0xd
0xbc5…bda at000e = ╱33╱3╱ // 0xbd3 @0xe
0xbc5…bda at000f = ╱fe0000b805╱ // 0xbd4 @0xf
0xbc5…bda at0014 = EOL // 0xbd9 @0x14
0xbc5…bda }
0xbda…bf5 994c 9300 PICT$(4)="Postnr"
0xbda…bf5 LineComalBin {
0xbda…bf5 ptr = 0x994c // 0xbda @0x0
0xbda…bf5 lno = 0x2454 // 0xbdc @0x2
0xbda…bf5 at0004 = ╱50╱P╱ // 0xbde @0x4
0xbda…bf5 at0005 = ╱49╱I╱ // 0xbdf @0x5
0xbda…bf5 at0006 = ╱43╱C╱ // 0xbe0 @0x6
0xbda…bf5 at0007 = ╱54╱T╱ // 0xbe1 @0x7
0xbda…bf5 at0008 = ╱ef╱$╱ // 0xbe2 @0x8
0xbda…bf5 at0009 = ╱ed╱(╱ // 0xbe3 @0x9
0xbda…bf5 at000a = ╱34╱4╱ // 0xbe4 @0xa
0xbda…bf5 at000b = ╱fe00008003╱ // 0xbe5 @0xb
0xbda…bf5 at0010 = ╱ee╱)╱ // 0xbea @0x10
0xbda…bf5 at0011 = ╱dc╱=╱ // 0xbeb @0x11
0xbda…bf5 at0012 = ╱22╱"╱ // 0xbec @0x12
0xbda…bf5 at0013 = ╱50╱P╱ // 0xbed @0x13
0xbda…bf5 at0014 = ╱6f╱o╱ // 0xbee @0x14
0xbda…bf5 at0015 = ╱73╱s╱ // 0xbef @0x15
0xbda…bf5 at0016 = ╱74╱t╱ // 0xbf0 @0x16
0xbda…bf5 at0017 = ╱6e╱n╱ // 0xbf1 @0x17
0xbda…bf5 at0018 = ╱72╱r╱ // 0xbf2 @0x18
0xbda…bf5 at0019 = ╱22╱"╱ // 0xbf3 @0x19
0xbda…bf5 at001a = EOL // 0xbf4 @0x1a
0xbda…bf5 }
0xbf5…c0d 9964 9310 TYPE(4)=4
0xbf5…c0d LineComalBin {
0xbf5…c0d ptr = 0x9964 // 0xbf5 @0x0
0xbf5…c0d lno = 0x245e // 0xbf7 @0x2
0xbf5…c0d at0004 = ╱54╱T╱ // 0xbf9 @0x4
0xbf5…c0d at0005 = ╱59╱Y╱ // 0xbfa @0x5
0xbf5…c0d at0006 = ╱50╱P╱ // 0xbfb @0x6
0xbf5…c0d at0007 = ╱45╱E╱ // 0xbfc @0x7
0xbf5…c0d at0008 = ╱ed╱(╱ // 0xbfd @0x8
0xbf5…c0d at0009 = ╱34╱4╱ // 0xbfe @0x9
0xbf5…c0d at000a = ╱fe00008003╱ // 0xbff @0xa
0xbf5…c0d at000f = ╱ee╱)╱ // 0xc04 @0xf
0xbf5…c0d at0010 = ╱dc╱=╱ // 0xc05 @0x10
0xbf5…c0d at0011 = ╱34╱4╱ // 0xc06 @0x11
0xbf5…c0d at0012 = ╱fe00008003╱ // 0xc07 @0x12
0xbf5…c0d at0017 = EOL // 0xc0c @0x17
0xbf5…c0d }
0xc0d…c24 997b 9320 PICT$(5)="By"
0xc0d…c24 LineComalBin {
0xc0d…c24 ptr = 0x997b // 0xc0d @0x0
0xc0d…c24 lno = 0x2468 // 0xc0f @0x2
0xc0d…c24 at0004 = ╱50╱P╱ // 0xc11 @0x4
0xc0d…c24 at0005 = ╱49╱I╱ // 0xc12 @0x5
0xc0d…c24 at0006 = ╱43╱C╱ // 0xc13 @0x6
0xc0d…c24 at0007 = ╱54╱T╱ // 0xc14 @0x7
0xc0d…c24 at0008 = ╱ef╱$╱ // 0xc15 @0x8
0xc0d…c24 at0009 = ╱ed╱(╱ // 0xc16 @0x9
0xc0d…c24 at000a = ╱35╱5╱ // 0xc17 @0xa
0xc0d…c24 at000b = ╱fe0000a003╱ // 0xc18 @0xb
0xc0d…c24 at0010 = ╱ee╱)╱ // 0xc1d @0x10
0xc0d…c24 at0011 = ╱dc╱=╱ // 0xc1e @0x11
0xc0d…c24 at0012 = ╱22╱"╱ // 0xc1f @0x12
0xc0d…c24 at0013 = ╱42╱B╱ // 0xc20 @0x13
0xc0d…c24 at0014 = ╱79╱y╱ // 0xc21 @0x14
0xc0d…c24 at0015 = ╱22╱"╱ // 0xc22 @0x15
0xc0d…c24 at0016 = EOL // 0xc23 @0x16
0xc0d…c24 }
0xc24…c3e 9995 9330 TYPE(5)=-14
0xc24…c3e LineComalBin {
0xc24…c3e ptr = 0x9995 // 0xc24 @0x0
0xc24…c3e lno = 0x2472 // 0xc26 @0x2
0xc24…c3e at0004 = ╱54╱T╱ // 0xc28 @0x4
0xc24…c3e at0005 = ╱59╱Y╱ // 0xc29 @0x5
0xc24…c3e at0006 = ╱50╱P╱ // 0xc2a @0x6
0xc24…c3e at0007 = ╱45╱E╱ // 0xc2b @0x7
0xc24…c3e at0008 = ╱ed╱(╱ // 0xc2c @0x8
0xc24…c3e at0009 = ╱35╱5╱ // 0xc2d @0x9
0xc24…c3e at000a = ╱fe0000a003╱ // 0xc2e @0xa
0xc24…c3e at000f = ╱ee╱)╱ // 0xc33 @0xf
0xc24…c3e at0010 = ╱dc╱=╱ // 0xc34 @0x10
0xc24…c3e at0011 = ╱e9╱-╱ // 0xc35 @0x11
0xc24…c3e at0012 = ╱31╱1╱ // 0xc36 @0x12
0xc24…c3e at0013 = ╱34╱4╱ // 0xc37 @0x13
0xc24…c3e at0014 = ╱fe0000e004╱ // 0xc38 @0x14
0xc24…c3e at0019 = EOL // 0xc3d @0x19
0xc24…c3e }
0xc3e…c60 99b7 9340 PICT$(6)="Aftalenr i PI"
0xc3e…c60 LineComalBin {
0xc3e…c60 ptr = 0x99b7 // 0xc3e @0x0
0xc3e…c60 lno = 0x247c // 0xc40 @0x2
0xc3e…c60 at0004 = ╱50╱P╱ // 0xc42 @0x4
0xc3e…c60 at0005 = ╱49╱I╱ // 0xc43 @0x5
0xc3e…c60 at0006 = ╱43╱C╱ // 0xc44 @0x6
0xc3e…c60 at0007 = ╱54╱T╱ // 0xc45 @0x7
0xc3e…c60 at0008 = ╱ef╱$╱ // 0xc46 @0x8
0xc3e…c60 at0009 = ╱ed╱(╱ // 0xc47 @0x9
0xc3e…c60 at000a = ╱36╱6╱ // 0xc48 @0xa
0xc3e…c60 at000b = ╱fe0000c003╱ // 0xc49 @0xb
0xc3e…c60 at0010 = ╱ee╱)╱ // 0xc4e @0x10
0xc3e…c60 at0011 = ╱dc╱=╱ // 0xc4f @0x11
0xc3e…c60 at0012 = ╱22╱"╱ // 0xc50 @0x12
0xc3e…c60 at0013 = ╱41╱A╱ // 0xc51 @0x13
0xc3e…c60 at0014 = ╱66╱f╱ // 0xc52 @0x14
0xc3e…c60 at0015 = ╱74╱t╱ // 0xc53 @0x15
0xc3e…c60 at0016 = ╱61╱a╱ // 0xc54 @0x16
0xc3e…c60 at0017 = ╱6c╱l╱ // 0xc55 @0x17
0xc3e…c60 at0018 = ╱65╱e╱ // 0xc56 @0x18
0xc3e…c60 at0019 = ╱6e╱n╱ // 0xc57 @0x19
0xc3e…c60 at001a = ╱72╱r╱ // 0xc58 @0x1a
0xc3e…c60 at001b = ╱20╱…╱ // 0xc59 @0x1b
0xc3e…c60 at001c = ╱69╱i╱ // 0xc5a @0x1c
0xc3e…c60 at001d = ╱20╱…╱ // 0xc5b @0x1d
0xc3e…c60 at001e = ╱50╱P╱ // 0xc5c @0x1e
0xc3e…c60 at001f = ╱49╱I╱ // 0xc5d @0x1f
0xc3e…c60 at0020 = ╱22╱"╱ // 0xc5e @0x20
0xc3e…c60 at0021 = EOL // 0xc5f @0x21
0xc3e…c60 }
0xc60…c78 99cf 9350 TYPE(6)=6
0xc60…c78 LineComalBin {
0xc60…c78 ptr = 0x99cf // 0xc60 @0x0
0xc60…c78 lno = 0x2486 // 0xc62 @0x2
0xc60…c78 at0004 = ╱54╱T╱ // 0xc64 @0x4
0xc60…c78 at0005 = ╱59╱Y╱ // 0xc65 @0x5
0xc60…c78 at0006 = ╱50╱P╱ // 0xc66 @0x6
0xc60…c78 at0007 = ╱45╱E╱ // 0xc67 @0x7
0xc60…c78 at0008 = ╱ed╱(╱ // 0xc68 @0x8
0xc60…c78 at0009 = ╱36╱6╱ // 0xc69 @0x9
0xc60…c78 at000a = ╱fe0000c003╱ // 0xc6a @0xa
0xc60…c78 at000f = ╱ee╱)╱ // 0xc6f @0xf
0xc60…c78 at0010 = ╱dc╱=╱ // 0xc70 @0x10
0xc60…c78 at0011 = ╱36╱6╱ // 0xc71 @0x11
0xc60…c78 at0012 = ╱fe0000c003╱ // 0xc72 @0x12
0xc60…c78 at0017 = EOL // 0xc77 @0x17
0xc60…c78 }
0xc78…c99 99f0 9360 PICT$(7)="Kontonr i PI"
0xc78…c99 LineComalBin {
0xc78…c99 ptr = 0x99f0 // 0xc78 @0x0
0xc78…c99 lno = 0x2490 // 0xc7a @0x2
0xc78…c99 at0004 = ╱50╱P╱ // 0xc7c @0x4
0xc78…c99 at0005 = ╱49╱I╱ // 0xc7d @0x5
0xc78…c99 at0006 = ╱43╱C╱ // 0xc7e @0x6
0xc78…c99 at0007 = ╱54╱T╱ // 0xc7f @0x7
0xc78…c99 at0008 = ╱ef╱$╱ // 0xc80 @0x8
0xc78…c99 at0009 = ╱ed╱(╱ // 0xc81 @0x9
0xc78…c99 at000a = ╱37╱7╱ // 0xc82 @0xa
0xc78…c99 at000b = ╱fe0000e003╱ // 0xc83 @0xb
0xc78…c99 at0010 = ╱ee╱)╱ // 0xc88 @0x10
0xc78…c99 at0011 = ╱dc╱=╱ // 0xc89 @0x11
0xc78…c99 at0012 = ╱22╱"╱ // 0xc8a @0x12
0xc78…c99 at0013 = ╱4b╱K╱ // 0xc8b @0x13
0xc78…c99 at0014 = ╱6f╱o╱ // 0xc8c @0x14
0xc78…c99 at0015 = ╱6e╱n╱ // 0xc8d @0x15
0xc78…c99 at0016 = ╱74╱t╱ // 0xc8e @0x16
0xc78…c99 at0017 = ╱6f╱o╱ // 0xc8f @0x17
0xc78…c99 at0018 = ╱6e╱n╱ // 0xc90 @0x18
0xc78…c99 at0019 = ╱72╱r╱ // 0xc91 @0x19
0xc78…c99 at001a = ╱20╱…╱ // 0xc92 @0x1a
0xc78…c99 at001b = ╱69╱i╱ // 0xc93 @0x1b
0xc78…c99 at001c = ╱20╱…╱ // 0xc94 @0x1c
0xc78…c99 at001d = ╱50╱P╱ // 0xc95 @0x1d
0xc78…c99 at001e = ╱49╱I╱ // 0xc96 @0x1e
0xc78…c99 at001f = ╱22╱"╱ // 0xc97 @0x1f
0xc78…c99 at0020 = EOL // 0xc98 @0x20
0xc78…c99 }
0xc99…cb2 9a09 9370 TYPE(7)=10
0xc99…cb2 LineComalBin {
0xc99…cb2 ptr = 0x9a09 // 0xc99 @0x0
0xc99…cb2 lno = 0x249a // 0xc9b @0x2
0xc99…cb2 at0004 = ╱54╱T╱ // 0xc9d @0x4
0xc99…cb2 at0005 = ╱59╱Y╱ // 0xc9e @0x5
0xc99…cb2 at0006 = ╱50╱P╱ // 0xc9f @0x6
0xc99…cb2 at0007 = ╱45╱E╱ // 0xca0 @0x7
0xc99…cb2 at0008 = ╱ed╱(╱ // 0xca1 @0x8
0xc99…cb2 at0009 = ╱37╱7╱ // 0xca2 @0x9
0xc99…cb2 at000a = ╱fe0000e003╱ // 0xca3 @0xa
0xc99…cb2 at000f = ╱ee╱)╱ // 0xca8 @0xf
0xc99…cb2 at0010 = ╱dc╱=╱ // 0xca9 @0x10
0xc99…cb2 at0011 = ╱31╱1╱ // 0xcaa @0x11
0xc99…cb2 at0012 = ╱30╱0╱ // 0xcab @0x12
0xc99…cb2 at0013 = ╱fe0000a004╱ // 0xcac @0x13
0xc99…cb2 at0018 = EOL // 0xcb1 @0x18
0xc99…cb2 }
0xcb2…cd2 9a29 9372 PICT$(8)="System-dato"
0xcb2…cd2 LineComalBin {
0xcb2…cd2 ptr = 0x9a29 // 0xcb2 @0x0
0xcb2…cd2 lno = 0x249c // 0xcb4 @0x2
0xcb2…cd2 at0004 = ╱50╱P╱ // 0xcb6 @0x4
0xcb2…cd2 at0005 = ╱49╱I╱ // 0xcb7 @0x5
0xcb2…cd2 at0006 = ╱43╱C╱ // 0xcb8 @0x6
0xcb2…cd2 at0007 = ╱54╱T╱ // 0xcb9 @0x7
0xcb2…cd2 at0008 = ╱ef╱$╱ // 0xcba @0x8
0xcb2…cd2 at0009 = ╱ed╱(╱ // 0xcbb @0x9
0xcb2…cd2 at000a = ╱38╱8╱ // 0xcbc @0xa
0xcb2…cd2 at000b = ╱fe00008004╱ // 0xcbd @0xb
0xcb2…cd2 at0010 = ╱ee╱)╱ // 0xcc2 @0x10
0xcb2…cd2 at0011 = ╱dc╱=╱ // 0xcc3 @0x11
0xcb2…cd2 at0012 = ╱22╱"╱ // 0xcc4 @0x12
0xcb2…cd2 at0013 = ╱53╱S╱ // 0xcc5 @0x13
0xcb2…cd2 at0014 = ╱79╱y╱ // 0xcc6 @0x14
0xcb2…cd2 at0015 = ╱73╱s╱ // 0xcc7 @0x15
0xcb2…cd2 at0016 = ╱74╱t╱ // 0xcc8 @0x16
0xcb2…cd2 at0017 = ╱65╱e╱ // 0xcc9 @0x17
0xcb2…cd2 at0018 = ╱6d╱m╱ // 0xcca @0x18
0xcb2…cd2 at0019 = ╱2d╱-╱ // 0xccb @0x19
0xcb2…cd2 at001a = ╱64╱d╱ // 0xccc @0x1a
0xcb2…cd2 at001b = ╱61╱a╱ // 0xccd @0x1b
0xcb2…cd2 at001c = ╱74╱t╱ // 0xcce @0x1c
0xcb2…cd2 at001d = ╱6f╱o╱ // 0xccf @0x1d
0xcb2…cd2 at001e = ╱22╱"╱ // 0xcd0 @0x1e
0xcb2…cd2 at001f = EOL // 0xcd1 @0x1f
0xcb2…cd2 }
0xcd2…cea 9a41 9374 TYPE(8)=6
0xcd2…cea LineComalBin {
0xcd2…cea ptr = 0x9a41 // 0xcd2 @0x0
0xcd2…cea lno = 0x249e // 0xcd4 @0x2
0xcd2…cea at0004 = ╱54╱T╱ // 0xcd6 @0x4
0xcd2…cea at0005 = ╱59╱Y╱ // 0xcd7 @0x5
0xcd2…cea at0006 = ╱50╱P╱ // 0xcd8 @0x6
0xcd2…cea at0007 = ╱45╱E╱ // 0xcd9 @0x7
0xcd2…cea at0008 = ╱ed╱(╱ // 0xcda @0x8
0xcd2…cea at0009 = ╱38╱8╱ // 0xcdb @0x9
0xcd2…cea at000a = ╱fe00008004╱ // 0xcdc @0xa
0xcd2…cea at000f = ╱ee╱)╱ // 0xce1 @0xf
0xcd2…cea at0010 = ╱dc╱=╱ // 0xce2 @0x10
0xcd2…cea at0011 = ╱36╱6╱ // 0xce3 @0x11
0xcd2…cea at0012 = ╱fe0000c003╱ // 0xce4 @0x12
0xcd2…cea at0017 = EOL // 0xce9 @0x17
0xcd2…cea }
0xcea…cf2 9a49 9380 Æ=B
0xcea…cf2 LineComalBin {
0xcea…cf2 ptr = 0x9a49 // 0xcea @0x0
0xcea…cf2 lno = 0x24a4 // 0xcec @0x2
0xcea…cf2 at0004 = ╱5b╱Æ╱ // 0xcee @0x4
0xcea…cf2 at0005 = ╱dc╱=╱ // 0xcef @0x5
0xcea…cf2 at0006 = ╱42╱B╱ // 0xcf0 @0x6
0xcea…cf2 at0007 = EOL // 0xcf1 @0x7
0xcea…cf2 }
0xcf2…cff 9a56 9390 EXEC INDVIRK
0xcf2…cff LineComalBin {
0xcf2…cff ptr = 0x9a56 // 0xcf2 @0x0
0xcf2…cff lno = 0x24ae // 0xcf4 @0x2
0xcf2…cff at0004 = ╱9d╱ EXEC ╱ // 0xcf6 @0x4
0xcf2…cff at0005 = ╱49╱I╱ // 0xcf7 @0x5
0xcf2…cff at0006 = ╱4e╱N╱ // 0xcf8 @0x6
0xcf2…cff at0007 = ╱44╱D╱ // 0xcf9 @0x7
0xcf2…cff at0008 = ╱56╱V╱ // 0xcfa @0x8
0xcf2…cff at0009 = ╱49╱I╱ // 0xcfb @0x9
0xcf2…cff at000a = ╱52╱R╱ // 0xcfc @0xa
0xcf2…cff at000b = ╱4b╱K╱ // 0xcfd @0xb
0xcf2…cff at000c = EOL // 0xcfe @0xc
0xcf2…cff }
0xcff…d05 9a5c 9400 REPEAT
0xcff…d05 LineComalBin {
0xcff…d05 ptr = 0x9a5c // 0xcff @0x0
0xcff…d05 lno = 0x24b8 // 0xd01 @0x2
0xcff…d05 at0004 = ╱97╱ REPEAT ╱ // 0xd03 @0x4
0xcff…d05 at0005 = EOL // 0xd04 @0x5
0xcff…d05 }
0xd05…d0e 9a65 9405 SV=G
0xd05…d0e LineComalBin {
0xd05…d0e ptr = 0x9a65 // 0xd05 @0x0
0xd05…d0e lno = 0x24bd // 0xd07 @0x2
0xd05…d0e at0004 = ╱53╱S╱ // 0xd09 @0x4
0xd05…d0e at0005 = ╱56╱V╱ // 0xd0a @0x5
0xd05…d0e at0006 = ╱dc╱=╱ // 0xd0b @0x6
0xd05…d0e at0007 = ╱47╱G╱ // 0xd0c @0x7
0xd05…d0e at0008 = EOL // 0xd0d @0x8
0xd05…d0e }
0xd0e…d14 9a6b 9410 CLEAR
0xd0e…d14 LineComalBin {
0xd0e…d14 ptr = 0x9a6b // 0xd0e @0x0
0xd0e…d14 lno = 0x24c2 // 0xd10 @0x2
0xd0e…d14 at0004 = ╱a0╱ CLEAR ╱ // 0xd12 @0x4
0xd0e…d14 at0005 = EOL // 0xd13 @0x5
0xd0e…d14 }
0xd14…d29 9a80 9420 CURSOR 10,10
0xd14…d29 LineComalBin {
0xd14…d29 ptr = 0x9a80 // 0xd14 @0x0
0xd14…d29 lno = 0x24cc // 0xd16 @0x2
0xd14…d29 at0004 = ╱a1╱ CURSOR ╱ // 0xd18 @0x4
0xd14…d29 at0005 = ╱31╱1╱ // 0xd19 @0x5
0xd14…d29 at0006 = ╱30╱0╱ // 0xd1a @0x6
0xd14…d29 at0007 = ╱fe0000a004╱ // 0xd1b @0x7
0xd14…d29 at000c = ╱ec╱,╱ // 0xd20 @0xc
0xd14…d29 at000d = ╱31╱1╱ // 0xd21 @0xd
0xd14…d29 at000e = ╱30╱0╱ // 0xd22 @0xe
0xd14…d29 at000f = ╱fe0000a004╱ // 0xd23 @0xf
0xd14…d29 at0014 = EOL // 0xd28 @0x14
0xd14…d29 }
0xd29…d58 9aaf 9430 PRINT "V I R K S O M H E D S - K A R T O T E K"
0xd29…d58 LineComalBin {
0xd29…d58 ptr = 0x9aaf // 0xd29 @0x0
0xd29…d58 lno = 0x24d6 // 0xd2b @0x2
0xd29…d58 at0004 = ╱92╱ PRINT ╱ // 0xd2d @0x4
0xd29…d58 at0005 = ╱22╱"╱ // 0xd2e @0x5
0xd29…d58 at0006 = ╱56╱V╱ // 0xd2f @0x6
0xd29…d58 at0007 = ╱20╱…╱ // 0xd30 @0x7
0xd29…d58 at0008 = ╱49╱I╱ // 0xd31 @0x8
0xd29…d58 at0009 = ╱20╱…╱ // 0xd32 @0x9
0xd29…d58 at000a = ╱52╱R╱ // 0xd33 @0xa
0xd29…d58 at000b = ╱20╱…╱ // 0xd34 @0xb
0xd29…d58 at000c = ╱4b╱K╱ // 0xd35 @0xc
0xd29…d58 at000d = ╱20╱…╱ // 0xd36 @0xd
0xd29…d58 at000e = ╱53╱S╱ // 0xd37 @0xe
0xd29…d58 at000f = ╱20╱…╱ // 0xd38 @0xf
0xd29…d58 at0010 = ╱4f╱O╱ // 0xd39 @0x10
0xd29…d58 at0011 = ╱20╱…╱ // 0xd3a @0x11
0xd29…d58 at0012 = ╱4d╱M╱ // 0xd3b @0x12
0xd29…d58 at0013 = ╱20╱…╱ // 0xd3c @0x13
0xd29…d58 at0014 = ╱48╱H╱ // 0xd3d @0x14
0xd29…d58 at0015 = ╱20╱…╱ // 0xd3e @0x15
0xd29…d58 at0016 = ╱45╱E╱ // 0xd3f @0x16
0xd29…d58 at0017 = ╱20╱…╱ // 0xd40 @0x17
0xd29…d58 at0018 = ╱44╱D╱ // 0xd41 @0x18
0xd29…d58 at0019 = ╱20╱…╱ // 0xd42 @0x19
0xd29…d58 at001a = ╱53╱S╱ // 0xd43 @0x1a
0xd29…d58 at001b = ╱20╱…╱ // 0xd44 @0x1b
0xd29…d58 at001c = ╱2d╱-╱ // 0xd45 @0x1c
0xd29…d58 at001d = ╱20╱…╱ // 0xd46 @0x1d
0xd29…d58 at001e = ╱4b╱K╱ // 0xd47 @0x1e
0xd29…d58 at001f = ╱20╱…╱ // 0xd48 @0x1f
0xd29…d58 at0020 = ╱41╱A╱ // 0xd49 @0x20
0xd29…d58 at0021 = ╱20╱…╱ // 0xd4a @0x21
0xd29…d58 at0022 = ╱52╱R╱ // 0xd4b @0x22
0xd29…d58 at0023 = ╱20╱…╱ // 0xd4c @0x23
0xd29…d58 at0024 = ╱54╱T╱ // 0xd4d @0x24
0xd29…d58 at0025 = ╱20╱…╱ // 0xd4e @0x25
0xd29…d58 at0026 = ╱4f╱O╱ // 0xd4f @0x26
0xd29…d58 at0027 = ╱20╱…╱ // 0xd50 @0x27
0xd29…d58 at0028 = ╱54╱T╱ // 0xd51 @0x28
0xd29…d58 at0029 = ╱20╱…╱ // 0xd52 @0x29
0xd29…d58 at002a = ╱45╱E╱ // 0xd53 @0x2a
0xd29…d58 at002b = ╱20╱…╱ // 0xd54 @0x2b
0xd29…d58 at002c = ╱4b╱K╱ // 0xd55 @0x2c
0xd29…d58 at002d = ╱22╱"╱ // 0xd56 @0x2d
0xd29…d58 at002e = EOL // 0xd57 @0x2e
0xd29…d58 }
0xd58…d5e 9ab5 9440 PRINT
0xd58…d5e LineComalBin {
0xd58…d5e ptr = 0x9ab5 // 0xd58 @0x0
0xd58…d5e lno = 0x24e0 // 0xd5a @0x2
0xd58…d5e at0004 = ╱92╱ PRINT ╱ // 0xd5c @0x4
0xd58…d5e at0005 = EOL // 0xd5d @0x5
0xd58…d5e }
0xd5e…d79 9ad0 9450 PRINT TAB(10);"0 Færdig"
0xd5e…d79 LineComalBin {
0xd5e…d79 ptr = 0x9ad0 // 0xd5e @0x0
0xd5e…d79 lno = 0x24ea // 0xd60 @0x2
0xd5e…d79 at0004 = ╱92╱ PRINT ╱ // 0xd62 @0x4
0xd5e…d79 at0005 = ╱d2╱TAB╱ // 0xd63 @0x5
0xd5e…d79 at0006 = ╱ed╱(╱ // 0xd64 @0x6
0xd5e…d79 at0007 = ╱31╱1╱ // 0xd65 @0x7
0xd5e…d79 at0008 = ╱30╱0╱ // 0xd66 @0x8
0xd5e…d79 at0009 = ╱fe0000a004╱ // 0xd67 @0x9
0xd5e…d79 at000e = ╱ee╱)╱ // 0xd6c @0xe
0xd5e…d79 at000f = ╱eb╱;╱ // 0xd6d @0xf
0xd5e…d79 at0010 = ╱22╱"╱ // 0xd6e @0x10
0xd5e…d79 at0011 = ╱30╱0╱ // 0xd6f @0x11
0xd5e…d79 at0012 = ╱20╱…╱ // 0xd70 @0x12
0xd5e…d79 at0013 = ╱46╱F╱ // 0xd71 @0x13
0xd5e…d79 at0014 = ╱7b╱æ╱ // 0xd72 @0x14
0xd5e…d79 at0015 = ╱72╱r╱ // 0xd73 @0x15
0xd5e…d79 at0016 = ╱64╱d╱ // 0xd74 @0x16
0xd5e…d79 at0017 = ╱69╱i╱ // 0xd75 @0x17
0xd5e…d79 at0018 = ╱67╱g╱ // 0xd76 @0x18
0xd5e…d79 at0019 = ╱22╱"╱ // 0xd77 @0x19
0xd5e…d79 at001a = EOL // 0xd78 @0x1a
0xd5e…d79 }
0xd79…d95 9aec 9460 PRINT TAB(10);"1 Ændring"
0xd79…d95 LineComalBin {
0xd79…d95 ptr = 0x9aec // 0xd79 @0x0
0xd79…d95 lno = 0x24f4 // 0xd7b @0x2
0xd79…d95 at0004 = ╱92╱ PRINT ╱ // 0xd7d @0x4
0xd79…d95 at0005 = ╱d2╱TAB╱ // 0xd7e @0x5
0xd79…d95 at0006 = ╱ed╱(╱ // 0xd7f @0x6
0xd79…d95 at0007 = ╱31╱1╱ // 0xd80 @0x7
0xd79…d95 at0008 = ╱30╱0╱ // 0xd81 @0x8
0xd79…d95 at0009 = ╱fe0000a004╱ // 0xd82 @0x9
0xd79…d95 at000e = ╱ee╱)╱ // 0xd87 @0xe
0xd79…d95 at000f = ╱eb╱;╱ // 0xd88 @0xf
0xd79…d95 at0010 = ╱22╱"╱ // 0xd89 @0x10
0xd79…d95 at0011 = ╱31╱1╱ // 0xd8a @0x11
0xd79…d95 at0012 = ╱20╱…╱ // 0xd8b @0x12
0xd79…d95 at0013 = ╱5b╱Æ╱ // 0xd8c @0x13
0xd79…d95 at0014 = ╱6e╱n╱ // 0xd8d @0x14
0xd79…d95 at0015 = ╱64╱d╱ // 0xd8e @0x15
0xd79…d95 at0016 = ╱72╱r╱ // 0xd8f @0x16
0xd79…d95 at0017 = ╱69╱i╱ // 0xd90 @0x17
0xd79…d95 at0018 = ╱6e╱n╱ // 0xd91 @0x18
0xd79…d95 at0019 = ╱67╱g╱ // 0xd92 @0x19
0xd79…d95 at001a = ╱22╱"╱ // 0xd93 @0x1a
0xd79…d95 at001b = EOL // 0xd94 @0x1b
0xd79…d95 }
0xd95…dbb 9b12 9470 PRINT TAB(10);"2 Udskrift på skærm"
0xd95…dbb LineComalBin {
0xd95…dbb ptr = 0x9b12 // 0xd95 @0x0
0xd95…dbb lno = 0x24fe // 0xd97 @0x2
0xd95…dbb at0004 = ╱92╱ PRINT ╱ // 0xd99 @0x4
0xd95…dbb at0005 = ╱d2╱TAB╱ // 0xd9a @0x5
0xd95…dbb at0006 = ╱ed╱(╱ // 0xd9b @0x6
0xd95…dbb at0007 = ╱31╱1╱ // 0xd9c @0x7
0xd95…dbb at0008 = ╱30╱0╱ // 0xd9d @0x8
0xd95…dbb at0009 = ╱fe0000a004╱ // 0xd9e @0x9
0xd95…dbb at000e = ╱ee╱)╱ // 0xda3 @0xe
0xd95…dbb at000f = ╱eb╱;╱ // 0xda4 @0xf
0xd95…dbb at0010 = ╱22╱"╱ // 0xda5 @0x10
0xd95…dbb at0011 = ╱32╱2╱ // 0xda6 @0x11
0xd95…dbb at0012 = ╱20╱…╱ // 0xda7 @0x12
0xd95…dbb at0013 = ╱55╱U╱ // 0xda8 @0x13
0xd95…dbb at0014 = ╱64╱d╱ // 0xda9 @0x14
0xd95…dbb at0015 = ╱73╱s╱ // 0xdaa @0x15
0xd95…dbb at0016 = ╱6b╱k╱ // 0xdab @0x16
0xd95…dbb at0017 = ╱72╱r╱ // 0xdac @0x17
0xd95…dbb at0018 = ╱69╱i╱ // 0xdad @0x18
0xd95…dbb at0019 = ╱66╱f╱ // 0xdae @0x19
0xd95…dbb at001a = ╱74╱t╱ // 0xdaf @0x1a
0xd95…dbb at001b = ╱20╱…╱ // 0xdb0 @0x1b
0xd95…dbb at001c = ╱70╱p╱ // 0xdb1 @0x1c
0xd95…dbb at001d = ╱7d╱å╱ // 0xdb2 @0x1d
0xd95…dbb at001e = ╱20╱…╱ // 0xdb3 @0x1e
0xd95…dbb at001f = ╱73╱s╱ // 0xdb4 @0x1f
0xd95…dbb at0020 = ╱6b╱k╱ // 0xdb5 @0x20
0xd95…dbb at0021 = ╱7b╱æ╱ // 0xdb6 @0x21
0xd95…dbb at0022 = ╱72╱r╱ // 0xdb7 @0x22
0xd95…dbb at0023 = ╱6d╱m╱ // 0xdb8 @0x23
0xd95…dbb at0024 = ╱22╱"╱ // 0xdb9 @0x24
0xd95…dbb at0025 = EOL // 0xdba @0x25
0xd95…dbb }
0xdbb…de3 9b3a 9480 PRINT TAB(10);"3 Udskrift på printer"
0xdbb…de3 LineComalBin {
0xdbb…de3 ptr = 0x9b3a // 0xdbb @0x0
0xdbb…de3 lno = 0x2508 // 0xdbd @0x2
0xdbb…de3 at0004 = ╱92╱ PRINT ╱ // 0xdbf @0x4
0xdbb…de3 at0005 = ╱d2╱TAB╱ // 0xdc0 @0x5
0xdbb…de3 at0006 = ╱ed╱(╱ // 0xdc1 @0x6
0xdbb…de3 at0007 = ╱31╱1╱ // 0xdc2 @0x7
0xdbb…de3 at0008 = ╱30╱0╱ // 0xdc3 @0x8
0xdbb…de3 at0009 = ╱fe0000a004╱ // 0xdc4 @0x9
0xdbb…de3 at000e = ╱ee╱)╱ // 0xdc9 @0xe
0xdbb…de3 at000f = ╱eb╱;╱ // 0xdca @0xf
0xdbb…de3 at0010 = ╱22╱"╱ // 0xdcb @0x10
0xdbb…de3 at0011 = ╱33╱3╱ // 0xdcc @0x11
0xdbb…de3 at0012 = ╱20╱…╱ // 0xdcd @0x12
0xdbb…de3 at0013 = ╱55╱U╱ // 0xdce @0x13
0xdbb…de3 at0014 = ╱64╱d╱ // 0xdcf @0x14
0xdbb…de3 at0015 = ╱73╱s╱ // 0xdd0 @0x15
0xdbb…de3 at0016 = ╱6b╱k╱ // 0xdd1 @0x16
0xdbb…de3 at0017 = ╱72╱r╱ // 0xdd2 @0x17
0xdbb…de3 at0018 = ╱69╱i╱ // 0xdd3 @0x18
0xdbb…de3 at0019 = ╱66╱f╱ // 0xdd4 @0x19
0xdbb…de3 at001a = ╱74╱t╱ // 0xdd5 @0x1a
0xdbb…de3 at001b = ╱20╱…╱ // 0xdd6 @0x1b
0xdbb…de3 at001c = ╱70╱p╱ // 0xdd7 @0x1c
0xdbb…de3 at001d = ╱7d╱å╱ // 0xdd8 @0x1d
0xdbb…de3 at001e = ╱20╱…╱ // 0xdd9 @0x1e
0xdbb…de3 at001f = ╱70╱p╱ // 0xdda @0x1f
0xdbb…de3 at0020 = ╱72╱r╱ // 0xddb @0x20
0xdbb…de3 at0021 = ╱69╱i╱ // 0xddc @0x21
0xdbb…de3 at0022 = ╱6e╱n╱ // 0xddd @0x22
0xdbb…de3 at0023 = ╱74╱t╱ // 0xdde @0x23
0xdbb…de3 at0024 = ╱65╱e╱ // 0xddf @0x24
0xdbb…de3 at0025 = ╱72╱r╱ // 0xde0 @0x25
0xdbb…de3 at0026 = ╱22╱"╱ // 0xde1 @0x26
0xdbb…de3 at0027 = EOL // 0xde2 @0x27
0xdbb…de3 }
0xde3…de9 9b40 9490 PRINT
0xde3…de9 LineComalBin {
0xde3…de9 ptr = 0x9b40 // 0xde3 @0x0
0xde3…de9 lno = 0x2512 // 0xde5 @0x2
0xde3…de9 at0004 = ╱92╱ PRINT ╱ // 0xde7 @0x4
0xde3…de9 at0005 = EOL // 0xde8 @0x5
0xde3…de9 }
0xde9…def 9b46 9500 REPEAT
0xde9…def LineComalBin {
0xde9…def ptr = 0x9b46 // 0xde9 @0x0
0xde9…def lno = 0x251c // 0xdeb @0x2
0xde9…def at0004 = ╱97╱ REPEAT ╱ // 0xded @0x4
0xde9…def at0005 = EOL // 0xdee @0x5
0xde9…def }
0xdef…dfe 9b55 9510 CURSOR E,17
0xdef…dfe LineComalBin {
0xdef…dfe ptr = 0x9b55 // 0xdef @0x0
0xdef…dfe lno = 0x2526 // 0xdf1 @0x2
0xdef…dfe at0004 = ╱a1╱ CURSOR ╱ // 0xdf3 @0x4
0xdef…dfe at0005 = ╱45╱E╱ // 0xdf4 @0x5
0xdef…dfe at0006 = ╱ec╱,╱ // 0xdf5 @0x6
0xdef…dfe at0007 = ╱31╱1╱ // 0xdf6 @0x7
0xdef…dfe at0008 = ╱37╱7╱ // 0xdf7 @0x8
0xdef…dfe at0009 = ╱fe00008805╱ // 0xdf8 @0x9
0xdef…dfe at000e = EOL // 0xdfd @0xe
0xdef…dfe }
0xdfe…e13 9b6a 9520 EDIT " ",SV
0xdfe…e13 LineComalBin {
0xdfe…e13 ptr = 0x9b6a // 0xdfe @0x0
0xdfe…e13 lno = 0x2530 // 0xe00 @0x2
0xdfe…e13 at0004 = ╱b1╱ EDIT ╱ // 0xe02 @0x4
0xdfe…e13 at0005 = ╱22╱"╱ // 0xe03 @0x5
0xdfe…e13 at0006 = ╱20╱…╱ // 0xe04 @0x6
0xdfe…e13 at0007 = ╱20╱…╱ // 0xe05 @0x7
0xdfe…e13 at0008 = ╱20╱…╱ // 0xe06 @0x8
0xdfe…e13 at0009 = ╱20╱…╱ // 0xe07 @0x9
0xdfe…e13 at000a = ╱20╱…╱ // 0xe08 @0xa
0xdfe…e13 at000b = ╱20╱…╱ // 0xe09 @0xb
0xdfe…e13 at000c = ╱20╱…╱ // 0xe0a @0xc
0xdfe…e13 at000d = ╱20╱…╱ // 0xe0b @0xd
0xdfe…e13 at000e = ╱20╱…╱ // 0xe0c @0xe
0xdfe…e13 at000f = ╱20╱…╱ // 0xe0d @0xf
0xdfe…e13 at0010 = ╱22╱"╱ // 0xe0e @0x10
0xdfe…e13 at0011 = ╱ec╱,╱ // 0xe0f @0x11
0xdfe…e13 at0012 = ╱53╱S╱ // 0xe10 @0x12
0xdfe…e13 at0013 = ╱56╱V╱ // 0xe11 @0x13
0xdfe…e13 at0014 = EOL // 0xe12 @0x14
0xdfe…e13 }
0xe13…e22 9b79 9530 UNTIL SV=>B AND SV<=V
0xe13…e22 LineComalBin {
0xe13…e22 ptr = 0x9b79 // 0xe13 @0x0
0xe13…e22 lno = 0x253a // 0xe15 @0x2
0xe13…e22 at0004 = ╱98╱ UNTIL ╱ // 0xe17 @0x4
0xe13…e22 at0005 = ╱53╱S╱ // 0xe18 @0x5
0xe13…e22 at0006 = ╱56╱V╱ // 0xe19 @0x6
0xe13…e22 at0007 = ╱e0╱=>╱ // 0xe1a @0x7
0xe13…e22 at0008 = ╱42╱B╱ // 0xe1b @0x8
0xe13…e22 at0009 = ╱da╱ AND ╱ // 0xe1c @0x9
0xe13…e22 at000a = ╱53╱S╱ // 0xe1d @0xa
0xe13…e22 at000b = ╱56╱V╱ // 0xe1e @0xb
0xe13…e22 at000c = ╱df╱<=╱ // 0xe1f @0xc
0xe13…e22 at000d = ╱56╱V╱ // 0xe20 @0xd
0xe13…e22 at000e = EOL // 0xe21 @0xe
0xe13…e22 }
0xe22…e2c 9b83 9540 CASE SV OF
0xe22…e2c LineComalBin {
0xe22…e2c ptr = 0x9b83 // 0xe22 @0x0
0xe22…e2c lno = 0x2544 // 0xe24 @0x2
0xe22…e2c at0004 = ╱a201╱ CASE ╱ // 0xe26 @0x4
0xe22…e2c at0006 = ╱53╱S╱ // 0xe28 @0x6
0xe22…e2c at0007 = ╱56╱V╱ // 0xe29 @0x7
0xe22…e2c at0008 = ╱ba╱ OF ╱ // 0xe2a @0x8
0xe22…e2c at0009 = EOL // 0xe2b @0x9
0xe22…e2c }
0xe2c…e34 9b8b 9550 WHEN E
0xe2c…e34 LineComalBin {
0xe2c…e34 ptr = 0x9b8b // 0xe2c @0x0
0xe2c…e34 lno = 0x254e // 0xe2e @0x2
0xe2c…e34 at0004 = ╱a301╱ WHEN ╱ // 0xe30 @0x4
0xe2c…e34 at0006 = ╱45╱E╱ // 0xe32 @0x6
0xe2c…e34 at0007 = EOL // 0xe33 @0x7
0xe2c…e34 }
0xe34…e42 9b99 9560 EXEC SKRIVOPL
0xe34…e42 LineComalBin {
0xe34…e42 ptr = 0x9b99 // 0xe34 @0x0
0xe34…e42 lno = 0x2558 // 0xe36 @0x2
0xe34…e42 at0004 = ╱9d╱ EXEC ╱ // 0xe38 @0x4
0xe34…e42 at0005 = ╱53╱S╱ // 0xe39 @0x5
0xe34…e42 at0006 = ╱4b╱K╱ // 0xe3a @0x6
0xe34…e42 at0007 = ╱52╱R╱ // 0xe3b @0x7
0xe34…e42 at0008 = ╱49╱I╱ // 0xe3c @0x8
0xe34…e42 at0009 = ╱56╱V╱ // 0xe3d @0x9
0xe34…e42 at000a = ╱4f╱O╱ // 0xe3e @0xa
0xe34…e42 at000b = ╱50╱P╱ // 0xe3f @0xb
0xe34…e42 at000c = ╱4c╱L╱ // 0xe40 @0xc
0xe34…e42 at000d = EOL // 0xe41 @0xd
0xe34…e42 }
0xe42…e48 9b9f 9570 REPEAT
0xe42…e48 LineComalBin {
0xe42…e48 ptr = 0x9b9f // 0xe42 @0x0
0xe42…e48 lno = 0x2562 // 0xe44 @0x2
0xe42…e48 at0004 = ╱97╱ REPEAT ╱ // 0xe46 @0x4
0xe42…e48 at0005 = EOL // 0xe47 @0x5
0xe42…e48 }
0xe48…e4e 9ba5 9580 REPEAT
0xe48…e4e LineComalBin {
0xe48…e4e ptr = 0x9ba5 // 0xe48 @0x0
0xe48…e4e lno = 0x256c // 0xe4a @0x2
0xe48…e4e at0004 = ╱97╱ REPEAT ╱ // 0xe4c @0x4
0xe48…e4e at0005 = EOL // 0xe4d @0x5
0xe48…e4e }
0xe4e…e58 9baf 9585 SV1=B
0xe4e…e58 LineComalBin {
0xe4e…e58 ptr = 0x9baf // 0xe4e @0x0
0xe4e…e58 lno = 0x2571 // 0xe50 @0x2
0xe4e…e58 at0004 = ╱53╱S╱ // 0xe52 @0x4
0xe4e…e58 at0005 = ╱56╱V╱ // 0xe53 @0x5
0xe4e…e58 at0006 = ╱31╱1╱ // 0xe54 @0x6
0xe4e…e58 at0007 = ╱dc╱=╱ // 0xe55 @0x7
0xe4e…e58 at0008 = ╱42╱B╱ // 0xe56 @0x8
0xe4e…e58 at0009 = EOL // 0xe57 @0x9
0xe4e…e58 }
0xe58…e67 9bbe 9590 CURSOR E,23
0xe58…e67 LineComalBin {
0xe58…e67 ptr = 0x9bbe // 0xe58 @0x0
0xe58…e67 lno = 0x2576 // 0xe5a @0x2
0xe58…e67 at0004 = ╱a1╱ CURSOR ╱ // 0xe5c @0x4
0xe58…e67 at0005 = ╱45╱E╱ // 0xe5d @0x5
0xe58…e67 at0006 = ╱ec╱,╱ // 0xe5e @0x6
0xe58…e67 at0007 = ╱32╱2╱ // 0xe5f @0x7
0xe58…e67 at0008 = ╱33╱3╱ // 0xe60 @0x8
0xe58…e67 at0009 = ╱fe0000b805╱ // 0xe61 @0x9
0xe58…e67 at000e = EOL // 0xe66 @0xe
0xe58…e67 }
0xe67…e7a 9bd1 9600 EDIT "Feltnr ",SV1
0xe67…e7a LineComalBin {
0xe67…e7a ptr = 0x9bd1 // 0xe67 @0x0
0xe67…e7a lno = 0x2580 // 0xe69 @0x2
0xe67…e7a at0004 = ╱b1╱ EDIT ╱ // 0xe6b @0x4
0xe67…e7a at0005 = ╱22╱"╱ // 0xe6c @0x5
0xe67…e7a at0006 = ╱46╱F╱ // 0xe6d @0x6
0xe67…e7a at0007 = ╱65╱e╱ // 0xe6e @0x7
0xe67…e7a at0008 = ╱6c╱l╱ // 0xe6f @0x8
0xe67…e7a at0009 = ╱74╱t╱ // 0xe70 @0x9
0xe67…e7a at000a = ╱6e╱n╱ // 0xe71 @0xa
0xe67…e7a at000b = ╱72╱r╱ // 0xe72 @0xb
0xe67…e7a at000c = ╱20╱…╱ // 0xe73 @0xc
0xe67…e7a at000d = ╱22╱"╱ // 0xe74 @0xd
0xe67…e7a at000e = ╱ec╱,╱ // 0xe75 @0xe
0xe67…e7a at000f = ╱53╱S╱ // 0xe76 @0xf
0xe67…e7a at0010 = ╱56╱V╱ // 0xe77 @0x10
0xe67…e7a at0011 = ╱31╱1╱ // 0xe78 @0x11
0xe67…e7a at0012 = EOL // 0xe79 @0x12
0xe67…e7a }
0xe7a…e8b 9be2 9610 UNTIL SV1=>B AND SV1<W
0xe7a…e8b LineComalBin {
0xe7a…e8b ptr = 0x9be2 // 0xe7a @0x0
0xe7a…e8b lno = 0x258a // 0xe7c @0x2
0xe7a…e8b at0004 = ╱98╱ UNTIL ╱ // 0xe7e @0x4
0xe7a…e8b at0005 = ╱53╱S╱ // 0xe7f @0x5
0xe7a…e8b at0006 = ╱56╱V╱ // 0xe80 @0x6
0xe7a…e8b at0007 = ╱31╱1╱ // 0xe81 @0x7
0xe7a…e8b at0008 = ╱e0╱=>╱ // 0xe82 @0x8
0xe7a…e8b at0009 = ╱42╱B╱ // 0xe83 @0x9
0xe7a…e8b at000a = ╱da╱ AND ╱ // 0xe84 @0xa
0xe7a…e8b at000b = ╱53╱S╱ // 0xe85 @0xb
0xe7a…e8b at000c = ╱56╱V╱ // 0xe86 @0xc
0xe7a…e8b at000d = ╱31╱1╱ // 0xe87 @0xd
0xe7a…e8b at000e = ╱dd╱<╱ // 0xe88 @0xe
0xe7a…e8b at000f = ╱57╱W╱ // 0xe89 @0xf
0xe7a…e8b at0010 = EOL // 0xe8a @0x10
0xe7a…e8b }
0xe8b…e97 9bee 9620 IF SV1>B THEN
0xe8b…e97 LineComalBin {
0xe8b…e97 ptr = 0x9bee // 0xe8b @0x0
0xe8b…e97 lno = 0x2594 // 0xe8d @0x2
0xe8b…e97 at0004 = ╱9c╱ IF ╱ // 0xe8f @0x4
0xe8b…e97 at0005 = ╱53╱S╱ // 0xe90 @0x5
0xe8b…e97 at0006 = ╱56╱V╱ // 0xe91 @0x6
0xe8b…e97 at0007 = ╱31╱1╱ // 0xe92 @0x7
0xe8b…e97 at0008 = ╱de╱>╱ // 0xe93 @0x8
0xe8b…e97 at0009 = ╱42╱B╱ // 0xe94 @0x9
0xe8b…e97 at000a = ╱b6╱ THEN ╱ // 0xe95 @0xa
0xe8b…e97 at000b = EOL // 0xe96 @0xb
0xe8b…e97 }
0xe97…ea7 9bfe 9630 EXEC INOPL(SV1)
0xe97…ea7 LineComalBin {
0xe97…ea7 ptr = 0x9bfe // 0xe97 @0x0
0xe97…ea7 lno = 0x259e // 0xe99 @0x2
0xe97…ea7 at0004 = ╱9d╱ EXEC ╱ // 0xe9b @0x4
0xe97…ea7 at0005 = ╱49╱I╱ // 0xe9c @0x5
0xe97…ea7 at0006 = ╱4e╱N╱ // 0xe9d @0x6
0xe97…ea7 at0007 = ╱4f╱O╱ // 0xe9e @0x7
0xe97…ea7 at0008 = ╱50╱P╱ // 0xe9f @0x8
0xe97…ea7 at0009 = ╱4c╱L╱ // 0xea0 @0x9
0xe97…ea7 at000a = ╱ed╱(╱ // 0xea1 @0xa
0xe97…ea7 at000b = ╱53╱S╱ // 0xea2 @0xb
0xe97…ea7 at000c = ╱56╱V╱ // 0xea3 @0xc
0xe97…ea7 at000d = ╱31╱1╱ // 0xea4 @0xd
0xe97…ea7 at000e = ╱ee╱)╱ // 0xea5 @0xe
0xe97…ea7 at000f = EOL // 0xea6 @0xf
0xe97…ea7 }
0xea7…eaf 9c06 9640 Æ=E
0xea7…eaf LineComalBin {
0xea7…eaf ptr = 0x9c06 // 0xea7 @0x0
0xea7…eaf lno = 0x25a8 // 0xea9 @0x2
0xea7…eaf at0004 = ╱5b╱Æ╱ // 0xeab @0x4
0xea7…eaf at0005 = ╱dc╱=╱ // 0xeac @0x5
0xea7…eaf at0006 = ╱45╱E╱ // 0xead @0x6
0xea7…eaf at0007 = EOL // 0xeae @0x7
0xea7…eaf }
0xeaf…eb5 9c0c 9650 ENDIF
0xeaf…eb5 LineComalBin {
0xeaf…eb5 ptr = 0x9c0c // 0xeaf @0x0
0xeaf…eb5 lno = 0x25b2 // 0xeb1 @0x2
0xeaf…eb5 at0004 = ╱9b╱ ENDIF ╱ // 0xeb3 @0x4
0xeaf…eb5 at0005 = EOL // 0xeb4 @0x5
0xeaf…eb5 }
0xeb5…ec0 9c17 9660 UNTIL SV1=B
0xeb5…ec0 LineComalBin {
0xeb5…ec0 ptr = 0x9c17 // 0xeb5 @0x0
0xeb5…ec0 lno = 0x25bc // 0xeb7 @0x2
0xeb5…ec0 at0004 = ╱98╱ UNTIL ╱ // 0xeb9 @0x4
0xeb5…ec0 at0005 = ╱53╱S╱ // 0xeba @0x5
0xeb5…ec0 at0006 = ╱56╱V╱ // 0xebb @0x6
0xeb5…ec0 at0007 = ╱31╱1╱ // 0xebc @0x7
0xeb5…ec0 at0008 = ╱dc╱=╱ // 0xebd @0x8
0xeb5…ec0 at0009 = ╱42╱B╱ // 0xebe @0x9
0xeb5…ec0 at000a = EOL // 0xebf @0xa
0xeb5…ec0 }
0xec0…ec8 9c1f 9670 WHEN G
0xec0…ec8 LineComalBin {
0xec0…ec8 ptr = 0x9c1f // 0xec0 @0x0
0xec0…ec8 lno = 0x25c6 // 0xec2 @0x2
0xec0…ec8 at0004 = ╱a301╱ WHEN ╱ // 0xec4 @0x4
0xec0…ec8 at0006 = ╱47╱G╱ // 0xec6 @0x6
0xec0…ec8 at0007 = EOL // 0xec7 @0x7
0xec0…ec8 }
0xec8…ed3 9c2a 9675 OUTP=B
0xec8…ed3 LineComalBin {
0xec8…ed3 ptr = 0x9c2a // 0xec8 @0x0
0xec8…ed3 lno = 0x25cb // 0xeca @0x2
0xec8…ed3 at0004 = ╱4f╱O╱ // 0xecc @0x4
0xec8…ed3 at0005 = ╱55╱U╱ // 0xecd @0x5
0xec8…ed3 at0006 = ╱54╱T╱ // 0xece @0x6
0xec8…ed3 at0007 = ╱50╱P╱ // 0xecf @0x7
0xec8…ed3 at0008 = ╱dc╱=╱ // 0xed0 @0x8
0xec8…ed3 at0009 = ╱42╱B╱ // 0xed1 @0x9
0xec8…ed3 at000a = EOL // 0xed2 @0xa
0xec8…ed3 }
0xed3…ee1 9c38 9680 EXEC SKRIVOPL
0xed3…ee1 LineComalBin {
0xed3…ee1 ptr = 0x9c38 // 0xed3 @0x0
0xed3…ee1 lno = 0x25d0 // 0xed5 @0x2
0xed3…ee1 at0004 = ╱9d╱ EXEC ╱ // 0xed7 @0x4
0xed3…ee1 at0005 = ╱53╱S╱ // 0xed8 @0x5
0xed3…ee1 at0006 = ╱4b╱K╱ // 0xed9 @0x6
0xed3…ee1 at0007 = ╱52╱R╱ // 0xeda @0x7
0xed3…ee1 at0008 = ╱49╱I╱ // 0xedb @0x8
0xed3…ee1 at0009 = ╱56╱V╱ // 0xedc @0x9
0xed3…ee1 at000a = ╱4f╱O╱ // 0xedd @0xa
0xed3…ee1 at000b = ╱50╱P╱ // 0xede @0xb
0xed3…ee1 at000c = ╱4c╱L╱ // 0xedf @0xc
0xed3…ee1 at000d = EOL // 0xee0 @0xd
0xed3…ee1 }
0xee1…ef5 9c4c 9685 INPUT "RETURN",LINE$
0xee1…ef5 LineComalBin {
0xee1…ef5 ptr = 0x9c4c // 0xee1 @0x0
0xee1…ef5 lno = 0x25d5 // 0xee3 @0x2
0xee1…ef5 at0004 = ╱91╱ INPUT ╱ // 0xee5 @0x4
0xee1…ef5 at0005 = ╱22╱"╱ // 0xee6 @0x5
0xee1…ef5 at0006 = ╱52╱R╱ // 0xee7 @0x6
0xee1…ef5 at0007 = ╱45╱E╱ // 0xee8 @0x7
0xee1…ef5 at0008 = ╱54╱T╱ // 0xee9 @0x8
0xee1…ef5 at0009 = ╱55╱U╱ // 0xeea @0x9
0xee1…ef5 at000a = ╱52╱R╱ // 0xeeb @0xa
0xee1…ef5 at000b = ╱4e╱N╱ // 0xeec @0xb
0xee1…ef5 at000c = ╱22╱"╱ // 0xeed @0xc
0xee1…ef5 at000d = ╱ec╱,╱ // 0xeee @0xd
0xee1…ef5 at000e = ╱4c╱L╱ // 0xeef @0xe
0xee1…ef5 at000f = ╱49╱I╱ // 0xef0 @0xf
0xee1…ef5 at0010 = ╱4e╱N╱ // 0xef1 @0x10
0xee1…ef5 at0011 = ╱45╱E╱ // 0xef2 @0x11
0xee1…ef5 at0012 = ╱ef╱$╱ // 0xef3 @0x12
0xee1…ef5 at0013 = EOL // 0xef4 @0x13
0xee1…ef5 }
0xef5…efd 9c54 9690 WHEN V
0xef5…efd LineComalBin {
0xef5…efd ptr = 0x9c54 // 0xef5 @0x0
0xef5…efd lno = 0x25da // 0xef7 @0x2
0xef5…efd at0004 = ╱a301╱ WHEN ╱ // 0xef9 @0x4
0xef5…efd at0006 = ╱56╱V╱ // 0xefb @0x6
0xef5…efd at0007 = EOL // 0xefc @0x7
0xef5…efd }
0xefd…f04 9c5b 9700 OUTPUT P
0xefd…f04 LineComalBin {
0xefd…f04 ptr = 0x9c5b // 0xefd @0x0
0xefd…f04 lno = 0x25e4 // 0xeff @0x2
0xefd…f04 at0004 = ╱a5╱ OUTPUT ╱ // 0xf01 @0x4
0xefd…f04 at0005 = ╱50╱P╱ // 0xf02 @0x5
0xefd…f04 at0006 = EOL // 0xf03 @0x6
0xefd…f04 }
0xf04…f0f 9c66 9705 OUTP=E
0xf04…f0f LineComalBin {
0xf04…f0f ptr = 0x9c66 // 0xf04 @0x0
0xf04…f0f lno = 0x25e9 // 0xf06 @0x2
0xf04…f0f at0004 = ╱4f╱O╱ // 0xf08 @0x4
0xf04…f0f at0005 = ╱55╱U╱ // 0xf09 @0x5
0xf04…f0f at0006 = ╱54╱T╱ // 0xf0a @0x6
0xf04…f0f at0007 = ╱50╱P╱ // 0xf0b @0x7
0xf04…f0f at0008 = ╱dc╱=╱ // 0xf0c @0x8
0xf04…f0f at0009 = ╱45╱E╱ // 0xf0d @0x9
0xf04…f0f at000a = EOL // 0xf0e @0xa
0xf04…f0f }
0xf0f…f1d 9c74 9710 EXEC SKRIVOPL
0xf0f…f1d LineComalBin {
0xf0f…f1d ptr = 0x9c74 // 0xf0f @0x0
0xf0f…f1d lno = 0x25ee // 0xf11 @0x2
0xf0f…f1d at0004 = ╱9d╱ EXEC ╱ // 0xf13 @0x4
0xf0f…f1d at0005 = ╱53╱S╱ // 0xf14 @0x5
0xf0f…f1d at0006 = ╱4b╱K╱ // 0xf15 @0x6
0xf0f…f1d at0007 = ╱52╱R╱ // 0xf16 @0x7
0xf0f…f1d at0008 = ╱49╱I╱ // 0xf17 @0x8
0xf0f…f1d at0009 = ╱56╱V╱ // 0xf18 @0x9
0xf0f…f1d at000a = ╱4f╱O╱ // 0xf19 @0xa
0xf0f…f1d at000b = ╱50╱P╱ // 0xf1a @0xb
0xf0f…f1d at000c = ╱4c╱L╱ // 0xf1b @0xc
0xf0f…f1d at000d = EOL // 0xf1c @0xd
0xf0f…f1d }
0xf1d…f2e 9c85 9711 FOR I=W TO 72
0xf1d…f2e LineComalBin {
0xf1d…f2e ptr = 0x9c85 // 0xf1d @0x0
0xf1d…f2e lno = 0x25ef // 0xf1f @0x2
0xf1d…f2e at0004 = ╱83╱ FOR ╱ // 0xf21 @0x4
0xf1d…f2e at0005 = ╱49╱I╱ // 0xf22 @0x5
0xf1d…f2e at0006 = ╱dc╱=╱ // 0xf23 @0x6
0xf1d…f2e at0007 = ╱57╱W╱ // 0xf24 @0x7
0xf1d…f2e at0008 = ╱b7╱ TO ╱ // 0xf25 @0x8
0xf1d…f2e at0009 = ╱37╱7╱ // 0xf26 @0x9
0xf1d…f2e at000a = ╱32╱2╱ // 0xf27 @0xa
0xf1d…f2e at000b = ╱fe00009007╱ // 0xf28 @0xb
0xf1d…f2e at0010 = EOL // 0xf2d @0x10
0xf1d…f2e }
0xf2e…f34 9c8b 9712 PRINT
0xf2e…f34 LineComalBin {
0xf2e…f34 ptr = 0x9c8b // 0xf2e @0x0
0xf2e…f34 lno = 0x25f0 // 0xf30 @0x2
0xf2e…f34 at0004 = ╱92╱ PRINT ╱ // 0xf32 @0x4
0xf2e…f34 at0005 = EOL // 0xf33 @0x5
0xf2e…f34 }
0xf34…f3b 9c92 9713 NEXT I
0xf34…f3b LineComalBin {
0xf34…f3b ptr = 0x9c92 // 0xf34 @0x0
0xf34…f3b lno = 0x25f1 // 0xf36 @0x2
0xf34…f3b at0004 = ╱84╱ NEXT ╱ // 0xf38 @0x4
0xf34…f3b at0005 = ╱49╱I╱ // 0xf39 @0x5
0xf34…f3b at0006 = EOL // 0xf3a @0x6
0xf34…f3b }
0xf3b…f46 9c9d 9715 OUTP=B
0xf3b…f46 LineComalBin {
0xf3b…f46 ptr = 0x9c9d // 0xf3b @0x0
0xf3b…f46 lno = 0x25f3 // 0xf3d @0x2
0xf3b…f46 at0004 = ╱4f╱O╱ // 0xf3f @0x4
0xf3b…f46 at0005 = ╱55╱U╱ // 0xf40 @0x5
0xf3b…f46 at0006 = ╱54╱T╱ // 0xf41 @0x6
0xf3b…f46 at0007 = ╱50╱P╱ // 0xf42 @0x7
0xf3b…f46 at0008 = ╱dc╱=╱ // 0xf43 @0x8
0xf3b…f46 at0009 = ╱42╱B╱ // 0xf44 @0x9
0xf3b…f46 at000a = EOL // 0xf45 @0xa
0xf3b…f46 }
0xf46…f4d 9ca4 9720 OUTPUT T
0xf46…f4d LineComalBin {
0xf46…f4d ptr = 0x9ca4 // 0xf46 @0x0
0xf46…f4d lno = 0x25f8 // 0xf48 @0x2
0xf46…f4d at0004 = ╱a5╱ OUTPUT ╱ // 0xf4a @0x4
0xf46…f4d at0005 = ╱54╱T╱ // 0xf4b @0x5
0xf46…f4d at0006 = EOL // 0xf4c @0x6
0xf46…f4d }
0xf4d…f53 9caa 9730 ENDCASE
0xf4d…f53 LineComalBin {
0xf4d…f53 ptr = 0x9caa // 0xf4d @0x0
0xf4d…f53 lno = 0x2602 // 0xf4f @0x2
0xf4d…f53 at0004 = ╱a4╱ ENDCASE ╱ // 0xf51 @0x4
0xf4d…f53 at0005 = EOL // 0xf52 @0x5
0xf4d…f53 }
0xf53…f5d 9cb4 9740 UNTIL SV=B
0xf53…f5d LineComalBin {
0xf53…f5d ptr = 0x9cb4 // 0xf53 @0x0
0xf53…f5d lno = 0x260c // 0xf55 @0x2
0xf53…f5d at0004 = ╱98╱ UNTIL ╱ // 0xf57 @0x4
0xf53…f5d at0005 = ╱53╱S╱ // 0xf58 @0x5
0xf53…f5d at0006 = ╱56╱V╱ // 0xf59 @0x6
0xf53…f5d at0007 = ╱dc╱=╱ // 0xf5a @0x7
0xf53…f5d at0008 = ╱42╱B╱ // 0xf5b @0x8
0xf53…f5d at0009 = EOL // 0xf5c @0x9
0xf53…f5d }
0xf5d…f67 9cbe 9750 IF Æ=E THEN
0xf5d…f67 LineComalBin {
0xf5d…f67 ptr = 0x9cbe // 0xf5d @0x0
0xf5d…f67 lno = 0x2616 // 0xf5f @0x2
0xf5d…f67 at0004 = ╱9c╱ IF ╱ // 0xf61 @0x4
0xf5d…f67 at0005 = ╱5b╱Æ╱ // 0xf62 @0x5
0xf5d…f67 at0006 = ╱dc╱=╱ // 0xf63 @0x6
0xf5d…f67 at0007 = ╱45╱E╱ // 0xf64 @0x7
0xf5d…f67 at0008 = ╱b6╱ THEN ╱ // 0xf65 @0x8
0xf5d…f67 at0009 = EOL // 0xf66 @0x9
0xf5d…f67 }
0xf67…f73 9cca 9760 EXEC UDVIRK
0xf67…f73 LineComalBin {
0xf67…f73 ptr = 0x9cca // 0xf67 @0x0
0xf67…f73 lno = 0x2620 // 0xf69 @0x2
0xf67…f73 at0004 = ╱9d╱ EXEC ╱ // 0xf6b @0x4
0xf67…f73 at0005 = ╱55╱U╱ // 0xf6c @0x5
0xf67…f73 at0006 = ╱44╱D╱ // 0xf6d @0x6
0xf67…f73 at0007 = ╱56╱V╱ // 0xf6e @0x7
0xf67…f73 at0008 = ╱49╱I╱ // 0xf6f @0x8
0xf67…f73 at0009 = ╱52╱R╱ // 0xf70 @0x9
0xf67…f73 at000a = ╱4b╱K╱ // 0xf71 @0xa
0xf67…f73 at000b = EOL // 0xf72 @0xb
0xf67…f73 }
0xf73…f79 9cd0 9790 ENDIF
0xf73…f79 LineComalBin {
0xf73…f79 ptr = 0x9cd0 // 0xf73 @0x0
0xf73…f79 lno = 0x263e // 0xf75 @0x2
0xf73…f79 at0004 = ╱9b╱ ENDIF ╱ // 0xf77 @0x4
0xf73…f79 at0005 = EOL // 0xf78 @0x5
0xf73…f79 }
0xf79…f7f 9cd6 9800 CLOSE
0xf79…f7f LineComalBin {
0xf79…f7f ptr = 0x9cd6 // 0xf79 @0x0
0xf79…f7f lno = 0x2648 // 0xf7b @0x2
0xf79…f7f at0004 = ╱a8╱ CLOSE ╱ // 0xf7d @0x4
0xf79…f7f at0005 = EOL // 0xf7e @0x5
0xf79…f7f }
0xf7f…f95 0000 9810 CHAIN "P641210:STARTB"
0xf7f…f95 LineComalBin {
0xf7f…f95 ptr = 0x0000 // 0xf7f @0x0
0xf7f…f95 lno = 0x2652 // 0xf81 @0x2
0xf7f…f95 at0004 = ╱ac╱ CHAIN ╱ // 0xf83 @0x4
0xf7f…f95 at0005 = ╱22╱"╱ // 0xf84 @0x5
0xf7f…f95 at0006 = ╱50╱P╱ // 0xf85 @0x6
0xf7f…f95 at0007 = ╱36╱6╱ // 0xf86 @0x7
0xf7f…f95 at0008 = ╱34╱4╱ // 0xf87 @0x8
0xf7f…f95 at0009 = ╱31╱1╱ // 0xf88 @0x9
0xf7f…f95 at000a = ╱32╱2╱ // 0xf89 @0xa
0xf7f…f95 at000b = ╱31╱1╱ // 0xf8a @0xb
0xf7f…f95 at000c = ╱30╱0╱ // 0xf8b @0xc
0xf7f…f95 at000d = ╱3a╱:╱ // 0xf8c @0xd
0xf7f…f95 at000e = ╱53╱S╱ // 0xf8d @0xe
0xf7f…f95 at000f = ╱54╱T╱ // 0xf8e @0xf
0xf7f…f95 at0010 = ╱41╱A╱ // 0xf8f @0x10
0xf7f…f95 at0011 = ╱52╱R╱ // 0xf90 @0x11
0xf7f…f95 at0012 = ╱54╱T╱ // 0xf91 @0x12
0xf7f…f95 at0013 = ╱42╱B╱ // 0xf92 @0x13
0xf7f…f95 at0014 = ╱22╱"╱ // 0xf93 @0x14
0xf7f…f95 at0015 = EOL // 0xf94 @0x15
0xf7f…f95 }
0xf95…fa0 57 8d 05 00 42 dc 30 fe 00 00 00 ┆W B 0 ┆
0xfa0…fa4 00 eb 45 dc ┆ E ┆
0xfa4…fc4 (52,) 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 90 ┆1 G 2 V 3 W 9 ┆
0xfc4…fc6 04 ff ┆ ┆
0xfc6…fcc (53,) 57 8d ec 9c 10 00 ┆W ┆