> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 00 00 8F 45 4D 42 45 52 20 4F 46 20 |..Q....EMBER OF |
00000010: 42 4F 4E 49 54 4F 20 28 43 29 20 42 59 20 46 41 |BONITO (C) BY FA|
00000020: 2E 20 50 45 54 45 52 20 57 41 4C 54 45 52 20 2A |. PETER WALTER *|
00000030: 20 44 2D 33 31 30 30 20 43 45 4C 4C 45 20 2A 20 | D-3100 CELLE * |
00000040: 41 4E 20 44 45 52 20 5A 49 45 47 45 4C 45 49 20 |AN DER ZIEGELEI |
00000050: 31 00 9C 08 01 00 8F 20 43 2D 36 34 20 42 4F 4E |1...... C-64 BON|
00000060: 49 54 4F 2D 54 45 4C 45 44 41 54 41 20 56 45 52 |ITO-TELEDATA VER|
00000070: 53 49 4F 4E 20 31 20 2D 20 31 2E 37 2E 38 36 20 |SION 1 - 1.7.86 |
00000080: 2D 20 46 4F 52 20 42 4F 4E 49 54 4F 2D 44 46 55 |- FOR BONITO-DFU|
00000090: 2D 49 4E 54 45 52 50 52 45 54 45 52 00 B6 08 6E |-INTERPRETER...n|
000000A0: 00 83 31 39 38 2C 32 30 34 2C 32 30 37 2C 35 30 |..198,204,207,50|
000000B0: 39 34 34 2C 36 33 00 C1 08 78 00 83 20 31 30 30 |944,63...x.. 100|
000000C0: 30 00 E2 08 82 00 83 36 2C 22 C1 4E 52 45 44 45 |0......6,".NREDE|
000000D0: 22 2C 22 CE 41 4D 45 22 2C 22 D3 54 52 41 53 53 |",".AME",".TRASS|
000000E0: 45 22 00 01 09 8C 00 83 22 CF 52 54 22 2C 22 D4 |E"......".RT",".|
000000F0: 45 4C 45 46 4F 4E 22 2C 22 C2 4F 58 2D CE 52 2E |ELEFON",".OX-.R.|
00000100: 22 00 3C 09 96 00 43 24 B2 C7 28 31 33 29 3A 87 |".<...C$..(13):.|
00000110: 41 54 2C 43 55 2C 43 41 2C 54 42 2C 44 5A 2C 5A |AT,CU,CA,TB,DZ,Z|
00000120: 2C 4F 49 3A 4F 49 B2 4F 49 AB 31 3A 81 49 B2 30 |,OI:OI.OI.1:.I.0|
00000130: A4 4F 49 3A 87 41 24 28 49 29 3A 82 00 75 09 A0 |.OI:.A$(I):..u..|
00000140: 00 99 22 93 0E A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |..".............|
00000150: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 22 3A 99 22 12 20 |..........":.". |
00000160: 20 20 C2 CF CE C9 D4 CF 2D D4 C5 CC C5 C4 C1 D4 | ......-.......|
00000170: C1 20 20 20 22 00 A5 09 AA 00 99 22 B8 B8 B8 B8 |. "......"....|
00000180: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000190: B8 22 3A 99 22 11 12 20 31 20 92 20 3D 20 D3 55 |.":.".. 1 . = .U|
000001A0: 43 48 45 4E 22 00 D3 09 B4 00 99 22 11 12 20 32 |CHEN"......".. 2|
000001B0: 20 92 20 3D 20 C1 45 4E 44 45 52 4E 22 3A 99 22 | . = .ENDERN":."|
000001C0: 11 12 20 33 20 92 20 3D 20 D3 50 45 49 43 48 45 |.. 3 . = .PEICHE|
000001D0: 52 4E 22 00 06 0A BE 00 99 22 11 12 20 34 20 92 |RN"......".. 4 .|
000001E0: 20 3D 20 C5 49 4E 47 45 42 45 4E 22 3A 99 22 11 | = .INGEBEN":.".|
000001F0: 12 20 35 20 92 20 3D 20 C4 52 55 43 4B 45 4E 22 |. 5 . = .RUCKEN"|
00000200: 3A 97 41 54 2C 30 00 2D 0A C8 00 8D 35 32 30 3A |:.AT,0.-....520:|
00000210: 99 3A 91 4E 8D 32 31 30 2C 33 31 30 2C 33 37 30 |.:.N.210,310,370|
00000220: 2C 33 38 30 2C 35 39 30 3A 89 31 36 30 00 6C 0A |,380,590:.160.l.|
00000230: D2 00 49 B2 30 3A 45 24 B2 41 24 28 49 29 3A 41 |..I.0:E$.A$(I):A|
00000240: 24 28 49 29 B2 22 D3 55 43 48 42 45 47 52 49 46 |$(I).".UCHBEGRIF|
00000250: 46 22 3A 4F 49 24 28 49 29 B2 22 22 3A 8D 34 35 |F":OI$(I)."":.45|
00000260: 30 3A 41 24 28 49 29 B2 45 24 3A 8C 00 84 0A DC |0:A$(I).E$:.....|
00000270: 00 53 24 B2 4F 49 24 28 49 29 3A 8B 53 24 B2 22 |.S$.OI$(I):.S$."|
00000280: 5E 22 A7 8E 00 96 0A E6 00 8B 53 24 B2 22 22 A7 |^"........S$."".|
00000290: 53 24 B2 22 23 22 00 A8 0A F0 00 49 B2 30 3A 8C |S$."#".....I.0:.|
000002A0: AC 91 53 24 3A 87 41 24 00 E1 0A FA 00 8B 41 24 |..S$:.A$......A$|
000002B0: B2 22 40 22 A7 99 22 11 CE 49 43 48 54 53 20 47 |."@".."..ICHTS G|
000002C0: 45 46 55 4E 44 45 4E 11 22 3A 99 22 C5 4E 44 45 |EFUNDEN.":.".NDE|
000002D0: 20 44 45 52 20 20 C4 41 54 45 49 22 3A 89 32 37 | DER .ATEI":.27|
000002E0: 30 00 F1 0A 04 01 8D 35 38 30 3A 8D 35 31 30 3A |0......580:.510:|
000002F0: 99 00 0A 0B 0E 01 97 43 55 2C 30 3A A1 54 24 3A |.......CU,0:.T$:|
00000300: 8B 54 24 B2 22 22 A7 32 37 30 00 1F 0B 18 01 8D |.T$."".270......|
00000310: 35 36 30 3A 8B 54 24 B2 22 44 22 A7 35 39 30 00 |560:.T$."D".590.|
00000320: 31 0B 22 01 8B 54 24 B2 C7 28 31 33 29 A7 32 34 |1."..T$..(13).24|
00000330: 30 00 37 0B 2C 01 8E 00 65 0B 36 01 8B 4F 49 24 |0.7.,...e.6..OI$|
00000340: 28 31 29 B2 22 22 A7 99 3A 99 22 CB 45 49 4E 45 |(1).""..:.".EINE|
00000350: 20 C4 41 54 45 4E 22 3A 81 49 B2 30 A4 31 30 30 | .ATEN":.I.0.100|
00000360: 30 3A 82 3A 8A 00 94 0B 40 01 8D 34 33 30 3A 99 |0:.:....@..430:.|
00000370: 22 93 22 3B 3A 53 31 24 B2 C4 28 5A 4E 29 AA 22 |".";:S1$..(ZN)."|
00000380: 44 C1 23 22 3A 4B 24 B2 22 2C 22 3A 47 24 B2 C7 |D.#":K$.",":G$..|
00000390: 28 33 34 29 00 AE 0B 4A 01 5A 58 B2 5A 4E 3A 81 |(34)...J.ZX.ZN:.|
000003A0: 49 B2 30 A4 4F 49 3A 8D 33 39 30 3A 82 49 00 D2 |I.0.OI:.390:.I..|
000003B0: 0B 54 01 99 53 31 24 3A 99 5A 58 AA 31 3A 99 5A |.T..S1$:.ZX.1:.Z|
000003C0: 58 AA 32 3A 99 5A 58 AA 33 3A 5A 4E B2 5A 4E AA |X.2:.ZX.3:ZN.ZN.|
000003D0: 31 30 00 E7 0B 5E 01 8B 5A 4E B1 5A A7 99 22 31 |10...^..ZN.Z.."1|
000003E0: 32 30 44 C1 22 5A 4E 00 13 0C 68 01 99 22 52 55 |20D."ZN...h.."RU|
000003F0: 4E 22 3A 97 41 54 2C 39 3A 97 54 42 2C 31 39 3A |N":.AT,9:.TB,19:|
00000400: 81 49 B2 31 A4 38 3A 97 54 42 AA 49 2C 31 33 3A |.I.1.8:.TB.I,13:|
00000410: 82 3A 80 00 34 0C 72 01 94 22 40 30 3A 42 4F 4E |.:..4.r.."@0:BON|
00000420: 49 54 4F 2D 54 45 4C 45 44 41 54 41 22 2C 38 3A |ITO-TELEDATA",8:|
00000430: 89 31 36 30 00 56 0C 7C 01 81 49 B2 30 A4 4F 49 |.160.V.|..I.0.OI|
00000440: 3A 4F 49 24 28 49 29 B2 22 22 3A 82 3A 5A 4E B2 |:OI$(I)."":.:ZN.|
00000450: 5A 3A 89 33 32 30 00 6E 0C 86 01 53 32 24 B2 4B |Z:.320.n...S2$.K|
00000460: 24 AA 47 24 AA 4F 49 24 28 49 29 AA 47 24 00 9F |$.G$.OI$(I).G$..|
00000470: 0C 90 01 8B C3 28 53 31 24 29 AA C3 28 53 32 24 |.....(S1$)..(S2$|
00000480: 29 B1 37 37 A7 99 53 31 24 3A 53 31 24 B2 C4 28 |).77..S1$:S1$..(|
00000490: 5A 58 AA 31 29 AA 22 44 C1 22 3A 8D 34 32 30 00 |ZX.1)."D.":.420.|
000004A0: B1 0C 9A 01 53 31 24 B2 53 31 24 AA 53 32 24 3A |....S1$.S1$.S2$:|
000004B0: 8E 00 D7 0C A4 01 4C B2 C3 28 53 32 24 29 AB 31 |......L..(S2$).1|
000004C0: 3A 53 32 24 B2 C9 28 53 32 24 2C 4C 29 3A 5A 58 |:S2$..(S2$,L):ZX|
000004D0: B2 5A 58 AA 31 3A 8E 00 0F 0D AE 01 99 22 93 A2 |.ZX.1:......."..|
000004E0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
000004F0: A2 A2 A2 A2 22 3A 99 22 12 20 C1 45 4E 44 45 52 |....":.". .ENDER|
00000500: 55 4E 47 45 4E 20 C5 49 4E 47 41 42 45 20 22 00 |UNGEN .INGABE ".|
00000510: 3E 0D B8 01 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |>...."..........|
00000520: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 3A 81 49 B2 |...........":.I.|
00000530: 30 A4 4F 49 3A 8D 34 35 30 3A 82 49 3A 8E 00 4A |0.OI:.450:.I:..J|
00000540: 0D C2 01 8B 49 B2 AB 31 A7 8A 00 6B 0D CC 01 8D |....I..1...k....|
00000550: 34 39 30 3A 99 22 91 22 3B 3A 9F 31 2C 30 3A 84 |490:.".";:.1,0:.|
00000560: 31 2C 4F 49 24 28 49 29 3A A0 31 00 8D 0D D6 01 |1,OI$(I):.1.....|
00000570: 99 3A 8B C8 28 4F 49 24 28 49 29 2C 31 29 B2 22 |.:..(OI$(I),1)."|
00000580: 5E 22 A7 49 B2 49 AB 31 3A 89 34 35 30 00 93 0D |^".I.I.1:.450...|
00000590: E0 01 8E 00 C5 0D EA 01 4C B2 C3 28 41 24 28 49 |........L..(A$(I|
000005A0: 29 29 3A 81 4F B2 31 A4 4C AA 32 3A 99 22 A4 22 |)):.O.1.L.2:."."|
000005B0: 3B 3A 82 4F 3A 99 3A 99 22 12 20 22 41 24 28 49 |;:.O:.:.". "A$(I|
000005C0: 29 22 20 11 22 00 D3 0D F4 01 99 4F 49 24 28 49 |)" ."......OI$(I|
000005D0: 29 3A 8E 00 EF 0D FE 01 99 22 93 22 3B 3A 81 49 |):.......".";:.I|
000005E0: B2 30 A4 4F 49 3A 8D 34 39 30 3A 82 49 3A 8E 00 |.0.OI:.490:.I:..|
000005F0: 0A 0E 08 02 99 22 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 |....."..........|
00000600: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 00 2F 0E 12 02 99 |.........../....|
00000610: 22 12 20 C2 49 54 54 45 20 57 41 45 48 4C 45 4E |". .ITTE WAEHLEN|
00000620: 20 D3 49 45 20 92 20 22 3B 3A 97 43 55 2C 30 00 | .IE . ";:.CU,0.|
00000630: 42 0E 1C 02 A1 54 24 3A 8B 54 24 B2 22 22 A7 35 |B....T$:.T$."".5|
00000640: 34 30 00 6E 0E 21 02 8B 54 24 B1 22 35 22 B0 54 |40.n.!..T$."5".T|
00000650: 24 B3 22 31 22 A7 97 54 42 2C C6 28 54 24 29 3A |$."1"..TB,.(T$):|
00000660: 97 41 54 2C 31 3A 4E B2 31 3A 89 35 36 30 00 7A |.AT,1:N.1:.560.z|
00000670: 0E 26 02 4E B2 C5 28 54 24 29 00 8C 0E 30 02 8B |.&.N..(T$)...0..|
00000680: C2 28 43 41 29 B3 B1 30 A7 35 36 30 00 98 0E 3A |.(CA)..0.560...:|
00000690: 02 97 43 55 2C 31 3A 8E 00 C8 0E 44 02 5A 4E B2 |..CU,1:....D.ZN.|
000006A0: C2 28 44 5A 29 AA 28 C2 28 44 5A AA 31 29 AC 32 |.(DZ).(.(DZ.1).2|
000006B0: 35 36 29 3A 81 4D B2 30 A4 4F 49 3A 87 4F 49 24 |56):.M.0.OI:.OI$|
000006C0: 28 4D 29 3A 82 4D 3A 8E 00 EC 0E 4E 02 9F 31 2C |(M):.M:....N..1,|
000006D0: 34 3A 98 31 2C 43 24 3A 98 31 2C 22 20 20 20 20 |4:.1,C$:.1," |
000006E0: 22 4F 49 24 28 30 29 43 24 43 24 3B 00 27 0F 58 |"OI$(0)C$C$;.'.X|
000006F0: 02 98 31 2C 22 20 20 20 20 22 4F 49 24 28 31 29 |..1," "OI$(1)|
00000700: 43 24 22 20 20 20 20 22 4F 49 24 28 32 29 43 24 |C$" "OI$(2)C$|
00000710: 43 24 22 20 20 20 20 22 4F 49 24 28 33 29 43 24 |C$" "OI$(3)C$|
00000720: 43 24 3A A0 31 3A 8E 00 74 0F DE 03 83 23 2C 22 |C$:.1:..t....#,"|
00000730: C6 41 2E 22 2C 22 D0 45 54 45 52 20 D7 41 4C 54 |.A.",".ETER .ALT|
00000740: 45 52 22 2C 22 C1 4E 20 44 45 52 20 DA 49 45 47 |ER",".N DER .IEG|
00000750: 45 4C 45 49 20 31 22 2C 22 C4 2D 33 31 30 30 20 |ELEI 1",".-3100 |
00000760: C3 45 4C 4C 45 22 2C 22 30 35 31 34 31 20 33 35 |.ELLE","05141 35|
00000770: 33 34 33 22 00 85 0F DF 03 83 22 C2 D8 2D 30 30 |343"......"..-00|
00000780: 30 30 30 30 22 00 9A 0F FF F9 83 40 2C 40 2C 40 |0000"......@,@,@|
00000790: 2C 40 2C 40 2C 40 2C 40 2C 40 00 00 00 |,@,@,@,@,@... |
..Q....EMBER OF BONITO (C) BY FA. PETER
WALTER * D-3100 CELLE * AN DER ZIEGELEI
1...... C-64 BONITO-TELEDATA VERSION 1 -
1.7.86 - FOR BONITO-DFU-INTERPRETER...N
..198,204,207,50944,63.A.X.. 1000......6
,"ANREDE","NAME","STRASSE"......"ORT","T
ELEFON","BOX-NR.".<...C$.G(13):.AT,CU,CA
,TB,DZ,Z,OI:OI.OI.1:.I.0.OI:.A$(I):..U.
..".......................":.". BONITO
-TELEDATA "......"....................
.":.".. 1 . = SUCHEN".S....".. 2 . = AEN
DERN":.".. 3 . = SPEICHERN"......".. 4 .
= EINGEBEN":.".. 5 . = DRUCKEN":.AT,0.-
.H..520:.:.N.210,310,370,380,590:.160.L.
R.I.0:E$.A$(I):A$(I)."SUCHBEGRIFF":OI$(I
)."":.450:A$(I).E$:......S$.OI$(I):.S$."
^"........S$."".S$."#".....I.0:...S$:.A$
......A$."@"..".NICHTS GEFUNDEN.":."ENDE
DER DATEI":.270......580:.510:.......C
U,0:.T$:.T$."".270......560:.T$."D".590.
1."..T$.G(13).240.7.,...E.6..OI$(1).""..
:."KEINE DATEN":.I.0.1000:.:....@..430:.
".";:S1$.D(ZN)."DA#":K$.",":G$.G(34)...J
.ZX.ZN:.I.0.OI:.390:.I.R.T..S1$:.ZX.1:.Z
X.2:.ZX.3:ZN.ZN.10...^..ZN.Z.."120DA"ZN.
..H.."RUN":.AT,9:.TB,19:.I.1.8:.TB.I,13:
.:..4.R.."@0:BONITO-TELEDATA",8:.160.V.|
..I.0.OI:OI$(I)."":.:ZN.Z:.320.N...S2$.K
$.G$.OI$(I).G$......C(S1$).C(S2$).77..S1
$:S1$.D(ZX.1)."DA":.420.....S1$.S1$.S2$:
..W...L.C(S2$).1:S2$.I(S2$,L):ZX.ZX.1:..
....."......................":.". AENDER
UNGEN EINGABE ".>...."..................
...":.I.0.OI:.450:.I:..J.B..I..1...K.L..
490:.".";:.1,0:.1,OI$(I): 1...V..:.H(OI$
(I),1)."^".I.I.1:.450.......E...L.C(A$(I
)):.O.1.L.2:.".";:.O:.:.". "A$(I)" .".S.
...OI$(I):.......".";:.I.0.OI:.490:.I:..
....."...................../....". BITTE
WAEHLEN SIE . ";:.CU,0.B....T$:.T$."".5
40.N.!..T$."5".T$."1"..TB,F(T$):.AT,1:N.
1:.560.Z.&.N.E(T$)...0..B(CA)..0.560...:
..CU,1:..H.D.ZN.B(DZ).(B(DZ.1).256):.M.0
.OI:.OI$(M):.M:....N..1,4:.1,C$:.1,"
"OI$(0)C$C$;.'.X..1," "OI$(1)C$" "
OI$(2)C$C$" "OI$(3)C$C$: 1:..T....#,"
FA.","PETER WALTER","AN DER ZIEGELEI 1",
"D-3100 CELLE","05141 35343"......"BX-00
0000"......@,@,@,@,@,@,@,@...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL