ANALYSIS 1.C3
FILE INFORMATION
FILENAME(S): ANALYSIS 1.C3
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
4ae2990a8f95e6725d5434c0b9dfff72f0453e6e73950b55e5ae32a77ad79eee
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | ANALYSIS 1.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 4 | DOWNLOAD FILE |
| L EHRNEN | ANALYSIS 1.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 4 | 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 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..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 D9 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 41 4C 59 53 49 53 00 03 0F 40 01 99 22 | ANALYSIS...@.."|
000006E0: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 54 45 |.. 2. TE|
000006F0: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000700: 4E 53 22 00 2F 0F 45 01 99 22 11 11 20 20 20 20 |NS"./.E..".. |
00000710: 20 20 20 33 2E 20 20 20 4D 4F 44 49 46 49 43 41 | 3. MODIFICA|
00000720: 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 4D 00 |TION OF PROGRAM.|
00000730: 4B 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 |K.O..".. 4|
00000740: 2E 20 20 20 51 55 49 54 11 11 22 00 7A 0F 54 01 |. QUIT..".z.T.|
00000750: 99 22 20 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 2D 2D 2D 2D 2D 22 00 A5 0F 59 01 99 |---------"...Y..|
00000780: 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 |".. PRESS |
00000790: 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D |A NUMBER KEY (1-|
000007A0: 34 29 20 22 3B 00 CD 0F 5E 01 55 4C B2 31 3A 55 |4) ";...^.UL.1:U|
000007B0: 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 |S$."1234":.35:. |
000007C0: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 D8 0F |INPUT ROUTINE...|
000007D0: 60 01 55 53 24 B2 22 22 00 F5 0F 63 01 91 C5 28 |`.US$.""...c...(|
000007E0: 55 52 24 29 8D 31 30 30 30 2C 35 30 30 2C 36 30 |UR$).1000,500,60|
000007F0: 30 2C 33 39 36 00 FE 0F 68 01 89 33 30 30 00 25 |0,396...h..300.%|
00000800: 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C |.... ** RE-ENABL|
00000810: 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 |E STOP KEY AND E|
00000820: 4E 44 20 2A 2A 00 54 10 8C 01 8B C2 28 35 30 30 |ND **.T.....(500|
00000830: 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 |03)..1..(50003).|
00000840: B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 |.160..(50003)..0|
00000850: A7 33 39 39 00 7E 10 8D 01 9E 55 55 AA 37 31 3A |.399.~....UU.71:|
00000860: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000870: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 8A |81,6:.53280,14..|
00000880: 10 8E 01 99 22 9A 93 22 3A 80 00 95 10 8F 01 8D |...."..":.......|
00000890: 38 37 35 3A 8E 00 B6 10 90 01 8F 20 2A 2A 20 54 |875:....... ** T|
000008A0: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
000008B0: 4F 4E 53 20 2A 2A 00 BF 10 9A 01 8D 38 35 30 00 |ONS **......850.|
000008C0: EE 10 9B 01 99 22 11 20 D4 48 49 53 20 50 52 4F |.....". .HIS PRO|
000008D0: 47 52 41 4D 20 57 49 4C 4C 20 43 41 4C 43 55 4C |GRAM WILL CALCUL|
000008E0: 41 54 45 20 46 4F 52 20 41 20 53 45 54 22 00 1A |ATE FOR A SET"..|
000008F0: 11 9D 01 99 22 11 20 4F 46 20 53 54 55 44 45 4E |....". OF STUDEN|
00000900: 54 53 27 20 4D 41 52 4B 53 2C 20 54 48 45 20 46 |TS' MARKS, THE F|
00000910: 4F 4C 4C 4F 57 49 4E 47 3A 22 00 2F 11 9E 01 99 |OLLOWING:"./....|
00000920: 22 11 20 20 20 20 20 20 CD 45 44 49 41 4E 22 00 |". .EDIAN".|
00000930: 45 11 9F 01 99 22 11 20 20 20 20 20 20 C1 56 45 |E....". .VE|
00000940: 52 41 47 45 22 00 66 11 A0 01 99 22 11 20 20 20 |RAGE".f....". |
00000950: 20 20 20 D3 54 41 4E 44 41 52 44 20 C4 45 56 49 | .TANDARD .EVI|
00000960: 41 54 49 4F 4E 22 00 8F 11 A1 01 99 22 11 20 20 |ATION"......". |
00000970: 20 20 20 20 CE 55 4D 42 45 52 20 4F 46 20 D3 54 | .UMBER OF .T|
00000980: 55 44 45 4E 54 53 20 D0 41 53 53 49 4E 47 22 00 |UDENTS .ASSING".|
00000990: B8 11 A2 01 99 22 11 20 20 20 20 20 20 CE 55 4D |.....". .UM|
000009A0: 42 45 52 20 4F 46 20 D3 54 55 44 45 4E 54 53 20 |BER OF .TUDENTS |
000009B0: C6 41 49 4C 49 4E 47 22 00 E5 11 A3 01 99 22 11 |.AILING"......".|
000009C0: 20 20 20 20 20 20 D0 45 52 43 45 4E 54 41 47 45 | .ERCENTAGE|
000009D0: 20 4F 46 20 D3 54 55 44 45 4E 54 53 20 D0 41 53 | OF .TUDENTS .AS|
000009E0: 53 49 4E 47 22 00 12 12 A4 01 99 22 11 20 20 20 |SING"......". |
000009F0: 20 20 20 D0 45 52 43 45 4E 54 41 47 45 20 4F 46 | .ERCENTAGE OF|
00000A00: 20 D3 54 55 44 45 4E 54 53 20 C6 41 49 4C 49 4E | .TUDENTS .AILIN|
00000A10: 47 22 00 20 12 A6 01 8D 38 33 35 3A 8D 38 35 30 |G". ....835:.850|
00000A20: 00 50 12 A9 01 99 22 11 20 C5 4E 54 45 52 20 54 |.P....". .NTER T|
00000A30: 48 45 20 53 45 54 20 4F 46 20 4D 41 52 4B 53 20 |HE SET OF MARKS |
00000A40: 41 4E 44 20 45 4E 54 45 52 20 12 45 4E 44 92 22 |AND ENTER .END."|
00000A50: 00 7E 12 AA 01 99 22 11 20 57 48 45 4E 20 46 49 |.~....". WHEN FI|
00000A60: 4E 49 53 48 45 44 2E 20 D4 48 45 20 4D 41 58 49 |NISHED. .HE MAXI|
00000A70: 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 22 00 AB |MUM NUMBER OF"..|
00000A80: 12 AC 01 99 22 11 20 4D 41 52 4B 53 20 59 4F 55 |....". MARKS YOU|
00000A90: 20 43 41 4E 20 45 4E 54 45 52 20 49 53 20 35 30 | CAN ENTER IS 50|
00000AA0: 30 2E 20 C8 4F 57 45 56 45 52 22 00 CF 12 AE 01 |0. .OWEVER".....|
00000AB0: 99 22 11 20 54 48 49 53 20 4D 41 58 49 4D 55 4D |.". THIS MAXIMUM|
00000AC0: 20 43 41 4E 20 42 45 20 43 48 41 4E 47 45 44 00 | CAN BE CHANGED.|
00000AD0: EE 12 AF 01 99 22 11 20 28 20 53 45 45 20 CD CF |.....". ( SEE ..|
00000AE0: C4 C9 C6 C9 C3 C1 D4 C9 CF CE D3 29 2E 22 00 1D |...........)."..|
00000AF0: 13 B3 01 99 22 1D AF AF AF AF AF AF AF AF AF AF |...."...........|
00000B00: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000B10: AF AF AF AF AF AF AF AF AF AF AF AF 22 00 4A 13 |............".J.|
00000B20: B8 01 99 22 11 20 CE 4F 54 45 3A 20 C1 4C 57 41 |...". .OTE: .LWA|
00000B30: 59 53 20 50 52 45 53 53 20 54 48 45 20 3C D2 C5 |YS PRESS THE <..|
00000B40: D4 D5 D2 CE 3E 20 4B 45 59 22 00 6E 13 BA 01 99 |....> KEY".n....|
00000B50: 22 11 20 41 46 54 45 52 20 54 59 50 49 4E 47 20 |". AFTER TYPING |
00000B60: 49 4E 20 41 4E 20 41 4E 53 57 45 52 2E 22 00 99 |IN AN ANSWER."..|
00000B70: 13 BC 01 99 22 11 20 C9 46 20 41 54 20 41 4E 59 |....". .F AT ANY|
00000B80: 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 20 54 | TIME YOU WISH T|
00000B90: 4F 20 52 45 54 55 52 4E 22 00 C0 13 BE 01 99 22 |O RETURN"......"|
00000BA0: 11 20 54 4F 20 54 48 45 20 CD C5 CE D5 20 50 52 |. TO THE .... PR|
00000BB0: 45 53 53 20 48 20 3C D2 C5 D4 D5 D2 CE 3E 2E 22 |ESS H <......>."|
00000BC0: 00 D9 13 E5 01 8D 38 33 35 3A 55 54 24 B2 22 20 |......835:UT$." |
00000BD0: 41 4E 41 4C 59 53 49 53 22 00 ED 13 EA 01 8B 55 |ANALYSIS"......U|
00000BE0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 F3 13 |Z.1..UP%:.217...|
00000BF0: F3 01 8E 00 14 14 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000C00: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000C10: 53 20 2A 2A 00 44 14 F5 01 99 22 93 22 3A 97 55 |S **.D....".":.U|
00000C20: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000C30: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000C40: 30 2C 31 30 00 75 14 F6 01 55 50 B2 30 3A 55 54 |0,10.u...UP.0:UT|
00000C50: 24 B2 22 20 C1 CE C1 CC D9 D3 C9 D3 22 3A 55 47 |$." ........":UG|
00000C60: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000C70: 3A 8D 38 35 30 00 A3 14 F7 01 99 22 11 11 20 20 |:.850......".. |
00000C80: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000C90: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000CA0: 2C 11 22 00 CC 14 F8 01 99 22 20 20 20 54 48 49 |,."......" THI|
00000CB0: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000CC0: 54 48 45 20 50 55 42 4C 49 43 11 22 00 F8 14 F9 |THE PUBLIC."....|
00000CD0: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000CE0: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000CF0: 45 20 43 41 53 45 11 22 00 15 15 FA 01 99 22 20 |E CASE."......" |
00000D00: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000D10: 3A 11 11 11 22 00 3F 15 FB 01 99 22 20 20 20 20 |:...".?...." |
00000D20: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000D30: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000D40: 62 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |b...." |
00000D50: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000D60: 45 2E 00 86 15 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000D70: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000D80: 54 41 52 49 4F 22 00 A8 15 FE 01 99 22 20 20 20 |TARIO"......" |
00000D90: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000DA0: CD 31 D7 20 32 CB 34 22 00 C8 15 FF 01 99 22 20 |.1. 2.4"......" |
00000DB0: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000DC0: 39 39 2D 34 32 39 32 22 00 DE 15 00 02 55 50 B2 |99-4292".....UP.|
00000DD0: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 03 |1:. 835:. 850:..|
00000DE0: 16 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000DF0: 52 41 4D 20 CE 41 4D 45 3A 20 C1 4E 41 4C 59 53 |RAM .AME: .NALYS|
00000E00: 49 53 11 00 25 16 02 02 99 22 20 20 20 20 20 D7 |IS..%...." .|
00000E10: 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E 4B |RITTEN .Y : .NK|
00000E20: 4E 4F 57 4E 11 00 40 16 03 02 99 22 20 20 20 20 |NOWN..@...." |
00000E30: 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 11 | .PGRADED .Y : .|
00000E40: 00 6B 16 04 02 99 22 20 20 20 20 20 11 D4 48 49 |.k...." ..HI|
00000E50: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 |S PROGRAM WILL R|
00000E60: 55 4E 20 4F 4E 20 41 4E 59 11 11 00 8B 16 07 02 |UN ON ANY.......|
00000E70: 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 |." ... 6|
00000E80: 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 B0 16 08 02 |4 ..............|
00000E90: 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD CF |." .....|
00000EA0: C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 |.... 64 ........|
00000EB0: 00 BF 16 09 02 8D 38 33 35 20 3A 89 34 31 30 00 |......835 :.410.|
00000EC0: D3 16 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000ED0: 32 31 37 00 D9 16 57 02 8E 00 FF 16 58 02 8F 20 |217...W.....X.. |
00000EE0: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000EF0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000F00: 10 17 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000F10: 00 40 17 5D 02 55 50 B2 30 3A 55 54 24 B2 22 20 |.@.].UP.0:UT$." |
00000F20: C1 CE C1 CC D9 D3 C9 D3 22 3A 55 47 24 B2 22 D0 |........":UG$.".|
00000F30: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00000F40: 00 70 17 62 02 99 22 11 20 C9 46 20 59 4F 55 20 |.p.b..". .F YOU |
00000F50: 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 54 |WANT TO CHANGE T|
00000F60: 48 45 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 2D 22 |HE MAXIMUM NUM-"|
00000F70: 00 A0 17 64 02 99 22 11 20 42 45 52 20 4F 46 20 |...d..". BER OF |
00000F80: 4D 41 52 4B 53 20 59 4F 55 20 43 41 4E 20 45 4E |MARKS YOU CAN EN|
00000F90: 54 45 52 2C 54 48 45 4E 20 43 48 41 4E 47 45 22 |TER,THEN CHANGE"|
00000FA0: 00 D1 17 66 02 99 22 11 20 54 48 45 20 56 41 4C |...f..". THE VAL|
00000FB0: 55 45 20 46 4F 52 20 12 45 4E 92 20 49 4E 20 4C |UE FOR .EN. IN L|
00000FC0: 49 4E 45 20 12 39 31 36 92 20 54 4F 20 54 48 45 |INE .916. TO THE|
00000FD0: 22 00 E9 17 68 02 99 22 11 20 44 45 53 49 52 45 |"...h..". DESIRE|
00000FE0: 44 20 56 41 4C 55 45 2E 22 00 0D 18 6A 02 99 22 |D VALUE."...j.."|
00000FF0: 11 20 C9 2E C5 2E 20 39 31 36 20 12 45 4E 3D 35 |. .... 916 .EN=5|
00001000: 30 30 92 20 3C D2 C5 D4 D5 D2 CE 3E 22 00 3D 18 |00. <......>".=.|
00001010: 6C 02 99 22 11 20 D7 49 54 48 20 54 48 45 20 41 |l..". .ITH THE A|
00001020: 42 4F 56 45 2C 20 41 20 4D 41 58 49 4D 55 4D 20 |BOVE, A MAXIMUM |
00001030: 4F 46 20 35 30 30 20 4D 41 52 4B 53 22 00 56 18 |OF 500 MARKS".V.|
00001040: 6E 02 99 22 11 20 43 41 4E 20 42 45 20 45 4E 54 |n..". CAN BE ENT|
00001050: 45 52 45 44 2E 22 00 82 18 70 02 99 22 11 20 CE |ERED."...p..". .|
00001060: CF D4 C5 3A 20 CD 41 4B 45 20 53 55 52 45 20 54 |...: .AKE SURE T|
00001070: 48 41 54 20 54 48 45 20 56 41 4C 55 45 20 59 4F |HAT THE VALUE YO|
00001080: 55 22 00 B0 18 72 02 99 22 11 20 43 48 41 4E 47 |U"...r..". CHANG|
00001090: 45 20 46 4F 52 20 12 45 4E 92 20 49 53 20 41 20 |E FOR .EN. IS A |
000010A0: 4D 55 4C 54 49 50 4C 45 20 4F 46 20 31 30 2E 22 |MULTIPLE OF 10."|
000010B0: 00 BE 18 73 02 8D 38 33 35 3A 8D 38 35 30 00 F4 |...s..835:.850..|
000010C0: 18 74 02 99 22 11 11 11 11 11 20 C2 59 20 49 4E |.t.."..... .Y IN|
000010D0: 43 52 45 41 53 49 4E 47 20 54 48 45 20 56 41 4C |CREASING THE VAL|
000010E0: 55 45 20 41 42 4F 56 45 20 35 30 30 2C 54 48 45 |UE ABOVE 500,THE|
000010F0: 52 45 22 3B 00 1F 19 76 02 99 22 11 20 49 53 20 |RE";...v..". IS |
00001100: 41 20 43 48 41 4E 43 45 20 54 48 41 54 20 54 48 |A CHANCE THAT TH|
00001110: 45 52 45 20 4D 41 59 20 4E 4F 54 20 42 45 22 00 |ERE MAY NOT BE".|
00001120: 4F 19 78 02 99 22 11 20 45 4E 4F 55 47 48 20 4D |O.x..". ENOUGH M|
00001130: 45 4D 4F 52 59 20 4C 45 46 54 20 54 4F 20 52 55 |EMORY LEFT TO RU|
00001140: 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 22 00 |N THE PROGRAM.".|
00001150: 68 19 94 02 8D 38 33 35 3A 55 54 24 B2 22 20 41 |h....835:UT$." A|
00001160: 4E 41 4C 59 53 49 53 22 00 7C 19 B2 02 8B 55 5A |NALYSIS".|....UZ|
00001170: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 82 19 BB |.1..UP%:.217....|
00001180: 02 8E 00 A7 19 BC 02 8F 20 2A 2A 20 54 4F 20 55 |........ ** TO U|
00001190: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
000011A0: 34 30 33 32 20 2A 2A 00 DD 19 C6 02 99 22 93 11 |4032 **......"..|
000011B0: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
000011C0: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
000011D0: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 13 1A |N AN 8032 .....|
000011E0: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
000011F0: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
00001200: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
00001210: 11 11 22 00 1E 1A DA 02 9E 55 55 AA 37 31 00 24 |.."......UU.71.$|
00001220: 1A E4 02 80 00 49 1A 1D 03 8F 20 2A 2A 20 54 4F |.....I.... ** TO|
00001230: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
00001240: 42 4D 34 30 33 32 20 2A 2A 00 94 1A 1E 03 99 22 |BM4032 **......"|
00001250: 93 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00001260: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00001270: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F |ON AN 8032 ..LO|
00001280: 41 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 |AD CBM 4032 PROG|
00001290: 52 41 4D 22 00 A0 1A 1F 03 9E 31 30 39 33 3A 80 |RAM"......1093:.|
000012A0: 00 C0 1A 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 |... .. ** T I T |
000012B0: 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A |L E P A G E **|
000012C0: 00 F4 1A 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 |...".."....";:.U|
000012D0: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).|
000012E0: 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 |0..53280,14:.532|
000012F0: 38 31 2C 36 00 0A 1B 24 03 81 49 B2 31 A4 33 38 |81,6...$..I.1.38|
00001300: 3A 99 22 12 A6 92 22 3B 3A 82 00 22 1B 26 03 81 |:."...";:..".&..|
00001310: 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B |I.1.22:.".....";|
00001320: 3A 82 00 3A 1B 28 03 81 49 B2 31 A4 33 37 3A 99 |:..:.(..I.1.37:.|
00001330: 22 9D 9D 12 A6 92 22 3B 3A 82 00 52 1B 2A 03 81 |".....";:..R.*..|
00001340: 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B |I.1.22:.".....";|
00001350: 3A 82 00 77 1B 2C 03 99 22 13 11 11 11 11 11 11 |:..w.,..".......|
00001360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001370: 1D 1D 12 A9 20 20 92 00 99 1B 2E 03 99 22 1D 1D |.... ......."..|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001390: 12 20 92 20 20 12 20 92 A9 00 BA 1B 30 03 99 22 |. . . .....0.."|
000013A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013B0: 1D 1D 12 20 92 20 20 12 A3 DF 00 D8 1B 32 03 99 |... . ......2..|
000013C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000013D0: 1D 1D 1D DF 12 20 20 92 00 00 1C 34 03 99 22 11 |..... ....4..".|
000013E0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F |.............C O|
000013F0: 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 | M M O D O R E..|
00001400: 00 23 1C 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.#.6..".........|
00001410: 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 |......EDUCATIONA|
00001420: 4C 11 11 00 42 1C 38 03 99 22 1D 1D 1D 1D 1D 1D |L...B.8.."......|
00001430: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 |..........SOFTWA|
00001440: 52 45 00 5D 1C 3A 03 8F 20 2A 2A 20 43 4F 4D 4D |RE.].:.. ** COMM|
00001450: 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 95 1C |ODORE LOGO **...|
00001460: 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |;...(UD$,24);"..|
00001470: 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |........PRESS SP|
00001480: 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 |ACE BAR OR WAIT.|
00001490: 22 3A 49 B2 30 00 B7 1C 3C 03 A1 41 24 3A 8B 41 |":I.0...<..A$:.A|
000014A0: 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 |$.." ".I.I.1:.I.|
000014B0: 32 35 30 A7 38 32 38 00 DB 1C 3E 03 54 31 24 B2 |250.828...>.T1$.|
000014C0: 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 |"":T2$."":T3$.""|
000014D0: 3A 54 34 24 B2 22 22 3A 49 B2 30 00 E4 1C 40 03 |:T4$."":I.0...@.|
000014E0: 89 33 30 30 00 00 1D 43 03 8F 20 2A 2A 20 53 50 |.300...C.. ** SP|
000014F0: 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A |ACE BAR PRESS **|
00001500: 00 3B 1D 48 03 99 C8 28 55 44 24 2C 32 34 29 3B |.;.H...(UD$,24);|
00001510: 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |".......PRESS SP|
00001520: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI|
00001530: 4E 55 45 92 22 3A 97 55 4F 2C 30 00 52 1D 4C 03 |NUE.":.UO,0.R.L.|
00001540: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 |.UI$:.UI$.." ".8|
00001550: 34 34 00 58 1D 4E 03 8E 00 78 1D 52 03 8F 20 2A |44.X.N...x.R.. *|
00001560: 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F |* PAGE DESIGN RO|
00001570: 55 54 49 4E 45 20 2A 2A 00 84 1D 54 03 55 50 B2 |UTINE **...T.UP.|
00001580: 55 50 AA 31 00 AE 1D 57 03 99 22 93 22 C8 28 55 |UP.1...W..".".(U|
00001590: 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 |T$.UP$,21);.(UP$|
000015A0: AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 DD |.UG$..(UP),18)..|
000015B0: 1D 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.\.." ----------|
000015C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 EC 1D |------------"...|
000015E0: 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 20 1E 61 |`..UH..0.870. .a|
000015F0: 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 |...(UD$,24);.(UP|
00001600: 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 |$,7);"HELP - PRE|
00001610: 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 |SS H <RETURN>"|
00001620: 00 31 1E 66 03 55 48 B2 30 3A 99 22 13 11 22 3A |.1.f.UH.0:."..":|
00001630: 8E 00 50 1E 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |..P.k.. ** PLEAS|
00001640: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
00001650: 00 86 1E 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |...p...(UD$,24);|
00001660: 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 |" ONE |
00001670: 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E |MOMENT PLEASE...|
00001680: 20 20 20 20 20 22 00 8C 1E 75 03 8E 00 A9 1E 84 | "...u......|
00001690: 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 |.. ** SET UP VAR|
000016A0: 49 41 42 4C 45 53 20 2A 2A 00 F4 1E 85 03 55 58 |IABLES **.....UX|
000016B0: 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 |$."H":.UQ%(1000)|
000016C0: 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 |:UB.32768:U1.196|
000016D0: 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 |:U2.197:U3.198:U|
000016E0: 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 |4.216:UC.167:UU.|
000016F0: 31 30 32 34 00 32 1F 86 03 55 54 B2 35 39 34 36 |1024.2...UT.5946|
00001700: 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A |8:UU%.12:UL%.14:|
00001710: 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 |UP%.1146:UM.3276|
00001720: 38 3A 97 20 35 30 30 30 33 2C 30 3A 55 4F B2 31 |8:. 50003,0:UO.1|
00001730: 35 38 00 75 1F 87 03 8B C2 28 35 30 30 30 33 29 |58.u.....(50003)|
00001740: B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 |.0.UB.1024:U1.20|
00001750: 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A |9:U2.210:U3.211:|
00001760: 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 |U4.214:UC.204:UU|
00001770: B2 32 30 34 38 00 B4 1F 88 03 8B C2 28 35 30 30 |.2048.......(500|
00001780: 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 |03).0.UT.53272:U|
00001790: 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 |U%.21:UL%.23:UP%|
000017A0: B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F |.2139:UM.1024:UO|
000017B0: B2 31 39 38 00 D8 1F 89 03 55 44 24 B2 22 13 11 |.198.....UD$."..|
000017C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000017D0: 11 11 11 11 11 11 11 22 00 0A 20 8A 03 55 50 24 |.......".. ..UP$|
000017E0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000017F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001800: 20 20 20 20 20 20 20 20 20 22 00 58 20 8B 03 55 | ".X ..U|
00001810: 54 24 B2 22 20 41 4E 41 4C 59 53 49 53 20 20 20 |T$." ANALYSIS |
00001820: 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 | .....":. PLACE|
00001830: 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 | PROGRAM TITLE H|
00001840: 45 52 45 20 21 21 21 21 21 21 21 21 21 21 21 21 |ERE !!!!!!!!!!!!|
00001850: 21 21 21 21 21 2A 2A 2A 00 5E 20 8C 03 8E 00 64 |!!!!!***.^ ....d|
00001860: 20 8D 03 8E 00 7E 20 8E 03 8F 20 2A 2A 20 53 45 | ....~ ... ** SE|
00001870: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 87 |T VARIABLES **..|
00001880: 20 93 03 8D 39 30 30 00 99 20 94 03 45 4E B2 35 | ...900.. ..EN.5|
00001890: 30 30 3A 86 4D 28 45 4E 29 00 9F 20 95 03 3A 00 |00:.M(EN).. ..:.|
000018A0: BA 20 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |. ... ** CHECK F|
000018B0: 4F 52 20 38 30 33 32 20 2A 2A 00 D8 20 9D 03 99 |OR 8032 **.. ...|
000018C0: 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 |".":.".":. SHIFT|
000018D0: 45 44 20 53 50 41 43 45 00 EF 20 A2 03 8B C2 28 |ED SPACE.. ....(|
000018E0: 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 |UB.40)..96..700.|
000018F0: 08 21 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 |.!... ** MEMORY |
00001900: 43 48 45 43 4B 20 2A 2A 00 1C 21 A4 03 8B 20 B8 |CHECK **..!... .|
00001910: 28 30 29 B1 32 30 30 30 A7 39 33 37 00 4A 21 A5 |(0).2000.937.J!.|
00001920: 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 |.."....THIS MACH|
00001930: 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 |INE DOES NOT HAV|
00001940: 45 20 45 4E 4F 55 47 48 11 22 00 6E 21 A6 03 99 |E ENOUGH.".n!...|
00001950: 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 |"MEMORY TO RUN T|
00001960: 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 79 |HIS PROGRAM !".y|
00001970: 21 A7 03 9E 55 55 AA 37 31 00 7F 21 A8 03 80 00 |!...UU.71..!....|
00001980: 99 21 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 |.!..."..":..(500|
00001990: 30 33 29 B2 30 A7 39 36 32 00 C8 21 AC 03 8F 20 |03).0.962..!... |
000019A0: 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 |** BASIC 2.0 OR|
000019B0: 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 | 4.0 OR C-64 |
000019C0: 53 45 54 55 50 20 2A 2A 00 06 22 AD 03 97 31 30 |SETUP **.."...10|
000019D0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
000019E0: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
000019F0: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
00001A00: 38 31 2C 31 34 35 00 3C 22 AE 03 97 31 30 39 31 |81,145.<"...1091|
00001A10: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001A20: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001A30: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 5E 22 AF |34:.1103,133.^".|
00001A40: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001A50: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 75 |,234:.1082,234.u|
00001A60: 22 B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 |"....(50003)..16|
00001A70: 30 A7 39 35 35 00 A4 22 B6 03 97 31 30 39 33 2C |0.955.."...1093,|
00001A80: 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 |88:.1094,228:.10|
00001A90: 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A |97,85:.1102,228:|
00001AA0: 89 39 36 35 00 B9 22 BB 03 8B C2 28 35 30 30 30 |.965.."....(5000|
00001AB0: 33 29 B3 B1 31 A7 39 39 30 00 E8 22 C0 03 97 31 |3)..1.990.."...1|
00001AC0: 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 |093,49:.1094,230|
00001AD0: 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C |:.1097,46:.1102,|
00001AE0: 32 33 30 3A 89 39 36 35 00 22 23 C2 03 97 32 30 |230:.965."#...20|
00001AF0: 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A |99,141:.2100,20:|
00001B00: 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A |.2101,3:.2103,8:|
00001B10: 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C |.2104,141:.2105,|
00001B20: 32 31 00 5E 23 C3 03 97 32 31 30 36 2C 33 3A 97 |21.^#...2106,3:.|
00001B30: 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 |2115,145:.2117,5|
00001B40: 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 |2:.2118,234:.212|
00001B50: 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 98 |1,49:.2122,141..|
00001B60: 23 C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 |#...2123,20:.212|
00001B70: 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 |4,3:.2126,234:.2|
00001B80: 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 |127,141:.2128,21|
00001B90: 3A 97 32 31 32 39 2C 33 00 B6 23 C5 03 9E 55 55 |:.2129,3..#...UU|
00001BA0: AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |.48:. DISABLE ST|
00001BB0: 4F 50 20 4B 45 59 00 C7 23 CA 03 8D 38 30 30 3A |OP KEY..#...800:|
00001BC0: 8F 20 54 49 54 4C 45 00 D7 23 D4 03 89 33 30 30 |. TITLE..#...300|
00001BD0: 3A 8F 20 4D 45 4E 55 00 08 24 DE 03 99 22 93 54 |:. MENU..$...".T|
00001BE0: 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 |HE PGM WILL NOT |
00001BF0: 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 |WORK ON THIS MAC|
00001C00: 48 49 4E 45 21 22 3A 80 00 3D 24 E8 03 8B 55 5A |HINE!":..=$...UZ|
00001C10: B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 |.1..UP%:.UP%:UZ.|
00001C20: 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 |0:. ** PROGRAM S|
00001C30: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 69 24 |TARTS HERE **.i$|
00001C40: E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 |..."..";:.:..(50|
00001C50: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00001C60: 97 35 33 32 38 30 2C 31 34 00 7E 24 10 04 55 47 |.53280,14.~$..UG|
00001C70: 24 B2 22 22 3A 55 50 B2 30 3A 8D 38 35 30 00 A0 |$."":UP.0:.850..|
00001C80: 24 1A 04 99 22 11 20 4D 41 58 49 4D 55 4D 20 4D |$...". MAXIMUM M|
00001C90: 41 52 4B 20 50 4F 53 53 49 42 4C 45 3F 20 22 3B |ARK POSSIBLE? ";|
00001CA0: 00 CA 24 1F 04 55 53 24 B2 22 48 30 31 32 33 34 |..$..US$."H01234|
00001CB0: 35 36 37 38 39 2E 22 3A 55 4C B2 35 3A 8D 33 35 |56789.":UL.5:.35|
00001CC0: 3A 4D 41 B2 C5 28 55 52 24 29 00 EB 24 24 04 55 |:MA..(UR$)..$$.U|
00001CD0: 47 24 B2 22 4D 41 58 2E 20 4D 41 52 4B 22 3A 55 |G$."MAX. MARK":U|
00001CE0: 50 B2 4D 41 AB 31 3A 8D 38 35 30 00 F3 24 42 04 |P.MA.1:.850..$B.|
00001CF0: 4E B2 30 00 19 25 4C 04 8F 2A 54 48 49 53 20 53 |N.0..%L..*THIS S|
00001D00: 45 43 54 49 4F 4E 20 49 4E 50 55 54 53 20 54 48 |ECTION INPUTS TH|
00001D10: 45 20 4E 55 4D 42 45 52 53 00 30 25 60 04 81 49 |E NUMBERS.0%`..I|
00001D20: B2 31 A4 45 4E AD 31 30 3A 81 58 B2 31 A4 31 30 |.1.EN.10:.X.1.10|
00001D30: 00 59 25 6A 04 99 22 11 20 45 4E 54 45 52 20 4D |.Y%j..". ENTER M|
00001D40: 41 52 4B 20 23 22 3B 31 AA 4E 3B 22 20 20 20 20 |ARK #";1.N;" |
00001D50: 20 20 9D 9D 9D 9D 9D 22 3B 00 7C 25 74 04 55 53 | .....";.|%t.US|
00001D60: 24 B2 22 48 30 31 32 33 34 35 36 37 38 39 2E 45 |$."H0123456789.E|
00001D70: 4E 44 22 3A 55 4C B2 35 3A 8D 33 35 00 91 25 76 |ND":UL.5:.35..%v|
00001D80: 04 8B 55 52 24 B2 22 45 4E 44 22 A7 89 31 31 38 |..UR$."END"..118|
00001D90: 30 00 B6 25 79 04 8B C5 28 55 52 24 29 B1 4D 41 |0..%y...(UR$).MA|
00001DA0: B0 C5 28 55 52 24 29 B3 30 A7 99 22 91 91 91 22 |..(UR$).0.."..."|
00001DB0: 3A 89 31 31 33 30 00 C8 25 7E 04 4D 28 4E AA 31 |:.1130..%~.M(N.1|
00001DC0: 29 B2 C5 28 55 52 24 29 00 D2 25 88 04 4E B2 4E |)..(UR$)..%..N.N|
00001DD0: AA 31 00 F9 25 92 04 82 58 3A 55 47 24 B2 22 4D |.1..%...X:UG$."M|
00001DE0: 41 58 2E 20 4D 41 52 4B 22 3A 55 50 B2 4D 41 AB |AX. MARK":UP.MA.|
00001DF0: 31 3A 8D 38 35 30 3A 82 49 00 1E 26 9C 04 8F 2A |1:.850:.I..&...*|
00001E00: 54 48 49 53 20 53 45 43 54 49 4F 4E 20 53 4F 52 |THIS SECTION SOR|
00001E10: 54 53 20 54 48 45 20 4E 55 4D 42 45 52 53 00 55 |TS THE NUMBERS.U|
00001E20: 26 9E 04 99 C8 28 55 44 24 2C 32 33 29 3B 22 20 |&....(UD$,23);" |
00001E30: 20 20 20 20 20 20 20 20 20 43 41 4C 43 55 4C 41 | CALCULA|
00001E40: 54 49 4E 47 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |TING INFORMATION|
00001E50: 20 20 20 20 22 00 83 26 9F 04 99 22 20 20 20 20 | "..&..." |
00001E60: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
00001E70: 45 4E 54 20 50 4C 45 41 53 45 20 20 20 20 20 20 |ENT PLEASE |
00001E80: 20 20 22 00 97 26 A6 04 50 B2 4E AB 31 3A 8B 50 | "..&..P.N.1:.P|
00001E90: B2 30 A7 31 33 34 30 00 A5 26 B0 04 81 20 4A B2 |.0.1340..&... J.|
00001EA0: 31 20 A4 20 50 00 AF 26 BA 04 4B 45 59 B2 30 00 |1 . P..&..KEY.0.|
00001EB0: C8 26 C4 04 8B 20 4D 28 4A 29 B3 4D 28 4A AA 31 |.&... M(J).M(J.1|
00001EC0: 29 20 89 20 31 32 37 30 00 D2 26 CE 04 4B 45 59 |) . 1270..&..KEY|
00001ED0: B2 31 00 DD 26 D8 04 54 B2 4D 28 4A 29 00 ED 26 |.1..&..T.M(J)..&|
00001EE0: E2 04 4D 28 4A 29 B2 4D 28 4A AA 31 29 00 FA 26 |..M(J).M(J.1)..&|
00001EF0: EC 04 4D 28 4A AA 31 29 B2 54 00 02 27 F6 04 82 |..M(J.1).T..'...|
00001F00: 20 4A 00 13 27 00 05 8B 20 50 B3 31 20 89 20 31 | J..'... P.1 . 1|
00001F10: 33 32 30 00 26 27 0A 05 8B 20 4B 45 59 B2 30 20 |320.&'... KEY.0 |
00001F20: 89 20 31 33 32 30 00 30 27 14 05 50 B2 50 AB 31 |. 1320.0'..P.P.1|
00001F30: 00 3B 27 1E 05 89 20 31 32 30 30 00 5C 27 28 05 |.;'... 1200.\'(.|
00001F40: 8F 2A 54 48 49 53 20 53 45 43 54 49 4F 4E 20 44 |.*THIS SECTION D|
00001F50: 45 54 45 52 4D 49 4E 45 53 20 49 46 00 7B 27 32 |ETERMINES IF.{'2|
00001F60: 05 8F 2A 23 20 4F 46 20 45 4E 54 52 49 45 53 20 |..*# OF ENTRIES |
00001F70: 49 53 20 4F 44 44 2C 45 56 45 4E 00 86 27 3C 05 |IS ODD,EVEN..'<.|
00001F80: 54 35 B2 4E AD 32 00 93 27 46 05 54 31 B2 B5 28 |T5.N.2..'F.T1..(|
00001F90: 54 35 29 00 A1 27 50 05 54 45 53 54 B2 54 31 AC |T5)..'P.TEST.T1.|
00001FA0: 32 00 B5 27 5A 05 8B 20 54 45 53 54 B2 4E 20 89 |2..'Z.. TEST.N .|
00001FB0: 20 31 34 33 30 00 D7 27 64 05 8F 2A 4D 45 44 49 | 1430..'d..*MEDI|
00001FC0: 41 4E 20 46 4F 52 20 4F 44 44 20 23 20 4F 46 20 |AN FOR ODD # OF |
00001FD0: 45 4E 54 52 49 45 53 00 E6 27 6E 05 54 35 B2 28 |ENTRIES..'n.T5.(|
00001FE0: 4E AA 31 29 AD 32 00 F3 27 78 05 54 36 B2 B5 28 |N.1).2..'x.T6..(|
00001FF0: 54 35 29 00 04 28 82 05 4D 45 44 49 41 4E B2 4D |T5)..(..MEDIAN.M|
00002000: 28 54 36 29 00 0F 28 8C 05 89 20 31 34 35 30 00 |(T6)..(... 1450.|
00002010: 32 28 96 05 8F 2A 4D 45 44 49 41 4E 20 46 4F 52 |2(...*MEDIAN FOR|
00002020: 20 45 56 45 4E 20 23 20 4F 46 20 45 4E 54 52 49 | EVEN # OF ENTRI|
00002030: 45 53 00 51 28 A0 05 4D 45 44 49 41 4E B2 28 4D |ES.Q(..MEDIAN.(M|
00002040: 28 4E AD 32 29 AA 4D 28 4E AD 32 AA 31 29 29 AD |(N.2).M(N.2.1)).|
00002050: 32 00 72 28 AA 05 8F 2A 54 48 49 53 20 53 45 43 |2.r(...*THIS SEC|
00002060: 54 49 4F 4E 20 46 49 4E 44 53 20 41 56 45 52 41 |TION FINDS AVERA|
00002070: 47 45 00 7B 28 B4 05 54 32 B2 30 00 8A 28 BE 05 |GE.{(..T2.0..(..|
00002080: 81 20 49 B2 20 31 20 A4 20 4E 00 99 28 C8 05 54 |. I. 1 . N..(..T|
00002090: 32 B2 54 32 AA 4D 28 49 29 00 A1 28 D2 05 82 20 |2.T2.M(I)..(... |
000020A0: 49 00 AD 28 DC 05 41 56 B2 54 32 AD 4E 00 B8 28 |I..(..AV.T2.N..(|
000020B0: E6 05 8D 20 31 37 32 30 00 C3 28 F0 05 8D 20 31 |... 1720..(... 1|
000020C0: 38 30 30 00 E5 28 FA 05 8F 2A 54 48 49 53 20 53 |800..(...*THIS S|
000020D0: 45 43 54 49 4F 4E 20 50 52 49 4E 54 53 20 41 4E |ECTION PRINTS AN|
000020E0: 53 57 45 52 53 00 04 29 04 06 55 47 24 B2 22 4D |SWERS..)..UG$."M|
000020F0: 41 58 2E 20 4D 41 52 4B 22 3A 55 50 B2 4D 41 3A |AX. MARK":UP.MA:|
00002100: 8D 38 35 30 00 2C 29 18 06 99 22 11 20 4D 45 44 |.850.,)...". MED|
00002110: 49 41 4E 20 3D 20 22 3B B5 28 4D 45 44 49 41 4E |IAN = ";.(MEDIAN|
00002120: AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 51 29 2C |.100..5).100.Q),|
00002130: 06 99 22 11 20 41 56 45 52 41 47 45 20 3D 20 22 |..". AVERAGE = "|
00002140: 3B B5 28 41 56 AC 31 30 30 AA 2E 35 29 AD 31 30 |;.(AV.100..5).10|
00002150: 30 00 71 29 40 06 99 22 11 20 4E 55 4D 42 45 52 |0.q)@..". NUMBER|
00002160: 20 4F 46 20 45 4E 54 52 49 45 53 20 3D 20 22 3B | OF ENTRIES = ";|
00002170: 4E 00 A1 29 54 06 99 22 11 20 53 54 41 4E 44 41 |N..)T..". STANDA|
00002180: 52 44 20 44 45 56 49 41 54 49 4F 4E 20 3D 20 22 |RD DEVIATION = "|
00002190: 3B B5 28 53 44 AC 31 30 30 AA 2E 35 29 AD 31 30 |;.(SD.100..5).10|
000021A0: 30 00 BF 29 68 06 99 22 11 20 4E 55 4D 42 45 52 |0..)h..". NUMBER|
000021B0: 20 50 41 53 53 49 4E 47 20 3D 20 22 3B 4E 50 00 | PASSING = ";NP.|
000021C0: DD 29 7C 06 99 22 11 20 4E 55 4D 42 45 52 20 46 |.)|..". NUMBER F|
000021D0: 41 49 4C 49 4E 47 20 3D 20 22 3B 4E 46 00 FF 29 |AILING = ";NF..)|
000021E0: 90 06 99 22 11 20 50 45 52 43 45 4E 54 41 47 45 |...". PERCENTAGE|
000021F0: 20 50 41 53 53 49 4E 47 20 3D 20 22 3B 50 50 00 | PASSING = ";PP.|
00002200: 21 2A A4 06 99 22 11 20 50 45 52 43 45 4E 54 41 |!*...". PERCENTA|
00002210: 47 45 20 46 41 49 4C 49 4E 47 20 3D 20 22 3B 50 |GE FAILING = ";P|
00002220: 46 00 2C 2A AE 06 8D 38 33 35 3A 8E 00 60 2A B8 |F.,*...835:..`*.|
00002230: 06 8F 3A 54 48 49 53 20 53 55 42 52 4F 55 54 49 |..:THIS SUBROUTI|
00002240: 4E 45 20 43 41 4C 43 55 4C 41 54 45 53 20 53 54 |NE CALCULATES ST|
00002250: 41 4E 44 41 52 44 20 44 45 56 49 41 54 49 4F 4E |ANDARD DEVIATION|
00002260: 00 6E 2A C2 06 53 31 B2 30 3A 53 32 B2 30 00 7C |.n*..S1.0:S2.0.||
00002270: 2A CC 06 81 20 49 B2 31 20 A4 20 4E 00 97 2A D6 |*... I.1 . N..*.|
00002280: 06 53 31 B2 28 4D 28 49 29 AB 41 56 29 AC 28 4D |.S1.(M(I).AV).(M|
00002290: 28 49 29 AB 41 56 29 00 A4 2A E0 06 53 32 B2 53 |(I).AV)..*..S2.S|
000022A0: 32 AA 53 31 00 AC 2A EA 06 82 20 49 00 BB 2A F4 |2.S1..*... I..*.|
000022B0: 06 53 44 B2 BA 28 53 32 AD 4E 29 00 C1 2A FE 06 |.SD..(S2.N)..*..|
000022C0: 8E 00 08 2B 08 07 8F 3A 54 48 49 53 20 53 55 42 |...+...:THIS SUB|
000022D0: 52 4F 55 54 49 4E 45 20 46 49 4E 44 53 20 54 48 |ROUTINE FINDS TH|
000022E0: 45 20 4E 55 4D 42 45 52 20 50 41 53 53 49 4E 47 |E NUMBER PASSING|
000022F0: 20 41 4E 44 20 50 45 52 43 45 4E 54 41 47 45 20 | AND PERCENTAGE |
00002300: 50 41 53 53 49 4E 47 2E 00 16 2B 12 07 4E 50 B2 |PASSING...+..NP.|
00002310: 30 3A 50 50 B2 30 00 24 2B 1C 07 81 20 49 B2 31 |0:PP.0.$+... I.1|
00002320: 20 A4 20 4E 00 3F 2B 26 07 8B 20 4D 28 49 29 B1 | . N.?+&.. M(I).|
00002330: B2 4D 41 AD 32 20 A7 20 4E 50 B2 4E 50 AA 31 00 |.MA.2 . NP.NP.1.|
00002340: 47 2B 30 07 82 20 49 00 53 2B 3A 07 4E 46 B2 4E |G+0.. I.S+:.NF.N|
00002350: AB 4E 50 00 6B 2B 44 07 50 50 B2 B5 28 28 4E 50 |.NP.k+D.PP..((NP|
00002360: AD 4E 29 AC 31 30 30 AA 2E 35 29 00 79 2B 4E 07 |.N).100..5).y+N.|
00002370: 50 46 B2 31 30 30 AB 50 50 00 7F 2B 58 07 8E 00 |PF.100.PP..+X...|
00002380: 00 00 |.. |
.......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 +++
...(.UR$."":UI$."":.UO,0...*..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.." -
-------------------------------------".Y
.;..".. 1. BEGIN ANALYSIS...@.."
.. 2. TEACHER INSTRUCTIONS"./.E.
.".. 3. MODIFICATION OF PROGRAM.
K.O..".. 4. QUIT..".Z.T.." -----
---------------------------------"...Y..
".. PRESS A NUMBER KEY (1-4) ";.M.
^.UL.1:US$."1234":.35:. INPUT ROUTINE.X.
`.US$.""...C..E(UR$).1000,500,600,396...
H..300.%.... ** RE-ENABLE STOP KEY AND E
ND **.T....B(50003)..1.B(50003)..160.B(5
0003)..0.399.~....UU.71:.B(50003).0..532
81,6:.53280,14......"..":.......875:....
... ** TEACHER INSTRUCTIONS **......850.
.....". THIS PROGRAM WILL CALCULATE FOR
A SET"......". OF STUDENTS' MARKS, THE F
OLLOWING:"./....". MEDIAN".E....".
AVERAGE".F. ..". STANDARD DEVI
ATION"......". NUMBER OF STUDENTS P
ASSING"......". NUMBER OF STUDENTS
FAILING"......". PERCENTAGE OF STUD
ENTS PASSING"......". PERCENTAGE OF
STUDENTS FAILING". ....835:.850.P....".
ENTER THE SET OF MARKS AND ENTER .END."
.~....". WHEN FINISHED. THE MAXIMUM NUMB
ER OF"......". MARKS YOU CAN ENTER IS 50
0. HOWEVER".O....". THIS MAXIMUM CAN BE
CHANGED......". ( SEE MODIFICATIONS)."..
...."...................................
....".J....". NOTE: ALWAYS PRESS THE <RE
TURN> KEY".N....". AFTER TYPING IN AN AN
SWER."......". IF AT ANY TIME YOU WISH T
O RETURN"......". TO THE MENU PRESS H <R
ETURN>.".Y....835:UT$." ANALYSIS"......U
Z.1..UP%:.217............ ** TEACHER INS
TRUCTIONS **.D....".":.UT,UL%:.B(50003).
0..53281,2:.53280,10.U...UP.0:UT$." ANAL
YSIS":UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".L...
." THIS PROGRAM IS IN THE PUBLIC."....
.." DOMAIN. IF THIS IS NOT THE CASE."
......" PLEASE CONTACT:...".?...."
COMMODORE BUSINESS MACHINES.".B...."
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO"......" C
ANADA M1W 2K4".H...." (416) 4
99-4292".....UP.1:. 835:. 850:......"
..PROGRAM NAME: ANALYSIS..%...." W
RITTEN BY : UNKNOWN..@...." UPGRADE
D BY : ..K...." .THIS PROGRAM WILL R
UN ON ANY........" PET 64 COMPUT
ER......." COMMODORE 64 COMPUTER
......835 :.410.S.N..UZ.1..UP%:.217.Y.W.
....X.. ** PROGRAM MODIFICATION INST **.
..Y..".":.UT,UL%.@.].UP.0:UT$." ANALYSIS
":UG$."PROGRAM MOD":.850.P.B..". IF YOU
WANT TO CHANGE THE MAXIMUM NUM-". .D..".
BER OF MARKS YOU CAN ENTER,THEN CHANGE"
.Q.F..". THE VALUE FOR .EN. IN LINE .916
. TO THE"...H..". DESIRED VALUE."...J.."
. I.E. 916 .EN=500. <RETURN>".=.L..". WI
TH THE ABOVE, A MAXIMUM OF 500 MARKS".V.
N..". CAN BE ENTERED."...P..". NOTE: MAK
E SURE THAT THE VALUE YOU"...R..". CHANG
E FOR .EN. IS A MULTIPLE OF 10."...S..83
5:.850...T.."..... BY INCREASING THE VAL
UE ABOVE 500,THERE";...V..". IS A CHANCE
THAT THERE MAY NOT BE".O.X..". ENOUGH M
EMORY LEFT TO RUN THE PROGRAM.".H....835
:UT$." ANALYSIS".|....UZ.1..UP%:.217....
........ ** TO USE 8032 LOAD CBM4032 **.
..F..".....BEFORE RUNNING THIS PROGRAM O
N AN 8032 .....P.." LOAD THE 'CBM
4032' PROGRAM............."...Z..UU.71.$
.....I.... ** TO USE 8032 LOAD CBM4032 *
*......"....BEFORE RUNNING THIS PROGRAM
ON AN 8032 ..LOAD CBM 4032 PROGRAM". ..
..1093:.... .. ** T I T L E P A G E **
...".."....";:.UT,UU%:.B(50003).0..53280
,14:.53281,6...$..I.1.38:."...";:..".&..
I.1.22:.".....";:..:.(..I.1.37:.".....";
:..R.*..I.1.22:.".....";:..W.,..".......
.................... ......."..........
......... . . .....0.."................
... . ....X.2..".................... .
...4.."..............C O M M O D O R E..
.#.6.."...............EDUCATIONAL...B.8.
."................SOFTWARE.].:.. ** COMM
ODORE LOGO **...;..H(UD$,24);"..........
PRESS SPACE BAR OR WAIT.":I.0...<..A$:.A
$.." ".I.I.1:.I.250.828...>.T1$."":T2$."
":T3$."":T4$."":I.0...@..300...C.. ** SP
ACE BAR PRESS **.;.H..H(UD$,24);".......
PRESS SPACE BAR TO CONTINUE.":.UO,0.R.L.
.UI$:.UI$.." ".844.X.N...X.R.. ** PAGE D
ESIGN ROUTINE **...T.UP.UP.1...W.."."H(U
T$.UP$,21);I(UP$.UG$.D(UP),18)...\.." --
------------------------------------"...
`..UH..0.870. .A..H(UD$,24);H(UP$,7);"HE
LP - PRESS H <RETURN>".1.F.UH.0:."..":
..P.K.. ** PLEASE WAIT REMARK **...P..H(
UD$,24);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES *
*.....UX$."H":.UQ%(1000):UB.32768:U1.196
:U2.197:U3.198:U4.216:UC.167:UU.1024.2..
.UT.59468:UU%.12:UL%.14:UP%.1146:UM.3276
8:. 50003,0:UO.158.U....B(50003).0.UB.10
24:U1.209:U2.210:U3.211:U4.214:UC.204:UU
.2048......B(50003).0.UT.53272:UU%.21:UL
%.23:UP%.2139:UM.1024:UO.198.X...UD$."..
.......................".. ..UP$."
".X ..U
T$." ANALYSIS ":. PLACE PROGRAM
TITLE HERE !!!!!!!!!!!!!!!!!***.^ ....D
....~ ... ** SET VARIABLES **.. ...900.
. ..EN.500:.M(EN).. ..:.. ... ** CHECK F
OR 8032 **.X ...".":." ":. SHIFTED SPACE
.. ...B(UB.40)..96..700..!... ** MEMORY
CHECK **..!... .(0).2000.937.J!..."....T
HIS MACHINE DOES NOT HAVE ENOUGH.".N!...
"MEMORY TO RUN THIS PROGRAM !".Y!...UU.7
1.!.....!..."..":.B(50003).0.962.H!...
** BASIC 2.0 OR 4.0 OR C-64 SETUP **
.."...1075,133:.1076,144:.1077,234:.1079
,4:.1080,133:.1081,145.<"...1091,155:.10
98,133:.1099,144:.1100,234:.1103,133.^".
..1104,145:.1105,234:.1082,234.U"...B(50
003)..160.955.."...1093,88:.1094,228:.10
97,85:.1102,228:.965.."...B(50003)..1.99
0.."...1093,49:.1094,230:.1097,46:.1102,
230:.965."#B..2099,141:.2100,20:.2101,3:
.2103,8:.2104,141:.2105,21.^#C..2106,3:.
2115,145:.2117,52:.2118,234:.2121,49:.21
22,141..#D..2123,20:.2124,3:.2126,234:.2
127,141:.2128,21:.2129,3..#E..UU.48:. DI
SABLE STOP KEY.G#J..800:. TITLE.W#T..300
:. MENU..$...".THE PGM WILL NOT WORK ON
THIS MACHINE!":..=$...UZ.1..UP%:.UP%:UZ.
0:. ** PROGRAM STARTS HERE **.I$..."..";
:.:.B(50003).0..53281,6:.53280,14.~$..UG
$."":UP.0:.850. $...". MAXIMUM MARK POSS
IBLE? ";.J$..US$."H0123456789.":UL.5:.35
:MA.E(UR$)..$$.UG$."MAX. MARK":UP.MA.1:.
850..$B.N.0..%L..*THIS SECTION INPUTS TH
E NUMBERS.0%`..I.1.EN.10:.X.1.10.Y%J..".
ENTER MARK #";1.N;" .....";.|%T.US
$."H0123456789.END":UL.5:.35..%V..UR$."E
ND"..1180..%Y..E(UR$).MA.E(UR$).0.."..."
:.1130.H%~.M(N.1).E(UR$).R%..N.N.1..%...
X:UG$."MAX. MARK":UP.MA.1:.850:.I..&...*
THIS SECTION SORTS THE NUMBERS.U&...H(UD
$,23);" CALCULATING INFORMATION
"..&..." ONE MOMENT PLEA
SE "..&..P.N.1:.P.0.1340..&... J.
1 . P..&..KEY.0.H&D.. M(J).M(J.1) . 1270
.R&N.KEY.1..&X.T.M(J)..&..M(J).M(J.1)..&
..M(J.1).T..'... J..'... P.1 . 1320.&'..
. KEY.0 . 1320.0'..P.P.1.;'... 1200.\'(.
.*THIS SECTION DETERMINES IF.{'2..*# OF
ENTRIES IS ODD,EVEN..'<.T5.N.2..'F.T1..(
T5)..'P.TEST.T1.2..'Z.. TEST.N . 1430.W'
D..*MEDIAN FOR ODD # OF ENTRIES..'N.T5.(
N.1).2..'X.T6..(T5)..(..MEDIAN.M(T6)..(.
.. 1450.2(...*MEDIAN FOR EVEN # OF ENTRI
ES.Q( .MEDIAN.(M(N.2).M(N.2.1)).2.R(...*
THIS SECTION FINDS AVERAGE.{(..T2.0..(..
. I. 1 . N..(H.T2.T2.M(I)..(R.. I..(..AV
.T2.N..(... 1720.C(... 1800..(...*THIS S
ECTION PRINTS ANSWERS..)..UG$."MAX. MARK
":UP.MA:.850.,)...". MEDIAN = ";.(MEDIAN
.100..5).100.Q),..". AVERAGE = ";.(AV.10
0..5).100.Q)@..". NUMBER OF ENTRIES = ";
N..)T..". STANDARD DEVIATION = ";.(SD.10
0..5).100..)H..". NUMBER PASSING = ";NP.
.)|..". NUMBER FAILING = ";NF..)...". PE
RCENTAGE PASSING = ";PP.!*...". PERCENTA
GE FAILING = ";PF.,*...835:..`*...:THIS
SUBROUTINE CALCULATES STANDARD DEVIATION
.N*B.S1.0:S2.0.|*L.. I.1 . N..*V.S1.(M(I
).AV).(M(I).AV)..*..S2.S2.S1..*... I..*.
.SD..(S2.N).A*.....+...:THIS SUBROUTINE
FINDS THE NUMBER PASSING AND PERCENTAGE
PASSING...+..NP.0:PP.0.$+... I.1 . N.?+&
.. M(I)..MA.2 . NP.NP.1.G+0.. I.S+:.NF.N
.NP.K+D.PP..((NP.N).100..5).Y+N.PF.100.P
P.+X.....
> CLICK IMAGE PREVIEW FOR FULL MODAL