STD DEVIATION
FILE INFORMATION
FILENAME(S): STD DEVIATION
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-12-01 01:48:28
APPEARS ON: 1 disk(s)
FILE HASH
57ba097693089e9a0f070707d0c8e51454d2a17a25297bf778c9e762bd45a15f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 30 GEO | STD DEVIATION | PRG | hedning, Mattias H00r, hedning, scooby | 26 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 53 54 44 20 44 45 56 49 |....... STD DEVI| 00000010: 41 54 49 4F 4E 20 20 33 2F 31 30 2F 38 34 00 35 |ATION 3/10/84.5| 00000020: 08 14 00 8F 20 44 41 56 49 44 20 50 2E 20 57 49 |.... DAVID P. WI| 00000030: 47 47 49 4E 53 00 4C 08 1E 00 8F 20 34 39 33 37 |GGINS.L.... 4937| 00000040: 20 43 4F 52 49 4E 4E 45 20 53 54 2E 00 69 08 28 | CORINNE ST..i.(| 00000050: 00 8F 20 4E 45 57 20 4F 52 4C 45 41 4E 53 2C 20 |.. NEW ORLEANS, | 00000060: 4C 41 20 20 37 30 31 32 37 00 99 08 2D 00 8F 20 |LA 70127...-.. | 00000070: 43 41 4C 43 55 4C 41 54 45 20 41 52 52 41 59 20 |CALCULATE ARRAY | 00000080: 53 49 5A 45 20 42 41 53 45 44 20 4F 4E 20 46 52 |SIZE BASED ON FR| 00000090: 45 45 20 4D 45 4D 4F 52 59 00 BB 08 32 00 41 53 |EE MEMORY...2.AS| 000000A0: B2 B5 28 28 B8 28 30 29 AB 28 B8 28 30 29 B3 30 |..((.(0).(.(0).0| 000000B0: 29 AC 36 35 35 33 36 29 AD 37 29 00 DC 08 64 00 |).65536).7)...d.| 000000C0: 86 20 44 28 41 53 29 3A 8F 20 41 52 52 41 59 20 |. D(AS):. ARRAY | 000000D0: 48 4F 4C 44 53 20 53 43 4F 52 45 53 00 09 09 6E |HOLDS SCORES...n| 000000E0: 00 99 22 93 11 20 20 20 20 20 53 54 41 4E 44 41 |..".. STANDA| 000000F0: 52 44 20 44 45 56 49 41 54 49 4F 4E 20 43 41 4C |RD DEVIATION CAL| 00000100: 43 55 4C 41 54 4F 52 11 11 00 36 09 A0 00 99 22 |CULATOR...6...."| 00000110: 54 59 50 45 20 45 41 43 48 20 53 43 4F 52 45 20 |TYPE EACH SCORE | 00000120: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 3C 52 45 54 |FOLLOWED BY <RET| 00000130: 55 52 4E 3E 2E 11 00 64 09 AA 00 99 22 57 48 45 |URN>...d...."WHE| 00000140: 4E 20 41 4C 4C 20 54 48 45 20 53 43 4F 52 45 53 |N ALL THE SCORES| 00000150: 20 48 41 56 45 20 42 45 45 4E 20 45 4E 54 45 52 | HAVE BEEN ENTER| 00000160: 45 44 2C 11 00 94 09 B4 00 99 22 54 59 50 45 20 |ED,......."TYPE | 00000170: 12 45 4E 44 92 20 3C 52 45 54 55 52 4E 3E 20 41 |.END. <RETURN> A| 00000180: 4E 44 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 57 |ND CALCULATION W| 00000190: 49 4C 4C 11 00 C2 09 BE 00 99 22 42 45 47 49 4E |ILL......."BEGIN| 000001A0: 2E 20 20 54 59 50 49 4E 47 20 12 45 4E 44 92 20 |. TYPING .END. | 000001B0: 4F 4E 20 53 43 4F 52 45 20 23 31 20 57 49 4C 4C |ON SCORE #1 WILL| 000001C0: 20 11 00 EC 09 C3 00 99 22 45 58 49 54 20 54 48 | ......."EXIT TH| 000001D0: 45 20 50 52 4F 47 52 41 4D 2E 20 20 59 4F 55 20 |E PROGRAM. YOU | 000001E0: 43 41 4E 20 45 4E 54 45 52 20 41 11 00 0C 0A C5 |CAN ENTER A.....| 000001F0: 00 99 22 4D 41 58 49 4D 55 4D 20 4F 46 22 3B 41 |.."MAXIMUM OF";A| 00000200: 53 3B 22 53 43 4F 52 45 53 2E 11 11 00 23 0A C8 |S;"SCORES....#..| 00000210: 00 99 22 53 43 4F 52 45 20 23 22 2C 22 53 43 4F |.."SCORE #","SCO| 00000220: 52 45 11 00 4C 0A CD 00 50 B2 31 3A 8F 20 43 55 |RE..L...P.1:. CU| 00000230: 52 52 45 4E 54 20 50 4F 53 49 54 49 4F 4E 20 49 |RRENT POSITION I| 00000240: 4E 20 44 41 54 41 20 41 52 52 41 59 00 75 0A D2 |N DATA ARRAY.u..| 00000250: 00 4E B2 31 3A 8F 20 54 4F 54 41 4C 20 4E 55 4D |.N.1:. TOTAL NUM| 00000260: 42 45 52 20 4F 46 20 50 4F 49 4E 54 53 20 45 4E |BER OF POINTS EN| 00000270: 54 45 52 45 44 00 AF 0A 2C 01 99 20 50 2C 22 20 |TERED...,.. P," | 00000280: 22 3B 44 28 50 29 3B C7 28 31 33 29 22 91 22 2C |";D(P);.(13)".",| 00000290: 3A 8F 20 50 55 54 20 4F 4C 44 20 53 43 4F 52 45 |:. PUT OLD SCORE| 000002A0: 20 55 50 20 46 4F 52 20 45 44 49 54 49 4E 47 00 | UP FOR EDITING.| 000002B0: CB 0A 90 01 58 24 B2 22 22 3A 85 20 58 24 3A 8F |....X$."":. X$:.| 000002C0: 20 4D 41 49 4E 20 49 4E 50 55 54 00 0A 0B 9A 01 | MAIN INPUT.....| 000002D0: 8B 20 C8 28 58 24 2C 33 29 B2 22 45 4E 44 22 20 |. .(X$,3)."END" | 000002E0: A7 20 4E B2 4E AB 31 3A 89 20 31 30 30 30 3A 8F |. N.N.1:. 1000:.| 000002F0: 20 47 4F 20 43 41 4C 43 55 4C 41 54 45 20 49 46 | GO CALCULATE IF| 00000300: 20 45 4E 44 20 54 59 50 45 44 00 30 0B F4 01 44 | END TYPED.0...D| 00000310: 28 50 29 B2 C5 28 58 24 29 3A 8F 20 50 4C 41 43 |(P)..(X$):. PLAC| 00000320: 45 20 53 43 4F 52 45 20 49 4E 20 41 52 52 41 59 |E SCORE IN ARRAY| 00000330: 00 4D 0B 26 02 50 B2 50 AA 31 3A 8F 20 42 55 4D |.M.&.P.P.1:. BUM| 00000340: 50 20 55 50 20 50 4F 53 49 54 49 4F 4E 00 88 0B |P UP POSITION...| 00000350: 30 02 8B 20 50 B1 4E 20 A7 20 4E B2 50 3A 8F 20 |0.. P.N . N.P:. | 00000360: 4B 45 45 50 20 54 52 41 43 4B 20 4F 46 20 48 49 |KEEP TRACK OF HI| 00000370: 47 48 45 53 54 20 50 4F 53 49 54 49 4F 4E 20 55 |GHEST POSITION U| 00000380: 53 45 44 20 49 4E 20 4E 00 C0 0B 3A 02 8B 20 4E |SED IN N...:.. N| 00000390: B3 B2 41 53 20 A7 20 33 30 30 3A 8F 20 47 4F 20 |..AS . 300:. GO | 000003A0: 49 4E 50 55 54 20 4D 4F 52 45 20 49 46 20 41 52 |INPUT MORE IF AR| 000003B0: 52 41 59 20 57 49 4C 4C 20 48 4F 4C 44 20 49 54 |RAY WILL HOLD IT| 000003C0: 00 03 0C 44 02 99 22 4D 45 4D 4F 52 59 20 49 53 |...D.."MEMORY IS| 000003D0: 20 46 55 4C 4C 20 2D 20 43 41 4C 43 55 4C 41 54 | FULL - CALCULAT| 000003E0: 49 4E 47 22 3A 4E B2 4E AB 31 3A 8F 20 42 41 49 |ING":N.N.1:. BAI| 000003F0: 4C 20 4F 55 54 20 49 46 20 41 52 52 41 59 20 46 |L OUT IF ARRAY F| 00000400: 55 4C 4C 00 37 0C DE 03 8F 20 41 4C 4C 20 53 43 |ULL.7.... ALL SC| 00000410: 4F 52 45 53 20 43 4F 4C 4C 45 43 54 45 44 20 2D |ORES COLLECTED -| 00000420: 20 42 45 47 49 4E 20 43 41 4C 43 55 4C 41 54 49 | BEGIN CALCULATI| 00000430: 4F 4E 20 48 45 52 45 00 6D 0C E8 03 8B 20 4E B3 |ON HERE.m.... N.| 00000440: B1 30 20 A7 20 31 30 32 30 3A 8F 20 43 41 4C 43 |.0 . 1020:. CALC| 00000450: 55 4C 41 54 45 20 4F 4E 4C 59 20 49 46 20 41 52 |ULATE ONLY IF AR| 00000460: 52 41 59 20 4E 4F 54 20 45 4D 50 54 59 00 9D 0C |RAY NOT EMPTY...| 00000470: ED 03 99 22 11 4E 4F 20 53 43 4F 52 45 53 20 54 |...".NO SCORES T| 00000480: 59 50 45 44 20 49 4E 20 2D 20 45 58 49 54 49 4E |YPED IN - EXITIN| 00000490: 47 20 54 4F 20 42 41 53 49 43 22 3A 80 00 B5 0C |G TO BASIC":....| 000004A0: F2 03 8F 20 43 41 4C 43 55 4C 41 54 45 20 41 56 |... CALCULATE AV| 000004B0: 45 52 41 47 45 00 C6 0C FC 03 99 22 41 56 45 52 |ERAGE......"AVER| 000004C0: 41 47 45 22 2C 2C 00 D0 0C 06 04 53 55 4D B2 30 |AGE",,.....SUM.0| 000004D0: 00 DE 0C 4C 04 81 20 50 B2 31 20 A4 20 4E 00 F0 |...L.. P.1 . N..| 000004E0: 0C B0 04 3A 53 55 4D B2 53 55 4D AA 44 28 50 29 |...:SUM.SUM.D(P)| 000004F0: 00 F8 0C 14 05 82 20 50 00 04 0D 78 05 41 B2 53 |...... P...x.A.S| 00000500: 55 4D AD 4E 00 1B 0D DC 05 99 20 41 3A 8F 20 53 |UM.N...... A:. S| 00000510: 48 4F 57 20 41 56 45 52 41 47 45 00 36 0D F5 05 |HOW AVERAGE.6...| 00000520: 99 22 53 54 41 4E 44 41 52 44 20 44 45 56 49 41 |."STANDARD DEVIA| 00000530: 54 49 4F 4E 22 2C 00 54 0D FA 05 8F 20 53 51 3D |TION",.T.... SQ=| 00000540: 53 55 4D 20 28 44 41 54 41 2D 41 56 45 52 41 47 |SUM (DATA-AVERAG| 00000550: 45 29 5E 32 00 5D 0D 0E 06 53 51 B2 30 00 6B 0D |E)^2.]...SQ.0.k.| 00000560: 40 06 81 20 50 B2 31 20 A4 20 4E 00 81 0D A4 06 |@.. P.1 . N.....| 00000570: 3A 53 51 B2 53 51 AA 28 44 28 50 29 AB 41 29 AE |:SQ.SQ.(D(P).A).| 00000580: 32 00 89 0D 08 07 82 20 50 00 C6 0D 6C 07 53 44 |2...... P...l.SD| 00000590: B2 BA 28 53 51 AD 28 4E AB 30 29 29 3A 8F 20 59 |..(SQ.(N.0)):. Y| 000005A0: 45 53 2C 20 59 4F 55 20 43 41 4E 20 43 48 41 4E |ES, YOU CAN CHAN| 000005B0: 47 45 20 54 48 45 20 57 45 49 47 48 54 49 4E 47 |GE THE WEIGHTING| 000005C0: 20 54 4F 20 31 21 00 DF 0D 34 08 99 20 53 44 3B | TO 1!...4.. SD;| 000005D0: 22 11 22 3A 8F 20 53 48 4F 57 20 53 2E 44 2E 00 |".":. SHOW S.D..| 000005E0: 02 0E 98 08 89 20 32 30 30 3A 8F 20 47 4F 20 49 |..... 200:. GO I| 000005F0: 4E 50 55 54 20 41 4E 4F 54 48 45 52 20 42 41 54 |NPUT ANOTHER BAT| 00000600: 43 48 00 00 00 |CH... |
....... STD DEVIATION 3/10/84.5.... DAV ID P. WIGGINS.L.... 4937 CORINNE ST..I.( .. NEW ORLEANS, LA 70127...-.. CALCULAT E ARRAY SIZE BASED ON FREE MEMORY...2.AS ..((.(0).(.(0).0).65536).7)...D.. D(AS): . ARRAY HOLDS SCORES...N..".. STANDA RD DEVIATION CALCULATOR...6. .."TYPE EAC H SCORE FOLLOWED BY <RETURN>...D...."WHE N ALL THE SCORES HAVE BEEN ENTERED,..... .."TYPE .END. <RETURN> AND CALCULATION W ILL..B...."BEGIN. TYPING .END. ON SCORE #1 WILL ....C.."EXIT THE PROGRAM. YOU CAN ENTER A....E.."MAXIMUM OF";AS;"SCORE S....#.H.."SCORE #","SCORE..L.M.P.1:. CU RRENT POSITION IN DATA ARRAY.U.R.N.1:. T OTAL NUMBER OF POINTS ENTERED...,.. P," ";D(P);G(13)".",:. PUT OLD SCORE UP FOR EDITING.K...X$."":. X$:. MAIN INPUT..... . H(X$,3)."END" . N.N.1:. 1000:. GO CALC ULATE IF END TYPED.0...D(P).E(X$):. PLAC E SCORE IN ARRAY.M.&.P.P.1:. BUMP UP POS ITION...0.. P.N . N.P:. KEEP TRACK OF HI GHEST POSITION USED IN N...:.. N..AS . 3 00:. GO INPUT MORE IF ARRAY WILL HOLD IT ...D.."MEMORY IS FULL - CALCULATING":N.N .1:. BAIL OUT IF ARRAY FULL.7.... ALL SC ORES COLLECTED - BEGIN CALCULATION HERE. M.... N..0 . 1020:. CALCULATE ONLY IF AR RAY NOT EMPTY......".NO SCORES TYPED IN - EXITING TO BASIC":....... CALCULATE AV ERAGE.F...."AVERAGE",,.P...SUM.0...L.. P .1 . N.....:SUM.SUM.D(P)...... P...X.A.S UM.N...... A:. SHOW AVERAGE.6...."STANDA RD DEVIATION",.T.... SQ=SUM (DATA-AVERAG E)^2.]...SQ.0.K.@.. P.1 . N.....:SQ.SQ.( D(P).A).2...... P.F.L.SD..(SQ.(N.0)):. Y ES, YOU CAN CHANGE THE WEIGHTING TO 1!.. .4.. SD;".":. SHOW S.D....... 200:. GO I NPUT ANOTHER BATCH...
> CLICK IMAGE PREVIEW FOR FULL MODAL