REDUCING FRA
FILE INFORMATION
FILENAME(S): REDUCING FRA
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 15:50:27
APPEARS ON: 1 disk(s)
FILE HASH
c271f2378c7389fc12c2d4c3aaf7aa1d8826ad055a7181ce738de58656514798
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HANS GENNES | REDUCING FRA | PRG | Belgium | 6 | 0 | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AE 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 0D E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 0D E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 0D E9 00 97 55 34 2C 55 34 25 00 2A 0D EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 0D EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 0D F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 0D FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 0D FF 00 8E 00 0A 0E 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0E 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0E 2F 01 3A 00 62 0E 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 22 00 BF 0E 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. |
000006A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 52 45 44 55 | 1. BEGIN REDU|
000006B0: 43 49 4E 47 20 46 52 41 43 54 49 4F 4E 53 22 00 |CING FRACTIONS".|
000006C0: E9 0E 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2|
000006D0: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
000006E0: 52 55 43 54 49 4F 4E 53 22 00 13 0F 45 01 99 22 |RUCTIONS"...E.."|
000006F0: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000700: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000710: 4E 53 22 00 40 0F 4A 01 99 22 11 11 20 20 20 20 |NS".@.J..".. |
00000720: 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 43 41 | 4. MODIFICA|
00000730: 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 4D 22 |TION OF PROGRAM"|
00000740: 00 5C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |.\.O..".. |
00000750: 35 2E 20 20 20 51 55 49 54 11 11 22 00 8B 0F 54 |5. QUIT.."...T|
00000760: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B6 0F 59 01 |----------"...Y.|
00000790: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
000007A0: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
000007B0: 2D 35 29 20 22 3B 00 DF 0F 5E 01 55 4C B2 31 3A |-5) ";...^.UL.1:|
000007C0: 55 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 3A |US$."12345":.35:|
000007D0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
000007E0: EA 0F 60 01 55 53 24 B2 22 22 00 0B 10 63 01 91 |..`.US$.""...c..|
000007F0: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
00000800: 35 30 30 2C 36 30 30 2C 33 39 36 00 14 10 68 01 |500,600,396...h.|
00000810: 89 33 30 30 00 3B 10 8B 01 8F 20 2A 2A 20 52 45 |.300.;.... ** RE|
00000820: 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |-ENABLE STOP KEY|
00000830: 20 41 4E 44 20 45 4E 44 20 2A 2A 00 6A 10 8C 01 | AND END **.j...|
00000840: 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 |..(50003)..1..(5|
00000850: 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 |0003)..160..(500|
00000860: 30 33 29 B3 B1 30 A7 33 39 39 00 94 10 8D 01 9E |03)..0.399......|
00000870: 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 |UU.71:..(50003).|
00000880: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
00000890: 30 2C 31 34 00 A0 10 8E 01 99 22 9A 93 22 3A 80 |0,14......"..":.|
000008A0: 00 AB 10 8F 01 8D 38 37 35 3A 8E 00 CC 10 90 01 |......875:......|
000008B0: 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 |. ** STUDENT INS|
000008C0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 FB 10 95 |TRUCTIONS **....|
000008D0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
000008E0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000008F0: 2C 30 3A 97 35 33 32 38 30 2C 30 00 21 11 9A 01 |,0:.53280,0.!...|
00000900: 55 48 B2 31 3A 55 50 B2 30 3A 55 47 24 B2 22 D3 |UH.1:UP.0:UG$.".|
00000910: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85|
00000920: 30 00 54 11 9F 01 99 22 11 11 11 11 11 20 20 20 |0.T...."..... |
00000930: D4 48 49 53 20 49 53 20 41 20 53 49 4D 50 4C 45 |.HIS IS A SIMPLE|
00000940: 20 44 52 49 4C 4C 20 54 4F 20 54 45 53 54 20 59 | DRILL TO TEST Y|
00000950: 4F 55 52 22 00 7A 11 A4 01 99 22 11 20 41 42 49 |OUR".z....". ABI|
00000960: 4C 49 54 59 20 54 4F 20 52 45 44 55 43 45 20 46 |LITY TO REDUCE F|
00000970: 52 41 43 54 49 4F 4E 53 2E 22 00 A8 11 A9 01 99 |RACTIONS."......|
00000980: 22 11 20 20 20 D9 4F 55 20 57 49 4C 4C 20 42 45 |". .OU WILL BE|
00000990: 20 47 49 56 45 4E 20 31 30 20 46 52 41 43 54 49 | GIVEN 10 FRACTI|
000009A0: 4F 4E 53 20 54 4F 20 22 00 D7 11 AB 01 99 22 11 |ONS TO "......".|
000009B0: 20 52 45 44 55 43 45 2C 20 41 46 54 45 52 20 57 | REDUCE, AFTER W|
000009C0: 48 49 43 48 20 54 48 45 20 43 4F 4D 50 55 54 45 |HICH THE COMPUTE|
000009D0: 52 20 57 49 4C 4C 22 00 F8 11 AE 01 99 22 11 20 |R WILL"......". |
000009E0: 53 55 4D 4D 41 52 49 5A 45 20 59 4F 55 52 20 52 |SUMMARIZE YOUR R|
000009F0: 45 53 55 4C 54 53 2E 22 00 0B 12 B3 01 8D 38 33 |ESULTS."......83|
00000A00: 35 3A 55 48 B2 31 3A 8D 38 35 30 00 3A 12 B8 01 |5:UH.1:.850.:...|
00000A10: 99 22 11 11 11 11 11 20 20 20 20 C6 49 52 53 54 |."..... .IRST|
00000A20: 2C 20 59 4F 55 20 57 49 4C 4C 20 48 41 56 45 20 |, YOU WILL HAVE |
00000A30: 54 4F 20 46 49 47 55 52 45 22 00 67 12 BD 01 99 |TO FIGURE".g....|
00000A40: 22 11 20 4F 55 54 20 54 48 45 20 47 52 45 41 54 |". OUT THE GREAT|
00000A50: 45 53 54 20 43 4F 4D 4D 4F 4E 20 46 41 43 54 4F |EST COMMON FACTO|
00000A60: 52 2E 20 C6 4F 52 22 00 96 12 C2 01 99 22 11 20 |R. .OR"......". |
00000A70: 54 48 49 53 20 59 4F 55 20 4D 41 59 20 4E 45 45 |THIS YOU MAY NEE|
00000A80: 44 20 50 41 50 45 52 20 41 4E 44 20 41 20 50 45 |D PAPER AND A PE|
00000A90: 4E 43 49 4C 2E 22 00 C5 12 C7 01 99 22 11 20 D9 |NCIL."......". .|
00000AA0: 4F 55 20 57 4F 4E 27 54 20 42 45 20 57 4F 52 4B |OU WON'T BE WORK|
00000AB0: 49 4E 47 20 57 49 54 48 20 4E 55 4D 42 45 52 53 |ING WITH NUMBERS|
00000AC0: 20 41 4E 59 22 00 DD 12 CC 01 99 22 11 20 4C 41 | ANY"......". LA|
00000AD0: 52 47 45 52 20 54 48 41 4E 20 36 30 22 00 E7 12 |RGER THAN 60"...|
00000AE0: DF 01 8D 20 38 33 35 00 F6 12 E0 01 55 48 B2 31 |... 835.....UH.1|
00000AF0: 3A 8D 20 38 35 30 00 24 13 E1 01 99 22 11 11 11 |:. 850.$...."...|
00000B00: 11 11 20 20 20 20 20 D4 4F 20 41 44 56 41 4E 43 |.. .O ADVANC|
00000B10: 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 |E FROM ONE QUEST|
00000B20: 49 4F 4E 22 00 4D 13 E2 01 99 22 11 20 54 4F 20 |ION".M....". TO |
00000B30: 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 54 |THE NEXT PRESS T|
00000B40: 48 45 20 D3 D0 C1 C3 C5 20 42 41 52 22 00 7D 13 |HE ..... BAR".}.|
00000B50: E3 01 99 22 11 11 1D 1D 1D 1D 1D C9 46 20 41 54 |..."........F AT|
00000B60: 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 49 | ANY TIME YOU WI|
00000B70: 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 A1 13 |SH TO RETURN"...|
00000B80: E4 01 99 22 11 20 54 4F 20 54 48 45 20 CD C5 CE |...". TO THE ...|
00000B90: D5 20 50 52 45 53 53 20 48 20 D2 C5 D4 D5 D2 CE |. PRESS H ......|
00000BA0: 22 00 AA 13 E5 01 8D 38 33 35 00 BE 13 EA 01 8B |"......835......|
00000BB0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 C4 |UZ.1..UP%:.217..|
00000BC0: 13 F3 01 8E 00 E5 13 F4 01 8F 20 2A 2A 20 54 45 |.......... ** TE|
00000BD0: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000BE0: 4E 53 20 2A 2A 00 15 14 F5 01 99 22 93 22 3A 97 |NS **......".":.|
00000BF0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000C00: B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 |.0..53281,2:.532|
00000C10: 38 30 2C 31 30 00 3B 14 F6 01 55 48 B2 31 3A 55 |80,10.;...UH.1:U|
00000C20: 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 |P.0:UG$.".EACHER|
00000C30: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 69 14 F7 01 | .NST":.850.i...|
00000C40: 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 |.".. .O THE|
00000C50: 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F | BEST OF OUR KNO|
00000C60: 57 4C 45 44 47 45 2C 11 22 00 92 14 F8 01 99 22 |WLEDGE,."......"|
00000C70: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00000C80: 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 |IS IN THE PUBLIC|
00000C90: 11 22 00 BE 14 F9 01 99 22 20 20 20 44 4F 4D 41 |."......" DOMA|
00000CA0: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000CB0: 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 DB |NOT THE CASE."..|
00000CC0: 14 FA 01 99 22 20 20 20 50 4C 45 41 53 45 20 43 |...." PLEASE C|
00000CD0: 4F 4E 54 41 43 54 3A 11 11 11 22 00 05 15 FB 01 |ONTACT:...".....|
00000CE0: 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 |." .OMMODOR|
00000CF0: 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 |E .USINESS .ACHI|
00000D00: 4E 45 53 11 22 00 28 15 FC 01 99 22 20 20 20 20 |NES.".(...." |
00000D10: 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D | 3370 .HARM|
00000D20: 41 43 59 20 C1 56 45 2E 00 4C 15 FD 01 99 22 20 |ACY .VE..L...." |
00000D30: 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 | .GINCOU|
00000D40: 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 6E 15 FE |RT, .NTARIO".n..|
00000D50: 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E |.." .AN|
00000D60: 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 8E |ADA .1. 2.4"..|
00000D70: 15 FF 01 99 22 20 20 20 20 20 20 20 20 20 20 28 |...." (|
00000D80: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 A9 |416) 499-4292"..|
00000D90: 15 00 02 55 48 B2 31 3A 55 50 B2 31 3A 8D 20 38 |...UH.1:UP.1:. 8|
00000DA0: 33 35 3A 8D 20 38 35 30 3A 00 D8 15 01 02 99 22 |35:. 850:......"|
00000DB0: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00000DC0: 41 4D 45 3A 20 D2 45 44 55 43 49 4E 47 20 C6 52 |AME: .EDUCING .R|
00000DD0: 41 43 54 49 4F 4E 53 11 00 02 16 02 02 99 22 20 |ACTIONS......." |
00000DE0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000DF0: 3A 20 C4 4F 55 47 4C 41 53 20 C8 45 49 4E 4C 45 |: .OUGLAS .EINLE|
00000E00: 4E 11 00 26 16 03 02 99 22 20 20 20 20 20 D5 50 |N..&...." .P|
00000E10: 47 52 41 44 45 44 20 C2 59 20 3A 20 CE 45 49 4C |GRADED .Y : .EIL|
00000E20: 20 C8 55 4E 54 11 00 51 16 04 02 99 22 20 20 20 | .UNT..Q...." |
00000E30: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000E40: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000E50: 11 00 78 16 05 02 99 22 20 20 20 20 20 20 20 20 |..x...." |
00000E60: 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 | ......2.0 ... .|
00000E70: CF CD D0 D5 D4 C5 D2 11 00 9F 16 06 02 99 22 20 |.............." |
00000E80: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E | ..... 4.|
00000E90: 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ..............|
00000EA0: C1 16 07 02 99 22 20 20 20 20 20 20 20 20 20 38 |....." 8|
00000EB0: 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 |032 ... ........|
00000EC0: 11 00 E6 16 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000ED0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000EE0: CD D0 D5 D4 C5 D2 00 F9 16 09 02 8D 38 33 35 3A |............835:|
00000EF0: 55 48 B2 31 3A 8D 38 35 30 00 28 17 12 02 99 22 |UH.1:.850.(...."|
00000F00: 11 11 11 11 20 20 20 D2 C5 C4 D5 C3 C9 CE C7 A0 |.... .........|
00000F10: C6 D2 C1 C3 D4 C9 CF CE D3 20 49 53 20 41 20 50 |......... IS A P|
00000F20: 52 4F 47 52 41 4D 20 22 00 52 17 14 02 99 22 11 |ROGRAM ".R....".|
00000F30: 20 44 45 53 49 47 4E 45 44 20 41 53 20 41 20 44 | DESIGNED AS A D|
00000F40: 52 49 4C 4C 20 4F 4E 20 46 52 41 43 54 49 4F 4E |RILL ON FRACTION|
00000F50: 20 22 00 81 17 16 02 99 22 11 20 52 45 44 55 43 | "......". REDUC|
00000F60: 54 49 4F 4E 2E 20 D4 48 45 20 53 54 55 44 45 4E |TION. .HE STUDEN|
00000F70: 54 20 49 53 20 52 45 51 55 49 52 45 44 20 54 4F |T IS REQUIRED TO|
00000F80: 22 00 B1 17 18 02 99 22 11 20 43 41 4C 43 55 4C |"......". CALCUL|
00000F90: 41 54 45 20 54 48 45 20 47 52 45 41 54 45 53 54 |ATE THE GREATEST|
00000FA0: 20 43 4F 4D 4D 4F 4E 20 4D 55 4C 54 49 50 4C 45 | COMMON MULTIPLE|
00000FB0: 22 00 E0 17 1A 02 99 22 11 20 4F 46 20 4E 55 4D |"......". OF NUM|
00000FC0: 45 52 41 54 4F 52 20 41 4E 44 20 44 45 4E 4F 4D |ERATOR AND DENOM|
00000FD0: 49 4E 41 54 4F 52 2E 20 C8 45 20 54 48 45 4E 22 |INATOR. .E THEN"|
00000FE0: 00 0C 18 1C 02 99 22 11 20 52 45 44 55 43 45 53 |......". REDUCES|
00000FF0: 20 54 48 45 20 46 52 41 43 54 49 4F 4E 20 53 54 | THE FRACTION ST|
00001000: 45 50 20 42 59 20 53 54 45 50 2E 22 00 15 18 44 |EP BY STEP."...D|
00001010: 02 8D 38 33 35 00 29 18 4E 02 8B 55 5A B2 31 A7 |..835.).N..UZ.1.|
00001020: 9E 55 50 25 3A 89 32 31 37 00 2F 18 57 02 8E 00 |.UP%:.217./.W...|
00001030: 55 18 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |U.X.. ** PROGRAM|
00001040: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E | MODIFICATION IN|
00001050: 53 54 20 2A 2A 00 66 18 59 02 99 22 93 22 3A 97 |ST **.f.Y..".":.|
00001060: 55 54 2C 55 4C 25 00 8B 18 5D 02 55 48 B2 31 3A |UT,UL%...].UH.1:|
00001070: 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 |UP.0:UG$.".ROGRA|
00001080: 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 BF 18 62 02 |M .OD":.850...b.|
00001090: 99 22 11 11 11 11 11 11 20 D4 48 45 20 52 41 4E |."...... .HE RAN|
000010A0: 47 45 20 4F 46 20 56 41 4C 55 45 53 20 55 53 45 |GE OF VALUES USE|
000010B0: 44 20 49 53 20 52 45 47 55 4C 41 54 45 44 22 00 |D IS REGULATED".|
000010C0: EC 18 67 02 99 22 11 20 49 4E 20 4C 49 4E 45 53 |..g..". IN LINES|
000010D0: 20 31 33 38 30 20 41 4E 44 20 31 33 39 30 2E 20 | 1380 AND 1390. |
000010E0: D4 48 45 20 4D 41 58 49 4D 55 4D 22 00 1B 19 6C |.HE MAXIMUM"...l|
000010F0: 02 99 22 11 20 56 41 4C 55 45 20 49 53 20 50 52 |..". VALUE IS PR|
00001100: 45 53 45 4E 54 4C 59 20 27 36 30 27 2C 20 42 55 |ESENTLY '60', BU|
00001110: 54 20 54 48 49 53 20 43 41 4E 22 00 30 19 71 02 |T THIS CAN".0.q.|
00001120: 99 22 11 20 42 45 20 43 48 41 4E 47 45 44 2E 22 |.". BE CHANGED."|
00001130: 00 39 19 94 02 8D 38 33 35 00 4D 19 B2 02 8B 55 |.9....835.M....U|
00001140: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 53 19 |Z.1..UP%:.217.S.|
00001150: BB 02 8E 00 78 19 BC 02 8F 20 2A 2A 20 54 4F 20 |....x.... ** TO |
00001160: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00001170: 4D 34 30 33 32 20 2A 2A 00 AE 19 C6 02 99 22 93 |M4032 **......".|
00001180: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00001190: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
000011A0: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 E4 |ON AN 8032 ....|
000011B0: 19 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
000011C0: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
000011D0: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
000011E0: 11 11 11 22 00 EF 19 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
000011F0: F5 19 E4 02 80 00 15 1A 20 03 8F 20 2A 2A 20 54 |........ .. ** T|
00001200: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00001210: 20 45 20 2A 2A 00 49 1A 22 03 99 22 93 11 1D 05 | E **.I.".."....|
00001220: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00001230: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00001240: 3A 97 35 33 32 38 31 2C 36 00 5F 1A 24 03 81 49 |:.53281,6._.$..I|
00001250: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00001260: 77 1A 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |w.&..I.1.22:."..|
00001270: 12 A6 92 22 3B 3A 82 00 8F 1A 28 03 81 49 B2 31 |...";:....(..I.1|
00001280: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00001290: A7 1A 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |..*..I.1.22:."..|
000012A0: 12 A6 92 22 3B 3A 82 00 CC 1A 2C 03 99 22 13 11 |...";:....,.."..|
000012B0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012C0: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 EE 1A 2E |......... .....|
000012D0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000012E0: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 0F |...... . . ....|
000012F0: 1B 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
00001300: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
00001310: 2D 1B 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |-.2.."..........|
00001320: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 55 1B |.......... ..U.|
00001330: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
00001340: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00001350: 52 20 45 11 11 00 78 1B 36 03 99 22 1D 1D 1D 1D |R E...x.6.."....|
00001360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00001370: 54 49 4F 4E 41 4C 11 11 00 97 1B 38 03 99 22 1D |TIONAL.....8..".|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00001390: 4F 46 54 57 41 52 45 00 B2 1B 3A 03 8F 20 2A 2A |OFTWARE...:.. **|
000013A0: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
000013B0: 2A 2A 00 EA 1B 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
000013C0: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
000013D0: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
000013E0: 57 41 49 54 92 22 3A 49 B2 30 00 0C 1C 3C 03 A1 |WAIT.":I.0...<..|
000013F0: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
00001400: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 30 1C 3E |1:.I.250.828.0.>|
00001410: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
00001420: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
00001430: 00 39 1C 40 03 89 33 30 30 00 55 1C 43 03 8F 20 |.9.@..300.U.C.. |
00001440: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
00001450: 53 53 20 2A 2A 00 90 1C 48 03 97 55 4F 2C 30 3A |SS **...H..UO,0:|
00001460: 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D |..(UD$,24);"....|
00001470: 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 |...PRESS SPACE B|
00001480: 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |AR TO CONTINUE."|
00001490: 00 A7 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 |...L..UI$:.UI$..|
000014A0: 22 20 22 A7 38 34 34 00 AD 1C 4E 03 8E 00 CD 1C |" ".844...N.....|
000014B0: 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 |R.. ** PAGE DESI|
000014C0: 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 D9 1C |GN ROUTINE **...|
000014D0: 54 03 55 50 B2 55 50 AA 31 00 03 1D 57 03 99 22 |T.UP.UP.1...W.."|
000014E0: 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B |.".(UT$.UP$,21);|
000014F0: C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C |.(UP$.UG$..(UP),|
00001500: 31 38 29 00 32 1D 5C 03 99 22 20 2D 2D 2D 2D 2D |18).2.\.." -----|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001530: 2D 22 00 41 1D 60 03 8B 55 48 B3 B1 30 A7 38 37 |-".A.`..UH..0.87|
00001540: 30 00 75 1D 61 03 99 C8 28 55 44 24 2C 32 34 29 |0.u.a...(UD$,24)|
00001550: 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 |;.(UP$,7);"HELP |
00001560: 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 |- PRESS H <RET|
00001570: 55 52 4E 3E 22 00 86 1D 66 03 55 48 B2 30 3A 99 |URN>"...f.UH.0:.|
00001580: 22 13 11 22 3A 8E 00 A5 1D 6B 03 8F 20 2A 2A 20 |"..":....k.. ** |
00001590: 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 |PLEASE WAIT REMA|
000015A0: 52 4B 20 2A 2A 00 DB 1D 70 03 99 C8 28 55 44 24 |RK **...p...(UD$|
000015B0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000015C0: 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 | ONE MOMENT PLEA|
000015D0: 53 45 2E 2E 2E 20 20 20 20 20 22 00 E1 1D 75 03 |SE... "...u.|
000015E0: 8E 00 FE 1D 84 03 8F 20 2A 2A 20 53 45 54 20 55 |....... ** SET U|
000015F0: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 49 |P VARIABLES **.I|
00001600: 1E 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(|
00001610: 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 |1000):UB.32768:U|
00001620: 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 |1.196:U2.197:U3.|
00001630: 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 |198:U4.216:UC.16|
00001640: 37 3A 55 55 B2 31 30 32 34 00 87 1E 86 03 55 54 |7:UU.1024.....UT|
00001650: B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C |.59468:UU%.12:UL|
00001660: 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D |%.14:UP%.1146:UM|
00001670: B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 |.32768:UO.158:. |
00001680: 35 30 30 30 33 2C 30 00 CA 1E 87 03 8B C2 28 35 |50003,0.......(5|
00001690: 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A |0003).0.UB.1024:|
000016A0: 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 |U1.209:U2.210:U3|
000016B0: B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 |.211:U4.214:UC.2|
000016C0: 30 34 3A 55 55 B2 32 30 34 38 00 09 1F 88 03 8B |04:UU.2048......|
000016D0: C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 |.(50003).0.UT.53|
000016E0: 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 |272:UU%.21:UL%.2|
000016F0: 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 |3:UP%.2139:UM.10|
00001700: 32 34 3A 55 4F B2 31 39 38 00 2D 1F 89 03 55 44 |24:UO.198.-...UD|
00001710: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00001720: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 5F 1F |............"._.|
00001730: 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 |..UP$." |
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001760: AD 1F 8B 03 55 54 24 B2 22 20 D2 C5 C4 D5 C3 C9 |....UT$." ......|
00001770: CE C7 A0 C6 D2 C1 C3 D4 C9 CF CE D3 22 3A 8F 20 |............":. |
00001780: 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 |PLACE PROGRAM TI|
00001790: 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 |TLE HERE !!!!!!!|
000017A0: 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 B3 1F |!!!!!!!!!!***...|
000017B0: 8C 03 8E 00 CD 1F 8E 03 8F 20 2A 2A 20 53 45 54 |......... ** SET|
000017C0: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 D6 1F | VARIABLES **...|
000017D0: 93 03 8D 39 30 30 00 F1 1F 98 03 8F 20 2A 2A 20 |...900...... ** |
000017E0: 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A |CHECK FOR 8032 *|
000017F0: 2A 00 0F 20 9D 03 99 22 93 22 3A 99 22 A0 22 3A |*.. ...".":.".":|
00001800: 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 |. SHIFTED SPACE.|
00001810: 26 20 A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 |& ....(UB.40)..9|
00001820: 36 A7 8D 37 30 30 00 3F 20 A3 03 8F 20 2A 2A 20 |6..700.? ... ** |
00001830: 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 |MEMORY CHECK **.|
00001840: 53 20 A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 |S ... .(0).2000.|
00001850: 39 33 37 00 81 20 A5 03 99 22 93 11 11 05 54 48 |937.. ..."....TH|
00001860: 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 |IS MACHINE DOES |
00001870: 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 |NOT HAVE ENOUGH.|
00001880: 22 00 A5 20 A6 03 99 22 4D 45 4D 4F 52 59 20 54 |".. ..."MEMORY T|
00001890: 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 |O RUN THIS PROGR|
000018A0: 41 4D 20 21 22 00 B0 20 A7 03 9E 55 55 AA 37 31 |AM !".. ...UU.71|
000018B0: 00 B6 20 A8 03 80 00 D0 20 A9 03 99 22 93 05 22 |.. ..... ...".."|
000018C0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 |:..(50003).0.962|
000018D0: 00 FF 20 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 |.. ... ** BASIC |
000018E0: 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 |2.0 OR 4.0 OR|
000018F0: 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 | C-64 SETUP **.|
00001900: 3D 21 AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 |=!...1075,133:.1|
00001910: 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 |076,144:.1077,23|
00001920: 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C |4:.1079,4:.1080,|
00001930: 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 73 21 |133:.1081,145.s!|
00001940: AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 |...1091,155:.109|
00001950: 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A |8,133:.1099,144:|
00001960: 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C |.1100,234:.1103,|
00001970: 31 33 33 00 95 21 AF 03 97 31 31 30 34 2C 31 34 |133..!...1104,14|
00001980: 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 |5:.1105,234:.108|
00001990: 32 2C 32 33 34 00 AC 21 B1 03 8B C2 28 35 30 30 |2,234..!....(500|
000019A0: 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 DB 21 B6 |03)..160.955..!.|
000019B0: 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C |..1093,88:.1094,|
000019C0: 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 |228:.1097,85:.11|
000019D0: 30 32 2C 32 32 38 3A 89 39 36 35 00 F0 21 BB 03 |02,228:.965..!..|
000019E0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 |..(50003)..1.990|
000019F0: 00 1F 22 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 |.."...1093,49:.1|
00001A00: 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 |094,230:.1097,46|
00001A10: 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 |:.1102,230:.965.|
00001A20: 59 22 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 |Y"...2099,141:.2|
00001A30: 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 |100,20:.2101,3:.|
00001A40: 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 |2103,8:.2104,141|
00001A50: 3A 97 32 31 30 35 2C 32 31 00 95 22 C3 03 97 32 |:.2105,21.."...2|
00001A60: 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A |106,3:.2115,145:|
00001A70: 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 |.2117,52:.2118,2|
00001A80: 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 |34:.2121,49:.212|
00001A90: 32 2C 31 34 31 00 CF 22 C4 03 97 32 31 32 33 2C |2,141.."...2123,|
00001AA0: 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 |20:.2124,3:.2126|
00001AB0: 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 |,234:.2127,141:.|
00001AC0: 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 |2128,21:.2129,3.|
00001AD0: ED 22 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 |."...UU.48:. DIS|
00001AE0: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 FE 22 |ABLE STOP KEY.."|
00001AF0: CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 0E |...800:. TITLE..|
00001B00: 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 3F |#...300:. MENU.?|
00001B10: 23 DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 |#...".THE PGM WI|
00001B20: 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 |LL NOT WORK ON T|
00001B30: 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 |HIS MACHINE!":..|
00001B40: 74 23 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E |t#...UZ.1..UP%:.|
00001B50: 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 |UP%:UZ.0:. ** PR|
00001B60: 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 |OGRAM STARTS HER|
00001B70: 45 20 2A 2A 00 A0 23 E9 03 99 22 93 05 22 3B 3A |E **..#..."..";:|
00001B80: 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |.:..(50003).0..5|
00001B90: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00001BA0: 00 BD 23 FC 03 97 55 54 2C 55 4C 25 3A 55 47 24 |..#...UT,UL%:UG$|
00001BB0: B2 22 D1 55 45 53 54 49 4F 4E 20 23 22 00 CA 23 |.".UESTION #"..#|
00001BC0: 10 04 55 50 B2 30 3A 43 B2 30 00 DE 23 1A 04 43 |..UP.0:C.0..#..C|
00001BD0: B2 43 AA 31 3A 99 22 93 22 3A 8D 38 37 35 00 F9 |.C.1:.".":.875..|
00001BE0: 23 24 04 50 B2 30 3A 48 24 B2 22 22 3A 4A B2 31 |#$.P.0:H$."":J.1|
00001BF0: 3A 52 B2 30 3A 50 31 B2 30 00 0D 24 2E 04 4D 24 |:R.0:P1.0..$..M$|
00001C00: B2 22 13 11 11 11 11 11 11 11 11 11 22 00 3F 24 |."..........".?$|
00001C10: 38 04 4E 24 B2 22 20 20 20 20 20 20 20 20 20 20 |8.N$." |
00001C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001C40: 51 24 42 04 48 24 28 32 29 B2 22 1D 1D 1D 1D 1D |Q$B.H$(2).".....|
00001C50: 22 00 5E 24 4C 04 48 24 28 30 29 B2 22 22 00 6C |".^$L.H$(0)."".l|
00001C60: 24 56 04 44 24 28 31 29 B2 22 C0 22 00 7B 24 60 |$V.D$(1).".".{$`|
00001C70: 04 44 24 28 32 29 B2 22 C0 C0 22 00 8B 24 6A 04 |.D$(2).".."..$j.|
00001C80: 44 24 28 33 29 B2 22 C0 C0 C0 22 00 96 24 74 04 |D$(3)."..."..$t.|
00001C90: 89 20 31 33 38 30 00 A7 24 7E 04 8B 50 31 B2 31 |. 1380..$~..P1.1|
00001CA0: 20 A7 20 31 32 30 30 00 C0 24 88 04 8B 20 58 B3 | . 1200..$... X.|
00001CB0: 39 20 AF 20 59 B1 39 20 A7 20 48 24 B2 22 20 22 |9 . Y.9 . H$." "|
00001CC0: 00 DA 24 92 04 45 24 B2 22 13 11 11 11 1D 1D 1D |..$..E$.".......|
00001CD0: 1D 22 AA 48 24 AA C4 28 58 29 00 F4 24 9C 04 46 |.".H$..(X)..$..F|
00001CE0: 24 B2 22 13 11 11 11 11 1D 1D 1D 1D 1D 22 AA 44 |$."..........".D|
00001CF0: 24 28 5A 29 00 0D 25 A6 04 47 24 B2 22 13 11 11 |$(Z)..%..G$."...|
00001D00: 11 11 11 1D 1D 1D 1D 22 AA C4 28 59 29 00 22 25 |......."..(Y)."%|
00001D10: B0 04 8D 38 35 30 3A 99 45 24 3A 99 46 24 3A 99 |...850:.E$:.F$:.|
00001D20: 47 24 00 34 25 BA 04 8B 20 50 31 B2 31 20 A7 20 |G$.4%... P1.1 . |
00001D30: 31 36 33 30 00 3F 25 C4 04 89 20 31 34 38 30 00 |1630.?%... 1480.|
00001D40: 46 25 CE 04 99 50 00 4C 25 D8 04 8E 00 59 25 E2 |F%...P.L%....Y%.|
00001D50: 04 4B B2 B5 28 41 AD 32 29 00 6A 25 EC 04 8B 20 |.K..(A.2).j%... |
00001D60: 4B B2 31 20 A7 20 31 33 34 30 00 7E 25 F6 04 81 |K.1 . 1340.~%...|
00001D70: 20 4E B2 20 4B 20 A4 20 32 20 A9 20 AB 31 00 A3 | N. K . 2 . .1..|
00001D80: 25 00 05 8B 20 B5 28 41 AD 4E 29 B2 41 AD 4E 20 |%... .(A.N).A.N |
00001D90: AF 20 B5 28 42 AD 4E 29 B2 42 AD 4E 20 A7 20 31 |. .(B.N).B.N . 1|
00001DA0: 33 31 30 00 AB 25 0A 05 82 20 4E 00 B6 25 14 05 |310..%... N..%..|
00001DB0: 89 20 31 33 34 30 00 C0 25 1E 05 50 B2 50 AA 31 |. 1340..%..P.P.1|
00001DC0: 00 CB 25 28 05 41 28 50 29 B2 4E 00 D6 25 32 05 |..%(.A(P).N..%2.|
00001DD0: 89 20 31 32 39 30 00 E8 25 3C 05 8B 20 50 B3 B1 |. 1290..%<.. P..|
00001DE0: 30 20 A7 20 31 31 35 30 00 FD 25 46 05 8B 20 BB |0 . 1150..%F.. .|
00001DF0: 28 31 29 B3 2E 32 20 A7 20 31 31 35 30 00 07 26 |(1)..2 . 1150..&|
00001E00: 50 05 89 31 33 38 30 00 12 26 5A 05 99 58 2C 59 |P..1380..&Z..X,Y|
00001E10: 3A 90 00 25 26 64 05 58 B2 B5 28 36 30 AC BB 28 |:..%&d.X..(60..(|
00001E20: 31 29 29 AA 31 00 38 26 6E 05 59 B2 B5 28 36 30 |1)).1.8&n.Y..(60|
00001E30: AC BB 28 31 29 29 AA 31 00 49 26 78 05 8B 20 58 |..(1)).1.I&x.. X|
00001E40: B2 59 20 A7 20 31 33 38 30 00 5A 26 82 05 8B 20 |.Y . 1380.Z&... |
00001E50: 58 B1 59 20 A7 20 31 33 38 30 00 76 26 8C 05 8B |X.Y . 1380.v&...|
00001E60: 20 58 B1 39 20 B0 20 59 B1 39 20 A7 20 5A B2 32 | X.9 . Y.9 . Z.2|
00001E70: 3A 89 31 34 34 30 00 7E 26 96 05 5A B2 31 00 8F |:.1440.~&..Z.1..|
00001E80: 26 A0 05 8B 20 58 B1 59 20 A7 20 31 34 36 30 00 |&... X.Y . 1460.|
00001E90: A2 26 AA 05 41 B2 59 3A 42 B2 58 3A 89 20 31 34 |.&..A.Y:B.X:. 14|
00001EA0: 37 30 00 AE 26 B4 05 41 B2 58 3A 42 B2 59 00 B9 |70..&..A.X:B.Y..|
00001EB0: 26 BE 05 89 20 31 32 35 30 00 F1 26 C8 05 99 4D |&... 1250..&...M|
00001EC0: 24 AA 22 20 C3 41 4E 20 59 4F 55 20 52 45 44 55 |$." .AN YOU REDU|
00001ED0: 43 45 20 54 48 49 53 20 46 52 41 43 54 49 4F 4E |CE THIS FRACTION|
00001EE0: 20 3F 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 22 | ? ......"|
00001EF0: 3B 00 0A 27 D2 05 55 53 24 B2 22 59 4E 48 22 3A |;..'..US$."YNH":|
00001F00: 8D 33 35 3A 41 24 B2 55 52 24 00 25 27 E6 05 8B |.35:A$.UR$.%'...|
00001F10: 20 41 24 B2 22 59 22 20 AF 20 50 B3 B1 30 20 A7 | A$."Y" . P..0 .|
00001F20: 20 31 36 33 30 00 3F 27 F0 05 8B 20 41 24 B2 22 | 1630.?'... A$."|
00001F30: 59 22 20 AF 20 50 B2 30 20 A7 20 31 35 36 30 00 |Y" . P.0 . 1560.|
00001F40: 59 27 FA 05 8B 20 41 24 B2 22 4E 22 20 AF 20 50 |Y'... A$."N" . P|
00001F50: B2 30 20 A7 20 31 35 38 30 00 74 27 04 06 8B 20 |.0 . 1580.t'... |
00001F60: 41 24 B2 22 4E 22 20 AF 20 50 B3 B1 30 20 A7 20 |A$."N" . P..0 . |
00001F70: 31 36 31 30 00 7F 27 0E 06 89 20 31 34 38 30 00 |1610..'... 1480.|
00001F80: 9F 27 18 06 99 3A 99 22 20 D7 52 4F 4E 47 21 21 |.'...:." .RONG!!|
00001F90: 20 20 CC 4F 4F 4B 20 41 47 41 49 4E 21 21 22 00 | .OOK AGAIN!!".|
00001FA0: B2 27 22 06 46 31 B2 46 31 AA 31 3A 89 20 31 34 |.'".F1.F1.1:. 14|
00001FB0: 38 30 00 DF 27 2C 06 99 3A 99 22 20 D2 49 47 48 |80..',..:." .IGH|
00001FC0: 54 21 21 20 20 20 20 20 20 20 20 20 20 20 20 20 |T!! |
00001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001FE0: EF 27 40 06 8D 38 33 35 3A 89 20 31 39 35 30 00 |.'@..835:. 1950.|
00001FF0: 0F 28 4A 06 99 3A 99 22 20 D7 52 4F 4E 47 21 21 |.(J..:." .RONG!!|
00002000: 20 20 CC 4F 4F 4B 20 41 47 41 49 4E 21 21 22 00 | .OOK AGAIN!!".|
00002010: 22 28 54 06 46 31 B2 46 31 AA 31 3A 89 20 31 34 |"(T.F1.F1.1:. 14|
00002020: 38 30 00 52 28 5E 06 99 4D 24 AA 22 11 11 20 C7 |80.R(^..M$.".. .|
00002030: 52 45 41 54 45 53 54 20 43 4F 4D 4D 4F 4E 20 46 |REATEST COMMON F|
00002040: 41 43 54 4F 52 20 3D 20 20 20 20 20 9D 9D 9D 9D |ACTOR = ....|
00002050: 22 3B 00 7C 28 68 06 55 4C B2 36 3A 55 53 24 B2 |";.|(h.UL.6:US$.|
00002060: 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 |"0123456789H":.3|
00002070: 35 3A 47 43 46 B2 C5 28 55 52 24 29 00 92 28 72 |5:GCF..(UR$)..(r|
00002080: 06 8B 20 47 43 46 B2 41 28 31 29 20 A7 20 31 36 |.. GCF.A(1) . 16|
00002090: 38 30 00 9D 28 7C 06 89 20 32 30 33 30 00 C8 28 |80..(|.. 2030..(|
000020A0: 86 06 99 22 11 20 D7 52 4F 4E 47 21 21 20 20 54 |...". .RONG!! T|
000020B0: 52 59 20 41 47 41 49 4E 21 22 3A 47 31 B2 47 31 |RY AGAIN!":G1.G1|
000020C0: AA 31 3A 89 31 36 33 30 00 F1 28 90 06 99 4D 24 |.1:.1630..(...M$|
000020D0: AA 22 11 11 11 11 20 D2 49 47 48 54 21 21 20 20 |.".... .IGHT!! |
000020E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020F0: 22 00 28 29 9A 06 99 4D 24 AA 22 11 11 11 11 11 |".()...M$.".....|
00002100: 11 20 D2 45 44 55 43 45 20 54 48 45 20 4E 55 4D |. .EDUCE THE NUM|
00002110: 45 52 41 54 4F 52 20 54 4F 20 20 20 20 20 20 20 |ERATOR TO |
00002120: 9D 9D 9D 9D 9D 9D 22 3B 00 4C 29 A4 06 55 53 24 |......";.L)..US$|
00002130: B2 22 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D |."0123456789H":.|
00002140: 33 35 3A 4E 55 B2 C5 28 55 52 24 29 00 62 29 AE |35:NU..(UR$).b).|
00002150: 06 8B 20 4E 55 B2 58 AD 47 43 46 20 A7 20 31 37 |.. NU.X.GCF . 17|
00002160: 33 30 00 91 29 B8 06 99 22 11 20 D7 52 4F 4E 47 |30..)...". .RONG|
00002170: 21 21 20 20 D4 52 59 20 41 47 41 49 4E 21 91 91 |!! .RY AGAIN!..|
00002180: 91 22 3A 4E 31 B2 4E 31 AA 31 3A 89 20 31 36 39 |.":N1.N1.1:. 169|
00002190: 30 00 B6 29 C2 06 99 22 11 20 D2 49 47 48 54 21 |0..)...". .IGHT!|
000021A0: 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |! |
000021B0: 20 20 20 20 20 22 00 CC 29 CC 06 8B 20 4E 55 4D | "..)... NUM|
000021C0: B3 31 30 20 A7 20 59 24 B2 22 20 22 00 F7 29 D6 |.10 . Y$." "..).|
000021D0: 06 45 24 B2 45 24 AA 22 20 20 22 AA 59 24 AA C4 |.E$.E$." ".Y$..|
000021E0: 28 4E 55 4D 29 3A 46 24 B2 46 24 AA 22 20 3D 20 |(NUM):F$.F$." = |
000021F0: 22 AA 44 24 28 32 29 00 03 2A E0 06 99 45 24 3A |".D$(2)..*...E$:|
00002200: 99 46 24 00 1E 2A EA 06 99 22 13 11 11 11 11 11 |.F$..*..."......|
00002210: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 28 |.............".(|
00002220: 2A F4 06 59 24 B2 22 22 00 56 2A FE 06 99 22 20 |*..Y$."".V*..." |
00002230: D2 45 44 55 43 45 20 54 48 45 20 44 45 4E 4F 4D |.EDUCE THE DENOM|
00002240: 49 4E 41 54 4F 52 20 54 4F 20 20 20 20 20 20 9D |INATOR TO .|
00002250: 9D 9D 9D 9D 22 3B 00 7B 2A 08 07 55 53 24 B2 22 |....";.{*..US$."|
00002260: 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 |0123456789H":.35|
00002270: 3A 44 45 4E B2 C5 28 55 52 24 29 00 92 2A 12 07 |:DEN..(UR$)..*..|
00002280: 8B 20 44 45 4E B2 59 AD 47 43 46 20 A7 20 31 38 |. DEN.Y.GCF . 18|
00002290: 33 30 00 C0 2A 1C 07 99 22 11 20 D7 52 4F 4E 47 |30..*...". .RONG|
000022A0: 21 21 20 20 D4 52 59 20 41 47 41 49 4E 21 91 91 |!! .RY AGAIN!..|
000022B0: 91 22 3A 44 31 B2 44 31 AA 31 3A 89 31 37 39 30 |.":D1.D1.1:.1790|
000022C0: 00 E4 2A 26 07 99 22 11 20 D2 49 47 48 54 21 21 |..*&..". .IGHT!!|
000022D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000022E0: 20 20 20 22 00 FB 2A 30 07 8B 20 44 45 4E 20 B3 | "..*0.. DEN .|
000022F0: 31 30 20 A7 20 5A 24 B2 22 20 22 00 14 2B 3A 07 |10 . Z$." "..+:.|
00002300: 47 24 B2 47 24 AA 22 20 20 22 AA 5A 24 AA C4 28 |G$.G$." ".Z$..(|
00002310: 44 45 4E 29 00 1C 2B 44 07 99 47 24 00 26 2B 4E |DEN)..+D..G$.&+N|
00002320: 07 5A 24 B2 22 22 00 3C 2B 76 07 8B 20 47 43 46 |.Z$."".<+v.. GCF|
00002330: B2 41 28 31 29 20 A7 20 31 39 34 30 00 51 2B 80 |.A(1) . 1940.Q+.|
00002340: 07 8D 38 33 35 3A 4A B2 4A AA 31 20 3A 50 31 B2 |..835:J.J.1 :P1.|
00002350: 31 00 6B 2B 8A 07 50 B2 30 3A 58 B2 4E 55 4D 3A |1.k+..P.0:X.NUM:|
00002360: 59 B2 44 45 4E 3A 89 31 34 32 30 00 9E 2B 94 07 |Y.DEN:.1420..+..|
00002370: 99 22 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00002380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... |
00002390: 20 C3 4F 52 52 45 43 54 21 21 21 21 21 22 00 A7 | .ORRECT!!!!!"..|
000023A0: 2B 99 07 8D 38 33 35 00 BA 2B 9E 07 8B 20 43 B2 |+...835..+... C.|
000023B0: 20 31 30 20 A7 20 31 39 37 30 00 C5 2B A8 07 89 | 10 . 1970..+...|
000023C0: 20 31 30 35 30 00 02 2C B2 07 55 47 24 B2 22 D3 | 1050..,..UG$.".|
000023D0: 55 4D 4D 41 52 59 22 3A 55 50 B2 30 3A 55 48 B2 |UMMARY":UP.0:UH.|
000023E0: 31 3A 8D 38 35 30 3A 99 22 11 11 11 1D CF 55 54 |1:.850:.".....UT|
000023F0: 20 4F 46 22 3B 43 3B 22 50 52 4F 42 4C 45 4D 53 | OF";C;"PROBLEMS|
00002400: 2C 22 00 3F 2C BC 07 99 22 11 20 2D 59 4F 55 20 |,".?,...". -YOU |
00002410: 4D 49 53 53 45 44 20 54 48 45 20 59 2F 4E 20 50 |MISSED THE Y/N P|
00002420: 41 52 54 22 3B 3A 8B 46 4C B3 B1 31 A7 99 46 31 |ART";:.FL..1..F1|
00002430: 3B 22 54 49 4D 45 53 2E 22 3A 89 31 39 39 30 00 |;"TIMES.":.1990.|
00002440: 4D 2C C1 07 99 22 20 4F 4E 43 45 2E 22 00 88 2C |M,..." ONCE."..,|
00002450: C6 07 99 22 11 20 2D 59 4F 55 20 4D 49 53 53 45 |...". -YOU MISSE|
00002460: 44 20 54 48 45 20 C7 2E C3 2E C6 2E 22 3B 3A 8B |D THE ......";:.|
00002470: 47 31 B3 B1 31 A7 99 47 31 3B 22 54 49 4D 45 53 |G1..1..G1;"TIMES|
00002480: 2E 22 3A 89 32 30 30 30 00 96 2C CB 07 99 22 20 |.":.2000..,..." |
00002490: 4F 4E 43 45 2E 22 00 D4 2C D0 07 99 22 11 20 2D |ONCE."..,...". -|
000024A0: 59 4F 55 20 4D 49 53 53 45 44 20 54 48 45 20 4E |YOU MISSED THE N|
000024B0: 55 4D 45 52 41 54 4F 52 22 3B 3A 8B 4E 31 B3 B1 |UMERATOR";:.N1..|
000024C0: 31 A7 99 4E 31 3B 22 54 49 4D 45 53 2E 22 3A 89 |1..N1;"TIMES.":.|
000024D0: 32 30 31 30 00 E2 2C D5 07 99 22 20 4F 4E 43 45 |2010..,..." ONCE|
000024E0: 2E 22 00 22 2D DA 07 99 22 11 20 2D 59 4F 55 20 |."."-...". -YOU |
000024F0: 4D 49 53 53 45 44 20 54 48 45 20 44 45 4E 4F 4D |MISSED THE DENOM|
00002500: 49 4E 41 54 4F 52 22 3B 3A 8B 44 31 B3 B1 31 A7 |INATOR";:.D1..1.|
00002510: 99 44 31 3B 22 54 49 4D 45 53 2E 22 3A 89 32 30 |.D1;"TIMES.":.20|
00002520: 32 30 00 30 2D DF 07 99 22 20 4F 4E 43 45 2E 22 |20.0-..." ONCE."|
00002530: 00 3B 2D E4 07 8D 38 33 35 3A 8E 00 49 2D EE 07 |.;-...835:..I-..|
00002540: 81 20 51 B2 31 20 A4 20 50 00 5F 2D F8 07 8B 20 |. Q.1 . P._-... |
00002550: 47 43 46 B2 41 28 51 29 20 A7 20 32 30 37 30 00 |GCF.A(Q) . 2070.|
00002560: 67 2D 02 08 82 20 51 00 72 2D 0C 08 89 20 31 36 |g-... Q.r-... 16|
00002570: 37 30 00 9F 2D 16 08 99 3A 99 47 43 46 3B 22 49 |70..-...:.GCF;"I|
00002580: 53 20 41 20 46 41 43 54 4F 52 2C 20 42 55 54 20 |S A FACTOR, BUT |
00002590: 4E 4F 54 20 54 48 45 20 C7 2E C3 2E C6 2E 22 00 |NOT THE ......".|
000025A0: AF 2D 20 08 52 B2 31 3A 55 50 B2 55 50 AB 31 00 |.- .R.1:UP.UP.1.|
000025B0: BA 2D 2A 08 89 20 31 36 39 30 00 00 00 |.-*.. 1690... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
"...;..".. 1. BEGIN REDUCING FRA
CTIONS"...@..".. 2. STUDENT INST
RUCTIONS"...E..".. 3. TEACHER IN
STRUCTIONS".@.J..".. 4. MODIFICA
TION OF PROGRAM".\.O..".. 5. QUI
T.."...T.." ----------------------------
----------"...Y..".. PRESS A NUMBE
R KEY (1-5) ";...^.UL.1:US$."12345":.35:
. INPUT ROUTINE...`.US$.""...C..E(UR$).1
000,400,500,600,396...H..300.;.... ** RE
-ENABLE STOP KEY AND END **.J....B(50003
)..1.B(50003)..160.B(50003)..0.399......
UU.71:.B(50003).0..53281,6:.53280,14. ..
.."..":.......875:..L.... ** STUDENT INS
TRUCTIONS **......".":.UT,UL%:.B(50003).
0..53281,0:.53280,0.!...UH.1:UP.0:UG$."S
TUDENT INST":.850.T...."..... THIS IS
A SIMPLE DRILL TO TEST YOUR".Z....". ABI
LITY TO REDUCE FRACTIONS."......". YOU
WILL BE GIVEN 10 FRACTIONS TO ".W....".
REDUCE, AFTER WHICH THE COMPUTER WILL".
.....". SUMMARIZE YOUR RESULTS."......83
5:UH.1:.850.:...."..... FIRST, YOU WI
LL HAVE TO FIGURE".G....". OUT THE GREAT
EST COMMON FACTOR. FOR"...B..". THIS YOU
MAY NEED PAPER AND A PENCIL.".E.G..". Y
OU WON'T BE WORKING WITH NUMBERS ANY"...
L..". LARGER THAN 60"...... 835.....UH.1
:. 850.$...."..... TO ADVANCE FROM O
NE QUESTION".M....". TO THE NEXT PRESS T
HE SPACE BAR".}....".......IF AT ANY TIM
E YOU WISH TO RETURN"......". TO THE MEN
U PRESS H RETURN"......835......UZ.1..UP
%:.217.D.......... ** TEACHER INSTRUCTIO
NS **......".":.UT,UL%:.B(50003).0..5328
1,2:.53280,10.;...UH.1:UP.0:UG$."TEACHER
INST":.850.I....".. TO THE BEST OF
OUR KNOWLEDGE,."......" THIS PROGRAM
IS IN THE PUBLIC."......" DOMAIN. IF
THIS IS NOT THE CASE."......" PLEASE C
ONTACT:..."......" COMMODORE BUSINE
SS MACHINES.".(...." 3370 PHARM
ACY AVE..L...." AGINCOURT, ONTA
RIO".N...." CANADA M1W 2K4"..
...." (416) 499-4292".....UH.1:
UP.1:. 835:. 850:.X...." ..PROGRAM N
AME: REDUCING FRACTIONS......." WRIT
TEN BY : DOUGLAS HEINLEN..&...." UP
GRADED BY : NEIL HUNT..Q...." .THIS
PROGRAM WILL RUN ON ANY...X...."
BASIC 2.0 PET COMPUTER......."
BASIC 4.0 PET COMPUTER..A...." 8
032 CBM COMPUTER......." COMMODO
RE 64 COMPUTER......835:UH.1:.850.(...."
.... REDUCING FRACTIONS IS A PROGRAM "
.R....". DESIGNED AS A DRILL ON FRACTION
"......". REDUCTION. THE STUDENT IS REQ
UIRED TO"......". CALCULATE THE GREATEST
COMMON MULTIPLE"......". OF NUMERATOR A
ND DENOMINATOR. HE THEN"......". REDUCES
THE FRACTION STEP BY STEP."...D..835.).
N..UZ.1..UP%:.217./.W...U.X.. ** PROGRAM
MODIFICATION INST **.F.Y..".":.UT,UL%..
.].UH.1:UP.0:UG$."PROGRAM MOD":.850...B.
."...... THE RANGE OF VALUES USED IS REG
ULATED"...G..". IN LINES 1380 AND 1390.
THE MAXIMUM"...L..". VALUE IS PRESENTLY
'60', BUT THIS CAN".0.Q..". BE CHANGED."
.9....835.M....UZ.1..UP%:.217.S.....X...
. ** TO USE 8032 LOAD CBM4032 **...F..".
....BEFORE RUNNING THIS PROGRAM ON AN 80
32 .....P.." LOAD THE 'CBM 4032' P
ROGRAM............."...Z..UU.71.........
.. ** T I T L E P A G E **.I.".."....
";:.UT,UU%:.B(50003).0..53280,14:.53281,
6._.$..I.1.38:."...";:..W.&..I.1.22:."..
...";:....(..I.1.37:.".....";:....*..I.1
.22:.".....";:..L.,.."..................
......... ......."................... .
. .....0.."................... . ....
-.2..".................... ..U.4.."....
..........C O M M O D O R E...X.6.."....
...........EDUCATIONAL.....8..".........
.......SOFTWARE...:.. ** COMMODORE LOGO
**...;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0...<..A$:.A$.." ".I.I.
1:.I.250.828.0.>.T1$."":T2$."":T3$."":T4
$."":I.0.9.@..300.U.C.. ** SPACE BAR PRE
SS **...H..UO,0:.H(UD$,24);".......PRESS
SPACE BAR TO CONTINUE."...L..UI$:.UI$..
" ".844...N...M.R.. ** PAGE DESIGN ROUTI
NE **.Y.T.UP.UP.1...W.."."H(UT$.UP$,21);
I(UP$.UG$.D(UP),18).2.\.." -------------
-------------------------".A.`..UH..0.87
0.U.A..H(UD$,24);H(UP$,7);"HELP - PRESS
H <RETURN>"...F.UH.0:."..":....K.. **
PLEASE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U.
....... ** SET UP VARIABLES **.I...UX$."
H":.UQ%(1000):UB.32768:U1.196:U2.197:U3.
198:U4.216:UC.167:UU.1024.....UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:UO.158:.
50003,0.J....B(50003).0.UB.1024:U1.209:U
2.210:U3.211:U4.214:UC.204:UU.2048......
B(50003).0.UT.53272:UU%.21:UL%.23:UP%.21
39:UM.1024:UO.198.-...UD$.".............
............"._...UP$."
".....UT$." REDUCI
NG FRACTIONS":. PLACE PROGRAM TITLE HERE
!!!!!!!!!!!!!!!!!***.......M.... ** SET
VARIABLES **.V....900...... ** CHECK FO
R 8032 **.. ...".":." ":. SHIFTED SPACE.
& ...B(UB.40)..96..700.? ... ** MEMORY C
HECK **.S ... .(0).2000.937.. ..."....TH
IS MACHINE DOES NOT HAVE ENOUGH.".. ..."
MEMORY TO RUN THIS PROGRAM !".. ...UU.71
.. ....P ..."..":.B(50003).0.962.. ... *
* BASIC 2.0 OR 4.0 OR C-64 SETUP **.
=!...1075,133:.1076,144:.1077,234:.1079,
4:.1080,133:.1081,145.S!...1091,155:.109
8,133:.1099,144:.1100,234:.1103,133..!..
.1104,145:.1105,234:.1082,234..!...B(500
03)..160.955..!...1093,88:.1094,228:.109
7,85:.1102,228:.965..!...B(50003)..1.990
.."...1093,49:.1094,230:.1097,46:.1102,2
30:.965.Y"B..2099,141:.2100,20:.2101,3:.
2103,8:.2104,141:.2105,21.."C..2106,3:.2
115,145:.2117,52:.2118,234:.2121,49:.212
2,141.O"D..2123,20:.2124,3:.2126,234:.21
27,141:.2128,21:.2129,3.."E..UU.48:. DIS
ABLE STOP KEY.."J..800:. TITLE..#T..300:
. MENU.?#...".THE PGM WILL NOT WORK ON T
HIS MACHINE!":..T#...UZ.1..UP%:.UP%:UZ.0
:. ** PROGRAM STARTS HERE **. #..."..";:
.:.B(50003).0..53281,6:.53280,14..#...UT
,UL%:UG$."QUESTION #".J#..UP.0:C.0..#..C
.C.1:.".":.875..#$.P.0:H$."":J.1:R.0:P1.
0..$..M$."..........".?$8.N$."
".Q$B.H$(2
).".....".^$L.H$(0)."".L$V.D$(1).".".{$`
.D$(2).".."..$J.D$(3)."..."..$T.. 1380..
$~..P1.1 . 1200..$... X.9 . Y.9 . H$." "
.Z$..E$."........".H$.D(X)..$..F$.".....
.....".D$(Z)..%..G$."..........".D(Y)."%
...850:.E$:.F$:.G$.4%... P1.1 . 1630.?%D
.. 1480.F%N..P.L%X...Y%..K..(A.2).J%...
K.1 . 1340.~%... N. K . 2 . .1..%... .(A
.N).A.N . .(B.N).B.N . 1310..%... N..%..
. 1340..%..P.P.1.K%(.A(P).N.V%2.. 1290..
%<.. P..0 . 1150..%F.. .(1)..2 . 1150..&
P..1380..&Z..X,Y:..%&D.X..(60..(1)).1.8&
N.Y..(60..(1)).1.I&X.. X.Y . 1380.Z&...
X.Y . 1380.V&... X.9 . Y.9 . Z.2:.1440.~
&..Z.1..& .. X.Y . 1460..&..A.Y:B.X:. 14
70..&..A.X:B.Y..&... 1250..&H..M$." CAN
YOU REDUCE THIS FRACTION ? ......"
;..'R.US$."YNH":.35:A$.UR$.%'... A$."Y"
. P..0 . 1630.?'... A$."Y" . P.0 . 1560.
Y'... A$."N" . P.0 . 1580.T'... A$."N" .
P..0 . 1610.'... 1480..'...:." WRONG!!
LOOK AGAIN!!"..'".F1.F1.1:. 1480..',..
:." RIGHT!! ".
.'@..835:. 1950..(J..:." WRONG!! LOOK A
GAIN!!"."(T.F1.F1.1:. 1480.R(^..M$.".. G
REATEST COMMON FACTOR = ....";.|(H.U
L.6:US$."0123456789H":.35:GCF.E(UR$)..(R
.. GCF.A(1) . 1680..(|.. 2030.H(...". WR
ONG!! TRY AGAIN!":G1.G1.1:.1630..(...M$
.".... RIGHT!! ".()...M
$."...... REDUCE THE NUMERATOR TO
......";.L)..US$."0123456789H":.35:NU.E(
UR$).B)... NU.X.GCF . 1730..)...". WRONG
!! TRY AGAIN!...":N1.N1.1:. 1690..)B.."
. RIGHT!! ".L)L.. NUM
.10 . Y$." "..)V.E$.E$." ".Y$.D(NUM):F$
.F$." = ".D$(2)..*...E$:.F$..*..."......
.............".(*..Y$."".V*..." REDUCE T
HE DENOMINATOR TO .....";.{*..US$."
0123456789H":.35:DEN.E(UR$)..*... DEN.Y.
GCF . 1830..*...". WRONG!! TRY AGAIN!..
.":D1.D1.1:.1790..*&..". RIGHT!!
"..*0.. DEN .10 . Z$." "..+:.
G$.G$." ".Z$.D(DEN)..+D..G$.&+N.Z$."".<
+V.. GCF.A(1) . 1940.Q+...835:J.J.1 :P1.
1.K+..P.0:X.NUM:Y.DEN:.1420..+..."......
....................... CORRECT!!!!!"..
+...835..+... C. 10 . 1970.E+... 1050..,
..UG$."SUMMARY":UP.0:UH.1:.850:."....OUT
OF";C;"PROBLEMS,".?,...". -YOU MISSED T
HE Y/N PART";:.FL..1..F1;"TIMES.":.1990.
M,A.." ONCE."..,F..". -YOU MISSED THE G.
C.F.";:.G1..1..G1;"TIMES.":.2000..,K.."
ONCE.".T,P..". -YOU MISSED THE NUMERATOR
";:.N1..1..N1;"TIMES.":.2010..,U.." ONCE
."."-Z..". -YOU MISSED THE DENOMINATOR";
:.D1..1..D1;"TIMES.":.2020.0-..." ONCE."
.;-...835:..I-... Q.1 . P._-... GCF.A(Q)
. 2070.G-... Q.R-... 1670..-...:.GCF;"I
S A FACTOR, BUT NOT THE G.C.F."..- .R.1:
UP.UP.1..-*.. 1690...
> CLICK IMAGE PREVIEW FOR FULL MODAL