XY CURVE FITTING
FILE INFORMATION
FILENAME(S): XY CURVE FITTING
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:23:50
APPEARS ON: 1 disk(s)
FILE HASH
170c3d9969d62538a0c08bafaa4711f793d5c93245326fb19397819ac4ae4936
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 21 2 | XY CURVE FITTING | PRG | DuncanTwain | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 36 08 0A 00 99 22 93 22 3A 99 22 11 11 11 |..6....".":."...|
00000010: 20 20 20 2A 2A 2A 43 55 52 56 45 20 46 49 54 54 | ***CURVE FITT|
00000020: 49 4E 47 20 50 4F 53 2E 20 44 41 54 41 50 41 52 |ING POS. DATAPAR|
00000030: 45 4E 2A 2A 2A 22 00 5D 08 14 00 41 24 28 31 29 |EN***".]...A$(1)|
00000040: B2 22 23 31 20 4C 49 4E 49 41 49 52 20 20 20 20 |."#1 LINIAIR |
00000050: 20 20 20 20 20 59 3D 42 2A 58 2B 41 22 00 89 08 | Y=B*X+A"...|
00000060: 1E 00 41 24 28 32 29 B2 22 23 32 20 45 58 50 4F |..A$(2)."#2 EXPO|
00000070: 4E 45 4E 54 49 45 45 4C 20 20 20 20 59 3D 41 2A |NENTIEEL Y=A*|
00000080: 45 58 50 28 42 2A 58 29 22 00 B5 08 28 00 41 24 |EXP(B*X)"...(.A$|
00000090: 28 33 29 B2 22 23 33 20 45 58 50 4F 4E 45 4E 54 |(3)."#3 EXPONENT|
000000A0: 49 45 45 4C 20 20 20 20 59 3D 41 2A 45 58 50 28 |IEEL Y=A*EXP(|
000000B0: 42 2F 58 29 22 00 DC 08 32 00 41 24 28 34 29 B2 |B/X)"...2.A$(4).|
000000C0: 22 23 34 20 4D 41 43 48 54 20 56 41 4E 20 58 20 |"#4 MACHT VAN X |
000000D0: 20 20 20 20 59 3D 41 2A 58 5E 42 22 00 08 09 3C | Y=A*X^B"...<|
000000E0: 00 41 24 28 35 29 B2 22 23 35 20 4C 4F 47 41 52 |.A$(5)."#5 LOGAR|
000000F0: 49 54 4D 49 53 43 48 20 20 20 20 59 3D 41 2B 42 |ITMISCH Y=A+B|
00000100: 2A 4C 4F 47 28 58 29 22 00 2F 09 46 00 41 24 28 |*LOG(X)"./.F.A$(|
00000110: 36 29 B2 22 23 36 20 48 59 50 45 52 42 4F 4C 49 |6)."#6 HYPERBOLI|
00000120: 53 43 48 20 20 20 20 59 3D 42 2F 58 2B 41 22 00 |SCH Y=B/X+A".|
00000130: 5E 09 4B 00 41 24 28 37 29 B2 22 23 37 20 4E 4F |^.K.A$(7)."#7 NO|
00000140: 52 4D 2E 56 45 52 44 45 4C 49 4E 47 20 20 59 3D |RM.VERDELING Y=|
00000150: 41 2A 45 58 50 28 2D 58 2A 58 2A 42 29 22 00 77 |A*EXP(-X*X*B)".w|
00000160: 09 50 00 99 3A 81 4B B2 31 A4 37 3A 99 41 24 28 |.P..:.K.1.7:.A$(|
00000170: 4B 29 3A 99 3A 82 4B 00 A3 09 5A 00 99 3A 99 22 |K):.:.K...Z..:."|
00000180: 4E 41 20 49 4E 50 55 54 20 44 41 54 41 20 54 59 |NA INPUT DATA TY|
00000190: 50 20 30 2C 39 39 39 20 56 4F 4F 52 20 53 54 41 |P 0,999 VOOR STA|
000001A0: 52 54 22 00 D3 09 64 00 86 58 28 31 30 30 29 2C |RT"...d..X(100),|
000001B0: 59 28 31 30 30 29 3A 4E B2 30 3A 53 59 B2 30 3A |Y(100):N.0:SY.0:|
000001C0: 53 58 B2 30 3A 59 58 B2 30 3A 58 58 B2 30 3A 59 |SX.0:YX.0:XX.0:Y|
000001D0: 59 B2 30 00 E0 09 6E 00 81 49 B2 31 A4 31 30 30 |Y.0...n..I.1.100|
000001E0: 00 02 0A 78 00 99 3A 99 22 54 59 50 20 58 2C 59 |...x..:."TYP X,Y|
000001F0: 20 56 4F 4F 52 20 45 45 4E 20 50 55 4E 54 22 3B | VOOR EEN PUNT";|
00000200: 49 3B 00 11 0A 7D 00 85 58 28 49 29 2C 59 28 49 |I;...}..X(I),Y(I|
00000210: 29 00 31 0A 82 00 8B 59 28 49 29 B2 39 39 39 AF |).1....Y(I).999.|
00000220: 58 28 49 29 B2 30 A7 49 B2 31 30 30 3A 89 33 30 |X(I).0.I.100:.30|
00000230: 30 00 50 0A 87 00 8B 58 28 49 29 B2 30 A7 58 28 |0.P....X(I).0.X(|
00000240: 49 29 B2 58 28 49 29 AA 2E 30 30 30 30 30 30 31 |I).X(I)..0000001|
00000250: 00 5B 0A 8C 00 4E B2 49 3A 82 49 00 78 0A 96 00 |.[...N.I:.I.x...|
00000260: 53 59 B2 30 3A 53 58 B2 30 3A 59 58 B2 30 3A 58 |SY.0:SX.0:YX.0:X|
00000270: 58 B2 30 3A 59 59 B2 30 00 83 0A 9B 00 81 49 B2 |X.0:YY.0......I.|
00000280: 31 A4 4E 00 BD 0A A0 00 53 59 B2 53 59 AA 59 28 |1.N.....SY.SY.Y(|
00000290: 49 29 3A 53 58 B2 53 58 AA 58 28 49 29 3A 59 58 |I):SX.SX.X(I):YX|
000002A0: B2 59 58 AA 59 28 49 29 AC 58 28 49 29 3A 59 59 |.YX.Y(I).X(I):YY|
000002B0: B2 59 59 AA 59 28 49 29 AC 59 28 49 29 00 D1 0A |.YY.Y(I).Y(I)...|
000002C0: AA 00 58 58 B2 58 58 AA 58 28 49 29 AC 58 28 49 |..XX.XX.X(I).X(I|
000002D0: 29 00 D8 0A B4 00 82 49 00 EA 0A DC 00 52 32 B2 |)......I.....R2.|
000002E0: 59 58 AB 53 58 AC 53 59 AD 4E 00 FC 0A E6 00 52 |YX.SX.SY.N.....R|
000002F0: 33 B2 58 58 AB 53 58 AC 53 58 AD 4E 00 09 0B F0 |3.XX.SX.SX.N....|
00000300: 00 52 31 B2 52 32 AD 52 33 00 1D 0B FA 00 52 34 |.R1.R2.R3.....R4|
00000310: B2 53 59 AD 4E AB 52 31 AC 53 58 AD 4E 00 3C 0B |.SY.N.R1.SX.N.<.|
00000320: 04 01 52 35 B2 52 32 AC 52 32 AD 28 59 59 AB 53 |..R5.R2.R2.(YY.S|
00000330: 59 AC 53 59 AD 4E 29 AD 52 33 3A 8E 00 4A 0B 2C |Y.SY.N).R3:..J.,|
00000340: 01 8B 4E B3 33 A7 31 30 30 30 00 53 0B 31 01 8D |..N.3.1000.S.1..|
00000350: 31 35 30 00 6F 0B 36 01 42 28 31 29 B2 52 31 3A |150.o.6.B(1).R1:|
00000360: 41 28 31 29 B2 52 34 3A 43 28 31 29 B2 52 35 00 |A(1).R4:C(1).R5.|
00000370: 8A 0B 40 01 81 4B B2 31 A4 4E 3A 59 28 4B 29 B2 |..@..K.1.N:Y(K).|
00000380: BC 28 59 28 4B 29 29 3A 82 4B 00 93 0B 4A 01 8D |.(Y(K)):.K...J..|
00000390: 31 35 30 00 B2 0B 54 01 42 28 32 29 B2 52 31 3A |150...T.B(2).R1:|
000003A0: 41 28 32 29 B2 BD 28 52 34 29 3A 43 28 32 29 B2 |A(2)..(R4):C(2).|
000003B0: 52 35 00 CC 0B 5E 01 81 4B B2 31 A4 4E 3A 58 28 |R5...^..K.1.N:X(|
000003C0: 4B 29 B2 31 AD 58 28 4B 29 3A 82 4B 00 D5 0B 68 |K).1.X(K):.K...h|
000003D0: 01 8D 31 35 30 00 F4 0B 72 01 42 28 33 29 B2 52 |..150...r.B(3).R|
000003E0: 31 3A 41 28 33 29 B2 BD 28 52 34 29 3A 43 28 33 |1:A(3)..(R4):C(3|
000003F0: 29 B2 52 35 00 0B 0C 7C 01 81 4B B2 31 A4 4E 3A |).R5...|..K.1.N:|
00000400: 58 28 4B 29 B2 31 AD 58 28 4B 29 00 24 0C 86 01 |X(K).1.X(K).$...|
00000410: 58 28 4B 29 B2 BC 28 58 28 4B 29 29 3A 82 4B 3A |X(K)..(X(K)):.K:|
00000420: 8D 31 35 30 00 43 0C 90 01 42 28 34 29 B2 52 31 |.150.C...B(4).R1|
00000430: 3A 41 28 34 29 B2 BD 28 52 34 29 3A 43 28 34 29 |:A(4)..(R4):C(4)|
00000440: B2 52 35 00 5E 0C A4 01 81 4B B2 31 A4 4E 3A 59 |.R5.^....K.1.N:Y|
00000450: 28 4B 29 B2 BD 28 59 28 4B 29 29 3A 82 4B 00 67 |(K)..(Y(K)):.K.g|
00000460: 0C AE 01 8D 31 35 30 00 83 0C B8 01 42 28 35 29 |....150.....B(5)|
00000470: B2 52 31 3A 41 28 35 29 B2 52 34 3A 43 28 35 29 |.R1:A(5).R4:C(5)|
00000480: B2 52 35 00 A0 0C B9 01 81 4B B2 31 A4 4E 3A 58 |.R5......K.1.N:X|
00000490: 28 4B 29 B2 31 AD BD 28 58 28 4B 29 29 3A 82 4B |(K).1..(X(K)):.K|
000004A0: 00 A9 0C BA 01 8D 31 35 30 00 C5 0C BB 01 42 28 |......150.....B(|
000004B0: 36 29 B2 52 31 3A 41 28 36 29 B2 52 34 3A 43 28 |6).R1:A(6).R4:C(|
000004C0: 36 29 B2 52 35 00 FC 0C BD 01 81 4B B2 31 A4 4E |6).R5......K.1.N|
000004D0: 3A 58 28 4B 29 B2 31 AD 58 28 4B 29 3A 58 28 4B |:X(K).1.X(K):X(K|
000004E0: 29 B2 AB 58 28 4B 29 AC 58 28 4B 29 3A 59 28 4B |)..X(K).X(K):Y(K|
000004F0: 29 B2 BC 28 59 28 4B 29 29 3A 82 4B 00 05 0D BE |)..(Y(K)):.K....|
00000500: 01 8D 31 35 30 00 24 0D BF 01 42 28 37 29 B2 52 |..150.$...B(7).R|
00000510: 31 3A 41 28 37 29 B2 BD 28 52 34 29 3A 43 28 37 |1:A(7)..(R4):C(7|
00000520: 29 B2 52 35 00 33 0D C2 01 50 B2 30 3A 81 4B B2 |).R5.3...P.0:.K.|
00000530: 31 A4 37 00 50 0D CC 01 8B B6 28 43 28 4B 29 29 |1.7.P.....(C(K))|
00000540: B1 50 A7 51 B2 4B 3A 50 B2 B6 28 43 28 4B 29 29 |.P.Q.K:P..(C(K))|
00000550: 00 57 0D D6 01 82 4B 00 7B 0D E0 01 99 3A 99 22 |.W....K.{....:."|
00000560: 44 45 20 42 45 53 54 20 50 41 53 53 45 4E 44 45 |DE BEST PASSENDE|
00000570: 20 43 55 52 56 45 20 49 53 3A 22 00 8A 0D EA 01 | CURVE IS:".....|
00000580: 99 3A 99 41 24 28 51 29 3A 99 00 9A 0D F4 01 99 |.:.A$(Q):.......|
00000590: 22 41 3D 20 22 3B 41 28 51 29 00 AA 0D FE 01 99 |"A= ";A(Q)......|
000005A0: 22 42 3D 20 22 3B 42 28 51 29 00 C8 0D 03 02 99 |"B= ";B(Q)......|
000005B0: 22 54 59 50 45 20 46 55 4E 43 54 49 45 20 49 53 |"TYPE FUNCTIE IS|
000005C0: 20 4E 52 2E 3A 22 3B 51 00 E9 0D 08 02 99 22 43 | NR.:";Q......"C|
000005D0: 4F 52 52 45 4C 41 54 49 45 43 4F 45 46 46 49 43 |ORRELATIECOEFFIC|
000005E0: 49 45 4E 54 20 49 53 22 3B 00 F5 0D 12 02 99 43 |IENT IS";......C|
000005F0: 28 51 29 3A 99 00 15 0E 1C 02 99 22 56 4F 4F 52 |(Q):......."VOOR|
00000600: 20 41 4C 4C 45 20 46 55 4E 4B 54 49 45 53 20 54 | ALLE FUNKTIES T|
00000610: 59 50 20 4A 22 00 29 0E 26 02 85 20 42 24 3A 8B |YP J".).&.. B$:.|
00000620: 42 24 B3 B1 22 4A 22 A7 80 00 3B 0E 30 02 81 4B |B$.."J"...;.0..K|
00000630: B2 31 A4 37 3A 44 24 B2 22 20 22 00 60 0E 3A 02 |.1.7:D$." ".`.:.|
00000640: 99 3A 99 41 24 28 4B 29 3A 99 22 41 3D 20 22 3B |.:.A$(K):."A= ";|
00000650: 41 28 4B 29 3A 99 22 42 3D 20 22 3B 42 28 4B 29 |A(K):."B= ";B(K)|
00000660: 00 7A 0E 44 02 99 22 43 4F 52 52 2E 43 4F 45 46 |.z.D.."CORR.COEF|
00000670: 46 2E 3D 20 22 3B 43 28 4B 29 00 90 0E 45 02 99 |F.= ";C(K)...E..|
00000680: 22 54 59 50 20 45 45 4E 20 4C 45 54 54 45 52 22 |"TYP EEN LETTER"|
00000690: 00 A3 0E 49 02 A1 44 24 3A 8B 44 24 B2 22 22 A7 |...I..D$:.D$."".|
000006A0: 35 38 35 00 B0 0E 4A 02 44 24 B2 22 22 3A 82 4B |585...J.D$."":.K|
000006B0: 00 D1 0E 4E 02 99 3A 99 22 56 4F 4F 52 20 49 4E |...N..:."VOOR IN|
000006C0: 54 45 52 50 4F 4C 41 54 49 45 20 54 59 50 20 4A |TERPOLATIE TYP J|
000006D0: 22 00 E5 0E 58 02 85 20 43 24 3A 8B 43 24 B3 B1 |"...X.. C$:.C$..|
000006E0: 22 4A 22 A7 80 00 19 0F 5D 02 99 3A 99 22 54 59 |"J".....]..:."TY|
000006F0: 50 45 4E 20 46 55 4E 43 54 49 45 53 20 5A 49 4A |PEN FUNCTIES ZIJ|
00000700: 4E 20 3A 22 3A 99 3A 81 4B B2 31 A4 37 3A 99 41 |N :":.:.K.1.7:.A|
00000710: 24 28 4B 29 3A 99 3A 82 4B 00 40 0F 62 02 99 22 |$(K):.:.K.@.b.."|
00000720: 54 59 50 20 43 49 4A 46 45 52 20 56 4F 4F 52 20 |TYP CIJFER VOOR |
00000730: 54 59 50 45 20 46 55 4E 43 54 49 45 3A 20 22 3B |TYPE FUNCTIE: ";|
00000740: 00 48 0F 6C 02 85 20 55 00 6B 0F 76 02 91 55 8D |.H.l.. U.k.v..U.|
00000750: 36 35 30 2C 37 30 30 2C 37 35 30 2C 38 30 30 2C |650,700,750,800,|
00000760: 38 35 30 2C 39 30 30 2C 39 35 30 00 7E 0F 8A 02 |850,900,950.~...|
00000770: 85 22 58 2D 57 41 41 52 44 45 20 22 3B 58 00 90 |."X-WAARDE ";X..|
00000780: 0F 94 02 59 B2 42 28 55 29 AC 58 AA 41 28 55 29 |...Y.B(U).X.A(U)|
00000790: 00 A8 0F 9E 02 99 22 59 2D 57 41 41 52 44 45 20 |......"Y-WAARDE |
000007A0: 22 3B 59 3A 89 36 35 30 00 BB 0F BC 02 85 22 58 |";Y:.650......"X|
000007B0: 2D 57 41 41 52 44 45 20 22 3B 58 00 D0 0F C6 02 |-WAARDE ";X.....|
000007C0: 59 B2 41 28 55 29 AC BD 28 42 28 55 29 AC 58 29 |Y.A(U)..(B(U).X)|
000007D0: 00 EA 0F D0 02 98 59 AB 57 41 41 52 44 45 20 22 |......Y.WAARDE "|
000007E0: 3B 59 3A 47 4F 54 4F 37 30 30 00 FD 0F EE 02 85 |;Y:GOTO700......|
000007F0: 22 58 2D 57 41 41 52 44 45 20 22 3B 58 00 12 10 |"X-WAARDE ";X...|
00000800: F8 02 59 B2 41 28 55 29 AC BD 28 42 28 55 29 AD |..Y.A(U)..(B(U).|
00000810: 58 29 00 2A 10 02 03 99 22 59 2D 57 41 41 52 44 |X).*...."Y-WAARD|
00000820: 45 20 22 3B 59 3A 89 37 35 30 00 3D 10 20 03 85 |E ";Y:.750.=. ..|
00000830: 22 58 2D 57 41 41 52 44 45 20 22 3B 58 00 51 10 |"X-WAARDE ";X.Q.|
00000840: 2A 03 59 B2 41 28 55 29 AC 28 58 AE 42 28 55 29 |*.Y.A(U).(X.B(U)|
00000850: 29 00 69 10 34 03 99 22 59 2D 57 41 41 52 44 45 |).i.4.."Y-WAARDE|
00000860: 20 22 3B 59 3A 89 38 30 30 00 7C 10 52 03 85 22 | ";Y:.800.|.R.."|
00000870: 58 2D 57 41 41 52 44 45 20 22 3B 58 00 91 10 5C |X-WAARDE ";X...\|
00000880: 03 59 B2 41 28 55 29 AA 42 28 55 29 AC BC 28 58 |.Y.A(U).B(U)..(X|
00000890: 29 00 A9 10 66 03 99 22 59 2D 57 41 41 52 44 45 |)...f.."Y-WAARDE|
000008A0: 20 22 3B 59 3A 89 38 35 30 00 BC 10 84 03 85 22 | ";Y:.850......"|
000008B0: 58 2D 57 41 41 52 44 45 20 22 3B 58 00 CE 10 8E |X-WAARDE ";X....|
000008C0: 03 59 B2 42 28 55 29 AD 58 AA 41 28 55 29 00 E6 |.Y.B(U).X.A(U)..|
000008D0: 10 98 03 99 22 59 2D 57 41 41 52 44 45 20 22 3B |...."Y-WAARDE ";|
000008E0: 59 3A 89 39 30 30 00 F9 10 B6 03 85 22 58 2D 57 |Y:.900......"X-W|
000008F0: 41 41 52 44 45 20 22 3B 58 00 11 11 C0 03 59 B2 |AARDE ";X.....Y.|
00000900: 41 28 55 29 AC BD 28 AB 58 AC 58 AC 42 28 55 29 |A(U)..(.X.X.B(U)|
00000910: 29 00 24 11 CA 03 99 22 59 2D 57 41 41 52 44 45 |).$...."Y-WAARDE|
00000920: 20 22 3B 59 00 2D 11 D4 03 89 39 35 30 00 50 11 | ";Y.-....950.P.|
00000930: E8 03 99 22 54 45 20 57 45 49 4E 49 47 20 44 41 |..."TE WEINIG DA|
00000940: 54 41 2E 20 4D 49 4E 49 4D 55 4D 20 33 20 21 22 |TA. MINIMUM 3 !"|
00000950: 00 00 00 00 23 FF FF |....#.. |
..6....".":."... ***CURVE FITTING POS.
DATAPAREN***".]...A$(1)."#1 LINIAIR
Y=B*X+A".....A$(2)."#2 EXPONENTIEEL
Y=A*EXP(B*X)"...(.A$(3)."#3 EXPONENT
IEEL Y=A*EXP(B/X)"...2.A$(4)."#4 MACH
T VAN X Y=A*X^B"...<.A$(5)."#5 LOGAR
ITMISCH Y=A+B*LOG(X)"./.F.A$(6)."#6 H
YPERBOLISCH Y=B/X+A".^.K.A$(7)."#7 NO
RM.VERDELING Y=A*EXP(-X*X*B)".W.P..:.K.
1.7:.A$(K):.:.K...Z..:."NA INPUT DATA TY
P 0,999 VOOR START".S.D..X(100),Y(100):N
.0:SY.0:SX.0:YX.0:XX.0:YY.0...N..I.1.100
...X..:."TYP X,Y VOOR EEN PUNT";I;...}..
X(I),Y(I).1....Y(I).999.X(I).0.I.100:.30
0.P....X(I).0.X(I).X(I)..0000001.[...N.I
:.I.X...SY.0:SX.0:YX.0:XX.0:YY.0......I.
1.N... .SY.SY.Y(I):SX.SX.X(I):YX.YX.Y(I)
.X(I):YY.YY.Y(I).Y(I).Q...XX.XX.X(I).X(I
).X....I.....R2.YX.SX.SY.N.....R3.XX.SX.
SX.N.....R1.R2.R3.....R4.SY.N.R1.SX.N.<.
..R5.R2.R2.(YY.SY.SY.N).R3:..J.,..N.3.10
00.S.1..150.O.6.B(1).R1:A(1).R4:C(1).R5.
..@..K.1.N:Y(K)..(Y(K)):.K...J..150...T.
B(2).R1:A(2)..(R4):C(2).R5.L.^..K.1.N:X(
K).1.X(K):.K.U.H..150...R.B(3).R1:A(3)..
(R4):C(3).R5...|..K.1.N:X(K).1.X(K).$...
X(K)..(X(K)):.K:.150.C...B(4).R1:A(4)..(
R4):C(4).R5.^....K.1.N:Y(K)..(Y(K)):.K.G
....150.....B(5).R1:A(5).R4:C(5).R5. ...
.K.1.N:X(K).1..(X(K)):.K......150.E...B(
6).R1:A(6).R4:C(6).R5......K.1.N:X(K).1.
X(K):X(K)..X(K).X(K):Y(K)..(Y(K)):.K....
..150.$...B(7).R1:A(7)..(R4):C(7).R5.3.B
.P.0:.K.1.7.P.L...(C(K)).P.Q.K:P..(C(K))
.W.V..K.{....:."DE BEST PASSENDE CURVE I
S:"......:.A$(Q):......."A= ";A(Q)......
"B= ";B(Q).H...."TYPE FUNCTIE IS NR.:";Q
......"CORRELATIECOEFFICIENT IS";......C
(Q):......."VOOR ALLE FUNKTIES TYP J".).
&.. B$:.B$.."J"...;.0..K.1.7:D$." ".`.:.
.:.A$(K):."A= ";A(K):."B= ";B(K).Z.D.."C
ORR.COEFF.= ";C(K)...E.."TYP EEN LETTER"
...I..D$:.D$."".585...J.D$."":.K.Q.N..:.
"VOOR INTERPOLATIE TYP J"...X.. C$:.C$..
"J".....]..:."TYPEN FUNCTIES ZIJN :":.:.
K.1.7:.A$(K):.:.K.@.B.."TYP CIJFER VOOR
TYPE FUNCTIE: ";.H.L.. U.K.V..U.650,700,
750,800,850,900,950.~...."X-WAARDE ";X..
...Y.B(U).X.A(U)......"Y-WAARDE ";Y:.650
......"X-WAARDE ";X.P.F.Y.A(U)..(B(U).X)
...P..Y.WAARDE ";Y:GOTO700......"X-WAARD
E ";X.....Y.A(U)..(B(U).X).*...."Y-WAARD
E ";Y:.750.=. .."X-WAARDE ";X.Q.*.Y.A(U)
.(X.B(U)).I.4.."Y-WAARDE ";Y:.800.|.R.."
X-WAARDE ";X...\.Y.A(U).B(U)..(X)...F.."
Y-WAARDE ";Y:.850......"X-WAARDE ";X.N..
.Y.B(U).X.A(U)......"Y-WAARDE ";Y:.900..
...."X-WAARDE ";X.....Y.A(U)..(.X.X.B(U)
).$.J.."Y-WAARDE ";Y.-.T..950.P...."TE W
EINIG DATA. MINIMUM 3 !"....#..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL