STATISTIC CALC.
FILE INFORMATION
FILENAME(S): STATISTIC CALC.
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 00:17:31
APPEARS ON: 1 disk(s)
FILE HASH
e57c58cd33dd9d3c688222a0c0bac64d88fd287a866d9b70c6563469da2ecac9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020B | STATISTIC CALC. | PRG | Maestro | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 38 04 89 31 32 35 30 00 2C 08 42 04 |....8..1250.,.B.| 00000010: 8F 20 2A 2A 2A 20 53 48 45 4C 4C 20 4D 45 4E 54 |. *** SHELL MENT| 00000020: 5A 45 52 20 53 4F 52 54 20 2A 2A 2A 00 34 08 4C |ZER SORT ***.4.L| 00000030: 04 4D B2 45 00 41 08 56 04 4D B2 B5 28 4D AD 32 |.M.E.A.V.M..(M.2| 00000040: 29 00 4C 08 60 04 8B 4D B2 30 A7 8E 00 5A 08 6A |).L.`..M.0...Z.j| 00000050: 04 4A B2 31 3A 4B B2 45 AB 4D 00 62 08 74 04 49 |.J.1:K.E.M.b.t.I| 00000060: B2 4A 00 6C 08 7E 04 4C B2 49 AA 4D 00 84 08 88 |.J.l.~.L.I.M....| 00000070: 04 8B 58 28 49 2C 30 29 B3 58 28 4C 2C 30 29 A7 |..X(I,0).X(L,0).| 00000080: 31 32 32 30 00 A8 08 92 04 54 B2 58 28 49 2C 30 |1220.....T.X(I,0| 00000090: 29 3A 58 28 49 2C 30 29 B2 58 28 4C 2C 30 29 3A |):X(I,0).X(L,0):| 000000A0: 58 28 4C 2C 30 29 B2 54 00 CC 08 9C 04 54 B2 58 |X(L,0).T.....T.X| 000000B0: 28 49 2C 31 29 3A 58 28 49 2C 31 29 B2 58 28 4C |(I,1):X(I,1).X(L| 000000C0: 2C 31 29 3A 58 28 4C 2C 31 29 B2 54 00 D6 08 A6 |,1):X(L,1).T....| 000000D0: 04 49 B2 49 AB 4D 00 E4 08 B0 04 8B 49 B3 31 A7 |.I.I.M......I.1.| 000000E0: 31 32 32 30 00 EE 08 BA 04 89 31 31 35 30 00 F8 |1220......1150..| 000000F0: 08 C4 04 4A B2 4A AA 31 00 07 09 CE 04 8B 4A B1 |...J.J.1......J.| 00000100: 4B 20 A7 31 31 31 30 00 11 09 D8 04 89 31 31 34 |K .1110......114| 00000110: 30 00 2A 09 E2 04 8F 20 2A 2A 2A 20 44 41 54 41 |0.*.... *** DATA| 00000120: 20 45 4E 54 52 59 20 2A 2A 2A 00 34 09 EC 04 45 | ENTRY ***.4...E| 00000130: B2 31 30 30 00 41 09 F6 04 53 58 B2 31 45 AA 31 |.100.A...SX.1E.1| 00000140: 30 00 75 09 00 05 99 22 93 11 41 4E 59 20 4F 46 |0.u...."..ANY OF| 00000150: 20 54 48 45 53 45 20 53 50 45 43 49 41 4C 20 43 | THESE SPECIAL C| 00000160: 4F 4E 44 49 54 49 4F 4E 53 3F 20 28 12 59 92 2F |ONDITIONS? (.Y./| 00000170: 12 4E 92 29 22 00 97 09 0A 05 99 22 11 20 20 20 |.N.)"......". | 00000180: 2E 20 4D 4F 52 45 20 54 48 41 4E 20 31 30 30 20 |. MORE THAN 100 | 00000190: 45 4E 54 52 49 45 53 00 B0 09 14 05 99 22 11 20 |ENTRIES......". | 000001A0: 20 20 2E 20 47 52 4F 55 50 45 44 20 44 41 54 41 | . GROUPED DATA| 000001B0: 00 CD 09 1E 05 99 22 11 20 20 20 2E 20 44 41 54 |......". . DAT| 000001C0: 41 20 49 53 20 41 20 53 41 4D 50 4C 45 00 E1 09 |A IS A SAMPLE...| 000001D0: 28 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 33 32 |(..A$:.A$."".132| 000001E0: 30 00 F2 09 32 05 8B 41 24 B2 22 59 22 A7 31 33 |0...2..A$."Y".13| 000001F0: 35 30 00 00 0A 3C 05 51 B2 31 3A 89 31 34 39 30 |50...<.Q.1:.1490| 00000200: 00 33 0A 46 05 99 22 11 41 52 45 20 54 48 45 52 |.3.F..".ARE THER| 00000210: 45 20 4D 4F 52 45 20 54 48 41 4E 20 31 30 30 20 |E MORE THAN 100 | 00000220: 45 4E 54 52 49 45 53 3F 20 28 12 59 92 2F 12 4E |ENTRIES? (.Y./.N| 00000230: 92 29 22 00 47 0A 50 05 A1 41 24 3A 8B 41 24 B2 |.)".G.P..A$:.A$.| 00000240: 22 22 A7 31 33 36 30 00 58 0A 5A 05 8B 41 24 B2 |"".1360.X.Z..A$.| 00000250: 22 4E 22 A7 31 33 39 30 00 85 0A 64 05 85 22 11 |"N".1390...d..".| 00000260: 41 42 4F 55 54 20 48 4F 57 20 4D 41 4E 59 20 49 |ABOUT HOW MANY I| 00000270: 4E 20 41 4C 4C 20 28 47 55 45 53 53 20 48 49 47 |N ALL (GUESS HIG| 00000280: 48 29 22 3B 45 00 B9 0A 6E 05 99 22 11 41 52 45 |H)";E...n..".ARE| 00000290: 20 54 48 45 59 20 12 53 92 49 4E 47 4C 45 20 49 | THEY .S.INGLE I| 000002A0: 54 45 4D 53 2C 20 4F 52 20 12 47 92 52 4F 55 50 |TEMS, OR .G.ROUP| 000002B0: 45 44 20 44 41 54 41 3F 22 00 CD 0A 78 05 A1 41 |ED DATA?"...x..A| 000002C0: 24 3A 8B 41 24 B2 22 22 A7 31 34 30 30 00 E3 0A |$:.A$."".1400...| 000002D0: 82 05 8B 41 24 B2 22 53 22 A7 51 B2 31 3A 89 31 |...A$."S".Q.1:.1| 000002E0: 34 34 30 00 F9 0A 8C 05 8B 41 24 B2 22 47 22 A7 |440......A$."G".| 000002F0: 47 B2 31 3A 89 31 34 34 30 00 03 0B 96 05 89 31 |G.1:.1440......1| 00000300: 34 30 30 00 32 0B A0 05 99 22 11 41 52 45 20 54 |400.2....".ARE T| 00000310: 48 45 59 20 41 20 12 50 92 4F 50 55 4C 41 54 49 |HEY A .P.OPULATI| 00000320: 4F 4E 20 4F 52 20 41 20 12 53 92 41 4D 50 4C 45 |ON OR A .S.AMPLE| 00000330: 3F 22 00 46 0B AA 05 A1 41 24 3A 8B 41 24 B2 22 |?".F....A$:.A$."| 00000340: 22 A7 31 34 35 30 00 57 0B B4 05 8B 41 24 B2 22 |".1450.W....A$."| 00000350: 50 22 A7 31 34 39 30 00 6D 0B BE 05 8B 41 24 B2 |P".1490.m....A$.| 00000360: 22 53 22 A7 53 B2 31 3A 89 31 34 39 30 00 77 0B |"S".S.1:.1490.w.| 00000370: C8 05 89 31 34 35 30 00 7D 0B D2 05 99 00 8D 0B |...1450.}.......| 00000380: DC 05 86 58 28 45 2C 31 29 3A 45 B2 30 00 A8 0B |...X(E,1):E.0...| 00000390: E6 05 99 22 11 11 45 4E 54 45 52 20 59 4F 55 52 |..."..ENTER YOUR| 000003A0: 20 44 41 54 41 3A 11 22 00 BE 0B F0 05 45 B2 45 | DATA:.".....E.E| 000003B0: AA 31 3A 8B 45 B3 31 30 A7 99 22 20 22 3B 00 C9 |.1:.E.10.." ";..| 000003C0: 0B F5 05 99 22 23 22 45 3B 00 DA 0B FA 05 85 22 |...."#"E;......"| 000003D0: A4 A4 A4 9D 9D 9D 22 3B 41 24 00 EB 0B 04 06 8B |......";A$......| 000003E0: 41 24 B2 22 A4 22 A7 31 36 35 30 00 F7 0B 0E 06 |A$.".".1650.....| 000003F0: 49 B2 C5 28 41 24 29 00 06 0C 18 06 8B 49 B1 4C |I..(A$)......I.L| 00000400: 58 A7 4C 58 B2 49 00 15 0C 22 06 8B 49 B3 53 58 |X.LX.I..."..I.SX| 00000410: A7 53 58 B2 49 00 28 0C 2C 06 8B 47 A7 85 22 46 |.SX.I.(.,..G.."F| 00000420: 52 45 51 22 3B 51 3A 99 00 35 0C 36 06 58 28 45 |REQ";Q:..5.6.X(E| 00000430: 2C 30 29 B2 49 00 42 0C 40 06 58 28 45 2C 31 29 |,0).I.B.@.X(E,1)| 00000440: B2 51 00 4C 0C 4A 06 4E B2 4E AA 51 00 58 0C 54 |.Q.L.J.N.N.Q.X.T| 00000450: 06 54 B2 54 AA 51 AC 49 00 68 0C 5E 06 54 53 B2 |.T.T.Q.I.h.^.TS.| 00000460: 54 53 AA 51 AC 49 AE 32 00 72 0C 68 06 89 31 35 |TS.Q.I.2.r.h..15| 00000470: 32 30 00 78 0C 72 06 99 00 9D 0C 7C 06 8F 20 2A |20.x.r.....|.. *| 00000480: 2A 2A 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 20 |** CALCULATIONS | 00000490: 26 20 44 49 53 50 4C 41 59 20 2A 2A 2A 00 A7 0C |& DISPLAY ***...| 000004A0: 86 06 45 B2 45 AB 31 00 B5 0C 8B 06 8B 4E B2 30 |..E.E.1......N.0| 000004B0: A7 31 37 30 30 00 C0 0C 90 06 4D 4E B2 54 AD 4E |.1700.....MN.T.N| 000004C0: 00 D8 0C 9A 06 56 B2 28 54 53 AB 4E AC 4D 4E AE |.....V.(TS.N.MN.| 000004D0: 32 29 AD 28 4E AB 53 29 00 EC 0C A4 06 99 22 93 |2).(N.S)......".| 000004E0: 11 23 45 4E 54 52 49 45 53 3A 22 45 00 FE 0C AE |.#ENTRIES:"E....| 000004F0: 06 99 22 20 20 23 20 44 41 54 41 3A 22 4E 00 17 |.." # DATA:"N..| 00000500: 0D B8 06 99 22 20 20 20 52 41 4E 47 45 3A 22 53 |...." RANGE:"S| 00000510: 58 22 54 4F 22 4C 58 00 29 0D C2 06 99 22 20 20 |X"TO"LX.)...." | 00000520: 20 54 4F 54 41 4C 3D 22 54 00 3C 0D CC 06 99 22 | TOTAL="T.<...."| 00000530: 20 20 20 20 4D 45 41 4E 3D 22 4D 4E 00 4E 0D D6 | MEAN="MN.N..| 00000540: 06 99 22 56 41 52 49 41 4E 43 45 3D 22 56 00 63 |.."VARIANCE="V.c| 00000550: 0D E0 06 99 22 20 53 54 44 20 44 45 56 3D 22 BA |...." STD DEV=".| 00000560: 28 56 29 00 8A 0D EA 06 99 22 20 20 4D 45 44 49 |(V)......" MEDI| 00000570: 41 4E 3D 20 12 53 4F 52 54 49 4E 47 92 22 3A 8B |AN= .SORTING.":.| 00000580: 4D 44 B2 30 A7 8D 31 31 30 30 00 A3 0D F4 06 4A |MD.0..1100.....J| 00000590: B2 30 3A 4D B2 B5 28 4E AD 32 29 3A 4C B2 4E AB |.0:M..(N.2):L.N.| 000005A0: 32 AC 4D 00 AE 0D FE 06 81 49 B2 31 A4 45 00 E5 |2.M......I.1.E..| 000005B0: 0D 08 07 8B 58 28 49 2C 30 29 B2 58 28 49 AA 31 |....X(I,0).X(I.1| 000005C0: 2C 30 29 A7 58 28 49 AA 31 2C 31 29 B2 58 28 49 |,0).X(I.1,1).X(I| 000005D0: 2C 31 29 AA 58 28 49 AA 31 2C 31 29 3A 58 28 49 |,1).X(I.1,1):X(I| 000005E0: 2C 31 29 B2 30 00 FC 0D 12 07 8B 58 28 49 2C 31 |,1).0......X(I,1| 000005F0: 29 A7 4A B2 4A AA 58 28 49 2C 31 29 00 1D 0E 1C |).J.J.X(I,1)....| 00000600: 07 8B 4A B2 4D AF 4C B2 31 A7 4D 44 B2 58 28 49 |..J.M.L.1.MD.X(I| 00000610: AA 31 2C 30 29 3A 4D B2 31 45 AA 31 30 00 49 0E |.1,0):M.1E.10.I.| 00000620: 26 07 8B 4A B2 4D AF 4C B2 30 A7 4D 44 B2 28 58 |&..J.M.L.0.MD.(X| 00000630: 28 49 2C 30 29 AA 58 28 49 AA 31 2C 30 29 29 AD |(I,0).X(I.1,0)).| 00000640: 32 3A 4D B2 31 45 AA 31 30 00 68 0E 30 07 8B 4A |2:M.1E.10.h.0..J| 00000650: B1 4D A7 4D 44 B2 58 28 49 2C 30 29 3A 4D B2 31 |.M.MD.X(I,0):M.1| 00000660: 45 AA 31 30 3A 4C B2 31 00 6E 0E 3A 07 82 00 82 |E.10:L.1.n.:....| 00000670: 0E 44 07 99 A3 39 29 22 91 20 20 20 20 20 20 20 |.D...9)". | 00000680: 20 22 00 AD 0E 4E 07 99 A3 39 29 22 91 22 4D 44 | "...N...9)"."MD| 00000690: 3B 3A 8B 4C B2 30 A7 99 22 28 4E 4F 54 20 41 20 |;:.L.0.."(NOT A | 000006A0: 44 41 54 41 20 50 4F 49 4E 54 29 22 3B 00 B3 0E |DATA POINT)";...| 000006B0: 58 07 99 00 DF 0E 62 07 99 22 11 12 44 41 54 55 |X.....b.."..DATU| 000006C0: 4D 92 20 20 20 20 20 12 46 52 45 51 55 45 4E 43 |M. .FREQUENC| 000006D0: 59 92 20 12 43 55 4D 2E 46 52 45 51 2E 11 22 00 |Y. .CUM.FREQ..".| 000006E0: F0 0E 6C 07 4A B2 30 3A 4B B2 30 3A 43 55 B2 30 |..l.J.0:K.0:CU.0| 000006F0: 00 FB 0E 76 07 81 49 B2 31 A4 45 00 35 0F 80 07 |...v..I.1.E.5...| 00000700: 8B 58 28 49 2C 31 29 A7 43 55 B2 43 55 AA 58 28 |.X(I,1).CU.CU.X(| 00000710: 49 2C 31 29 3A 99 58 28 49 2C 30 29 A3 31 33 29 |I,1):.X(I,0).13)| 00000720: 58 28 49 2C 31 29 2C 43 55 3A 4A B2 4A AA 31 3A |X(I,1),CU:J.J.1:| 00000730: 4B B2 4B AA 31 00 44 0F 8A 07 8B 4A B3 31 30 A7 |K.K.1.D....J.10.| 00000740: 32 30 33 30 00 53 0F 94 07 8B 49 B1 B2 4E A7 32 |2030.S....I..N.2| 00000750: 30 33 30 00 72 0F 9E 07 99 22 11 12 4D 4F 52 45 |030.r...."..MORE| 00000760: 92 20 2E 20 2E 20 50 52 45 53 53 20 41 20 4B 45 |. . . PRESS A KE| 00000770: 59 22 00 86 0F A8 07 A1 41 24 3A 8B 41 24 B2 22 |Y"......A$:.A$."| 00000780: 22 A7 31 39 36 30 00 90 0F B2 07 8D 33 30 30 30 |".1960......3000| 00000790: 00 97 0F EE 07 82 49 00 A6 0F F8 07 8B 4B B3 31 |......I......K.1| 000007A0: 31 A7 32 30 38 30 00 C9 0F 02 08 99 22 11 52 45 |1.2080......".RE| 000007B0: 56 49 45 57 20 54 48 45 20 44 41 54 41 3F 20 28 |VIEW THE DATA? (| 000007C0: 12 59 92 2F 12 4E 92 29 22 00 DD 0F 0C 08 A1 41 |.Y./.N.)"......A| 000007D0: 24 3A 8B 41 24 B2 22 22 A7 32 30 36 30 00 F6 0F |$:.A$."".2060...| 000007E0: 16 08 8B 41 24 B3 B1 22 4E 22 A7 8D 33 30 30 30 |...A$.."N"..3000| 000007F0: 3A 89 31 39 30 30 00 0E 10 20 08 99 22 11 45 4E |:.1900... ..".EN| 00000800: 54 45 52 20 4E 45 57 20 44 41 54 41 3F 22 00 22 |TER NEW DATA?"."| 00000810: 10 2A 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 |.*..A$:.A$."".20| 00000820: 39 30 00 30 10 34 08 8B 41 24 B2 22 4E 22 A7 80 |90.0.4..A$."N"..| 00000830: 00 36 10 3E 08 8A 00 58 10 B7 0B 8F 20 2A 2A 2A |.6.>...X.... ***| 00000840: 20 45 52 41 53 45 20 53 43 52 45 45 4E 20 57 49 | ERASE SCREEN WI| 00000850: 4E 44 4F 57 20 2A 2A 2A 00 72 10 B8 0B 42 24 B2 |NDOW ***.r...B$.| 00000860: 22 13 11 11 11 11 11 11 11 11 11 11 11 22 3A 99 |"............":.| 00000870: 42 24 00 7E 10 C2 0B 81 4A B2 31 A4 31 32 00 AA |B$.~....J.1.12..| 00000880: 10 CC 0B 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008A0: 20 20 20 20 20 20 20 20 20 22 00 B1 10 D6 0B 82 | "......| 000008B0: 4A 00 B9 10 E0 0B 4A B2 30 00 C1 10 EA 0B 99 42 |J.....J.0......B| 000008C0: 24 00 C7 10 F4 0B 8E 00 00 00 |$......... |
....8..1250.,.B.. *** SHELL MENTZER SORT
***.4.L.M.E.A.V.M..(M.2).L.`..M.0...Z.J
.J.1:K.E.M.B.T.I.J.L.~.L.I.M......X(I,0)
.X(L,0).1220.....T.X(I,0):X(I,0).X(L,0):
X(L,0).T.L...T.X(I,1):X(I,1).X(L,1):X(L,
1).T.V...I.I.M......I.1.1220......1150..
.D.J.J.1...N..J.K .1110...X..1140.*....
*** DATA ENTRY ***.4...E.100.A...SX.1E.1
0.U...."..ANY OF THESE SPECIAL CONDITION
S? (.Y./.N.)"......". . MORE THAN 100
ENTRIES......". . GROUPED DATA.M....".
. DATA IS A SAMPLE...(..A$:.A$."".132
0...2..A$."Y".1350...<.Q.1:.1490.3.F..".
ARE THERE MORE THAN 100 ENTRIES? (.Y./.N
.)".G.P..A$:.A$."".1360.X.Z..A$."N".1390
...D..".ABOUT HOW MANY IN ALL (GUESS HIG
H)";E...N..".ARE THEY .S.INGLE ITEMS, OR
.G.ROUPED DATA?".M.X..A$:.A$."".1400...
...A$."S".Q.1:.1440......A$."G".G.1:.144
0......1400.2. ..".ARE THEY A .P.OPULATI
ON OR A .S.AMPLE?".F....A$:.A$."".1450.W
....A$."P".1490.M....A$."S".S.1:.1490.W.
H..1450.}.R........X(E,1):E.0......"..EN
TER YOUR DATA:.".....E.E.1:.E.10.." ";.I
...."#"E;.Z...."......";A$......A$.".".1
650.....I.E(A$)......I.LX.LX.I..."..I.SX
.SX.I.(.,..G.."FREQ";Q:..5.6.X(E,0).I.B.
@.X(E,1).Q.L.J.N.N.Q.X.T.T.T.Q.I.H.^.TS.
TS.Q.I.2.R.H..1520.X.R.....|.. *** CALCU
LATIONS & DISPLAY ***.....E.E.1......N.0
.1700.....MN.T.N.X...V.(TS.N.MN.2).(N.S)
......"..#ENTRIES:"E......" # DATA:"N..
...." RANGE:"SX"TO"LX.).B.." TOTAL="
T.<.L.." MEAN="MN.N.V.."VARIANCE="V.C
...." STD DEV=".(V)......" MEDIAN= .SOR
TING.":.MD.0..1100.....J.0:M..(N.2):L.N.
2.M......I.1.E......X(I,0).X(I.1,0).X(I.
1,1).X(I,1).X(I.1,1):X(I,1).0......X(I,1
).J.J.X(I,1)......J.M.L.1.MD.X(I.1,0):M.
1E.10.I.&..J.M.L.0.MD.(X(I,0).X(I.1,0)).
2:M.1E.10.H.0..J.M.MD.X(I,0):M.1E.10:L.1
.N.:.....D...9)". "...N...9)"."MD
;:.L.0.."(NOT A DATA POINT)";...X.....B.
."..DATUM. .FREQUENCY. .CUM.FREQ..".
..L.J.0:K.0:CU.0...V..I.1.E.5....X(I,1).
CU.CU.X(I,1):.X(I,0).13)X(I,1),CU:J.J.1:
K.K.1.D....J.10.2030.S....I..N.2030.R...
."..MORE. . . PRESS A KEY"......A$:.A$."
".1960......3000......I......K.11.2080.I
....".REVIEW THE DATA? (.Y./.N.)"......A
$:.A$."".2060......A$.."N"..3000:.1900..
. ..".ENTER NEW DATA?".".*..A$:.A$."".20
90.0.4..A$."N"...6.>...X.... *** ERASE S
CREEN WINDOW ***.R...B$."............":.
B$.~.B..J.1.12...L.."
"...V..J.....J.0.A....B
$.G.......
> CLICK IMAGE PREVIEW FOR FULL MODAL