|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4603 (0x11fb)
Types: SPC/1-COMAL-80
Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cd
Names: »ÅRSOP85«
└─⟦fe8d363bb⟧ Bits:30004640 EASY-Skat 1985 (MIKADOS)
└─⟦this⟧ »ÅRSOP85«
00100 ON ESC GOTO DUMMY
00110 INTEGER X , N , PR , Y , F8 , FE , G , T0 , T1 , T2 , T3 , T4
00120 LET STATUS := 0 ; G1 := 0 ; B7 := 0 ; B8 := 0 ; U2 := 0 ; F0 := 0 ; F7 := 0 ; T3 := 0 ; T := 0 ; T0 := 0
00130 LET TKB := 0 ; TKH := 0
00140 DIM A1 $ ( 29 ) OF 29 , A ( 29 ) , H ( 23 ) , K ( 23 ) , LI $ OF 80 , QT $ OF 80 , S $ OF 80
00150 DIM FIL $ OF 15 , PIL $ OF 80 , SP $ OF 80 , HKL $ OF 38 , BKL $ OF 38
00160 LET LI $ := "" ; PIL $ := "" ; SP $ := ""
00170 FOR X := 1 TO 8 DO
00180 LET LI $ := LI $ + "-" ; PIL $ := PIL $ + "." ; SP $ := SP $ + "…"
00190 NEXT X
00200 LET F8 := 0 ; G := 0 ; T2 := 2 ; T4 := 0
00210 LET FIL $ := "dde:skatsys"
00220 OPEN FIL $ , R
00230 GET FIL $ : SYS
00240 CLOSE FIL $
00250 OPEN FIL $ , W
00260 LET SYS := 1
00270 PUT FIL $ : SYS
00280 CLOSE FIL $
00290 LET FIL $ := "dde:hskvar"
00300 OPEN FIL $ , R
00310 FOR X := 1 TO 9 DO
00320 GET FIL $ : A ( X )
00330 IF X < 24 THEN GET FIL $ : H ( X ) , K ( X )
00340 NEXT X
00350 GET FIL $ : F8 , T1 , T2 , T4
00360 CLOSE FIL $
00370 LET FIL $ := "dde:fvar"
00380 OPEN FIL $ , R
00390 GET FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
00400 GET FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
00410 GET FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
00420 GET FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
00430 GET FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
00440 GET FIL $ : HKL $ , BKL $
00450 CLOSE FIL $
00460 LET X := 0
00470 OPEN "dde:skatart" , R
00480 REPEAT
00490 LET X := X + 1
00500 GET "dde:skatart" : A1 $ ( X )
00510 UNTIL ╱cd╱ ( "dde:skatart" ) = 19 OR ╱cd╱ ( "dde:skatart" ) > 0 OR X = 29
00520 CLOSE
00530 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
00540 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
00550 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
00560 LET D6 := HD6 ; SKG := F6 ; AKT := F9
00570 FOR X := 24 TO 9 DO
00580 LET A ( X ) := 0
00590 NEXT X
00600 IF >< 1 AND GSLUT >< 1 THEN
00610 LET FIL $ := "dde:skatsluh"
00620 OPEN FIL $ , R
00630 EXEC L[SF
00640 EXEC GEMHOP
00650 ELSE
00660 EXEC HENTHOP
00670 ENDIF
00680 FOR Y := 1 TO R + 1 DO
00690 IF Y = 2 THEN OUTPUT "p"
00700 IF = 2 THEN
00710 EXEC TLI
00720 ELSE
00730 CLEAR
00740 ENDIF
00750 LET QT $ := "]RSOPG\RELSE…FOR…" + HKL $ + ":"
00760 EXEC LSKRIV3
00770 EXEC ]RSOPG
00780 IF Y = 1 THEN EXEC RETURN
00790 IF Y = 2 THEN OUTPUT "t"
00800 NEXT Y
00810 IF 2 >< 0 THEN
00820 LET D6 := BD6 ; SKG := F7 ; AKT := F0
00830 FOR X := 24 TO 9 DO
00840 LET A ( X ) := 0
00850 NEXT X
00860 CLEAR
00870 IF >< 1 AND GSLUT >< 1 THEN
00880 LET FIL $ := "dde:skatslub"
00890 OPEN FIL $ , R
00900 EXEC L[SF
00910 EXEC GEMBIP
00920 ELSE
00930 EXEC HENTBIP
00940 ENDIF
00950 FOR Y := 1 TO R + 1 DO
00960 IF Y = 2 THEN OUTPUT "p"
00970 IF = 2 THEN
00980 EXEC TLI
00990 ELSE
01000 CLEAR
01010 ENDIF
01020 LET QT $ := "]RSOPG\RELSE…FOR…" + BKL $ + ":"
01030 EXEC LSKRIV3
01040 EXEC ]RSOPG
01050 IF Y = 1 THEN EXEC RETURN
01060 IF Y = 2 THEN OUTPUT "t"
01070 NEXT Y
01080 ENDIF
01090 PRINT "***…VENT…***…HOVEDPROGRAMMET…INDL[SES…***"
01100 CHAIN "DDE:SKAT85"
01110 PROC LSKRIV2
01120 LET PRB := QB
01130 PRINT QT $ ;
01140 PRINT USING "#########.##…KR." : PRB
01150 ENDPROC LSKRIV2
01160 PROC LSKRIV1
01170 LET PRB := QB
01180 PRINT QT $ ;
01190 PRINT USING "#########…KR." : PRB
01200 ENDPROC LSKRIV1
01210 PROC LSKRIV4
01220 LET PRB := QB
01230 PRINT QT $ ;
01240 PRINT USING "#########…PCT." : PRB
01250 ENDPROC LSKRIV4
01260 PROC SVAR
01270 REPEAT
01280 INPUT S $
01290 IF $ = "q" OR S $ = "Q" THEN
01300 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
01310 ENDIF
01320 UNTIL S $ = "j" OR S $ = "n"
01330 PRINT LI $
01340 ENDPROC SVAR
01350 PROC LSKRIV
01360 PRINT
01370 ENDPROC LSKRIV
01380 PROC LSKRIV3
01390 PRINT QT $
01400 ENDPROC LSKRIV3
01410 PROC ]RSOPG
01420 IF Y = 1 THEN LET DD6 := D6
01430 LET A ( 27 ) := SKG + AKT
01440 PRINT
01450 LET QT $ := "SLUTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
01460 EXEC LSKRIV1
01470 FOR X := 24 TO 9 DO
01480 IF ( X ) > 0 AND X >< 28 AND X >< 29 THEN
01490 IF = 1 THEN
01500 LET D6 := D6 - A ( X )
01510 ENDIF
01520 PRINT "-…" ;
01530 ENDIF
01540 IF ( X ) > 0 AND ( X = 28 OR X = 29 ) THEN
01550 IF = 1 THEN
01560 LET D6 := D6 + A ( X )
01570 ENDIF
01580 PRINT "+…" ;
01590 ENDIF
01600 IF ( X ) > 0 THEN
01610 LET QT $ := A1 $ ( X ) ; QB := A ( X )
01620 EXEC LSKRIV1
01630 ENDIF
01640 NEXT X
01650 LET QT $ := SP $ ( 1 : 32 ) + "------------"
01660 EXEC LSKRIV3
01670 IF ( D6 ) > 0 THEN
01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
01690 EXEC LSKRIV1
01700 ENDIF
01710 IF ( D6 ) = 0 THEN
01720 LET QT $ := "FORSKUDSSKATTEN…STEMMER…MED…SLUTSKATTEN."
01730 EXEC LSKRIV3
01740 ENDIF
01750 IF ( D6 ) < 0 THEN
01760 LET QT $ := "OVERSKYDENDE…SKAT" + PIL $ ( 1 : 14 ) ; QB := INT ( D6 )
01770 EXEC LSKRIV1
01780 ENDIF
01790 IF ( D6 ) >< 0 THEN
01800 LET QT $ := SP $ ( 1 : 32 ) + "============"
01810 EXEC LSKRIV3
01820 ENDIF
01830 IF ( 21 ) > 0 THEN
01840 LET QT $ := "P}lignet…B-skat…foruds{ttes…betalt."
01850 EXEC LSKRIV3
01860 ENDIF
01870 ENDPROC ]RSOPG
01880 PROC L[SF
01890 FOR X := 24 TO 9 DO
01900 IF >< 27 THEN
01910 IF ( FIL $ ) = 0 THEN
01920 GET FIL $ : S $
01930 PRINT S $
01940 GET FIL $ : S $
01950 PRINT S $ ;
01960 INPUT "" : A ( X )
01970 PRINT LI $
01980 ENDIF
01990 ENDIF
02000 NEXT X
02010 CLEAR
02020 ENDPROC L[SF
02030 PROC RETURN
02040 LET S $ := "-"
02050 PRINT
02060 PRINT TAB ( 65 ) ;
02070 EDIT "TRYK…-RETURN" : S $
02080 ENDPROC RETURN
02090 PROC TLI
02100 FOR X := 1 TO DO
02110 PRINT
02120 NEXT X
02130 ENDPROC TLI
02140 PROC GEMHOP
02150 OPEN "DDE:HSLUT" , W
02160 FOR X := 1 TO DO
02170 IF X >< 3 THEN PUT "DDE:HSLUT" : A ( 30 - X )
02180 NEXT X
02190 CLOSE "DDE:HSLUT"
02200 ENDPROC GEMHOP
02210 PROC GEMBIP
02220 OPEN "DDE:BSLUT" , W
02230 FOR X := 1 TO DO
02240 IF X >< 3 THEN PUT "DDE:BSLUT" : A ( 30 - X )
02250 NEXT X
02260 CLOSE "DDE:BSLUT"
02270 ENDPROC GEMBIP
02280 PROC HENTHOP
02290 OPEN "DDE:HSLUT" , R
02300 FOR X := 1 TO DO
02310 IF X >< 3 THEN GET "DDE:HSLUT" : A ( 30 - X )
02320 NEXT X
02330 CLOSE "DDE:HSLUT"
02340 ENDPROC HENTHOP
02350 PROC HENTBIP
02360 OPEN "DDE:BSLUT" , R
02370 FOR X := 1 TO DO
02380 IF X >< 3 THEN GET "DDE:BSLUT" : A ( 30 - X )
02390 NEXT X
02400 CLOSE "DDE:BSLUT"
02410 ENDPROC HENTBIP
01760 LET QT $ := "OVERSKYDENDE…SKAT" + PIL $ ( 1 : 14 ) ; QB := ABS ( D6 )
00455 STOP
00455
00455 LET HD6 := HD6 + B9 ; BD6 := BD6 + E6
00560 LET D6 := HD6 + B9 ; SKG := F6 ; AKT := F9
00820 LET D6 := BD6 + E6 ; SKG := F7 ; AKT := F0
00685 LET MIDD6 := D6
00795 LET D6 := MIDD6
01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( DD6 )
01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
01450 LET QT $ := "SLUTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( DD6 )
38382 ╱00╱ ╱00╱
0x0000…0009 (0,) 95f7 00100 ON ESC GOTO DUMMY
0x0000…0009 LineComal80 {
0x0000…0009 ptr = 0x95f7 // 0x0 @0x0
0x0000…0009 lno = 0x0064 // 0x2 @0x2
0x0000…0009 at0004 = ╱85╱ ON ╱ // 0x4 @0x4
0x0000…0009 at0005 = ╱bc╱ ESC ╱ // 0x5 @0x5
0x0000…0009 at0006 = ╱81╱ GOTO ╱ // 0x6 @0x6
0x0000…0009 at0007 = ╱bd╱ DUMMY ╱ // 0x7 @0x7
0x0000…0009 at0008 = EOL // 0x8 @0x8
0x0000…0009 }
0x0009…002e 961c 00110 INTEGER X , N , PR , Y , F8 , FE , G , T0 , T1 , T2 , T3 , T4
0x0009…002e LineComal80 {
0x0009…002e ptr = 0x961c // 0x9 @0x0
0x0009…002e lno = 0x006e // 0xb @0x2
0x0009…002e at0004 = ╱b2╱ INTEGER ╱ // 0xd @0x4
0x0009…002e at0005 = ╱58╱X╱ // 0xe @0x5
0x0009…002e at0006 = ╱ec╱ , ╱ // 0xf @0x6
0x0009…002e at0007 = ╱4e╱N╱ // 0x10 @0x7
0x0009…002e at0008 = ╱ec╱ , ╱ // 0x11 @0x8
0x0009…002e at0009 = ╱50╱P╱ // 0x12 @0x9
0x0009…002e at000a = ╱52╱R╱ // 0x13 @0xa
0x0009…002e at000b = ╱ec╱ , ╱ // 0x14 @0xb
0x0009…002e at000c = ╱59╱Y╱ // 0x15 @0xc
0x0009…002e at000d = ╱ec╱ , ╱ // 0x16 @0xd
0x0009…002e at000e = ╱46╱F╱ // 0x17 @0xe
0x0009…002e at000f = ╱38╱8╱ // 0x18 @0xf
0x0009…002e at0010 = ╱ec╱ , ╱ // 0x19 @0x10
0x0009…002e at0011 = ╱46╱F╱ // 0x1a @0x11
0x0009…002e at0012 = ╱45╱E╱ // 0x1b @0x12
0x0009…002e at0013 = ╱ec╱ , ╱ // 0x1c @0x13
0x0009…002e at0014 = ╱47╱G╱ // 0x1d @0x14
0x0009…002e at0015 = ╱ec╱ , ╱ // 0x1e @0x15
0x0009…002e at0016 = ╱54╱T╱ // 0x1f @0x16
0x0009…002e at0017 = ╱30╱0╱ // 0x20 @0x17
0x0009…002e at0018 = ╱ec╱ , ╱ // 0x21 @0x18
0x0009…002e at0019 = ╱54╱T╱ // 0x22 @0x19
0x0009…002e at001a = ╱31╱1╱ // 0x23 @0x1a
0x0009…002e at001b = ╱ec╱ , ╱ // 0x24 @0x1b
0x0009…002e at001c = ╱54╱T╱ // 0x25 @0x1c
0x0009…002e at001d = ╱32╱2╱ // 0x26 @0x1d
0x0009…002e at001e = ╱ec╱ , ╱ // 0x27 @0x1e
0x0009…002e at001f = ╱54╱T╱ // 0x28 @0x1f
0x0009…002e at0020 = ╱33╱3╱ // 0x29 @0x20
0x0009…002e at0021 = ╱ec╱ , ╱ // 0x2a @0x21
0x0009…002e at0022 = ╱54╱T╱ // 0x2b @0x22
0x0009…002e at0023 = ╱34╱4╱ // 0x2c @0x23
0x0009…002e at0024 = EOL // 0x2d @0x24
0x0009…002e }
0x002e…0086 9674 00120 LET STATUS := 0 ; G1 := 0 ; B7 := 0 ; B8 := 0 ; U2 := 0 ; F0 := 0 ; F7 := 0 ; T3 := 0 ; T := 0 ; T0 := 0
0x002e…0086 LineComal80 {
0x002e…0086 ptr = 0x9674 // 0x2e @0x0
0x002e…0086 lno = 0x0078 // 0x30 @0x2
0x002e…0086 at0004 = ╱86╱ LET ╱ // 0x32 @0x4
0x002e…0086 at0005 = ╱53╱S╱ // 0x33 @0x5
0x002e…0086 at0006 = ╱54╱T╱ // 0x34 @0x6
0x002e…0086 at0007 = ╱41╱A╱ // 0x35 @0x7
0x002e…0086 at0008 = ╱54╱T╱ // 0x36 @0x8
0x002e…0086 at0009 = ╱55╱U╱ // 0x37 @0x9
0x002e…0086 at000a = ╱53╱S╱ // 0x38 @0xa
0x002e…0086 at000b = ╱f0╱ := ╱ // 0x39 @0xb
0x002e…0086 at000c = ╱30╱0╱ // 0x3a @0xc
0x002e…0086 at000d = ╱f20000╱ // 0x3b @0xd
0x002e…0086 at0010 = ╱ea╱ ; ╱ // 0x3e @0x10
0x002e…0086 at0011 = ╱47╱G╱ // 0x3f @0x11
0x002e…0086 at0012 = ╱31╱1╱ // 0x40 @0x12
0x002e…0086 at0013 = ╱f0╱ := ╱ // 0x41 @0x13
0x002e…0086 at0014 = ╱30╱0╱ // 0x42 @0x14
0x002e…0086 at0015 = ╱f20000╱ // 0x43 @0x15
0x002e…0086 at0018 = ╱ea╱ ; ╱ // 0x46 @0x18
0x002e…0086 at0019 = ╱42╱B╱ // 0x47 @0x19
0x002e…0086 at001a = ╱37╱7╱ // 0x48 @0x1a
0x002e…0086 at001b = ╱f0╱ := ╱ // 0x49 @0x1b
0x002e…0086 at001c = ╱30╱0╱ // 0x4a @0x1c
0x002e…0086 at001d = ╱f20000╱ // 0x4b @0x1d
0x002e…0086 at0020 = ╱ea╱ ; ╱ // 0x4e @0x20
0x002e…0086 at0021 = ╱42╱B╱ // 0x4f @0x21
0x002e…0086 at0022 = ╱38╱8╱ // 0x50 @0x22
0x002e…0086 at0023 = ╱f0╱ := ╱ // 0x51 @0x23
0x002e…0086 at0024 = ╱30╱0╱ // 0x52 @0x24
0x002e…0086 at0025 = ╱f20000╱ // 0x53 @0x25
0x002e…0086 at0028 = ╱ea╱ ; ╱ // 0x56 @0x28
0x002e…0086 at0029 = ╱55╱U╱ // 0x57 @0x29
0x002e…0086 at002a = ╱32╱2╱ // 0x58 @0x2a
0x002e…0086 at002b = ╱f0╱ := ╱ // 0x59 @0x2b
0x002e…0086 at002c = ╱30╱0╱ // 0x5a @0x2c
0x002e…0086 at002d = ╱f20000╱ // 0x5b @0x2d
0x002e…0086 at0030 = ╱ea╱ ; ╱ // 0x5e @0x30
0x002e…0086 at0031 = ╱46╱F╱ // 0x5f @0x31
0x002e…0086 at0032 = ╱30╱0╱ // 0x60 @0x32
0x002e…0086 at0033 = ╱f0╱ := ╱ // 0x61 @0x33
0x002e…0086 at0034 = ╱30╱0╱ // 0x62 @0x34
0x002e…0086 at0035 = ╱f20000╱ // 0x63 @0x35
0x002e…0086 at0038 = ╱ea╱ ; ╱ // 0x66 @0x38
0x002e…0086 at0039 = ╱46╱F╱ // 0x67 @0x39
0x002e…0086 at003a = ╱37╱7╱ // 0x68 @0x3a
0x002e…0086 at003b = ╱f0╱ := ╱ // 0x69 @0x3b
0x002e…0086 at003c = ╱30╱0╱ // 0x6a @0x3c
0x002e…0086 at003d = ╱f20000╱ // 0x6b @0x3d
0x002e…0086 at0040 = ╱ea╱ ; ╱ // 0x6e @0x40
0x002e…0086 at0041 = ╱54╱T╱ // 0x6f @0x41
0x002e…0086 at0042 = ╱33╱3╱ // 0x70 @0x42
0x002e…0086 at0043 = ╱f0╱ := ╱ // 0x71 @0x43
0x002e…0086 at0044 = ╱30╱0╱ // 0x72 @0x44
0x002e…0086 at0045 = ╱f20000╱ // 0x73 @0x45
0x002e…0086 at0048 = ╱ea╱ ; ╱ // 0x76 @0x48
0x002e…0086 at0049 = ╱54╱T╱ // 0x77 @0x49
0x002e…0086 at004a = ╱f0╱ := ╱ // 0x78 @0x4a
0x002e…0086 at004b = ╱30╱0╱ // 0x79 @0x4b
0x002e…0086 at004c = ╱f20000╱ // 0x7a @0x4c
0x002e…0086 at004f = ╱ea╱ ; ╱ // 0x7d @0x4f
0x002e…0086 at0050 = ╱54╱T╱ // 0x7e @0x50
0x002e…0086 at0051 = ╱30╱0╱ // 0x7f @0x51
0x002e…0086 at0052 = ╱f0╱ := ╱ // 0x80 @0x52
0x002e…0086 at0053 = ╱30╱0╱ // 0x81 @0x53
0x002e…0086 at0054 = ╱f20000╱ // 0x82 @0x54
0x002e…0086 at0057 = EOL // 0x85 @0x57
0x002e…0086 }
0x0086…009d 968b 00130 LET TKB := 0 ; TKH := 0
0x0086…009d LineComal80 {
0x0086…009d ptr = 0x968b // 0x86 @0x0
0x0086…009d lno = 0x0082 // 0x88 @0x2
0x0086…009d at0004 = ╱86╱ LET ╱ // 0x8a @0x4
0x0086…009d at0005 = ╱54╱T╱ // 0x8b @0x5
0x0086…009d at0006 = ╱4b╱K╱ // 0x8c @0x6
0x0086…009d at0007 = ╱42╱B╱ // 0x8d @0x7
0x0086…009d at0008 = ╱f0╱ := ╱ // 0x8e @0x8
0x0086…009d at0009 = ╱30╱0╱ // 0x8f @0x9
0x0086…009d at000a = ╱f20000╱ // 0x90 @0xa
0x0086…009d at000d = ╱ea╱ ; ╱ // 0x93 @0xd
0x0086…009d at000e = ╱54╱T╱ // 0x94 @0xe
0x0086…009d at000f = ╱4b╱K╱ // 0x95 @0xf
0x0086…009d at0010 = ╱48╱H╱ // 0x96 @0x10
0x0086…009d at0011 = ╱f0╱ := ╱ // 0x97 @0x11
0x0086…009d at0012 = ╱30╱0╱ // 0x98 @0x12
0x0086…009d at0013 = ╱f20000╱ // 0x99 @0x13
0x0086…009d at0016 = EOL // 0x9c @0x16
0x0086…009d }
0x009d…00eb 96d9 00140 DIM A1 $ ( 29 ) OF 29 , A ( 29 ) , H ( 23 ) , K ( 23 ) , LI $ OF 80 , QT $ OF 80 , S $ OF 80
0x009d…00eb LineComal80 {
0x009d…00eb ptr = 0x96d9 // 0x9d @0x0
0x009d…00eb lno = 0x008c // 0x9f @0x2
0x009d…00eb at0004 = ╱87╱ DIM ╱ // 0xa1 @0x4
0x009d…00eb at0005 = ╱41╱A╱ // 0xa2 @0x5
0x009d…00eb at0006 = ╱31╱1╱ // 0xa3 @0x6
0x009d…00eb at0007 = ╱ef╱ $ ╱ // 0xa4 @0x7
0x009d…00eb at0008 = ╱ed╱ ( ╱ // 0xa5 @0x8
0x009d…00eb at0009 = ╱32╱2╱ // 0xa6 @0x9
0x009d…00eb at000a = ╱39╱9╱ // 0xa7 @0xa
0x009d…00eb at000b = ╱f21d00╱ // 0xa8 @0xb
0x009d…00eb at000e = ╱ee╱ ) ╱ // 0xab @0xe
0x009d…00eb at000f = ╱ba╱ OF ╱ // 0xac @0xf
0x009d…00eb at0010 = ╱32╱2╱ // 0xad @0x10
0x009d…00eb at0011 = ╱39╱9╱ // 0xae @0x11
0x009d…00eb at0012 = ╱f21d00╱ // 0xaf @0x12
0x009d…00eb at0015 = ╱ec╱ , ╱ // 0xb2 @0x15
0x009d…00eb at0016 = ╱41╱A╱ // 0xb3 @0x16
0x009d…00eb at0017 = ╱ed╱ ( ╱ // 0xb4 @0x17
0x009d…00eb at0018 = ╱32╱2╱ // 0xb5 @0x18
0x009d…00eb at0019 = ╱39╱9╱ // 0xb6 @0x19
0x009d…00eb at001a = ╱f21d00╱ // 0xb7 @0x1a
0x009d…00eb at001d = ╱ee╱ ) ╱ // 0xba @0x1d
0x009d…00eb at001e = ╱ec╱ , ╱ // 0xbb @0x1e
0x009d…00eb at001f = ╱48╱H╱ // 0xbc @0x1f
0x009d…00eb at0020 = ╱ed╱ ( ╱ // 0xbd @0x20
0x009d…00eb at0021 = ╱32╱2╱ // 0xbe @0x21
0x009d…00eb at0022 = ╱33╱3╱ // 0xbf @0x22
0x009d…00eb at0023 = ╱f21700╱ // 0xc0 @0x23
0x009d…00eb at0026 = ╱ee╱ ) ╱ // 0xc3 @0x26
0x009d…00eb at0027 = ╱ec╱ , ╱ // 0xc4 @0x27
0x009d…00eb at0028 = ╱4b╱K╱ // 0xc5 @0x28
0x009d…00eb at0029 = ╱ed╱ ( ╱ // 0xc6 @0x29
0x009d…00eb at002a = ╱32╱2╱ // 0xc7 @0x2a
0x009d…00eb at002b = ╱33╱3╱ // 0xc8 @0x2b
0x009d…00eb at002c = ╱f21700╱ // 0xc9 @0x2c
0x009d…00eb at002f = ╱ee╱ ) ╱ // 0xcc @0x2f
0x009d…00eb at0030 = ╱ec╱ , ╱ // 0xcd @0x30
0x009d…00eb at0031 = ╱4c╱L╱ // 0xce @0x31
0x009d…00eb at0032 = ╱49╱I╱ // 0xcf @0x32
0x009d…00eb at0033 = ╱ef╱ $ ╱ // 0xd0 @0x33
0x009d…00eb at0034 = ╱ba╱ OF ╱ // 0xd1 @0x34
0x009d…00eb at0035 = ╱38╱8╱ // 0xd2 @0x35
0x009d…00eb at0036 = ╱30╱0╱ // 0xd3 @0x36
0x009d…00eb at0037 = ╱f25000╱ // 0xd4 @0x37
0x009d…00eb at003a = ╱ec╱ , ╱ // 0xd7 @0x3a
0x009d…00eb at003b = ╱51╱Q╱ // 0xd8 @0x3b
0x009d…00eb at003c = ╱54╱T╱ // 0xd9 @0x3c
0x009d…00eb at003d = ╱ef╱ $ ╱ // 0xda @0x3d
0x009d…00eb at003e = ╱ba╱ OF ╱ // 0xdb @0x3e
0x009d…00eb at003f = ╱38╱8╱ // 0xdc @0x3f
0x009d…00eb at0040 = ╱30╱0╱ // 0xdd @0x40
0x009d…00eb at0041 = ╱f25000╱ // 0xde @0x41
0x009d…00eb at0044 = ╱ec╱ , ╱ // 0xe1 @0x44
0x009d…00eb at0045 = ╱53╱S╱ // 0xe2 @0x45
0x009d…00eb at0046 = ╱ef╱ $ ╱ // 0xe3 @0x46
0x009d…00eb at0047 = ╱ba╱ OF ╱ // 0xe4 @0x47
0x009d…00eb at0048 = ╱38╱8╱ // 0xe5 @0x48
0x009d…00eb at0049 = ╱30╱0╱ // 0xe6 @0x49
0x009d…00eb at004a = ╱f25000╱ // 0xe7 @0x4a
0x009d…00eb at004d = EOL // 0xea @0x4d
0x009d…00eb }
0x00eb…0126 9714 00150 DIM FIL $ OF 15 , PIL $ OF 80 , SP $ OF 80 , HKL $ OF 38 , BKL $ OF 38
0x00eb…0126 LineComal80 {
0x00eb…0126 ptr = 0x9714 // 0xeb @0x0
0x00eb…0126 lno = 0x0096 // 0xed @0x2
0x00eb…0126 at0004 = ╱87╱ DIM ╱ // 0xef @0x4
0x00eb…0126 at0005 = ╱46╱F╱ // 0xf0 @0x5
0x00eb…0126 at0006 = ╱49╱I╱ // 0xf1 @0x6
0x00eb…0126 at0007 = ╱4c╱L╱ // 0xf2 @0x7
0x00eb…0126 at0008 = ╱ef╱ $ ╱ // 0xf3 @0x8
0x00eb…0126 at0009 = ╱ba╱ OF ╱ // 0xf4 @0x9
0x00eb…0126 at000a = ╱31╱1╱ // 0xf5 @0xa
0x00eb…0126 at000b = ╱35╱5╱ // 0xf6 @0xb
0x00eb…0126 at000c = ╱f20f00╱ // 0xf7 @0xc
0x00eb…0126 at000f = ╱ec╱ , ╱ // 0xfa @0xf
0x00eb…0126 at0010 = ╱50╱P╱ // 0xfb @0x10
0x00eb…0126 at0011 = ╱49╱I╱ // 0xfc @0x11
0x00eb…0126 at0012 = ╱4c╱L╱ // 0xfd @0x12
0x00eb…0126 at0013 = ╱ef╱ $ ╱ // 0xfe @0x13
0x00eb…0126 at0014 = ╱ba╱ OF ╱ // 0xff @0x14
0x00eb…0126 at0015 = ╱38╱8╱ // 0x100 @0x15
0x00eb…0126 at0016 = ╱30╱0╱ // 0x101 @0x16
0x00eb…0126 at0017 = ╱f25000╱ // 0x102 @0x17
0x00eb…0126 at001a = ╱ec╱ , ╱ // 0x105 @0x1a
0x00eb…0126 at001b = ╱53╱S╱ // 0x106 @0x1b
0x00eb…0126 at001c = ╱50╱P╱ // 0x107 @0x1c
0x00eb…0126 at001d = ╱ef╱ $ ╱ // 0x108 @0x1d
0x00eb…0126 at001e = ╱ba╱ OF ╱ // 0x109 @0x1e
0x00eb…0126 at001f = ╱38╱8╱ // 0x10a @0x1f
0x00eb…0126 at0020 = ╱30╱0╱ // 0x10b @0x20
0x00eb…0126 at0021 = ╱f25000╱ // 0x10c @0x21
0x00eb…0126 at0024 = ╱ec╱ , ╱ // 0x10f @0x24
0x00eb…0126 at0025 = ╱48╱H╱ // 0x110 @0x25
0x00eb…0126 at0026 = ╱4b╱K╱ // 0x111 @0x26
0x00eb…0126 at0027 = ╱4c╱L╱ // 0x112 @0x27
0x00eb…0126 at0028 = ╱ef╱ $ ╱ // 0x113 @0x28
0x00eb…0126 at0029 = ╱ba╱ OF ╱ // 0x114 @0x29
0x00eb…0126 at002a = ╱33╱3╱ // 0x115 @0x2a
0x00eb…0126 at002b = ╱38╱8╱ // 0x116 @0x2b
0x00eb…0126 at002c = ╱f22600╱ // 0x117 @0x2c
0x00eb…0126 at002f = ╱ec╱ , ╱ // 0x11a @0x2f
0x00eb…0126 at0030 = ╱42╱B╱ // 0x11b @0x30
0x00eb…0126 at0031 = ╱4b╱K╱ // 0x11c @0x31
0x00eb…0126 at0032 = ╱4c╱L╱ // 0x11d @0x32
0x00eb…0126 at0033 = ╱ef╱ $ ╱ // 0x11e @0x33
0x00eb…0126 at0034 = ╱ba╱ OF ╱ // 0x11f @0x34
0x00eb…0126 at0035 = ╱33╱3╱ // 0x120 @0x35
0x00eb…0126 at0036 = ╱38╱8╱ // 0x121 @0x36
0x00eb…0126 at0037 = ╱f22600╱ // 0x122 @0x37
0x00eb…0126 at003a = EOL // 0x125 @0x3a
0x00eb…0126 }
0x0126…0141 972f 00160 LET LI $ := "" ; PIL $ := "" ; SP $ := ""
0x0126…0141 LineComal80 {
0x0126…0141 ptr = 0x972f // 0x126 @0x0
0x0126…0141 lno = 0x00a0 // 0x128 @0x2
0x0126…0141 at0004 = ╱86╱ LET ╱ // 0x12a @0x4
0x0126…0141 at0005 = ╱4c╱L╱ // 0x12b @0x5
0x0126…0141 at0006 = ╱49╱I╱ // 0x12c @0x6
0x0126…0141 at0007 = ╱ef╱ $ ╱ // 0x12d @0x7
0x0126…0141 at0008 = ╱f0╱ := ╱ // 0x12e @0x8
0x0126…0141 at0009 = ╱22╱"╱ // 0x12f @0x9
0x0126…0141 at000a = ╱22╱"╱ // 0x130 @0xa
0x0126…0141 at000b = ╱ea╱ ; ╱ // 0x131 @0xb
0x0126…0141 at000c = ╱50╱P╱ // 0x132 @0xc
0x0126…0141 at000d = ╱49╱I╱ // 0x133 @0xd
0x0126…0141 at000e = ╱4c╱L╱ // 0x134 @0xe
0x0126…0141 at000f = ╱ef╱ $ ╱ // 0x135 @0xf
0x0126…0141 at0010 = ╱f0╱ := ╱ // 0x136 @0x10
0x0126…0141 at0011 = ╱22╱"╱ // 0x137 @0x11
0x0126…0141 at0012 = ╱22╱"╱ // 0x138 @0x12
0x0126…0141 at0013 = ╱ea╱ ; ╱ // 0x139 @0x13
0x0126…0141 at0014 = ╱53╱S╱ // 0x13a @0x14
0x0126…0141 at0015 = ╱50╱P╱ // 0x13b @0x15
0x0126…0141 at0016 = ╱ef╱ $ ╱ // 0x13c @0x16
0x0126…0141 at0017 = ╱f0╱ := ╱ // 0x13d @0x17
0x0126…0141 at0018 = ╱22╱"╱ // 0x13e @0x18
0x0126…0141 at0019 = ╱22╱"╱ // 0x13f @0x19
0x0126…0141 at001a = EOL // 0x140 @0x1a
0x0126…0141 }
0x0141…0155 9743 00170 FOR X := 1 TO 8 DO
0x0141…0155 LineComal80 {
0x0141…0155 ptr = 0x9743 // 0x141 @0x0
0x0141…0155 lno = 0x00aa // 0x143 @0x2
0x0141…0155 at0004 = ╱8301╱ FOR ╱ // 0x145 @0x4
0x0141…0155 at0006 = ╱58╱X╱ // 0x147 @0x6
0x0141…0155 at0007 = ╱f0╱ := ╱ // 0x148 @0x7
0x0141…0155 at0008 = ╱31╱1╱ // 0x149 @0x8
0x0141…0155 at0009 = ╱f20100╱ // 0x14a @0x9
0x0141…0155 at000c = ╱b737╱ TO ╱ // 0x14d @0xc
0x0141…0155 at000e = ╱38╱8╱ // 0x14f @0xe
0x0141…0155 at000f = ╱f24e00╱ // 0x150 @0xf
0x0141…0155 at0012 = ╱bb╱ DO ╱ // 0x153 @0x12
0x0141…0155 at0013 = EOL // 0x154 @0x13
0x0141…0155 }
0x0155…0180 976e 00180 LET LI $ := LI $ + "-" ; PIL $ := PIL $ + "." ; SP $ := SP $ + "…"
0x0155…0180 LineComal80 {
0x0155…0180 ptr = 0x976e // 0x155 @0x0
0x0155…0180 lno = 0x00b4 // 0x157 @0x2
0x0155…0180 at0004 = ╱86╱ LET ╱ // 0x159 @0x4
0x0155…0180 at0005 = ╱4c╱L╱ // 0x15a @0x5
0x0155…0180 at0006 = ╱49╱I╱ // 0x15b @0x6
0x0155…0180 at0007 = ╱ef╱ $ ╱ // 0x15c @0x7
0x0155…0180 at0008 = ╱f0╱ := ╱ // 0x15d @0x8
0x0155…0180 at0009 = ╱4c╱L╱ // 0x15e @0x9
0x0155…0180 at000a = ╱49╱I╱ // 0x15f @0xa
0x0155…0180 at000b = ╱ef╱ $ ╱ // 0x160 @0xb
0x0155…0180 at000c = ╱eb╱ + ╱ // 0x161 @0xc
0x0155…0180 at000d = ╱22╱"╱ // 0x162 @0xd
0x0155…0180 at000e = ╱2d╱-╱ // 0x163 @0xe
0x0155…0180 at000f = ╱22╱"╱ // 0x164 @0xf
0x0155…0180 at0010 = ╱ea╱ ; ╱ // 0x165 @0x10
0x0155…0180 at0011 = ╱50╱P╱ // 0x166 @0x11
0x0155…0180 at0012 = ╱49╱I╱ // 0x167 @0x12
0x0155…0180 at0013 = ╱4c╱L╱ // 0x168 @0x13
0x0155…0180 at0014 = ╱ef╱ $ ╱ // 0x169 @0x14
0x0155…0180 at0015 = ╱f0╱ := ╱ // 0x16a @0x15
0x0155…0180 at0016 = ╱50╱P╱ // 0x16b @0x16
0x0155…0180 at0017 = ╱49╱I╱ // 0x16c @0x17
0x0155…0180 at0018 = ╱4c╱L╱ // 0x16d @0x18
0x0155…0180 at0019 = ╱ef╱ $ ╱ // 0x16e @0x19
0x0155…0180 at001a = ╱eb╱ + ╱ // 0x16f @0x1a
0x0155…0180 at001b = ╱22╱"╱ // 0x170 @0x1b
0x0155…0180 at001c = ╱2e╱.╱ // 0x171 @0x1c
0x0155…0180 at001d = ╱22╱"╱ // 0x172 @0x1d
0x0155…0180 at001e = ╱ea╱ ; ╱ // 0x173 @0x1e
0x0155…0180 at001f = ╱53╱S╱ // 0x174 @0x1f
0x0155…0180 at0020 = ╱50╱P╱ // 0x175 @0x20
0x0155…0180 at0021 = ╱ef╱ $ ╱ // 0x176 @0x21
0x0155…0180 at0022 = ╱f0╱ := ╱ // 0x177 @0x22
0x0155…0180 at0023 = ╱53╱S╱ // 0x178 @0x23
0x0155…0180 at0024 = ╱50╱P╱ // 0x179 @0x24
0x0155…0180 at0025 = ╱ef╱ $ ╱ // 0x17a @0x25
0x0155…0180 at0026 = ╱eb╱ + ╱ // 0x17b @0x26
0x0155…0180 at0027 = ╱22╱"╱ // 0x17c @0x27
0x0155…0180 at0028 = ╱20╱…╱ // 0x17d @0x28
0x0155…0180 at0029 = ╱22╱"╱ // 0x17e @0x29
0x0155…0180 at002a = EOL // 0x17f @0x2a
0x0155…0180 }
0x0180…0187 9775 00190 NEXT X
0x0180…0187 LineComal80 {
0x0180…0187 ptr = 0x9775 // 0x180 @0x0
0x0180…0187 lno = 0x00be // 0x182 @0x2
0x0180…0187 at0004 = ╱84╱ NEXT ╱ // 0x184 @0x4
0x0180…0187 at0005 = ╱58╱X╱ // 0x185 @0x5
0x0180…0187 at0006 = EOL // 0x186 @0x6
0x0180…0187 }
0x0187…01ab 9799 00200 LET F8 := 0 ; G := 0 ; T2 := 2 ; T4 := 0
0x0187…01ab LineComal80 {
0x0187…01ab ptr = 0x9799 // 0x187 @0x0
0x0187…01ab lno = 0x00c8 // 0x189 @0x2
0x0187…01ab at0004 = ╱86╱ LET ╱ // 0x18b @0x4
0x0187…01ab at0005 = ╱46╱F╱ // 0x18c @0x5
0x0187…01ab at0006 = ╱38╱8╱ // 0x18d @0x6
0x0187…01ab at0007 = ╱f0╱ := ╱ // 0x18e @0x7
0x0187…01ab at0008 = ╱30╱0╱ // 0x18f @0x8
0x0187…01ab at0009 = ╱f20000╱ // 0x190 @0x9
0x0187…01ab at000c = ╱ea╱ ; ╱ // 0x193 @0xc
0x0187…01ab at000d = ╱47╱G╱ // 0x194 @0xd
0x0187…01ab at000e = ╱f0╱ := ╱ // 0x195 @0xe
0x0187…01ab at000f = ╱30╱0╱ // 0x196 @0xf
0x0187…01ab at0010 = ╱f20000╱ // 0x197 @0x10
0x0187…01ab at0013 = ╱ea╱ ; ╱ // 0x19a @0x13
0x0187…01ab at0014 = ╱54╱T╱ // 0x19b @0x14
0x0187…01ab at0015 = ╱32╱2╱ // 0x19c @0x15
0x0187…01ab at0016 = ╱f0╱ := ╱ // 0x19d @0x16
0x0187…01ab at0017 = ╱32╱2╱ // 0x19e @0x17
0x0187…01ab at0018 = ╱f20200╱ // 0x19f @0x18
0x0187…01ab at001b = ╱ea╱ ; ╱ // 0x1a2 @0x1b
0x0187…01ab at001c = ╱54╱T╱ // 0x1a3 @0x1c
0x0187…01ab at001d = ╱34╱4╱ // 0x1a4 @0x1d
0x0187…01ab at001e = ╱f0╱ := ╱ // 0x1a5 @0x1e
0x0187…01ab at001f = ╱30╱0╱ // 0x1a6 @0x1f
0x0187…01ab at0020 = ╱f20000╱ // 0x1a7 @0x20
0x0187…01ab at0023 = EOL // 0x1aa @0x23
0x0187…01ab }
0x01ab…01c3 97b1 00210 LET FIL $ := "dde:skatsys"
0x01ab…01c3 LineComal80 {
0x01ab…01c3 ptr = 0x97b1 // 0x1ab @0x0
0x01ab…01c3 lno = 0x00d2 // 0x1ad @0x2
0x01ab…01c3 at0004 = ╱86╱ LET ╱ // 0x1af @0x4
0x01ab…01c3 at0005 = ╱46╱F╱ // 0x1b0 @0x5
0x01ab…01c3 at0006 = ╱49╱I╱ // 0x1b1 @0x6
0x01ab…01c3 at0007 = ╱4c╱L╱ // 0x1b2 @0x7
0x01ab…01c3 at0008 = ╱ef╱ $ ╱ // 0x1b3 @0x8
0x01ab…01c3 at0009 = ╱f0╱ := ╱ // 0x1b4 @0x9
0x01ab…01c3 at000a = ╱22╱"╱ // 0x1b5 @0xa
0x01ab…01c3 at000b = ╱64╱d╱ // 0x1b6 @0xb
0x01ab…01c3 at000c = ╱64╱d╱ // 0x1b7 @0xc
0x01ab…01c3 at000d = ╱65╱e╱ // 0x1b8 @0xd
0x01ab…01c3 at000e = ╱3a╱:╱ // 0x1b9 @0xe
0x01ab…01c3 at000f = ╱73╱s╱ // 0x1ba @0xf
0x01ab…01c3 at0010 = ╱6b╱k╱ // 0x1bb @0x10
0x01ab…01c3 at0011 = ╱61╱a╱ // 0x1bc @0x11
0x01ab…01c3 at0012 = ╱74╱t╱ // 0x1bd @0x12
0x01ab…01c3 at0013 = ╱73╱s╱ // 0x1be @0x13
0x01ab…01c3 at0014 = ╱79╱y╱ // 0x1bf @0x14
0x01ab…01c3 at0015 = ╱73╱s╱ // 0x1c0 @0x15
0x01ab…01c3 at0016 = ╱22╱"╱ // 0x1c1 @0x16
0x01ab…01c3 at0017 = EOL // 0x1c2 @0x17
0x01ab…01c3 }
0x01c3…01cf 97bd 00220 OPEN FIL $ , R
0x01c3…01cf LineComal80 {
0x01c3…01cf ptr = 0x97bd // 0x1c3 @0x0
0x01c3…01cf lno = 0x00dc // 0x1c5 @0x2
0x01c3…01cf at0004 = ╱a7╱ OPEN ╱ // 0x1c7 @0x4
0x01c3…01cf at0005 = ╱46╱F╱ // 0x1c8 @0x5
0x01c3…01cf at0006 = ╱49╱I╱ // 0x1c9 @0x6
0x01c3…01cf at0007 = ╱4c╱L╱ // 0x1ca @0x7
0x01c3…01cf at0008 = ╱ef╱ $ ╱ // 0x1cb @0x8
0x01c3…01cf at0009 = ╱ec╱ , ╱ // 0x1cc @0x9
0x01c3…01cf at000a = ╱52╱R╱ // 0x1cd @0xa
0x01c3…01cf at000b = EOL // 0x1ce @0xb
0x01c3…01cf }
0x01cf…01dd 97cb 00230 GET FIL $ : SYS
0x01cf…01dd LineComal80 {
0x01cf…01dd ptr = 0x97cb // 0x1cf @0x0
0x01cf…01dd lno = 0x00e6 // 0x1d1 @0x2
0x01cf…01dd at0004 = ╱a9╱ GET ╱ // 0x1d3 @0x4
0x01cf…01dd at0005 = ╱46╱F╱ // 0x1d4 @0x5
0x01cf…01dd at0006 = ╱49╱I╱ // 0x1d5 @0x6
0x01cf…01dd at0007 = ╱4c╱L╱ // 0x1d6 @0x7
0x01cf…01dd at0008 = ╱ef╱ $ ╱ // 0x1d7 @0x8
0x01cf…01dd at0009 = ╱f1╱ : ╱ // 0x1d8 @0x9
0x01cf…01dd at000a = ╱53╱S╱ // 0x1d9 @0xa
0x01cf…01dd at000b = ╱59╱Y╱ // 0x1da @0xb
0x01cf…01dd at000c = ╱53╱S╱ // 0x1db @0xc
0x01cf…01dd at000d = EOL // 0x1dc @0xd
0x01cf…01dd }
0x01dd…01e7 97d5 00240 CLOSE FIL $
0x01dd…01e7 LineComal80 {
0x01dd…01e7 ptr = 0x97d5 // 0x1dd @0x0
0x01dd…01e7 lno = 0x00f0 // 0x1df @0x2
0x01dd…01e7 at0004 = ╱a8╱ CLOSE ╱ // 0x1e1 @0x4
0x01dd…01e7 at0005 = ╱46╱F╱ // 0x1e2 @0x5
0x01dd…01e7 at0006 = ╱49╱I╱ // 0x1e3 @0x6
0x01dd…01e7 at0007 = ╱4c╱L╱ // 0x1e4 @0x7
0x01dd…01e7 at0008 = ╱ef╱ $ ╱ // 0x1e5 @0x8
0x01dd…01e7 at0009 = EOL // 0x1e6 @0x9
0x01dd…01e7 }
0x01e7…01f3 97e1 00250 OPEN FIL $ , W
0x01e7…01f3 LineComal80 {
0x01e7…01f3 ptr = 0x97e1 // 0x1e7 @0x0
0x01e7…01f3 lno = 0x00fa // 0x1e9 @0x2
0x01e7…01f3 at0004 = ╱a7╱ OPEN ╱ // 0x1eb @0x4
0x01e7…01f3 at0005 = ╱46╱F╱ // 0x1ec @0x5
0x01e7…01f3 at0006 = ╱49╱I╱ // 0x1ed @0x6
0x01e7…01f3 at0007 = ╱4c╱L╱ // 0x1ee @0x7
0x01e7…01f3 at0008 = ╱ef╱ $ ╱ // 0x1ef @0x8
0x01e7…01f3 at0009 = ╱ec╱ , ╱ // 0x1f0 @0x9
0x01e7…01f3 at000a = ╱57╱W╱ // 0x1f1 @0xa
0x01e7…01f3 at000b = EOL // 0x1f2 @0xb
0x01e7…01f3 }
0x01f3…0201 97ef 00260 LET SYS := 1
0x01f3…0201 LineComal80 {
0x01f3…0201 ptr = 0x97ef // 0x1f3 @0x0
0x01f3…0201 lno = 0x0104 // 0x1f5 @0x2
0x01f3…0201 at0004 = ╱86╱ LET ╱ // 0x1f7 @0x4
0x01f3…0201 at0005 = ╱53╱S╱ // 0x1f8 @0x5
0x01f3…0201 at0006 = ╱59╱Y╱ // 0x1f9 @0x6
0x01f3…0201 at0007 = ╱53╱S╱ // 0x1fa @0x7
0x01f3…0201 at0008 = ╱f0╱ := ╱ // 0x1fb @0x8
0x01f3…0201 at0009 = ╱31╱1╱ // 0x1fc @0x9
0x01f3…0201 at000a = ╱f20100╱ // 0x1fd @0xa
0x01f3…0201 at000d = EOL // 0x200 @0xd
0x01f3…0201 }
0x0201…020f 97fd 00270 PUT FIL $ : SYS
0x0201…020f LineComal80 {
0x0201…020f ptr = 0x97fd // 0x201 @0x0
0x0201…020f lno = 0x010e // 0x203 @0x2
0x0201…020f at0004 = ╱aa╱ PUT ╱ // 0x205 @0x4
0x0201…020f at0005 = ╱46╱F╱ // 0x206 @0x5
0x0201…020f at0006 = ╱49╱I╱ // 0x207 @0x6
0x0201…020f at0007 = ╱4c╱L╱ // 0x208 @0x7
0x0201…020f at0008 = ╱ef╱ $ ╱ // 0x209 @0x8
0x0201…020f at0009 = ╱f1╱ : ╱ // 0x20a @0x9
0x0201…020f at000a = ╱53╱S╱ // 0x20b @0xa
0x0201…020f at000b = ╱59╱Y╱ // 0x20c @0xb
0x0201…020f at000c = ╱53╱S╱ // 0x20d @0xc
0x0201…020f at000d = EOL // 0x20e @0xd
0x0201…020f }
0x020f…0219 9807 00280 CLOSE FIL $
0x020f…0219 LineComal80 {
0x020f…0219 ptr = 0x9807 // 0x20f @0x0
0x020f…0219 lno = 0x0118 // 0x211 @0x2
0x020f…0219 at0004 = ╱a8╱ CLOSE ╱ // 0x213 @0x4
0x020f…0219 at0005 = ╱46╱F╱ // 0x214 @0x5
0x020f…0219 at0006 = ╱49╱I╱ // 0x215 @0x6
0x020f…0219 at0007 = ╱4c╱L╱ // 0x216 @0x7
0x020f…0219 at0008 = ╱ef╱ $ ╱ // 0x217 @0x8
0x020f…0219 at0009 = EOL // 0x218 @0x9
0x020f…0219 }
0x0219…0230 981e 00290 LET FIL $ := "dde:hskvar"
0x0219…0230 LineComal80 {
0x0219…0230 ptr = 0x981e // 0x219 @0x0
0x0219…0230 lno = 0x0122 // 0x21b @0x2
0x0219…0230 at0004 = ╱86╱ LET ╱ // 0x21d @0x4
0x0219…0230 at0005 = ╱46╱F╱ // 0x21e @0x5
0x0219…0230 at0006 = ╱49╱I╱ // 0x21f @0x6
0x0219…0230 at0007 = ╱4c╱L╱ // 0x220 @0x7
0x0219…0230 at0008 = ╱ef╱ $ ╱ // 0x221 @0x8
0x0219…0230 at0009 = ╱f0╱ := ╱ // 0x222 @0x9
0x0219…0230 at000a = ╱22╱"╱ // 0x223 @0xa
0x0219…0230 at000b = ╱64╱d╱ // 0x224 @0xb
0x0219…0230 at000c = ╱64╱d╱ // 0x225 @0xc
0x0219…0230 at000d = ╱65╱e╱ // 0x226 @0xd
0x0219…0230 at000e = ╱3a╱:╱ // 0x227 @0xe
0x0219…0230 at000f = ╱68╱h╱ // 0x228 @0xf
0x0219…0230 at0010 = ╱73╱s╱ // 0x229 @0x10
0x0219…0230 at0011 = ╱6b╱k╱ // 0x22a @0x11
0x0219…0230 at0012 = ╱76╱v╱ // 0x22b @0x12
0x0219…0230 at0013 = ╱61╱a╱ // 0x22c @0x13
0x0219…0230 at0014 = ╱72╱r╱ // 0x22d @0x14
0x0219…0230 at0015 = ╱22╱"╱ // 0x22e @0x15
0x0219…0230 at0016 = EOL // 0x22f @0x16
0x0219…0230 }
0x0230…023c 982a 00300 OPEN FIL $ , R
0x0230…023c LineComal80 {
0x0230…023c ptr = 0x982a // 0x230 @0x0
0x0230…023c lno = 0x012c // 0x232 @0x2
0x0230…023c at0004 = ╱a7╱ OPEN ╱ // 0x234 @0x4
0x0230…023c at0005 = ╱46╱F╱ // 0x235 @0x5
0x0230…023c at0006 = ╱49╱I╱ // 0x236 @0x6
0x0230…023c at0007 = ╱4c╱L╱ // 0x237 @0x7
0x0230…023c at0008 = ╱ef╱ $ ╱ // 0x238 @0x8
0x0230…023c at0009 = ╱ec╱ , ╱ // 0x239 @0x9
0x0230…023c at000a = ╱52╱R╱ // 0x23a @0xa
0x0230…023c at000b = EOL // 0x23b @0xb
0x0230…023c }
0x023c…0250 983e 00310 FOR X := 1 TO 9 DO
0x023c…0250 LineComal80 {
0x023c…0250 ptr = 0x983e // 0x23c @0x0
0x023c…0250 lno = 0x0136 // 0x23e @0x2
0x023c…0250 at0004 = ╱8302╱ FOR ╱ // 0x240 @0x4
0x023c…0250 at0006 = ╱58╱X╱ // 0x242 @0x6
0x023c…0250 at0007 = ╱f0╱ := ╱ // 0x243 @0x7
0x023c…0250 at0008 = ╱31╱1╱ // 0x244 @0x8
0x023c…0250 at0009 = ╱f20100╱ // 0x245 @0x9
0x023c…0250 at000c = ╱b732╱ TO ╱ // 0x248 @0xc
0x023c…0250 at000e = ╱39╱9╱ // 0x24a @0xe
0x023c…0250 at000f = ╱f21d00╱ // 0x24b @0xf
0x023c…0250 at0012 = ╱bb╱ DO ╱ // 0x24e @0x12
0x023c…0250 at0013 = EOL // 0x24f @0x13
0x023c…0250 }
0x0250…025f 984d 00320 GET FIL $ : A ( X )
0x0250…025f LineComal80 {
0x0250…025f ptr = 0x984d // 0x250 @0x0
0x0250…025f lno = 0x0140 // 0x252 @0x2
0x0250…025f at0004 = ╱a9╱ GET ╱ // 0x254 @0x4
0x0250…025f at0005 = ╱46╱F╱ // 0x255 @0x5
0x0250…025f at0006 = ╱49╱I╱ // 0x256 @0x6
0x0250…025f at0007 = ╱4c╱L╱ // 0x257 @0x7
0x0250…025f at0008 = ╱ef╱ $ ╱ // 0x258 @0x8
0x0250…025f at0009 = ╱f1╱ : ╱ // 0x259 @0x9
0x0250…025f at000a = ╱41╱A╱ // 0x25a @0xa
0x0250…025f at000b = ╱ed╱ ( ╱ // 0x25b @0xb
0x0250…025f at000c = ╱58╱X╱ // 0x25c @0xc
0x0250…025f at000d = ╱ee╱ ) ╱ // 0x25d @0xd
0x0250…025f at000e = EOL // 0x25e @0xe
0x0250…025f }
0x025f…027d 986b 00330 IF X < 24 THEN GET FIL $ : H ( X ) , K ( X )
0x025f…027d LineComal80 {
0x025f…027d ptr = 0x986b // 0x25f @0x0
0x025f…027d lno = 0x014a // 0x261 @0x2
0x025f…027d at0004 = ╱8200╱ IF ╱ // 0x263 @0x4
0x025f…027d at0006 = ╱58╱X╱ // 0x265 @0x6
0x025f…027d at0007 = ╱e0╱ < ╱ // 0x266 @0x7
0x025f…027d at0008 = ╱32╱2╱ // 0x267 @0x8
0x025f…027d at0009 = ╱34╱4╱ // 0x268 @0x9
0x025f…027d at000a = ╱f21800╱ // 0x269 @0xa
0x025f…027d at000d = ╱b5╱ THEN ╱ // 0x26c @0xd
0x025f…027d at000e = ╱a9╱ GET ╱ // 0x26d @0xe
0x025f…027d at000f = ╱46╱F╱ // 0x26e @0xf
0x025f…027d at0010 = ╱49╱I╱ // 0x26f @0x10
0x025f…027d at0011 = ╱4c╱L╱ // 0x270 @0x11
0x025f…027d at0012 = ╱ef╱ $ ╱ // 0x271 @0x12
0x025f…027d at0013 = ╱f1╱ : ╱ // 0x272 @0x13
0x025f…027d at0014 = ╱48╱H╱ // 0x273 @0x14
0x025f…027d at0015 = ╱ed╱ ( ╱ // 0x274 @0x15
0x025f…027d at0016 = ╱58╱X╱ // 0x275 @0x16
0x025f…027d at0017 = ╱ee╱ ) ╱ // 0x276 @0x17
0x025f…027d at0018 = ╱ec╱ , ╱ // 0x277 @0x18
0x025f…027d at0019 = ╱4b╱K╱ // 0x278 @0x19
0x025f…027d at001a = ╱ed╱ ( ╱ // 0x279 @0x1a
0x025f…027d at001b = ╱58╱X╱ // 0x27a @0x1b
0x025f…027d at001c = ╱ee╱ ) ╱ // 0x27b @0x1c
0x025f…027d at001d = EOL // 0x27c @0x1d
0x025f…027d }
0x027d…0284 9872 00340 NEXT X
0x027d…0284 LineComal80 {
0x027d…0284 ptr = 0x9872 // 0x27d @0x0
0x027d…0284 lno = 0x0154 // 0x27f @0x2
0x027d…0284 at0004 = ╱84╱ NEXT ╱ // 0x281 @0x4
0x027d…0284 at0005 = ╱58╱X╱ // 0x282 @0x5
0x027d…0284 at0006 = EOL // 0x283 @0x6
0x027d…0284 }
0x0284…029a 9888 00350 GET FIL $ : F8 , T1 , T2 , T4
0x0284…029a LineComal80 {
0x0284…029a ptr = 0x9888 // 0x284 @0x0
0x0284…029a lno = 0x015e // 0x286 @0x2
0x0284…029a at0004 = ╱a9╱ GET ╱ // 0x288 @0x4
0x0284…029a at0005 = ╱46╱F╱ // 0x289 @0x5
0x0284…029a at0006 = ╱49╱I╱ // 0x28a @0x6
0x0284…029a at0007 = ╱4c╱L╱ // 0x28b @0x7
0x0284…029a at0008 = ╱ef╱ $ ╱ // 0x28c @0x8
0x0284…029a at0009 = ╱f1╱ : ╱ // 0x28d @0x9
0x0284…029a at000a = ╱46╱F╱ // 0x28e @0xa
0x0284…029a at000b = ╱38╱8╱ // 0x28f @0xb
0x0284…029a at000c = ╱ec╱ , ╱ // 0x290 @0xc
0x0284…029a at000d = ╱54╱T╱ // 0x291 @0xd
0x0284…029a at000e = ╱31╱1╱ // 0x292 @0xe
0x0284…029a at000f = ╱ec╱ , ╱ // 0x293 @0xf
0x0284…029a at0010 = ╱54╱T╱ // 0x294 @0x10
0x0284…029a at0011 = ╱32╱2╱ // 0x295 @0x11
0x0284…029a at0012 = ╱ec╱ , ╱ // 0x296 @0x12
0x0284…029a at0013 = ╱54╱T╱ // 0x297 @0x13
0x0284…029a at0014 = ╱34╱4╱ // 0x298 @0x14
0x0284…029a at0015 = EOL // 0x299 @0x15
0x0284…029a }
0x029a…02a4 9892 00360 CLOSE FIL $
0x029a…02a4 LineComal80 {
0x029a…02a4 ptr = 0x9892 // 0x29a @0x0
0x029a…02a4 lno = 0x0168 // 0x29c @0x2
0x029a…02a4 at0004 = ╱a8╱ CLOSE ╱ // 0x29e @0x4
0x029a…02a4 at0005 = ╱46╱F╱ // 0x29f @0x5
0x029a…02a4 at0006 = ╱49╱I╱ // 0x2a0 @0x6
0x029a…02a4 at0007 = ╱4c╱L╱ // 0x2a1 @0x7
0x029a…02a4 at0008 = ╱ef╱ $ ╱ // 0x2a2 @0x8
0x029a…02a4 at0009 = EOL // 0x2a3 @0x9
0x029a…02a4 }
0x02a4…02b9 98a7 00370 LET FIL $ := "dde:fvar"
0x02a4…02b9 LineComal80 {
0x02a4…02b9 ptr = 0x98a7 // 0x2a4 @0x0
0x02a4…02b9 lno = 0x0172 // 0x2a6 @0x2
0x02a4…02b9 at0004 = ╱86╱ LET ╱ // 0x2a8 @0x4
0x02a4…02b9 at0005 = ╱46╱F╱ // 0x2a9 @0x5
0x02a4…02b9 at0006 = ╱49╱I╱ // 0x2aa @0x6
0x02a4…02b9 at0007 = ╱4c╱L╱ // 0x2ab @0x7
0x02a4…02b9 at0008 = ╱ef╱ $ ╱ // 0x2ac @0x8
0x02a4…02b9 at0009 = ╱f0╱ := ╱ // 0x2ad @0x9
0x02a4…02b9 at000a = ╱22╱"╱ // 0x2ae @0xa
0x02a4…02b9 at000b = ╱64╱d╱ // 0x2af @0xb
0x02a4…02b9 at000c = ╱64╱d╱ // 0x2b0 @0xc
0x02a4…02b9 at000d = ╱65╱e╱ // 0x2b1 @0xd
0x02a4…02b9 at000e = ╱3a╱:╱ // 0x2b2 @0xe
0x02a4…02b9 at000f = ╱66╱f╱ // 0x2b3 @0xf
0x02a4…02b9 at0010 = ╱76╱v╱ // 0x2b4 @0x10
0x02a4…02b9 at0011 = ╱61╱a╱ // 0x2b5 @0x11
0x02a4…02b9 at0012 = ╱72╱r╱ // 0x2b6 @0x12
0x02a4…02b9 at0013 = ╱22╱"╱ // 0x2b7 @0x13
0x02a4…02b9 at0014 = EOL // 0x2b8 @0x14
0x02a4…02b9 }
0x02b9…02c5 98b3 00380 OPEN FIL $ , R
0x02b9…02c5 LineComal80 {
0x02b9…02c5 ptr = 0x98b3 // 0x2b9 @0x0
0x02b9…02c5 lno = 0x017c // 0x2bb @0x2
0x02b9…02c5 at0004 = ╱a7╱ OPEN ╱ // 0x2bd @0x4
0x02b9…02c5 at0005 = ╱46╱F╱ // 0x2be @0x5
0x02b9…02c5 at0006 = ╱49╱I╱ // 0x2bf @0x6
0x02b9…02c5 at0007 = ╱4c╱L╱ // 0x2c0 @0x7
0x02b9…02c5 at0008 = ╱ef╱ $ ╱ // 0x2c1 @0x8
0x02b9…02c5 at0009 = ╱ec╱ , ╱ // 0x2c2 @0x9
0x02b9…02c5 at000a = ╱52╱R╱ // 0x2c3 @0xa
0x02b9…02c5 at000b = EOL // 0x2c4 @0xb
0x02b9…02c5 }
0x02c5…02ec 98da 00390 GET FIL $ : PR , C4 , HD6 , C9 , B0 , T1 , TKH , F6 , F1
0x02c5…02ec LineComal80 {
0x02c5…02ec ptr = 0x98da // 0x2c5 @0x0
0x02c5…02ec lno = 0x0186 // 0x2c7 @0x2
0x02c5…02ec at0004 = ╱a9╱ GET ╱ // 0x2c9 @0x4
0x02c5…02ec at0005 = ╱46╱F╱ // 0x2ca @0x5
0x02c5…02ec at0006 = ╱49╱I╱ // 0x2cb @0x6
0x02c5…02ec at0007 = ╱4c╱L╱ // 0x2cc @0x7
0x02c5…02ec at0008 = ╱ef╱ $ ╱ // 0x2cd @0x8
0x02c5…02ec at0009 = ╱f1╱ : ╱ // 0x2ce @0x9
0x02c5…02ec at000a = ╱50╱P╱ // 0x2cf @0xa
0x02c5…02ec at000b = ╱52╱R╱ // 0x2d0 @0xb
0x02c5…02ec at000c = ╱ec╱ , ╱ // 0x2d1 @0xc
0x02c5…02ec at000d = ╱43╱C╱ // 0x2d2 @0xd
0x02c5…02ec at000e = ╱34╱4╱ // 0x2d3 @0xe
0x02c5…02ec at000f = ╱ec╱ , ╱ // 0x2d4 @0xf
0x02c5…02ec at0010 = ╱48╱H╱ // 0x2d5 @0x10
0x02c5…02ec at0011 = ╱44╱D╱ // 0x2d6 @0x11
0x02c5…02ec at0012 = ╱36╱6╱ // 0x2d7 @0x12
0x02c5…02ec at0013 = ╱ec╱ , ╱ // 0x2d8 @0x13
0x02c5…02ec at0014 = ╱43╱C╱ // 0x2d9 @0x14
0x02c5…02ec at0015 = ╱39╱9╱ // 0x2da @0x15
0x02c5…02ec at0016 = ╱ec╱ , ╱ // 0x2db @0x16
0x02c5…02ec at0017 = ╱42╱B╱ // 0x2dc @0x17
0x02c5…02ec at0018 = ╱30╱0╱ // 0x2dd @0x18
0x02c5…02ec at0019 = ╱ec╱ , ╱ // 0x2de @0x19
0x02c5…02ec at001a = ╱54╱T╱ // 0x2df @0x1a
0x02c5…02ec at001b = ╱31╱1╱ // 0x2e0 @0x1b
0x02c5…02ec at001c = ╱ec╱ , ╱ // 0x2e1 @0x1c
0x02c5…02ec at001d = ╱54╱T╱ // 0x2e2 @0x1d
0x02c5…02ec at001e = ╱4b╱K╱ // 0x2e3 @0x1e
0x02c5…02ec at001f = ╱48╱H╱ // 0x2e4 @0x1f
0x02c5…02ec at0020 = ╱ec╱ , ╱ // 0x2e5 @0x20
0x02c5…02ec at0021 = ╱46╱F╱ // 0x2e6 @0x21
0x02c5…02ec at0022 = ╱36╱6╱ // 0x2e7 @0x22
0x02c5…02ec at0023 = ╱ec╱ , ╱ // 0x2e8 @0x23
0x02c5…02ec at0024 = ╱46╱F╱ // 0x2e9 @0x24
0x02c5…02ec at0025 = ╱31╱1╱ // 0x2ea @0x25
0x02c5…02ec at0026 = EOL // 0x2eb @0x26
0x02c5…02ec }
0x02ec…0311 98ff 00400 GET FIL $ : F9 , P1 , P7 , P8 , P9 , T0 , B2 , B1 , B9
0x02ec…0311 LineComal80 {
0x02ec…0311 ptr = 0x98ff // 0x2ec @0x0
0x02ec…0311 lno = 0x0190 // 0x2ee @0x2
0x02ec…0311 at0004 = ╱a9╱ GET ╱ // 0x2f0 @0x4
0x02ec…0311 at0005 = ╱46╱F╱ // 0x2f1 @0x5
0x02ec…0311 at0006 = ╱49╱I╱ // 0x2f2 @0x6
0x02ec…0311 at0007 = ╱4c╱L╱ // 0x2f3 @0x7
0x02ec…0311 at0008 = ╱ef╱ $ ╱ // 0x2f4 @0x8
0x02ec…0311 at0009 = ╱f1╱ : ╱ // 0x2f5 @0x9
0x02ec…0311 at000a = ╱46╱F╱ // 0x2f6 @0xa
0x02ec…0311 at000b = ╱39╱9╱ // 0x2f7 @0xb
0x02ec…0311 at000c = ╱ec╱ , ╱ // 0x2f8 @0xc
0x02ec…0311 at000d = ╱50╱P╱ // 0x2f9 @0xd
0x02ec…0311 at000e = ╱31╱1╱ // 0x2fa @0xe
0x02ec…0311 at000f = ╱ec╱ , ╱ // 0x2fb @0xf
0x02ec…0311 at0010 = ╱50╱P╱ // 0x2fc @0x10
0x02ec…0311 at0011 = ╱37╱7╱ // 0x2fd @0x11
0x02ec…0311 at0012 = ╱ec╱ , ╱ // 0x2fe @0x12
0x02ec…0311 at0013 = ╱50╱P╱ // 0x2ff @0x13
0x02ec…0311 at0014 = ╱38╱8╱ // 0x300 @0x14
0x02ec…0311 at0015 = ╱ec╱ , ╱ // 0x301 @0x15
0x02ec…0311 at0016 = ╱50╱P╱ // 0x302 @0x16
0x02ec…0311 at0017 = ╱39╱9╱ // 0x303 @0x17
0x02ec…0311 at0018 = ╱ec╱ , ╱ // 0x304 @0x18
0x02ec…0311 at0019 = ╱54╱T╱ // 0x305 @0x19
0x02ec…0311 at001a = ╱30╱0╱ // 0x306 @0x1a
0x02ec…0311 at001b = ╱ec╱ , ╱ // 0x307 @0x1b
0x02ec…0311 at001c = ╱42╱B╱ // 0x308 @0x1c
0x02ec…0311 at001d = ╱32╱2╱ // 0x309 @0x1d
0x02ec…0311 at001e = ╱ec╱ , ╱ // 0x30a @0x1e
0x02ec…0311 at001f = ╱42╱B╱ // 0x30b @0x1f
0x02ec…0311 at0020 = ╱31╱1╱ // 0x30c @0x20
0x02ec…0311 at0021 = ╱ec╱ , ╱ // 0x30d @0x21
0x02ec…0311 at0022 = ╱42╱B╱ // 0x30e @0x22
0x02ec…0311 at0023 = ╱39╱9╱ // 0x30f @0x23
0x02ec…0311 at0024 = EOL // 0x310 @0x24
0x02ec…0311 }
0x0311…0338 9926 00410 GET FIL $ : T2 , C6 , BD6 , C0 , B3 , E6 , F2 , T3 , TKB
0x0311…0338 LineComal80 {
0x0311…0338 ptr = 0x9926 // 0x311 @0x0
0x0311…0338 lno = 0x019a // 0x313 @0x2
0x0311…0338 at0004 = ╱a9╱ GET ╱ // 0x315 @0x4
0x0311…0338 at0005 = ╱46╱F╱ // 0x316 @0x5
0x0311…0338 at0006 = ╱49╱I╱ // 0x317 @0x6
0x0311…0338 at0007 = ╱4c╱L╱ // 0x318 @0x7
0x0311…0338 at0008 = ╱ef╱ $ ╱ // 0x319 @0x8
0x0311…0338 at0009 = ╱f1╱ : ╱ // 0x31a @0x9
0x0311…0338 at000a = ╱54╱T╱ // 0x31b @0xa
0x0311…0338 at000b = ╱32╱2╱ // 0x31c @0xb
0x0311…0338 at000c = ╱ec╱ , ╱ // 0x31d @0xc
0x0311…0338 at000d = ╱43╱C╱ // 0x31e @0xd
0x0311…0338 at000e = ╱36╱6╱ // 0x31f @0xe
0x0311…0338 at000f = ╱ec╱ , ╱ // 0x320 @0xf
0x0311…0338 at0010 = ╱42╱B╱ // 0x321 @0x10
0x0311…0338 at0011 = ╱44╱D╱ // 0x322 @0x11
0x0311…0338 at0012 = ╱36╱6╱ // 0x323 @0x12
0x0311…0338 at0013 = ╱ec╱ , ╱ // 0x324 @0x13
0x0311…0338 at0014 = ╱43╱C╱ // 0x325 @0x14
0x0311…0338 at0015 = ╱30╱0╱ // 0x326 @0x15
0x0311…0338 at0016 = ╱ec╱ , ╱ // 0x327 @0x16
0x0311…0338 at0017 = ╱42╱B╱ // 0x328 @0x17
0x0311…0338 at0018 = ╱33╱3╱ // 0x329 @0x18
0x0311…0338 at0019 = ╱ec╱ , ╱ // 0x32a @0x19
0x0311…0338 at001a = ╱45╱E╱ // 0x32b @0x1a
0x0311…0338 at001b = ╱36╱6╱ // 0x32c @0x1b
0x0311…0338 at001c = ╱ec╱ , ╱ // 0x32d @0x1c
0x0311…0338 at001d = ╱46╱F╱ // 0x32e @0x1d
0x0311…0338 at001e = ╱32╱2╱ // 0x32f @0x1e
0x0311…0338 at001f = ╱ec╱ , ╱ // 0x330 @0x1f
0x0311…0338 at0020 = ╱54╱T╱ // 0x331 @0x20
0x0311…0338 at0021 = ╱33╱3╱ // 0x332 @0x21
0x0311…0338 at0022 = ╱ec╱ , ╱ // 0x333 @0x22
0x0311…0338 at0023 = ╱54╱T╱ // 0x334 @0x23
0x0311…0338 at0024 = ╱4b╱K╱ // 0x335 @0x24
0x0311…0338 at0025 = ╱42╱B╱ // 0x336 @0x25
0x0311…0338 at0026 = EOL // 0x337 @0x26
0x0311…0338 }
0x0338…0359 9947 00420 GET FIL $ : F0 , F7 , SKG , AKT , D6 , GSLUT
0x0338…0359 LineComal80 {
0x0338…0359 ptr = 0x9947 // 0x338 @0x0
0x0338…0359 lno = 0x01a4 // 0x33a @0x2
0x0338…0359 at0004 = ╱a9╱ GET ╱ // 0x33c @0x4
0x0338…0359 at0005 = ╱46╱F╱ // 0x33d @0x5
0x0338…0359 at0006 = ╱49╱I╱ // 0x33e @0x6
0x0338…0359 at0007 = ╱4c╱L╱ // 0x33f @0x7
0x0338…0359 at0008 = ╱ef╱ $ ╱ // 0x340 @0x8
0x0338…0359 at0009 = ╱f1╱ : ╱ // 0x341 @0x9
0x0338…0359 at000a = ╱46╱F╱ // 0x342 @0xa
0x0338…0359 at000b = ╱30╱0╱ // 0x343 @0xb
0x0338…0359 at000c = ╱ec╱ , ╱ // 0x344 @0xc
0x0338…0359 at000d = ╱46╱F╱ // 0x345 @0xd
0x0338…0359 at000e = ╱37╱7╱ // 0x346 @0xe
0x0338…0359 at000f = ╱ec╱ , ╱ // 0x347 @0xf
0x0338…0359 at0010 = ╱53╱S╱ // 0x348 @0x10
0x0338…0359 at0011 = ╱4b╱K╱ // 0x349 @0x11
0x0338…0359 at0012 = ╱47╱G╱ // 0x34a @0x12
0x0338…0359 at0013 = ╱ec╱ , ╱ // 0x34b @0x13
0x0338…0359 at0014 = ╱41╱A╱ // 0x34c @0x14
0x0338…0359 at0015 = ╱4b╱K╱ // 0x34d @0x15
0x0338…0359 at0016 = ╱54╱T╱ // 0x34e @0x16
0x0338…0359 at0017 = ╱ec╱ , ╱ // 0x34f @0x17
0x0338…0359 at0018 = ╱44╱D╱ // 0x350 @0x18
0x0338…0359 at0019 = ╱36╱6╱ // 0x351 @0x19
0x0338…0359 at001a = ╱ec╱ , ╱ // 0x352 @0x1a
0x0338…0359 at001b = ╱47╱G╱ // 0x353 @0x1b
0x0338…0359 at001c = ╱53╱S╱ // 0x354 @0x1c
0x0338…0359 at001d = ╱4c╱L╱ // 0x355 @0x1d
0x0338…0359 at001e = ╱55╱U╱ // 0x356 @0x1e
0x0338…0359 at001f = ╱54╱T╱ // 0x357 @0x1f
0x0338…0359 at0020 = EOL // 0x358 @0x20
0x0338…0359 }
0x0359…0385 9973 00430 GET FIL $ : HFORMUE , BFORMUE , HATP , BATP , G , FSLUT
0x0359…0385 LineComal80 {
0x0359…0385 ptr = 0x9973 // 0x359 @0x0
0x0359…0385 lno = 0x01ae // 0x35b @0x2
0x0359…0385 at0004 = ╱a9╱ GET ╱ // 0x35d @0x4
0x0359…0385 at0005 = ╱46╱F╱ // 0x35e @0x5
0x0359…0385 at0006 = ╱49╱I╱ // 0x35f @0x6
0x0359…0385 at0007 = ╱4c╱L╱ // 0x360 @0x7
0x0359…0385 at0008 = ╱ef╱ $ ╱ // 0x361 @0x8
0x0359…0385 at0009 = ╱f1╱ : ╱ // 0x362 @0x9
0x0359…0385 at000a = ╱48╱H╱ // 0x363 @0xa
0x0359…0385 at000b = ╱46╱F╱ // 0x364 @0xb
0x0359…0385 at000c = ╱4f╱O╱ // 0x365 @0xc
0x0359…0385 at000d = ╱52╱R╱ // 0x366 @0xd
0x0359…0385 at000e = ╱4d╱M╱ // 0x367 @0xe
0x0359…0385 at000f = ╱55╱U╱ // 0x368 @0xf
0x0359…0385 at0010 = ╱45╱E╱ // 0x369 @0x10
0x0359…0385 at0011 = ╱ec╱ , ╱ // 0x36a @0x11
0x0359…0385 at0012 = ╱42╱B╱ // 0x36b @0x12
0x0359…0385 at0013 = ╱46╱F╱ // 0x36c @0x13
0x0359…0385 at0014 = ╱4f╱O╱ // 0x36d @0x14
0x0359…0385 at0015 = ╱52╱R╱ // 0x36e @0x15
0x0359…0385 at0016 = ╱4d╱M╱ // 0x36f @0x16
0x0359…0385 at0017 = ╱55╱U╱ // 0x370 @0x17
0x0359…0385 at0018 = ╱45╱E╱ // 0x371 @0x18
0x0359…0385 at0019 = ╱ec╱ , ╱ // 0x372 @0x19
0x0359…0385 at001a = ╱48╱H╱ // 0x373 @0x1a
0x0359…0385 at001b = ╱41╱A╱ // 0x374 @0x1b
0x0359…0385 at001c = ╱54╱T╱ // 0x375 @0x1c
0x0359…0385 at001d = ╱50╱P╱ // 0x376 @0x1d
0x0359…0385 at001e = ╱ec╱ , ╱ // 0x377 @0x1e
0x0359…0385 at001f = ╱42╱B╱ // 0x378 @0x1f
0x0359…0385 at0020 = ╱41╱A╱ // 0x379 @0x20
0x0359…0385 at0021 = ╱54╱T╱ // 0x37a @0x21
0x0359…0385 at0022 = ╱50╱P╱ // 0x37b @0x22
0x0359…0385 at0023 = ╱ec╱ , ╱ // 0x37c @0x23
0x0359…0385 at0024 = ╱47╱G╱ // 0x37d @0x24
0x0359…0385 at0025 = ╱ec╱ , ╱ // 0x37e @0x25
0x0359…0385 at0026 = ╱46╱F╱ // 0x37f @0x26
0x0359…0385 at0027 = ╱53╱S╱ // 0x380 @0x27
0x0359…0385 at0028 = ╱4c╱L╱ // 0x381 @0x28
0x0359…0385 at0029 = ╱55╱U╱ // 0x382 @0x29
0x0359…0385 at002a = ╱54╱T╱ // 0x383 @0x2a
0x0359…0385 at002b = EOL // 0x384 @0x2b
0x0359…0385 }
0x0385…0399 9987 00440 GET FIL $ : HKL $ , BKL $
0x0385…0399 LineComal80 {
0x0385…0399 ptr = 0x9987 // 0x385 @0x0
0x0385…0399 lno = 0x01b8 // 0x387 @0x2
0x0385…0399 at0004 = ╱a9╱ GET ╱ // 0x389 @0x4
0x0385…0399 at0005 = ╱46╱F╱ // 0x38a @0x5
0x0385…0399 at0006 = ╱49╱I╱ // 0x38b @0x6
0x0385…0399 at0007 = ╱4c╱L╱ // 0x38c @0x7
0x0385…0399 at0008 = ╱ef╱ $ ╱ // 0x38d @0x8
0x0385…0399 at0009 = ╱f1╱ : ╱ // 0x38e @0x9
0x0385…0399 at000a = ╱48╱H╱ // 0x38f @0xa
0x0385…0399 at000b = ╱4b╱K╱ // 0x390 @0xb
0x0385…0399 at000c = ╱4c╱L╱ // 0x391 @0xc
0x0385…0399 at000d = ╱ef╱ $ ╱ // 0x392 @0xd
0x0385…0399 at000e = ╱ec╱ , ╱ // 0x393 @0xe
0x0385…0399 at000f = ╱42╱B╱ // 0x394 @0xf
0x0385…0399 at0010 = ╱4b╱K╱ // 0x395 @0x10
0x0385…0399 at0011 = ╱4c╱L╱ // 0x396 @0x11
0x0385…0399 at0012 = ╱ef╱ $ ╱ // 0x397 @0x12
0x0385…0399 at0013 = EOL // 0x398 @0x13
0x0385…0399 }
0x0399…03a3 9991 00450 CLOSE FIL $
0x0399…03a3 LineComal80 {
0x0399…03a3 ptr = 0x9991 // 0x399 @0x0
0x0399…03a3 lno = 0x01c2 // 0x39b @0x2
0x0399…03a3 at0004 = ╱a8╱ CLOSE ╱ // 0x39d @0x4
0x0399…03a3 at0005 = ╱46╱F╱ // 0x39e @0x5
0x0399…03a3 at0006 = ╱49╱I╱ // 0x39f @0x6
0x0399…03a3 at0007 = ╱4c╱L╱ // 0x3a0 @0x7
0x0399…03a3 at0008 = ╱ef╱ $ ╱ // 0x3a1 @0x8
0x0399…03a3 at0009 = EOL // 0x3a2 @0x9
0x0399…03a3 }
0x03a3…03af 999d 00460 LET X := 0
0x03a3…03af LineComal80 {
0x03a3…03af ptr = 0x999d // 0x3a3 @0x0
0x03a3…03af lno = 0x01cc // 0x3a5 @0x2
0x03a3…03af at0004 = ╱86╱ LET ╱ // 0x3a7 @0x4
0x03a3…03af at0005 = ╱58╱X╱ // 0x3a8 @0x5
0x03a3…03af at0006 = ╱f0╱ := ╱ // 0x3a9 @0x6
0x03a3…03af at0007 = ╱30╱0╱ // 0x3aa @0x7
0x03a3…03af at0008 = ╱f20000╱ // 0x3ab @0x8
0x03a3…03af at000b = EOL // 0x3ae @0xb
0x03a3…03af }
0x03af…03c4 99b2 00470 OPEN "dde:skatart" , R
0x03af…03c4 LineComal80 {
0x03af…03c4 ptr = 0x99b2 // 0x3af @0x0
0x03af…03c4 lno = 0x01d6 // 0x3b1 @0x2
0x03af…03c4 at0004 = ╱a7╱ OPEN ╱ // 0x3b3 @0x4
0x03af…03c4 at0005 = ╱22╱"╱ // 0x3b4 @0x5
0x03af…03c4 at0006 = ╱64╱d╱ // 0x3b5 @0x6
0x03af…03c4 at0007 = ╱64╱d╱ // 0x3b6 @0x7
0x03af…03c4 at0008 = ╱65╱e╱ // 0x3b7 @0x8
0x03af…03c4 at0009 = ╱3a╱:╱ // 0x3b8 @0x9
0x03af…03c4 at000a = ╱73╱s╱ // 0x3b9 @0xa
0x03af…03c4 at000b = ╱6b╱k╱ // 0x3ba @0xb
0x03af…03c4 at000c = ╱61╱a╱ // 0x3bb @0xc
0x03af…03c4 at000d = ╱74╱t╱ // 0x3bc @0xd
0x03af…03c4 at000e = ╱61╱a╱ // 0x3bd @0xe
0x03af…03c4 at000f = ╱72╱r╱ // 0x3be @0xf
0x03af…03c4 at0010 = ╱74╱t╱ // 0x3bf @0x10
0x03af…03c4 at0011 = ╱22╱"╱ // 0x3c0 @0x11
0x03af…03c4 at0012 = ╱ec╱ , ╱ // 0x3c1 @0x12
0x03af…03c4 at0013 = ╱52╱R╱ // 0x3c2 @0x13
0x03af…03c4 at0014 = EOL // 0x3c3 @0x14
0x03af…03c4 }
0x03c4…03cb 99b9 00480 REPEAT
0x03c4…03cb LineComal80 {
0x03c4…03cb ptr = 0x99b9 // 0x3c4 @0x0
0x03c4…03cb lno = 0x01e0 // 0x3c6 @0x2
0x03c4…03cb at0004 = ╱9703╱ REPEAT ╱ // 0x3c8 @0x4
0x03c4…03cb at0006 = EOL // 0x3ca @0x6
0x03c4…03cb }
0x03cb…03d9 99c7 00490 LET X := X + 1
0x03cb…03d9 LineComal80 {
0x03cb…03d9 ptr = 0x99c7 // 0x3cb @0x0
0x03cb…03d9 lno = 0x01ea // 0x3cd @0x2
0x03cb…03d9 at0004 = ╱86╱ LET ╱ // 0x3cf @0x4
0x03cb…03d9 at0005 = ╱58╱X╱ // 0x3d0 @0x5
0x03cb…03d9 at0006 = ╱f0╱ := ╱ // 0x3d1 @0x6
0x03cb…03d9 at0007 = ╱58╱X╱ // 0x3d2 @0x7
0x03cb…03d9 at0008 = ╱e5╱ + ╱ // 0x3d3 @0x8
0x03cb…03d9 at0009 = ╱31╱1╱ // 0x3d4 @0x9
0x03cb…03d9 at000a = ╱f20100╱ // 0x3d5 @0xa
0x03cb…03d9 at000d = EOL // 0x3d8 @0xd
0x03cb…03d9 }
0x03d9…03f3 99e1 00500 GET "dde:skatart" : A1 $ ( X )
0x03d9…03f3 LineComal80 {
0x03d9…03f3 ptr = 0x99e1 // 0x3d9 @0x0
0x03d9…03f3 lno = 0x01f4 // 0x3db @0x2
0x03d9…03f3 at0004 = ╱a9╱ GET ╱ // 0x3dd @0x4
0x03d9…03f3 at0005 = ╱22╱"╱ // 0x3de @0x5
0x03d9…03f3 at0006 = ╱64╱d╱ // 0x3df @0x6
0x03d9…03f3 at0007 = ╱64╱d╱ // 0x3e0 @0x7
0x03d9…03f3 at0008 = ╱65╱e╱ // 0x3e1 @0x8
0x03d9…03f3 at0009 = ╱3a╱:╱ // 0x3e2 @0x9
0x03d9…03f3 at000a = ╱73╱s╱ // 0x3e3 @0xa
0x03d9…03f3 at000b = ╱6b╱k╱ // 0x3e4 @0xb
0x03d9…03f3 at000c = ╱61╱a╱ // 0x3e5 @0xc
0x03d9…03f3 at000d = ╱74╱t╱ // 0x3e6 @0xd
0x03d9…03f3 at000e = ╱61╱a╱ // 0x3e7 @0xe
0x03d9…03f3 at000f = ╱72╱r╱ // 0x3e8 @0xf
0x03d9…03f3 at0010 = ╱74╱t╱ // 0x3e9 @0x10
0x03d9…03f3 at0011 = ╱22╱"╱ // 0x3ea @0x11
0x03d9…03f3 at0012 = ╱f1╱ : ╱ // 0x3eb @0x12
0x03d9…03f3 at0013 = ╱41╱A╱ // 0x3ec @0x13
0x03d9…03f3 at0014 = ╱31╱1╱ // 0x3ed @0x14
0x03d9…03f3 at0015 = ╱ef╱ $ ╱ // 0x3ee @0x15
0x03d9…03f3 at0016 = ╱ed╱ ( ╱ // 0x3ef @0x16
0x03d9…03f3 at0017 = ╱58╱X╱ // 0x3f0 @0x17
0x03d9…03f3 at0018 = ╱ee╱ ) ╱ // 0x3f1 @0x18
0x03d9…03f3 at0019 = EOL // 0x3f2 @0x19
0x03d9…03f3 }
0x03f3…042d 9a1b 00510 UNTIL ╱cd╱ ( "dde:skatart" ) = 19 OR ╱cd╱ ( "dde:skatart" ) > 0 OR X = 29
0x03f3…042d LineComal80 {
0x03f3…042d ptr = 0x9a1b // 0x3f3 @0x0
0x03f3…042d lno = 0x01fe // 0x3f5 @0x2
0x03f3…042d at0004 = ╱98╱ UNTIL ╱ // 0x3f7 @0x4
0x03f3…042d at0005 = ╱cd╱ // 0x3f8 @0x5
0x03f3…042d at0006 = ╱ed╱ ( ╱ // 0x3f9 @0x6
0x03f3…042d at0007 = ╱22╱"╱ // 0x3fa @0x7
0x03f3…042d at0008 = ╱64╱d╱ // 0x3fb @0x8
0x03f3…042d at0009 = ╱64╱d╱ // 0x3fc @0x9
0x03f3…042d at000a = ╱65╱e╱ // 0x3fd @0xa
0x03f3…042d at000b = ╱3a╱:╱ // 0x3fe @0xb
0x03f3…042d at000c = ╱73╱s╱ // 0x3ff @0xc
0x03f3…042d at000d = ╱6b╱k╱ // 0x400 @0xd
0x03f3…042d at000e = ╱61╱a╱ // 0x401 @0xe
0x03f3…042d at000f = ╱74╱t╱ // 0x402 @0xf
0x03f3…042d at0010 = ╱61╱a╱ // 0x403 @0x10
0x03f3…042d at0011 = ╱72╱r╱ // 0x404 @0x11
0x03f3…042d at0012 = ╱74╱t╱ // 0x405 @0x12
0x03f3…042d at0013 = ╱22╱"╱ // 0x406 @0x13
0x03f3…042d at0014 = ╱ee╱ ) ╱ // 0x407 @0x14
0x03f3…042d at0015 = ╱df╱ = ╱ // 0x408 @0x15
0x03f3…042d at0016 = ╱31╱1╱ // 0x409 @0x16
0x03f3…042d at0017 = ╱39╱9╱ // 0x40a @0x17
0x03f3…042d at0018 = ╱f21300╱ // 0x40b @0x18
0x03f3…042d at001b = ╱d8╱ OR ╱ // 0x40e @0x1b
0x03f3…042d at001c = ╱cd╱ // 0x40f @0x1c
0x03f3…042d at001d = ╱ed╱ ( ╱ // 0x410 @0x1d
0x03f3…042d at001e = ╱22╱"╱ // 0x411 @0x1e
0x03f3…042d at001f = ╱64╱d╱ // 0x412 @0x1f
0x03f3…042d at0020 = ╱64╱d╱ // 0x413 @0x20
0x03f3…042d at0021 = ╱65╱e╱ // 0x414 @0x21
0x03f3…042d at0022 = ╱3a╱:╱ // 0x415 @0x22
0x03f3…042d at0023 = ╱73╱s╱ // 0x416 @0x23
0x03f3…042d at0024 = ╱6b╱k╱ // 0x417 @0x24
0x03f3…042d at0025 = ╱61╱a╱ // 0x418 @0x25
0x03f3…042d at0026 = ╱74╱t╱ // 0x419 @0x26
0x03f3…042d at0027 = ╱61╱a╱ // 0x41a @0x27
0x03f3…042d at0028 = ╱72╱r╱ // 0x41b @0x28
0x03f3…042d at0029 = ╱74╱t╱ // 0x41c @0x29
0x03f3…042d at002a = ╱22╱"╱ // 0x41d @0x2a
0x03f3…042d at002b = ╱ee╱ ) ╱ // 0x41e @0x2b
0x03f3…042d at002c = ╱e1╱ > ╱ // 0x41f @0x2c
0x03f3…042d at002d = ╱30╱0╱ // 0x420 @0x2d
0x03f3…042d at002e = ╱f20000╱ // 0x421 @0x2e
0x03f3…042d at0031 = ╱d8╱ OR ╱ // 0x424 @0x31
0x03f3…042d at0032 = ╱58╱X╱ // 0x425 @0x32
0x03f3…042d at0033 = ╱df╱ = ╱ // 0x426 @0x33
0x03f3…042d at0034 = ╱32╱2╱ // 0x427 @0x34
0x03f3…042d at0035 = ╱39╱9╱ // 0x428 @0x35
0x03f3…042d at0036 = ╱f21d00╱ // 0x429 @0x36
0x03f3…042d at0039 = EOL // 0x42c @0x39
0x03f3…042d }
0x042d…0433 9a21 00520 CLOSE
0x042d…0433 LineComal80 {
0x042d…0433 ptr = 0x9a21 // 0x42d @0x0
0x042d…0433 lno = 0x0208 // 0x42f @0x2
0x042d…0433 at0004 = ╱a8╱ CLOSE ╱ // 0x431 @0x4
0x042d…0433 at0005 = EOL // 0x432 @0x5
0x042d…0433 }
0x0433…0496 9a84 00530 LET E1 := 28 ; F3 := 64000 ; F4 := 70999 ; F5 := 1985 ; P1 := 111300 ; P2 := 182600
0x0433…0496 LineComal80 {
0x0433…0496 ptr = 0x9a84 // 0x433 @0x0
0x0433…0496 lno = 0x0212 // 0x435 @0x2
0x0433…0496 at0004 = ╱86╱ LET ╱ // 0x437 @0x4
0x0433…0496 at0005 = ╱45╱E╱ // 0x438 @0x5
0x0433…0496 at0006 = ╱31╱1╱ // 0x439 @0x6
0x0433…0496 at0007 = ╱f0╱ := ╱ // 0x43a @0x7
0x0433…0496 at0008 = ╱32╱2╱ // 0x43b @0x8
0x0433…0496 at0009 = ╱38╱8╱ // 0x43c @0x9
0x0433…0496 at000a = ╱f21c00╱ // 0x43d @0xa
0x0433…0496 at000d = ╱ea╱ ; ╱ // 0x440 @0xd
0x0433…0496 at000e = ╱46╱F╱ // 0x441 @0xe
0x0433…0496 at000f = ╱33╱3╱ // 0x442 @0xf
0x0433…0496 at0010 = ╱f0╱ := ╱ // 0x443 @0x10
0x0433…0496 at0011 = ╱36╱6╱ // 0x444 @0x11
0x0433…0496 at0012 = ╱34╱4╱ // 0x445 @0x12
0x0433…0496 at0013 = ╱30╱0╱ // 0x446 @0x13
0x0433…0496 at0014 = ╱30╱0╱ // 0x447 @0x14
0x0433…0496 at0015 = ╱30╱0╱ // 0x448 @0x15
0x0433…0496 at0016 = ╱f88500000000004006╱ // 0x449 @0x16
0x0433…0496 at001f = ╱ea╱ ; ╱ // 0x452 @0x1f
0x0433…0496 at0020 = ╱46╱F╱ // 0x453 @0x20
0x0433…0496 at0021 = ╱34╱4╱ // 0x454 @0x21
0x0433…0496 at0022 = ╱f0╱ := ╱ // 0x455 @0x22
0x0433…0496 at0023 = ╱37╱7╱ // 0x456 @0x23
0x0433…0496 at0024 = ╱30╱0╱ // 0x457 @0x24
0x0433…0496 at0025 = ╱39╱9╱ // 0x458 @0x25
0x0433…0496 at0026 = ╱39╱9╱ // 0x459 @0x26
0x0433…0496 at0027 = ╱39╱9╱ // 0x45a @0x27
0x0433…0496 at0028 = ╱f88500000000990907╱ // 0x45b @0x28
0x0433…0496 at0031 = ╱ea╱ ; ╱ // 0x464 @0x31
0x0433…0496 at0032 = ╱46╱F╱ // 0x465 @0x32
0x0433…0496 at0033 = ╱35╱5╱ // 0x466 @0x33
0x0433…0496 at0034 = ╱f0╱ := ╱ // 0x467 @0x34
0x0433…0496 at0035 = ╱31╱1╱ // 0x468 @0x35
0x0433…0496 at0036 = ╱39╱9╱ // 0x469 @0x36
0x0433…0496 at0037 = ╱38╱8╱ // 0x46a @0x37
0x0433…0496 at0038 = ╱35╱5╱ // 0x46b @0x38
0x0433…0496 at0039 = ╱f2c107╱ // 0x46c @0x39
0x0433…0496 at003c = ╱ea╱ ; ╱ // 0x46f @0x3c
0x0433…0496 at003d = ╱50╱P╱ // 0x470 @0x3d
0x0433…0496 at003e = ╱31╱1╱ // 0x471 @0x3e
0x0433…0496 at003f = ╱f0╱ := ╱ // 0x472 @0x3f
0x0433…0496 at0040 = ╱31╱1╱ // 0x473 @0x40
0x0433…0496 at0041 = ╱31╱1╱ // 0x474 @0x41
0x0433…0496 at0042 = ╱31╱1╱ // 0x475 @0x42
0x0433…0496 at0043 = ╱33╱3╱ // 0x476 @0x43
0x0433…0496 at0044 = ╱30╱0╱ // 0x477 @0x44
0x0433…0496 at0045 = ╱30╱0╱ // 0x478 @0x45
0x0433…0496 at0046 = ╱f88600000000301101╱ // 0x479 @0x46
0x0433…0496 at004f = ╱ea╱ ; ╱ // 0x482 @0x4f
0x0433…0496 at0050 = ╱50╱P╱ // 0x483 @0x50
0x0433…0496 at0051 = ╱32╱2╱ // 0x484 @0x51
0x0433…0496 at0052 = ╱f0╱ := ╱ // 0x485 @0x52
0x0433…0496 at0053 = ╱31╱1╱ // 0x486 @0x53
0x0433…0496 at0054 = ╱38╱8╱ // 0x487 @0x54
0x0433…0496 at0055 = ╱32╱2╱ // 0x488 @0x55
0x0433…0496 at0056 = ╱36╱6╱ // 0x489 @0x56
0x0433…0496 at0057 = ╱30╱0╱ // 0x48a @0x57
0x0433…0496 at0058 = ╱30╱0╱ // 0x48b @0x58
0x0433…0496 at0059 = ╱f88600000000608201╱ // 0x48c @0x59
0x0433…0496 at0062 = EOL // 0x495 @0x62
0x0433…0496 }
0x0496…04ea 9ad8 00540 LET P3 := 22700 ; P4 := 20300 ; P5 := 43900 ; P6 := 24000 ; P0 := 3.5 ; PA0 := 2
0x0496…04ea LineComal80 {
0x0496…04ea ptr = 0x9ad8 // 0x496 @0x0
0x0496…04ea lno = 0x021c // 0x498 @0x2
0x0496…04ea at0004 = ╱86╱ LET ╱ // 0x49a @0x4
0x0496…04ea at0005 = ╱50╱P╱ // 0x49b @0x5
0x0496…04ea at0006 = ╱33╱3╱ // 0x49c @0x6
0x0496…04ea at0007 = ╱f0╱ := ╱ // 0x49d @0x7
0x0496…04ea at0008 = ╱32╱2╱ // 0x49e @0x8
0x0496…04ea at0009 = ╱32╱2╱ // 0x49f @0x9
0x0496…04ea at000a = ╱37╱7╱ // 0x4a0 @0xa
0x0496…04ea at000b = ╱30╱0╱ // 0x4a1 @0xb
0x0496…04ea at000c = ╱30╱0╱ // 0x4a2 @0xc
0x0496…04ea at000d = ╱f2ac58╱ // 0x4a3 @0xd
0x0496…04ea at0010 = ╱ea╱ ; ╱ // 0x4a6 @0x10
0x0496…04ea at0011 = ╱50╱P╱ // 0x4a7 @0x11
0x0496…04ea at0012 = ╱34╱4╱ // 0x4a8 @0x12
0x0496…04ea at0013 = ╱f0╱ := ╱ // 0x4a9 @0x13
0x0496…04ea at0014 = ╱32╱2╱ // 0x4aa @0x14
0x0496…04ea at0015 = ╱30╱0╱ // 0x4ab @0x15
0x0496…04ea at0016 = ╱33╱3╱ // 0x4ac @0x16
0x0496…04ea at0017 = ╱30╱0╱ // 0x4ad @0x17
0x0496…04ea at0018 = ╱30╱0╱ // 0x4ae @0x18
0x0496…04ea at0019 = ╱f24c4f╱ // 0x4af @0x19
0x0496…04ea at001c = ╱ea╱ ; ╱ // 0x4b2 @0x1c
0x0496…04ea at001d = ╱50╱P╱ // 0x4b3 @0x1d
0x0496…04ea at001e = ╱35╱5╱ // 0x4b4 @0x1e
0x0496…04ea at001f = ╱f0╱ := ╱ // 0x4b5 @0x1f
0x0496…04ea at0020 = ╱34╱4╱ // 0x4b6 @0x20
0x0496…04ea at0021 = ╱33╱3╱ // 0x4b7 @0x21
0x0496…04ea at0022 = ╱39╱9╱ // 0x4b8 @0x22
0x0496…04ea at0023 = ╱30╱0╱ // 0x4b9 @0x23
0x0496…04ea at0024 = ╱30╱0╱ // 0x4ba @0x24
0x0496…04ea at0025 = ╱f88500000000003904╱ // 0x4bb @0x25
0x0496…04ea at002e = ╱ea╱ ; ╱ // 0x4c4 @0x2e
0x0496…04ea at002f = ╱50╱P╱ // 0x4c5 @0x2f
0x0496…04ea at0030 = ╱36╱6╱ // 0x4c6 @0x30
0x0496…04ea at0031 = ╱f0╱ := ╱ // 0x4c7 @0x31
0x0496…04ea at0032 = ╱32╱2╱ // 0x4c8 @0x32
0x0496…04ea at0033 = ╱34╱4╱ // 0x4c9 @0x33
0x0496…04ea at0034 = ╱30╱0╱ // 0x4ca @0x34
0x0496…04ea at0035 = ╱30╱0╱ // 0x4cb @0x35
0x0496…04ea at0036 = ╱30╱0╱ // 0x4cc @0x36
0x0496…04ea at0037 = ╱f2c05d╱ // 0x4cd @0x37
0x0496…04ea at003a = ╱ea╱ ; ╱ // 0x4d0 @0x3a
0x0496…04ea at003b = ╱50╱P╱ // 0x4d1 @0x3b
0x0496…04ea at003c = ╱30╱0╱ // 0x4d2 @0x3c
0x0496…04ea at003d = ╱f0╱ := ╱ // 0x4d3 @0x3d
0x0496…04ea at003e = ╱33╱3╱ // 0x4d4 @0x3e
0x0496…04ea at003f = ╱2e╱.╱ // 0x4d5 @0x3f
0x0496…04ea at0040 = ╱35╱5╱ // 0x4d6 @0x40
0x0496…04ea at0041 = ╱f88100000000005003╱ // 0x4d7 @0x41
0x0496…04ea at004a = ╱ea╱ ; ╱ // 0x4e0 @0x4a
0x0496…04ea at004b = ╱50╱P╱ // 0x4e1 @0x4b
0x0496…04ea at004c = ╱41╱A╱ // 0x4e2 @0x4c
0x0496…04ea at004d = ╱30╱0╱ // 0x4e3 @0x4d
0x0496…04ea at004e = ╱f0╱ := ╱ // 0x4e4 @0x4e
0x0496…04ea at004f = ╱32╱2╱ // 0x4e5 @0x4f
0x0496…04ea at0050 = ╱f20200╱ // 0x4e6 @0x50
0x0496…04ea at0053 = EOL // 0x4e9 @0x53
0x0496…04ea }
0x04ea…0525 a701 00550 LET U1 := .9 ; U2 := 1229200 ; M1 := 112700
0x04ea…0525 LineComal80 {
0x04ea…0525 ptr = 0xa701 // 0x4ea @0x0
0x04ea…0525 lno = 0x0226 // 0x4ec @0x2
0x04ea…0525 at0004 = ╱86╱ LET ╱ // 0x4ee @0x4
0x04ea…0525 at0005 = ╱55╱U╱ // 0x4ef @0x5
0x04ea…0525 at0006 = ╱31╱1╱ // 0x4f0 @0x6
0x04ea…0525 at0007 = ╱f0╱ := ╱ // 0x4f1 @0x7
0x04ea…0525 at0008 = ╱2e╱.╱ // 0x4f2 @0x8
0x04ea…0525 at0009 = ╱39╱9╱ // 0x4f3 @0x9
0x04ea…0525 at000a = ╱f88000000000000009╱ // 0x4f4 @0xa
0x04ea…0525 at0013 = ╱ea╱ ; ╱ // 0x4fd @0x13
0x04ea…0525 at0014 = ╱55╱U╱ // 0x4fe @0x14
0x04ea…0525 at0015 = ╱32╱2╱ // 0x4ff @0x15
0x04ea…0525 at0016 = ╱f0╱ := ╱ // 0x500 @0x16
0x04ea…0525 at0017 = ╱31╱1╱ // 0x501 @0x17
0x04ea…0525 at0018 = ╱32╱2╱ // 0x502 @0x18
0x04ea…0525 at0019 = ╱32╱2╱ // 0x503 @0x19
0x04ea…0525 at001a = ╱39╱9╱ // 0x504 @0x1a
0x04ea…0525 at001b = ╱32╱2╱ // 0x505 @0x1b
0x04ea…0525 at001c = ╱30╱0╱ // 0x506 @0x1c
0x04ea…0525 at001d = ╱30╱0╱ // 0x507 @0x1d
0x04ea…0525 at001e = ╱f88700000000922201╱ // 0x508 @0x1e
0x04ea…0525 at0027 = ╱ea╱ ; ╱ // 0x511 @0x27
0x04ea…0525 at0028 = ╱4d╱M╱ // 0x512 @0x28
0x04ea…0525 at0029 = ╱31╱1╱ // 0x513 @0x29
0x04ea…0525 at002a = ╱f0╱ := ╱ // 0x514 @0x2a
0x04ea…0525 at002b = ╱31╱1╱ // 0x515 @0x2b
0x04ea…0525 at002c = ╱31╱1╱ // 0x516 @0x2c
0x04ea…0525 at002d = ╱32╱2╱ // 0x517 @0x2d
0x04ea…0525 at002e = ╱37╱7╱ // 0x518 @0x2e
0x04ea…0525 at002f = ╱30╱0╱ // 0x519 @0x2f
0x04ea…0525 at0030 = ╱30╱0╱ // 0x51a @0x30
0x04ea…0525 at0031 = ╱f88600000000701201╱ // 0x51b @0x31
0x04ea…0525 at003a = EOL // 0x524 @0x3a
0x04ea…0525 }
0x0525…053f 9b2d 00560 LET D6 := HD6 ; SKG := F6 ; AKT := F9
0x0525…053f LineComal80 {
0x0525…053f ptr = 0x9b2d // 0x525 @0x0
0x0525…053f lno = 0x0230 // 0x527 @0x2
0x0525…053f at0004 = ╱86╱ LET ╱ // 0x529 @0x4
0x0525…053f at0005 = ╱44╱D╱ // 0x52a @0x5
0x0525…053f at0006 = ╱36╱6╱ // 0x52b @0x6
0x0525…053f at0007 = ╱f0╱ := ╱ // 0x52c @0x7
0x0525…053f at0008 = ╱48╱H╱ // 0x52d @0x8
0x0525…053f at0009 = ╱44╱D╱ // 0x52e @0x9
0x0525…053f at000a = ╱36╱6╱ // 0x52f @0xa
0x0525…053f at000b = ╱ea╱ ; ╱ // 0x530 @0xb
0x0525…053f at000c = ╱53╱S╱ // 0x531 @0xc
0x0525…053f at000d = ╱4b╱K╱ // 0x532 @0xd
0x0525…053f at000e = ╱47╱G╱ // 0x533 @0xe
0x0525…053f at000f = ╱f0╱ := ╱ // 0x534 @0xf
0x0525…053f at0010 = ╱46╱F╱ // 0x535 @0x10
0x0525…053f at0011 = ╱36╱6╱ // 0x536 @0x11
0x0525…053f at0012 = ╱ea╱ ; ╱ // 0x537 @0x12
0x0525…053f at0013 = ╱41╱A╱ // 0x538 @0x13
0x0525…053f at0014 = ╱4b╱K╱ // 0x539 @0x14
0x0525…053f at0015 = ╱54╱T╱ // 0x53a @0x15
0x0525…053f at0016 = ╱f0╱ := ╱ // 0x53b @0x16
0x0525…053f at0017 = ╱46╱F╱ // 0x53c @0x17
0x0525…053f at0018 = ╱39╱9╱ // 0x53d @0x18
0x0525…053f at0019 = EOL // 0x53e @0x19
0x0525…053f }
0x053f…0554 9b42 00570 FOR X := 24 TO 9 DO
0x053f…0554 LineComal80 {
0x053f…0554 ptr = 0x9b42 // 0x53f @0x0
0x053f…0554 lno = 0x023a // 0x541 @0x2
0x053f…0554 at0004 = ╱8304╱ FOR ╱ // 0x543 @0x4
0x053f…0554 at0006 = ╱58╱X╱ // 0x545 @0x6
0x053f…0554 at0007 = ╱f0╱ := ╱ // 0x546 @0x7
0x053f…0554 at0008 = ╱32╱2╱ // 0x547 @0x8
0x053f…0554 at0009 = ╱34╱4╱ // 0x548 @0x9
0x053f…0554 at000a = ╱f21800╱ // 0x549 @0xa
0x053f…0554 at000d = ╱b732╱ TO ╱ // 0x54c @0xd
0x053f…0554 at000f = ╱39╱9╱ // 0x54e @0xf
0x053f…0554 at0010 = ╱f21d00╱ // 0x54f @0x10
0x053f…0554 at0013 = ╱bb╱ DO ╱ // 0x552 @0x13
0x053f…0554 at0014 = EOL // 0x553 @0x14
0x053f…0554 }
0x0554…0563 9b51 00580 LET A ( X ) := 0
0x0554…0563 LineComal80 {
0x0554…0563 ptr = 0x9b51 // 0x554 @0x0
0x0554…0563 lno = 0x0244 // 0x556 @0x2
0x0554…0563 at0004 = ╱86╱ LET ╱ // 0x558 @0x4
0x0554…0563 at0005 = ╱41╱A╱ // 0x559 @0x5
0x0554…0563 at0006 = ╱ed╱ ( ╱ // 0x55a @0x6
0x0554…0563 at0007 = ╱58╱X╱ // 0x55b @0x7
0x0554…0563 at0008 = ╱ee╱ ) ╱ // 0x55c @0x8
0x0554…0563 at0009 = ╱f0╱ := ╱ // 0x55d @0x9
0x0554…0563 at000a = ╱30╱0╱ // 0x55e @0xa
0x0554…0563 at000b = ╱f20000╱ // 0x55f @0xb
0x0554…0563 at000e = EOL // 0x562 @0xe
0x0554…0563 }
0x0563…056a 9b58 00590 NEXT X
0x0563…056a LineComal80 {
0x0563…056a ptr = 0x9b58 // 0x563 @0x0
0x0563…056a lno = 0x024e // 0x565 @0x2
0x0563…056a at0004 = ╱84╱ NEXT ╱ // 0x567 @0x4
0x0563…056a at0005 = ╱58╱X╱ // 0x568 @0x5
0x0563…056a at0006 = EOL // 0x569 @0x6
0x0563…056a }
0x056a…0583 (18,) 9b71 00600 IF >< 1 AND GSLUT >< 1 THEN
0x056a…0583 LineComal80 {
0x056a…0583 ptr = 0x9b71 // 0x56a @0x0
0x056a…0583 lno = 0x0258 // 0x56c @0x2
0x056a…0583 at0004 = ╱9b0547╱ IF ╱ // 0x56e @0x4
0x056a…0583 at0007 = ╱e4╱ >< ╱ // 0x571 @0x7
0x056a…0583 at0008 = ╱31╱1╱ // 0x572 @0x8
0x056a…0583 at0009 = ╱f20100╱ // 0x573 @0x9
0x056a…0583 at000c = ╱d9╱ AND ╱ // 0x576 @0xc
0x056a…0583 at000d = ╱47╱G╱ // 0x577 @0xd
0x056a…0583 at000e = ╱53╱S╱ // 0x578 @0xe
0x056a…0583 at000f = ╱4c╱L╱ // 0x579 @0xf
0x056a…0583 at0010 = ╱55╱U╱ // 0x57a @0x10
0x056a…0583 at0011 = ╱54╱T╱ // 0x57b @0x11
0x056a…0583 at0012 = ╱e4╱ >< ╱ // 0x57c @0x12
0x056a…0583 at0013 = ╱31╱1╱ // 0x57d @0x13
0x056a…0583 at0014 = ╱f20100╱ // 0x57e @0x14
0x056a…0583 at0017 = ╱b5╱ THEN ╱ // 0x581 @0x17
0x056a…0583 at0018 = EOL // 0x582 @0x18
0x056a…0583 }
0x0583…059c 9b8a 00610 LET FIL $ := "dde:skatsluh"
0x0583…059c LineComal80 {
0x0583…059c ptr = 0x9b8a // 0x583 @0x0
0x0583…059c lno = 0x0262 // 0x585 @0x2
0x0583…059c at0004 = ╱86╱ LET ╱ // 0x587 @0x4
0x0583…059c at0005 = ╱46╱F╱ // 0x588 @0x5
0x0583…059c at0006 = ╱49╱I╱ // 0x589 @0x6
0x0583…059c at0007 = ╱4c╱L╱ // 0x58a @0x7
0x0583…059c at0008 = ╱ef╱ $ ╱ // 0x58b @0x8
0x0583…059c at0009 = ╱f0╱ := ╱ // 0x58c @0x9
0x0583…059c at000a = ╱22╱"╱ // 0x58d @0xa
0x0583…059c at000b = ╱64╱d╱ // 0x58e @0xb
0x0583…059c at000c = ╱64╱d╱ // 0x58f @0xc
0x0583…059c at000d = ╱65╱e╱ // 0x590 @0xd
0x0583…059c at000e = ╱3a╱:╱ // 0x591 @0xe
0x0583…059c at000f = ╱73╱s╱ // 0x592 @0xf
0x0583…059c at0010 = ╱6b╱k╱ // 0x593 @0x10
0x0583…059c at0011 = ╱61╱a╱ // 0x594 @0x11
0x0583…059c at0012 = ╱74╱t╱ // 0x595 @0x12
0x0583…059c at0013 = ╱73╱s╱ // 0x596 @0x13
0x0583…059c at0014 = ╱6c╱l╱ // 0x597 @0x14
0x0583…059c at0015 = ╱75╱u╱ // 0x598 @0x15
0x0583…059c at0016 = ╱68╱h╱ // 0x599 @0x16
0x0583…059c at0017 = ╱22╱"╱ // 0x59a @0x17
0x0583…059c at0018 = EOL // 0x59b @0x18
0x0583…059c }
0x059c…05a8 9b96 00620 OPEN FIL $ , R
0x059c…05a8 LineComal80 {
0x059c…05a8 ptr = 0x9b96 // 0x59c @0x0
0x059c…05a8 lno = 0x026c // 0x59e @0x2
0x059c…05a8 at0004 = ╱a7╱ OPEN ╱ // 0x5a0 @0x4
0x059c…05a8 at0005 = ╱46╱F╱ // 0x5a1 @0x5
0x059c…05a8 at0006 = ╱49╱I╱ // 0x5a2 @0x6
0x059c…05a8 at0007 = ╱4c╱L╱ // 0x5a3 @0x7
0x059c…05a8 at0008 = ╱ef╱ $ ╱ // 0x5a4 @0x8
0x059c…05a8 at0009 = ╱ec╱ , ╱ // 0x5a5 @0x9
0x059c…05a8 at000a = ╱52╱R╱ // 0x5a6 @0xa
0x059c…05a8 at000b = EOL // 0x5a7 @0xb
0x059c…05a8 }
0x05a8…05b2 9ba0 00630 EXEC L[SF
0x05a8…05b2 LineComal80 {
0x05a8…05b2 ptr = 0x9ba0 // 0x5a8 @0x0
0x05a8…05b2 lno = 0x0276 // 0x5aa @0x2
0x05a8…05b2 at0004 = ╱9d╱ EXEC ╱ // 0x5ac @0x4
0x05a8…05b2 at0005 = ╱4c╱L╱ // 0x5ad @0x5
0x05a8…05b2 at0006 = ╱5b╱[╱ // 0x5ae @0x6
0x05a8…05b2 at0007 = ╱53╱S╱ // 0x5af @0x7
0x05a8…05b2 at0008 = ╱46╱F╱ // 0x5b0 @0x8
0x05a8…05b2 at0009 = EOL // 0x5b1 @0x9
0x05a8…05b2 }
0x05b2…05be 9bac 00640 EXEC GEMHOP
0x05b2…05be LineComal80 {
0x05b2…05be ptr = 0x9bac // 0x5b2 @0x0
0x05b2…05be lno = 0x0280 // 0x5b4 @0x2
0x05b2…05be at0004 = ╱9d╱ EXEC ╱ // 0x5b6 @0x4
0x05b2…05be at0005 = ╱47╱G╱ // 0x5b7 @0x5
0x05b2…05be at0006 = ╱45╱E╱ // 0x5b8 @0x6
0x05b2…05be at0007 = ╱4d╱M╱ // 0x5b9 @0x7
0x05b2…05be at0008 = ╱48╱H╱ // 0x5ba @0x8
0x05b2…05be at0009 = ╱4f╱O╱ // 0x5bb @0x9
0x05b2…05be at000a = ╱50╱P╱ // 0x5bc @0xa
0x05b2…05be at000b = EOL // 0x5bd @0xb
0x05b2…05be }
0x05be…05c5 9bb3 00650 ELSE
0x05be…05c5 LineComal80 {
0x05be…05c5 ptr = 0x9bb3 // 0x5be @0x0
0x05be…05c5 lno = 0x028a // 0x5c0 @0x2
0x05be…05c5 at0004 = ╱9a06╱ ELSE ╱ // 0x5c2 @0x4
0x05be…05c5 at0006 = EOL // 0x5c4 @0x6
0x05be…05c5 }
0x05c5…05d2 9bc0 00660 EXEC HENTHOP
0x05c5…05d2 LineComal80 {
0x05c5…05d2 ptr = 0x9bc0 // 0x5c5 @0x0
0x05c5…05d2 lno = 0x0294 // 0x5c7 @0x2
0x05c5…05d2 at0004 = ╱9d╱ EXEC ╱ // 0x5c9 @0x4
0x05c5…05d2 at0005 = ╱48╱H╱ // 0x5ca @0x5
0x05c5…05d2 at0006 = ╱45╱E╱ // 0x5cb @0x6
0x05c5…05d2 at0007 = ╱4e╱N╱ // 0x5cc @0x7
0x05c5…05d2 at0008 = ╱54╱T╱ // 0x5cd @0x8
0x05c5…05d2 at0009 = ╱48╱H╱ // 0x5ce @0x9
0x05c5…05d2 at000a = ╱4f╱O╱ // 0x5cf @0xa
0x05c5…05d2 at000b = ╱50╱P╱ // 0x5d0 @0xb
0x05c5…05d2 at000c = EOL // 0x5d1 @0xc
0x05c5…05d2 }
0x05d2…05d8 9bc6 00670 ENDIF
0x05d2…05d8 LineComal80 {
0x05d2…05d8 ptr = 0x9bc6 // 0x5d2 @0x0
0x05d2…05d8 lno = 0x029e // 0x5d4 @0x2
0x05d2…05d8 at0004 = ╱9c╱ ENDIF ╱ // 0x5d6 @0x4
0x05d2…05d8 at0005 = EOL // 0x5d7 @0x5
0x05d2…05d8 }
0x05d8…05ee 9bdc 00680 FOR Y := 1 TO R + 1 DO
0x05d8…05ee LineComal80 {
0x05d8…05ee ptr = 0x9bdc // 0x5d8 @0x0
0x05d8…05ee lno = 0x02a8 // 0x5da @0x2
0x05d8…05ee at0004 = ╱8307╱ FOR ╱ // 0x5dc @0x4
0x05d8…05ee at0006 = ╱59╱Y╱ // 0x5de @0x6
0x05d8…05ee at0007 = ╱f0╱ := ╱ // 0x5df @0x7
0x05d8…05ee at0008 = ╱31╱1╱ // 0x5e0 @0x8
0x05d8…05ee at0009 = ╱f20100╱ // 0x5e1 @0x9
0x05d8…05ee at000c = ╱b750╱ TO ╱ // 0x5e4 @0xc
0x05d8…05ee at000e = ╱52╱R╱ // 0x5e6 @0xe
0x05d8…05ee at000f = ╱e5╱ + ╱ // 0x5e7 @0xf
0x05d8…05ee at0010 = ╱31╱1╱ // 0x5e8 @0x10
0x05d8…05ee at0011 = ╱f20100╱ // 0x5e9 @0x11
0x05d8…05ee at0014 = ╱bb╱ DO ╱ // 0x5ec @0x14
0x05d8…05ee at0015 = EOL // 0x5ed @0x15
0x05d8…05ee }
0x05ee…0600 9bee 00690 IF Y = 2 THEN OUTPUT "p"
0x05ee…0600 LineComal80 {
0x05ee…0600 ptr = 0x9bee // 0x5ee @0x0
0x05ee…0600 lno = 0x02b2 // 0x5f0 @0x2
0x05ee…0600 at0004 = ╱8200╱ IF ╱ // 0x5f2 @0x4
0x05ee…0600 at0006 = ╱59╱Y╱ // 0x5f4 @0x6
0x05ee…0600 at0007 = ╱df╱ = ╱ // 0x5f5 @0x7
0x05ee…0600 at0008 = ╱32╱2╱ // 0x5f6 @0x8
0x05ee…0600 at0009 = ╱f20200╱ // 0x5f7 @0x9
0x05ee…0600 at000c = ╱b5╱ THEN ╱ // 0x5fa @0xc
0x05ee…0600 at000d = ╱a5╱ OUTPUT ╱ // 0x5fb @0xd
0x05ee…0600 at000e = ╱22╱"╱ // 0x5fc @0xe
0x05ee…0600 at000f = ╱70╱p╱ // 0x5fd @0xf
0x05ee…0600 at0010 = ╱22╱"╱ // 0x5fe @0x10
0x05ee…0600 at0011 = EOL // 0x5ff @0x11
0x05ee…0600 }
0x0600…060e 9bfc 00700 IF = 2 THEN
0x0600…060e LineComal80 {
0x0600…060e ptr = 0x9bfc // 0x600 @0x0
0x0600…060e lno = 0x02bc // 0x602 @0x2
0x0600…060e at0004 = ╱9b0859╱ IF ╱ // 0x604 @0x4
0x0600…060e at0007 = ╱df╱ = ╱ // 0x607 @0x7
0x0600…060e at0008 = ╱32╱2╱ // 0x608 @0x8
0x0600…060e at0009 = ╱f20200╱ // 0x609 @0x9
0x0600…060e at000c = ╱b5╱ THEN ╱ // 0x60c @0xc
0x0600…060e at000d = EOL // 0x60d @0xd
0x0600…060e }
0x060e…0617 9c05 00710 EXEC TLI
0x060e…0617 LineComal80 {
0x060e…0617 ptr = 0x9c05 // 0x60e @0x0
0x060e…0617 lno = 0x02c6 // 0x610 @0x2
0x060e…0617 at0004 = ╱9d╱ EXEC ╱ // 0x612 @0x4
0x060e…0617 at0005 = ╱54╱T╱ // 0x613 @0x5
0x060e…0617 at0006 = ╱4c╱L╱ // 0x614 @0x6
0x060e…0617 at0007 = ╱49╱I╱ // 0x615 @0x7
0x060e…0617 at0008 = EOL // 0x616 @0x8
0x060e…0617 }
0x0617…061e 9c0c 00720 ELSE
0x0617…061e LineComal80 {
0x0617…061e ptr = 0x9c0c // 0x617 @0x0
0x0617…061e lno = 0x02d0 // 0x619 @0x2
0x0617…061e at0004 = ╱9a09╱ ELSE ╱ // 0x61b @0x4
0x0617…061e at0006 = EOL // 0x61d @0x6
0x0617…061e }
0x061e…0624 9c12 00730 CLEAR
0x061e…0624 LineComal80 {
0x061e…0624 ptr = 0x9c12 // 0x61e @0x0
0x061e…0624 lno = 0x02da // 0x620 @0x2
0x061e…0624 at0004 = ╱a0╱ CLEAR ╱ // 0x622 @0x4
0x061e…0624 at0005 = EOL // 0x623 @0x5
0x061e…0624 }
0x0624…062a 9c18 00740 ENDIF
0x0624…062a LineComal80 {
0x0624…062a ptr = 0x9c18 // 0x624 @0x0
0x0624…062a lno = 0x02e4 // 0x626 @0x2
0x0624…062a at0004 = ╱9c╱ ENDIF ╱ // 0x628 @0x4
0x0624…062a at0005 = EOL // 0x629 @0x5
0x0624…062a }
0x062a…0650 9c3e 00750 LET QT $ := "]RSOPG\RELSE…FOR…" + HKL $ + ":"
0x062a…0650 LineComal80 {
0x062a…0650 ptr = 0x9c3e // 0x62a @0x0
0x062a…0650 lno = 0x02ee // 0x62c @0x2
0x062a…0650 at0004 = ╱86╱ LET ╱ // 0x62e @0x4
0x062a…0650 at0005 = ╱51╱Q╱ // 0x62f @0x5
0x062a…0650 at0006 = ╱54╱T╱ // 0x630 @0x6
0x062a…0650 at0007 = ╱ef╱ $ ╱ // 0x631 @0x7
0x062a…0650 at0008 = ╱f0╱ := ╱ // 0x632 @0x8
0x062a…0650 at0009 = ╱22╱"╱ // 0x633 @0x9
0x062a…0650 at000a = ╱5d╱]╱ // 0x634 @0xa
0x062a…0650 at000b = ╱52╱R╱ // 0x635 @0xb
0x062a…0650 at000c = ╱53╱S╱ // 0x636 @0xc
0x062a…0650 at000d = ╱4f╱O╱ // 0x637 @0xd
0x062a…0650 at000e = ╱50╱P╱ // 0x638 @0xe
0x062a…0650 at000f = ╱47╱G╱ // 0x639 @0xf
0x062a…0650 at0010 = ╱5c╱\╱ // 0x63a @0x10
0x062a…0650 at0011 = ╱52╱R╱ // 0x63b @0x11
0x062a…0650 at0012 = ╱45╱E╱ // 0x63c @0x12
0x062a…0650 at0013 = ╱4c╱L╱ // 0x63d @0x13
0x062a…0650 at0014 = ╱53╱S╱ // 0x63e @0x14
0x062a…0650 at0015 = ╱45╱E╱ // 0x63f @0x15
0x062a…0650 at0016 = ╱20╱…╱ // 0x640 @0x16
0x062a…0650 at0017 = ╱46╱F╱ // 0x641 @0x17
0x062a…0650 at0018 = ╱4f╱O╱ // 0x642 @0x18
0x062a…0650 at0019 = ╱52╱R╱ // 0x643 @0x19
0x062a…0650 at001a = ╱20╱…╱ // 0x644 @0x1a
0x062a…0650 at001b = ╱22╱"╱ // 0x645 @0x1b
0x062a…0650 at001c = ╱eb╱ + ╱ // 0x646 @0x1c
0x062a…0650 at001d = ╱48╱H╱ // 0x647 @0x1d
0x062a…0650 at001e = ╱4b╱K╱ // 0x648 @0x1e
0x062a…0650 at001f = ╱4c╱L╱ // 0x649 @0x1f
0x062a…0650 at0020 = ╱ef╱ $ ╱ // 0x64a @0x20
0x062a…0650 at0021 = ╱eb╱ + ╱ // 0x64b @0x21
0x062a…0650 at0022 = ╱22╱"╱ // 0x64c @0x22
0x062a…0650 at0023 = ╱3a╱:╱ // 0x64d @0x23
0x062a…0650 at0024 = ╱22╱"╱ // 0x64e @0x24
0x062a…0650 at0025 = EOL // 0x64f @0x25
0x062a…0650 }
0x0650…065d 9c4b 00760 EXEC LSKRIV3
0x0650…065d LineComal80 {
0x0650…065d ptr = 0x9c4b // 0x650 @0x0
0x0650…065d lno = 0x02f8 // 0x652 @0x2
0x0650…065d at0004 = ╱9d╱ EXEC ╱ // 0x654 @0x4
0x0650…065d at0005 = ╱4c╱L╱ // 0x655 @0x5
0x0650…065d at0006 = ╱53╱S╱ // 0x656 @0x6
0x0650…065d at0007 = ╱4b╱K╱ // 0x657 @0x7
0x0650…065d at0008 = ╱52╱R╱ // 0x658 @0x8
0x0650…065d at0009 = ╱49╱I╱ // 0x659 @0x9
0x0650…065d at000a = ╱56╱V╱ // 0x65a @0xa
0x0650…065d at000b = ╱33╱3╱ // 0x65b @0xb
0x0650…065d at000c = EOL // 0x65c @0xc
0x0650…065d }
0x065d…0669 9c57 00770 EXEC ]RSOPG
0x065d…0669 LineComal80 {
0x065d…0669 ptr = 0x9c57 // 0x65d @0x0
0x065d…0669 lno = 0x0302 // 0x65f @0x2
0x065d…0669 at0004 = ╱9d╱ EXEC ╱ // 0x661 @0x4
0x065d…0669 at0005 = ╱5d╱]╱ // 0x662 @0x5
0x065d…0669 at0006 = ╱52╱R╱ // 0x663 @0x6
0x065d…0669 at0007 = ╱53╱S╱ // 0x664 @0x7
0x065d…0669 at0008 = ╱4f╱O╱ // 0x665 @0x8
0x065d…0669 at0009 = ╱50╱P╱ // 0x666 @0x9
0x065d…0669 at000a = ╱47╱G╱ // 0x667 @0xa
0x065d…0669 at000b = EOL // 0x668 @0xb
0x065d…0669 }
0x0669…067e 9c6c 00780 IF Y = 1 THEN EXEC RETURN
0x0669…067e LineComal80 {
0x0669…067e ptr = 0x9c6c // 0x669 @0x0
0x0669…067e lno = 0x030c // 0x66b @0x2
0x0669…067e at0004 = ╱8200╱ IF ╱ // 0x66d @0x4
0x0669…067e at0006 = ╱59╱Y╱ // 0x66f @0x6
0x0669…067e at0007 = ╱df╱ = ╱ // 0x670 @0x7
0x0669…067e at0008 = ╱31╱1╱ // 0x671 @0x8
0x0669…067e at0009 = ╱f20100╱ // 0x672 @0x9
0x0669…067e at000c = ╱b5╱ THEN ╱ // 0x675 @0xc
0x0669…067e at000d = ╱9d╱ EXEC ╱ // 0x676 @0xd
0x0669…067e at000e = ╱52╱R╱ // 0x677 @0xe
0x0669…067e at000f = ╱45╱E╱ // 0x678 @0xf
0x0669…067e at0010 = ╱54╱T╱ // 0x679 @0x10
0x0669…067e at0011 = ╱55╱U╱ // 0x67a @0x11
0x0669…067e at0012 = ╱52╱R╱ // 0x67b @0x12
0x0669…067e at0013 = ╱4e╱N╱ // 0x67c @0x13
0x0669…067e at0014 = EOL // 0x67d @0x14
0x0669…067e }
0x067e…0690 9c7e 00790 IF Y = 2 THEN OUTPUT "t"
0x067e…0690 LineComal80 {
0x067e…0690 ptr = 0x9c7e // 0x67e @0x0
0x067e…0690 lno = 0x0316 // 0x680 @0x2
0x067e…0690 at0004 = ╱8200╱ IF ╱ // 0x682 @0x4
0x067e…0690 at0006 = ╱59╱Y╱ // 0x684 @0x6
0x067e…0690 at0007 = ╱df╱ = ╱ // 0x685 @0x7
0x067e…0690 at0008 = ╱32╱2╱ // 0x686 @0x8
0x067e…0690 at0009 = ╱f20200╱ // 0x687 @0x9
0x067e…0690 at000c = ╱b5╱ THEN ╱ // 0x68a @0xc
0x067e…0690 at000d = ╱a5╱ OUTPUT ╱ // 0x68b @0xd
0x067e…0690 at000e = ╱22╱"╱ // 0x68c @0xe
0x067e…0690 at000f = ╱74╱t╱ // 0x68d @0xf
0x067e…0690 at0010 = ╱22╱"╱ // 0x68e @0x10
0x067e…0690 at0011 = EOL // 0x68f @0x11
0x067e…0690 }
0x0690…0697 9c85 00800 NEXT Y
0x0690…0697 LineComal80 {
0x0690…0697 ptr = 0x9c85 // 0x690 @0x0
0x0690…0697 lno = 0x0320 // 0x692 @0x2
0x0690…0697 at0004 = ╱84╱ NEXT ╱ // 0x694 @0x4
0x0690…0697 at0005 = ╱59╱Y╱ // 0x695 @0x5
0x0690…0697 at0006 = EOL // 0x696 @0x6
0x0690…0697 }
0x0697…06a6 a71e 00810 IF 2 >< 0 THEN
0x0697…06a6 LineComal80 {
0x0697…06a6 ptr = 0xa71e // 0x697 @0x0
0x0697…06a6 lno = 0x032a // 0x699 @0x2
0x0697…06a6 at0004 = ╱9b0a54╱ IF ╱ // 0x69b @0x4
0x0697…06a6 at0007 = ╱32╱2╱ // 0x69e @0x7
0x0697…06a6 at0008 = ╱e4╱ >< ╱ // 0x69f @0x8
0x0697…06a6 at0009 = ╱30╱0╱ // 0x6a0 @0x9
0x0697…06a6 at000a = ╱f20000╱ // 0x6a1 @0xa
0x0697…06a6 at000d = ╱b5╱ THEN ╱ // 0x6a4 @0xd
0x0697…06a6 at000e = EOL // 0x6a5 @0xe
0x0697…06a6 }
0x06a6…06c0 9cae 00820 LET D6 := BD6 ; SKG := F7 ; AKT := F0
0x06a6…06c0 LineComal80 {
0x06a6…06c0 ptr = 0x9cae // 0x6a6 @0x0
0x06a6…06c0 lno = 0x0334 // 0x6a8 @0x2
0x06a6…06c0 at0004 = ╱86╱ LET ╱ // 0x6aa @0x4
0x06a6…06c0 at0005 = ╱44╱D╱ // 0x6ab @0x5
0x06a6…06c0 at0006 = ╱36╱6╱ // 0x6ac @0x6
0x06a6…06c0 at0007 = ╱f0╱ := ╱ // 0x6ad @0x7
0x06a6…06c0 at0008 = ╱42╱B╱ // 0x6ae @0x8
0x06a6…06c0 at0009 = ╱44╱D╱ // 0x6af @0x9
0x06a6…06c0 at000a = ╱36╱6╱ // 0x6b0 @0xa
0x06a6…06c0 at000b = ╱ea╱ ; ╱ // 0x6b1 @0xb
0x06a6…06c0 at000c = ╱53╱S╱ // 0x6b2 @0xc
0x06a6…06c0 at000d = ╱4b╱K╱ // 0x6b3 @0xd
0x06a6…06c0 at000e = ╱47╱G╱ // 0x6b4 @0xe
0x06a6…06c0 at000f = ╱f0╱ := ╱ // 0x6b5 @0xf
0x06a6…06c0 at0010 = ╱46╱F╱ // 0x6b6 @0x10
0x06a6…06c0 at0011 = ╱37╱7╱ // 0x6b7 @0x11
0x06a6…06c0 at0012 = ╱ea╱ ; ╱ // 0x6b8 @0x12
0x06a6…06c0 at0013 = ╱41╱A╱ // 0x6b9 @0x13
0x06a6…06c0 at0014 = ╱4b╱K╱ // 0x6ba @0x14
0x06a6…06c0 at0015 = ╱54╱T╱ // 0x6bb @0x15
0x06a6…06c0 at0016 = ╱f0╱ := ╱ // 0x6bc @0x16
0x06a6…06c0 at0017 = ╱46╱F╱ // 0x6bd @0x17
0x06a6…06c0 at0018 = ╱30╱0╱ // 0x6be @0x18
0x06a6…06c0 at0019 = EOL // 0x6bf @0x19
0x06a6…06c0 }
0x06c0…06d5 9cc3 00830 FOR X := 24 TO 9 DO
0x06c0…06d5 LineComal80 {
0x06c0…06d5 ptr = 0x9cc3 // 0x6c0 @0x0
0x06c0…06d5 lno = 0x033e // 0x6c2 @0x2
0x06c0…06d5 at0004 = ╱830b╱ FOR ╱ // 0x6c4 @0x4
0x06c0…06d5 at0006 = ╱58╱X╱ // 0x6c6 @0x6
0x06c0…06d5 at0007 = ╱f0╱ := ╱ // 0x6c7 @0x7
0x06c0…06d5 at0008 = ╱32╱2╱ // 0x6c8 @0x8
0x06c0…06d5 at0009 = ╱34╱4╱ // 0x6c9 @0x9
0x06c0…06d5 at000a = ╱f21800╱ // 0x6ca @0xa
0x06c0…06d5 at000d = ╱b732╱ TO ╱ // 0x6cd @0xd
0x06c0…06d5 at000f = ╱39╱9╱ // 0x6cf @0xf
0x06c0…06d5 at0010 = ╱f21d00╱ // 0x6d0 @0x10
0x06c0…06d5 at0013 = ╱bb╱ DO ╱ // 0x6d3 @0x13
0x06c0…06d5 at0014 = EOL // 0x6d4 @0x14
0x06c0…06d5 }
0x06d5…06e4 9cd2 00840 LET A ( X ) := 0
0x06d5…06e4 LineComal80 {
0x06d5…06e4 ptr = 0x9cd2 // 0x6d5 @0x0
0x06d5…06e4 lno = 0x0348 // 0x6d7 @0x2
0x06d5…06e4 at0004 = ╱86╱ LET ╱ // 0x6d9 @0x4
0x06d5…06e4 at0005 = ╱41╱A╱ // 0x6da @0x5
0x06d5…06e4 at0006 = ╱ed╱ ( ╱ // 0x6db @0x6
0x06d5…06e4 at0007 = ╱58╱X╱ // 0x6dc @0x7
0x06d5…06e4 at0008 = ╱ee╱ ) ╱ // 0x6dd @0x8
0x06d5…06e4 at0009 = ╱f0╱ := ╱ // 0x6de @0x9
0x06d5…06e4 at000a = ╱30╱0╱ // 0x6df @0xa
0x06d5…06e4 at000b = ╱f20000╱ // 0x6e0 @0xb
0x06d5…06e4 at000e = EOL // 0x6e3 @0xe
0x06d5…06e4 }
0x06e4…06eb 9cd9 00850 NEXT X
0x06e4…06eb LineComal80 {
0x06e4…06eb ptr = 0x9cd9 // 0x6e4 @0x0
0x06e4…06eb lno = 0x0352 // 0x6e6 @0x2
0x06e4…06eb at0004 = ╱84╱ NEXT ╱ // 0x6e8 @0x4
0x06e4…06eb at0005 = ╱58╱X╱ // 0x6e9 @0x5
0x06e4…06eb at0006 = EOL // 0x6ea @0x6
0x06e4…06eb }
0x06eb…06f1 (23,) 9cdf 00860 CLEAR
0x06eb…06f1 LineComal80 {
0x06eb…06f1 ptr = 0x9cdf // 0x6eb @0x0
0x06eb…06f1 lno = 0x035c // 0x6ed @0x2
0x06eb…06f1 at0004 = ╱a0╱ CLEAR ╱ // 0x6ef @0x4
0x06eb…06f1 at0005 = EOL // 0x6f0 @0x5
0x06eb…06f1 }
0x06f1…070a 9cf8 00870 IF >< 1 AND GSLUT >< 1 THEN
0x06f1…070a LineComal80 {
0x06f1…070a ptr = 0x9cf8 // 0x6f1 @0x0
0x06f1…070a lno = 0x0366 // 0x6f3 @0x2
0x06f1…070a at0004 = ╱9b0c47╱ IF ╱ // 0x6f5 @0x4
0x06f1…070a at0007 = ╱e4╱ >< ╱ // 0x6f8 @0x7
0x06f1…070a at0008 = ╱31╱1╱ // 0x6f9 @0x8
0x06f1…070a at0009 = ╱f20100╱ // 0x6fa @0x9
0x06f1…070a at000c = ╱d9╱ AND ╱ // 0x6fd @0xc
0x06f1…070a at000d = ╱47╱G╱ // 0x6fe @0xd
0x06f1…070a at000e = ╱53╱S╱ // 0x6ff @0xe
0x06f1…070a at000f = ╱4c╱L╱ // 0x700 @0xf
0x06f1…070a at0010 = ╱55╱U╱ // 0x701 @0x10
0x06f1…070a at0011 = ╱54╱T╱ // 0x702 @0x11
0x06f1…070a at0012 = ╱e4╱ >< ╱ // 0x703 @0x12
0x06f1…070a at0013 = ╱31╱1╱ // 0x704 @0x13
0x06f1…070a at0014 = ╱f20100╱ // 0x705 @0x14
0x06f1…070a at0017 = ╱b5╱ THEN ╱ // 0x708 @0x17
0x06f1…070a at0018 = EOL // 0x709 @0x18
0x06f1…070a }
0x070a…0723 9d11 00880 LET FIL $ := "dde:skatslub"
0x070a…0723 LineComal80 {
0x070a…0723 ptr = 0x9d11 // 0x70a @0x0
0x070a…0723 lno = 0x0370 // 0x70c @0x2
0x070a…0723 at0004 = ╱86╱ LET ╱ // 0x70e @0x4
0x070a…0723 at0005 = ╱46╱F╱ // 0x70f @0x5
0x070a…0723 at0006 = ╱49╱I╱ // 0x710 @0x6
0x070a…0723 at0007 = ╱4c╱L╱ // 0x711 @0x7
0x070a…0723 at0008 = ╱ef╱ $ ╱ // 0x712 @0x8
0x070a…0723 at0009 = ╱f0╱ := ╱ // 0x713 @0x9
0x070a…0723 at000a = ╱22╱"╱ // 0x714 @0xa
0x070a…0723 at000b = ╱64╱d╱ // 0x715 @0xb
0x070a…0723 at000c = ╱64╱d╱ // 0x716 @0xc
0x070a…0723 at000d = ╱65╱e╱ // 0x717 @0xd
0x070a…0723 at000e = ╱3a╱:╱ // 0x718 @0xe
0x070a…0723 at000f = ╱73╱s╱ // 0x719 @0xf
0x070a…0723 at0010 = ╱6b╱k╱ // 0x71a @0x10
0x070a…0723 at0011 = ╱61╱a╱ // 0x71b @0x11
0x070a…0723 at0012 = ╱74╱t╱ // 0x71c @0x12
0x070a…0723 at0013 = ╱73╱s╱ // 0x71d @0x13
0x070a…0723 at0014 = ╱6c╱l╱ // 0x71e @0x14
0x070a…0723 at0015 = ╱75╱u╱ // 0x71f @0x15
0x070a…0723 at0016 = ╱62╱b╱ // 0x720 @0x16
0x070a…0723 at0017 = ╱22╱"╱ // 0x721 @0x17
0x070a…0723 at0018 = EOL // 0x722 @0x18
0x070a…0723 }
0x0723…072f 9d1d 00890 OPEN FIL $ , R
0x0723…072f LineComal80 {
0x0723…072f ptr = 0x9d1d // 0x723 @0x0
0x0723…072f lno = 0x037a // 0x725 @0x2
0x0723…072f at0004 = ╱a7╱ OPEN ╱ // 0x727 @0x4
0x0723…072f at0005 = ╱46╱F╱ // 0x728 @0x5
0x0723…072f at0006 = ╱49╱I╱ // 0x729 @0x6
0x0723…072f at0007 = ╱4c╱L╱ // 0x72a @0x7
0x0723…072f at0008 = ╱ef╱ $ ╱ // 0x72b @0x8
0x0723…072f at0009 = ╱ec╱ , ╱ // 0x72c @0x9
0x0723…072f at000a = ╱52╱R╱ // 0x72d @0xa
0x0723…072f at000b = EOL // 0x72e @0xb
0x0723…072f }
0x072f…0739 9d27 00900 EXEC L[SF
0x072f…0739 LineComal80 {
0x072f…0739 ptr = 0x9d27 // 0x72f @0x0
0x072f…0739 lno = 0x0384 // 0x731 @0x2
0x072f…0739 at0004 = ╱9d╱ EXEC ╱ // 0x733 @0x4
0x072f…0739 at0005 = ╱4c╱L╱ // 0x734 @0x5
0x072f…0739 at0006 = ╱5b╱[╱ // 0x735 @0x6
0x072f…0739 at0007 = ╱53╱S╱ // 0x736 @0x7
0x072f…0739 at0008 = ╱46╱F╱ // 0x737 @0x8
0x072f…0739 at0009 = EOL // 0x738 @0x9
0x072f…0739 }
0x0739…0745 9d33 00910 EXEC GEMBIP
0x0739…0745 LineComal80 {
0x0739…0745 ptr = 0x9d33 // 0x739 @0x0
0x0739…0745 lno = 0x038e // 0x73b @0x2
0x0739…0745 at0004 = ╱9d╱ EXEC ╱ // 0x73d @0x4
0x0739…0745 at0005 = ╱47╱G╱ // 0x73e @0x5
0x0739…0745 at0006 = ╱45╱E╱ // 0x73f @0x6
0x0739…0745 at0007 = ╱4d╱M╱ // 0x740 @0x7
0x0739…0745 at0008 = ╱42╱B╱ // 0x741 @0x8
0x0739…0745 at0009 = ╱49╱I╱ // 0x742 @0x9
0x0739…0745 at000a = ╱50╱P╱ // 0x743 @0xa
0x0739…0745 at000b = EOL // 0x744 @0xb
0x0739…0745 }
0x0745…074c 9d3a 00920 ELSE
0x0745…074c LineComal80 {
0x0745…074c ptr = 0x9d3a // 0x745 @0x0
0x0745…074c lno = 0x0398 // 0x747 @0x2
0x0745…074c at0004 = ╱9a0d╱ ELSE ╱ // 0x749 @0x4
0x0745…074c at0006 = EOL // 0x74b @0x6
0x0745…074c }
0x074c…0759 9d47 00930 EXEC HENTBIP
0x074c…0759 LineComal80 {
0x074c…0759 ptr = 0x9d47 // 0x74c @0x0
0x074c…0759 lno = 0x03a2 // 0x74e @0x2
0x074c…0759 at0004 = ╱9d╱ EXEC ╱ // 0x750 @0x4
0x074c…0759 at0005 = ╱48╱H╱ // 0x751 @0x5
0x074c…0759 at0006 = ╱45╱E╱ // 0x752 @0x6
0x074c…0759 at0007 = ╱4e╱N╱ // 0x753 @0x7
0x074c…0759 at0008 = ╱54╱T╱ // 0x754 @0x8
0x074c…0759 at0009 = ╱42╱B╱ // 0x755 @0x9
0x074c…0759 at000a = ╱49╱I╱ // 0x756 @0xa
0x074c…0759 at000b = ╱50╱P╱ // 0x757 @0xb
0x074c…0759 at000c = EOL // 0x758 @0xc
0x074c…0759 }
0x0759…075f 9d4d 00940 ENDIF
0x0759…075f LineComal80 {
0x0759…075f ptr = 0x9d4d // 0x759 @0x0
0x0759…075f lno = 0x03ac // 0x75b @0x2
0x0759…075f at0004 = ╱9c╱ ENDIF ╱ // 0x75d @0x4
0x0759…075f at0005 = EOL // 0x75e @0x5
0x0759…075f }
0x075f…0775 9d63 00950 FOR Y := 1 TO R + 1 DO
0x075f…0775 LineComal80 {
0x075f…0775 ptr = 0x9d63 // 0x75f @0x0
0x075f…0775 lno = 0x03b6 // 0x761 @0x2
0x075f…0775 at0004 = ╱830e╱ FOR ╱ // 0x763 @0x4
0x075f…0775 at0006 = ╱59╱Y╱ // 0x765 @0x6
0x075f…0775 at0007 = ╱f0╱ := ╱ // 0x766 @0x7
0x075f…0775 at0008 = ╱31╱1╱ // 0x767 @0x8
0x075f…0775 at0009 = ╱f20100╱ // 0x768 @0x9
0x075f…0775 at000c = ╱b750╱ TO ╱ // 0x76b @0xc
0x075f…0775 at000e = ╱52╱R╱ // 0x76d @0xe
0x075f…0775 at000f = ╱e5╱ + ╱ // 0x76e @0xf
0x075f…0775 at0010 = ╱31╱1╱ // 0x76f @0x10
0x075f…0775 at0011 = ╱f20100╱ // 0x770 @0x11
0x075f…0775 at0014 = ╱bb╱ DO ╱ // 0x773 @0x14
0x075f…0775 at0015 = EOL // 0x774 @0x15
0x075f…0775 }
0x0775…0787 9d75 00960 IF Y = 2 THEN OUTPUT "p"
0x0775…0787 LineComal80 {
0x0775…0787 ptr = 0x9d75 // 0x775 @0x0
0x0775…0787 lno = 0x03c0 // 0x777 @0x2
0x0775…0787 at0004 = ╱8200╱ IF ╱ // 0x779 @0x4
0x0775…0787 at0006 = ╱59╱Y╱ // 0x77b @0x6
0x0775…0787 at0007 = ╱df╱ = ╱ // 0x77c @0x7
0x0775…0787 at0008 = ╱32╱2╱ // 0x77d @0x8
0x0775…0787 at0009 = ╱f20200╱ // 0x77e @0x9
0x0775…0787 at000c = ╱b5╱ THEN ╱ // 0x781 @0xc
0x0775…0787 at000d = ╱a5╱ OUTPUT ╱ // 0x782 @0xd
0x0775…0787 at000e = ╱22╱"╱ // 0x783 @0xe
0x0775…0787 at000f = ╱70╱p╱ // 0x784 @0xf
0x0775…0787 at0010 = ╱22╱"╱ // 0x785 @0x10
0x0775…0787 at0011 = EOL // 0x786 @0x11
0x0775…0787 }
0x0787…0795 9d83 00970 IF = 2 THEN
0x0787…0795 LineComal80 {
0x0787…0795 ptr = 0x9d83 // 0x787 @0x0
0x0787…0795 lno = 0x03ca // 0x789 @0x2
0x0787…0795 at0004 = ╱9b0f59╱ IF ╱ // 0x78b @0x4
0x0787…0795 at0007 = ╱df╱ = ╱ // 0x78e @0x7
0x0787…0795 at0008 = ╱32╱2╱ // 0x78f @0x8
0x0787…0795 at0009 = ╱f20200╱ // 0x790 @0x9
0x0787…0795 at000c = ╱b5╱ THEN ╱ // 0x793 @0xc
0x0787…0795 at000d = EOL // 0x794 @0xd
0x0787…0795 }
0x0795…079e 9d8c 00980 EXEC TLI
0x0795…079e LineComal80 {
0x0795…079e ptr = 0x9d8c // 0x795 @0x0
0x0795…079e lno = 0x03d4 // 0x797 @0x2
0x0795…079e at0004 = ╱9d╱ EXEC ╱ // 0x799 @0x4
0x0795…079e at0005 = ╱54╱T╱ // 0x79a @0x5
0x0795…079e at0006 = ╱4c╱L╱ // 0x79b @0x6
0x0795…079e at0007 = ╱49╱I╱ // 0x79c @0x7
0x0795…079e at0008 = EOL // 0x79d @0x8
0x0795…079e }
0x079e…07a5 9d93 00990 ELSE
0x079e…07a5 LineComal80 {
0x079e…07a5 ptr = 0x9d93 // 0x79e @0x0
0x079e…07a5 lno = 0x03de // 0x7a0 @0x2
0x079e…07a5 at0004 = ╱9a10╱ ELSE ╱ // 0x7a2 @0x4
0x079e…07a5 at0006 = EOL // 0x7a4 @0x6
0x079e…07a5 }
0x07a5…07ab 9d99 01000 CLEAR
0x07a5…07ab LineComal80 {
0x07a5…07ab ptr = 0x9d99 // 0x7a5 @0x0
0x07a5…07ab lno = 0x03e8 // 0x7a7 @0x2
0x07a5…07ab at0004 = ╱a0╱ CLEAR ╱ // 0x7a9 @0x4
0x07a5…07ab at0005 = EOL // 0x7aa @0x5
0x07a5…07ab }
0x07ab…07b1 9d9f 01010 ENDIF
0x07ab…07b1 LineComal80 {
0x07ab…07b1 ptr = 0x9d9f // 0x7ab @0x0
0x07ab…07b1 lno = 0x03f2 // 0x7ad @0x2
0x07ab…07b1 at0004 = ╱9c╱ ENDIF ╱ // 0x7af @0x4
0x07ab…07b1 at0005 = EOL // 0x7b0 @0x5
0x07ab…07b1 }
0x07b1…07d7 9dc5 01020 LET QT $ := "]RSOPG\RELSE…FOR…" + BKL $ + ":"
0x07b1…07d7 LineComal80 {
0x07b1…07d7 ptr = 0x9dc5 // 0x7b1 @0x0
0x07b1…07d7 lno = 0x03fc // 0x7b3 @0x2
0x07b1…07d7 at0004 = ╱86╱ LET ╱ // 0x7b5 @0x4
0x07b1…07d7 at0005 = ╱51╱Q╱ // 0x7b6 @0x5
0x07b1…07d7 at0006 = ╱54╱T╱ // 0x7b7 @0x6
0x07b1…07d7 at0007 = ╱ef╱ $ ╱ // 0x7b8 @0x7
0x07b1…07d7 at0008 = ╱f0╱ := ╱ // 0x7b9 @0x8
0x07b1…07d7 at0009 = ╱22╱"╱ // 0x7ba @0x9
0x07b1…07d7 at000a = ╱5d╱]╱ // 0x7bb @0xa
0x07b1…07d7 at000b = ╱52╱R╱ // 0x7bc @0xb
0x07b1…07d7 at000c = ╱53╱S╱ // 0x7bd @0xc
0x07b1…07d7 at000d = ╱4f╱O╱ // 0x7be @0xd
0x07b1…07d7 at000e = ╱50╱P╱ // 0x7bf @0xe
0x07b1…07d7 at000f = ╱47╱G╱ // 0x7c0 @0xf
0x07b1…07d7 at0010 = ╱5c╱\╱ // 0x7c1 @0x10
0x07b1…07d7 at0011 = ╱52╱R╱ // 0x7c2 @0x11
0x07b1…07d7 at0012 = ╱45╱E╱ // 0x7c3 @0x12
0x07b1…07d7 at0013 = ╱4c╱L╱ // 0x7c4 @0x13
0x07b1…07d7 at0014 = ╱53╱S╱ // 0x7c5 @0x14
0x07b1…07d7 at0015 = ╱45╱E╱ // 0x7c6 @0x15
0x07b1…07d7 at0016 = ╱20╱…╱ // 0x7c7 @0x16
0x07b1…07d7 at0017 = ╱46╱F╱ // 0x7c8 @0x17
0x07b1…07d7 at0018 = ╱4f╱O╱ // 0x7c9 @0x18
0x07b1…07d7 at0019 = ╱52╱R╱ // 0x7ca @0x19
0x07b1…07d7 at001a = ╱20╱…╱ // 0x7cb @0x1a
0x07b1…07d7 at001b = ╱22╱"╱ // 0x7cc @0x1b
0x07b1…07d7 at001c = ╱eb╱ + ╱ // 0x7cd @0x1c
0x07b1…07d7 at001d = ╱42╱B╱ // 0x7ce @0x1d
0x07b1…07d7 at001e = ╱4b╱K╱ // 0x7cf @0x1e
0x07b1…07d7 at001f = ╱4c╱L╱ // 0x7d0 @0x1f
0x07b1…07d7 at0020 = ╱ef╱ $ ╱ // 0x7d1 @0x20
0x07b1…07d7 at0021 = ╱eb╱ + ╱ // 0x7d2 @0x21
0x07b1…07d7 at0022 = ╱22╱"╱ // 0x7d3 @0x22
0x07b1…07d7 at0023 = ╱3a╱:╱ // 0x7d4 @0x23
0x07b1…07d7 at0024 = ╱22╱"╱ // 0x7d5 @0x24
0x07b1…07d7 at0025 = EOL // 0x7d6 @0x25
0x07b1…07d7 }
0x07d7…07e4 9dd2 01030 EXEC LSKRIV3
0x07d7…07e4 LineComal80 {
0x07d7…07e4 ptr = 0x9dd2 // 0x7d7 @0x0
0x07d7…07e4 lno = 0x0406 // 0x7d9 @0x2
0x07d7…07e4 at0004 = ╱9d╱ EXEC ╱ // 0x7db @0x4
0x07d7…07e4 at0005 = ╱4c╱L╱ // 0x7dc @0x5
0x07d7…07e4 at0006 = ╱53╱S╱ // 0x7dd @0x6
0x07d7…07e4 at0007 = ╱4b╱K╱ // 0x7de @0x7
0x07d7…07e4 at0008 = ╱52╱R╱ // 0x7df @0x8
0x07d7…07e4 at0009 = ╱49╱I╱ // 0x7e0 @0x9
0x07d7…07e4 at000a = ╱56╱V╱ // 0x7e1 @0xa
0x07d7…07e4 at000b = ╱33╱3╱ // 0x7e2 @0xb
0x07d7…07e4 at000c = EOL // 0x7e3 @0xc
0x07d7…07e4 }
0x07e4…07f0 9dde 01040 EXEC ]RSOPG
0x07e4…07f0 LineComal80 {
0x07e4…07f0 ptr = 0x9dde // 0x7e4 @0x0
0x07e4…07f0 lno = 0x0410 // 0x7e6 @0x2
0x07e4…07f0 at0004 = ╱9d╱ EXEC ╱ // 0x7e8 @0x4
0x07e4…07f0 at0005 = ╱5d╱]╱ // 0x7e9 @0x5
0x07e4…07f0 at0006 = ╱52╱R╱ // 0x7ea @0x6
0x07e4…07f0 at0007 = ╱53╱S╱ // 0x7eb @0x7
0x07e4…07f0 at0008 = ╱4f╱O╱ // 0x7ec @0x8
0x07e4…07f0 at0009 = ╱50╱P╱ // 0x7ed @0x9
0x07e4…07f0 at000a = ╱47╱G╱ // 0x7ee @0xa
0x07e4…07f0 at000b = EOL // 0x7ef @0xb
0x07e4…07f0 }
0x07f0…0805 9df3 01050 IF Y = 1 THEN EXEC RETURN
0x07f0…0805 LineComal80 {
0x07f0…0805 ptr = 0x9df3 // 0x7f0 @0x0
0x07f0…0805 lno = 0x041a // 0x7f2 @0x2
0x07f0…0805 at0004 = ╱8200╱ IF ╱ // 0x7f4 @0x4
0x07f0…0805 at0006 = ╱59╱Y╱ // 0x7f6 @0x6
0x07f0…0805 at0007 = ╱df╱ = ╱ // 0x7f7 @0x7
0x07f0…0805 at0008 = ╱31╱1╱ // 0x7f8 @0x8
0x07f0…0805 at0009 = ╱f20100╱ // 0x7f9 @0x9
0x07f0…0805 at000c = ╱b5╱ THEN ╱ // 0x7fc @0xc
0x07f0…0805 at000d = ╱9d╱ EXEC ╱ // 0x7fd @0xd
0x07f0…0805 at000e = ╱52╱R╱ // 0x7fe @0xe
0x07f0…0805 at000f = ╱45╱E╱ // 0x7ff @0xf
0x07f0…0805 at0010 = ╱54╱T╱ // 0x800 @0x10
0x07f0…0805 at0011 = ╱55╱U╱ // 0x801 @0x11
0x07f0…0805 at0012 = ╱52╱R╱ // 0x802 @0x12
0x07f0…0805 at0013 = ╱4e╱N╱ // 0x803 @0x13
0x07f0…0805 at0014 = EOL // 0x804 @0x14
0x07f0…0805 }
0x0805…0817 9e05 01060 IF Y = 2 THEN OUTPUT "t"
0x0805…0817 LineComal80 {
0x0805…0817 ptr = 0x9e05 // 0x805 @0x0
0x0805…0817 lno = 0x0424 // 0x807 @0x2
0x0805…0817 at0004 = ╱8200╱ IF ╱ // 0x809 @0x4
0x0805…0817 at0006 = ╱59╱Y╱ // 0x80b @0x6
0x0805…0817 at0007 = ╱df╱ = ╱ // 0x80c @0x7
0x0805…0817 at0008 = ╱32╱2╱ // 0x80d @0x8
0x0805…0817 at0009 = ╱f20200╱ // 0x80e @0x9
0x0805…0817 at000c = ╱b5╱ THEN ╱ // 0x811 @0xc
0x0805…0817 at000d = ╱a5╱ OUTPUT ╱ // 0x812 @0xd
0x0805…0817 at000e = ╱22╱"╱ // 0x813 @0xe
0x0805…0817 at000f = ╱74╱t╱ // 0x814 @0xf
0x0805…0817 at0010 = ╱22╱"╱ // 0x815 @0x10
0x0805…0817 at0011 = EOL // 0x816 @0x11
0x0805…0817 }
0x0817…081e 9e0c 01070 NEXT Y
0x0817…081e LineComal80 {
0x0817…081e ptr = 0x9e0c // 0x817 @0x0
0x0817…081e lno = 0x042e // 0x819 @0x2
0x0817…081e at0004 = ╱84╱ NEXT ╱ // 0x81b @0x4
0x0817…081e at0005 = ╱59╱Y╱ // 0x81c @0x5
0x0817…081e at0006 = EOL // 0x81d @0x6
0x0817…081e }
0x081e…0824 9e12 01080 ENDIF
0x081e…0824 LineComal80 {
0x081e…0824 ptr = 0x9e12 // 0x81e @0x0
0x081e…0824 lno = 0x0438 // 0x820 @0x2
0x081e…0824 at0004 = ╱9c╱ ENDIF ╱ // 0x822 @0x4
0x081e…0824 at0005 = EOL // 0x823 @0x5
0x081e…0824 }
0x0824…0855 9e43 01090 PRINT "***…VENT…***…HOVEDPROGRAMMET…INDL[SES…***"
0x0824…0855 LineComal80 {
0x0824…0855 ptr = 0x9e43 // 0x824 @0x0
0x0824…0855 lno = 0x0442 // 0x826 @0x2
0x0824…0855 at0004 = ╱92╱ PRINT ╱ // 0x828 @0x4
0x0824…0855 at0005 = ╱22╱"╱ // 0x829 @0x5
0x0824…0855 at0006 = ╱2a╱*╱ // 0x82a @0x6
0x0824…0855 at0007 = ╱2a╱*╱ // 0x82b @0x7
0x0824…0855 at0008 = ╱2a╱*╱ // 0x82c @0x8
0x0824…0855 at0009 = ╱20╱…╱ // 0x82d @0x9
0x0824…0855 at000a = ╱56╱V╱ // 0x82e @0xa
0x0824…0855 at000b = ╱45╱E╱ // 0x82f @0xb
0x0824…0855 at000c = ╱4e╱N╱ // 0x830 @0xc
0x0824…0855 at000d = ╱54╱T╱ // 0x831 @0xd
0x0824…0855 at000e = ╱20╱…╱ // 0x832 @0xe
0x0824…0855 at000f = ╱2a╱*╱ // 0x833 @0xf
0x0824…0855 at0010 = ╱2a╱*╱ // 0x834 @0x10
0x0824…0855 at0011 = ╱2a╱*╱ // 0x835 @0x11
0x0824…0855 at0012 = ╱20╱…╱ // 0x836 @0x12
0x0824…0855 at0013 = ╱48╱H╱ // 0x837 @0x13
0x0824…0855 at0014 = ╱4f╱O╱ // 0x838 @0x14
0x0824…0855 at0015 = ╱56╱V╱ // 0x839 @0x15
0x0824…0855 at0016 = ╱45╱E╱ // 0x83a @0x16
0x0824…0855 at0017 = ╱44╱D╱ // 0x83b @0x17
0x0824…0855 at0018 = ╱50╱P╱ // 0x83c @0x18
0x0824…0855 at0019 = ╱52╱R╱ // 0x83d @0x19
0x0824…0855 at001a = ╱4f╱O╱ // 0x83e @0x1a
0x0824…0855 at001b = ╱47╱G╱ // 0x83f @0x1b
0x0824…0855 at001c = ╱52╱R╱ // 0x840 @0x1c
0x0824…0855 at001d = ╱41╱A╱ // 0x841 @0x1d
0x0824…0855 at001e = ╱4d╱M╱ // 0x842 @0x1e
0x0824…0855 at001f = ╱4d╱M╱ // 0x843 @0x1f
0x0824…0855 at0020 = ╱45╱E╱ // 0x844 @0x20
0x0824…0855 at0021 = ╱54╱T╱ // 0x845 @0x21
0x0824…0855 at0022 = ╱20╱…╱ // 0x846 @0x22
0x0824…0855 at0023 = ╱49╱I╱ // 0x847 @0x23
0x0824…0855 at0024 = ╱4e╱N╱ // 0x848 @0x24
0x0824…0855 at0025 = ╱44╱D╱ // 0x849 @0x25
0x0824…0855 at0026 = ╱4c╱L╱ // 0x84a @0x26
0x0824…0855 at0027 = ╱5b╱[╱ // 0x84b @0x27
0x0824…0855 at0028 = ╱53╱S╱ // 0x84c @0x28
0x0824…0855 at0029 = ╱45╱E╱ // 0x84d @0x29
0x0824…0855 at002a = ╱53╱S╱ // 0x84e @0x2a
0x0824…0855 at002b = ╱20╱…╱ // 0x84f @0x2b
0x0824…0855 at002c = ╱2a╱*╱ // 0x850 @0x2c
0x0824…0855 at002d = ╱2a╱*╱ // 0x851 @0x2d
0x0824…0855 at002e = ╱2a╱*╱ // 0x852 @0x2e
0x0824…0855 at002f = ╱22╱"╱ // 0x853 @0x2f
0x0824…0855 at0030 = EOL // 0x854 @0x30
0x0824…0855 }
0x0855…0867 9e55 01100 CHAIN "DDE:SKAT85"
0x0855…0867 LineComal80 {
0x0855…0867 ptr = 0x9e55 // 0x855 @0x0
0x0855…0867 lno = 0x044c // 0x857 @0x2
0x0855…0867 at0004 = ╱ac╱ CHAIN ╱ // 0x859 @0x4
0x0855…0867 at0005 = ╱22╱"╱ // 0x85a @0x5
0x0855…0867 at0006 = ╱44╱D╱ // 0x85b @0x6
0x0855…0867 at0007 = ╱44╱D╱ // 0x85c @0x7
0x0855…0867 at0008 = ╱45╱E╱ // 0x85d @0x8
0x0855…0867 at0009 = ╱3a╱:╱ // 0x85e @0x9
0x0855…0867 at000a = ╱53╱S╱ // 0x85f @0xa
0x0855…0867 at000b = ╱4b╱K╱ // 0x860 @0xb
0x0855…0867 at000c = ╱41╱A╱ // 0x861 @0xc
0x0855…0867 at000d = ╱54╱T╱ // 0x862 @0xd
0x0855…0867 at000e = ╱38╱8╱ // 0x863 @0xe
0x0855…0867 at000f = ╱35╱5╱ // 0x864 @0xf
0x0855…0867 at0010 = ╱22╱"╱ // 0x865 @0x10
0x0855…0867 at0011 = EOL // 0x866 @0x11
0x0855…0867 }
0x0867…0875 9e63 01110 PROC LSKRIV2
0x0867…0875 LineComal80 {
0x0867…0875 ptr = 0x9e63 // 0x867 @0x0
0x0867…0875 lno = 0x0456 // 0x869 @0x2
0x0867…0875 at0004 = ╱9e11╱ PROC ╱ // 0x86b @0x4
0x0867…0875 at0006 = ╱4c╱L╱ // 0x86d @0x6
0x0867…0875 at0007 = ╱53╱S╱ // 0x86e @0x7
0x0867…0875 at0008 = ╱4b╱K╱ // 0x86f @0x8
0x0867…0875 at0009 = ╱52╱R╱ // 0x870 @0x9
0x0867…0875 at000a = ╱49╱I╱ // 0x871 @0xa
0x0867…0875 at000b = ╱56╱V╱ // 0x872 @0xb
0x0867…0875 at000c = ╱32╱2╱ // 0x873 @0xc
0x0867…0875 at000d = EOL // 0x874 @0xd
0x0867…0875 }
0x0875…0881 9e6f 01120 LET PRB := QB
0x0875…0881 LineComal80 {
0x0875…0881 ptr = 0x9e6f // 0x875 @0x0
0x0875…0881 lno = 0x0460 // 0x877 @0x2
0x0875…0881 at0004 = ╱86╱ LET ╱ // 0x879 @0x4
0x0875…0881 at0005 = ╱50╱P╱ // 0x87a @0x5
0x0875…0881 at0006 = ╱52╱R╱ // 0x87b @0x6
0x0875…0881 at0007 = ╱42╱B╱ // 0x87c @0x7
0x0875…0881 at0008 = ╱f0╱ := ╱ // 0x87d @0x8
0x0875…0881 at0009 = ╱51╱Q╱ // 0x87e @0x9
0x0875…0881 at000a = ╱42╱B╱ // 0x87f @0xa
0x0875…0881 at000b = EOL // 0x880 @0xb
0x0875…0881 }
0x0881…088b 9e79 01130 PRINT QT $ ;
0x0881…088b LineComal80 {
0x0881…088b ptr = 0x9e79 // 0x881 @0x0
0x0881…088b lno = 0x046a // 0x883 @0x2
0x0881…088b at0004 = ╱92╱ PRINT ╱ // 0x885 @0x4
0x0881…088b at0005 = ╱51╱Q╱ // 0x886 @0x5
0x0881…088b at0006 = ╱54╱T╱ // 0x887 @0x6
0x0881…088b at0007 = ╱ef╱ $ ╱ // 0x888 @0x7
0x0881…088b at0008 = ╱ea╱ ; ╱ // 0x889 @0x8
0x0881…088b at0009 = EOL // 0x88a @0x9
0x0881…088b }
0x088b…08a8 9e96 01140 PRINT USING "#########.##…KR." : PRB
0x088b…08a8 LineComal80 {
0x088b…08a8 ptr = 0x9e96 // 0x88b @0x0
0x088b…08a8 lno = 0x0474 // 0x88d @0x2
0x088b…08a8 at0004 = ╱92╱ PRINT ╱ // 0x88f @0x4
0x088b…08a8 at0005 = ╱b9╱ USING ╱ // 0x890 @0x5
0x088b…08a8 at0006 = ╱22╱"╱ // 0x891 @0x6
0x088b…08a8 at0007 = ╱23╱#╱ // 0x892 @0x7
0x088b…08a8 at0008 = ╱23╱#╱ // 0x893 @0x8
0x088b…08a8 at0009 = ╱23╱#╱ // 0x894 @0x9
0x088b…08a8 at000a = ╱23╱#╱ // 0x895 @0xa
0x088b…08a8 at000b = ╱23╱#╱ // 0x896 @0xb
0x088b…08a8 at000c = ╱23╱#╱ // 0x897 @0xc
0x088b…08a8 at000d = ╱23╱#╱ // 0x898 @0xd
0x088b…08a8 at000e = ╱23╱#╱ // 0x899 @0xe
0x088b…08a8 at000f = ╱23╱#╱ // 0x89a @0xf
0x088b…08a8 at0010 = ╱2e╱.╱ // 0x89b @0x10
0x088b…08a8 at0011 = ╱23╱#╱ // 0x89c @0x11
0x088b…08a8 at0012 = ╱23╱#╱ // 0x89d @0x12
0x088b…08a8 at0013 = ╱20╱…╱ // 0x89e @0x13
0x088b…08a8 at0014 = ╱4b╱K╱ // 0x89f @0x14
0x088b…08a8 at0015 = ╱52╱R╱ // 0x8a0 @0x15
0x088b…08a8 at0016 = ╱2e╱.╱ // 0x8a1 @0x16
0x088b…08a8 at0017 = ╱22╱"╱ // 0x8a2 @0x17
0x088b…08a8 at0018 = ╱f1╱ : ╱ // 0x8a3 @0x18
0x088b…08a8 at0019 = ╱50╱P╱ // 0x8a4 @0x19
0x088b…08a8 at001a = ╱52╱R╱ // 0x8a5 @0x1a
0x088b…08a8 at001b = ╱42╱B╱ // 0x8a6 @0x1b
0x088b…08a8 at001c = EOL // 0x8a7 @0x1c
0x088b…08a8 }
0x08a8…08b5 9ea3 01150 ENDPROC LSKRIV2
0x08a8…08b5 LineComal80 {
0x08a8…08b5 ptr = 0x9ea3 // 0x8a8 @0x0
0x08a8…08b5 lno = 0x047e // 0x8aa @0x2
0x08a8…08b5 at0004 = ╱9f╱ ENDPROC ╱ // 0x8ac @0x4
0x08a8…08b5 at0005 = ╱4c╱L╱ // 0x8ad @0x5
0x08a8…08b5 at0006 = ╱53╱S╱ // 0x8ae @0x6
0x08a8…08b5 at0007 = ╱4b╱K╱ // 0x8af @0x7
0x08a8…08b5 at0008 = ╱52╱R╱ // 0x8b0 @0x8
0x08a8…08b5 at0009 = ╱49╱I╱ // 0x8b1 @0x9
0x08a8…08b5 at000a = ╱56╱V╱ // 0x8b2 @0xa
0x08a8…08b5 at000b = ╱32╱2╱ // 0x8b3 @0xb
0x08a8…08b5 at000c = EOL // 0x8b4 @0xc
0x08a8…08b5 }
0x08b5…08c3 9eb1 01160 PROC LSKRIV1
0x08b5…08c3 LineComal80 {
0x08b5…08c3 ptr = 0x9eb1 // 0x8b5 @0x0
0x08b5…08c3 lno = 0x0488 // 0x8b7 @0x2
0x08b5…08c3 at0004 = ╱9e12╱ PROC ╱ // 0x8b9 @0x4
0x08b5…08c3 at0006 = ╱4c╱L╱ // 0x8bb @0x6
0x08b5…08c3 at0007 = ╱53╱S╱ // 0x8bc @0x7
0x08b5…08c3 at0008 = ╱4b╱K╱ // 0x8bd @0x8
0x08b5…08c3 at0009 = ╱52╱R╱ // 0x8be @0x9
0x08b5…08c3 at000a = ╱49╱I╱ // 0x8bf @0xa
0x08b5…08c3 at000b = ╱56╱V╱ // 0x8c0 @0xb
0x08b5…08c3 at000c = ╱31╱1╱ // 0x8c1 @0xc
0x08b5…08c3 at000d = EOL // 0x8c2 @0xd
0x08b5…08c3 }
0x08c3…08cf 9ebd 01170 LET PRB := QB
0x08c3…08cf LineComal80 {
0x08c3…08cf ptr = 0x9ebd // 0x8c3 @0x0
0x08c3…08cf lno = 0x0492 // 0x8c5 @0x2
0x08c3…08cf at0004 = ╱86╱ LET ╱ // 0x8c7 @0x4
0x08c3…08cf at0005 = ╱50╱P╱ // 0x8c8 @0x5
0x08c3…08cf at0006 = ╱52╱R╱ // 0x8c9 @0x6
0x08c3…08cf at0007 = ╱42╱B╱ // 0x8ca @0x7
0x08c3…08cf at0008 = ╱f0╱ := ╱ // 0x8cb @0x8
0x08c3…08cf at0009 = ╱51╱Q╱ // 0x8cc @0x9
0x08c3…08cf at000a = ╱42╱B╱ // 0x8cd @0xa
0x08c3…08cf at000b = EOL // 0x8ce @0xb
0x08c3…08cf }
0x08cf…08d9 9ec7 01180 PRINT QT $ ;
0x08cf…08d9 LineComal80 {
0x08cf…08d9 ptr = 0x9ec7 // 0x8cf @0x0
0x08cf…08d9 lno = 0x049c // 0x8d1 @0x2
0x08cf…08d9 at0004 = ╱92╱ PRINT ╱ // 0x8d3 @0x4
0x08cf…08d9 at0005 = ╱51╱Q╱ // 0x8d4 @0x5
0x08cf…08d9 at0006 = ╱54╱T╱ // 0x8d5 @0x6
0x08cf…08d9 at0007 = ╱ef╱ $ ╱ // 0x8d6 @0x7
0x08cf…08d9 at0008 = ╱ea╱ ; ╱ // 0x8d7 @0x8
0x08cf…08d9 at0009 = EOL // 0x8d8 @0x9
0x08cf…08d9 }
0x08d9…08f3 9ee1 01190 PRINT USING "#########…KR." : PRB
0x08d9…08f3 LineComal80 {
0x08d9…08f3 ptr = 0x9ee1 // 0x8d9 @0x0
0x08d9…08f3 lno = 0x04a6 // 0x8db @0x2
0x08d9…08f3 at0004 = ╱92╱ PRINT ╱ // 0x8dd @0x4
0x08d9…08f3 at0005 = ╱b9╱ USING ╱ // 0x8de @0x5
0x08d9…08f3 at0006 = ╱22╱"╱ // 0x8df @0x6
0x08d9…08f3 at0007 = ╱23╱#╱ // 0x8e0 @0x7
0x08d9…08f3 at0008 = ╱23╱#╱ // 0x8e1 @0x8
0x08d9…08f3 at0009 = ╱23╱#╱ // 0x8e2 @0x9
0x08d9…08f3 at000a = ╱23╱#╱ // 0x8e3 @0xa
0x08d9…08f3 at000b = ╱23╱#╱ // 0x8e4 @0xb
0x08d9…08f3 at000c = ╱23╱#╱ // 0x8e5 @0xc
0x08d9…08f3 at000d = ╱23╱#╱ // 0x8e6 @0xd
0x08d9…08f3 at000e = ╱23╱#╱ // 0x8e7 @0xe
0x08d9…08f3 at000f = ╱23╱#╱ // 0x8e8 @0xf
0x08d9…08f3 at0010 = ╱20╱…╱ // 0x8e9 @0x10
0x08d9…08f3 at0011 = ╱4b╱K╱ // 0x8ea @0x11
0x08d9…08f3 at0012 = ╱52╱R╱ // 0x8eb @0x12
0x08d9…08f3 at0013 = ╱2e╱.╱ // 0x8ec @0x13
0x08d9…08f3 at0014 = ╱22╱"╱ // 0x8ed @0x14
0x08d9…08f3 at0015 = ╱f1╱ : ╱ // 0x8ee @0x15
0x08d9…08f3 at0016 = ╱50╱P╱ // 0x8ef @0x16
0x08d9…08f3 at0017 = ╱52╱R╱ // 0x8f0 @0x17
0x08d9…08f3 at0018 = ╱42╱B╱ // 0x8f1 @0x18
0x08d9…08f3 at0019 = EOL // 0x8f2 @0x19
0x08d9…08f3 }
0x08f3…0900 9eee 01200 ENDPROC LSKRIV1
0x08f3…0900 LineComal80 {
0x08f3…0900 ptr = 0x9eee // 0x8f3 @0x0
0x08f3…0900 lno = 0x04b0 // 0x8f5 @0x2
0x08f3…0900 at0004 = ╱9f╱ ENDPROC ╱ // 0x8f7 @0x4
0x08f3…0900 at0005 = ╱4c╱L╱ // 0x8f8 @0x5
0x08f3…0900 at0006 = ╱53╱S╱ // 0x8f9 @0x6
0x08f3…0900 at0007 = ╱4b╱K╱ // 0x8fa @0x7
0x08f3…0900 at0008 = ╱52╱R╱ // 0x8fb @0x8
0x08f3…0900 at0009 = ╱49╱I╱ // 0x8fc @0x9
0x08f3…0900 at000a = ╱56╱V╱ // 0x8fd @0xa
0x08f3…0900 at000b = ╱31╱1╱ // 0x8fe @0xb
0x08f3…0900 at000c = EOL // 0x8ff @0xc
0x08f3…0900 }
0x0900…090e 9efc 01210 PROC LSKRIV4
0x0900…090e LineComal80 {
0x0900…090e ptr = 0x9efc // 0x900 @0x0
0x0900…090e lno = 0x04ba // 0x902 @0x2
0x0900…090e at0004 = ╱9e13╱ PROC ╱ // 0x904 @0x4
0x0900…090e at0006 = ╱4c╱L╱ // 0x906 @0x6
0x0900…090e at0007 = ╱53╱S╱ // 0x907 @0x7
0x0900…090e at0008 = ╱4b╱K╱ // 0x908 @0x8
0x0900…090e at0009 = ╱52╱R╱ // 0x909 @0x9
0x0900…090e at000a = ╱49╱I╱ // 0x90a @0xa
0x0900…090e at000b = ╱56╱V╱ // 0x90b @0xb
0x0900…090e at000c = ╱34╱4╱ // 0x90c @0xc
0x0900…090e at000d = EOL // 0x90d @0xd
0x0900…090e }
0x090e…091a 9f08 01220 LET PRB := QB
0x090e…091a LineComal80 {
0x090e…091a ptr = 0x9f08 // 0x90e @0x0
0x090e…091a lno = 0x04c4 // 0x910 @0x2
0x090e…091a at0004 = ╱86╱ LET ╱ // 0x912 @0x4
0x090e…091a at0005 = ╱50╱P╱ // 0x913 @0x5
0x090e…091a at0006 = ╱52╱R╱ // 0x914 @0x6
0x090e…091a at0007 = ╱42╱B╱ // 0x915 @0x7
0x090e…091a at0008 = ╱f0╱ := ╱ // 0x916 @0x8
0x090e…091a at0009 = ╱51╱Q╱ // 0x917 @0x9
0x090e…091a at000a = ╱42╱B╱ // 0x918 @0xa
0x090e…091a at000b = EOL // 0x919 @0xb
0x090e…091a }
0x091a…0924 9f12 01230 PRINT QT $ ;
0x091a…0924 LineComal80 {
0x091a…0924 ptr = 0x9f12 // 0x91a @0x0
0x091a…0924 lno = 0x04ce // 0x91c @0x2
0x091a…0924 at0004 = ╱92╱ PRINT ╱ // 0x91e @0x4
0x091a…0924 at0005 = ╱51╱Q╱ // 0x91f @0x5
0x091a…0924 at0006 = ╱54╱T╱ // 0x920 @0x6
0x091a…0924 at0007 = ╱ef╱ $ ╱ // 0x921 @0x7
0x091a…0924 at0008 = ╱ea╱ ; ╱ // 0x922 @0x8
0x091a…0924 at0009 = EOL // 0x923 @0x9
0x091a…0924 }
0x0924…093f 9f2d 01240 PRINT USING "#########…PCT." : PRB
0x0924…093f LineComal80 {
0x0924…093f ptr = 0x9f2d // 0x924 @0x0
0x0924…093f lno = 0x04d8 // 0x926 @0x2
0x0924…093f at0004 = ╱92╱ PRINT ╱ // 0x928 @0x4
0x0924…093f at0005 = ╱b9╱ USING ╱ // 0x929 @0x5
0x0924…093f at0006 = ╱22╱"╱ // 0x92a @0x6
0x0924…093f at0007 = ╱23╱#╱ // 0x92b @0x7
0x0924…093f at0008 = ╱23╱#╱ // 0x92c @0x8
0x0924…093f at0009 = ╱23╱#╱ // 0x92d @0x9
0x0924…093f at000a = ╱23╱#╱ // 0x92e @0xa
0x0924…093f at000b = ╱23╱#╱ // 0x92f @0xb
0x0924…093f at000c = ╱23╱#╱ // 0x930 @0xc
0x0924…093f at000d = ╱23╱#╱ // 0x931 @0xd
0x0924…093f at000e = ╱23╱#╱ // 0x932 @0xe
0x0924…093f at000f = ╱23╱#╱ // 0x933 @0xf
0x0924…093f at0010 = ╱20╱…╱ // 0x934 @0x10
0x0924…093f at0011 = ╱50╱P╱ // 0x935 @0x11
0x0924…093f at0012 = ╱43╱C╱ // 0x936 @0x12
0x0924…093f at0013 = ╱54╱T╱ // 0x937 @0x13
0x0924…093f at0014 = ╱2e╱.╱ // 0x938 @0x14
0x0924…093f at0015 = ╱22╱"╱ // 0x939 @0x15
0x0924…093f at0016 = ╱f1╱ : ╱ // 0x93a @0x16
0x0924…093f at0017 = ╱50╱P╱ // 0x93b @0x17
0x0924…093f at0018 = ╱52╱R╱ // 0x93c @0x18
0x0924…093f at0019 = ╱42╱B╱ // 0x93d @0x19
0x0924…093f at001a = EOL // 0x93e @0x1a
0x0924…093f }
0x093f…094c 9f3a 01250 ENDPROC LSKRIV4
0x093f…094c LineComal80 {
0x093f…094c ptr = 0x9f3a // 0x93f @0x0
0x093f…094c lno = 0x04e2 // 0x941 @0x2
0x093f…094c at0004 = ╱9f╱ ENDPROC ╱ // 0x943 @0x4
0x093f…094c at0005 = ╱4c╱L╱ // 0x944 @0x5
0x093f…094c at0006 = ╱53╱S╱ // 0x945 @0x6
0x093f…094c at0007 = ╱4b╱K╱ // 0x946 @0x7
0x093f…094c at0008 = ╱52╱R╱ // 0x947 @0x8
0x093f…094c at0009 = ╱49╱I╱ // 0x948 @0x9
0x093f…094c at000a = ╱56╱V╱ // 0x949 @0xa
0x093f…094c at000b = ╱34╱4╱ // 0x94a @0xb
0x093f…094c at000c = EOL // 0x94b @0xc
0x093f…094c }
0x094c…0957 9f45 01260 PROC SVAR
0x094c…0957 LineComal80 {
0x094c…0957 ptr = 0x9f45 // 0x94c @0x0
0x094c…0957 lno = 0x04ec // 0x94e @0x2
0x094c…0957 at0004 = ╱9e14╱ PROC ╱ // 0x950 @0x4
0x094c…0957 at0006 = ╱53╱S╱ // 0x952 @0x6
0x094c…0957 at0007 = ╱56╱V╱ // 0x953 @0x7
0x094c…0957 at0008 = ╱41╱A╱ // 0x954 @0x8
0x094c…0957 at0009 = ╱52╱R╱ // 0x955 @0x9
0x094c…0957 at000a = EOL // 0x956 @0xa
0x094c…0957 }
0x0957…095e 9f4c 01270 REPEAT
0x0957…095e LineComal80 {
0x0957…095e ptr = 0x9f4c // 0x957 @0x0
0x0957…095e lno = 0x04f6 // 0x959 @0x2
0x0957…095e at0004 = ╱9715╱ REPEAT ╱ // 0x95b @0x4
0x0957…095e at0006 = EOL // 0x95d @0x6
0x0957…095e }
0x095e…0966 9f54 01280 INPUT S $
0x095e…0966 LineComal80 {
0x095e…0966 ptr = 0x9f54 // 0x95e @0x0
0x095e…0966 lno = 0x0500 // 0x960 @0x2
0x095e…0966 at0004 = ╱91╱ INPUT ╱ // 0x962 @0x4
0x095e…0966 at0005 = ╱53╱S╱ // 0x963 @0x5
0x095e…0966 at0006 = ╱ef╱ $ ╱ // 0x964 @0x6
0x095e…0966 at0007 = EOL // 0x965 @0x7
0x095e…0966 }
0x0966…097b 9f69 01290 IF $ = "q" OR S $ = "Q" THEN
0x0966…097b LineComal80 {
0x0966…097b ptr = 0x9f69 // 0x966 @0x0
0x0966…097b lno = 0x050a // 0x968 @0x2
0x0966…097b at0004 = ╱9b1653╱ IF ╱ // 0x96a @0x4
0x0966…097b at0007 = ╱ef╱ $ ╱ // 0x96d @0x7
0x0966…097b at0008 = ╱df╱ = ╱ // 0x96e @0x8
0x0966…097b at0009 = ╱22╱"╱ // 0x96f @0x9
0x0966…097b at000a = ╱71╱q╱ // 0x970 @0xa
0x0966…097b at000b = ╱22╱"╱ // 0x971 @0xb
0x0966…097b at000c = ╱d8╱ OR ╱ // 0x972 @0xc
0x0966…097b at000d = ╱53╱S╱ // 0x973 @0xd
0x0966…097b at000e = ╱ef╱ $ ╱ // 0x974 @0xe
0x0966…097b at000f = ╱df╱ = ╱ // 0x975 @0xf
0x0966…097b at0010 = ╱22╱"╱ // 0x976 @0x10
0x0966…097b at0011 = ╱51╱Q╱ // 0x977 @0x11
0x0966…097b at0012 = ╱22╱"╱ // 0x978 @0x12
0x0966…097b at0013 = ╱b5╱ THEN ╱ // 0x979 @0x13
0x0966…097b at0014 = EOL // 0x97a @0x14
0x0966…097b }
0x097b…09bc 9faa 01300 PRINT "Programmet…kan…kun…afsluttes…fra…hovedprogrammet." ; CHR$ ( 7 )
0x097b…09bc LineComal80 {
0x097b…09bc ptr = 0x9faa // 0x97b @0x0
0x097b…09bc lno = 0x0514 // 0x97d @0x2
0x097b…09bc at0004 = ╱92╱ PRINT ╱ // 0x97f @0x4
0x097b…09bc at0005 = ╱22╱"╱ // 0x980 @0x5
0x097b…09bc at0006 = ╱50╱P╱ // 0x981 @0x6
0x097b…09bc at0007 = ╱72╱r╱ // 0x982 @0x7
0x097b…09bc at0008 = ╱6f╱o╱ // 0x983 @0x8
0x097b…09bc at0009 = ╱67╱g╱ // 0x984 @0x9
0x097b…09bc at000a = ╱72╱r╱ // 0x985 @0xa
0x097b…09bc at000b = ╱61╱a╱ // 0x986 @0xb
0x097b…09bc at000c = ╱6d╱m╱ // 0x987 @0xc
0x097b…09bc at000d = ╱6d╱m╱ // 0x988 @0xd
0x097b…09bc at000e = ╱65╱e╱ // 0x989 @0xe
0x097b…09bc at000f = ╱74╱t╱ // 0x98a @0xf
0x097b…09bc at0010 = ╱20╱…╱ // 0x98b @0x10
0x097b…09bc at0011 = ╱6b╱k╱ // 0x98c @0x11
0x097b…09bc at0012 = ╱61╱a╱ // 0x98d @0x12
0x097b…09bc at0013 = ╱6e╱n╱ // 0x98e @0x13
0x097b…09bc at0014 = ╱20╱…╱ // 0x98f @0x14
0x097b…09bc at0015 = ╱6b╱k╱ // 0x990 @0x15
0x097b…09bc at0016 = ╱75╱u╱ // 0x991 @0x16
0x097b…09bc at0017 = ╱6e╱n╱ // 0x992 @0x17
0x097b…09bc at0018 = ╱20╱…╱ // 0x993 @0x18
0x097b…09bc at0019 = ╱61╱a╱ // 0x994 @0x19
0x097b…09bc at001a = ╱66╱f╱ // 0x995 @0x1a
0x097b…09bc at001b = ╱73╱s╱ // 0x996 @0x1b
0x097b…09bc at001c = ╱6c╱l╱ // 0x997 @0x1c
0x097b…09bc at001d = ╱75╱u╱ // 0x998 @0x1d
0x097b…09bc at001e = ╱74╱t╱ // 0x999 @0x1e
0x097b…09bc at001f = ╱74╱t╱ // 0x99a @0x1f
0x097b…09bc at0020 = ╱65╱e╱ // 0x99b @0x20
0x097b…09bc at0021 = ╱73╱s╱ // 0x99c @0x21
0x097b…09bc at0022 = ╱20╱…╱ // 0x99d @0x22
0x097b…09bc at0023 = ╱66╱f╱ // 0x99e @0x23
0x097b…09bc at0024 = ╱72╱r╱ // 0x99f @0x24
0x097b…09bc at0025 = ╱61╱a╱ // 0x9a0 @0x25
0x097b…09bc at0026 = ╱20╱…╱ // 0x9a1 @0x26
0x097b…09bc at0027 = ╱68╱h╱ // 0x9a2 @0x27
0x097b…09bc at0028 = ╱6f╱o╱ // 0x9a3 @0x28
0x097b…09bc at0029 = ╱76╱v╱ // 0x9a4 @0x29
0x097b…09bc at002a = ╱65╱e╱ // 0x9a5 @0x2a
0x097b…09bc at002b = ╱64╱d╱ // 0x9a6 @0x2b
0x097b…09bc at002c = ╱70╱p╱ // 0x9a7 @0x2c
0x097b…09bc at002d = ╱72╱r╱ // 0x9a8 @0x2d
0x097b…09bc at002e = ╱6f╱o╱ // 0x9a9 @0x2e
0x097b…09bc at002f = ╱67╱g╱ // 0x9aa @0x2f
0x097b…09bc at0030 = ╱72╱r╱ // 0x9ab @0x30
0x097b…09bc at0031 = ╱61╱a╱ // 0x9ac @0x31
0x097b…09bc at0032 = ╱6d╱m╱ // 0x9ad @0x32
0x097b…09bc at0033 = ╱6d╱m╱ // 0x9ae @0x33
0x097b…09bc at0034 = ╱65╱e╱ // 0x9af @0x34
0x097b…09bc at0035 = ╱74╱t╱ // 0x9b0 @0x35
0x097b…09bc at0036 = ╱2e╱.╱ // 0x9b1 @0x36
0x097b…09bc at0037 = ╱22╱"╱ // 0x9b2 @0x37
0x097b…09bc at0038 = ╱ea╱ ; ╱ // 0x9b3 @0x38
0x097b…09bc at0039 = ╱d0╱ CHR$ ╱ // 0x9b4 @0x39
0x097b…09bc at003a = ╱ed╱ ( ╱ // 0x9b5 @0x3a
0x097b…09bc at003b = ╱37╱7╱ // 0x9b6 @0x3b
0x097b…09bc at003c = ╱f20700╱ // 0x9b7 @0x3c
0x097b…09bc at003f = ╱ee╱ ) ╱ // 0x9ba @0x3f
0x097b…09bc at0040 = EOL // 0x9bb @0x40
0x097b…09bc }
0x09bc…09c2 9fb0 01310 ENDIF
0x09bc…09c2 LineComal80 {
0x09bc…09c2 ptr = 0x9fb0 // 0x9bc @0x0
0x09bc…09c2 lno = 0x051e // 0x9be @0x2
0x09bc…09c2 at0004 = ╱9c╱ ENDIF ╱ // 0x9c0 @0x4
0x09bc…09c2 at0005 = EOL // 0x9c1 @0x5
0x09bc…09c2 }
0x09c2…09d5 9fc3 01320 UNTIL S $ = "j" OR S $ = "n"
0x09c2…09d5 LineComal80 {
0x09c2…09d5 ptr = 0x9fc3 // 0x9c2 @0x0
0x09c2…09d5 lno = 0x0528 // 0x9c4 @0x2
0x09c2…09d5 at0004 = ╱98╱ UNTIL ╱ // 0x9c6 @0x4
0x09c2…09d5 at0005 = ╱53╱S╱ // 0x9c7 @0x5
0x09c2…09d5 at0006 = ╱ef╱ $ ╱ // 0x9c8 @0x6
0x09c2…09d5 at0007 = ╱df╱ = ╱ // 0x9c9 @0x7
0x09c2…09d5 at0008 = ╱22╱"╱ // 0x9ca @0x8
0x09c2…09d5 at0009 = ╱6a╱j╱ // 0x9cb @0x9
0x09c2…09d5 at000a = ╱22╱"╱ // 0x9cc @0xa
0x09c2…09d5 at000b = ╱d8╱ OR ╱ // 0x9cd @0xb
0x09c2…09d5 at000c = ╱53╱S╱ // 0x9ce @0xc
0x09c2…09d5 at000d = ╱ef╱ $ ╱ // 0x9cf @0xd
0x09c2…09d5 at000e = ╱df╱ = ╱ // 0x9d0 @0xe
0x09c2…09d5 at000f = ╱22╱"╱ // 0x9d1 @0xf
0x09c2…09d5 at0010 = ╱6e╱n╱ // 0x9d2 @0x10
0x09c2…09d5 at0011 = ╱22╱"╱ // 0x9d3 @0x11
0x09c2…09d5 at0012 = EOL // 0x9d4 @0x12
0x09c2…09d5 }
0x09d5…09de 9fcc 01330 PRINT LI $
0x09d5…09de LineComal80 {
0x09d5…09de ptr = 0x9fcc // 0x9d5 @0x0
0x09d5…09de lno = 0x0532 // 0x9d7 @0x2
0x09d5…09de at0004 = ╱92╱ PRINT ╱ // 0x9d9 @0x4
0x09d5…09de at0005 = ╱4c╱L╱ // 0x9da @0x5
0x09d5…09de at0006 = ╱49╱I╱ // 0x9db @0x6
0x09d5…09de at0007 = ╱ef╱ $ ╱ // 0x9dc @0x7
0x09d5…09de at0008 = EOL // 0x9dd @0x8
0x09d5…09de }
0x09de…09e8 9fd6 01340 ENDPROC SVAR
0x09de…09e8 LineComal80 {
0x09de…09e8 ptr = 0x9fd6 // 0x9de @0x0
0x09de…09e8 lno = 0x053c // 0x9e0 @0x2
0x09de…09e8 at0004 = ╱9f╱ ENDPROC ╱ // 0x9e2 @0x4
0x09de…09e8 at0005 = ╱53╱S╱ // 0x9e3 @0x5
0x09de…09e8 at0006 = ╱56╱V╱ // 0x9e4 @0x6
0x09de…09e8 at0007 = ╱41╱A╱ // 0x9e5 @0x7
0x09de…09e8 at0008 = ╱52╱R╱ // 0x9e6 @0x8
0x09de…09e8 at0009 = EOL // 0x9e7 @0x9
0x09de…09e8 }
0x09e8…09f5 9fe3 01350 PROC LSKRIV
0x09e8…09f5 LineComal80 {
0x09e8…09f5 ptr = 0x9fe3 // 0x9e8 @0x0
0x09e8…09f5 lno = 0x0546 // 0x9ea @0x2
0x09e8…09f5 at0004 = ╱9e17╱ PROC ╱ // 0x9ec @0x4
0x09e8…09f5 at0006 = ╱4c╱L╱ // 0x9ee @0x6
0x09e8…09f5 at0007 = ╱53╱S╱ // 0x9ef @0x7
0x09e8…09f5 at0008 = ╱4b╱K╱ // 0x9f0 @0x8
0x09e8…09f5 at0009 = ╱52╱R╱ // 0x9f1 @0x9
0x09e8…09f5 at000a = ╱49╱I╱ // 0x9f2 @0xa
0x09e8…09f5 at000b = ╱56╱V╱ // 0x9f3 @0xb
0x09e8…09f5 at000c = EOL // 0x9f4 @0xc
0x09e8…09f5 }
0x09f5…09fb 9fe9 01360 PRINT
0x09f5…09fb LineComal80 {
0x09f5…09fb ptr = 0x9fe9 // 0x9f5 @0x0
0x09f5…09fb lno = 0x0550 // 0x9f7 @0x2
0x09f5…09fb at0004 = ╱92╱ PRINT ╱ // 0x9f9 @0x4
0x09f5…09fb at0005 = EOL // 0x9fa @0x5
0x09f5…09fb }
0x09fb…0a07 9ff5 01370 ENDPROC LSKRIV
0x09fb…0a07 LineComal80 {
0x09fb…0a07 ptr = 0x9ff5 // 0x9fb @0x0
0x09fb…0a07 lno = 0x055a // 0x9fd @0x2
0x09fb…0a07 at0004 = ╱9f╱ ENDPROC ╱ // 0x9ff @0x4
0x09fb…0a07 at0005 = ╱4c╱L╱ // 0xa00 @0x5
0x09fb…0a07 at0006 = ╱53╱S╱ // 0xa01 @0x6
0x09fb…0a07 at0007 = ╱4b╱K╱ // 0xa02 @0x7
0x09fb…0a07 at0008 = ╱52╱R╱ // 0xa03 @0x8
0x09fb…0a07 at0009 = ╱49╱I╱ // 0xa04 @0x9
0x09fb…0a07 at000a = ╱56╱V╱ // 0xa05 @0xa
0x09fb…0a07 at000b = EOL // 0xa06 @0xb
0x09fb…0a07 }
0x0a07…0a15 a003 01380 PROC LSKRIV3
0x0a07…0a15 LineComal80 {
0x0a07…0a15 ptr = 0xa003 // 0xa07 @0x0
0x0a07…0a15 lno = 0x0564 // 0xa09 @0x2
0x0a07…0a15 at0004 = ╱9e18╱ PROC ╱ // 0xa0b @0x4
0x0a07…0a15 at0006 = ╱4c╱L╱ // 0xa0d @0x6
0x0a07…0a15 at0007 = ╱53╱S╱ // 0xa0e @0x7
0x0a07…0a15 at0008 = ╱4b╱K╱ // 0xa0f @0x8
0x0a07…0a15 at0009 = ╱52╱R╱ // 0xa10 @0x9
0x0a07…0a15 at000a = ╱49╱I╱ // 0xa11 @0xa
0x0a07…0a15 at000b = ╱56╱V╱ // 0xa12 @0xb
0x0a07…0a15 at000c = ╱33╱3╱ // 0xa13 @0xc
0x0a07…0a15 at000d = EOL // 0xa14 @0xd
0x0a07…0a15 }
0x0a15…0a1e a00c 01390 PRINT QT $
0x0a15…0a1e LineComal80 {
0x0a15…0a1e ptr = 0xa00c // 0xa15 @0x0
0x0a15…0a1e lno = 0x056e // 0xa17 @0x2
0x0a15…0a1e at0004 = ╱92╱ PRINT ╱ // 0xa19 @0x4
0x0a15…0a1e at0005 = ╱51╱Q╱ // 0xa1a @0x5
0x0a15…0a1e at0006 = ╱54╱T╱ // 0xa1b @0x6
0x0a15…0a1e at0007 = ╱ef╱ $ ╱ // 0xa1c @0x7
0x0a15…0a1e at0008 = EOL // 0xa1d @0x8
0x0a15…0a1e }
0x0a1e…0a2b a019 01400 ENDPROC LSKRIV3
0x0a1e…0a2b LineComal80 {
0x0a1e…0a2b ptr = 0xa019 // 0xa1e @0x0
0x0a1e…0a2b lno = 0x0578 // 0xa20 @0x2
0x0a1e…0a2b at0004 = ╱9f╱ ENDPROC ╱ // 0xa22 @0x4
0x0a1e…0a2b at0005 = ╱4c╱L╱ // 0xa23 @0x5
0x0a1e…0a2b at0006 = ╱53╱S╱ // 0xa24 @0x6
0x0a1e…0a2b at0007 = ╱4b╱K╱ // 0xa25 @0x7
0x0a1e…0a2b at0008 = ╱52╱R╱ // 0xa26 @0x8
0x0a1e…0a2b at0009 = ╱49╱I╱ // 0xa27 @0x9
0x0a1e…0a2b at000a = ╱56╱V╱ // 0xa28 @0xa
0x0a1e…0a2b at000b = ╱33╱3╱ // 0xa29 @0xb
0x0a1e…0a2b at000c = EOL // 0xa2a @0xc
0x0a1e…0a2b }
0x0a2b…0a38 a026 01410 PROC ]RSOPG
0x0a2b…0a38 LineComal80 {
0x0a2b…0a38 ptr = 0xa026 // 0xa2b @0x0
0x0a2b…0a38 lno = 0x0582 // 0xa2d @0x2
0x0a2b…0a38 at0004 = ╱9e19╱ PROC ╱ // 0xa2f @0x4
0x0a2b…0a38 at0006 = ╱5d╱]╱ // 0xa31 @0x6
0x0a2b…0a38 at0007 = ╱52╱R╱ // 0xa32 @0x7
0x0a2b…0a38 at0008 = ╱53╱S╱ // 0xa33 @0x8
0x0a2b…0a38 at0009 = ╱4f╱O╱ // 0xa34 @0x9
0x0a2b…0a38 at000a = ╱50╱P╱ // 0xa35 @0xa
0x0a2b…0a38 at000b = ╱47╱G╱ // 0xa36 @0xb
0x0a2b…0a38 at000c = EOL // 0xa37 @0xc
0x0a2b…0a38 }
0x0a38…0a4d a03b 01420 IF Y = 1 THEN LET DD6 := D6
0x0a38…0a4d LineComal80 {
0x0a38…0a4d ptr = 0xa03b // 0xa38 @0x0
0x0a38…0a4d lno = 0x058c // 0xa3a @0x2
0x0a38…0a4d at0004 = ╱8200╱ IF ╱ // 0xa3c @0x4
0x0a38…0a4d at0006 = ╱59╱Y╱ // 0xa3e @0x6
0x0a38…0a4d at0007 = ╱df╱ = ╱ // 0xa3f @0x7
0x0a38…0a4d at0008 = ╱31╱1╱ // 0xa40 @0x8
0x0a38…0a4d at0009 = ╱f20100╱ // 0xa41 @0x9
0x0a38…0a4d at000c = ╱b5╱ THEN ╱ // 0xa44 @0xc
0x0a38…0a4d at000d = ╱86╱ LET ╱ // 0xa45 @0xd
0x0a38…0a4d at000e = ╱44╱D╱ // 0xa46 @0xe
0x0a38…0a4d at000f = ╱44╱D╱ // 0xa47 @0xf
0x0a38…0a4d at0010 = ╱36╱6╱ // 0xa48 @0x10
0x0a38…0a4d at0011 = ╱f0╱ := ╱ // 0xa49 @0x11
0x0a38…0a4d at0012 = ╱44╱D╱ // 0xa4a @0x12
0x0a38…0a4d at0013 = ╱36╱6╱ // 0xa4b @0x13
0x0a38…0a4d at0014 = EOL // 0xa4c @0x14
0x0a38…0a4d }
0x0a4d…0a63 a051 01430 LET A ( 27 ) := SKG + AKT
0x0a4d…0a63 LineComal80 {
0x0a4d…0a63 ptr = 0xa051 // 0xa4d @0x0
0x0a4d…0a63 lno = 0x0596 // 0xa4f @0x2
0x0a4d…0a63 at0004 = ╱86╱ LET ╱ // 0xa51 @0x4
0x0a4d…0a63 at0005 = ╱41╱A╱ // 0xa52 @0x5
0x0a4d…0a63 at0006 = ╱ed╱ ( ╱ // 0xa53 @0x6
0x0a4d…0a63 at0007 = ╱32╱2╱ // 0xa54 @0x7
0x0a4d…0a63 at0008 = ╱37╱7╱ // 0xa55 @0x8
0x0a4d…0a63 at0009 = ╱f21b00╱ // 0xa56 @0x9
0x0a4d…0a63 at000c = ╱ee╱ ) ╱ // 0xa59 @0xc
0x0a4d…0a63 at000d = ╱f0╱ := ╱ // 0xa5a @0xd
0x0a4d…0a63 at000e = ╱53╱S╱ // 0xa5b @0xe
0x0a4d…0a63 at000f = ╱4b╱K╱ // 0xa5c @0xf
0x0a4d…0a63 at0010 = ╱47╱G╱ // 0xa5d @0x10
0x0a4d…0a63 at0011 = ╱e5╱ + ╱ // 0xa5e @0x11
0x0a4d…0a63 at0012 = ╱41╱A╱ // 0xa5f @0x12
0x0a4d…0a63 at0013 = ╱4b╱K╱ // 0xa60 @0x13
0x0a4d…0a63 at0014 = ╱54╱T╱ // 0xa61 @0x14
0x0a4d…0a63 at0015 = EOL // 0xa62 @0x15
0x0a4d…0a63 }
0x0a63…0a69 a7b4 01440 PRINT
0x0a63…0a69 LineComal80 {
0x0a63…0a69 ptr = 0xa7b4 // 0xa63 @0x0
0x0a63…0a69 lno = 0x05a0 // 0xa65 @0x2
0x0a63…0a69 at0004 = ╱92╱ PRINT ╱ // 0xa67 @0x4
0x0a63…0a69 at0005 = EOL // 0xa68 @0x5
0x0a63…0a69 }
0x0a69…0a97 a085 01450 LET QT $ := "SLUTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
0x0a69…0a97 LineComal80 {
0x0a69…0a97 ptr = 0xa085 // 0xa69 @0x0
0x0a69…0a97 lno = 0x05aa // 0xa6b @0x2
0x0a69…0a97 at0004 = ╱86╱ LET ╱ // 0xa6d @0x4
0x0a69…0a97 at0005 = ╱51╱Q╱ // 0xa6e @0x5
0x0a69…0a97 at0006 = ╱54╱T╱ // 0xa6f @0x6
0x0a69…0a97 at0007 = ╱ef╱ $ ╱ // 0xa70 @0x7
0x0a69…0a97 at0008 = ╱f0╱ := ╱ // 0xa71 @0x8
0x0a69…0a97 at0009 = ╱22╱"╱ // 0xa72 @0x9
0x0a69…0a97 at000a = ╱53╱S╱ // 0xa73 @0xa
0x0a69…0a97 at000b = ╱4c╱L╱ // 0xa74 @0xb
0x0a69…0a97 at000c = ╱55╱U╱ // 0xa75 @0xc
0x0a69…0a97 at000d = ╱54╱T╱ // 0xa76 @0xd
0x0a69…0a97 at000e = ╱53╱S╱ // 0xa77 @0xe
0x0a69…0a97 at000f = ╱4b╱K╱ // 0xa78 @0xf
0x0a69…0a97 at0010 = ╱41╱A╱ // 0xa79 @0x10
0x0a69…0a97 at0011 = ╱54╱T╱ // 0xa7a @0x11
0x0a69…0a97 at0012 = ╱22╱"╱ // 0xa7b @0x12
0x0a69…0a97 at0013 = ╱eb╱ + ╱ // 0xa7c @0x13
0x0a69…0a97 at0014 = ╱50╱P╱ // 0xa7d @0x14
0x0a69…0a97 at0015 = ╱49╱I╱ // 0xa7e @0x15
0x0a69…0a97 at0016 = ╱4c╱L╱ // 0xa7f @0x16
0x0a69…0a97 at0017 = ╱ef╱ $ ╱ // 0xa80 @0x17
0x0a69…0a97 at0018 = ╱ed╱ ( ╱ // 0xa81 @0x18
0x0a69…0a97 at0019 = ╱31╱1╱ // 0xa82 @0x19
0x0a69…0a97 at001a = ╱f20100╱ // 0xa83 @0x1a
0x0a69…0a97 at001d = ╱f1╱ : ╱ // 0xa86 @0x1d
0x0a69…0a97 at001e = ╱32╱2╱ // 0xa87 @0x1e
0x0a69…0a97 at001f = ╱33╱3╱ // 0xa88 @0x1f
0x0a69…0a97 at0020 = ╱f21700╱ // 0xa89 @0x20
0x0a69…0a97 at0023 = ╱ee╱ ) ╱ // 0xa8c @0x23
0x0a69…0a97 at0024 = ╱ea╱ ; ╱ // 0xa8d @0x24
0x0a69…0a97 at0025 = ╱51╱Q╱ // 0xa8e @0x25
0x0a69…0a97 at0026 = ╱42╱B╱ // 0xa8f @0x26
0x0a69…0a97 at0027 = ╱f0╱ := ╱ // 0xa90 @0x27
0x0a69…0a97 at0028 = ╱c6╱ INT ╱ // 0xa91 @0x28
0x0a69…0a97 at0029 = ╱ed╱ ( ╱ // 0xa92 @0x29
0x0a69…0a97 at002a = ╱44╱D╱ // 0xa93 @0x2a
0x0a69…0a97 at002b = ╱36╱6╱ // 0xa94 @0x2b
0x0a69…0a97 at002c = ╱ee╱ ) ╱ // 0xa95 @0x2c
0x0a69…0a97 at002d = EOL // 0xa96 @0x2d
0x0a69…0a97 }
0x0a97…0aa4 a092 01460 EXEC LSKRIV1
0x0a97…0aa4 LineComal80 {
0x0a97…0aa4 ptr = 0xa092 // 0xa97 @0x0
0x0a97…0aa4 lno = 0x05b4 // 0xa99 @0x2
0x0a97…0aa4 at0004 = ╱9d╱ EXEC ╱ // 0xa9b @0x4
0x0a97…0aa4 at0005 = ╱4c╱L╱ // 0xa9c @0x5
0x0a97…0aa4 at0006 = ╱53╱S╱ // 0xa9d @0x6
0x0a97…0aa4 at0007 = ╱4b╱K╱ // 0xa9e @0x7
0x0a97…0aa4 at0008 = ╱52╱R╱ // 0xa9f @0x8
0x0a97…0aa4 at0009 = ╱49╱I╱ // 0xaa0 @0x9
0x0a97…0aa4 at000a = ╱56╱V╱ // 0xaa1 @0xa
0x0a97…0aa4 at000b = ╱31╱1╱ // 0xaa2 @0xb
0x0a97…0aa4 at000c = EOL // 0xaa3 @0xc
0x0a97…0aa4 }
0x0aa4…0ab9 a0a7 01470 FOR X := 24 TO 9 DO
0x0aa4…0ab9 LineComal80 {
0x0aa4…0ab9 ptr = 0xa0a7 // 0xaa4 @0x0
0x0aa4…0ab9 lno = 0x05be // 0xaa6 @0x2
0x0aa4…0ab9 at0004 = ╱831a╱ FOR ╱ // 0xaa8 @0x4
0x0aa4…0ab9 at0006 = ╱58╱X╱ // 0xaaa @0x6
0x0aa4…0ab9 at0007 = ╱f0╱ := ╱ // 0xaab @0x7
0x0aa4…0ab9 at0008 = ╱32╱2╱ // 0xaac @0x8
0x0aa4…0ab9 at0009 = ╱34╱4╱ // 0xaad @0x9
0x0aa4…0ab9 at000a = ╱f21800╱ // 0xaae @0xa
0x0aa4…0ab9 at000d = ╱b732╱ TO ╱ // 0xab1 @0xd
0x0aa4…0ab9 at000f = ╱39╱9╱ // 0xab3 @0xf
0x0aa4…0ab9 at0010 = ╱f21d00╱ // 0xab4 @0x10
0x0aa4…0ab9 at0013 = ╱bb╱ DO ╱ // 0xab7 @0x13
0x0aa4…0ab9 at0014 = EOL // 0xab8 @0x14
0x0aa4…0ab9 }
0x0ab9…0ada a0c8 01480 IF ( X ) > 0 AND X >< 28 AND X >< 29 THEN
0x0ab9…0ada LineComal80 {
0x0ab9…0ada ptr = 0xa0c8 // 0xab9 @0x0
0x0ab9…0ada lno = 0x05c8 // 0xabb @0x2
0x0ab9…0ada at0004 = ╱9b1b41╱ IF ╱ // 0xabd @0x4
0x0ab9…0ada at0007 = ╱ed╱ ( ╱ // 0xac0 @0x7
0x0ab9…0ada at0008 = ╱58╱X╱ // 0xac1 @0x8
0x0ab9…0ada at0009 = ╱ee╱ ) ╱ // 0xac2 @0x9
0x0ab9…0ada at000a = ╱e1╱ > ╱ // 0xac3 @0xa
0x0ab9…0ada at000b = ╱30╱0╱ // 0xac4 @0xb
0x0ab9…0ada at000c = ╱f20000╱ // 0xac5 @0xc
0x0ab9…0ada at000f = ╱d9╱ AND ╱ // 0xac8 @0xf
0x0ab9…0ada at0010 = ╱58╱X╱ // 0xac9 @0x10
0x0ab9…0ada at0011 = ╱e4╱ >< ╱ // 0xaca @0x11
0x0ab9…0ada at0012 = ╱32╱2╱ // 0xacb @0x12
0x0ab9…0ada at0013 = ╱38╱8╱ // 0xacc @0x13
0x0ab9…0ada at0014 = ╱f21c00╱ // 0xacd @0x14
0x0ab9…0ada at0017 = ╱d9╱ AND ╱ // 0xad0 @0x17
0x0ab9…0ada at0018 = ╱58╱X╱ // 0xad1 @0x18
0x0ab9…0ada at0019 = ╱e4╱ >< ╱ // 0xad2 @0x19
0x0ab9…0ada at001a = ╱32╱2╱ // 0xad3 @0x1a
0x0ab9…0ada at001b = ╱39╱9╱ // 0xad4 @0x1b
0x0ab9…0ada at001c = ╱f21d00╱ // 0xad5 @0x1c
0x0ab9…0ada at001f = ╱b5╱ THEN ╱ // 0xad8 @0x1f
0x0ab9…0ada at0020 = EOL // 0xad9 @0x20
0x0ab9…0ada }
0x0ada…0ae8 a0d6 01490 IF = 1 THEN
0x0ada…0ae8 LineComal80 {
0x0ada…0ae8 ptr = 0xa0d6 // 0xada @0x0
0x0ada…0ae8 lno = 0x05d2 // 0xadc @0x2
0x0ada…0ae8 at0004 = ╱9b1c59╱ IF ╱ // 0xade @0x4
0x0ada…0ae8 at0007 = ╱df╱ = ╱ // 0xae1 @0x7
0x0ada…0ae8 at0008 = ╱31╱1╱ // 0xae2 @0x8
0x0ada…0ae8 at0009 = ╱f20100╱ // 0xae3 @0x9
0x0ada…0ae8 at000c = ╱b5╱ THEN ╱ // 0xae6 @0xc
0x0ada…0ae8 at000d = EOL // 0xae7 @0xd
0x0ada…0ae8 }
0x0ae8…0af8 a0e6 01500 LET D6 := D6 - A ( X )
0x0ae8…0af8 LineComal80 {
0x0ae8…0af8 ptr = 0xa0e6 // 0xae8 @0x0
0x0ae8…0af8 lno = 0x05dc // 0xaea @0x2
0x0ae8…0af8 at0004 = ╱86╱ LET ╱ // 0xaec @0x4
0x0ae8…0af8 at0005 = ╱44╱D╱ // 0xaed @0x5
0x0ae8…0af8 at0006 = ╱36╱6╱ // 0xaee @0x6
0x0ae8…0af8 at0007 = ╱f0╱ := ╱ // 0xaef @0x7
0x0ae8…0af8 at0008 = ╱44╱D╱ // 0xaf0 @0x8
0x0ae8…0af8 at0009 = ╱36╱6╱ // 0xaf1 @0x9
0x0ae8…0af8 at000a = ╱e6╱ - ╱ // 0xaf2 @0xa
0x0ae8…0af8 at000b = ╱41╱A╱ // 0xaf3 @0xb
0x0ae8…0af8 at000c = ╱ed╱ ( ╱ // 0xaf4 @0xc
0x0ae8…0af8 at000d = ╱58╱X╱ // 0xaf5 @0xd
0x0ae8…0af8 at000e = ╱ee╱ ) ╱ // 0xaf6 @0xe
0x0ae8…0af8 at000f = EOL // 0xaf7 @0xf
0x0ae8…0af8 }
0x0af8…0afe a0ec 01510 ENDIF
0x0af8…0afe LineComal80 {
0x0af8…0afe ptr = 0xa0ec // 0xaf8 @0x0
0x0af8…0afe lno = 0x05e6 // 0xafa @0x2
0x0af8…0afe at0004 = ╱9c╱ ENDIF ╱ // 0xafc @0x4
0x0af8…0afe at0005 = EOL // 0xafd @0x5
0x0af8…0afe }
0x0afe…0b09 a0f7 01520 PRINT "-…" ;
0x0afe…0b09 LineComal80 {
0x0afe…0b09 ptr = 0xa0f7 // 0xafe @0x0
0x0afe…0b09 lno = 0x05f0 // 0xb00 @0x2
0x0afe…0b09 at0004 = ╱92╱ PRINT ╱ // 0xb02 @0x4
0x0afe…0b09 at0005 = ╱22╱"╱ // 0xb03 @0x5
0x0afe…0b09 at0006 = ╱2d╱-╱ // 0xb04 @0x6
0x0afe…0b09 at0007 = ╱20╱…╱ // 0xb05 @0x7
0x0afe…0b09 at0008 = ╱22╱"╱ // 0xb06 @0x8
0x0afe…0b09 at0009 = ╱ea╱ ; ╱ // 0xb07 @0x9
0x0afe…0b09 at000a = EOL // 0xb08 @0xa
0x0afe…0b09 }
0x0b09…0b0f a0fd 01530 ENDIF
0x0b09…0b0f LineComal80 {
0x0b09…0b0f ptr = 0xa0fd // 0xb09 @0x0
0x0b09…0b0f lno = 0x05fa // 0xb0b @0x2
0x0b09…0b0f at0004 = ╱9c╱ ENDIF ╱ // 0xb0d @0x4
0x0b09…0b0f at0005 = EOL // 0xb0e @0x5
0x0b09…0b0f }
0x0b0f…0b32 a120 01540 IF ( X ) > 0 AND ( X = 28 OR X = 29 ) THEN
0x0b0f…0b32 LineComal80 {
0x0b0f…0b32 ptr = 0xa120 // 0xb0f @0x0
0x0b0f…0b32 lno = 0x0604 // 0xb11 @0x2
0x0b0f…0b32 at0004 = ╱9b1d41╱ IF ╱ // 0xb13 @0x4
0x0b0f…0b32 at0007 = ╱ed╱ ( ╱ // 0xb16 @0x7
0x0b0f…0b32 at0008 = ╱58╱X╱ // 0xb17 @0x8
0x0b0f…0b32 at0009 = ╱ee╱ ) ╱ // 0xb18 @0x9
0x0b0f…0b32 at000a = ╱e1╱ > ╱ // 0xb19 @0xa
0x0b0f…0b32 at000b = ╱30╱0╱ // 0xb1a @0xb
0x0b0f…0b32 at000c = ╱f20000╱ // 0xb1b @0xc
0x0b0f…0b32 at000f = ╱d9╱ AND ╱ // 0xb1e @0xf
0x0b0f…0b32 at0010 = ╱ed╱ ( ╱ // 0xb1f @0x10
0x0b0f…0b32 at0011 = ╱58╱X╱ // 0xb20 @0x11
0x0b0f…0b32 at0012 = ╱df╱ = ╱ // 0xb21 @0x12
0x0b0f…0b32 at0013 = ╱32╱2╱ // 0xb22 @0x13
0x0b0f…0b32 at0014 = ╱38╱8╱ // 0xb23 @0x14
0x0b0f…0b32 at0015 = ╱f21c00╱ // 0xb24 @0x15
0x0b0f…0b32 at0018 = ╱d8╱ OR ╱ // 0xb27 @0x18
0x0b0f…0b32 at0019 = ╱58╱X╱ // 0xb28 @0x19
0x0b0f…0b32 at001a = ╱df╱ = ╱ // 0xb29 @0x1a
0x0b0f…0b32 at001b = ╱32╱2╱ // 0xb2a @0x1b
0x0b0f…0b32 at001c = ╱39╱9╱ // 0xb2b @0x1c
0x0b0f…0b32 at001d = ╱f21d00╱ // 0xb2c @0x1d
0x0b0f…0b32 at0020 = ╱ee╱ ) ╱ // 0xb2f @0x20
0x0b0f…0b32 at0021 = ╱b5╱ THEN ╱ // 0xb30 @0x21
0x0b0f…0b32 at0022 = EOL // 0xb31 @0x22
0x0b0f…0b32 }
0x0b32…0b40 a12e 01550 IF = 1 THEN
0x0b32…0b40 LineComal80 {
0x0b32…0b40 ptr = 0xa12e // 0xb32 @0x0
0x0b32…0b40 lno = 0x060e // 0xb34 @0x2
0x0b32…0b40 at0004 = ╱9b1e59╱ IF ╱ // 0xb36 @0x4
0x0b32…0b40 at0007 = ╱df╱ = ╱ // 0xb39 @0x7
0x0b32…0b40 at0008 = ╱31╱1╱ // 0xb3a @0x8
0x0b32…0b40 at0009 = ╱f20100╱ // 0xb3b @0x9
0x0b32…0b40 at000c = ╱b5╱ THEN ╱ // 0xb3e @0xc
0x0b32…0b40 at000d = EOL // 0xb3f @0xd
0x0b32…0b40 }
0x0b40…0b50 a13e 01560 LET D6 := D6 + A ( X )
0x0b40…0b50 LineComal80 {
0x0b40…0b50 ptr = 0xa13e // 0xb40 @0x0
0x0b40…0b50 lno = 0x0618 // 0xb42 @0x2
0x0b40…0b50 at0004 = ╱86╱ LET ╱ // 0xb44 @0x4
0x0b40…0b50 at0005 = ╱44╱D╱ // 0xb45 @0x5
0x0b40…0b50 at0006 = ╱36╱6╱ // 0xb46 @0x6
0x0b40…0b50 at0007 = ╱f0╱ := ╱ // 0xb47 @0x7
0x0b40…0b50 at0008 = ╱44╱D╱ // 0xb48 @0x8
0x0b40…0b50 at0009 = ╱36╱6╱ // 0xb49 @0x9
0x0b40…0b50 at000a = ╱e5╱ + ╱ // 0xb4a @0xa
0x0b40…0b50 at000b = ╱41╱A╱ // 0xb4b @0xb
0x0b40…0b50 at000c = ╱ed╱ ( ╱ // 0xb4c @0xc
0x0b40…0b50 at000d = ╱58╱X╱ // 0xb4d @0xd
0x0b40…0b50 at000e = ╱ee╱ ) ╱ // 0xb4e @0xe
0x0b40…0b50 at000f = EOL // 0xb4f @0xf
0x0b40…0b50 }
0x0b50…0b56 a144 01570 ENDIF
0x0b50…0b56 LineComal80 {
0x0b50…0b56 ptr = 0xa144 // 0xb50 @0x0
0x0b50…0b56 lno = 0x0622 // 0xb52 @0x2
0x0b50…0b56 at0004 = ╱9c╱ ENDIF ╱ // 0xb54 @0x4
0x0b50…0b56 at0005 = EOL // 0xb55 @0x5
0x0b50…0b56 }
0x0b56…0b61 a14f 01580 PRINT "+…" ;
0x0b56…0b61 LineComal80 {
0x0b56…0b61 ptr = 0xa14f // 0xb56 @0x0
0x0b56…0b61 lno = 0x062c // 0xb58 @0x2
0x0b56…0b61 at0004 = ╱92╱ PRINT ╱ // 0xb5a @0x4
0x0b56…0b61 at0005 = ╱22╱"╱ // 0xb5b @0x5
0x0b56…0b61 at0006 = ╱2b╱+╱ // 0xb5c @0x6
0x0b56…0b61 at0007 = ╱20╱…╱ // 0xb5d @0x7
0x0b56…0b61 at0008 = ╱22╱"╱ // 0xb5e @0x8
0x0b56…0b61 at0009 = ╱ea╱ ; ╱ // 0xb5f @0x9
0x0b56…0b61 at000a = EOL // 0xb60 @0xa
0x0b56…0b61 }
0x0b61…0b67 a155 01590 ENDIF
0x0b61…0b67 LineComal80 {
0x0b61…0b67 ptr = 0xa155 // 0xb61 @0x0
0x0b61…0b67 lno = 0x0636 // 0xb63 @0x2
0x0b61…0b67 at0004 = ╱9c╱ ENDIF ╱ // 0xb65 @0x4
0x0b61…0b67 at0005 = EOL // 0xb66 @0x5
0x0b61…0b67 }
0x0b67…0b78 a166 01600 IF ( X ) > 0 THEN
0x0b67…0b78 LineComal80 {
0x0b67…0b78 ptr = 0xa166 // 0xb67 @0x0
0x0b67…0b78 lno = 0x0640 // 0xb69 @0x2
0x0b67…0b78 at0004 = ╱9b1f41╱ IF ╱ // 0xb6b @0x4
0x0b67…0b78 at0007 = ╱ed╱ ( ╱ // 0xb6e @0x7
0x0b67…0b78 at0008 = ╱58╱X╱ // 0xb6f @0x8
0x0b67…0b78 at0009 = ╱ee╱ ) ╱ // 0xb70 @0x9
0x0b67…0b78 at000a = ╱e1╱ > ╱ // 0xb71 @0xa
0x0b67…0b78 at000b = ╱30╱0╱ // 0xb72 @0xb
0x0b67…0b78 at000c = ╱f20000╱ // 0xb73 @0xc
0x0b67…0b78 at000f = ╱b5╱ THEN ╱ // 0xb76 @0xf
0x0b67…0b78 at0010 = EOL // 0xb77 @0x10
0x0b67…0b78 }
0x0b78…0b90 a17e 01610 LET QT $ := A1 $ ( X ) ; QB := A ( X )
0x0b78…0b90 LineComal80 {
0x0b78…0b90 ptr = 0xa17e // 0xb78 @0x0
0x0b78…0b90 lno = 0x064a // 0xb7a @0x2
0x0b78…0b90 at0004 = ╱86╱ LET ╱ // 0xb7c @0x4
0x0b78…0b90 at0005 = ╱51╱Q╱ // 0xb7d @0x5
0x0b78…0b90 at0006 = ╱54╱T╱ // 0xb7e @0x6
0x0b78…0b90 at0007 = ╱ef╱ $ ╱ // 0xb7f @0x7
0x0b78…0b90 at0008 = ╱f0╱ := ╱ // 0xb80 @0x8
0x0b78…0b90 at0009 = ╱41╱A╱ // 0xb81 @0x9
0x0b78…0b90 at000a = ╱31╱1╱ // 0xb82 @0xa
0x0b78…0b90 at000b = ╱ef╱ $ ╱ // 0xb83 @0xb
0x0b78…0b90 at000c = ╱ed╱ ( ╱ // 0xb84 @0xc
0x0b78…0b90 at000d = ╱58╱X╱ // 0xb85 @0xd
0x0b78…0b90 at000e = ╱ee╱ ) ╱ // 0xb86 @0xe
0x0b78…0b90 at000f = ╱ea╱ ; ╱ // 0xb87 @0xf
0x0b78…0b90 at0010 = ╱51╱Q╱ // 0xb88 @0x10
0x0b78…0b90 at0011 = ╱42╱B╱ // 0xb89 @0x11
0x0b78…0b90 at0012 = ╱f0╱ := ╱ // 0xb8a @0x12
0x0b78…0b90 at0013 = ╱41╱A╱ // 0xb8b @0x13
0x0b78…0b90 at0014 = ╱ed╱ ( ╱ // 0xb8c @0x14
0x0b78…0b90 at0015 = ╱58╱X╱ // 0xb8d @0x15
0x0b78…0b90 at0016 = ╱ee╱ ) ╱ // 0xb8e @0x16
0x0b78…0b90 at0017 = EOL // 0xb8f @0x17
0x0b78…0b90 }
0x0b90…0b9d a18b 01620 EXEC LSKRIV1
0x0b90…0b9d LineComal80 {
0x0b90…0b9d ptr = 0xa18b // 0xb90 @0x0
0x0b90…0b9d lno = 0x0654 // 0xb92 @0x2
0x0b90…0b9d at0004 = ╱9d╱ EXEC ╱ // 0xb94 @0x4
0x0b90…0b9d at0005 = ╱4c╱L╱ // 0xb95 @0x5
0x0b90…0b9d at0006 = ╱53╱S╱ // 0xb96 @0x6
0x0b90…0b9d at0007 = ╱4b╱K╱ // 0xb97 @0x7
0x0b90…0b9d at0008 = ╱52╱R╱ // 0xb98 @0x8
0x0b90…0b9d at0009 = ╱49╱I╱ // 0xb99 @0x9
0x0b90…0b9d at000a = ╱56╱V╱ // 0xb9a @0xa
0x0b90…0b9d at000b = ╱31╱1╱ // 0xb9b @0xb
0x0b90…0b9d at000c = EOL // 0xb9c @0xc
0x0b90…0b9d }
0x0b9d…0ba3 a191 01630 ENDIF
0x0b9d…0ba3 LineComal80 {
0x0b9d…0ba3 ptr = 0xa191 // 0xb9d @0x0
0x0b9d…0ba3 lno = 0x065e // 0xb9f @0x2
0x0b9d…0ba3 at0004 = ╱9c╱ ENDIF ╱ // 0xba1 @0x4
0x0b9d…0ba3 at0005 = EOL // 0xba2 @0x5
0x0b9d…0ba3 }
0x0ba3…0baa a198 01640 NEXT X
0x0ba3…0baa LineComal80 {
0x0ba3…0baa ptr = 0xa198 // 0xba3 @0x0
0x0ba3…0baa lno = 0x0668 // 0xba5 @0x2
0x0ba3…0baa at0004 = ╱84╱ NEXT ╱ // 0xba7 @0x4
0x0ba3…0baa at0005 = ╱58╱X╱ // 0xba8 @0x5
0x0ba3…0baa at0006 = EOL // 0xba9 @0x6
0x0ba3…0baa }
0x0baa…0bd2 a1c0 01650 LET QT $ := SP $ ( 1 : 32 ) + "------------"
0x0baa…0bd2 LineComal80 {
0x0baa…0bd2 ptr = 0xa1c0 // 0xbaa @0x0
0x0baa…0bd2 lno = 0x0672 // 0xbac @0x2
0x0baa…0bd2 at0004 = ╱86╱ LET ╱ // 0xbae @0x4
0x0baa…0bd2 at0005 = ╱51╱Q╱ // 0xbaf @0x5
0x0baa…0bd2 at0006 = ╱54╱T╱ // 0xbb0 @0x6
0x0baa…0bd2 at0007 = ╱ef╱ $ ╱ // 0xbb1 @0x7
0x0baa…0bd2 at0008 = ╱f0╱ := ╱ // 0xbb2 @0x8
0x0baa…0bd2 at0009 = ╱53╱S╱ // 0xbb3 @0x9
0x0baa…0bd2 at000a = ╱50╱P╱ // 0xbb4 @0xa
0x0baa…0bd2 at000b = ╱ef╱ $ ╱ // 0xbb5 @0xb
0x0baa…0bd2 at000c = ╱ed╱ ( ╱ // 0xbb6 @0xc
0x0baa…0bd2 at000d = ╱31╱1╱ // 0xbb7 @0xd
0x0baa…0bd2 at000e = ╱f20100╱ // 0xbb8 @0xe
0x0baa…0bd2 at0011 = ╱f1╱ : ╱ // 0xbbb @0x11
0x0baa…0bd2 at0012 = ╱33╱3╱ // 0xbbc @0x12
0x0baa…0bd2 at0013 = ╱32╱2╱ // 0xbbd @0x13
0x0baa…0bd2 at0014 = ╱f22000╱ // 0xbbe @0x14
0x0baa…0bd2 at0017 = ╱ee╱ ) ╱ // 0xbc1 @0x17
0x0baa…0bd2 at0018 = ╱eb╱ + ╱ // 0xbc2 @0x18
0x0baa…0bd2 at0019 = ╱22╱"╱ // 0xbc3 @0x19
0x0baa…0bd2 at001a = ╱2d╱-╱ // 0xbc4 @0x1a
0x0baa…0bd2 at001b = ╱2d╱-╱ // 0xbc5 @0x1b
0x0baa…0bd2 at001c = ╱2d╱-╱ // 0xbc6 @0x1c
0x0baa…0bd2 at001d = ╱2d╱-╱ // 0xbc7 @0x1d
0x0baa…0bd2 at001e = ╱2d╱-╱ // 0xbc8 @0x1e
0x0baa…0bd2 at001f = ╱2d╱-╱ // 0xbc9 @0x1f
0x0baa…0bd2 at0020 = ╱2d╱-╱ // 0xbca @0x20
0x0baa…0bd2 at0021 = ╱2d╱-╱ // 0xbcb @0x21
0x0baa…0bd2 at0022 = ╱2d╱-╱ // 0xbcc @0x22
0x0baa…0bd2 at0023 = ╱2d╱-╱ // 0xbcd @0x23
0x0baa…0bd2 at0024 = ╱2d╱-╱ // 0xbce @0x24
0x0baa…0bd2 at0025 = ╱2d╱-╱ // 0xbcf @0x25
0x0baa…0bd2 at0026 = ╱22╱"╱ // 0xbd0 @0x26
0x0baa…0bd2 at0027 = EOL // 0xbd1 @0x27
0x0baa…0bd2 }
0x0bd2…0bdf a1cd 01660 EXEC LSKRIV3
0x0bd2…0bdf LineComal80 {
0x0bd2…0bdf ptr = 0xa1cd // 0xbd2 @0x0
0x0bd2…0bdf lno = 0x067c // 0xbd4 @0x2
0x0bd2…0bdf at0004 = ╱9d╱ EXEC ╱ // 0xbd6 @0x4
0x0bd2…0bdf at0005 = ╱4c╱L╱ // 0xbd7 @0x5
0x0bd2…0bdf at0006 = ╱53╱S╱ // 0xbd8 @0x6
0x0bd2…0bdf at0007 = ╱4b╱K╱ // 0xbd9 @0x7
0x0bd2…0bdf at0008 = ╱52╱R╱ // 0xbda @0x8
0x0bd2…0bdf at0009 = ╱49╱I╱ // 0xbdb @0x9
0x0bd2…0bdf at000a = ╱56╱V╱ // 0xbdc @0xa
0x0bd2…0bdf at000b = ╱33╱3╱ // 0xbdd @0xb
0x0bd2…0bdf at000c = EOL // 0xbde @0xc
0x0bd2…0bdf }
0x0bdf…0bf1 a786 01670 IF ( D6 ) > 0 THEN
0x0bdf…0bf1 LineComal80 {
0x0bdf…0bf1 ptr = 0xa786 // 0xbdf @0x0
0x0bdf…0bf1 lno = 0x0686 // 0xbe1 @0x2
0x0bdf…0bf1 at0004 = ╱9b20c6╱ IF ╱ // 0xbe3 @0x4
0x0bdf…0bf1 at0007 = ╱ed╱ ( ╱ // 0xbe6 @0x7
0x0bdf…0bf1 at0008 = ╱44╱D╱ // 0xbe7 @0x8
0x0bdf…0bf1 at0009 = ╱36╱6╱ // 0xbe8 @0x9
0x0bdf…0bf1 at000a = ╱ee╱ ) ╱ // 0xbe9 @0xa
0x0bdf…0bf1 at000b = ╱e1╱ > ╱ // 0xbea @0xb
0x0bdf…0bf1 at000c = ╱30╱0╱ // 0xbeb @0xc
0x0bdf…0bf1 at000d = ╱f20000╱ // 0xbec @0xd
0x0bdf…0bf1 at0010 = ╱b5╱ THEN ╱ // 0xbef @0x10
0x0bdf…0bf1 at0011 = EOL // 0xbf0 @0x11
0x0bdf…0bf1 }
0x0bf1…0c1f a20d 01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
0x0bf1…0c1f LineComal80 {
0x0bf1…0c1f ptr = 0xa20d // 0xbf1 @0x0
0x0bf1…0c1f lno = 0x0690 // 0xbf3 @0x2
0x0bf1…0c1f at0004 = ╱86╱ LET ╱ // 0xbf5 @0x4
0x0bf1…0c1f at0005 = ╱51╱Q╱ // 0xbf6 @0x5
0x0bf1…0c1f at0006 = ╱54╱T╱ // 0xbf7 @0x6
0x0bf1…0c1f at0007 = ╱ef╱ $ ╱ // 0xbf8 @0x7
0x0bf1…0c1f at0008 = ╱f0╱ := ╱ // 0xbf9 @0x8
0x0bf1…0c1f at0009 = ╱22╱"╱ // 0xbfa @0x9
0x0bf1…0c1f at000a = ╱52╱R╱ // 0xbfb @0xa
0x0bf1…0c1f at000b = ╱45╱E╱ // 0xbfc @0xb
0x0bf1…0c1f at000c = ╱53╱S╱ // 0xbfd @0xc
0x0bf1…0c1f at000d = ╱54╱T╱ // 0xbfe @0xd
0x0bf1…0c1f at000e = ╱53╱S╱ // 0xbff @0xe
0x0bf1…0c1f at000f = ╱4b╱K╱ // 0xc00 @0xf
0x0bf1…0c1f at0010 = ╱41╱A╱ // 0xc01 @0x10
0x0bf1…0c1f at0011 = ╱54╱T╱ // 0xc02 @0x11
0x0bf1…0c1f at0012 = ╱22╱"╱ // 0xc03 @0x12
0x0bf1…0c1f at0013 = ╱eb╱ + ╱ // 0xc04 @0x13
0x0bf1…0c1f at0014 = ╱50╱P╱ // 0xc05 @0x14
0x0bf1…0c1f at0015 = ╱49╱I╱ // 0xc06 @0x15
0x0bf1…0c1f at0016 = ╱4c╱L╱ // 0xc07 @0x16
0x0bf1…0c1f at0017 = ╱ef╱ $ ╱ // 0xc08 @0x17
0x0bf1…0c1f at0018 = ╱ed╱ ( ╱ // 0xc09 @0x18
0x0bf1…0c1f at0019 = ╱31╱1╱ // 0xc0a @0x19
0x0bf1…0c1f at001a = ╱f20100╱ // 0xc0b @0x1a
0x0bf1…0c1f at001d = ╱f1╱ : ╱ // 0xc0e @0x1d
0x0bf1…0c1f at001e = ╱32╱2╱ // 0xc0f @0x1e
0x0bf1…0c1f at001f = ╱33╱3╱ // 0xc10 @0x1f
0x0bf1…0c1f at0020 = ╱f21700╱ // 0xc11 @0x20
0x0bf1…0c1f at0023 = ╱ee╱ ) ╱ // 0xc14 @0x23
0x0bf1…0c1f at0024 = ╱ea╱ ; ╱ // 0xc15 @0x24
0x0bf1…0c1f at0025 = ╱51╱Q╱ // 0xc16 @0x25
0x0bf1…0c1f at0026 = ╱42╱B╱ // 0xc17 @0x26
0x0bf1…0c1f at0027 = ╱f0╱ := ╱ // 0xc18 @0x27
0x0bf1…0c1f at0028 = ╱c6╱ INT ╱ // 0xc19 @0x28
0x0bf1…0c1f at0029 = ╱ed╱ ( ╱ // 0xc1a @0x29
0x0bf1…0c1f at002a = ╱44╱D╱ // 0xc1b @0x2a
0x0bf1…0c1f at002b = ╱36╱6╱ // 0xc1c @0x2b
0x0bf1…0c1f at002c = ╱ee╱ ) ╱ // 0xc1d @0x2c
0x0bf1…0c1f at002d = EOL // 0xc1e @0x2d
0x0bf1…0c1f }
0x0c1f…0c2c a21a 01690 EXEC LSKRIV1
0x0c1f…0c2c LineComal80 {
0x0c1f…0c2c ptr = 0xa21a // 0xc1f @0x0
0x0c1f…0c2c lno = 0x069a // 0xc21 @0x2
0x0c1f…0c2c at0004 = ╱9d╱ EXEC ╱ // 0xc23 @0x4
0x0c1f…0c2c at0005 = ╱4c╱L╱ // 0xc24 @0x5
0x0c1f…0c2c at0006 = ╱53╱S╱ // 0xc25 @0x6
0x0c1f…0c2c at0007 = ╱4b╱K╱ // 0xc26 @0x7
0x0c1f…0c2c at0008 = ╱52╱R╱ // 0xc27 @0x8
0x0c1f…0c2c at0009 = ╱49╱I╱ // 0xc28 @0x9
0x0c1f…0c2c at000a = ╱56╱V╱ // 0xc29 @0xa
0x0c1f…0c2c at000b = ╱31╱1╱ // 0xc2a @0xb
0x0c1f…0c2c at000c = EOL // 0xc2b @0xc
0x0c1f…0c2c }
0x0c2c…0c32 a220 01700 ENDIF
0x0c2c…0c32 LineComal80 {
0x0c2c…0c32 ptr = 0xa220 // 0xc2c @0x0
0x0c2c…0c32 lno = 0x06a4 // 0xc2e @0x2
0x0c2c…0c32 at0004 = ╱9c╱ ENDIF ╱ // 0xc30 @0x4
0x0c2c…0c32 at0005 = EOL // 0xc31 @0x5
0x0c2c…0c32 }
0x0c32…0c44 a232 01710 IF ( D6 ) = 0 THEN
0x0c32…0c44 LineComal80 {
0x0c32…0c44 ptr = 0xa232 // 0xc32 @0x0
0x0c32…0c44 lno = 0x06ae // 0xc34 @0x2
0x0c32…0c44 at0004 = ╱9b21c6╱ IF ╱ // 0xc36 @0x4
0x0c32…0c44 at0007 = ╱ed╱ ( ╱ // 0xc39 @0x7
0x0c32…0c44 at0008 = ╱44╱D╱ // 0xc3a @0x8
0x0c32…0c44 at0009 = ╱36╱6╱ // 0xc3b @0x9
0x0c32…0c44 at000a = ╱ee╱ ) ╱ // 0xc3c @0xa
0x0c32…0c44 at000b = ╱df╱ = ╱ // 0xc3d @0xb
0x0c32…0c44 at000c = ╱30╱0╱ // 0xc3e @0xc
0x0c32…0c44 at000d = ╱f20000╱ // 0xc3f @0xd
0x0c32…0c44 at0010 = ╱b5╱ THEN ╱ // 0xc42 @0x10
0x0c32…0c44 at0011 = EOL // 0xc43 @0x11
0x0c32…0c44 }
0x0c44…0c78 a266 01720 LET QT $ := "FORSKUDSSKATTEN…STEMMER…MED…SLUTSKATTEN."
0x0c44…0c78 LineComal80 {
0x0c44…0c78 ptr = 0xa266 // 0xc44 @0x0
0x0c44…0c78 lno = 0x06b8 // 0xc46 @0x2
0x0c44…0c78 at0004 = ╱86╱ LET ╱ // 0xc48 @0x4
0x0c44…0c78 at0005 = ╱51╱Q╱ // 0xc49 @0x5
0x0c44…0c78 at0006 = ╱54╱T╱ // 0xc4a @0x6
0x0c44…0c78 at0007 = ╱ef╱ $ ╱ // 0xc4b @0x7
0x0c44…0c78 at0008 = ╱f0╱ := ╱ // 0xc4c @0x8
0x0c44…0c78 at0009 = ╱22╱"╱ // 0xc4d @0x9
0x0c44…0c78 at000a = ╱46╱F╱ // 0xc4e @0xa
0x0c44…0c78 at000b = ╱4f╱O╱ // 0xc4f @0xb
0x0c44…0c78 at000c = ╱52╱R╱ // 0xc50 @0xc
0x0c44…0c78 at000d = ╱53╱S╱ // 0xc51 @0xd
0x0c44…0c78 at000e = ╱4b╱K╱ // 0xc52 @0xe
0x0c44…0c78 at000f = ╱55╱U╱ // 0xc53 @0xf
0x0c44…0c78 at0010 = ╱44╱D╱ // 0xc54 @0x10
0x0c44…0c78 at0011 = ╱53╱S╱ // 0xc55 @0x11
0x0c44…0c78 at0012 = ╱53╱S╱ // 0xc56 @0x12
0x0c44…0c78 at0013 = ╱4b╱K╱ // 0xc57 @0x13
0x0c44…0c78 at0014 = ╱41╱A╱ // 0xc58 @0x14
0x0c44…0c78 at0015 = ╱54╱T╱ // 0xc59 @0x15
0x0c44…0c78 at0016 = ╱54╱T╱ // 0xc5a @0x16
0x0c44…0c78 at0017 = ╱45╱E╱ // 0xc5b @0x17
0x0c44…0c78 at0018 = ╱4e╱N╱ // 0xc5c @0x18
0x0c44…0c78 at0019 = ╱20╱…╱ // 0xc5d @0x19
0x0c44…0c78 at001a = ╱53╱S╱ // 0xc5e @0x1a
0x0c44…0c78 at001b = ╱54╱T╱ // 0xc5f @0x1b
0x0c44…0c78 at001c = ╱45╱E╱ // 0xc60 @0x1c
0x0c44…0c78 at001d = ╱4d╱M╱ // 0xc61 @0x1d
0x0c44…0c78 at001e = ╱4d╱M╱ // 0xc62 @0x1e
0x0c44…0c78 at001f = ╱45╱E╱ // 0xc63 @0x1f
0x0c44…0c78 at0020 = ╱52╱R╱ // 0xc64 @0x20
0x0c44…0c78 at0021 = ╱20╱…╱ // 0xc65 @0x21
0x0c44…0c78 at0022 = ╱4d╱M╱ // 0xc66 @0x22
0x0c44…0c78 at0023 = ╱45╱E╱ // 0xc67 @0x23
0x0c44…0c78 at0024 = ╱44╱D╱ // 0xc68 @0x24
0x0c44…0c78 at0025 = ╱20╱…╱ // 0xc69 @0x25
0x0c44…0c78 at0026 = ╱53╱S╱ // 0xc6a @0x26
0x0c44…0c78 at0027 = ╱4c╱L╱ // 0xc6b @0x27
0x0c44…0c78 at0028 = ╱55╱U╱ // 0xc6c @0x28
0x0c44…0c78 at0029 = ╱54╱T╱ // 0xc6d @0x29
0x0c44…0c78 at002a = ╱53╱S╱ // 0xc6e @0x2a
0x0c44…0c78 at002b = ╱4b╱K╱ // 0xc6f @0x2b
0x0c44…0c78 at002c = ╱41╱A╱ // 0xc70 @0x2c
0x0c44…0c78 at002d = ╱54╱T╱ // 0xc71 @0x2d
0x0c44…0c78 at002e = ╱54╱T╱ // 0xc72 @0x2e
0x0c44…0c78 at002f = ╱45╱E╱ // 0xc73 @0x2f
0x0c44…0c78 at0030 = ╱4e╱N╱ // 0xc74 @0x30
0x0c44…0c78 at0031 = ╱2e╱.╱ // 0xc75 @0x31
0x0c44…0c78 at0032 = ╱22╱"╱ // 0xc76 @0x32
0x0c44…0c78 at0033 = EOL // 0xc77 @0x33
0x0c44…0c78 }
0x0c78…0c85 a273 01730 EXEC LSKRIV3
0x0c78…0c85 LineComal80 {
0x0c78…0c85 ptr = 0xa273 // 0xc78 @0x0
0x0c78…0c85 lno = 0x06c2 // 0xc7a @0x2
0x0c78…0c85 at0004 = ╱9d╱ EXEC ╱ // 0xc7c @0x4
0x0c78…0c85 at0005 = ╱4c╱L╱ // 0xc7d @0x5
0x0c78…0c85 at0006 = ╱53╱S╱ // 0xc7e @0x6
0x0c78…0c85 at0007 = ╱4b╱K╱ // 0xc7f @0x7
0x0c78…0c85 at0008 = ╱52╱R╱ // 0xc80 @0x8
0x0c78…0c85 at0009 = ╱49╱I╱ // 0xc81 @0x9
0x0c78…0c85 at000a = ╱56╱V╱ // 0xc82 @0xa
0x0c78…0c85 at000b = ╱33╱3╱ // 0xc83 @0xb
0x0c78…0c85 at000c = EOL // 0xc84 @0xc
0x0c78…0c85 }
0x0c85…0c8b a279 01740 ENDIF
0x0c85…0c8b LineComal80 {
0x0c85…0c8b ptr = 0xa279 // 0xc85 @0x0
0x0c85…0c8b lno = 0x06cc // 0xc87 @0x2
0x0c85…0c8b at0004 = ╱9c╱ ENDIF ╱ // 0xc89 @0x4
0x0c85…0c8b at0005 = EOL // 0xc8a @0x5
0x0c85…0c8b }
0x0c8b…0c9d a6a4 01750 IF ( D6 ) < 0 THEN
0x0c8b…0c9d LineComal80 {
0x0c8b…0c9d ptr = 0xa6a4 // 0xc8b @0x0
0x0c8b…0c9d lno = 0x06d6 // 0xc8d @0x2
0x0c8b…0c9d at0004 = ╱9b22c6╱ IF ╱ // 0xc8f @0x4
0x0c8b…0c9d at0007 = ╱ed╱ ( ╱ // 0xc92 @0x7
0x0c8b…0c9d at0008 = ╱44╱D╱ // 0xc93 @0x8
0x0c8b…0c9d at0009 = ╱36╱6╱ // 0xc94 @0x9
0x0c8b…0c9d at000a = ╱ee╱ ) ╱ // 0xc95 @0xa
0x0c8b…0c9d at000b = ╱e0╱ < ╱ // 0xc96 @0xb
0x0c8b…0c9d at000c = ╱30╱0╱ // 0xc97 @0xc
0x0c8b…0c9d at000d = ╱f20000╱ // 0xc98 @0xd
0x0c8b…0c9d at0010 = ╱b5╱ THEN ╱ // 0xc9b @0x10
0x0c8b…0c9d at0011 = EOL // 0xc9c @0x11
0x0c8b…0c9d }
0x0c9d…0cd4 a2c2 01760 LET QT $ := "OVERSKYDENDE…SKAT" + PIL $ ( 1 : 14 ) ; QB := INT ( D6 )
0x0c9d…0cd4 LineComal80 {
0x0c9d…0cd4 ptr = 0xa2c2 // 0xc9d @0x0
0x0c9d…0cd4 lno = 0x06e0 // 0xc9f @0x2
0x0c9d…0cd4 at0004 = ╱86╱ LET ╱ // 0xca1 @0x4
0x0c9d…0cd4 at0005 = ╱51╱Q╱ // 0xca2 @0x5
0x0c9d…0cd4 at0006 = ╱54╱T╱ // 0xca3 @0x6
0x0c9d…0cd4 at0007 = ╱ef╱ $ ╱ // 0xca4 @0x7
0x0c9d…0cd4 at0008 = ╱f0╱ := ╱ // 0xca5 @0x8
0x0c9d…0cd4 at0009 = ╱22╱"╱ // 0xca6 @0x9
0x0c9d…0cd4 at000a = ╱4f╱O╱ // 0xca7 @0xa
0x0c9d…0cd4 at000b = ╱56╱V╱ // 0xca8 @0xb
0x0c9d…0cd4 at000c = ╱45╱E╱ // 0xca9 @0xc
0x0c9d…0cd4 at000d = ╱52╱R╱ // 0xcaa @0xd
0x0c9d…0cd4 at000e = ╱53╱S╱ // 0xcab @0xe
0x0c9d…0cd4 at000f = ╱4b╱K╱ // 0xcac @0xf
0x0c9d…0cd4 at0010 = ╱59╱Y╱ // 0xcad @0x10
0x0c9d…0cd4 at0011 = ╱44╱D╱ // 0xcae @0x11
0x0c9d…0cd4 at0012 = ╱45╱E╱ // 0xcaf @0x12
0x0c9d…0cd4 at0013 = ╱4e╱N╱ // 0xcb0 @0x13
0x0c9d…0cd4 at0014 = ╱44╱D╱ // 0xcb1 @0x14
0x0c9d…0cd4 at0015 = ╱45╱E╱ // 0xcb2 @0x15
0x0c9d…0cd4 at0016 = ╱20╱…╱ // 0xcb3 @0x16
0x0c9d…0cd4 at0017 = ╱53╱S╱ // 0xcb4 @0x17
0x0c9d…0cd4 at0018 = ╱4b╱K╱ // 0xcb5 @0x18
0x0c9d…0cd4 at0019 = ╱41╱A╱ // 0xcb6 @0x19
0x0c9d…0cd4 at001a = ╱54╱T╱ // 0xcb7 @0x1a
0x0c9d…0cd4 at001b = ╱22╱"╱ // 0xcb8 @0x1b
0x0c9d…0cd4 at001c = ╱eb╱ + ╱ // 0xcb9 @0x1c
0x0c9d…0cd4 at001d = ╱50╱P╱ // 0xcba @0x1d
0x0c9d…0cd4 at001e = ╱49╱I╱ // 0xcbb @0x1e
0x0c9d…0cd4 at001f = ╱4c╱L╱ // 0xcbc @0x1f
0x0c9d…0cd4 at0020 = ╱ef╱ $ ╱ // 0xcbd @0x20
0x0c9d…0cd4 at0021 = ╱ed╱ ( ╱ // 0xcbe @0x21
0x0c9d…0cd4 at0022 = ╱31╱1╱ // 0xcbf @0x22
0x0c9d…0cd4 at0023 = ╱f20100╱ // 0xcc0 @0x23
0x0c9d…0cd4 at0026 = ╱f1╱ : ╱ // 0xcc3 @0x26
0x0c9d…0cd4 at0027 = ╱31╱1╱ // 0xcc4 @0x27
0x0c9d…0cd4 at0028 = ╱34╱4╱ // 0xcc5 @0x28
0x0c9d…0cd4 at0029 = ╱f20e00╱ // 0xcc6 @0x29
0x0c9d…0cd4 at002c = ╱ee╱ ) ╱ // 0xcc9 @0x2c
0x0c9d…0cd4 at002d = ╱ea╱ ; ╱ // 0xcca @0x2d
0x0c9d…0cd4 at002e = ╱51╱Q╱ // 0xccb @0x2e
0x0c9d…0cd4 at002f = ╱42╱B╱ // 0xccc @0x2f
0x0c9d…0cd4 at0030 = ╱f0╱ := ╱ // 0xccd @0x30
0x0c9d…0cd4 at0031 = ╱c6╱ INT ╱ // 0xcce @0x31
0x0c9d…0cd4 at0032 = ╱ed╱ ( ╱ // 0xccf @0x32
0x0c9d…0cd4 at0033 = ╱44╱D╱ // 0xcd0 @0x33
0x0c9d…0cd4 at0034 = ╱36╱6╱ // 0xcd1 @0x34
0x0c9d…0cd4 at0035 = ╱ee╱ ) ╱ // 0xcd2 @0x35
0x0c9d…0cd4 at0036 = EOL // 0xcd3 @0x36
0x0c9d…0cd4 }
0x0cd4…0ce1 a2cf 01770 EXEC LSKRIV1
0x0cd4…0ce1 LineComal80 {
0x0cd4…0ce1 ptr = 0xa2cf // 0xcd4 @0x0
0x0cd4…0ce1 lno = 0x06ea // 0xcd6 @0x2
0x0cd4…0ce1 at0004 = ╱9d╱ EXEC ╱ // 0xcd8 @0x4
0x0cd4…0ce1 at0005 = ╱4c╱L╱ // 0xcd9 @0x5
0x0cd4…0ce1 at0006 = ╱53╱S╱ // 0xcda @0x6
0x0cd4…0ce1 at0007 = ╱4b╱K╱ // 0xcdb @0x7
0x0cd4…0ce1 at0008 = ╱52╱R╱ // 0xcdc @0x8
0x0cd4…0ce1 at0009 = ╱49╱I╱ // 0xcdd @0x9
0x0cd4…0ce1 at000a = ╱56╱V╱ // 0xcde @0xa
0x0cd4…0ce1 at000b = ╱31╱1╱ // 0xcdf @0xb
0x0cd4…0ce1 at000c = EOL // 0xce0 @0xc
0x0cd4…0ce1 }
0x0ce1…0ce7 a2d5 01780 ENDIF
0x0ce1…0ce7 LineComal80 {
0x0ce1…0ce7 ptr = 0xa2d5 // 0xce1 @0x0
0x0ce1…0ce7 lno = 0x06f4 // 0xce3 @0x2
0x0ce1…0ce7 at0004 = ╱9c╱ ENDIF ╱ // 0xce5 @0x4
0x0ce1…0ce7 at0005 = EOL // 0xce6 @0x5
0x0ce1…0ce7 }
0x0ce7…0cf9 a2e7 01790 IF ( D6 ) >< 0 THEN
0x0ce7…0cf9 LineComal80 {
0x0ce7…0cf9 ptr = 0xa2e7 // 0xce7 @0x0
0x0ce7…0cf9 lno = 0x06fe // 0xce9 @0x2
0x0ce7…0cf9 at0004 = ╱9b23c6╱ IF ╱ // 0xceb @0x4
0x0ce7…0cf9 at0007 = ╱ed╱ ( ╱ // 0xcee @0x7
0x0ce7…0cf9 at0008 = ╱44╱D╱ // 0xcef @0x8
0x0ce7…0cf9 at0009 = ╱36╱6╱ // 0xcf0 @0x9
0x0ce7…0cf9 at000a = ╱ee╱ ) ╱ // 0xcf1 @0xa
0x0ce7…0cf9 at000b = ╱e4╱ >< ╱ // 0xcf2 @0xb
0x0ce7…0cf9 at000c = ╱30╱0╱ // 0xcf3 @0xc
0x0ce7…0cf9 at000d = ╱f20000╱ // 0xcf4 @0xd
0x0ce7…0cf9 at0010 = ╱b5╱ THEN ╱ // 0xcf7 @0x10
0x0ce7…0cf9 at0011 = EOL // 0xcf8 @0x11
0x0ce7…0cf9 }
0x0cf9…0d21 a30f 01800 LET QT $ := SP $ ( 1 : 32 ) + "============"
0x0cf9…0d21 LineComal80 {
0x0cf9…0d21 ptr = 0xa30f // 0xcf9 @0x0
0x0cf9…0d21 lno = 0x0708 // 0xcfb @0x2
0x0cf9…0d21 at0004 = ╱86╱ LET ╱ // 0xcfd @0x4
0x0cf9…0d21 at0005 = ╱51╱Q╱ // 0xcfe @0x5
0x0cf9…0d21 at0006 = ╱54╱T╱ // 0xcff @0x6
0x0cf9…0d21 at0007 = ╱ef╱ $ ╱ // 0xd00 @0x7
0x0cf9…0d21 at0008 = ╱f0╱ := ╱ // 0xd01 @0x8
0x0cf9…0d21 at0009 = ╱53╱S╱ // 0xd02 @0x9
0x0cf9…0d21 at000a = ╱50╱P╱ // 0xd03 @0xa
0x0cf9…0d21 at000b = ╱ef╱ $ ╱ // 0xd04 @0xb
0x0cf9…0d21 at000c = ╱ed╱ ( ╱ // 0xd05 @0xc
0x0cf9…0d21 at000d = ╱31╱1╱ // 0xd06 @0xd
0x0cf9…0d21 at000e = ╱f20100╱ // 0xd07 @0xe
0x0cf9…0d21 at0011 = ╱f1╱ : ╱ // 0xd0a @0x11
0x0cf9…0d21 at0012 = ╱33╱3╱ // 0xd0b @0x12
0x0cf9…0d21 at0013 = ╱32╱2╱ // 0xd0c @0x13
0x0cf9…0d21 at0014 = ╱f22000╱ // 0xd0d @0x14
0x0cf9…0d21 at0017 = ╱ee╱ ) ╱ // 0xd10 @0x17
0x0cf9…0d21 at0018 = ╱eb╱ + ╱ // 0xd11 @0x18
0x0cf9…0d21 at0019 = ╱22╱"╱ // 0xd12 @0x19
0x0cf9…0d21 at001a = ╱3d╱=╱ // 0xd13 @0x1a
0x0cf9…0d21 at001b = ╱3d╱=╱ // 0xd14 @0x1b
0x0cf9…0d21 at001c = ╱3d╱=╱ // 0xd15 @0x1c
0x0cf9…0d21 at001d = ╱3d╱=╱ // 0xd16 @0x1d
0x0cf9…0d21 at001e = ╱3d╱=╱ // 0xd17 @0x1e
0x0cf9…0d21 at001f = ╱3d╱=╱ // 0xd18 @0x1f
0x0cf9…0d21 at0020 = ╱3d╱=╱ // 0xd19 @0x20
0x0cf9…0d21 at0021 = ╱3d╱=╱ // 0xd1a @0x21
0x0cf9…0d21 at0022 = ╱3d╱=╱ // 0xd1b @0x22
0x0cf9…0d21 at0023 = ╱3d╱=╱ // 0xd1c @0x23
0x0cf9…0d21 at0024 = ╱3d╱=╱ // 0xd1d @0x24
0x0cf9…0d21 at0025 = ╱3d╱=╱ // 0xd1e @0x25
0x0cf9…0d21 at0026 = ╱22╱"╱ // 0xd1f @0x26
0x0cf9…0d21 at0027 = EOL // 0xd20 @0x27
0x0cf9…0d21 }
0x0d21…0d2e a31c 01810 EXEC LSKRIV3
0x0d21…0d2e LineComal80 {
0x0d21…0d2e ptr = 0xa31c // 0xd21 @0x0
0x0d21…0d2e lno = 0x0712 // 0xd23 @0x2
0x0d21…0d2e at0004 = ╱9d╱ EXEC ╱ // 0xd25 @0x4
0x0d21…0d2e at0005 = ╱4c╱L╱ // 0xd26 @0x5
0x0d21…0d2e at0006 = ╱53╱S╱ // 0xd27 @0x6
0x0d21…0d2e at0007 = ╱4b╱K╱ // 0xd28 @0x7
0x0d21…0d2e at0008 = ╱52╱R╱ // 0xd29 @0x8
0x0d21…0d2e at0009 = ╱49╱I╱ // 0xd2a @0x9
0x0d21…0d2e at000a = ╱56╱V╱ // 0xd2b @0xa
0x0d21…0d2e at000b = ╱33╱3╱ // 0xd2c @0xb
0x0d21…0d2e at000c = EOL // 0xd2d @0xc
0x0d21…0d2e }
0x0d2e…0d34 a322 01820 ENDIF
0x0d2e…0d34 LineComal80 {
0x0d2e…0d34 ptr = 0xa322 // 0xd2e @0x0
0x0d2e…0d34 lno = 0x071c // 0xd30 @0x2
0x0d2e…0d34 at0004 = ╱9c╱ ENDIF ╱ // 0xd32 @0x4
0x0d2e…0d34 at0005 = EOL // 0xd33 @0x5
0x0d2e…0d34 }
0x0d34…0d49 a337 01830 IF ( 21 ) > 0 THEN
0x0d34…0d49 LineComal80 {
0x0d34…0d49 ptr = 0xa337 // 0xd34 @0x0
0x0d34…0d49 lno = 0x0726 // 0xd36 @0x2
0x0d34…0d49 at0004 = ╱9b2441╱ IF ╱ // 0xd38 @0x4
0x0d34…0d49 at0007 = ╱ed╱ ( ╱ // 0xd3b @0x7
0x0d34…0d49 at0008 = ╱32╱2╱ // 0xd3c @0x8
0x0d34…0d49 at0009 = ╱31╱1╱ // 0xd3d @0x9
0x0d34…0d49 at000a = ╱f21500╱ // 0xd3e @0xa
0x0d34…0d49 at000d = ╱ee╱ ) ╱ // 0xd41 @0xd
0x0d34…0d49 at000e = ╱e1╱ > ╱ // 0xd42 @0xe
0x0d34…0d49 at000f = ╱30╱0╱ // 0xd43 @0xf
0x0d34…0d49 at0010 = ╱f20000╱ // 0xd44 @0x10
0x0d34…0d49 at0013 = ╱b5╱ THEN ╱ // 0xd47 @0x13
0x0d34…0d49 at0014 = EOL // 0xd48 @0x14
0x0d34…0d49 }
0x0d49…0d78 a366 01840 LET QT $ := "P}lignet…B-skat…foruds{ttes…betalt."
0x0d49…0d78 LineComal80 {
0x0d49…0d78 ptr = 0xa366 // 0xd49 @0x0
0x0d49…0d78 lno = 0x0730 // 0xd4b @0x2
0x0d49…0d78 at0004 = ╱86╱ LET ╱ // 0xd4d @0x4
0x0d49…0d78 at0005 = ╱51╱Q╱ // 0xd4e @0x5
0x0d49…0d78 at0006 = ╱54╱T╱ // 0xd4f @0x6
0x0d49…0d78 at0007 = ╱ef╱ $ ╱ // 0xd50 @0x7
0x0d49…0d78 at0008 = ╱f0╱ := ╱ // 0xd51 @0x8
0x0d49…0d78 at0009 = ╱22╱"╱ // 0xd52 @0x9
0x0d49…0d78 at000a = ╱50╱P╱ // 0xd53 @0xa
0x0d49…0d78 at000b = ╱7d╱}╱ // 0xd54 @0xb
0x0d49…0d78 at000c = ╱6c╱l╱ // 0xd55 @0xc
0x0d49…0d78 at000d = ╱69╱i╱ // 0xd56 @0xd
0x0d49…0d78 at000e = ╱67╱g╱ // 0xd57 @0xe
0x0d49…0d78 at000f = ╱6e╱n╱ // 0xd58 @0xf
0x0d49…0d78 at0010 = ╱65╱e╱ // 0xd59 @0x10
0x0d49…0d78 at0011 = ╱74╱t╱ // 0xd5a @0x11
0x0d49…0d78 at0012 = ╱20╱…╱ // 0xd5b @0x12
0x0d49…0d78 at0013 = ╱42╱B╱ // 0xd5c @0x13
0x0d49…0d78 at0014 = ╱2d╱-╱ // 0xd5d @0x14
0x0d49…0d78 at0015 = ╱73╱s╱ // 0xd5e @0x15
0x0d49…0d78 at0016 = ╱6b╱k╱ // 0xd5f @0x16
0x0d49…0d78 at0017 = ╱61╱a╱ // 0xd60 @0x17
0x0d49…0d78 at0018 = ╱74╱t╱ // 0xd61 @0x18
0x0d49…0d78 at0019 = ╱20╱…╱ // 0xd62 @0x19
0x0d49…0d78 at001a = ╱66╱f╱ // 0xd63 @0x1a
0x0d49…0d78 at001b = ╱6f╱o╱ // 0xd64 @0x1b
0x0d49…0d78 at001c = ╱72╱r╱ // 0xd65 @0x1c
0x0d49…0d78 at001d = ╱75╱u╱ // 0xd66 @0x1d
0x0d49…0d78 at001e = ╱64╱d╱ // 0xd67 @0x1e
0x0d49…0d78 at001f = ╱73╱s╱ // 0xd68 @0x1f
0x0d49…0d78 at0020 = ╱7b╱{╱ // 0xd69 @0x20
0x0d49…0d78 at0021 = ╱74╱t╱ // 0xd6a @0x21
0x0d49…0d78 at0022 = ╱74╱t╱ // 0xd6b @0x22
0x0d49…0d78 at0023 = ╱65╱e╱ // 0xd6c @0x23
0x0d49…0d78 at0024 = ╱73╱s╱ // 0xd6d @0x24
0x0d49…0d78 at0025 = ╱20╱…╱ // 0xd6e @0x25
0x0d49…0d78 at0026 = ╱62╱b╱ // 0xd6f @0x26
0x0d49…0d78 at0027 = ╱65╱e╱ // 0xd70 @0x27
0x0d49…0d78 at0028 = ╱74╱t╱ // 0xd71 @0x28
0x0d49…0d78 at0029 = ╱61╱a╱ // 0xd72 @0x29
0x0d49…0d78 at002a = ╱6c╱l╱ // 0xd73 @0x2a
0x0d49…0d78 at002b = ╱74╱t╱ // 0xd74 @0x2b
0x0d49…0d78 at002c = ╱2e╱.╱ // 0xd75 @0x2c
0x0d49…0d78 at002d = ╱22╱"╱ // 0xd76 @0x2d
0x0d49…0d78 at002e = EOL // 0xd77 @0x2e
0x0d49…0d78 }
0x0d78…0d85 a373 01850 EXEC LSKRIV3
0x0d78…0d85 LineComal80 {
0x0d78…0d85 ptr = 0xa373 // 0xd78 @0x0
0x0d78…0d85 lno = 0x073a // 0xd7a @0x2
0x0d78…0d85 at0004 = ╱9d╱ EXEC ╱ // 0xd7c @0x4
0x0d78…0d85 at0005 = ╱4c╱L╱ // 0xd7d @0x5
0x0d78…0d85 at0006 = ╱53╱S╱ // 0xd7e @0x6
0x0d78…0d85 at0007 = ╱4b╱K╱ // 0xd7f @0x7
0x0d78…0d85 at0008 = ╱52╱R╱ // 0xd80 @0x8
0x0d78…0d85 at0009 = ╱49╱I╱ // 0xd81 @0x9
0x0d78…0d85 at000a = ╱56╱V╱ // 0xd82 @0xa
0x0d78…0d85 at000b = ╱33╱3╱ // 0xd83 @0xb
0x0d78…0d85 at000c = EOL // 0xd84 @0xc
0x0d78…0d85 }
0x0d85…0d8b a379 01860 ENDIF
0x0d85…0d8b LineComal80 {
0x0d85…0d8b ptr = 0xa379 // 0xd85 @0x0
0x0d85…0d8b lno = 0x0744 // 0xd87 @0x2
0x0d85…0d8b at0004 = ╱9c╱ ENDIF ╱ // 0xd89 @0x4
0x0d85…0d8b at0005 = EOL // 0xd8a @0x5
0x0d85…0d8b }
0x0d8b…0d97 a385 01870 ENDPROC ]RSOPG
0x0d8b…0d97 LineComal80 {
0x0d8b…0d97 ptr = 0xa385 // 0xd8b @0x0
0x0d8b…0d97 lno = 0x074e // 0xd8d @0x2
0x0d8b…0d97 at0004 = ╱9f╱ ENDPROC ╱ // 0xd8f @0x4
0x0d8b…0d97 at0005 = ╱5d╱]╱ // 0xd90 @0x5
0x0d8b…0d97 at0006 = ╱52╱R╱ // 0xd91 @0x6
0x0d8b…0d97 at0007 = ╱53╱S╱ // 0xd92 @0x7
0x0d8b…0d97 at0008 = ╱4f╱O╱ // 0xd93 @0x8
0x0d8b…0d97 at0009 = ╱50╱P╱ // 0xd94 @0x9
0x0d8b…0d97 at000a = ╱47╱G╱ // 0xd95 @0xa
0x0d8b…0d97 at000b = EOL // 0xd96 @0xb
0x0d8b…0d97 }
0x0d97…0da2 a390 01880 PROC L[SF
0x0d97…0da2 LineComal80 {
0x0d97…0da2 ptr = 0xa390 // 0xd97 @0x0
0x0d97…0da2 lno = 0x0758 // 0xd99 @0x2
0x0d97…0da2 at0004 = ╱9e25╱ PROC ╱ // 0xd9b @0x4
0x0d97…0da2 at0006 = ╱4c╱L╱ // 0xd9d @0x6
0x0d97…0da2 at0007 = ╱5b╱[╱ // 0xd9e @0x7
0x0d97…0da2 at0008 = ╱53╱S╱ // 0xd9f @0x8
0x0d97…0da2 at0009 = ╱46╱F╱ // 0xda0 @0x9
0x0d97…0da2 at000a = EOL // 0xda1 @0xa
0x0d97…0da2 }
0x0da2…0db7 a3a5 01890 FOR X := 24 TO 9 DO
0x0da2…0db7 LineComal80 {
0x0da2…0db7 ptr = 0xa3a5 // 0xda2 @0x0
0x0da2…0db7 lno = 0x0762 // 0xda4 @0x2
0x0da2…0db7 at0004 = ╱8326╱ FOR ╱ // 0xda6 @0x4
0x0da2…0db7 at0006 = ╱58╱X╱ // 0xda8 @0x6
0x0da2…0db7 at0007 = ╱f0╱ := ╱ // 0xda9 @0x7
0x0da2…0db7 at0008 = ╱32╱2╱ // 0xdaa @0x8
0x0da2…0db7 at0009 = ╱34╱4╱ // 0xdab @0x9
0x0da2…0db7 at000a = ╱f21800╱ // 0xdac @0xa
0x0da2…0db7 at000d = ╱b732╱ TO ╱ // 0xdaf @0xd
0x0da2…0db7 at000f = ╱39╱9╱ // 0xdb1 @0xf
0x0da2…0db7 at0010 = ╱f21d00╱ // 0xdb2 @0x10
0x0da2…0db7 at0013 = ╱bb╱ DO ╱ // 0xdb5 @0x13
0x0da2…0db7 at0014 = EOL // 0xdb6 @0x14
0x0da2…0db7 }
0x0db7…0dc6 a3b4 01900 IF >< 27 THEN
0x0db7…0dc6 LineComal80 {
0x0db7…0dc6 ptr = 0xa3b4 // 0xdb7 @0x0
0x0db7…0dc6 lno = 0x076c // 0xdb9 @0x2
0x0db7…0dc6 at0004 = ╱9b2758╱ IF ╱ // 0xdbb @0x4
0x0db7…0dc6 at0007 = ╱e4╱ >< ╱ // 0xdbe @0x7
0x0db7…0dc6 at0008 = ╱32╱2╱ // 0xdbf @0x8
0x0db7…0dc6 at0009 = ╱37╱7╱ // 0xdc0 @0x9
0x0db7…0dc6 at000a = ╱f21b00╱ // 0xdc1 @0xa
0x0db7…0dc6 at000d = ╱b5╱ THEN ╱ // 0xdc4 @0xd
0x0db7…0dc6 at000e = EOL // 0xdc5 @0xe
0x0db7…0dc6 }
0x0dc6…0dda a3c8 01910 IF ( FIL $ ) = 0 THEN
0x0dc6…0dda LineComal80 {
0x0dc6…0dda ptr = 0xa3c8 // 0xdc6 @0x0
0x0dc6…0dda lno = 0x0776 // 0xdc8 @0x2
0x0dc6…0dda at0004 = ╱9b28cd╱ IF ╱ // 0xdca @0x4
0x0dc6…0dda at0007 = ╱ed╱ ( ╱ // 0xdcd @0x7
0x0dc6…0dda at0008 = ╱46╱F╱ // 0xdce @0x8
0x0dc6…0dda at0009 = ╱49╱I╱ // 0xdcf @0x9
0x0dc6…0dda at000a = ╱4c╱L╱ // 0xdd0 @0xa
0x0dc6…0dda at000b = ╱ef╱ $ ╱ // 0xdd1 @0xb
0x0dc6…0dda at000c = ╱ee╱ ) ╱ // 0xdd2 @0xc
0x0dc6…0dda at000d = ╱df╱ = ╱ // 0xdd3 @0xd
0x0dc6…0dda at000e = ╱30╱0╱ // 0xdd4 @0xe
0x0dc6…0dda at000f = ╱f20000╱ // 0xdd5 @0xf
0x0dc6…0dda at0012 = ╱b5╱ THEN ╱ // 0xdd8 @0x12
0x0dc6…0dda at0013 = EOL // 0xdd9 @0x13
0x0dc6…0dda }
0x0dda…0de7 a3d5 01920 GET FIL $ : S $
0x0dda…0de7 LineComal80 {
0x0dda…0de7 ptr = 0xa3d5 // 0xdda @0x0
0x0dda…0de7 lno = 0x0780 // 0xddc @0x2
0x0dda…0de7 at0004 = ╱a9╱ GET ╱ // 0xdde @0x4
0x0dda…0de7 at0005 = ╱46╱F╱ // 0xddf @0x5
0x0dda…0de7 at0006 = ╱49╱I╱ // 0xde0 @0x6
0x0dda…0de7 at0007 = ╱4c╱L╱ // 0xde1 @0x7
0x0dda…0de7 at0008 = ╱ef╱ $ ╱ // 0xde2 @0x8
0x0dda…0de7 at0009 = ╱f1╱ : ╱ // 0xde3 @0x9
0x0dda…0de7 at000a = ╱53╱S╱ // 0xde4 @0xa
0x0dda…0de7 at000b = ╱ef╱ $ ╱ // 0xde5 @0xb
0x0dda…0de7 at000c = EOL // 0xde6 @0xc
0x0dda…0de7 }
0x0de7…0def a3dd 01930 PRINT S $
0x0de7…0def LineComal80 {
0x0de7…0def ptr = 0xa3dd // 0xde7 @0x0
0x0de7…0def lno = 0x078a // 0xde9 @0x2
0x0de7…0def at0004 = ╱92╱ PRINT ╱ // 0xdeb @0x4
0x0de7…0def at0005 = ╱53╱S╱ // 0xdec @0x5
0x0de7…0def at0006 = ╱ef╱ $ ╱ // 0xded @0x6
0x0de7…0def at0007 = EOL // 0xdee @0x7
0x0de7…0def }
0x0def…0dfc a3ea 01940 GET FIL $ : S $
0x0def…0dfc LineComal80 {
0x0def…0dfc ptr = 0xa3ea // 0xdef @0x0
0x0def…0dfc lno = 0x0794 // 0xdf1 @0x2
0x0def…0dfc at0004 = ╱a9╱ GET ╱ // 0xdf3 @0x4
0x0def…0dfc at0005 = ╱46╱F╱ // 0xdf4 @0x5
0x0def…0dfc at0006 = ╱49╱I╱ // 0xdf5 @0x6
0x0def…0dfc at0007 = ╱4c╱L╱ // 0xdf6 @0x7
0x0def…0dfc at0008 = ╱ef╱ $ ╱ // 0xdf7 @0x8
0x0def…0dfc at0009 = ╱f1╱ : ╱ // 0xdf8 @0x9
0x0def…0dfc at000a = ╱53╱S╱ // 0xdf9 @0xa
0x0def…0dfc at000b = ╱ef╱ $ ╱ // 0xdfa @0xb
0x0def…0dfc at000c = EOL // 0xdfb @0xc
0x0def…0dfc }
0x0dfc…0e05 a3f3 01950 PRINT S $ ;
0x0dfc…0e05 LineComal80 {
0x0dfc…0e05 ptr = 0xa3f3 // 0xdfc @0x0
0x0dfc…0e05 lno = 0x079e // 0xdfe @0x2
0x0dfc…0e05 at0004 = ╱92╱ PRINT ╱ // 0xe00 @0x4
0x0dfc…0e05 at0005 = ╱53╱S╱ // 0xe01 @0x5
0x0dfc…0e05 at0006 = ╱ef╱ $ ╱ // 0xe02 @0x6
0x0dfc…0e05 at0007 = ╱ea╱ ; ╱ // 0xe03 @0x7
0x0dfc…0e05 at0008 = EOL // 0xe04 @0x8
0x0dfc…0e05 }
0x0e05…0e12 a400 01960 INPUT "" : A ( X )
0x0e05…0e12 LineComal80 {
0x0e05…0e12 ptr = 0xa400 // 0xe05 @0x0
0x0e05…0e12 lno = 0x07a8 // 0xe07 @0x2
0x0e05…0e12 at0004 = ╱91╱ INPUT ╱ // 0xe09 @0x4
0x0e05…0e12 at0005 = ╱22╱"╱ // 0xe0a @0x5
0x0e05…0e12 at0006 = ╱22╱"╱ // 0xe0b @0x6
0x0e05…0e12 at0007 = ╱f1╱ : ╱ // 0xe0c @0x7
0x0e05…0e12 at0008 = ╱41╱A╱ // 0xe0d @0x8
0x0e05…0e12 at0009 = ╱ed╱ ( ╱ // 0xe0e @0x9
0x0e05…0e12 at000a = ╱58╱X╱ // 0xe0f @0xa
0x0e05…0e12 at000b = ╱ee╱ ) ╱ // 0xe10 @0xb
0x0e05…0e12 at000c = EOL // 0xe11 @0xc
0x0e05…0e12 }
0x0e12…0e1b a409 01970 PRINT LI $
0x0e12…0e1b LineComal80 {
0x0e12…0e1b ptr = 0xa409 // 0xe12 @0x0
0x0e12…0e1b lno = 0x07b2 // 0xe14 @0x2
0x0e12…0e1b at0004 = ╱92╱ PRINT ╱ // 0xe16 @0x4
0x0e12…0e1b at0005 = ╱4c╱L╱ // 0xe17 @0x5
0x0e12…0e1b at0006 = ╱49╱I╱ // 0xe18 @0x6
0x0e12…0e1b at0007 = ╱ef╱ $ ╱ // 0xe19 @0x7
0x0e12…0e1b at0008 = EOL // 0xe1a @0x8
0x0e12…0e1b }
0x0e1b…0e21 a40f 01980 ENDIF
0x0e1b…0e21 LineComal80 {
0x0e1b…0e21 ptr = 0xa40f // 0xe1b @0x0
0x0e1b…0e21 lno = 0x07bc // 0xe1d @0x2
0x0e1b…0e21 at0004 = ╱9c╱ ENDIF ╱ // 0xe1f @0x4
0x0e1b…0e21 at0005 = EOL // 0xe20 @0x5
0x0e1b…0e21 }
0x0e21…0e27 a415 01990 ENDIF
0x0e21…0e27 LineComal80 {
0x0e21…0e27 ptr = 0xa415 // 0xe21 @0x0
0x0e21…0e27 lno = 0x07c6 // 0xe23 @0x2
0x0e21…0e27 at0004 = ╱9c╱ ENDIF ╱ // 0xe25 @0x4
0x0e21…0e27 at0005 = EOL // 0xe26 @0x5
0x0e21…0e27 }
0x0e27…0e2e a41c 02000 NEXT X
0x0e27…0e2e LineComal80 {
0x0e27…0e2e ptr = 0xa41c // 0xe27 @0x0
0x0e27…0e2e lno = 0x07d0 // 0xe29 @0x2
0x0e27…0e2e at0004 = ╱84╱ NEXT ╱ // 0xe2b @0x4
0x0e27…0e2e at0005 = ╱58╱X╱ // 0xe2c @0x5
0x0e27…0e2e at0006 = EOL // 0xe2d @0x6
0x0e27…0e2e }
0x0e2e…0e34 a422 02010 CLEAR
0x0e2e…0e34 LineComal80 {
0x0e2e…0e34 ptr = 0xa422 // 0xe2e @0x0
0x0e2e…0e34 lno = 0x07da // 0xe30 @0x2
0x0e2e…0e34 at0004 = ╱a0╱ CLEAR ╱ // 0xe32 @0x4
0x0e2e…0e34 at0005 = EOL // 0xe33 @0x5
0x0e2e…0e34 }
0x0e34…0e3e a42c 02020 ENDPROC L[SF
0x0e34…0e3e LineComal80 {
0x0e34…0e3e ptr = 0xa42c // 0xe34 @0x0
0x0e34…0e3e lno = 0x07e4 // 0xe36 @0x2
0x0e34…0e3e at0004 = ╱9f╱ ENDPROC ╱ // 0xe38 @0x4
0x0e34…0e3e at0005 = ╱4c╱L╱ // 0xe39 @0x5
0x0e34…0e3e at0006 = ╱5b╱[╱ // 0xe3a @0x6
0x0e34…0e3e at0007 = ╱53╱S╱ // 0xe3b @0x7
0x0e34…0e3e at0008 = ╱46╱F╱ // 0xe3c @0x8
0x0e34…0e3e at0009 = EOL // 0xe3d @0x9
0x0e34…0e3e }
0x0e3e…0e4b a439 02030 PROC RETURN
0x0e3e…0e4b LineComal80 {
0x0e3e…0e4b ptr = 0xa439 // 0xe3e @0x0
0x0e3e…0e4b lno = 0x07ee // 0xe40 @0x2
0x0e3e…0e4b at0004 = ╱9e29╱ PROC ╱ // 0xe42 @0x4
0x0e3e…0e4b at0006 = ╱52╱R╱ // 0xe44 @0x6
0x0e3e…0e4b at0007 = ╱45╱E╱ // 0xe45 @0x7
0x0e3e…0e4b at0008 = ╱54╱T╱ // 0xe46 @0x8
0x0e3e…0e4b at0009 = ╱55╱U╱ // 0xe47 @0x9
0x0e3e…0e4b at000a = ╱52╱R╱ // 0xe48 @0xa
0x0e3e…0e4b at000b = ╱4e╱N╱ // 0xe49 @0xb
0x0e3e…0e4b at000c = EOL // 0xe4a @0xc
0x0e3e…0e4b }
0x0e4b…0e57 a445 02040 LET S $ := "-"
0x0e4b…0e57 LineComal80 {
0x0e4b…0e57 ptr = 0xa445 // 0xe4b @0x0
0x0e4b…0e57 lno = 0x07f8 // 0xe4d @0x2
0x0e4b…0e57 at0004 = ╱86╱ LET ╱ // 0xe4f @0x4
0x0e4b…0e57 at0005 = ╱53╱S╱ // 0xe50 @0x5
0x0e4b…0e57 at0006 = ╱ef╱ $ ╱ // 0xe51 @0x6
0x0e4b…0e57 at0007 = ╱f0╱ := ╱ // 0xe52 @0x7
0x0e4b…0e57 at0008 = ╱22╱"╱ // 0xe53 @0x8
0x0e4b…0e57 at0009 = ╱2d╱-╱ // 0xe54 @0x9
0x0e4b…0e57 at000a = ╱22╱"╱ // 0xe55 @0xa
0x0e4b…0e57 at000b = EOL // 0xe56 @0xb
0x0e4b…0e57 }
0x0e57…0e5d a44b 02050 PRINT
0x0e57…0e5d LineComal80 {
0x0e57…0e5d ptr = 0xa44b // 0xe57 @0x0
0x0e57…0e5d lno = 0x0802 // 0xe59 @0x2
0x0e57…0e5d at0004 = ╱92╱ PRINT ╱ // 0xe5b @0x4
0x0e57…0e5d at0005 = EOL // 0xe5c @0x5
0x0e57…0e5d }
0x0e5d…0e6c a45a 02060 PRINT TAB ( 65 ) ;
0x0e5d…0e6c LineComal80 {
0x0e5d…0e6c ptr = 0xa45a // 0xe5d @0x0
0x0e5d…0e6c lno = 0x080c // 0xe5f @0x2
0x0e5d…0e6c at0004 = ╱92╱ PRINT ╱ // 0xe61 @0x4
0x0e5d…0e6c at0005 = ╱d2╱ TAB ╱ // 0xe62 @0x5
0x0e5d…0e6c at0006 = ╱ed╱ ( ╱ // 0xe63 @0x6
0x0e5d…0e6c at0007 = ╱36╱6╱ // 0xe64 @0x7
0x0e5d…0e6c at0008 = ╱35╱5╱ // 0xe65 @0x8
0x0e5d…0e6c at0009 = ╱f24100╱ // 0xe66 @0x9
0x0e5d…0e6c at000c = ╱ee╱ ) ╱ // 0xe69 @0xc
0x0e5d…0e6c at000d = ╱ea╱ ; ╱ // 0xe6a @0xd
0x0e5d…0e6c at000e = EOL // 0xe6b @0xe
0x0e5d…0e6c }
0x0e6c…0e83 a471 02070 EDIT "TRYK…-RETURN" : S $
0x0e6c…0e83 LineComal80 {
0x0e6c…0e83 ptr = 0xa471 // 0xe6c @0x0
0x0e6c…0e83 lno = 0x0816 // 0xe6e @0x2
0x0e6c…0e83 at0004 = ╱b1╱ EDIT ╱ // 0xe70 @0x4
0x0e6c…0e83 at0005 = ╱22╱"╱ // 0xe71 @0x5
0x0e6c…0e83 at0006 = ╱54╱T╱ // 0xe72 @0x6
0x0e6c…0e83 at0007 = ╱52╱R╱ // 0xe73 @0x7
0x0e6c…0e83 at0008 = ╱59╱Y╱ // 0xe74 @0x8
0x0e6c…0e83 at0009 = ╱4b╱K╱ // 0xe75 @0x9
0x0e6c…0e83 at000a = ╱20╱…╱ // 0xe76 @0xa
0x0e6c…0e83 at000b = ╱2d╱-╱ // 0xe77 @0xb
0x0e6c…0e83 at000c = ╱52╱R╱ // 0xe78 @0xc
0x0e6c…0e83 at000d = ╱45╱E╱ // 0xe79 @0xd
0x0e6c…0e83 at000e = ╱54╱T╱ // 0xe7a @0xe
0x0e6c…0e83 at000f = ╱55╱U╱ // 0xe7b @0xf
0x0e6c…0e83 at0010 = ╱52╱R╱ // 0xe7c @0x10
0x0e6c…0e83 at0011 = ╱4e╱N╱ // 0xe7d @0x11
0x0e6c…0e83 at0012 = ╱22╱"╱ // 0xe7e @0x12
0x0e6c…0e83 at0013 = ╱f1╱ : ╱ // 0xe7f @0x13
0x0e6c…0e83 at0014 = ╱53╱S╱ // 0xe80 @0x14
0x0e6c…0e83 at0015 = ╱ef╱ $ ╱ // 0xe81 @0x15
0x0e6c…0e83 at0016 = EOL // 0xe82 @0x16
0x0e6c…0e83 }
0x0e83…0e8f a47d 02080 ENDPROC RETURN
0x0e83…0e8f LineComal80 {
0x0e83…0e8f ptr = 0xa47d // 0xe83 @0x0
0x0e83…0e8f lno = 0x0820 // 0xe85 @0x2
0x0e83…0e8f at0004 = ╱9f╱ ENDPROC ╱ // 0xe87 @0x4
0x0e83…0e8f at0005 = ╱52╱R╱ // 0xe88 @0x5
0x0e83…0e8f at0006 = ╱45╱E╱ // 0xe89 @0x6
0x0e83…0e8f at0007 = ╱54╱T╱ // 0xe8a @0x7
0x0e83…0e8f at0008 = ╱55╱U╱ // 0xe8b @0x8
0x0e83…0e8f at0009 = ╱52╱R╱ // 0xe8c @0x9
0x0e83…0e8f at000a = ╱4e╱N╱ // 0xe8d @0xa
0x0e83…0e8f at000b = EOL // 0xe8e @0xb
0x0e83…0e8f }
0x0e8f…0e99 a487 02090 PROC TLI
0x0e8f…0e99 LineComal80 {
0x0e8f…0e99 ptr = 0xa487 // 0xe8f @0x0
0x0e8f…0e99 lno = 0x082a // 0xe91 @0x2
0x0e8f…0e99 at0004 = ╱9e2a╱ PROC ╱ // 0xe93 @0x4
0x0e8f…0e99 at0006 = ╱54╱T╱ // 0xe95 @0x6
0x0e8f…0e99 at0007 = ╱4c╱L╱ // 0xe96 @0x7
0x0e8f…0e99 at0008 = ╱49╱I╱ // 0xe97 @0x8
0x0e8f…0e99 at0009 = EOL // 0xe98 @0x9
0x0e8f…0e99 }
0x0e99…0eac a49a 02100 FOR X := 1 TO DO
0x0e99…0eac LineComal80 {
0x0e99…0eac ptr = 0xa49a // 0xe99 @0x0
0x0e99…0eac lno = 0x0834 // 0xe9b @0x2
0x0e99…0eac at0004 = ╱832b╱ FOR ╱ // 0xe9d @0x4
0x0e99…0eac at0006 = ╱58╱X╱ // 0xe9f @0x6
0x0e99…0eac at0007 = ╱f0╱ := ╱ // 0xea0 @0x7
0x0e99…0eac at0008 = ╱31╱1╱ // 0xea1 @0x8
0x0e99…0eac at0009 = ╱f20100╱ // 0xea2 @0x9
0x0e99…0eac at000c = ╱b735╱ TO ╱ // 0xea5 @0xc
0x0e99…0eac at000e = ╱f20500╱ // 0xea7 @0xe
0x0e99…0eac at0011 = ╱bb╱ DO ╱ // 0xeaa @0x11
0x0e99…0eac at0012 = EOL // 0xeab @0x12
0x0e99…0eac }
0x0eac…0eb2 a4a0 02110 PRINT
0x0eac…0eb2 LineComal80 {
0x0eac…0eb2 ptr = 0xa4a0 // 0xeac @0x0
0x0eac…0eb2 lno = 0x083e // 0xeae @0x2
0x0eac…0eb2 at0004 = ╱92╱ PRINT ╱ // 0xeb0 @0x4
0x0eac…0eb2 at0005 = EOL // 0xeb1 @0x5
0x0eac…0eb2 }
0x0eb2…0eb9 a4a7 02120 NEXT X
0x0eb2…0eb9 LineComal80 {
0x0eb2…0eb9 ptr = 0xa4a7 // 0xeb2 @0x0
0x0eb2…0eb9 lno = 0x0848 // 0xeb4 @0x2
0x0eb2…0eb9 at0004 = ╱84╱ NEXT ╱ // 0xeb6 @0x4
0x0eb2…0eb9 at0005 = ╱58╱X╱ // 0xeb7 @0x5
0x0eb2…0eb9 at0006 = EOL // 0xeb8 @0x6
0x0eb2…0eb9 }
0x0eb9…0ec2 a4b0 02130 ENDPROC TLI
0x0eb9…0ec2 LineComal80 {
0x0eb9…0ec2 ptr = 0xa4b0 // 0xeb9 @0x0
0x0eb9…0ec2 lno = 0x0852 // 0xebb @0x2
0x0eb9…0ec2 at0004 = ╱9f╱ ENDPROC ╱ // 0xebd @0x4
0x0eb9…0ec2 at0005 = ╱54╱T╱ // 0xebe @0x5
0x0eb9…0ec2 at0006 = ╱4c╱L╱ // 0xebf @0x6
0x0eb9…0ec2 at0007 = ╱49╱I╱ // 0xec0 @0x7
0x0eb9…0ec2 at0008 = EOL // 0xec1 @0x8
0x0eb9…0ec2 }
0x0ec2…0ecf a4bd 02140 PROC GEMHOP
0x0ec2…0ecf LineComal80 {
0x0ec2…0ecf ptr = 0xa4bd // 0xec2 @0x0
0x0ec2…0ecf lno = 0x085c // 0xec4 @0x2
0x0ec2…0ecf at0004 = ╱9e2c╱ PROC ╱ // 0xec6 @0x4
0x0ec2…0ecf at0006 = ╱47╱G╱ // 0xec8 @0x6
0x0ec2…0ecf at0007 = ╱45╱E╱ // 0xec9 @0x7
0x0ec2…0ecf at0008 = ╱4d╱M╱ // 0xeca @0x8
0x0ec2…0ecf at0009 = ╱48╱H╱ // 0xecb @0x9
0x0ec2…0ecf at000a = ╱4f╱O╱ // 0xecc @0xa
0x0ec2…0ecf at000b = ╱50╱P╱ // 0xecd @0xb
0x0ec2…0ecf at000c = EOL // 0xece @0xc
0x0ec2…0ecf }
0x0ecf…0ee2 a4d0 02150 OPEN "DDE:HSLUT" , W
0x0ecf…0ee2 LineComal80 {
0x0ecf…0ee2 ptr = 0xa4d0 // 0xecf @0x0
0x0ecf…0ee2 lno = 0x0866 // 0xed1 @0x2
0x0ecf…0ee2 at0004 = ╱a7╱ OPEN ╱ // 0xed3 @0x4
0x0ecf…0ee2 at0005 = ╱22╱"╱ // 0xed4 @0x5
0x0ecf…0ee2 at0006 = ╱44╱D╱ // 0xed5 @0x6
0x0ecf…0ee2 at0007 = ╱44╱D╱ // 0xed6 @0x7
0x0ecf…0ee2 at0008 = ╱45╱E╱ // 0xed7 @0x8
0x0ecf…0ee2 at0009 = ╱3a╱:╱ // 0xed8 @0x9
0x0ecf…0ee2 at000a = ╱48╱H╱ // 0xed9 @0xa
0x0ecf…0ee2 at000b = ╱53╱S╱ // 0xeda @0xb
0x0ecf…0ee2 at000c = ╱4c╱L╱ // 0xedb @0xc
0x0ecf…0ee2 at000d = ╱55╱U╱ // 0xedc @0xd
0x0ecf…0ee2 at000e = ╱54╱T╱ // 0xedd @0xe
0x0ecf…0ee2 at000f = ╱22╱"╱ // 0xede @0xf
0x0ecf…0ee2 at0010 = ╱ec╱ , ╱ // 0xedf @0x10
0x0ecf…0ee2 at0011 = ╱57╱W╱ // 0xee0 @0x11
0x0ecf…0ee2 at0012 = EOL // 0xee1 @0x12
0x0ecf…0ee2 }
0x0ee2…0ef5 a4e3 02160 FOR X := 1 TO DO
0x0ee2…0ef5 LineComal80 {
0x0ee2…0ef5 ptr = 0xa4e3 // 0xee2 @0x0
0x0ee2…0ef5 lno = 0x0870 // 0xee4 @0x2
0x0ee2…0ef5 at0004 = ╱832d╱ FOR ╱ // 0xee6 @0x4
0x0ee2…0ef5 at0006 = ╱58╱X╱ // 0xee8 @0x6
0x0ee2…0ef5 at0007 = ╱f0╱ := ╱ // 0xee9 @0x7
0x0ee2…0ef5 at0008 = ╱31╱1╱ // 0xeea @0x8
0x0ee2…0ef5 at0009 = ╱f20100╱ // 0xeeb @0x9
0x0ee2…0ef5 at000c = ╱b736╱ TO ╱ // 0xeee @0xc
0x0ee2…0ef5 at000e = ╱f20600╱ // 0xef0 @0xe
0x0ee2…0ef5 at0011 = ╱bb╱ DO ╱ // 0xef3 @0x11
0x0ee2…0ef5 at0012 = EOL // 0xef4 @0x12
0x0ee2…0ef5 }
0x0ef5…0f1a a508 02170 IF X >< 3 THEN PUT "DDE:HSLUT" : A ( 30 - X )
0x0ef5…0f1a LineComal80 {
0x0ef5…0f1a ptr = 0xa508 // 0xef5 @0x0
0x0ef5…0f1a lno = 0x087a // 0xef7 @0x2
0x0ef5…0f1a at0004 = ╱8200╱ IF ╱ // 0xef9 @0x4
0x0ef5…0f1a at0006 = ╱58╱X╱ // 0xefb @0x6
0x0ef5…0f1a at0007 = ╱e4╱ >< ╱ // 0xefc @0x7
0x0ef5…0f1a at0008 = ╱33╱3╱ // 0xefd @0x8
0x0ef5…0f1a at0009 = ╱f20300╱ // 0xefe @0x9
0x0ef5…0f1a at000c = ╱b5╱ THEN ╱ // 0xf01 @0xc
0x0ef5…0f1a at000d = ╱aa╱ PUT ╱ // 0xf02 @0xd
0x0ef5…0f1a at000e = ╱22╱"╱ // 0xf03 @0xe
0x0ef5…0f1a at000f = ╱44╱D╱ // 0xf04 @0xf
0x0ef5…0f1a at0010 = ╱44╱D╱ // 0xf05 @0x10
0x0ef5…0f1a at0011 = ╱45╱E╱ // 0xf06 @0x11
0x0ef5…0f1a at0012 = ╱3a╱:╱ // 0xf07 @0x12
0x0ef5…0f1a at0013 = ╱48╱H╱ // 0xf08 @0x13
0x0ef5…0f1a at0014 = ╱53╱S╱ // 0xf09 @0x14
0x0ef5…0f1a at0015 = ╱4c╱L╱ // 0xf0a @0x15
0x0ef5…0f1a at0016 = ╱55╱U╱ // 0xf0b @0x16
0x0ef5…0f1a at0017 = ╱54╱T╱ // 0xf0c @0x17
0x0ef5…0f1a at0018 = ╱22╱"╱ // 0xf0d @0x18
0x0ef5…0f1a at0019 = ╱f1╱ : ╱ // 0xf0e @0x19
0x0ef5…0f1a at001a = ╱41╱A╱ // 0xf0f @0x1a
0x0ef5…0f1a at001b = ╱ed╱ ( ╱ // 0xf10 @0x1b
0x0ef5…0f1a at001c = ╱33╱3╱ // 0xf11 @0x1c
0x0ef5…0f1a at001d = ╱30╱0╱ // 0xf12 @0x1d
0x0ef5…0f1a at001e = ╱f21e00╱ // 0xf13 @0x1e
0x0ef5…0f1a at0021 = ╱e6╱ - ╱ // 0xf16 @0x21
0x0ef5…0f1a at0022 = ╱58╱X╱ // 0xf17 @0x22
0x0ef5…0f1a at0023 = ╱ee╱ ) ╱ // 0xf18 @0x23
0x0ef5…0f1a at0024 = EOL // 0xf19 @0x24
0x0ef5…0f1a }
0x0f1a…0f21 a50f 02180 NEXT X
0x0f1a…0f21 LineComal80 {
0x0f1a…0f21 ptr = 0xa50f // 0xf1a @0x0
0x0f1a…0f21 lno = 0x0884 // 0xf1c @0x2
0x0f1a…0f21 at0004 = ╱84╱ NEXT ╱ // 0xf1e @0x4
0x0f1a…0f21 at0005 = ╱58╱X╱ // 0xf1f @0x5
0x0f1a…0f21 at0006 = EOL // 0xf20 @0x6
0x0f1a…0f21 }
0x0f21…0f32 a520 02190 CLOSE "DDE:HSLUT"
0x0f21…0f32 LineComal80 {
0x0f21…0f32 ptr = 0xa520 // 0xf21 @0x0
0x0f21…0f32 lno = 0x088e // 0xf23 @0x2
0x0f21…0f32 at0004 = ╱a8╱ CLOSE ╱ // 0xf25 @0x4
0x0f21…0f32 at0005 = ╱22╱"╱ // 0xf26 @0x5
0x0f21…0f32 at0006 = ╱44╱D╱ // 0xf27 @0x6
0x0f21…0f32 at0007 = ╱44╱D╱ // 0xf28 @0x7
0x0f21…0f32 at0008 = ╱45╱E╱ // 0xf29 @0x8
0x0f21…0f32 at0009 = ╱3a╱:╱ // 0xf2a @0x9
0x0f21…0f32 at000a = ╱48╱H╱ // 0xf2b @0xa
0x0f21…0f32 at000b = ╱53╱S╱ // 0xf2c @0xb
0x0f21…0f32 at000c = ╱4c╱L╱ // 0xf2d @0xc
0x0f21…0f32 at000d = ╱55╱U╱ // 0xf2e @0xd
0x0f21…0f32 at000e = ╱54╱T╱ // 0xf2f @0xe
0x0f21…0f32 at000f = ╱22╱"╱ // 0xf30 @0xf
0x0f21…0f32 at0010 = EOL // 0xf31 @0x10
0x0f21…0f32 }
0x0f32…0f3e a52c 02200 ENDPROC GEMHOP
0x0f32…0f3e LineComal80 {
0x0f32…0f3e ptr = 0xa52c // 0xf32 @0x0
0x0f32…0f3e lno = 0x0898 // 0xf34 @0x2
0x0f32…0f3e at0004 = ╱9f╱ ENDPROC ╱ // 0xf36 @0x4
0x0f32…0f3e at0005 = ╱47╱G╱ // 0xf37 @0x5
0x0f32…0f3e at0006 = ╱45╱E╱ // 0xf38 @0x6
0x0f32…0f3e at0007 = ╱4d╱M╱ // 0xf39 @0x7
0x0f32…0f3e at0008 = ╱48╱H╱ // 0xf3a @0x8
0x0f32…0f3e at0009 = ╱4f╱O╱ // 0xf3b @0x9
0x0f32…0f3e at000a = ╱50╱P╱ // 0xf3c @0xa
0x0f32…0f3e at000b = EOL // 0xf3d @0xb
0x0f32…0f3e }
0x0f3e…0f4b a539 02210 PROC GEMBIP
0x0f3e…0f4b LineComal80 {
0x0f3e…0f4b ptr = 0xa539 // 0xf3e @0x0
0x0f3e…0f4b lno = 0x08a2 // 0xf40 @0x2
0x0f3e…0f4b at0004 = ╱9e2e╱ PROC ╱ // 0xf42 @0x4
0x0f3e…0f4b at0006 = ╱47╱G╱ // 0xf44 @0x6
0x0f3e…0f4b at0007 = ╱45╱E╱ // 0xf45 @0x7
0x0f3e…0f4b at0008 = ╱4d╱M╱ // 0xf46 @0x8
0x0f3e…0f4b at0009 = ╱42╱B╱ // 0xf47 @0x9
0x0f3e…0f4b at000a = ╱49╱I╱ // 0xf48 @0xa
0x0f3e…0f4b at000b = ╱50╱P╱ // 0xf49 @0xb
0x0f3e…0f4b at000c = EOL // 0xf4a @0xc
0x0f3e…0f4b }
0x0f4b…0f5e a54c 02220 OPEN "DDE:BSLUT" , W
0x0f4b…0f5e LineComal80 {
0x0f4b…0f5e ptr = 0xa54c // 0xf4b @0x0
0x0f4b…0f5e lno = 0x08ac // 0xf4d @0x2
0x0f4b…0f5e at0004 = ╱a7╱ OPEN ╱ // 0xf4f @0x4
0x0f4b…0f5e at0005 = ╱22╱"╱ // 0xf50 @0x5
0x0f4b…0f5e at0006 = ╱44╱D╱ // 0xf51 @0x6
0x0f4b…0f5e at0007 = ╱44╱D╱ // 0xf52 @0x7
0x0f4b…0f5e at0008 = ╱45╱E╱ // 0xf53 @0x8
0x0f4b…0f5e at0009 = ╱3a╱:╱ // 0xf54 @0x9
0x0f4b…0f5e at000a = ╱42╱B╱ // 0xf55 @0xa
0x0f4b…0f5e at000b = ╱53╱S╱ // 0xf56 @0xb
0x0f4b…0f5e at000c = ╱4c╱L╱ // 0xf57 @0xc
0x0f4b…0f5e at000d = ╱55╱U╱ // 0xf58 @0xd
0x0f4b…0f5e at000e = ╱54╱T╱ // 0xf59 @0xe
0x0f4b…0f5e at000f = ╱22╱"╱ // 0xf5a @0xf
0x0f4b…0f5e at0010 = ╱ec╱ , ╱ // 0xf5b @0x10
0x0f4b…0f5e at0011 = ╱57╱W╱ // 0xf5c @0x11
0x0f4b…0f5e at0012 = EOL // 0xf5d @0x12
0x0f4b…0f5e }
0x0f5e…0f71 a55f 02230 FOR X := 1 TO DO
0x0f5e…0f71 LineComal80 {
0x0f5e…0f71 ptr = 0xa55f // 0xf5e @0x0
0x0f5e…0f71 lno = 0x08b6 // 0xf60 @0x2
0x0f5e…0f71 at0004 = ╱832f╱ FOR ╱ // 0xf62 @0x4
0x0f5e…0f71 at0006 = ╱58╱X╱ // 0xf64 @0x6
0x0f5e…0f71 at0007 = ╱f0╱ := ╱ // 0xf65 @0x7
0x0f5e…0f71 at0008 = ╱31╱1╱ // 0xf66 @0x8
0x0f5e…0f71 at0009 = ╱f20100╱ // 0xf67 @0x9
0x0f5e…0f71 at000c = ╱b736╱ TO ╱ // 0xf6a @0xc
0x0f5e…0f71 at000e = ╱f20600╱ // 0xf6c @0xe
0x0f5e…0f71 at0011 = ╱bb╱ DO ╱ // 0xf6f @0x11
0x0f5e…0f71 at0012 = EOL // 0xf70 @0x12
0x0f5e…0f71 }
0x0f71…0f96 a584 02240 IF X >< 3 THEN PUT "DDE:BSLUT" : A ( 30 - X )
0x0f71…0f96 LineComal80 {
0x0f71…0f96 ptr = 0xa584 // 0xf71 @0x0
0x0f71…0f96 lno = 0x08c0 // 0xf73 @0x2
0x0f71…0f96 at0004 = ╱8200╱ IF ╱ // 0xf75 @0x4
0x0f71…0f96 at0006 = ╱58╱X╱ // 0xf77 @0x6
0x0f71…0f96 at0007 = ╱e4╱ >< ╱ // 0xf78 @0x7
0x0f71…0f96 at0008 = ╱33╱3╱ // 0xf79 @0x8
0x0f71…0f96 at0009 = ╱f20300╱ // 0xf7a @0x9
0x0f71…0f96 at000c = ╱b5╱ THEN ╱ // 0xf7d @0xc
0x0f71…0f96 at000d = ╱aa╱ PUT ╱ // 0xf7e @0xd
0x0f71…0f96 at000e = ╱22╱"╱ // 0xf7f @0xe
0x0f71…0f96 at000f = ╱44╱D╱ // 0xf80 @0xf
0x0f71…0f96 at0010 = ╱44╱D╱ // 0xf81 @0x10
0x0f71…0f96 at0011 = ╱45╱E╱ // 0xf82 @0x11
0x0f71…0f96 at0012 = ╱3a╱:╱ // 0xf83 @0x12
0x0f71…0f96 at0013 = ╱42╱B╱ // 0xf84 @0x13
0x0f71…0f96 at0014 = ╱53╱S╱ // 0xf85 @0x14
0x0f71…0f96 at0015 = ╱4c╱L╱ // 0xf86 @0x15
0x0f71…0f96 at0016 = ╱55╱U╱ // 0xf87 @0x16
0x0f71…0f96 at0017 = ╱54╱T╱ // 0xf88 @0x17
0x0f71…0f96 at0018 = ╱22╱"╱ // 0xf89 @0x18
0x0f71…0f96 at0019 = ╱f1╱ : ╱ // 0xf8a @0x19
0x0f71…0f96 at001a = ╱41╱A╱ // 0xf8b @0x1a
0x0f71…0f96 at001b = ╱ed╱ ( ╱ // 0xf8c @0x1b
0x0f71…0f96 at001c = ╱33╱3╱ // 0xf8d @0x1c
0x0f71…0f96 at001d = ╱30╱0╱ // 0xf8e @0x1d
0x0f71…0f96 at001e = ╱f21e00╱ // 0xf8f @0x1e
0x0f71…0f96 at0021 = ╱e6╱ - ╱ // 0xf92 @0x21
0x0f71…0f96 at0022 = ╱58╱X╱ // 0xf93 @0x22
0x0f71…0f96 at0023 = ╱ee╱ ) ╱ // 0xf94 @0x23
0x0f71…0f96 at0024 = EOL // 0xf95 @0x24
0x0f71…0f96 }
0x0f96…0f9d a58b 02250 NEXT X
0x0f96…0f9d LineComal80 {
0x0f96…0f9d ptr = 0xa58b // 0xf96 @0x0
0x0f96…0f9d lno = 0x08ca // 0xf98 @0x2
0x0f96…0f9d at0004 = ╱84╱ NEXT ╱ // 0xf9a @0x4
0x0f96…0f9d at0005 = ╱58╱X╱ // 0xf9b @0x5
0x0f96…0f9d at0006 = EOL // 0xf9c @0x6
0x0f96…0f9d }
0x0f9d…0fae a59c 02260 CLOSE "DDE:BSLUT"
0x0f9d…0fae LineComal80 {
0x0f9d…0fae ptr = 0xa59c // 0xf9d @0x0
0x0f9d…0fae lno = 0x08d4 // 0xf9f @0x2
0x0f9d…0fae at0004 = ╱a8╱ CLOSE ╱ // 0xfa1 @0x4
0x0f9d…0fae at0005 = ╱22╱"╱ // 0xfa2 @0x5
0x0f9d…0fae at0006 = ╱44╱D╱ // 0xfa3 @0x6
0x0f9d…0fae at0007 = ╱44╱D╱ // 0xfa4 @0x7
0x0f9d…0fae at0008 = ╱45╱E╱ // 0xfa5 @0x8
0x0f9d…0fae at0009 = ╱3a╱:╱ // 0xfa6 @0x9
0x0f9d…0fae at000a = ╱42╱B╱ // 0xfa7 @0xa
0x0f9d…0fae at000b = ╱53╱S╱ // 0xfa8 @0xb
0x0f9d…0fae at000c = ╱4c╱L╱ // 0xfa9 @0xc
0x0f9d…0fae at000d = ╱55╱U╱ // 0xfaa @0xd
0x0f9d…0fae at000e = ╱54╱T╱ // 0xfab @0xe
0x0f9d…0fae at000f = ╱22╱"╱ // 0xfac @0xf
0x0f9d…0fae at0010 = EOL // 0xfad @0x10
0x0f9d…0fae }
0x0fae…0fba a5a8 02270 ENDPROC GEMBIP
0x0fae…0fba LineComal80 {
0x0fae…0fba ptr = 0xa5a8 // 0xfae @0x0
0x0fae…0fba lno = 0x08de // 0xfb0 @0x2
0x0fae…0fba at0004 = ╱9f╱ ENDPROC ╱ // 0xfb2 @0x4
0x0fae…0fba at0005 = ╱47╱G╱ // 0xfb3 @0x5
0x0fae…0fba at0006 = ╱45╱E╱ // 0xfb4 @0x6
0x0fae…0fba at0007 = ╱4d╱M╱ // 0xfb5 @0x7
0x0fae…0fba at0008 = ╱42╱B╱ // 0xfb6 @0x8
0x0fae…0fba at0009 = ╱49╱I╱ // 0xfb7 @0x9
0x0fae…0fba at000a = ╱50╱P╱ // 0xfb8 @0xa
0x0fae…0fba at000b = EOL // 0xfb9 @0xb
0x0fae…0fba }
0x0fba…0fc8 a5b6 02280 PROC HENTHOP
0x0fba…0fc8 LineComal80 {
0x0fba…0fc8 ptr = 0xa5b6 // 0xfba @0x0
0x0fba…0fc8 lno = 0x08e8 // 0xfbc @0x2
0x0fba…0fc8 at0004 = ╱9e30╱ PROC ╱ // 0xfbe @0x4
0x0fba…0fc8 at0006 = ╱48╱H╱ // 0xfc0 @0x6
0x0fba…0fc8 at0007 = ╱45╱E╱ // 0xfc1 @0x7
0x0fba…0fc8 at0008 = ╱4e╱N╱ // 0xfc2 @0x8
0x0fba…0fc8 at0009 = ╱54╱T╱ // 0xfc3 @0x9
0x0fba…0fc8 at000a = ╱48╱H╱ // 0xfc4 @0xa
0x0fba…0fc8 at000b = ╱4f╱O╱ // 0xfc5 @0xb
0x0fba…0fc8 at000c = ╱50╱P╱ // 0xfc6 @0xc
0x0fba…0fc8 at000d = EOL // 0xfc7 @0xd
0x0fba…0fc8 }
0x0fc8…0fdb a5c9 02290 OPEN "DDE:HSLUT" , R
0x0fc8…0fdb LineComal80 {
0x0fc8…0fdb ptr = 0xa5c9 // 0xfc8 @0x0
0x0fc8…0fdb lno = 0x08f2 // 0xfca @0x2
0x0fc8…0fdb at0004 = ╱a7╱ OPEN ╱ // 0xfcc @0x4
0x0fc8…0fdb at0005 = ╱22╱"╱ // 0xfcd @0x5
0x0fc8…0fdb at0006 = ╱44╱D╱ // 0xfce @0x6
0x0fc8…0fdb at0007 = ╱44╱D╱ // 0xfcf @0x7
0x0fc8…0fdb at0008 = ╱45╱E╱ // 0xfd0 @0x8
0x0fc8…0fdb at0009 = ╱3a╱:╱ // 0xfd1 @0x9
0x0fc8…0fdb at000a = ╱48╱H╱ // 0xfd2 @0xa
0x0fc8…0fdb at000b = ╱53╱S╱ // 0xfd3 @0xb
0x0fc8…0fdb at000c = ╱4c╱L╱ // 0xfd4 @0xc
0x0fc8…0fdb at000d = ╱55╱U╱ // 0xfd5 @0xd
0x0fc8…0fdb at000e = ╱54╱T╱ // 0xfd6 @0xe
0x0fc8…0fdb at000f = ╱22╱"╱ // 0xfd7 @0xf
0x0fc8…0fdb at0010 = ╱ec╱ , ╱ // 0xfd8 @0x10
0x0fc8…0fdb at0011 = ╱52╱R╱ // 0xfd9 @0x11
0x0fc8…0fdb at0012 = EOL // 0xfda @0x12
0x0fc8…0fdb }
0x0fdb…0fee a5dc 02300 FOR X := 1 TO DO
0x0fdb…0fee LineComal80 {
0x0fdb…0fee ptr = 0xa5dc // 0xfdb @0x0
0x0fdb…0fee lno = 0x08fc // 0xfdd @0x2
0x0fdb…0fee at0004 = ╱8331╱ FOR ╱ // 0xfdf @0x4
0x0fdb…0fee at0006 = ╱58╱X╱ // 0xfe1 @0x6
0x0fdb…0fee at0007 = ╱f0╱ := ╱ // 0xfe2 @0x7
0x0fdb…0fee at0008 = ╱31╱1╱ // 0xfe3 @0x8
0x0fdb…0fee at0009 = ╱f20100╱ // 0xfe4 @0x9
0x0fdb…0fee at000c = ╱b736╱ TO ╱ // 0xfe7 @0xc
0x0fdb…0fee at000e = ╱f20600╱ // 0xfe9 @0xe
0x0fdb…0fee at0011 = ╱bb╱ DO ╱ // 0xfec @0x11
0x0fdb…0fee at0012 = EOL // 0xfed @0x12
0x0fdb…0fee }
0x0fee…1013 a601 02310 IF X >< 3 THEN GET "DDE:HSLUT" : A ( 30 - X )
0x0fee…1013 LineComal80 {
0x0fee…1013 ptr = 0xa601 // 0xfee @0x0
0x0fee…1013 lno = 0x0906 // 0xff0 @0x2
0x0fee…1013 at0004 = ╱8200╱ IF ╱ // 0xff2 @0x4
0x0fee…1013 at0006 = ╱58╱X╱ // 0xff4 @0x6
0x0fee…1013 at0007 = ╱e4╱ >< ╱ // 0xff5 @0x7
0x0fee…1013 at0008 = ╱33╱3╱ // 0xff6 @0x8
0x0fee…1013 at0009 = ╱f20300╱ // 0xff7 @0x9
0x0fee…1013 at000c = ╱b5╱ THEN ╱ // 0xffa @0xc
0x0fee…1013 at000d = ╱a9╱ GET ╱ // 0xffb @0xd
0x0fee…1013 at000e = ╱22╱"╱ // 0xffc @0xe
0x0fee…1013 at000f = ╱44╱D╱ // 0xffd @0xf
0x0fee…1013 at0010 = ╱44╱D╱ // 0xffe @0x10
0x0fee…1013 at0011 = ╱45╱E╱ // 0xfff @0x11
0x0fee…1013 at0012 = ╱3a╱:╱ // 0x1000 @0x12
0x0fee…1013 at0013 = ╱48╱H╱ // 0x1001 @0x13
0x0fee…1013 at0014 = ╱53╱S╱ // 0x1002 @0x14
0x0fee…1013 at0015 = ╱4c╱L╱ // 0x1003 @0x15
0x0fee…1013 at0016 = ╱55╱U╱ // 0x1004 @0x16
0x0fee…1013 at0017 = ╱54╱T╱ // 0x1005 @0x17
0x0fee…1013 at0018 = ╱22╱"╱ // 0x1006 @0x18
0x0fee…1013 at0019 = ╱f1╱ : ╱ // 0x1007 @0x19
0x0fee…1013 at001a = ╱41╱A╱ // 0x1008 @0x1a
0x0fee…1013 at001b = ╱ed╱ ( ╱ // 0x1009 @0x1b
0x0fee…1013 at001c = ╱33╱3╱ // 0x100a @0x1c
0x0fee…1013 at001d = ╱30╱0╱ // 0x100b @0x1d
0x0fee…1013 at001e = ╱f21e00╱ // 0x100c @0x1e
0x0fee…1013 at0021 = ╱e6╱ - ╱ // 0x100f @0x21
0x0fee…1013 at0022 = ╱58╱X╱ // 0x1010 @0x22
0x0fee…1013 at0023 = ╱ee╱ ) ╱ // 0x1011 @0x23
0x0fee…1013 at0024 = EOL // 0x1012 @0x24
0x0fee…1013 }
0x1013…101a a608 02320 NEXT X
0x1013…101a LineComal80 {
0x1013…101a ptr = 0xa608 // 0x1013 @0x0
0x1013…101a lno = 0x0910 // 0x1015 @0x2
0x1013…101a at0004 = ╱84╱ NEXT ╱ // 0x1017 @0x4
0x1013…101a at0005 = ╱58╱X╱ // 0x1018 @0x5
0x1013…101a at0006 = EOL // 0x1019 @0x6
0x1013…101a }
0x101a…102b a619 02330 CLOSE "DDE:HSLUT"
0x101a…102b LineComal80 {
0x101a…102b ptr = 0xa619 // 0x101a @0x0
0x101a…102b lno = 0x091a // 0x101c @0x2
0x101a…102b at0004 = ╱a8╱ CLOSE ╱ // 0x101e @0x4
0x101a…102b at0005 = ╱22╱"╱ // 0x101f @0x5
0x101a…102b at0006 = ╱44╱D╱ // 0x1020 @0x6
0x101a…102b at0007 = ╱44╱D╱ // 0x1021 @0x7
0x101a…102b at0008 = ╱45╱E╱ // 0x1022 @0x8
0x101a…102b at0009 = ╱3a╱:╱ // 0x1023 @0x9
0x101a…102b at000a = ╱48╱H╱ // 0x1024 @0xa
0x101a…102b at000b = ╱53╱S╱ // 0x1025 @0xb
0x101a…102b at000c = ╱4c╱L╱ // 0x1026 @0xc
0x101a…102b at000d = ╱55╱U╱ // 0x1027 @0xd
0x101a…102b at000e = ╱54╱T╱ // 0x1028 @0xe
0x101a…102b at000f = ╱22╱"╱ // 0x1029 @0xf
0x101a…102b at0010 = EOL // 0x102a @0x10
0x101a…102b }
0x102b…1038 a626 02340 ENDPROC HENTHOP
0x102b…1038 LineComal80 {
0x102b…1038 ptr = 0xa626 // 0x102b @0x0
0x102b…1038 lno = 0x0924 // 0x102d @0x2
0x102b…1038 at0004 = ╱9f╱ ENDPROC ╱ // 0x102f @0x4
0x102b…1038 at0005 = ╱48╱H╱ // 0x1030 @0x5
0x102b…1038 at0006 = ╱45╱E╱ // 0x1031 @0x6
0x102b…1038 at0007 = ╱4e╱N╱ // 0x1032 @0x7
0x102b…1038 at0008 = ╱54╱T╱ // 0x1033 @0x8
0x102b…1038 at0009 = ╱48╱H╱ // 0x1034 @0x9
0x102b…1038 at000a = ╱4f╱O╱ // 0x1035 @0xa
0x102b…1038 at000b = ╱50╱P╱ // 0x1036 @0xb
0x102b…1038 at000c = EOL // 0x1037 @0xc
0x102b…1038 }
0x1038…1046 a634 02350 PROC HENTBIP
0x1038…1046 LineComal80 {
0x1038…1046 ptr = 0xa634 // 0x1038 @0x0
0x1038…1046 lno = 0x092e // 0x103a @0x2
0x1038…1046 at0004 = ╱9e32╱ PROC ╱ // 0x103c @0x4
0x1038…1046 at0006 = ╱48╱H╱ // 0x103e @0x6
0x1038…1046 at0007 = ╱45╱E╱ // 0x103f @0x7
0x1038…1046 at0008 = ╱4e╱N╱ // 0x1040 @0x8
0x1038…1046 at0009 = ╱54╱T╱ // 0x1041 @0x9
0x1038…1046 at000a = ╱42╱B╱ // 0x1042 @0xa
0x1038…1046 at000b = ╱49╱I╱ // 0x1043 @0xb
0x1038…1046 at000c = ╱50╱P╱ // 0x1044 @0xc
0x1038…1046 at000d = EOL // 0x1045 @0xd
0x1038…1046 }
0x1046…1059 a647 02360 OPEN "DDE:BSLUT" , R
0x1046…1059 LineComal80 {
0x1046…1059 ptr = 0xa647 // 0x1046 @0x0
0x1046…1059 lno = 0x0938 // 0x1048 @0x2
0x1046…1059 at0004 = ╱a7╱ OPEN ╱ // 0x104a @0x4
0x1046…1059 at0005 = ╱22╱"╱ // 0x104b @0x5
0x1046…1059 at0006 = ╱44╱D╱ // 0x104c @0x6
0x1046…1059 at0007 = ╱44╱D╱ // 0x104d @0x7
0x1046…1059 at0008 = ╱45╱E╱ // 0x104e @0x8
0x1046…1059 at0009 = ╱3a╱:╱ // 0x104f @0x9
0x1046…1059 at000a = ╱42╱B╱ // 0x1050 @0xa
0x1046…1059 at000b = ╱53╱S╱ // 0x1051 @0xb
0x1046…1059 at000c = ╱4c╱L╱ // 0x1052 @0xc
0x1046…1059 at000d = ╱55╱U╱ // 0x1053 @0xd
0x1046…1059 at000e = ╱54╱T╱ // 0x1054 @0xe
0x1046…1059 at000f = ╱22╱"╱ // 0x1055 @0xf
0x1046…1059 at0010 = ╱ec╱ , ╱ // 0x1056 @0x10
0x1046…1059 at0011 = ╱52╱R╱ // 0x1057 @0x11
0x1046…1059 at0012 = EOL // 0x1058 @0x12
0x1046…1059 }
0x1059…106c a65a 02370 FOR X := 1 TO DO
0x1059…106c LineComal80 {
0x1059…106c ptr = 0xa65a // 0x1059 @0x0
0x1059…106c lno = 0x0942 // 0x105b @0x2
0x1059…106c at0004 = ╱8333╱ FOR ╱ // 0x105d @0x4
0x1059…106c at0006 = ╱58╱X╱ // 0x105f @0x6
0x1059…106c at0007 = ╱f0╱ := ╱ // 0x1060 @0x7
0x1059…106c at0008 = ╱31╱1╱ // 0x1061 @0x8
0x1059…106c at0009 = ╱f20100╱ // 0x1062 @0x9
0x1059…106c at000c = ╱b736╱ TO ╱ // 0x1065 @0xc
0x1059…106c at000e = ╱f20600╱ // 0x1067 @0xe
0x1059…106c at0011 = ╱bb╱ DO ╱ // 0x106a @0x11
0x1059…106c at0012 = EOL // 0x106b @0x12
0x1059…106c }
0x106c…1091 a67f 02380 IF X >< 3 THEN GET "DDE:BSLUT" : A ( 30 - X )
0x106c…1091 LineComal80 {
0x106c…1091 ptr = 0xa67f // 0x106c @0x0
0x106c…1091 lno = 0x094c // 0x106e @0x2
0x106c…1091 at0004 = ╱8200╱ IF ╱ // 0x1070 @0x4
0x106c…1091 at0006 = ╱58╱X╱ // 0x1072 @0x6
0x106c…1091 at0007 = ╱e4╱ >< ╱ // 0x1073 @0x7
0x106c…1091 at0008 = ╱33╱3╱ // 0x1074 @0x8
0x106c…1091 at0009 = ╱f20300╱ // 0x1075 @0x9
0x106c…1091 at000c = ╱b5╱ THEN ╱ // 0x1078 @0xc
0x106c…1091 at000d = ╱a9╱ GET ╱ // 0x1079 @0xd
0x106c…1091 at000e = ╱22╱"╱ // 0x107a @0xe
0x106c…1091 at000f = ╱44╱D╱ // 0x107b @0xf
0x106c…1091 at0010 = ╱44╱D╱ // 0x107c @0x10
0x106c…1091 at0011 = ╱45╱E╱ // 0x107d @0x11
0x106c…1091 at0012 = ╱3a╱:╱ // 0x107e @0x12
0x106c…1091 at0013 = ╱42╱B╱ // 0x107f @0x13
0x106c…1091 at0014 = ╱53╱S╱ // 0x1080 @0x14
0x106c…1091 at0015 = ╱4c╱L╱ // 0x1081 @0x15
0x106c…1091 at0016 = ╱55╱U╱ // 0x1082 @0x16
0x106c…1091 at0017 = ╱54╱T╱ // 0x1083 @0x17
0x106c…1091 at0018 = ╱22╱"╱ // 0x1084 @0x18
0x106c…1091 at0019 = ╱f1╱ : ╱ // 0x1085 @0x19
0x106c…1091 at001a = ╱41╱A╱ // 0x1086 @0x1a
0x106c…1091 at001b = ╱ed╱ ( ╱ // 0x1087 @0x1b
0x106c…1091 at001c = ╱33╱3╱ // 0x1088 @0x1c
0x106c…1091 at001d = ╱30╱0╱ // 0x1089 @0x1d
0x106c…1091 at001e = ╱f21e00╱ // 0x108a @0x1e
0x106c…1091 at0021 = ╱e6╱ - ╱ // 0x108d @0x21
0x106c…1091 at0022 = ╱58╱X╱ // 0x108e @0x22
0x106c…1091 at0023 = ╱ee╱ ) ╱ // 0x108f @0x23
0x106c…1091 at0024 = EOL // 0x1090 @0x24
0x106c…1091 }
0x1091…1098 a686 02390 NEXT X
0x1091…1098 LineComal80 {
0x1091…1098 ptr = 0xa686 // 0x1091 @0x0
0x1091…1098 lno = 0x0956 // 0x1093 @0x2
0x1091…1098 at0004 = ╱84╱ NEXT ╱ // 0x1095 @0x4
0x1091…1098 at0005 = ╱58╱X╱ // 0x1096 @0x5
0x1091…1098 at0006 = EOL // 0x1097 @0x6
0x1091…1098 }
0x1098…10a9 a697 02400 CLOSE "DDE:BSLUT"
0x1098…10a9 LineComal80 {
0x1098…10a9 ptr = 0xa697 // 0x1098 @0x0
0x1098…10a9 lno = 0x0960 // 0x109a @0x2
0x1098…10a9 at0004 = ╱a8╱ CLOSE ╱ // 0x109c @0x4
0x1098…10a9 at0005 = ╱22╱"╱ // 0x109d @0x5
0x1098…10a9 at0006 = ╱44╱D╱ // 0x109e @0x6
0x1098…10a9 at0007 = ╱44╱D╱ // 0x109f @0x7
0x1098…10a9 at0008 = ╱45╱E╱ // 0x10a0 @0x8
0x1098…10a9 at0009 = ╱3a╱:╱ // 0x10a1 @0x9
0x1098…10a9 at000a = ╱42╱B╱ // 0x10a2 @0xa
0x1098…10a9 at000b = ╱53╱S╱ // 0x10a3 @0xb
0x1098…10a9 at000c = ╱4c╱L╱ // 0x10a4 @0xc
0x1098…10a9 at000d = ╱55╱U╱ // 0x10a5 @0xd
0x1098…10a9 at000e = ╱54╱T╱ // 0x10a6 @0xe
0x1098…10a9 at000f = ╱22╱"╱ // 0x10a7 @0xf
0x1098…10a9 at0010 = EOL // 0x10a8 @0x10
0x1098…10a9 }
0x10a9…10b6 0000 02410 ENDPROC HENTBIP
0x10a9…10b6 LineComal80 {
0x10a9…10b6 ptr = 0x0000 // 0x10a9 @0x0
0x10a9…10b6 lno = 0x096a // 0x10ab @0x2
0x10a9…10b6 at0004 = ╱9f╱ ENDPROC ╱ // 0x10ad @0x4
0x10a9…10b6 at0005 = ╱48╱H╱ // 0x10ae @0x5
0x10a9…10b6 at0006 = ╱45╱E╱ // 0x10af @0x6
0x10a9…10b6 at0007 = ╱4e╱N╱ // 0x10b0 @0x7
0x10a9…10b6 at0008 = ╱54╱T╱ // 0x10b1 @0x8
0x10a9…10b6 at0009 = ╱42╱B╱ // 0x10b2 @0x9
0x10a9…10b6 at000a = ╱49╱I╱ // 0x10b3 @0xa
0x10a9…10b6 at000b = ╱50╱P╱ // 0x10b4 @0xb
0x10a9…10b6 at000c = EOL // 0x10b5 @0xc
0x10a9…10b6 }
0x10b6…10ed a2c2 01760 LET QT $ := "OVERSKYDENDE…SKAT" + PIL $ ( 1 : 14 ) ; QB := ABS ( D6 )
0x10b6…10ed LineComal80 {
0x10b6…10ed ptr = 0xa2c2 // 0x10b6 @0x0
0x10b6…10ed lno = 0x06e0 // 0x10b8 @0x2
0x10b6…10ed at0004 = ╱86╱ LET ╱ // 0x10ba @0x4
0x10b6…10ed at0005 = ╱51╱Q╱ // 0x10bb @0x5
0x10b6…10ed at0006 = ╱54╱T╱ // 0x10bc @0x6
0x10b6…10ed at0007 = ╱ef╱ $ ╱ // 0x10bd @0x7
0x10b6…10ed at0008 = ╱f0╱ := ╱ // 0x10be @0x8
0x10b6…10ed at0009 = ╱22╱"╱ // 0x10bf @0x9
0x10b6…10ed at000a = ╱4f╱O╱ // 0x10c0 @0xa
0x10b6…10ed at000b = ╱56╱V╱ // 0x10c1 @0xb
0x10b6…10ed at000c = ╱45╱E╱ // 0x10c2 @0xc
0x10b6…10ed at000d = ╱52╱R╱ // 0x10c3 @0xd
0x10b6…10ed at000e = ╱53╱S╱ // 0x10c4 @0xe
0x10b6…10ed at000f = ╱4b╱K╱ // 0x10c5 @0xf
0x10b6…10ed at0010 = ╱59╱Y╱ // 0x10c6 @0x10
0x10b6…10ed at0011 = ╱44╱D╱ // 0x10c7 @0x11
0x10b6…10ed at0012 = ╱45╱E╱ // 0x10c8 @0x12
0x10b6…10ed at0013 = ╱4e╱N╱ // 0x10c9 @0x13
0x10b6…10ed at0014 = ╱44╱D╱ // 0x10ca @0x14
0x10b6…10ed at0015 = ╱45╱E╱ // 0x10cb @0x15
0x10b6…10ed at0016 = ╱20╱…╱ // 0x10cc @0x16
0x10b6…10ed at0017 = ╱53╱S╱ // 0x10cd @0x17
0x10b6…10ed at0018 = ╱4b╱K╱ // 0x10ce @0x18
0x10b6…10ed at0019 = ╱41╱A╱ // 0x10cf @0x19
0x10b6…10ed at001a = ╱54╱T╱ // 0x10d0 @0x1a
0x10b6…10ed at001b = ╱22╱"╱ // 0x10d1 @0x1b
0x10b6…10ed at001c = ╱eb╱ + ╱ // 0x10d2 @0x1c
0x10b6…10ed at001d = ╱50╱P╱ // 0x10d3 @0x1d
0x10b6…10ed at001e = ╱49╱I╱ // 0x10d4 @0x1e
0x10b6…10ed at001f = ╱4c╱L╱ // 0x10d5 @0x1f
0x10b6…10ed at0020 = ╱ef╱ $ ╱ // 0x10d6 @0x20
0x10b6…10ed at0021 = ╱ed╱ ( ╱ // 0x10d7 @0x21
0x10b6…10ed at0022 = ╱31╱1╱ // 0x10d8 @0x22
0x10b6…10ed at0023 = ╱f20100╱ // 0x10d9 @0x23
0x10b6…10ed at0026 = ╱f1╱ : ╱ // 0x10dc @0x26
0x10b6…10ed at0027 = ╱31╱1╱ // 0x10dd @0x27
0x10b6…10ed at0028 = ╱34╱4╱ // 0x10de @0x28
0x10b6…10ed at0029 = ╱f20e00╱ // 0x10df @0x29
0x10b6…10ed at002c = ╱ee╱ ) ╱ // 0x10e2 @0x2c
0x10b6…10ed at002d = ╱ea╱ ; ╱ // 0x10e3 @0x2d
0x10b6…10ed at002e = ╱51╱Q╱ // 0x10e4 @0x2e
0x10b6…10ed at002f = ╱42╱B╱ // 0x10e5 @0x2f
0x10b6…10ed at0030 = ╱f0╱ := ╱ // 0x10e6 @0x30
0x10b6…10ed at0031 = ╱c4╱ ABS ╱ // 0x10e7 @0x31
0x10b6…10ed at0032 = ╱ed╱ ( ╱ // 0x10e8 @0x32
0x10b6…10ed at0033 = ╱44╱D╱ // 0x10e9 @0x33
0x10b6…10ed at0034 = ╱36╱6╱ // 0x10ea @0x34
0x10b6…10ed at0035 = ╱ee╱ ) ╱ // 0x10eb @0x35
0x10b6…10ed at0036 = EOL // 0x10ec @0x36
0x10b6…10ed }
0x10ed…10f3 9991 00455 STOP
0x10ed…10f3 LineComal80 {
0x10ed…10f3 ptr = 0x9991 // 0x10ed @0x0
0x10ed…10f3 lno = 0x01c7 // 0x10ef @0x2
0x10ed…10f3 at0004 = ╱8d╱ STOP ╱ // 0x10f1 @0x4
0x10ed…10f3 at0005 = EOL // 0x10f2 @0x5
0x10ed…10f3 }
0x10f3…10f8 9991 00455
0x10f3…10f8 LineComal80 {
0x10f3…10f8 ptr = 0x9991 // 0x10f3 @0x0
0x10f3…10f8 lno = 0x01c7 // 0x10f5 @0x2
0x10f3…10f8 at0004 = EOL // 0x10f7 @0x4
0x10f3…10f8 }
0x10f8…1113 9991 00455 LET HD6 := HD6 + B9 ; BD6 := BD6 + E6
0x10f8…1113 LineComal80 {
0x10f8…1113 ptr = 0x9991 // 0x10f8 @0x0
0x10f8…1113 lno = 0x01c7 // 0x10fa @0x2
0x10f8…1113 at0004 = ╱86╱ LET ╱ // 0x10fc @0x4
0x10f8…1113 at0005 = ╱48╱H╱ // 0x10fd @0x5
0x10f8…1113 at0006 = ╱44╱D╱ // 0x10fe @0x6
0x10f8…1113 at0007 = ╱36╱6╱ // 0x10ff @0x7
0x10f8…1113 at0008 = ╱f0╱ := ╱ // 0x1100 @0x8
0x10f8…1113 at0009 = ╱48╱H╱ // 0x1101 @0x9
0x10f8…1113 at000a = ╱44╱D╱ // 0x1102 @0xa
0x10f8…1113 at000b = ╱36╱6╱ // 0x1103 @0xb
0x10f8…1113 at000c = ╱e5╱ + ╱ // 0x1104 @0xc
0x10f8…1113 at000d = ╱42╱B╱ // 0x1105 @0xd
0x10f8…1113 at000e = ╱39╱9╱ // 0x1106 @0xe
0x10f8…1113 at000f = ╱ea╱ ; ╱ // 0x1107 @0xf
0x10f8…1113 at0010 = ╱42╱B╱ // 0x1108 @0x10
0x10f8…1113 at0011 = ╱44╱D╱ // 0x1109 @0x11
0x10f8…1113 at0012 = ╱36╱6╱ // 0x110a @0x12
0x10f8…1113 at0013 = ╱f0╱ := ╱ // 0x110b @0x13
0x10f8…1113 at0014 = ╱42╱B╱ // 0x110c @0x14
0x10f8…1113 at0015 = ╱44╱D╱ // 0x110d @0x15
0x10f8…1113 at0016 = ╱36╱6╱ // 0x110e @0x16
0x10f8…1113 at0017 = ╱e5╱ + ╱ // 0x110f @0x17
0x10f8…1113 at0018 = ╱45╱E╱ // 0x1110 @0x18
0x10f8…1113 at0019 = ╱36╱6╱ // 0x1111 @0x19
0x10f8…1113 at001a = EOL // 0x1112 @0x1a
0x10f8…1113 }
0x1113…1130 9b2d 00560 LET D6 := HD6 + B9 ; SKG := F6 ; AKT := F9
0x1113…1130 LineComal80 {
0x1113…1130 ptr = 0x9b2d // 0x1113 @0x0
0x1113…1130 lno = 0x0230 // 0x1115 @0x2
0x1113…1130 at0004 = ╱86╱ LET ╱ // 0x1117 @0x4
0x1113…1130 at0005 = ╱44╱D╱ // 0x1118 @0x5
0x1113…1130 at0006 = ╱36╱6╱ // 0x1119 @0x6
0x1113…1130 at0007 = ╱f0╱ := ╱ // 0x111a @0x7
0x1113…1130 at0008 = ╱48╱H╱ // 0x111b @0x8
0x1113…1130 at0009 = ╱44╱D╱ // 0x111c @0x9
0x1113…1130 at000a = ╱36╱6╱ // 0x111d @0xa
0x1113…1130 at000b = ╱e5╱ + ╱ // 0x111e @0xb
0x1113…1130 at000c = ╱42╱B╱ // 0x111f @0xc
0x1113…1130 at000d = ╱39╱9╱ // 0x1120 @0xd
0x1113…1130 at000e = ╱ea╱ ; ╱ // 0x1121 @0xe
0x1113…1130 at000f = ╱53╱S╱ // 0x1122 @0xf
0x1113…1130 at0010 = ╱4b╱K╱ // 0x1123 @0x10
0x1113…1130 at0011 = ╱47╱G╱ // 0x1124 @0x11
0x1113…1130 at0012 = ╱f0╱ := ╱ // 0x1125 @0x12
0x1113…1130 at0013 = ╱46╱F╱ // 0x1126 @0x13
0x1113…1130 at0014 = ╱36╱6╱ // 0x1127 @0x14
0x1113…1130 at0015 = ╱ea╱ ; ╱ // 0x1128 @0x15
0x1113…1130 at0016 = ╱41╱A╱ // 0x1129 @0x16
0x1113…1130 at0017 = ╱4b╱K╱ // 0x112a @0x17
0x1113…1130 at0018 = ╱54╱T╱ // 0x112b @0x18
0x1113…1130 at0019 = ╱f0╱ := ╱ // 0x112c @0x19
0x1113…1130 at001a = ╱46╱F╱ // 0x112d @0x1a
0x1113…1130 at001b = ╱39╱9╱ // 0x112e @0x1b
0x1113…1130 at001c = EOL // 0x112f @0x1c
0x1113…1130 }
0x1130…114d 9cae 00820 LET D6 := BD6 + E6 ; SKG := F7 ; AKT := F0
0x1130…114d LineComal80 {
0x1130…114d ptr = 0x9cae // 0x1130 @0x0
0x1130…114d lno = 0x0334 // 0x1132 @0x2
0x1130…114d at0004 = ╱86╱ LET ╱ // 0x1134 @0x4
0x1130…114d at0005 = ╱44╱D╱ // 0x1135 @0x5
0x1130…114d at0006 = ╱36╱6╱ // 0x1136 @0x6
0x1130…114d at0007 = ╱f0╱ := ╱ // 0x1137 @0x7
0x1130…114d at0008 = ╱42╱B╱ // 0x1138 @0x8
0x1130…114d at0009 = ╱44╱D╱ // 0x1139 @0x9
0x1130…114d at000a = ╱36╱6╱ // 0x113a @0xa
0x1130…114d at000b = ╱e5╱ + ╱ // 0x113b @0xb
0x1130…114d at000c = ╱45╱E╱ // 0x113c @0xc
0x1130…114d at000d = ╱36╱6╱ // 0x113d @0xd
0x1130…114d at000e = ╱ea╱ ; ╱ // 0x113e @0xe
0x1130…114d at000f = ╱53╱S╱ // 0x113f @0xf
0x1130…114d at0010 = ╱4b╱K╱ // 0x1140 @0x10
0x1130…114d at0011 = ╱47╱G╱ // 0x1141 @0x11
0x1130…114d at0012 = ╱f0╱ := ╱ // 0x1142 @0x12
0x1130…114d at0013 = ╱46╱F╱ // 0x1143 @0x13
0x1130…114d at0014 = ╱37╱7╱ // 0x1144 @0x14
0x1130…114d at0015 = ╱ea╱ ; ╱ // 0x1145 @0x15
0x1130…114d at0016 = ╱41╱A╱ // 0x1146 @0x16
0x1130…114d at0017 = ╱4b╱K╱ // 0x1147 @0x17
0x1130…114d at0018 = ╱54╱T╱ // 0x1148 @0x18
0x1130…114d at0019 = ╱f0╱ := ╱ // 0x1149 @0x19
0x1130…114d at001a = ╱46╱F╱ // 0x114a @0x1a
0x1130…114d at001b = ╱30╱0╱ // 0x114b @0x1b
0x1130…114d at001c = EOL // 0x114c @0x1c
0x1130…114d }
0x114d…115b 9bdc 00685 LET MIDD6 := D6
0x114d…115b LineComal80 {
0x114d…115b ptr = 0x9bdc // 0x114d @0x0
0x114d…115b lno = 0x02ad // 0x114f @0x2
0x114d…115b at0004 = ╱86╱ LET ╱ // 0x1151 @0x4
0x114d…115b at0005 = ╱4d╱M╱ // 0x1152 @0x5
0x114d…115b at0006 = ╱49╱I╱ // 0x1153 @0x6
0x114d…115b at0007 = ╱44╱D╱ // 0x1154 @0x7
0x114d…115b at0008 = ╱44╱D╱ // 0x1155 @0x8
0x114d…115b at0009 = ╱36╱6╱ // 0x1156 @0x9
0x114d…115b at000a = ╱f0╱ := ╱ // 0x1157 @0xa
0x114d…115b at000b = ╱44╱D╱ // 0x1158 @0xb
0x114d…115b at000c = ╱36╱6╱ // 0x1159 @0xc
0x114d…115b at000d = EOL // 0x115a @0xd
0x114d…115b }
0x115b…1169 9c7e 00795 LET D6 := MIDD6
0x115b…1169 LineComal80 {
0x115b…1169 ptr = 0x9c7e // 0x115b @0x0
0x115b…1169 lno = 0x031b // 0x115d @0x2
0x115b…1169 at0004 = ╱86╱ LET ╱ // 0x115f @0x4
0x115b…1169 at0005 = ╱44╱D╱ // 0x1160 @0x5
0x115b…1169 at0006 = ╱36╱6╱ // 0x1161 @0x6
0x115b…1169 at0007 = ╱f0╱ := ╱ // 0x1162 @0x7
0x115b…1169 at0008 = ╱4d╱M╱ // 0x1163 @0x8
0x115b…1169 at0009 = ╱49╱I╱ // 0x1164 @0x9
0x115b…1169 at000a = ╱44╱D╱ // 0x1165 @0xa
0x115b…1169 at000b = ╱44╱D╱ // 0x1166 @0xb
0x115b…1169 at000c = ╱36╱6╱ // 0x1167 @0xc
0x115b…1169 at000d = EOL // 0x1168 @0xd
0x115b…1169 }
0x1169…1198 a20d 01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( DD6 )
0x1169…1198 LineComal80 {
0x1169…1198 ptr = 0xa20d // 0x1169 @0x0
0x1169…1198 lno = 0x0690 // 0x116b @0x2
0x1169…1198 at0004 = ╱86╱ LET ╱ // 0x116d @0x4
0x1169…1198 at0005 = ╱51╱Q╱ // 0x116e @0x5
0x1169…1198 at0006 = ╱54╱T╱ // 0x116f @0x6
0x1169…1198 at0007 = ╱ef╱ $ ╱ // 0x1170 @0x7
0x1169…1198 at0008 = ╱f0╱ := ╱ // 0x1171 @0x8
0x1169…1198 at0009 = ╱22╱"╱ // 0x1172 @0x9
0x1169…1198 at000a = ╱52╱R╱ // 0x1173 @0xa
0x1169…1198 at000b = ╱45╱E╱ // 0x1174 @0xb
0x1169…1198 at000c = ╱53╱S╱ // 0x1175 @0xc
0x1169…1198 at000d = ╱54╱T╱ // 0x1176 @0xd
0x1169…1198 at000e = ╱53╱S╱ // 0x1177 @0xe
0x1169…1198 at000f = ╱4b╱K╱ // 0x1178 @0xf
0x1169…1198 at0010 = ╱41╱A╱ // 0x1179 @0x10
0x1169…1198 at0011 = ╱54╱T╱ // 0x117a @0x11
0x1169…1198 at0012 = ╱22╱"╱ // 0x117b @0x12
0x1169…1198 at0013 = ╱eb╱ + ╱ // 0x117c @0x13
0x1169…1198 at0014 = ╱50╱P╱ // 0x117d @0x14
0x1169…1198 at0015 = ╱49╱I╱ // 0x117e @0x15
0x1169…1198 at0016 = ╱4c╱L╱ // 0x117f @0x16
0x1169…1198 at0017 = ╱ef╱ $ ╱ // 0x1180 @0x17
0x1169…1198 at0018 = ╱ed╱ ( ╱ // 0x1181 @0x18
0x1169…1198 at0019 = ╱31╱1╱ // 0x1182 @0x19
0x1169…1198 at001a = ╱f20100╱ // 0x1183 @0x1a
0x1169…1198 at001d = ╱f1╱ : ╱ // 0x1186 @0x1d
0x1169…1198 at001e = ╱32╱2╱ // 0x1187 @0x1e
0x1169…1198 at001f = ╱33╱3╱ // 0x1188 @0x1f
0x1169…1198 at0020 = ╱f21700╱ // 0x1189 @0x20
0x1169…1198 at0023 = ╱ee╱ ) ╱ // 0x118c @0x23
0x1169…1198 at0024 = ╱ea╱ ; ╱ // 0x118d @0x24
0x1169…1198 at0025 = ╱51╱Q╱ // 0x118e @0x25
0x1169…1198 at0026 = ╱42╱B╱ // 0x118f @0x26
0x1169…1198 at0027 = ╱f0╱ := ╱ // 0x1190 @0x27
0x1169…1198 at0028 = ╱c6╱ INT ╱ // 0x1191 @0x28
0x1169…1198 at0029 = ╱ed╱ ( ╱ // 0x1192 @0x29
0x1169…1198 at002a = ╱44╱D╱ // 0x1193 @0x2a
0x1169…1198 at002b = ╱44╱D╱ // 0x1194 @0x2b
0x1169…1198 at002c = ╱36╱6╱ // 0x1195 @0x2c
0x1169…1198 at002d = ╱ee╱ ) ╱ // 0x1196 @0x2d
0x1169…1198 at002e = EOL // 0x1197 @0x2e
0x1169…1198 }
0x1198…11c6 a20d 01680 LET QT $ := "RESTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( D6 )
0x1198…11c6 LineComal80 {
0x1198…11c6 ptr = 0xa20d // 0x1198 @0x0
0x1198…11c6 lno = 0x0690 // 0x119a @0x2
0x1198…11c6 at0004 = ╱86╱ LET ╱ // 0x119c @0x4
0x1198…11c6 at0005 = ╱51╱Q╱ // 0x119d @0x5
0x1198…11c6 at0006 = ╱54╱T╱ // 0x119e @0x6
0x1198…11c6 at0007 = ╱ef╱ $ ╱ // 0x119f @0x7
0x1198…11c6 at0008 = ╱f0╱ := ╱ // 0x11a0 @0x8
0x1198…11c6 at0009 = ╱22╱"╱ // 0x11a1 @0x9
0x1198…11c6 at000a = ╱52╱R╱ // 0x11a2 @0xa
0x1198…11c6 at000b = ╱45╱E╱ // 0x11a3 @0xb
0x1198…11c6 at000c = ╱53╱S╱ // 0x11a4 @0xc
0x1198…11c6 at000d = ╱54╱T╱ // 0x11a5 @0xd
0x1198…11c6 at000e = ╱53╱S╱ // 0x11a6 @0xe
0x1198…11c6 at000f = ╱4b╱K╱ // 0x11a7 @0xf
0x1198…11c6 at0010 = ╱41╱A╱ // 0x11a8 @0x10
0x1198…11c6 at0011 = ╱54╱T╱ // 0x11a9 @0x11
0x1198…11c6 at0012 = ╱22╱"╱ // 0x11aa @0x12
0x1198…11c6 at0013 = ╱eb╱ + ╱ // 0x11ab @0x13
0x1198…11c6 at0014 = ╱50╱P╱ // 0x11ac @0x14
0x1198…11c6 at0015 = ╱49╱I╱ // 0x11ad @0x15
0x1198…11c6 at0016 = ╱4c╱L╱ // 0x11ae @0x16
0x1198…11c6 at0017 = ╱ef╱ $ ╱ // 0x11af @0x17
0x1198…11c6 at0018 = ╱ed╱ ( ╱ // 0x11b0 @0x18
0x1198…11c6 at0019 = ╱31╱1╱ // 0x11b1 @0x19
0x1198…11c6 at001a = ╱f20100╱ // 0x11b2 @0x1a
0x1198…11c6 at001d = ╱f1╱ : ╱ // 0x11b5 @0x1d
0x1198…11c6 at001e = ╱32╱2╱ // 0x11b6 @0x1e
0x1198…11c6 at001f = ╱33╱3╱ // 0x11b7 @0x1f
0x1198…11c6 at0020 = ╱f21700╱ // 0x11b8 @0x20
0x1198…11c6 at0023 = ╱ee╱ ) ╱ // 0x11bb @0x23
0x1198…11c6 at0024 = ╱ea╱ ; ╱ // 0x11bc @0x24
0x1198…11c6 at0025 = ╱51╱Q╱ // 0x11bd @0x25
0x1198…11c6 at0026 = ╱42╱B╱ // 0x11be @0x26
0x1198…11c6 at0027 = ╱f0╱ := ╱ // 0x11bf @0x27
0x1198…11c6 at0028 = ╱c6╱ INT ╱ // 0x11c0 @0x28
0x1198…11c6 at0029 = ╱ed╱ ( ╱ // 0x11c1 @0x29
0x1198…11c6 at002a = ╱44╱D╱ // 0x11c2 @0x2a
0x1198…11c6 at002b = ╱36╱6╱ // 0x11c3 @0x2b
0x1198…11c6 at002c = ╱ee╱ ) ╱ // 0x11c4 @0x2c
0x1198…11c6 at002d = EOL // 0x11c5 @0x2d
0x1198…11c6 }
0x11c6…11f5 a085 01450 LET QT $ := "SLUTSKAT" + PIL $ ( 1 : 23 ) ; QB := INT ( DD6 )
0x11c6…11f5 LineComal80 {
0x11c6…11f5 ptr = 0xa085 // 0x11c6 @0x0
0x11c6…11f5 lno = 0x05aa // 0x11c8 @0x2
0x11c6…11f5 at0004 = ╱86╱ LET ╱ // 0x11ca @0x4
0x11c6…11f5 at0005 = ╱51╱Q╱ // 0x11cb @0x5
0x11c6…11f5 at0006 = ╱54╱T╱ // 0x11cc @0x6
0x11c6…11f5 at0007 = ╱ef╱ $ ╱ // 0x11cd @0x7
0x11c6…11f5 at0008 = ╱f0╱ := ╱ // 0x11ce @0x8
0x11c6…11f5 at0009 = ╱22╱"╱ // 0x11cf @0x9
0x11c6…11f5 at000a = ╱53╱S╱ // 0x11d0 @0xa
0x11c6…11f5 at000b = ╱4c╱L╱ // 0x11d1 @0xb
0x11c6…11f5 at000c = ╱55╱U╱ // 0x11d2 @0xc
0x11c6…11f5 at000d = ╱54╱T╱ // 0x11d3 @0xd
0x11c6…11f5 at000e = ╱53╱S╱ // 0x11d4 @0xe
0x11c6…11f5 at000f = ╱4b╱K╱ // 0x11d5 @0xf
0x11c6…11f5 at0010 = ╱41╱A╱ // 0x11d6 @0x10
0x11c6…11f5 at0011 = ╱54╱T╱ // 0x11d7 @0x11
0x11c6…11f5 at0012 = ╱22╱"╱ // 0x11d8 @0x12
0x11c6…11f5 at0013 = ╱eb╱ + ╱ // 0x11d9 @0x13
0x11c6…11f5 at0014 = ╱50╱P╱ // 0x11da @0x14
0x11c6…11f5 at0015 = ╱49╱I╱ // 0x11db @0x15
0x11c6…11f5 at0016 = ╱4c╱L╱ // 0x11dc @0x16
0x11c6…11f5 at0017 = ╱ef╱ $ ╱ // 0x11dd @0x17
0x11c6…11f5 at0018 = ╱ed╱ ( ╱ // 0x11de @0x18
0x11c6…11f5 at0019 = ╱31╱1╱ // 0x11df @0x19
0x11c6…11f5 at001a = ╱f20100╱ // 0x11e0 @0x1a
0x11c6…11f5 at001d = ╱f1╱ : ╱ // 0x11e3 @0x1d
0x11c6…11f5 at001e = ╱32╱2╱ // 0x11e4 @0x1e
0x11c6…11f5 at001f = ╱33╱3╱ // 0x11e5 @0x1f
0x11c6…11f5 at0020 = ╱f21700╱ // 0x11e6 @0x20
0x11c6…11f5 at0023 = ╱ee╱ ) ╱ // 0x11e9 @0x23
0x11c6…11f5 at0024 = ╱ea╱ ; ╱ // 0x11ea @0x24
0x11c6…11f5 at0025 = ╱51╱Q╱ // 0x11eb @0x25
0x11c6…11f5 at0026 = ╱42╱B╱ // 0x11ec @0x26
0x11c6…11f5 at0027 = ╱f0╱ := ╱ // 0x11ed @0x27
0x11c6…11f5 at0028 = ╱c6╱ INT ╱ // 0x11ee @0x28
0x11c6…11f5 at0029 = ╱ed╱ ( ╱ // 0x11ef @0x29
0x11c6…11f5 at002a = ╱44╱D╱ // 0x11f0 @0x2a
0x11c6…11f5 at002b = ╱44╱D╱ // 0x11f1 @0x2b
0x11c6…11f5 at002c = ╱36╱6╱ // 0x11f2 @0x2c
0x11c6…11f5 at002d = ╱ee╱ ) ╱ // 0x11f3 @0x2d
0x11c6…11f5 at002e = EOL // 0x11f4 @0x2e
0x11c6…11f5 }
0x11f5…11fb (60,) 95ee 38382 ╱00╱ ╱00╱
0x11f5…11fb LineComal80 {
0x11f5…11fb ptr = 0x95ee // 0x11f5 @0x0
0x11f5…11fb lno = 0x95ee // 0x11f7 @0x2
0x11f5…11fb at0004 = ╱00╱ // 0x11f9 @0x4
0x11f5…11fb at0005 = ╱00╱ // 0x11fa @0x5
0x11f5…11fb }