00000000: D8 1F F3 1F 64 00 3B 2A 2A 2A 20 5A 41 48 4C 45 |....d.;*** ZAHLE|
00000010: 4E 41 55 53 47 41 42 45 20 2A 2A 2A 00 F9 1F 6E |NAUSGABE ***...n|
00000020: 00 3B 00 1C 20 78 00 3B 41 55 53 47 41 42 45 20 |.;.. x.;AUSGABE |
00000030: 45 49 4E 45 52 20 46 4C 49 45 53 53 4B 4F 4D 4D |EINER FLIESSKOMM|
00000040: 41 5A 41 48 4C 00 34 20 82 00 3B 41 55 46 20 44 |AZAHL.4 ..;AUF D|
00000050: 45 4D 20 42 49 4C 44 53 43 48 49 52 4D 00 3A 20 |EM BILDSCHIRM.: |
00000060: 8C 00 3B 00 5A 20 96 00 3B 31 2E 46 4C 49 45 53 |..;.Z ..;1.FLIES|
00000070: 53 4B 4F 4D 4D 41 5A 41 48 4C 20 4E 41 43 48 20 |SKOMMAZAHL NACH |
00000080: 46 41 43 00 7A 20 A0 00 3B 32 2E 41 55 46 52 55 |FAC.z ..;2.AUFRU|
00000090: 46 20 56 4F 4E 20 22 46 41 43 3D 3E 53 43 52 45 |F VON "FAC=>SCRE|
000000A0: 45 4E 22 00 9C 20 AA 00 3B 33 2E 41 55 46 52 55 |EN".. ..;3.AUFRU|
000000B0: 46 20 56 4F 4E 20 22 41 53 43 49 49 3D 3E 53 43 |F VON "ASCII=>SC|
000000C0: 52 45 45 4E 22 00 A2 20 B4 00 3B 00 B6 20 BE 00 |REEN".. ..;.. ..|
000000D0: 2E 45 51 20 46 41 43 20 20 20 3D 20 24 36 31 00 |.EQ FAC = $61.|
000000E0: CC 20 C8 00 2E 45 51 20 4B 4F 4E 46 41 43 3D 20 |. ...EQ KONFAC= |
000000F0: 24 42 42 41 32 00 E2 20 D2 00 2E 45 51 20 46 41 |$BBA2.. ...EQ FA|
00000100: 43 53 54 52 3D 20 24 42 44 44 44 00 F8 20 DC 00 |CSTR= $BDDD.. ..|
00000110: 2E 45 51 20 53 54 52 4F 55 54 3D 20 24 41 42 31 |.EQ STROUT= $AB1|
00000120: 45 00 FE 20 E6 00 3B 00 1E 21 F0 00 2E 42 41 20 |E.. ..;..!...BA |
00000130: 24 43 30 30 30 20 20 20 20 3B 50 52 4F 47 52 41 |$C000 ;PROGRA|
00000140: 4D 4D 53 54 41 52 54 00 24 21 04 01 3B 00 45 21 |MMSTART.$!..;.E!|
00000150: 0E 01 3B 2A 5A 41 48 4C 20 4E 41 43 48 20 46 41 |..;*ZAHL NACH FA|
00000160: 43 20 55 45 42 45 52 54 52 41 47 45 4E 2A 00 56 |C UEBERTRAGEN*.V|
00000170: 21 18 01 20 4C 44 41 23 3C 28 5A 41 48 4C 29 00 |!.. LDA#<(ZAHL).|
00000180: 67 21 22 01 20 4C 44 59 23 3E 28 5A 41 48 4C 29 |g!". LDY#>(ZAHL)|
00000190: 00 76 21 2C 01 20 4A 53 52 4B 4F 4E 46 41 43 00 |.v!,. JSRKONFAC.|
000001A0: 7C 21 36 01 3B 00 91 21 40 01 3B 2A 5A 41 48 4C ||!6.;..!@.;*ZAHL|
000001B0: 20 41 55 53 47 45 42 45 4E 2A 00 A0 21 4A 01 20 | AUSGEBEN*..!J. |
000001C0: 4A 53 52 46 41 43 53 54 52 00 AF 21 54 01 20 4A |JSRFACSTR..!T. J|
000001D0: 53 52 53 54 52 4F 55 54 00 B8 21 5E 01 20 52 54 |SRSTROUT..!^. RT|
000001E0: 53 00 D1 21 68 01 3B 2A 41 55 53 5A 55 47 45 42 |S..!h.;*AUSZUGEB|
000001F0: 45 4E 44 45 20 5A 41 48 4C 2A 00 F1 21 72 01 5A |ENDE ZAHL*..!r.Z|
00000200: 41 48 4C 20 2E 42 59 24 38 32 2C 24 34 39 2C 24 |AHL .BY$82,$49,$|
00000210: 30 46 2C 24 44 41 2C 24 41 31 00 00 00 |0F,$DA,$A1... |
X...D.;*** ZAHLENAUSGABE ***...N.;.. X.;
AUSGABE EINER FLIESSKOMMAZAHL.4 ..;AUF D
EM BILDSCHIRM.: ..;.Z ..;1.FLIESSKOMMAZA
HL NACH FAC.Z .;2.AUFRUF VON "FAC=>SCRE
EN".. ..;3.AUFRUF VON "ASCII=>SCREEN"..
..;.. ...EQ FAC = $61.L H..EQ KONFAC=
$BBA2.. R..EQ FACSTR= $BDDD.. ...EQ STRO
UT= $AB1E.. ..;..!...BA $C000 ;PROGRA
MMSTART.$!..;.E!..;*ZAHL NACH FAC UEBERT
RAGEN*.V!.. LDA#<(ZAHL).G!". LDY#>(ZAHL)
.V!,. JSRKONFAC.|!6.;..!@.;*ZAHL AUSGEBE
N*. !J. JSRFACSTR..!T. JSRSTROUT..!^. RT
S.Q!H.;*AUSZUGEBENDE ZAHL*..!R.ZAHL .BY$
82,$49,$0F,$DA,$A1...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL