FRACTION PRAC
FILE INFORMATION
FILENAME(S): FRACTION PRAC
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
6e57887d702020a1c7e11feef2f003e7c65d989dd49eb2115633ae8b16d00e25
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | FRACTION PRAC | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 2 | DOWNLOAD FILE |
| FREESOFT DISK NR | FRACTION PRAC | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 36 08 02 00 99 |.......910.6....|
00000010: 22 78 A9 1D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x..........X` .|
00000020: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000030: 8D 15 03 58 60 20 00 61 08 03 00 99 22 78 A9 47 |...X` .a...."x.G|
00000040: 85 90 A9 04 85 91 58 60 20 EA FF A9 FF 85 9B 4C |......X` ......L|
00000050: 58 E4 78 A9 55 85 90 A9 E4 85 91 58 60 20 20 20 |X.x.U......X` |
00000060: 20 00 80 08 04 00 99 22 78 68 68 68 AA 68 A8 68 | ......"xhhh.h.h|
00000070: 68 68 68 68 68 68 98 48 8A 48 58 60 20 20 20 20 |hhhhhh.H.HX` |
00000080: 00 91 08 05 00 99 22 68 68 68 68 68 68 68 60 20 |......"hhhhhhh` |
00000090: 20 00 B8 08 06 00 99 22 A0 FF C8 84 FB A9 D8 85 | ......"........|
000000A0: FC 20 F1 B7 8A A2 04 A0 FF C8 91 FB 88 D0 FB E6 |. ..............|
000000B0: FC CA D0 F6 60 20 20 20 00 D5 08 07 00 99 22 A2 |....` ......".|
000000C0: 04 A0 FF C8 B1 FB 91 FD 88 D0 F9 E6 FC E6 FE CA |................|
000000D0: D0 F2 60 20 20 00 E6 08 23 00 8B 55 57 B2 30 A7 |..` ...#..UW.0.|
000000E0: 9E 55 55 2C 31 35 00 10 09 28 00 97 55 43 2C 30 |.UU,15...(..UC,0|
000000F0: 3A 97 55 4E 2C 30 3A 55 52 24 B2 22 22 3A 55 49 |:.UN,0:UR$."":UI|
00000100: 24 B2 22 22 3A 8B 55 4C B2 30 A7 55 4C B2 33 39 |$."":.UL.0.UL.39|
00000110: 00 24 09 2D 00 A1 55 49 24 3A 8B 55 49 24 B2 22 |.$.-..UI$:.UI$."|
00000120: 22 A7 34 35 00 59 09 32 00 55 41 B2 C6 28 55 49 |".45.Y.2.UA..(UI|
00000130: 24 29 3A 55 52 B2 C3 28 55 52 24 29 3A 8B 55 41 |$):UR..(UR$):.UA|
00000140: B2 31 33 AF 55 52 B1 30 A7 97 55 43 2C 31 3A 99 |.13.UR.0..UC,1:.|
00000150: 22 20 9D 22 3B 3A 89 37 30 00 8E 09 37 00 8B 55 |" .";:.70...7..U|
00000160: 41 B2 32 30 A7 91 AB 28 55 52 B2 30 29 89 34 35 |A.20...(UR.0).45|
00000170: 3A 55 52 24 B2 C8 28 55 52 24 2C 55 52 AB 31 29 |:UR$..(UR$,UR.1)|
00000180: 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 34 35 00 9C |:.". ..";:.45..|
00000190: 09 3C 00 8B 55 52 B2 55 4C A7 34 35 00 BA 09 41 |.<..UR.UL.45...A|
000001A0: 00 8D 39 35 3A 55 52 24 B2 55 52 24 AA 55 49 24 |..95:UR$.UR$.UI$|
000001B0: 3A 99 55 49 24 3B 3A 89 34 35 00 D3 09 46 00 8B |:.UI$;:.45...F..|
000001C0: 55 52 24 B2 55 58 24 A7 99 22 9D 20 22 3B 3A 89 |UR$.UX$..". ";:.|
000001D0: 31 34 35 00 F6 09 4B 00 81 55 49 B2 55 52 A4 31 |145...K..UI.UR.1|
000001E0: A9 AB 31 3A 8B CA 28 55 52 24 2C 55 49 2C 31 29 |..1:..(UR$,UI,1)|
000001F0: B2 22 20 22 A7 82 00 0C 0A 50 00 55 52 24 B2 C8 |." ".....P.UR$..|
00000200: 28 55 52 24 2C 55 49 29 3A 99 3A 8E 00 1E 0A 5F |(UR$,UI):.:...._|
00000210: 00 8B C3 28 55 53 24 29 B2 30 A7 31 31 30 00 4A |...(US$).0.110.J|
00000220: 0A 64 00 81 55 49 B2 31 A4 C3 28 55 53 24 29 3A |.d..UI.1..(US$):|
00000230: 8B 55 49 24 B3 B1 CA 28 55 53 24 2C 55 49 2C 31 |.UI$...(US$,UI,1|
00000240: 29 A7 82 3A 55 49 24 B2 22 22 00 50 0A 69 00 8E |)..:UI$."".P.i..|
00000250: 00 5D 0A 6E 00 8B 55 41 B2 34 36 A7 8E 00 70 0A |.].n..UA.46...p.|
00000260: 73 00 8B 55 41 B2 33 32 AF 55 52 B3 B1 30 A7 8E |s..UA.32.UR..0..|
00000270: 00 83 0A 78 00 8B 55 41 B1 34 37 AF 55 41 B3 35 |...x..UA.47.UA.5|
00000280: 38 A7 8E 00 96 0A 7D 00 8B 55 41 B1 36 34 AF 55 |8.....}..UA.64.U|
00000290: 41 B3 39 31 A7 8E 00 B2 0A 82 00 8B 55 41 B3 31 |A.91........UA.1|
000002A0: 39 33 B0 55 41 B1 32 31 38 A7 55 49 24 B2 22 22 |93.UA.218.UI$.""|
000002B0: 3A 8E 00 CF 0A 87 00 8B C2 28 55 54 29 B2 55 55 |:........(UT).UU|
000002C0: 25 A7 55 49 24 B2 C7 28 55 41 AB 31 32 38 29 00 |%.UI$..(UA.128).|
000002D0: D5 0A 8C 00 8E 00 04 0B 91 00 8D 31 37 30 3A 97 |...........170:.|
000002E0: 32 35 31 2C 30 3A 97 32 35 32 2C 55 53 AD 32 35 |251,0:.252,US.25|
000002F0: 36 3A 97 32 35 33 2C 30 3A 97 32 35 34 2C 55 46 |6:.253,0:.254,UF|
00000300: 3A 9E 55 56 00 1C 0B 96 00 55 5A B2 31 3A 55 56 |:.UV.....UZ.1:UV|
00000310: 25 B2 C2 28 55 54 29 3A 89 33 30 30 00 62 0B 9B |%..(UT):.300.b..|
00000320: 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 |.UZ.0:US$.UJ$:UG|
00000330: 24 B2 55 4B 24 3A 55 54 24 B2 55 4C 24 3A 55 50 |$.UK$:UT$.UL$:UP|
00000340: B2 55 4A 3A 55 4C B2 55 4B 3A 99 22 93 22 3B 3A |.UJ:UL.UK:.".";:|
00000350: 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C |.UW.0..UY,6:.UX,|
00000360: 31 34 00 A1 0B A0 00 97 55 54 2C 55 56 25 3A 97 |14......UT,UV%:.|
00000370: 32 35 31 2C 30 3A 97 32 35 32 2C 55 46 3A 97 32 |251,0:.252,UF:.2|
00000380: 35 33 2C 30 3A 97 32 35 34 2C 55 53 AD 32 35 36 |53,0:.254,US.256|
00000390: 3A 9E 55 56 3A 8B 55 57 B2 30 A7 9E 55 55 2C 31 |:.UV:.UW.0..UU,1|
000003A0: 35 00 D1 0B A5 00 97 55 31 2C 55 31 25 3A 97 55 |5......U1,U1%:.U|
000003B0: 32 2C 55 32 25 3A 97 55 33 2C 55 33 25 AB 31 3A |2,U2%:.U3,U3%.1:|
000003C0: 97 55 34 2C 55 34 25 3A 8B 5A 5A A7 8E 3A 89 33 |.U4,U4%:.ZZ..:.3|
000003D0: 35 00 FD 0B AA 00 55 31 25 B2 C2 28 55 31 29 3A |5.....U1%..(U1):|
000003E0: 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 |U2%..(U2):U3%..(|
000003F0: 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 27 0C |U3):U4%..(U4).'.|
00000400: AF 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 |..UJ$.US$:UK$.UG|
00000410: 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A |$:UL$.UT$:UJ.UP:|
00000420: 55 4B B2 55 4C 3A 8E 00 4C 0C 2C 01 99 22 93 11 |UK.UL:..L.,.."..|
00000430: 22 3A 97 55 54 2C 55 55 25 3A 8B 55 57 B2 30 A7 |":.UT,UU%:.UW.0.|
00000440: 97 55 59 2C 31 32 3A 97 55 58 2C 36 00 6C 0C 31 |.UY,12:.UX,6.l.1|
00000450: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000460: 20 20 20 4D 20 45 20 4E 20 55 11 22 00 98 0C 36 | M E N U."...6|
00000470: 01 99 22 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ---------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000490: 2D 2D 2D 2D 2D 2D 2D 22 00 C4 0C 3B 01 99 22 11 |-------"...;..".|
000004A0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000004B0: 4E 20 46 52 41 43 54 49 4F 4E 20 50 52 41 43 54 |N FRACTION PRACT|
000004C0: 49 43 45 22 00 EE 0C 40 01 99 22 11 11 20 20 20 |ICE"...@..".. |
000004D0: 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 | 2. STUDENT|
000004E0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 18 | INSTRUCTIONS"..|
000004F0: 0D 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E |.E..".. 3.|
00000500: 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 | TEACHER INSTR|
00000510: 55 43 54 49 4F 4E 53 22 00 33 0D 4A 01 99 22 11 |UCTIONS".3.J..".|
00000520: 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 49 |. 4. QUI|
00000530: 54 11 22 00 5F 0D 4F 01 99 22 20 20 20 20 2D 2D |T."._.O.." --|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000560: 8A 0D 54 01 99 22 11 11 20 20 20 20 20 20 20 50 |..T..".. P|
00000570: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE|
00000580: 59 20 28 31 2D 34 29 20 22 3B 00 9E 0D 59 01 55 |Y (1-4) ";...Y.U|
00000590: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 00 AD |L.1:US$."1234"..|
000005A0: 0D 5B 01 8D 33 35 3A 55 53 24 B2 22 22 00 CA 0D |.[..35:US$.""...|
000005B0: 5E 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |^...(UR$).1000,4|
000005C0: 30 30 2C 35 30 30 2C 33 39 30 00 D3 0D 63 01 89 |00,500,390...c..|
000005D0: 33 30 30 00 E7 0D 72 01 8B 55 5A B2 31 A7 9E 55 |300...r..UZ.1..U|
000005E0: 50 25 3A 89 31 35 35 00 ED 0D 77 01 8E 00 15 0E |P%:.155...w.....|
000005F0: 86 01 9E 55 45 3A 99 22 9A 93 22 3A 8B 55 57 B2 |...UE:."..":.UW.|
00000600: 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 34 3A 9E |0..UY,6:.UX,14:.|
00000610: 55 55 2C 31 34 00 1D 0E 8B 01 9C 3A 80 00 42 0E |UU,14......:..B.|
00000620: 90 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B |...".":.UT,UL%:.|
00000630: 55 57 B2 30 A7 97 55 59 2C 31 31 3A 97 55 58 2C |UW.0..UY,11:.UX,|
00000640: 31 32 00 81 0E 95 01 55 54 24 B2 22 20 C6 52 41 |12.....UT$." .RA|
00000650: 43 54 49 4F 4E 20 D0 52 41 43 54 49 43 45 22 3A |CTION .RACTICE":|
00000660: 55 48 B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 |UH.1:UP.0:UG$.".|
00000670: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85|
00000680: 30 00 AD 0E 9C 01 99 22 11 20 20 C2 59 20 55 53 |0......". .Y US|
00000690: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
000006A0: 20 59 4F 55 20 57 49 4C 4C 20 42 45 22 00 DC 0E | YOU WILL BE"...|
000006B0: 9E 01 99 22 11 20 41 42 4C 45 20 54 4F 20 50 52 |...". ABLE TO PR|
000006C0: 41 43 54 49 53 45 20 46 52 41 43 54 49 4F 4E 20 |ACTISE FRACTION |
000006D0: 41 52 49 54 48 4D 45 54 49 43 2E 22 00 0B 0F A0 |ARITHMETIC."....|
000006E0: 01 99 22 11 20 20 C9 20 57 49 4C 4C 20 41 53 4B |..". . WILL ASK|
000006F0: 20 59 4F 55 20 50 52 4F 42 4C 45 4D 53 20 41 4E | YOU PROBLEMS AN|
00000700: 44 20 59 4F 55 20 47 49 56 45 22 00 38 0F A2 01 |D YOU GIVE".8...|
00000710: 99 22 11 20 54 48 45 20 41 4E 53 57 45 52 53 20 |.". THE ANSWERS |
00000720: 41 53 20 46 52 41 43 54 49 4F 4E 53 20 49 4E 20 |AS FRACTIONS IN |
00000730: 52 45 44 55 43 45 44 22 00 47 0F A4 01 99 22 11 |REDUCED".G....".|
00000740: 20 46 4F 52 4D 2E 22 00 77 0F A6 01 99 22 11 20 | FORM.".w....". |
00000750: D7 52 49 54 45 20 59 4F 55 52 20 41 4E 53 57 45 |.RITE YOUR ANSWE|
00000760: 52 20 41 53 20 41 20 57 48 4F 4C 45 20 46 52 41 |R AS A WHOLE FRA|
00000770: 43 54 49 4F 4E 2E 22 00 B1 0F A8 01 99 22 11 20 |CTION."......". |
00000780: C6 4F 52 20 45 58 41 4D 50 4C 45 3B 20 11 11 9D |.OR EXAMPLE; ...|
00000790: 9D 9D 9D 9D 9D 9D 9D 20 20 57 52 49 54 45 20 31 |....... WRITE 1|
000007A0: 20 33 2F 34 20 41 53 20 2E 2E 2E A0 37 2F 34 2E | 3/4 AS ....7/4.|
000007B0: 22 00 E0 0F DB 01 99 22 11 20 20 C9 46 20 41 54 |"......". .F AT|
000007C0: 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 | ANY TIME YOU WI|
000007D0: 53 48 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 22 |SH TO RETURN TO"|
000007E0: 00 04 10 E0 01 99 22 11 20 54 48 45 20 CD C5 CE |......". THE ...|
000007F0: D5 20 50 52 45 53 53 20 48 20 3C D2 C5 D4 D5 D2 |. PRESS H <.....|
00000800: CE 3E 2E 22 00 0D 10 E5 01 8D 38 33 35 00 21 10 |.>."......835.!.|
00000810: EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 31 35 |...UZ.1..UP%:.15|
00000820: 35 00 27 10 EF 01 8E 00 4B 10 F4 01 99 22 93 22 |5.'.....K...."."|
00000830: 3A 97 55 54 2C 55 4C 25 3A 8B 55 57 B2 30 A7 97 |:.UT,UL%:.UW.0..|
00000840: 55 59 2C 32 3A 97 55 58 2C 31 30 00 8A 10 F5 01 |UY,2:.UX,10.....|
00000850: 55 54 24 B2 22 20 C6 52 41 43 54 49 4F 4E 20 D0 |UT$." .RACTION .|
00000860: 52 41 43 54 49 43 45 22 3A 55 48 B2 31 3A 55 50 |RACTICE":UH.1:UP|
00000870: B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 |.0:UG$.".EACHER |
00000880: C9 4E 53 54 22 3A 8D 38 35 30 00 B7 10 F6 01 99 |.NST":.850......|
00000890: 22 11 11 20 20 20 20 20 D4 4F 20 54 48 45 20 42 |".. .O THE B|
000008A0: 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C |EST OF OUR KNOWL|
000008B0: 45 44 47 45 2C 11 22 00 E2 10 F7 01 99 22 20 20 |EDGE,."......" |
000008C0: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
000008D0: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
000008E0: 11 22 00 0D 11 F8 01 99 22 20 20 20 20 20 44 4F |."......" DO|
000008F0: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000900: 53 20 4E 4F 54 20 54 52 55 45 2C 11 22 00 2B 11 |S NOT TRUE,.".+.|
00000910: F9 01 99 22 20 20 20 20 20 50 4C 45 41 53 45 20 |..." PLEASE |
00000920: 43 4F 4E 54 41 43 54 3A 11 11 22 00 54 11 FA 01 |CONTACT:..".T...|
00000930: 99 22 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 |." ........|
00000940: C5 A0 C2 D5 D3 C9 CE C5 D3 D3 A0 CD C1 C3 C8 C9 |................|
00000950: CE C5 D3 22 00 78 11 FB 01 99 22 20 20 20 20 20 |...".x...." |
00000960: 20 20 20 20 20 11 33 33 37 30 20 D0 48 41 52 4D | .3370 .HARM|
00000970: 41 43 59 20 C1 56 45 2E 00 9D 11 FC 01 99 22 20 |ACY .VE......." |
00000980: 20 20 20 20 20 20 20 20 20 11 C1 47 49 4E 43 4F | ..GINCO|
00000990: 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 BF 11 |URT, .NTARIO"...|
000009A0: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 11 C3 |..." ..|
000009B0: 41 4E 41 44 41 2C 20 CD 31 D7 20 32 CB 34 22 00 |ANADA, .1. 2.4".|
000009C0: E0 11 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
000009D0: 11 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 |.(416) 499-4292"|
000009E0: 00 F3 11 FF 01 55 48 B2 31 3A 8D 38 33 35 3A 8D |.....UH.1:.835:.|
000009F0: 38 35 30 00 22 12 00 02 99 22 20 20 20 20 20 20 |850."...." |
00000A00: 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 |...ROGRAM .AME: |
00000A10: C6 52 41 43 54 49 4F 4E 20 D0 52 41 43 54 49 43 |.RACTION .RACTIC|
00000A20: 45 22 00 4A 12 01 02 99 22 20 20 20 20 20 20 11 |E".J...." .|
00000A30: D7 52 49 54 54 45 4E 20 42 59 20 20 3A 20 C2 49 |.RITTEN BY : .I|
00000A40: 4C 4C 20 C6 49 4E 5A 45 52 22 00 72 12 02 02 99 |LL .INZER".r....|
00000A50: 22 20 20 20 20 20 20 11 D2 45 56 49 53 45 44 20 |" ..EVISED |
00000A60: 42 59 20 20 3A 20 D2 2E 20 D7 45 4E 5A 45 4C 20 |BY : .. .ENZEL |
00000A70: 20 22 00 9F 12 03 02 99 22 20 20 20 20 20 20 11 | "......" .|
00000A80: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
00000A90: 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 |LL RUN ON ANY...|
00000AA0: C6 12 04 02 99 22 20 20 20 20 20 20 20 20 20 C2 |....." .|
00000AB0: C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 4F 4D |.....2.0 ... .OM|
00000AC0: 50 55 54 45 52 11 00 ED 12 05 02 99 22 20 20 20 |PUTER......." |
00000AD0: 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 | ..... 4.0 |
00000AE0: D0 C5 D4 A0 C3 4F 4D 50 55 54 45 52 11 00 0F 13 |.....OMPUTER....|
00000AF0: 06 02 99 22 20 20 20 20 20 20 20 20 20 38 30 33 |..." 803|
00000B00: 32 20 C3 C2 CD 20 C3 4F 4D 50 55 54 45 52 11 00 |2 ... .OMPUTER..|
00000B10: 34 13 07 02 99 22 20 20 20 20 20 20 20 20 20 C3 |4...." .|
00000B20: 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 C3 4F 4D 50 |OMMODORE 64 .OMP|
00000B30: 55 54 45 52 00 3E 13 18 02 8D 20 38 33 35 00 48 |UTER.>.... 835.H|
00000B40: 13 19 02 8D 20 38 35 30 00 7B 13 1A 02 99 20 22 |.... 850.{.... "|
00000B50: 11 11 11 20 20 C1 54 20 54 48 45 20 53 54 41 52 |... .T THE STAR|
00000B60: 54 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D |T OF THE PROGRAM|
00000B70: 2C 20 54 48 45 20 55 53 45 52 22 00 AA 13 1B 02 |, THE USER".....|
00000B80: 99 20 22 11 20 49 53 20 41 53 4B 45 44 20 54 4F |. ". IS ASKED TO|
00000B90: 20 49 4E 50 55 54 20 54 48 45 20 4C 41 52 47 45 | INPUT THE LARGE|
00000BA0: 53 54 20 44 45 4E 4F 4D 2D 22 00 C3 13 1C 02 99 |ST DENOM-"......|
00000BB0: 20 22 11 20 49 4E 41 54 4F 52 20 44 45 53 49 52 | ". INATOR DESIR|
00000BC0: 45 44 2E 00 F5 13 1F 02 99 20 22 11 11 20 20 C1 |ED....... ".. .|
00000BD0: 54 20 54 48 45 20 45 4E 44 20 4F 46 20 45 41 43 |T THE END OF EAC|
00000BE0: 48 20 53 45 54 2C 20 54 48 45 20 4E 55 4D 42 45 |H SET, THE NUMBE|
00000BF0: 52 20 4F 46 22 00 23 14 20 02 99 20 22 11 20 51 |R OF".#. .. ". Q|
00000C00: 55 45 53 54 49 4F 4E 53 20 41 4E 44 20 54 48 45 |UESTIONS AND THE|
00000C10: 20 4E 55 4D 42 45 52 20 4F 46 20 43 4F 52 52 45 | NUMBER OF CORRE|
00000C20: 43 54 22 00 40 14 21 02 99 20 22 11 20 52 45 53 |CT".@.!.. ". RES|
00000C30: 50 4F 4E 53 45 53 20 49 53 20 47 49 56 45 4E 2E |PONSES IS GIVEN.|
00000C40: 00 49 14 49 02 8D 38 33 35 00 5D 14 4E 02 8B 55 |.I.I..835.].N..U|
00000C50: 5A B2 31 A7 9E 55 50 25 3A 89 31 35 35 00 63 14 |Z.1..UP%:.155.c.|
00000C60: 53 02 8E 00 98 14 BC 02 99 55 43 24 22 93 11 11 |S........UC$"...|
00000C70: 11 20 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |. BEFORE RUNNING|
00000C80: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00000C90: 20 41 4E 20 38 30 33 32 00 D0 14 C1 02 99 22 20 | AN 8032......" |
00000CA0: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C|
00000CB0: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM|
00000CC0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 80 |.............":.|
00000CD0: 00 F8 14 20 03 99 22 93 11 1D 1F 22 3B 3A 97 55 |... .."....";:.U|
00000CE0: 54 2C 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C |T,UU%:.UW.0..UY,|
00000CF0: 31 3A 97 55 58 2C 31 34 00 0E 15 21 03 81 49 B2 |1:.UX,14...!..I.|
00000D00: 31 A4 33 38 3A 99 22 12 20 92 22 3B 3A 82 00 26 |1.38:.". .";:..&|
00000D10: 15 22 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |."..I.1.22:."...|
00000D20: 20 92 22 3B 3A 82 00 3E 15 23 03 81 49 B2 31 A4 | .";:..>.#..I.1.|
00000D30: 33 37 3A 99 22 9D 9D 12 20 92 22 3B 3A 82 00 56 |37:."... .";:..V|
00000D40: 15 24 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.$..I.1.22:."...|
00000D50: 20 92 22 3B 3A 82 00 76 15 25 03 99 22 13 11 11 | .";:..v.%.."...|
00000D60: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D70: 1F 12 A9 20 20 92 00 90 15 26 03 99 22 1D 1D 1D |... ....&.."...|
00000D80: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00000D90: 00 BC 15 27 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...'..".........|
00000DA0: 1D 12 20 92 20 20 1C 12 A3 DF 1F 92 20 4F 20 4D |.. . ...... O M|
00000DB0: 20 4D 20 4F 20 44 20 4F 20 52 20 45 00 D2 15 28 | M O D O R E...(|
00000DC0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |.."............ |
00000DD0: 20 92 00 F8 15 29 03 99 22 11 11 1D 1D 1D 1D 1D | ....)..".......|
00000DE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 45 44 55 43 |............EDUC|
00000DF0: 41 54 49 4F 4E 41 4C 11 00 18 16 2A 03 99 22 1D |ATIONAL....*..".|
00000E00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F |................|
00000E10: 53 4F 46 54 57 41 52 45 00 36 16 2B 03 99 22 11 |SOFTWARE.6.+..".|
00000E20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E30: 1C 31 39 38 33 1F 00 72 16 2C 03 99 C8 28 55 44 |.1983..r.,...(UD|
00000E40: 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |$,24);".........|
00000E50: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00000E60: 20 4F 52 20 57 41 49 54 92 22 55 43 24 3A 55 49 | OR WAIT."UC$:UI|
00000E70: B2 30 00 99 16 2D 03 A1 55 49 24 3A 8B 55 49 24 |.0...-..UI$:.UI$|
00000E80: B3 B1 22 20 22 A7 55 49 B2 55 49 AA 31 3A 8B 55 |.." ".UI.UI.1:.U|
00000E90: 49 B3 32 35 30 A7 38 31 33 00 A2 16 2E 03 89 33 |I.250.813......3|
00000EA0: 30 30 00 DD 16 43 03 97 55 4E 2C 30 3A 99 C8 28 |00...C..UN,0:..(|
00000EB0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00000EC0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00000ED0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 F4 16 |TO CONTINUE."...|
00000EE0: 48 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |H..UI$:.UI$.." "|
00000EF0: A7 38 34 30 00 FA 16 4D 03 8E 00 2C 17 52 03 55 |.840...M...,.R.U|
00000F00: 50 B2 55 50 AA 31 3A 99 22 93 22 C8 28 55 54 24 |P.UP.1:.".".(UT$|
00000F10: AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 |.UP$,21);.(UP$.U|
00000F20: 47 24 AA C4 28 55 50 29 2C 31 38 29 00 5B 17 57 |G$..(UP),18).[.W|
00000F30: 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 95 17 5C 03 |----------"...\.|
00000F60: 8B 55 48 B2 30 A7 99 C8 28 55 44 24 2C 32 34 29 |.UH.0...(UD$,24)|
00000F70: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00000F80: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
00000F90: 55 52 4E 3E 22 00 A6 17 61 03 55 48 B2 30 3A 99 |URN>"...a.UH.0:.|
00000FA0: 22 13 11 22 3A 8E 00 DE 17 6B 03 99 C8 28 55 44 |"..":....k...(UD|
00000FB0: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00000FC0: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00000FD0: 41 53 45 2E 2E 2E 20 20 20 20 20 22 3A 8E 00 2E |ASE... ":...|
00000FE0: 18 84 03 55 58 24 B2 22 48 22 3A 55 53 B2 33 32 |...UX$."H":US.32|
00000FF0: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19|
00001000: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:|
00001010: 55 43 B2 31 36 37 3A 55 42 B2 31 30 32 34 3A 55 |UC.167:UB.1024:U|
00001020: 44 B2 31 30 38 34 3A 55 45 B2 31 31 30 35 00 77 |D.1084:UE.1105.w|
00001030: 18 85 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 |...UT.59468:UU%.|
00001040: 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 |12:UL%.14:UP%.11|
00001050: 35 38 3A 55 4E B2 31 35 38 3A 97 35 30 30 30 33 |58:UN.158:.50003|
00001060: 2C 30 3A 55 57 B2 C2 28 35 30 30 30 33 29 3A 55 |,0:UW..(50003):U|
00001070: 46 B2 C2 28 35 33 29 00 C5 18 86 03 8B 55 57 B2 |F..(53)......UW.|
00001080: 30 A7 55 53 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.US.1024:U1.209|
00001090: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
000010A0: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 42 B2 |4.214:UC.204:UB.|
000010B0: 32 30 34 38 3A 55 58 B2 35 33 32 38 30 3A 55 44 |2048:UX.53280:UD|
000010C0: B2 32 30 36 34 00 0F 19 87 03 8B 55 57 B2 30 A7 |.2064......UW.0.|
000010D0: 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A |UT.53272:UU%.21:|
000010E0: 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 35 31 3A |UL%.23:UP%.2151:|
000010F0: 55 4E B2 31 39 38 3A 55 59 B2 35 33 32 38 31 3A |UN.198:UY.53281:|
00001100: 55 55 B2 32 31 39 39 3A 55 45 B2 32 30 38 37 00 |UU.2199:UE.2087.|
00001110: 3B 19 88 03 55 43 24 B2 C7 28 31 35 35 29 3A 55 |;...UC$..(155):U|
00001120: 56 B2 31 32 31 34 3A 8B 55 57 B2 30 A7 55 46 B2 |V.1214:.UW.0.UF.|
00001130: 31 39 36 3A 55 56 B2 32 32 33 38 00 8C 19 89 03 |196:UV.2238.....|
00001140: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001150: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A |..............":|
00001160: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
00001170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001180: 20 20 20 20 20 20 20 20 20 20 20 22 00 A1 19 8A | "....|
00001190: 03 55 54 24 B2 22 20 C6 52 41 43 54 49 4F 4E 53 |.UT$." .RACTIONS|
000011A0: 22 00 A7 19 8D 03 8E 00 CA 19 8E 03 8D 39 30 30 |"............900|
000011B0: 3A 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |:.".":.".":. SHI|
000011C0: 46 54 45 44 20 53 50 41 43 45 00 E0 19 93 03 8B |FTED SPACE......|
000011D0: C2 28 55 53 AA 34 30 29 B3 B1 39 36 A7 37 30 30 |.(US.40)..96.700|
000011E0: 00 06 1A 98 03 8B 28 B8 28 30 29 AB 28 B4 28 B8 |......(.(0).(.(.|
000011F0: 28 30 29 29 B3 30 29 AC 36 35 35 33 36 29 B1 35 |(0)).0).65536).5|
00001200: 30 30 A7 39 33 35 00 36 1A 9D 03 99 55 43 24 22 |00.935.6....UC$"|
00001210: 93 11 11 54 48 49 53 20 4D 41 43 48 49 4E 45 20 |...THIS MACHINE |
00001220: 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E |DOES NOT HAVE EN|
00001230: 4F 55 47 48 11 22 00 60 1A A2 03 99 22 4D 45 4D |OUGH.".`...."MEM|
00001240: 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 |ORY TO RUN THIS |
00001250: 50 52 4F 47 52 41 4D 20 21 22 3A 9E 55 45 3A 80 |PROGRAM !":.UE:.|
00001260: 00 76 1A A7 03 99 22 93 22 55 43 24 3A 8B 55 57 |.v...."."UC$:.UW|
00001270: B2 30 A7 39 36 35 00 93 1A AC 03 8B 55 46 B2 36 |.0.965......UF.6|
00001280: 30 B0 55 46 B2 31 30 38 B0 55 46 B2 31 32 34 A7 |0.UF.108.UF.124.|
00001290: 39 35 30 00 AD 1A B1 03 97 35 32 2C 30 3A 97 35 |950......52,0:.5|
000012A0: 33 2C 55 46 AB 34 3A 9C 3A 8D 39 30 30 00 E4 1A |3,UF.4:.:.900...|
000012B0: B6 03 8B 55 57 B2 31 36 30 A7 97 31 31 30 33 2C |...UW.160..1103,|
000012C0: 38 38 3A 97 31 31 30 34 2C 32 32 38 3A 97 31 31 |88:.1104,228:.11|
000012D0: 30 37 2C 38 35 3A 97 31 31 31 31 2C 32 32 38 3A |07,85:.1111,228:|
000012E0: 89 39 36 35 00 21 1B BB 03 8B 55 57 B3 B1 31 A7 |.965.!....UW..1.|
000012F0: 99 22 93 54 48 49 53 20 50 47 4D 20 57 49 4C 4C |.".THIS PGM WILL|
00001300: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001310: 53 20 4D 41 43 48 49 4E 45 21 22 3A 9E 55 45 3A |S MACHINE!":.UE:|
00001320: 80 00 50 1B C0 03 97 31 31 30 33 2C 34 39 3A 97 |..P....1103,49:.|
00001330: 31 31 30 34 2C 32 33 30 3A 97 31 31 30 37 2C 34 |1104,230:.1107,4|
00001340: 36 3A 97 31 31 31 31 2C 32 33 30 3A 89 39 36 35 |6:.1111,230:.965|
00001350: 00 58 1B C5 03 9E 55 44 00 66 1B CA 03 8D 38 30 |.X....UD.f....80|
00001360: 30 3A 89 33 30 30 00 7F 1B E8 03 8B 55 5A B2 31 |0:.300......UZ.1|
00001370: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 00 |..UP%:.UP%:UZ.0.|
00001380: A1 1B E9 03 99 22 93 22 55 43 24 3B 3A 8C 3A 8B |....."."UC$;:.:.|
00001390: 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 |UW.0..UY,6:.UX,1|
000013A0: 34 00 E3 1B F2 03 8F 20 4D 4F 44 49 46 49 45 44 |4...... MODIFIED|
000013B0: 20 46 4F 52 20 45 58 50 45 52 49 45 4E 43 45 20 | FOR EXPERIENCE |
000013C0: 27 38 32 20 42 59 20 20 20 20 20 20 20 20 20 20 |'82 BY |
000013D0: 44 41 56 45 20 41 52 54 48 55 52 53 2C 53 41 52 |DAVE ARTHURS,SAR|
000013E0: 4E 49 41 00 04 1C F7 03 55 54 24 B2 22 20 C6 52 |NIA.....UT$." .R|
000013F0: 41 43 54 49 4F 4E 53 22 3A 55 47 24 B2 22 22 3A |ACTIONS":UG$."":|
00001400: 55 50 B2 30 00 1C 1C FC 03 8F 20 46 52 41 43 54 |UP.0...... FRACT|
00001410: 49 4F 4E 20 50 52 41 43 54 49 43 45 00 3E 1C 06 |ION PRACTICE.>..|
00001420: 04 8F 20 42 59 20 42 49 4C 4C 20 46 49 4E 5A 45 |.. BY BILL FINZE|
00001430: 52 2C 20 41 50 52 49 4C 2C 20 31 39 37 39 00 5C |R, APRIL, 1979.\|
00001440: 1C 10 04 8F 20 20 43 4F 50 59 52 49 47 48 54 20 |.... COPYRIGHT |
00001450: 31 39 37 39 20 42 59 20 53 46 53 55 00 7E 1C 2E |1979 BY SFSU.~..|
00001460: 04 8F 2D 2D 2D 2D 4D 41 49 4E 20 43 41 4C 4C 49 |..----MAIN CALLI|
00001470: 4E 47 20 52 4F 55 54 49 4E 45 2D 2D 2D 2D 00 96 |NG ROUTINE----..|
00001480: 1C 38 04 8D 20 31 32 31 30 3A 8F 20 49 4E 49 54 |.8.. 1210:. INIT|
00001490: 49 41 4C 49 5A 45 00 A3 1C 3D 04 97 20 55 54 2C |IALIZE...=.. UT,|
000014A0: 55 4C 25 00 C4 1C 4C 04 55 50 B2 30 3A 8D 20 31 |UL%...L.UP.0:. 1|
000014B0: 37 30 30 3A 8F 20 43 48 4F 4F 53 45 20 50 52 4F |700:. CHOOSE PRO|
000014C0: 43 45 53 53 00 CD 1C 51 04 55 50 B2 30 00 EA 1C |CESS...Q.UP.0...|
000014D0: 56 04 8D 20 31 38 34 30 3A 8F 20 4D 41 4B 45 20 |V.. 1840:. MAKE |
000014E0: 55 50 20 50 52 4F 42 4C 45 4D 00 10 1D 60 04 CB |UP PROBLEM...`..|
000014F0: 20 A4 20 31 39 32 30 3A 8F 20 49 4E 50 55 54 20 | . 1920:. INPUT |
00001500: 52 45 53 50 4F 4E 53 45 20 26 20 43 48 45 43 4B |RESPONSE & CHECK|
00001510: 00 18 1D 74 04 51 B2 30 00 2E 1D 7E 04 8B 20 50 |...t.Q.0...~.. P|
00001520: 52 4F 42 53 B3 4E 4D 20 A7 20 31 31 31 30 00 3F |ROBS.NM . 1110.?|
00001530: 1D 88 04 55 47 24 B2 22 22 3A 8D 20 38 35 30 00 |...UG$."":. 850.|
00001540: 6B 1D 8D 04 99 22 13 11 11 11 11 11 11 11 11 11 |k...."..........|
00001550: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 53 4F 4D | .O YOU WANT SOM|
00001560: 45 20 4D 4F 52 45 20 3F 20 22 3B 00 83 1D 92 04 |E MORE ? ";.....|
00001570: 55 53 24 B2 22 59 4E 48 22 3A 55 4C B2 31 3A 8D |US$."YNH":UL.1:.|
00001580: 20 33 35 00 96 1D 9C 04 54 52 B2 55 50 AB 31 3A | 35.....TR.UP.1:|
00001590: 8D 20 32 37 30 30 00 B3 1D A6 04 8B 20 55 52 24 |. 2700...... UR$|
000015A0: B3 B1 22 4E 22 20 A7 20 8D 31 32 31 30 3A 89 31 |.."N" . .1210:.1|
000015B0: 31 30 30 00 B9 1D B0 04 8E 00 D4 1D BA 04 8F 2D |100............-|
000015C0: 2D 2D 2D 2D 49 4E 49 54 49 41 4C 49 5A 45 2D 2D |----INITIALIZE--|
000015D0: 2D 2D 2D 2D 00 E1 1D C4 04 54 B2 BB 28 AB 54 49 |----.....T..(.TI|
000015E0: 29 00 04 1E CE 04 83 20 32 2C 33 2C 35 2C 37 2C |)...... 2,3,5,7,|
000015F0: 31 31 2C 31 33 2C 31 37 2C 31 39 2C 32 33 2C 32 |11,13,17,19,23,2|
00001600: 39 2C 33 31 00 22 1E D8 04 81 20 49 B2 30 20 A4 |9,31.".... I.0 .|
00001610: 20 31 30 3A 87 20 50 52 49 4D 45 53 25 28 49 29 | 10:. PRIMES%(I)|
00001620: 3A 82 00 33 1E E2 04 50 52 4F 42 53 B2 30 3A 57 |:..3...PROBS.0:W|
00001630: 52 B2 30 00 48 1E EC 04 83 20 2B 2C 2D 2C 58 2C |R.0.H.... +,-,X,|
00001640: 2F 2C 44 49 56 2E 42 59 00 63 1E F6 04 81 20 49 |/,DIV.BY.c.... I|
00001650: B2 31 20 A4 20 35 3A 87 20 50 52 4F 43 24 28 49 |.1 . 5:. PROC$(I|
00001660: 29 3A 82 00 7B 1E 00 05 96 20 A5 4E 28 4D 29 B2 |):..{.... .N(M).|
00001670: B5 28 BB 28 31 29 AC 4D AA 31 29 00 A2 1E 0A 05 |.(.(1).M.1).....|
00001680: 4C 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |L$."............|
00001690: 22 3A 4C 49 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |":LI$.".........|
000016A0: C0 22 00 C7 1E 14 05 83 20 22 A5 22 2C 22 B5 22 |."...... ".","."|
000016B0: 2C 22 B5 22 2C 22 B5 22 2C 22 12 B6 22 2C 22 12 |,".",".","..",".|
000016C0: AA 22 2C 22 12 A7 22 00 E3 1E 1E 05 81 20 49 B2 |.",".."...... I.|
000016D0: 31 20 A4 20 37 3A 87 20 42 41 52 24 28 49 29 3A |1 . 7:. BAR$(I):|
000016E0: 82 20 49 00 E9 1E 28 05 8C 00 1E 1F 32 05 42 4C |. I...(.....2.BL|
000016F0: 41 4E 4B 24 B2 22 20 20 20 20 20 20 20 20 20 20 |ANK$." |
00001700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 24 | ".$|
00001720: 1F 3C 05 8E 00 43 1F 46 05 8F 2D 2D 2D 50 52 49 |.<...C.F..---PRI|
00001730: 4E 54 20 46 52 41 43 54 49 4F 4E 20 4E 2F 44 2D |NT FRACTION N/D-|
00001740: 2D 2D 2D 00 61 1F 50 05 4E 4C B2 C3 28 C4 28 4E |---.a.P.NL..(.(N|
00001750: 29 29 AA 31 3A 44 4C B2 C3 28 C4 28 44 29 29 AA |)).1:DL..(.(D)).|
00001760: 31 00 98 1F 5A 05 99 22 91 91 22 4E 3B 22 11 11 |1...Z..".."N;"..|
00001770: 22 C8 28 4C 24 2C 4E 4C 29 3B C8 28 4C 49 24 2C |".(L$,NL);.(LI$,|
00001780: 4E 4C 29 22 11 11 22 C8 28 4C 24 2C 4E 4C 29 3B |NL)"..".(L$,NL);|
00001790: 44 22 20 20 91 91 22 3B 00 9E 1F 64 05 8E 00 C0 |D" ..";...d....|
000017A0: 1F 6E 05 8F 2D 2D 2D 2D 47 45 54 20 53 49 4E 47 |.n..----GET SING|
000017B0: 4C 45 20 43 48 41 52 41 43 54 45 52 2D 2D 2D 2D |LE CHARACTER----|
000017C0: 00 C9 1F 78 05 54 B2 54 49 00 F7 1F 82 05 8B 20 |...x.T.TI...... |
000017D0: 54 49 B3 54 AA 33 30 20 A7 20 99 22 A6 20 20 20 |TI.T.30 . .". |
000017E0: 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B | .........";|
000017F0: 3A 89 20 31 34 34 30 00 15 20 8C 05 8B 20 54 49 |:. 1440.. ... TI|
00001800: B3 54 AA 36 30 20 A7 20 99 22 20 9D 22 3B 3A 89 |.T.60 . ." .";:.|
00001810: 20 31 34 34 30 00 1E 20 96 05 54 B2 54 49 00 32 | 1440.. ..T.TI.2|
00001820: 20 A0 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 34 | ...A$:.A$."".14|
00001830: 34 30 00 53 20 A2 05 8B 20 C6 28 41 24 29 B2 32 |40.S ... .(A$).2|
00001840: 30 20 B0 20 C6 28 41 24 29 B2 31 33 20 A7 20 31 |0 . .(A$).13 . 1|
00001850: 34 35 30 00 74 20 A3 05 8B 20 C6 28 41 24 29 B1 |450.t ... .(A$).|
00001860: 34 37 20 AF 20 C6 28 41 24 29 B3 35 38 20 A7 20 |47 . .(A$).58 . |
00001870: 31 34 35 30 00 A3 20 A4 05 8B 20 41 24 B2 22 48 |1450.. ... A$."H|
00001880: 22 20 A7 20 57 B2 55 50 3A 5A 5A B2 31 3A 8D 31 |" . W.UP:ZZ.1:.1|
00001890: 34 35 3A 5A 5A B2 30 3A 99 20 22 20 22 3B 3A 55 |45:ZZ.0:. " ";:U|
000018A0: 50 B2 57 00 B7 20 A6 05 8B 20 41 24 B2 22 2F 22 |P.W.. ... A$."/"|
000018B0: 20 A7 20 31 34 35 30 00 C4 20 A7 05 CB 20 A4 20 | . 1450.. ... . |
000018C0: 31 34 34 30 00 CF 20 AA 05 99 22 20 9D 22 3B 00 |1440.. ..." .";.|
000018D0: D5 20 B4 05 8E 00 F8 20 BE 05 8F 2D 2D 2D 2D 47 |. ..... ...----G|
000018E0: 45 54 20 4E 4F 4E 2D 45 4D 50 54 59 20 53 54 52 |ET NON-EMPTY STR|
000018F0: 49 4E 47 2D 2D 2D 2D 2D 00 02 21 C8 05 42 24 B2 |ING-----..!..B$.|
00001900: 22 22 00 34 21 D2 05 8D 20 31 33 39 30 3A 41 B2 |"".4!... 1390:A.|
00001910: C6 28 41 24 29 3A 8B 20 42 24 B2 22 22 20 AF 20 |.(A$):. B$."" . |
00001920: 28 41 B2 32 30 20 B0 20 41 B2 31 33 29 20 A7 20 |(A.20 . A.13) . |
00001930: 31 34 39 30 00 5D 21 DC 05 8B 20 C3 28 42 24 29 |1490.]!... .(B$)|
00001940: B2 31 20 AF 20 41 B2 32 30 20 A7 20 42 24 B2 22 |.1 . A.20 . B$."|
00001950: 22 3A 99 41 24 3B 3A 89 20 31 34 39 30 00 87 21 |":.A$;:. 1490..!|
00001960: E6 05 8B 20 41 B2 32 30 20 A7 20 99 41 24 3B 3A |... A.20 . .A$;:|
00001970: 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB 31 29 |B$..(B$,.(B$).1)|
00001980: 3A 89 20 31 34 39 30 00 96 21 F0 05 8B 20 41 B2 |:. 1490..!... A.|
00001990: 31 33 20 A7 20 8E 00 A8 21 FA 05 99 41 24 3B 3A |13 . ...!...A$;:|
000019A0: 42 24 B2 42 24 AA 41 24 00 B3 21 04 06 89 20 31 |B$.B$.A$..!... 1|
000019B0: 34 39 30 00 CF 21 A4 06 8F 2D 2D 2D 2D 43 48 4F |490..!...----CHO|
000019C0: 4F 53 45 20 50 52 4F 43 45 53 53 2D 2D 2D 2D 00 |OSE PROCESS----.|
000019D0: D9 21 A9 06 52 47 54 B2 30 00 F1 21 AE 06 99 20 |.!..RGT.0..!... |
000019E0: 22 93 22 3A 8B 55 57 B2 30 A7 97 55 54 2C 55 4C |".":.UW.0..UT,UL|
000019F0: 25 00 0C 22 B8 06 8D 20 38 35 30 3A 58 58 B2 55 |%.."... 850:XX.U|
00001A00: 50 3A 55 50 B2 30 3A 55 50 B2 58 58 00 54 22 BD |P:UP.0:UP.XX.T".|
00001A10: 06 99 22 11 11 20 D7 48 41 54 20 41 52 49 54 48 |..".. .HAT ARITH|
00001A20: 4D 45 54 49 43 20 50 52 4F 43 45 53 53 20 44 4F |METIC PROCESS DO|
00001A30: 20 59 4F 55 20 57 41 4E 54 20 54 4F 11 20 20 54 | YOU WANT TO. T|
00001A40: 52 59 20 57 49 54 48 20 46 52 41 43 54 49 4F 4E |RY WITH FRACTION|
00001A50: 53 3F 20 22 00 8C 22 C2 06 99 22 11 20 C3 48 4F |S? ".."...". .HO|
00001A60: 4F 53 45 A0 2B 2C 2D 2C 58 2C 2F 3A 20 22 3B 3A |OSE.+,-,X,/: ";:|
00001A70: 55 53 24 B2 22 2B 2D 58 2F 48 22 3A 55 4C B2 31 |US$."+-X/H":UL.1|
00001A80: 3A 8D 20 33 35 3A 41 24 B2 55 52 24 00 95 22 CC |:. 35:A$.UR$..".|
00001A90: 06 50 B2 AB 31 00 B7 22 D6 06 81 20 49 B2 31 20 |.P..1.."... I.1 |
00001AA0: A4 20 34 3A 8B 20 50 52 4F 43 24 28 49 29 B2 41 |. 4:. PROC$(I).A|
00001AB0: 24 20 A7 20 50 B2 49 00 BF 22 E0 06 82 20 49 00 |$ . P.I.."... I.|
00001AC0: D1 22 EA 06 8B 20 50 B2 AB 31 20 A7 20 31 37 33 |."... P..1 . 173|
00001AD0: 30 00 E1 22 F4 06 8B 20 50 B2 34 20 A7 20 50 B2 |0.."... P.4 . P.|
00001AE0: 35 00 11 23 FE 06 99 22 11 20 C3 48 4F 4F 53 45 |5..#...". .HOOSE|
00001AF0: 20 41 20 4D 41 58 49 4D 55 4D 20 46 4F 52 20 54 | A MAXIMUM FOR T|
00001B00: 48 45 20 44 45 4E 4F 4D 49 4E 41 54 4F 52 53 20 |HE DENOMINATORS |
00001B10: 22 00 2E 23 03 07 99 22 11 20 4F 46 20 54 48 45 |"..#...". OF THE|
00001B20: 20 46 52 41 43 54 49 4F 4E 53 3A 20 22 3B 00 55 | FRACTIONS: ";.U|
00001B30: 23 08 07 55 53 24 B2 22 48 31 32 33 34 35 36 37 |#..US$."H1234567|
00001B40: 38 39 30 22 3A 55 4C B2 34 3A 8D 20 33 35 3A 58 |890":UL.4:. 35:X|
00001B50: 24 B2 55 52 24 00 72 23 12 07 4D 41 58 B2 C5 28 |$.UR$.r#..MAX..(|
00001B60: 58 24 29 3A 8B 4D 41 58 B1 B2 32 20 A7 20 31 38 |X$):.MAX..2 . 18|
00001B70: 32 30 00 99 23 15 07 99 20 22 11 20 D4 48 41 54 |20..#... ". .HAT|
00001B80: 20 57 4F 4E 27 54 20 57 4F 52 4B 2E 20 D4 52 59 | WON'T WORK. .RY|
00001B90: 20 41 47 41 49 4E 2E 22 3B 00 AE 23 16 07 81 20 | AGAIN.";..#... |
00001BA0: 58 B2 31 20 A4 20 31 30 30 30 3A 82 20 58 00 F6 |X.1 . 1000:. X..|
00001BB0: 23 17 07 99 20 20 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |#... ".........|
00001BC0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001BD0: 9D 9D 9D 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BF0: 20 20 91 91 22 3B 00 12 24 18 07 99 22 9D 9D 9D | ..";..$..."...|
00001C00: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 89 20 31 38 |.........";:. 18|
00001C10: 30 30 00 3E 24 1C 07 99 22 11 11 20 C8 4F 57 20 |00.>$...".. .OW |
00001C20: 4D 41 4E 59 20 50 52 4F 42 4C 45 4D 53 20 4F 46 |MANY PROBLEMS OF|
00001C30: 20 54 48 49 53 20 4B 49 4E 44 3F 20 22 3B 00 68 | THIS KIND? ";.h|
00001C40: 24 21 07 55 53 24 B2 22 31 32 33 34 35 36 37 38 |$!.US$."12345678|
00001C50: 39 30 48 22 3A 55 4C B2 30 3A 8D 20 33 35 3A 4E |90H":UL.0:. 35:N|
00001C60: 4D B2 C5 28 55 52 24 29 00 6E 24 26 07 8E 00 8C |M..(UR$).n$&....|
00001C70: 24 30 07 8F 2D 2D 2D 2D 4D 41 4B 45 20 55 50 20 |$0..----MAKE UP |
00001C80: 50 52 4F 42 4C 45 4D 2D 2D 2D 2D 2D 00 A6 24 3A |PROBLEM-----..$:|
00001C90: 07 44 31 B2 A5 4E 28 4D 41 58 29 3A 44 32 B2 A5 |.D1..N(MAX):D2..|
00001CA0: 4E 28 4D 41 58 29 00 C2 24 44 07 4E 31 B2 A5 4E |N(MAX)..$D.N1..N|
00001CB0: 28 44 31 AC 32 29 3A 4E 32 B2 A5 4E 28 44 32 AC |(D1.2):N2..N(D2.|
00001CC0: 32 29 00 D9 24 49 07 8B 44 31 B2 4E 31 B0 44 32 |2)..$I..D1.N1.D2|
00001CD0: B2 4E 32 A7 89 31 38 35 30 00 FC 24 4E 07 91 20 |.N2..1850..$N.. |
00001CE0: 50 20 8D 20 32 34 35 30 2C 32 34 39 30 2C 32 35 |P . 2450,2490,25|
00001CF0: 35 30 2C 32 35 39 30 2C 32 35 39 30 00 17 25 58 |50,2590,2590..%X|
00001D00: 07 8D 20 32 32 33 30 3A 8F 20 52 45 44 55 43 45 |.. 2230:. REDUCE|
00001D10: 20 41 4E 53 57 45 52 00 32 25 62 07 41 4E 53 B2 | ANSWER.2%b.ANS.|
00001D20: B5 28 4E 41 AD 44 41 AC 31 30 30 30 29 AD 31 30 |.(NA.DA.1000).10|
00001D30: 30 30 00 44 25 6C 07 50 52 4F 42 53 B2 50 52 4F |00.D%l.PROBS.PRO|
00001D40: 42 53 AA 31 00 4A 25 76 07 8E 00 71 25 80 07 8F |BS.1.J%v...q%...|
00001D50: 2D 2D 2D 2D 49 4E 50 55 54 20 52 45 53 50 4F 4E |----INPUT RESPON|
00001D60: 53 45 20 41 4E 44 20 43 48 45 43 4B 2D 2D 2D 2D |SE AND CHECK----|
00001D70: 2D 00 80 25 8A 07 54 52 B2 30 3A 54 54 B2 54 49 |-..%..TR.0:TT.TI|
00001D80: 00 9A 25 8C 07 55 47 24 B2 22 C1 54 54 45 4D 50 |..%..UG$.".TTEMP|
00001D90: 54 20 23 22 3A 8D 20 38 35 30 00 AA 25 8F 07 99 |T #":. 850..%...|
00001DA0: 20 22 11 11 11 11 11 11 22 3B 00 DF 25 94 07 99 | "......";..%...|
00001DB0: 22 11 11 20 20 20 20 20 20 20 20 20 20 22 3B 3A |".. ";:|
00001DC0: 4E B2 4E 31 3A 44 B2 44 31 3A 8D 20 31 33 35 30 |N.N1:D.D1:. 1350|
00001DD0: 3A 99 50 52 4F 43 24 28 50 29 3B 22 20 22 3B 00 |:.PROC$(P);" ";.|
00001DE0: F1 25 98 07 54 52 49 45 53 B2 54 52 49 45 53 AA |.%..TRIES.TRIES.|
00001DF0: 31 00 10 26 9E 07 4E B2 4E 32 3A 44 B2 44 32 3A |1..&..N.N2:D.D2:|
00001E00: 8D 20 31 33 35 30 3A 99 22 20 3D 20 3F 20 22 3B |. 1350:." = ? ";|
00001E10: 00 21 26 A8 07 8D 20 31 34 37 30 3A 99 22 11 11 |.!&... 1470:."..|
00001E20: 22 00 3D 26 B2 07 8D 20 32 31 30 30 3A 8F 20 46 |".=&... 2100:. F|
00001E30: 49 4E 44 20 4E 55 20 41 4E 44 20 44 55 00 57 26 |IND NU AND DU.W&|
00001E40: BC 07 41 55 B2 B5 28 4E 55 AD 44 55 AC 31 30 30 |..AU..(NU.DU.100|
00001E50: 30 29 AD 31 30 30 30 00 7B 26 C6 07 8B 20 4E 55 |0).1000.{&... NU|
00001E60: B2 4E 41 20 AF 20 44 55 B2 44 41 20 A7 20 8D 20 |.NA . DU.DA . . |
00001E70: 32 33 31 30 3A 89 20 32 30 38 30 00 98 26 D0 07 |2310:. 2080..&..|
00001E80: 8B 20 41 55 B2 41 4E 53 20 A7 20 8D 20 32 34 30 |. AU.ANS . . 240|
00001E90: 30 3A 89 20 31 39 34 30 00 BD 26 DA 07 8F 2D 2D |0:. 1940..&...--|
00001EA0: 2D 41 4E 53 57 45 52 20 49 53 20 43 4F 4D 50 4C |-ANSWER IS COMPL|
00001EB0: 45 54 45 4C 59 20 57 52 4F 4E 47 2D 2D 00 DE 26 |ETELY WRONG--..&|
00001EC0: F8 07 99 22 11 20 D4 48 41 54 27 53 20 4E 4F 54 |...". .HAT'S NOT|
00001ED0: 20 57 48 41 54 20 C9 20 47 45 54 2E 22 3B 00 F3 | WHAT . GET.";..|
00001EE0: 26 02 08 8B 20 54 52 49 45 53 B1 31 20 A7 20 32 |&... TRIES.1 . 2|
00001EF0: 30 37 30 00 06 27 0C 08 99 22 20 D4 52 59 20 41 |070..'..." .RY A|
00001F00: 47 41 49 4E 2E 22 00 10 27 0E 08 8D 20 38 33 35 |GAIN."..'... 835|
00001F10: 00 1A 27 11 08 8D 20 38 35 30 00 25 27 12 08 89 |..'... 850.%'...|
00001F20: 20 31 39 33 35 00 3C 27 16 08 57 47 B2 57 47 AA | 1935.<'..WG.WG.|
00001F30: 31 3A 4E B2 4E 41 41 3A 44 B2 44 41 00 58 27 1B |1:N.NAA:D.DA.X'.|
00001F40: 08 99 22 20 C9 20 47 45 54 A0 22 3B 3A 8D 20 31 |.." . GET.";:. 1|
00001F50: 33 35 30 3A 99 22 11 22 00 72 27 20 08 4E 50 28 |350:.".".r' .NP(|
00001F60: 50 2C 32 29 B2 4E 50 28 50 2C 32 29 AA 54 49 AB |P,2).NP(P,2).TI.|
00001F70: 54 54 00 7B 27 25 08 8D 38 33 35 00 88 27 2A 08 |TT.{'%..835..'*.|
00001F80: CB 20 A4 20 31 31 35 30 00 A9 27 34 08 8F 20 43 |. . 1150..'4.. C|
00001F90: 4F 4E 56 45 52 54 20 53 54 52 49 4E 47 20 54 4F |ONVERT STRING TO|
00001FA0: 20 46 52 41 43 54 49 4F 4E 00 D0 27 3E 08 50 50 | FRACTION..'>.PP|
00001FB0: B2 C3 28 42 24 29 3A 50 31 B2 30 3A 50 32 B2 30 |..(B$):P1.0:P2.0|
00001FC0: 3A 57 48 4C 45 B2 30 3A 44 55 B2 31 3A 46 B2 30 |:WHLE.0:DU.1:F.0|
00001FD0: 00 DF 27 48 08 81 20 49 B2 31 20 A4 20 50 50 00 |..'H.. I.1 . PP.|
00001FE0: FA 27 52 08 8B 20 CA 28 42 24 2C 49 2C 31 29 B2 |.'R.. .(B$,I,1).|
00001FF0: 22 20 22 20 A7 20 50 31 B2 49 00 15 28 5C 08 8B |" " . P1.I..(\..|
00002000: 20 CA 28 42 24 2C 49 2C 31 29 B2 22 2F 22 20 A7 | .(B$,I,1)."/" .|
00002010: 20 50 32 B2 49 00 1D 28 66 08 82 20 49 00 2F 28 | P2.I..(f.. I./(|
00002020: 70 08 8B 20 50 31 B2 30 20 A7 20 32 31 38 30 00 |p.. P1.0 . 2180.|
00002030: 44 28 7A 08 57 48 4C 45 B2 C5 28 C8 28 42 24 2C |D(z.WHLE..(.(B$,|
00002040: 50 31 29 29 00 5F 28 84 08 4E 55 B2 C5 28 CA 28 |P1))._(..NU..(.(|
00002050: 42 24 2C 50 31 AA 31 2C 50 50 AB 50 31 29 29 00 |B$,P1.1,PP.P1)).|
00002060: 71 28 8E 08 8B 20 50 32 B2 30 20 A7 20 32 32 31 |q(... P2.0 . 221|
00002070: 30 00 87 28 98 08 44 55 B2 C5 28 C9 28 42 24 2C |0..(..DU..(.(B$,|
00002080: 50 50 AB 50 32 29 29 00 99 28 A2 08 4E 55 B2 4E |PP.P2))..(..NU.N|
00002090: 55 AA 57 48 4C 45 AC 44 55 00 9F 28 AC 08 8E 00 |U.WHLE.DU..(....|
000020A0: BB 28 B6 08 8F 2D 2D 2D 2D 52 45 44 55 43 45 20 |.(...----REDUCE |
000020B0: 4E 41 2F 44 41 2D 2D 2D 2D 2D 2D 00 CA 28 C0 08 |NA/DA------..(..|
000020C0: 81 20 49 B2 30 20 A4 20 31 30 00 08 29 CA 08 8B |. I.0 . 10..)...|
000020D0: 20 4E 41 AD 50 52 25 28 49 29 B3 B1 B5 28 4E 41 | NA.PR%(I)...(NA|
000020E0: AD 50 52 25 28 49 29 29 B0 20 44 41 AD 50 52 25 |.PR%(I)). DA.PR%|
000020F0: 28 49 29 B3 B1 B5 28 44 41 AD 50 52 25 28 49 29 |(I)...(DA.PR%(I)|
00002100: 29 20 A7 20 32 32 39 30 00 1C 29 D4 08 3A 20 20 |) . 2290..)..: |
00002110: 4E 41 B2 4E 41 AD 50 52 25 28 49 29 00 30 29 DE |NA.NA.PR%(I).0).|
00002120: 08 3A 20 20 44 41 B2 44 41 AD 50 52 25 28 49 29 |.: DA.DA.PR%(I)|
00002130: 00 3D 29 E8 08 3A 20 20 49 B2 49 AB 31 00 44 29 |.=)..: I.I.1.D)|
00002140: F2 08 82 49 00 4A 29 FC 08 8E 00 69 29 06 09 8F |...I.J)....i)...|
00002150: 2D 2D 2D 2D 43 4F 52 52 45 43 54 20 52 45 53 50 |----CORRECT RESP|
00002160: 4F 4E 53 45 2D 2D 2D 2D 2D 00 77 29 0B 09 52 47 |ONSE-----.w)..RG|
00002170: 54 B2 52 47 54 AA 31 00 83 29 10 09 43 B2 A5 4E |T.RGT.1..)..C..N|
00002180: 28 33 29 00 9C 29 1A 09 91 20 43 20 89 20 32 33 |(3)..)... C . 23|
00002190: 34 30 2C 32 33 36 30 2C 32 33 38 30 00 BD 29 24 |40,2360,2380..)$|
000021A0: 09 99 22 11 20 D4 48 41 54 27 53 20 57 48 41 54 |..". .HAT'S WHAT|
000021B0: 20 C9 20 47 45 54 2C 20 54 4F 4F 21 22 00 C8 29 | . GET, TOO!"..)|
000021C0: 2E 09 89 20 32 33 39 30 00 F2 29 38 09 99 22 11 |... 2390..)8..".|
000021D0: 20 C5 58 41 43 54 4C 59 20 52 49 47 48 54 21 20 | .XACTLY RIGHT! |
000021E0: 41 4E 44 A0 52 45 44 55 43 45 44 2C 20 54 4F 4F |AND.REDUCED, TOO|
000021F0: 2E 22 00 FD 29 42 09 89 20 32 33 39 30 00 24 2A |."..)B.. 2390.$*|
00002200: 4C 09 99 22 11 20 C3 4F 52 52 45 43 54 21 20 D9 |L..". .ORRECT! .|
00002210: 4F 55 27 52 45 20 47 4F 4F 44 20 41 54 20 54 48 |OU'RE GOOD AT TH|
00002220: 49 53 2E 22 00 30 2A 56 09 8D 20 38 37 35 3A 8E |IS.".0*V.. 875:.|
00002230: 00 36 2A 5B 09 8E 00 51 2A 60 09 8F 2D 2D 2D 2D |.6*[...Q*`..----|
00002240: 2D 4E 4F 54 20 52 45 44 55 43 45 44 2D 2D 2D 2D |-NOT REDUCED----|
00002250: 2D 00 7C 2A 6A 09 99 22 11 20 D7 45 4C 4C 2C 20 |-.|*j..". .ELL, |
00002260: C9 20 57 4F 55 4C 44 4E 27 54 20 43 41 4C 4C 20 |. WOULDN'T CALL |
00002270: 54 48 41 54 20 57 52 4F 4E 47 2C 22 00 AB 2A 74 |THAT WRONG,"..*t|
00002280: 09 99 22 11 20 C2 55 54 20 49 54 20 49 53 4E 27 |..". .UT IT ISN'|
00002290: 54 20 52 45 44 55 43 45 44 20 54 4F 20 4C 4F 57 |T REDUCED TO LOW|
000022A0: 45 53 54 20 54 45 52 4D 53 2E 22 00 C6 2A 7E 09 |EST TERMS."..*~.|
000022B0: 99 22 11 20 D0 4C 45 41 53 45 20 54 52 59 20 41 |.". .LEASE TRY A|
000022C0: 47 41 49 4E 2E 22 00 CE 2A 88 09 51 B2 31 00 D9 |GAIN."..*..Q.1..|
000022D0: 2A 8D 09 89 20 32 30 36 32 00 EF 2A 92 09 8F 2D |*... 2062..*...-|
000022E0: 2D 2D 41 44 44 49 54 49 4F 4E 2D 2D 2D 2D 2D 00 |--ADDITION-----.|
000022F0: 02 2B 9C 09 44 41 B2 B5 28 44 31 AC 44 32 AA 2E |.+..DA..(D1.D2..|
00002300: 35 29 00 1B 2B A6 09 4E 41 B2 B5 28 4E 31 AC 44 |5)..+..NA..(N1.D|
00002310: 32 AA 4E 32 AC 44 31 AA 2E 35 29 00 21 2B B0 09 |2.N2.D1..5).!+..|
00002320: 8E 00 3D 2B BA 09 8F 2D 2D 2D 2D 53 55 42 54 52 |..=+...----SUBTR|
00002330: 41 43 54 49 4F 4E 2D 2D 2D 2D 2D 2D 2D 00 56 2B |ACTION-------.V+|
00002340: C4 09 8B 20 4E 31 AD 44 31 B1 4E 32 AD 44 32 20 |... N1.D1.N2.D2 |
00002350: A7 20 32 35 32 30 00 7E 2B CE 09 4E 54 B2 4E 31 |. 2520.~+..NT.N1|
00002360: 3A 44 54 B2 44 31 3A 4E 31 B2 4E 32 3A 44 31 B2 |:DT.D1:N1.N2:D1.|
00002370: 44 32 3A 4E 32 B2 4E 54 3A 44 32 B2 44 54 00 91 |D2:N2.NT:D2.DT..|
00002380: 2B D8 09 44 41 B2 B5 28 44 31 AC 44 32 AA 2E 35 |+..DA..(D1.D2..5|
00002390: 29 00 AA 2B E2 09 4E 41 B2 B5 28 4E 31 AC 44 32 |)..+..NA..(N1.D2|
000023A0: AB 4E 32 AC 44 31 AA 2E 35 29 00 B0 2B EC 09 8E |.N2.D1..5)..+...|
000023B0: 00 C8 2B F6 09 8F 2D 2D 2D 2D 2D 4D 55 4C 54 49 |..+...-----MULTI|
000023C0: 50 4C 59 2D 2D 2D 2D 2D 00 DB 2B 00 0A 44 41 B2 |PLY-----..+..DA.|
000023D0: B5 28 44 31 AC 44 32 AA 2E 35 29 00 EE 2B 0A 0A |.(D1.D2..5)..+..|
000023E0: 4E 41 B2 B5 28 4E 31 AC 4E 32 AA 2E 35 29 00 F4 |NA..(N1.N2..5)..|
000023F0: 2B 14 0A 8E 00 09 2C 1E 0A 8F 2D 2D 2D 44 49 56 |+.....,...---DIV|
00002400: 49 44 45 2D 2D 2D 2D 2D 2D 00 1C 2C 28 0A 44 41 |IDE------..,(.DA|
00002410: B2 B5 28 44 31 AC 4E 32 AA 2E 35 29 00 2F 2C 32 |..(D1.N2..5)./,2|
00002420: 0A 4E 41 B2 B5 28 4E 31 AC 44 32 AA 2E 35 29 00 |.NA..(N1.D2..5).|
00002430: 35 2C 3C 0A 8E 00 58 2C 46 0A 8F 2D 2D 2D 2D 53 |5,<...X,F..----S|
00002440: 48 4F 57 20 53 43 4F 52 45 20 49 4E 20 48 45 41 |HOW SCORE IN HEA|
00002450: 44 49 4E 47 2D 2D 2D 2D 00 5E 2C 50 0A 8E 00 7C |DING----.^,P...||
00002460: 2C 8C 0A 8F 2D 2D 2D 2D 46 49 4E 41 4C 20 53 54 |,...----FINAL ST|
00002470: 41 54 49 53 54 49 43 53 2D 2D 2D 2D 00 C0 2C 96 |ATISTICS----..,.|
00002480: 0A 55 54 24 B2 22 20 C6 52 41 43 54 49 4F 4E 20 |.UT$." .RACTION |
00002490: D0 52 41 43 54 49 43 45 22 3A 55 47 24 B2 22 D3 |.RACTICE":UG$.".|
000024A0: 54 41 54 49 53 54 49 43 53 22 3A 58 58 B2 55 50 |TATISTICS":XX.UP|
000024B0: 3A 55 50 B2 30 3A 8D 38 35 30 3A 55 50 B2 58 58 |:UP.0:.850:UP.XX|
000024C0: 00 E6 2C BE 0A 99 22 11 11 11 11 11 11 11 20 D9 |..,..."....... .|
000024D0: 4F 55 20 44 49 44 22 4E 4D 20 22 20 50 52 4F 42 |OU DID"NM " PROB|
000024E0: 4C 45 4D 53 22 3B 00 04 2D C8 0A 99 22 20 41 4E |LEMS";..-..." AN|
000024F0: 44 20 47 4F 54 22 52 47 54 20 22 43 4F 52 52 45 |D GOT"RGT "CORRE|
00002500: 43 54 2E 22 00 27 2D D7 0A 99 22 11 20 C9 54 20 |CT.".'-...". .T |
00002510: 54 4F 4F 4B 20 59 4F 55 20 22 3B 54 52 3B 22 20 |TOOK YOU ";TR;" |
00002520: 54 52 49 45 53 2E 22 00 59 2D DC 0A 99 22 11 20 |TRIES.".Y-...". |
00002530: D9 4F 55 20 53 50 45 4E 54 22 B5 28 4E 50 28 50 |.OU SPENT".(NP(P|
00002540: 2C 32 29 AD 36 30 29 22 53 45 43 4F 4E 44 53 A0 |,2).60)"SECONDS.|
00002550: 4F 4E 20 54 48 45 53 45 22 00 9A 2D E6 0A 99 22 |ON THESE"..-..."|
00002560: 11 20 46 4F 52 20 41 4E 20 41 56 45 52 41 47 45 |. FOR AN AVERAGE|
00002570: 20 4F 46 22 B5 28 4E 50 28 50 2C 32 29 AD 4E 4D | OF".(NP(P,2).NM|
00002580: AD 36 AA 2E 35 29 AD 31 30 22 53 45 43 20 50 45 |.6..5).10"SEC PE|
00002590: 52 20 50 52 4F 42 4C 45 4D 2E 00 A6 2D EA 0A 55 |R PROBLEM...-..U|
000025A0: 50 B2 55 50 AB 31 00 AF 2D EB 0A 8D 38 33 35 00 |P.UP.1..-...835.|
000025B0: B5 2D FA 0A 8E 00 00 00 |.-...... |
.......910.6...."X..........X` ......L4.
X.1........X` .A...."X.G......X` ......L
X.X.U......X` ......"XHHH.H.HHHHHHH.H
.HX` ......"HHHHHHH` ......" .H...X.
. ..... .H...P...JP.` .U....".. .H....
.P.....JP.` ...#..UW.0..UU,15...(..UC,0
:.UN,0:UR$."":UI$."":.UL.0.UL.39.$.-..UI
$:.UI$."".45.Y.2.UA.F(UI$):UR.C(UR$):.UA
.13.UR.0..UC,1:." .";:.70...7..UA.20...(
UR.0).45:UR$.H(UR$,UR.1):.". ..";:.45..
.<..UR.UL.45...A..95:UR$.UR$.UI$:.UI$;:.
45.S.F..UR$.UX$..". ";:.145...K..UI.UR.1
..1:.J(UR$,UI,1)." ".....P.UR$.H(UR$,UI)
:.:...._..C(US$).0.110.J.D..UI.1.C(US$):
.UI$..J(US$,UI,1)..:UI$."".P.I...].N..UA
.46...P.S..UA.32.UR..0.....X..UA.47.UA.5
8.....}..UA.64.UA.91........UA.193.UA.21
8.UI$."":..O....B(UT).UU%.UI$.G(UA.128).
U..........170:.251,0:.252,US.256:.253,0
:.254,UF:.UV.....UZ.1:UV%.B(UT):.300.B..
.UZ.0:US$.UJ$:UG$.UK$:UT$.UL$:UP.UJ:UL.U
K:.".";:.UW.0..UY,6:.UX,14... ..UT,UV%:.
251,0:.252,UF:.253,0:.254,US.256:.UV:.UW
.0..UU,15.Q....U1,U1%:.U2,U2%:.U3,U3%.1:
.U4,U4%:.ZZ..:.35.....U1%.B(U1):U2%.B(U2
):U3%.B(U3):U4%.B(U4).'...UJ$.US$:UK$.UG
$:UL$.UT$:UJ.UP:UK.UL:..L.,.."..":.UT,UU
%:.UW.0..UY,12:.UX,6.L.1.."
M E N U."...6.." -----------------
---------------".D.;..". 1. BEGI
N FRACTION PRACTICE"...@..".. 2.
STUDENT INSTRUCTIONS"...E..".. 3.
TEACHER INSTRUCTIONS".3.J.."..
4. QUIT."._.O.." ------------------
--------------"...T..".. PRESS A N
UMBER KEY (1-4) ";...Y.UL.1:US$."1234"..
.[..35:US$."".J.^..E(UR$).1000,400,500,3
90.S.C..300...R..UZ.1..UP%:.155...W.....
...UE:."..":.UW.0..UY,6:.UX,14:.UU,14...
...:..B....".":.UT,UL%:.UW.0..UY,11:.UX,
12.....UT$." FRACTION PRACTICE":UH.1:UP.
0:UG$."STUDENT INST":.850......". BY US
ING THIS PROGRAM YOU WILL BE"......". AB
LE TO PRACTISE FRACTION ARITHMETIC."...
..". I WILL ASK YOU PROBLEMS AND YOU GI
VE".8....". THE ANSWERS AS FRACTIONS IN
REDUCED".G....". FORM.".W....". WRITE YO
UR ANSWER AS A WHOLE FRACTION."......".
FOR EXAMPLE; .......... WRITE 1 3/4 AS
... 7/4."......". IF AT ANY TIME YOU WI
SH TO RETURN TO"......". THE MENU PRESS
H <RETURN>."......835.!....UZ.1..UP%:.15
5.'.....K....".":.UT,UL%:.UW.0..UY,2:.UX
,10.....UT$." FRACTION PRACTICE":UH.1:UP
.0:UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC."......
" DOMAIN. IF THIS IS NOT TRUE,.".+.
..." PLEASE CONTACT:..".T...."
COMMODORE BUSINESS MACHINES".X...."
.3370 PHARMACY AVE......."
.AGINCOURT, ONTARIO"......" .C
ANADA, M1W 2K4"......" .(416) 4
99-4292".....UH.1:.835:.850."...."
..PROGRAM NAME: FRACTION PRACTICE".J....
" .WRITTEN BY : BILL FINZER".R....
" .REVISED BY : R. WENZEL "......
" ..THIS PROGRAM WILL RUN ON ANY...
F...." BASIC 2.0 PET COMPUTER...
...." BASIC 4.0 PET COMPUTER....
..." 8032 CBM COMPUTER..4...."
COMMODORE 64 COMPUTER.>.... 835.H
.... 850.{.... "... AT THE START OF THE
PROGRAM, THE USER"...... ". IS ASKED TO
INPUT THE LARGEST DENOM-".C.... ". INAT
OR DESIRED....... ".. AT THE END OF EAC
H SET, THE NUMBER OF".#. .. ". QUESTIONS
AND THE NUMBER OF CORRECT".@.!.. ". RES
PONSES IS GIVEN..I.I..835.].N..UZ.1..UP%
:.155.C.S........UC$".... BEFORE RUNNING
THIS PROGRAM ON AN 8032.P.A.." LOA
D THE 'CBM 4032' PROGRAM.............":.
... .."....";:.UT,UU%:.UW.0..UY,1:.UX,14
...!..I.1.38:.". .";:..&."..I.1.22:."...
.";:..>.#..I.1.37:."... .";:..V.$..I.1.
22:."... .";:..V.%.."...................
... ....&.."........... . . .....'..".
.......... . ...... O M M O D O R E.R.(
.."............ ....).."...............
....EDUCATIONAL....*..".................
SOFTWARE.6.+.."..................1983..R
.,..H(UD$,24);"..........PRESS SPACE BAR
OR WAIT."UC$:UI.0...-..UI$:.UI$.." ".UI
.UI.1:.UI.250.813......300...C..UN,0:.H(
UD$,24);".......PRESS SPACE BAR TO CONTI
NUE."...H..UI$:.UI$.." ".840...M...,.R.U
P.UP.1:."."H(UT$.UP$,21);I(UP$.UG$.D(UP)
,18).[.W.." ----------------------------
----------"...\..UH.0..H(UD$,24);H(UP$,7
);"HELP - PRESS H <RETURN>"...A.UH.0:.
"..":....K..H(UD$,24);" ONE MO
MENT PLEASE... ":......UX$."H":US.32
768:U1.196:U2.197:U3.198:U4.216:UC.167:U
B.1024:UD.1084:UE.1105.W...UT.59468:UU%.
12:UL%.14:UP%.1158:UN.158:.50003,0:UW.B(
50003):UF.B(53).E....UW.0.US.1024:U1.209
:U2.210:U3.211:U4.214:UC.204:UB.2048:UX.
53280:UD.2064......UW.0.UT.53272:UU%.21:
UL%.23:UP%.2151:UN.198:UY.53281:UU.2199:
UE.2087.;...UC$.G(155):UV.1214:.UW.0.UF.
196:UV.2238.....UD$."...................
......":UP$."
".....UT$." FRACTIONS".......
J....900:.".":." ":. SHIFTED SPACE......
B(US.40)..96.700......(.(0).(.(.(0)).0).
65536).500.935.6....UC$"...THIS MACHINE
DOES NOT HAVE ENOUGH.".`...."MEMORY TO R
UN THIS PROGRAM !":.UE:..V...."."UC$:.UW
.0.965......UF.60.UF.108.UF.124.950.....
.52,0:.53,UF.4:.:.900......UW.160..1103,
88:.1104,228:.1107,85:.1111,228:.965.!..
..UW..1..".THIS PGM WILL NOT WORK ON THI
S MACHINE!":.UE:..P....1103,49:.1104,230
:.1107,46:.1111,230:.965.X.E..UD.F.J..80
0:.300.....UZ.1..UP%:.UP%:UZ.0......"."
UC$;:.:.UW.0..UY,6:.UX,14...... MODIFIED
FOR EXPERIENCE '82 BY DAVE ART
HURS,SARNIA.....UT$." FRACTIONS":UG$."":
UP.0...... FRACTION PRACTICE.>.... BY BI
LL FINZER, APRIL, 1979.\.... COPYRIGHT
1979 BY SFSU.~....----MAIN CALLING ROUTI
NE----...8.. 1210:. INITIALIZE...=.. UT,
UL%.D.L.UP.0:. 1700:. CHOOSE PROCESS.M.Q
.UP.0...V.. 1840:. MAKE UP PROBLEM...`.K
. 1920:. INPUT RESPONSE & CHECK...T.Q.0
...~.. PROBS.NM . 1110.?...UG$."":. 850.
K....".......... DO YOU WANT SOME MORE ?
";.....US$."YNH":UL.1:. 35.....TR.UP.1:
. 2700...... UR$.."N" . .1210:.1100.....
..T....-----INITIALIZE------...D.T..(.TI
)...N.. 2,3,5,7,11,13,17,19,23,29,31.".X
.. I.0 . 10:. PRIMES%(I):..3...PROBS.0:W
R.0.H.... +,-,X,/,DIV.BY.C.... I.1 . 5:.
PROC$(I):..{.... .N(M)..(.(1).M.1).....
L$."............":LI$."..........".G....
".",".",".",".","..","..",".."...... I.
1 . 7:. BAR$(I):. I...(.....2.BLANK$."
".$
.<...C.F..---PRINT FRACTION N/D----.A.P.
NL.C(D(N)).1:DL.C(D(D)).1...Z..".."N;"..
"H(L$,NL);H(LI$,NL)".."H(L$,NL);D" ..";
...D.....N..----GET SINGLE CHARACTER----
.I.X.T.TI...... TI.T.30 . .". ...
......";:. 1440.. ... TI.T.60 . ." .";:.
1440.. ..T.TI.2 ..A$:.A$."".1440.S ...
F(A$).20 . F(A$).13 . 1450.T ... F(A$).
47 . F(A$).58 . 1450.. ... A$."H" . W.UP
:ZZ.1:.145:ZZ.0:. " ";:UP.W.. ... A$."/"
. 1450.D ..K . 1440.O ..." .";.U .....
...----GET NON-EMPTY STRING-----..!H.B$.
"".4!R.. 1390:A.F(A$):. B$."" . (A.20 .
A.13) . 1490.]!... C(B$).1 . A.20 . B$."
":.A$;:. 1490..!... A.20 . .A$;:B$.H(B$,
C(B$).1):. 1490..!... A.13 . ...!...A$;:
B$.B$.A$..!... 1490.O!...----CHOOSE PROC
ESS----.Y!..RGT.0..!... ".":.UW.0..UT,UL
%.."... 850:XX.UP:UP.0:UP.XX.T"...".. WH
AT ARITHMETIC PROCESS DO YOU WANT TO. T
RY WITH FRACTIONS? ".."B..". CHOOSE +,-,
X,/: ";:US$."+-X/H":UL.1:. 35:A$.UR$.."L
.P..1.."V.. I.1 . 4:. PROC$(I).A$ . P.I.
."... I.Q"... P..1 . 1730.."... P.4 . P.
5..#...". CHOOSE A MAXIMUM FOR THE DENOM
INATORS "..#...". OF THE FRACTIONS: ";.U
#..US$."H1234567890":UL.4:. 35:X$.UR$.R#
..MAX.E(X$):.MAX..2 . 1820..#... ". THAT
WON'T WORK. TRY AGAIN.";..#... X.1 . 10
00:. X..#... ".........................
... ..";..
$..."............";:. 1800.>$...".. HOW
MANY PROBLEMS OF THIS KIND? ";.H$!.US$."
1234567890H":UL.0:. 35:NM.E(UR$).N$&....
$0..----MAKE UP PROBLEM-----..$:.D1..N(M
AX):D2..N(MAX).B$D.N1..N(D1.2):N2..N(D2.
2).Y$I..D1.N1.D2.N2..1850..$N.. P . 2450
,2490,2550,2590,2590..%X.. 2230:. REDUCE
ANSWER.2%B.ANS..(NA.DA.1000).1000.D%L.P
ROBS.PROBS.1.J%V...Q%...----INPUT RESPON
SE AND CHECK-----..%..TR.0:TT.TI..%..UG$
."ATTEMPT #":. 850..%... "......";..%...
".. ";:N.N1:D.D1:. 1350:.PROC$(
P);" ";..%..TRIES.TRIES.1..&..N.N2:D.D2:
. 1350:." = ? ";.!&... 1470:."..".=&...
2100:. FIND NU AND DU.W&..AU..(NU.DU.100
0).1000.{&F.. NU.NA . DU.DA . . 2310:. 2
080..&P.. AU.ANS . . 2400:. 1940..&Z..--
-ANSWER IS COMPLETELY WRONG--..&...". TH
AT'S NOT WHAT I GET.";..&... TRIES.1 . 2
070..'..." TRY AGAIN."..'... 835..'... 8
50.%'... 1935.<'..WG.WG.1:N.NAA:D.DA.X'.
.." I GET ";:. 1350:.".".R' .NP(P,2).NP(
P,2).TI.TT.{'%..835..'*.K . 1150..'4.. C
ONVERT STRING TO FRACTION.P'>.PP.C(B$):P
1.0:P2.0:WHLE.0:DU.1:F.0..'H.. I.1 . PP.
.'R.. J(B$,I,1)." " . P1.I..(\.. J(B$,I,
1)."/" . P2.I..(F.. I./(P.. P1.0 . 2180.
D(Z.WHLE.E(H(B$,P1))._(..NU.E(J(B$,P1.1,
PP.P1)).Q(... P2.0 . 2210..(..DU.E(I(B$,
PP.P2))..(..NU.NU.WHLE.DU..(.....(...---
-REDUCE NA/DA------.J(... I.0 . 10..)J..
NA.PR%(I)...(NA.PR%(I)). DA.PR%(I)...(D
A.PR%(I)) . 2290..)T.: NA.NA.PR%(I).0).
.: DA.DA.PR%(I).=)..: I.I.1.D)...I.J).
...I)...----CORRECT RESPONSE-----.W)..RG
T.RGT.1..)..C..N(3)..)... C . 2340,2360,
2380..)$..". THAT'S WHAT I GET, TOO!".H)
... 2390..)8..". EXACTLY RIGHT! AND REDU
CED, TOO."..)B.. 2390.$*L..". CORRECT! Y
OU'RE GOOD AT THIS.".0*V.. 875:..6*[...Q
*`..-----NOT REDUCED-----.|*J..". WELL,
I WOULDN'T CALL THAT WRONG,"..*T..". BUT
IT ISN'T REDUCED TO LOWEST TERMS.".F*~.
.". PLEASE TRY AGAIN.".N*..Q.1.Y*... 206
2..*...---ADDITION-----..+..DA..(D1.D2..
5)..+..NA..(N1.D2.N2.D1..5).!+....=+...-
---SUBTRACTION-------.V+D.. N1.D1.N2.D2
. 2520.~+N.NT.N1:DT.D1:N1.N2:D1.D2:N2.NT
:D2.DT..+X.DA..(D1.D2..5)..+..NA..(N1.D2
.N2.D1..5)..+....H+...-----MULTIPLY-----
..+..DA..(D1.D2..5)..+..NA..(N1.N2..5)..
+.....,...---DIVIDE------..,(.DA..(D1.N2
..5)./,2.NA..(N1.D2..5).5,<...X,F..----S
HOW SCORE IN HEADING----.^,P...|,...----
FINAL STATISTICS----..,..UT$." FRACTION
PRACTICE":UG$."STATISTICS":XX.UP:UP.0:.8
50:UP.XX..,..."....... YOU DID"NM " PROB
LEMS";..-H.." AND GOT"RGT "CORRECT.".'-W
..". IT TOOK YOU ";TR;" TRIES.".Y-...".
YOU SPENT".(NP(P,2).60)"SECONDS ON THESE
"..-...". FOR AN AVERAGE OF".(NP(P,2).NM
.6..5).10"SEC PER PROBLEM...-..UP.UP.1..
-...835..-......
> CLICK IMAGE PREVIEW FOR FULL MODAL