ANOVA.C3
FILE INFORMATION
FILENAME(S): ANOVA.C3
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
b98e63513cf0773de5a55ccd6874070af147b4c9c2868a77bd0cca08385d0001
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | ANOVA.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 1 | DOWNLOAD FILE |
| L EHRNEN | ANOVA.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....| 00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY | 00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....| 00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .| 00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....| 00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh| 00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`| 00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh| 00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4| 00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU| 000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **| 000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO| 000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..| 000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I| 000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++| 000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."| 00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL| 00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." | 00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.| 00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.| 00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..| 00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.| 00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U| 00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>| 00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50| 00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC| 000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR| 000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR| 000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.| 000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++| 000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP| 000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z| 00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. | 00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU| 00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..| 00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.| 00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK | 00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...| 00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U| 00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).| 00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";| 00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH| 000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH| 000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.| 000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...| 000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..| 000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US| 000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............| 00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *| 00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT| 00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).| 00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(| 00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$| 00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1| 00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(| 00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9| 00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........| 00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI| 000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..| 000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U| 000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)| 000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$| 000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.| 000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN| 00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......| 00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..| 00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256| 00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...| 00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)| 00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1| 00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....| 00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$| 00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.| 00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(| 000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,| 000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6| 000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.| 000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT| 000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U| 000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1| 00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ| 00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).| 00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U| 00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4| 00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.| 00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.| 00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3| 00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$| 00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........| 00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" | 000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . | 000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U| 000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%| 000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)| 000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$| 00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.| 00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./| 00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.| 00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.| 00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)| 00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532| 00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..| 00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". | 00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006B0: 2D 2D 2D 2D 2D 22 00 D6 0E 3B 01 99 22 11 11 20 |-----"...;..".. | 000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN| 000006D0: 20 41 4E 4F 56 41 00 00 0F 40 01 99 22 11 11 20 | ANOVA...@..".. | 000006E0: 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 | 2. STUDE| 000006F0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |NT INSTRUCTIONS"| 00000700: 00 2A 0F 45 01 99 22 11 11 20 20 20 20 20 20 20 |.*.E..".. | 00000710: 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 |3. TEACHER INS| 00000720: 54 52 55 43 54 49 4F 4E 53 22 00 46 0F 4F 01 99 |TRUCTIONS".F.O..| 00000730: 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 |".. 4. Q| 00000740: 55 49 54 11 11 22 00 75 0F 54 01 99 22 20 2D 2D |UIT..".u.T.." --| 00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000770: 2D 2D 2D 2D 22 00 A0 0F 59 01 99 22 11 11 20 20 |----"...Y..".. | 00000780: 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D | PRESS A NUM| 00000790: 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 3B |BER KEY (1-4) ";| 000007A0: 00 C8 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 |...^.UL.1:US$."1| 000007B0: 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 |234":.35:. INPUT| 000007C0: 20 52 4F 55 54 49 4E 45 00 D3 0F 60 01 55 53 24 | ROUTINE...`.US$| 000007D0: B2 22 22 00 F0 0F 63 01 91 C5 28 55 52 24 29 8D |.""...c...(UR$).| 000007E0: 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 |1000,400,500,396| 000007F0: 00 F9 0F 68 01 89 33 30 30 00 20 10 8B 01 8F 20 |...h..300. .... | 00000800: 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F |** RE-ENABLE STO| 00000810: 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A |P KEY AND END **| 00000820: 00 4F 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 |.O.....(50003)..| 00000830: 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF |1..(50003)..160.| 00000840: C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 |.(50003)..0.399.| 00000850: 79 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |y....UU.71:..(50| 00000860: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:| 00000870: 97 35 33 32 38 30 2C 31 34 00 85 10 8E 01 99 22 |.53280,14......"| 00000880: 9A 93 22 3A 80 00 90 10 8F 01 8D 38 37 35 3A 8E |..":.......875:.| 00000890: 00 B1 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E |...... ** STUDEN| 000008A0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |T INSTRUCTIONS *| 000008B0: 2A 00 E0 10 95 01 99 22 93 22 3A 97 55 54 2C 55 |*......".":.UT,U| 000008C0: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..| 000008D0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0| 000008E0: 00 01 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 |.....UP.0:UG$.".| 000008F0: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85| 00000900: 30 00 2E 11 9F 01 99 22 11 20 C1 54 20 54 48 45 |0......". .T THE| 00000910: 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 54 48 | BEGINNING OF TH| 00000920: 45 20 50 52 4F 47 52 41 4D 20 59 4F 55 22 00 5D |E PROGRAM YOU".]| 00000930: 11 A4 01 99 22 11 20 57 49 4C 4C 20 42 45 20 41 |....". WILL BE A| 00000940: 42 4C 45 20 54 4F 20 43 48 4F 4F 53 45 20 49 46 |BLE TO CHOOSE IF| 00000950: 20 59 4F 55 20 57 41 4E 54 20 54 4F 22 00 7A 11 | YOU WANT TO".z.| 00000960: A8 01 99 22 11 20 49 4E 53 45 52 54 20 44 41 54 |...". INSERT DAT| 00000970: 41 20 4F 52 20 4E 4F 54 2E 22 00 A8 11 AE 01 99 |A OR NOT."......| 00000980: 22 11 20 C9 46 20 59 4F 55 20 57 41 4E 54 20 54 |". .F YOU WANT T| 00000990: 4F 20 50 55 54 20 49 4E 20 59 4F 55 52 20 4F 57 |O PUT IN YOUR OW| 000009A0: 4E 20 44 41 54 41 2C 22 00 CE 11 B0 01 99 22 11 |N DATA,"......".| 000009B0: 20 49 4E 53 45 52 54 20 44 41 54 41 20 4F 4E 20 | INSERT DATA ON | 000009C0: 4C 49 4E 45 20 32 30 30 30 20 41 53 3A 22 00 F9 |LINE 2000 AS:"..| 000009D0: 11 B2 01 99 22 11 20 C4 C1 D4 C1 20 4B 2C 20 C1 |....". .... K, .| 000009E0: 31 2C C1 32 2C 2E 2E 2E 39 39 39 2C C2 31 2C C2 |1,.2,...999,.1,.| 000009F0: 32 2C 2E 2E 2E 39 39 39 22 00 26 12 B4 01 99 22 |2,...999".&...."| 00000A00: 11 20 57 48 45 52 45 20 4B 20 49 53 20 54 48 45 |. WHERE K IS THE| 00000A10: 20 4E 55 4D 42 45 52 20 4F 46 20 47 52 4F 55 50 | NUMBER OF GROUP| 00000A20: 53 20 41 4E 44 22 00 5B 12 B5 01 99 22 11 20 39 |S AND".[....". 9| 00000A30: 39 39 20 49 4E 44 49 43 41 54 45 53 20 54 48 45 |99 INDICATES THE| 00000A40: 20 45 4E 44 20 4F 46 20 41 20 47 52 4F 55 50 2E | END OF A GROUP.| 00000A50: 22 3A 8D 38 33 35 3A 8D 38 35 30 00 72 12 B6 01 |":.835:.850.r...| 00000A60: 99 22 11 11 20 C6 4F 52 20 45 58 41 4D 50 4C 45 |.".. .OR EXAMPLE| 00000A70: 3A 22 00 98 12 B8 01 99 22 11 20 32 30 30 30 20 |:"......". 2000 | 00000A80: 44 41 54 41 33 2C 37 2C 31 30 2C 31 30 2C 31 31 |DATA3,7,10,10,11| 00000A90: 2C 31 32 2C 39 39 39 22 00 B8 12 B9 01 99 22 11 |,12,999"......".| 00000AA0: 20 32 30 30 35 20 44 41 54 41 34 2C 36 2C 37 2C | 2005 DATA4,6,7,| 00000AB0: 39 2C 39 2C 39 39 39 22 00 D8 12 BA 01 99 22 11 |9,9,999"......".| 00000AC0: 20 32 30 31 30 20 44 41 54 41 32 2C 32 2C 33 2C | 2010 DATA2,2,3,| 00000AD0: 37 2C 36 2C 39 39 39 22 00 E6 12 BB 01 8D 38 33 |7,6,999"......83| 00000AE0: 35 3A 8D 38 35 30 00 15 13 BC 01 99 22 11 20 D7 |5:.850......". .| 00000AF0: 48 45 4E 20 59 4F 55 20 48 41 56 45 20 46 49 4E |HEN YOU HAVE FIN| 00000B00: 49 53 48 45 44 20 49 4E 53 45 52 54 49 4E 47 20 |ISHED INSERTING | 00000B10: 59 4F 55 52 22 00 41 13 BD 01 99 22 11 20 44 41 |YOUR".A....". DA| 00000B20: 54 41 2C 20 54 59 50 45 20 12 D2 D5 CE 92 20 54 |TA, TYPE ..... T| 00000B30: 4F 20 47 4F 20 42 41 43 4B 20 54 4F 20 54 48 45 |O GO BACK TO THE| 00000B40: 22 00 6D 13 BE 01 99 22 20 11 50 52 4F 47 52 41 |".m...." .PROGRA| 00000B50: 4D 20 41 4E 44 20 54 59 50 45 20 12 CE CF 92 20 |M AND TYPE .... | 00000B60: 54 4F 20 54 48 45 20 46 49 52 53 54 22 00 98 13 |TO THE FIRST"...| 00000B70: BF 01 99 22 11 20 51 55 45 53 54 49 4F 4E 20 41 |...". QUESTION A| 00000B80: 4E 44 20 12 D9 C5 D3 92 20 54 4F 20 54 48 45 20 |ND ..... TO THE | 00000B90: 53 45 43 4F 4E 44 2E 22 00 A1 13 E5 01 8D 38 33 |SECOND."......83| 00000BA0: 35 00 B5 13 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%| 00000BB0: 3A 89 32 31 37 00 BB 13 F3 01 8E 00 DC 13 F4 01 |:.217...........| 00000BC0: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS| 00000BD0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 0C 14 F5 |TRUCTIONS **....| 00000BE0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..| 00000BF0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00000C00: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 2D 14 F6 |,2:.53280,10.-..| 00000C10: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH| 00000C20: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 5B 14 |ER .NST":.850.[.| 00000C30: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T| 00000C40: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K| 00000C50: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 84 14 F8 01 |NOWLEDGE,.".....| 00000C60: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000C70: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000C80: 49 43 11 22 00 B0 14 F9 01 99 22 20 20 20 44 4F |IC."......" DO| 00000C90: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I| 00000CA0: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."| 00000CB0: 00 CD 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE| 00000CC0: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 F7 14 | CONTACT:..."...| 00000CD0: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD| 00000CE0: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC| 00000CF0: 48 49 4E 45 53 11 22 00 1A 15 FC 01 99 22 20 20 |HINES."......" | 00000D00: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA| 00000D10: 52 4D 41 43 59 20 C1 56 45 2E 00 3E 15 FD 01 99 |RMACY .VE..>....| 00000D20: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC| 00000D30: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 60 |OURT, .NTARIO".`| 00000D40: 15 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .| 00000D50: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"| 00000D60: 00 80 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" | 00000D70: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"| 00000D80: 00 96 15 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:| 00000D90: 8D 20 38 35 30 3A 00 C1 15 01 02 99 22 20 20 20 |. 850:......" | 00000DA0: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME| 00000DB0: 3A 20 C1 4E 4F 56 41 20 20 20 20 20 20 20 20 20 |: .NOVA | 00000DC0: 11 00 EB 15 02 02 99 22 20 20 20 20 20 D7 52 49 |......." .RI| 00000DD0: 54 54 45 4E 20 C2 59 20 20 3A 20 C3 2E 20 C2 45 |TTEN .Y : .. .E| 00000DE0: 52 47 45 52 20 20 20 20 20 20 11 00 12 16 03 02 |RGER ......| 00000DF0: 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 |." .PGRADED | 00000E00: C2 59 20 3A 20 C4 41 52 4C 45 4E 20 C4 55 4D 41 |.Y : .ARLEN .UMA| 00000E10: 53 11 00 3D 16 04 02 99 22 20 20 20 20 20 11 D4 |S..=...." ..| 00000E20: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL| 00000E30: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 5D 16 | RUN ON ANY...].| 00000E40: 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 |..." ...| 00000E50: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 82 16 | 64 ............| 00000E60: 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |..." ...| 00000E70: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......| 00000E80: C5 D2 00 8B 16 09 02 8D 38 33 35 00 9F 16 4E 02 |........835...N.| 00000E90: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.| 00000EA0: A5 16 57 02 8E 00 CB 16 58 02 8F 20 2A 2A 20 50 |..W.....X.. ** P| 00000EB0: 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 |ROGRAM MODIFICAT| 00000EC0: 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 DC 16 59 02 |ION INST **...Y.| 00000ED0: 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 FC 16 5D |.".":.UT,UL%...]| 00000EE0: 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 |.UP.0:UG$.".ROGR| 00000EF0: 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 05 17 94 |AM .OD":.850....| 00000F00: 02 8D 38 33 35 00 19 17 B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.| 00000F10: 9E 55 50 25 3A 89 32 31 37 00 1F 17 BB 02 8E 00 |.UP%:.217.......| 00000F20: 44 17 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |D.... ** TO USE | 00000F30: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403| 00000F40: 32 20 2A 2A 00 7A 17 C6 02 99 22 93 11 11 11 05 |2 **.z....".....| 00000F50: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T| 00000F60: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A| 00000F70: 4E 20 38 30 33 32 20 20 11 11 00 B0 17 D0 02 99 |N 8032 ........| 00000F80: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE | 00000F90: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR| 00000FA0: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."| 00000FB0: 00 BB 17 DA 02 9E 55 55 AA 37 31 00 C1 17 E4 02 |......UU.71.....| 00000FC0: 80 00 E1 17 20 03 8F 20 2A 2A 20 54 20 49 20 54 |.... .. ** T I T| 00000FD0: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *| 00000FE0: 2A 00 15 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*...".."....";:.| 00000FF0: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)| 00001000: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53| 00001010: 32 38 31 2C 36 00 2B 18 24 03 81 49 B2 31 A4 33 |281,6.+.$..I.1.3| 00001020: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 43 18 26 03 |8:."...";:..C.&.| 00001030: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."| 00001040: 3B 3A 82 00 5B 18 28 03 81 49 B2 31 A4 33 37 3A |;:..[.(..I.1.37:| 00001050: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 73 18 2A 03 |.".....";:..s.*.| 00001060: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."| 00001070: 3B 3A 82 00 98 18 2C 03 99 22 13 11 11 11 11 11 |;:....,.."......| 00001080: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001090: 1D 1D 1D 12 A9 20 20 92 00 BA 18 2E 03 99 22 1D |..... .......".| 000010A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000010B0: 1D 12 20 92 20 20 12 20 92 A9 00 DB 18 30 03 99 |.. . . .....0..| 000010C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 000010D0: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 F9 18 32 03 |.... . ......2.| 000010E0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 000010F0: 1D 1D 1D 1D DF 12 20 20 92 00 21 19 34 03 99 22 |...... ..!.4.."| 00001100: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C | 00001110: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.| 00001120: 11 00 44 19 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..D.6.."........| 00001130: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION| 00001140: 41 4C 11 11 00 63 19 38 03 99 22 1D 1D 1D 1D 1D |AL...c.8..".....| 00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW| 00001160: 41 52 45 00 7E 19 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE.~.:.. ** COM| 00001170: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 B6 |MODORE LOGO **..| 00001180: 19 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |.;...(UD$,24);".| 00001190: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S| 000011A0: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT| 000011B0: 92 22 3A 49 B2 30 00 D8 19 3C 03 A1 41 24 3A 8B |.":I.0...<..A$:.| 000011C0: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I| 000011D0: B3 32 35 30 A7 38 32 38 00 FC 19 3E 03 54 31 24 |.250.828...>.T1$| 000011E0: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."| 000011F0: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 05 1A 40 |":T4$."":I.0...@| 00001200: 03 89 33 30 30 00 21 1A 43 03 8F 20 2A 2A 20 53 |..300.!.C.. ** S| 00001210: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *| 00001220: 2A 00 5C 1A 48 03 97 55 4F 2C 30 3A 99 C8 28 55 |*.\.H..UO,0:..(U| 00001230: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 |D$,24);".......P| 00001240: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T| 00001250: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 73 1A 4C |O CONTINUE.".s.L| 00001260: 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |..UI$:.UI$.." ".| 00001270: 38 34 34 00 79 1A 4E 03 8E 00 99 1A 52 03 8F 20 |844.y.N.....R.. | 00001280: 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 |** PAGE DESIGN R| 00001290: 4F 55 54 49 4E 45 20 2A 2A 00 A5 1A 54 03 55 50 |OUTINE **...T.UP| 000012A0: B2 55 50 AA 31 00 CF 1A 57 03 99 22 93 22 C8 28 |.UP.1...W..".".(| 000012B0: 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 |UT$.UP$,21);.(UP| 000012C0: 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 |$.UG$..(UP),18).| 000012D0: FE 1A 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..\.." ---------| 000012E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 0D |-------------"..| 00001300: 1B 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 41 1B |.`..UH..0.870.A.| 00001310: 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 |a...(UD$,24);.(U| 00001320: 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 |P$,7);"HELP - PR| 00001330: 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E |ESS H <RETURN>| 00001340: 22 00 52 1B 66 03 55 48 B2 30 3A 99 22 13 11 22 |".R.f.UH.0:.".."| 00001350: 3A 8E 00 71 1B 6B 03 8F 20 2A 2A 20 50 4C 45 41 |:..q.k.. ** PLEA| 00001360: 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A |SE WAIT REMARK *| 00001370: 2A 00 A7 1B 70 03 99 C8 28 55 44 24 2C 32 34 29 |*...p...(UD$,24)| 00001380: 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 |;" ONE| 00001390: 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E | MOMENT PLEASE..| 000013A0: 2E 20 20 20 20 20 22 00 AD 1B 75 03 8E 00 CA 1B |. "...u.....| 000013B0: 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 |... ** SET UP VA| 000013C0: 52 49 41 42 4C 45 53 20 2A 2A 00 15 1C 85 03 55 |RIABLES **.....U| 000013D0: 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 |X$."H":.UQ%(1000| 000013E0: 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 |):UB.32768:U1.19| 000013F0: 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A |6:U2.197:U3.198:| 00001400: 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 |U4.216:UC.167:UU| 00001410: B2 31 30 32 34 00 53 1C 86 03 55 54 B2 35 39 34 |.1024.S...UT.594| 00001420: 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 |68:UU%.12:UL%.14| 00001430: 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 |:UP%.1146:UM.327| 00001440: 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 |68:UO.158:. 5000| 00001450: 33 2C 30 00 96 1C 87 03 8B C2 28 35 30 30 30 33 |3,0.......(50003| 00001460: 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 |).0.UB.1024:U1.2| 00001470: 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 |09:U2.210:U3.211| 00001480: 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 |:U4.214:UC.204:U| 00001490: 55 B2 32 30 34 38 00 D5 1C 88 03 8B C2 28 35 30 |U.2048.......(50| 000014A0: 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |003).0.UT.53272:| 000014B0: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP| 000014C0: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U| 000014D0: 4F B2 31 39 38 00 F9 1C 89 03 55 44 24 B2 22 13 |O.198.....UD$.".| 000014E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000014F0: 11 11 11 11 11 11 11 11 22 00 2B 1D 8A 03 55 50 |........".+...UP| 00001500: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." | 00001510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001520: 20 20 20 20 20 20 20 20 20 20 22 00 79 1D 8B 03 | ".y...| 00001530: 55 54 24 B2 22 20 C1 4E 4F 56 41 20 20 20 20 20 |UT$." .NOVA | 00001540: 20 20 20 20 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 | ....":. PLAC| 00001550: 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 |E PROGRAM TITLE | 00001560: 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 |HERE !!!!!!!!!!!| 00001570: 21 21 21 21 21 21 2A 2A 2A 00 7F 1D 8C 03 8E 00 |!!!!!!***.......| 00001580: 99 1D 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 |..... ** SET VAR| 00001590: 49 41 42 4C 45 53 20 2A 2A 00 A2 1D 93 03 8D 39 |IABLES **......9| 000015A0: 30 30 00 BD 1D 98 03 8F 20 2A 2A 20 43 48 45 43 |00...... ** CHEC| 000015B0: 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 DB 1D |K FOR 8032 **...| 000015C0: 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |...".":.".":. SH| 000015D0: 49 46 54 45 44 20 53 50 41 43 45 00 F2 1D A2 03 |IFTED SPACE.....| 000015E0: 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 |..(UB.40)..96..7| 000015F0: 30 30 00 0B 1E A3 03 8F 20 2A 2A 20 4D 45 4D 4F |00...... ** MEMO| 00001600: 52 59 20 43 48 45 43 4B 20 2A 2A 00 1F 1E A4 03 |RY CHECK **.....| 00001610: 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 |. .(0).2000.937.| 00001620: 4D 1E A5 03 99 22 93 11 11 05 54 48 49 53 20 4D |M...."....THIS M| 00001630: 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 |ACHINE DOES NOT | 00001640: 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 71 1E |HAVE ENOUGH.".q.| 00001650: A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 |..."MEMORY TO RU| 00001660: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 |N THIS PROGRAM !| 00001670: 22 00 7C 1E A7 03 9E 55 55 AA 37 31 00 82 1E A8 |".|....UU.71....| 00001680: 03 80 00 9C 1E A9 03 99 22 93 05 22 3A 8B C2 28 |........"..":..(| 00001690: 35 30 30 30 33 29 B2 30 A7 39 36 32 00 CB 1E AC |50003).0.962....| 000016A0: 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 |.. ** BASIC 2.0 | 000016B0: 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D | OR 4.0 OR C-| 000016C0: 36 34 20 53 45 54 55 50 20 2A 2A 00 09 1F AD 03 |64 SETUP **.....| 000016D0: 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C |.1075,133:.1076,| 000016E0: 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 |144:.1077,234:.1| 000016F0: 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A |079,4:.1080,133:| 00001700: 97 31 30 38 31 2C 31 34 35 00 3F 1F AE 03 97 31 |.1081,145.?....1| 00001710: 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 |091,155:.1098,13| 00001720: 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 |3:.1099,144:.110| 00001730: 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 |0,234:.1103,133.| 00001740: 61 1F AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 |a....1104,145:.1| 00001750: 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 |105,234:.1082,23| 00001760: 34 00 78 1F B1 03 8B C2 28 35 30 30 30 33 29 B3 |4.x.....(50003).| 00001770: B1 31 36 30 A7 39 35 35 00 A7 1F B6 03 97 31 30 |.160.955......10| 00001780: 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A |93,88:.1094,228:| 00001790: 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 |.1097,85:.1102,2| 000017A0: 32 38 3A 89 39 36 35 00 BC 1F BB 03 8B C2 28 35 |28:.965.......(5| 000017B0: 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 EB 1F C0 |0003)..1.990....| 000017C0: 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C |..1093,49:.1094,| 000017D0: 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 |230:.1097,46:.11| 000017E0: 30 32 2C 32 33 30 3A 89 39 36 35 00 25 20 C2 03 |02,230:.965.% ..| 000017F0: 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C |.2099,141:.2100,| 00001800: 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 |20:.2101,3:.2103| 00001810: 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 |,8:.2104,141:.21| 00001820: 30 35 2C 32 31 00 61 20 C3 03 97 32 31 30 36 2C |05,21.a ...2106,| 00001830: 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 |3:.2115,145:.211| 00001840: 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 |7,52:.2118,234:.| 00001850: 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 |2121,49:.2122,14| 00001860: 31 00 9B 20 C4 03 97 32 31 32 33 2C 32 30 3A 97 |1.. ...2123,20:.| 00001870: 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 |2124,3:.2126,234| 00001880: 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 |:.2127,141:.2128| 00001890: 2C 32 31 3A 97 32 31 32 39 2C 33 00 B9 20 C5 03 |,21:.2129,3.. ..| 000018A0: 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 |.UU.48:. DISABLE| 000018B0: 20 53 54 4F 50 20 4B 45 59 00 CA 20 CA 03 8D 38 | STOP KEY.. ...8| 000018C0: 30 30 3A 8F 20 54 49 54 4C 45 00 DA 20 D4 03 89 |00:. TITLE.. ...| 000018D0: 33 30 30 3A 8F 20 4D 45 4E 55 00 0B 21 DE 03 99 |300:. MENU..!...| 000018E0: 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E |".THE PGM WILL N| 000018F0: 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 |OT WORK ON THIS | 00001900: 4D 41 43 48 49 4E 45 21 22 3A 80 00 40 21 E8 03 |MACHINE!":..@!..| 00001910: 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A |.UZ.1..UP%:.UP%:| 00001920: 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 |UZ.0:. ** PROGRA| 00001930: 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A |M STARTS HERE **| 00001940: 00 6C 21 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 |.l!..."..";:.:..| 00001950: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281| 00001960: 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 78 21 F2 |,6:.53280,14.x!.| 00001970: 03 97 55 54 2C 55 4C 25 00 83 21 F3 03 55 47 24 |..UT,UL%..!..UG$| 00001980: B2 22 22 00 A6 21 FC 03 8F 20 41 4E 41 4C 59 53 |.""..!... ANALYS| 00001990: 49 53 20 4F 46 20 56 41 52 49 41 4E 43 45 20 50 |IS OF VARIANCE P| 000019A0: 52 4F 47 52 41 4D 00 C1 21 06 04 8F 20 43 41 52 |ROGRAM..!... CAR| 000019B0: 4C 20 42 45 52 47 45 52 20 20 37 2F 32 32 2F 37 |L BERGER 7/22/7| 000019C0: 39 00 DE 21 10 04 96 A5 50 28 58 29 B2 B5 28 58 |9..!....P(X)..(X| 000019D0: AC 31 30 AE 33 AA 2E 35 29 AD 31 30 AE 33 00 09 |.10.3..5).10.3..| 000019E0: 22 1A 04 8D 38 35 30 3A 99 22 11 20 C1 4E 41 4C |"...850:.". .NAL| 000019F0: 59 53 49 53 20 4F 46 20 56 41 52 49 41 4E 43 45 |YSIS OF VARIANCE| 00001A00: 20 28 31 2D 57 41 59 29 22 00 38 22 1F 04 99 22 | (1-WAY)".8"..."| 00001A10: 11 11 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |.. .O YOU WISH T| 00001A20: 4F 20 49 4E 53 45 52 54 20 59 4F 55 52 20 4F 57 |O INSERT YOUR OW| 00001A30: 4E 20 44 41 54 41 3F 22 00 5E 22 24 04 99 22 11 |N DATA?".^"$..".| 00001A40: 20 22 3B 3A 55 53 24 B2 22 59 4E 48 22 3A 55 4C | ";:US$."YNH":UL| 00001A50: B2 32 30 3A 8D 33 35 3A 5A 24 B2 55 52 24 00 74 |.20:.35:Z$.UR$.t| 00001A60: 22 29 04 8B C8 28 5A 24 2C 31 29 B2 22 59 22 A7 |")...(Z$,1)."Y".| 00001A70: 31 38 31 30 00 A0 22 38 04 99 22 11 11 20 D7 4F |1810.."8..".. .O| 00001A80: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 |ULD YOU LIKE TO | 00001A90: 55 53 45 20 54 48 45 20 46 20 56 41 4C 55 45 22 |USE THE F VALUE"| 00001AA0: 00 D4 22 3A 04 99 22 11 20 53 45 43 54 49 4F 4E |..":..". SECTION| 00001AB0: 20 4F 4E 4C 59 3F 20 22 3B 3A 55 53 24 B2 22 59 | ONLY? ";:US$."Y| 00001AC0: 4E 48 22 3A 55 4C B2 32 30 3A 8D 33 35 3A 5A 24 |NH":UL.20:.35:Z$| 00001AD0: B2 55 52 24 00 EA 22 42 04 8B C8 28 5A 24 2C 31 |.UR$.."B...(Z$,1| 00001AE0: 29 B2 22 59 22 A7 31 37 37 30 00 F8 22 4C 04 55 |)."Y".1770.."L.U| 00001AF0: 48 B2 31 3A 8D 38 35 30 00 09 23 56 04 8F 20 49 |H.1:.850..#V.. I| 00001B00: 4E 50 55 54 20 44 41 54 41 00 10 23 60 04 87 4B |NPUT DATA..#`..K| 00001B10: 00 39 23 6A 04 99 3A 99 22 20 C7 52 4F 55 50 20 |.9#j..:." .ROUP | 00001B20: 20 CE 20 20 CD 45 41 4E 20 20 20 D3 54 41 4E 44 | . .EAN .TAND| 00001B30: 2E 20 C4 45 56 2E 22 3A 99 00 44 23 74 04 81 41 |. .EV.":..D#t..A| 00001B40: B2 31 A4 4B 00 54 23 7E 04 4E B2 30 3A 53 B2 30 |.1.K.T#~.N.0:S.0| 00001B50: 3A 51 B2 30 00 5B 23 88 04 87 49 00 6B 23 92 04 |:Q.0.[#...I.k#..| 00001B60: 8B 49 B2 39 39 39 89 31 32 32 30 00 75 23 9C 04 |.I.999.1220.u#..| 00001B70: 53 B2 53 AA 49 00 81 23 A6 04 51 B2 51 AA 49 AC |S.S.I..#..Q.Q.I.| 00001B80: 49 00 8B 23 B0 04 4E B2 4E AA 31 00 95 23 BA 04 |I..#..N.N.1..#..| 00001B90: 89 31 31 36 30 00 9F 23 C4 04 4D B2 53 AD 4E 00 |.1160..#..M.S.N.| 00001BA0: B9 23 CE 04 53 44 B2 BA 28 28 51 AB 4E AC 4D AC |.#..SD..((Q.N.M.| 00001BB0: 4D 29 AD 28 4E AB 31 29 29 00 DD 23 D8 04 99 22 |M).(N.1))..#..."| 00001BC0: 20 22 41 3B A3 37 29 3B 4E A3 31 31 29 A5 50 28 | "A;.7);N.11).P(| 00001BD0: 4D 29 2C A3 31 39 29 A5 50 28 53 44 29 00 E9 23 |M),.19).P(SD)..#| 00001BE0: E2 04 54 4E B2 54 4E AA 4E 00 F5 23 EC 04 54 53 |..TN.TN.N..#..TS| 00001BF0: B2 54 53 AA 53 00 05 24 F6 04 54 51 B2 54 51 AA |.TS.S..$..TQ.TQ.| 00001C00: 53 AC 53 AD 4E 00 11 24 00 05 51 54 B2 51 54 AA |S.S.N..$..QT.QT.| 00001C10: 51 00 18 24 0A 05 82 41 00 2B 24 14 05 42 53 B2 |Q..$...A.+$..BS.| 00001C20: 54 51 AB 54 53 AC 54 53 AD 54 4E 00 3E 24 1E 05 |TQ.TS.TS.TN.>$..| 00001C30: 54 54 B2 51 54 AB 54 53 AC 54 53 AD 54 4E 00 4B |TT.QT.TS.TS.TN.K| 00001C40: 24 28 05 57 53 B2 54 54 AB 42 53 00 51 24 3C 05 |$(.WS.TT.BS.Q$<.| 00001C50: 8F 00 82 24 46 05 99 3A 99 3A 99 22 20 D3 4F 55 |...$F..:.:." .OU| 00001C60: 52 43 45 20 20 D3 55 4D 20 CF 46 20 D3 51 52 53 |RCE .UM .F .QRS| 00001C70: 20 20 C4 2E C6 2E 20 20 20 20 CD 2E D3 51 52 22 | .... ...QR"| 00001C80: 3A 99 00 B8 24 50 05 99 22 20 C2 45 54 57 45 45 |:...$P.." .ETWEE| 00001C90: 4E 22 3B A3 31 30 29 3B A5 50 28 42 53 29 3B A3 |N";.10);.P(BS);.| 00001CA0: 32 30 29 3B 4B AB 31 3B A3 32 38 29 A5 50 28 42 |20);K.1;.28).P(B| 00001CB0: 53 AD 28 4B AB 31 29 29 00 F2 24 5A 05 99 22 20 |S.(K.1))..$Z.." | 00001CC0: D7 49 54 48 49 4E 22 3B A3 31 30 29 3B A5 50 28 |.ITHIN";.10);.P(| 00001CD0: 57 53 29 3B A3 32 30 29 3B 28 54 4E AB 4B 29 3B |WS);.20);(TN.K);| 00001CE0: A3 32 38 29 3B A5 50 28 57 53 AD 28 54 4E AB 4B |.28);.P(WS.(TN.K| 00001CF0: 29 29 00 18 25 64 05 99 22 20 D4 4F 54 41 4C 22 |))..%d.." .OTAL"| 00001D00: 3B A3 31 30 29 3B A5 50 28 54 54 29 3B A3 32 30 |;.10);.P(TT);.20| 00001D10: 29 3B 28 54 4E AB 31 29 00 31 25 6E 05 46 B2 42 |);(TN.1).1%n.F.B| 00001D20: 53 AC 28 54 4E AB 4B 29 AD 57 53 AD 28 4B AB 31 |S.(TN.K).WS.(K.1| 00001D30: 29 00 42 25 78 05 45 54 B2 A5 50 28 42 53 AD 54 |).B%x.ET..P(BS.T| 00001D40: 54 29 00 62 25 82 05 99 22 11 11 20 D4 48 45 20 |T).b%...".. .HE | 00001D50: 46 20 56 41 4C 55 45 20 49 53 20 22 3B A5 50 28 |F VALUE IS ";.P(| 00001D60: 46 29 00 6C 25 8C 05 89 31 34 36 30 00 88 25 96 |F).l%...1460..%.| 00001D70: 05 99 22 11 20 C5 D4 C1 20 53 51 55 41 52 45 44 |..". ... SQUARED| 00001D80: 20 49 53 20 22 3B 45 54 00 93 25 AA 05 8D 38 33 | IS ";ET..%...83| 00001D90: 35 3A 8E 00 9E 25 B4 05 44 31 B2 4B AB 31 00 AA |5:...%..D1.K.1..| 00001DA0: 25 BE 05 44 32 B2 54 4E AB 4B 00 B2 25 C8 05 58 |%..D2.TN.K..%..X| 00001DB0: B2 31 00 C0 25 D2 05 8B 46 B3 31 A7 31 35 34 30 |.1..%...F.1.1540| 00001DC0: 00 C9 25 DC 05 53 B2 44 31 00 D2 25 E6 05 54 B2 |..%..S.D1..%..T.| 00001DD0: 44 32 00 DA 25 F0 05 5A B2 46 00 E4 25 FA 05 89 |D2..%..Z.F..%...| 00001DE0: 31 35 37 30 00 ED 25 04 06 53 B2 44 32 00 F6 25 |1570..%..S.D2..%| 00001DF0: 0E 06 54 B2 44 31 00 00 26 18 06 5A B2 31 AD 46 |..T.D1..&..Z.1.F| 00001E00: 00 0C 26 22 06 4A B2 32 AD 39 AD 53 00 18 26 2C |..&".J.2.9.S..&,| 00001E10: 06 4B B2 32 AD 39 AD 54 00 42 26 36 06 59 B2 B6 |.K.2.9.T.B&6.Y..| 00001E20: 28 28 31 AB 4B 29 AC 5A AE 28 31 AD 33 29 AB 31 |((1.K).Z.(1.3).1| 00001E30: AA 4A 29 AD BA 28 4B AC 5A AE 28 32 AD 33 29 AA |.J)..(K.Z.(2.3).| 00001E40: 4A 29 00 50 26 40 06 8B 54 B3 34 A7 31 36 34 30 |J).P&@..T.4.1640| 00001E50: 00 8D 26 4A 06 58 B2 2E 35 AD 28 31 AA 59 AC 28 |..&J.X..5.(1.Y.(| 00001E60: 2E 31 39 36 38 35 34 AA 59 AC 28 2E 31 31 35 31 |.196854.Y.(.1151| 00001E70: 39 34 AA 59 AC 28 2E 30 30 30 33 34 34 AA 59 AC |94.Y.(.000344.Y.| 00001E80: 2E 30 31 39 35 32 37 29 29 29 29 AE 34 00 A9 26 |.019527)))).4..&| 00001E90: 54 06 58 B2 B5 28 58 AC 31 30 30 30 30 30 AA 2E |T.X..(X.100000..| 00001EA0: 35 29 AD 31 30 30 30 30 30 00 B3 26 5E 06 89 31 |5).100000..&^..1| 00001EB0: 36 36 30 00 CB 26 68 06 59 B2 59 AC 28 31 AA 2E |660..&h.Y.Y.(1..| 00001EC0: 30 38 AC 59 AE 34 AD 54 AE 33 29 00 D5 26 72 06 |08.Y.4.T.3)..&r.| 00001ED0: 89 31 36 31 30 00 E4 26 7C 06 8B 46 B1 B2 31 A7 |.1610..&|..F..1.| 00001EE0: 31 36 38 30 00 EE 26 86 06 58 B2 31 AB 58 00 14 |1680..&..X.1.X..| 00001EF0: 27 90 06 99 22 11 20 D7 48 49 43 48 20 49 53 20 |'...". .HICH IS | 00001F00: 53 49 47 4E 49 46 49 43 41 4E 54 20 41 54 20 50 |SIGNIFICANT AT P| 00001F10: 3D 20 22 58 00 1E 27 9A 06 89 31 34 33 30 00 24 |= "X..'...1430.$| 00001F20: 27 A4 06 8A 00 2D 27 EA 06 8D 38 35 30 00 5C 27 |'....-'...850.\'| 00001F30: EF 06 99 22 11 20 C4 45 47 52 45 45 53 20 4F 46 |...". .EGREES OF| 00001F40: 20 46 52 45 45 44 4F 4D 20 49 4E 20 54 48 45 20 | FREEDOM IN THE | 00001F50: 4E 55 4D 45 52 41 54 4F 52 3F 11 22 00 80 27 F0 |NUMERATOR?."..'.| 00001F60: 06 55 53 24 B2 22 22 3A 55 4C B2 34 3A 99 22 20 |.US$."":UL.4:." | 00001F70: 22 3B 3A 8D 33 35 3A 44 31 B2 C5 28 55 52 24 29 |";:.35:D1..(UR$)| 00001F80: 00 B7 27 F4 06 99 22 11 20 C4 45 47 52 45 45 53 |..'...". .EGREES| 00001F90: 20 4F 46 20 46 52 45 45 44 4F 4D 20 49 4E 20 54 | OF FREEDOM IN T| 00001FA0: 48 45 20 44 45 4E 4F 4D 49 4E 41 54 4F 52 3F 22 |HE DENOMINATOR?"| 00001FB0: 3A 99 22 11 20 22 3B 00 D5 27 F9 06 55 53 24 B2 |:.". ";..'..US$.| 00001FC0: 22 22 3A 55 4C B2 34 3A 8D 33 35 3A 44 32 B2 C5 |"":UL.4:.35:D2..| 00001FD0: 28 55 52 24 29 00 F6 27 FE 06 99 22 11 20 C1 4E |(UR$)..'...". .N| 00001FE0: 44 20 54 48 45 4E 20 54 48 45 20 46 20 56 41 4C |D THEN THE F VAL| 00001FF0: 55 45 3F 20 22 3B 00 13 28 03 07 55 53 24 B2 22 |UE? ";..(..US$."| 00002000: 22 3A 55 4C B2 34 3A 8D 33 35 3A 46 B2 C5 28 55 |":UL.4:.35:F..(U| 00002010: 52 24 29 00 1D 28 08 07 89 31 34 38 30 00 2B 28 |R$)..(...1480.+(| 00002020: 12 07 8D 38 33 35 3A 8D 38 35 30 00 5C 28 17 07 |...835:.850.\(..| 00002030: 99 22 11 20 C3 48 41 4E 47 45 20 54 48 45 53 45 |.". .HANGE THESE| 00002040: 20 4C 49 4E 45 53 20 41 4E 44 20 54 48 45 4E 20 | LINES AND THEN | 00002050: 54 59 50 45 20 12 52 55 4E 92 2E 22 00 8C 28 19 |TYPE .RUN.."..(.| 00002060: 07 99 22 11 20 57 48 45 4E 20 59 4F 55 20 52 55 |..". WHEN YOU RU| 00002070: 4E 2C 20 41 4E 53 57 45 52 20 12 4E 4F 92 20 54 |N, ANSWER .NO. T| 00002080: 4F 20 54 48 45 20 46 49 52 53 54 22 00 BB 28 1B |O THE FIRST"..(.| 00002090: 07 99 22 11 20 51 55 45 53 54 49 4F 4E 20 41 4E |..". QUESTION AN| 000020A0: 44 20 12 59 45 53 92 20 54 4F 20 54 48 45 20 53 |D .YES. TO THE S| 000020B0: 45 43 4F 4E 44 20 4F 4E 45 2E 22 00 C6 28 1C 07 |ECOND ONE."..(..| 000020C0: 9B 32 30 30 30 AB 00 CC 28 3A 07 8E 00 E2 28 D0 |.2000...(:....(.| 000020D0: 07 83 33 2C 37 2C 31 30 2C 31 31 2C 31 32 2C 39 |..3,7,10,11,12,9| 000020E0: 39 39 00 F5 28 DA 07 83 34 2C 36 2C 37 2C 39 2C |99..(...4,6,7,9,| 000020F0: 39 2C 39 39 39 00 08 29 E4 07 83 32 2C 32 2C 33 |9,999..)...2,2,3| 00002100: 2C 37 2C 36 2C 39 39 39 00 00 00 |,7,6,999... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------".V
.;..".. 1. BEGIN ANOVA...@.."..
2. STUDENT INSTRUCTIONS".*.E..".
. 3. TEACHER INSTRUCTIONS".F.O..
".. 4. QUIT..".U.T.." ----------
----------------------------". .Y.."..
PRESS A NUMBER KEY (1-4) ";.H.^.UL.
1:US$."1234":.35:. INPUT ROUTINE.S.`.US$
.""...C..E(UR$).1000,400,500,396...H..30
0. .... ** RE-ENABLE STOP KEY AND END **
.O....B(50003)..1.B(50003)..160.B(50003)
..0.399.Y....UU.71:.B(50003).0..53281,6:
.53280,14......"..":.......875:....... *
* STUDENT INSTRUCTIONS **......".":.UT,U
L%:.B(50003).0..53281,0:.53280,0.....UP.
0:UG$."STUDENT INST":.850......". AT THE
BEGINNING OF THE PROGRAM YOU".]....". W
ILL BE ABLE TO CHOOSE IF YOU WANT TO".Z.
...". INSERT DATA OR NOT."......". IF YO
U WANT TO PUT IN YOUR OWN DATA,".N....".
INSERT DATA ON LINE 2000 AS:"......". D
ATA K, A1,A2,...999,B1,B2,...999".&...."
. WHERE K IS THE NUMBER OF GROUPS AND".[
....". 999 INDICATES THE END OF A GROUP.
":.835:.850.R....".. FOR EXAMPLE:"......
". 2000 DATA3,7,10,10,11,12,999"......".
2005 DATA4,6,7,9,9,999".X....". 2010 DA
TA2,2,3,7,6,999"......835:.850......". W
HEN YOU HAVE FINISHED INSERTING YOUR".A.
...". DATA, TYPE .RUN. TO GO BACK TO THE
".M...." .PROGRAM AND TYPE .NO. TO THE F
IRST"......". QUESTION AND .YES. TO THE
SECOND."......835......UZ.1..UP%:.217...
......... ** TEACHER INSTRUCTIONS **....
..".":.UT,UL%:.B(50003).0..53281,2:.5328
0,10.-...UP.0:UG$."TEACHER INST":.850.[.
...".. TO THE BEST OF OUR KNOWLEDGE
,."......" THIS PROGRAM IS IN THE PUBL
IC."......" DOMAIN. IF THIS IS NOT TH
E CASE.".M...." PLEASE CONTACT:..."...
..." COMMODORE BUSINESS MACHINES.".
....." 3370 PHARMACY AVE..>....
" AGINCOURT, ONTARIO".`...."
CANADA M1W 2K4"......"
(416) 499-4292".....UP.1:. 835:. 850:.A
...." ..PROGRAM NAME: ANOVA
......." WRITTEN BY : C. BERGER
......." UPGRADED BY : DARLEN DUMA
S..=...." .THIS PROGRAM WILL RUN ON
ANY...]...." PET 64 COMPUTER....
..." COMMODORE 64 COMPUTER......
835...N..UZ.1..UP%:.217...W...K.X.. ** P
ROGRAM MODIFICATION INST **...Y..".":.UT
,UL%...].UP.0:UG$."PROGRAM MOD":.850....
..835......UZ.1..UP%:.217.......D.... **
TO USE 8032 LOAD CBM4032 **.Z.F..".....
BEFORE RUNNING THIS PROGRAM ON AN 8032
.....P.." LOAD THE 'CBM 4032' PROGR
AM............."...Z..UU.71.A....... ..
** T I T L E P A G E **...".."....";:.
UT,UU%:.B(50003).0..53280,14:.53281,6.+.
$..I.1.38:."...";:..C.&..I.1.22:."....."
;:..[.(..I.1.37:.".....";:..S.*..I.1.22:
.".....";:....,.."......................
..... ......."................... . .
.....0.."................... . ......2.
.".................... ..!.4.."........
......C O M M O D O R E...D.6.."........
.......EDUCATIONAL...C.8..".............
...SOFTWARE.~.:.. ** COMMODORE LOGO **..
.;..H(UD$,24);"..........PRESS SPACE BAR
OR WAIT.":I.0.X.<..A$:.A$.." ".I.I.1:.I
.250.828...>.T1$."":T2$."":T3$."":T4$.""
:I.0...@..300.!.C.. ** SPACE BAR PRESS *
*.\.H..UO,0:.H(UD$,24);".......PRESS SPA
CE BAR TO CONTINUE.".S.L..UI$:.UI$.." ".
844.Y.N.....R.. ** PAGE DESIGN ROUTINE *
*...T.UP.UP.1.O.W.."."H(UT$.UP$,21);I(UP
$.UG$.D(UP),18)...\.." -----------------
---------------------"...`..UH..0.870.A.
A..H(UD$,24);H(UP$,7);"HELP - PRESS H
<RETURN>".R.F.UH.0:."..":..Q.K.. ** PLEA
SE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U...J.
... ** SET UP VARIABLES **.....UX$."H":.
UQ%(1000):UB.32768:U1.196:U2.197:U3.198:
U4.216:UC.167:UU.1024.S...UT.59468:UU%.1
2:UL%.14:UP%.1146:UM.32768:UO.158:. 5000
3,0......B(50003).0.UB.1024:U1.209:U2.21
0:U3.211:U4.214:UC.204:UU.2048.U....B(50
003).0.UT.53272:UU%.21:UL%.23:UP%.2139:U
M.1024:UO.198.....UD$.".................
........".+...UP$."
".Y...UT$." ANOVA
":. PLACE PROGRAM TITLE HERE !!!
!!!!!!!!!!!!!!***........... ** SET VAR
IABLES **......900...... ** CHECK FOR 80
32 **......".":." ":. SHIFTED SPACE.....
.B(UB.40)..96..700...... ** MEMORY CHECK
**...... .(0).2000.937.M...."....THIS M
ACHINE DOES NOT HAVE ENOUGH.".Q...."MEMO
RY TO RUN THIS PROGRAM !".|....UU.71....
........"..":.B(50003).0.962.K.... ** BA
SIC 2.0 OR 4.0 OR C-64 SETUP **.....
.1075,133:.1076,144:.1077,234:.1079,4:.1
080,133:.1081,145.?....1091,155:.1098,13
3:.1099,144:.1100,234:.1103,133.A....110
4,145:.1105,234:.1082,234.X....B(50003).
.160.955......1093,88:.1094,228:.1097,85
:.1102,228:.965......B(50003)..1.990....
..1093,49:.1094,230:.1097,46:.1102,230:.
965.% B..2099,141:.2100,20:.2101,3:.2103
,8:.2104,141:.2105,21.A C..2106,3:.2115,
145:.2117,52:.2118,234:.2121,49:.2122,14
1.. D..2123,20:.2124,3:.2126,234:.2127,1
41:.2128,21:.2129,3.. E..UU.48:. DISABLE
STOP KEY.J J..800:. TITLE.Z T..300:. ME
NU..!...".THE PGM WILL NOT WORK ON THIS
MACHINE!":..@!...UZ.1..UP%:.UP%:UZ.0:. *
* PROGRAM STARTS HERE **.L!..."..";:.:.B
(50003).0..53281,6:.53280,14.X!...UT,UL%
..!..UG$.""..!... ANALYSIS OF VARIANCE P
ROGRAM.A!... CARL BERGER 7/22/79..!....
P(X)..(X.10.3..5).10.3.."...850:.". ANAL
YSIS OF VARIANCE (1-WAY)".8"...".. DO YO
U WISH TO INSERT YOUR OWN DATA?".^"$..".
";:US$."YNH":UL.20:.35:Z$.UR$.T")..H(Z$
,1)."Y".1810. "8..".. WOULD YOU LIKE TO
USE THE F VALUE".T":..". SECTION ONLY? "
;:US$."YNH":UL.20:.35:Z$.UR$.."B..H(Z$,1
)."Y".1770.."L.UH.1:.850..#V.. INPUT DAT
A..#`..K.9#J..:." GROUP N MEAN STAND
. DEV.":..D#T..A.1.K.T#~.N.0:S.0:Q.0.[#.
..I.K#...I.999.1220.U#..S.S.I..#..Q.Q.I.
I..#..N.N.1..#...1160..#D.M.S.N..#N.SD..
((Q.N.M.M).(N.1))..#X.." "A;.7);N.11).P(
M),.19).P(SD)..#..TN.TN.N..#..TS.TS.S..$
..TQ.TQ.S.S.N..$..QT.QT.Q..$...A.+$..BS.
TQ.TS.TS.TN.>$..TT.QT.TS.TS.TN.K$(.WS.TT
.BS.Q$<....$F..:.:." SOURCE SUM OF SQRS
D.F. M.SQR":...$P.." BETWEEN";.10);
.P(BS);.20);K.1;.28).P(BS.(K.1))..$Z.."
WITHIN";.10);.P(WS);.20);(TN.K);.28);.P(
WS.(TN.K))..%D.." TOTAL";.10);.P(TT);.20
);(TN.1).1%N.F.BS.(TN.K).WS.(K.1).B%X.ET
..P(BS.TT).B%...".. THE F VALUE IS ";.P(
F).L%...1460..%...". ETA SQUARED IS ";ET
..%...835:...%..D1.K.1..%..D2.TN.K..%H.X
.1..%R..F.1.1540.I%..S.D1.R%..T.D2.Z%..Z
.F..%...1570..%..S.D2..%..T.D1..&..Z.1.F
..&".J.2.9.S..&,.K.2.9.T.B&6.Y..((1.K).Z
.(1.3).1.J)..(K.Z.(2.3).J).P&@..T.4.1640
..&J.X..5.(1.Y.(.196854.Y.(.115194.Y.(.0
00344.Y..019527)))).4..&T.X..(X.100000..
5).100000..&^..1660.K&H.Y.Y.(1..08.Y.4.T
.3).U&R..1610..&|..F..1.1680..&..X.1.X..
'...". WHICH IS SIGNIFICANT AT P= "X..'.
..1430.$'....-'...850.\'...". DEGREES OF
FREEDOM IN THE NUMERATOR?."..'..US$."":
UL.4:." ";:.35:D1.E(UR$)..'...". DEGREES
OF FREEDOM IN THE DENOMINATOR?":.". ";.
U'..US$."":UL.4:.35:D2.E(UR$)..'...". AN
D THEN THE F VALUE? ";..(..US$."":UL.4:.
35:F.E(UR$)..(...1480.+(...835:.850.\(..
.". CHANGE THESE LINES AND THEN TYPE .RU
N.."..(...". WHEN YOU RUN, ANSWER .NO. T
O THE FIRST"..(...". QUESTION AND .YES.
TO THE SECOND ONE.".F(...2000..L(:....(P
..3,7,10,11,12,999..(Z..4,6,7,9,9,999..)
...2,2,3,7,6,999...
> CLICK IMAGE PREVIEW FOR FULL MODAL