PI
FILE INFORMATION
FILENAME(S): PI
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:11:59
APPEARS ON: 1 disk(s)
FILE HASH
7752c1291beefc316e0ea7f7411652e4002277f19259c51985c9815b1b1656da
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THE BEST OF VCGN | PI | PRG | DuncanTwain | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 05 00 97 35 33 32 38 30 2C 39 3A 97 |.......53280,9:.| 00000010: 35 33 32 38 31 2C 39 00 23 08 07 00 99 C7 28 31 |53281,9.#.....(1| 00000020: 35 38 29 00 2D 08 0A 00 89 31 30 30 30 00 4B 08 |58).-....1000.K.| 00000030: 64 00 99 C7 28 31 34 37 29 3A 8E 3A 8F 20 53 43 |d...(147):.:. SC| 00000040: 48 45 52 4D 20 57 49 53 53 45 4E 00 51 08 E8 03 |HERM WISSEN.Q...| 00000050: 8F 00 5C 08 F2 03 53 50 24 B2 22 22 00 65 08 FC |..\...SP$."".e..| 00000060: 03 8D 31 30 30 00 91 08 06 04 99 A3 35 29 3B 22 |..100.......5);"| 00000070: 2A 2A 2A 20 43 41 4C 43 55 4C 20 44 45 20 50 49 |*** CALCUL DE PI| 00000080: 20 20 28 20 33 2C 31 34 2E 2E 2E 29 20 2A 2A 2A | ( 3,14...) ***| 00000090: 22 00 C2 08 10 04 99 3A 99 22 20 43 45 20 50 52 |"......:." CE PR| 000000A0: 4F 47 52 41 4D 4D 45 20 50 45 55 54 20 46 4F 55 |OGRAMME PEUT FOU| 000000B0: 52 4E 49 52 20 4A 55 53 51 55 27 41 20 31 30 30 |RNIR JUSQU'A 100| 000000C0: 30 22 00 ED 08 1A 04 99 22 44 45 43 49 4D 41 4C |0"......"DECIMAL| 000000D0: 45 53 20 44 45 20 50 49 2C 20 45 4E 20 55 4E 20 |ES DE PI, EN UN | 000000E0: 50 45 55 54 20 50 4C 55 53 20 44 45 22 00 19 09 |PEUT PLUS DE"...| 000000F0: 24 04 99 22 31 32 20 48 45 55 52 45 53 20 21 2E |$.."12 HEURES !.| 00000100: 2E 2E 20 4D 41 49 53 20 49 4C 20 45 4E 20 43 41 |.. MAIS IL EN CA| 00000110: 4C 43 55 4C 45 20 35 30 22 00 44 09 2E 04 99 22 |LCULE 50".D...."| 00000120: 45 4E 20 4D 4F 49 4E 53 20 44 45 20 32 20 4D 49 |EN MOINS DE 2 MI| 00000130: 4E 55 54 45 53 2C 20 33 30 20 53 45 43 4F 4E 44 |NUTES, 30 SECOND| 00000140: 45 53 2E 22 00 71 09 38 04 99 22 20 50 45 4E 44 |ES.".q.8.." PEND| 00000150: 41 4E 54 20 4C 45 20 43 41 4C 43 55 4C 2C 20 4C |ANT LE CALCUL, L| 00000160: 27 45 43 52 41 4E 20 41 46 46 49 43 48 45 52 41 |'ECRAN AFFICHERA| 00000170: 22 00 9D 09 42 04 99 22 44 45 53 20 4E 4F 4D 42 |"...B.."DES NOMB| 00000180: 52 45 53 20 44 45 43 52 4F 49 53 53 41 4E 54 53 |RES DECROISSANTS| 00000190: 2E 20 41 20 5A 45 52 4F 2C 20 4C 45 22 00 BA 09 |. A ZERO, LE"...| 000001A0: 4C 04 99 22 54 52 41 56 41 49 4C 20 53 45 52 41 |L.."TRAVAIL SERA| 000001B0: 20 54 45 52 4D 49 4E 45 2E 22 00 E7 09 56 04 99 | TERMINE."...V..| 000001C0: 3A 99 22 20 4E 45 20 56 4F 55 53 20 45 54 4F 4E |:." NE VOUS ETON| 000001D0: 4E 45 5A 20 50 41 53 20 53 49 20 4C 45 20 52 45 |NEZ PAS SI LE RE| 000001E0: 53 55 4C 54 41 54 22 00 15 0A 60 04 99 22 43 4F |SULTAT"...`.."CO| 000001F0: 4D 50 4F 52 54 45 20 31 2C 32 20 4F 55 20 33 20 |MPORTE 1,2 OU 3 | 00000200: 43 48 49 46 46 52 45 53 20 44 45 20 50 4C 55 53 |CHIFFRES DE PLUS| 00000210: 20 51 55 45 22 00 37 0A 6A 04 99 22 43 45 4C 55 | QUE".7.j.."CELU| 00000220: 49 20 51 55 45 20 56 4F 55 53 20 49 4E 44 49 51 |I QUE VOUS INDIQ| 00000230: 55 45 52 45 5A 2E 22 00 54 0A 74 04 99 22 51 55 |UEREZ.".T.t.."QU| 00000240: 49 20 50 45 55 54 20 4C 45 20 50 4C 55 53 2E 2E |I PEUT LE PLUS..| 00000250: 2E 22 3A 99 00 64 0A 7E 04 46 B2 31 45 33 3A 48 |.":..d.~.F.1E3:H| 00000260: B2 32 30 30 00 8E 0A 88 04 85 22 43 4F 4D 42 49 |.200......"COMBI| 00000270: 45 4E 20 56 4F 55 4C 45 5A 2D 56 4F 55 53 20 44 |EN VOULEZ-VOUS D| 00000280: 45 20 43 48 49 46 46 52 45 53 20 22 3B 4D 00 A1 |E CHIFFRES ";M..| 00000290: 0A 8D 04 8B 4D B1 32 30 30 30 30 B0 4D B3 32 A7 |....M.20000.M.2.| 000002A0: 8A 00 AD 0A 8F 04 99 C7 28 31 35 36 29 00 C6 0A |........(156)...| 000002B0: 92 04 4D B2 B5 28 28 4D AA 31 29 AD 33 AA 31 29 |..M..((M.1).3.1)| 000002C0: 3A 86 41 28 4D 29 00 E6 0A 9C 04 4E 30 B2 B5 28 |:.A(M).....N0..(| 000002D0: 4D AC 33 AC BC 28 31 30 29 AD BC 28 32 29 29 AB |M.3..(10)..(2)).| 000002E0: 31 3A 54 B2 54 54 00 09 0B A6 04 81 4E B2 4E 30 |1:T.TT......N.N0| 000002F0: A4 31 A9 AB 31 3A 41 28 31 29 B2 41 28 31 29 AA |.1..1:A(1).A(1).| 00000300: 48 3A 50 B2 32 AC 4E AA 31 00 3B 0B B0 04 81 49 |H:P.2.N.1.;....I| 00000310: B2 31 A4 4D 3A 44 B2 44 AC 46 AA 41 28 49 29 AC |.1.M:D.D.F.A(I).| 00000320: 4E 3A 41 28 49 29 B2 B5 28 44 AD 50 29 3A 44 B2 |N:A(I)..(D.P):D.| 00000330: 44 AB 41 28 49 29 AC 50 3A 82 49 00 57 0B BA 04 |D.A(I).P:.I.W...| 00000340: 44 B2 30 3A 99 4E 22 20 22 3B 3A 82 4E 3A 81 49 |D.0:.N" ";:.N:.I| 00000350: B2 4D A4 31 A9 AB 31 00 80 0B C4 04 8B 41 28 49 |.M.1..1......A(I| 00000360: 29 B1 B2 46 A7 41 28 49 AB 31 29 B2 41 28 49 AB |)..F.A(I.1).A(I.| 00000370: 31 29 AA 31 3A 41 28 49 29 B2 41 28 49 29 AB 46 |1).1:A(I).A(I).F| 00000380: 00 8E 0B CE 04 82 49 3A 54 B2 54 54 AB 54 00 94 |......I:T.TT.T..| 00000390: 0B D8 04 99 00 A1 0B E2 04 8D 31 30 30 3A 99 3A |..........100:.:| 000003A0: 99 00 D7 0B EC 04 99 22 81 56 4F 49 43 49 20 4C |.......".VOICI L| 000003B0: 45 20 4E 4F 4D 42 52 45 20 50 49 20 41 56 45 43 |E NOMBRE PI AVEC| 000003C0: 20 22 3B 4D AC 33 AB 31 3B 22 20 44 45 43 49 4D | ";M.3.1;" DECIM| 000003D0: 41 4C 45 53 20 3A 22 00 E9 0B F6 04 99 3A 99 22 |ALES :"......:."| 000003E0: 20 33 2E 22 3B 3A 4C B2 30 00 07 0C 00 05 41 24 | 3.";:L.0.....A$| 000003F0: B2 53 50 24 AA C4 28 41 28 31 29 29 3A 41 24 B2 |.SP$..(A(1)):A$.| 00000400: C9 28 41 24 2C 32 29 00 34 0C 0A 05 81 49 B2 32 |.(A$,2).4....I.2| 00000410: A4 4D 3A 42 24 B2 53 50 24 AA C4 28 41 28 49 29 |.M:B$.SP$..(A(I)| 00000420: AA 31 30 30 30 29 3A 41 24 B2 41 24 AA C9 28 42 |.1000):A$.A$..(B| 00000430: 24 2C 33 29 00 48 0C 14 05 8B C3 28 41 24 29 B1 |$,3).H.....(A$).| 00000440: 33 36 A7 8D 31 33 32 30 00 55 0C 1E 05 82 49 3A |36..1320.U....I:| 00000450: 8D 31 33 32 30 00 78 0C 28 05 99 C8 28 41 24 2C |.1320.x.(...(A$,| 00000460: 35 29 3B 22 20 22 3B 3A 41 24 B2 CA 28 41 24 2C |5);" ";:A$..(A$,| 00000470: 36 29 3A 4C B2 4C AA 36 00 8A 0C 32 05 8B C3 28 |6):L.L.6...2...(| 00000480: 41 24 29 B2 30 A7 31 33 36 30 00 99 0C 3C 05 8B |A$).0.1360...<..| 00000490: 4C B3 33 36 A7 31 33 32 30 00 AB 0C 46 05 4C B2 |L.36.1320...F.L.| 000004A0: 30 3A 99 3A 99 A3 33 29 3B 3A 8E 00 B1 0C 50 05 |0:.:..3);:....P.| 000004B0: 80 00 C7 0C 5A 05 8F 20 20 47 45 4F 52 47 45 20 |....Z.. GEORGE | 000004C0: 20 53 43 41 52 4F 4E 00 E6 0C 64 05 8F 20 20 35 | SCARON...d.. 5| 000004D0: 31 2C 52 55 45 53 45 20 52 41 50 48 49 4E 20 43 |1,RUESE RAPHIN C| 000004E0: 4F 52 44 49 45 52 00 FA 0C 6E 05 8F 20 20 36 32 |ORDIER...n.. 62| 000004F0: 32 36 30 2C 41 55 43 48 45 4C 00 09 0D 78 05 8F |260,AUCHEL...x..| 00000500: 20 20 46 52 41 4E 43 45 2E 00 00 00 00 | FRANCE..... |
.......53280,9:.53281,9.#....G(158).-... .1000.K.D..G(147):.:. SCHERM WISSEN.Q... ..\...SP$."".E....100.......5);"*** CALC UL DE PI ( 3,14...) ***".B....:." CE PR OGRAMME PEUT FOURNIR JUSQU'A 1000"...... "DECIMALES DE PI, EN UN PEUT PLUS DE"... $.."12 HEURES !... MAIS IL EN CALCULE 50 ".D...."EN MOINS DE 2 MINUTES, 30 SECOND ES.".Q.8.." PENDANT LE CALCUL, L'ECRAN A FFICHERA"...B.."DES NOMBRES DECROISSANTS . A ZERO, LE"...L.."TRAVAIL SERA TERMINE ."...V..:." NE VOUS ETONNEZ PAS SI LE RE SULTAT"...`.."COMPORTE 1,2 OU 3 CHIFFRES DE PLUS QUE".7.J.."CELUI QUE VOUS INDIQ UEREZ.".T.T.."QUI PEUT LE PLUS...":..D.~ .F.1E3:H.200......"COMBIEN VOULEZ-VOUS D E CHIFFRES ";M......M.20000.M.2........G (156).F...M..((M.1).3.1):.A(M).....N0..( M.3..(10)..(2)).1:T.TT......N.N0.1..1:A( 1).A(1).H:P.2.N.1.;....I.1.M:D.D.F.A(I). N:A(I)..(D.P):D.D.A(I).P:.I.W...D.0:.N" ";:.N:.I.M.1..1...D..A(I)..F.A(I.1).A(I. 1).1:A(I).A(I).F...N..I:T.TT.T...X...... ..100:.:..W....".VOICI LE NOMBRE PI AVEC ";M.3.1;" DECIMALES :"......:." 3.";:L. 0.....A$.SP$.D(A(1)):A$.I(A$,2).4....I.2 .M:B$.SP$.D(A(I).1000):A$.A$.I(B$,3).H.. ..C(A$).36..1320.U....I:.1320.X.(..H(A$, 5);" ";:A$.J(A$,6):L.L.6...2..C(A$).0.13 60...<..L.36.1320...F.L.0:.:..3);:....P. ..G.Z.. GEORGE SCARON...D.. 51,RUESE RAPHIN CORDIER...N.. 62260,AUCHEL...X.. FRANCE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL