00000000: 01 12 1A 12 01 00 8F 20 41 44 52 45 53 53 45 4E |....... ADRESSEN|
00000010: 20 55 4D 52 45 43 48 4E 45 4E 00 20 12 02 00 8F | UMRECHNEN. ....|
00000020: 00 36 12 03 00 8F 20 57 4F 4C 46 47 41 4E 47 20 |.6.... WOLFGANG |
00000030: 54 48 41 55 45 52 00 4E 12 04 00 8F 20 41 4D 20 |THAUER.N.... AM |
00000040: 53 43 48 49 45 44 53 42 45 52 47 20 34 35 00 67 |SCHIEDSBERG 45.g|
00000050: 12 05 00 8F 20 35 32 30 35 20 53 54 2E 41 55 47 |.... 5205 ST.AUG|
00000060: 55 53 54 49 4E 20 32 00 6D 12 06 00 8F 00 73 12 |USTIN 2.m.....s.|
00000070: 0A 00 3A 00 A1 12 14 00 8F 20 44 41 53 20 4D 41 |..:...... DAS MA|
00000080: 43 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D 20 49 |CHINENPROGRAMM I|
00000090: 53 54 20 31 34 35 20 42 59 54 45 53 20 4C 41 4E |ST 145 BYTES LAN|
000000A0: 47 00 A7 12 1E 00 3A 00 BF 12 28 00 8F 20 5A 45 |G.....:...(.. ZE|
000000B0: 49 43 48 45 52 45 52 4B 4C 41 45 52 55 4E 47 00 |ICHERERKLAERUNG.|
000000C0: DB 12 32 00 8F 20 43 48 52 24 28 31 34 37 29 3D |..2.. CHR$(147)=|
000000D0: 20 43 4C 45 41 52 20 48 4F 4D 45 00 F8 12 3C 00 | CLEAR HOME...<.|
000000E0: 8F 20 43 48 52 24 28 31 37 29 20 3D 20 43 55 52 |. CHR$(17) = CUR|
000000F0: 53 4F 52 20 44 4F 57 4E 00 14 13 46 00 8F 20 43 |SOR DOWN...F.. C|
00000100: 48 52 24 28 31 38 29 20 3D 20 52 45 56 45 52 53 |HR$(18) = REVERS|
00000110: 45 20 4F 4E 00 2D 13 50 00 8F 20 43 48 52 24 28 |E ON.-.P.. CHR$(|
00000120: 31 33 29 20 20 3D 20 52 45 54 55 52 4E 00 33 13 |13) = RETURN.3.|
00000130: 5A 00 3A 00 39 13 64 00 3A 00 3F 13 6E 00 3A 00 |Z.:.9.d.:.?.n.:.|
00000140: 4B 13 78 00 99 C7 28 31 34 37 29 00 96 13 82 00 |K.x...(147).....|
00000150: 99 22 44 49 45 53 45 53 20 50 52 4F 47 52 41 4D |."DIESES PROGRAM|
00000160: 4D 20 52 45 43 48 4E 45 54 20 44 49 45 20 41 42 |M RECHNET DIE AB|
00000170: 53 4F 4C 55 54 45 4E 20 41 44 52 45 53 53 45 4E |SOLUTEN ADRESSEN|
00000180: 20 49 4E 20 44 45 52 20 4D 41 53 43 48 49 4E 45 | IN DER MASCHINE|
00000190: 4E 52 4F 55 22 3B 00 D6 13 87 00 99 22 54 49 4E |NROU";......"TIN|
000001A0: 45 20 46 55 45 52 20 45 49 4E 45 4E 20 41 4E 44 |E FUER EINEN AND|
000001B0: 45 52 45 4E 20 53 50 45 49 43 48 45 52 42 45 52 |EREN SPEICHERBER|
000001C0: 45 49 43 48 20 55 4D 20 55 4E 44 20 50 4F 4B 45 |EICH UM UND POKE|
000001D0: 54 20 45 53 22 3B 00 03 14 8C 00 99 22 4C 41 55 |T ES";......"LAU|
000001E0: 46 46 41 45 48 49 47 20 49 4E 20 44 49 45 53 45 |FFAEHIG IN DIESE|
000001F0: 4E 20 53 50 45 49 43 48 45 52 42 45 52 45 49 43 |N SPEICHERBEREIC|
00000200: 48 2E 22 00 3C 14 96 00 99 C7 28 31 37 29 3B 22 |H.".<.....(17);"|
00000210: 47 45 42 45 20 44 49 45 20 47 45 57 55 45 4E 53 |GEBE DIE GEWUENS|
00000220: 43 48 54 45 20 20 41 4E 46 41 4E 47 53 41 44 52 |CHTE ANFANGSADR|
00000230: 45 53 53 45 20 45 49 4E 2C 41 42 22 00 7C 14 A0 |ESSE EIN,AB".|..|
00000240: 00 99 22 44 45 52 20 44 41 53 20 4D 41 53 43 48 |.."DER DAS MASCH|
00000250: 49 4E 45 4E 50 52 4F 2D 20 47 52 41 4D 4D 20 49 |INENPRO- GRAMM I|
00000260: 4D 20 53 50 45 49 43 48 45 52 20 20 20 20 20 4C |M SPEICHER L|
00000270: 49 45 47 45 4E 20 53 4F 4C 4C 2E 22 00 BF 14 AA |IEGEN SOLL."....|
00000280: 00 99 C7 28 31 37 29 3B 22 28 44 49 45 20 4E 4F |...(17);"(DIE NO|
00000290: 52 4D 41 4C 45 20 41 44 52 45 53 53 45 20 20 20 |RMALE ADRESSE |
000002A0: 49 53 54 20 38 32 38 20 3D 20 4B 41 53 53 45 54 |IST 828 = KASSET|
000002B0: 54 45 4E 2D 20 20 50 55 46 46 45 52 29 2E 22 00 |TEN- PUFFER).".|
000002C0: CE 14 B4 00 99 C7 28 31 37 29 3A 85 41 41 00 F9 |......(17):.AA..|
000002D0: 14 BE 00 99 C7 28 31 37 29 3B 22 44 49 45 20 41 |.....(17);"DIE A|
000002E0: 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 20 20 |NFANGSADRESSE |
000002F0: 20 49 53 54 20 22 3B 41 41 00 18 15 C8 00 99 C7 | IST ";AA.......|
00000300: 28 31 37 29 3B 22 49 53 54 20 44 41 53 20 52 49 |(17);"IST DAS RI|
00000310: 43 48 54 49 47 20 3F 22 00 28 15 D2 00 85 22 28 |CHTIG ?".(...."(|
00000320: 4A 2F 4E 29 22 3B 41 24 00 41 15 DC 00 8B 41 24 |J/N)";A$.A....A$|
00000330: B3 B1 22 4A 22 AF 41 24 B3 B1 22 4E 22 A7 32 31 |.."J".A$.."N".21|
00000340: 30 00 54 15 E6 00 8B 41 24 B2 22 4E 22 A7 99 3A |0.T....A$."N"..:|
00000350: 89 31 35 30 00 62 15 F0 00 41 42 B2 41 41 AB 38 |.150.b...AB.AA.8|
00000360: 32 38 00 7D 15 F5 00 99 C7 28 31 34 37 29 3B 22 |28.}.....(147);"|
00000370: 42 49 54 54 45 20 57 41 52 54 45 4E 22 00 86 15 |BITTE WARTEN"...|
00000380: FA 00 8D 37 30 30 00 96 15 04 01 8B 41 41 B2 38 |...700......AA.8|
00000390: 32 38 A7 34 39 30 00 9C 15 0E 01 3A 00 C6 15 18 |28.490.....:....|
000003A0: 01 8F 20 41 4E 47 41 42 45 20 44 45 52 20 5A 55 |.. ANGABE DER ZU|
000003B0: 20 41 45 4E 44 45 52 4E 44 45 4E 20 44 41 54 41 | AENDERNDEN DATA|
000003C0: 5A 45 49 4C 45 4E 00 1D 16 22 01 8F 20 44 49 45 |ZEILEN...".. DIE|
000003D0: 53 45 20 44 41 54 41 5A 45 49 4C 45 4E 20 53 49 |SE DATAZEILEN SI|
000003E0: 4E 44 20 49 4D 20 4C 49 53 54 49 4E 47 20 44 55 |ND IM LISTING DU|
000003F0: 52 43 48 20 45 49 4E 20 41 4E 47 45 48 41 45 4E |RCH EIN ANGEHAEN|
00000400: 47 54 45 53 20 20 20 27 3A 52 45 4D 2A 2A 27 47 |GTES ':REM**'G|
00000410: 45 4B 45 4E 4E 5A 45 49 43 48 4E 45 54 00 23 16 |EKENNZEICHNET.#.|
00000420: 2C 01 3A 00 6E 16 36 01 99 C7 28 31 37 29 3B 22 |,.:.n.6...(17);"|
00000430: 44 49 45 20 5A 55 20 41 45 4E 44 45 52 4E 44 45 |DIE ZU AENDERNDE|
00000440: 4E 20 44 41 54 41 5A 45 49 4C 45 4E 20 4D 49 54 |N DATAZEILEN MIT|
00000450: 20 44 45 4E 20 45 4E 54 2D 20 20 20 53 50 52 45 | DEN ENT- SPRE|
00000460: 43 48 45 4E 44 45 4E 20 4E 45 55 45 4E 22 00 84 |CHENDEN NEUEN"..|
00000470: 16 40 01 99 22 57 45 52 54 45 4E 20 4C 41 55 54 |.@.."WERTEN LAUT|
00000480: 45 4E 3A 22 00 8A 16 4A 01 99 00 9D 16 54 01 41 |EN:"...J.....T.A|
00000490: 44 B2 41 41 AA 31 33 38 3A 8D 36 33 30 00 B9 16 |D.AA.138:.630...|
000004A0: 5E 01 99 22 31 30 30 31 30 20 44 41 54 41 22 3B |^.."10010 DATA";|
000004B0: 41 4C 3B 22 2C 22 3B 41 48 00 D5 16 68 01 99 22 |AL;",";AH...h.."|
000004C0: 31 30 30 34 30 20 44 41 54 41 22 3B 41 4C 3B 22 |10040 DATA";AL;"|
000004D0: 2C 22 3B 41 48 00 F1 16 72 01 99 22 31 30 30 36 |,";AH...r.."1006|
000004E0: 30 20 44 41 54 41 22 3B 41 4C 3B 22 2C 22 3B 41 |0 DATA";AL;",";A|
000004F0: 48 00 0D 17 7C 01 99 22 31 30 30 39 30 20 44 41 |H...|.."10090 DA|
00000500: 54 41 22 3B 41 4C 3B 22 2C 22 3B 41 48 00 1F 17 |TA";AL;",";AH...|
00000510: 86 01 41 44 B2 41 41 AA 33 38 3A 8D 36 33 30 00 |..AD.AA.38:.630.|
00000520: 3B 17 90 01 99 22 31 30 31 32 30 20 44 41 54 41 |;...."10120 DATA|
00000530: 22 3B 41 4C 3B 22 2C 22 3B 41 48 00 4D 17 9A 01 |";AL;",";AH.M...|
00000540: 41 44 B2 41 41 AA 36 35 3A 8D 36 33 30 00 69 17 |AD.AA.65:.630.i.|
00000550: A4 01 99 22 31 30 31 34 30 20 44 41 54 41 22 3B |..."10140 DATA";|
00000560: 41 4C 3B 22 2C 22 3B 41 48 00 7C 17 AE 01 41 44 |AL;",";AH.|...AD|
00000570: B2 41 41 AA 31 33 32 3A 8D 36 33 30 00 98 17 B8 |.AA.132:.630....|
00000580: 01 99 22 31 30 31 37 30 20 44 41 54 41 22 3B 41 |.."10170 DATA";A|
00000590: 4C 3B 22 2C 22 3B 41 48 00 B9 17 C2 01 99 C7 28 |L;",";AH.......(|
000005A0: 31 37 29 3B 22 57 45 49 54 45 52 20 4D 49 54 20 |17);"WEITER MIT |
000005B0: 3C 52 45 54 55 52 4E 3E 22 00 CC 17 CC 01 A1 41 |<RETURN>"......A|
000005C0: 24 3A 8B 41 24 B2 22 22 A7 34 36 30 00 DF 17 D6 |$:.A$."".460....|
000005D0: 01 8B 41 24 B3 B1 C7 28 31 33 29 A7 34 36 30 00 |..A$...(13).460.|
000005E0: E5 17 E0 01 3A 00 EB 17 EA 01 99 00 19 18 F4 01 |....:...........|
000005F0: 99 22 44 49 45 20 53 54 41 52 54 41 44 52 45 53 |."DIE STARTADRES|
00000600: 53 45 4E 20 44 45 52 20 52 4F 55 54 49 4E 45 4E |SEN DER ROUTINEN|
00000610: 20 4C 41 55 54 45 4E 3A 22 00 42 18 FE 01 99 C7 | LAUTEN:".B.....|
00000620: 28 31 37 29 3B 22 47 4F 54 4F 20 4E 20 20 3D 20 |(17);"GOTO N = |
00000630: 53 59 53 28 22 3B 41 41 3B 22 29 22 3B C7 28 31 |SYS(";AA;")";.(1|
00000640: 37 29 00 67 18 08 02 99 22 47 4F 53 55 42 20 4E |7).g...."GOSUB N|
00000650: 20 3D 20 53 59 53 28 22 3B 41 41 AA 36 3B 22 29 | = SYS(";AA.6;")|
00000660: 22 3B C7 28 31 37 29 00 8D 18 12 02 99 22 52 45 |";.(17)......"RE|
00000670: 53 54 4F 52 45 20 4E 3D 53 59 53 28 22 3B 41 41 |STORE N=SYS(";AA|
00000680: AA 33 38 3B 22 29 22 3B C7 28 31 37 29 00 C3 18 |.38;")";.(17)...|
00000690: 1C 02 99 22 52 45 53 54 4F 52 45 20 44 2C 41 24 |..."RESTORE D,A$|
000006A0: 22 3A 99 22 20 20 20 20 20 20 20 20 3D 20 53 59 |":." = SY|
000006B0: 53 28 22 3B 41 41 AA 36 32 3B 22 29 22 3B C7 28 |S(";AA.62;")";.(|
000006C0: 31 37 29 00 FB 18 26 02 99 22 52 45 53 54 4F 52 |17)...&.."RESTOR|
000006D0: 45 20 4E 2C 44 2C 41 24 22 3A 99 22 20 20 20 20 |E N,D,A$":." |
000006E0: 20 20 20 20 3D 20 53 59 53 28 22 3B 41 41 AA 39 | = SYS(";AA.9|
000006F0: 39 3B 22 29 22 3B C7 28 31 37 29 00 1C 19 30 02 |9;")";.(17)...0.|
00000700: 99 22 50 4F 50 20 20 20 20 20 3D 20 53 59 53 28 |."POP = SYS(|
00000710: 22 3B 41 41 AA 31 30 39 3B 22 29 22 00 22 19 3A |";AA.109;")".".:|
00000720: 02 80 00 28 19 44 02 3A 00 2E 19 4E 02 3A 00 3F |...(.D.:...N.:.?|
00000730: 19 58 02 8F 20 53 55 42 52 4F 55 54 49 4E 45 00 |.X.. SUBROUTINE.|
00000740: 75 19 62 02 8F 20 42 45 52 45 43 48 4E 55 4E 47 |u.b.. BERECHNUNG|
00000750: 20 56 4F 4E 20 4C 4F 57 2D 20 55 4E 44 20 48 49 | VON LOW- UND HI|
00000760: 47 48 2D 42 59 54 45 20 45 49 4E 45 52 20 41 44 |GH-BYTE EINER AD|
00000770: 52 45 53 53 45 00 7B 19 6C 02 3A 00 9B 19 76 02 |RESSE.{.l.:...v.|
00000780: 41 48 B2 B5 28 41 44 AD 32 35 36 29 3A 41 4C B2 |AH..(AD.256):AL.|
00000790: 41 44 AB 41 48 AC 32 35 36 3A 8E 00 A1 19 80 02 |AD.AH.256:......|
000007A0: 3A 00 A7 19 8A 02 3A 00 B8 19 9E 02 8F 20 53 55 |:.....:...... SU|
000007B0: 42 52 4F 55 54 49 4E 45 00 E9 19 A8 02 8F 20 4D |BROUTINE...... M|
000007C0: 41 53 43 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D |ASCHINENPROGRAMM|
000007D0: 20 57 49 52 44 20 49 4E 20 53 50 45 49 43 48 45 | WIRD IN SPEICHE|
000007E0: 52 20 47 45 50 4F 4B 45 54 00 EF 19 B2 02 3A 00 |R GEPOKET.....:.|
000007F0: FA 19 BC 02 8D 31 30 30 30 30 00 27 1A C6 02 8B |.....10000.'....|
00000800: 41 53 B2 31 38 34 31 33 A7 99 C7 28 31 37 29 3B |AS.18413...(17);|
00000810: 22 50 52 55 45 46 53 55 4D 4D 45 20 4B 4F 52 52 |"PRUEFSUMME KORR|
00000820: 45 4B 54 2E 22 3A 8E 00 4C 1A C8 02 8F 20 20 31 |EKT.":..L.... 1|
00000830: 38 34 31 33 20 3D 20 50 52 55 45 46 53 55 4D 4D |8413 = PRUEFSUMM|
00000840: 45 20 46 55 45 52 20 56 43 20 32 30 00 75 1A CA |E FUER VC 20.u..|
00000850: 02 8F 20 46 55 45 52 20 43 20 36 34 20 49 53 54 |.. FUER C 64 IST|
00000860: 20 44 49 45 20 50 52 55 45 46 53 55 4D 4D 45 20 | DIE PRUEFSUMME |
00000870: 31 37 39 30 31 00 93 1A D0 02 99 C7 28 31 34 37 |17901.......(147|
00000880: 29 3B 22 50 52 55 45 46 53 55 4D 4D 45 20 3D 22 |);"PRUEFSUMME ="|
00000890: 3B 41 53 00 B4 1A DA 02 99 C7 28 31 37 29 3B 22 |;AS.......(17);"|
000008A0: 50 52 55 45 46 53 55 4D 4D 45 4E 46 45 48 4C 45 |PRUEFSUMMENFEHLE|
000008B0: 52 20 21 22 00 BA 1A E4 02 99 00 E1 1A EE 02 99 |R !"............|
000008C0: 22 4D 4F 45 47 4C 49 43 48 45 20 46 45 48 4C 45 |"MOEGLICHE FEHLE|
000008D0: 52 2D 20 20 20 20 20 51 55 45 4C 4C 45 4E 20 3A |R- QUELLEN :|
000008E0: 22 00 E7 1A F8 02 99 00 28 1B 02 03 99 22 2A 45 |".......(...."*E|
000008F0: 49 4E 45 20 44 41 54 45 20 57 55 52 44 45 20 56 |INE DATE WURDE V|
00000900: 45 52 2D 20 20 47 45 53 53 45 4E 20 4F 44 45 52 |ER- GESSEN ODER|
00000910: 20 46 41 4C 53 43 48 20 20 20 20 45 49 4E 47 45 | FALSCH EINGE|
00000920: 2D 54 49 50 50 54 2E 22 00 2E 1B 0C 03 99 00 79 |-TIPPT.".......y|
00000930: 1B 16 03 99 22 2A 53 49 45 20 48 41 42 45 4E 20 |...."*SIE HABEN |
00000940: 44 49 45 20 20 44 41 54 41 2D 20 20 5A 45 49 4C |DIE DATA- ZEIL|
00000950: 45 4E 20 47 45 41 45 4E 44 45 52 54 2C 20 55 4D |EN GEAENDERT, UM|
00000960: 20 20 44 41 53 20 4D 41 53 43 48 49 4E 45 4E 50 | DAS MASCHINENP|
00000970: 52 4F 47 52 41 4D 4D 22 3B 00 B5 1B 20 03 99 22 |ROGRAMM";... .."|
00000980: 20 41 4E 20 45 49 4E 45 4E 20 41 4E 44 45 52 45 | AN EINEN ANDERE|
00000990: 4E 20 20 20 20 20 20 53 50 45 49 43 48 45 52 42 |N SPEICHERB|
000009A0: 45 52 45 49 43 48 20 41 4E 5A 55 2D 20 50 41 53 |EREICH ANZU- PAS|
000009B0: 53 45 4E 2E 22 00 F9 1B 2A 03 99 22 2A 53 49 45 |SEN."...*.."*SIE|
000009C0: 20 48 41 42 45 4E 20 44 49 45 20 46 41 4C 53 43 | HABEN DIE FALSC|
000009D0: 48 45 20 50 52 55 45 46 53 55 4D 4D 45 20 49 4E |HE PRUEFSUMME IN|
000009E0: 20 5A 45 49 4C 45 20 20 20 37 31 30 20 45 49 4E | ZEILE 710 EIN|
000009F0: 47 45 53 45 54 5A 54 2E 22 00 FF 1B 34 03 80 00 |GESETZT."...4...|
00000A00: 05 1C 3E 03 3A 00 0B 1C C0 03 3A 00 1F 1C CA 03 |..>.:.....:.....|
00000A10: 8F 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 00 |. UNTERPROGRAMM.|
00000A20: 30 1C D4 03 8F 20 42 41 53 49 43 4C 41 44 45 52 |0.... BASICLADER|
00000A30: 00 36 1C DE 03 3A 00 6E 1C 10 27 41 53 B2 30 3A |.6...:.n..'AS.0:|
00000A40: 81 49 B2 38 32 38 AA 41 42 A4 28 38 32 38 AA 31 |.I.828.AB.(828.1|
00000A50: 34 34 29 AA 41 42 3A 87 41 50 3A 97 49 2C 41 50 |44).AB:.AP:.I,AP|
00000A60: 3A 41 53 B2 41 53 AA 41 50 3A 82 49 3A 8E 00 77 |:AS.AS.AP:.I:..w|
00000A70: 1C 15 27 83 20 33 32 00 87 1C 1A 27 83 20 31 39 |..'. 32....'. 19|
00000A80: 38 2C 33 3A 8F 2A 2A 00 C9 1C 24 27 83 20 37 36 |8,3:.**...$'. 76|
00000A90: 2C 31 36 33 2C 32 30 30 2C 31 36 39 2C 33 2C 33 |,163,200,169,3,3|
00000AA0: 32 2C 32 35 31 2C 31 39 35 2C 31 36 35 2C 31 32 |2,251,195,165,12|
00000AB0: 33 2C 37 32 2C 31 36 35 2C 31 32 32 2C 37 32 2C |3,72,165,122,72,|
00000AC0: 31 36 35 2C 35 38 2C 37 32 00 F0 1C 2E 27 83 20 |165,58,72....'. |
00000AD0: 31 36 35 2C 35 37 2C 37 32 2C 31 36 39 2C 31 34 |165,57,72,169,14|
00000AE0: 31 2C 37 32 2C 33 32 2C 31 32 31 2C 30 2C 33 32 |1,72,32,121,0,32|
00000AF0: 00 00 1D 38 27 83 20 31 39 38 2C 33 3A 8F 2A 2A |...8'. 198,3:.**|
00000B00: 00 1F 1D 42 27 83 20 33 32 2C 31 36 33 2C 32 30 |...B'. 32,163,20|
00000B10: 30 2C 37 36 2C 31 37 34 2C 31 39 39 2C 33 32 00 |0,76,174,199,32.|
00000B20: 2F 1D 4C 27 83 20 31 39 38 2C 33 3A 8F 2A 2A 00 |/.L'. 198,3:.**.|
00000B30: 7E 1D 56 27 83 20 33 32 2C 31 39 2C 31 39 38 2C |~.V'. 32,19,198,|
00000B40: 31 37 36 2C 33 2C 37 36 2C 32 32 37 2C 32 30 30 |176,3,76,227,200|
00000B50: 2C 31 36 35 2C 39 35 2C 32 33 33 2C 31 2C 31 33 |,165,95,233,1,13|
00000B60: 33 2C 36 35 2C 31 36 35 2C 39 36 2C 32 33 33 2C |3,65,165,96,233,|
00000B70: 30 2C 31 33 33 2C 36 36 2C 39 36 2C 33 32 00 8E |0,133,66,96,32..|
00000B80: 1D 60 27 83 20 32 39 2C 32 30 30 2C 33 32 00 9E |.`'. 29,200,32..|
00000B90: 1D 6A 27 83 20 31 39 38 2C 33 3A 8F 2A 2A 00 DA |.j'. 198,3:.**..|
00000BA0: 1D 74 27 83 20 31 36 35 2C 32 30 2C 31 33 33 2C |.t'. 165,20,133,|
00000BB0: 32 35 33 2C 31 36 36 2C 32 31 2C 32 33 32 2C 31 |253,166,21,232,1|
00000BC0: 33 34 2C 32 35 34 2C 33 32 2C 32 35 33 2C 32 30 |34,254,32,253,20|
00000BD0: 36 2C 33 32 2C 36 2C 32 30 34 00 1F 1E 7E 27 83 |6,32,6,204...~'.|
00000BE0: 20 31 39 38 2C 32 35 33 2C 32 34 30 2C 31 31 2C | 198,253,240,11,|
00000BF0: 33 32 2C 32 38 2C 32 30 34 2C 31 39 38 2C 32 35 |32,28,204,198,25|
00000C00: 33 2C 32 30 38 2C 32 34 39 2C 31 39 38 2C 32 35 |3,208,249,198,25|
00000C10: 34 2C 32 30 38 2C 32 34 35 2C 39 36 2C 33 32 00 |4,208,245,96,32.|
00000C20: 2F 1E 88 27 83 20 39 38 2C 33 20 3A 8F 2A 2A 00 |/..'. 98,3 :.**.|
00000C30: 43 1E 92 27 83 20 33 32 2C 32 35 33 2C 32 30 36 |C..'. 32,253,206|
00000C40: 2C 33 32 00 53 1E 9C 27 83 20 31 32 35 2C 33 3A |,32.S..'. 125,3:|
00000C50: 8F 2A 2A 00 6E 1E A6 27 83 20 39 36 2C 31 36 39 |.**.n..'. 96,169|
00000C60: 2C 32 35 35 2C 31 33 33 2C 37 34 2C 33 32 00 7E |,255,133,74,32.~|
00000C70: 1E BA 27 83 20 31 39 32 2C 33 3A 8F 2A 2A 00 A5 |..'. 192,3:.**..|
00000C80: 1E C4 27 83 20 31 35 34 2C 32 30 31 2C 31 34 31 |..'. 154,201,141|
00000C90: 2C 32 34 30 2C 33 2C 37 36 2C 32 32 34 2C 32 30 |,240,3,76,224,20|
00000CA0: 30 2C 31 30 34 00 F6 1E CE 27 83 20 31 30 34 2C |0,104....'. 104,|
00000CB0: 31 30 34 2C 31 30 34 2C 31 30 34 2C 37 36 2C 32 |104,104,104,76,2|
00000CC0: 34 38 2C 32 30 30 2C 31 38 36 2C 32 33 32 2C 32 |48,200,186,232,2|
00000CD0: 33 32 2C 37 36 2C 31 33 39 2C 31 39 35 2C 33 32 |32,76,139,195,32|
00000CE0: 2C 31 33 38 2C 32 30 35 2C 33 32 2C 32 34 37 2C |,138,205,32,247,|
00000CF0: 32 31 35 2C 39 36 00 00 00 00 32 |215,96....2 |
....... ADRESSEN UMRECHNEN. .....6.... W
OLFGANG THAUER.N.... AM SCHIEDSBERG 45.G
.... 5205 ST.AUGUSTIN 2.M.....S...:.....
. DAS MACHINENPROGRAMM IST 145 BYTES LAN
G.....:...(.. ZEICHERERKLAERUNG...2.. CH
R$(147)= CLEAR HOME...<.. CHR$(17) = CUR
SOR DOWN...F.. CHR$(18) = REVERSE ON.-.P
.. CHR$(13) = RETURN.3.Z.:.9.D.:.?.N.:.
K.X..G(147)......"DIESES PROGRAMM RECHNE
T DIE ABSOLUTEN ADRESSEN IN DER MASCHINE
NROU";.V...."TINE FUER EINEN ANDEREN SPE
ICHERBEREICH UM UND POKET ES";......"LAU
FFAEHIG IN DIESEN SPEICHERBEREICH.".<...
.G(17);"GEBE DIE GEWUENSCHTE ANFANGSADR
ESSE EIN,AB".|. .."DER DAS MASCHINENPRO-
GRAMM IM SPEICHER LIEGEN SOLL."....
..G(17);"(DIE NORMALE ADRESSE IST 828
= KASSETTEN- PUFFER).".N....G(17):.AA..
....G(17);"DIE ANFANGSADRESSE IST ";A
A...H..G(17);"IST DAS RICHTIG ?".(.R.."(
J/N)";A$.A....A$.."J".A$.."N".210.T....A
$."N"..:.150.B...AB.AA.828.}....G(147);"
BITTE WARTEN"......700......AA.828.490..
...:.F.... ANGABE DER ZU AENDERNDEN DATA
ZEILEN...".. DIESE DATAZEILEN SIND IM LI
STING DURCH EIN ANGEHAENGTES ':REM**'G
EKENNZEICHNET.#.,.:.N.6..G(17);"DIE ZU A
ENDERNDEN DATAZEILEN MIT DEN ENT- SPRE
CHENDEN NEUEN"...@.."WERTEN LAUTEN:"...J
.....T.AD.AA.138:.630...^.."10010 DATA";
AL;",";AH.U.H.."10040 DATA";AL;",";AH...
R.."10060 DATA";AL;",";AH...|.."10090 DA
TA";AL;",";AH.....AD.AA.38:.630.;...."10
120 DATA";AL;",";AH.M...AD.AA.65:.630.I.
..."10140 DATA";AL;",";AH.|...AD.AA.132:
.630......"10170 DATA";AL;",";AH...B..G(
17);"WEITER MIT <RETURN>".L.L..A$:.A$.""
.460...V..A$..G(13).460.....:...........
."DIE STARTADRESSEN DER ROUTINEN LAUTEN:
".B....G(17);"GOTO N = SYS(";AA;")";G(1
7).G...."GOSUB N = SYS(";AA.6;")";G(17).
....."RESTORE N=SYS(";AA.38;")";G(17).C.
..."RESTORE D,A$":." = SYS(";AA.6
2;")";G(17)...&.."RESTORE N,D,A$":."
= SYS(";AA.99;")";G(17)...0.."POP
= SYS(";AA.109;")".".:...(.D.:...N.:.?
.X.. SUBROUTINE.U.B.. BERECHNUNG VON LOW
- UND HIGH-BYTE EINER ADRESSE.{.L.:...V.
AH..(AD.256):AL.AD.AH.256:......:.....:.
..... SUBROUTINE...... MASCHINENPROGRAMM
WIRD IN SPEICHER GEPOKET.....:......100
00.'.F..AS.18413..G(17);"PRUEFSUMME KORR
EKT.":..L.H.. 18413 = PRUEFSUMME FUER V
C 20.U.J.. FUER C 64 IST DIE PRUEFSUMME
17901...P..G(147);"PRUEFSUMME =";AS...Z.
.G(17);"PRUEFSUMMENFEHLER !"............
"MOEGLICHE FEHLER- QUELLEN :".......
(...."*EINE DATE WURDE VER- GESSEN ODER
FALSCH EINGE-TIPPT.".......Y...."*SI
E HABEN DIE DATA- ZEILEN GEAENDERT, UM
DAS MASCHINENPROGRAMM";... .." AN EINE
N ANDEREN SPEICHERBEREICH ANZU- PAS
SEN."...*.."*SIE HABEN DIE FALSCHE PRUEF
SUMME IN ZEILE 710 EINGESETZT."...4...
..>.:.....:...J.. UNTERPROGRAMM.0.T.. BA
SICLADER.6...:.N..'AS.0:.I.828.AB.(828.1
44).AB:.AP:.I,AP:AS.AS.AP:.I:..W..'. 32.
...'. 198,3:.**.I.$'. 76,163,200,169,3,3
2,251,195,165,123,72,165,122,72,165,58,7
2....'. 165,57,72,169,141,72,32,121,0,32
...8'. 198,3:.**...B'. 32,163,200,76,174
,199,32./.L'. 198,3:.**.~.V'. 32,19,198,
176,3,76,227,200,165,95,233,1,133,65,165
,96,233,0,133,66,96,32...`'. 29,200,32..
.J'. 198,3:.**.Z.T'. 165,20,133,253,166,
21,232,134,254,32,253,206,32,6,204...~'.
198,253,240,11,32,28,204,198,253,208,24
9,198,254,208,245,96,32./..'. 98,3 :.**.
C..'. 32,253,206,32.S..'. 125,3:.**.N..'
. 96,169,255,133,74,32.~..'. 192,3:.**..
.D'. 154,201,141,240,3,76,224,200,104...
N'. 104,104,104,104,76,248,200,186,232,2
32,76,139,195,32,138,205,32,247,215,96..
..2