00000000: 01 10 10 10 64 00 3A 20 99 20 C7 28 31 34 37 29 |....d.: . .(147)|
00000010: 00 32 10 6E 00 3A 20 99 20 22 20 20 20 20 20 20 |.2.n.: . " |
00000020: 20 20 20 20 20 42 52 55 43 48 52 45 43 48 4E 55 | BRUCHRECHNU|
00000030: 4E 47 00 54 10 6F 00 3A 20 99 20 22 20 20 20 20 |NG.T.o.: . " |
00000040: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------|
00000050: 2D 2D 2D 2D 00 5A 10 70 00 3A 00 91 10 78 00 8F |----.Z.p.:...x..|
00000060: 20 42 52 55 45 43 48 45 20 4B 4F 45 4E 4E 45 4E | BRUECHE KOENNEN|
00000070: 20 41 44 44 49 45 52 54 20 55 4E 44 20 4D 55 4C | ADDIERT UND MUL|
00000080: 54 49 50 4C 49 5A 49 45 52 54 20 57 45 52 44 45 |TIPLIZIERT WERDE|
00000090: 4E 00 97 10 81 00 3A 00 DB 10 C8 00 8F 20 2A 2A |N.....:...... **|
000000A0: 2A 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 20 |* HAUPTPROGRAMM |
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 10 C9 00 |***********.....|
000000E0: 3A 00 0B 11 E6 00 3A 20 8D 20 33 30 30 20 20 20 |:.....: . 300 |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 3A 20 8F 20 45 49 4E 47 41 42 45 00 32 11 F0 00 |: . EINGABE.2...|
00000110: 3A 20 8B 20 4F 50 24 20 B2 20 22 2B 22 20 A7 20 |: . OP$ . "+" . |
00000120: 8D 20 34 30 30 20 3A 20 8F 20 41 44 44 49 54 49 |. 400 : . ADDITI|
00000130: 4F 4E 00 5F 11 FA 00 3A 20 8B 20 4F 50 24 20 B2 |ON._...: . OP$ .|
00000140: 20 22 2A 22 20 A7 20 8D 20 35 30 30 20 3A 20 8F | "*" . . 500 : .|
00000150: 20 4D 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 00 | MULTIPLIKATION.|
00000160: 89 11 04 01 3A 20 8D 20 36 30 30 20 20 20 20 20 |....: . 600 |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : |
00000180: 8F 20 41 55 53 47 41 42 45 00 8F 11 0E 01 3A 00 |. AUSGABE.....:.|
00000190: 97 11 18 01 3A 20 80 00 9D 11 21 01 3A 00 E1 11 |....: ....!.:...|
000001A0: 22 01 8F 20 45 4E 44 45 20 44 45 53 20 48 41 55 |".. ENDE DES HAU|
000001B0: 50 54 50 52 4F 47 52 41 4D 4D 53 20 2A 2A 2A 2A |PTPROGRAMMS ****|
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 00 E7 11 2B 01 3A 00 2B 12 2C 01 8F 20 23 23 |*...+.:.+.,.. ##|
000001F0: 23 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 |# UNTERPROGRAMM |
00000200: 27 45 49 4E 47 41 42 45 27 20 23 23 23 23 23 23 |'EINGABE' ######|
00000210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000220: 23 23 23 23 23 23 23 23 23 23 23 00 31 12 2D 01 |###########.1.-.|
00000230: 3A 00 45 12 31 01 3A 20 8F 20 2D 2D 2D 20 42 52 |:.E.1.: . --- BR|
00000240: 55 45 43 48 45 00 4B 12 32 01 3A 00 7C 12 36 01 |UECHE.K.2.:.|.6.|
00000250: 3A 20 20 20 99 3A 20 99 3A 20 99 20 22 20 47 45 |: .: .: . " GE|
00000260: 42 45 4E 20 53 49 45 20 44 49 45 20 42 52 55 45 |BEN SIE DIE BRUE|
00000270: 43 48 45 20 45 49 4E 21 22 3A 20 99 00 82 12 3F |CHE EIN!": ....?|
00000280: 01 3A 00 96 12 40 01 3A 20 20 20 81 20 49 20 B2 |.:...@.: . I .|
00000290: 20 31 20 A4 20 32 00 BE 12 4A 01 3A 20 20 20 20 | 1 . 2...J.: |
000002A0: 20 99 20 22 20 5A 41 45 48 4C 45 52 22 3B 49 3B | . " ZAEHLER";I;|
000002B0: 22 20 3D 20 22 3B 3A 20 85 20 5A 28 49 29 00 E6 |" = ";: . Z(I)..|
000002C0: 12 54 01 3A 20 20 20 20 20 99 20 22 20 4E 45 4E |.T.: . " NEN|
000002D0: 4E 45 52 20 22 3B 49 3B 22 20 3D 20 22 3B 3A 20 |NER ";I;" = ";: |
000002E0: 85 20 4E 28 49 29 00 19 13 59 01 3A 20 20 20 20 |. N(I)...Y.: |
000002F0: 20 8B 20 4E 28 49 29 20 B2 20 30 20 A7 20 99 20 | . N(I) . 0 . . |
00000300: 22 20 4D 55 53 53 20 3C 3E 20 30 20 53 45 49 4E |" MUSS <> 0 SEIN|
00000310: 21 22 3A 20 89 20 33 34 30 00 25 13 5E 01 3A 20 |!": . 340.%.^.: |
00000320: 20 20 82 20 49 00 2B 13 63 01 3A 00 41 13 68 01 | . I.+.c.:.A.h.|
00000330: 3A 20 8F 20 2D 2D 2D 20 4F 50 45 52 41 54 49 4F |: . --- OPERATIO|
00000340: 4E 00 47 13 69 01 3A 00 6A 13 6D 01 3A 20 20 20 |N.G.i.:.j.m.: |
00000350: 99 3A 20 99 20 22 20 4F 50 45 52 41 54 49 4F 4E |.: . " OPERATION|
00000360: 20 3F 28 2B 2C 2A 29 A0 22 3B 00 9B 13 72 01 3A | ?(+,*).";...r.:|
00000370: 20 20 20 A1 20 4F 50 24 3A 20 8B 20 A8 20 28 4F | . OP$: . . (O|
00000380: 50 24 20 B2 20 22 2B 22 20 B0 20 4F 50 24 20 B2 |P$ . "+" . OP$ .|
00000390: 20 22 2A 22 29 20 A7 20 33 37 30 00 A9 13 77 01 | "*") . 370...w.|
000003A0: 3A 20 20 20 99 20 4F 50 24 00 AF 13 7C 01 3A 00 |: . OP$...|.:.|
000003B0: B9 13 86 01 3A 20 20 20 8E 00 BF 13 8F 01 3A 00 |....: ......:.|
000003C0: 03 14 90 01 8F 20 23 23 23 20 55 4E 54 45 52 50 |..... ### UNTERP|
000003D0: 52 4F 47 52 41 4D 4D 20 27 41 44 44 49 54 49 4F |ROGRAMM 'ADDITIO|
000003E0: 4E 27 20 23 23 23 23 23 23 23 23 23 23 23 23 23 |N' #############|
000003F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000400: 23 23 23 00 09 14 91 01 3A 00 3C 14 9A 01 3A 20 |###.....:.<...: |
00000410: 88 20 5A 20 B2 20 5A 28 31 29 AC 4E 28 32 29 20 |. Z . Z(1).N(2) |
00000420: AA 20 5A 28 32 29 AC 4E 28 31 29 3A 20 88 20 4E |. Z(2).N(1): . N|
00000430: 20 B2 20 4E 28 31 29 AC 4E 28 32 29 00 54 14 A4 | . N(1).N(2).T..|
00000440: 01 3A 20 8D 20 37 30 30 20 3A 20 8F 20 4B 55 45 |.: . 700 : . KUE|
00000450: 52 5A 45 4E 00 5C 14 EA 01 3A 20 8E 00 62 14 F3 |RZEN.\...: ..b..|
00000460: 01 3A 00 A6 14 F4 01 8F 20 23 23 23 20 55 4E 54 |.:...... ### UNT|
00000470: 45 52 50 52 4F 47 52 41 4D 4D 20 27 4D 55 4C 54 |ERPROGRAMM 'MULT|
00000480: 49 50 4C 49 4B 41 54 49 4F 4E 27 20 23 23 23 23 |IPLIKATION' ####|
00000490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000004A0: 23 23 23 23 23 23 00 AC 14 F5 01 3A 00 D3 14 FE |######.....:....|
000004B0: 01 3A 20 88 20 5A 20 B2 20 5A 28 31 29 AC 5A 28 |.: . Z . Z(1).Z(|
000004C0: 32 29 3A 20 88 20 4E 20 B2 20 4E 28 31 29 AC 4E |2): . N . N(1).N|
000004D0: 28 32 29 00 EB 14 08 02 3A 20 8D 20 37 30 30 20 |(2).....: . 700 |
000004E0: 3A 20 8F 20 4B 55 45 52 5A 45 4E 00 F3 14 4E 02 |: . KUERZEN...N.|
000004F0: 3A 20 8E 00 F9 14 57 02 3A 00 3D 15 58 02 8F 20 |: ....W.:.=.X.. |
00000500: 23 23 23 20 55 4E 54 45 52 50 52 4F 47 52 41 4D |### UNTERPROGRAM|
00000510: 4D 20 27 41 55 53 47 41 42 45 27 20 23 23 23 23 |M 'AUSGABE' ####|
00000520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000530: 23 23 23 23 23 23 23 23 23 23 23 23 23 00 43 15 |#############.C.|
00000540: 59 02 3A 00 4E 15 62 02 3A 20 99 3A 20 99 00 71 |Y.:.N.b.: .: ..q|
00000550: 15 6C 02 3A 20 8B 20 4F 50 24 20 B2 20 22 2B 22 |.l.: . OP$ . "+"|
00000560: 20 A7 20 99 20 22 20 53 55 4D 4D 45 3A 20 20 22 | . . " SUMME: "|
00000570: 3B 00 94 15 76 02 3A 20 8B 20 4F 50 24 20 B2 20 |;...v.: . OP$ . |
00000580: 22 2A 22 20 A7 20 99 20 22 20 50 52 4F 44 55 4B |"*" . . " PRODUK|
00000590: 54 3A 22 3B 00 A4 15 80 02 3A 20 99 20 5A 3B 22 |T:";.....: . Z;"|
000005A0: 2F 22 3B 4E 00 AC 15 B2 02 3A 20 8E 00 B2 15 BB |/";N.....: .....|
000005B0: 02 3A 00 F6 15 BC 02 8F 20 2B 2B 2B 20 55 4E 54 |.:...... +++ UNT|
000005C0: 45 52 50 52 4F 47 52 41 4D 4D 20 27 4B 55 45 52 |ERPROGRAMM 'KUER|
000005D0: 5A 45 4E 27 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |ZEN' +++++++++++|
000005E0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
000005F0: 2B 2B 2B 2B 2B 2B 00 FC 15 BD 02 3A 00 2A 16 C6 |++++++.....:.*..|
00000600: 02 3A 20 88 20 41 20 B2 20 5A 3A 20 88 20 42 20 |.: . A . Z: . B |
00000610: B2 20 4E 20 3A 20 8F 20 50 41 52 41 4D 45 54 45 |. N : . PARAMETE|
00000620: 52 55 45 42 45 52 47 41 42 45 00 5D 16 D0 02 3A |RUEBERGABE.]...:|
00000630: 20 8D 20 38 30 30 20 20 20 20 20 20 20 20 20 20 | . 800 |
00000640: 20 20 3A 20 8F 20 42 45 52 45 43 48 4E 55 4E 47 | : . BERECHNUNG|
00000650: 20 44 45 53 20 47 47 54 28 41 2C 42 29 00 7C 16 | DES GGT(A,B).|.|
00000660: DA 02 3A 20 88 20 5A 20 B2 20 5A AD 47 47 54 3A |..: . Z . Z.GGT:|
00000670: 20 88 20 4E 20 B2 20 4E AD 47 47 54 00 84 16 16 | . N . N.GGT....|
00000680: 03 3A 20 8E 00 8A 16 1F 03 3A 00 CE 16 20 03 8F |.: ......:... ..|
00000690: 20 2B 2B 2B 20 55 4E 54 45 52 50 52 4F 47 52 41 | +++ UNTERPROGRA|
000006A0: 4D 4D 20 27 42 45 52 45 43 48 4E 55 4E 47 20 44 |MM 'BERECHNUNG D|
000006B0: 45 53 20 47 47 54 28 41 2C 42 29 27 20 2B 2B 2B |ES GGT(A,B)' +++|
000006C0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 D4 |++++++++++++++..|
000006D0: 16 21 03 3A 00 FD 16 2A 03 3A 20 8B 20 41 20 B2 |.!.:...*.: . A .|
000006E0: 20 30 20 B0 20 42 20 B2 20 30 20 A7 20 88 20 47 | 0 . B . 0 . . G|
000006F0: 47 54 20 B2 20 31 3A 20 89 20 38 39 30 00 1E 17 |GT . 1: . 890...|
00000700: 34 03 3A 20 8B 20 41 20 B1 20 42 20 A7 20 88 20 |4.: . A . B . . |
00000710: 41 20 B2 20 41 AB 42 3A 20 89 20 38 32 30 00 3F |A . A.B: . 820.?|
00000720: 17 3E 03 3A 20 8B 20 42 20 B1 20 41 20 A7 20 88 |.>.: . B . A . .|
00000730: 20 42 20 B2 20 42 AB 41 3A 20 89 20 38 32 30 00 | B . B.A: . 820.|
00000740: 4F 17 48 03 3A 20 88 20 47 47 54 20 B2 20 41 00 |O.H.: . GGT . A.|
00000750: 57 17 7A 03 3A 20 8E 00 00 00 |W.z.: .... |
....D.: . G(147).2.N.: . " BRU
CHRECHNUNG.T.O.: . " ---------
----.Z.P.:...X.. BRUECHE KOENNEN ADDIERT
UND MULTIPLIZIERT WERDEN.....:...H.. **
* HAUPTPROGRAMM ************************
*******************...I.:.....: . 300
: . EINGABE.2...: . OP$
. "+" . . 400 : . ADDITION._...: . OP$ .
"*" . . 500 : . MULTIPLIKATION.....: .
600 : . AUSGABE.....:.
....: ....!.:...".. ENDE DES HAUPTPROGRA
MMS ************************************
*...+.:.+.,.. ### UNTERPROGRAMM 'EINGABE
' #################################.1.-.
:.E.1.: . --- BRUECHE.K.2.:.|.6.: .: .
: . " GEBEN SIE DIE BRUECHE EIN!": ....?
.:...@.: . I . 1 . 2...J.: . " ZAE
HLER";I;" = ";: . Z(I)...T.: . " NEN
NER ";I;" = ";: . N(I)...Y.: . N(I)
. 0 . . " MUSS <> 0 SEIN!": . 340.%.^.:
. I.+.C.:.A.H.: . --- OPERATION.G.I.:.
J.M.: .: . " OPERATION ?(+,*) ";...R.:
. OP$: . . (OP$ . "+" . OP$ . "*") .
370...W.: . OP$...|.:.....: ......:.
..... ### UNTERPROGRAMM 'ADDITION' #####
###########################.....:.<...:
. Z . Z(1).N(2) . Z(2).N(1): . N . N(1).
N(2).T...: . 700 : . KUERZEN.\...: ..B..
.:...... ### UNTERPROGRAMM 'MULTIPLIKATI
ON' ##########################.....:.S..
.: . Z . Z(1).Z(2): . N . N(1).N(2).....
: . 700 : . KUERZEN...N.: ....W.:.=.X..
### UNTERPROGRAMM 'AUSGABE' ############
#####################.C.Y.:.N.B.: .: ..Q
.L.: . OP$ . "+" . . " SUMME: ";...V.:
. OP$ . "*" . . " PRODUKT:";.....: . Z;"
/";N.....: ......:...... +++ UNTERPROGRA
MM 'KUERZEN' +++++++++++++++++++++++++++
++++++.....:.*.F.: . A . Z: . B . N : .
PARAMETERUEBERGABE.].P.: . 800
: . BERECHNUNG DES GGT(A,B).|.Z.: . Z
. Z.GGT: . N . N.GGT.....: ......:.N. ..
+++ UNTERPROGRAMM 'BERECHNUNG DES GGT(A
,B)' +++++++++++++++++.T.!.:...*.: . A .
0 . B . 0 . . GGT . 1: . 890...4.: . A
. B . . A . A.B: . 820.?.>.: . B . A . .
B . B.A: . 820.O.H.: . GGT . A.W.Z.: ..
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL