INTEGRATION
FILE INFORMATION
FILENAME(S): INTEGRATION
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 01:07:57
APPEARS ON: 2 disk(s)
FILE HASH
b0fbac15b0d132fcd2da9d2c3d7f8afbc232085d257b89be4b95a11942db90ed
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | INTEGRATION | PRG | Treasure Chest - Wolfgang Rauprich | 31 | 3 | DOWNLOAD FILE |
| L EHRNEN | INTEGRATION | PRG | Treasure Chest - Wolfgang Rauprich | 31 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3B 08 0A 00 8F 20 50 52 4F 47 52 41 4D 4D |..;.... PROGRAMM|
00000010: 20 41 42 4C 45 49 54 55 4E 47 20 28 20 45 49 4E | ABLEITUNG ( EIN|
00000020: 47 41 42 45 3A 46 28 58 29 20 2C 20 41 55 53 47 |GABE:F(X) , AUSG|
00000030: 41 42 45 3A 46 27 28 58 29 20 29 00 60 08 14 00 |ABE:F'(X) ).`...|
00000040: 8F 20 20 20 20 20 36 2E 32 2E 31 39 38 32 20 42 |. 6.2.1982 B|
00000050: 59 20 54 48 4F 4D 41 53 20 47 41 57 4C 49 43 4B |Y THOMAS GAWLICK|
00000060: 00 85 08 1E 00 8F 20 56 45 52 53 49 4F 4E 20 38 |...... VERSION 8|
00000070: 2E 32 2E 31 39 38 32 20 50 55 42 4C 49 43 20 44 |.2.1982 PUBLIC D|
00000080: 4F 4D 41 49 4E 00 9B 08 1F 00 97 35 33 32 38 30 |OMAIN......53280|
00000090: 2C 30 3A 97 35 33 32 38 31 2C 30 00 CF 08 20 00 |,0:.53281,0... .|
000000A0: 99 22 93 9A 12 20 20 20 20 20 20 20 20 44 49 46 |."... DIF|
000000B0: 46 45 52 45 4E 54 49 41 54 49 4F 4E 53 50 52 4F |FERENTIATIONSPRO|
000000C0: 47 52 41 4D 4D 20 20 20 20 20 20 20 20 9E 22 00 |GRAMM .".|
000000D0: F6 08 23 00 85 22 44 52 55 43 4B 45 52 20 20 20 |..#.."DRUCKER |
000000E0: 4E 9D 9D 9D 22 3B 41 24 3A 9F 34 2C 34 AA 28 41 |N...";A$:.4,4.(A|
000000F0: 24 B2 22 4E 22 29 00 20 09 28 00 4D B2 31 36 3A |$."N"). .(.M.16:|
00000100: 8F 20 48 4F 45 43 48 53 54 45 20 56 45 52 53 43 |. HOECHSTE VERSC|
00000110: 48 41 43 48 54 45 4C 55 4E 47 53 54 49 45 46 45 |HACHTELUNGSTIEFE|
00000120: 00 56 09 32 00 86 46 24 28 4D 29 2C 46 53 24 28 |.V.2..F$(M),FS$(|
00000130: 4D 29 2C 46 55 24 28 4D 29 2C 46 56 24 28 4D 29 |M),FU$(M),FV$(M)|
00000140: 2C 46 31 24 28 4D 29 2C 4F 28 4D 29 3A 5A 24 B2 |,F1$(M),O(M):Z$.|
00000150: 22 2B 2D 2A 2F 5E 00 74 09 33 00 87 46 5A 3A 86 |"+-*/^.t.3..FZ:.|
00000160: 58 24 28 46 5A 29 2C 58 53 24 28 46 5A 29 2C 4C |X$(FZ),XS$(FZ),L|
00000170: 28 46 5A 29 00 80 09 34 00 81 49 B2 31 A4 46 5A |(FZ)...4..I.1.FZ|
00000180: 00 92 09 35 00 87 58 24 28 49 29 2C 58 53 24 28 |...5..X$(I),XS$(|
00000190: 49 29 00 A4 09 36 00 4C 28 49 29 B2 C3 28 58 24 |I)...6.L(I)..(X$|
000001A0: 28 49 29 29 00 AA 09 37 00 82 00 B2 09 3C 00 5A |(I))...7.....<.Z|
000001B0: B2 30 00 C9 09 41 00 99 22 11 47 49 42 20 46 28 |.0...A..".GIB F(|
000001C0: 58 29 20 45 49 4E 20 3A 11 00 D4 09 46 00 85 46 |X) EIN :....F..F|
000001D0: 24 28 30 29 00 DD 09 50 00 8D 31 37 30 00 F2 09 |$(0)...P..170...|
000001E0: 5A 00 98 34 2C 22 46 28 58 29 20 3D 22 46 24 28 |Z..4,"F(X) ="F$(|
000001F0: 30 29 00 08 0A 5F 00 98 34 2C 22 46 27 28 58 29 |0)..._..4,"F'(X)|
00000200: 3D 22 46 53 24 28 30 29 00 13 0A 64 00 98 34 3A |="FS$(0)...d..4:|
00000210: 89 36 30 00 32 0A 6E 00 8F 20 41 42 4C 45 49 54 |.60.2.n.. ABLEIT|
00000220: 55 4E 47 53 2D 55 4E 54 45 52 50 52 4F 47 52 41 |UNGS-UNTERPROGRA|
00000230: 4D 4D 00 5A 0A 78 00 8F 20 45 49 4E 47 41 42 45 |MM.Z.x.. EINGABE|
00000240: 20 3A 20 5A 20 56 45 52 53 43 48 41 43 48 54 45 | : Z VERSCHACHTE|
00000250: 4C 55 4E 47 53 54 49 45 46 45 00 6F 0A 82 00 8F |LUNGSTIEFE.o....|
00000260: 20 46 24 28 5A 29 20 46 55 4E 4B 54 49 4F 4E 00 | F$(Z) FUNKTION.|
00000270: 86 0A 8C 00 8F 20 46 53 24 28 5A 29 20 41 42 4C |..... FS$(Z) ABL|
00000280: 45 49 54 55 4E 47 00 8C 0A 96 00 8F 00 99 0A AA |EITUNG..........|
00000290: 00 46 24 B2 46 24 28 5A 29 00 A9 0A B4 00 53 24 |.F$.F$(Z).....S$|
000002A0: B2 46 24 3A 8D 32 30 31 30 00 E5 0A C8 00 8B 50 |.F$:.2010......P|
000002B0: B2 31 B0 50 B2 4C A7 31 30 30 30 3A 8F 20 5A 45 |.1.P.L.1000:. ZE|
000002C0: 49 43 48 45 4E 20 41 4D 20 41 4E 46 41 4E 47 20 |ICHEN AM ANFANG |
000002D0: 42 5A 57 2E 20 45 4E 44 45 20 55 4E 5A 55 4C 41 |BZW. ENDE UNZULA|
000002E0: 45 53 53 49 47 00 F2 0A 04 01 8B 50 B2 30 A7 37 |ESSIG......P.0.7|
000002F0: 30 30 00 13 0B 18 01 8F 20 46 3D 55 23 56 20 2C |00...... F=U#V ,|
00000300: 20 42 45 52 45 43 48 4E 45 20 55 27 20 55 4E 44 | BERECHNE U' UND|
00000310: 20 56 27 00 40 0B 22 01 4F 28 5A 29 B2 4F 3A 46 | V'.@.".O(Z).O:F|
00000320: 55 24 28 5A 29 B2 C8 28 46 24 2C 50 AB 31 29 3A |U$(Z)..(F$,P.1):|
00000330: 46 56 24 28 5A 29 B2 CA 28 46 24 2C 50 AA 31 29 |FV$(Z)..(F$,P.1)|
00000340: 00 6E 0B 2C 01 5A B2 5A AA 31 3A 46 24 28 5A 29 |.n.,.Z.Z.1:F$(Z)|
00000350: B2 46 55 24 28 5A AB 31 29 3A 8D 31 37 30 3A 46 |.FU$(Z.1):.170:F|
00000360: 31 24 28 5A AB 31 29 B2 46 53 24 28 5A 29 00 8C |1$(Z.1).FS$(Z)..|
00000370: 0B 36 01 46 24 28 5A 29 B2 46 56 24 28 5A AB 31 |.6.F$(Z).FV$(Z.1|
00000380: 29 3A 8D 31 37 30 3A 5A B2 5A AB 31 00 C5 0B 40 |):.170:Z.Z.1...@|
00000390: 01 46 55 24 B2 46 55 24 28 5A 29 3A 46 56 24 B2 |.FU$.FU$(Z):FV$.|
000003A0: 46 56 24 28 5A 29 3A 46 31 24 B2 46 31 24 28 5A |FV$(Z):F1$.F1$(Z|
000003B0: 29 3A 46 32 24 B2 46 53 24 28 5A AA 31 29 3A 4F |):F2$.FS$(Z.1):O|
000003C0: B2 4F 28 5A 29 00 E0 0B 4A 01 91 4F 89 33 35 30 |.O(Z)...J..O.350|
000003D0: 2C 33 35 30 2C 34 30 30 2C 34 30 30 2C 35 34 30 |,350,400,400,540|
000003E0: 00 10 0C 54 01 8F 20 46 3D 55 2B 56 20 42 5A 57 |...T.. F=U+V BZW|
000003F0: 2E 20 46 3D 55 2D 56 20 2C 20 46 27 3D 55 27 2B |. F=U-V , F'=U'+|
00000400: 56 27 20 42 5A 57 2E 20 46 27 3D 55 27 2D 56 27 |V' BZW. F'=U'-V'|
00000410: 00 43 0C 5E 01 8B 46 31 24 B3 B1 22 30 22 A7 8B |.C.^..F1$.."0"..|
00000420: 46 32 24 B3 B1 22 30 22 A7 46 53 24 28 5A 29 B2 |F2$.."0".FS$(Z).|
00000430: 46 31 24 AA CA 28 5A 24 2C 4F 2C 31 29 AA 46 32 |F1$..(Z$,O,1).F2|
00000440: 24 3A 8E 00 5E 0C 68 01 8B 46 31 24 B3 B1 22 30 |$:..^.h..F1$.."0|
00000450: 22 A7 46 53 24 28 5A 29 B2 46 31 24 3A 8E 00 85 |".FS$(Z).F1$:...|
00000460: 0C 72 01 8B 46 32 24 B3 B1 22 30 22 A7 46 53 24 |.r..F2$.."0".FS$|
00000470: 28 5A 29 B2 CA 28 5A 24 2C 32 2C 4F AB 31 29 AA |(Z)..(Z$,2,O.1).|
00000480: 46 32 24 3A 8E 00 96 0C 7C 01 46 53 24 28 5A 29 |F2$:....|.FS$(Z)|
00000490: B2 22 30 22 3A 8E 00 D3 0C 86 01 8F 20 46 3D 55 |."0":....... F=U|
000004A0: 2A 56 20 42 5A 57 2E 46 3D 55 2F 56 20 2C 20 46 |*V BZW.F=U/V , F|
000004B0: 27 3D 55 27 2A 56 2B 55 2A 56 27 20 42 5A 57 2E |'=U'*V+U*V' BZW.|
000004C0: 20 46 27 3D 28 55 27 2A 56 2D 55 2A 56 27 29 2F | F'=(U'*V-U*V')/|
000004D0: 56 5E 32 00 F1 0C 90 01 8B 46 31 24 B2 22 30 22 |V^2......F1$."0"|
000004E0: A7 54 B2 30 3A 46 53 24 B2 46 31 24 3A 89 34 34 |.T.0:FS$.F1$:.44|
000004F0: 30 00 F9 0C 9A 01 54 B2 31 00 13 0D A4 01 8B 46 |0.....T.1......F|
00000500: 31 24 B2 22 31 22 A7 46 53 24 B2 46 56 24 3A 89 |1$."1".FS$.FV$:.|
00000510: 34 34 30 00 38 0D A9 01 53 24 B2 46 31 24 3A 8D |440.8...S$.F1$:.|
00000520: 32 30 30 30 3A 8B 4F B3 33 A7 46 31 24 B2 22 28 |2000:.O.3.F1$."(|
00000530: 22 AA 46 31 24 AA 22 29 00 65 0D AC 01 46 46 24 |".F1$.").e...FF$|
00000540: B2 46 56 24 3A 53 24 B2 46 46 24 3A 8D 32 30 30 |.FV$:S$.FF$:.200|
00000550: 30 3A 8B 4F B3 33 A7 46 46 24 B2 22 28 22 AA 46 |0:.O.3.FF$."(".F|
00000560: 46 24 AA 22 29 00 7E 0D AE 01 46 53 24 B2 46 31 |F$.").~...FS$.F1|
00000570: 24 AA 22 2A 22 AA 46 46 24 3A 89 34 34 30 00 8F |$."*".FF$:.440..|
00000580: 0D B8 01 8B 46 32 24 B2 22 30 22 A7 34 38 30 00 |....F2$."0".480.|
00000590: BC 0D BD 01 46 46 24 B2 46 31 24 3A 53 24 B2 46 |....FF$.F1$:S$.F|
000005A0: 31 24 3A 8D 32 30 30 30 3A 8B 4F B3 33 A7 46 46 |1$:.2000:.O.3.FF|
000005B0: 24 B2 22 28 22 AA 46 46 24 AA 22 29 00 F7 0D C2 |$."(".FF$.")....|
000005C0: 01 54 B2 54 AA 31 3A 46 53 24 B2 CA 28 46 53 24 |.T.T.1:FS$..(FS$|
000005D0: 2C 31 AB 28 54 B2 31 29 29 AA CA 28 5A 24 2C 4F |,1.(T.1))..(Z$,O|
000005E0: 28 5A 29 AB 32 2C 31 AA 28 28 54 B2 31 29 AF 4F |(Z).2,1.((T.1).O|
000005F0: 28 5A 29 B2 33 29 29 00 15 0E CC 01 8B 46 32 24 |(Z).3))......F2$|
00000600: B2 22 31 22 A7 46 53 24 B2 46 53 24 AA 46 55 24 |."1".FS$.FS$.FU$|
00000610: 3A 89 34 38 30 00 3A 0E D1 01 53 24 B2 46 55 24 |:.480.:...S$.FU$|
00000620: 3A 8D 32 30 30 30 3A 8B 4F B3 33 A7 46 55 24 B2 |:.2000:.O.3.FU$.|
00000630: 22 28 22 AA 46 55 24 AA 22 29 00 5F 0E D6 01 53 |"(".FU$.")._...S|
00000640: 24 B2 46 32 24 3A 8D 32 30 30 30 3A 8B 4F B3 33 |$.F2$:.2000:.O.3|
00000650: A7 46 32 24 B2 22 28 22 AA 46 32 24 AA 22 29 00 |.F2$."(".F2$.").|
00000660: 77 0E DB 01 46 53 24 B2 46 53 24 AA 46 55 24 AA |w...FS$.FS$.FU$.|
00000670: 22 2A 22 AA 46 32 24 00 8F 0E E0 01 8B 46 53 24 |"*".F2$......FS$|
00000680: B2 22 30 22 B0 4F 28 5A 29 B2 33 A7 35 31 30 00 |."0".O(Z).3.510.|
00000690: A7 0E EA 01 8B 54 B2 32 A7 46 53 24 B2 22 28 22 |.....T.2.FS$."("|
000006A0: AA 46 53 24 AA 22 29 00 CC 0E EF 01 53 24 B2 46 |.FS$.").....S$.F|
000006B0: 56 24 3A 8D 32 30 30 30 3A 8B 4F B3 33 A7 46 56 |V$:.2000:.O.3.FV|
000006C0: 24 B2 22 28 22 AA 46 56 24 AA 22 29 00 E4 0E F4 |$."(".FV$.")....|
000006D0: 01 46 53 24 B2 46 53 24 AA 22 2F 22 AA 46 56 24 |.FS$.FS$."/".FV$|
000006E0: AA 22 5E 32 00 F3 0E FE 01 46 53 24 28 5A 29 B2 |."^2.....FS$(Z).|
000006F0: 46 53 24 00 F9 0E 08 02 8E 00 35 0F 12 02 8F 20 |FS$.......5.... |
00000700: 46 3D 55 5E 56 20 2C 20 46 27 3D 56 2A 55 27 2A |F=U^V , F'=V*U'*|
00000710: 55 5E 28 56 2D 31 29 20 42 5A 57 2E 20 46 27 3D |U^(V-1) BZW. F'=|
00000720: 55 5E 56 2A 28 55 27 2F 55 2A 56 2B 4C 4E 28 55 |U^V*(U'/U*V+LN(U|
00000730: 29 2A 56 27 29 00 47 0F 1C 02 8B 46 32 24 B3 B1 |)*V').G....F2$..|
00000740: 22 30 22 A7 36 31 30 00 61 0F 26 02 8B 46 31 24 |"0".610.a.&..F1$|
00000750: B2 22 30 22 A7 46 53 24 28 5A 29 B2 46 31 24 3A |."0".FS$(Z).F1$:|
00000760: 8E 00 7A 0F 30 02 8B 46 31 24 B2 22 31 22 A7 46 |..z.0..F1$."1".F|
00000770: 53 24 B2 22 22 3A 89 35 39 30 00 9F 0F 3A 02 53 |S$."":.590...:.S|
00000780: 24 B2 46 31 24 3A 8D 32 30 30 30 3A 8B 4F B3 33 |$.F1$:.2000:.O.3|
00000790: A7 46 31 24 B2 22 28 22 AA 46 31 24 AA 22 29 00 |.F1$."(".F1$.").|
000007A0: AE 0F 44 02 46 53 24 B2 46 31 24 AA 22 2A 00 CC |..D.FS$.F1$."*..|
000007B0: 0F 4E 02 8B 46 56 24 B3 B1 22 31 22 A7 46 53 24 |.N..FV$.."1".FS$|
000007C0: B2 46 56 24 AA 22 2A 22 AA 46 53 24 00 EB 0F 53 |.FV$."*".FS$...S|
000007D0: 02 8B C8 28 46 56 24 2C 31 29 B2 22 28 22 A7 46 |...(FV$,1)."(".F|
000007E0: 56 24 B2 CA 28 46 56 24 2C 32 29 00 FF 0F 54 02 |V$..(FV$,2)...T.|
000007F0: 46 32 24 B2 C4 28 C5 28 46 56 24 29 AB 31 29 00 |F2$..(.(FV$).1).|
00000800: 23 10 55 02 8B C8 28 46 32 24 2C 31 29 B2 22 20 |#.U...(F2$,1)." |
00000810: 22 A7 46 32 24 B2 CA 28 46 32 24 2C 32 29 3A 89 |".F2$..(F2$,2):.|
00000820: 35 39 39 00 36 10 56 02 46 32 24 B2 22 28 22 AA |599.6.V.F2$."(".|
00000830: 46 32 24 AA 22 29 00 54 10 57 02 8B 46 32 24 B2 |F2$.").T.W..F2$.|
00000840: 22 31 22 A7 46 53 24 28 5A 29 B2 46 53 24 AA 46 |"1".FS$(Z).FS$.F|
00000850: 55 24 3A 8E 00 72 10 58 02 8B 46 32 24 B2 22 30 |U$:..r.X..F2$."0|
00000860: 22 A7 46 53 24 28 5A 29 B2 46 53 24 AA 22 31 22 |".FS$(Z).FS$."1"|
00000870: 3A 8E 00 8F 10 5D 02 46 53 24 28 5A 29 B2 46 53 |:....].FS$(Z).FS|
00000880: 24 AA 46 55 24 AA 22 5E 22 AA 46 32 24 3A 8E 00 |$.FU$."^".F2$:..|
00000890: 9B 10 62 02 46 46 24 B2 46 55 24 00 C0 10 6C 02 |..b.FF$.FU$...l.|
000008A0: 53 24 B2 46 46 24 3A 8D 32 30 30 30 3A 8B 4F B3 |S$.FF$:.2000:.O.|
000008B0: 33 A7 46 46 24 B2 22 28 22 AA 46 46 24 AA 22 29 |3.FF$."(".FF$.")|
000008C0: 00 E5 10 76 02 53 24 B2 46 31 24 3A 8D 32 30 30 |...v.S$.F1$:.200|
000008D0: 30 3A 8B 4F B3 33 A7 46 31 24 B2 22 28 22 AA 46 |0:.O.3.F1$."(".F|
000008E0: 31 24 AA 22 29 00 0A 11 80 02 53 24 B2 46 56 24 |1$.").....S$.FV$|
000008F0: 3A 8D 32 30 30 30 3A 8B 4F B3 33 A7 46 56 24 B2 |:.2000:.O.3.FV$.|
00000900: 22 28 22 AA 46 56 24 AA 22 29 00 2F 11 8A 02 53 |"(".FV$.")./...S|
00000910: 24 B2 46 32 24 3A 8D 32 30 30 30 3A 8B 4F B3 33 |$.F2$:.2000:.O.3|
00000920: A7 46 32 24 B2 22 28 22 AA 46 32 24 AA 22 29 00 |.F2$."(".F2$.").|
00000930: 6B 11 94 02 46 53 24 B2 46 24 28 5A 29 AA 22 2A |k...FS$.F$(Z)."*|
00000940: 28 22 3A 8B 46 31 24 B3 B1 22 30 22 A7 46 53 24 |(":.F1$.."0".FS$|
00000950: B2 46 53 24 AA 46 31 24 AA 22 2F 22 AA 46 46 24 |.FS$.F1$."/".FF$|
00000960: AA 22 2A 22 AA 46 56 24 AA 22 2B 00 84 11 99 02 |."*".FV$."+.....|
00000970: 46 53 24 B2 46 53 24 AA 22 4C 4E 28 22 AA 46 55 |FS$.FS$."LN(".FU|
00000980: 24 AA 22 29 00 A2 11 9E 02 8B 46 32 24 B2 22 31 |$.")......F2$."1|
00000990: 22 A7 46 53 24 28 5A 29 B2 46 53 24 AA 22 29 22 |".FS$(Z).FS$.")"|
000009A0: 3A 8E 00 BF 11 A8 02 46 53 24 28 5A 29 B2 46 53 |:......FS$(Z).FS|
000009B0: 24 AA 22 2A 22 AA 46 32 24 AA 22 29 22 3A 8E 00 |$."*".F2$.")":..|
000009C0: E3 11 B2 02 8F 20 46 3D 46 28 55 29 20 2C 20 53 |..... F=F(U) , S|
000009D0: 55 43 48 45 20 46 55 4E 4B 54 49 4F 4E 53 4E 41 |UCHE FUNKTIONSNA|
000009E0: 4D 45 4E 00 EF 11 BC 02 81 49 B2 31 A4 46 5A 00 |MEN......I.1.FZ.|
000009F0: 0D 12 C6 02 8B C8 28 46 24 2C 4C 28 49 29 29 B3 |......(F$,L(I)).|
00000A00: B1 58 24 28 49 29 A7 82 3A 89 39 31 30 00 30 12 |.X$(I)..:.910.0.|
00000A10: D0 02 49 49 B2 49 3A 49 B2 46 5A 3A 82 3A 8B C9 |..II.I:I.FZ:.:..|
00000A20: 28 46 24 2C 31 29 B3 B1 22 29 22 A7 31 30 30 30 |(F$,1)..")".1000|
00000A30: 00 42 12 DA 02 8F 20 42 45 52 45 43 48 4E 45 20 |.B.... BERECHNE |
00000A40: 55 27 00 4E 12 DF 02 4F 28 5A 29 B2 49 49 00 81 |U'.N...O(Z).II..|
00000A50: 12 E4 02 5A B2 5A AA 31 3A 46 24 28 5A 29 B2 CA |...Z.Z.1:F$(Z)..|
00000A60: 28 46 24 2C 4C 28 49 49 29 AA 31 2C 4C AB 4C 28 |(F$,L(II).1,L.L(|
00000A70: 49 49 29 AB 31 29 3A 8D 31 37 30 3A 5A B2 5A AB |II).1):.170:Z.Z.|
00000A80: 31 00 A7 12 EE 02 46 24 B2 46 24 28 5A 29 3A 46 |1.....F$.F$(Z):F|
00000A90: 55 24 B2 46 24 28 5A AA 31 29 3A 46 31 24 B2 46 |U$.F$(Z.1):F1$.F|
00000AA0: 53 24 28 5A AA 31 29 00 C1 12 F8 02 8B 46 31 24 |S$(Z.1)......F1$|
00000AB0: B2 22 30 22 A7 46 53 24 28 5A 29 B2 22 30 22 3A |."0".FS$(Z)."0":|
00000AC0: 8E 00 E6 12 02 03 53 24 B2 46 31 24 3A 8D 32 30 |......S$.F1$:.20|
00000AD0: 30 30 3A 8B 4F B3 33 A7 46 31 24 B2 22 28 22 AA |00:.O.3.F1$."(".|
00000AE0: 46 31 24 AA 22 29 00 FB 12 16 03 4F B2 4F 28 5A |F1$.").....O.O(Z|
00000AF0: 29 3A 8B 4F B1 31 30 A7 38 35 30 00 0C 13 20 03 |):.O.10.850... .|
00000B00: 8F 20 46 27 3D 55 27 2A 47 28 55 29 00 3D 13 2A |. F'=U'*G(U).=.*|
00000B10: 03 46 53 24 B2 58 53 24 28 4F 29 AA 46 55 24 AA |.FS$.XS$(O).FU$.|
00000B20: 22 29 22 3A 8B 46 31 24 B3 B1 22 31 22 A7 46 53 |")":.F1$.."1".FS|
00000B30: 24 B2 46 31 24 AA 22 2A 22 AA 46 53 24 00 53 13 |$.F1$."*".FS$.S.|
00000B40: 34 03 8B 4F B1 36 A7 46 53 24 B2 46 53 24 AA 22 |4..O.6.FS$.FS$."|
00000B50: 5E 32 29 00 64 13 3E 03 46 53 24 28 5A 29 B2 46 |^2).d.>.FS$(Z).F|
00000B60: 53 24 3A 8E 00 75 13 48 03 8F 20 46 27 3D 55 27 |S$:..u.H.. F'=U'|
00000B70: 2F 47 28 55 29 00 9C 13 52 03 46 53 24 B2 58 53 |/G(U)...R.FS$.XS|
00000B80: 24 28 4F 29 AA 46 55 24 AA 22 29 22 3A 46 53 24 |$(O).FU$.")":FS$|
00000B90: B2 46 31 24 AA 22 2F 22 AA 46 53 24 00 B4 13 5C |.F1$."/".FS$...\|
00000BA0: 03 8B 4F B3 B1 31 39 A7 46 53 24 B2 46 53 24 AA |..O..19.FS$.FS$.|
00000BB0: 22 5E 32 29 00 C5 13 66 03 46 53 24 28 5A 29 B2 |"^2)...f.FS$(Z).|
00000BC0: 46 53 24 3A 8E 00 F9 13 84 03 8F 20 42 45 48 41 |FS$:....... BEHA|
00000BD0: 4E 44 4C 45 20 4B 4C 41 4D 4D 45 52 41 55 53 44 |NDLE KLAMMERAUSD|
00000BE0: 52 55 45 43 4B 45 20 2C 20 58 20 55 4E 44 20 4B |RUECKE , X UND K|
00000BF0: 4F 4E 53 54 41 4E 54 45 4E 00 1C 14 8E 03 8B C8 |ONSTANTEN.......|
00000C00: 28 46 24 2C 31 29 B3 B1 22 28 22 B0 C9 28 46 24 |(F$,1).."("..(F$|
00000C10: 2C 31 29 B3 B1 22 29 22 A7 39 33 30 00 49 14 93 |,1)..")".930.I..|
00000C20: 03 53 24 B2 CA 28 46 24 2C 32 2C C3 28 46 24 29 |.S$..(F$,2,.(F$)|
00000C30: AB 32 29 3A 8D 33 30 30 30 3A 8B 4E A7 46 53 24 |.2):.3000:.N.FS$|
00000C40: 28 5A 29 B2 22 30 22 3A 8E 00 68 14 98 03 46 24 |(Z)."0":..h...F$|
00000C50: 28 5A 29 B2 CA 28 46 24 2C 32 2C C3 28 46 24 29 |(Z)..(F$,2,.(F$)|
00000C60: AB 32 29 3A 89 31 37 30 00 81 14 A2 03 8B 46 24 |.2):.170......F$|
00000C70: B2 22 58 22 A7 46 53 24 28 5A 29 B2 22 31 22 3A |."X".FS$(Z)."1":|
00000C80: 8E 00 92 14 AC 03 46 53 24 28 5A 29 B2 22 30 22 |......FS$(Z)."0"|
00000C90: 3A 8E 00 BF 14 E8 03 99 22 3F 53 59 4E 54 41 58 |:......."?SYNTAX|
00000CA0: 20 45 52 52 4F 52 20 49 4E 20 46 4F 52 4D 55 4C | ERROR IN FORMUL|
00000CB0: 41 20 3A 22 3A 99 22 12 22 46 24 3A 89 36 30 00 |A :":."."F$:.60.|
00000CC0: F4 14 D0 07 8F 20 53 55 43 48 45 20 52 45 43 48 |..... SUCHE RECH|
00000CD0: 45 4E 5A 45 49 43 48 45 4E 20 4D 49 54 20 4E 49 |ENZEICHEN MIT NI|
00000CE0: 45 44 52 49 47 53 54 45 52 20 50 52 49 4F 52 49 |EDRIGSTER PRIORI|
00000CF0: 54 41 45 54 00 12 15 D1 07 8F 20 45 49 4E 47 41 |TAET...... EINGA|
00000D00: 42 45 20 3A 20 53 24 20 53 55 43 48 53 54 52 49 |BE : S$ SUCHSTRI|
00000D10: 4E 47 00 43 15 D2 07 8F 20 41 55 53 47 41 42 45 |NG.C.... AUSGABE|
00000D20: 20 3A 20 50 20 49 4E 44 45 58 20 44 45 53 20 52 | : P INDEX DES R|
00000D30: 45 43 48 45 4E 5A 45 49 43 48 45 4E 53 20 49 4E |ECHENZEICHENS IN|
00000D40: 20 53 24 00 6C 15 D3 07 8F 20 20 20 20 20 20 20 | S$.l.... |
00000D50: 20 20 20 20 4F 20 41 52 54 20 44 45 53 20 52 45 | O ART DES RE|
00000D60: 43 48 45 4E 5A 45 49 43 48 45 4E 53 00 91 15 D4 |CHENZEICHENS....|
00000D70: 07 8F 20 20 20 20 20 20 20 20 20 20 20 4C 20 4C |.. L L|
00000D80: 41 45 4E 47 45 20 44 45 53 20 53 54 52 49 4E 47 |AENGE DES STRING|
00000D90: 53 00 AA 15 DA 07 4C B2 C3 28 53 24 29 3A 50 B2 |S.....L..(S$):P.|
00000DA0: 30 3A 4F B2 36 3A 4B 4C B2 30 00 B5 15 EE 07 81 |0:O.6:KL.0......|
00000DB0: 49 B2 31 A4 4C 00 C6 15 F8 07 4B 24 B2 CA 28 53 |I.1.L.....K$..(S|
00000DC0: 24 2C 49 2C 31 29 00 E8 15 02 08 4B 4C B2 4B 4C |$,I,1).....KL.KL|
00000DD0: AA 28 4B 24 B2 22 29 22 29 3A 4B 4C B2 4B 4C AB |.(K$.")"):KL.KL.|
00000DE0: 28 4B 24 B2 22 28 22 29 00 17 16 0C 08 8B 4B 4C |(K$."(")......KL|
00000DF0: B3 B1 30 A7 32 31 30 30 3A 8F 20 4B 4C 41 4D 4D |..0.2100:. KLAMM|
00000E00: 45 52 41 55 53 44 52 55 45 43 4B 45 20 55 45 42 |ERAUSDRUECKE UEB|
00000E10: 45 52 4C 45 53 45 4E 00 3B 16 16 08 8B 4B 24 B2 |ERLESEN.;....K$.|
00000E20: 22 2B 22 B0 4B 24 B2 22 2D 22 A7 50 B2 49 3A 4F |"+".K$."-".P.I:O|
00000E30: B2 31 AB 28 4B 24 B2 22 2D 22 29 00 64 16 20 08 |.1.(K$."-").d. .|
00000E40: 8B 4B 24 B2 22 2A 22 B0 4B 24 B2 22 2F 22 A7 8B |.K$."*".K$."/"..|
00000E50: 4F B1 32 A7 50 B2 49 3A 4F B2 33 AB 28 4B 24 B2 |O.2.P.I:O.3.(K$.|
00000E60: 22 2F 22 29 00 7D 16 2A 08 8B 4B 24 B2 22 5E 22 |"/").}.*..K$."^"|
00000E70: A7 8B 4F B1 34 A7 50 B2 49 3A 4F B2 35 00 83 16 |..O.4.P.I:O.5...|
00000E80: 34 08 82 00 AF 16 3E 08 8B 4B 4C A7 31 30 30 30 |4.....>..KL.1000|
00000E90: 3A 8F 20 5A 41 48 4C 20 44 45 52 20 27 28 27 20 |:. ZAHL DER '(' |
00000EA0: 3C 3E 20 5A 41 48 4C 20 44 45 52 20 27 29 27 00 |<> ZAHL DER ')'.|
00000EB0: B5 16 52 08 8E 00 D9 16 B8 0B 8F 20 54 45 53 54 |..R........ TEST|
00000EC0: 45 20 2C 20 4F 42 20 54 45 52 4D 20 45 49 4E 45 |E , OB TERM EINE|
00000ED0: 20 5A 41 48 4C 20 49 53 54 00 F1 16 C2 0B 8F 20 | ZAHL IST...... |
00000EE0: 45 49 4E 47 41 42 45 20 3A 20 53 24 20 54 45 52 |EINGABE : S$ TER|
00000EF0: 4D 00 38 17 CC 0B 8F 20 41 55 53 47 41 42 45 20 |M.8.... AUSGABE |
00000F00: 3A 20 4E 20 20 2D 31 20 46 55 45 52 20 5A 41 48 |: N -1 FUER ZAH|
00000F10: 4C 45 4E 20 2C 20 30 20 46 55 45 52 20 5A 55 53 |LEN , 0 FUER ZUS|
00000F20: 41 4D 4D 45 4E 47 45 53 45 54 5A 54 45 20 41 55 |AMMENGESETZTE AU|
00000F30: 53 44 52 55 45 43 4B 45 00 47 17 D6 0B 81 49 B2 |SDRUECKE.G....I.|
00000F40: 31 A4 C3 28 53 24 29 00 58 17 E0 0B 4B 24 B2 CA |1..(S$).X...K$..|
00000F50: 28 53 24 2C 49 2C 31 29 00 74 17 EA 0B 8B 4B 24 |(S$,I,1).t....K$|
00000F60: B1 22 2F 22 A7 8B 4B 24 B3 22 3A 22 A7 82 3A 4E |."/"..K$.":"..:N|
00000F70: B2 31 3A 8E 00 88 17 F4 0B 8B 4B 24 B2 22 2D 22 |.1:.......K$."-"|
00000F80: A7 82 3A 4E B2 31 3A 8E 00 92 17 FE 0B 4E B2 30 |..:N.1:......N.0|
00000F90: 3A 8E 00 AC 17 A0 0F 8F 20 45 52 4C 41 55 42 54 |:....... ERLAUBT|
00000FA0: 45 20 46 55 4E 4B 54 49 4F 4E 45 4E 00 B4 17 AA |E FUNKTIONEN....|
00000FB0: 0F 83 31 39 00 C4 17 B4 0F 83 20 53 49 4E 28 2C |..19...... SIN(,|
00000FC0: 43 4F 53 28 00 D9 17 BE 0F 83 20 43 4F 53 28 2C |COS(...... COS(,|
00000FD0: 28 2D 31 29 2A 53 49 4E 28 00 EB 17 C8 0F 83 20 |(-1)*SIN(...... |
00000FE0: 53 49 4E 48 28 2C 43 4F 53 48 28 00 02 18 D2 0F |SINH(,COSH(.....|
00000FF0: 83 20 43 4F 53 48 28 2C 28 2D 31 29 2A 53 49 4E |. COSH(,(-1)*SIN|
00001000: 48 28 00 12 18 DC 0F 83 20 45 58 50 28 2C 45 58 |H(...... EXP(,EX|
00001010: 50 28 00 25 18 E6 0F 83 20 53 51 52 28 2C 2E 35 |P(.%.... SQR(,.5|
00001020: 2F 53 51 52 28 00 38 18 F0 0F 83 20 54 41 4E 28 |/SQR(.8.... TAN(|
00001030: 2C 28 31 2B 54 41 4E 28 00 50 18 FA 0F 83 20 43 |,(1+TAN(.P.... C|
00001040: 4F 54 28 2C 28 2D 31 29 2A 28 31 2B 43 4F 54 28 |OT(,(-1)*(1+COT(|
00001050: 00 65 18 04 10 83 20 54 41 4E 48 28 2C 28 31 2D |.e.... TANH(,(1-|
00001060: 54 41 4E 48 28 00 7F 18 0E 10 83 20 43 4F 54 48 |TANH(...... COTH|
00001070: 28 2C 28 2D 31 29 2A 28 31 2D 43 4F 54 48 28 00 |(,(-1)*(1-COTH(.|
00001080: 95 18 18 10 83 20 41 52 43 53 49 4E 28 2C 53 51 |..... ARCSIN(,SQ|
00001090: 52 28 31 2D 28 00 B0 18 22 10 83 20 41 52 43 43 |R(1-(...".. ARCC|
000010A0: 4F 53 28 2C 28 2D 31 29 2F 53 51 52 28 31 2D 28 |OS(,(-1)/SQR(1-(|
000010B0: 00 C3 18 2C 10 83 20 41 52 43 54 41 4E 28 2C 28 |...,.. ARCTAN(,(|
000010C0: 31 2B 28 00 DB 18 36 10 83 20 41 52 43 43 4F 54 |1+(...6.. ARCCOT|
000010D0: 28 2C 28 2D 31 29 2F 28 31 2B 28 00 F1 18 40 10 |(,(-1)/(1+(...@.|
000010E0: 83 20 41 52 53 49 4E 48 28 2C 53 51 52 28 31 2B |. ARSINH(,SQR(1+|
000010F0: 28 00 09 19 4A 10 83 20 41 52 43 4F 53 48 28 2C |(...J.. ARCOSH(,|
00001100: 28 2D 31 29 2F 28 31 2B 28 00 1C 19 54 10 83 20 |(-1)/(1+(...T.. |
00001110: 41 52 54 41 4E 48 28 2C 28 31 2D 28 00 2F 19 5E |ARTANH(,(1-(./.^|
00001120: 10 83 20 41 52 43 4F 54 48 28 2C 28 31 2D 28 00 |.. ARCOTH(,(1-(.|
00001130: 3B 19 68 10 83 20 4C 4E 28 2C 28 00 00 00 |;.h.. LN(,(... |
..;.... PROGRAMM ABLEITUNG ( EINGABE:F(X
) , AUSGABE:F'(X) ).`.... 6.2.1982 B
Y THOMAS GAWLICK...... VERSION 8.2.1982
PUBLIC DOMAIN......53280,0:.53281,0.O. .
."... DIFFERENTIATIONSPROGRAMM
."...#.."DRUCKER N...";A$:.4,4.(A
$."N"). .(.M.16:. HOECHSTE VERSCHACHTELU
NGSTIEFE.V.2..F$(M),FS$(M),FU$(M),FV$(M)
,F1$(M),O(M):Z$."+-*/^.T.3..FZ:.X$(FZ),X
S$(FZ),L(FZ)...4..I.1.FZ...5..X$(I),XS$(
I)...6.L(I).C(X$(I))...7.....<.Z.0.I.A..
".GIB F(X) EIN :..T.F..F$(0)...P..170...
Z..4,"F(X) ="F$(0)..._..4,"F'(X)="FS$(0)
...D..4:.60.2.N.. ABLEITUNGS-UNTERPROGRA
MM.Z.X.. EINGABE : Z VERSCHACHTELUNGSTIE
FE.O.... F$(Z) FUNKTION...... FS$(Z) ABL
EITUNG...........F$.F$(Z).....S$.F$:.201
0...H..P.1.P.L.1000:. ZEICHEN AM ANFANG
BZW. ENDE UNZULAESSIG......P.0.700......
F=U#V , BERECHNE U' UND V'.@.".O(Z).O:F
U$(Z).H(F$,P.1):FV$(Z).J(F$,P.1).N.,.Z.Z
.1:F$(Z).FU$(Z.1):.170:F1$(Z.1).FS$(Z)..
.6.F$(Z).FV$(Z.1):.170:Z.Z.1.E.@.FU$.FU$
(Z):FV$.FV$(Z):F1$.F1$(Z):F2$.FS$(Z.1):O
.O(Z)...J..O.350,350,400,400,540...T.. F
=U+V BZW. F=U-V , F'=U'+V' BZW. F'=U'-V'
.C.^..F1$.."0"..F2$.."0".FS$(Z).F1$.J(Z$
,O,1).F2$:..^.H..F1$.."0".FS$(Z).F1$:...
.R..F2$.."0".FS$(Z).J(Z$,2,O.1).F2$:....
|.FS$(Z)."0":..S.... F=U*V BZW.F=U/V , F
'=U'*V+U*V' BZW. F'=(U'*V-U*V')/V^2.....
.F1$."0".T.0:FS$.F1$:.440.....T.1......F
1$."1".FS$.FV$:.440.8...S$.F1$:.2000:.O.
3.F1$."(".F1$.").E...FF$.FV$:S$.FF$:.200
0:.O.3.FF$."(".FF$.").~...FS$.F1$."*".FF
$:.440......F2$."0".480.....FF$.F1$:S$.F
1$:.2000:.O.3.FF$."(".FF$.")...B.T.T.1:F
S$.J(FS$,1.(T.1)).J(Z$,O(Z).2,1.((T.1).O
(Z).3))...L..F2$."1".FS$.FS$.FU$:.480.:.
Q.S$.FU$:.2000:.O.3.FU$."(".FU$.")._.V.S
$.F2$:.2000:.O.3.F2$."(".F2$.").W...FS$.
FS$.FU$."*".F2$......FS$."0".O(Z).3.510.
.....T.2.FS$."(".FS$.").L...S$.FV$:.2000
:.O.3.FV$."(".FV$.").....FS$.FS$."/".FV$
."^2.....FS$(Z).FS$.......5.... F=U^V ,
F'=V*U'*U^(V-1) BZW. F'=U^V*(U'/U*V+LN(U
)*V').G....F2$.."0".610.A.&..F1$."0".FS$
(Z).F1$:..Z.0..F1$."1".FS$."":.590...:.S
$.F1$:.2000:.O.3.F1$."(".F1$.")...D.FS$.
F1$."*.L.N..FV$.."1".FS$.FV$."*".FS$...S
..H(FV$,1)."(".FV$.J(FV$,2)...T.F2$.D(E(
FV$).1).#.U..H(F2$,1)." ".F2$.J(F2$,2):.
599.6.V.F2$."(".F2$.").T.W..F2$."1".FS$(
Z).FS$.FU$:..R.X..F2$."0".FS$(Z).FS$."1"
:....].FS$(Z).FS$.FU$."^".F2$:....B.FF$.
FU$...L.S$.FF$:.2000:.O.3.FF$."(".FF$.")
...V.S$.F1$:.2000:.O.3.F1$."(".F1$.")...
..S$.FV$:.2000:.O.3.FV$."(".FV$.")./...S
$.F2$:.2000:.O.3.F2$."(".F2$.").K...FS$.
F$(Z)."*(":.F1$.."0".FS$.FS$.F1$."/".FF$
."*".FV$."+.....FS$.FS$."LN(".FU$.")....
..F2$."1".FS$(Z).FS$.")":......FS$(Z).FS
$."*".F2$.")":....... F=F(U) , SUCHE FUN
KTIONSNAMEN......I.1.FZ...F..H(F$,L(I)).
.X$(I)..:.910.0.P.II.I:I.FZ:.:.I(F$,1)..
")".1000.B.Z.. BERECHNE U'.N...O(Z).II..
...Z.Z.1:F$(Z).J(F$,L(II).1,L.L(II).1):.
170:Z.Z.1.....F$.F$(Z):FU$.F$(Z.1):F1$.F
S$(Z.1).A....F1$."0".FS$(Z)."0":......S$
.F1$:.2000:.O.3.F1$."(".F1$.").....O.O(Z
):.O.10.850... .. F'=U'*G(U).=.*.FS$.XS$
(O).FU$.")":.F1$.."1".FS$.F1$."*".FS$.S.
4..O.6.FS$.FS$."^2).D.>.FS$(Z).FS$:..U.H
.. F'=U'/G(U)...R.FS$.XS$(O).FU$.")":FS$
.F1$."/".FS$...\..O..19.FS$.FS$."^2).E.F
.FS$(Z).FS$:....... BEHANDLE KLAMMERAUSD
RUECKE , X UND KONSTANTEN......H(F$,1)..
"(".I(F$,1)..")".930.I...S$.J(F$,2,C(F$)
.2):.3000:.N.FS$(Z)."0":..H...F$(Z).J(F$
,2,C(F$).2):.170......F$."X".FS$(Z)."1":
......FS$(Z)."0":......."?SYNTAX ERROR I
N FORMULA :":."."F$:.60...P.. SUCHE RECH
ENZEICHEN MIT NIEDRIGSTER PRIORITAET...Q
.. EINGABE : S$ SUCHSTRING.C.R.. AUSGABE
: P INDEX DES RECHENZEICHENS IN S$.L.S.
. O ART DES RECHENZEICHENS...T
.. L LAENGE DES STRINGS...Z.L.
C(S$):P.0:O.6:KL.0......I.1.L.F...K$.J(S
$,I,1).....KL.KL.(K$.")"):KL.KL.(K$."(")
......KL..0.2100:. KLAMMERAUSDRUECKE UEB
ERLESEN.;....K$."+".K$."-".P.I:O.1.(K$."
-").D. ..K$."*".K$."/"..O.2.P.I:O.3.(K$.
"/").}.*..K$."^"..O.4.P.I:O.5...4.....>.
.KL.1000:. ZAHL DER '(' <> ZAHL DER ')'.
..R...Y.... TESTE , OB TERM EINE ZAHL IS
T...B.. EINGABE : S$ TERM.8.L.. AUSGABE
: N -1 FUER ZAHLEN , 0 FUER ZUSAMMENGES
ETZTE AUSDRUECKE.G.V..I.1.C(S$).X...K$.J
(S$,I,1).T....K$."/"..K$.":"..:N.1:.....
..K$."-"..:N.1:......N.0:.... .. ERLAUBT
E FUNKTIONEN......19.D.... SIN(,COS(.Y..
.. COS(,(-1)*SIN(...H.. SINH(,COSH(...R.
. COSH(,(-1)*SINH(...... EXP(,EXP(.%....
SQR(,.5/SQR(.8.... TAN(,(1+TAN(.P.... C
OT(,(-1)*(1+COT(.E.... TANH(,(1-TANH(..
... COTH(,(-1)*(1-COTH(...... ARCSIN(,SQ
R(1-(...".. ARCCOS(,(-1)/SQR(1-(.C.,.. A
RCTAN(,(1+(...6.. ARCCOT(,(-1)/(1+(...@.
. ARSINH(,SQR(1+(...J.. ARCOSH(,(-1)/(1+
(...T.. ARTANH(,(1-(./.^.. ARCOTH(,(1-(.
;.H.. LN(,(...
> CLICK IMAGE PREVIEW FOR FULL MODAL