WORTELTREKKEN

FILE INFORMATION

FILENAME(S): WORTELTREKKEN

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-11-30 21:07:03

APPEARS ON: 2 disk(s)

FILE HASH

e71e64c456b4ad6e95aee51a71ec9236b1b27c624ad720cf5b376b2826d73443

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITY PET 04	WORTELTREKKEN	PRG	DuncanTwain	12	0	DOWNLOAD FILE
INFORMATIEF	WORTELTREKKEN	PRG	DuncanTwain	27	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 2D 04 05 00 8F 2B  2B 56 49 45 52 4B 41 4E  |..-....++VIERKAN|
00000010: 54 53 57 4F 52 54 45 4C  55 49 54 50 4F 53 2E 45  |TSWORTELUITPOS.E|
00000020: 4E 4E 45 47 2E 47 45 54  41 4C 4C 45 4E 00 4A 04  |NNEG.GETALLEN.J.|
00000030: 0A 00 8F 2B 56 4F 4F 52  48 4F 42 42 59 53 43 4F  |...+VOORHOBBYSCO|
00000040: 4F 50 42 41 53 49 43 4F  44 45 00 74 04 0F 00 8F  |OPBASICODE.t....|
00000050: 2B 44 4F 4F 52 48 2E 41  2E 43 2E 42 41 4B 4B 45  |+DOORH.A.C.BAKKE|
00000060: 52 2D 4E 49 45 55 57 45  4E 48 4F 46 2C 55 54 52  |R-NIEUWENHOF,UTR|
00000070: 45 43 48 54 00 85 04 14  00 81 49 B2 31 A4 33 30  |ECHT......I.1.30|
00000080: 3A 99 3A 82 49 00 B4 04  19 00 99 22 56 49 45 52  |:.:.I......"VIER|
00000090: 4B 41 4E 54 53 57 4F 52  54 45 4C 20 55 49 54 20  |KANTSWORTEL UIT |
000000A0: 50 4F 53 2E 20 45 4E 20  4E 45 47 2E 20 47 45 48  |POS. EN NEG. GEH|
000000B0: 45 4C 45 22 00 E1 04 1E  00 99 22 20 20 20 20 20  |ELE"......"     |
000000C0: 47 45 54 41 4C 4C 45 4E  20 56 41 4E 20 2D 33 32  |GETALLEN VAN -32|
000000D0: 37 36 37 20 54 4F 54 20  2B 33 32 37 36 37 22 3A  |767 TOT +32767":|
000000E0: 99 00 0E 05 23 00 99 22  55 57 20 43 4F 4D 50 55  |....#.."UW COMPU|
000000F0: 54 45 52 20 47 45 45 46  54 20 41 4C 53 20 56 49  |TER GEEFT ALS VI|
00000100: 45 52 4B 41 4E 54 53 57  4F 52 54 45 4C 22 00 3E  |ERKANTSWORTEL".>|
00000110: 05 28 00 99 22 44 45 20  44 45 43 49 4D 41 4C 45  |.(.."DE DECIMALE|
00000120: 20 28 41 46 47 45 52 4F  4E 44 45 29 20 55 49 54  | (AFGERONDE) UIT|
00000130: 4B 4F 4D 53 54 2E 20 55  20 57 49 4C 54 22 00 6B  |KOMST. U WILT".k|
00000140: 05 2D 00 99 22 57 45 4C  20 45 45 4E 53 20 5A 49  |.-.."WEL EENS ZI|
00000150: 45 4E 2C 20 57 41 54 20  41 43 48 54 45 52 20 48  |EN, WAT ACHTER H|
00000160: 45 54 20 57 4F 52 54 45  4C 2D 22 00 9B 05 32 00  |ET WORTEL-"...2.|
00000170: 99 22 54 45 4B 45 4E 20  42 4C 45 45 46 20 53 54  |."TEKEN BLEEF ST|
00000180: 41 41 4E 20 45 4E 20 4F  4F 4B 20 45 45 4E 20 4E  |AAN EN OOK EEN N|
00000190: 49 45 54 20 52 45 45 45  4C 45 22 00 C9 05 37 00  |IET REEELE"...7.|
000001A0: 99 22 57 4F 52 54 45 4C  20 4B 55 4E 4E 45 4E 20  |."WORTEL KUNNEN |
000001B0: 54 52 45 4B 4B 45 4E 2E  20 44 41 54 20 4B 41 4E  |TREKKEN. DAT KAN|
000001C0: 20 4D 45 54 20 44 49 54  22 00 DB 05 3C 00 99 22  | MET DIT"...<.."|
000001D0: 50 52 4F 47 52 41 4D 4D  41 2E 22 00 09 06 41 00  |PROGRAMMA."...A.|
000001E0: 99 22 44 41 41 52 20 56  45 45 4C 20 43 4F 4D 50  |."DAAR VEEL COMP|
000001F0: 55 54 45 52 53 20 42 55  49 54 45 4E 20 2B 2F 2D  |UTERS BUITEN +/-|
00000200: 33 32 37 36 37 20 49 4E  22 00 36 06 46 00 99 22  |32767 IN".6.F.."|
00000210: 44 45 20 41 46 47 45 52  4F 4E 44 45 20 45 2D 4E  |DE AFGERONDE E-N|
00000220: 4F 54 41 54 49 45 20 4F  56 45 52 47 41 41 4E 20  |OTATIE OVERGAAN |
00000230: 49 53 20 44 45 22 00 5F  06 4B 00 99 22 4D 4F 47  |IS DE"._.K.."MOG|
00000240: 45 4C 59 4B 48 45 49 44  20 42 45 50 45 52 4B 54  |ELYKHEID BEPERKT|
00000250: 20 54 4F 54 20 44 45 20  47 45 48 45 4C 45 22 00  | TOT DE GEHELE".|
00000260: 8D 06 50 00 99 22 47 45  54 41 4C 4C 45 4E 20 2D  |..P.."GETALLEN -|
00000270: 33 32 37 36 37 20 54 4F  54 20 2D 31 20 45 4E 20  |32767 TOT -1 EN |
00000280: 31 20 54 4F 54 20 33 32  37 36 37 2E 22 00 B6 06  |1 TOT 32767."...|
00000290: 55 00 99 22 44 45 20 57  4F 52 54 45 4C 20 55 49  |U.."DE WORTEL UI|
000002A0: 54 20 30 20 48 45 45 46  54 20 47 45 45 4E 20 5A  |T 0 HEEFT GEEN Z|
000002B0: 49 4E 2E 22 3A 99 00 E8  06 5A 00 85 22 57 49 4C  |IN.":....Z.."WIL|
000002C0: 54 20 55 20 56 4F 4F 52  20 44 4F 4F 52 47 41 41  |T U VOOR DOORGAA|
000002D0: 4E 20 27 4A 41 27 20 41  4E 54 57 4F 4F 52 44 45  |N 'JA' ANTWOORDE|
000002E0: 4E 20 22 3B 51 24 3A 99  00 17 07 5F 00 99 22 48  |N ";Q$:...._.."H|
000002F0: 45 54 20 50 52 4F 47 52  41 4D 4D 41 20 49 53 20  |ET PROGRAMMA IS |
00000300: 45 45 4E 56 4F 55 44 49  47 20 41 41 4E 20 55 57  |EENVOUDIG AAN UW|
00000310: 20 45 49 47 45 4E 22 00  3A 07 64 00 99 22 4D 4F  | EIGEN".:.d.."MO|
00000320: 47 45 4C 59 4B 48 45 44  45 4E 20 41 41 4E 20 54  |GELYKHEDEN AAN T|
00000330: 45 20 50 41 53 53 45 4E  2E 22 00 6A 07 69 00 99  |E PASSEN.".j.i..|
00000340: 22 5A 4F 20 49 53 20 48  49 45 52 20 4F 4F 4B 20  |"ZO IS HIER OOK |
00000350: 56 4F 4F 52 20 48 45 54  20 57 4F 52 54 45 4C 54  |VOOR HET WORTELT|
00000360: 45 4B 45 4E 20 47 45 45  4E 22 00 94 07 6E 00 99  |EKEN GEEN"...n..|
00000370: 22 47 52 41 46 49 53 43  48 20 54 45 4B 45 4E 2C  |"GRAFISCH TEKEN,|
00000380: 20 4D 41 41 52 20 44 45  20 4C 45 54 54 45 52 20  | MAAR DE LETTER |
00000390: 27 56 27 22 00 A7 07 73  00 99 22 47 45 42 52 55  |'V'"...s.."GEBRU|
000003A0: 49 4B 54 2E 22 3A 99 00  D5 07 78 00 85 22 56 41  |IKT.":....x.."VA|
000003B0: 4E 20 57 45 4C 4B 20 47  45 54 41 4C 20 57 45 4E  |N WELK GETAL WEN|
000003C0: 53 54 20 55 20 44 45 20  57 4F 52 54 45 4C 20 22  |ST U DE WORTEL "|
000003D0: 3B 47 24 3A 99 00 E7 07  7D 00 47 B2 C5 28 47 24  |;G$:....}.G..(G$|
000003E0: 29 3A 4A 24 B2 22 22 00  16 08 AA 00 8B 47 B2 30  |):J$.""......G.0|
000003F0: A7 99 22 47 45 45 4E 20  30 20 4F 46 20 4E 49 45  |.."GEEN 0 OF NIE|
00000400: 54 2D 44 45 43 49 4D 41  41 4C 20 47 45 54 41 4C  |T-DECIMAAL GETAL|
00000410: 22 3A 89 31 32 30 00 30  08 AF 00 8B 47 B3 AB 33  |":.120.0....G..3|
00000420: 32 37 36 37 B0 47 B1 33  32 37 36 37 89 31 39 30  |2767.G.32767.190|
00000430: 00 5A 08 B4 00 8B 47 B3  B1 B5 28 47 29 A7 99 22  |.Z....G...(G).."|
00000440: 47 45 48 45 4C 45 20 47  45 54 41 4C 4C 45 4E 20  |GEHELE GETALLEN |
00000450: 53 56 50 2E 22 3A 89 31  32 30 00 63 08 B9 00 89  |SVP.":.120.c....|
00000460: 32 32 30 00 86 08 BE 00  99 22 56 41 4C 54 20 42  |220......"VALT B|
00000470: 55 49 54 45 4E 20 42 45  47 52 45 4E 5A 49 4E 47  |UITEN BEGRENZING|
00000480: 22 3A 89 31 32 30 00 95  08 DC 00 81 49 B2 31 A4  |":.120......I.1.|
00000490: C3 28 47 24 29 00 C5 08  E1 00 8F 4E 42 21 49 4E  |.(G$)......NB!IN|
000004A0: 44 49 45 4E 55 57 43 4F  4D 50 55 54 45 52 48 45  |DIENUWCOMPUTERHE|
000004B0: 54 45 45 52 53 54 45 54  45 4B 45 4E 56 2F 44 53  |TEERSTETEKENV/DS|
000004C0: 54 52 49 4E 47 00 F3 08  E6 00 8F 50 4F 53 49 54  |TRING......POSIT|
000004D0: 49 45 30 54 4F 45 4B 45  4E 54 57 4F 52 44 54 48  |IE0TOEKENTWORDTH|
000004E0: 45 54 46 4F 52 49 3D 30  54 4F 4C 45 4E 28 47 24  |ETFORI=0TOLEN(G$|
000004F0: 29 2D 31 00 0F 09 F0 00  47 31 24 B2 CA 28 47 24  |)-1.....G1$..(G$|
00000500: 2C 49 2C 31 29 3A 47 31  B2 C6 28 47 31 24 29 00  |,I,1):G1..(G1$).|
00000510: 2C 09 F5 00 8B 47 31 B3  34 38 AF 47 31 B3 B1 34  |,....G1.48.G1..4|
00000520: 33 AF 47 31 B3 B1 34 35  89 32 37 30 00 3B 09 FA  |3.G1..45.270.;..|
00000530: 00 8B 47 31 B1 35 37 89  32 37 30 00 44 09 FF 00  |..G1.57.270.D...|
00000540: 89 32 38 30 00 6C 09 0E  01 99 22 47 52 41 41 47  |.280.l...."GRAAG|
00000550: 20 44 45 43 49 4D 41 41  4C 20 47 45 48 45 45 4C  | DECIMAAL GEHEEL|
00000560: 20 47 45 54 41 4C 22 3A  89 31 32 30 00 73 09 18  | GETAL":.120.s..|
00000570: 01 82 49 00 8B 09 1D 01  53 4E B2 31 3A 8B B4 28  |..I.....SN.1:..(|
00000580: 47 29 B2 AB 31 A7 53 4E  B2 AB 31 00 AE 09 22 01  |G)..1.SN..1...".|
00000590: 58 B2 B6 28 47 29 3A 45  44 B2 31 3A 4C 44 B2 31  |X..(G):ED.1:LD.1|
000005A0: 3A 4A B2 B5 28 BA 28 33  32 37 36 37 29 29 00 BC  |:J..(.(32767))..|
000005B0: 09 2C 01 81 49 B2 4A A4  32 A9 AB 31 00 D8 09 31  |.,..I.J.2..1...1|
000005C0: 01 8B 58 AD 28 49 AC 49  29 B2 B5 28 58 AD 28 49  |..X.(I.I)..(X.(I|
000005D0: AC 49 29 29 89 33 31 35  00 E1 09 36 01 89 33 32  |.I)).315...6..32|
000005E0: 30 00 FA 09 3B 01 45 44  B2 49 3A 4C 44 B2 58 AD  |0...;.ED.I:LD.X.|
000005F0: 28 49 AC 49 29 3A 89 33  33 30 00 08 0A 40 01 8B  |(I.I):.330...@..|
00000600: 49 B2 32 A7 4C 44 B2 58  00 0F 0A 45 01 82 49 00  |I.2.LD.X...E..I.|
00000610: 20 0A 4A 01 99 22 56 22  3B 47 24 3B 22 3D 22 3B  | .J.."V";G$;"=";|
00000620: 00 35 0A 4F 01 8B 47 B2  AB 31 A7 99 22 20 49 22  |.5.O..G..1.." I"|
00000630: 3A 89 34 33 35 00 46 0A  54 01 8B 47 B2 31 A7 99  |:.435.F.T..G.1..|
00000640: 47 3A 89 34 33 35 00 5A  0A 5E 01 8B 53 4E B2 AB  |G:.435.Z.^..SN..|
00000650: 31 AF 45 44 B2 31 89 33  36 30 00 63 0A 63 01 89  |1.ED.1.360.c.c..|
00000660: 33 37 30 00 89 0A 68 01  99 22 49 20 56 22 3B 58  |370...h.."I V";X|
00000670: 3B 22 4F 46 20 57 45 4C  22 3B BA 28 58 29 3B 22  |;"OF WEL";.(X);"|
00000680: 2A 20 49 22 3A 89 34 33  35 00 B2 0A 72 01 8B 53  |* I":.435...r..S|
00000690: 4E B2 31 AF 45 44 B2 31  A7 99 22 56 22 3B 58 3B  |N.1.ED.1.."V";X;|
000006A0: 22 4F 46 20 57 45 4C 22  3B BA 28 58 29 3A 89 34  |"OF WEL";.(X):.4|
000006B0: 33 35 00 CF 0A 86 01 8B  53 4E B2 AB 31 AF 4C 44  |35......SN..1.LD|
000006C0: B2 31 A7 99 45 44 3B 22  49 22 3A 89 34 33 35 00  |.1..ED;"I":.435.|
000006D0: E7 0A 90 01 8B 53 4E B2  31 AF 4C 44 B2 31 A7 99  |.....SN.1.LD.1..|
000006E0: 45 44 3A 89 34 33 35 00  F6 0A 9A 01 8B 53 4E B2  |ED:.435......SN.|
000006F0: AB 31 89 34 32 30 00 FF  0A 9F 01 89 34 33 30 00  |.1.420......430.|
00000700: 29 0B A4 01 99 45 44 3B  22 49 20 56 22 3B 4C 44  |)....ED;"I V";LD|
00000710: 3B 22 4F 46 20 57 45 4C  22 3B BA 28 58 29 3B 22  |;"OF WEL";.(X);"|
00000720: 2A 20 49 22 3A 89 34 33  35 00 46 0B AE 01 99 45  |* I":.435.F....E|
00000730: 44 3B 22 56 22 3B 4C 44  3B 22 4F 46 20 57 45 4C  |D;"V";LD;"OF WEL|
00000740: 22 3B BA 28 58 29 00 6F  0B B3 01 99 3A 99 22 57  |";.(X).o....:."W|
00000750: 49 4C 54 20 55 20 4E 4F  47 20 45 45 4E 20 57 4F  |ILT U NOG EEN WO|
00000760: 52 54 45 4C 20 54 52 45  4B 4B 45 4E 20 3F 22 00  |RTEL TREKKEN ?".|
00000770: 8D 0B B8 01 85 22 41 4E  54 57 4F 4F 52 44 20 4A  |....."ANTWOORD J|
00000780: 41 20 4F 46 20 4E 45 45  20 22 3B 4A 24 00 A2 0B  |A OF NEE ";J$...|
00000790: BD 01 8B C6 28 4A 24 29  B2 37 34 A7 99 3A 89 31  |....(J$).74..:.1|
000007A0: 32 30 00 A8 0B C2 01 80  00 00 00                 |20.........     |

..-....++VIERKANTSWORTELUITPOS.ENNEG.GET
ALLEN.J....+VOORHOBBYSCOOPBASICODE.T....
+DOORH.A.C.BAKKER-NIEUWENHOF,UTRECHT....
..I.1.30:.:.I......"VIERKANTSWORTEL UIT 
POS. EN NEG. GEHELE"......"     GETALLEN
 VAN -32767 TOT +32767":....#.."UW COMPU
TER GEEFT ALS VIERKANTSWORTEL".>.(.."DE 
DECIMALE (AFGERONDE) UITKOMST. U WILT".K
.-.."WEL EENS ZIEN, WAT ACHTER HET WORTE
L-"...2.."TEKEN BLEEF STAAN EN OOK EEN N
IET REEELE".I.7.."WORTEL KUNNEN TREKKEN.
 DAT KAN MET DIT"...<.."PROGRAMMA."...A.
."DAAR VEEL COMPUTERS BUITEN +/-32767 IN
".6.F.."DE AFGERONDE E-NOTATIE OVERGAAN 
IS DE"._.K.."MOGELYKHEID BEPERKT TOT DE 
GEHELE"...P.."GETALLEN -32767 TOT -1 EN 
1 TOT 32767."...U.."DE WORTEL UIT 0 HEEF
T GEEN ZIN.":....Z.."WILT U VOOR DOORGAA
N 'JA' ANTWOORDEN ";Q$:...._.."HET PROGR
AMMA IS EENVOUDIG AAN UW EIGEN".:.D.."MO
GELYKHEDEN AAN TE PASSEN.".J.I.."ZO IS H
IER OOK VOOR HET WORTELTEKEN GEEN"...N..
"GRAFISCH TEKEN, MAAR DE LETTER 'V'"...S
.."GEBRUIKT.":..U.X.."VAN WELK GETAL WEN
ST U DE WORTEL ";G$:....}.G.E(G$):J$."".
.....G.0.."GEEN 0 OF NIET-DECIMAAL GETAL
":.120.0....G..32767.G.32767.190.Z....G.
..(G).."GEHELE GETALLEN SVP.":.120.C....
220......"VALT BUITEN BEGRENZING":.120..
....I.1.C(G$).E....NB!INDIENUWCOMPUTERHE
TEERSTETEKENV/DSTRING......POSITIE0TOEKE
NTWORDTHETFORI=0TOLEN(G$)-1.....G1$.J(G$
,I,1):G1.F(G1$).,....G1.48.G1..43.G1..45
.270.;....G1.57.270.D....280.L...."GRAAG
 DECIMAAL GEHEEL GETAL":.120.S....I.....
SN.1:..(G)..1.SN..1...".X..(G):ED.1:LD.1
:J..(.(32767))...,..I.J.2..1.X.1..X.(I.I
)..(X.(I.I)).315...6..320...;.ED.I:LD.X.
(I.I):.330...@..I.2.LD.X...E..I. .J.."V"
;G$;"=";.5.O..G..1.." I":.435.F.T..G.1..
G:.435.Z.^..SN..1.ED.1.360.C.C..370...H.
."I V";X;"OF WEL";.(X);"* I":.435...R..S
N.1.ED.1.."V";X;"OF WEL";.(X):.435.O....
SN..1.LD.1..ED;"I":.435......SN.1.LD.1..
ED:.435......SN..1.420......430.)....ED;
"I V";LD;"OF WEL";.(X);"* I":.435.F....E
D;"V";LD;"OF WEL";.(X).O....:."WILT U NO
G EEN WORTEL TREKKEN ?"......"ANTWOORD J
A OF NEE ";J$......F(J$).74..:.120...B..
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL