00000000: 01 08 50 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..P.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 00 9F 08 0B 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * |
00000060: 20 20 20 20 20 20 20 20 20 46 20 4F 20 52 20 4D | F O R M|
00000070: 20 41 20 54 20 52 20 4F 20 55 20 54 20 49 20 4E | A T R O U T I N|
00000080: 20 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | E |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000000A0: EE 08 0C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
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 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D |**************.=|
000000F0: 09 0D 00 8F 20 2A 20 43 4F 50 59 52 49 47 48 54 |.... * COPYRIGHT|
00000100: 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 8C 09 | *...|
00000140: 0E 00 8F 20 2A 20 20 44 52 2E 4D 2E 49 52 53 4B |... * DR.M.IRSK|
00000150: 45 4E 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |ENS |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 2A 00 DB 09 0F | *....|
00000190: 00 8F 20 2A 20 20 4C 45 56 45 53 45 52 20 41 4C |.. * LEVESER AL|
000001A0: 4C 45 45 20 31 33 20 20 20 20 20 20 20 20 20 20 |LEE 13 |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 2A 00 2A 0A 10 00 | *.*...|
000001E0: 8F 20 2A 20 20 33 30 36 31 20 48 45 53 50 45 20 |. * 3061 HESPE |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 2A 00 79 0A 11 00 8F | *.y....|
00000230: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C8 0A 12 00 8F 20 |*********...... |
00000280: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 2A 00 17 0B 13 00 8F 20 2A | *...... *|
000002D0: 20 41 55 46 52 55 46 3A 20 20 20 20 20 20 20 20 | AUFRUF: |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 2A 00 66 0B 14 00 8F 20 2A 20 | *.f.... * |
00000320: 20 55 53 52 28 58 29 2C 46 4C 2C 4E 4B 20 20 20 | USR(X),FL,NK |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 2A 00 B5 0B 15 00 8F 20 2A 20 20 | *...... * |
00000370: 20 20 58 20 20 3D 20 5A 55 20 46 4F 52 4D 41 54 | X = ZU FORMAT|
00000380: 49 45 52 45 4E 44 45 52 20 4E 55 4D 45 52 49 53 |IERENDER NUMERIS|
00000390: 43 48 45 52 20 57 45 52 54 20 20 20 20 20 20 20 |CHER WERT |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 2A 00 04 0C 16 00 8F 20 2A 20 20 20 | *...... * |
000003C0: 20 46 4C 20 3D 20 46 45 4C 44 4C 41 45 4E 47 45 | FL = FELDLAENGE|
000003D0: 20 44 45 52 20 46 4F 52 4D 41 54 49 45 52 54 45 | DER FORMATIERTE|
000003E0: 4E 20 5A 41 48 4C 20 20 20 20 20 20 20 20 20 20 |N ZAHL |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 2A 00 53 0C 17 00 8F 20 2A 20 20 20 20 | *.S.... * |
00000410: 4E 4B 20 3D 20 41 4E 5A 41 48 4C 20 4E 41 43 48 |NK = ANZAHL NACH|
00000420: 4B 4F 4D 4D 41 53 54 45 4C 4C 45 4E 20 44 45 52 |KOMMASTELLEN DER|
00000430: 20 46 4F 52 4D 41 54 49 45 52 54 45 4E 20 5A 41 | FORMATIERTEN ZA|
00000440: 48 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |HL |
00000450: 20 20 2A 00 A2 0C 18 00 8F 20 2A 20 20 44 41 53 | *...... * DAS|
00000460: 20 45 52 47 45 42 4E 49 53 20 44 45 52 20 55 53 | ERGEBNIS DER US|
00000470: 52 2D 46 55 4E 4B 54 49 4F 4E 20 49 53 54 20 44 |R-FUNKTION IST D|
00000480: 45 52 20 46 4F 52 4D 41 54 49 45 52 54 45 20 53 |ER FORMATIERTE S|
00000490: 54 52 49 4E 47 2E 20 44 49 45 53 45 52 20 20 20 |TRING. DIESER |
000004A0: 20 2A 00 F1 0C 19 00 8F 20 2A 20 20 4B 41 4E 4E | *...... * KANN|
000004B0: 20 45 49 4E 45 52 20 53 54 52 49 4E 47 56 41 52 | EINER STRINGVAR|
000004C0: 49 41 42 4C 45 4E 20 5A 55 47 45 57 49 45 53 45 |IABLEN ZUGEWIESE|
000004D0: 4E 20 4F 44 45 52 20 41 55 53 47 45 44 52 55 43 |N ODER AUSGEDRUC|
000004E0: 4B 54 20 57 45 52 44 45 4E 2E 20 20 20 20 20 20 |KT WERDEN. |
000004F0: 2A 00 40 0D 1A 00 8F 20 2A 20 42 45 49 53 50 49 |*.@.... * BEISPI|
00000500: 45 4C 45 3A 20 20 20 20 20 20 20 20 20 20 20 20 |ELE: |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000540: 00 8F 0D 1B 00 8F 20 2A 20 20 41 24 3D 28 55 53 |...... * A$=(US|
00000550: 52 28 58 59 29 2C 31 30 2C 32 29 2B 22 22 20 20 |R(XY),10,2)+"" |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000590: DE 0D 1C 00 8F 20 2A 20 20 50 52 49 4E 54 20 55 |..... * PRINT U|
000005A0: 53 52 28 58 59 29 2C 31 30 2C 32 3B 22 20 44 4D |SR(XY),10,2;" DM|
000005B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 2D | *.-|
000005E0: 0E 1D 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000620: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 7C 0E | *.|.|
00000630: 1E 00 8F 20 2A 20 42 45 53 4F 4E 44 45 52 48 45 |... * BESONDERHE|
00000640: 49 54 45 4E 3A 20 20 20 20 20 20 20 20 20 20 20 |ITEN: |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 20 20 20 2A 00 CB 0E 1F | *....|
00000680: 00 8F 20 2A 20 20 57 45 4E 4E 20 4E 41 43 48 4B |.. * WENN NACHK|
00000690: 4F 4D 4D 41 53 54 45 4C 4C 45 4E 20 44 55 52 43 |OMMASTELLEN DURC|
000006A0: 48 20 44 41 53 20 46 4F 52 4D 41 54 49 45 52 45 |H DAS FORMATIERE|
000006B0: 4E 20 41 42 47 45 53 43 48 4E 49 54 54 45 4E 20 |N ABGESCHNITTEN |
000006C0: 57 45 52 44 45 4E 2C 20 20 20 2A 00 1A 0F 20 00 |WERDEN, *... .|
000006D0: 8F 20 2A 20 20 53 4F 20 57 49 52 44 20 44 49 45 |. * SO WIRD DIE|
000006E0: 20 5A 41 48 4C 20 47 45 52 55 4E 44 45 54 2E 20 | ZAHL GERUNDET. |
000006F0: 20 20 01 01 01 01 01 01 01 01 01 01 01 01 01 01 | ..............|
00000700: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000710: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000720: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000730: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000740: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000750: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000760: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000770: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000780: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000790: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000007A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000007B0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000007C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000007D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000007E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
..P.... ********************************
****************************************
...... * F O R M A T R O
U T I N E *.
..... **********************************
**************************************.=
.... * COPYRIGHT:
*...
... * DR.M.IRSKENS
*....
.. * LEVESER ALLEE 13
*.*...
. * 3061 HESPE
*.Y....
***************************************
*********************************.H....
*
*...... *
AUFRUF:
*.F.... *
USR(X),FL,NK
*...... *
X = ZU FORMATIERENDER NUMERISCHER WER
T *...... *
FL = FELDLAENGE DER FORMATIERTEN ZAHL
*.S.... *
NK = ANZAHL NACHKOMMASTELLEN DER FORMATI
ERTEN ZAHL *...... * DAS
ERGEBNIS DER USR-FUNKTION IST DER FORMA
TIERTE STRING. DIESER *...... * KANN
EINER STRINGVARIABLEN ZUGEWIESEN ODER A
USGEDRUCKT WERDEN. *.@.... * BEISPI
ELE:
*...... * A$=(US
R(XY),10,2)+""
*...... * PRINT U
SR(XY),10,2;" DM"
*.-.... *
*.|.... * BESONDERHE
ITEN:
*.K.... * WENN NACHK
OMMASTELLEN DURCH DAS FORMATIEREN ABGESC
HNITTEN WERDEN, *... .. * SO WIRD DIE
ZAHL GERUNDET. ......................
........................................
........................................
........................................
........................................
........................................
................................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL