TELEFONKOSTEN
FILE INFORMATION
FILENAME(S): TELEFONKOSTEN
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-12-02 23:48:03
APPEARS ON: 1 disk(s)
FILE HASH
38cce69d534c32a13710e4d04bfaae7226716cd9d0ae9d856229534e399f876f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| POWER PACK 05 | TELEFONKOSTEN | PRG | swasti, flohmarkt | 12 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 54 45 4C 45 46 4F 4E 4B |..#.... TELEFONK|
00000010: 4F 53 54 45 4E 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |OSTEN ==========|
00000020: 43 36 34 00 38 08 14 00 8F 20 28 50 29 20 50 4F |C64.8.... (P) PO|
00000030: 57 45 52 20 50 41 43 4B 00 5A 08 1E 00 8F 20 3D |WER PACK.Z.... =|
00000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 7C 08 28 00 8F |==========.|.(..|
00000060: 20 28 43 29 20 42 59 20 53 43 48 4D 49 44 2D 46 | (C) BY SCHMID-F|
00000070: 41 42 49 41 4E 20 20 20 56 33 2E 35 00 94 08 32 |ABIAN V3.5...2|
00000080: 00 8F 20 20 20 20 20 20 20 20 48 45 49 44 45 4C |.. HEIDEL|
00000090: 42 45 52 47 00 9A 08 3C 00 8F 00 BC 08 46 00 8F |BERG...<.....F..|
000000A0: 20 28 56 29 20 41 2E 4D 2E 20 20 20 20 20 20 20 | (V) A.M. |
000000B0: 20 20 20 20 20 20 20 20 56 32 2E 30 00 C2 08 50 | V2.0...P|
000000C0: 00 8F 00 E4 08 5A 00 8F 20 3D 3D 3D 3D 3D 3D 3D |.....Z.. =======|
000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000E0: 3D 3D 3D 3D 00 03 09 5B 00 41 54 B2 34 39 31 35 |====...[.AT.4915|
000000F0: 32 3A 57 4F B2 34 39 31 37 32 3A 8D 39 32 3A 89 |2:WO.49172:.92:.|
00000100: 31 30 30 00 18 09 5C 00 8B 20 C2 28 34 39 31 35 |100...\.. .(4915|
00000110: 34 29 B2 31 37 34 A7 8E 00 35 09 5D 00 9E 35 37 |4).174...5.]..57|
00000120: 38 31 32 22 53 59 53 4D 43 22 2C 38 2C 30 3A 97 |812"SYSMC",8,0:.|
00000130: 37 38 30 2C 30 00 4B 09 5E 00 97 37 38 31 2C 32 |780,0.K.^..781,2|
00000140: 35 34 3A 97 37 38 32 2C 31 39 31 00 58 09 5F 00 |54:.782,191.X._.|
00000150: 9E 36 35 34 39 33 3A 8E 00 6E 09 64 00 8D 31 34 |.65493:..n.d..14|
00000160: 36 30 3A 8F 20 41 4E 4C 45 49 54 55 4E 47 00 7F |60:. ANLEITUNG..|
00000170: 09 6E 00 8D 34 31 30 3A 8F 20 44 41 54 45 4E 00 |.n..410:. DATEN.|
00000180: AA 09 78 00 99 53 43 24 3A 9E 41 54 2C 38 2C 36 |..x..SC$:.AT,8,6|
00000190: 3A 99 46 45 24 3B 3A 99 53 4C 24 22 D4 45 4C 45 |:.FE$;:.SL$".ELE|
000001A0: 46 4F 4E 4B 4F 53 54 45 4E 22 00 CA 09 82 00 99 |FONKOSTEN"......|
000001B0: 43 34 24 22 CE 55 4D 4D 45 52 20 53 55 43 48 45 |C4$".UMMER SUCHE|
000001C0: 4E 22 42 35 24 22 28 31 29 22 00 EC 09 8C 00 99 |N"B5$"(1)"......|
000001D0: 43 34 24 22 CE 55 4D 4D 45 52 20 45 49 4E 47 45 |C4$".UMMER EINGE|
000001E0: 42 45 4E 22 42 33 24 22 28 32 29 22 00 0D 0A 96 |BEN"B3$"(2)"....|
000001F0: 00 99 43 34 24 22 CE 55 4D 4D 45 52 20 41 45 4E |..C4$".UMMER AEN|
00000200: 44 45 52 4E 22 42 34 24 22 28 33 29 22 00 30 0A |DERN"B4$"(3)".0.|
00000210: A0 00 99 43 34 24 22 CD 4F 4E 41 54 53 41 42 52 |...C4$".ONATSABR|
00000220: 45 43 48 4E 55 4E 47 22 42 32 24 22 28 34 29 22 |ECHNUNG"B2$"(4)"|
00000230: 00 53 0A AA 00 99 43 34 24 22 D0 52 4F 47 52 41 |.S....C4$".ROGRA|
00000240: 4D 4D 20 42 45 45 4E 44 45 4E 22 42 32 24 22 28 |MM BEENDEN"B2$"(|
00000250: 35 29 22 00 81 0A B4 00 8D 31 36 34 33 3A 91 20 |5)"......1643:. |
00000260: C5 28 41 24 29 20 89 20 32 30 30 2C 33 34 30 2C |.(A$) . 200,340,|
00000270: 33 36 30 2C 31 32 32 30 2C 31 39 30 3A 89 31 32 |360,1220,190:.12|
00000280: 30 00 8C 0A BE 00 99 53 43 24 3A 80 00 B9 0A C8 |0......SC$:.....|
00000290: 00 8D 39 30 30 3A 8B 49 B2 4E 4E A7 99 22 CE 49 |..900:.I.NN..".I|
000002A0: 43 48 54 20 56 4F 52 48 41 4E 44 45 4E 22 3A 8D |CHT VORHANDEN":.|
000002B0: 31 36 34 31 3A 89 31 32 30 00 E5 0A D2 00 8B C6 |1641:.120.......|
000002C0: 28 C9 28 54 45 24 28 49 29 2C 32 29 29 B2 34 37 |(.(TE$(I),2)).47|
000002D0: A7 20 5A 24 B2 C9 28 54 45 24 28 49 29 2C 31 29 |. Z$..(TE$(I),1)|
000002E0: 3A 89 32 33 30 00 FC 0A DC 00 85 20 22 DA 4F 4E |:.230...... ".ON|
000002F0: 45 20 28 4E 31 32 33 29 22 3B 5A 24 00 22 0B E6 |E (N123)";Z$."..|
00000300: 00 9E 57 4F 2C 5A 24 2C 5A 4F 24 2C 57 57 3A 54 |..WO,Z$,ZO$,WW:T|
00000310: 52 B2 54 41 28 57 57 29 3A 8B 54 52 B2 30 A7 32 |R.TA(WW):.TR.0.2|
00000320: 32 30 00 62 0B F0 00 99 43 32 24 43 4C 24 3A 9E |20.b....C2$CL$:.|
00000330: 41 54 2C 30 2C 36 3A 99 22 C2 49 54 54 45 20 D4 |AT,0,6:.".ITTE .|
00000340: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 22 42 34 |ASTE DRUECKEN"B4|
00000350: 24 43 34 24 3A 99 3A 8D 31 36 34 31 3A 54 30 B2 |$C4$:.:.1641:T0.|
00000360: 54 49 00 9D 0B FA 00 99 48 45 24 22 D5 48 52 5A |TI......HE$".HRZ|
00000370: 45 49 54 3A 20 22 52 56 24 C8 28 54 49 24 2C 32 |EIT: "RV$.(TI$,2|
00000380: 29 22 3A 22 CA 28 54 49 24 2C 33 2C 32 29 22 3A |)":".(TI$,3,2)":|
00000390: 22 C9 28 54 49 24 2C 32 29 52 4F 24 3B 00 E0 0B |".(TI$,2)RO$;...|
000003A0: 04 01 9E 57 4F 2C 5A 24 2C 5A 4F 24 2C 57 57 3A |...WO,Z$,ZO$,WW:|
000003B0: 54 52 B2 54 41 28 57 57 AA 42 25 29 3A 8B 28 54 |TR.TA(WW.B%):.(T|
000003C0: 49 24 B3 22 30 38 30 30 30 30 22 29 B0 28 54 49 |I$."080000").(TI|
000003D0: 24 B1 22 31 38 30 30 30 30 22 29 A7 42 25 B2 34 |$."180000").B%.4|
000003E0: 00 FD 0B 0E 01 53 45 B2 28 54 49 AB 54 30 29 AD |.....SE.(TI.T0).|
000003F0: 36 30 3A 45 25 B2 53 45 AD 54 52 AA 31 00 0C 0C |60:E%.SE.TR.1...|
00000400: 18 01 4D 49 25 B2 53 45 AD 36 30 3A 00 27 0C 19 |..MI%.SE.60:.'..|
00000410: 01 99 C9 28 22 20 20 20 22 AA C4 28 4D 49 25 29 |...(" "..(MI%)|
00000420: 2C 33 29 22 2E 22 3B 00 45 0C 1A 01 4D 4D B2 B5 |,3)".";.E...MM..|
00000430: 28 53 45 AB 4D 49 25 AC 36 30 29 3A 4D 4D 24 B2 |(SE.MI%.60):MM$.|
00000440: C4 28 4D 4D 29 00 65 0C 1B 01 99 C9 28 22 30 30 |.(MM).e.....("00|
00000450: 22 AA C9 28 4D 4D 24 2C C3 28 4D 4D 24 29 AB 31 |"..(MM$,.(MM$).1|
00000460: 29 2C 32 29 3B 00 72 0C 1C 01 99 22 20 4D 49 4E |),2);.r...." MIN|
00000470: 20 22 00 A4 0C 22 01 99 22 C5 49 4E 48 45 49 54 | "..."..".INHEIT|
00000480: 45 4E 22 2C 45 25 3A 99 22 D4 41 52 49 46 22 2C |EN",E%:.".ARIF",|
00000490: 54 52 3B 43 31 24 42 32 24 22 53 2F C5 49 4E 48 |TR;C1$B2$"S/.INH|
000004A0: 45 49 54 22 00 C1 0C 2C 01 99 22 CB 4F 53 54 45 |EIT"...,..".OSTE|
000004B0: 4E 22 42 33 24 2C 45 25 AC 44 4D 22 20 C4 CD 20 |N"B3$,E%.DM" .. |
000004C0: 22 00 D6 0C 36 01 A1 51 24 3A 8B 51 24 B2 22 22 |"...6..Q$:.Q$.""|
000004D0: A7 32 35 30 22 22 00 15 0D 40 01 9E 41 54 2C 30 |.250""...@..AT,0|
000004E0: 2C 36 3A 99 22 C7 45 42 55 45 48 52 45 4E 20 41 |,6:.".EBUEHREN A|
000004F0: 42 53 50 45 49 43 48 45 52 4E 20 3F 20 28 4A 29 |BSPEICHERN ? (J)|
00000500: 22 3A 8D 31 36 34 31 3A 8B 51 24 B2 22 4A 22 A7 |":.1641:.Q$."J".|
00000510: 8D 31 30 30 30 00 1E 0D 4A 01 89 31 32 30 00 56 |.1000...J..120.V|
00000520: 0D 54 01 8D 37 33 30 3A 99 43 4C 24 22 CE 55 4D |.T..730:.CL$".UM|
00000530: 4D 45 52 4E 20 41 42 53 50 45 49 43 48 45 52 4E |MERN ABSPEICHERN|
00000540: 20 3F 22 3A 8D 31 36 34 31 3A 8B 51 24 B2 22 4A | ?":.1641:.Q$."J|
00000550: 22 A7 8D 38 33 30 00 5F 0D 5E 01 89 31 32 30 00 |"..830._.^..120.|
00000560: 9C 0D 68 01 8D 39 30 30 3A 8D 37 34 30 3A 99 43 |..h..900:.740:.C|
00000570: 4C 24 22 CE 55 4D 4D 45 52 4E 20 41 42 53 50 45 |L$".UMMERN ABSPE|
00000580: 49 43 48 45 52 4E 20 3F 22 3A 8D 31 36 34 31 3A |ICHERN ?":.1641:|
00000590: 8B 51 24 B2 22 4A 22 A7 8D 38 33 30 00 A5 0D 72 |.Q$."J"..830...r|
000005A0: 01 89 31 32 30 00 C6 0D 7C 01 8F 20 2D 2D 2D 2D |..120...|.. ----|
000005B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005C0: 2D 2D 2D 2D 2D 2D 00 D3 0D 86 01 8F 20 20 44 41 |------...... DA|
000005D0: 54 45 4E 00 F4 0D 90 01 8F 20 2D 2D 2D 2D 2D 2D |TEN...... ------|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005F0: 2D 2D 2D 2D 00 0E 0E 9A 01 53 4C 24 B2 C7 28 30 |----.....SL$..(0|
00000600: 31 34 29 3A 43 34 24 B2 C7 28 30 31 37 29 00 28 |14):C4$..(017).(|
00000610: 0E A4 01 48 45 24 B2 C7 28 30 31 39 29 3A 46 4C |...HE$..(019):FL|
00000620: 24 B2 C7 28 31 33 30 29 00 42 0E AE 01 43 32 24 |$..(130).B...C2$|
00000630: B2 C7 28 31 34 35 29 3A 43 4C 24 B2 C7 28 31 34 |..(145):CL$..(14|
00000640: 37 29 00 5C 0E B8 01 43 31 24 B2 C7 28 31 35 37 |7).\...C1$..(157|
00000650: 29 3A 43 52 24 B2 C7 28 30 31 33 29 00 76 0E C2 |):CR$..(013).v..|
00000660: 01 52 56 24 B2 C7 28 30 31 38 29 3A 52 4F 24 B2 |.RV$..(018):RO$.|
00000670: C7 28 31 34 36 29 00 96 0E CC 01 42 24 B2 22 20 |.(146).....B$." |
00000680: 22 3A 42 32 24 B2 42 24 AA 42 24 3A 42 33 24 B2 |":B2$.B$.B$:B3$.|
00000690: 42 32 24 AA 42 24 00 B0 0E D6 01 42 34 24 B2 42 |B2$.B$.....B4$.B|
000006A0: 33 24 AA 42 24 3A 42 35 24 B2 42 34 24 AA 42 24 |3$.B$:B5$.B4$.B$|
000006B0: 00 DF 0E E0 01 42 24 B2 42 35 24 AA 42 35 24 3A |.....B$.B5$.B5$:|
000006C0: 43 43 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |CC$."...........|
000006D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 |..............".|
000006E0: 21 0F EA 01 4E 4E B2 31 30 30 3A 86 20 49 2C 4E |!...NN.100:. I,N|
000006F0: 41 24 28 4E 4E 29 2C 41 44 24 28 4E 4E 29 2C 54 |A$(NN),AD$(NN),T|
00000700: 45 24 28 4E 4E 29 2C 44 54 25 28 35 30 30 29 2C |E$(NN),DT%(500),|
00000710: 45 48 25 28 35 30 30 29 2C 4E 4D 24 28 35 30 30 |EH%(500),NM$(500|
00000720: 29 00 4F 0F F4 01 53 43 24 B2 C7 28 31 39 29 AA |).O...SC$..(19).|
00000730: C7 28 31 39 29 AA C7 28 31 34 37 29 3A 99 53 43 |.(19)..(147):.SC|
00000740: 24 3A 9E 41 54 2C 38 2C 36 3A 99 46 45 24 3B 00 |$:.AT,8,6:.FE$;.|
00000750: 80 0F FE 01 50 52 24 B2 54 49 24 3A 99 22 D5 48 |....PR$.TI$:.".H|
00000760: 52 5A 45 49 54 20 22 3B 3A 8D 31 34 31 30 3A 85 |RZEIT ";:.1410:.|
00000770: 51 24 3A 8B C3 28 51 24 29 B3 B1 36 A7 35 31 30 |Q$:..(Q$)..6.510|
00000780: 00 8B 0F FF 01 54 49 24 B2 51 24 00 AA 0F 08 02 |.....TI$.Q$.....|
00000790: 85 22 C4 41 54 55 4D 20 28 D4 41 47 2C CD 4F 4E |.".ATUM (.AG,.ON|
000007A0: 41 54 29 22 3B 44 54 2C 4D 4E 00 C4 0F 12 02 8B |AT)";DT,MN......|
000007B0: 20 44 54 B1 33 31 20 B0 20 4D 4E B1 31 32 20 A7 | DT.31 . MN.12 .|
000007C0: 20 35 32 30 00 01 10 1C 02 50 52 24 B2 22 4A 22 | 520.....PR$."J"|
000007D0: 3A 99 22 4E 4F 52 4D 41 4C 45 52 20 D7 45 52 4B |:."NORMALER .ERK|
000007E0: 54 41 47 22 3B 3A 8D 31 34 31 30 3A 85 51 24 3A |TAG";:.1410:.Q$:|
000007F0: 8B 51 24 B2 22 4A 22 A7 42 25 B2 30 3A 89 35 35 |.Q$."J".B%.0:.55|
00000800: 30 00 0A 10 1D 02 42 25 B2 34 00 27 10 26 02 9F |0.....B%.4.'.&..|
00000810: 38 2C 38 2C 38 2C 22 4E 55 4D 4D 45 52 4E 2C 53 |8,8,8,"NUMMERN,S|
00000820: 2C 52 22 3A 49 B2 31 00 3F 10 30 02 84 38 2C 54 |,R":I.1.?.0..8,T|
00000830: 4E 24 3A 8B 20 53 54 B1 30 20 A7 20 35 38 30 00 |N$:. ST.0 . 580.|
00000840: 6C 10 3A 02 84 38 2C 4E 41 24 28 49 29 2C 41 44 |l.:..8,NA$(I),AD|
00000850: 24 28 49 29 2C 54 45 24 28 49 29 3A 8B 53 54 B2 |$(I),TE$(I):.ST.|
00000860: 30 A7 49 B2 49 AA 31 3A 89 35 37 30 00 83 10 44 |0.I.I.1:.570...D|
00000870: 02 A0 38 3A 99 44 53 24 3A 81 54 B2 31 A4 32 30 |..8:.DS$:.T.1.20|
00000880: 30 3A 82 00 A4 10 4E 02 8F 20 2D 2D 2D 2D 2D 2D |0:....N.. ------|
00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008A0: 2D 2D 2D 2D 00 B1 10 58 02 8F 20 20 44 41 54 45 |----...X.. DATE|
000008B0: 4E 00 D2 10 62 02 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |N...b.. --------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008D0: 2D 2D 00 F4 10 6C 02 5A 4F 24 B2 22 4E 31 32 33 |--...l.ZO$."N123|
000008E0: 22 3A 8F 20 42 45 52 45 49 43 48 53 2D 4B 45 4E |":. BEREICHS-KEN|
000008F0: 4E 55 4E 47 00 0D 11 76 02 8F 20 4E 4F 52 4D 41 |NUNG...v.. NORMA|
00000900: 4C 3A 42 49 4C 4C 49 47 54 41 52 49 46 00 33 11 |L:BILLIGTARIF.3.|
00000910: 80 02 54 41 28 31 29 B2 34 38 30 20 3A 54 41 28 |..TA(1).480 :TA(|
00000920: 35 29 B2 37 32 30 3A 8F 20 4E 41 48 42 45 52 45 |5).720:. NAHBERE|
00000930: 49 43 48 00 56 11 8A 02 54 41 28 32 29 B2 34 35 |ICH.V...TA(2).45|
00000940: 20 20 3A 54 41 28 36 29 B2 36 37 2E 35 3A 8F 20 | :TA(6).67.5:. |
00000950: 5A 4F 4E 45 20 31 00 7B 11 94 02 54 41 28 33 29 |ZONE 1.{...TA(3)|
00000960: B2 32 30 20 20 3A 54 41 28 37 29 B2 33 38 2E 35 |.20 :TA(7).38.5|
00000970: 37 31 3A 8F 20 5A 4F 4E 45 20 32 00 A0 11 9E 02 |71:. ZONE 2.....|
00000980: 54 41 28 34 29 B2 31 32 20 20 3A 54 41 28 38 29 |TA(4).12 :TA(8)|
00000990: B2 33 38 2E 35 37 31 3A 8F 20 5A 4F 4E 45 20 33 |.38.571:. ZONE 3|
000009A0: 00 C3 11 A8 02 44 4D B2 30 2E 32 33 20 20 20 3A |.....DM.0.23 :|
000009B0: 8F 20 47 45 42 55 45 48 52 45 4E 2F 45 49 4E 48 |. GEBUEHREN/EINH|
000009C0: 45 49 54 00 C9 11 B2 02 8E 00 EA 11 BC 02 8F 20 |EIT............ |
000009D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000009E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 02 12 C6 02 8F |----------......|
000009F0: 20 20 4E 55 4D 4D 45 52 4E 20 45 49 4E 47 45 42 | NUMMERN EINGEB|
00000A00: 45 4E 00 23 12 D0 02 8F 20 2D 2D 2D 2D 2D 2D 2D |EN.#.... -------|
00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A20: 2D 2D 2D 00 2B 12 DA 02 49 B2 30 00 45 12 DB 02 |---.+...I.0.E...|
00000A30: 49 B2 49 AA 31 3A 8B 4E 41 24 28 49 29 B3 B1 22 |I.I.1:.NA$(I).."|
00000A40: 22 A7 37 33 31 00 6B 12 E4 02 99 48 45 24 48 45 |".731.k....HE$HE|
00000A50: 24 43 4C 24 43 34 24 43 34 24 43 34 24 46 45 24 |$CL$C4$C4$C4$FE$|
00000A60: 49 3A 8B 49 B2 4E 4E A7 31 32 30 00 91 12 EE 02 |I:.I.NN.120.....|
00000A70: 50 52 24 B2 4E 41 24 28 49 29 3A 99 22 CE 41 4D |PR$.NA$(I):.".AM|
00000A80: 45 22 3B 3A 8D 31 34 31 30 3A 85 4E 41 24 28 49 |E";:.1410:.NA$(I|
00000A90: 29 00 BA 12 F8 02 50 52 24 B2 41 44 24 28 49 29 |).....PR$.AD$(I)|
00000AA0: 3A 99 22 C1 44 52 45 53 53 45 22 3B 3A 8D 31 34 |:.".DRESSE";:.14|
00000AB0: 31 30 3A 85 41 44 24 28 49 29 00 E9 12 02 03 50 |10:.AD$(I).....P|
00000AC0: 52 24 B2 54 45 24 28 49 29 3A 99 22 D4 45 4C 45 |R$.TE$(I):.".ELE|
00000AD0: 46 4F 4E 2F D4 41 52 49 46 22 3B 3A 8D 31 34 31 |FON/.ARIF";:.141|
00000AE0: 30 3A 85 54 45 24 28 49 29 00 13 13 0C 03 99 22 |0:.TE$(I)......"|
00000AF0: 57 45 49 54 45 52 20 3F 22 3A 8D 31 36 34 31 3A |WEITER ?":.1641:|
00000B00: 8B 51 24 B2 22 4A 22 20 A7 49 B2 49 AA 31 3A 89 |.Q$."J" .I.I.1:.|
00000B10: 37 34 30 00 19 13 16 03 8E 00 3A 13 20 03 8F 20 |740.......:. .. |
00000B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 55 13 2A 03 8F |----------.U.*..|
00000B40: 20 20 4E 55 4D 4D 45 52 4E 20 41 42 53 50 45 49 | NUMMERN ABSPEI|
00000B50: 43 48 45 52 4E 00 76 13 34 03 8F 20 2D 2D 2D 2D |CHERN.v.4.. ----|
00000B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B70: 2D 2D 2D 2D 2D 2D 00 95 13 3E 03 9F 38 2C 38 2C |------...>..8,8,|
00000B80: 31 35 2C 22 53 3A 4E 55 4D 4D 45 52 4E 2E 42 41 |15,"S:NUMMERN.BA|
00000B90: 4B 22 3A A0 38 00 BC 13 3F 03 9F 38 2C 38 2C 31 |K":.8...?..8,8,1|
00000BA0: 35 2C 22 52 3A 4E 55 4D 4D 45 52 4E 2E 42 41 4B |5,"R:NUMMERN.BAK|
00000BB0: 3D 4E 55 4D 4D 45 52 4E 22 3A A0 38 00 C4 13 48 |=NUMMERN":.8...H|
00000BC0: 03 45 B2 30 00 DE 13 49 03 45 B2 45 AA 31 3A 8B |.E.0...I.E.E.1:.|
00000BD0: 4E 41 24 28 45 29 B3 B1 22 22 A7 38 34 31 00 FE |NA$(E).."".841..|
00000BE0: 13 52 03 9F 38 2C 38 2C 38 2C 22 4E 55 4D 4D 45 |.R..8,8,8,"NUMME|
00000BF0: 52 4E 2C 53 2C 57 22 3A 98 38 2C 22 54 22 00 31 |RN,S,W":.8,"T".1|
00000C00: 14 5C 03 81 49 B2 31 A4 45 AB 31 3A 98 38 2C 4E |.\..I.1.E.1:.8,N|
00000C10: 41 24 28 49 29 43 52 24 41 44 24 28 49 29 43 52 |A$(I)CR$AD$(I)CR|
00000C20: 24 54 45 24 28 49 29 3A 82 3A A0 38 3A 89 31 32 |$TE$(I):.:.8:.12|
00000C30: 30 00 52 14 66 03 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |0.R.f.. --------|
00000C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C50: 2D 2D 00 72 14 70 03 8F 20 20 4E 41 4D 45 20 53 |--.r.p.. NAME S|
00000C60: 55 43 48 45 4E 20 55 4E 44 20 41 4E 5A 45 49 47 |UCHEN UND ANZEIG|
00000C70: 45 4E 00 93 14 7A 03 8F 20 2D 2D 2D 2D 2D 2D 2D |EN...z.. -------|
00000C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C90: 2D 2D 2D 00 C1 14 84 03 99 43 34 24 43 34 24 3A |---......C4$C4$:|
00000CA0: 85 22 CE 41 4D 45 22 3B 4E 53 24 3A 49 B2 30 3A |.".AME";NS$:I.0:|
00000CB0: 8B 4E 53 24 B2 22 2A 22 A7 20 4E 53 24 B2 22 20 |.NS$."*". NS$." |
00000CC0: 22 00 D3 14 8E 03 8B 4E 53 24 B3 B1 22 40 22 A7 |"......NS$.."@".|
00000CD0: 39 32 30 00 0D 15 8F 03 49 B2 30 3A 85 22 4E 41 |920.....I.0:."NA|
00000CE0: 4D 45 2C 4E 55 4D 4D 45 52 22 3B 4E 41 24 28 30 |ME,NUMMER";NA$(0|
00000CF0: 29 2C 54 45 24 28 30 29 3A 99 53 43 24 3A 9E 41 |),TE$(0):.SC$:.A|
00000D00: 54 2C 35 2C 35 3A 99 46 45 24 3B 3A 8E 00 28 15 |T,5,5:.FE$;:..(.|
00000D10: 98 03 4D 4D 24 B2 C8 28 4E 53 24 2C 31 29 3A 4C |..MM$..(NS$,1):L|
00000D20: 4C B2 C3 28 4E 53 24 29 00 4F 15 99 03 49 B2 49 |L..(NS$).O...I.I|
00000D30: AA 31 3A 57 57 24 B2 4E 41 24 28 49 29 3A 8B 4E |.1:WW$.NA$(I):.N|
00000D40: 41 24 28 49 29 B2 22 22 A7 49 B2 4E 4E 3A 8E 00 |A$(I)."".I.NN:..|
00000D50: 72 15 9A 03 9E 57 4F 2C 4E 53 24 2C 57 57 24 2C |r....WO,NS$,WW$,|
00000D60: 57 57 3A 8B 57 57 B2 30 AF 49 B3 B1 4E 4E A7 39 |WW:.WW.0.I..NN.9|
00000D70: 32 31 00 8F 15 9B 03 8B CA 28 4E 41 24 28 49 29 |21.......(NA$(I)|
00000D80: 2C 57 57 2C 4C 4C 29 B2 4E 53 24 A7 39 32 39 00 |,WW,LL).NS$.929.|
00000D90: A3 15 9C 03 57 57 24 B2 C8 28 57 57 24 2C 57 57 |....WW$..(WW$,WW|
00000DA0: AB 31 29 00 B2 15 9F 03 8B 57 57 B3 B1 31 A7 39 |.1)......WW..1.9|
00000DB0: 32 32 00 BB 15 A0 03 89 39 32 31 00 CA 15 A1 03 |22......921.....|
00000DC0: 8B 20 49 B2 4E 4E 20 A7 20 8E 00 EC 15 A2 03 99 |. I.NN . .......|
00000DD0: C7 28 31 34 37 29 3B 3A 9E 41 54 2C 35 2C 35 3A |.(147);:.AT,5,5:|
00000DE0: 99 46 45 24 3B 3A 99 22 49 3D 22 49 00 11 16 A3 |.FE$;:."I="I....|
00000DF0: 03 99 43 34 24 4E 41 24 28 49 29 3A 99 41 44 24 |..C4$NA$(I):.AD$|
00000E00: 28 49 29 3A 99 43 34 24 54 45 24 28 49 29 43 34 |(I):.C4$TE$(I)C4|
00000E10: 24 00 2E 16 AC 03 99 22 CF CB 3F 22 3A 8D 31 36 |$......"..?":.16|
00000E20: 34 31 3A 8B 51 24 B2 22 4E 22 A7 39 32 30 00 34 |41:.Q$."N".920.4|
00000E30: 16 AD 03 8E 00 55 16 B6 03 8F 20 2D 2D 2D 2D 2D |.....U.... -----|
00000E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E50: 2D 2D 2D 2D 2D 00 72 16 C0 03 8F 20 20 47 45 42 |-----.r.... GEB|
00000E60: 55 45 48 52 45 4E 20 41 42 53 50 45 49 43 48 45 |UEHREN ABSPEICHE|
00000E70: 52 4E 00 93 16 CA 03 8F 20 2D 2D 2D 2D 2D 2D 2D |RN...... -------|
00000E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E90: 2D 2D 2D 00 BB 16 D4 03 99 C7 28 31 34 37 29 3B |---.......(147);|
00000EA0: 3A 85 22 C4 41 54 55 4D 20 28 D4 41 47 2C CD 4F |:.".ATUM (.AG,.O|
00000EB0: 4E 41 54 29 22 3B 44 54 2C 4D 4E 00 D5 16 DE 03 |NAT)";DT,MN.....|
00000EC0: 8B 20 44 54 B1 33 31 20 B0 20 4D 4E B1 31 32 20 |. DT.31 . MN.12 |
00000ED0: A7 20 39 38 30 00 03 17 E8 03 8C 3A 81 51 B2 31 |. 980......:.Q.1|
00000EE0: A4 4D 4E 3A 87 20 4D 4E 24 3A 82 3A 99 43 4C 24 |.MN:. MN$:.:.CL$|
00000EF0: 22 C4 41 54 55 4D 3A 22 44 54 43 31 24 22 2E 22 |".ATUM:"DTC1$"."|
00000F00: 4D 4E 24 00 3C 17 F2 03 99 43 4C 24 4E 41 24 28 |MN$.<....CL$NA$(|
00000F10: 49 29 3A 99 22 C4 41 54 55 4D 20 3A 22 44 54 22 |I):.".ATUM :"DT"|
00000F20: 2E 22 4D 4E 24 3A 99 22 C5 49 4E 48 45 49 54 45 |."MN$:.".INHEITE|
00000F30: 4E 22 45 25 3A 99 22 CF CB 20 3F 22 00 53 17 FC |N"E%:.".. ?".S..|
00000F40: 03 8D 31 36 34 31 3A 8B 51 24 B3 B1 22 4A 22 A7 |..1641:.Q$.."J".|
00000F50: 39 38 30 00 89 17 06 04 83 20 4A 41 4E 2C 46 45 |980...... JAN,FE|
00000F60: 42 2C 4D 41 52 2C 41 50 52 2C 4D 41 49 2C 4A 55 |B,MAR,APR,MAI,JU|
00000F70: 4E 2C 4A 55 4C 2C 41 55 47 2C 53 45 50 2C 4F 4B |N,JUL,AUG,SEP,OK|
00000F80: 54 2C 4E 4F 56 2C 44 45 5A 00 B3 17 10 04 4B B2 |T,NOV,DEZ.....K.|
00000F90: 30 3A 50 24 B2 22 54 45 4C 2E 22 AA 4D 4E 24 3A |0:P$."TEL.".MN$:|
00000FA0: 9F 38 2C 38 2C 38 2C 50 24 AA 22 2C 53 2C 52 22 |.8,8,8,P$.",S,R"|
00000FB0: 3A A0 38 00 DE 17 1A 04 8B 44 53 B1 30 A7 99 22 |:.8......DS.0.."|
00000FC0: C6 4C 4F 50 50 59 46 45 48 4C 45 52 22 3A 99 44 |.LOPPYFEHLER":.D|
00000FD0: 53 24 3A 8D 31 36 34 31 3A 89 31 30 34 30 00 FC |S$:.1641:.1040..|
00000FE0: 17 24 04 9F 38 2C 38 2C 38 2C 50 24 AA 22 2C 53 |.$..8,8,8,P$.",S|
00000FF0: 2C 52 22 3A 4B B2 31 3A 45 53 B2 30 00 23 18 2E |,R":K.1:ES.0.#..|
00001000: 04 84 38 2C 41 24 3A 99 48 45 24 48 45 24 43 4C |..8,A$:.HE$HE$CL|
00001010: 24 3A 8B 20 53 54 B1 30 20 A7 4B B2 30 3A 89 31 |$:. ST.0 .K.0:.1|
00001020: 31 30 30 00 3F 18 38 04 84 38 2C 4E 4D 24 28 4B |100.?.8..8,NM$(K|
00001030: 29 2C 44 54 25 28 4B 29 2C 45 48 25 28 4B 29 00 |),DT%(K),EH%(K).|
00001040: 63 18 42 04 45 53 B2 45 53 AA 45 48 25 28 4B 29 |c.B.ES.ES.EH%(K)|
00001050: 3A 8B 53 54 B2 30 A7 4B B2 4B AA 31 3A 89 20 31 |:.ST.0.K.K.1:. 1|
00001060: 30 38 30 00 A1 18 4C 04 A0 38 3A 99 44 53 24 3A |080...L..8:.DS$:|
00001070: 81 54 B2 31 A4 32 30 30 3A 82 3A 8F 20 49 46 20 |.T.1.200:.:. IF |
00001080: 45 52 3E 30 20 54 48 45 4E 50 52 49 4E 54 48 45 |ER>0 THENPRINTHE|
00001090: 24 48 45 24 45 52 52 24 28 45 52 29 3A 53 54 4F |$HE$ERR$(ER):STO|
000010A0: 50 00 C7 18 56 04 99 22 C5 49 4E 54 52 41 45 47 |P...V..".INTRAEG|
000010B0: 45 20 49 4D 20 CD 4F 4E 41 54 20 22 AA 4D 4E 24 |E IM .ONAT ".MN$|
000010C0: AA 22 3A 22 4B AA 31 00 F9 18 60 04 45 53 B2 45 |.":"K.1...`.ES.E|
000010D0: 53 AA 45 25 3A 99 22 C5 49 4E 48 45 49 54 45 4E |S.E%:.".INHEITEN|
000010E0: 20 47 45 53 41 4D 54 22 42 33 24 45 53 22 3D 22 | GESAMT"B3$ES"="|
000010F0: 45 53 AC 44 4D 22 C4 CD 22 00 1B 19 6A 04 8F 20 |ES.DM".."...j.. |
00001100: 20 20 4F 50 45 4E 31 2C 38 2C 31 35 2C 22 53 3A | OPEN1,8,15,"S:|
00001110: 22 2B 50 24 3A 43 4C 4F 53 45 31 00 52 19 74 04 |"+P$:CLOSE1.R.t.|
00001120: 9F 31 2C 38 2C 31 35 2C 22 53 3A 22 AA 50 24 AA |.1,8,15,"S:".P$.|
00001130: 22 2E 42 41 4B 22 3A 98 31 2C 22 52 3A 22 AA 50 |".BAK":.1,"R:".P|
00001140: 24 AA 22 2E 42 41 4B 22 AA 22 3D 22 AA 50 24 3A |$.".BAK"."=".P$:|
00001150: A0 31 00 6E 19 7E 04 9F 38 2C 38 2C 38 2C 50 24 |.1.n.~..8,8,8,P$|
00001160: AA 22 2C 53 2C 57 22 3A 98 38 2C 4D 4E 24 00 A2 |.",S,W":.8,MN$..|
00001170: 19 88 04 8B 20 4B B1 30 20 A7 20 81 51 B2 31 A4 |.... K.0 . .Q.1.|
00001180: 4B 3A 98 38 2C 4E 4D 24 28 51 29 3A 98 38 2C 44 |K:.8,NM$(Q):.8,D|
00001190: 54 25 28 51 29 3A 98 38 2C 45 48 25 28 51 29 3A |T%(Q):.8,EH%(Q):|
000011A0: 82 51 00 BC 19 92 04 98 38 2C 4E 41 24 28 49 29 |.Q......8,NA$(I)|
000011B0: 3A 98 38 2C 44 54 3A 98 38 2C 45 25 00 C5 19 9C |:.8,DT:.8,E%....|
000011C0: 04 A0 38 3A 8E 00 E5 19 A6 04 8F 20 2D 2D 2D 2D |..8:....... ----|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011E0: 2D 2D 2D 2D 2D 00 FB 19 B0 04 8F 20 20 5A 57 49 |-----...... ZWI|
000011F0: 53 43 48 45 4E 42 49 4C 41 4E 5A 00 1B 1A BA 04 |SCHENBILANZ.....|
00001200: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
00001210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 39 1A C4 04 |-----------.9...|
00001220: 99 3A 85 20 22 CD 4F 4E 41 54 20 28 4A 41 4E 2D |.:. ".ONAT (JAN-|
00001230: 44 45 5A 29 22 3B 4D 4E 24 00 5F 1A CE 04 50 24 |DEZ)";MN$._...P$|
00001240: B2 22 54 45 4C 2E 22 AA 4D 4E 24 3A 9F 38 2C 38 |."TEL.".MN$:.8,8|
00001250: 2C 38 2C 50 24 AA 22 2C 53 2C 52 22 3A A0 38 00 |,8,P$.",S,R":.8.|
00001260: 77 1A CF 04 9F 31 35 2C 38 2C 31 35 3A 84 31 35 |w....15,8,15:.15|
00001270: 2C 44 53 3A A0 31 35 00 A2 1A D8 04 8B 44 53 B1 |,DS:.15......DS.|
00001280: 30 A7 99 22 C6 4C 4F 50 50 59 46 45 48 4C 45 52 |0..".LOPPYFEHLER|
00001290: 22 3A 99 44 53 24 3A 8D 31 36 34 31 3A 89 31 32 |":.DS$:.1641:.12|
000012A0: 32 30 00 E2 1A E2 04 50 52 24 B2 22 4A 22 3A 99 |20.....PR$."J":.|
000012B0: 22 C4 52 55 43 4B 45 52 41 55 53 47 41 42 45 22 |".RUCKERAUSGABE"|
000012C0: 3B 3A 8D 31 34 31 30 3A 85 51 24 3A 44 52 25 B2 |;:.1410:.Q$:DR%.|
000012D0: 30 3A 8B 20 51 24 B2 22 4A 22 20 A7 20 44 52 25 |0:. Q$."J" . DR%|
000012E0: B2 31 00 00 1B EC 04 9F 38 2C 38 2C 38 2C 50 24 |.1......8,8,8,P$|
000012F0: AA 22 2C 53 2C 52 22 3A 4B B2 31 3A 45 53 B2 30 |.",S,R":K.1:ES.0|
00001300: 00 21 1B F6 04 84 38 2C 41 24 3A 99 48 45 24 48 |.!....8,A$:.HE$H|
00001310: 45 24 43 4C 24 3A 8B 44 52 25 A7 9F 34 2C 34 2C |E$CL$:.DR%..4,4,|
00001320: 37 00 43 1B 00 05 84 38 2C 4E 4D 24 28 4B 29 2C |7.C....8,NM$(K),|
00001330: 44 54 25 28 4B 29 2C 45 48 25 28 4B 29 3A 53 44 |DT%(K),EH%(K):SD|
00001340: B2 53 54 00 65 1B 0A 05 99 4B 3B C8 28 4E 4D 24 |.ST.e....K;.(NM$|
00001350: 28 4B 29 2C 31 36 29 2C 44 54 25 28 4B 29 3B 45 |(K),16),DT%(K);E|
00001360: 48 25 28 4B 29 00 73 1B 0B 05 8B 44 52 25 A7 31 |H%(K).s....DR%.1|
00001370: 33 30 30 00 8D 1B 0C 05 41 24 B2 22 22 3A A1 41 |300.....A$."":.A|
00001380: 24 3A 8B 41 24 B2 22 22 A7 31 33 30 30 00 97 1B |$:.A$."".1300...|
00001390: 0D 05 8D 31 36 34 33 00 D7 1B 14 05 8B 20 44 52 |...1643...... DR|
000013A0: 25 20 A7 20 98 34 2C 4B 3B C8 28 4E 4D 24 28 4B |% . .4,K;.(NM$(K|
000013B0: 29 AA 42 4C 24 AA 42 4C 24 2C 32 30 29 2C C8 28 |).BL$.BL$,20),.(|
000013C0: C4 28 44 54 25 28 4B 29 29 AA 42 35 24 2C 35 29 |.(DT%(K)).B5$,5)|
000013D0: 2C 45 48 25 28 4B 29 00 F9 1B 1E 05 45 53 B2 45 |,EH%(K).....ES.E|
000013E0: 53 AA 45 48 25 28 4B 29 3A 4B B2 4B AA 31 3A 8B |S.EH%(K):K.K.1:.|
000013F0: 53 44 B2 30 A7 31 32 38 30 00 00 1C 28 05 A0 38 |SD.0.1280...(..8|
00001400: 00 28 1C 32 05 99 3A 99 22 C5 49 4E 54 52 41 45 |.(.2..:.".INTRAE|
00001410: 47 45 20 49 4D 20 CD 4F 4E 41 54 20 22 AA 4D 4E |GE IM .ONAT ".MN|
00001420: 24 AA 22 3A 22 4B AB 31 00 5B 1C 3C 05 8B 20 44 |$.":"K.1.[.<.. D|
00001430: 52 25 20 A7 20 98 34 3A 98 34 2C 22 C5 49 4E 54 |R% . .4:.4,".INT|
00001440: 52 41 45 47 45 20 49 4D 20 CD 4F 4E 41 54 20 22 |RAEGE IM .ONAT "|
00001450: AA 4D 4E 24 AA 22 3A 22 4B AB 31 00 84 1C 46 05 |.MN$.":"K.1...F.|
00001460: 99 22 C5 49 4E 48 45 49 54 45 4E 20 47 45 53 41 |.".INHEITEN GESA|
00001470: 4D 54 22 42 33 24 45 53 22 3D 22 45 53 AC 44 4D |MT"B3$ES"="ES.DM|
00001480: 22 C4 CD 22 00 BA 1C 50 05 8B 20 44 52 25 20 A7 |".."...P.. DR% .|
00001490: 20 98 34 2C 22 C5 49 4E 48 45 49 54 45 4E 20 47 | .4,".INHEITEN G|
000014A0: 45 53 41 4D 54 22 42 33 24 45 53 22 3D 22 45 53 |ESAMT"B3$ES"="ES|
000014B0: AC 44 4D 22 C4 CD 22 3A A0 34 00 C9 1C 5A 05 8D |.DM"..":.4...Z..|
000014C0: 31 36 34 33 3A 89 31 32 30 00 E9 1C 64 05 8F 20 |1643:.120...d.. |
000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 FE 1C 6E 05 8F 20 |---------...n.. |
000014F0: 20 49 4E 50 55 54 20 56 4F 52 47 41 42 45 00 1E | INPUT VORGABE..|
00001500: 1D 78 05 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.x.. -----------|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3D |--------------.=|
00001520: 1D 82 05 99 22 20 20 22 50 52 24 C8 28 43 43 24 |...." "PR$.(CC$|
00001530: 2C C3 28 50 52 24 29 AA 32 29 3B 3A 8E 00 51 1D |,.(PR$).2);:..Q.|
00001540: 8C 05 99 D3 28 45 52 29 2C 44 53 24 3A 90 3A D6 |....(ER),DS$:.:.|
00001550: 82 00 71 1D 96 05 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |..q.... --------|
00001560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001570: 2D 00 82 1D A0 05 8F 20 20 41 4E 4C 45 49 54 55 |-...... ANLEITU|
00001580: 4E 47 00 A2 1D AA 05 8F 20 2D 2D 2D 2D 2D 2D 2D |NG...... -------|
00001590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015A0: 2D 2D 00 D7 1D B4 05 99 C7 28 31 34 37 29 3B 3A |--.......(147);:|
000015B0: 99 C7 28 31 34 29 22 C1 4E 4C 45 49 54 55 4E 47 |..(14)".NLEITUNG|
000015C0: 3F 20 28 4A 29 22 3A 8D 31 36 34 31 3A 8B 51 24 |? (J)":.1641:.Q$|
000015D0: B3 B1 22 4A 22 A7 8E 00 FF 1D BE 05 99 3A 99 22 |.."J"........:."|
000015E0: CD 49 54 20 44 49 45 53 45 4D 20 D0 52 4F 47 52 |.IT DIESEM .ROGR|
000015F0: 41 4D 4D 20 4B 41 4E 4E 20 4D 41 4E 22 3A 99 00 |AMM KANN MAN":..|
00001600: 27 1E C8 05 99 22 41 29 20 53 45 49 4E 45 20 D4 |'...."A) SEINE .|
00001610: 45 4C 45 46 4F 4E 4E 55 4D 4D 45 52 4E 20 53 50 |ELEFONNUMMERN SP|
00001620: 45 49 43 48 45 52 4E 00 49 1E D2 05 99 42 33 24 |EICHERN.I....B3$|
00001630: 22 49 4E 43 4C 2E 20 CE 41 4D 45 4E 20 55 4E 44 |"INCL. .AMEN UND|
00001640: 20 C1 44 52 45 53 53 45 4E 00 73 1E DC 05 99 22 | .DRESSEN.s...."|
00001650: 42 29 20 44 49 45 20 CE 55 4D 4D 45 52 2C 20 44 |B) DIE .UMMER, D|
00001660: 49 45 20 5A 55 4D 20 45 49 4E 47 45 47 45 42 45 |IE ZUM EINGEGEBE|
00001670: 4E 45 4E 00 A0 1E E6 05 99 42 33 24 22 CE 41 4D |NEN......B3$".AM|
00001680: 45 4E 20 47 45 48 4F 45 52 54 2C 20 53 55 43 48 |EN GEHOERT, SUCH|
00001690: 45 4E 20 28 2A 20 46 55 45 52 20 41 4C 4C 45 29 |EN (* FUER ALLE)|
000016A0: 00 CD 1E F0 05 99 42 33 24 22 28 D4 41 53 54 45 |......B3$"(.ASTE|
000016B0: 20 57 45 4E 4E 20 D6 45 52 42 49 4E 44 55 4E 47 | WENN .ERBINDUNG|
000016C0: 20 48 45 52 47 45 53 54 45 4C 4C 54 29 00 E9 1E | HERGESTELLT)...|
000016D0: FA 05 99 22 43 29 20 C5 53 20 57 49 52 44 20 41 |..."C) .S WIRD A|
000016E0: 4E 47 45 5A 45 49 47 54 3A 00 0D 1F 04 06 99 42 |NGEZEIGT:......B|
000016F0: 33 24 22 D5 48 52 5A 45 49 54 2C 20 C5 49 4E 48 |3$".HRZEIT, .INH|
00001700: 45 49 54 45 4E 2C 20 CB 4F 53 54 45 4E 00 37 1F |EITEN, .OSTEN.7.|
00001710: 0E 06 99 22 44 29 20 CE 41 4D 45 2C 20 C4 41 54 |..."D) .AME, .AT|
00001720: 55 4D 20 55 4E 44 20 C5 49 4E 48 45 49 54 45 4E |UM UND .INHEITEN|
00001730: 20 57 45 52 44 45 4E 00 62 1F 18 06 99 42 33 24 | WERDEN.b....B3$|
00001740: 22 41 42 47 45 53 50 45 49 43 48 45 52 54 20 55 |"ABGESPEICHERT U|
00001750: 4E 44 20 4B 4F 45 4E 4E 45 4E 20 41 4D 20 C5 4E |ND KOENNEN AM .N|
00001760: 44 45 00 8C 1F 22 06 99 42 33 24 22 44 45 53 20 |DE..."..B3$"DES |
00001770: CD 4F 4E 41 54 53 20 4D 49 54 20 CD CF CE C1 D4 |.ONATS MIT .....|
00001780: D3 C1 C2 D2 C5 C3 C8 CE D5 CE C7 22 00 A8 1F 2C |..........."...,|
00001790: 06 99 42 33 24 22 46 55 45 52 20 44 41 53 20 C6 |..B3$"FUER DAS .|
000017A0: 49 4E 41 4E 5A 41 4D 54 00 C7 1F 36 06 99 42 33 |INANZAMT...6..B3|
000017B0: 24 22 28 4F 44 45 52 20 49 4E 4E 45 52 46 41 4D |$"(ODER INNERFAM|
000017C0: 49 4C 49 41 45 52 29 00 E4 1F 40 06 99 42 33 24 |ILIAER)...@..B3$|
000017D0: 22 41 42 47 45 52 45 43 48 4E 45 54 20 57 45 52 |"ABGERECHNET WER|
000017E0: 44 45 4E 2E 00 19 20 4A 06 99 3A 99 3A 99 22 C4 |DEN... J..:.:.".|
000017F0: 41 53 20 D0 52 4F 47 52 41 4D 4D 20 49 53 54 20 |AS .ROGRAMM IST |
00001800: CD 45 4E 55 45 47 45 53 54 45 55 45 52 54 2E 20 |.ENUEGESTEUERT. |
00001810: C5 53 20 4D 55 53 53 22 3B 00 42 20 54 06 99 22 |.S MUSS";.B T.."|
00001820: 49 4D 4D 45 52 20 4D 49 54 20 27 4A 27 20 4F 44 |IMMER MIT 'J' OD|
00001830: 45 52 20 27 4E 27 20 47 45 41 4E 54 57 4F 52 54 |ER 'N' GEANTWORT|
00001840: 45 54 00 50 20 5E 06 99 22 57 45 52 44 45 4E 2E |ET.P ^.."WERDEN.|
00001850: 00 5C 20 68 06 8D 31 36 34 31 3A 8E 00 70 20 69 |.\ h..1641:..p i|
00001860: 06 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 36 34 31 |..Q$:.Q$."".1641|
00001870: 00 76 20 6A 06 8E 00 8A 20 6B 06 A1 41 24 3A 8B |.v j.... k..A$:.|
00001880: 41 24 B2 22 22 A7 31 36 34 33 00 90 20 6C 06 8E |A$."".1643.. l..|
00001890: 00 B0 20 72 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. r.. ---------|
000018A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018B0: 00 D0 20 7C 06 8F 20 20 4C 49 53 54 45 20 44 45 |.. |.. LISTE DE|
000018C0: 52 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 45 |R UNTERPROGRAMME|
000018D0: 00 F0 20 86 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. ... ---------|
000018E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018F0: 00 01 21 90 06 89 31 32 30 3A 8F 20 4D 45 4E 55 |..!...120:. MENU|
00001900: 45 00 1B 21 9A 06 89 34 39 30 3A 8F 20 44 41 54 |E..!...490:. DAT|
00001910: 45 4E 20 45 49 4E 4C 45 53 45 4E 00 37 21 A4 06 |EN EINLESEN.7!..|
00001920: 89 37 33 30 3A 8F 20 4E 55 4D 4D 45 52 4E 20 45 |.730:. NUMMERN E|
00001930: 49 4E 47 45 42 45 4E 00 56 21 AE 06 89 38 33 30 |INGEBEN.V!...830|
00001940: 3A 8F 20 4E 55 4D 4D 45 52 4E 20 41 42 53 50 45 |:. NUMMERN ABSPE|
00001950: 49 43 48 45 52 4E 00 7A 21 B8 06 89 39 30 30 3A |ICHERN.z!...900:|
00001960: 8F 20 4E 41 4D 45 20 53 55 43 48 45 4E 20 55 4E |. NAME SUCHEN UN|
00001970: 44 20 41 4E 5A 45 49 47 45 4E 00 9B 21 C2 06 89 |D ANZEIGEN..!...|
00001980: 39 38 30 3A 8F 20 47 45 42 55 45 48 52 45 4E 20 |980:. GEBUEHREN |
00001990: 41 42 53 50 45 49 43 48 45 52 4E 00 B5 21 CC 06 |ABSPEICHERN..!..|
000019A0: 89 31 34 31 30 3A 8F 20 49 4E 50 55 54 20 56 4F |.1410:. INPUT VO|
000019B0: 52 47 41 42 45 00 D5 21 D6 06 8F 20 3D 3D 3D 3D |RGABE..!... ====|
000019C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000019D0: 3D 3D 3D 3D 3D 00 EE 21 E0 06 8F 20 31 32 32 37 |=====..!... 1227|
000019E0: 37 20 42 59 54 45 53 20 4D 45 4D 4F 52 59 00 08 |7 BYTES MEMORY..|
000019F0: 22 EA 06 8F 20 30 36 32 38 31 20 42 59 54 45 53 |"... 06281 BYTES|
00001A00: 20 50 52 4F 47 52 41 4D 00 24 22 F4 06 8F 20 30 | PROGRAM.$"... 0|
00001A10: 30 32 39 34 20 42 59 54 45 53 20 56 41 52 49 41 |0294 BYTES VARIA|
00001A20: 42 4C 45 53 00 3D 22 FE 06 8F 20 30 34 35 32 30 |BLES.="... 04520|
00001A30: 20 42 59 54 45 53 20 41 52 52 41 59 53 00 57 22 | BYTES ARRAYS.W"|
00001A40: 08 07 8F 20 30 30 34 36 30 20 42 59 54 45 53 20 |... 00460 BYTES |
00001A50: 53 54 52 49 4E 47 53 00 72 22 12 07 8F 20 30 30 |STRINGS.r"... 00|
00001A60: 37 32 32 20 42 59 54 45 53 20 46 52 45 45 20 28 |722 BYTES FREE (|
00001A70: 30 29 00 92 22 1C 07 8F 20 3D 3D 3D 3D 3D 3D 3D |0).."... =======|
00001A80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001A90: 3D 3D 00 00 00 |==... |
..#.... TELEFONKOSTEN ==========C64.8...
. (P) POWER PACK.Z.... =================
==========.|.(.. (C) BY SCHMID-FABIAN
V3.5...2.. HEIDELBERG...<.....F..
(V) A.M. V2.0.B.P.....Z..
===========================...[.AT.4915
2:WO.49172:.92:.100...\.. B(49154).174..
.5.]..57812"SYSMC",8,0:.780,0.K.^..781,2
54:.782,191.X._..65493:..N.D..1460:. ANL
EITUNG..N..410:. DATEN...X..SC$:.AT,8,6
:.FE$;:.SL$"TELEFONKOSTEN".J....C4$"NUMM
ER SUCHEN"B5$"(1)"......C4$"NUMMER EINGE
BEN"B3$"(2)"......C4$"NUMMER AENDERN"B4$
"(3)".0. ..C4$"MONATSABRECHNUNG"B2$"(4)"
.S....C4$"PROGRAMM BEENDEN"B2$"(5)".....
.1643:. E(A$) . 200,340,360,1220,190:.12
0......SC$:....H..900:.I.NN.."NICHT VORH
ANDEN":.1641:.120...R..F(I(TE$(I),2)).47
. Z$.I(TE$(I),1):.230...... "ZONE (N123)
";Z$."....WO,Z$,ZO$,WW:TR.TA(WW):.TR.0.2
20.B....C2$CL$:.AT,0,6:."BITTE TASTE DRU
ECKEN"B4$C4$:.:.1641:T0.TI......HE$"UHRZ
EIT: "RV$H(TI$,2)":"J(TI$,3,2)":"I(TI$,2
)RO$;......WO,Z$,ZO$,WW:TR.TA(WW.B%):.(T
I$."080000").(TI$."180000").B%.4.....SE.
(TI.T0).60:E%.SE.TR.1.....MI%.SE.60:.'..
..I(" ".D(MI%),3)".";.E...MM..(SE.MI%.
60):MM$.D(MM).E....I("00".I(MM$,C(MM$).1
),2);.R...." MIN "...".."EINHEITEN",E%:.
"TARIF",TR;C1$B2$"S/EINHEIT".A.,.."KOSTE
N"B3$,E%.DM" DM ".V.6..Q$:.Q$."".250""..
.@..AT,0,6:."GEBUEHREN ABSPEICHERN ? (J)
":.1641:.Q$."J"..1000...J..120.V.T..730:
.CL$"NUMMERN ABSPEICHERN ?":.1641:.Q$."J
"..830._.^..120...H..900:.740:.CL$"NUMME
RN ABSPEICHERN ?":.1641:.Q$."J"..830...R
..120.F.|.. --------------------------.S
.... DATEN...... ----------------------
----.....SL$.G(014):C4$.G(017).(...HE$.G
(019):FL$.G(130).B...C2$.G(145):CL$.G(14
7).\...C1$.G(157):CR$.G(013).V.B.RV$.G(0
18):RO$.G(146)...L.B$." ":B2$.B$.B$:B3$.
B2$.B$...V.B4$.B3$.B$:B5$.B4$.B$.....B$.
B5$.B5$:CC$.".........................".
!...NN.100:. I,NA$(NN),AD$(NN),TE$(NN),D
T%(500),EH%(500),NM$(500).O...SC$.G(19).
G(19).G(147):.SC$:.AT,8,6:.FE$;.....PR$.
TI$:."UHRZEIT ";:.1410:.Q$:.C(Q$)..6.510
.....TI$.Q$......"DATUM (TAG,MONAT)";DT,
MN.D.... DT.31 . MN.12 . 520.....PR$."J"
:."NORMALER WERKTAG";:.1410:.Q$:.Q$."J".
B%.0:.550.....B%.4.'.&..8,8,8,"NUMMERN,S
,R":I.1.?.0..8,TN$:. ST.0 . 580.L.:..8,N
A$(I),AD$(I),TE$(I):.ST.0.I.I.1:.570...D
. 8:.DS$:.T.1.200:....N.. --------------
------------...X.. DATEN.R.B.. --------
------------------...L.ZO$."N123":. BERE
ICHS-KENNUNG...V.. NORMAL:BILLIGTARIF.3.
..TA(1).480 :TA(5).720:. NAHBEREICH.V...
TA(2).45 :TA(6).67.5:. ZONE 1.{...TA(3)
.20 :TA(7).38.571:. ZONE 2. ...TA(4).12
:TA(8).38.571:. ZONE 3.C...DM.0.23 :
. GEBUEHREN/EINHEIT.I.......... --------
------------------...F.. NUMMERN EINGEB
EN.#.P.. --------------------------.+.Z.
I.0.E...I.I.1:.NA$(I).."".731.K....HE$HE
$CL$C4$C4$C4$FE$I:.I.NN.120.....PR$.NA$(
I):."NAME";:.1410:.NA$(I).....PR$.AD$(I)
:."ADRESSE";:.1410:.AD$(I).....PR$.TE$(I
):."TELEFON/TARIF";:.1410:.TE$(I)......"
WEITER ?":.1641:.Q$."J" .I.I.1:.740.....
..:. .. --------------------------.U.*..
NUMMERN ABSPEICHERN.V.4.. ------------
--------------...>..8,8,15,"S:NUMMERN.BA
K": 8...?..8,8,15,"R:NUMMERN.BAK=NUMMERN
": 8.D.H.E.0...I.E.E.1:.NA$(E).."".841..
.R..8,8,8,"NUMMERN,S,W":.8,"T".1.\..I.1.
E.1:.8,NA$(I)CR$AD$(I)CR$TE$(I):.: 8:.12
0.R.F.. --------------------------.R.P..
NAME SUCHEN UND ANZEIGEN...Z.. -------
-------------------.A....C4$C4$:."NAME";
NS$:I.0:.NS$."*". NS$." ".S....NS$.."@".
920.....I.0:."NAME,NUMMER";NA$(0),TE$(0)
:.SC$:.AT,5,5:.FE$;:..(...MM$.H(NS$,1):L
L.C(NS$).O...I.I.1:WW$.NA$(I):.NA$(I).""
.I.NN:..R....WO,NS$,WW$,WW:.WW.0.I..NN.9
21......J(NA$(I),WW,LL).NS$.929.....WW$.
H(WW$,WW.1)......WW..1.922... ..921.J...
. I.NN . .......G(147);:.AT,5,5:.FE$;:."
I="I......C4$NA$(I):.AD$(I):.C4$TE$(I)C4
$......"OK?":.1641:.Q$."N".920.4.....U..
.. --------------------------.R.... GEB
UEHREN ABSPEICHERN...J.. ---------------
-----------...T..G(147);:."DATUM (TAG,MO
NAT)";DT,MN.U.... DT.31 . MN.12 . 980...
...:.Q.1.MN:. MN$:.:.CL$"DATUM:"DTC1$"."
MN$.<....CL$NA$(I):."DATUM :"DT"."MN$:."
EINHEITEN"E%:."OK ?".S....1641:.Q$.."J".
980...... JAN,FEB,MAR,APR,MAI,JUN,JUL,AU
G,SEP,OKT,NOV,DEZ.....K.0:P$."TEL.".MN$:
.8,8,8,P$.",S,R": 8......DS.0.."FLOPPYFE
HLER":.DS$:.1641:.1040...$..8,8,8,P$.",S
,R":K.1:ES.0.#....8,A$:.HE$HE$CL$:. ST.0
.K.0:.1100.?.8..8,NM$(K),DT%(K),EH%(K).
C.B.ES.ES.EH%(K):.ST.0.K.K.1:. 1080...L.
8:.DS$:.T.1.200:.:. IF ER>0 THENPRINTHE
$HE$ERR$(ER):STOP.G.V.."EINTRAEGE IM MON
AT ".MN$.":"K.1...`.ES.ES.E%:."EINHEITEN
GESAMT"B3$ES"="ES.DM"DM"...J.. OPEN1,
8,15,"S:"+P$:CLOSE1.R.T..1,8,15,"S:".P$.
".BAK":.1,"R:".P$.".BAK"."=".P$: 1.N.~..
8,8,8,P$.",S,W":.8,MN$...... K.0 . .Q.1.
K:.8,NM$(Q):.8,DT%(Q):.8,EH%(Q):.Q......
8,NA$(I):.8,DT:.8,E%.E... 8:....... ----
---------------------...... ZWISCHENBIL
ANZ...... -------------------------.9.D.
.:. "MONAT (JAN-DEZ)";MN$._.N.P$."TEL.".
MN$:.8,8,8,P$.",S,R": 8.W.O..15,8,15:.15
,DS: 15...X..DS.0.."FLOPPYFEHLER":.DS$:.
1641:.1220.....PR$."J":."DRUCKERAUSGABE"
;:.1410:.Q$:DR%.0:. Q$."J" . DR%.1......
8,8,8,P$.",S,R":K.1:ES.0.!....8,A$:.HE$H
E$CL$:.DR%..4,4,7.C....8,NM$(K),DT%(K),E
H%(K):SD.ST.E....K;H(NM$(K),16),DT%(K);E
H%(K).S....DR%.1300.....A$."":.A$:.A$.""
.1300......1643.W.... DR% . .4,K;H(NM$(K
).BL$.BL$,20),H(D(DT%(K)).B5$,5),EH%(K).
....ES.ES.EH%(K):K.K.1:.SD.0.1280...(. 8
.(.2..:."EINTRAEGE IM MONAT ".MN$.":"K.1
.[.<.. DR% . .4:.4,"EINTRAEGE IM MONAT "
.MN$.":"K.1...F.."EINHEITEN GESAMT"B3$ES
"="ES.DM"DM"...P.. DR% . .4,"EINHEITEN G
ESAMT"B3$ES"="ES.DM"DM": 4.I.Z..1643:.12
0...D.. -------------------------...N..
INPUT VORGABE...X.. -------------------
------.=...." "PR$H(CC$,C(PR$).2);:..Q.
...S(ER),DS$:.:V..Q.... ----------------
---------... .. ANLEITUNG...... -------
------------------.W....G(147);:.G(14)"A
NLEITUNG? (J)":.1641:.Q$.."J"........:."
MIT DIESEM PROGRAMM KANN MAN":..'.H.."A)
SEINE TELEFONNUMMERN SPEICHERN.I.R..B3$
"INCL. NAMEN UND ADRESSEN.S...."B) DIE N
UMMER, DIE ZUM EINGEGEBENEN. ....B3$"NAM
EN GEHOERT, SUCHEN (* FUER ALLE).M....B3
$"(TASTE WENN VERBINDUNG HERGESTELLT)...
..."C) ES WIRD ANGEZEIGT:......B3$"UHRZE
IT, EINHEITEN, KOSTEN.7...."D) NAME, DAT
UM UND EINHEITEN WERDEN.B....B3$"ABGESPE
ICHERT UND KOENNEN AM ENDE..."..B3$"DES
MONATS MIT MONATSABRECHNUNG"...,..B3$"FU
ER DAS FINANZAMT.G.6..B3$"(ODER INNERFAM
ILIAER)...@..B3$"ABGERECHNET WERDEN... J
..:.:."DAS PROGRAMM IST MENUEGESTEUERT.
ES MUSS";.B T.."IMMER MIT 'J' ODER 'N' G
EANTWORTET.P ^.."WERDEN..\ H..1641:..P I
..Q$:.Q$."".1641.V J.... K..A$:.A$."".16
43.. L.... R.. -------------------------
.P |.. LISTE DER UNTERPROGRAMME.. ... -
------------------------..!...120:. MENU
E..!...490:. DATEN EINLESEN.7!...730:. N
UMMERN EINGEBEN.V!...830:. NUMMERN ABSPE
ICHERN.Z!...900:. NAME SUCHEN UND ANZEIG
EN..!B..980:. GEBUEHREN ABSPEICHERN..!L.
.1410:. INPUT VORGABE.U!V.. ============
=============..!... 12277 BYTES MEMORY..
"... 06281 BYTES PROGRAM.$"... 00294 BYT
ES VARIABLES.="... 04520 BYTES ARRAYS.W"
... 00460 BYTES STRINGS.R"... 00722 BYTE
S FREE (0).."... =======================
==...
> CLICK IMAGE PREVIEW FOR FULL MODAL