ADDITION MASTER
FILE INFORMATION
FILENAME(S): ADDITION MASTER
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 18:12:05
APPEARS ON: 1 disk(s)
FILE HASH
592997d6b6fad36f48c719203a7fbe70c83d0d3b18f930970147964b4a74f5e9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 33 S 1 | ADDITION MASTER | PRG | Sailor, Ganheden | 5 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 01 00 4C 4E 24 B2 22 2D 2D 2D 2D 2D |......LN$."-----|
00000010: 2D 2D 2D 2D 2D 22 00 20 08 02 00 89 32 30 30 30 |-----". ....2000|
00000020: 00 41 08 05 00 43 B2 4D 41 3A 8B 53 58 28 43 29 |.A...C.MA:.SX(C)|
00000030: A7 55 28 54 52 28 43 4F 28 52 2C 43 29 29 29 B2 |.U(TR(CO(R,C))).|
00000040: 2E 00 4B 08 0A 00 8B 4E A7 33 35 00 60 08 0F 00 |..K....N.35.`...|
00000050: 46 B2 2E 3A 43 B2 43 AB 31 3A 8B 43 B2 2E A7 8E |F..:C.C.1:.C....|
00000060: 00 7C 08 14 00 8B 53 58 28 43 29 A7 55 28 54 52 |.|....SX(C).U(TR|
00000070: 28 43 4F 28 52 2C 43 29 29 29 B2 2E 00 90 08 19 |(CO(R,C)))......|
00000080: 00 4E B2 4E 44 28 43 29 3A 8B 4E B2 2E A7 31 35 |.N.ND(C):.N...15|
00000090: 00 AE 08 1E 00 81 49 B2 31 A4 4E 3A 4C 28 49 29 |......I.1.N:L(I)|
000000A0: B2 54 52 28 44 49 28 43 2C 49 29 29 3A 82 00 BD |.TR(DI(C,I)):...|
000000B0: 08 23 00 8D 32 35 38 3A 8B 46 A7 31 35 00 ED 08 |.#..258:.F.15...|
000000C0: 28 00 81 49 B2 31 A4 4E 3A 54 4A B2 4C 28 49 29 |(..I.1.N:TJ.L(I)|
000000D0: 3A 53 4A B2 53 4F 28 44 49 28 43 2C 49 29 29 3A |:SJ.SO(DI(C,I)):|
000000E0: 8D 32 37 30 3A 8B 41 31 B2 2E A7 33 35 00 02 09 |.270:.A1...35...|
000000F0: 2D 00 54 52 28 44 49 28 43 2C 49 29 29 B2 54 4A |-.TR(DI(C,I)).TJ|
00000100: 3A 82 00 2A 09 32 00 54 4A B2 43 41 28 43 AB 31 |:..*.2.TJ.CA(C.1|
00000110: 29 3A 81 49 B2 31 A4 52 AB 31 3A 8B 43 B1 C3 28 |):.I.1.R.1:.C..(|
00000120: 52 57 24 28 49 29 29 A7 36 35 00 47 09 34 00 8B |RW$(I)).65.G.4..|
00000130: C2 28 31 39 38 29 B3 B1 30 A7 8D 35 30 30 30 3A |.(198)..0..5000:|
00000140: 8B 41 47 B2 31 A7 8A 00 57 09 37 00 8B 52 50 28 |.AG.1...W.7..RP(|
00000150: 43 29 B2 49 A7 36 35 00 6D 09 3C 00 54 4A B2 54 |C).I.65.m.<.TJ.T|
00000160: 4A AA 54 52 28 43 4F 28 49 2C 43 29 29 00 9F 09 |J.TR(CO(I,C))...|
00000170: 41 00 82 3A 43 41 28 43 29 B2 B5 28 54 4A AD 31 |A..:CA(C)..(TJ.1|
00000180: 30 29 3A 54 4A B2 54 4A AB 31 30 AC 43 41 28 43 |0):TJ.TJ.10.CA(C|
00000190: 29 3A 8B 52 50 28 43 29 A7 8B 54 4A A7 31 30 00 |):.RP(C)..TJ.10.|
000001A0: AE 09 46 00 8B 52 50 28 43 29 A7 31 30 35 00 C9 |..F..RP(C).105..|
000001B0: 09 4B 00 41 B2 43 4F 28 52 2C 43 29 3A 8B 41 A7 |.K.A.CO(R,C):.A.|
000001C0: 8B 53 58 28 43 29 A7 39 30 00 DB 09 50 00 8B 54 |.SX(C).90...P..T|
000001D0: 4A B2 54 52 28 41 29 A7 31 30 35 00 E3 09 55 00 |J.TR(A).105...U.|
000001E0: 89 31 30 00 F1 09 5A 00 8B 55 28 54 4A 29 A7 31 |.10...Z..U(TJ).1|
000001F0: 30 00 0C 0A 5F 00 53 4A B2 53 4F 28 41 29 3A 8D |0..._.SJ.SO(A):.|
00000200: 32 37 30 3A 8B 41 31 B2 2E A7 31 30 00 21 0A 64 |270:.A1...10.!.d|
00000210: 00 54 52 28 41 29 B2 54 4A 3A 55 28 54 4A 29 B2 |.TR(A).TJ:U(TJ).|
00000220: 31 00 35 0A 69 00 43 B2 43 AA 31 3A 8B 43 B1 4D |1.5.i.C.C.1:.C.M|
00000230: 41 A7 31 32 30 00 4E 0A 6E 00 41 31 B2 2E 3A 4E |A.120.N.n.A1..:N|
00000240: B2 4E 44 28 43 29 3A 8B 4E B2 2E A7 35 30 00 5B |.ND(C):.N...50.[|
00000250: 0A 73 00 8D 32 35 32 3A 89 34 30 00 7E 0A 78 00 |.s..252:.40.~.x.|
00000260: 54 4A B2 43 41 28 4D 41 29 3A 8B 54 4A B2 2E A7 |TJ.CA(MA):.TJ...|
00000270: 91 4C 52 AB 4D 41 AA 31 89 31 35 35 2C 35 00 8B |.LR.MA.1.155,5..|
00000280: 0A 7D 00 8B 4C 52 B2 4D 41 A7 35 00 A7 0A 82 00 |.}..LR.MA.5.....|
00000290: 41 B2 43 4F 28 52 2C 4C 52 29 3A 8B 53 58 28 43 |A.CO(R,LR):.SX(C|
000002A0: 29 B2 2E A7 31 35 30 00 B4 0A 87 00 8B 55 28 54 |)...150......U(T|
000002B0: 4A 29 A7 35 00 CE 0A 8C 00 53 4A B2 53 4F 28 41 |J).5.....SJ.SO(A|
000002C0: 29 3A 8D 32 37 30 3A 8B 41 31 B2 2E A7 35 00 E8 |):.270:.A1...5..|
000002D0: 0A 91 00 54 52 28 41 29 B2 54 4A 3A 55 28 54 4A |...TR(A).TJ:U(TJ|
000002E0: 29 B2 31 3A 89 31 35 35 00 F8 0A 96 00 8B 54 52 |).1:.155......TR|
000002F0: 28 41 29 AB 54 4A A7 35 00 0E 0B 9B 00 4E B2 4E |(A).TJ.5.....N.N|
00000300: 44 28 31 32 29 3A 8B 4E B2 2E A7 31 39 32 00 1C |D(12):.N...192..|
00000310: 0B A0 00 8D 32 35 32 3A 89 31 38 35 00 29 0B A5 |....252:.185.)..|
00000320: 00 8B 4E B2 2E A7 31 37 35 00 3B 0B AA 00 8D 32 |..N...175.;....2|
00000330: 35 38 3A 8B 46 B2 2E A7 31 38 35 00 59 0B AF 00 |58:.F...185.Y...|
00000340: 8B 53 58 28 4C 52 29 A7 55 28 54 52 28 43 4F 28 |.SX(LR).U(TR(CO(|
00000350: 52 2C 4C 52 29 29 29 B2 2E 00 6A 0B B4 00 43 B2 |R,LR)))...j...C.|
00000360: 4D 41 3A 46 B2 2E 3A 89 32 30 00 9C 0B B9 00 81 |MA:F..:.20......|
00000370: 49 B2 31 A4 4E 3A 54 4A B2 4C 28 49 29 3A 53 4A |I.1.N:TJ.L(I):SJ|
00000380: B2 53 4F 28 44 49 28 31 32 2C 49 29 29 3A 8D 32 |.SO(DI(12,I)):.2|
00000390: 37 30 3A 8B 41 31 B2 2E A7 31 37 30 00 B2 0B BE |70:.A1...170....|
000003A0: 00 54 52 28 44 49 28 31 32 2C 49 29 29 B2 54 4A |.TR(DI(12,I)).TJ|
000003B0: 3A 82 00 D8 0B C0 00 81 49 B2 31 A4 52 3A 8B 54 |:.......I.1.R:.T|
000003C0: 52 28 43 4F 28 49 2C C3 28 52 57 24 28 49 29 29 |R(CO(I,.(RW$(I))|
000003D0: 29 29 B2 2E A7 31 36 35 00 E9 0B C3 00 8B 43 4C |))...165......CL|
000003E0: 28 49 29 B2 30 A7 32 33 30 00 1A 0C C8 00 41 B2 |(I).0.230.....A.|
000003F0: 30 3A 81 41 31 B2 C3 28 52 57 24 28 49 29 29 A4 |0:.A1..(RW$(I)).|
00000400: 31 A9 AB 31 3A 41 B2 31 30 AC 41 AA 54 52 28 43 |1..1:A.10.A.TR(C|
00000410: 4F 28 49 2C 41 31 29 29 3A 82 00 2B 0C CA 00 8B |O(I,A1)):..+....|
00000420: 43 4C 28 49 29 B1 32 A7 32 31 35 00 48 0C CD 00 |CL(I).2.215.H...|
00000430: 8D 33 35 30 3A 8B 43 4C 28 49 29 AA 28 41 31 B1 |.350:.CL(I).(A1.|
00000440: 30 29 B2 31 A7 32 33 30 00 51 0C D2 00 89 31 36 |0).1.230.Q....16|
00000450: 35 00 62 0C D7 00 8B 43 4C 28 49 29 B1 34 A7 32 |5.b....CL(I).4.2|
00000460: 33 30 00 84 0C DC 00 42 B2 B5 28 BA 28 41 29 AC |30.....B..(.(A).|
00000470: 41 32 29 3A 41 31 B2 33 3A 8B 41 B2 42 AC 42 A7 |A2):A1.3:.A.B.B.|
00000480: 41 31 B2 34 00 96 0C E1 00 8B 43 4C 28 49 29 B2 |A1.4......CL(I).|
00000490: 41 31 A7 31 36 35 00 C4 0C E6 00 82 49 3A 42 24 |A1.165......I:B$|
000004A0: B2 54 49 24 3A 53 B2 53 AA 31 3A 8B 53 B2 31 A7 |.TI$:S.S.1:.S.1.|
000004B0: 8D 34 37 35 3A 89 32 33 35 3A 8F 20 53 4F 4C 55 |.475:.235:. SOLU|
000004C0: 54 49 4F 4E 00 05 0D E8 00 99 3A 99 22 54 48 45 |TION......:."THE|
000004D0: 20 4E 45 58 54 20 53 4F 4C 55 54 49 4F 4E 20 49 | NEXT SOLUTION I|
000004E0: 53 20 52 45 41 44 59 2E 2E 2E 22 3A 99 22 50 52 |S READY...":."PR|
000004F0: 45 53 53 20 41 20 4B 45 59 20 54 4F 20 53 45 45 |ESS A KEY TO SEE|
00000500: 20 49 54 2E 22 00 13 0D E9 00 8B 50 B3 34 A7 8D | IT."......P.4..|
00000510: 34 36 35 00 30 0D EB 00 99 22 93 22 3B 3A 8D 34 |465.0....".";:.4|
00000520: 30 30 3A 8B 50 A7 9D 50 3A 8D 34 30 30 3A 98 50 |00:.P..P:.400:.P|
00000530: 00 6E 0D F0 00 99 3A 99 22 4C 45 54 20 4D 45 20 |.n....:."LET ME |
00000540: 47 45 54 20 42 41 43 4B 20 54 4F 20 57 4F 52 4B |GET BACK TO WORK|
00000550: 20 2E 2E 2E 22 3A 99 22 3C 50 52 45 53 53 20 41 | ...":."<PRESS A|
00000560: 20 4B 45 59 20 54 4F 20 51 55 49 54 3E 22 00 7E | KEY TO QUIT>".~|
00000570: 0D F5 00 54 49 24 B2 42 24 3A 89 31 36 35 00 84 |...TI$.B$:.165..|
00000580: 0D FA 00 3A 00 96 0D FB 00 8F 20 53 55 42 52 4F |...:...... SUBRO|
00000590: 55 54 49 4E 45 53 00 9E 0D FC 00 49 B2 31 00 AA |UTINES.....I.1..|
000005A0: 0D FD 00 4C 28 49 29 B2 AB 31 00 CF 0D FE 00 4C |...L(I)..1.....L|
000005B0: 28 49 29 B2 4C 28 49 29 AA 31 3A 8B 55 28 4C 28 |(I).L(I).1:.U(L(|
000005C0: 49 29 29 A7 8B 4C 28 49 29 B3 39 A7 32 35 34 00 |I))..L(I).9.254.|
000005D0: E5 0D FF 00 8B 4C 28 49 29 B2 39 A7 8B 55 28 39 |.....L(I).9..U(9|
000005E0: 29 A7 32 35 39 00 03 0E 00 01 55 28 4C 28 49 29 |).259.....U(L(I)|
000005F0: 29 B2 31 3A 8B 49 B3 4E A7 49 B2 49 AA 31 3A 89 |).1:.I.N.I.I.1:.|
00000600: 32 35 33 00 09 0E 01 01 8E 00 2D 0E 02 01 81 49 |253.......-....I|
00000610: B2 4E A4 31 A9 AB 31 3A 55 28 4C 28 49 29 29 B2 |.N.1..1:U(L(I)).|
00000620: 2E 3A 8B 4C 28 49 29 B3 39 A7 32 35 34 00 39 0E |.:.L(I).9.254.9.|
00000630: 03 01 82 3A 46 B2 31 3A 8E 00 3F 0E 04 01 3A 00 |...:F.1:..?...:.|
00000640: 51 0E 09 01 8F 20 43 48 45 43 4B 20 43 4C 55 45 |Q.... CHECK CLUE|
00000650: 53 00 7C 0E 0E 01 41 31 B2 30 3A 91 53 4A AB 39 |S.|...A1.0:.SJ.9|
00000660: 89 32 37 35 2C 32 37 35 2C 32 38 30 2C 32 39 30 |.275,275,280,290|
00000670: 2C 32 39 35 2C 33 30 30 2C 33 30 35 00 8F 0E 13 |,295,300,305....|
00000680: 01 41 31 B2 53 4A AA 54 4A AA 31 AF 31 3A 8E 00 |.A1.SJ.TJ.1.1:..|
00000690: 9F 0E 18 01 8B 54 4A B3 33 A7 41 31 B2 54 4A 00 |.....TJ.3.A1.TJ.|
000006A0: A5 0E 1D 01 8E 00 B0 0E 22 01 41 31 B2 31 3A 8E |........".A1.1:.|
000006B0: 00 C8 0E 27 01 41 31 B2 B6 28 33 AB B6 28 54 4A |...'.A1..(3..(TJ|
000006C0: AB 35 29 29 B2 31 3A 8E 00 D4 0E 2C 01 41 31 B2 |.5)).1:....,.A1.|
000006D0: 54 4A 3A 8E 00 EF 0E 31 01 41 31 B2 B6 28 32 2E |TJ:....1.A1..(2.|
000006E0: 35 AB B6 28 54 4A AB 35 29 29 AB 2E 35 3A 8E 00 |5..(TJ.5))..5:..|
000006F0: F5 0E 54 01 3A 00 06 0F 59 01 8F 20 50 52 49 4D |..T.:...Y.. PRIM|
00000700: 45 20 54 45 53 54 00 16 0F 5E 01 8B 41 B3 34 A7 |E TEST...^..A.4.|
00000710: 41 31 B2 30 3A 8E 00 2D 0F 63 01 8B 41 AD 32 B2 |A1.0:..-.c..A.2.|
00000720: B5 28 41 AD 32 29 A7 41 31 B2 32 3A 8E 00 4E 0F |.(A.2).A1.2:..N.|
00000730: 68 01 81 41 31 B2 33 A4 BA 28 41 29 A9 32 3A 8B |h..A1.3..(A).2:.|
00000740: 41 AD 41 31 B2 B5 28 41 AD 41 31 29 A7 8E 00 5B |A.A1..(A.A1)...[|
00000750: 0F 6D 01 82 3A 41 31 B2 30 3A 8E 00 76 0F 72 01 |.m..:A1.0:..v.r.|
00000760: 99 22 93 22 3B 3A 8F 20 44 49 53 50 4C 41 59 20 |.".";:. DISPLAY |
00000770: 50 55 5A 5A 4C 45 00 81 0F 77 01 81 49 B2 31 A4 |PUZZLE...w..I.1.|
00000780: 52 00 9C 0F 7C 01 8B 49 B2 52 A7 99 A6 31 35 AB |R...|..I.R...15.|
00000790: 4C 52 29 C8 28 4C 4E 24 2C 4C 52 29 00 BA 0F 81 |LR).(LN$,LR)....|
000007A0: 01 99 A6 31 35 AB C3 28 52 57 24 28 49 29 29 29 |...15..(RW$(I)))|
000007B0: 52 57 24 28 49 29 3A 82 3A 99 00 D4 0F 86 01 81 |RW$(I):.:.......|
000007C0: 49 B2 30 A4 4E 43 3A 99 43 53 24 28 49 29 3A 82 |I.0.NC:.CS$(I):.|
000007D0: 3A 99 3A 8E 00 EB 0F 8B 01 8F 20 44 49 53 50 4C |:.:....... DISPL|
000007E0: 41 59 20 53 4F 4C 55 54 49 4F 4E 00 1E 10 90 01 |AY SOLUTION.....|
000007F0: 99 A6 31 31 29 22 53 4F 4C 55 54 49 4F 4E 20 4E |..11)"SOLUTION N|
00000800: 4F 2E 22 53 3A 99 A6 39 29 22 3D 3D 3D 3D 3D 3D |O."S:..9)"======|
00000810: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 3A |=============".:|
00000820: 10 95 01 99 A6 39 29 22 54 49 4D 45 20 53 4F 20 |.....9)"TIME SO |
00000830: 46 41 52 3A 20 22 42 24 3A 99 00 52 10 9A 01 81 |FAR: "B$:..R....|
00000840: 49 B2 31 A4 52 3A 41 31 B2 C3 28 52 57 24 28 49 |I.1.R:A1..(RW$(I|
00000850: 29 29 00 7D 10 9F 01 8B 49 B2 52 A7 99 A6 31 33 |)).}....I.R...13|
00000860: AB 4C 52 29 C8 28 4C 4E 24 2C 4C 52 29 A6 31 35 |.LR).(LN$,LR).15|
00000870: AB 4C 52 29 C8 28 4C 4E 24 2C 4C 52 29 00 98 10 |.LR).(LN$,LR)...|
00000880: A4 01 99 A6 31 33 AB 41 31 29 52 57 24 28 49 29 |....13.A1)RW$(I)|
00000890: A6 31 35 AB 41 31 29 3B 00 BD 10 A9 01 81 41 B2 |.15.A1);......A.|
000008A0: 41 31 A4 31 A9 AB 31 3A 99 C7 28 34 38 AA 54 52 |A1.1..1:..(48.TR|
000008B0: 28 43 4F 28 49 2C 41 29 29 29 3B 3A 82 00 C7 10 |(CO(I,A)));:....|
000008C0: AE 01 99 3A 82 3A 99 00 E4 10 B3 01 81 49 B2 31 |...:.:.......I.1|
000008D0: A4 4E 4D 3A 99 22 20 20 22 49 4E 24 28 49 29 3B |.NM:." "IN$(I);|
000008E0: 3A 82 3A 99 00 02 11 B8 01 99 22 20 22 3B 3A 81 |:.:......." ";:.|
000008F0: 49 B2 31 A4 4E 4D 3A 99 54 52 28 49 29 3B 3A 82 |I.1.NM:.TR(I);:.|
00000900: 3A 99 00 1A 11 BD 01 99 3A 81 49 B2 31 A4 4E 43 |:.......:.I.1.NC|
00000910: 3A 99 43 53 24 28 49 29 3A 82 00 20 11 C2 01 8E |:.CS$(I):.. ....|
00000920: 00 26 11 C7 01 3A 00 3B 11 CC 01 8F 20 49 4E 50 |.&...:.;.... INP|
00000930: 55 54 20 41 4E 44 20 42 45 45 50 00 4B 11 D1 01 |UT AND BEEP.K...|
00000940: 8D 34 37 35 3A 8F 20 42 45 45 50 00 61 11 D6 01 |.475:. BEEP.a...|
00000950: 92 31 39 38 2C 33 3A A1 41 24 3A 97 31 39 38 2C |.198,3:.A$:.198,|
00000960: 30 00 84 11 DB 01 97 35 34 32 39 36 2C 31 35 3A |0......54296,15:|
00000970: 81 49 B2 31 A4 32 30 3A 82 3A 97 35 34 32 39 36 |.I.1.20:.:.54296|
00000980: 2C 30 3A 8E 00 8A 11 EA 01 3A 00 9D 11 EF 01 8F |,0:......:......|
00000990: 20 45 4E 54 45 52 20 50 55 5A 5A 4C 45 00 AB 11 | ENTER PUZZLE...|
000009A0: F4 01 8D 39 30 30 3A 89 35 32 30 00 D1 11 FE 01 |...900:.520.....|
000009B0: 99 3A 99 22 49 20 43 41 4E 27 54 20 48 41 4E 44 |.:."I CAN'T HAND|
000009C0: 4C 45 20 54 48 49 53 20 53 54 55 46 46 2E 2E 2E |LE THIS STUFF...|
000009D0: 22 00 F5 11 08 02 9C 3A 86 49 2C 43 2C 4E 2C 54 |"......:.I,C,N,T|
000009E0: 4A 2C 41 2C 41 31 2C 53 4A 2C 52 3A 41 32 B2 31 |J,A,A1,SJ,R:A2.1|
000009F0: AA 32 45 AB 37 00 0A 12 0D 02 8B C2 28 38 32 38 |.2E.7.......(828|
00000A00: 29 A7 50 B2 34 3A 9F 50 2C 50 00 53 12 12 02 86 |).P.4:.P,P.S....|
00000A10: 4C 28 31 31 29 2C 55 28 31 31 29 2C 54 52 28 31 |L(11),U(11),TR(1|
00000A20: 30 29 2C 44 49 28 31 32 2C 31 30 29 2C 52 50 28 |0),DI(12,10),RP(|
00000A30: 31 31 29 2C 43 41 28 31 32 29 2C 43 4F 28 31 31 |11),CA(12),CO(11|
00000A40: 2C 31 31 29 2C 53 4F 28 31 30 29 2C 52 57 24 28 |,11),SO(10),RW$(|
00000A50: 31 31 29 00 87 12 17 02 86 53 58 28 32 30 29 2C |11)......SX(20),|
00000A60: 4E 44 28 31 32 29 2C 53 4C 28 32 30 2C 31 30 29 |ND(12),SL(20,10)|
00000A70: 2C 43 4C 28 31 31 29 2C 43 53 24 28 33 30 29 2C |,CL(11),CS$(30),|
00000A80: 53 4C 24 28 32 30 29 00 90 12 1C 02 8D 34 37 35 |SL$(20)......475|
00000A90: 00 D4 12 1E 02 99 22 9B 11 54 48 45 52 45 20 4D |......"..THERE M|
00000AA0: 55 53 54 20 42 45 20 42 45 54 57 45 45 4E 20 33 |UST BE BETWEEN 3|
00000AB0: 20 41 4E 44 20 31 31 20 4C 49 4E 45 53 2C 20 20 | AND 11 LINES, |
00000AC0: 20 49 4E 43 4C 55 44 49 4E 47 20 54 48 45 20 53 | INCLUDING THE S|
00000AD0: 55 4D 2E 22 00 00 13 21 02 85 22 48 4F 57 20 4D |UM."...!.."HOW M|
00000AE0: 41 4E 59 20 4C 49 4E 45 53 20 28 30 20 54 4F 20 |ANY LINES (0 TO |
00000AF0: 51 55 49 54 29 20 22 3B 52 3A 8B 52 B2 30 A7 8A |QUIT) ";R:.R.0..|
00000B00: 00 12 13 26 02 8B 52 B3 33 B0 52 B1 31 31 A7 35 |...&..R.3.R.11.5|
00000B10: 31 30 00 39 13 2B 02 99 3A 99 22 45 4E 54 45 52 |10.9.+..:."ENTER|
00000B20: 20 45 41 43 48 20 4C 49 4E 45 20 53 45 50 41 52 | EACH LINE SEPAR|
00000B30: 41 54 45 4C 59 3A 22 3A 99 00 44 13 30 02 81 49 |ATELY:":..D.0..I|
00000B40: B2 31 A4 52 00 62 13 35 02 85 52 57 24 28 49 29 |.1.R.b.5..RW$(I)|
00000B50: 3A 8B C3 28 52 57 24 28 49 29 29 B1 31 30 A7 35 |:..(RW$(I)).10.5|
00000B60: 31 30 00 77 13 3A 02 8B C3 28 52 57 24 28 49 29 |10.w.:...(RW$(I)|
00000B70: 29 B2 30 A7 35 31 30 00 7F 13 3F 02 82 3A 99 00 |).0.510...?..:..|
00000B80: 9D 13 44 02 43 53 24 28 30 29 B2 22 20 20 20 20 |..D.CS$(0)." |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 B3 13 | "...|
00000BA0: 49 02 4C 52 B2 C3 28 52 57 24 28 52 29 29 3A 8D |I.LR..(RW$(R)):.|
00000BB0: 33 37 30 00 D3 13 4E 02 81 49 B2 31 A4 52 3A 42 |370...N..I.1.R:B|
00000BC0: B2 C3 28 52 57 24 28 49 29 29 3A 8B 49 B2 52 A7 |..(RW$(I)):.I.R.|
00000BD0: 36 31 30 00 E5 13 58 02 8B 42 B2 4D 41 A7 41 31 |610...X..B.MA.A1|
00000BE0: B2 41 31 AA 31 00 F9 13 5D 02 8B 42 B1 4D 41 A7 |.A1.1...]..B.MA.|
00000BF0: 41 31 B2 30 3A 4D 41 B2 42 00 18 14 62 02 81 4E |A1.0:MA.B...b..N|
00000C00: B2 31 A4 42 3A 41 24 B2 C8 28 C9 28 52 57 24 28 |.1.B:A$..(.(RW$(|
00000C10: 49 29 2C 4E 29 2C 31 29 00 40 14 67 02 8B C6 28 |I),N),1).@.g...(|
00000C20: 41 24 29 B3 36 35 A7 41 B2 30 3A 49 4E 24 28 30 |A$).65.A.0:IN$(0|
00000C30: 29 B2 41 24 3A 4C 28 30 29 B2 31 3A 89 36 33 35 |).A$:L(0).1:.635|
00000C40: 00 5B 14 6C 02 81 41 B2 31 A4 31 30 3A 8B 49 4E |.[.l..A.1.10:.IN|
00000C50: 24 28 41 29 B2 41 24 A7 36 33 35 00 7E 14 71 02 |$(A).A$.635.~.q.|
00000C60: 8B 49 4E 24 28 41 29 B2 22 22 A7 49 4E 24 28 41 |.IN$(A)."".IN$(A|
00000C70: 29 B2 41 24 3A 4E 4D B2 41 3A 89 36 33 35 00 8A |).A$:NM.A:.635..|
00000C80: 14 76 02 82 3A 4E 4D B2 31 31 00 98 14 7B 02 43 |.v..:NM.11...{.C|
00000C90: 4F 28 49 2C 4E 29 B2 41 00 A1 14 80 02 82 4E 2C |O(I,N).A......N,|
00000CA0: 49 00 B8 14 85 02 8B 4D 41 B1 4C 52 B0 4C 52 B1 |I......MA.LR.LR.|
00000CB0: 4D 41 AA 31 A7 35 31 30 00 E6 14 8A 02 99 22 11 |MA.1.510......".|
00000CC0: 11 49 20 46 4F 55 4E 44 22 4E 4D 22 4C 45 54 54 |.I FOUND"NM"LETT|
00000CD0: 45 52 53 3A 11 22 3A 8B 4E 4D B3 32 B0 4E 4D B1 |ERS:.":.NM.2.NM.|
00000CE0: 31 30 A7 35 31 30 00 14 15 8F 02 81 49 B2 31 A4 |10.510......I.1.|
00000CF0: 4E 4D 3A 99 22 20 22 49 4E 24 28 49 29 3B 3A 53 |NM:." "IN$(I);:S|
00000D00: 4F 28 49 29 B2 31 33 3A 54 52 28 49 29 B2 31 30 |O(I).13:TR(I).10|
00000D10: 3A 82 3A 99 00 23 15 94 02 8B 4C 52 B2 4D 41 A7 |:.:..#....LR.MA.|
00000D20: 36 37 35 00 36 15 99 02 8B 41 31 B2 31 A7 53 4F |675.6....A1.1.SO|
00000D30: 28 41 29 B2 31 32 00 7E 15 9E 02 8B 41 31 B2 30 |(A).12.~....A1.0|
00000D40: A7 54 52 28 41 29 B2 31 3A 53 4F 28 41 29 B2 31 |.TR(A).1:SO(A).1|
00000D50: 3A 55 28 31 29 B2 31 3A 4C 28 41 29 B2 31 3A 4E |:U(1).1:L(A).1:N|
00000D60: 43 B2 31 3A 43 53 24 28 31 29 B2 49 4E 24 28 41 |C.1:CS$(1).IN$(A|
00000D70: 29 AA 22 20 4D 55 53 54 20 42 45 20 31 22 00 90 |)." MUST BE 1"..|
00000D80: 15 A3 02 8D 31 30 30 30 3A 8F 20 43 4C 55 45 53 |....1000:. CLUES|
00000D90: 00 C0 15 A8 02 81 49 B2 31 A4 52 3A 41 B2 43 4F |......I.1.R:A.CO|
00000DA0: 28 49 2C C3 28 52 57 24 28 49 29 29 29 3A 8B 53 |(I,.(RW$(I))):.S|
00000DB0: 4F 28 41 29 B2 31 33 A7 53 4F 28 41 29 B2 31 35 |O(A).13.SO(A).15|
00000DC0: 00 F3 15 AD 02 8B 53 4F 28 41 29 B2 30 A7 99 43 |......SO(A).0..C|
00000DD0: 53 24 28 30 29 3A 99 49 4E 24 28 41 29 22 20 43 |S$(0):.IN$(A)" C|
00000DE0: 41 4E 27 54 20 42 45 20 5A 45 52 4F 21 22 3A 89 |AN'T BE ZERO!":.|
00000DF0: 35 31 30 00 F9 15 B2 02 82 00 02 16 B7 02 8D 33 |510............3|
00000E00: 37 30 00 2A 16 BC 02 99 22 05 54 48 49 53 20 57 |70.*....".THIS W|
00000E10: 49 4C 4C 20 54 41 4B 45 20 41 20 46 45 57 20 4D |ILL TAKE A FEW M|
00000E20: 49 4E 55 54 45 53 2D 2D 11 22 00 52 16 BE 02 99 |INUTES--.".R....|
00000E30: 22 11 53 48 4F 55 4C 44 20 49 20 3C 50 3E 52 4F |".SHOULD I <P>RO|
00000E40: 43 45 45 44 20 4F 52 20 3C 43 3E 41 4E 43 45 4C |CEED OR <C>ANCEL|
00000E50: 3F 22 00 7D 16 C1 02 97 31 39 38 2C 30 3A 92 31 |?".}....198,0:.1|
00000E60: 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 50 |98,1:.A$:.A$.."P|
00000E70: 22 AF 41 24 B3 B1 22 43 22 A7 37 30 35 00 8D 16 |".A$.."C".705...|
00000E80: CB 02 8B 41 24 B2 22 43 22 A7 35 32 30 00 93 16 |...A$."C".520...|
00000E90: D0 02 3A 00 CE 16 D5 02 54 49 24 B2 22 30 30 30 |..:.....TI$."000|
00000EA0: 30 30 30 22 3A 99 22 11 54 48 49 4E 4B 49 4E 47 |000":.".THINKING|
00000EB0: 2E 2E 2E 11 22 3A 99 22 3C 50 52 45 53 53 20 41 |....":."<PRESS A|
00000EC0: 20 4B 45 59 20 54 4F 20 51 55 49 54 3E 22 00 F8 | KEY TO QUIT>"..|
00000ED0: 16 DA 02 81 43 B2 31 A4 4D 41 3A 49 B2 30 3A 81 |....C.1.MA:I.0:.|
00000EE0: 4E B2 31 A4 52 AB 31 3A 8B 43 B1 C3 28 52 57 24 |N.1.R.1:.C..(RW$|
00000EF0: 28 4E 29 29 A7 37 35 30 00 14 17 DF 02 41 B2 43 |(N)).750.....A.C|
00000F00: 4F 28 4E 2C 43 29 3A 8B 4C 28 41 29 B0 41 B2 30 |O(N,C):.L(A).A.0|
00000F10: A7 37 35 30 00 39 17 E4 02 8B 52 50 28 43 29 B2 |.750.9....RP(C).|
00000F20: 30 A7 8B 41 B2 43 4F 28 52 2C 43 29 A7 52 50 28 |0..A.CO(R,C).RP(|
00000F30: 43 29 B2 4E 3A 89 37 35 30 00 54 17 E9 02 49 B2 |C).N:.750.T...I.|
00000F40: 49 AA 31 3A 44 49 28 43 2C 49 29 B2 41 3A 4C 28 |I.1:DI(C,I).A:L(|
00000F50: 41 29 B2 31 00 78 17 EE 02 82 3A 4E 44 28 43 29 |A).1.x....:ND(C)|
00000F60: B2 49 3A 8B 4C 28 43 4F 28 52 2C 43 29 29 B0 52 |.I:.L(CO(R,C)).R|
00000F70: 50 28 43 29 A7 37 36 30 00 91 17 F3 02 4C 28 43 |P(C).760.....L(C|
00000F80: 4F 28 52 2C 43 29 29 B2 31 3A 53 58 28 43 29 B2 |O(R,C)).1:SX(C).|
00000F90: 31 00 C4 17 F8 02 82 3A 8B 4C 52 B1 4D 41 A7 8B |1......:.LR.MA..|
00000FA0: 4C 28 43 4F 28 52 2C 4C 52 29 29 B2 30 A7 4C 28 |L(CO(R,LR)).0.L(|
00000FB0: 43 4F 28 52 2C 4C 52 29 29 B2 31 3A 53 58 28 4C |CO(R,LR)).1:SX(L|
00000FC0: 52 29 B2 31 00 E8 17 FD 02 49 B2 30 3A 81 43 B2 |R).1.....I.0:.C.|
00000FD0: 31 A4 4D 41 3A 41 B2 43 4F 28 52 2C 43 29 3A 8B |1.MA:A.CO(R,C):.|
00000FE0: 4C 28 41 29 A7 37 37 35 00 04 18 02 03 49 B2 49 |L(A).775.....I.I|
00000FF0: AA 31 3A 44 49 28 31 32 2C 49 29 B2 41 3A 4C 28 |.1:DI(12,I).A:L(|
00001000: 41 29 B2 31 00 17 18 07 03 82 3A 4E 44 28 31 32 |A).1......:ND(12|
00001010: 29 B2 49 3A 43 B2 31 00 2B 18 20 03 8D 31 31 30 |).I:C.1.+. ..110|
00001020: 3A 8F 20 53 4F 4C 55 54 49 4F 4E 00 4E 18 2A 03 |:. SOLUTION.N.*.|
00001030: 42 24 B2 54 49 24 3A 8D 34 37 35 3A 99 22 20 54 |B$.TI$:.475:." T|
00001040: 4F 54 41 4C 20 54 49 4D 45 3A 20 22 42 24 00 6E |OTAL TIME: "B$.n|
00001050: 18 2F 03 8B 50 A7 9D 50 3A 99 22 20 54 4F 54 41 |./..P..P:." TOTA|
00001060: 4C 20 54 49 4D 45 3A 20 22 42 24 3A 98 50 00 90 |L TIME: "B$:.P..|
00001070: 18 34 03 8B 53 A7 99 22 11 4E 4F 20 4D 4F 52 45 |.4..S..".NO MORE|
00001080: 20 53 4F 4C 55 54 49 4F 4E 53 22 3A 89 35 32 30 | SOLUTIONS":.520|
00001090: 00 C0 18 39 03 8B 50 A7 9D 50 3A 8D 33 37 35 3A |...9..P..P:.375:|
000010A0: 99 22 20 53 4F 52 52 59 2E 2E 20 4E 4F 20 53 4F |." SORRY.. NO SO|
000010B0: 4C 55 54 49 4F 4E 20 46 4F 55 4E 44 22 3A 98 50 |LUTION FOUND":.P|
000010C0: 00 EB 18 3E 03 8D 33 37 35 3A 99 22 53 4F 52 52 |...>..375:."SORR|
000010D0: 59 2E 2E 20 4E 4F 20 53 4F 4C 55 54 49 4F 4E 20 |Y.. NO SOLUTION |
000010E0: 46 4F 55 4E 44 22 3A 89 35 32 30 00 F1 18 7A 03 |FOUND":.520...z.|
000010F0: 3A 00 04 19 7F 03 8F 20 49 4E 53 54 52 55 43 54 |:...... INSTRUCT|
00001100: 49 4F 4E 53 00 35 19 84 03 99 22 93 22 2C 22 41 |IONS.5....".","A|
00001110: 44 44 49 54 49 4F 4E 20 50 55 5A 5A 4C 45 22 3A |DDITION PUZZLE":|
00001120: 99 2C 22 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |.,"+++++++++++++|
00001130: 2B 2B 22 3A 99 00 7A 19 89 03 99 22 54 48 49 53 |++":..z...."THIS|
00001140: 20 50 52 4F 47 52 41 4D 20 53 4F 4C 56 45 53 20 | PROGRAM SOLVES |
00001150: 41 4C 50 48 41 4D 45 54 49 43 20 41 44 44 49 54 |ALPHAMETIC ADDIT|
00001160: 49 4F 4E 20 50 55 5A 5A 4C 45 53 20 4F 46 20 54 |ION PUZZLES OF T|
00001170: 48 49 53 20 54 59 50 45 3A 22 00 9E 19 8E 03 99 |HIS TYPE:"......|
00001180: 3A 99 22 20 20 20 57 41 53 22 3A 99 22 20 20 54 |:." WAS":." T|
00001190: 48 41 54 22 3A 99 22 20 20 20 41 4C 4C 22 00 B6 |HAT":." ALL"..|
000011A0: 19 90 03 99 22 20 2D 2D 2D 2D 2D 22 3A 99 22 20 |...." -----":." |
000011B0: 52 49 47 48 54 22 00 E8 19 93 03 99 3A 99 22 45 |RIGHT"......:."E|
000011C0: 41 43 48 20 4C 45 54 54 45 52 20 53 54 41 4E 44 |ACH LETTER STAND|
000011D0: 53 20 46 4F 52 20 41 20 44 49 46 46 45 52 45 4E |S FOR A DIFFEREN|
000011E0: 54 20 44 49 47 49 54 22 00 16 1A 98 03 99 22 53 |T DIGIT"......"S|
000011F0: 49 4D 50 4C 59 20 45 4E 54 45 52 20 54 48 45 20 |IMPLY ENTER THE |
00001200: 50 55 5A 5A 4C 45 20 57 48 45 4E 20 50 52 4F 4D |PUZZLE WHEN PROM|
00001210: 50 54 45 44 2E 22 00 45 1A 9D 03 99 22 41 4C 4C |PTED.".E...."ALL|
00001220: 4F 57 20 53 45 56 45 52 41 4C 20 4D 49 4E 55 54 |OW SEVERAL MINUT|
00001230: 45 53 20 46 4F 52 20 54 48 45 20 53 4F 4C 55 54 |ES FOR THE SOLUT|
00001240: 49 4F 4E 2E 22 00 75 1A A2 03 99 3A 99 22 41 4E |ION.".u....:."AN|
00001250: 59 20 43 4C 55 45 53 20 59 4F 55 20 43 41 4E 20 |Y CLUES YOU CAN |
00001260: 4F 46 46 45 52 20 57 49 4C 4C 20 53 50 45 45 44 |OFFER WILL SPEED|
00001270: 20 54 48 45 22 00 A4 1A A7 03 99 22 50 52 4F 43 | THE"......"PROC|
00001280: 45 53 53 2E 20 20 49 4E 20 54 48 49 53 20 45 58 |ESS. IN THIS EX|
00001290: 41 4D 50 4C 45 2C 20 52 20 4D 55 53 54 20 42 45 |AMPLE, R MUST BE|
000012A0: 20 31 3B 22 00 D2 1A AC 03 99 22 49 54 20 49 53 | 1;"......"IT IS|
000012B0: 20 47 49 56 45 4E 20 54 48 41 54 20 27 57 41 53 | GIVEN THAT 'WAS|
000012C0: 27 20 4D 55 53 54 20 42 45 20 53 51 55 41 52 45 |' MUST BE SQUARE|
000012D0: 2E 22 00 EF 1A B6 03 99 22 11 55 53 49 4E 47 20 |."......".USING |
000012E0: 41 20 50 52 49 4E 54 45 52 3F 20 59 2F 4E 22 00 |A PRINTER? Y/N".|
000012F0: FD 1A BB 03 8D 34 36 35 3A 99 22 93 22 00 13 1B |.....465:."."...|
00001300: C0 03 8B 41 24 B3 B1 22 59 22 A7 97 38 32 38 2C |...A$.."Y"..828,|
00001310: 30 3A 8E 00 3B 1B C5 03 99 3A 99 22 45 4E 54 45 |0:..;....:."ENTE|
00001320: 52 20 54 48 45 20 44 41 54 45 20 28 4E 4F 20 43 |R THE DATE (NO C|
00001330: 4F 4D 4D 41 53 29 22 3A 85 41 24 00 59 1B C7 03 |OMMAS)":.A$.Y...|
00001340: 9F 31 35 2C 34 2C 31 35 3A A0 31 35 3A 8B 53 54 |.15,4,15:.15:.ST|
00001350: B3 B1 30 A7 36 30 30 30 30 00 69 1B CA 03 97 38 |..0.60000.i....8|
00001360: 32 38 2C 34 3A 9F 34 2C 34 00 8E 1B CF 03 98 34 |28,4:.4,4......4|
00001370: 2C C7 28 31 34 29 22 2A 2A 41 44 44 49 54 49 4F |,.(14)"**ADDITIO|
00001380: 4E 20 4D 41 53 54 45 52 2A 2A 20 22 41 24 00 94 |N MASTER** "A$..|
00001390: 1B D4 03 8E 00 9A 1B DE 03 3A 00 AA 1B E3 03 8F |.........:......|
000013A0: 20 47 45 54 20 43 4C 55 45 53 00 D0 1B E8 03 99 | GET CLUES......|
000013B0: 3A 99 22 43 41 4E 20 59 4F 55 20 4F 46 46 45 52 |:."CAN YOU OFFER|
000013C0: 20 41 4E 59 20 43 4C 55 45 53 3F 20 59 2F 4E 22 | ANY CLUES? Y/N"|
000013D0: 00 09 1C F2 03 43 53 24 28 32 31 29 B2 22 50 52 |.....CS$(21)."PR|
000013E0: 49 4D 45 22 3A 43 53 24 28 32 32 29 B2 22 4E 4F |IME":CS$(22)."NO|
000013F0: 54 20 50 52 49 4D 45 22 3A 43 53 24 28 32 33 29 |T PRIME":CS$(23)|
00001400: B2 22 53 51 55 41 52 45 22 00 50 1C FC 03 43 53 |."SQUARE".P...CS|
00001410: 24 28 32 34 29 B2 22 4E 4F 54 20 53 51 55 41 52 |$(24)."NOT SQUAR|
00001420: 45 22 3A 43 53 24 28 32 36 29 B2 22 45 56 45 4E |E":CS$(26)."EVEN|
00001430: 22 3A 43 53 24 28 32 37 29 B2 22 4F 44 44 22 3A |":CS$(27)."ODD":|
00001440: 43 53 24 28 32 38 29 B2 22 31 20 4F 52 20 32 22 |CS$(28)."1 OR 2"|
00001450: 00 63 1C 06 04 8D 34 36 35 3A 8B 41 24 B2 22 4E |.c....465:.A$."N|
00001460: 22 A7 8E 00 93 1C 10 04 8D 33 37 30 3A 99 3A 99 |"........370:.:.|
00001470: 22 50 52 45 53 53 20 54 48 45 20 4C 45 54 54 45 |"PRESS THE LETTE|
00001480: 52 20 54 48 45 20 43 4C 55 45 20 49 53 20 46 4F |R THE CLUE IS FO|
00001490: 52 2E 22 00 C2 1C 1A 04 99 22 54 4F 20 53 50 45 |R."......"TO SPE|
000014A0: 43 49 46 59 20 41 20 4C 49 4E 45 2C 20 50 52 45 |CIFY A LINE, PRE|
000014B0: 53 53 20 54 48 45 20 53 50 41 43 45 20 42 41 52 |SS THE SPACE BAR|
000014C0: 3A 22 00 D8 1C 24 04 8D 34 37 30 3A 8B 41 24 B2 |:"...$..470:.A$.|
000014D0: 22 20 22 A7 31 33 35 30 00 F4 1C 2E 04 81 49 B2 |" ".1350......I.|
000014E0: 31 A4 4E 4D 3A 8B 49 4E 24 28 49 29 B2 41 24 A7 |1.NM:.IN$(I).A$.|
000014F0: 31 31 30 30 00 FA 1C 38 04 82 00 0D 1D 42 04 99 |1100...8.....B..|
00001500: 41 24 22 3F 3F 3F 22 3A 89 31 33 33 30 00 42 1D |A$"???":.1330.B.|
00001510: 4C 04 99 3A 99 22 50 52 45 53 53 20 54 48 45 20 |L..:."PRESS THE |
00001520: 56 41 4C 55 45 20 4F 46 20 54 48 45 20 4C 45 54 |VALUE OF THE LET|
00001530: 54 45 52 20 27 22 41 24 22 27 2C 20 4F 52 2E 2E |TER '"A$"', OR..|
00001540: 2E 22 00 7D 1D 56 04 99 22 41 20 20 49 46 20 45 |.".}.V.."A IF E|
00001550: 56 45 4E 22 3A 99 22 42 20 20 49 46 20 4F 44 44 |VEN":."B IF ODD|
00001560: 22 3A 99 22 43 20 20 49 46 20 49 54 20 43 4F 55 |":."C IF IT COU|
00001570: 4C 44 20 42 45 20 31 20 4F 52 20 32 22 00 A3 1D |LD BE 1 OR 2"...|
00001580: 60 04 92 31 39 38 2C 33 3A A1 42 24 3A 54 4A B2 |`..198,3:.B$:TJ.|
00001590: C6 28 42 24 29 AB 34 38 AA 37 AC 28 42 24 B1 22 |.(B$).48.7.(B$."|
000015A0: 39 22 29 00 B8 1D 6A 04 8B 54 4A B3 30 B0 54 4A |9")...j..TJ.0.TJ|
000015B0: B1 31 32 A7 31 30 39 30 00 D1 1D 74 04 53 4A B2 |.12.1090...t.SJ.|
000015C0: 53 4F 28 49 29 3A 8B 54 4A B3 31 30 A7 31 32 33 |SO(I):.TJ.10.123|
000015D0: 30 00 ED 1D 7E 04 8B 53 4A B3 31 30 A7 99 41 24 |0...~..SJ.10..A$|
000015E0: 22 20 49 53 22 53 4A 3A 89 31 33 33 30 00 1A 1E |" IS"SJ:.1330...|
000015F0: 88 04 91 53 4A AB 39 89 31 31 37 30 2C 31 31 38 |...SJ.9.1170,118|
00001600: 30 2C 31 31 39 30 2C 31 33 31 30 2C 31 32 30 30 |0,1190,1310,1200|
00001610: 2C 31 33 31 30 2C 31 32 31 30 00 32 1E 92 04 91 |,1310,1210.2....|
00001620: 54 4A AB 39 89 31 30 39 30 2C 35 31 30 2C 31 35 |TJ.9.1090,510,15|
00001630: 38 30 00 4A 1E 9C 04 91 54 4A AB 39 89 35 31 30 |80.J....TJ.9.510|
00001640: 2C 31 30 39 30 2C 31 35 37 30 00 63 1E A6 04 91 |,1090,1570.c....|
00001650: 54 4A AB 39 89 31 35 39 30 2C 31 35 37 30 2C 31 |TJ.9.1590,1570,1|
00001660: 30 39 30 00 7B 1E B0 04 91 54 4A AB 39 89 35 31 |090.{....TJ.9.51|
00001670: 30 2C 31 33 31 30 2C 31 35 37 30 00 94 1E BA 04 |0,1310,1570.....|
00001680: 91 54 4A AB 39 89 31 33 31 30 2C 31 33 31 30 2C |.TJ.9.1310,1310,|
00001690: 31 35 37 30 00 A4 1E CE 04 8B 53 4A B2 54 4A A7 |1570......SJ.TJ.|
000016A0: 31 30 39 30 00 B3 1E D8 04 8B 53 4A B3 31 30 A7 |1090......SJ.10.|
000016B0: 35 31 30 00 C6 1E E2 04 8D 32 37 30 3A 8B 41 31 |510......270:.A1|
000016C0: B2 30 A7 35 31 30 00 F2 1E EC 04 4E 43 B2 4E 43 |.0.510.....NC.NC|
000016D0: AA 31 3A 43 53 24 28 4E 43 29 B2 49 4E 24 28 49 |.1:CS$(NC).IN$(I|
000016E0: 29 AA 22 20 4D 55 53 54 20 42 45 22 AA C4 28 54 |)." MUST BE"..(T|
000016F0: 4A 29 00 17 1F F6 04 55 28 54 4A 29 B2 31 3A 4C |J).....U(TJ).1:L|
00001700: 28 49 29 B2 31 3A 54 52 28 49 29 B2 54 4A 3A 53 |(I).1:TR(I).TJ:S|
00001710: 4F 28 49 29 B2 54 4A 00 2D 1F 00 05 81 4E B2 31 |O(I).TJ.-....N.1|
00001720: A4 4E 4D 3A 8B 49 B2 4E A7 31 33 30 30 00 67 1F |.NM:.I.N.1300.g.|
00001730: 0A 05 8B 54 4A B2 53 4F 28 4E 29 A7 99 3A 99 49 |...TJ.SO(N)..:.I|
00001740: 4E 24 28 49 29 22 20 26 20 22 49 4E 24 28 4E 29 |N$(I)" & "IN$(N)|
00001750: 22 20 43 41 4E 27 54 20 42 4F 54 48 20 42 45 22 |" CAN'T BOTH BE"|
00001760: 54 4A 3A 89 35 31 30 00 73 1F 14 05 82 3A 89 31 |TJ:.510.s....:.1|
00001770: 33 32 30 00 AE 1F 1E 05 53 4F 28 49 29 B2 54 4A |320.....SO(I).TJ|
00001780: 3A 4E 43 B2 4E 43 AA 31 3A 43 53 24 28 4E 43 29 |:NC.NC.1:CS$(NC)|
00001790: B2 49 4E 24 28 49 29 AA 22 20 4D 55 53 54 20 42 |.IN$(I)." MUST B|
000017A0: 45 20 22 AA 43 53 24 28 54 4A AA 31 36 29 00 BD |E ".CS$(TJ.16)..|
000017B0: 1F 28 05 99 3A 99 43 53 24 28 4E 43 29 00 DE 1F |.(..:.CS$(NC)...|
000017C0: 32 05 99 22 41 4E 59 20 4D 4F 52 45 20 43 4C 55 |2.."ANY MORE CLU|
000017D0: 45 53 3F 20 59 2F 4E 22 3A 89 31 30 33 30 00 E4 |ES? Y/N":.1030..|
000017E0: 1F 3C 05 3A 00 09 20 46 05 99 3A 85 22 4C 49 4E |.<.:.. F..:."LIN|
000017F0: 45 20 4E 55 4D 42 45 52 22 3B 41 3A 8B 41 B3 31 |E NUMBER";A:.A.1|
00001800: B0 41 B1 52 A7 31 30 39 30 00 22 20 50 05 99 3A |.A.R.1090." P..:|
00001810: 99 52 57 24 28 41 29 22 20 2D 20 49 53 20 49 54 |.RW$(A)" - IS IT|
00001820: 3A 22 00 44 20 5A 05 99 3A 99 22 31 20 50 52 49 |:".D Z..:."1 PRI|
00001830: 4D 45 3F 22 3A 99 22 32 20 4E 4F 54 20 50 52 49 |ME?":."2 NOT PRI|
00001840: 4D 45 3F 22 00 66 20 64 05 99 22 33 20 53 51 55 |ME?".f d.."3 SQU|
00001850: 41 52 45 3F 22 3A 99 22 34 20 4E 4F 54 20 53 51 |ARE?":."4 NOT SQ|
00001860: 55 41 52 45 3F 22 00 7F 20 6E 05 99 22 35 20 4F |UARE?".. n.."5 O|
00001870: 44 44 3F 22 3A 99 22 36 20 45 56 45 4E 3F 22 00 |DD?":."6 EVEN?".|
00001880: 96 20 78 05 99 22 50 52 45 53 53 20 41 20 4E 55 |. x.."PRESS A NU|
00001890: 4D 42 45 52 2E 22 00 B5 20 82 05 8D 34 36 35 3A |MBER.".. ...465:|
000018A0: 42 B2 C5 28 41 24 29 3A 8B 42 B2 30 B0 42 B1 36 |B..(A$):.B.0.B.6|
000018B0: A7 31 30 39 30 00 D5 20 8C 05 49 B2 43 4F 28 41 |.1090.. ..I.CO(A|
000018C0: 2C 31 29 3A 4E 43 B2 4E 43 AA 31 3A 8B 42 B3 35 |,1):NC.NC.1:.B.5|
000018D0: A7 31 34 34 30 00 11 21 96 05 43 53 24 28 4E 43 |.1440..!..CS$(NC|
000018E0: 29 B2 52 57 24 28 41 29 AA 22 20 49 53 20 22 AA |).RW$(A)." IS ".|
000018F0: 43 53 24 28 33 32 AB 42 29 3A 54 4A B2 31 36 AB |CS$(32.B):TJ.16.|
00001900: 42 3A 41 24 B2 49 4E 24 28 49 29 3A 89 31 31 34 |B:A$.IN$(I):.114|
00001910: 30 00 3D 21 A0 05 43 4C 28 41 29 B2 42 3A 43 53 |0.=!..CL(A).B:CS|
00001920: 24 28 4E 43 29 B2 52 57 24 28 41 29 AA 22 20 49 |$(NC).RW$(A)." I|
00001930: 53 20 22 AA 43 53 24 28 42 AA 32 30 29 00 54 21 |S ".CS$(B.20).T!|
00001940: AA 05 8B C3 28 52 57 24 28 41 29 29 B3 B2 38 A7 |....(RW$(A))..8.|
00001950: 31 34 36 30 00 8C 21 AF 05 43 4C 28 41 29 B2 30 |1460..!..CL(A).0|
00001960: 3A 99 22 49 20 43 41 4E 27 54 20 45 4E 53 55 52 |:."I CAN'T ENSUR|
00001970: 45 20 54 48 41 54 22 3A 43 53 24 28 4E 43 29 B2 |E THAT":CS$(NC).|
00001980: 43 53 24 28 4E 43 29 AA 22 3F 3F 22 00 A2 21 B4 |CS$(NC)."??"..!.|
00001990: 05 8B C3 28 52 57 24 28 41 29 29 B2 31 A7 31 33 |...(RW$(A)).1.13|
000019A0: 32 30 00 BD 21 BE 05 91 42 89 31 34 39 30 2C 31 |20..!...B.1490,1|
000019B0: 33 32 30 2C 31 35 33 30 2C 31 33 32 30 00 C3 21 |320,1530,1320..!|
000019C0: C8 05 3A 00 D2 21 D2 05 53 4F B2 53 4F 28 49 29 |..:..!..SO.SO(I)|
000019D0: AA 31 00 14 22 D7 05 91 53 4F 89 35 30 35 2C 31 |.1.."...SO.505,1|
000019E0: 33 32 30 2C 35 31 30 2C 31 33 32 30 2C 35 31 30 |320,510,1320,510|
000019F0: 2C 35 31 30 2C 35 31 30 2C 31 33 32 30 2C 35 31 |,510,510,1320,51|
00001A00: 30 2C 31 33 32 30 2C 35 31 30 2C 31 35 31 30 2C |0,1320,510,1510,|
00001A10: 31 35 37 30 00 26 22 DC 05 8B 53 4F 28 49 29 B2 |1570.&"...SO(I).|
00001A20: 31 36 A7 35 31 30 00 39 22 E6 05 53 4F 28 49 29 |16.510.9"..SO(I)|
00001A30: B2 31 34 3A 89 31 33 32 30 00 3F 22 F0 05 3A 00 |.14:.1320.?"..:.|
00001A40: 7F 22 FA 05 91 53 4F 28 49 29 AA 31 89 31 33 32 |."...SO(I).1.132|
00001A50: 30 2C 31 33 32 30 2C 35 31 30 2C 35 31 30 2C 31 |0,1320,510,510,1|
00001A60: 33 32 30 2C 31 33 32 30 2C 31 33 32 30 2C 35 31 |320,1320,1320,51|
00001A70: 30 2C 35 31 30 2C 31 33 32 30 2C 31 33 32 30 00 |0,510,1320,1320.|
00001A80: A0 22 04 06 91 53 4F 28 49 29 AB 31 30 89 31 33 |."...SO(I).10.13|
00001A90: 32 30 2C 31 35 37 30 2C 31 35 35 30 2C 35 31 30 |20,1570,1550,510|
00001AA0: 00 B3 22 0E 06 53 4F 28 49 29 B2 31 36 3A 89 31 |.."..SO(I).16:.1|
00001AB0: 33 32 30 00 B9 22 18 06 3A 00 C7 22 22 06 41 B2 |320.."..:.."".A.|
00001AC0: 31 3A 89 31 35 39 30 00 CF 22 2C 06 41 B2 32 00 |1:.1590..",.A.2.|
00001AD0: F9 22 36 06 53 4F 28 49 29 B2 41 3A 54 52 28 49 |."6.SO(I).A:TR(I|
00001AE0: 29 B2 41 3A 55 28 41 29 B2 31 3A 4C 28 49 29 B2 |).A:U(A).1:L(I).|
00001AF0: 31 3A 4E 43 B2 4E 43 AA 31 00 22 23 40 06 43 53 |1:NC.NC.1."#@.CS|
00001B00: 24 28 4E 43 29 B2 49 4E 24 28 49 29 AA 22 20 4D |$(NC).IN$(I)." M|
00001B10: 55 53 54 20 42 45 22 AA C4 28 41 29 3A 89 31 32 |UST BE"..(A):.12|
00001B20: 38 30 00 28 23 C6 07 3A 00 3B 23 CB 07 8F 20 54 |80.(#..:.;#... T|
00001B30: 49 54 4C 45 20 53 43 52 45 45 4E 00 5E 23 D0 07 |ITLE SCREEN.^#..|
00001B40: 97 35 34 32 37 33 2C 35 30 3A 97 35 34 32 37 38 |.54273,50:.54278|
00001B50: 2C 32 34 33 3A 97 35 34 32 37 36 2C 33 33 00 7C |,243:.54276,33.||
00001B60: 23 DA 07 97 35 33 32 36 39 2C 30 3A 97 35 33 32 |#...53269,0:.532|
00001B70: 38 31 2C 30 3A 99 C7 28 31 34 32 29 00 B0 23 E4 |81,0:..(142)..#.|
00001B80: 07 99 22 93 96 08 12 20 20 20 20 20 20 2A 20 2A |..".... * *|
00001B90: 20 2A 20 41 44 44 49 54 49 4F 4E 20 20 4D 41 53 | * ADDITION MAS|
00001BA0: 54 45 52 20 2A 20 2A 20 2A 20 20 20 20 20 9A 22 |TER * * * ."|
00001BB0: 00 C9 23 EE 07 99 A3 31 34 29 22 11 96 42 59 20 |..#....14)"..BY |
00001BC0: 49 41 4E 20 41 44 41 4D 22 00 E7 23 F8 07 99 A3 |IAN ADAM"..#....|
00001BD0: 31 33 29 22 11 11 9A 57 4F 55 4C 44 20 59 4F 55 |13)"...WOULD YOU|
00001BE0: 20 4C 49 4B 45 3A 22 00 08 24 02 08 99 A3 31 33 | LIKE:"..$....13|
00001BF0: 29 22 11 9F 31 9A 2E 20 41 44 44 49 54 49 4F 4E |)"..1.. ADDITION|
00001C00: 20 50 55 5A 5A 4C 45 22 00 26 24 0C 08 99 A3 31 | PUZZLE".&$....1|
00001C10: 33 29 22 9F 32 9A 2E 20 50 52 49 4D 45 20 4E 55 |3)".2.. PRIME NU|
00001C20: 4D 42 45 52 53 22 00 3E 24 16 08 99 A3 31 33 29 |MBERS".>$....13)|
00001C30: 22 9F 33 9A 2E 20 53 51 55 41 52 45 53 22 00 53 |".3.. SQUARES".S|
00001C40: 24 20 08 99 A3 31 33 29 22 11 9F 30 9A 2E 20 45 |$ ...13)"..0.. E|
00001C50: 4E 44 22 00 5C 24 2A 08 8D 34 36 35 00 74 24 2F |ND".\$*..465.t$/|
00001C60: 08 8B 41 24 B3 22 30 22 B0 41 24 B1 22 33 22 A7 |..A$."0".A$."3".|
00001C70: 32 30 39 30 00 94 24 34 08 91 C5 28 41 24 29 AA |2090..$4...(A$).|
00001C80: 31 89 36 30 30 30 2C 35 30 30 2C 32 35 30 30 2C |1.6000,500,2500,|
00001C90: 33 30 30 30 00 9A 24 BA 09 3A 00 B0 24 C4 09 99 |3000..$..:..$...|
00001CA0: 22 93 50 52 49 4D 45 20 4E 55 4D 42 45 52 53 22 |".PRIME NUMBERS"|
00001CB0: 00 DC 24 CE 09 99 3A 99 22 31 2E 20 54 45 53 54 |..$...:."1. TEST|
00001CC0: 20 41 20 4E 55 4D 42 45 52 22 3A 99 22 32 2E 20 | A NUMBER":."2. |
00001CD0: 4C 49 53 54 20 50 52 49 4D 45 53 22 00 09 25 D8 |LIST PRIMES"..%.|
00001CE0: 09 99 22 33 2E 20 4C 49 53 54 20 4E 4F 4E 2D 50 |.."3. LIST NON-P|
00001CF0: 52 49 4D 45 53 22 3A 99 22 34 2E 20 42 41 43 4B |RIMES":."4. BACK|
00001D00: 20 54 4F 20 4D 45 4E 55 22 00 25 25 E2 09 8D 34 | TO MENU".%%...4|
00001D10: 37 30 3A 42 B2 C5 28 41 24 29 3A 8B 42 B3 31 B0 |70:B..(A$):.B.1.|
00001D20: 42 B1 33 A7 8A 00 3D 25 00 0A 99 22 93 45 4E 54 |B.3...=%...".ENT|
00001D30: 45 52 20 30 20 54 4F 20 53 54 4F 50 22 00 5C 25 |ER 0 TO STOP".\%|
00001D40: 0A 0A 99 3A 99 22 57 48 41 54 20 4E 55 4D 42 45 |...:."WHAT NUMBE|
00001D50: 52 20 54 4F 20 53 54 41 52 54 3F 22 00 7D 25 14 |R TO START?".}%.|
00001D60: 0A 43 B2 30 3A 85 43 3A 8D 34 37 35 3A 43 B2 B5 |.C.0:.C:.475:C..|
00001D70: 28 43 29 3A 8B 43 B3 31 A7 32 35 30 30 00 9A 25 |(C):.C.1.2500..%|
00001D80: 1E 0A 8B B6 28 43 29 B1 34 45 35 A7 99 22 2E 2E |....(C).4E5.."..|
00001D90: 2E 54 48 49 4E 4B 49 4E 47 22 00 C3 25 28 0A 8B |.THINKING"..%(..|
00001DA0: B6 28 43 29 B1 34 45 39 A7 99 22 54 48 41 54 27 |.(C).4E9.."THAT'|
00001DB0: 53 20 54 4F 4F 20 42 49 47 21 22 3A 99 3A 89 32 |S TOO BIG!":.:.2|
00001DC0: 35 31 30 00 D1 25 32 0A 8B 42 B1 31 A7 32 36 37 |510..%2..B.1.267|
00001DD0: 30 00 E1 25 3C 0A 41 B2 B6 28 43 29 3A 8D 33 35 |0..%<.A..(C):.35|
00001DE0: 30 00 FE 25 46 0A 8B 41 31 B2 30 A7 99 43 22 49 |0..%F..A1.0..C"I|
00001DF0: 53 20 50 52 49 4D 45 22 3A 89 32 36 36 30 00 1A |S PRIME":.2660..|
00001E00: 26 50 0A 99 43 22 49 53 20 4E 4F 54 20 50 52 49 |&P..C"IS NOT PRI|
00001E10: 4D 45 2C 20 42 45 49 4E 47 22 00 39 26 5A 0A 99 |ME, BEING".9&Z..|
00001E20: 22 44 49 56 49 53 49 42 4C 45 20 42 59 22 41 31 |"DIVISIBLE BY"A1|
00001E30: 22 41 4E 44 22 43 AD 41 31 00 4E 26 64 0A 99 3A |"AND"C.A1.N&d..:|
00001E40: 99 22 4E 45 58 54 22 3B 3A 89 32 35 38 30 00 6C |."NEXT";:.2580.l|
00001E50: 26 6E 0A 81 44 B2 31 A4 32 32 3A 41 B2 B6 28 43 |&n..D.1.22:A..(C|
00001E60: 29 3A 8D 33 35 30 3A 43 B2 43 AA 31 00 84 26 78 |):.350:C.C.1..&x|
00001E70: 0A 8B 28 41 31 B1 30 29 B2 42 AB 33 A7 44 B2 44 |..(A1.0).B.3.D.D|
00001E80: AB 31 3A 82 00 98 26 82 0A 99 43 AB 31 3A 82 3A |.1:...&...C.1:.:|
00001E90: 99 22 4D 4F 52 45 3F 22 00 AE 26 8C 0A 8D 34 36 |."MORE?"..&...46|
00001EA0: 35 3A 8B 41 24 B2 22 4E 22 A7 32 35 30 30 00 B8 |5:.A$."N".2500..|
00001EB0: 26 96 0A 89 32 35 39 30 00 BE 26 AE 0B 3A 00 D5 |&...2590..&..:..|
00001EC0: 26 B8 0B 99 22 93 53 51 55 41 52 45 20 4E 55 4D |&...".SQUARE NUM|
00001ED0: 42 45 52 53 22 00 02 27 C2 0B 99 3A 99 22 31 2E |BERS"..'...:."1.|
00001EE0: 20 54 45 53 54 20 41 20 4E 55 4D 42 45 52 22 3A | TEST A NUMBER":|
00001EF0: 99 22 32 2E 20 4C 49 53 54 20 53 51 55 41 52 45 |."2. LIST SQUARE|
00001F00: 53 22 00 30 27 CC 0B 99 22 33 2E 20 42 41 43 4B |S".0'..."3. BACK|
00001F10: 20 54 4F 20 4D 45 4E 55 22 3A 4B 33 B2 31 AA 32 | TO MENU":K3.1.2|
00001F20: 45 AB 37 3A 8D 34 37 30 3A 44 B2 C5 28 41 24 29 |E.7:.470:D..(A$)|
00001F30: 00 3F 27 D6 0B 8B 44 B2 30 B0 44 B1 32 A7 8A 00 |.?'...D.0.D.2...|
00001F40: 5E 27 E0 0B 99 3A 99 22 57 48 41 54 20 4E 55 4D |^'...:."WHAT NUM|
00001F50: 42 45 52 20 54 4F 20 53 54 41 52 54 3F 22 00 75 |BER TO START?".u|
00001F60: 27 EA 0B 99 22 45 4E 54 45 52 20 30 20 54 4F 20 |'..."ENTER 0 TO |
00001F70: 51 55 49 54 22 00 99 27 F4 0B 41 B2 30 3A 85 41 |QUIT"..'..A.0:.A|
00001F80: 3A 8D 34 37 35 3A 41 B2 B6 28 B5 28 41 29 29 3A |:.475:A..(.(A)):|
00001F90: 8B 41 B2 30 A7 33 30 30 30 00 A9 27 FE 0B 8B 41 |.A.0.3000..'...A|
00001FA0: B1 34 45 39 A7 33 31 38 30 00 C6 27 08 0C 8B 44 |.4E9.3180..'...D|
00001FB0: B2 32 A7 42 B2 B5 28 BA 28 41 AB 31 29 29 AA 31 |.2.B..(.(A.1)).1|
00001FC0: 3A 89 33 31 34 30 00 DB 27 12 0C 42 B2 BA 28 41 |:.3140..'..B..(A|
00001FD0: 29 3A 43 B2 B5 28 42 AC 4B 33 29 00 EA 27 1C 0C |):C..(B.K3)..'..|
00001FE0: 99 3A 99 41 22 49 53 20 22 3B 00 11 28 26 0C 8B |.:.A"IS ";..(&..|
00001FF0: 41 B2 43 AC 43 A7 42 B2 43 3A 99 22 54 48 45 20 |A.C.C.B.C:."THE |
00002000: 53 51 55 41 52 45 20 4F 46 22 42 3A 89 33 31 33 |SQUARE OF"B:.313|
00002010: 30 00 2D 28 30 0C 99 22 4E 4F 54 20 53 51 55 41 |0.-(0.."NOT SQUA|
00002020: 52 45 22 3A 99 22 52 4F 4F 54 3A 22 42 00 43 28 |RE":."ROOT:"B.C(|
00002030: 3A 0C 99 22 11 4E 45 58 54 3A 20 22 3B 3A 89 33 |:..".NEXT: ";:.3|
00002040: 30 35 30 00 5D 28 44 0C 99 22 93 20 53 51 55 41 |050.](D..". SQUA|
00002050: 52 45 22 A3 32 30 29 22 52 4F 4F 54 22 00 79 28 |RE".20)"ROOT".y(|
00002060: 4E 0C 81 42 B2 42 A4 42 AA 32 31 3A 99 28 42 AC |N..B.B.B.21:.(B.|
00002070: 42 29 A3 32 30 29 42 3A 82 00 99 28 58 0C 99 22 |B).20)B:...(X.."|
00002080: 4D 4F 52 45 3F 22 3B 3A 8D 34 36 35 3A 8B 41 24 |MORE?";:.465:.A$|
00002090: B2 22 4E 22 A7 33 30 30 30 00 AB 28 62 0C 8B 42 |."N".3000..(b..B|
000020A0: AC 42 B3 34 45 39 A7 33 31 34 30 00 C3 28 6C 0C |.B.4E9.3140..(l.|
000020B0: 99 3A 99 22 54 4F 4F 20 42 49 47 21 22 3A 89 33 |.:."TOO BIG!":.3|
000020C0: 30 31 30 00 DA 28 88 13 8F 20 20 51 55 49 54 20 |010..(... QUIT |
000020D0: 50 52 4F 43 45 53 53 49 4E 47 00 02 29 92 13 99 |PROCESSING..)...|
000020E0: 22 11 11 20 20 2A 2A 2A 20 44 4F 20 59 4F 55 20 |".. *** DO YOU |
000020F0: 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 20 2A 2A |WANT TO QUIT? **|
00002100: 2A 22 00 2E 29 9C 13 97 31 39 38 2C 30 3A 92 31 |*"..)...198,0:.1|
00002110: 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B3 B1 22 59 |98,1:.A$:.A$.."Y|
00002120: 22 AF 41 24 B3 B1 22 4E 22 A7 35 30 32 30 00 4A |".A$.."N".5020.J|
00002130: 29 A6 13 41 47 B2 30 3A 8B 41 24 B2 22 59 22 A7 |)..AG.0:.A$."Y".|
00002140: 41 47 B2 31 3A 89 35 30 34 30 00 72 29 AB 13 99 |AG.1:.5040.r)...|
00002150: 22 49 20 53 48 41 4C 4C 20 43 4F 4E 54 49 4E 55 |"I SHALL CONTINU|
00002160: 45 20 57 49 54 48 20 4D 59 20 57 4F 52 4B 2E 2E |E WITH MY WORK..|
00002170: 2E 22 00 78 29 B0 13 8E 00 B1 29 70 17 9F 31 35 |.".x).....)p..15|
00002180: 2C 38 2C 31 35 2C 22 52 30 3A 48 45 4C 4C 4F 20 |,8,15,"R0:HELLO |
00002190: 43 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F 20 43 4F |CONNECT=HELLO CO|
000021A0: 4E 4E 45 43 54 22 3A 84 31 35 2C 45 52 3A A0 31 |NNECT":.15,ER:.1|
000021B0: 35 00 C5 29 7A 17 99 22 93 22 3B 3A 8B 45 52 B3 |5..)z..".";:.ER.|
000021C0: B1 36 33 A7 80 00 DC 29 84 17 93 22 48 45 4C 4C |.63....)..."HELL|
000021D0: 4F 20 43 4F 4E 4E 45 43 54 22 2C 38 00 ED 29 60 |O CONNECT",8..)`|
000021E0: EA 8F 20 4E 4F 20 50 52 49 4E 54 45 52 00 1C 2A |.. NO PRINTER..*|
000021F0: 6A EA 99 22 93 11 11 11 11 11 11 11 11 11 11 22 |j.."..........."|
00002200: A6 31 30 29 22 50 52 49 4E 54 45 52 20 4E 4F 54 |.10)"PRINTER NOT|
00002210: 20 4F 4E 2D 4C 49 4E 45 2E 2E 2E 22 00 33 2A 74 | ON-LINE...".3*t|
00002220: EA 81 44 4C B2 31 A4 33 30 30 30 3A 82 3A 89 32 |..DL.1.3000:.:.2|
00002230: 30 30 30 00 00 00 |000... |
......LN$."----------". ....2000.A...C.M
A:.SX(C).U(TR(CO(R,C)))...K....N.35.`...
F..:C.C.1:.C.....|....SX(C).U(TR(CO(R,C)
)).......N.ND(C):.N...15......I.1.N:L(I)
.TR(DI(C,I)):....#..258:.F.15...(..I.1.N
:TJ.L(I):SJ.SO(DI(C,I)):.270:.A1...35...
-.TR(DI(C,I)).TJ:..*.2.TJ.CA(C.1):.I.1.R
.1:.C.C(RW$(I)).65.G.4..B(198)..0..5000:
.AG.1...W.7..RP(C).I.65.M.<.TJ.TJ.TR(CO(
I,C))...A..:CA(C)..(TJ.10):TJ.TJ.10.CA(C
):.RP(C)..TJ.10...F..RP(C).105.I.K.A.CO(
R,C):.A..SX(C).90...P..TJ.TR(A).105...U.
.10...Z..U(TJ).10..._.SJ.SO(A):.270:.A1.
..10.!.D.TR(A).TJ:U(TJ).1.5.I.C.C.1:.C.M
A.120.N.N.A1..:N.ND(C):.N...50.[.S..252:
.40.~.X.TJ.CA(MA):.TJ....LR.MA.1.155,5..
.}..LR.MA.5.....A.CO(R,LR):.SX(C)...150.
.....U(TJ).5.N...SJ.SO(A):.270:.A1...5..
...TR(A).TJ:U(TJ).1:.155......TR(A).TJ.5
.....N.ND(12):.N...192... ..252:.185.)..
..N...175.;....258:.F...185.Y....SX(LR).
U(TR(CO(R,LR)))...J...C.MA:F..:.20......
I.1.N:TJ.L(I):SJ.SO(DI(12,I)):.270:.A1..
.170.....TR(DI(12,I)).TJ:..X....I.1.R:.T
R(CO(I,C(RW$(I))))...165...C..CL(I).0.23
0...H.A.0:.A1.C(RW$(I)).1..1:A.10.A.TR(C
O(I,A1)):..+.J..CL(I).2.215.H.M..350:.CL
(I).(A1.0).1.230.Q.R..165.B.W..CL(I).4.2
30.....B..(.(A).A2):A1.3:.A.B.B.A1.4....
..CL(I).A1.165.D....I:B$.TI$:S.S.1:.S.1.
.475:.235:. SOLUTION......:."THE NEXT SO
LUTION IS READY...":."PRESS A KEY TO SEE
IT."......P.4..465.0....".";:.400:.P..P
:.400:.P.N....:."LET ME GET BACK TO WORK
...":."<PRESS A KEY TO QUIT>".~...TI$.B
$:.165.....:...... SUBROUTINES.....I.1..
...L(I)..1.O...L(I).L(I).1:.U(L(I))..L(I
).9.254......L(I).9..U(9).259.....U(L(I)
).1:.I.N.I.I.1:.253.......-....I.N.1..1:
U(L(I))..:.L(I).9.254.9....:F.1:..?...:.
Q.... CHECK CLUES.|...A1.0:.SJ.9.275,275
,280,290,295,300,305.....A1.SJ.TJ.1.1:..
.....TJ.3.A1.TJ.........".A1.1:..H.'.A1.
.(3..(TJ.5)).1:..T.,.A1.TJ:....1.A1..(2.
5..(TJ.5))..5:....T.:...Y.. PRIME TEST..
.^..A.4.A1.0:..-.C..A.2..(A.2).A1.2:..N.
H..A1.3..(A).2:.A.A1..(A.A1)...[.M..:A1.
0:..V.R..".";:. DISPLAY PUZZLE...W..I.1.
R...|..I.R...15.LR)H(LN$,LR).......15.C(
RW$(I)))RW$(I):.:..T....I.0.NC:.CS$(I):.
:.:....... DISPLAY SOLUTION.......11)"SO
LUTION NO."S:..9)"===================".:
.....9)"TIME SO FAR: "B$:..R....I.1.R:A1
.C(RW$(I)).}....I.R...13.LR)H(LN$,LR).15
.LR)H(LN$,LR).......13.A1)RW$(I).15.A1);
......A.A1.1..1:.G(48.TR(CO(I,A)));:..G.
...:.:.......I.1.NM:." "IN$(I);:.:.....
.." ";:.I.1.NM:.TR(I);:.:.......:.I.1.NC
:.CS$(I):.. .B...&.G.:.;.L.. INPUT AND B
EEP.K.Q..475:. BEEP.A.V..198,3:.A$:.198,
0......54296,15:.I.1.20:.:.54296,0:.....
.:...... ENTER PUZZLE......900:.520.Q...
.:."I CAN'T HANDLE THIS STUFF..."......:
.I,C,N,TJ,A,A1,SJ,R:A2.1.2E.7......B(828
).P.4:.P,P.S....L(11),U(11),TR(10),DI(12
,10),RP(11),CA(12),CO(11,11),SO(10),RW$(
11)......SX(20),ND(12),SL(20,10),CL(11),
CS$(30),SL$(20)......475.T...."..THERE M
UST BE BETWEEN 3 AND 11 LINES, INCLUDI
NG THE SUM."...!.."HOW MANY LINES (0 TO
QUIT) ";R:.R.0.....&..R.3.R.11.510.9.+..
:."ENTER EACH LINE SEPARATELY:":..D.0..I
.1.R.B.5..RW$(I):.C(RW$(I)).10.510.W.:..
C(RW$(I)).0.510..?..:....D.CS$(0)."
"...I.LR.C(RW$(R)):.370.S.N.
.I.1.R:B.C(RW$(I)):.I.R.610...X..B.MA.A1
.A1.1...]..B.MA.A1.0:MA.B...B..N.1.B:A$.
H(I(RW$(I),N),1).@.G..F(A$).65.A.0:IN$(0
).A$:L(0).1:.635.[.L..A.1.10:.IN$(A).A$.
635.~.Q..IN$(A)."".IN$(A).A$:NM.A:.635..
.V..:NM.11...{.CO(I,N).A......N,I......M
A.LR.LR.MA.1.510......"..I FOUND"NM"LETT
ERS:.":.NM.2.NM.10.510......I.1.NM:." "I
N$(I);:SO(I).13:TR(I).10:.:..#....LR.MA.
675.6....A1.1.SO(A).12.~....A1.0.TR(A).1
:SO(A).1:U(1).1:L(A).1:NC.1:CS$(1).IN$(A
)." MUST BE 1"......1000:. CLUES......I.
1.R:A.CO(I,C(RW$(I))):.SO(A).13.SO(A).15
......SO(A).0..CS$(0):.IN$(A)" CAN'T BE
ZERO!":.510............370.*....".THIS W
ILL TAKE A FEW MINUTES--.".R....".SHOULD
I <P>ROCEED OR <C>ANCEL?".}.A..198,0:.1
98,1:.A$:.A$.."P".A$.."C".705...K..A$."C
".520...P.:.N.U.TI$."000000":.".THINKING
....":."<PRESS A KEY TO QUIT>"...Z..C.1.
MA:I.0:.N.1.R.1:.C.C(RW$(N)).750.....A.C
O(N,C):.L(A).A.0.750.9....RP(C).0..A.CO(
R,C).RP(C).N:.750.T...I.I.1:DI(C,I).A:L(
A).1.X....:ND(C).I:.L(CO(R,C)).RP(C).760
.....L(CO(R,C)).1:SX(C).1.D....:.LR.MA..
L(CO(R,LR)).0.L(CO(R,LR)).1:SX(LR).1....
.I.0:.C.1.MA:A.CO(R,C):.L(A).775.....I.I
.1:DI(12,I).A:L(A).1......:ND(12).I:C.1.
+. ..110:. SOLUTION.N.*.B$.TI$:.475:." T
OTAL TIME: "B$.N./..P..P:." TOTAL TIME:
"B$:.P...4..S..".NO MORE SOLUTIONS":.520
...9..P..P:.375:." SORRY.. NO SOLUTION F
OUND":.P...>..375:."SORRY.. NO SOLUTION
FOUND":.520...Z.:..... INSTRUCTIONS.5..
..".","ADDITION PUZZLE":.,"+++++++++++++
++":..Z...."THIS PROGRAM SOLVES ALPHAMET
IC ADDITION PUZZLES OF THIS TYPE:"......
:." WAS":." THAT":." ALL"......" --
---":." RIGHT"......:."EACH LETTER STAND
S FOR A DIFFERENT DIGIT"......"SIMPLY EN
TER THE PUZZLE WHEN PROMPTED.".E...."ALL
OW SEVERAL MINUTES FOR THE SOLUTION.".U.
...:."ANY CLUES YOU CAN OFFER WILL SPEED
THE"......"PROCESS. IN THIS EXAMPLE, R
MUST BE 1;".R...."IT IS GIVEN THAT 'WAS
' MUST BE SQUARE."......".USING A PRINTE
R? Y/N"......465:."."......A$.."Y"..828,
0:..;.E..:."ENTER THE DATE (NO COMMAS)":
.A$.Y.G..15,4,15: 15:.ST..0.60000.I.J..8
28,4:.4,4...O..4,G(14)"**ADDITION MASTER
** "A$...T.......:...... GET CLUES.P....
:."CAN YOU OFFER ANY CLUES? Y/N".....CS$
(21)."PRIME":CS$(22)."NOT PRIME":CS$(23)
."SQUARE".P...CS$(24)."NOT SQUARE":CS$(2
6)."EVEN":CS$(27)."ODD":CS$(28)."1 OR 2"
.C....465:.A$."N"........370:.:."PRESS T
HE LETTER THE CLUE IS FOR.".B...."TO SPE
CIFY A LINE, PRESS THE SPACE BAR:".X.$..
470:.A$." ".1350......I.1.NM:.IN$(I).A$.
1100...8.....B..A$"???":.1330.B.L..:."PR
ESS THE VALUE OF THE LETTER '"A$"', OR..
.".}.V.."A IF EVEN":."B IF ODD":."C I
F IT COULD BE 1 OR 2"...`..198,3:.B$:TJ.
F(B$).48.7.(B$."9")...J..TJ.0.TJ.12.1090
.Q.T.SJ.SO(I):.TJ.10.1230...~..SJ.10..A$
" IS"SJ:.1330......SJ.9.1170,1180,1190,1
310,1200,1310,1210.2....TJ.9.1090,510,15
80.J....TJ.9.510,1090,1570.C....TJ.9.159
0,1570,1090.{....TJ.9.510,1310,1570.....
.TJ.9.1310,1310,1570...N..SJ.TJ.1090...X
..SJ.10.510.F....270:.A1.0.510.....NC.NC
.1:CS$(NC).IN$(I)." MUST BE".D(TJ).....U
(TJ).1:L(I).1:TR(I).TJ:SO(I).TJ.-....N.1
.NM:.I.N.1300.G....TJ.SO(N)..:.IN$(I)" &
"IN$(N)" CAN'T BOTH BE"TJ:.510.S....:.1
320.....SO(I).TJ:NC.NC.1:CS$(NC).IN$(I).
" MUST BE ".CS$(TJ.16)...(..:.CS$(NC)...
2.."ANY MORE CLUES? Y/N":.1030...<.:.. F
..:."LINE NUMBER";A:.A.1.A.R.1090." P..:
.RW$(A)" - IS IT:".D Z..:."1 PRIME?":."2
NOT PRIME?".F D.."3 SQUARE?":."4 NOT SQ
UARE?". N.."5 ODD?":."6 EVEN?".. X.."PR
ESS A NUMBER.".. ...465:B.E(A$):.B.0.B.6
.1090.U ..I.CO(A,1):NC.NC.1:.B.5.1440..!
..CS$(NC).RW$(A)." IS ".CS$(32.B):TJ.16.
B:A$.IN$(I):.1140.=! .CL(A).B:CS$(NC).RW
$(A)." IS ".CS$(B.20).T!...C(RW$(A))..8.
1460..!..CL(A).0:."I CAN'T ENSURE THAT":
CS$(NC).CS$(NC)."??"..!...C(RW$(A)).1.13
20..!...B.1490,1320,1530,1320.C!H.:.R!R.
SO.SO(I).1.."W..SO.505,1320,510,1320,510
,510,510,1320,510,1320,510,1510,1570.&".
..SO(I).16.510.9"..SO(I).14:.1320.?"..:.
"...SO(I).1.1320,1320,510,510,1320,1320
,1320,510,510,1320,1320. "...SO(I).10.13
20,1570,1550,510.."..SO(I).16:.1320.."..
:.G"".A.1:.1590.O",.A.2.."6.SO(I).A:TR(I
).A:U(A).1:L(I).1:NC.NC.1."#@.CS$(NC).IN
$(I)." MUST BE".D(A):.1280.(#F.:.;#K.. T
ITLE SCREEN.^#P..54273,50:.54278,243:.54
276,33.|#Z..53269,0:.53281,0:.G(142)..#.
..".... * * * ADDITION MASTER * *
* .".I#....14)"..BY IAN ADAM"..#....
13)"...WOULD YOU LIKE:"..$....13)"..1..
ADDITION PUZZLE".&$....13)".2.. PRIME NU
MBERS".>$....13)".3.. SQUARES".S$ ...13)
"..0.. END".\$*..465.T$/..A$."0".A$."3".
2090..$4..E(A$).1.6000,500,2500,3000..$.
.:..$D..".PRIME NUMBERS"..$N..:."1. TEST
A NUMBER":."2. LIST PRIMES"..%X.."3. LI
ST NON-PRIMES":."4. BACK TO MENU".%%...4
70:B.E(A$):.B.1.B.3...=%...".ENTER 0 TO
STOP".\%...:."WHAT NUMBER TO START?".}%.
.C.0:.C:.475:C..(C):.C.1.2500..%....(C).
4E5.."...THINKING".C%(...(C).4E9.."THAT'
S TOO BIG!":.:.2510.Q%2..B.1.2670..%<.A.
.(C):.350..%F..A1.0..C"IS PRIME":.2660..
&P..C"IS NOT PRIME, BEING".9&Z.."DIVISIB
LE BY"A1"AND"C.A1.N&D..:."NEXT";:.2580.L
&N..D.1.22:A..(C):.350:C.C.1..&X..(A1.0)
.B.3.D.D.1:...&...C.1:.:."MORE?"..&...46
5:.A$."N".2500..&...2590..&..:.U&...".SQ
UARE NUMBERS"..'B..:."1. TEST A NUMBER":
."2. LIST SQUARES".0'L.."3. BACK TO MENU
":K3.1.2E.7:.470:D.E(A$).?'V..D.0.D.2...
^'...:."WHAT NUMBER TO START?".U'..."ENT
ER 0 TO QUIT"..'..A.0:.A:.475:A..(.(A)):
.A.0.3000..'...A.4E9.3180.F'...D.2.B..(.
(A.1)).1:.3140..'..B..(A):C..(B.K3)..'..
.:.A"IS ";..(&..A.C.C.B.C:."THE SQUARE O
F"B:.3130.-(0.."NOT SQUARE":."ROOT:"B.C(
:..".NEXT: ";:.3050.](D..". SQUARE".20)"
ROOT".Y(N..B.B.B.21:.(B.B).20)B:...(X.."
MORE?";:.465:.A$."N".3000..(B..B.B.4E9.3
140.C(L..:."TOO BIG!":.3010.Z(... QUIT
PROCESSING..)...".. *** DO YOU WANT TO
QUIT? ***"..)...198,0:.198,1:.A$:.A$.."Y
".A$.."N".5020.J)..AG.0:.A$."Y".AG.1:.50
40.R)..."I SHALL CONTINUE WITH MY WORK..
.".X).....)P..15,8,15,"R0:HELLO CONNECT=
HELLO CONNECT":.15,ER: 15.E)Z..".";:.ER.
.63....)..."HELLO CONNECT",8..)`.. NO PR
INTER..*J.."...........".10)"PRINTER NOT
ON-LINE...".3*T..DL.1.3000:.:.2000...
> CLICK IMAGE PREVIEW FOR FULL MODAL