KALKULATION
FILE INFORMATION
FILENAME(S): KALKULATION
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-11-02 16:39:56
APPEARS ON: 1 disk(s)
FILE HASH
0b0266d62056b3d01757c596b4b070a8fa7d57eb1dab3b42b49f193ce1c3bc83
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 | KALKULATION | PRG | Treasure Chest - Plattfuss | 23 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 37 1C 01 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..7.... *******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 00 6D 1C 02 00 8F 20 20 2A |*******.m.... *|
00000040: 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 53 | PUBLIC DOMAIN S|
00000050: 4F 46 54 57 41 52 45 20 56 4F 4E 20 54 2D 53 4F |OFTWARE VON T-SO|
00000060: 46 54 20 47 49 45 53 53 45 4E 20 20 2A 00 A3 1C |FT GIESSEN *...|
00000070: 03 00 8F 20 20 2A 20 41 4E 4C 45 49 54 55 4E 47 |... * ANLEITUNG|
00000080: 20 47 45 47 45 4E 20 45 49 4E 53 45 4E 44 55 4E | GEGEN EINSENDUN|
00000090: 47 20 56 4F 4E 20 44 4D 20 35 2E 30 30 20 41 55 |G VON DM 5.00 AU|
000000A0: 46 20 2A 00 D9 1C 04 00 8F 20 20 2A 20 20 4B 4F |F *...... * KO|
000000B0: 4E 54 4F 20 20 20 32 37 37 30 20 32 32 2D 36 30 |NTO 2770 22-60|
000000C0: 35 20 50 53 43 48 41 20 46 52 41 4E 4B 46 55 52 |5 PSCHA FRANKFUR|
000000D0: 54 2F 4D 20 20 20 20 20 2A 00 0F 1D 05 00 8F 20 |T/M *...... |
000000E0: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 42 4C | * BL|
000000F0: 5A 20 35 30 30 20 31 30 30 20 36 30 20 20 20 20 |Z 500 100 60 |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000110: 45 1D 06 00 8F 20 20 2A 20 20 20 20 54 48 4F 4D |E.... * THOM|
00000120: 41 53 20 48 4F 4C 4C 4A 45 53 2C 20 53 43 48 49 |AS HOLLJES, SCHI|
00000130: 46 46 45 4E 42 45 52 47 45 52 20 57 45 47 20 37 |FFENBERGER WEG 7|
00000140: 20 20 20 20 2A 00 7B 1D 07 00 8F 20 20 2A 20 20 | *.{.... * |
00000150: 20 20 20 20 20 20 20 20 20 20 20 36 33 30 30 20 | 6300 |
00000160: 47 49 45 53 53 45 4E 20 20 20 20 20 20 20 20 20 |GIESSEN |
00000170: 20 20 20 20 20 20 20 20 20 20 2A 00 B1 1D 08 00 | *.....|
00000180: 8F 20 20 2A 20 53 50 45 4E 44 45 4E 20 53 49 4E |. * SPENDEN SIN|
00000190: 44 20 45 42 45 4E 46 41 4C 4C 53 20 48 45 52 5A |D EBENFALLS HERZ|
000001A0: 4C 49 43 48 20 57 49 4C 4C 4B 4F 4D 4D 45 4E 20 |LICH WILLKOMMEN |
000001B0: 2A 00 E7 1D 09 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |*...... *******|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 00 30 1E 0A 00 DE 9C 3A 8B |*******.0.....:.|
000001F0: 20 C2 28 32 31 35 29 B3 B1 31 32 38 20 A7 20 FE | .(215)..128 . .|
00000200: 26 3A 99 C7 28 31 34 29 22 13 13 93 11 11 11 20 |&:..(14)"...... |
00000210: 20 38 30 2D DA 45 49 43 48 45 4E 2D D3 43 48 49 | 80-.EICHEN-.CHI|
00000220: 52 4D 20 4F 4E 4C 59 21 22 3A 89 20 33 31 38 30 |RM ONLY!":. 3180|
00000230: 00 57 1E 0F 00 85 22 93 20 41 4E 4C 45 49 54 55 |.W....". ANLEITU|
00000240: 4E 47 20 4A 2F 4E 22 3B 41 4E 24 3A 8B 20 41 4E |NG J/N";AN$:. AN|
00000250: 24 B2 22 22 A7 31 35 00 6C 1E 10 00 8B 20 41 4E |$."".15.l.... AN|
00000260: 24 B2 22 4A 22 A7 20 8D 33 32 30 30 00 A2 1E 14 |$."J". .3200....|
00000270: 00 FE 25 3A 99 C7 28 31 34 29 22 13 13 93 C3 41 |..%:..(14)"....A|
00000280: 4C 43 55 4C 41 54 49 4F 4E 22 A3 36 32 29 22 3C |LCULATION".62)"<|
00000290: C3 3E 20 42 59 20 D4 2D D3 4F 46 54 20 31 39 38 |.> BY .-.OFT 198|
000002A0: 37 22 00 B9 1E 1E 00 81 20 49 B2 31 20 A4 20 38 |7"...... I.1 . 8|
000002B0: 30 3A 99 22 A3 22 3B 3A 82 00 E6 1E 28 00 44 24 |0:.".";:....(.D$|
000002C0: B2 22 30 31 2E 30 31 2E 31 39 38 37 22 3A 81 20 |."01.01.1987":. |
000002D0: 49 B2 31 20 A4 20 38 30 3A 4C 49 24 B2 4C 49 24 |I.1 . 80:LI$.LI$|
000002E0: AA 22 2D 22 3A 82 00 F1 1E 32 00 D7 20 33 31 35 |."-":....2.. 315|
000002F0: 30 00 42 1F 3C 00 86 20 41 24 28 31 34 29 2C 4D |0.B.<.. A$(14),M|
00000300: 4F 24 28 31 32 29 2C 4A 41 28 31 32 2C 37 29 2C |O$(12),JA(12,7),|
00000310: 44 44 24 28 33 30 29 2C 43 43 28 33 30 2C 37 29 |DD$(30),CC(30,7)|
00000320: 2C 42 28 37 29 2C 41 28 37 29 2C 43 24 28 31 35 |,B(7),A(7),C$(15|
00000330: 2C 37 29 2C 43 28 31 35 2C 37 29 2C 53 28 34 2C |,7),C(15,7),S(4,|
00000340: 37 29 00 61 1F 46 00 81 20 49 B2 31 20 A4 20 34 |7).a.F.. I.1 . 4|
00000350: 3A 87 20 41 24 28 49 29 3A 82 3A 8D 20 33 31 34 |:. A$(I):.:. 314|
00000360: 30 00 7B 1F 50 00 81 20 49 B2 31 32 20 A4 20 31 |0.{.P.. I.12 . 1|
00000370: 34 3A 87 20 41 24 28 49 29 3A 82 00 95 1F 5A 00 |4:. A$(I):....Z.|
00000380: 81 20 49 B2 31 20 A4 20 31 32 3A 87 20 4D 4F 24 |. I.1 . 12:. MO$|
00000390: 28 49 29 3A 82 00 D7 1F 64 00 81 20 49 B2 31 20 |(I):....d.. I.1 |
000003A0: A4 20 32 30 3A 4C 24 B2 4C 24 AA 22 20 22 3A 82 |. 20:L$.L$." ":.|
000003B0: 3A 50 55 24 B2 22 20 23 23 23 23 23 23 2E 23 23 |:PU$." ######.##|
000003C0: 22 3A 50 57 24 B2 22 23 23 23 23 23 23 23 22 3A |":PW$."#######":|
000003D0: DD 22 20 2E 2C 20 22 00 E1 1F 6E 00 8D 20 38 35 |." ., "...n.. 85|
000003E0: 30 00 F3 1F 78 00 FE 1A 30 2C 32 2C 37 39 2C 32 |0...x...0,2,79,2|
000003F0: 34 2C 31 00 01 20 82 00 58 B2 31 3A 8D 20 37 39 |4,1.. ..X.1:. 79|
00000400: 30 00 0F 20 8C 00 81 20 49 B2 32 20 A4 20 34 00 |0.. ... I.2 . 4.|
00000410: 32 20 96 00 99 A3 49 AC 34 AA 31 32 29 49 AB 31 |2 ....I.4.12)I.1|
00000420: 22 20 3D 20 20 22 41 24 28 49 29 22 11 11 11 22 |" = "A$(I)"..."|
00000430: 3A 82 00 4F 20 A0 00 99 A3 33 33 29 22 34 20 20 |:..O ....33)"4 |
00000440: 3D 20 20 CE 45 55 45 53 20 C4 41 54 55 4D 22 00 |= .EUES .ATUM".|
00000450: 6E 20 AA 00 99 A3 33 37 29 22 11 11 11 35 20 20 |n ....37)"...5 |
00000460: 3D 20 20 C5 4E 44 45 20 2B 20 C1 55 53 22 00 80 |= .NDE + .US"..|
00000470: 20 B4 00 A1 F9 20 5A 24 3A 5A B2 C5 28 5A 24 29 | .... Z$:Z..(Z$)|
00000480: 00 97 20 BE 00 8B 20 C2 28 32 31 33 29 B2 37 32 |.. ... .(213).72|
00000490: 20 A7 20 32 32 34 30 00 AD 20 C8 00 8B 20 5A B3 | . 2240.. ... Z.|
000004A0: 31 20 B0 20 5A B1 35 20 A7 20 31 38 30 00 BC 20 |1 . Z.5 . 180.. |
000004B0: D2 00 8B 20 5A B2 31 20 A7 20 FE 18 00 CA 20 DC |... Z.1 . .... .|
000004C0: 00 58 B2 32 3A 8D 20 37 39 30 00 D8 20 E6 00 81 |.X.2:. 790.. ...|
000004D0: 20 49 B2 35 20 A4 20 36 00 F8 20 F0 00 99 A3 49 | I.5 . 6.. ....I|
000004E0: AC 34 29 49 AB 34 22 20 3D 20 20 22 41 24 28 49 |.4)I.4" = "A$(I|
000004F0: 29 22 11 11 11 22 3A 82 00 0A 21 FA 00 A1 F9 20 |)"...":...!.... |
00000500: 43 24 3A 43 B2 C5 28 43 24 29 00 21 21 04 01 8B |C$:C..(C$).!!...|
00000510: 20 C2 28 32 31 33 29 B2 37 32 20 A7 20 32 32 34 | .(213).72 . 224|
00000520: 30 00 34 21 0E 01 8B 20 43 24 B2 22 20 22 20 A7 |0.4!... C$." " .|
00000530: 20 31 32 30 00 4A 21 18 01 8B 20 43 B3 31 20 B0 | 120.J!... C.1 .|
00000540: 20 43 B1 32 20 A7 20 32 35 30 00 67 21 22 01 41 | C.2 . 250.g!".A|
00000550: B2 43 AA 34 3A 43 43 B2 43 3A 42 28 43 43 29 B2 |.C.4:CC.C:B(CC).|
00000560: 42 28 43 43 29 AA 31 00 71 21 2C 01 8D 20 36 35 |B(CC).1.q!,.. 65|
00000570: 30 00 82 21 36 01 8B 20 46 4C B2 31 20 A7 20 32 |0..!6.. FL.1 . 2|
00000580: 32 30 00 89 21 40 01 FE 19 00 98 21 4A 01 8B 20 |20..!@.....!J.. |
00000590: 5A B2 32 20 A7 20 FE 18 00 A6 21 54 01 58 B2 33 |Z.2 . ....!T.X.3|
000005A0: 3A 8D 20 37 39 30 00 B5 21 5E 01 81 20 49 B2 37 |:. 790..!^.. I.7|
000005B0: 20 A4 20 31 31 00 D7 21 68 01 99 A3 49 AC 33 AB | . 11..!h...I.3.|
000005C0: 31 29 49 AB 36 22 20 3D 20 20 22 41 24 28 49 29 |1)I.6" = "A$(I)|
000005D0: 22 11 11 11 22 3A 82 00 E9 21 72 01 A1 F9 20 43 |"...":...!r... C|
000005E0: 24 3A 43 B2 C5 28 43 24 29 00 00 22 7C 01 8B 20 |$:C..(C$).."|.. |
000005F0: C2 28 32 31 33 29 B2 37 32 20 A7 20 32 32 34 30 |.(213).72 . 2240|
00000600: 00 13 22 86 01 8B 20 43 24 B2 22 20 22 20 A7 20 |.."... C$." " . |
00000610: 31 32 30 00 29 22 90 01 8B 20 43 B3 31 20 B0 20 |120.)"... C.1 . |
00000620: 43 B1 35 20 A7 20 33 37 30 00 48 22 9A 01 41 B2 |C.5 . 370.H"..A.|
00000630: 43 AA 36 3A 43 43 B2 43 AA 32 3A 42 28 43 43 29 |C.6:CC.C.2:B(CC)|
00000640: B2 42 28 43 43 29 AA 31 00 52 22 A4 01 8D 20 36 |.B(CC).1.R"... 6|
00000650: 35 30 00 63 22 AE 01 8B 20 46 4C B2 31 20 A7 20 |50.c"... FL.1 . |
00000660: 33 34 30 00 6A 22 B8 01 FE 19 00 79 22 C2 01 8B |340.j".....y"...|
00000670: 20 5A B2 33 20 A7 20 FE 18 00 87 22 CC 01 58 B2 | Z.3 . ...."..X.|
00000680: 34 3A 8D 20 37 39 30 00 97 22 D6 01 81 20 49 B2 |4:. 790.."... I.|
00000690: 31 32 20 A4 20 31 34 00 BB 22 E0 01 99 A3 49 AC |12 . 14.."....I.|
000006A0: 32 AB 34 29 49 AB 31 31 22 20 3D 20 20 22 41 24 |2.4)I.11" = "A$|
000006B0: 28 49 29 22 11 11 11 11 22 3A 82 00 CD 22 EA 01 |(I)"....":..."..|
000006C0: A1 F9 20 43 24 3A 43 B2 C5 28 43 24 29 00 E4 22 |.. C$:C..(C$).."|
000006D0: F4 01 8B 20 C2 28 32 31 33 29 B2 37 32 20 A7 20 |... .(213).72 . |
000006E0: 32 32 34 30 00 F7 22 FE 01 8B 20 43 24 B2 22 20 |2240.."... C$." |
000006F0: 22 20 A7 20 31 32 30 00 0D 23 08 02 8B 20 43 B3 |" . 120..#... C.|
00000700: 31 20 B0 20 43 B1 33 20 A7 20 34 39 30 00 18 23 |1 . C.3 . 490..#|
00000710: 12 02 41 B2 43 AA 31 31 00 22 23 1C 02 8D 20 39 |..A.C.11."#... 9|
00000720: 36 30 00 33 23 26 02 8B 20 46 4C B2 31 20 A7 20 |60.3#&.. FL.1 . |
00000730: 34 36 30 00 3A 23 30 02 FE 19 00 49 23 3A 02 8B |460.:#0....I#:..|
00000740: 20 5A B2 34 20 A7 20 FE 18 00 5A 23 44 02 99 22 | Z.4 . ...Z#D.."|
00000750: 93 22 3B 3A 9C 3A 89 20 34 30 00 64 23 4E 02 89 |.";:.:. 40.d#N..|
00000760: 20 31 32 30 00 6B 23 58 02 FE 19 00 7A 23 62 02 | 120.k#X....z#b.|
00000770: 8B 20 5A B2 35 20 A7 20 FE 18 00 A3 23 6C 02 FE |. Z.5 . ....#l..|
00000780: 0F 3A 99 22 13 13 93 C3 41 4C 43 55 4C 41 54 49 |.:."....ALCULATI|
00000790: 4F 4E 20 46 49 4E 49 53 48 45 44 22 3A 89 20 33 |ON FINISHED":. 3|
000007A0: 31 38 30 00 AA 23 76 02 FE 19 00 B4 23 80 02 89 |180..#v.....#...|
000007B0: 20 31 32 30 00 CF 23 8A 02 8F 20 2A 2A 2A 20 49 | 120..#... *** I|
000007C0: 4E 50 55 54 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 |NPUTROUTINE ***.|
000007D0: EE 23 94 02 99 C7 28 32 29 22 93 11 11 C1 42 54 |.#....(2)"....BT|
000007E0: 45 49 4C 55 4E 47 3A 20 22 41 24 28 41 29 00 0E |EILUNG: "A$(A)..|
000007F0: 24 9E 02 8B 20 41 28 43 43 29 B3 42 28 43 43 29 |$... A(CC).B(CC)|
00000800: 20 A7 20 41 28 43 43 29 B2 42 28 43 43 29 00 3C | . A(CC).B(CC).<|
00000810: 24 A8 02 99 22 11 11 11 C2 45 54 52 41 47 3A 20 |$..."....ETRAG: |
00000820: 22 3B 3A 9F 31 2C 30 3A 84 31 2C 43 24 28 42 28 |";:.1,0:.1,C$(B(|
00000830: 43 43 29 2C 43 43 29 3A A0 31 3A 99 00 5C 24 B2 |CC),CC):.1:..\$.|
00000840: 02 43 28 42 28 43 43 29 2C 43 43 29 B2 C5 28 43 |.C(B(CC),CC)..(C|
00000850: 24 28 42 28 43 43 29 2C 43 43 29 29 00 8C 24 BC |$(B(CC),CC))..$.|
00000860: 02 99 22 11 11 C2 45 4D 45 52 4B 55 4E 47 3A 20 |.."...EMERKUNG: |
00000870: 22 3B 3A 9F 31 2C 30 3A 84 31 2C 43 24 28 42 28 |";:.1,0:.1,C$(B(|
00000880: 43 43 29 2C 43 43 29 3A A0 31 3A 99 00 A8 24 C6 |CC),CC):.1:...$.|
00000890: 02 99 22 11 11 11 20 C1 4C 4C 45 53 20 4F 4B 20 |.."... .LLES OK |
000008A0: 28 4A 2F 4E 29 20 3F 22 00 C2 24 D0 02 A1 F9 20 |(J/N) ?"..$.... |
000008B0: 57 24 3A 8B 20 57 24 B3 B1 22 4A 22 20 A7 20 36 |W$:. W$.."J" . 6|
000008C0: 36 30 00 F3 24 DA 02 E0 31 2C 35 2C 32 32 2C 22 |60..$...1,5,22,"|
000008D0: 12 D7 92 45 49 54 45 52 20 2F 20 12 CD 92 45 4E |...EITER / ...EN|
000008E0: 55 20 2F 20 12 C8 92 41 55 50 54 41 55 53 57 41 |U / ...AUPTAUSWA|
000008F0: 48 4C 22 00 02 25 E4 02 A1 F9 20 57 24 3A 57 57 |HL"..%.... W$:WW|
00000900: B2 30 00 2E 25 EE 02 8B 20 57 24 B2 22 57 22 20 |.0..%... W$."W" |
00000910: B0 20 57 24 B2 22 D7 22 20 A7 20 42 28 43 43 29 |. W$."." . B(CC)|
00000920: B2 42 28 43 43 29 AA 31 3A 89 20 36 36 30 00 4D |.B(CC).1:. 660.M|
00000930: 25 F8 02 8B 20 57 24 B2 22 48 22 20 B0 20 57 24 |%... W$."H" . W$|
00000940: B2 22 C8 22 20 A7 20 46 4C B2 30 3A 8E 00 6C 25 |."." . FL.0:..l%|
00000950: 02 03 8B 20 57 24 B2 22 4D 22 20 B0 20 57 24 B2 |... W$."M" . W$.|
00000960: 22 CD 22 20 A7 20 46 4C B2 31 3A 8E 00 84 25 0C |"." . FL.1:...%.|
00000970: 03 8B 20 57 57 B2 30 20 A7 20 37 34 30 3A D5 20 |.. WW.0 . 740:. |
00000980: 31 36 30 30 00 B2 25 16 03 99 22 13 13 22 3B 3A |1600..%..."..";:|
00000990: E0 31 2C 33 30 2C 30 2C 4C 24 3A E0 31 2C 33 30 |.1,30,0,L$:.1,30|
000009A0: 2C 30 2C 22 20 22 AA 41 24 28 58 29 AA 22 20 22 |,0," ".A$(X)." "|
000009B0: 2C 31 00 C9 25 20 03 FE 1A 30 2C 32 2C 37 39 2C |,1..% ...0,2,79,|
000009C0: 32 34 2C 31 3A 99 22 11 22 00 CF 25 2A 03 8E 00 |24,1:."."..%*...|
000009D0: 08 26 34 03 83 20 22 C8 41 55 50 54 41 55 53 57 |.&4.. ".AUPTAUSW|
000009E0: 41 48 4C 22 2C 22 C5 49 4E 4E 41 48 4D 45 4E 22 |AHL",".INNAHMEN"|
000009F0: 2C 22 C1 55 53 47 41 42 45 4E 22 2C 22 C1 42 52 |,".USGABEN",".BR|
00000A00: 45 43 48 4E 55 4E 47 22 00 46 26 3E 03 83 20 22 |ECHNUNG".F&>.. "|
00000A10: D4 41 47 45 53 41 42 52 45 43 48 4E 55 4E 47 22 |.AGESABRECHNUNG"|
00000A20: 2C 22 CD 4F 4E 41 54 53 41 42 52 45 43 48 4E 55 |,".ONATSABRECHNU|
00000A30: 4E 47 22 2C 22 CA 41 48 52 45 53 41 42 52 45 43 |NG",".AHRESABREC|
00000A40: 48 4E 55 4E 47 22 00 B8 26 48 03 83 20 22 CA 41 |HNUNG"..&H.. ".A|
00000A50: 4E 55 41 52 22 2C 22 C6 45 42 52 55 41 52 22 2C |NUAR",".EBRUAR",|
00000A60: 22 CD 41 45 52 5A 22 2C 22 C1 50 52 49 4C 22 2C |".AERZ",".PRIL",|
00000A70: 22 CD 41 49 22 2C 22 CA 55 4E 49 22 2C 22 CA 55 |".AI",".UNI",".U|
00000A80: 4C 49 22 2C 22 C1 55 47 55 53 54 22 2C 22 D3 45 |LI",".UGUST",".E|
00000A90: 50 54 45 4D 42 45 52 22 2C 22 CF 4B 54 4F 42 45 |PTEMBER",".KTOBE|
00000AA0: 52 22 2C 22 CE 4F 56 45 4D 42 45 52 22 2C 22 C4 |R",".OVEMBER",".|
00000AB0: 45 5A 45 4D 42 45 52 22 00 D1 26 52 03 99 22 13 |EZEMBER"..&R..".|
00000AC0: 13 22 3B 3A E0 31 2C 31 34 2C 30 2C 4C 24 AA 4C |.";:.1,14,0,L$.L|
00000AD0: 24 00 E5 26 5C 03 FE 1A 30 2C 32 2C 37 39 2C 32 |$..&\...0,2,79,2|
00000AE0: 34 2C 31 3A 99 00 17 27 66 03 99 22 11 11 C2 49 |4,1:...'f.."...I|
00000AF0: 54 54 45 20 44 41 53 20 C4 41 54 55 4D 20 41 4E |TTE DAS .ATUM AN|
00000B00: 47 45 42 45 4E 3A 20 22 44 24 22 9D 9D 9D 9D 9D |GEBEN: "D$".....|
00000B10: 9D 9D 9D 9D 9D 22 3B 00 2B 27 70 03 9F 31 2C 30 |.....";.+'p..1,0|
00000B20: 3A 84 31 2C 44 24 3A A0 31 3A 99 00 69 27 7A 03 |:.1,D$:.1:..i'z.|
00000B30: 44 54 B2 C5 28 C8 28 44 24 2C 32 29 29 3A 44 4D |DT..(.(D$,2)):DM|
00000B40: B2 C5 28 CA 28 44 24 2C 34 2C 32 29 29 3A 44 4A |..(.(D$,4,2)):DJ|
00000B50: B2 C5 28 C9 28 44 24 2C 34 29 29 3A 44 4B B2 C5 |..(.(D$,4)):DK..|
00000B60: 28 C9 28 44 24 2C 32 29 29 00 8A 27 84 03 44 44 |(.(D$,2))..'..DD|
00000B70: B2 32 39 3A 8B 20 44 4B AD 34 B2 B5 28 44 4B AD |.29:. DK.4..(DK.|
00000B80: 34 29 20 A7 20 44 44 B2 33 30 00 E7 27 8E 03 8B |4) . DD.30..'...|
00000B90: 20 28 44 54 B1 B2 44 44 20 AF 20 44 4D B2 32 29 | (DT..DD . DM.2)|
00000BA0: 20 B0 20 28 44 54 B1 33 31 20 AF 20 28 44 4D B2 | . (DT.31 . (DM.|
00000BB0: 34 20 B0 20 44 4D B2 36 20 B0 20 44 4D B2 39 20 |4 . DM.6 . DM.9 |
00000BC0: B0 20 44 4D B2 31 31 29 29 B0 20 44 54 B1 33 31 |. DM.11)). DT.31|
00000BD0: 20 B0 20 44 4D B1 31 32 20 A7 20 99 22 91 91 91 | . DM.12 . ."...|
00000BE0: 22 3B 3A 89 38 37 30 00 17 28 98 03 44 24 B2 C9 |";:.870..(..D$..|
00000BF0: 28 C4 28 44 54 29 2C 32 29 AA 22 2E 22 AA C9 28 |(.(DT),2)."."..(|
00000C00: C4 28 44 4D 29 2C 32 29 AA 22 2E 22 AA C9 28 C4 |.(DM),2)."."..(.|
00000C10: 28 44 4A 29 2C 34 29 00 2D 28 A2 03 99 22 13 13 |(DJ),4).-(..."..|
00000C20: 22 3B 3A E0 31 2C 31 34 2C 30 2C 44 24 00 44 28 |";:.1,14,0,D$.D(|
00000C30: AC 03 FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 3A |....0,2,79,24,1:|
00000C40: 99 22 11 22 00 4A 28 B6 03 8E 00 67 28 C0 03 99 |.".".J(....g(...|
00000C50: C7 28 32 29 22 93 C1 42 54 45 49 4C 55 4E 47 3A |.(2)"..BTEILUNG:|
00000C60: 20 22 41 24 28 41 29 00 76 28 CA 03 8B 20 43 B2 | "A$(A).v(... C.|
00000C70: 31 20 A7 20 FE 18 00 9E 28 D4 03 99 22 11 20 20 |1 . ....(...". |
00000C80: 20 22 41 24 28 41 29 22 20 41 4D 20 22 44 24 3A | "A$(A)" AM "D$:|
00000C90: 41 33 B2 30 3A 41 34 B2 30 3A 41 42 B2 30 00 D9 |A3.0:A4.0:AB.0..|
00000CA0: 28 DE 03 99 22 20 20 20 22 3B 3A 81 20 49 B2 31 |(..." ";:. I.1|
00000CB0: 20 A4 20 28 C3 28 41 24 28 41 29 29 AA C3 28 44 | . (.(A$(A))..(D|
00000CC0: 24 29 AA 34 29 3A 99 22 A3 22 3B 3A 82 3A 99 3A |$).4):.".";:.:.:|
00000CD0: 99 C7 28 32 37 29 22 54 22 00 E7 28 E8 03 81 20 |..(27)"T"..(... |
00000CE0: 4A B2 31 20 A4 20 37 00 F8 28 F2 03 81 20 49 B2 |J.1 . 7..(... I.|
00000CF0: 31 20 A4 20 41 28 4A 29 00 1A 29 FC 03 8B 20 43 |1 . A(J)..)... C|
00000D00: 24 28 49 2C 4A 29 B2 C7 28 32 33 30 29 20 A7 20 |$(I,J)..(230) . |
00000D10: 43 24 28 49 2C 4A 29 B2 22 22 00 30 29 06 04 8B |C$(I,J)."".0)...|
00000D20: 20 43 28 49 2C 4A 29 B2 30 20 A7 20 31 30 37 30 | C(I,J).0 . 1070|
00000D30: 00 76 29 10 04 99 A6 35 29 41 24 28 4A AA 34 29 |.v)....5)A$(J.4)|
00000D40: 22 3A 22 A6 32 30 AB C3 28 41 24 28 4A AA 34 29 |":".20..(A$(J.4)|
00000D50: 29 29 43 24 28 49 2C 4A 29 A6 33 30 AB C3 28 43 |))C$(I,J).30..(C|
00000D60: 24 28 49 2C 4A 29 29 29 3B 3A 99 FB 50 55 24 3B |$(I,J)));:..PU$;|
00000D70: 43 28 49 2C 4A 29 00 8F 29 1A 04 8B 20 4A B3 33 |C(I,J)..)... J.3|
00000D80: 20 A7 20 41 33 B2 41 33 AA 43 28 49 2C 4A 29 00 | . A3.A3.C(I,J).|
00000D90: A8 29 24 04 8B 20 4A B1 32 20 A7 20 41 34 B2 41 |.)$.. J.2 . A4.A|
00000DA0: 34 AA 43 28 49 2C 4A 29 00 B1 29 2E 04 82 49 2C |4.C(I,J)..)...I,|
00000DB0: 4A 00 C8 29 38 04 81 20 49 B2 31 A4 37 35 3A 99 |J..)8.. I.1.75:.|
00000DC0: 22 A4 22 3B 3A 82 3A 99 00 DF 29 42 04 99 3A 99 |".";:.:...)B..:.|
00000DD0: 22 20 D4 41 47 45 53 42 49 4C 41 4E 5A 3A 22 00 |" .AGESBILANZ:".|
00000DE0: F4 29 4C 04 99 22 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.)L.." .........|
00000DF0: A3 A3 A3 22 00 12 2A 56 04 99 22 20 C5 49 4E 4E |..."..*V.." .INN|
00000E00: 41 48 4D 45 4E 3A 22 3B 3A 99 FB 50 55 24 3B 41 |AHMEN:";:..PU$;A|
00000E10: 33 3B 00 32 2A 60 04 99 A6 35 29 22 C1 55 53 47 |3;.2*`...5)".USG|
00000E20: 41 42 45 4E 20 3A 22 3B 3A 99 FB 50 55 24 3B 41 |ABEN :";:..PU$;A|
00000E30: 34 3B 00 55 2A 6A 04 99 A6 35 29 22 C2 4C 45 49 |4;.U*j...5)".LEI|
00000E40: 42 45 4E 3A 20 22 3B 3A 99 FB 50 55 24 3B 41 33 |BEN: ";:..PU$;A3|
00000E50: AB 41 34 3A 99 00 5C 2A 74 04 FE 19 00 6B 2A 7E |.A4:..\*t....k*~|
00000E60: 04 8B 20 43 B2 32 20 A7 20 FE 18 00 84 2A 88 04 |.. C.2 . ....*..|
00000E70: 99 22 11 20 20 20 22 41 24 28 41 29 22 20 41 4D |.". "A$(A)" AM|
00000E80: 20 22 44 24 00 B3 2A 92 04 99 22 20 20 20 22 3B | "D$..*..." ";|
00000E90: 3A 81 20 49 B2 31 20 A4 20 28 C3 28 41 24 28 41 |:. I.1 . (.(A$(A|
00000EA0: 29 29 AA C3 28 44 24 29 AA 34 29 3A 99 22 A3 22 |))..(D$).4):."."|
00000EB0: 3B 3A 82 00 EA 2A 9C 04 99 3A 99 22 C4 41 54 55 |;:...*...:.".ATU|
00000EC0: 4D 20 20 20 20 20 22 3B 3A 81 20 49 B2 35 20 A4 |M ";:. I.5 .|
00000ED0: 20 31 31 3A 99 22 20 20 20 22 3B 3A 99 FB 50 57 | 11:." ";:..PW|
00000EE0: 24 3B 41 24 28 49 29 3B 3A 82 00 FE 2A A6 04 99 |$;A$(I);:...*...|
00000EF0: 4C 49 24 3A 99 C7 28 32 37 29 22 54 22 3B 00 22 |LI$:..(27)"T";."|
00000F00: 2B B0 04 81 20 49 B2 31 20 A4 20 37 3A 43 43 28 |+... I.1 . 7:CC(|
00000F10: 30 2C 49 29 B2 30 3A 82 3A 41 32 B2 30 3A 46 32 |0,I).0:.:A2.0:F2|
00000F20: B2 30 00 2D 2B BA 04 8D 20 32 30 36 30 00 46 2B |.0.-+... 2060.F+|
00000F30: C4 04 8B 20 58 58 B2 31 20 A7 20 58 58 B2 30 3A |... XX.1 . XX.0:|
00000F40: 89 20 31 33 35 30 00 54 2B CE 04 81 20 49 B2 31 |. 1350.T+... I.1|
00000F50: 20 A4 20 45 00 88 2B D8 04 99 FB 22 23 23 23 23 | . E..+...."####|
00000F60: 23 23 23 23 3E 23 22 3B 44 44 24 28 49 29 3B 3A |####>#";DD$(I);:|
00000F70: 81 20 4A B2 31 20 A4 20 37 3A 99 FB 50 55 24 3B |. J.1 . 7:..PU$;|
00000F80: 43 43 28 49 2C 4A 29 3B 00 A9 2B E2 04 43 43 28 |CC(I,J);..+..CC(|
00000F90: 30 2C 4A 29 B2 43 43 28 30 2C 4A 29 AA 43 43 28 |0,J).CC(0,J).CC(|
00000FA0: 49 2C 4A 29 3A 82 4A 2C 49 00 B2 2B EC 04 99 4C |I,J):.J,I..+...L|
00000FB0: 49 24 00 CF 2B F6 04 99 22 20 20 D3 55 4D 4D 45 |I$..+..." .UMME|
00000FC0: 20 3A 20 22 3B 3A 81 20 4A B2 31 20 A4 20 37 00 | : ";:. J.1 . 7.|
00000FD0: E2 2B 00 05 99 FB 50 55 24 3B 43 43 28 30 2C 4A |.+....PU$;CC(0,J|
00000FE0: 29 3B 00 E8 2B 0A 05 82 00 02 2C 14 05 99 3A 99 |);..+.....,...:.|
00000FF0: 3A 99 22 20 CD CF CE C1 D4 D3 C2 C9 CC C1 CE DA |:." ............|
00001000: 3A 22 00 18 2C 1E 05 99 22 20 B7 B7 B7 B7 B7 B7 |:"..,..." ......|
00001010: B7 B7 B7 B7 B7 B7 B7 22 00 4C 2C 28 05 99 22 20 |.......".L,(.." |
00001020: 20 20 C5 49 4E 4E 41 48 4D 45 4E 3A 20 22 3B 3A | .INNAHMEN: ";:|
00001030: 41 31 B2 43 43 28 30 2C 31 29 AA 43 43 28 30 2C |A1.CC(0,1).CC(0,|
00001040: 32 29 3A 99 FB 50 55 24 3B 41 31 3B 00 87 2C 32 |2):..PU$;A1;..,2|
00001050: 05 99 A6 35 29 22 C1 55 53 47 41 42 45 4E 20 3A |...5)".USGABEN :|
00001060: 20 22 3B 3A 81 20 49 B2 33 20 A4 20 37 3A 41 32 | ";:. I.3 . 7:A2|
00001070: B2 41 32 AA 43 43 28 30 2C 49 29 3A 82 3A 99 FB |.A2.CC(0,I):.:..|
00001080: 50 55 24 3B 41 32 3B 00 AC 2C 3C 05 99 A6 35 29 |PU$;A2;..,<...5)|
00001090: 22 C7 45 52 45 54 54 45 54 20 3A 20 22 3B 3A 99 |".ERETTET : ";:.|
000010A0: FB 50 55 24 3B 41 31 AB 41 32 3A 99 00 B3 2C 46 |.PU$;A1.A2:...,F|
000010B0: 05 FE 19 00 C2 2C 50 05 8B 20 43 B2 33 20 A7 20 |.....,P.. C.3 . |
000010C0: FE 18 00 E1 2C 5A 05 81 20 4A B2 31 20 A4 20 37 |....,Z.. J.1 . 7|
000010D0: 3A 4A 41 28 30 2C 4A 29 B2 30 3A 82 3A 4A 32 B2 |:JA(0,J).0:.:J2.|
000010E0: 30 00 0E 2D 64 05 8B 20 46 31 B2 30 20 A7 20 99 |0..-d.. F1.0 . .|
000010F0: A3 C3 28 41 24 28 41 29 29 AA 31 31 29 22 91 20 |..(A$(A)).11)". |
00001100: 20 41 4D 20 22 44 24 3A 89 20 31 34 31 30 00 2B | AM "D$:. 1410.+|
00001110: 2D 6E 05 8B 20 46 31 B2 31 20 A7 20 99 41 24 28 |-n.. F1.1 . .A$(|
00001120: 41 29 22 20 56 4F 4D 20 22 44 24 00 61 2D 78 05 |A)" VOM "D$.a-x.|
00001130: 8B 20 46 31 B2 31 20 A7 20 81 20 49 B2 31 20 A4 |. F1.1 . . I.1 .|
00001140: 20 28 C3 28 41 24 28 41 29 29 AA C3 28 44 24 29 | (.(A$(A))..(D$)|
00001150: AA 35 29 3A 99 22 A3 22 3B 3A 82 3A 99 3A 99 3A |.5):.".";:.:.:.:|
00001160: 99 00 98 2D 82 05 99 22 11 11 CD 4F 4E 41 54 20 |...-..."...ONAT |
00001170: 20 20 20 20 22 3B 3A 81 20 49 B2 35 20 A4 20 31 | ";:. I.5 . 1|
00001180: 31 3A 99 22 20 20 20 22 3B 3A 99 FB 50 57 24 3B |1:." ";:..PW$;|
00001190: 41 24 28 49 29 3B 3A 82 00 BA 2D 8C 05 99 4C 49 |A$(I);:...-...LI|
000011A0: 24 3A 99 C7 28 32 37 29 22 54 22 3B 3A 8B 20 46 |$:..(27)"T";:. F|
000011B0: 32 B2 31 20 A7 20 31 34 34 30 00 C5 2D 96 05 8D |2.1 . 1440..-...|
000011C0: 20 32 31 37 30 00 D6 2D A0 05 81 20 49 B2 31 20 | 2170..-... I.1 |
000011D0: A4 20 4A 41 AB 31 00 0A 2E AA 05 99 FB 22 23 23 |. JA.1......."##|
000011E0: 23 23 23 23 23 23 23 23 22 3B 4D 4F 24 28 49 29 |########";MO$(I)|
000011F0: 3B 3A 81 20 4A B2 31 20 A4 20 37 3A 99 FB 50 55 |;:. J.1 . 7:..PU|
00001200: 24 3B 4A 41 28 49 2C 4A 29 3B 00 2B 2E B4 05 4A |$;JA(I,J);.+...J|
00001210: 41 28 30 2C 4A 29 B2 4A 41 28 30 2C 4A 29 AA 4A |A(0,J).JA(0,J).J|
00001220: 41 28 49 2C 4A 29 3A 82 4A 2C 49 00 34 2E BE 05 |A(I,J):.J,I.4...|
00001230: 99 4C 49 24 00 51 2E C8 05 99 22 20 20 D3 55 4D |.LI$.Q...." .UM|
00001240: 4D 45 20 3A 20 22 3B 3A 81 20 4A B2 31 20 A4 20 |ME : ";:. J.1 . |
00001250: 37 00 64 2E D2 05 99 FB 50 55 24 3B 4A 41 28 30 |7.d.....PU$;JA(0|
00001260: 2C 4A 29 3B 00 6A 2E DC 05 82 00 8B 2E E6 05 8B |,J);.j..........|
00001270: 20 46 31 B2 31 20 A7 20 99 3A 99 22 20 CA C1 C8 | F1.1 . .:." ...|
00001280: D2 C5 D3 C2 C9 CC C1 CE DA 3A 22 00 AA 2E F0 05 |.........:".....|
00001290: 8B 20 46 31 B2 31 20 A7 20 99 22 20 B7 B7 B7 B7 |. F1.1 . ." ....|
000012A0: B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 DF 2E FA 05 99 |........."......|
000012B0: 3A 99 3A 99 22 C5 49 4E 4E 41 48 4D 45 4E 3A 20 |:.:.".INNAHMEN: |
000012C0: 22 3B 3A 4A 31 B2 4A 41 28 30 2C 31 29 AA 4A 41 |";:J1.JA(0,1).JA|
000012D0: 28 30 2C 32 29 3A 99 FB 50 55 24 3B 4A 31 3B 00 |(0,2):..PU$;J1;.|
000012E0: 1A 2F 04 06 99 A6 35 29 22 C1 55 53 47 41 42 45 |./....5)".USGABE|
000012F0: 4E 20 3A 20 22 3B 3A 81 20 49 B2 33 20 A4 20 37 |N : ";:. I.3 . 7|
00001300: 3A 4A 32 B2 4A 32 AA 4A 41 28 30 2C 49 29 3A 82 |:J2.J2.JA(0,I):.|
00001310: 3A 99 FB 50 55 24 3B 4A 32 3B 00 3F 2F 0E 06 99 |:..PU$;J2;.?/...|
00001320: A6 35 29 22 C7 45 52 45 54 54 45 54 20 3A 20 22 |.5)".ERETTET : "|
00001330: 3B 3A 99 FB 50 55 24 3B 4A 31 AB 4A 32 3A 99 00 |;:..PU$;J1.J2:..|
00001340: 46 2F 18 06 FE 19 00 6A 2F 22 06 8B 20 46 31 B2 |F/.....j/".. F1.|
00001350: 31 20 A7 20 46 31 B2 30 3A 81 20 49 B2 31 20 A4 |1 . F1.0:. I.1 .|
00001360: 20 33 3A 98 34 3A 82 3A A0 34 00 7B 2F 2C 06 FE | 3:.4:.:.4.{/,..|
00001370: 1A 30 2C 32 34 2C 37 39 2C 32 34 00 D9 2F 36 06 |.0,24,79,24../6.|
00001380: E0 31 2C 35 2C 30 2C 22 12 C4 92 52 55 43 4B 45 |.1,5,0,"...RUCKE|
00001390: 4E 20 2F 20 12 D3 92 50 45 49 43 48 45 52 4E 20 |N / ...PEICHERN |
000013A0: 2F 20 12 CD 92 45 4E 55 20 2F 20 12 C8 92 41 55 |/ ...ENU / ...AU|
000013B0: 50 54 41 55 53 57 41 48 4C 20 20 20 20 20 20 20 |PTAUSWAHL |
000013C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013D0: 20 20 20 20 20 20 20 20 22 00 E8 2F 40 06 A1 F9 | "../@...|
000013E0: 20 57 24 3A 57 57 B2 31 00 FF 2F 4A 06 8B 20 C2 | W$:WW.1../J.. .|
000013F0: 28 32 31 33 29 B2 37 32 20 A7 20 32 32 34 30 00 |(213).72 . 2240.|
00001400: 1C 30 54 06 8B 20 57 24 B2 22 53 22 20 B0 20 57 |.0T.. W$."S" . W|
00001410: 24 B2 22 D3 22 20 A7 20 31 36 39 30 00 3F 30 5E |$."." . 1690.?0^|
00001420: 06 8B 20 57 24 B2 22 44 22 20 B0 20 57 24 B2 22 |.. W$."D" . W$."|
00001430: C4 22 20 A7 20 31 36 34 30 3A D5 20 37 36 30 00 |." . 1640:. 760.|
00001440: 56 30 68 06 E0 31 2C 35 2C 30 2C 22 C4 52 55 43 |V0h..1,5,0,".RUC|
00001450: 4B 45 4E 22 2C 31 00 72 30 72 06 8B 20 46 31 B2 |KEN",1.r0r.. F1.|
00001460: 30 20 A7 20 46 31 B2 31 3A 9F 34 2C 34 2C 37 3A |0 . F1.1:.4,4,7:|
00001470: 9D 34 00 83 30 7C 06 8B 20 41 B2 31 32 20 A7 20 |.4..0|.. A.12 . |
00001480: 39 38 30 00 95 30 86 06 8B 20 41 B2 31 33 20 A7 |980..0... A.13 .|
00001490: 20 31 31 36 30 00 A7 30 90 06 8B 20 41 B2 31 34 | 1160..0... A.14|
000014A0: 20 A7 20 31 33 37 30 00 C1 30 9A 06 E0 31 2C 31 | . 1370..0...1,1|
000014B0: 35 2C 30 2C 22 D3 50 45 49 43 48 45 52 4E 22 2C |5,0,".PEICHERN",|
000014C0: 31 00 D3 30 A4 06 8B 20 41 B2 31 33 20 A7 20 32 |1..0... A.13 . 2|
000014D0: 30 31 30 00 E5 30 AE 06 8B 20 41 B2 31 34 20 A7 |010..0... A.14 .|
000014E0: 20 31 35 39 30 00 0D 31 B8 06 8F 20 2A 2A 2A 20 | 1590..1... *** |
000014F0: 46 4C 4F 50 50 59 52 4F 55 54 49 4E 45 4E 2F 54 |FLOPPYROUTINEN/T|
00001500: 41 47 20 2A 2A 2A 20 4F 55 54 50 55 54 00 45 31 |AG *** OUTPUT.E1|
00001510: C2 06 FE 0E 23 31 2C 28 C4 28 C5 28 CA 28 44 24 |....#1,(.(.(.(D$|
00001520: 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 28 44 24 |,4,2)))."/"..(D$|
00001530: 2C 32 29 AA 22 2F D4 22 29 3A 8B 44 53 B2 36 32 |,2)."/."):.DS.62|
00001540: A7 31 37 36 30 00 71 31 CC 06 FE 0E 23 31 2C 28 |.1760.q1....#1,(|
00001550: C4 28 C5 28 CA 28 44 24 2C 34 2C 32 29 29 29 AA |.(.(.(D$,4,2))).|
00001560: 22 2F 22 AA C9 28 44 24 2C 32 29 AA 22 2F D4 22 |"/"..(D$,2)."/."|
00001570: 29 00 7B 31 D6 06 89 31 37 37 30 00 AE 31 E0 06 |).{1...1770..1..|
00001580: FE 0F 23 31 3A FE 0D 23 31 2C 28 C4 28 C5 28 CA |..#1:..#1,(.(.(.|
00001590: 28 44 24 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 |(D$,4,2)))."/"..|
000015A0: 28 44 24 2C 32 29 AA 22 2F D4 22 29 2C 57 00 C1 |(D$,2)."/."),W..|
000015B0: 31 EA 06 41 42 B2 30 3A 81 20 4A B2 31 20 A4 20 |1..AB.0:. J.1 . |
000015C0: 37 00 D2 31 F4 06 81 20 49 B2 31 20 A4 20 41 28 |7..1... I.1 . A(|
000015D0: 4A 29 00 F4 31 FE 06 8B 20 43 24 28 49 2C 4A 29 |J)..1... C$(I,J)|
000015E0: B2 22 22 20 A7 20 43 24 28 49 2C 4A 29 B2 C7 28 |."" . C$(I,J)..(|
000015F0: 32 33 30 29 00 0A 32 08 07 8B 20 43 28 49 2C 4A |230)..2... C(I,J|
00001600: 29 B2 30 20 A7 20 31 38 32 30 00 34 32 12 07 98 |).0 . 1820.42...|
00001610: 31 2C 44 24 3A 98 31 2C 41 24 28 4A AA 34 29 3A |1,D$:.1,A$(J.4):|
00001620: 98 31 2C 43 24 28 49 2C 4A 29 3A 98 31 2C 43 28 |.1,C$(I,J):.1,C(|
00001630: 49 2C 4A 29 00 3D 32 1C 07 82 49 2C 4A 00 46 32 |I,J).=2...I,J.F2|
00001640: 26 07 FE 0F 23 31 00 70 32 30 07 8F 20 2A 2A 2A |&...#1.p20.. ***|
00001650: 20 46 4C 4F 50 50 59 52 4F 55 54 49 4E 45 4E 2F | FLOPPYROUTINEN/|
00001660: 4D 4F 4E 41 54 20 2A 2A 2A 20 4F 55 54 50 55 54 |MONAT *** OUTPUT|
00001670: 00 A8 32 3A 07 FE 0E 23 31 2C 28 C4 28 C5 28 CA |..2:...#1,(.(.(.|
00001680: 28 44 24 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 |(D$,4,2)))."/"..|
00001690: 28 44 24 2C 32 29 AA 22 2F CD 22 29 3A 8B 44 53 |(D$,2)."/."):.DS|
000016A0: B2 36 32 A7 31 38 38 30 00 D4 32 44 07 FE 0E 23 |.62.1880..2D...#|
000016B0: 31 2C 28 C4 28 C5 28 CA 28 44 24 2C 34 2C 32 29 |1,(.(.(.(D$,4,2)|
000016C0: 29 29 AA 22 2F 22 AA C9 28 44 24 2C 32 29 AA 22 |))."/"..(D$,2)."|
000016D0: 2F CD 22 29 00 DE 32 4E 07 89 31 38 39 30 00 11 |/.")..2N..1890..|
000016E0: 33 58 07 FE 0F 23 31 3A FE 0D 23 31 2C 28 C4 28 |3X...#1:..#1,(.(|
000016F0: C5 28 CA 28 44 24 2C 34 2C 32 29 29 29 AA 22 2F |.(.(D$,4,2)))."/|
00001700: 22 AA C9 28 44 24 2C 32 29 AA 22 2F CD 22 29 2C |"..(D$,2)."/."),|
00001710: 57 00 2A 33 62 07 81 20 4A B2 31 20 A4 20 37 3A |W.*3b.. J.1 . 7:|
00001720: 43 28 30 2C 4A 29 B2 30 3A 82 00 4C 33 6C 07 81 |C(0,J).0:..L3l..|
00001730: 20 49 B2 31 20 A4 20 37 3A 8B 20 41 41 B3 41 28 | I.1 . 7:. AA.A(|
00001740: 49 29 20 A7 20 41 41 B2 41 28 49 29 00 52 33 76 |I) . AA.A(I).R3v|
00001750: 07 82 00 5C 33 80 07 98 31 2C 44 24 00 6A 33 8A |...\3...1,D$.j3.|
00001760: 07 81 20 4A B2 31 20 A4 20 37 00 79 33 94 07 81 |.. J.1 . 7.y3...|
00001770: 20 49 B2 31 20 A4 20 41 41 00 92 33 9E 07 43 28 | I.1 . AA..3..C(|
00001780: 30 2C 4A 29 B2 43 28 30 2C 4A 29 AA 43 28 49 2C |0,J).C(0,J).C(I,|
00001790: 4A 29 00 9A 33 A8 07 82 20 49 00 A8 33 B2 07 98 |J)..3... I..3...|
000017A0: 31 2C 43 28 30 2C 4A 29 00 B0 33 BC 07 82 20 4A |1,C(0,J)..3... J|
000017B0: 00 B9 33 C6 07 FE 0F 23 31 00 C4 33 D0 07 89 20 |..3....#1..3... |
000017C0: 31 35 39 30 00 EC 33 DA 07 F2 28 C4 28 C5 28 CA |1590..3...(.(.(.|
000017D0: 28 44 24 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 |(D$,4,2)))."/"..|
000017E0: 28 44 24 2C 32 29 AA 22 2F CA 22 29 00 1A 34 E4 |(D$,2)."/.")..4.|
000017F0: 07 FE 0D 23 31 2C 28 C4 28 C5 28 CA 28 44 24 2C |...#1,(.(.(.(D$,|
00001800: 34 2C 32 29 29 29 AA 22 2F 22 AA C9 28 44 24 2C |4,2)))."/"..(D$,|
00001810: 32 29 AA 22 2F CA 22 29 2C 57 00 35 34 EE 07 81 |2)."/."),W.54...|
00001820: 20 49 B2 31 20 A4 20 37 3A 98 31 2C 43 43 28 30 | I.1 . 7:.1,CC(0|
00001830: 2C 49 29 3A 82 00 3C 34 F8 07 FE 0F 00 46 34 02 |,I):..<4.....F4.|
00001840: 08 89 31 35 39 30 00 6F 34 0C 08 8F 20 2A 2A 2A |..1590.o4... ***|
00001850: 20 46 4C 4F 50 50 59 52 4F 55 54 49 4E 45 4E 2F | FLOPPYROUTINEN/|
00001860: 4D 4F 4E 41 54 20 2A 2A 2A 20 49 4E 50 55 54 00 |MONAT *** INPUT.|
00001870: 7E 34 16 08 8B 20 41 42 B2 31 20 A7 20 8E 00 8B |~4... AB.1 . ...|
00001880: 34 20 08 41 42 B2 31 3A 45 B2 30 00 FC 34 2A 08 |4 .AB.1:E.0..4*.|
00001890: FE 0D 23 31 30 30 2C 28 C4 28 C5 28 CA 28 44 24 |..#100,(.(.(.(D$|
000018A0: 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 28 44 24 |,4,2)))."/"..(D$|
000018B0: 2C 32 29 AA 22 2F CD 22 29 3A 8B 20 44 53 B2 36 |,2)."/."):. DS.6|
000018C0: 32 20 A7 20 99 22 93 11 20 20 CE 4F 43 48 20 4B |2 . .".. .OCH K|
000018D0: 45 49 4E 45 20 D4 41 47 45 53 41 42 52 45 43 48 |EINE .AGESABRECH|
000018E0: 4E 55 4E 47 20 56 4F 52 48 41 4E 44 45 4E 20 21 |NUNG VORHANDEN !|
000018F0: 21 21 11 11 22 3A 58 58 B2 31 3A 8E 00 2A 35 34 |!!..":XX.1:..*54|
00001900: 08 FE 0D 23 31 30 30 2C 28 C4 28 C5 28 CA 28 44 |...#100,(.(.(.(D|
00001910: 24 2C 34 2C 32 29 29 29 AA 22 2F 22 AA C9 28 44 |$,4,2)))."/"..(D|
00001920: 24 2C 32 29 AA 22 2F CD 22 29 00 39 35 3E 08 EB |$,2)."/.").95>..|
00001930: 20 FD 20 53 54 B3 B1 36 34 00 43 35 48 08 45 B2 | . ST..64.C5H.E.|
00001940: 45 AA 31 00 6E 35 52 08 84 31 30 30 2C 44 44 24 |E.1.n5R..100,DD$|
00001950: 28 45 29 3A 81 20 45 31 B2 31 20 A4 20 37 3A 84 |(E):. E1.1 . 7:.|
00001960: 31 30 30 2C 43 43 28 45 2C 45 31 29 3A 82 00 74 |100,CC(E,E1):..t|
00001970: 35 5C 08 EC 00 7B 35 66 08 FE 0F 00 81 35 70 08 |5\...{5f.....5p.|
00001980: 8E 00 A6 35 7A 08 46 32 B2 31 3A 4D 4F B2 30 3A |...5z.F2.1:MO.0:|
00001990: 4D 41 B2 30 3A 4D 45 B2 31 32 3A 81 20 4A 41 B2 |MA.0:ME.12:. JA.|
000019A0: 31 20 A4 20 31 32 00 DC 35 84 08 FE 0D 23 31 2C |1 . 12..5....#1,|
000019B0: 28 C4 28 4A 41 29 AA 22 2F 22 AA C9 28 44 24 2C |(.(JA)."/"..(D$,|
000019C0: 32 29 AA 22 2F CA 22 29 3A 8B 20 44 53 B2 36 32 |2)."/."):. DS.62|
000019D0: 20 A7 20 FE 0F 3A 89 20 32 32 32 30 00 06 36 8E | . ..:. 2220..6.|
000019E0: 08 FE 0D 23 31 2C 28 C4 28 4A 41 29 AA 22 2F 22 |...#1,(.(JA)."/"|
000019F0: AA C9 28 44 24 2C 32 29 AA 22 2F CA 22 29 3A 4D |..(D$,2)."/."):M|
00001A00: 4F B2 4D 4F AA 31 00 22 36 98 08 81 20 4A B2 31 |O.MO.1."6... J.1|
00001A10: 20 A4 20 37 3A 84 31 2C 4A 41 28 4A 41 2C 4A 29 | . 7:.1,JA(JA,J)|
00001A20: 3A 82 00 29 36 A2 08 FE 0F 00 32 36 AC 08 82 20 |:..)6.....26... |
00001A30: 4A 41 00 38 36 B6 08 8E 00 5B 36 C0 08 99 22 13 |JA.86....[6...".|
00001A40: 13 22 3B A3 33 30 29 22 12 20 C8 49 4C 46 53 50 |.";.30)". .ILFSP|
00001A50: 52 4F 47 52 41 4D 4D 45 20 11 22 00 BC 36 CA 08 |ROGRAMME ."..6..|
00001A60: 99 C7 28 32 37 29 22 40 22 C7 28 32 37 29 22 54 |..(27)"@".(27)"T|
00001A70: 22 3B 3A 99 22 20 20 20 20 20 D7 49 4C 4C 4B 4F |";:." .ILLKO|
00001A80: 4D 4D 45 4E 20 49 4E 20 44 45 52 20 C1 42 54 45 |MMEN IN DER .BTE|
00001A90: 49 4C 55 4E 47 20 C8 49 4C 46 53 50 52 4F 47 52 |ILUNG .ILFSPROGR|
00001AA0: 41 4D 4D 45 20 56 4F 4E 20 D4 2D D3 4F 46 54 20 |AMME VON .-.OFT |
00001AB0: 31 39 38 37 20 D5 4C 54 44 20 21 22 00 EA 36 D4 |1987 .LTD !"..6.|
00001AC0: 08 99 A3 31 30 29 22 11 11 11 31 20 3D 20 D4 41 |...10)"...1 = .A|
00001AD0: 47 45 53 41 42 52 45 43 48 4E 55 4E 47 45 4E 20 |GESABRECHNUNGEN |
00001AE0: 4E 41 43 48 53 45 48 45 4E 22 00 0E 37 DE 08 99 |NACHSEHEN"..7...|
00001AF0: A3 31 34 29 22 11 11 32 20 3D 20 C4 49 53 4B 45 |.14)"..2 = .ISKE|
00001B00: 54 54 45 20 41 42 52 41 45 55 4D 45 4E 22 00 3F |TTE ABRAEUMEN".?|
00001B10: 37 E8 08 99 A3 31 38 29 22 11 11 33 20 3D 20 C9 |7....18)"..3 = .|
00001B20: 4E 48 41 4C 54 53 56 45 52 5A 45 49 43 48 4E 49 |NHALTSVERZEICHNI|
00001B30: 53 20 44 45 52 20 C4 49 53 4B 45 54 54 45 22 00 |S DER .ISKETTE".|
00001B40: 5A 37 F2 08 99 A3 32 32 29 22 11 11 34 20 3D 20 |Z7....22)"..4 = |
00001B50: D3 54 41 54 49 53 54 49 4B 22 00 7E 37 FC 08 99 |.TATISTIK".~7...|
00001B60: A3 32 36 29 22 11 11 35 20 3D 20 CB 41 54 45 47 |.26)"..5 = .ATEG|
00001B70: 4F 52 49 45 4E 20 41 45 4E 44 45 52 4E 22 00 9A |ORIEN AENDERN"..|
00001B80: 37 06 09 99 A3 33 30 29 22 11 11 36 20 3D 20 C5 |7....30)"..6 = .|
00001B90: 4E 44 45 20 2B 20 C1 55 53 22 00 AC 37 10 09 A1 |NDE + .US"..7...|
00001BA0: F9 20 43 24 3A 43 B2 C5 28 43 24 29 00 BF 37 1A |. C$:C..(C$)..7.|
00001BB0: 09 8B 20 43 24 B2 22 20 22 20 A7 20 31 32 30 00 |.. C$." " . 120.|
00001BC0: D6 37 24 09 8B 20 43 B3 31 20 B0 20 43 B1 36 20 |.7$.. C.1 . C.6 |
00001BD0: A7 20 32 33 32 30 00 E5 37 2E 09 8B 20 43 B2 31 |. 2320..7... C.1|
00001BE0: 20 A7 20 FE 18 00 1A 38 38 09 99 22 93 C4 49 45 | . ....88.."..IE|
00001BF0: 53 45 20 C1 42 52 45 43 48 4E 55 4E 47 20 49 53 |SE .BRECHNUNG IS|
00001C00: 54 20 4E 49 43 48 54 20 41 55 53 44 52 55 43 4B |T NICHT AUSDRUCK|
00001C10: 42 41 52 21 22 C7 28 31 33 29 00 5A 38 42 09 99 |BAR!".(13).Z8B..|
00001C20: 22 11 C2 49 54 54 45 20 44 45 4E 20 CD 4F 4E 41 |"..ITTE DEN .ONA|
00001C30: 54 20 57 41 45 48 4C 45 4E 3A 20 20 20 20 20 20 |T WAEHLEN: |
00001C40: 28 D2 C5 D4 D5 D2 CE 20 4E 49 43 48 54 20 56 45 |(...... NICHT VE|
00001C50: 52 47 45 53 53 45 4E 21 29 22 00 79 38 4C 09 81 |RGESSEN!)".y8L..|
00001C60: 20 49 B2 31 20 A4 20 31 32 3A E0 31 2C 49 AC 35 | I.1 . 12:.1,I.5|
00001C70: 2C 35 2C C4 28 49 29 3A 82 00 8A 38 56 09 41 24 |,5,.(I):...8V.A$|
00001C80: B2 22 22 3A 41 41 24 B2 22 22 00 A2 38 60 09 A1 |."":AA$.""..8`..|
00001C90: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 32 34 | A$:. A$."" . 24|
00001CA0: 30 30 00 B8 38 6A 09 8B 20 41 24 B2 C7 28 31 33 |00..8j.. A$..(13|
00001CB0: 29 20 A7 20 32 34 33 30 00 CE 38 74 09 41 41 24 |) . 2430..8t.AA$|
00001CC0: B2 41 41 24 AA 41 24 3A 89 20 32 34 30 30 00 F0 |.AA$.A$:. 2400..|
00001CD0: 38 7E 09 8B 20 C5 28 41 41 24 29 B3 31 20 B0 20 |8~.. .(AA$).1 . |
00001CE0: C5 28 41 41 24 29 B1 31 32 20 A7 20 32 33 39 30 |.(AA$).12 . 2390|
00001CF0: 00 0C 39 88 09 E0 31 2C 28 C5 28 41 41 24 29 AC |..9...1,(.(AA$).|
00001D00: 35 AA 31 29 2C 35 2C 41 41 24 2C 31 00 1F 39 92 |5.1),5,AA$,1..9.|
00001D10: 09 81 20 49 B2 31 20 A4 20 32 32 3A 99 3A 82 00 |.. I.1 . 22:.:..|
00001D20: 66 39 9C 09 99 C7 28 32 29 22 13 11 11 D4 41 47 |f9....(2)"....AG|
00001D30: 45 53 41 42 52 45 43 48 4E 55 4E 47 45 4E 20 46 |ESABRECHNUNGEN F|
00001D40: 55 45 52 20 22 4D 4F 24 28 C5 28 41 41 24 29 29 |UER "MO$(.(AA$))|
00001D50: 22 20 22 C9 28 44 24 2C 34 29 3A 99 3A 99 C7 28 |" ".(D$,4):.:..(|
00001D60: 32 37 29 22 54 22 00 D2 39 A6 09 FE 0D 23 31 2C |27)"T"..9....#1,|
00001D70: 28 C4 28 C5 28 41 41 24 29 29 AA 22 2F 22 AA C9 |(.(.(AA$))."/"..|
00001D80: 28 44 24 2C 32 29 AA 22 2F D4 22 29 3A 8B 20 44 |(D$,2)."/."):. D|
00001D90: 53 B2 36 32 20 A7 20 FE 0F 3A 99 22 11 11 20 CE |S.62 . ..:.".. .|
00001DA0: 4F 43 48 20 4B 45 49 4E 45 20 D4 41 47 45 53 41 |OCH KEINE .AGESA|
00001DB0: 42 52 45 43 48 4E 55 4E 47 20 56 4F 52 48 41 4E |BRECHNUNG VORHAN|
00001DC0: 44 45 4E 21 22 3A A1 F9 20 41 24 3A 89 20 32 32 |DEN!":.. A$:. 22|
00001DD0: 34 30 00 F8 39 B0 09 FE 0D 23 31 2C 28 C4 28 C5 |40..9....#1,(.(.|
00001DE0: 28 41 41 24 29 29 AA 22 2F 22 AA C9 28 44 24 2C |(AA$))."/"..(D$,|
00001DF0: 32 29 AA 22 2F D4 22 29 00 06 3A BA 09 EB 20 FC |2)."/.")..:... .|
00001E00: 20 53 54 B2 36 34 00 26 3A C4 09 84 31 2C 41 31 | ST.64.&:...1,A1|
00001E10: 24 3A 84 31 2C 41 32 24 3A 84 31 2C 41 33 24 3A |$:.1,A2$:.1,A3$:|
00001E20: 84 31 2C 41 34 24 00 40 3A CE 09 8B 20 41 33 24 |.1,A4$.@:... A3$|
00001E30: B2 C7 28 32 33 30 29 20 A7 20 41 33 24 B2 22 22 |..(230) . A3$.""|
00001E40: 00 8F 3A D8 09 99 A6 35 29 3B 3A 99 FB 22 23 23 |..:....5);:.."##|
00001E50: 23 23 23 23 23 23 3E 23 22 3B 41 31 24 3B 3A 99 |######>#";A1$;:.|
00001E60: 22 20 20 20 22 41 32 24 A6 32 30 AB C3 28 41 32 |" "A2$.20..(A2|
00001E70: 24 29 29 41 33 24 A6 33 30 AB C3 28 41 33 24 29 |$))A3$.30..(A3$)|
00001E80: 29 3B 3A 99 FB 50 55 24 3B C5 28 41 34 24 29 00 |);:..PU$;.(A4$).|
00001E90: 95 3A E2 09 EC 00 9C 3A EC 09 FE 0F 00 C4 3A F6 |.:.....:......:.|
00001EA0: 09 99 22 11 11 C5 4E 44 45 20 44 45 52 20 D3 45 |.."...NDE DER .E|
00001EB0: 4E 44 55 4E 47 21 22 3A A1 F9 20 41 24 3A 89 20 |NDUNG!":.. A$:. |
00001EC0: 32 32 34 30 00 CB 3A 00 0A FE 19 00 DA 3A 0A 0A |2240..:......:..|
00001ED0: 8B 20 43 B2 32 20 A7 20 FE 18 00 46 3B 14 0A 99 |. C.2 . ...F;...|
00001EE0: 22 93 20 C4 49 53 4B 45 54 54 45 20 41 42 52 41 |". .ISKETTE ABRA|
00001EF0: 45 55 4D 45 4E 22 C7 28 31 33 29 22 11 22 A3 32 |EUMEN".(13)".".2|
00001F00: 30 29 22 12 20 D6 4F 52 53 49 43 48 54 21 20 22 |0)". .ORSICHT! "|
00001F10: C7 28 31 33 29 22 11 C4 41 53 20 47 41 4E 5A 45 |.(13)"..AS GANZE|
00001F20: 20 CA 41 48 52 20 57 49 52 44 20 47 4E 41 44 45 | .AHR WIRD GNADE|
00001F30: 4E 4C 4F 53 20 47 45 4C 4F 45 53 43 48 54 21 21 |NLOS GELOESCHT!!|
00001F40: 21 22 3A FE 0B 32 00 6D 3B 1E 0A 85 22 11 11 D7 |!":..2.m;..."...|
00001F50: 45 4C 43 48 45 53 20 CA 41 48 52 20 44 41 52 46 |ELCHES .AHR DARF|
00001F60: 20 45 53 20 53 45 49 4E 22 3B 4C 4F 24 00 9F 3B | ES SEIN";LO$..;|
00001F70: 28 0A FE 0B 33 3A 99 A3 32 30 29 22 11 11 C1 D2 |(...3:..20)"....|
00001F80: C5 20 D9 CF D5 20 D3 D5 D2 C5 3F 20 22 3B 3A 97 |. ... ....? ";:.|
00001F90: 32 30 38 2C 30 3A A1 F9 20 41 24 3A 99 41 24 00 |208,0:.. A$:.A$.|
00001FA0: B4 3B 32 0A 8B 20 41 24 B3 B1 22 59 22 20 A7 20 |.;2.. A$.."Y" . |
00001FB0: 32 32 34 30 00 E1 3B 3C 0A F2 22 3F 3F 3F 22 AA |2240..;<.."???".|
00001FC0: C9 28 4C 4F 24 2C 32 29 AA 22 2A 22 3A F2 22 3F |.(LO$,2)."*":."?|
00001FD0: 3F 3F 3F 22 AA C9 28 4C 4F 24 2C 32 29 AA 22 2A |???"..(LO$,2)."*|
00001FE0: 22 00 EC 3B 46 0A 99 3A 99 44 53 24 00 FD 3B 50 |"..;F..:.DS$..;P|
00001FF0: 0A A1 F9 20 41 24 3A 89 20 32 32 34 30 00 04 3C |... A$:. 2240..<|
00002000: 5A 0A FE 19 00 13 3C 64 0A 8B 20 43 B2 33 20 A7 |Z.....<d.. C.3 .|
00002010: 20 FE 18 00 5E 3C 6E 0A 99 22 93 20 C9 4E 48 41 | ...^<n..". .NHA|
00002020: 4C 54 53 56 45 52 5A 45 49 43 48 4E 49 53 22 3A |LTSVERZEICHNIS":|
00002030: 99 3A 99 3A FE 0C 3A 99 3A 99 22 C2 49 54 54 45 |.:.:..:.:.".ITTE|
00002040: 20 D4 41 53 54 45 20 44 52 55 45 43 4B 45 4E 21 | .ASTE DRUECKEN!|
00002050: 22 3A A1 F9 20 41 24 3A 89 20 32 32 34 30 00 65 |":.. A$:. 2240.e|
00002060: 3C 78 0A FE 19 00 74 3C 82 0A 8B 20 43 B2 34 20 |<x....t<... C.4 |
00002070: A7 20 FE 18 00 96 3C 8C 0A 99 22 93 20 20 20 12 |. ....<...". .|
00002080: 20 D3 20 54 20 41 20 54 20 49 20 53 20 54 20 49 | . T A T I S T I|
00002090: 20 4B 20 22 3A 99 00 CD 3C 96 0A 99 3A 99 A6 31 | K ":...<...:..1|
000020A0: 39 29 C7 28 32 29 22 CA 41 48 52 22 A6 39 29 22 |9).(2)".AHR".9)"|
000020B0: CD 4F 4E 41 54 22 A6 39 29 22 D7 4F 43 48 45 22 |.ONAT".9)".OCHE"|
000020C0: A6 31 31 29 22 D4 41 47 22 3A 99 3A 99 00 DF 3C |.11)".AG":.:...<|
000020D0: A0 0A 8B 20 46 32 B2 32 20 A7 20 32 38 32 30 00 |... F2.2 . 2820.|
000020E0: 12 3D AA 0A 81 20 49 B2 31 20 A4 20 37 3A 4A 41 |.=... I.1 . 7:JA|
000020F0: 28 30 2C 49 29 B2 30 3A 82 3A 53 31 B2 30 3A 53 |(0,I).0:.:S1.0:S|
00002100: 32 B2 30 3A 53 33 B2 30 3A 53 34 B2 30 3A 53 35 |2.0:S3.0:S4.0:S5|
00002110: B2 30 00 1D 3D B4 0A 8D 20 32 31 37 30 00 2E 3D |.0..=... 2170..=|
00002120: BE 0A 81 20 49 B2 31 20 A4 20 4A 41 AB 31 00 3C |... I.1 . JA.1.<|
00002130: 3D C8 0A 81 20 4A B2 31 20 A4 20 37 00 58 3D D2 |=... J.1 . 7.X=.|
00002140: 0A 4A 41 28 30 2C 4A 29 B2 4A 41 28 30 2C 4A 29 |.JA(0,J).JA(0,J)|
00002150: AA 4A 41 28 49 2C 4A 29 00 62 3D DC 0A 82 20 4A |.JA(I,J).b=... J|
00002160: 2C 49 00 DE 3D E6 0A 81 20 49 B2 31 20 A4 20 37 |,I..=... I.1 . 7|
00002170: 3A 53 28 31 2C 49 29 B2 B5 28 4A 41 28 30 2C 49 |:S(1,I)..(JA(0,I|
00002180: 29 AD 4D 4F AC 31 30 30 AA 2E 35 29 AD 31 30 30 |).MO.100..5).100|
00002190: 3A 53 28 32 2C 49 29 B2 B5 28 53 28 31 2C 49 29 |:S(2,I)..(S(1,I)|
000021A0: AD 34 2E 33 AC 31 30 30 AA 2E 35 29 AD 31 30 30 |.4.3.100..5).100|
000021B0: 3A 53 28 33 2C 49 29 B2 B5 28 4A 41 28 30 2C 49 |:S(3,I)..(JA(0,I|
000021C0: 29 AD 28 33 36 35 2E 32 35 AD 31 32 AC 4D 4F 29 |).(365.25.12.MO)|
000021D0: AC 31 30 30 AA 2E 35 29 AD 31 30 30 3A 82 00 13 |.100..5).100:...|
000021E0: 3E F0 0A 81 20 49 B2 31 20 A4 20 37 3A 53 28 34 |>... I.1 . 7:S(4|
000021F0: 2C 49 29 B2 4A 41 28 30 2C 49 29 AD 28 4A 41 28 |,I).JA(0,I).(JA(|
00002200: 30 2C 31 29 AA 4A 41 28 30 2C 32 29 29 AC 31 30 |0,1).JA(0,2)).10|
00002210: 30 3A 82 00 6A 3E FA 0A 81 20 49 B2 33 20 A4 20 |0:..j>... I.3 . |
00002220: 37 3A 53 31 B2 53 31 AA 4A 41 28 30 2C 49 29 3A |7:S1.S1.JA(0,I):|
00002230: 53 32 B2 53 32 AA 53 28 31 2C 49 29 3A 53 33 B2 |S2.S2.S(1,I):S3.|
00002240: 53 33 AA 53 28 32 2C 49 29 3A 53 34 B2 53 34 AA |S3.S(2,I):S4.S4.|
00002250: 53 28 33 2C 49 29 3A 53 35 B2 53 35 AA 53 28 34 |S(3,I):S5.S5.S(4|
00002260: 2C 49 29 3A 82 3A 46 32 B2 32 00 78 3E 04 0B 81 |,I):.:F2.2.x>...|
00002270: 20 49 B2 31 20 A4 20 37 00 B8 3E 0E 0B 99 41 24 | I.1 . 7..>...A$|
00002280: 28 49 AA 34 29 A6 31 34 AB C3 28 41 24 28 49 AA |(I.4).14..(A$(I.|
00002290: 34 29 29 29 3B 3A 99 FB 50 55 24 3B 4A 41 28 30 |4)));:..PU$;JA(0|
000022A0: 2C 49 29 3B 3A 99 A6 34 29 3B 3A 99 FB 50 55 24 |,I);:..4);:..PU$|
000022B0: 3B 53 28 31 2C 49 29 3B 00 E4 3E 18 0B 99 A6 34 |;S(1,I);..>....4|
000022C0: 29 3B 3A 99 FB 50 55 24 3B 53 28 32 2C 49 29 3B |);:..PU$;S(2,I);|
000022D0: 3A 99 A6 34 29 3B 3A 99 FB 50 55 24 3B 53 28 33 |:..4);:..PU$;S(3|
000022E0: 2C 49 29 3B 00 07 3F 22 0B 99 A6 31 29 3B 3A 99 |,I);..?"...1);:.|
000022F0: FB 22 20 20 3D 20 20 23 23 23 2E 23 23 20 25 22 |." = ###.## %"|
00002300: 3B 53 28 34 2C 49 29 00 18 3F 2C 0B 8B 20 49 B2 |;S(4,I)..?,.. I.|
00002310: 32 20 A7 20 99 4C 49 24 00 1E 3F 36 0B 82 00 27 |2 . .LI$..?6...'|
00002320: 3F 40 0B 99 4C 49 24 00 89 3F 4A 0B 99 22 C5 49 |?@..LI$..?J..".I|
00002330: 4E 4E 41 48 4D 45 4E 22 A6 35 29 3B 3A 99 FB 50 |NNAHMEN".5);:..P|
00002340: 55 24 3B 4A 41 28 30 2C 31 29 AA 4A 41 28 30 2C |U$;JA(0,1).JA(0,|
00002350: 32 29 3B 3A 99 A6 34 29 3B 3A 99 FB 50 55 24 3B |2);:..4);:..PU$;|
00002360: 53 28 31 2C 31 29 AA 53 28 31 2C 32 29 3B 3A 99 |S(1,1).S(1,2);:.|
00002370: A6 34 29 3B 3A 99 FB 50 55 24 3B 53 28 32 2C 31 |.4);:..PU$;S(2,1|
00002380: 29 AA 53 28 32 2C 32 29 3B 00 CE 3F 54 0B 99 A6 |).S(2,2);..?T...|
00002390: 34 29 3B 3A 99 FB 50 55 24 3B 53 28 33 2C 31 29 |4);:..PU$;S(3,1)|
000023A0: AA 53 28 33 2C 32 29 3B 3A 99 A6 31 29 3B 3A 99 |.S(3,2);:..1);:.|
000023B0: FB 22 20 20 3D 20 20 23 23 23 2E 23 23 20 25 22 |." = ###.## %"|
000023C0: 3B 53 28 34 2C 31 29 AA 53 28 34 2C 32 29 00 37 |;S(4,1).S(4,2).7|
000023D0: 40 5E 0B 99 22 C1 55 53 47 41 42 45 4E 22 A6 36 |@^..".USGABEN".6|
000023E0: 29 3B 3A 99 FB 50 55 24 3B 53 31 3B 3A 99 A6 34 |);:..PU$;S1;:..4|
000023F0: 29 3B 3A 99 FB 50 55 24 3B 53 32 3B 3A 99 A6 34 |);:..PU$;S2;:..4|
00002400: 29 3B 3A 99 FB 50 55 24 3B 53 33 3B 3A 99 A6 34 |);:..PU$;S3;:..4|
00002410: 29 3B 3A 99 FB 50 55 24 3B 53 34 3B 3A 99 A6 31 |);:..PU$;S4;:..1|
00002420: 29 3B 3A 99 FB 22 20 20 3D 20 20 23 23 23 2E 23 |);:.." = ###.#|
00002430: 23 20 25 22 3B 53 35 00 50 40 68 0B 81 20 49 B2 |# %";S5.P@h.. I.|
00002440: 31 20 A4 20 38 30 3A 99 22 3D 22 3B 3A 82 3A 99 |1 . 80:."=";:.:.|
00002450: 00 7F 40 72 0B 99 22 C4 49 46 46 45 52 45 4E 5A |..@r..".IFFERENZ|
00002460: 22 A6 35 29 3B 3A 99 FB 50 55 24 3B 4A 41 28 30 |".5);:..PU$;JA(0|
00002470: 2C 31 29 AA 4A 41 28 30 2C 32 29 AB 53 31 3B 00 |,1).JA(0,2).S1;.|
00002480: DD 40 7C 0B 99 A6 34 29 3B 3A 99 FB 50 55 24 3B |.@|...4);:..PU$;|
00002490: 53 28 31 2C 31 29 AA 53 28 31 2C 32 29 AB 53 32 |S(1,1).S(1,2).S2|
000024A0: 3B 3A 99 A6 34 29 3B 3A 99 FB 50 55 24 3B 53 28 |;:..4);:..PU$;S(|
000024B0: 32 2C 31 29 AA 53 28 32 2C 32 29 AB 53 33 3B 3A |2,1).S(2,2).S3;:|
000024C0: 99 A6 34 29 3B 3A 99 FB 50 55 24 3B 53 28 33 2C |..4);:..PU$;S(3,|
000024D0: 31 29 AA 53 28 33 2C 32 29 AB 53 34 3B 00 05 41 |1).S(3,2).S4;..A|
000024E0: 86 0B 99 FB 22 20 20 20 3D 20 23 23 23 23 2E 23 |...." = ####.#|
000024F0: 23 20 25 22 3B 53 28 34 2C 31 29 AA 53 28 34 2C |# %";S(4,1).S(4,|
00002500: 32 29 AB 53 35 00 29 41 90 0B 8B 20 46 31 B2 31 |2).S5.)A... F1.1|
00002510: 20 A7 20 46 31 B2 30 3A 81 20 49 B2 31 20 A4 20 | . F1.0:. I.1 . |
00002520: 33 3A 98 34 3A 82 3A A0 34 00 7F 41 9A 0B E0 31 |3:.4:.:.4..A...1|
00002530: 2C 35 2C 32 31 2C 22 C5 4E 44 45 20 44 45 52 20 |,5,21,".NDE DER |
00002540: D3 54 41 54 49 53 54 49 4B 20 20 2D 2D 2D 3E 20 |.TATISTIK ---> |
00002550: 20 12 20 C4 20 92 20 3D 20 C4 52 55 43 4B 45 4E | . . . = .RUCKEN|
00002560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002580: 90 41 A4 0B 97 32 30 38 2C 30 3A A1 F9 20 41 24 |.A...208,0:.. A$|
00002590: 00 D1 41 AE 0B 8B 20 41 24 B2 22 44 22 B0 20 41 |..A... A$."D". A|
000025A0: 24 B2 22 C4 22 20 A7 20 E0 31 2C 33 37 2C 32 31 |$."." . .1,37,21|
000025B0: 2C 22 C4 52 55 43 4B 45 4E 22 2C 31 3A 46 31 B2 |,".RUCKEN",1:F1.|
000025C0: 31 3A 9F 34 2C 34 2C 37 3A 9D 34 3A 89 32 37 30 |1:.4,4,7:.4:.270|
000025D0: 30 00 DC 41 B8 0B 89 20 32 32 34 30 00 E3 41 C2 |0..A... 2240..A.|
000025E0: 0B FE 19 00 F2 41 CC 0B 8B 20 43 B2 35 20 A7 20 |.....A... C.5 . |
000025F0: FE 18 00 10 42 D6 0B 99 22 93 20 CB 41 54 45 47 |....B...". .ATEG|
00002600: 4F 52 49 45 4E 20 41 45 4E 44 45 52 4E 3A 11 22 |ORIEN AENDERN:."|
00002610: 00 39 42 E0 0B 81 20 49 B2 35 20 A4 20 31 31 3A |.9B... I.5 . 11:|
00002620: 99 41 24 28 49 29 3A 8B 20 49 B2 36 20 A7 20 99 |.A$(I):. I.6 . .|
00002630: C8 28 4C 49 24 2C 32 30 29 00 3F 42 EA 0B 82 00 |.(LI$,20).?B....|
00002640: 54 42 F4 0B 99 22 13 11 22 3A 81 20 49 B2 35 20 |TB..."..":. I.5 |
00002650: A4 20 31 31 00 75 42 FE 0B 9F 31 2C 30 3A 84 31 |. 11.uB...1,0:.1|
00002660: 2C 41 24 28 49 29 3A A0 31 3A 99 3A 8B 20 49 B2 |,A$(I):.1:.:. I.|
00002670: 36 20 A7 20 99 00 7B 42 08 0C 82 00 AE 42 12 0C |6 . ..{B.....B..|
00002680: 99 A3 31 30 29 22 11 11 C1 4C 4C 45 53 20 4F 4B |..10)"...LLES OK|
00002690: 20 28 4A 2F 4E 29 22 3A A1 F9 20 41 24 3A 8B 20 | (J/N)":.. A$:. |
000026A0: 41 24 B3 B1 22 4A 22 20 A7 20 33 30 36 30 00 E7 |A$.."J" . 3060..|
000026B0: 42 1C 0C F2 22 49 4E 53 54 41 4C 4C 22 3A FE 0D |B..."INSTALL":..|
000026C0: 23 31 2C 22 49 4E 53 54 41 4C 4C 22 2C 57 3A 81 |#1,"INSTALL",W:.|
000026D0: 20 49 B2 35 20 A4 20 31 31 3A 98 31 2C 41 24 28 | I.5 . 11:.1,A$(|
000026E0: 49 29 3A 82 3A FE 0F 00 2C 43 26 0C 99 22 11 11 |I):.:...,C&.."..|
000026F0: C1 45 4E 44 45 52 55 4E 47 45 4E 20 47 45 53 50 |.ENDERUNGEN GESP|
00002700: 45 49 43 48 45 52 54 2C 20 42 49 54 54 45 20 D4 |EICHERT, BITTE .|
00002710: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 21 22 3A |ASTE DRUECKEN!":|
00002720: A1 F9 20 41 24 3A 89 20 32 32 34 30 00 33 43 30 |.. A$:. 2240.3C0|
00002730: 0C FE 19 00 3D 43 3A 0C 89 20 36 32 30 00 69 43 |....=C:.. 620.iC|
00002740: 44 0C FE 0D 23 31 2C 22 49 4E 53 54 41 4C 4C 22 |D...#1,"INSTALL"|
00002750: 3A 81 20 49 B2 35 20 A4 20 31 31 3A 84 31 2C 41 |:. I.5 . 11:.1,A|
00002760: 24 28 49 29 3A 82 3A FE 0F 00 82 43 45 0C 9F 31 |$(I):.:....CE..1|
00002770: 2C 38 2C 31 35 3A 84 31 2C 41 2C 42 24 3A A0 31 |,8,15:.1,A,B$:.1|
00002780: 3A 8E 00 C0 43 4E 0C 8B 20 45 52 B2 35 20 AF 20 |:...CN.. ER.5 . |
00002790: 44 52 B2 31 20 A7 20 99 22 13 13 93 20 CF 48 4E |DR.1 . ."... .HN|
000027A0: 45 20 C4 52 55 43 4B 45 52 20 4C 41 45 55 46 54 |E .RUCKER LAEUFT|
000027B0: 20 4E 49 43 48 54 53 21 22 3A 89 20 33 31 38 30 | NICHTS!":. 3180|
000027C0: 00 00 44 58 0C 8B 20 45 52 B2 35 20 A7 20 44 52 |..DX.. ER.5 . DR|
000027D0: B2 44 52 AA 31 3A 99 A3 35 30 29 22 C2 49 54 54 |.DR.1:..50)".ITT|
000027E0: 45 20 C4 52 55 43 4B 45 52 20 45 49 4E 53 43 48 |E .RUCKER EINSCH|
000027F0: 41 4C 54 45 4E 21 22 3B 3A A1 F9 20 41 24 3A D6 |ALTEN!";:.. A$:.|
00002800: 00 25 44 62 0C FE 0F 3A 99 22 13 13 93 C3 41 4C |.%Db...:."....AL|
00002810: 43 55 4C 41 54 49 4F 4E 20 42 52 45 41 4B 20 44 |CULATION BREAK D|
00002820: 4F 57 4E 21 22 00 6C 44 6C 0C 99 22 11 C7 52 45 |OWN!".lDl.."..RE|
00002830: 45 54 49 4E 47 53 20 56 4F 4E 22 C7 28 31 33 29 |ETINGS VON".(13)|
00002840: 22 20 D4 20 2D 20 D3 20 4F 20 46 20 54 22 3A 8B |" . - . O F T":.|
00002850: 20 C2 28 32 31 35 29 B2 31 32 38 20 A7 20 99 C7 | .(215).128 . ..|
00002860: 28 31 34 32 29 3A 9B AB 39 3A FE 26 00 75 44 76 |(142):..9:.&.uDv|
00002870: 0C A2 3A 20 80 00 BC 44 77 0C 99 22 11 C7 52 45 |..: ...Dw.."..RE|
00002880: 45 54 49 4E 47 53 20 56 4F 4E 22 C7 28 31 33 29 |ETINGS VON".(13)|
00002890: 22 20 D4 20 2D 20 D3 20 4F 20 46 20 54 22 3A 8B |" . - . O F T":.|
000028A0: 20 C2 28 32 31 35 29 B2 31 32 38 20 A7 20 99 C7 | .(215).128 . ..|
000028B0: 28 31 34 32 29 3A 9B AB 39 3A FE 26 00 C2 44 78 |(142):..9:.&..Dx|
000028C0: 0C 80 00 0F 45 80 0C 99 22 93 44 49 45 53 45 53 |....E...".DIESES|
000028D0: 20 4B 41 4C 4B 55 4C 41 54 49 4F 4E 53 50 52 4F | KALKULATIONSPRO|
000028E0: 47 52 41 4D 4D 20 49 53 54 20 46 55 45 52 20 44 |GRAMM IST FUER D|
000028F0: 45 4E 20 4E 4F 52 4D 41 4C 45 4E 20 48 41 55 53 |EN NORMALEN HAUS|
00002900: 48 41 4C 54 20 47 45 44 41 43 48 54 2E 11 22 00 |HALT GEDACHT..".|
00002910: 5B 45 82 0C 99 22 45 53 20 57 45 52 44 45 4E 20 |[E..."ES WERDEN |
00002920: 32 20 45 49 4E 4E 41 48 4D 45 4E 4B 41 54 45 47 |2 EINNAHMENKATEG|
00002930: 4F 52 49 45 4E 20 55 4E 44 20 35 20 41 55 53 47 |ORIEN UND 5 AUSG|
00002940: 41 42 45 4E 4B 41 54 45 47 4F 52 49 45 4E 20 56 |ABENKATEGORIEN V|
00002950: 45 52 57 41 4C 54 45 54 2E 11 22 00 AF 45 83 0C |ERWALTET.."..E..|
00002960: 99 22 44 55 52 43 48 20 42 45 54 41 45 54 49 47 |."DURCH BETAETIG|
00002970: 45 4E 20 44 45 52 20 45 53 43 2D 54 41 53 54 45 |EN DER ESC-TASTE|
00002980: 20 47 45 4C 41 4E 47 54 20 4D 41 4E 20 56 4F 4D | GELANGT MAN VOM|
00002990: 20 48 41 55 50 54 4D 45 4E 55 45 20 49 4E 20 44 | HAUPTMENUE IN D|
000029A0: 49 45 20 41 42 54 45 49 4C 55 4E 47 20 11 22 00 |IE ABTEILUNG .".|
000029B0: F4 45 84 0C 99 22 48 49 4C 46 53 50 52 4F 47 52 |.E..."HILFSPROGR|
000029C0: 41 4D 4D 45 2C 48 49 45 52 20 4B 4F 45 4E 4E 45 |AMME,HIER KOENNE|
000029D0: 4E 20 44 49 45 20 4B 41 54 45 47 4F 52 49 45 4E |N DIE KATEGORIEN|
000029E0: 20 47 45 41 45 4E 44 45 52 54 20 57 45 52 44 45 | GEAENDERT WERDE|
000029F0: 4E 2E 11 22 00 47 46 85 0C 99 22 44 55 52 43 48 |N..".GF..."DURCH|
00002A00: 20 4D 45 4E 55 45 53 54 45 55 45 52 55 4E 47 20 | MENUESTEUERUNG |
00002A10: 45 52 4B 4C 41 45 52 54 20 53 49 43 48 20 44 41 |ERKLAERT SICH DA|
00002A20: 53 20 50 52 4F 47 52 41 4D 4D 20 47 52 4F 45 53 |S PROGRAMM GROES|
00002A30: 53 54 45 4E 54 45 49 4C 53 20 56 4F 4E 20 53 45 |STENTEILS VON SE|
00002A40: 4C 42 53 54 2E 11 22 00 9C 46 86 0C 99 22 45 49 |LBST.."..F..."EI|
00002A50: 4E 45 20 47 45 4E 41 55 45 20 41 4E 4C 45 49 54 |NE GENAUE ANLEIT|
00002A60: 55 4E 47 20 46 55 45 52 20 44 49 45 53 45 53 20 |UNG FUER DIESES |
00002A70: 50 52 4F 47 52 41 4D 4D 20 4B 41 4E 4E 20 42 45 |PROGRAMM KANN BE|
00002A80: 49 4D 20 41 55 54 48 4F 52 20 45 52 57 4F 52 42 |IM AUTHOR ERWORB|
00002A90: 45 4E 20 57 45 52 44 45 4E 2E 11 22 00 B7 46 87 |EN WERDEN.."..F.|
00002AA0: 0C 85 22 57 45 49 54 45 52 20 52 45 54 55 52 4E |.."WEITER RETURN|
00002AB0: 22 3B 49 4E 24 3A 8E 00 00 00 |";IN$:.... |
..7.... *******************************
***************.M.... * PUBLIC DOMAIN S
OFTWARE VON T-SOFT GIESSEN *...... * A
NLEITUNG GEGEN EINSENDUNG VON DM 5.00 AU
F *.Y.... * KONTO 2770 22-605 PSCHA
FRANKFURT/M *...... * BL
Z 500 100 60 *.E.... *
THOMAS HOLLJES, SCHIFFENBERGER WEG 7
*.{.... * 6300 GIESSEN
*...... * SPENDEN SIN
D EBENFALLS HERZLICH WILLKOMMEN *......
***************************************
*******.0.....:. B(215)..128 . .&:.G(14)
"...... 80-ZEICHEN-SCHIRM ONLY!":. 3180
.W....". ANLEITUNG J/N";AN$:. AN$."".15.
L.... AN$."J". .3200......%:.G(14)"...CA
LCULATION".62)"<C> BY T-SOFT 1987"......
I.1 . 80:.".";:....(.D$."01.01.1987":.
I.1 . 80:LI$.LI$."-":....2.W 3150.B.<..
A$(14),MO$(12),JA(12,7),DD$(30),CC(30,7)
,B(7),A(7),C$(15,7),C(15,7),S(4,7).A.F..
I.1 . 4:. A$(I):.:. 3140.{.P.. I.12 . 1
4:. A$(I):....Z.. I.1 . 12:. MO$(I):..W.
D.. I.1 . 20:L$.L$." ":.:PU$." ######.##
":PW$."#######":." ., "...N.. 850...X...
0,2,79,24,1.. ..X.1:. 790.. ... I.2 . 4.
2 ....I.4.12)I.1" = "A$(I)"...":..O ..
.33)"4 = NEUES DATUM".N ....37)"...5
= ENDE + AUS".. .... Z$:Z.E(Z$).. ... B
(213).72 . 2240.. H.. Z.1 . Z.5 . 180..
R.. Z.1 . ...J ..X.2:. 790.X ... I.5 . 6
.. ....I.4)I.4" = "A$(I)"...":...!....
C$:C.E(C$).!!... B(213).72 . 2240.4!...
C$." " . 120.J!... C.1 . C.2 . 250.G!".A
.C.4:CC.C:B(CC).B(CC).1.Q!,.. 650..!6..
FL.1 . 220..!@.....!J.. Z.2 . ....!T.X.3
:. 790..!^.. I.7 . 11.W!H...I.3.1)I.6" =
"A$(I)"...":...!R... C$:C.E(C$).."|..
B(213).72 . 2240.."... C$." " . 120.)"..
. C.1 . C.5 . 370.H"..A.C.6:CC.C.2:B(CC)
.B(CC).1.R"... 650.C"... FL.1 . 340.J"..
...Y"B.. Z.3 . ...."L.X.4:. 790.."V.. I.
12 . 14.."....I.2.4)I.11" = "A$(I)"....
":..M".... C$:C.E(C$).."... B(213).72 .
2240.."... C$." " . 120..#... C.1 . C.3
. 490..#..A.C.11."#... 960.3#&.. FL.1 .
460.:#0....I#:.. Z.4 . ...Z#D..".";:.:.
40.D#N.. 120.K#X....Z#B.. Z.5 . ....#L..
.:."...CALCULATION FINISHED":. 3180..#V.
....#... 120.O#... *** INPUTROUTINE ***.
.#...G(2)"...ABTEILUNG: "A$(A)..$... A(C
C).B(CC) . A(CC).B(CC).<$..."...BETRAG:
";:.1,0:.1,C$(B(CC),CC): 1:..\$..C(B(CC)
,CC).E(C$(B(CC),CC))..$..."..BEMERKUNG:
";:.1,0:.1,C$(B(CC),CC): 1:...$F.."... A
LLES OK (J/N) ?".B$P... W$:. W$.."J" . 6
60..$Z..1,5,22,".W.EITER / .M.ENU / .H.A
UPTAUSWAHL"..%.... W$:WW.0..%... W$."W"
. W$."W" . B(CC).B(CC).1:. 660.M%... W$.
"H" . W$."H" . FL.0:..L%... W$."M" . W$.
"M" . FL.1:...%... WW.0 . 740:U 1600..%.
.."..";:.1,30,0,L$:.1,30,0," ".A$(X)." "
,1.I% ...0,2,79,24,1:.".".O%*....&4.. "H
AUPTAUSWAHL","EINNAHMEN","AUSGABEN","ABR
ECHNUNG".F&>.. "TAGESABRECHNUNG","MONATS
ABRECHNUNG","JAHRESABRECHNUNG"..&H.. "JA
NUAR","FEBRUAR","MAERZ","APRIL","MAI","J
UNI","JULI","AUGUST","SEPTEMBER","OKTOBE
R","NOVEMBER","DEZEMBER".Q&R.."..";:.1,1
4,0,L$.L$..&\...0,2,79,24,1:...'F.."..BI
TTE DAS DATUM ANGEBEN: "D$"..........";.
+'P..1,0:.1,D$: 1:..I'Z.DT.E(H(D$,2)):DM
.E(J(D$,4,2)):DJ.E(I(D$,4)):DK.E(I(D$,2)
)..'..DD.29:. DK.4..(DK.4) . DD.30..'...
(DT..DD . DM.2) . (DT.31 . (DM.4 . DM.6
. DM.9 . DM.11)). DT.31 . DM.12 . ."...
";:.870..(..D$.I(D(DT),2).".".I(D(DM),2)
.".".I(D(DJ),4).-(..."..";:.1,14,0,D$.D(
....0,2,79,24,1:.".".J(....G(...G(2)".AB
TEILUNG: "A$(A).V(J.. C.1 . ....(T..".
"A$(A)" AM "D$:A3.0:A4.0:AB.0.Y(..."
";:. I.1 . (C(A$(A)).C(D$).4):.".";:.:.:
.G(27)"T"..(... J.1 . 7..(... I.1 . A(J)
..)... C$(I,J).G(230) . C$(I,J)."".0)...
C(I,J).0 . 1070.V)....5)A$(J.4)":".20.C
(A$(J.4)))C$(I,J).30.C(C$(I,J)));:..PU$;
C(I,J)..)... J.3 . A3.A3.C(I,J)..)$.. J.
2 . A4.A4.C(I,J)..)...I,J.H)8.. I.1.75:.
".";:.:...)B..:." TAGESBILANZ:"..)L.." .
..........."..*V.." EINNAHMEN:";:..PU$;A
3;.2*`...5)"AUSGABEN :";:..PU$;A4;.U*J..
.5)"BLEIBEN: ";:..PU$;A3.A4:..\*T....K*~
.. C.2 . ....*...". "A$(A)" AM "D$..*.
.." ";:. I.1 . (C(A$(A)).C(D$).4):."."
;:...*...:."DATUM ";:. I.5 . 11:."
";:..PW$;A$(I);:...*...LI$:.G(27)"T";."
+... I.1 . 7:CC(0,I).0:.:A2.0:F2.0.-+...
2060.F+D.. XX.1 . XX.0:. 1350.T+N.. I.1
. E..+X..."########>#";DD$(I);:. J.1 .
7:..PU$;CC(I,J);..+..CC(0,J).CC(0,J).CC(
I,J):.J,I..+...LI$.O+..." SUMME : ";:.
J.1 . 7..+....PU$;CC(0,J);..+.....,...:.
:." MONATSBILANZ:"..,..." ............."
.L,(.." EINNAHMEN: ";:A1.CC(0,1).CC(0,
2):..PU$;A1;..,2...5)"AUSGABEN : ";:. I.
3 . 7:A2.A2.CC(0,I):.:..PU$;A2;..,<...5)
"GERETTET : ";:..PU$;A1.A2:...,F....B,P.
. C.3 . ....,Z.. J.1 . 7:JA(0,J).0:.:J2.
0..-D.. F1.0 . ..C(A$(A)).11)". AM "D$:
. 1410.+-N.. F1.1 . .A$(A)" VOM "D$.A-X.
. F1.1 . . I.1 . (C(A$(A)).C(D$).5):."."
;:.:.:.:...-..."..MONAT ";:. I.5 . 1
1:." ";:..PW$;A$(I);:...-...LI$:.G(27)
"T";:. F2.1 . 1440.E-... 2170.V- .. I.1
. JA.1......."##########";MO$(I);:. J.1
. 7:..PU$;JA(I,J);.+...JA(0,J).JA(0,J).J
A(I,J):.J,I.4....LI$.Q.H.." SUMME : ";:
. J.1 . 7.D.R...PU$;JA(0,J);.J..........
F1.1 . .:." JAHRESBILANZ:"...... F1.1 .
." ............."......:.:."EINNAHMEN:
";:J1.JA(0,1).JA(0,2):..PU$;J1;../....5)
"AUSGABEN : ";:. I.3 . 7:J2.J2.JA(0,I):.
:..PU$;J2;.?/....5)"GERETTET : ";:..PU$;
J1.J2:..F/.....J/".. F1.1 . F1.0:. I.1 .
3:.4:.: 4.{/,...0,24,79,24.Y/6..1,5,0,"
.D.RUCKEN / .S.PEICHERN / .M.ENU / .H.AU
PTAUSWAHL
"../@... W$:WW.1../J.. B(213).72 . 2240.
.0T.. W$."S" . W$."S" . 1690.?0^.. W$."D
" . W$."D" . 1640:U 760.V0H..1,5,0,"DRUC
KEN",1.R0R.. F1.0 . F1.1:.4,4,7:.4..0|..
A.12 . 980..0... A.13 . 1160..0... A.14
. 1370.A0...1,15,0,"SPEICHERN",1.S0...
A.13 . 2010..0... A.14 . 1590..1... ***
FLOPPYROUTINEN/TAG *** OUTPUT.E1B...#1,(
D(E(J(D$,4,2)))."/".I(D$,2)."/T"):.DS.62
.1760.Q1L...#1,(D(E(J(D$,4,2)))."/".I(D$
,2)."/T").{1V..1770..1....#1:..#1,(D(E(J
(D$,4,2)))."/".I(D$,2)."/T"),W.A1..AB.0:
. J.1 . 7.R1... I.1 . A(J)..1... C$(I,J)
."" . C$(I,J).G(230)..2... C(I,J).0 . 18
20.42...1,D$:.1,A$(J.4):.1,C$(I,J):.1,C(
I,J).=2...I,J.F2&...#1.P20.. *** FLOPPYR
OUTINEN/MONAT *** OUTPUT..2:...#1,(D(E(J
(D$,4,2)))."/".I(D$,2)."/M"):.DS.62.1880
.T2D...#1,(D(E(J(D$,4,2)))."/".I(D$,2)."
/M")..2N..1890..3X...#1:..#1,(D(E(J(D$,4
,2)))."/".I(D$,2)."/M"),W.*3B.. J.1 . 7:
C(0,J).0:..L3L.. I.1 . 7:. AA.A(I) . AA.
A(I).R3V...\3...1,D$.J3... J.1 . 7.Y3...
I.1 . AA..3..C(0,J).C(0,J).C(I,J)..3...
I..3...1,C(0,J)..3... J..3F...#1.D3P..
1590..3Z..(D(E(J(D$,4,2)))."/".I(D$,2)."
/J")..4....#1,(D(E(J(D$,4,2)))."/".I(D$,
2)."/J"),W.54... I.1 . 7:.1,CC(0,I):..<4
.....F4...1590.O4... *** FLOPPYROUTINEN/
MONAT *** INPUT.~4... AB.1 . ...4 .AB.1:
E.0..4*...#100,(D(E(J(D$,4,2)))."/".I(D$
,2)."/M"):. DS.62 . .".. NOCH KEINE TAG
ESABRECHNUNG VORHANDEN !!!..":XX.1:..*54
...#100,(D(E(J(D$,4,2)))."/".I(D$,2)."/M
").95>.. . ST..64.C5H.E.E.1.N5R..100,DD$
(E):. E1.1 . 7:.100,CC(E,E1):..T5\...{5F
.....5P....5Z.F2.1:MO.0:MA.0:ME.12:. JA.
1 . 12..5....#1,(D(JA)."/".I(D$,2)."/J")
:. DS.62 . ..:. 2220..6....#1,(D(JA)."/"
.I(D$,2)."/J"):MO.MO.1."6... J.1 . 7:.1,
JA(JA,J):..)6.....26... JA.86....[6...".
.";.30)". HILFSPROGRAMME ."..6J..G(27)"@
"G(27)"T";:." WILLKOMMEN IN DER ABTE
ILUNG HILFSPROGRAMME VON T-SOFT 1987 ULT
D !"..6T...10)"...1 = TAGESABRECHNUNGEN
NACHSEHEN"..7....14)"..2 = DISKETTE ABRA
EUMEN".?7....18)"..3 = INHALTSVERZEICHNI
S DER DISKETTE".Z7....22)"..4 = STATISTI
K".~7....26)"..5 = KATEGORIEN AENDERN"..
7....30)"..6 = ENDE + AUS"..7.... C$:C.E
(C$)..7... C$." " . 120.V7$.. C.1 . C.6
. 2320..7... C.1 . ....88..".DIESE ABREC
HNUNG IST NICHT AUSDRUCKBAR!"G(13).Z8B..
".BITTE DEN MONAT WAEHLEN: (RETURN
NICHT VERGESSEN!)".Y8L.. I.1 . 12:.1,I.5
,5,D(I):...8V.A$."":AA$.""..8`.. A$:. A$
."" . 2400..8J.. A$.G(13) . 2430.N8T.AA$
.AA$.A$:. 2400..8~.. E(AA$).1 . E(AA$).1
2 . 2390..9...1,(E(AA$).5.1),5,AA$,1..9.
.. I.1 . 22:.:..F9...G(2)"...TAGESABRECH
NUNGEN FUER "MO$(E(AA$))" "I(D$,4):.:.G(
27)"T".R9....#1,(D(E(AA$))."/".I(D$,2)."
/T"):. DS.62 . ..:.".. NOCH KEINE TAGESA
BRECHNUNG VORHANDEN!":.. A$:. 2240..9...
.#1,(D(E(AA$))."/".I(D$,2)."/T")..:... .
ST.64.&:D..1,A1$:.1,A2$:.1,A3$:.1,A4$.@
:N.. A3$.G(230) . A3$.""..:X...5);:.."##
######>#";A1$;:." "A2$.20.C(A2$))A3$.3
0.C(A3$));:..PU$;E(A4$)..:.....:.....D:.
.."..ENDE DER SENDUNG!":.. A$:. 2240.K:.
....Z:... C.2 . ...F;...". DISKETTE ABRA
EUMEN"G(13)".".20)". VORSICHT! "G(13)".D
AS GANZE JAHR WIRD GNADENLOS GELOESCHT!!
!":..2.M;..."..WELCHES JAHR DARF ES SEIN
";LO$..;(...3:..20)"..ARE YOU SURE? ";:.
208,0:.. A$:.A$..;2.. A$.."Y" . 2240..;<
.."???".I(LO$,2)."*":."????".I(LO$,2)."*
"..;F..:.DS$..;P... A$:. 2240..<Z.....<D
.. C.3 . ...^<N..". INHALTSVERZEICHNIS":
.:.:..:.:."BITTE TASTE DRUECKEN!":.. A$:
. 2240.E<X....T<... C.4 . ....<...". .
S T A T I S T I K ":..M<...:..19)G(2)"J
AHR".9)"MONAT".9)"WOCHE".11)"TAG":.:...<
.. F2.2 . 2820..=... I.1 . 7:JA(0,I).0:
.:S1.0:S2.0:S3.0:S4.0:S5.0..=... 2170..=
... I.1 . JA.1.<=H.. J.1 . 7.X=R.JA(0,J)
.JA(0,J).JA(I,J).B=... J,I..=... I.1 . 7
:S(1,I)..(JA(0,I).MO.100..5).100:S(2,I).
.(S(1,I).4.3.100..5).100:S(3,I)..(JA(0,I
).(365.25.12.MO).100..5).100:...>... I.1
. 7:S(4,I).JA(0,I).(JA(0,1).JA(0,2)).10
0:..J>... I.3 . 7:S1.S1.JA(0,I):S2.S2.S(
1,I):S3.S3.S(2,I):S4.S4.S(3,I):S5.S5.S(4
,I):.:F2.2.X>... I.1 . 7..>...A$(I.4).14
.C(A$(I.4)));:..PU$;JA(0,I);:..4);:..PU$
;S(1,I);..>....4);:..PU$;S(2,I);:..4);:.
.PU$;S(3,I);..?"...1);:.." = ###.## %"
;S(4,I)..?,.. I.2 . .LI$..?6...'?@..LI$.
.?J.."EINNAHMEN".5);:..PU$;JA(0,1).JA(0,
2);:..4);:..PU$;S(1,1).S(1,2);:..4);:..P
U$;S(2,1).S(2,2);.N?T...4);:..PU$;S(3,1)
.S(3,2);:..1);:.." = ###.## %";S(4,1).
S(4,2).7@^.."AUSGABEN".6);:..PU$;S1;:..4
);:..PU$;S2;:..4);:..PU$;S3;:..4);:..PU$
;S4;:..1);:.." = ###.## %";S5.P@H.. I.
1 . 80:."=";:.:..@R.."DIFFERENZ".5);:..
PU$;JA(0,1).JA(0,2).S1;..@|...4);:..PU$;
S(1,1).S(1,2).S2;:..4);:..PU$;S(2,1).S(2
,2).S3;:..4);:..PU$;S(3,1).S(3,2).S4;..A
...." = ####.## %";S(4,1).S(4,2).S5.)A
... F1.1 . F1.0:. I.1 . 3:.4:.: 4.A...1
,5,21,"ENDE DER STATISTIK ---> . D . =
DRUCKEN ".
.A...208,0:.. A$.QA... A$."D". A$."D" .
.1,37,21,"DRUCKEN",1:F1.1:.4,4,7:.4:.270
0..A... 2240..AB.....AL.. C.5 . ....BV..
". KATEGORIEN AENDERN:.".9B... I.5 . 11:
.A$(I):. I.6 . .H(LI$,20).?B....TB..."..
":. I.5 . 11.UB...1,0:.1,A$(I): 1:.:. I.
6 . ..{B.....B....10)"..ALLES OK (J/N)":
.. A$:. A$.."J" . 3060..B..."INSTALL":..
#1,"INSTALL",W:. I.5 . 11:.1,A$(I):.:...
,C&.."..AENDERUNGEN GESPEICHERT, BITTE T
ASTE DRUECKEN!":.. A$:. 2240.3C0....=C:.
. 620.ICD...#1,"INSTALL":. I.5 . 11:.1,A
$(I):.:....CE..1,8,15:.1,A,B$: 1:...CN..
ER.5 . DR.1 . ."... OHNE DRUCKER LAEUFT
NICHTS!":. 3180..DX.. ER.5 . DR.DR.1:..
50)"BITTE DRUCKER EINSCHALTEN!";:.. A$:V
.%DB...:."...CALCULATION BREAK DOWN!".LD
L..".GREETINGS VON"G(13)" T - S O F T":.
B(215).128 . .G(142):..9:.&.UDV..: ...D
W..".GREETINGS VON"G(13)" T - S O F T":.
B(215).128 . .G(142):..9:.&.BDX....E...
".DIESES KALKULATIONSPROGRAMM IST FUER D
EN NORMALEN HAUSHALT GEDACHT..".[E..."ES
WERDEN 2 EINNAHMENKATEGORIEN UND 5 AUSG
ABENKATEGORIEN VERWALTET.."..E..."DURCH
BETAETIGEN DER ESC-TASTE GELANGT MAN VOM
HAUPTMENUE IN DIE ABTEILUNG ."..E..."HI
LFSPROGRAMME,HIER KOENNEN DIE KATEGORIEN
GEAENDERT WERDEN..".GF..."DURCH MENUEST
EUERUNG ERKLAERT SICH DAS PROGRAMM GROES
STENTEILS VON SELBST.."..F..."EINE GENAU
E ANLEITUNG FUER DIESES PROGRAMM KANN BE
IM AUTHOR ERWORBEN WERDEN.."..F..."WEITE
R RETURN";IN$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL