FLIESSKOMMA

FILE INFORMATION

FILENAME(S): FLIESSKOMMA

FILE TYPE(S): PRG

FILE SIZE: 844b

FIRST SEEN: 2025-11-30 01:12:33

APPEARS ON: 3 disk(s)

FILE HASH

7788cf190dd5090920f714cacb33580b87f53590a27c5e371a7c806bebd4d110

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
SONDERHEFT 7 86	FLIESSKOMMA	PRG	C64er	19	DOWNLOAD FILE
SONDERHEFT 7 86	FLIESSKOMMA	PRG	DuncanTwain	19	DOWNLOAD FILE
SONDERHEFT 7 86	FLIESSKOMMA	PRG	DuncanTwain	19	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F1 1F 64 00 3B 2A  2A 2A 20 46 4C 49 45 53  |....d.;*** FLIES|
00000010: 53 4B 4F 4D 4D 41 20 2A  2A 2A 00 F7 1F 6E 00 3B  |SKOMMA ***...n.;|
00000020: 00 1B 20 78 00 3B 57 41  4E 44 4C 55 4E 47 20 45  |.. x.;WANDLUNG E|
00000030: 49 4E 45 52 20 46 4C 49  45 53 53 4B 4F 4D 4D 41  |INER FLIESSKOMMA|
00000040: 5A 41 48 4C 00 36 20 82  00 3B 49 4E 53 20 49 4E  |ZAHL.6 ..;INS IN|
00000050: 54 45 47 45 52 46 4F 52  4D 41 54 20 55 4E 44 00  |TEGERFORMAT UND.|
00000060: 56 20 8C 00 3B 41 55 53  47 41 42 45 20 41 55 46  |V ..;AUSGABE AUF|
00000070: 20 44 45 4D 20 42 49 4C  44 53 43 48 49 52 4D 00  | DEM BILDSCHIRM.|
00000080: 5C 20 96 00 3B 00 7C 20  A0 00 3B 31 2E 46 4C 49  |\ ..;.| ..;1.FLI|
00000090: 45 53 53 4B 4F 4D 4D 41  5A 41 48 4C 20 4E 41 43  |ESSKOMMAZAHL NAC|
000000A0: 48 20 46 41 43 00 9D 20  AA 00 3B 32 2E 41 55 46  |H FAC.. ..;2.AUF|
000000B0: 52 55 46 56 4F 4E 20 46  4C 49 45 53 53 3D 3E 49  |RUFVON FLIESS=>I|
000000C0: 4E 54 45 47 45 52 00 BB  20 B4 00 3B 33 2E 41 55  |NTEGER.. ..;3.AU|
000000D0: 46 52 55 46 20 56 4F 4E  20 46 41 43 3D 3E 53 54  |FRUF VON FAC=>ST|
000000E0: 52 49 4E 47 00 DC 20 BE  00 3B 34 2E 41 55 46 52  |RING.. ..;4.AUFR|
000000F0: 55 46 20 56 4F 4E 20 53  54 52 49 4E 47 3D 3E 53  |UF VON STRING=>S|
00000100: 43 52 45 45 4E 00 E2 20  C8 00 3B 00 F7 20 D2 00  |CREEN.. ..;.. ..|
00000110: 2E 45 51 20 4B 4F 4E 46  41 43 3D 24 42 42 41 32  |.EQ KONFAC=$BBA2|
00000120: 00 0C 21 DC 00 2E 45 51  20 46 4C 49 49 4E 54 3D  |..!...EQ FLIINT=|
00000130: 24 42 43 39 42 00 21 21  E6 00 2E 45 51 20 45 49  |$BC9B.!!...EQ EI|
00000140: 4E 50 4F 53 3D 24 42 33  41 32 00 36 21 F0 00 2E  |NPOS=$B3A2.6!...|
00000150: 45 51 20 46 41 43 53 54  52 3D 24 42 44 44 44 00  |EQ FACSTR=$BDDD.|
00000160: 4B 21 FA 00 2E 45 51 20  53 54 52 4F 55 54 3D 24  |K!...EQ STROUT=$|
00000170: 41 42 31 45 00 51 21 04  01 3B 00 6D 21 0E 01 2E  |AB1E.Q!..;.m!...|
00000180: 42 41 20 24 43 30 30 30  3B 50 52 4F 47 52 41 4D  |BA $C000;PROGRAM|
00000190: 4D 53 54 41 52 54 00 73  21 18 01 3B 00 79 21 22  |MSTART.s!..;.y!"|
000001A0: 01 3B 00 9A 21 2C 01 3B  2A 5A 41 48 4C 20 4E 41  |.;..!,.;*ZAHL NA|
000001B0: 43 48 20 46 41 43 20 55  45 42 45 52 54 52 41 47  |CH FAC UEBERTRAG|
000001C0: 45 4E 2A 00 AB 21 36 01  20 4C 44 41 23 3C 28 5A  |EN*..!6. LDA#<(Z|
000001D0: 41 48 4C 29 00 BC 21 40  01 20 4C 44 59 23 3E 28  |AHL)..!@. LDY#>(|
000001E0: 5A 41 48 4C 29 00 CB 21  4A 01 20 4A 53 52 4B 4F  |ZAHL)..!J. JSRKO|
000001F0: 4E 46 41 43 00 D1 21 54  01 3B 00 F2 21 5E 01 3B  |NFAC..!T.;..!^.;|
00000200: 2A 5A 41 48 4C 20 4E 41  43 48 20 46 41 43 20 55  |*ZAHL NACH FAC U|
00000210: 45 42 45 52 54 52 41 47  45 4E 2A 00 01 22 68 01  |EBERTRAGEN*.."h.|
00000220: 20 4A 53 52 46 4C 49 49  4E 54 00 07 22 72 01 3B  | JSRFLIINT.."r.;|
00000230: 00 2C 22 7C 01 3B 2A 49  4E 54 45 47 45 52 20 4E  |.,"|.;*INTEGER N|
00000240: 41 43 48 20 46 4C 49 45  53 53 4B 2E 20 57 41 4E  |ACH FLIESSK. WAN|
00000250: 44 45 4C 4E 2A 00 4C 22  86 01 20 4C 44 59 24 36  |DELN*.L".. LDY$6|
00000260: 35 3B 49 4E 54 2D 45 52  47 45 42 4E 49 53 53 20  |5;INT-ERGEBNISS |
00000270: 4C 41 44 45 4E 00 6F 22  90 01 20 4A 53 52 45 49  |LADEN.o".. JSREI|
00000280: 4E 50 4F 53 3B 4E 41 43  48 20 46 4C 49 45 4B 2E  |NPOS;NACH FLIEK.|
00000290: 20 57 41 4E 44 45 4C 4E  00 75 22 9A 01 3B 00 7B  | WANDELN.u"..;.{|
000002A0: 22 A4 01 3B 00 90 22 AE  01 3B 2A 5A 41 48 4C 20  |"..;.."..;*ZAHL |
000002B0: 41 55 53 47 45 42 45 4E  2A 00 AD 22 B8 01 20 4A  |AUSGEBEN*..".. J|
000002C0: 53 52 46 41 43 53 54 52  3B 46 41 43 20 3D 3E 20  |SRFACSTR;FAC => |
000002D0: 53 54 52 49 4E 47 00 CD  22 C2 01 20 4A 53 52 53  |STRING..".. JSRS|
000002E0: 54 52 4F 55 54 3B 53 54  52 49 4E 47 20 3D 3E 20  |TROUT;STRING => |
000002F0: 53 43 52 45 45 4E 00 D6  22 CC 01 20 52 54 53 00  |SCREEN..".. RTS.|
00000300: DC 22 D6 01 3B 00 FA 22  E0 01 3B 2A 41 55 53 5A  |."..;.."..;*AUSZ|
00000310: 55 47 45 42 45 4E 44 45  20 5A 41 48 4C 20 28 50  |UGEBENDE ZAHL (P|
00000320: 49 29 2A 00 1A 23 EA 01  5A 41 48 4C 20 2E 42 59  |I)*..#..ZAHL .BY|
00000330: 24 38 32 2C 24 34 39 2C  24 30 46 2C 24 44 41 2C  |$82,$49,$0F,$DA,|
00000340: 24 41 31 00 20 23 F4 01  3B 00 00 00              |$A1. #..;...    |

X...D.;*** FLIESSKOMMA ***...N.;.. X.;WA
NDLUNG EINER FLIESSKOMMAZAHL.6 ..;INS IN
TEGERFORMAT UND.V ..;AUSGABE AUF DEM BIL
DSCHIRM.\ ..;.|  .;1.FLIESSKOMMAZAHL NAC
H FAC.. ..;2.AUFRUFVON FLIESS=>INTEGER..
 ..;3.AUFRUF VON FAC=>STRING.. ..;4.AUFR
UF VON STRING=>SCREEN.. H.;.. R..EQ KONF
AC=$BBA2..!...EQ FLIINT=$BC9B.!!...EQ EI
NPOS=$B3A2.6!...EQ FACSTR=$BDDD.K!...EQ 
STROUT=$AB1E.Q!..;.M!...BA $C000;PROGRAM
MSTART.S!..;.Y!".;..!,.;*ZAHL NACH FAC U
EBERTRAGEN*..!6. LDA#<(ZAHL)..!@. LDY#>(
ZAHL).K!J. JSRKONFAC.Q!T.;..!^.;*ZAHL NA
CH FAC UEBERTRAGEN*.."H. JSRFLIINT.."R.;
.,"|.;*INTEGER NACH FLIESSK. WANDELN*.L"
.. LDY$65;INT-ERGEBNISS LADEN.O".. JSREI
NPOS;NACH FLIEK. WANDELN.U"..;.{"..;..".
.;*ZAHL AUSGEBEN*..".. JSRFACSTR;FAC => 
STRING.M"B. JSRSTROUT;STRING => SCREEN.V
"L. RTS.."V.;.."..;*AUSZUGEBENDE ZAHL (P
I)*..#..ZAHL .BY$82,$49,$0F,$DA,$A1. #..
;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL