SV]RA ORD ][£

00000000: 01 08 27 08 0A 00 8F 20  45 54 54 20 50 52 4F 47  |..'.... ETT PROG|
00000010: 52 41 4D 20 5C 56 45 52  53 41 54 54 20 41 56 20  |RAM \VERSATT AV |
00000020: 42 45 4E 47 54 20 47 00  56 08 14 00 58 52 B2 37  |BENGT G.V...XR.7|
00000030: 38 31 3A 59 52 B2 37 38  32 3A 53 52 B2 37 38 33  |81:YR.782:SR.783|
00000040: 3A 42 4F B2 35 33 32 38  30 3A 42 41 B2 42 4F AA  |:BO.53280:BA.BO.|
00000050: 31 3A 51 B2 31 32 00 8A  08 1E 00 4E 44 58 B2 31  |1:Q.12.....NDX.1|
00000060: 39 38 3A 8B C2 28 36 35  35 33 30 29 B2 35 A7 FE  |98:..(65530).5..|
00000070: 02 31 35 3A 58 52 B2 37  3A 59 52 B2 38 3A 53 52  |.15:XR.7:YR.8:SR|
00000080: B2 35 3A 4E 44 58 B2 32  30 38 00 D3 08 28 00 8B  |.5:NDX.208...(..|
00000090: C2 28 36 35 35 33 30 29  B2 31 36 34 A7 53 52 B2  |.(65530).164.SR.|
000000A0: 32 30 33 37 3A 58 52 B2  32 30 33 35 3A 59 52 B2  |2037:XR.2035:YR.|
000000B0: 32 30 33 36 3A 42 4F B2  36 35 33 30 35 3A 42 41  |2036:BO.65305:BA|
000000C0: B2 36 35 33 30 31 3A 51  B2 31 34 3A 4E 44 58 B2  |.65301:Q.14:NDX.|
000000D0: 32 33 39 00 EC 08 32 00  50 4C B2 36 35 35 32 30  |239...2.PL.65520|
000000E0: 3A 97 42 4F 2C 30 3A 97  42 41 2C 31 00 18 09 3C  |:.BO,0:.BA,1...<|
000000F0: 00 8B C2 28 36 35 35 33  30 29 B3 B1 31 36 34 A7  |...(65530)..164.|
00000100: 53 B2 35 34 32 37 32 3A  81 4E B2 53 A4 53 AA 32  |S.54272:.N.S.S.2|
00000110: 34 3A 97 4E 2C 30 3A 82  00 40 09 46 00 41 4C 24  |4:.N,0:..@.F.AL$|
00000120: B2 22 51 41 5A 58 53 57  45 44 43 56 46 52 54 47  |."QAZXSWEDCVFRTG|
00000130: 42 4E 48 59 55 4A 4D 4B  49 4F 4C 50 5D 5B 5C 22  |BNHYUJMKIOLP][\"|
00000140: 00 6F 09 50 00 99 22 93  9C 20 20 20 45 54 54 20  |.o.P.."..   ETT |
00000150: 41 4D 45 52 49 4B 41 4E  53 4B 54 20 50 52 4F 47  |AMERIKANSKT PROG|
00000160: 52 41 4D 20 5C 56 45 52  53 41 54 54 20 20 22 00  |RAM \VERSATT  ".|
00000170: 94 09 5A 00 99 A3 31 30  29 22 41 56 20 42 45 4E  |..Z...10)"AV BEN|
00000180: 47 54 20 47 20 4A 4F 48  41 4E 53 53 4F 4E 22 3A  |GT G JOHANSSON":|
00000190: 8D 38 34 30 00 B9 09 64  00 99 22 11 11 11 11 11  |.840...d..".....|
000001A0: 11 11 22 A3 31 35 29 22  12 44 4F 4C 44 41 20 4F  |..".15)".DOLDA O|
000001B0: 52 44 11 11 11 11 11 11  22 00 E3 09 6E 00 85 22  |RD......"...n.."|
000001C0: 56 49 4C 4C 20 44 55 20  48 41 20 45 4E 20 54 49  |VILL DU HA EN TI|
000001D0: 44 53 47 52 5B 4E 53 3F  20 28 4A 2F 4E 29 22 3B  |DSGR[NS? (J/N)";|
000001E0: 54 4C 24 00 FE 09 78 00  8B 54 4C 24 B3 B1 22 4A  |TL$...x..TL$.."J|
000001F0: 22 AF 54 4C 24 B3 B1 22  4E 22 A7 31 32 30 00 22  |".TL$.."N".120."|
00000200: 0A 82 00 8B 54 4C 24 B2  22 4E 22 A7 54 4C 24 B2  |....TL$."N".TL$.|
00000210: 22 32 30 30 30 30 30 22  3A 54 4C B2 30 3A 89 31  |"200000":TL.0:.1|
00000220: 37 30 00 56 0A 8C 00 85  22 11 48 55 52 20 4D 5D  |70.V....".HUR M]|
00000230: 4E 47 41 20 4D 49 4E 55  54 45 52 20 28 31 2D 35  |NGA MINUTER (1-5|
00000240: 39 29 22 3B 54 4C 3A 8B  54 4C B3 31 B0 54 4C B1  |9)";TL:.TL.1.TL.|
00000250: 35 39 A7 31 34 30 00 6C  0A 91 00 8B 20 54 4C B3  |59.140.l.... TL.|
00000260: B1 B5 28 54 4C 29 20 A7  20 31 34 30 00 A0 0A 96  |..(TL) . 140....|
00000270: 00 54 4C B2 B5 28 54 4C  29 3A 54 4C 24 B2 C4 28  |.TL..(TL):TL$..(|
00000280: 54 4C AC 31 30 30 29 3A  54 4C 24 B2 C9 28 54 4C  |TL.100):TL$..(TL|
00000290: 24 2C C3 28 54 4C 24 29  AB 31 29 3A 54 4C B2 31  |$,.(TL$).1):TL.1|
000002A0: 00 CD 0A A0 00 81 57 57  B2 31 A4 36 AB C3 28 54  |......WW.1.6..(T|
000002B0: 4C 24 29 3A 54 54 24 B2  54 54 24 AA 22 30 22 3A  |L$):TT$.TT$."0":|
000002C0: 82 3A 54 4C 24 B2 54 54  24 AA 54 4C 24 00 EA 0A  |.:TL$.TT$.TL$...|
000002D0: AA 00 8D 37 37 30 3A 8D  36 38 30 3A 8D 36 32 30  |...770:.680:.620|
000002E0: 3A 8D 34 36 30 3A 8D 34  32 30 00 FE 0A B4 00 8F  |:.460:.420......|
000002F0: 20 2D 20 48 55 56 55 44  4C 4F 4F 50 20 2D 00 19  | - HUVUDLOOP -..|
00000300: 0B BE 00 54 49 24 B2 22  30 30 30 30 30 30 22 3A  |...TI$."000000":|
00000310: 54 55 B2 30 3A 57 46 B2  30 00 45 0B C8 00 97 59  |TU.0:WF.0.E....Y|
00000320: 52 2C 32 37 3A 97 58 52  2C 31 3A 9E 50 4C 3A 85  |R,27:.XR,1:.PL:.|
00000330: 22 9F 52 4F 57 20 22 3B  52 4F 24 3A 52 4F B2 C5  |".ROW ";RO$:RO..|
00000340: 28 52 4F 24 29 00 59 0B  D2 00 8B 52 4F B3 31 A7  |(RO$).Y....RO.1.|
00000350: 42 53 B2 30 3A 89 32 34  30 00 6E 0B DC 00 8B 52  |BS.0:.240.n....R|
00000360: 4F B1 32 30 A7 42 53 B2  31 3A 89 32 34 30 00 7D  |O.20.BS.1:.240.}|
00000370: 0B E6 00 8D 31 30 36 30  3A 89 32 35 30 00 B3 0B  |....1060:.250...|
00000380: F0 00 97 59 52 2C 32 37  3A 97 58 52 2C 31 3A 9E  |...YR,27:.XR,1:.|
00000390: 50 4C 3A 99 22 54 4F 4F  20 22 3B 42 53 24 28 42  |PL:."TOO ";BS$(B|
000003A0: 53 29 3A 8D 31 30 37 30  3A 8D 31 30 36 30 3A 89  |S):.1070:.1060:.|
000003B0: 32 30 30 00 CA 0B FA 00  8B 54 49 24 B1 54 4C 24  |200......TI$.TL$|
000003C0: A7 54 55 B2 31 3A 89 38  39 30 00 F8 0B 04 01 97  |.TU.1:.890......|
000003D0: 59 52 2C 32 37 3A 97 58  52 2C 31 3A 9E 50 4C 3A  |YR,27:.XR,1:.PL:|
000003E0: 85 22 43 4F 4C 55 4D 4E  20 22 3B 43 4F 24 3A 43  |."COLUMN ";CO$:C|
000003F0: 4F B2 C5 28 43 4F 24 29  00 0C 0C 0E 01 8B 43 4F  |O..(CO$)......CO|
00000400: B3 31 A7 42 53 B2 30 3A  89 33 30 30 00 21 0C 18  |.1.BS.0:.300.!..|
00000410: 01 8B 43 4F B1 32 30 A7  42 53 B2 31 3A 89 33 30  |..CO.20.BS.1:.30|
00000420: 30 00 30 0C 22 01 8D 31  30 36 30 3A 89 33 31 30  |0.0."..1060:.310|
00000430: 00 66 0C 2C 01 97 59 52  2C 32 37 3A 97 58 52 2C  |.f.,..YR,27:.XR,|
00000440: 31 3A 9E 50 4C 3A 99 22  54 4F 4F 20 22 3B 42 53  |1:.PL:."TOO ";BS|
00000450: 24 28 42 53 29 3A 8D 31  30 37 30 3A 8D 31 30 36  |$(BS):.1070:.106|
00000460: 30 3A 89 32 35 30 00 8F  0C 36 01 46 B2 30 3A 81  |0:.250...6.F.0:.|
00000470: 49 B2 31 A4 4E 57 3A 8B  52 4F B3 B1 50 59 28 49  |I.1.NW:.RO..PY(I|
00000480: 29 B0 43 4F B3 B1 50 58  28 49 29 A7 33 33 30 00  |).CO..PX(I).330.|
00000490: B4 0C 40 01 46 B2 32 3A  8B 54 28 49 29 B2 30 A7  |..@.F.2:.T(I).0.|
000004A0: 58 31 B2 49 3A 54 28 49  29 B2 31 3A 46 B2 31 3A  |X1.I:T(I).1:F.1:|
000004B0: 49 B2 4E 57 00 C3 0C 4A  01 82 3A 8B 46 B2 31 A7  |I.NW...J..:.F.1.|
000004C0: 33 36 30 00 E4 0C 54 01  43 24 B2 22 46 45 4C 22  |360...T.C$."FEL"|
000004D0: 3A 8B 46 B2 32 A7 43 24  B2 22 48 49 54 54 41 54  |:.F.2.C$."HITTAT|
000004E0: 21 21 21 22 00 14 0D 5E  01 97 59 52 2C 32 37 3A  |!!!"...^..YR,27:|
000004F0: 97 58 52 2C 31 3A 97 53  52 2C 30 3A 9E 50 4C 3A  |.XR,1:.SR,0:.PL:|
00000500: 99 43 24 3A 8D 31 30 37  30 3A 8D 31 30 36 30 3A  |.C$:.1070:.1060:|
00000510: 89 32 30 30 00 42 0D 68  01 81 49 B2 30 A4 C3 28  |.200.B.h..I.0..(|
00000520: 57 24 28 58 31 29 29 AB  31 3A 58 50 B2 33 AA 50  |W$(X1)).1:XP.3.P|
00000530: 58 28 58 31 29 AA 49 AC  44 58 28 54 57 28 58 31  |X(X1).I.DX(TW(X1|
00000540: 29 29 00 64 0D 72 01 59  50 B2 32 AA 50 59 28 58  |)).d.r.YP.2.PY(X|
00000550: 31 29 AA 49 AC 44 59 28  54 57 28 58 31 29 29 3A  |1).I.DY(TW(X1)):|
00000560: 8D 39 36 30 00 82 0D 7C  01 99 22 9C 22 CA 28 57  |.960...|..".".(W|
00000570: 24 28 58 31 29 2C 49 AA  31 2C 31 29 3A 8D 31 30  |$(X1),I.1,1):.10|
00000580: 33 30 00 B7 0D 86 01 82  3A 97 59 52 2C 32 35 3A  |30......:.YR,25:|
00000590: 97 58 52 2C 32 AA 58 31  3A 9E 50 4C 3A 99 57 24  |.XR,2.X1:.PL:.W$|
000005A0: 28 58 31 29 3A 57 46 B2  57 46 AA 31 3A 8B 57 46  |(X1):WF.WF.1:.WF|
000005B0: B2 4E 57 A7 38 38 30 00  C0 0D 90 01 89 32 30 30  |.NW.880......200|
000005C0: 00 D5 0D 9A 01 8F 20 2D  20 46 59 4C 4C 20 52 55  |...... - FYLL RU|
000005D0: 54 41 4E 20 2D 00 E9 0D  A4 01 81 59 B2 31 A4 32  |TAN -......Y.1.2|
000005E0: 30 3A 81 58 B2 31 A4 32  30 00 14 0E AE 01 8B 41  |0:.X.1.20......A|
000005F0: 24 28 58 2C 59 29 B2 22  22 A7 41 24 28 58 2C 59  |$(X,Y)."".A$(X,Y|
00000600: 29 B2 CA 28 41 4C 24 2C  32 36 AC BB 28 31 29 AA  |)..(AL$,26..(1).|
00000610: 31 2C 31 29 00 3A 0E B8  01 58 50 B2 33 AA 58 3A  |1,1).:...XP.3.X:|
00000620: 59 50 B2 32 AA 59 3A 8D  39 36 30 3A 99 41 24 28  |YP.2.Y:.960:.A$(|
00000630: 58 2C 59 29 3A 82 3A 82  3A 8E 00 53 0E C2 01 8F  |X,Y):.:.:..S....|
00000640: 20 2D 20 50 4C 41 43 45  52 41 20 55 54 20 4F 52  | - PLACERA UT OR|
00000650: 44 20 2D 00 5C 0E CC 01  50 57 B2 30 00 68 0E D6  |D -.\...PW.0.h..|
00000660: 01 50 57 B2 50 57 AA 31  00 94 0E E0 01 50 58 28  |.PW.PW.1.....PX(|
00000670: 50 57 29 B2 B5 28 32 30  AC BB 28 31 29 AA 31 29  |PW)..(20..(1).1)|
00000680: 3A 50 59 28 50 57 29 B2  B5 28 32 30 AC BB 28 31  |:PY(PW)..(20..(1|
00000690: 29 AA 31 29 00 B1 0E EA  01 44 52 B2 B5 28 38 AC  |).1).....DR..(8.|
000006A0: BB 28 31 29 AA 31 29 3A  54 57 28 50 57 29 B2 44  |.(1).1):TW(PW).D|
000006B0: 52 00 EB 0E F4 01 43 58  B2 50 58 28 50 57 29 AA  |R.....CX.PX(PW).|
000006C0: C3 28 57 24 28 50 57 29  29 AC 44 58 28 44 52 29  |.(W$(PW)).DX(DR)|
000006D0: 3A 43 59 B2 50 59 28 50  57 29 AA C3 28 57 24 28  |:CY.PY(PW)..(W$(|
000006E0: 50 57 29 29 AC 44 59 28  44 52 29 00 0A 0F FE 01  |PW)).DY(DR).....|
000006F0: 8B 43 58 B3 31 B0 43 58  B1 32 30 B0 43 59 B3 31  |.CX.1.CX.20.CY.1|
00000700: B0 43 59 B1 32 30 A7 34  38 30 00 24 0F 08 02 46  |.CY.20.480.$...F|
00000710: B2 30 3A 81 43 4B B2 30  A4 C3 28 57 24 28 50 57  |.0:.CK.0..(W$(PW|
00000720: 29 29 AB 31 00 67 0F 12  02 5A 31 24 B2 CA 28 57  |)).1.g...Z1$..(W|
00000730: 24 28 50 57 29 2C 43 4B  AA 31 2C 31 29 3A 5A 32  |$(PW),CK.1,1):Z2|
00000740: 24 B2 41 24 28 50 58 28  50 57 29 AA 43 4B AC 44  |$.A$(PX(PW).CK.D|
00000750: 58 28 44 52 29 2C 50 59  28 50 57 29 AA 43 4B AC  |X(DR),PY(PW).CK.|
00000760: 44 59 28 44 52 29 29 00  81 0F 1C 02 8B 5A 32 24  |DY(DR))......Z2$|
00000770: B3 B1 22 22 AF 5A 31 24  B3 B1 5A 32 24 A7 46 B2  |.."".Z1$..Z2$.F.|
00000780: 31 00 90 0F 26 02 82 3A  8B 46 B2 31 A7 34 38 30  |1...&..:.F.1.480|
00000790: 00 A6 0F 30 02 81 43 4B  B2 30 A4 C3 28 57 24 28  |...0..CK.0..(W$(|
000007A0: 50 57 29 29 AB 31 00 E9  0F 3A 02 5A 31 24 B2 CA  |PW)).1...:.Z1$..|
000007B0: 28 57 24 28 50 57 29 2C  43 4B AA 31 2C 31 29 3A  |(W$(PW),CK.1,1):|
000007C0: 41 24 28 50 58 28 50 57  29 AA 43 4B AC 44 58 28  |A$(PX(PW).CK.DX(|
000007D0: 44 52 29 2C 50 59 28 50  57 29 AA 43 4B AC 44 59  |DR),PY(PW).CK.DY|
000007E0: 28 44 52 29 29 B2 5A 31  24 00 0B 10 44 02 58 50  |(DR)).Z1$...D.XP|
000007F0: B2 32 35 3A 59 50 B2 32  AA 50 57 3A 8D 39 36 30  |.25:YP.2.PW:.960|
00000800: 3A 99 57 24 28 50 57 29  3B 3A 82 00 18 10 4E 02  |:.W$(PW);:....N.|
00000810: 8B 50 57 B2 4E 57 A7 8E  00 21 10 58 02 89 34 37  |.PW.NW...!.X..47|
00000820: 30 00 3A 10 62 02 8F 20  2D 20 53 4F 52 54 20 42  |0.:.b.. - SORT B|
00000830: 59 20 4C 45 4E 47 54 48  20 2D 00 5B 10 6C 02 97  |Y LENGTH -.[.l..|
00000840: 59 52 2C 32 39 3A 97 58  52 2C 31 3A 9E 50 4C 3A  |YR,29:.XR,1:.PL:|
00000850: 99 22 53 4F 52 54 45 52  41 52 22 00 6D 10 76 02  |."SORTERAR".m.v.|
00000860: 46 B2 30 3A 81 49 B2 31  A4 4E 57 AB 31 00 AC 10  |F.0:.I.1.NW.1...|
00000870: 80 02 8B C3 28 57 24 28  49 29 29 B3 C3 28 57 24  |....(W$(I))..(W$|
00000880: 28 49 AA 31 29 29 A7 54  24 B2 57 24 28 49 AA 31  |(I.1)).T$.W$(I.1|
00000890: 29 3A 57 24 28 49 AA 31  29 B2 57 24 28 49 29 3A  |):W$(I.1).W$(I):|
000008A0: 57 24 28 49 29 B2 54 24  3A 46 B2 31 00 BB 10 8A  |W$(I).T$:F.1....|
000008B0: 02 82 3A 8B 46 B2 31 A7  36 33 30 00 C7 10 94 02  |..:.F.1.630.....|
000008C0: 8D 31 30 36 30 3A 8E 00  DC 10 9E 02 8F 20 2D 20  |.1060:....... - |
000008D0: 52 49 54 41 20 52 55 54  41 4E 20 2D 00 EC 10 A8  |RITA RUTAN -....|
000008E0: 02 99 22 93 1F 11 11 1D  1D 1D 22 3B 00 08 11 B2  |..".......";....|
000008F0: 02 99 22 12 AC 22 3B 3A  81 49 B2 31 A4 32 30 3A  |.."..";:.I.1.20:|
00000900: 99 22 12 A2 22 3B 3A 82  00 29 11 BC 02 99 22 12  |."..";:..)....".|
00000910: BB 11 9D 22 3B 3A 81 49  B2 31 A4 32 30 3A 99 22  |...";:.I.1.20:."|
00000920: 12 A1 92 11 9D 22 3B 3A  82 00 49 11 C6 02 99 22  |.....";:..I...."|
00000930: 12 BE 9D 9D 22 3B 3A 81  49 B2 31 A4 32 30 3A 99  |....";:.I.1.20:.|
00000940: 22 92 A2 9D 9D 22 3B 3A  82 00 6E 11 D0 02 99 22  |"....";:..n...."|
00000950: 12 BC 9D 91 22 3B 3A 81  49 B2 31 A4 32 30 3A 99  |....";:.I.1.20:.|
00000960: 22 92 A1 9D 91 22 3B 3A  82 3A 99 22 1E 22 00 A6  |"....";:.:."."..|
00000970: 11 DA 02 81 49 B2 31 A4  32 30 3A 4E 55 24 B2 C4  |....I.1.20:NU$..|
00000980: 28 49 29 3A 4E 55 24 B2  CA 28 4E 55 24 2C 32 29  |(I):NU$..(NU$,2)|
00000990: 3A 8B C3 28 4E 55 24 29  B2 31 A7 4E 55 24 B2 22  |:..(NU$).1.NU$."|
000009A0: 20 22 AA 4E 55 24 00 DB  11 E4 02 58 50 B2 31 3A  | ".NU$.....XP.1:|
000009B0: 59 50 B2 49 AA 32 3A 8D  39 36 30 3A 99 4E 55 24  |YP.I.2:.960:.NU$|
000009C0: 3A 58 50 B2 49 AA 33 3A  59 50 B2 30 3A 8D 39 36  |:XP.I.3:YP.0:.96|
000009D0: 30 3A 99 C8 28 4E 55 24  2C 31 29 00 FE 11 EE 02  |0:..(NU$,1).....|
000009E0: 58 50 B2 49 AA 33 3A 59  50 B2 31 3A 8D 39 36 30  |XP.I.3:YP.1:.960|
000009F0: 3A 99 C9 28 4E 55 24 2C  31 29 3A 82 3A 8E 00 12  |:..(NU$,1):.:...|
00000A00: 12 F8 02 8F 20 2D 20 49  4E 50 55 54 20 4F 52 44  |.... - INPUT ORD|
00000A10: 20 2D 00 4F 12 02 03 85  22 93 11 48 55 52 20 4D  | -.O...."..HUR M|
00000A20: 5D 4E 47 41 20 4F 52 44  20 28 4D 41 58 49 4D 41  |]NGA ORD (MAXIMA|
00000A30: 4C 54 20 32 30 20 53 54  29 22 3B 4E 57 3A 99 3A  |LT 20 ST)";NW:.:|
00000A40: 8B 4E 57 B3 31 B0 4E 57  B1 32 30 A7 37 37 30 00  |.NW.1.NW.20.770.|
00000A50: 72 12 0C 03 99 22 93 53  4B 52 49 56 20 49 4E 20  |r....".SKRIV IN |
00000A60: 4F 52 44 20 4D 45 4C 4C  41 4E 20 33 20 4F 43 48  |ORD MELLAN 3 OCH|
00000A70: 22 51 00 95 12 16 03 99  22 42 4F 4B 53 54 5B 56  |"Q......"BOKST[V|
00000A80: 45 52 20 49 20 4C 5B 4E  47 44 3A 11 22 3A 81 49  |ER I L[NGD:.":.I|
00000A90: B2 31 A4 4E 57 00 A8 12  20 03 99 49 22 3E 20 22  |.1.NW... ..I"> "|
00000AA0: 3B 3A 85 57 24 28 49 29  00 D4 12 2A 03 8B C3 28  |;:.W$(I)...*...(|
00000AB0: 57 24 28 49 29 29 B3 33  B0 C3 28 57 24 28 49 29  |W$(I)).3..(W$(I)|
00000AC0: 29 B1 51 A7 99 C7 28 31  33 29 22 91 91 91 22 3A  |).Q...(13)"...":|
00000AD0: 89 38 30 30 00 DC 12 34  03 82 3A 8E 00 F5 12 3E  |.800...4..:....>|
00000AE0: 03 8F 20 2D 20 53 5B 54  54 20 56 41 52 49 41 42  |.. - S[TT VARIAB|
00000AF0: 4C 45 52 20 2D 00 32 13  48 03 86 41 24 28 32 30  |LER -.2.H..A$(20|
00000B00: 2C 32 30 29 2C 57 24 28  32 30 29 2C 50 58 28 32  |,20),W$(20),PX(2|
00000B10: 30 29 2C 50 59 28 32 30  29 2C 44 58 28 38 29 2C  |0),PY(20),DX(8),|
00000B20: 44 59 28 38 29 2C 54 57  28 32 30 29 2C 54 28 32  |DY(8),TW(20),T(2|
00000B30: 30 29 00 70 13 52 03 81  49 B2 31 A4 38 3A 87 44  |0).p.R..I.1.8:.D|
00000B40: 58 28 49 29 2C 44 59 28  49 29 3A 82 3A 42 53 24  |X(I),DY(I):.:BS$|
00000B50: 28 30 29 B2 22 53 4D 41  4C 4C 20 20 22 3A 42 53  |(0)."SMALL  ":BS|
00000B60: 24 28 31 29 B2 22 42 49  47 20 20 20 20 22 3A 8E  |$(1)."BIG    ":.|
00000B70: 00 9C 13 5C 03 83 20 30  2C 2D 31 2C 31 2C 2D 31  |...\.. 0,-1,1,-1|
00000B80: 2C 31 2C 30 2C 31 2C 31  2C 30 2C 31 2C 2D 31 2C  |,1,0,1,1,0,1,-1,|
00000B90: 31 2C 2D 31 2C 30 2C 2D  31 2C 2D 31 00 B1 13 66  |1,-1,0,-1,-1...f|
00000BA0: 03 8F 20 2D 20 53 55 42  52 55 54 49 4E 45 52 20  |.. - SUBRUTINER |
00000BB0: 2D 00 C0 13 70 03 8D 31  30 37 30 3A 8D 39 37 30  |-...p..1070:.970|
00000BC0: 00 DE 13 7A 03 81 58 31  B2 31 A4 4E 57 3A 81 49  |...z..X1.1.NW:.I|
00000BD0: B2 30 A4 C3 28 57 24 28  58 31 29 29 AB 31 00 20  |.0..(W$(X1)).1. |
00000BE0: 14 84 03 58 50 B2 33 AA  50 58 28 58 31 29 AA 49  |...XP.3.PX(X1).I|
00000BF0: AC 44 58 28 54 57 28 58  31 29 29 3A 59 50 B2 32  |.DX(TW(X1)):YP.2|
00000C00: AA 50 59 28 58 31 29 AA  49 AC 44 59 28 54 57 28  |.PY(X1).I.DY(TW(|
00000C10: 58 31 29 29 3A 8D 39 36  30 3A 99 22 12 1E 22 3B  |X1)):.960:."..";|
00000C20: 00 35 14 8E 03 99 CA 28  57 24 28 58 31 29 2C 49  |.5.....(W$(X1),I|
00000C30: AA 31 2C 31 29 00 3F 14  98 03 8D 31 30 33 30 00  |.1,1).?....1030.|
00000C40: 62 14 A2 03 82 3A 58 50  B2 32 35 3A 59 50 B2 32  |b....:XP.25:YP.2|
00000C50: AA 58 31 3A 8D 39 36 30  3A 99 57 24 28 58 31 29  |.X1:.960:.W$(X1)|
00000C60: 3A 82 00 7A 14 AC 03 97  4E 44 58 2C 30 3A 81 50  |:..z....NDX,0:.P|
00000C70: 53 B2 31 A4 35 30 30 30  3A 82 00 AC 14 B6 03 99  |S.1.5000:.......|
00000C80: 22 93 11 11 11 11 11 11  11 11 11 22 A3 37 29 22  |"..........".7)"|
00000C90: 54 59 56 5B 52 52 2C 20  54 49 44 45 4E 20 5B 52  |TYV[RR, TIDEN [R|
00000CA0: 20 55 54 45 21 21 22 3A  89 39 39 30 00 CA 14 C0  | UTE!!":.990....|
00000CB0: 03 97 53 52 2C 30 3A 97  59 52 2C 58 50 3A 97 58  |..SR,0:.YR,XP:.X|
00000CC0: 52 2C 59 50 3A 9E 50 4C  3A 8E 00 F9 14 CA 03 99  |R,YP:.PL:.......|
00000CD0: 22 93 22 3A 58 50 B2 31  34 3A 59 50 B2 31 32 3A  |".":XP.14:YP.12:|
00000CE0: 8D 39 36 30 3A 99 22 12  1C 44 55 20 4B 4C 41 52  |.960:."..DU KLAR|
00000CF0: 41 44 45 20 44 45 54 21  22 00 2D 15 D4 03 8B 54  |ADE DET!".-....T|
00000D00: 4C B2 31 A7 99 22 11 11  95 20 20 20 20 20 20 20  |L.1.."...       |
00000D10: 20 12 44 45 53 53 55 54  4F 4D 20 49 4E 4F 4D 20  | .DESSUTOM INOM |
00000D20: 54 49 44 53 47 52 5B 4E  53 45 4E 21 22 00 69 15  |TIDSGR[NSEN!".i.|
00000D30: DE 03 58 50 B2 36 3A 59  50 B2 31 37 3A 8D 39 36  |..XP.6:YP.17:.96|
00000D40: 30 3A 99 22 11 11 11 11  1C 54 52 59 43 4B 20 12  |0:.".....TRYCK .|
00000D50: 4D 45 4C 4C 41 4E 53 4C  41 47 92 20 46 5C 52 20  |MELLANSLAG. F\R |
00000D60: 4E 59 20 52 55 4E 44 41  22 00 7B 15 E8 03 A1 41  |NY RUNDA".{....A|
00000D70: 24 3A 8B 41 24 B2 22 20  22 A7 8A 00 8E 15 F2 03  |$:.A$." ".......|
00000D80: 8B 41 24 B3 B1 22 22 A7  99 22 93 22 3A 80 00 98  |.A$..""..".":...|
00000D90: 15 FC 03 89 31 30 30 30  00 B9 15 06 04 8B C2 28  |....1000.......(|
00000DA0: 36 35 35 33 30 29 B2 31  36 34 A7 DB 37 3A DA 33  |65530).164..7:.3|
00000DB0: 2C 31 30 30 30 2C 35 3A  8E 00 EC 15 10 04 97 53  |,1000,5:.......S|
00000DC0: AA 35 2C 36 34 3A 97 53  AA 36 2C 30 3A 97 53 AA  |.5,64:.S.6,0:.S.|
00000DD0: 32 34 2C 31 35 3A 97 53  AA 31 2C 31 30 30 3A 97  |24,15:.S.1,100:.|
00000DE0: 53 2C 30 3A 97 53 AA 34  2C 31 32 39 00 03 16 1A  |S,0:.S.4,129....|
00000DF0: 04 81 4E B2 31 A4 32 32  3A 82 3A 97 53 AA 34 2C  |..N.1.22:.:.S.4,|
00000E00: 30 3A 8E 00 30 16 24 04  97 53 52 2C 30 3A 97 59  |0:..0.$..SR,0:.Y|
00000E10: 52 2C 32 37 3A 97 58 52  2C 31 3A 9E 50 4C 3A 99  |R,27:.XR,1:.PL:.|
00000E20: 22 20 20 20 20 20 20 20  20 20 20 20 20 22 3A 8E  |"            ":.|
00000E30: 00 42 16 2E 04 81 49 B2  31 A4 31 30 30 30 3A 82  |.B....I.1.1000:.|
00000E40: 3A 8E 00 00 00                                    |:....           |

..'.... ETT PROGRAM \VERSATT AV BENGT G.
V...XR.781:YR.782:SR.783:BO.53280:BA.BO.
1:Q.12.....NDX.198:.B(65530).5...15:XR.7
:YR.8:SR.5:NDX.208.S.(..B(65530).164.SR.
2037:XR.2035:YR.2036:BO.65305:BA.65301:Q
.14:NDX.239...2.PL.65520:.BO,0:.BA,1...<
..B(65530)..164.S.54272:.N.S.S.24:.N,0:.
.@.F.AL$."QAZXSWEDCVFRTGBNHYUJMKIOLP][\"
.O.P.."..   ETT AMERIKANSKT PROGRAM \VER
SATT  "...Z...10)"AV BENGT G JOHANSSON":
.840...D..".......".15)".DOLDA ORD......
"...N.."VILL DU HA EN TIDSGR[NS? (J/N)";
TL$...X..TL$.."J".TL$.."N".120."....TL$.
"N".TL$."200000":TL.0:.170.V....".HUR M]
NGA MINUTER (1-59)";TL:.TL.1.TL.59.140.L
.... TL...(TL) . 140. ...TL..(TL):TL$.D(
TL.100):TL$.I(TL$,C(TL$).1):TL.1.M. ..WW
.1.6.C(TL$):TT$.TT$."0":.:TL$.TT$.TL$...
...770:.680:.620:.460:.420...... - HUVUD
LOOP -.....TI$."000000":TU.0:WF.0.E.H..Y
R,27:.XR,1:.PL:.".ROW ";RO$:RO.E(RO$).Y.
R..RO.1.BS.0:.240.N....RO.20.BS.1:.240.}
....1060:.250......YR,27:.XR,1:.PL:."TOO
 ";BS$(BS):.1070:.1060:.200.J....TI$.TL$
.TU.1:.890......YR,27:.XR,1:.PL:."COLUMN
 ";CO$:CO.E(CO$)......CO.1.BS.0:.300.!..
..CO.20.BS.1:.300.0."..1060:.310.F.,..YR
,27:.XR,1:.PL:."TOO ";BS$(BS):.1070:.106
0:.250...6.F.0:.I.1.NW:.RO..PY(I).CO..PX
(I).330...@.F.2:.T(I).0.X1.I:T(I).1:F.1:
I.NW.C.J..:.F.1.360...T.C$."FEL":.F.2.C$
."HITTAT!!!"...^..YR,27:.XR,1:.SR,0:.PL:
.C$:.1070:.1060:.200.B.H..I.0.C(W$(X1)).
1:XP.3.PX(X1).I.DX(TW(X1)).D.R.YP.2.PY(X
1).I.DY(TW(X1)):.960...|.."."J(W$(X1),I.
1,1):.1030......:.YR,25:.XR,2.X1:.PL:.W$
(X1):WF.WF.1:.WF.NW.880......200.U.... -
 FYLL RUTAN -......Y.1.20:.X.1.20......A
$(X,Y)."".A$(X,Y).J(AL$,26..(1).1,1).:..
.XP.3.X:YP.2.Y:.960:.A$(X,Y):.:.:..S.B..
 - PLACERA UT ORD -.\.L.PW.0.H.V.PW.PW.1
.....PX(PW)..(20..(1).1):PY(PW)..(20..(1
).1).....DR..(8..(1).1):TW(PW).DR.....CX
.PX(PW).C(W$(PW)).DX(DR):CY.PY(PW).C(W$(
PW)).DY(DR)......CX.1.CX.20.CY.1.CY.20.4
80.$...F.0:.CK.0.C(W$(PW)).1.G...Z1$.J(W
$(PW),CK.1,1):Z2$.A$(PX(PW).CK.DX(DR),PY
(PW).CK.DY(DR))......Z2$.."".Z1$..Z2$.F.
1...&..:.F.1.480...0..CK.0.C(W$(PW)).1..
.:.Z1$.J(W$(PW),CK.1,1):A$(PX(PW).CK.DX(
DR),PY(PW).CK.DY(DR)).Z1$...D.XP.25:YP.2
.PW:.960:.W$(PW);:....N..PW.NW...!.X..47
0.:.B.. - SORT BY LENGTH -.[.L..YR,29:.X
R,1:.PL:."SORTERAR".M.V.F.0:.I.1.NW.1...
...C(W$(I)).C(W$(I.1)).T$.W$(I.1):W$(I.1
).W$(I):W$(I).T$:F.1......:.F.1.630.G...
.1060:....... - RITA RUTAN -......".....
..";......"..";:.I.1.20:."..";:..)....".
...";:.I.1.20:.".....";:..I.F.."....";:.
I.1.20:."....";:..N.P.."....";:.I.1.20:.
"....";:.:."."...Z..I.1.20:NU$.D(I):NU$.
J(NU$,2):.C(NU$).1.NU$." ".NU$.....XP.1:
YP.I.2:.960:.NU$:XP.I.3:YP.0:.960:.H(NU$
,1).....XP.I.3:YP.1:.960:.I(NU$,1):.:...
.... - INPUT ORD -.O...."..HUR M]NGA ORD
 (MAXIMALT 20 ST)";NW:.:.NW.1.NW.20.770.
R....".SKRIV IN ORD MELLAN 3 OCH"Q......
"BOKST[VER I L[NGD:.":.I.1.NW... ..I"> "
;:.W$(I).T.*..C(W$(I)).3.C(W$(I)).Q..G(1
3)"...":.800...4..:....>.. - S[TT VARIAB
LER -.2.H..A$(20,20),W$(20),PX(20),PY(20
),DX(8),DY(8),TW(20),T(20).P.R..I.1.8:.D
X(I),DY(I):.:BS$(0)."SMALL  ":BS$(1)."BI
G    ":....\.. 0,-1,1,-1,1,0,1,1,0,1,-1,
1,-1,0,-1,-1...F.. - SUBRUTINER -...P..1
070:.970...Z..X1.1.NW:.I.0.C(W$(X1)).1. 
...XP.3.PX(X1).I.DX(TW(X1)):YP.2.PY(X1).
I.DY(TW(X1)):.960:."..";.5....J(W$(X1),I
.1,1).?....1030.B....:XP.25:YP.2.X1:.960
:.W$(X1):..Z....NDX,0:.PS.1.5000:.......
"..........".7)"TYV[RR, TIDEN [R UTE!!":
.990.J....SR,0:.YR,XP:.XR,YP:.PL:....J..
".":XP.14:YP.12:.960:."..DU KLARADE DET!
".-.T..TL.1.."...        .DESSUTOM INOM 
TIDSGR[NSEN!".I...XP.6:YP.17:.960:."....
.TRYCK .MELLANSLAG. F\R NY RUNDA".{....A
$:.A$." "........A$..""..".":.......1000
......B(65530).164..7:Z3,1000,5:.......S
.5,64:.S.6,0:.S.24,15:.S.1,100:.S,0:.S.4
,129......N.1.22:.:.S.4,0:..0.$..SR,0:.Y
R,27:.XR,1:.PL:."            ":..B....I.
1.1000:.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL