_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PYTHAGORAS

FILE INFORMATION

FILENAME(S): PYTHAGORAS

FILE TYPE(S): PRG

FILE SIZE: 1.9K

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

APPEARS ON: 2 disk(s)

FILE HASH

990fb4ff8ba3d1c095f7a566b8c509f282f42530b3b4ac13a2520e5d51e61585

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
UTILITY PET 01 PYTHAGORAS PRG DuncanTwain 2 0 DOWNLOAD FILE
CS TAPES PET 12 PYTHAGORAS PRG DuncanTwain 10 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0F 04 0A 00 97 35  39 34 36 38 2C 31 34 00  |.......59468,14.|
00000010: 18 04 14 00 99 22 93 22  00 39 04 1E 00 99 A3 39  |.....".".9.....9|
00000020: 29 22 D3 54 45 4C 4C 49  4E 47 20 56 41 4E 20 D0  |)".TELLING VAN .|
00000030: 59 54 48 41 47 4F 52 41  53 00 41 04 28 00 99 3A  |YTHAGORAS.A.(..:|
00000040: 99 00 76 04 32 00 99 22  D7 49 4C 20 4A 45 20 44  |..v.2..".IL JE D|
00000050: 45 20 53 54 45 4C 4C 49  4E 47 20 56 41 4E 20 D0  |E STELLING VAN .|
00000060: 59 54 48 41 47 4F 52 41  53 20 5A 49 45 4E 20 3F  |YTHAGORAS ZIEN ?|
00000070: 28 CA 2F CE 29 22 00 88  04 3C 00 A1 41 24 3A 8B  |(./.)"...<..A$:.|
00000080: 41 24 B2 22 22 A7 36 30  00 98 04 46 00 8B 41 24  |A$."".60...F..A$|
00000090: B2 22 4A 22 A7 31 30 30  00 A8 04 50 00 8B 41 24  |."J".100...P..A$|
000000A0: B2 22 4E 22 A7 31 35 30  00 B0 04 5A 00 89 36 30  |."N".150...Z..60|
000000B0: 00 F5 04 64 00 99 3A 99  22 D6 4F 4F 52 20 45 45  |...d..:.".OOR EE|
000000C0: 4E 20 52 45 43 48 54 48  4F 45 4B 49 47 45 20 44  |N RECHTHOEKIGE D|
000000D0: 52 49 45 48 4F 45 4B 20  4D 45 54 20 52 45 43 48  |RIEHOEK MET RECH|
000000E0: 54 48 4F 45 4B 53 5A 49  4A 44 45 20 C1 20 45 4E  |THOEKSZIJDE . EN|
000000F0: 20 C2 2C 22 3B 00 29 05  6E 00 99 22 45 4E 20 48  | .,";.).n.."EN H|
00000100: 59 50 4F 54 45 4E 55 53  41 20 4D 45 54 20 5A 49  |YPOTENUSA MET ZI|
00000110: 4A 2D 44 45 20 C3 20 47  45 4C 44 54 20 C1 5E 32  |J-DE . GELDT .^2|
00000120: 2B C2 5E 32 3D C3 5E 32  22 00 59 05 78 00 99 22  |+.^2=.^2".Y.x.."|
00000130: A8 A8 A8 A8 A8 A8 A8 A8  A8 A8 A8 A8 A8 A8 A8 A8  |................|
00000140: A8 A8 A8 A8 A8 A8 A8 A8  A8 A8 A8 A8 A8 A8 A8 A8  |................|
00000150: A8 A8 A8 A8 A8 A8 A8 A8  22 00 7D 05 82 00 99 22  |........".}...."|
00000160: D4 49 4B 20 45 45 4E 20  54 4F 45 54 53 20 49 4E  |.IK EEN TOETS IN|
00000170: 20 56 4F 4F 52 20 56 45  52 44 45 52 2E 00 90 05  | VOOR VERDER....|
00000180: 8C 00 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 34 30  |...A$:.A$."".140|
00000190: 00 C4 05 96 00 99 3A 99  22 93 D4 49 4B 20 56 4F  |......:."..IK VO|
000001A0: 4F 52 20 44 45 20 5A 49  4A 44 45 20 44 49 45 20  |OR DE ZIJDE DIE |
000001B0: 4A 45 20 57 49 4C 20 57  45 54 45 4E 20 45 45 4E  |JE WIL WETEN EEN|
000001C0: 20 20 22 3B 00 EF 05 A0  00 99 22 27 3F 27 20 49  |  ";......"'?' I|
000001D0: 4E 20 45 4E 20 56 55 4C  20 56 4F 4F 52 20 44 45  |N EN VUL VOOR DE|
000001E0: 20 41 4E 44 45 52 45 20  5A 49 4A 44 45 20 22 00  | ANDERE ZIJDE ".|
000001F0: 1A 06 AA 00 99 22 47 45  57 4F 4F 4E 20 44 45 20  |....."GEWOON DE |
00000200: 4C 45 4E 47 54 45 20 49  4E 20 44 49 45 20 4A 49  |LENGTE IN DIE JI|
00000210: 4A 20 57 45 45 54 2E 22  3A 99 00 50 06 B4 00 99  |J WEET.":..P....|
00000220: 22 C3 11 9D A7 5C 11 9D  9D A7 20 5C 11 9D 9D 9D  |"....\.... \....|
00000230: A7 20 20 5C 11 9D 9D 9D  9D A7 20 20 20 5C 11 9D  |.  \......   \..|
00000240: 9D 9D 9D 9D C1 A3 A3 A3  A3 C2 11 22 3A 54 B2 30  |...........":T.0|
00000250: 00 6A 06 BE 00 85 22 CC  45 4E 47 54 45 20 56 41  |.j....".ENGTE VA|
00000260: 4E 20 C1 C2 20 22 3B 41  42 24 00 84 06 C8 00 85  |N .. ";AB$......|
00000270: 22 CC 45 4E 47 54 45 20  56 41 4E 20 C2 C3 20 22  |".ENGTE VAN .. "|
00000280: 3B 42 43 24 00 9E 06 D2  00 85 22 CC 45 4E 47 54  |;BC$......".ENGT|
00000290: 45 20 56 41 4E 20 C3 C1  20 22 3B 43 41 24 00 BF  |E VAN .. ";CA$..|
000002A0: 06 DC 00 8B C8 28 41 42  24 2C 31 29 B2 22 3F 22  |.....(AB$,1)."?"|
000002B0: A7 54 B2 54 AA 31 3A 47  B2 31 3A 89 32 34 30 00  |.T.T.1:G.1:.240.|
000002C0: D8 06 E6 00 41 42 B2 C5  28 41 42 24 29 3A 8B 41  |....AB..(AB$):.A|
000002D0: 42 B2 30 A7 20 46 B2 31  00 F9 06 F0 00 8B C8 28  |B.0. F.1.......(|
000002E0: 42 43 24 2C 31 29 B2 22  3F 22 A7 54 B2 54 AA 31  |BC$,1)."?".T.T.1|
000002F0: 3A 47 B2 32 3A 89 32 36  30 00 12 07 FA 00 42 43  |:G.2:.260.....BC|
00000300: B2 C5 28 42 43 24 29 3A  8B 42 43 B2 30 A7 20 46  |..(BC$):.BC.0. F|
00000310: B2 31 00 33 07 04 01 8B  C8 28 43 41 24 2C 31 29  |.1.3.....(CA$,1)|
00000320: B2 22 3F 22 A7 54 B2 54  AA 31 3A 47 B2 33 3A 89  |."?".T.T.1:G.3:.|
00000330: 32 38 30 00 4C 07 0E 01  43 41 B2 C5 28 43 41 24  |280.L...CA..(CA$|
00000340: 29 3A 8B 43 41 B2 30 A7  20 46 B2 31 00 61 07 18  |):.CA.0. F.1.a..|
00000350: 01 8B 47 B2 31 AF 42 43  B3 B2 43 41 A7 89 36 37  |..G.1.BC..CA..67|
00000360: 30 00 76 07 22 01 8B 47  B2 33 AF 42 43 B3 B2 41  |0.v."..G.3.BC..A|
00000370: 42 A7 89 36 37 30 00 B8  07 2C 01 8B 54 B3 B1 31  |B..670...,..T..1|
00000380: A7 99 22 4A 45 20 4D 4F  45 54 20 31 20 27 3F 27  |.."JE MOET 1 '?'|
00000390: 20 49 4E 54 49 4B 4B 45  4E 2E 20 20 20 20 20 20  | INTIKKEN.      |
000003A0: 20 20 20 20 20 20 20 20  20 20 13 11 11 22 3B 3A  |          ...";:|
000003B0: 54 B2 30 3A 89 31 37 30  00 F9 07 36 01 8B 46 B2  |T.0:.170...6..F.|
000003C0: 31 A7 46 B2 30 3A 99 22  4A 45 20 4D 41 47 20 47  |1.F.0:."JE MAG G|
000003D0: 45 45 4E 20 27 30 27 20  4F 46 20 45 45 4E 20 4C  |EEN '0' OF EEN L|
000003E0: 45 54 54 45 52 20 49 4E  54 49 4B 4B 45 4E 2E 13  |ETTER INTIKKEN..|
000003F0: 11 11 22 3B 3A 89 31 37  30 00 07 08 40 01 8D 33  |..";:.170...@..3|
00000400: 33 30 3A 89 33 39 30 00  10 08 4A 01 99 22 93 22  |30:.390...J.."."|
00000410: 00 42 08 54 01 99 22 C3  11 9D A7 5C 11 9D 9D A7  |.B.T.."....\....|
00000420: 20 5C 11 9D 9D 9D A7 20  20 5C 11 9D 9D 9D 9D A7  | \.....  \......|
00000430: 20 20 20 5C 11 9D 9D 9D  9D 9D C1 A3 A3 A3 A3 C2  |   \............|
00000440: 13 22 00 59 08 5E 01 99  22 1D 1D 1D 1D 1D 1D 1D  |.".Y.^..".......|
00000450: 1D 1D C1 C2 3D 22 41 42  24 00 70 08 68 01 99 22  |....="AB$.p.h.."|
00000460: 1D 1D 1D 1D 1D 1D 1D 1D  1D C2 C3 3D 22 42 43 24  |...........="BC$|
00000470: 00 87 08 72 01 99 22 1D  1D 1D 1D 1D 1D 1D 1D 1D  |...r..".........|
00000480: C3 C1 3D 22 43 41 24 00  95 08 7C 01 99 3A 99 3A  |..="CA$...|..:.:|
00000490: 99 3A 99 3A 8E 00 BE 08  86 01 99 22 C8 4F 45 4B  |.:.:.......".OEK|
000004A0: 20 C1 C2 C3 3D 39 30 20  47 52 41 44 45 4E 20 3D  | ...=90 GRADEN =|
000004B0: 3E 20 28 D0 59 54 48 41  47 4F 52 41 53 29 00 D8  |> (.YTHAGORAS)..|
000004C0: 08 90 01 99 22 C2 C3 5E  32 20 3D 20 C1 C2 5E 32  |...."..^2 = ..^2|
000004D0: 20 2B 20 C3 C1 5E 32 22  00 ED 08 9A 01 91 20 47  | + ..^2"...... G|
000004E0: 20 89 35 30 30 2C 34 32  30 2C 35 39 30 00 06 09  | .500,420,590...|
000004F0: A4 01 99 22 C2 C3 5E 32  20 3D 22 41 42 AE 32 22  |..."..^2 ="AB.2"|
00000500: 2B 22 43 41 AE 32 00 1D  09 AE 01 99 22 C2 C3 20  |+"CA.2......".. |
00000510: 20 20 3D 22 41 42 AE 32  AA 43 41 AE 32 00 36 09  |  ="AB.2.CA.2.6.|
00000520: B8 01 99 22 C2 C3 20 20  20 3D BA A3 22 41 42 AE  |..."..   =.."AB.|
00000530: 32 AA 43 41 AE 32 00 50  09 C2 01 54 45 B2 41 42  |2.CA.2.P...TE.AB|
00000540: AE 32 AA 43 41 AE 32 3A  42 43 B2 BA 28 54 45 29  |.2.CA.2:BC..(TE)|
00000550: 00 60 09 CC 01 99 22 C2  C3 20 20 20 3D 22 42 43  |.`...."..   ="BC|
00000560: 00 7C 09 D6 01 42 43 24  B2 22 12 22 AA C4 28 42  |.|...BC$."."..(B|
00000570: 43 29 3A 99 22 13 22 3A  8D 33 35 30 00 91 09 E0  |C):.".":.350....|
00000580: 01 99 22 11 11 11 11 11  11 11 11 22 3A 89 31 32  |.."........":.12|
00000590: 30 00 B6 09 EA 01 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |0...... ********|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005B0: 2A 2A 2A 2A 2A 2A 00 D0  09 F4 01 99 22 C1 C2 5E  |******......"..^|
000005C0: 32 20 3D 20 C2 C3 5E 32  20 2D 20 C3 C1 5E 32 22  |2 = ..^2 - ..^2"|
000005D0: 00 EA 09 FE 01 99 22 C1  C2 5E 32 20 3D 22 42 43  |......"..^2 ="BC|
000005E0: AE 32 22 20 2D 22 43 41  AE 32 00 01 0A 08 02 99  |.2" -"CA.2......|
000005F0: 22 C1 C2 5E 32 20 3D 22  42 43 AE 32 AB 43 41 AE  |"..^2 ="BC.2.CA.|
00000600: 32 00 1A 0A 12 02 99 22  C1 C2 20 20 20 3D BA A3  |2......"..   =..|
00000610: 22 42 43 AE 32 AB 43 41  AE 32 00 34 0A 1C 02 54  |"BC.2.CA.2.4...T|
00000620: 45 B2 42 43 AE 32 AB 43  41 AE 32 3A 41 42 B2 BA  |E.BC.2.CA.2:AB..|
00000630: 28 54 45 29 00 44 0A 26  02 99 22 C1 C2 20 20 20  |(TE).D.&.."..   |
00000640: 3D 22 41 42 00 60 0A 30  02 41 42 24 B2 22 12 22  |="AB.`.0.AB$."."|
00000650: AA C4 28 41 42 29 3A 99  22 13 22 3A 8D 33 35 30  |..(AB):.".":.350|
00000660: 00 75 0A 3A 02 99 22 11  11 11 11 11 11 11 11 22  |.u.:.."........"|
00000670: 3A 89 31 32 30 00 9A 0A  44 02 8F 20 2A 2A 2A 2A  |:.120...D.. ****|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 B4 0A 4E 02 99  |**********...N..|
000006A0: 22 C3 C1 5E 32 20 3D 20  C2 C3 5E 32 20 2D 20 C1  |"..^2 = ..^2 - .|
000006B0: C2 5E 32 22 00 CF 0A 58  02 99 22 C3 C1 5E 32 20  |.^2"...X.."..^2 |
000006C0: 3D 22 42 43 AE 32 20 22  20 2D 22 41 42 AE 32 00  |="BC.2 " -"AB.2.|
000006D0: E6 0A 62 02 99 22 C3 C1  5E 32 20 3D 22 42 43 AE  |..b.."..^2 ="BC.|
000006E0: 32 AB 41 42 AE 32 00 FF  0A 6C 02 99 22 C3 C1 20  |2.AB.2...l..".. |
000006F0: 20 20 3D BA A3 22 42 43  AE 32 AB 41 42 AE 32 00  |  =.."BC.2.AB.2.|
00000700: 19 0B 76 02 54 45 B2 42  43 AE 32 AB 41 42 AE 32  |..v.TE.BC.2.AB.2|
00000710: 3A 43 41 B2 BA 28 54 45  29 00 29 0B 80 02 99 22  |:CA..(TE).)...."|
00000720: C3 C1 20 20 20 3D 22 43  41 00 45 0B 8A 02 43 41  |..   ="CA.E...CA|
00000730: 24 B2 22 12 22 AA C4 28  43 41 29 3A 99 22 13 22  |$."."..(CA):."."|
00000740: 3A 8D 33 35 30 00 5A 0B  94 02 99 22 11 11 11 11  |:.350.Z...."....|
00000750: 11 11 11 11 22 3A 89 31  32 30 00 92 0B 9E 02 99  |....":.120......|
00000760: 22 C2 C3 20 48 45 45 46  54 20 41 4C 54 49 4A 44  |".. HEEFT ALTIJD|
00000770: 20 44 45 20 47 52 4F 4F  54 53 54 45 20 4C 45 4E  | DE GROOTSTE LEN|
00000780: 47 54 45 20 21 21 20 20  13 11 11 22 3B 3A 89 31  |GTE !!  ...";:.1|
00000790: 37 30 00 00 00                                    |70...           |
.......59468,14......".".9.....9)"STELLI
NG VAN PYTHAGORAS.A.(..:..V.2.."WIL JE D
E STELLING VAN PYTHAGORAS ZIEN ?(J/N)"..
.<..A$:.A$."".60...F..A$."J".100...P..A$
."N".150...Z..60...D..:."VOOR EEN RECHTH
OEKIGE DRIEHOEK MET RECHTHOEKSZIJDE A EN
 B,";.).N.."EN HYPOTENUSA MET ZIJ-DE C G
ELDT A^2+B^2=C^2".Y.X.."................
........................".}...."TIK EEN 
TOETS IN VOOR VERDER.......A$:.A$."".140
.D....:.".TIK VOOR DE ZIJDE DIE JE WIL W
ETEN EEN  ";... .."'?' IN EN VUL VOOR DE
 ANDERE ZIJDE "......"GEWOON DE LENGTE I
N DIE JIJ WEET.":..P...."C...\.... \....
.  \......   \......A....B.":T.0.J...."L
ENGTE VAN AB ";AB$...H.."LENGTE VAN BC "
;BC$...R.."LENGTE VAN CA ";CA$......H(AB
$,1)."?".T.T.1:G.1:.240.X...AB.E(AB$):.A
B.0. F.1......H(BC$,1)."?".T.T.1:G.2:.26
0.....BC.E(BC$):.BC.0. F.1.3....H(CA$,1)
."?".T.T.1:G.3:.280.L...CA.E(CA$):.CA.0.
 F.1.A....G.1.BC..CA..670.V."..G.3.BC..A
B..670...,..T..1.."JE MOET 1 '?' INTIKKE
N.                ...";:T.0:.170...6..F.
1.F.0:."JE MAG GEEN '0' OF EEN LETTER IN
TIKKEN....";:.170...@..330:.390...J.."."
.B.T.."C...\.... \.....  \......   \....
..A....B.".Y.^..".........AB="AB$.P.H.."
.........BC="BC$...R..".........CA="CA$.
..|..:.:.:.:......."HOEK ABC=90 GRADEN =
> (PYTHAGORAS).X...."BC^2 = AB^2 + CA^2"
...... G .500,420,590......"BC^2 ="AB.2"
+"CA.2......"BC   ="AB.2.CA.2.6...."BC  
 =.."AB.2.CA.2.P.B.TE.AB.2.CA.2:BC..(TE)
.`.L.."BC   ="BC.|.V.BC$.".".D(BC):.".":
.350......"........":.120...... ********
**********************.P...."AB^2 = BC^2
 - CA^2"......"AB^2 ="BC.2" -"CA.2......
"AB^2 ="BC.2.CA.2......"AB   =.."BC.2.CA
.2.4...TE.BC.2.CA.2:AB..(TE).D.&.."AB   
="AB.`.0.AB$.".".D(AB):.".":.350.U.:..".
.......":.120...D.. ********************
**********...N.."CA^2 = BC^2 - AB^2".O.X
.."CA^2 ="BC.2 " -"AB.2...B.."CA^2 ="BC.
2.AB.2...L.."CA   =.."BC.2.AB.2...V.TE.B
C.2.AB.2:CA..(TE).)...."CA   ="CA.E...CA
$.".".D(CA):.".":.350.Z...."........":.1
20......"BC HEEFT ALTIJD DE GROOTSTE LEN
GTE !!  ...";:.170...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL