> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 2A 2A 20 50 52 4F 47 52 |..$.... ** PROGR|
00000010: 41 4D 20 53 50 41 41 4B 4C 45 4E 47 54 45 2D 56 |AM SPAAKLENGTE-V|
00000020: 33 20 2A 2A 00 37 08 14 00 99 22 93 22 3A 97 20 |3 **.7....".":. |
00000030: 35 33 32 38 30 2C 36 00 62 08 1E 00 99 3A 99 22 |53280,6.b....:."|
00000040: 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 42 45 |DIT PROGRAMMA BE|
00000050: 52 45 4B 45 4E 54 20 44 45 20 4C 45 4E 47 54 45 |REKENT DE LENGTE|
00000060: 20 22 00 84 08 28 00 99 22 56 41 4E 20 45 45 4E | "...(.."VAN EEN|
00000070: 20 53 50 41 41 4B 20 49 4E 20 45 45 4E 20 57 49 | SPAAK IN EEN WI|
00000080: 45 4C 2E 22 00 B0 08 32 00 99 22 44 45 5A 45 20 |EL."...2.."DEZE |
00000090: 4C 45 4E 47 54 45 20 48 41 4E 47 54 20 41 46 20 |LENGTE HANGT AF |
000000A0: 56 41 4E 20 44 45 20 44 49 41 4D 45 54 45 52 22 |VAN DE DIAMETER"|
000000B0: 00 DE 08 3C 00 99 22 56 41 4E 20 48 45 54 20 57 |...<.."VAN HET W|
000000C0: 49 45 4C 2C 20 48 45 54 20 41 41 4E 54 41 4C 20 |IEL, HET AANTAL |
000000D0: 53 50 41 4B 45 4E 20 49 4E 20 48 45 54 22 00 09 |SPAKEN IN HET"..|
000000E0: 09 46 00 99 22 57 49 45 4C 2C 20 44 45 20 42 52 |.F.."WIEL, DE BR|
000000F0: 45 45 44 54 45 20 56 41 4E 20 44 45 20 4E 41 41 |EEDTE VAN DE NAA|
00000100: 46 20 45 4E 20 44 45 20 22 00 29 09 50 00 99 22 |F EN DE ".).P.."|
00000110: 48 4F 4F 47 54 45 20 56 41 4E 20 44 45 20 4E 41 |HOOGTE VAN DE NA|
00000120: 41 46 46 4C 45 4E 53 2E 22 00 31 09 5A 00 99 3A |AFFLENS.".1.Z..:|
00000130: 99 00 5C 09 64 00 99 22 56 4F 4F 52 20 45 4E 4B |..\.d.."VOOR ENK|
00000140: 45 4C 45 20 56 41 4E 20 44 45 5A 45 20 56 41 52 |ELE VAN DEZE VAR|
00000150: 49 41 42 45 4C 45 4E 20 4B 41 4E 22 00 82 09 6E |IABELEN KAN"...n|
00000160: 00 99 22 4D 45 4E 20 54 57 45 45 20 47 52 45 4E |.."MEN TWEE GREN|
00000170: 53 57 41 41 52 44 45 4E 20 4F 50 47 45 56 45 4E |SWAARDEN OPGEVEN|
00000180: 2E 22 00 AF 09 78 00 99 22 44 45 20 53 50 41 41 |."...x.."DE SPAA|
00000190: 4B 4C 45 4E 47 54 45 20 57 4F 52 44 54 20 44 41 |KLENGTE WORDT DA|
000001A0: 4E 20 4F 4F 4B 20 47 45 47 45 56 45 4E 20 22 00 |N OOK GEGEVEN ".|
000001B0: CF 09 82 00 99 22 54 55 53 53 45 4E 20 54 57 45 |....."TUSSEN TWE|
000001C0: 45 20 47 52 45 4E 53 57 41 41 52 44 45 4E 22 00 |E GRENSWAARDEN".|
000001D0: ED 09 8C 00 99 3A 99 3A 20 99 22 53 4C 41 20 45 |.....:.: ."SLA E|
000001E0: 45 4E 20 54 4F 45 54 53 20 41 41 4E 22 00 04 0A |EN TOETS AAN"...|
000001F0: 96 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |... A$:. A$."" .|
00000200: 20 31 35 30 00 11 0A A0 00 99 22 93 22 3A 99 3A | 150......".":.:|
00000210: 99 00 31 0A AA 00 99 22 4C 45 54 20 4F 50 20 21 |..1...."LET OP !|
00000220: 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 3A |":."--------":.:|
00000230: 99 00 5B 0A B4 00 99 22 56 4F 45 52 20 20 44 45 |..[...."VOER DE|
00000240: 20 47 45 47 45 56 45 4E 53 20 41 4C 53 20 56 4F | GEGEVENS ALS VO|
00000250: 4C 47 54 20 49 4E 20 3A 22 3A 99 00 83 0A BE 00 |LGT IN :":......|
00000260: 99 22 2D 20 41 4C 4C 45 20 47 45 47 45 56 45 4E |."- ALLE GEGEVEN|
00000270: 53 20 49 4E 20 4D 49 4C 49 4D 45 54 45 52 53 20 |S IN MILIMETERS |
00000280: 49 4E 22 00 A9 0A C8 00 99 22 2D 20 47 45 45 46 |IN"......"- GEEF|
00000290: 20 56 41 4E 20 48 45 54 20 20 57 49 45 4C 20 44 | VAN HET WIEL D|
000002A0: 45 20 53 54 52 41 41 4C 22 00 C9 0A D2 00 99 22 |E STRAAL"......"|
000002B0: 20 20 28 44 55 53 20 44 45 20 48 41 4C 56 45 20 | (DUS DE HALVE |
000002C0: 44 49 41 4D 45 54 45 52 29 00 F5 0A DC 00 99 22 |DIAMETER)......"|
000002D0: 2D 20 47 45 45 46 20 42 49 4A 20 44 45 20 42 52 |- GEEF BIJ DE BR|
000002E0: 45 45 44 54 45 20 56 41 4E 20 44 45 20 41 53 2C |EEDTE VAN DE AS,|
000002F0: 20 44 45 20 22 00 18 0B E6 00 99 22 20 20 41 46 | DE "......" AF|
00000300: 53 54 41 4E 44 20 54 55 53 53 45 4E 20 44 45 20 |STAND TUSSEN DE |
00000310: 46 4C 45 4E 53 45 4E 22 00 42 0B F0 00 99 22 2D |FLENSEN".B...."-|
00000320: 20 47 45 45 46 20 56 41 4E 20 44 45 20 46 4C 45 | GEEF VAN DE FLE|
00000330: 4E 53 20 44 45 20 44 49 41 4D 45 54 45 52 20 4F |NS DE DIAMETER O|
00000340: 50 22 00 5F 0B FA 00 99 3A 99 3A 99 22 53 4C 41 |P"._....:.:."SLA|
00000350: 20 45 45 4E 20 54 4F 45 54 53 20 41 41 4E 22 00 | EEN TOETS AAN".|
00000360: 76 0B 04 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |v.... A$:. A$.""|
00000370: 20 A7 20 32 36 30 00 A9 0B 0E 01 99 22 93 22 3A | . 260......".":|
00000380: 99 3A 99 22 56 4F 45 52 20 41 4C 4C 45 20 47 45 |.:."VOER ALLE GE|
00000390: 47 45 56 45 4E 53 20 49 4E 20 4D 49 4C 4C 49 4D |GEVENS IN MILLIM|
000003A0: 45 54 45 52 53 20 49 4E 22 00 DD 0B 18 01 99 22 |ETERS IN"......"|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 3A 99 00 00 0C |--------":.:....|
000003E0: 22 01 85 22 47 45 45 46 20 4D 49 4E 49 4D 41 4C |".."GEEF MINIMAL|
000003F0: 45 20 57 49 45 4C 53 54 52 41 41 4C 22 3B 52 4B |E WIELSTRAAL";RK|
00000400: 00 23 0C 2C 01 85 22 47 45 45 46 20 4D 41 58 49 |.#.,.."GEEF MAXI|
00000410: 4D 41 4C 45 20 57 49 45 4C 53 54 52 41 41 4C 22 |MALE WIELSTRAAL"|
00000420: 3B 52 47 00 29 0C 36 01 99 00 51 0C 40 01 85 22 |;RG.).6...Q.@.."|
00000430: 47 45 45 46 20 4D 49 4E 2E 20 42 52 45 45 44 54 |GEEF MIN. BREEDT|
00000440: 45 20 56 41 4E 20 44 45 20 4E 41 41 46 22 3B 48 |E VAN DE NAAF";H|
00000450: 4B 00 79 0C 4A 01 85 22 47 45 45 46 20 4D 41 58 |K.y.J.."GEEF MAX|
00000460: 2E 20 42 52 45 45 44 54 45 20 56 41 4E 20 44 45 |. BREEDTE VAN DE|
00000470: 20 4E 41 41 46 22 3B 48 47 00 7F 0C 54 01 99 00 | NAAF";HG...T...|
00000480: A6 0C 5E 01 85 22 47 45 45 46 20 4D 49 4E 2E 20 |..^.."GEEF MIN. |
00000490: 44 49 41 4D 45 54 45 52 20 56 41 4E 20 46 4C 45 |DIAMETER VAN FLE|
000004A0: 4E 53 22 3B 46 4B 00 CF 0C 68 01 85 22 47 45 45 |NS";FK...h.."GEE|
000004B0: 46 20 4D 41 58 2E 20 44 49 41 4D 45 54 45 52 20 |F MAX. DIAMETER |
000004C0: 56 41 4E 20 46 4C 45 4E 53 22 3B 46 47 3A 99 00 |VAN FLENS";FG:..|
000004D0: FA 0C 72 01 85 22 4D 41 4E 49 45 52 20 56 41 4E |..r.."MANIER VAN|
000004E0: 20 53 50 41 4B 45 4E 2E 20 4B 52 55 49 53 20 4F | SPAKEN. KRUIS O|
000004F0: 56 45 52 3A 20 22 3B 4B 3A 99 00 24 0D 7C 01 85 |VER: ";K:..$.|..|
00000500: 22 54 4F 54 41 41 4C 20 41 41 4E 54 41 4C 20 53 |"TOTAAL AANTAL S|
00000510: 50 41 4B 45 4E 20 49 4E 20 48 45 54 20 57 49 45 |PAKEN IN HET WIE|
00000520: 4C 22 3B 4E 00 2D 0D 86 01 99 22 93 22 00 35 0D |L";N.-....".".5.|
00000530: 90 01 99 3A 99 00 64 0D 9A 01 99 22 57 49 45 4C |...:..d...."WIEL|
00000540: 53 54 52 41 41 4C 20 54 55 53 53 45 4E 20 22 3B |STRAAL TUSSEN ";|
00000550: 20 52 4B 3B 22 45 4E 20 22 3B 52 47 3B 22 20 4D | RK;"EN ";RG;" M|
00000560: 4D 22 3A 99 00 93 0D A4 01 99 22 4E 41 41 46 42 |M":......."NAAFB|
00000570: 52 45 45 44 54 45 20 54 55 53 53 45 4E 22 3B 20 |REEDTE TUSSEN"; |
00000580: 48 4B 3B 22 45 4E 20 22 3B 48 47 3B 22 20 4D 4D |HK;"EN ";HG;" MM|
00000590: 22 3A 99 00 C4 0D AE 01 99 22 46 4C 45 4E 53 44 |":......."FLENSD|
000005A0: 49 41 4D 45 54 45 52 20 54 55 53 53 45 4E 22 3B |IAMETER TUSSEN";|
000005B0: 20 46 4B 3B 22 45 4E 20 22 3B 46 47 3B 22 20 4D | FK;"EN ";FG;" M|
000005C0: 4D 22 3A 99 00 DF 0D B8 01 99 22 41 41 4E 54 41 |M":......."AANTA|
000005D0: 4C 20 53 50 41 4B 45 4E 3A 20 22 3B 4E 3A 99 00 |L SPAKEN: ";N:..|
000005E0: F6 0D C2 01 99 22 4B 52 55 49 53 20 4F 56 45 52 |....."KRUIS OVER|
000005F0: 3A 20 22 3B 20 4B 00 00 0E CC 01 99 3A 99 3A 99 |: "; K......:.:.|
00000600: 00 24 0E D6 01 99 22 41 4C 4C 45 20 47 45 47 45 |.$...."ALLE GEGE|
00000610: 56 45 4E 53 20 4A 55 49 53 54 20 3F 20 20 28 4A |VENS JUIST ? (J|
00000620: 2F 4E 29 22 00 3B 0E E0 01 A1 20 41 24 3A 8B 20 |/N)".;.... A$:. |
00000630: 41 24 B2 22 22 20 A7 20 34 38 30 00 4E 0E EA 01 |A$."" . 480.N...|
00000640: 8B 20 41 24 B2 22 4E 22 20 A7 20 32 37 30 00 6D |. A$."N" . 270.m|
00000650: 0E F4 01 8F 20 2A 2A 20 47 45 47 45 56 45 4E 53 |.... ** GEGEVENS|
00000660: 20 41 41 4E 50 41 53 53 45 4E 20 2A 2A 00 97 0E | AANPASSEN **...|
00000670: FE 01 4E B2 4E AD 32 3A 46 4B B2 46 4B AD 32 3A |..N.N.2:FK.FK.2:|
00000680: 46 47 B2 46 47 AD 32 3A 48 4B B2 48 4B AD 32 3A |FG.FG.2:HK.HK.2:|
00000690: 48 47 B2 48 47 AD 32 00 A9 0E 08 02 59 B2 28 FF |HG.HG.2.....Y.(.|
000006A0: AC 28 4B AA 32 29 29 AD 4E 00 D9 0E 12 02 53 4B |.(K.2)).N.....SK|
000006B0: B2 28 28 48 4B AE 32 29 AA 28 46 47 AC BF 28 59 |.((HK.2).(FG..(Y|
000006C0: 29 29 AE 32 AA 28 52 4B AB 28 46 47 AC BE 28 59 |)).2.(RK.(FG..(Y|
000006D0: 29 29 29 AE 32 29 AE 2E 35 00 09 0F 1C 02 42 4B |))).2)..5.....BK|
000006E0: B2 28 28 48 4B AE 32 29 AA 28 46 4B AC BF 28 59 |.((HK.2).(FK..(Y|
000006F0: 29 29 AE 32 AA 28 52 4B AB 28 46 47 AC BE 28 59 |)).2.(RK.(FG..(Y|
00000700: 29 29 29 AE 32 29 AE 2E 35 00 39 0F 26 02 53 4C |))).2)..5.9.&.SL|
00000710: B2 28 28 48 47 AE 32 29 AA 28 46 4B AC BF 28 59 |.((HG.2).(FK..(Y|
00000720: 29 29 AE 32 AA 28 52 47 AB 28 46 4B AC BE 28 59 |)).2.(RG.(FK..(Y|
00000730: 29 29 29 AE 32 29 AE 2E 35 00 69 0F 30 02 42 4C |))).2)..5.i.0.BL|
00000740: B2 28 28 48 47 AE 32 29 AA 28 46 47 AC BF 28 59 |.((HG.2).(FG..(Y|
00000750: 29 29 AE 32 AA 28 52 47 AB 28 46 4B AC BE 28 59 |)).2.(RG.(FK..(Y|
00000760: 29 29 29 AE 32 29 AE 2E 35 00 7D 0F 3A 02 8B 20 |))).2)..5.}.:.. |
00000770: 42 4C B1 53 4C 20 A7 20 53 4C B2 42 4C 00 91 0F |BL.SL . SL.BL...|
00000780: 44 02 8B 20 42 4B B3 53 4B 20 A7 20 53 4B B2 42 |D.. BK.SK . SK.B|
00000790: 4B 00 B7 0F 4E 02 53 4B B2 28 B5 28 53 4B AC 31 |K...N.SK.(.(SK.1|
000007A0: 30 29 29 AD 31 30 3A 53 4C B2 28 B5 28 53 4C AC |0)).10:SL.(.(SL.|
000007B0: 31 30 29 29 AD 31 30 00 BF 0F 58 02 99 3A 99 00 |10)).10...X..:..|
000007C0: E6 0F 62 02 99 22 4D 49 4E 49 4D 41 4C 45 20 53 |..b.."MINIMALE S|
000007D0: 50 41 41 4B 4C 45 4E 47 54 45 3D 20 22 3B 53 4B |PAAKLENGTE= ";SK|
000007E0: 20 3B 22 4D 4D 22 00 0D 10 6C 02 99 22 4D 41 58 | ;"MM"...l.."MAX|
000007F0: 49 4D 41 4C 45 20 53 50 41 41 4B 4C 45 4E 47 54 |IMALE SPAAKLENGT|
00000800: 45 3D 20 22 3B 53 4C 20 3B 22 4D 4D 22 00 24 10 |E= ";SL ;"MM".$.|
00000810: 76 02 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |v.. A$:. A$."" .|
00000820: 20 36 33 30 00 36 10 80 02 8B 20 41 24 B2 22 20 | 630.6.... A$." |
00000830: 22 20 A7 20 31 30 00 40 10 8A 02 89 20 36 33 30 |" . 10.@.... 630|
00000840: 00 00 00 |... |
..$.... ** PROGRAM SPAAKLENGTE-V3 **.7..
..".":. 53280,6.B....:."DIT PROGRAMMA BE
REKENT DE LENGTE "...(.."VAN EEN SPAAK I
N EEN WIEL."...2.."DEZE LENGTE HANGT AF
VAN DE DIAMETER"...<.."VAN HET WIEL, HET
AANTAL SPAKEN IN HET"...F.."WIEL, DE BR
EEDTE VAN DE NAAF EN DE ".).P.."HOOGTE V
AN DE NAAFFLENS.".1.Z..:..\.D.."VOOR ENK
ELE VAN DEZE VARIABELEN KAN"...N.."MEN T
WEE GRENSWAARDEN OPGEVEN."...X.."DE SPAA
KLENGTE WORDT DAN OOK GEGEVEN ".O...."TU
SSEN TWEE GRENSWAARDEN"......:.: ."SLA E
EN TOETS AAN"...... A$:. A$."" . 150...
..".":.:..1...."LET OP !":."--------":.:
..[...."VOER DE GEGEVENS ALS VOLGT IN :
":......."- ALLE GEGEVENS IN MILIMETERS
IN"...H.."- GEEF VAN HET WIEL DE STRAAL
".I.R.." (DUS DE HALVE DIAMETER)......"
- GEEF BIJ DE BREEDTE VAN DE AS, DE "...
..." AFSTAND TUSSEN DE FLENSEN".B...."-
GEEF VAN DE FLENS DE DIAMETER OP"._....
:.:."SLA EEN TOETS AAN".V.... A$:. A$.""
. 260......".":.:."VOER ALLE GEGEVENS I
N MILLIMETERS IN"......"----------------
------------------------":.:....".."GEEF
MINIMALE WIELSTRAAL";RK.#.,.."GEEF MAXI
MALE WIELSTRAAL";RG.).6...Q.@.."GEEF MIN
. BREEDTE VAN DE NAAF";HK.Y.J.."GEEF MAX
. BREEDTE VAN DE NAAF";HG..T.....^.."GE
EF MIN. DIAMETER VAN FLENS";FK.O.H.."GEE
F MAX. DIAMETER VAN FLENS";FG:....R.."MA
NIER VAN SPAKEN. KRUIS OVER: ";K:..$.|..
"TOTAAL AANTAL SPAKEN IN HET WIEL";N.-..
..".".5....:..D...."WIELSTRAAL TUSSEN ";
RK;"EN ";RG;" MM":......."NAAFBREEDTE T
USSEN"; HK;"EN ";HG;" MM":..D...."FLENSD
IAMETER TUSSEN"; FK;"EN ";FG;" MM":.....
.."AANTAL SPAKEN: ";N:....B.."KRUIS OVER
: "; K...L..:.:..$.V.."ALLE GEGEVENS JUI
ST ? (J/N)".;.... A$:. A$."" . 480.N...
. A$."N" . 270.M.... ** GEGEVENS AANPASS
EN **.....N.N.2:FK.FK.2:FG.FG.2:HK.HK.2:
HG.HG.2.....Y.(..(K.2)).N.Y...SK.((HK.2)
.(FG..(Y)).2.(RK.(FG..(Y))).2)..5.....BK
.((HK.2).(FK..(Y)).2.(RK.(FG..(Y))).2)..
5.9.&.SL.((HG.2).(FK..(Y)).2.(RG.(FK..(Y
))).2)..5.I.0.BL.((HG.2).(FG..(Y)).2.(RG
.(FK..(Y))).2)..5.}.:.. BL.SL . SL.BL...
D.. BK.SK . SK.BK...N.SK.(.(SK.10)).10:S
L.(.(SL.10)).10...X..:....B.."MINIMALE S
PAAKLENGTE= ";SK ;"MM"...L.."MAXIMALE SP
AAKLENGTE= ";SL ;"MM".$.V.. A$:. A$."" .
630.6.... A$." " . 10.@.... 630...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL