FACTORS.C3
FILE INFORMATION
FILENAME(S): FACTORS.C3
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-11-30 01:07:57
APPEARS ON: 2 disk(s)
FILE HASH
03176e79e7b3a57a554bc5c181ab568103efadc490459556fadaf822c1e7bf86
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | FACTORS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 8 | DOWNLOAD FILE |
| L EHRNEN | FACTORS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 8 | 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 F2 |UTINE **.....:..|
000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B|
000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH|
000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG|
00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.|
00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA|
00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..|
00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..|
00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO|
00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... |
00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO|
00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.|
00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E|
000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA|
000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W|
000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O|
000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... |
000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..|
000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S|
00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..|
00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.|
00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.|
00000230: 38 30 00 45 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.E.-.." ..";:|
00000240: 97 55 43 2C 30 00 59 0A 32 00 A1 55 49 24 3A 8B |.UC,0.Y.2..UI$:.|
00000250: 55 49 24 B2 22 22 A7 35 30 00 83 0A 37 00 8B 55 |UI$."".50...7..U|
00000260: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).|
00000270: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:|
00000280: 89 38 35 00 96 0A 3C 00 8B 55 49 24 B2 C7 28 32 |.85...<..UI$..(2|
00000290: 30 29 A7 31 30 35 00 AA 0A 3E 00 8B 20 C3 28 55 |0).105...>.. .(U|
000002A0: 52 24 29 B2 B1 55 4C A7 35 30 00 CF 0A 41 00 8D |R$)..UL.50...A..|
000002B0: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR |
000002C0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.|
000002D0: DF 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.|
000002E0: E9 0A 4B 00 99 55 49 24 3B 00 F1 0A 50 00 89 35 |..K..UI$;...P..5|
000002F0: 30 00 16 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC|
00000300: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE|
00000310: 53 54 20 2B 2B 2B 00 3E 0B 5A 00 8B 55 52 24 B2 |ST +++.>.Z..UR$.|
00000320: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T|
00000330: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 4D |O HELP ROUTINE.M|
00000340: 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5A 0B |._..UF.1..240.Z.|
00000350: 64 00 55 46 B2 30 3A 99 3A 8E 00 73 0B 66 00 8F |d.UF.0:.:..s.f..|
00000360: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE|
00000370: 20 2B 2B 00 84 0B 69 00 8B C3 28 55 52 24 29 B3 | ++...i...(UR$).|
00000380: 31 A7 35 30 00 9C 0B 6E 00 55 52 24 B2 C8 28 55 |1.50...n.UR$..(U|
00000390: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AE 0B 73 |R$,.(UR$).1)...s|
000003A0: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 D5 |..". ..";:.50..|
000003B0: 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO|
000003C0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
000003D0: 52 53 20 2B 2B 00 E7 0B 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$|
000003E0: 29 B2 30 A7 31 35 30 00 F7 0B 7F 00 55 53 24 B2 |).0.150.....US$.|
000003F0: 55 53 24 AA 55 58 24 00 08 0C 82 00 81 55 53 B2 |US$.UX$......US.|
00000400: 31 A4 C3 28 55 53 24 29 00 1F 0C 87 00 8B 55 49 |1..(US$)......UI|
00000410: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...|
00000420: 25 0C 8C 00 82 00 32 0C 91 00 55 49 24 B2 22 22 |%.....2...UI$.""|
00000430: 3A 8E 00 4D 0C 96 00 8F 20 2A 2A 20 53 54 41 4E |:..M.... ** STAN|
00000440: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 5E 0C |DARD INPUT **.^.|
00000450: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 6F |....(UI$).46...o|
00000460: 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000470: 8C 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |......(UI$).48..|
00000480: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 92 0C A5 |(UI$).57.170....|
00000490: 00 8E 00 AF 0C AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
000004A0: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
000004B0: B5 0C AF 00 8E 00 D9 0C B4 00 8B C6 28 55 49 24 |............(UI$|
000004C0: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218|
000004D0: A7 55 49 24 B2 22 22 3A 8E 00 FC 0C B9 00 8B C2 |.UI$."":........|
000004E0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.|
000004F0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 02 0D BB |(UI$).128):.....|
00000500: 00 8E 00 0F 0D BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000510: 34 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |4...UF.1:. +++ H|
00000520: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT|
00000530: 20 2B 2B 2B 00 3D 0D C5 00 8D 32 35 30 00 46 0D | +++.=....250.F.|
00000540: C8 00 8D 32 34 35 00 65 0D CD 00 81 55 51 B2 55 |...245.e....UQ.U|
00000550: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
00000560: 33 25 AB 32 29 00 81 0D D2 00 55 51 25 28 55 51 |3%.2).....UQ%(UQ|
00000570: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000580: 22 00 94 0D D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".....UZ.1:UV%..|
00000590: 28 55 54 29 00 9D 0D D8 00 89 33 30 30 00 C2 0D |(UT)......300...|
000005A0: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
000005B0: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
000005C0: 55 4B 00 F9 0D DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)|
000005D0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."|
000005E0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328|
000005F0: 30 2C 31 34 3A 89 32 32 30 00 03 0E DB 00 99 22 |0,14:.220......"|
00000600: 93 22 3B 00 32 0E DC 00 55 54 24 B2 55 4C 24 3A |.";.2...UT$.UL$:|
00000610: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
00000620: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000630: 33 29 00 47 0E E1 00 97 55 51 2C 55 51 25 28 55 |3).G....UQ,UQ%(U|
00000640: 51 AB 55 42 29 3A 82 00 53 0E E6 00 97 55 31 2C |Q.UB):..S....U1,|
00000650: 55 31 25 00 5F 0E E8 00 97 55 32 2C 55 32 25 00 |U1%._....U2,U2%.|
00000660: 6B 0E E9 00 97 55 34 2C 55 34 25 00 79 0E EA 00 |k....U4,U4%.y...|
00000670: 97 55 33 2C 55 33 25 AB 31 00 81 0E EB 00 89 33 |.U3,U3%.1......3|
00000680: 35 00 B3 0E F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.|
00000690: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
000006A0: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
000006B0: 29 3A 8E 00 EE 0E F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
000006C0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
000006D0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
000006E0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 1A | COMING . ":...|
000006F0: 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
00000700: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
00000710: 3A 55 34 25 B2 C2 28 55 34 29 00 42 0F FB 00 55 |:U4%..(U4).B...U|
00000720: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U|
00000730: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.|
00000740: 55 4C 00 48 0F FF 00 8E 00 59 0F 2C 01 8F 20 2A |UL.H.....Y.,.. *|
00000750: 2A 20 4D 45 4E 55 20 2A 2A 00 5F 0F 2D 01 3A 00 |* MENU **._.-.:.|
00000760: 8E 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |.....".":.UT,UU%|
00000770: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000780: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 94 |281,9:.53280,8..|
00000790: 0F 2F 01 3A 00 B1 0F 31 01 99 22 13 20 20 20 20 |./.:...1..". |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
000007B0: 22 00 E0 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000007E0: 00 05 10 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000007F0: 31 2E 20 20 20 42 45 47 49 4E 20 46 41 43 54 4F |1. BEGIN FACTO|
00000800: 52 53 20 20 22 00 2F 10 40 01 99 22 11 11 20 20 |RS "./.@..".. |
00000810: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
00000820: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
00000830: 59 10 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |Y.E..".. 3|
00000840: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
00000850: 52 55 43 54 49 4F 4E 53 22 00 86 10 4A 01 99 22 |RUCTIONS"...J.."|
00000860: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 4D 4F |.. 4. MO|
00000870: 44 49 46 49 43 41 54 49 4F 4E 20 4F 46 20 50 52 |DIFICATION OF PR|
00000880: 4F 47 52 41 4D 22 00 A2 10 4F 01 99 22 11 11 20 |OGRAM"...O..".. |
00000890: 20 20 20 20 20 20 35 2E 20 20 20 51 55 49 54 11 | 5. QUIT.|
000008A0: 11 22 00 D1 10 54 01 99 22 20 2D 2D 2D 2D 2D 2D |."...T.." ------|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008D0: 22 00 FC 10 59 01 99 22 11 11 20 20 20 20 20 20 |"...Y..".. |
000008E0: 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 | PRESS A NUMBER |
000008F0: 4B 45 59 20 28 31 2D 35 29 20 22 3B 00 25 11 5E |KEY (1-5) ";.%.^|
00000900: 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 35 |.UL.1:US$."12345|
00000910: 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F |":.35:. INPUT RO|
00000920: 55 54 49 4E 45 00 30 11 61 01 55 53 24 B2 22 22 |UTINE.0.a.US$.""|
00000930: 00 51 11 63 01 91 C5 28 55 52 24 29 8D 31 30 30 |.Q.c...(UR$).100|
00000940: 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 |0,400,500,600,39|
00000950: 36 00 5A 11 68 01 89 33 30 30 00 81 11 8B 01 8F |6.Z.h..300......|
00000960: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000970: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000980: 2A 00 B0 11 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).|
00000990: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
000009A0: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
000009B0: 00 DA 11 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5|
000009C0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
000009D0: 3A 97 35 33 32 38 30 2C 31 34 00 E6 11 8E 01 99 |:.53280,14......|
000009E0: 22 9A 93 22 3A 80 00 F1 11 8F 01 8D 38 37 35 3A |"..":.......875:|
000009F0: 8E 00 12 12 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
00000A00: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
00000A10: 2A 2A 00 25 12 92 01 55 54 24 B2 22 20 C6 41 43 |**.%...UT$." .AC|
00000A20: 54 4F 52 53 22 00 54 12 95 01 99 22 93 22 3A 97 |TORS".T....".":.|
00000A30: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000A40: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532|
00000A50: 38 30 2C 30 00 75 12 9A 01 55 50 B2 30 3A 55 47 |80,0.u...UP.0:UG|
00000A60: 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 |$.".TUDENT .NST"|
00000A70: 3A 8D 38 35 30 00 A5 12 9F 01 99 22 11 11 11 20 |:.850......"... |
00000A80: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 42 52 45 |.HIS PROGRAM BRE|
00000A90: 41 4B 53 20 44 4F 57 4E 20 41 4E 59 20 49 4E 54 |AKS DOWN ANY INT|
00000AA0: 45 47 45 52 22 00 CE 12 A1 01 99 22 20 11 20 20 |EGER"......" . |
00000AB0: 20 20 20 2D 2D 55 50 20 54 4F 20 38 20 44 49 47 | --UP TO 8 DIG|
00000AC0: 49 54 53 20 4D 41 58 49 4D 55 4D 2D 2D 22 00 EF |ITS MAXIMUM--"..|
00000AD0: 12 A3 01 99 22 11 20 49 4E 54 4F 20 49 54 53 20 |....". INTO ITS |
00000AE0: 50 52 49 4D 45 20 46 41 43 54 4F 52 53 2E 22 00 |PRIME FACTORS.".|
00000AF0: 1C 13 A5 01 99 22 11 20 C9 54 20 4F 46 20 43 4F |.....". .T OF CO|
00000B00: 55 52 53 45 20 57 4F 52 4B 53 20 4F 4E 4C 59 20 |URSE WORKS ONLY |
00000B10: 4F 4E 20 50 4F 53 49 54 49 56 45 22 00 4B 13 A7 |ON POSITIVE".K..|
00000B20: 01 99 22 11 20 49 4E 54 45 47 45 52 53 2E 20 20 |..". INTEGERS. |
00000B30: CD 55 4C 54 49 50 4C 45 20 46 41 43 54 4F 52 53 |.ULTIPLE FACTORS|
00000B40: 20 41 52 45 20 53 48 4F 57 4E 22 00 6B 13 A9 01 | ARE SHOWN".k...|
00000B50: 99 22 11 20 41 53 20 27 50 4F 57 45 52 53 27 2C |.". AS 'POWERS',|
00000B60: 20 45 2E 47 2E 2C 20 32 5E 33 22 00 74 13 C2 01 | E.G., 2^3".t...|
00000B70: 8D 38 33 35 00 82 13 C7 01 55 50 B2 32 3A 8D 38 |.835.....UP.2:.8|
00000B80: 35 30 00 B0 13 CC 01 99 22 11 12 CE 4F 54 45 3A |50......"...OTE:|
00000B90: 92 11 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 52 |....O ADVANCE FR|
00000BA0: 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E 22 |OM ONE QUESTION"|
00000BB0: 00 DD 13 D6 01 99 22 20 20 20 20 20 54 4F 20 54 |......" TO T|
00000BC0: 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 54 48 |HE NEXT PRESS TH|
00000BD0: 45 20 D3 D0 C1 C3 C5 20 42 41 52 2E 22 00 0C 14 |E ..... BAR."...|
00000BE0: D7 01 99 22 11 1D 1D 1D 1D 1D C1 46 54 45 52 20 |...".......FTER |
00000BF0: 59 4F 55 20 45 4E 54 45 52 20 59 4F 55 52 20 44 |YOU ENTER YOUR D|
00000C00: 41 54 41 2C 20 50 4C 45 41 53 45 22 00 24 14 D8 |ATA, PLEASE".$..|
00000C10: 01 99 22 20 20 20 20 20 48 49 54 20 D2 C5 D4 D5 |.." HIT ....|
00000C20: D2 CE 2E 22 00 54 14 DB 01 99 22 11 1D 1D 1D 1D |...".T....".....|
00000C30: 1D 20 C9 46 20 41 54 20 41 4E 59 20 54 49 4D 45 |. .F AT ANY TIME|
00000C40: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 | YOU WISH TO RET|
00000C50: 55 52 4E 22 00 85 14 E0 01 99 22 11 20 54 4F 20 |URN"......". TO |
00000C60: 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 |THE .... PRESS H|
00000C70: 20 28 4F 52 20 C8 29 20 D2 C5 D4 D5 D2 CE 2E 20 | (OR .) ....... |
00000C80: D4 48 49 53 22 00 B2 14 E1 01 99 22 20 4F 4E 4C |.HIS"......" ONL|
00000C90: 59 20 57 4F 52 4B 53 20 49 46 20 4E 4F 20 4F 54 |Y WORKS IF NO OT|
00000CA0: 48 45 52 20 44 41 54 41 20 49 53 20 54 59 50 45 |HER DATA IS TYPE|
00000CB0: 44 22 00 E1 14 E2 01 99 22 11 20 49 4E 2E 20 C9 |D"......". IN. .|
00000CC0: 46 20 44 41 54 41 20 49 53 20 50 52 45 53 45 4E |F DATA IS PRESEN|
00000CD0: 54 20 59 4F 55 20 4D 55 53 54 20 46 49 52 53 54 |T YOU MUST FIRST|
00000CE0: 22 00 12 15 E3 01 99 22 11 20 44 45 4C 45 54 45 |"......". DELETE|
00000CF0: 20 49 54 20 41 4E 44 20 54 48 45 4E 20 54 59 50 | IT AND THEN TYP|
00000D00: 45 20 48 20 28 4F 52 20 C8 29 20 D2 C5 D4 D5 D2 |E H (OR .) .....|
00000D10: CE 22 00 1B 15 E5 01 8D 38 33 35 00 2F 15 EA 01 |."......835./...|
00000D20: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000D30: 35 15 F3 01 8E 00 56 15 F4 01 8F 20 2A 2A 20 54 |5.....V.... ** T|
00000D40: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000D50: 4F 4E 53 20 2A 2A 00 86 15 F5 01 99 22 93 22 3A |ONS **......".":|
00000D60: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
00000D70: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53|
00000D80: 32 38 30 2C 31 30 00 B6 15 F6 01 55 54 24 B2 22 |280,10.....UT$."|
00000D90: 20 C6 41 43 54 4F 52 53 22 3A 55 50 B2 30 3A 55 | .ACTORS":UP.0:U|
00000DA0: 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 |G$.".EACHER .NST|
00000DB0: 22 3A 8D 38 35 30 00 E4 15 F7 01 99 22 11 11 20 |":.850......".. |
00000DC0: 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 | .O THE BEST|
00000DD0: 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 | OF OUR KNOWLEDG|
00000DE0: 45 2C 11 22 00 0D 16 F8 01 99 22 20 20 20 54 48 |E,."......" TH|
00000DF0: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E |IS PROGRAM IS IN|
00000E00: 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 39 16 | THE PUBLIC.".9.|
00000E10: F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 |..." DOMAIN. |
00000E20: C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 |.F THIS IS NOT T|
00000E30: 48 45 20 43 41 53 45 11 22 00 56 16 FA 01 99 22 |HE CASE.".V...."|
00000E40: 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 | PLEASE CONTAC|
00000E50: 54 3A 11 11 11 22 00 80 16 FB 01 99 22 20 20 20 |T:..."......" |
00000E60: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 | .OMMODORE .US|
00000E70: 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 |INESS .ACHINES."|
00000E80: 00 A3 16 FC 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000E90: 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 | 3370 .HARMACY .|
00000EA0: 56 45 2E 00 C7 16 FD 01 99 22 20 20 20 20 20 20 |VE......." |
00000EB0: 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF | .GINCOURT, .|
00000EC0: 4E 54 41 52 49 4F 22 00 E9 16 FE 01 99 22 20 20 |NTARIO"......" |
00000ED0: 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 | .ANADA |
00000EE0: 20 CD 31 D7 20 32 CB 34 22 00 09 17 FF 01 99 22 | .1. 2.4"......"|
00000EF0: 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 | (416) |
00000F00: 34 39 39 2D 34 32 39 32 22 00 1F 17 00 02 55 50 |499-4292".....UP|
00000F10: B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 |.1:. 835:. 850:.|
00000F20: 46 17 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F |F...." ...RO|
00000F30: 47 52 41 4D 20 CE 41 4D 45 3A 20 C6 41 43 54 4F |GRAM .AME: .ACTO|
00000F40: 52 53 20 20 20 11 00 6F 17 02 02 99 22 20 20 20 |RS ..o...." |
00000F50: 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 | .RITTEN .Y : |
00000F60: CA 2E 20 C2 55 54 54 45 52 46 49 45 4C 44 11 00 |.. .UTTERFIELD..|
00000F70: 92 17 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 |....." .PGRA|
00000F80: 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 |DED .Y : |
00000F90: 20 11 00 BD 17 04 02 99 22 20 20 20 20 20 11 D4 | ......." ..|
00000FA0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000FB0: 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 DC 17 | RUN ON ANY.....|
00000FC0: 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 |..." ...|
00000FD0: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 01 18 08 | 64 ............|
00000FE0: 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD |.." ....|
00000FF0: CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 |..... 64 .......|
00001000: D2 00 0F 18 09 02 8D 38 33 35 3A 8D 38 35 30 00 |.......835:.850.|
00001010: 3A 18 0A 02 99 22 11 20 C7 52 41 44 45 20 CC 45 |:....". .RADE .E|
00001020: 56 45 4C 3A 20 20 C9 4E 54 45 52 4D 45 44 49 41 |VEL: .NTERMEDIA|
00001030: 54 45 2D D3 45 4E 49 4F 52 22 00 56 18 0C 02 99 |TE-.ENIOR".V....|
00001040: 22 11 20 D3 55 42 4A 45 43 54 20 C1 52 45 41 3A |". .UBJECT .REA:|
00001050: 20 CD 41 54 48 22 00 7B 18 0E 02 99 22 11 20 D4 | .ATH".{....". .|
00001060: 4F 50 49 43 3A 20 20 20 20 20 20 20 20 D0 52 49 |OPIC: .RI|
00001070: 4D 45 20 C6 41 43 54 4F 52 53 22 00 A8 18 12 02 |ME .ACTORS".....|
00001080: 99 22 11 20 D4 48 49 53 20 50 52 4F 47 52 41 4D |.". .HIS PROGRAM|
00001090: 20 57 4F 55 4C 44 20 42 45 53 54 20 53 45 52 56 | WOULD BEST SERV|
000010A0: 45 20 46 4F 52 20 41 22 00 D4 18 14 02 99 22 11 |E FOR A"......".|
000010B0: 20 55 54 49 4C 49 54 59 2D 54 59 50 45 20 55 53 | UTILITY-TYPE US|
000010C0: 41 47 45 2E 20 D3 54 55 44 45 4E 54 20 53 49 4D |AGE. .TUDENT SIM|
000010D0: 50 4C 59 22 00 03 19 16 02 99 22 11 20 45 4E 54 |PLY"......". ENT|
000010E0: 45 52 53 20 41 20 4E 55 4D 42 45 52 20 41 4E 44 |ERS A NUMBER AND|
000010F0: 20 49 54 53 20 50 52 49 4D 45 20 46 41 43 54 4F | ITS PRIME FACTO|
00001100: 52 53 22 00 20 19 18 02 99 22 11 20 41 52 45 20 |RS". ....". ARE |
00001110: 54 48 45 4E 20 44 49 53 50 4C 41 59 45 44 2E 22 |THEN DISPLAYED."|
00001120: 00 29 19 44 02 8D 38 33 35 00 3D 19 4E 02 8B 55 |.).D..835.=.N..U|
00001130: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 43 19 |Z.1..UP%:.217.C.|
00001140: 57 02 8E 00 69 19 58 02 8F 20 2A 2A 20 50 52 4F |W...i.X.. ** PRO|
00001150: 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F |GRAM MODIFICATIO|
00001160: 4E 20 49 4E 53 54 20 2A 2A 00 7A 19 59 02 99 22 |N INST **.z.Y.."|
00001170: 93 22 3A 97 55 54 2C 55 4C 25 00 9A 19 5D 02 55 |.":.UT,UL%...].U|
00001180: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM|
00001190: 20 CD 4F 44 22 3A 8D 38 35 30 00 C6 19 62 02 99 | .OD":.850...b..|
000011A0: 22 11 20 11 D4 48 45 20 50 52 4F 47 52 41 4D 4D |". ..HE PROGRAMM|
000011B0: 49 4E 47 20 53 54 52 55 43 54 55 52 45 20 4F 46 |ING STRUCTURE OF|
000011C0: 20 54 48 49 53 22 00 F4 19 64 02 99 22 20 50 52 | THIS"...d.." PR|
000011D0: 4F 47 52 41 4D 20 49 53 20 4E 4F 54 20 44 49 46 |OGRAM IS NOT DIF|
000011E0: 46 49 43 55 4C 54 2E 20 D4 48 45 20 50 52 4F 47 |FICULT. .HE PROG|
000011F0: 52 41 4D 22 00 21 1A 66 02 99 22 20 49 54 53 45 |RAM".!.f.." ITSE|
00001200: 4C 46 20 41 50 50 45 41 52 53 20 49 4E 20 4C 49 |LF APPEARS IN LI|
00001210: 4E 45 53 20 31 39 39 39 20 2D 20 32 33 38 36 2E |NES 1999 - 2386.|
00001220: 22 00 4D 1A 68 02 99 22 20 11 D4 48 45 20 50 52 |".M.h.." ..HE PR|
00001230: 4F 47 52 41 4D 20 41 53 20 49 54 20 53 54 41 4E |OGRAM AS IT STAN|
00001240: 44 53 20 49 53 20 53 45 54 20 55 50 22 00 7B 1A |DS IS SET UP".{.|
00001250: 6A 02 99 22 20 46 4F 52 20 41 20 4D 41 58 49 4D |j.." FOR A MAXIM|
00001260: 55 4D 20 4F 46 20 31 30 20 44 49 46 46 45 52 45 |UM OF 10 DIFFERE|
00001270: 4E 54 20 4E 55 4D 42 45 52 53 22 00 A4 1A 6C 02 |NT NUMBERS"...l.|
00001280: 99 22 20 54 48 41 54 20 43 41 4E 20 42 45 20 45 |." THAT CAN BE E|
00001290: 4E 54 45 52 45 44 20 42 59 20 54 48 45 20 55 53 |NTERED BY THE US|
000012A0: 45 52 2E 22 00 D0 1A 6E 02 99 22 20 11 C9 46 20 |ER."...n.." ..F |
000012B0: 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4C 54 45 |YOU WISH TO ALTE|
000012C0: 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 22 |R THE NUMBER OF"|
000012D0: 00 FD 1A 70 02 99 22 20 52 45 50 45 54 49 54 49 |...p.." REPETITI|
000012E0: 4F 4E 53 2C 20 53 49 4D 50 4C 59 20 43 48 41 4E |ONS, SIMPLY CHAN|
000012F0: 47 45 20 54 48 45 20 55 50 50 45 52 22 00 28 1B |GE THE UPPER".(.|
00001300: 72 02 99 22 20 4C 49 4D 49 54 20 49 4E 20 54 48 |r.." LIMIT IN TH|
00001310: 45 20 C6 CF D2 2D CE C5 D8 D4 20 4C 4F 4F 50 20 |E ...-.... LOOP |
00001320: 46 4F 55 4E 44 20 49 4E 00 53 1B 74 02 99 22 20 |FOUND IN.S.t.." |
00001330: 4C 49 4E 45 20 32 30 39 35 2E 20 20 20 20 20 20 |LINE 2095. |
00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001350: 20 20 22 00 6E 1B 76 02 99 22 20 11 32 30 39 35 | ".n.v.." .2095|
00001360: 20 C6 CF D2 DA 3D 31 D4 CF 12 31 30 92 22 00 77 | ....=1...10.".w|
00001370: 1B 94 02 8D 38 33 35 00 8B 1B B2 02 8B 55 5A B2 |....835......UZ.|
00001380: 31 A7 9E 55 50 25 3A 89 32 31 37 00 91 1B BB 02 |1..UP%:.217.....|
00001390: 8E 00 B6 1B BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |....... ** TO US|
000013A0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
000013B0: 30 33 32 20 2A 2A 00 EC 1B C6 02 99 22 93 11 11 |032 **......"...|
000013C0: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
000013D0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
000013E0: 20 41 4E 20 38 30 33 32 20 20 11 11 00 22 1C D0 | AN 8032 ..."..|
000013F0: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001400: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001410: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001420: 11 22 00 2D 1C DA 02 9E 55 55 AA 37 31 00 33 1C |.".-....UU.71.3.|
00001430: E4 02 80 00 58 1C 1D 03 8F 20 2A 2A 20 54 4F 20 |....X.... ** TO |
00001440: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00001450: 4D 34 30 33 32 20 2A 2A 00 A3 1C 1E 03 99 22 93 |M4032 **......".|
00001460: 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00001470: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001480: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 |N AN 8032 ..LOA|
00001490: 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 |D CBM 4032 PROGR|
000014A0: 41 4D 22 00 AF 1C 1F 03 9E 31 30 39 33 3A 80 00 |AM"......1093:..|
000014B0: CF 1C 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L|
000014C0: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
000014D0: 03 1D 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT|
000014E0: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
000014F0: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001500: 31 2C 36 00 19 1D 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:|
00001510: 99 22 12 A6 92 22 3B 3A 82 00 31 1D 26 03 81 49 |."...";:..1.&..I|
00001520: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001530: 82 00 49 1D 28 03 81 49 B2 31 A4 33 37 3A 99 22 |..I.(..I.1.37:."|
00001540: 9D 9D 12 A6 92 22 3B 3A 82 00 61 1D 2A 03 81 49 |.....";:..a.*..I|
00001550: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001560: 82 00 86 1D 2C 03 99 22 13 11 11 11 11 11 11 1D |....,.."........|
00001570: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001580: 1D 12 A9 20 20 92 00 A8 1D 2E 03 99 22 1D 1D 1D |... ......."...|
00001590: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000015A0: 20 92 20 20 12 20 92 A9 00 C9 1D 30 03 99 22 1D | . . .....0..".|
000015B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000015C0: 1D 12 20 92 20 20 12 A3 DF 00 E7 1D 32 03 99 22 |.. . ......2.."|
000015D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000015E0: 1D 1D DF 12 20 20 92 00 0F 1E 34 03 99 22 11 11 |.... ....4.."..|
000015F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O |
00001600: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...|
00001610: 32 1E 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.6.."..........|
00001620: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
00001630: 11 11 00 51 1E 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |...Q.8..".......|
00001640: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR|
00001650: 45 00 6C 1E 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E.l.:.. ** COMMO|
00001660: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 A4 1E 3B |DORE LOGO **...;|
00001670: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...|
00001680: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA|
00001690: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."|
000016A0: 3A 49 B2 30 00 C6 1E 3C 03 A1 41 24 3A 8B 41 24 |:I.0...<..A$:.A$|
000016B0: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2|
000016C0: 35 30 A7 38 32 38 00 EA 1E 3E 03 54 31 24 B2 22 |50.828...>.T1$."|
000016D0: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
000016E0: 54 34 24 B2 22 22 3A 49 B2 30 00 F3 1E 40 03 89 |T4$."":I.0...@..|
000016F0: 33 30 30 00 0F 1F 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA|
00001700: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
00001710: 4A 1F 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |J.H..UO,0:..(UD$|
00001720: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE|
00001730: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
00001740: 43 4F 4E 54 49 4E 55 45 92 22 00 61 1F 4C 03 A1 |CONTINUE.".a.L..|
00001750: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84|
00001760: 34 00 67 1F 4E 03 8E 00 87 1F 52 03 8F 20 2A 2A |4.g.N.....R.. **|
00001770: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU|
00001780: 54 49 4E 45 20 2A 2A 00 93 1F 54 03 55 50 B2 55 |TINE **...T.UP.U|
00001790: 50 AA 31 00 BD 1F 57 03 99 22 93 22 C8 28 55 54 |P.1...W..".".(UT|
000017A0: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.|
000017B0: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 EC 1F |UG$..(UP),18)...|
000017C0: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------|
000017D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000017E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 FB 1F 60 |-----------"...`|
000017F0: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 2F 20 61 03 |..UH..0.870./ a.|
00001800: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$|
00001810: 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 |,7);"HELP - PRES|
00001820: 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |S H <RETURN>".|
00001830: 40 20 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E |@ f.UH.0:."..":.|
00001840: 00 5F 20 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 |._ k.. ** PLEASE|
00001850: 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 | WAIT REMARK **.|
00001860: 95 20 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |. p...(UD$,24);"|
00001870: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00001880: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
00001890: 20 20 20 20 22 00 9B 20 75 03 8E 00 B8 20 84 03 | ".. u.... ..|
000018A0: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 |. ** SET UP VARI|
000018B0: 41 42 4C 45 53 20 2A 2A 00 03 21 85 03 55 58 24 |ABLES **..!..UX$|
000018C0: B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A |."H":.UQ%(1000):|
000018D0: 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A |UB.32768:U1.196:|
000018E0: 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 |U2.197:U3.198:U4|
000018F0: B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 |.216:UC.167:UU.1|
00001900: 30 32 34 00 41 21 86 03 55 54 B2 35 39 34 36 38 |024.A!..UT.59468|
00001910: 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 |:UU%.12:UL%.14:U|
00001920: 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 |P%.1146:UM.32768|
00001930: 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C |:UO.158:. 50003,|
00001940: 30 00 84 21 87 03 8B C2 28 35 30 30 30 33 29 B2 |0..!....(50003).|
00001950: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
00001960: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001970: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001980: 32 30 34 38 00 C3 21 88 03 8B C2 28 35 30 30 30 |2048..!....(5000|
00001990: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
000019A0: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
000019B0: 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 |2139:UM.1024:UO.|
000019C0: 31 39 38 00 E7 21 89 03 55 44 24 B2 22 13 11 11 |198..!..UD$."...|
000019D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000019E0: 11 11 11 11 11 11 22 00 19 22 8A 03 55 50 24 B2 |......".."..UP$.|
000019F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A10: 20 20 20 20 20 20 20 20 22 00 67 22 8B 03 55 54 | ".g"..UT|
00001A20: 24 B2 22 20 C6 C1 C3 D4 CF D2 D3 20 20 20 20 20 |$." ....... |
00001A30: 20 20 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 | ....":. PLACE |
00001A40: 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 |PROGRAM TITLE HE|
00001A50: 52 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 |RE !!!!!!!!!!!!!|
00001A60: 21 21 21 21 2A 2A 2A 00 6D 22 8C 03 8E 00 87 22 |!!!!***.m"....."|
00001A70: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA|
00001A80: 42 4C 45 53 20 2A 2A 00 90 22 93 03 8D 39 30 30 |BLES **.."...900|
00001A90: 00 96 22 94 03 3A 00 9C 22 95 03 3A 00 B7 22 98 |.."..:.."..:..".|
00001AA0: 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 |.. ** CHECK FOR |
00001AB0: 38 30 33 32 20 2A 2A 00 D5 22 9D 03 99 22 93 22 |8032 **.."..."."|
00001AC0: 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 |:.".":. SHIFTED |
00001AD0: 53 50 41 43 45 00 EC 22 A2 03 8B C2 28 55 42 AA |SPACE.."....(UB.|
00001AE0: 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 05 23 A3 |40)..96..700..#.|
00001AF0: 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 |.. ** MEMORY CHE|
00001B00: 43 4B 20 2A 2A 00 19 23 A4 03 8B 20 B8 28 30 29 |CK **..#... .(0)|
00001B10: B1 32 30 30 30 A7 39 33 37 00 47 23 A5 03 99 22 |.2000.937.G#..."|
00001B20: 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 |....THIS MACHINE|
00001B30: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
00001B40: 4E 4F 55 47 48 11 22 00 6B 23 A6 03 99 22 4D 45 |NOUGH.".k#..."ME|
00001B50: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
00001B60: 20 50 52 4F 47 52 41 4D 20 21 22 00 76 23 A7 03 | PROGRAM !".v#..|
00001B70: 9E 55 55 AA 37 31 00 7C 23 A8 03 80 00 96 23 A9 |.UU.71.|#.....#.|
00001B80: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
00001B90: B2 30 A7 39 36 32 00 C5 23 AC 03 8F 20 2A 2A 20 |.0.962..#... ** |
00001BA0: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
00001BB0: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
00001BC0: 55 50 20 2A 2A 00 03 24 AD 03 97 31 30 37 35 2C |UP **..$...1075,|
00001BD0: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
00001BE0: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
00001BF0: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
00001C00: 31 34 35 00 39 24 AE 03 97 31 30 39 31 2C 31 35 |145.9$...1091,15|
00001C10: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
00001C20: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
00001C30: 97 31 31 30 33 2C 31 33 33 00 5B 24 AF 03 97 31 |.1103,133.[$...1|
00001C40: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
00001C50: 34 3A 97 31 30 38 32 2C 32 33 34 00 72 24 B1 03 |4:.1082,234.r$..|
00001C60: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
00001C70: 35 35 00 A1 24 B6 03 97 31 30 39 33 2C 38 38 3A |55..$...1093,88:|
00001C80: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
00001C90: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
00001CA0: 35 00 B6 24 BB 03 8B C2 28 35 30 30 30 33 29 B3 |5..$....(50003).|
00001CB0: B1 31 A7 39 39 30 00 E5 24 C0 03 97 31 30 39 33 |.1.990..$...1093|
00001CC0: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
00001CD0: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
00001CE0: 3A 89 39 36 35 00 1F 25 C2 03 97 32 30 39 39 2C |:.965..%...2099,|
00001CF0: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
00001D00: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
00001D10: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
00001D20: 5B 25 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |[%...2106,3:.211|
00001D30: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
00001D40: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
00001D50: 39 3A 97 32 31 32 32 2C 31 34 31 00 95 25 C4 03 |9:.2122,141..%..|
00001D60: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
00001D70: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
00001D80: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
00001D90: 31 32 39 2C 33 00 B3 25 C5 03 9E 55 55 AA 34 38 |129,3..%...UU.48|
00001DA0: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
00001DB0: 4B 45 59 00 C4 25 CA 03 8D 38 30 30 3A 8F 20 54 |KEY..%...800:. T|
00001DC0: 49 54 4C 45 00 D4 25 D4 03 89 33 30 30 3A 8F 20 |ITLE..%...300:. |
00001DD0: 4D 45 4E 55 00 05 26 DE 03 99 22 93 54 48 45 20 |MENU..&...".THE |
00001DE0: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001DF0: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001E00: 45 21 22 3A 80 00 3A 26 E8 03 8B 55 5A B2 31 A7 |E!":..:&...UZ.1.|
00001E10: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001E20: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001E30: 54 53 20 48 45 52 45 20 2A 2A 00 66 26 E9 03 99 |TS HERE **.f&...|
00001E40: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 |"..";:.:..(50003|
00001E50: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53|
00001E60: 32 38 30 2C 31 34 00 7E 26 EB 03 55 50 B2 30 3A |280,14.~&..UP.0:|
00001E70: 55 54 24 B2 22 20 46 41 43 54 4F 52 53 22 00 A5 |UT$." FACTORS"..|
00001E80: 26 CF 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |&...************|
00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EA0: 2A 2A 2A 2A 2A 00 CC 26 D0 07 8F 20 46 41 43 54 |*****..&... FACT|
00001EB0: 4F 52 20 46 49 4E 44 45 52 20 20 20 20 4A 49 4D |OR FINDER JIM|
00001EC0: 20 42 55 54 54 45 52 46 49 45 4C 44 00 F3 26 D1 | BUTTERFIELD..&.|
00001ED0: 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EF0: 2A 2A 2A 00 FF 26 2F 08 81 5A B2 31 A4 31 30 00 |***..&/..Z.1.10.|
00001F00: 20 27 30 08 55 47 24 B2 22 51 55 45 53 54 49 4F | '0.UG$."QUESTIO|
00001F10: 4E 20 23 22 3A 55 50 B2 5A AB 31 3A 8D 38 35 30 |N #":UP.Z.1:.850|
00001F20: 00 2A 27 31 08 8D 32 33 38 35 00 30 27 34 08 8C |.*'1..2385.0'4..|
00001F30: 00 4D 27 3E 08 83 20 37 2C 31 31 2C 31 33 2C 31 |.M'>.. 7,11,13,1|
00001F40: 37 2C 31 39 2C 32 33 2C 32 39 2C 33 31 00 66 27 |7,19,23,29,31.f'|
00001F50: 52 08 81 20 4A B2 30 20 A4 20 37 3A 87 20 46 28 |R.. J.0 . 7:. F(|
00001F60: 4A 29 3A 82 20 4A 00 74 27 66 08 4E B2 B5 28 B6 |J):. J.t'f.N..(.|
00001F70: 28 4E 29 29 00 86 27 70 08 99 22 11 11 22 3A 99 |(N))..'p.."..":.|
00001F80: 4E 3B 22 3D 22 3B 00 94 27 7A 08 46 B2 32 3A 8D |N;"=";..'z.F.2:.|
00001F90: 32 33 30 30 00 A2 27 84 08 46 B2 33 3A 8D 32 33 |2300..'..F.3:.23|
00001FA0: 30 30 00 B0 27 8E 08 46 B2 35 3A 8D 32 33 30 30 |00..'..F.5:.2300|
00001FB0: 00 C8 27 98 08 8B 20 4E B2 31 20 A7 99 22 9D 20 |..'... N.1 ..". |
00001FC0: 22 3A 89 20 32 33 38 31 00 E2 27 A2 08 58 B2 30 |":. 2381..'..X.0|
00001FD0: 3A 59 B2 31 3A 81 20 42 B2 30 20 A4 20 4E 20 A9 |:Y.1:. B.0 . N .|
00001FE0: 33 30 00 F0 27 AC 08 81 20 43 B2 30 20 A4 20 37 |30..'... C.0 . 7|
00001FF0: 00 FD 27 B6 08 46 B2 42 AA 46 28 43 29 00 05 28 |..'..F.B.F(C)..(|
00002000: C0 08 50 B2 58 00 2A 28 CA 08 4D B2 4E AD 46 3A |..P.X.*(..M.N.F:|
00002010: 8B 20 4D B2 B5 28 4D 29 20 A7 20 50 B2 50 AA 59 |. M..(M) . P.P.Y|
00002020: 3A 4E B2 4D 3A 89 32 32 35 30 00 3B 28 D4 08 8B |:N.M:.2250.;(...|
00002030: 20 50 B1 58 20 A7 8D 32 33 33 30 00 4B 28 DE 08 | P.X ..2330.K(..|
00002040: 8B 20 46 B1 4D 20 89 32 33 37 30 00 55 28 E8 08 |. F.M .2370.U(..|
00002050: 82 20 43 2C 42 00 60 28 F2 08 99 22 3F 3F 3F 22 |. C,B.`(..."???"|
00002060: 00 68 28 FC 08 50 B2 30 00 8A 28 06 09 4D B2 4E |.h(..P.0..(..M.N|
00002070: AD 46 3A 8B 4D B2 B5 28 4D 29 A7 50 B2 50 AA 31 |.F:.M..(M).P.P.1|
00002080: 3A 4E B2 4D 3A 89 32 33 31 30 00 98 28 10 09 8B |:N.M:.2310..(...|
00002090: 50 B2 30 89 32 33 36 30 00 A8 28 1A 09 99 CA 28 |P.0.2360..(....(|
000020A0: C4 28 46 29 2C 32 29 3B 00 C1 28 24 09 8B 50 B1 |.(F),2);..($..P.|
000020B0: 31 A7 99 22 5E 22 3B CA 28 C4 28 50 29 2C 32 29 |1.."^";.(.(P),2)|
000020C0: 3B 00 CB 28 2E 09 99 22 2A 22 3B 00 D1 28 38 09 |;..(..."*";..(8.|
000020D0: 8E 00 E6 28 42 09 8B 4E B2 31 A7 99 22 9D 20 22 |...(B..N.1..". "|
000020E0: 3A 89 32 33 38 31 00 F5 28 4C 09 99 CA 28 C4 28 |:.2381..(L...(.(|
000020F0: 4E 29 2C 32 29 00 08 29 4D 09 8D 38 33 35 3A 82 |N),2)..)M..835:.|
00002100: 5A 3A 8D 38 33 35 3A 8E 00 47 29 51 09 99 22 20 |Z:.835:..G)Q.." |
00002110: 11 11 11 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 |...ENTER NUMBER |
00002120: 54 4F 20 42 45 20 46 41 43 54 4F 52 45 44 3A 20 |TO BE FACTORED: |
00002130: 22 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 |":US$."012345678|
00002140: 39 22 3A 55 4C B2 38 00 56 29 52 09 99 22 11 20 |9":UL.8.V)R..". |
00002150: 22 3B 3A 8D 33 35 00 72 29 53 09 99 22 91 20 20 |";:.35.r)S..". |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 22 00 90 29 54 09 4E B2 C5 28 55 52 24 29 3A | "..)T.N..(UR$):|
00002180: 8B 4E B2 30 A7 8D 33 30 30 30 3A 89 32 33 38 35 |.N.0..3000:.2385|
00002190: 00 96 29 55 09 8E 00 CE 29 B8 0B 99 22 11 20 54 |..)U....)...". T|
000021A0: 48 45 20 50 52 4F 47 52 41 4D 20 44 4F 45 53 20 |HE PROGRAM DOES |
000021B0: 4E 4F 54 20 41 43 43 45 50 54 20 30 91 91 20 22 |NOT ACCEPT 0.. "|
000021C0: 3A 81 41 41 B2 31 A4 35 30 30 3A 82 41 41 00 F4 |:.AA.1.500:.AA..|
000021D0: 29 B9 0B 99 22 11 20 20 20 20 20 20 20 20 20 20 |)...". |
000021E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000021F0: 20 20 20 22 00 05 2A BA 0B 99 22 91 91 91 91 91 | "..*...".....|
00002200: 91 91 22 3A 8E 00 00 00 |..":.... |
.......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...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.E.-.." ..";:.UC,0.Y.2..UI$:.UI$."".5
0...7..UI$.G(13).C(UR$)..1..UC,1:." .";:
.85...<..UI$.G(20).105...>.. C(UR$)..UL.
50.O.A..120:. CHECK FOR VALID CHARACTER.
..F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.>.Z..UR$.
UX$.195:. EXIT TO HELP ROUTINE.M._..UF.1
..240.Z.D.UF.0:.:..S.F.. ++ CHECK DELETE
++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR$
).1)...S..". ..";:.50.U.X.. ++ CHECK FO
R VALID CHARACTERS ++...}..C(US$).0.150.
...US$.US$.UX$......US.1.C(US$)......UI
$.J(US$,US,1)...%.....2...UI$."":..M....
** STANDARD INPUT **.^....F(UI$).46...O
....UI$.G(32)..... ..F(UI$).48.F(UI$).57
.170............F(UI$).65.F(UI$).90.180.
......Y....F(UI$).193.F(UI$).218.UI$."":
.......B(UT).UU%.UI$.G(F(UI$).128):.....
.......UI$."":..4.C.UF.1:. +++ HELP ROUT
INE EXIT +++.=.E..250.F.H..245.E.M..UQ.U
B.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).B(U
Q):.:."."...W.UZ.1:UV%.B(UT)...X..300.B.
Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z..
B(50003).0..53281,1:.".";:.53281,6:.5328
0,14:.220......".";.2...UT$.UL$:.UT,UV%:
.UQ.UB.(U2%.256.U1%.U3%.3).G....UQ,UQ%(U
Q.UB):..S....U1,U1%._....U2,U2%.K....U4,
U4%.Y....U3,U3%.1......35.....UD%.((U2%.
256.U1%.U3%).UB).40:.H(UD$,UD%.1):......
.H(UD$,24);" . HELP
COMING . ":......U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).B...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.H.....Y.,.. ** MENU *
*._.-.:......".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.../.:...1..".
MENU"...6.." -----------------------
---------------"...;..".. 1. BEG
IN FACTORS "./.@..".. 2. STUDEN
T INSTRUCTIONS".Y.E..".. 3. TEAC
HER INSTRUCTIONS"...J..".. 4. MO
DIFICATION OF PROGRAM"...O..".. 5.
QUIT..".Q.T.." ----------------------
----------------"...Y..".. PRESS A
NUMBER KEY (1-5) ";.%.^.UL.1:US$."12345
":.35:. INPUT ROUTINE.0.A.US$."".Q.C..E(
UR$).1000,400,500,600,396.Z.H..300......
** RE-ENABLE STOP KEY AND END **......B
(50003)..1.B(50003)..160.B(50003)..0.399
.Z....UU.71:.B(50003).0..53281,6:.53280,
14......"..":.......875:....... ** STUDE
NT INSTRUCTIONS **.%...UT$." FACTORS".T.
...".":.UT,UL%:.B(50003).0..53281,0:.532
80,0.U...UP.0:UG$."STUDENT INST":.850...
..."... THIS PROGRAM BREAKS DOWN ANY INT
EGER".N...." . --UP TO 8 DIGITS MAXI
MUM--"......". INTO ITS PRIME FACTORS.".
.....". IT OF COURSE WORKS ONLY ON POSIT
IVE".K....". INTEGERS. MULTIPLE FACTORS
ARE SHOWN".K....". AS 'POWERS', E.G., 2
^3".T.B..835...G.UP.2:.850...L.."..NOTE:
...TO ADVANCE FROM ONE QUESTION"...V.."
TO THE NEXT PRESS THE SPACE BAR."...
W.."......AFTER YOU ENTER YOUR DATA, PLE
ASE".$.X.." HIT RETURN.".T....".....
. IF AT ANY TIME YOU WISH TO RETURN"....
..". TO THE MENU PRESS H (OR H) RETURN.
THIS"......" ONLY WORKS IF NO OTHER DATA
IS TYPED"......". IN. IF DATA IS PRESEN
T YOU MUST FIRST"......". DELETE IT AND
THEN TYPE H (OR H) RETURN"......835./...
.UZ.1..UP%:.217.5.....V.... ** TEACHER I
NSTRUCTIONS **......".":.UT,UL%:.B(50003
).0..53281,2:.53280,10.....UT$." FACTORS
":UP.0:UG$."TEACHER INST":.850......"..
TO THE BEST OF OUR KNOWLEDGE,."....
.." THIS PROGRAM IS IN THE PUBLIC.".9.
..." DOMAIN. IF THIS IS NOT THE CASE.
".V...." PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..G...."
AGINCOURT, ONTARIO"......"
CANADA M1W 2K4"......" (416)
499-4292".....UP.1:. 835:. 850:.F...."
..PROGRAM NAME: FACTORS ..O...."
WRITTEN BY : J. BUTTERFIELD......."
UPGRADED BY : ......." .T
HIS PROGRAM WILL RUN ON ANY........"
PET 64 COMPUTER......" COMM
ODORE 64 COMPUTER......835:.850.:....".
GRADE LEVEL: INTERMEDIATE-SENIOR".V....
". SUBJECT AREA: MATH".{....". TOPIC:
PRIME FACTORS"......". THIS PROGRAM
WOULD BEST SERVE FOR A".T....". UTILITY
-TYPE USAGE. STUDENT SIMPLY"......". ENT
ERS A NUMBER AND ITS PRIME FACTORS". ...
.". ARE THEN DISPLAYED.".).D..835.=.N..U
Z.1..UP%:.217.C.W...I.X.. ** PROGRAM MOD
IFICATION INST **.Z.Y..".":.UT,UL%...].U
P.0:UG$."PROGRAM MOD":.850.F.B..". .THE
PROGRAMMING STRUCTURE OF THIS"...D.." PR
OGRAM IS NOT DIFFICULT. THE PROGRAM".!.F
.." ITSELF APPEARS IN LINES 1999 - 2386.
".M.H.." .THE PROGRAM AS IT STANDS IS SE
T UP".{.J.." FOR A MAXIMUM OF 10 DIFFERE
NT NUMBERS"...L.." THAT CAN BE ENTERED B
Y THE USER.".P.N.." .IF YOU WISH TO ALTE
R THE NUMBER OF"...P.." REPETITIONS, SIM
PLY CHANGE THE UPPER".(.R.." LIMIT IN TH
E FOR-NEXT LOOP FOUND IN.S.T.." LINE 209
5. ".N.V.." .2095
FORZ=1TO.10.".W....835......UZ.1..UP%:.
217............ ** TO USE 8032 LOAD CBM4
032 **...F..".....BEFORE RUNNING THIS PR
OGRAM ON AN 8032 ...".P.." LOAD TH
E 'CBM 4032' PROGRAM.............".-.Z..
UU.71.3.....X.... ** TO USE 8032 LOAD CB
M4032 **......"....BEFORE RUNNING THIS P
ROGRAM ON AN 8032 ..LOAD CBM 4032 PROGR
AM"......1093:..O. .. ** T I T L E P A
G E **...".."....";:.UT,UU%:.B(50003).0
..53280,14:.53281,6...$..I.1.38:."...";:
..1.&..I.1.22:.".....";:..I.(..I.1.37:."
.....";:..A.*..I.1.22:.".....";:....,.."
........................... ......."...
................ . . ...I.0..".........
.......... . ......2.."................
.... ....4.."..............C O M M O D
O R E...2.6.."...............EDUCATIONAL
...Q.8.."................SOFTWARE.L.:..
** COMMODORE LOGO **...;..H(UD$,24);"...
.......PRESS SPACE BAR OR WAIT.":I.0.F.<
..A$:.A$.." ".I.I.1:.I.250.828...>.T1$."
":T2$."":T3$."":T4$."":I.0...@..300...C.
. ** SPACE BAR PRESS **.J.H..UO,0:.H(UD$
,24);".......PRESS SPACE BAR TO CONTINUE
.".A.L..UI$:.UI$.." ".844.G.N.....R.. **
PAGE DESIGN ROUTINE **...T.UP.UP.1...W.
."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)...
\.." -----------------------------------
---"...`..UH..0.870./ A..H(UD$,24);H(UP$
,7);"HELP - PRESS H <RETURN>".@ F.UH.0
:."..":.._ K.. ** PLEASE WAIT REMARK **.
. P..H(UD$,24);" ONE MOMENT PL
EASE... ".. U.... ... ** SET UP VARI
ABLES **..!..UX$."H":.UQ%(1000):UB.32768
:U1.196:U2.197:U3.198:U4.216:UC.167:UU.1
024.A!..UT.59468:UU%.12:UL%.14:UP%.1146:
UM.32768:UO.158:. 50003,0..!...B(50003).
0.UB.1024:U1.209:U2.210:U3.211:U4.214:UC
.204:UU.2048.C!...B(50003).0.UT.53272:UU
%.21:UL%.23:UP%.2139:UM.1024:UO.198..!..
UD$.".........................".."..UP$.
"
".G"..UT$." FACTORS ":. PLACE
PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***.
M"....."... ** SET VARIABLES **.."...900
.."..:.."..:.."... ** CHECK FOR 8032 **.
U"...".":." ":. SHIFTED SPACE.."...B(UB.
40)..96..700..#... ** MEMORY CHECK **..#
... .(0).2000.937.G#..."....THIS MACHINE
DOES NOT HAVE ENOUGH.".K#..."MEMORY TO
RUN THIS PROGRAM !".V#...UU.71.|#.....#.
.."..":.B(50003).0.962.E#... ** BASIC 2.
0 OR 4.0 OR C-64 SETUP **..$...1075,
133:.1076,144:.1077,234:.1079,4:.1080,13
3:.1081,145.9$...1091,155:.1098,133:.109
9,144:.1100,234:.1103,133.[$...1104,145:
.1105,234:.1082,234.R$...B(50003)..160.9
55..$...1093,88:.1094,228:.1097,85:.1102
,228:.965..$...B(50003)..1.990..$...1093
,49:.1094,230:.1097,46:.1102,230:.965..%
B..2099,141:.2100,20:.2101,3:.2103,8:.21
04,141:.2105,21.[%C..2106,3:.2115,145:.2
117,52:.2118,234:.2121,49:.2122,141..%D.
.2123,20:.2124,3:.2126,234:.2127,141:.21
28,21:.2129,3..%E..UU.48:. DISABLE STOP
KEY.D%J..800:. TITLE.T%T..300:. MENU..&.
..".THE PGM WILL NOT WORK ON THIS MACHIN
E!":..:&...UZ.1..UP%:.UP%:UZ.0:. ** PROG
RAM STARTS HERE **.F&..."..";:.:.B(50003
).0..53281,6:.53280,14.~&..UP.0:UT$." FA
CTORS"..&O..****************************
*****.L&P.. FACTOR FINDER JIM BUTTERF
IELD..&Q..******************************
***..&/..Z.1.10. '0.UG$."QUESTION #":UP.
Z.1:.850.*'1..2385.0'4...M'>.. 7,11,13,1
7,19,23,29,31.F'R.. J.0 . 7:. F(J):. J.T
'F.N..(.(N))..'P.."..":.N;"=";..'Z.F.2:.
2300..'..F.3:.2300..'..F.5:.2300.H'... N
.1 ..". ":. 2381..'..X.0:Y.1:. B.0 . N .
30..'... C.0 . 7..'..F.B.F(C)..(..P.X.*(
J.M.N.F:. M..(M) . P.P.Y:N.M:.2250.;(T..
P.X ..2330.K(... F.M .2370.U(... C,B.`(
..."???".H(..P.0..(..M.N.F:.M..(M).P.P.1
:N.M:.2310..(...P.0.2360..(...J(D(F),2);
.A($..P.1.."^";J(D(P),2);.K(..."*";.Q(8.
...(B..N.1..". ":.2381..(L..J(D(N),2)..)
M..835:.Z:.835:..G)Q.." ...ENTER NUMBER
TO BE FACTORED: ":US$."0123456789":UL.8.
V)R..". ";:.35.R)S..".
"..)T.N.E(UR$):.N.0..3000:.2385..)U...N
)...". THE PROGRAM DOES NOT ACCEPT 0.. "
:.AA.1.500:.AA..)...".
"..*...".......":....
> CLICK IMAGE PREVIEW FOR FULL MODAL