SPECIAL

00000000: 01 08 10 08 FE 01 00 3A  3A 3A 3A 89 31 35 30 30  |.......::::.1500|
00000010: 00 2B 08 30 02 00 3A 3A  3A 3A 99 22 91 91 22 3A  |.+.0..::::."..":|
00000020: 99 3A 58 25 B2 30 3A 59  25 B2 59 00 48 08 3A 02  |.:X%.0:Y%.Y.H.:.|
00000030: 8B 59 AB 59 25 A7 58 25  B2 28 59 AB 59 25 AA 2E  |.Y.Y%.X%.(Y.Y%..|
00000040: 30 30 31 29 AC 31 30 30  00 63 08 44 02 00 3A 3A  |001).100.c.D..::|
00000050: 3A 3A 8B 59 25 B1 30 A7  99 C8 28 4D 41 24 2C 59  |::.Y%.0...(MA$,Y|
00000060: 25 29 3B 00 70 08 4E 02  99 A3 58 25 29 3B 3A 8E  |%);.p.N...X%);:.|
00000070: 00 79 08 58 02 59 B2 32  32 00 94 08 62 02 8D 35  |.y.X.Y.22...b..5|
00000080: 36 30 3A 97 31 39 38 2C  30 3A 99 22 12 4F 4B 92  |60:.198,0:.".OK.|
00000090: 3F 20 22 3B 00 A9 08 6C  02 A1 53 24 3A 8B 53 24  |? ";...l..S$:.S$|
000000A0: B2 22 22 A7 30 30 36 32  30 00 C8 08 76 02 8B 53  |."".00620...v..S|
000000B0: 24 B2 22 4A 22 A7 99 22  9D 4A 41 22 3A 4A 25 B2  |$."J"..".JA":J%.|
000000C0: 31 3A 89 30 30 36 36 30  00 E7 08 7B 02 8B 53 24  |1:.00660...{..S$|
000000D0: B2 C7 28 31 33 29 A7 99  22 9D 4A 41 22 3A 4A 25  |..(13)..".JA":J%|
000000E0: B2 31 3A 89 36 36 30 00  05 09 80 02 8B 53 24 B2  |.1:.660......S$.|
000000F0: 22 4E 22 A7 99 22 9D 4E  45 4A 22 3A 4A 25 B2 30  |"N"..".NEJ":J%.0|
00000100: 3A 89 36 36 30 00 0E 09  8A 02 89 36 32 30 00 23  |:.660......620.#|
00000110: 09 94 02 59 25 B2 59 3A  8B 59 25 B2 30 A7 99 22  |...Y%.Y:.Y%.0.."|
00000120: 91 91 22 00 4D 09 9E 02  81 49 B2 30 A4 35 30 30  |..".M....I.0.500|
00000130: 3A 82 3A 8D 30 30 35 36  30 3A 99 C8 28 53 50 24  |:.:.00560:..(SP$|
00000140: 2C 33 39 29 3A 97 31 39  38 2C 30 3A 8E 00 83 09  |,39):.198,0:....|
00000150: A8 02 8B 49 4E 25 A7 52  56 25 B2 30 3A 44 46 25  |...IN%.RV%.0:DF%|
00000160: B2 30 3A 49 25 B2 30 3A  54 30 24 B2 54 31 24 AA  |.0:I%.0:T0$.T1$.|
00000170: 22 20 3A 20 22 AA 54 33  24 3A 8D 35 36 30 3A 99  |" : ".T3$:.560:.|
00000180: 54 30 24 00 A4 09 A9 02  8B 52 56 25 A7 54 35 24  |T0$......RV%.T5$|
00000190: B2 54 31 24 3A 54 31 24  B2 22 12 22 AA 54 31 24  |.T1$:T1$.".".T1$|
000001A0: AA 22 92 22 00 CB 09 AA  02 8B 44 46 25 A7 54 30  |."."......DF%.T0|
000001B0: 24 B2 54 31 24 AA 22 20  3A 20 22 AA 54 34 24 3A  |$.T1$." : ".T4$:|
000001C0: 8D 30 30 35 36 30 3A 99  54 30 24 00 F9 09 AC 02  |.00560:.T0$.....|
000001D0: 54 30 24 B2 54 31 24 AA  22 20 3A 20 22 AA 54 32  |T0$.T1$." : ".T2|
000001E0: 24 3A 8D 30 30 35 36 30  3A 99 54 30 24 3B 3A 8B  |$:.00560:.T0$;:.|
000001F0: 49 25 A7 8D 30 30 37 30  30 00 16 0A AE 02 8B 52  |I%..00700......R|
00000200: 56 25 A7 54 31 24 B2 54  35 24 3A 8D 30 30 35 36  |V%.T1$.T5$:.0056|
00000210: 30 3A 99 54 31 24 00 1C  0A B2 02 8E 00 33 0A BC  |0:.T1$.......3..|
00000220: 02 00 3A 3A 3A 3A 9F 31  2C 30 3A 84 31 2C 58 24  |..::::.1,0:.1,X$|
00000230: 3A A0 31 00 4C 0A C6 02  00 3A 3A 3A 3A 8B C3 28  |:.1.L....::::..(|
00000240: 58 24 29 B3 B2 30 89 30  30 37 30 30 00 60 0A D2  |X$)..0.00700.`..|
00000250: 02 8B 54 33 24 B2 22 22  A7 54 33 24 B2 54 34 24  |..T3$."".T3$.T4$|
00000260: 00 91 0A D4 02 8B 58 24  B2 54 34 24 A7 58 24 B2  |......X$.T4$.X$.|
00000270: 54 33 24 3A 99 C8 28 53  50 24 2C C3 28 54 33 24  |T3$:..(SP$,.(T3$|
00000280: 29 AB C3 28 54 34 24 29  29 3B 3A 89 30 30 37 34  |)..(T4$));:.0074|
00000290: 30 00 B9 0A DA 02 8B C6  28 58 24 29 B2 31 36 30  |0.......(X$).160|
000002A0: A7 58 24 B2 54 33 24 3A  99 C8 28 53 50 24 2C C3  |.X$.T3$:..(SP$,.|
000002B0: 28 58 24 29 29 22 9D 22  3B 00 D4 0A E4 02 00 3A  |(X$))".";......:|
000002C0: 3A 3A 3A 99 C8 28 42 41  24 2C C3 28 58 24 29 AA  |:::..(BA$,.(X$).|
000002D0: 31 29 58 24 00 DA 0A EE  02 8E 00 EC 0A F8 02 8D  |1)X$............|
000002E0: 30 30 37 37 30 3A 99 5A  24 3B 3A 8E 00 1D 0B 02  |00770:.Z$;:.....|
000002F0: 03 5A 24 B2 22 22 3A 5A  48 24 B2 22 22 3A 5A 30  |.Z$."":ZH$."":Z0|
00000300: 24 B2 C4 28 B5 28 B6 28  5A 29 AC 31 30 30 AA 2E  |$..(.(.(Z).100..|
00000310: 35 29 29 3A 5A 4C B2 C3  28 5A 30 24 29 00 3F 0B  |5)):ZL..(Z0$).?.|
00000320: 0C 03 8B 5A 4C B2 32 A7  5A 44 24 B2 22 30 22 AA  |...ZL.2.ZD$."0".|
00000330: C9 28 5A 30 24 2C 31 29  3A 89 30 30 38 30 30 00  |.(Z0$,1):.00800.|
00000340: 55 0B 16 03 00 3A 3A 3A  3A 5A 44 24 B2 C9 28 5A  |U....::::ZD$..(Z|
00000350: 30 24 2C 32 29 00 70 0B  20 03 8B 5A 4C B3 34 A7  |0$,2).p. ..ZL.4.|
00000360: 5A 48 24 B2 22 20 30 3A  22 3A 89 30 30 38 32 30  |ZH$." 0:":.00820|
00000370: 00 93 0B 2A 03 00 3A 3A  3A 3A 5A 48 B2 5A 4C AB  |...*..::::ZH.ZL.|
00000380: 32 3A 5A 48 24 B2 C8 28  5A 30 24 2C 5A 48 29 AA  |2:ZH$..(Z0$,ZH).|
00000390: 22 3A 22 00 B0 0B 34 03  8B 5A B3 30 A7 5A 48 24  |":"...4..Z.0.ZH$|
000003A0: B2 22 2D 22 AA CA 28 5A  48 24 2C 32 2C 5A 48 29  |."-"..(ZH$,2,ZH)|
000003B0: 00 D4 0B 3E 03 5A 54 B2  39 AB C3 28 5A 48 24 29  |...>.ZT.9..(ZH$)|
000003C0: 3A 8B 5A 54 B3 30 A7 99  22 54 4F 4F 20 4C 4F 4E  |:.ZT.0.."TOO LON|
000003D0: 47 22 3A 8E 00 EC 0B 48  03 8B 5A 54 B3 B1 30 A7  |G":....H..ZT..0.|
000003E0: 5A 24 B2 C8 28 53 50 24  2C 5A 54 29 00 09 0C 52  |Z$..(SP$,ZT)...R|
000003F0: 03 00 3A 3A 3A 3A 5A 24  B2 5A 24 AA 5A 48 24 3A  |..::::Z$.Z$.ZH$:|
00000400: 5A 24 B2 5A 24 AA 5A 44  24 00 0F 0C 5C 03 8E 00  |Z$.Z$.ZD$...\...|
00000410: 20 0C 66 03 54 33 25 B2  30 3A 50 4C 24 B2 22 22  | .f.T3%.0:PL$.""|
00000420: 00 2D 0C 70 03 81 54 4A  B2 31 A4 54 4E 00 3D 0C  |.-.p..TJ.1.TN.=.|
00000430: 7A 03 54 53 25 B2 54 53  25 28 54 4A 29 00 4D 0C  |z.TS%.TS%(TJ).M.|
00000440: 84 03 54 32 25 B2 54 53  25 AB 54 33 25 00 72 0C  |..T2%.TS%.T3%.r.|
00000450: 8E 03 8B 54 53 25 B1 B2  31 30 30 A7 54 32 25 B2  |...TS%..100.T2%.|
00000460: 54 32 25 AB 31 30 30 AB  C3 28 54 53 24 28 54 4A  |T2%.100..(TS$(TJ|
00000470: 29 29 00 84 0C 98 03 8B  54 32 25 B3 B2 30 89 30  |))......T2%..0.0|
00000480: 30 39 34 30 00 A0 0C A2  03 00 3A 3A 3A 3A 50 4C  |0940......::::PL|
00000490: 24 B2 50 4C 24 AA C8 28  53 50 24 2C 54 32 25 29  |$.PL$..(SP$,T2%)|
000004A0: 00 B9 0C AC 03 00 3A 3A  3A 3A 50 4C 24 B2 50 4C  |......::::PL$.PL|
000004B0: 24 AA 54 53 24 28 54 4A  29 00 D4 0C B6 03 54 33  |$.TS$(TJ).....T3|
000004C0: 25 B2 54 33 25 AA 54 32  25 AA C3 28 54 53 24 28  |%.T3%.T2%..(TS$(|
000004D0: 54 4A 29 29 00 DE 0C C0  03 82 54 4A 3A 8E 00 FC  |TJ))......TJ:...|
000004E0: 0C CA 03 00 3A 3A 3A 3A  9F 34 2C 50 44 3A 4C 4D  |....::::.4,PD:LM|
000004F0: 24 B2 C8 28 53 50 24 2C  4C 4D 25 29 00 3B 0D D4  |$..(SP$,LM%).;..|
00000500: 03 8B 50 43 25 B2 30 A7  50 43 25 B2 50 43 25 AA  |..PC%.0.PC%.PC%.|
00000510: 31 3A 98 34 2C C8 28 53  50 24 2C 36 37 29 3B 22  |1:.4,.(SP$,67);"|
00000520: 53 49 44 20 22 3B 50 43  25 3B 4C 54 24 3B 3A 98  |SID ";PC%;LT$;:.|
00000530: 34 2C 4C 54 24 3B 3A 4C  43 B2 32 00 50 0D DE 03  |4,LT$;:LC.2.P...|
00000540: 00 3A 3A 3A 3A 98 34 2C  4C 4D 24 AA 50 4C 24 3B  |.::::.4,LM$.PL$;|
00000550: 00 6C 0D E8 03 81 50 B2  31 A4 4C 53 3A 98 34 2C  |.l....P.1.LS:.4,|
00000560: 4C 54 24 3B 3A 4C 43 B2  4C 43 AA 31 00 7E 0D F2  |LT$;:LC.LC.1.~..|
00000570: 03 8B 4C 43 B1 B2 50 4E  89 30 31 30 33 30 00 8A  |..LC..PN.01030..|
00000580: 0D FC 03 82 50 3A A0 34  3A 8E 00 A1 0D 06 04 81  |....P:.4:.......|
00000590: 50 B2 31 A4 50 53 3A 98  34 2C 4C 54 24 3B 3A 82  |P.1.PS:.4,LT$;:.|
000005A0: 50 00 D9 0D 10 04 50 43  25 B2 50 43 25 AA 31 3A  |P.....PC%.PC%.1:|
000005B0: 98 34 2C C8 28 53 50 24  2C 36 37 29 3B 22 53 49  |.4,.(SP$,67);"SI|
000005C0: 44 20 22 3B 50 43 25 3B  4C 54 24 3B 3A 98 34 2C  |D ";PC%;LT$;:.4,|
000005D0: 4C 54 24 3B 3A 4C 43 B2  32 00 E2 0D 1A 04 A0 34  |LT$;:LC.2......4|
000005E0: 3A 8E 00 14 0E 1F 04 57  24 B2 22 22 3A 81 51 B2  |:......W$."":.Q.|
000005F0: 30 A4 C3 28 50 4C 24 29  3A 57 24 B2 57 24 AA 22  |0..(PL$):W$.W$."|
00000600: 2A 22 3A 82 3A 50 4C 24  B2 57 24 3A 8D 30 30 39  |*":.:PL$.W$:.009|
00000610: 37 30 3A 8E 00 42 0E 24  04 00 3A 3A 3A 3A 92 31  |70:..B.$..::::.1|
00000620: 39 38 2C 31 3A A1 43 24  3A 81 49 B2 31 A4 C3 28  |98,1:.C$:.I.1..(|
00000630: 43 4D 24 29 3A 51 24 B2  CA 28 43 4D 24 2C 49 2C  |CM$):Q$..(CM$,I,|
00000640: 31 29 00 58 0E 2E 04 00  3A 3A 3A 3A 8B 51 24 B2  |1).X....::::.Q$.|
00000650: 43 24 A7 51 B2 49 3A 8E  00 5E 0E 38 04 82 00 69  |C$.Q.I:..^.8...i|
00000660: 0E 42 04 89 30 31 30 36  30 00 94 0E DC 05 99 22  |.B..01060......"|
00000670: 93 22 3A 59 B2 35 2E 30  38 3A 8D 35 36 30 3A 99  |.":Y.5.08:.560:.|
00000680: 22 12 20 53 50 45 43 49  41 4C 52 55 54 49 4E 45  |". SPECIALRUTINE|
00000690: 52 20 92 22 00 B5 0E F0  05 99 A3 38 29 53 5A 24  |R .".......8)SZ$|
000006A0: 22 54 92 52 41 4E 53 41  4B 54 49 4F 4E 53 52 5B  |"T.RANSAKTIONSR[|
000006B0: 4B 4E 41 52 45 00 CB 0E  FA 05 99 A3 38 29 53 5A  |KNARE.......8)SZ|
000006C0: 24 22 4E 92 4F 4C 4C 4E  49 4E 47 00 E6 0E FF 05  |$"N.OLLNING.....|
000006D0: 99 A3 38 29 53 5A 24 22  5C 92 56 45 52 46 5C 52  |..8)SZ$"\.VERF\R|
000006E0: 49 4E 47 20 49 42 00 F8  0E 04 06 99 A3 38 29 53  |ING IB.......8)S|
000006F0: 5A 24 22 45 92 58 49 54  00 12 0F 0E 06 00 3A 3A  |Z$"E.XIT......::|
00000700: 3A 3A 43 4D 24 B2 22 54  4E 5C 45 22 3A 8D 31 30  |::CM$."TN\E":.10|
00000710: 36 30 00 2D 0F 18 06 91  51 89 34 30 30 30 2C 33  |60.-....Q.4000,3|
00000720: 30 30 30 2C 35 30 30 30  2C 32 30 37 30 00 60 0F  |000,5000,2070.`.|
00000730: 16 08 99 22 93 22 3A 59  B2 31 32 3A 8D 30 30 35  |...".":Y.12:.005|
00000740: 36 30 3A 99 22 54 49 4C  4C 42 41 4B 41 20 54 49  |60:."TILLBAKA TI|
00000750: 4C 4C 20 48 55 56 55 44  50 52 4F 47 52 41 4D 22  |LL HUVUDPROGRAM"|
00000760: 00 6A 0F 1B 08 44 4D 25  B2 39 00 79 0F 20 08 93  |.j...DM%.9.y. ..|
00000770: 22 30 3A 42 4F 4B 22 2C  38 00 7F 0F 2A 08 80 00  |"0:BOK",8...*...|
00000780: B9 0F B8 0B 99 22 93 22  3A 59 B2 31 32 3A 8D 30  |.....".":Y.12:.0|
00000790: 30 35 36 30 3A 99 22 4E  4F 4C 4C 4E 49 4E 47 20  |0560:."NOLLNING |
000007A0: 41 56 20 48 45 4C 41 20  4B 4F 4E 54 4F 53 59 53  |AV HELA KONTOSYS|
000007B0: 54 45 4D 45 54 20 3F 20  22 00 D1 0F C2 0B 99 3A  |TEMET ? "......:|
000007C0: 99 22 28 4A 2F 4E 29 20  22 3B 3A 8D 30 30 36 32  |."(J/N) ";:.0062|
000007D0: 30 00 E1 0F CC 0B 8B 4A  25 B2 30 A7 30 32 30 37  |0......J%.0.0207|
000007E0: 30 00 12 10 D1 0B 99 22  93 22 3A 59 B2 31 30 3A  |0......".":Y.10:|
000007F0: 8D 35 36 30 3A 99 22 4B  4F 4E 54 4F 53 59 53 54  |.560:."KONTOSYST|
00000800: 45 4D 45 54 20 4E 4F 4C  4C 53 54 5B 4C 4C 45 53  |EMET NOLLST[LLES|
00000810: 21 22 00 2F 10 D6 0B 00  3A 3A 3A 3A 81 51 B2 31  |!"./....::::.Q.1|
00000820: A4 49 54 25 3A 5A 4B 28  51 29 B2 30 3A 82 51 00  |.IT%:ZK(Q).0:.Q.|
00000830: 50 10 E0 0B 00 3A 3A 3A  3A 44 4D 25 B2 35 3A 4D  |P....::::DM%.5:M|
00000840: 4D B2 4D 58 3A 4E 46 25  B2 30 3A 56 45 25 B2 30  |M.MX:NF%.0:VE%.0|
00000850: 00 7E 10 E5 0B 9F 31 2C  38 2C 31 35 2C 22 53 30  |.~....1,8,15,"S0|
00000860: 3A 56 45 52 46 49 4C 2A  22 3A A0 31 3A 4B 31 B2  |:VERFIL*":.1:K1.|
00000870: 4B 31 AB B5 28 4B 31 29  3A 8D 34 36 37 34 00 97  |K1..(K1):.4674..|
00000880: 10 EA 0B 00 3A 3A 3A 3A  93 22 30 3A 55 54 53 4B  |....::::."0:UTSK|
00000890: 52 49 46 54 22 2C 38 00  D3 10 A0 0F 99 22 93 22  |RIFT",8......"."|
000008A0: 3A 59 B2 31 30 3A 8D 35  36 30 3A 99 22 41 4E 54  |:Y.10:.560:."ANT|
000008B0: 41 4C 20 54 52 41 4E 53  41 4B 54 49 4F 4E 45 52  |AL TRANSAKTIONER|
000008C0: 20 48 49 54 54 49 4C 4C  53 20 3D 20 22 3B B5 28  | HITTILLS = ";.(|
000008D0: 4B 31 29 00 03 11 AA 0F  99 3A 99 22 53 4B 41 20  |K1)......:."SKA |
000008E0: 54 52 41 4E 53 41 4B 54  49 4F 4E 53 52 45 47 49  |TRANSAKTIONSREGI|
000008F0: 53 54 52 45 54 20 4E 4F  4C 4C 53 54 5B 4C 4C 41  |STRET NOLLST[LLA|
00000900: 53 3F 22 00 19 11 B4 0F  99 3A 99 22 28 4A 2F 4E  |S?"......:."(J/N|
00000910: 29 20 22 3B 3A 8D 36 32  30 00 28 11 BE 0F 8B 4A  |) ";:.620.(....J|
00000920: 25 B2 30 A7 32 30 37 30  00 44 11 C8 0F 4B 31 B2  |%.0.2070.D...K1.|
00000930: 4B 31 AB B5 28 4B 31 29  3A 8D 34 36 37 34 3A 89  |K1..(K1):.4674:.|
00000940: 32 30 37 30 00 62 11 42  12 46 4C 24 B2 22 30 3A  |2070.b.B.FL$."0:|
00000950: 22 AA 45 4E 24 AA 22 2C  53 45 51 2C 57 52 49 54  |".EN$.",SEQ,WRIT|
00000960: 45 22 00 8D 11 43 12 9F  31 2C 38 2C 31 35 3A 98  |E"...C..1,8,15:.|
00000970: 31 2C 22 53 22 AA 46 4C  24 3A A0 31 3A 4D 4B 24  |1,"S".FL$:.1:MK$|
00000980: B2 C8 28 4D 4B 24 2C 31  29 AA 46 46 24 00 9C 11  |..(MK$,1).FF$...|
00000990: 44 12 9F 36 2C 38 2C 38  2C 46 4C 24 00 AC 11 46  |D..6,8,8,FL$...F|
000009A0: 12 98 36 2C 44 39 24 3B  43 52 24 3B 00 BC 11 48  |..6,D9$;CR$;...H|
000009B0: 12 98 36 2C 45 4E 24 3B  43 52 24 3B 00 CC 11 4A  |..6,EN$;CR$;...J|
000009C0: 12 98 36 2C 4B 44 24 3B  43 52 24 3B 00 DB 11 4C  |..6,KD$;CR$;...L|
000009D0: 12 98 36 2C 4B 31 3B 43  52 24 3B 00 EB 11 4E 12  |..6,K1;CR$;...N.|
000009E0: 98 36 2C 4D 4F 24 3B 43  52 24 3B 00 FB 11 50 12  |.6,MO$;CR$;...P.|
000009F0: 98 36 2C 4D 4B 24 3B 43  52 24 3B 00 0B 12 52 12  |.6,MK$;CR$;...R.|
00000A00: 98 36 2C 4C 4D 25 3B 43  52 24 3B 00 1B 12 54 12  |.6,LM%;CR$;...T.|
00000A10: 98 36 2C 4C 45 24 3B 43  52 24 3B 00 2A 12 56 12  |.6,LE$;CR$;.*.V.|
00000A20: 98 36 2C 50 4E 3B 43 52  24 3B 00 39 12 58 12 98  |.6,PN;CR$;.9.X..|
00000A30: 36 2C 50 53 3B 43 52 24  3B 00 40 12 5A 12 A0 36  |6,PS;CR$;.@.Z..6|
00000A40: 00 46 12 5C 12 8E 00 54  12 88 13 93 22 30 3A 49  |.F.\...T...."0:I|
00000A50: 42 22 2C 38 00 00 00 49                           |B",8...I        |

.......::::.1500.+.0..::::."..":.:X%.0:Y
%.Y.H.:..Y.Y%.X%.(Y.Y%..001).100.C.D..::
::.Y%.0..H(MA$,Y%);.P.N...X%);:..Y.X.Y.2
2...B..560:.198,0:.".OK.? ";...L..S$:.S$
."".00620.H.V..S$."J"..".JA":J%.1:.00660
...{..S$.G(13)..".JA":J%.1:.660......S$.
"N"..".NEJ":J%.0:.660......620.#...Y%.Y:
.Y%.0.."..".M....I.0.500:.:.00560:.H(SP$
,39):.198,0:.......IN%.RV%.0:DF%.0:I%.0:
T0$.T1$." : ".T3$:.560:.T0$......RV%.T5$
.T1$:T1$.".".T1$.".".K....DF%.T0$.T1$." 
: ".T4$:.00560:.T0$.....T0$.T1$." : ".T2
$:.00560:.T0$;:.I%..00700......RV%.T1$.T
5$:.00560:.T1$.......3....::::.1,0:.1,X$
: 1.L.F..::::.C(X$)..0.00700.`.R..T3$.""
.T3$.T4$...T..X$.T4$.X$.T3$:.H(SP$,C(T3$
).C(T4$));:.00740...Z..F(X$).160.X$.T3$:
.H(SP$,C(X$))".";.T....::::.H(BA$,C(X$).
1)X$.Z..........00770:.Z$;:......Z$."":Z
H$."":Z0$.D(.(.(Z).100..5)):ZL.C(Z0$).?.
...ZL.2.ZD$."0".I(Z0$,1):.00800.U....:::
:ZD$.I(Z0$,2).P. ..ZL.4.ZH$." 0:":.00820
...*..::::ZH.ZL.2:ZH$.H(Z0$,ZH).":"...4.
.Z.0.ZH$."-".J(ZH$,2,ZH).T.>.ZT.9.C(ZH$)
:.ZT.0.."TOO LONG":....H..ZT..0.Z$.H(SP$
,ZT)...R..::::Z$.Z$.ZH$:Z$.Z$.ZD$...\...
 .F.T3%.0:PL$."".-.P..TJ.1.TN.=.Z.TS%.TS
%(TJ).M...T2%.TS%.T3%.R....TS%..100.T2%.
T2%.100.C(TS$(TJ))......T2%..0.00940. ..
..::::PL$.PL$.H(SP$,T2%)......::::PL$.PL
$.TS$(TJ).T...T3%.T3%.T2%.C(TS$(TJ))....
..TJ:....J..::::.4,PD:LM$.H(SP$,LM%).;.T
..PC%.0.PC%.PC%.1:.4,H(SP$,67);"SID ";PC
%;LT$;:.4,LT$;:LC.2.P....::::.4,LM$.PL$;
.L....P.1.LS:.4,LT$;:LC.LC.1.~....LC..PN
.01030......P: 4:.......P.1.PS:.4,LT$;:.
P.Y...PC%.PC%.1:.4,H(SP$,67);"SID ";PC%;
LT$;:.4,LT$;:LC.2..... 4:......W$."":.Q.
0.C(PL$):W$.W$."*":.:PL$.W$:.00970:..B.$
..::::.198,1:.C$:.I.1.C(CM$):Q$.J(CM$,I,
1).X....::::.Q$.C$.Q.I:..^.8...I.B..0106
0......".":Y.5.08:.560:.". SPECIALRUTINE
R .".......8)SZ$"T.RANSAKTIONSR[KNARE.K.
....8)SZ$"N.OLLNING.......8)SZ$"\.VERF\R
ING IB.......8)SZ$"E.XIT......::::CM$."T
N\E":.1060.-....Q.4000,3000,5000,2070.`.
...".":Y.12:.00560:."TILLBAKA TILL HUVUD
PROGRAM".J...DM%.9.Y. .."0:BOK",8..*...
.....".":Y.12:.00560:."NOLLNING AV HELA 
KONTOSYSTEMET ? ".Q.B..:."(J/N) ";:.0062
0...L..J%.0.02070...Q..".":Y.10:.560:."K
ONTOSYSTEMET NOLLST[LLES!"./.V..::::.Q.1
.IT%:ZK(Q).0:.Q.P....::::DM%.5:MM.MX:NF%
.0:VE%.0.~....1,8,15,"S0:VERFIL*": 1:K1.
K1..(K1):.4674......::::."0:UTSKRIFT",8.
S. ..".":Y.10:.560:."ANTAL TRANSAKTIONER
 HITTILLS = ";.(K1)......:."SKA TRANSAKT
IONSREGISTRET NOLLST[LLAS?"......:."(J/N
) ";:.620.(....J%.0.2070.D.H.K1.K1..(K1)
:.4674:.2070.B.B.FL$."0:".EN$.",SEQ,WRIT
E"...C..1,8,15:.1,"S".FL$: 1:MK$.H(MK$,1
).FF$...D..6,8,8,FL$...F..6,D9$;CR$;...H
..6,EN$;CR$;.L.J..6,KD$;CR$;...L..6,K1;C
R$;...N..6,MO$;CR$;...P..6,MK$;CR$;...R.
.6,LM%;CR$;...T..6,LE$;CR$;.*.V..6,PN;CR
$;.9.X..6,PS;CR$;.@.Z. 6.F.\...T...."0:I
B",8...I

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL