TRIPLESEARCH
FILE INFORMATION
FILENAME(S): TRIPLESEARCH
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 16:09:49
APPEARS ON: 1 disk(s)
FILE HASH
593ed3f1989bca0a6ae4777659d950f4d3f4da8ca055a91f6e21cd0d6cbbd2a1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| OCTOBER GAZETTE | TRIPLESEARCH | PRG | BrainSkull, Sammlung | 14 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 46 08 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..F.... COPYRIGH| 00000010: 54 20 31 39 38 39 20 43 4F 4D 50 55 54 45 21 20 |T 1989 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 20 49 4E 43 |PUBLICATIONS INC| 00000030: 2E 2C 20 41 4C 4C 20 52 49 47 48 54 53 20 52 45 |., ALL RIGHTS RE| 00000040: 53 45 52 56 45 44 00 8B 08 14 00 83 31 36 39 2C |SERVED......169,| 00000050: 31 36 30 2C 31 33 33 2C 32 35 32 2C 31 36 39 2C |160,133,252,169,| 00000060: 32 32 32 2C 31 33 33 2C 32 35 34 2C 31 36 39 2C |222,133,254,169,| 00000070: 30 2C 31 33 33 2C 32 35 31 2C 31 33 33 2C 32 35 |0,133,251,133,25| 00000080: 33 2C 31 36 30 2C 30 2C 31 37 37 00 D3 08 1E 00 |3,160,0,177.....| 00000090: 83 32 35 31 2C 31 34 35 2C 32 35 31 2C 31 37 37 |.251,145,251,177| 000000A0: 2C 32 35 33 2C 31 34 35 2C 32 35 33 2C 31 33 36 |,253,145,253,136| 000000B0: 2C 32 30 38 2C 32 34 35 2C 32 33 30 2C 32 35 32 |,208,245,230,252| 000000C0: 2C 32 33 30 2C 32 35 34 2C 32 30 38 2C 32 33 37 |,230,254,208,237| 000000D0: 2C 39 36 00 F0 08 28 00 81 54 B2 34 39 31 35 32 |,96...(..T.49152| 000000E0: A4 34 39 31 38 35 3A 87 41 3A 97 54 2C 41 3A 82 |.49185:.A:.T,A:.| 000000F0: 00 10 09 32 00 9E 34 39 31 35 32 3A 97 35 39 36 |...2..49152:.596| 00000100: 33 39 2C 37 3A 97 31 2C C2 28 31 29 AF 32 35 33 |39,7:.1,.(1).253| 00000110: 00 4E 09 3C 00 97 35 33 32 38 30 2C 31 31 3A 97 |.N.<..53280,11:.| 00000120: 35 33 32 38 31 2C 30 3A 97 36 34 36 2C 33 3A 99 |53281,0:.646,3:.| 00000130: 22 93 22 A3 39 29 22 CE B7 B7 B7 B7 B7 B7 B7 B7 |".".9)".........| 00000140: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 CD 22 00 75 |.............".u| 00000150: 09 46 00 99 A3 36 29 22 C0 C0 C0 C0 C0 CF B7 B7 |.F...6)"........| 00000160: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 C0 |................| 00000170: C0 C0 C0 C0 22 00 A2 09 50 00 99 A3 33 29 22 C0 |...."...P...3)".| 00000180: C0 C0 C0 C0 C0 C0 C0 A5 20 20 54 52 49 50 4C 45 |........ TRIPLE| 00000190: 53 45 41 52 43 48 20 20 A7 C0 C0 C0 C0 C0 C0 C0 |SEARCH ........| 000001A0: C0 22 00 C9 09 5A 00 99 A3 36 29 22 C0 C0 C0 C0 |."...Z...6)"....| 000001B0: C0 CC AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 000001C0: AF AF BA C0 C0 C0 C0 C0 22 00 EA 09 64 00 99 A3 |........"...d...| 000001D0: 39 29 22 CD AF AF AF AF AF AF AF AF AF AF AF AF |9)".............| 000001E0: AF AF AF AF AF AF AF AF CE 22 00 1B 0A 6E 00 99 |........."...n..| 000001F0: 22 11 22 A3 33 29 22 43 4F 50 59 52 49 47 48 54 |".".3)"COPYRIGHT| 00000200: 20 31 39 38 39 20 43 4F 4D 50 55 54 45 21 20 50 | 1989 COMPUTE! P| 00000210: 55 42 4C 2E 2C 20 49 4E 43 2E 22 00 3A 0A 78 00 |UBL., INC.".:.x.| 00000220: 99 A3 31 31 29 22 41 4C 4C 20 52 49 47 48 54 53 |..11)"ALL RIGHTS| 00000230: 20 52 45 53 45 52 56 45 44 22 00 73 0A 82 00 99 | RESERVED".s....| 00000240: 22 11 11 57 48 41 54 20 4B 49 4E 44 20 4F 46 20 |"..WHAT KIND OF | 00000250: 53 45 41 52 43 48 20 44 4F 20 59 4F 55 20 57 49 |SEARCH DO YOU WI| 00000260: 53 48 20 54 4F 20 20 20 20 20 20 43 52 45 41 54 |SH TO CREAT| 00000270: 45 3F 22 00 B5 0A 8C 00 99 22 11 31 29 20 57 4F |E?"......".1) WO| 00000280: 52 44 2D 53 45 41 52 43 48 22 3A 99 22 32 29 20 |RD-SEARCH":."2) | 00000290: 4E 55 4D 42 45 52 2D 53 45 41 52 43 48 22 3A 99 |NUMBER-SEARCH":.| 000002A0: 22 33 29 20 50 49 43 54 4F 47 52 41 4D 2D 53 45 |"3) PICTOGRAM-SE| 000002B0: 41 52 43 48 22 00 C7 0A 96 00 99 22 11 43 48 4F |ARCH"......".CHO| 000002C0: 49 43 45 3A 20 22 3B 00 E2 0A A0 00 A1 4B 24 3A |ICE: ";......K$:| 000002D0: 8B 4B 24 B3 22 31 22 B0 4B 24 B1 22 33 22 A7 31 |.K$."1".K$."3".1| 000002E0: 36 30 00 0D 0B AA 00 99 4B 24 22 13 11 11 22 A3 |60......K$"...".| 000002F0: 31 32 29 22 20 20 20 20 20 20 20 20 20 20 20 20 |12)" | 00000300: 20 20 20 20 22 3A 43 B2 C5 28 4B 24 29 00 34 0B | ":C..(K$).4.| 00000310: B4 00 8B 43 B2 31 A7 4B 31 24 B2 22 57 4F 52 44 |...C.1.K1$."WORD| 00000320: 2D 53 45 41 52 43 48 22 3A 4B 32 24 B2 22 57 4F |-SEARCH":K2$."WO| 00000330: 52 44 53 22 00 5F 0B BE 00 8B 43 B2 32 A7 4B 31 |RDS"._....C.2.K1| 00000340: 24 B2 22 4E 55 4D 42 45 52 2D 53 45 41 52 43 48 |$."NUMBER-SEARCH| 00000350: 22 3A 4B 32 24 B2 22 4E 55 4D 42 45 52 53 22 00 |":K2$."NUMBERS".| 00000360: 90 0B C8 00 8B 43 B2 33 A7 4B 31 24 B2 22 50 49 |.....C.3.K1$."PI| 00000370: 43 54 4F 47 52 41 4D 2D 53 45 41 52 43 48 22 3A |CTOGRAM-SEARCH":| 00000380: 4B 32 24 B2 22 50 49 43 54 4F 47 52 41 4D 53 22 |K2$."PICTOGRAMS"| 00000390: 00 BC 0B D2 00 99 22 13 11 11 22 A3 32 30 AB C3 |......"...".20..| 000003A0: 28 4B 31 24 29 AD 32 29 4B 31 24 22 11 11 11 11 |(K1$).2)K1$"....| 000003B0: 11 11 11 11 11 11 11 11 11 11 11 22 00 FE 0B DC |..........."....| 000003C0: 00 57 44 B2 38 30 3A 4C 4E B2 36 36 3A 99 22 11 |.WD.80:LN.66:.".| 000003D0: 48 4F 57 20 4C 41 52 47 45 20 49 53 20 59 4F 55 |HOW LARGE IS YOU| 000003E0: 52 20 50 55 5A 5A 4C 45 20 28 31 30 20 2D 22 B5 |R PUZZLE (10 -".| 000003F0: 28 57 44 AD 32 29 22 9D 29 22 3B 3A 85 53 00 16 |(WD.2)".)";:.S..| 00000400: 0C E6 00 8B 53 B3 31 30 B0 53 B1 B5 28 57 44 AD |....S.10.S..(WD.| 00000410: 32 29 A7 32 32 30 00 57 0C F0 00 99 22 11 48 4F |2).220.W....".HO| 00000420: 57 20 4D 41 4E 59 20 22 4B 32 24 22 20 57 4F 55 |W MANY "K2$" WOU| 00000430: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 22 3A |LD YOU LIKE TO":| 00000440: 85 22 45 4E 54 45 52 22 3B 4E 57 3A 8B 4E 57 B1 |."ENTER";NW:.NW.| 00000450: 32 AC 53 A7 32 34 30 00 6C 0C FA 00 86 4C 24 28 |2.S.240.l....L$(| 00000460: 4E 57 29 3A 8B 43 B2 31 A7 32 39 30 00 AE 0C 04 |NW):.C.1.290....| 00000470: 01 99 22 11 57 4F 55 4C 44 20 59 4F 55 20 4C 49 |..".WOULD YOU LI| 00000480: 4B 45 20 4D 45 20 54 4F 20 47 45 4E 45 52 41 54 |KE ME TO GENERAT| 00000490: 45 20 59 4F 55 52 20 20 20 20 20 20 22 4B 32 24 |E YOUR "K2$| 000004A0: 22 20 52 41 4E 44 4F 4D 4C 59 3F 20 22 3B 00 CB |" RANDOMLY? ";..| 000004B0: 0C 0E 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF |....K$:.K$.."Y".| 000004C0: 4B 24 B3 B1 22 4E 22 A7 32 37 30 00 DF 0C 18 01 |K$.."N".270.....| 000004D0: 99 4B 24 3A 8B 4B 24 B2 22 59 22 A7 33 34 30 00 |.K$:.K$."Y".340.| 000004E0: 23 0D 22 01 99 22 11 45 4E 54 45 52 20 59 4F 55 |#."..".ENTER YOU| 000004F0: 52 20 22 4B 32 24 22 20 4F 4E 45 20 41 54 20 41 |R "K2$" ONE AT A| 00000500: 20 54 49 4D 45 2E 22 3A 99 22 54 48 45 59 20 4D | TIME.":."THEY M| 00000510: 55 53 54 20 42 45 20 4C 45 53 53 20 54 48 41 4E |UST BE LESS THAN| 00000520: 22 53 3B 00 3E 0D 2C 01 99 22 43 48 41 52 41 43 |"S;.>.,.."CHARAC| 00000530: 54 45 52 53 22 3A 99 22 4C 4F 4E 47 2E 22 00 73 |TERS":."LONG.".s| 00000540: 0D 36 01 81 5A B2 31 A4 4E 57 3A 97 36 33 31 2C |.6..Z.1.NW:.631,| 00000550: 31 35 37 3A 97 36 33 32 2C 31 35 37 3A 97 36 33 |157:.632,157:.63| 00000560: 33 2C 33 32 3A 97 36 33 34 2C 33 34 3A 97 31 39 |3,32:.634,34:.19| 00000570: 38 2C 34 00 97 0D 40 01 99 5A 3B 3A 85 4C 24 28 |8,4...@..Z;:.L$(| 00000580: 5A 29 3A 4C B2 C3 28 4C 24 28 5A 29 29 3A 8B 4C |Z):L..(L$(Z)):.L| 00000590: B1 B2 53 A7 33 31 30 00 A3 0D 4A 01 82 5A 3A 89 |..S.310...J..Z:.| 000005A0: 34 30 30 00 EA 0D 54 01 99 22 11 48 4F 57 20 4D |400...T..".HOW M| 000005B0: 41 4E 59 20 43 48 41 52 41 43 54 45 52 53 20 44 |ANY CHARACTERS D| 000005C0: 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E 20 45 41 |O YOU WANT IN EA| 000005D0: 43 48 20 22 4B 32 24 22 9D 20 28 31 20 2D 22 53 |CH "K2$". (1 -"S| 000005E0: AB 31 22 9D 29 22 3B 3A 85 4C 00 FC 0D 5E 01 8B |.1".)";:.L...^..| 000005F0: 4C B3 31 B0 4C B1 B2 53 A7 33 34 30 00 20 0E 68 |L.1.L..S.340. .h| 00000600: 01 99 22 11 4D 41 4B 49 4E 47 20 4C 49 53 54 2E |..".MAKING LIST.| 00000610: 20 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 | PLEASE WAIT..."| 00000620: 00 34 0E 72 01 8B 43 B2 32 A7 44 44 B2 31 30 3A |.4.r..C.2.DD.10:| 00000630: 44 B2 34 38 00 49 0E 7C 01 8B 43 B2 33 A7 44 44 |D.48.I.|..C.3.DD| 00000640: B2 36 33 3A 44 B2 31 39 32 00 7D 0E 86 01 81 49 |.63:D.192.}....I| 00000650: B2 31 A4 4E 57 3A 81 58 B2 31 A4 4C 3A 4C 24 28 |.1.NW:.X.1.L:L$(| 00000660: 49 29 B2 4C 24 28 49 29 AA C7 28 B5 28 44 44 AC |I).L$(I)..(.(DD.| 00000670: BB 28 31 29 29 AA 44 29 3A 82 58 2C 49 00 BD 0E |.(1)).D):.X,I...| 00000680: 90 01 99 22 11 57 4F 55 4C 44 20 59 4F 55 20 4C |...".WOULD YOU L| 00000690: 49 4B 45 20 54 48 45 20 22 4B 32 24 22 20 50 52 |IKE THE "K2$" PR| 000006A0: 49 4E 54 45 44 22 3A 99 22 42 45 4C 4F 57 20 54 |INTED":."BELOW T| 000006B0: 48 45 20 50 55 5A 5A 4C 45 3F 20 22 3B 00 DA 0E |HE PUZZLE? ";...| 000006C0: 9A 01 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B |...K$:.K$.."Y".K| 000006D0: 24 B3 B1 22 4E 22 A7 34 31 30 00 EF 0E A4 01 99 |$.."N".410......| 000006E0: 4B 24 3A 8B 4B 24 B2 22 59 22 A7 4C 59 B2 31 00 |K$:.K$."Y".LY.1.| 000006F0: 1B 0F AE 01 99 22 11 57 4F 55 4C 44 20 59 4F 55 |.....".WOULD YOU| 00000700: 20 4C 49 4B 45 20 54 48 45 4D 20 54 4F 20 42 45 | LIKE THEM TO BE| 00000710: 20 53 4F 52 54 45 44 3F 20 22 3B 00 38 0F B8 01 | SORTED? ";.8...| 00000720: A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B 24 B3 |.K$:.K$.."Y".K$.| 00000730: B1 22 4E 22 A7 34 34 30 00 4C 0F C2 01 99 4B 24 |."N".440.L....K$| 00000740: 3A 8B 4B 24 B2 22 59 22 A7 41 B2 31 00 87 0F CC |:.K$."Y".A.1....| 00000750: 01 99 22 11 11 48 4F 57 20 44 4F 20 59 4F 55 20 |.."..HOW DO YOU | 00000760: 57 41 4E 54 20 59 4F 55 52 20 22 4B 32 24 3A 99 |WANT YOUR "K2$:.| 00000770: 22 50 4C 41 43 45 44 20 49 4E 20 54 48 45 20 50 |"PLACED IN THE P| 00000780: 55 5A 5A 4C 45 3F 22 00 B0 0F D6 01 99 22 11 31 |UZZLE?"......".1| 00000790: 29 20 56 45 52 54 49 43 41 4C 4C 59 22 3A 99 22 |) VERTICALLY":."| 000007A0: 32 29 20 48 4F 52 49 5A 4F 4E 54 41 4C 4C 59 22 |2) HORIZONTALLY"| 000007B0: 00 E5 0F E0 01 99 22 33 29 20 44 49 41 47 4F 4E |......"3) DIAGON| 000007C0: 41 4C 4C 59 22 3A 99 22 34 29 20 48 4F 52 49 5A |ALLY":."4) HORIZ| 000007D0: 4F 4E 54 41 4C 4C 59 20 26 20 56 45 52 54 49 43 |ONTALLY & VERTIC| 000007E0: 41 4C 4C 59 22 00 11 10 EA 01 99 22 35 29 20 41 |ALLY"......"5) A| 000007F0: 4C 4C 20 44 49 52 45 43 54 49 4F 4E 53 22 3A 99 |LL DIRECTIONS":.| 00000800: 22 11 59 4F 55 52 20 43 48 4F 49 43 45 3A 20 22 |".YOUR CHOICE: "| 00000810: 3B 00 2C 10 F4 01 A1 4B 24 3A 8B 4B 24 B3 22 31 |;.,....K$:.K$."1| 00000820: 22 B0 4B 24 B1 22 35 22 A7 35 30 30 00 4B 10 FE |".K$."5".500.K..| 00000830: 01 99 4B 24 3A 44 B2 C5 28 4B 24 29 3A 8B 44 B2 |..K$:D..(K$):.D.| 00000840: 31 A7 44 44 B2 32 3A 89 35 36 30 00 62 10 08 02 |1.DD.2:.560.b...| 00000850: 8B 44 B2 32 A7 44 44 B2 32 3A 44 B2 33 3A 89 35 |.D.2.DD.2:D.3:.5| 00000860: 36 30 00 79 10 12 02 8B 44 B2 33 A7 44 44 B2 34 |60.y....D.3.DD.4| 00000870: 3A 44 B2 35 3A 89 35 36 30 00 90 10 1C 02 8B 44 |:D.5:.560......D| 00000880: B2 34 A7 44 44 B2 34 3A 44 B2 31 3A 89 35 36 30 |.4.DD.4:D.1:.560| 00000890: 00 9D 10 26 02 44 44 B2 38 3A 44 B2 31 00 D9 10 |...&.DD.8:D.1...| 000008A0: 30 02 99 22 11 45 4E 54 45 52 20 54 48 45 20 54 |0..".ENTER THE T| 000008B0: 49 54 4C 45 20 46 4F 52 20 59 4F 55 52 20 50 55 |ITLE FOR YOUR PU| 000008C0: 5A 5A 4C 45 22 3A 97 36 33 31 2C 33 34 3A 97 31 |ZZLE":.631,34:.1| 000008D0: 39 38 2C 31 3A 85 54 4C 24 00 EC 10 3A 02 8B C3 |98,1:.TL$...:...| 000008E0: 28 54 4C 24 29 B1 57 44 A7 35 36 30 00 24 11 44 |(TL$).WD.560.$.D| 000008F0: 02 99 22 11 45 4E 54 45 52 20 54 48 45 20 4D 45 |..".ENTER THE ME| 00000900: 53 53 41 47 45 20 54 4F 20 50 52 49 4E 54 20 42 |SSAGE TO PRINT B| 00000910: 45 4C 4F 57 20 54 48 45 20 20 20 20 50 55 5A 5A |ELOW THE PUZZ| 00000920: 4C 45 2E 22 00 49 11 4E 02 97 36 33 31 2C 33 34 |LE.".I.N..631,34| 00000930: 3A 97 31 39 38 2C 31 3A 85 4D 24 3A 8B C3 28 4D |:.198,1:.M$:..(M| 00000940: 24 29 B1 57 44 A7 35 38 30 00 6F 11 58 02 86 57 |$).WD.580.o.X..W| 00000950: 46 24 28 53 2C 53 29 3A 99 22 50 4C 45 41 53 45 |F$(S,S):."PLEASE| 00000960: 20 57 41 49 54 2E 2E 2E 22 3A 47 50 B2 4E 57 00 | WAIT...":GP.NW.| 00000970: 88 11 62 02 47 50 B2 B5 28 47 50 AD 32 29 3A 8B |..b.GP..(GP.2):.| 00000980: 47 50 B2 30 A7 36 37 30 00 90 11 6C 02 46 B2 30 |GP.0.670...l.F.0| 00000990: 00 BC 11 76 02 81 4D B2 31 A4 28 4E 57 AB 47 50 |...v..M.1.(NW.GP| 000009A0: 29 3A 8B C3 28 4C 24 28 4D 29 29 B1 B2 C3 28 4C |):..(L$(M))...(L| 000009B0: 24 28 4D AA 47 50 29 29 A7 36 35 30 00 EA 11 80 |$(M.GP)).650....| 000009C0: 02 53 57 24 B2 4C 24 28 4D 29 3A 4C 24 28 4D 29 |.SW$.L$(M):L$(M)| 000009D0: B2 4C 24 28 4D AA 47 50 29 3A 4C 24 28 4D AA 47 |.L$(M.GP):L$(M.G| 000009E0: 50 29 B2 53 57 24 3A 46 B2 31 00 F8 11 8A 02 82 |P).SW$:F.1......| 000009F0: 4D 3A 8B 46 A7 36 32 30 00 01 12 94 02 89 36 31 |M:.F.620......61| 00000A00: 30 00 14 12 9E 02 99 22 11 11 50 4C 41 43 49 4E |0......"..PLACIN| 00000A10: 47 3A 11 22 00 37 12 A8 02 81 49 B2 31 A4 4E 57 |G:.".7....I.1.NW| 00000A20: 3A 99 4C 24 28 49 29 3A 50 4C B2 B5 28 44 44 AC |:.L$(I):PL..(DD.| 00000A30: BB 28 31 29 29 AA 44 00 4C 12 B2 02 8B 50 4C B2 |.(1)).D.L....PL.| 00000A40: 31 A7 4F 32 B2 AB 31 3A 8D 37 39 30 00 60 12 BC |1.O2..1:.790.`..| 00000A50: 02 8B 50 4C B2 32 A7 4F 32 B2 31 3A 8D 37 39 30 |..PL.2.O2.1:.790| 00000A60: 00 75 12 C6 02 8B 50 4C B2 33 A7 4F 31 B2 AB 31 |.u....PL.3.O1..1| 00000A70: 3A 8D 38 35 30 00 89 12 D0 02 8B 50 4C B2 34 A7 |:.850......PL.4.| 00000A80: 4F 31 B2 31 3A 8D 38 35 30 00 A4 12 DA 02 8B 50 |O1.1:.850......P| 00000A90: 4C B2 35 A7 4F 31 B2 AB 31 AF 4F 32 B2 AB 31 3A |L.5.O1..1.O2..1:| 00000AA0: 8D 39 31 30 00 BD 12 E4 02 8B 50 4C B2 36 A7 4F |.910......PL.6.O| 00000AB0: 31 B2 31 AF 4F 32 B2 31 3A 8D 39 31 30 00 D7 12 |1.1.O2.1:.910...| 00000AC0: EE 02 8B 50 4C B2 37 A7 4F 31 B2 31 AF 4F 32 B2 |...PL.7.O1.1.O2.| 00000AD0: AB 31 3A 8D 39 31 30 00 F1 12 F8 02 8B 50 4C B2 |.1:.910......PL.| 00000AE0: 38 A7 4F 31 B2 AB 31 AF 4F 32 B2 31 3A 8D 39 31 |8.O1..1.O2.1:.91| 00000AF0: 30 00 FF 12 02 03 8B 49 B2 4E 57 A7 39 38 30 00 |0......I.NW.980.| 00000B00: 06 13 0C 03 82 49 00 15 13 16 03 4C B2 C3 28 4C |.....I.....L..(L| 00000B10: 24 28 49 29 29 00 50 13 20 03 50 31 B2 B5 28 53 |$(I)).P. .P1..(S| 00000B20: AC BB 28 31 29 29 AA 31 3A 50 32 B2 B5 28 53 AC |..(1)).1:P2..(S.| 00000B30: BB 28 31 29 29 AA 31 3A 8B 50 32 AA 4C AC 4F 32 |.(1)).1:.P2.L.O2| 00000B40: B3 30 B0 50 32 AA 4C AC 4F 32 B1 53 A7 38 30 30 |.0.P2.L.O2.S.800| 00000B50: 00 5D 13 2A 03 81 58 B2 30 A4 4C AB 31 00 A0 13 |.].*..X.0.L.1...| 00000B60: 34 03 54 24 B2 CA 28 4C 24 28 49 29 2C 58 AA 31 |4.T$..(L$(I),X.1| 00000B70: 2C 31 29 3A 8B 57 46 24 28 50 31 2C 50 32 AA 58 |,1):.WF$(P1,P2.X| 00000B80: AC 4F 32 29 B3 B1 22 22 AF 54 24 B3 B1 57 46 24 |.O2).."".T$..WF$| 00000B90: 28 50 31 2C 50 32 AA 58 AC 4F 32 29 A7 38 30 30 |(P1,P2.X.O2).800| 00000BA0: 00 C7 13 3E 03 82 58 3A 81 58 B2 30 A4 4C AB 31 |...>..X:.X.0.L.1| 00000BB0: 3A 8B CA 28 4C 24 28 49 29 2C 58 AA 31 2C 31 29 |:..(L$(I),X.1,1)| 00000BC0: B2 22 20 22 A7 82 58 00 EF 13 48 03 57 46 24 28 |." "..X...H.WF$(| 00000BD0: 50 31 2C 50 32 AA 58 AC 4F 32 29 B2 CA 28 4C 24 |P1,P2.X.O2)..(L$| 00000BE0: 28 49 29 2C 58 AA 31 2C 31 29 3A 82 58 3A 8E 00 |(I),X.1,1):.X:..| 00000BF0: FE 13 52 03 4C B2 C3 28 4C 24 28 49 29 29 00 39 |..R.L..(L$(I)).9| 00000C00: 14 5C 03 50 31 B2 B5 28 53 AC BB 28 31 29 29 AA |.\.P1..(S..(1)).| 00000C10: 31 3A 50 32 B2 B5 28 53 AC BB 28 31 29 29 AA 31 |1:P2..(S..(1)).1| 00000C20: 3A 8B 50 31 AA 4C AC 4F 31 B3 30 B0 50 31 AA 4C |:.P1.L.O1.0.P1.L| 00000C30: AC 4F 31 B1 53 A7 38 36 30 00 46 14 66 03 81 58 |.O1.S.860.F.f..X| 00000C40: B2 30 A4 4C AB 31 00 89 14 70 03 54 24 B2 CA 28 |.0.L.1...p.T$..(| 00000C50: 4C 24 28 49 29 2C 58 AA 31 2C 31 29 3A 8B 57 46 |L$(I),X.1,1):.WF| 00000C60: 24 28 50 31 AA 58 AC 4F 31 2C 50 32 29 B3 B1 22 |$(P1.X.O1,P2).."| 00000C70: 22 AF 54 24 B3 B1 57 46 24 28 50 31 AA 58 AC 4F |".T$..WF$(P1.X.O| 00000C80: 31 2C 50 32 29 A7 38 36 30 00 B0 14 7A 03 82 58 |1,P2).860...z..X| 00000C90: 3A 81 58 B2 30 A4 4C AB 31 3A 8B CA 28 4C 24 28 |:.X.0.L.1:..(L$(| 00000CA0: 49 29 2C 58 AA 31 2C 31 29 B2 22 20 22 A7 82 58 |I),X.1,1)." "..X| 00000CB0: 00 D8 14 84 03 57 46 24 28 50 31 AA 58 AC 4F 31 |.....WF$(P1.X.O1| 00000CC0: 2C 50 32 29 B2 CA 28 4C 24 28 49 29 2C 58 AA 31 |,P2)..(L$(I),X.1| 00000CD0: 2C 31 29 3A 82 58 3A 8E 00 E7 14 8E 03 4C B2 C3 |,1):.X:......L..| 00000CE0: 28 4C 24 28 49 29 29 00 09 15 98 03 50 31 B2 B5 |(L$(I)).....P1..| 00000CF0: 28 53 AC BB 28 31 29 29 AA 31 3A 50 32 B2 B5 28 |(S..(1)).1:P2..(| 00000D00: 53 AC BB 28 31 29 29 AA 31 00 3A 15 A2 03 8B 50 |S..(1)).1.:....P| 00000D10: 31 AA 4C AC 4F 31 B3 30 B0 50 31 AA 4C AC 4F 31 |1.L.O1.0.P1.L.O1| 00000D20: B1 53 B0 50 32 AA 4C AC 4F 32 B3 30 B0 50 32 AA |.S.P2.L.O2.0.P2.| 00000D30: 4C AC 4F 32 B1 53 A7 39 32 30 00 59 15 AC 03 81 |L.O2.S.920.Y....| 00000D40: 58 B2 30 A4 4C AB 31 3A 54 24 B2 CA 28 4C 24 28 |X.0.L.1:T$..(L$(| 00000D50: 49 29 2C 58 AA 31 2C 31 29 00 94 15 B6 03 8B 57 |I),X.1,1)......W| 00000D60: 46 24 28 50 31 AA 58 AC 4F 31 2C 50 32 AA 58 AC |F$(P1.X.O1,P2.X.| 00000D70: 4F 32 29 B3 B1 22 22 AF 54 24 B3 B1 57 46 24 28 |O2).."".T$..WF$(| 00000D80: 50 31 AA 58 AC 4F 31 2C 50 32 AA 58 AC 4F 32 29 |P1.X.O1,P2.X.O2)| 00000D90: A7 39 32 30 00 BB 15 C0 03 82 58 3A 81 58 B2 30 |.920......X:.X.0| 00000DA0: A4 4C AB 31 3A 8B CA 28 4C 24 28 49 29 2C 58 AA |.L.1:..(L$(I),X.| 00000DB0: 31 2C 31 29 B2 22 20 22 A7 82 58 00 E8 15 CA 03 |1,1)." "..X.....| 00000DC0: 57 46 24 28 50 31 AA 58 AC 4F 31 2C 50 32 AA 58 |WF$(P1.X.O1,P2.X| 00000DD0: AC 4F 32 29 B2 CA 28 4C 24 28 49 29 2C 58 AA 31 |.O2)..(L$(I),X.1| 00000DE0: 2C 31 29 3A 82 58 3A 8E 00 21 16 D4 03 99 22 11 |,1):.X:..!....".| 00000DF0: 50 52 49 4E 54 49 4E 47 20 54 48 45 20 41 4E 53 |PRINTING THE ANS| 00000E00: 57 45 52 20 4B 45 59 2E 2E 2E 22 3A 9F 31 2C 34 |WER KEY...":.1,4| 00000E10: 3A 54 41 B2 B5 28 28 57 44 AB 32 AC 53 29 AD 32 |:TA..((WD.2.S).2| 00000E20: 29 00 4B 16 DE 03 98 31 2C A6 B5 28 28 57 44 AB |).K....1,..((WD.| 00000E30: C3 28 54 4C 24 29 AB 32 29 AD 32 29 29 54 4C 24 |.(TL$).2).2))TL$| 00000E40: 22 20 4B 45 59 22 C7 28 31 33 29 00 68 16 E8 03 |" KEY".(13).h...| 00000E50: 81 50 32 B2 31 A4 53 3A 98 31 2C A6 54 41 29 3B |.P2.1.S:.1,.TA);| 00000E60: 3A 81 50 31 B2 31 A4 53 00 8F 16 F2 03 8B 57 46 |:.P1.1.S......WF| 00000E70: 24 28 50 31 2C 50 32 29 B2 22 22 A7 98 31 2C 22 |$(P1,P2).""..1,"| 00000E80: 2A 22 3B C7 28 33 32 29 3B 3A 89 31 30 33 30 00 |*";.(32);:.1030.| 00000E90: A8 16 FC 03 98 31 2C 57 46 24 28 50 31 2C 50 32 |.....1,WF$(P1,P2| 00000EA0: 29 3B C7 28 33 32 29 3B 00 B7 16 06 04 82 50 31 |);.(32);......P1| 00000EB0: 3A 98 31 3A 82 50 32 00 D5 16 10 04 81 58 B2 31 |:.1:.P2......X.1| 00000EC0: A4 4C 4E AB 53 3A 98 31 3A 82 3A 8B 41 B3 B1 31 |.LN.S:.1:.:.A..1| 00000ED0: A7 31 31 32 30 00 FB 16 1A 04 99 22 11 53 4F 52 |.1120......".SOR| 00000EE0: 54 49 4E 47 2E 20 50 4C 45 41 53 45 20 57 41 49 |TING. PLEASE WAI| 00000EF0: 54 2E 2E 2E 22 3A 47 50 B2 4E 57 00 15 17 24 04 |T...":GP.NW...$.| 00000F00: 47 50 B2 B5 28 47 50 AD 32 29 3A 8B 47 50 B2 30 |GP..(GP.2):.GP.0| 00000F10: A7 31 31 32 30 00 1D 17 2E 04 46 B2 30 00 44 17 |.1120.....F.0.D.| 00000F20: 38 04 81 4D B2 31 A4 28 4E 57 AB 47 50 29 3A 8B |8..M.1.(NW.GP):.| 00000F30: 4C 24 28 4D 29 B3 B2 4C 24 28 4D AA 47 50 29 A7 |L$(M)..L$(M.GP).| 00000F40: 31 31 30 30 00 72 17 42 04 53 57 24 B2 4C 24 28 |1100.r.B.SW$.L$(| 00000F50: 4D 29 3A 4C 24 28 4D 29 B2 4C 24 28 4D AA 47 50 |M):L$(M).L$(M.GP| 00000F60: 29 3A 4C 24 28 4D AA 47 50 29 B2 53 57 24 3A 46 |):L$(M.GP).SW$:F| 00000F70: B2 31 00 81 17 4C 04 82 4D 3A 8B 46 A7 31 30 37 |.1...L..M:.F.107| 00000F80: 30 00 8B 17 56 04 89 31 30 36 30 00 AA 17 60 04 |0...V..1060...`.| 00000F90: 99 22 11 50 52 49 4E 54 49 4E 47 20 59 4F 55 52 |.".PRINTING YOUR| 00000FA0: 20 22 4B 31 24 22 2E 2E 2E 22 00 BE 17 6A 04 8B | "K1$"..."...j..| 00000FB0: 43 B2 31 A7 44 44 B2 32 36 3A 44 B2 36 35 00 D2 |C.1.DD.26:D.65..| 00000FC0: 17 74 04 8B 43 B2 32 A7 44 44 B2 31 30 3A 44 B2 |.t..C.2.DD.10:D.| 00000FD0: 34 38 00 E7 17 7E 04 8B 43 B2 33 A7 44 44 B2 36 |48...~..C.3.DD.6| 00000FE0: 33 3A 44 B2 31 39 32 00 09 18 88 04 98 31 2C A6 |3:D.192......1,.| 00000FF0: B5 28 28 57 44 AB C3 28 54 4C 24 29 29 AD 32 29 |.((WD..(TL$)).2)| 00001000: 29 54 4C 24 C7 28 31 33 29 00 26 18 92 04 81 50 |)TL$.(13).&....P| 00001010: 32 B2 31 A4 53 3A 98 31 2C A6 54 41 29 3B 3A 81 |2.1.S:.1,.TA);:.| 00001020: 50 31 B2 31 A4 53 00 58 18 9C 04 8B 57 46 24 28 |P1.1.S.X....WF$(| 00001030: 50 31 2C 50 32 29 B2 22 22 A7 98 31 2C C7 28 B5 |P1,P2).""..1,.(.| 00001040: 28 44 44 AC BB 28 31 29 29 AA 44 29 C7 28 33 32 |(DD..(1)).D).(32| 00001050: 29 3B 3A 89 31 32 30 30 00 70 18 A6 04 98 31 2C |);:.1200.p....1,| 00001060: 57 46 24 28 50 31 2C 50 32 29 C7 28 33 32 29 3B |WF$(P1,P2).(32);| 00001070: 00 7F 18 B0 04 82 50 31 3A 98 31 3A 82 50 32 00 |......P1:.1:.P2.| 00001080: B0 18 BA 04 98 31 2C C7 28 31 33 29 A6 B5 28 28 |.....1,.(13)..((| 00001090: 57 44 AB C3 28 4D 24 29 29 AD 32 29 29 4D 24 C7 |WD..(M$)).2))M$.| 000010A0: 28 31 33 29 3A 8B 4C 59 B3 B1 31 A7 31 32 36 30 |(13):.LY..1.1260| 000010B0: 00 B8 18 C4 04 58 B2 30 00 EF 18 CE 04 58 B2 58 |.....X.0.....X.X| 000010C0: AA 31 3A 98 31 2C A6 B5 28 54 41 AD 32 29 29 4C |.1:.1,..(TA.2))L| 000010D0: 24 28 58 29 A6 B5 28 57 44 AD 32 29 AB C3 28 4C |$(X)..(WD.2)..(L| 000010E0: 24 28 58 29 29 AA B5 28 54 41 AD 32 29 29 3B 00 |$(X))..(TA.2));.| 000010F0: 02 19 D8 04 8B 58 B2 4E 57 A7 98 31 3A 89 31 32 |.....X.NW..1:.12| 00001100: 36 30 00 21 19 E2 04 58 B2 58 AA 31 3A 98 31 2C |60.!...X.X.1:.1,| 00001110: 4C 24 28 58 29 3A 8B 58 B3 B1 4E 57 A7 31 32 33 |L$(X):.X..NW.123| 00001120: 30 00 45 19 EC 04 A0 31 3A 99 22 11 43 52 45 41 |0.E....1:.".CREA| 00001130: 54 45 20 41 4E 4F 54 48 45 52 20 50 55 5A 5A 4C |TE ANOTHER PUZZL| 00001140: 45 3F 20 22 3B 00 63 19 F6 04 A1 4B 24 3A 8B 4B |E? ";.c....K$:.K| 00001150: 24 B3 B1 22 59 22 AF 4B 24 B3 B1 22 4E 22 A7 31 |$.."Y".K$.."N".1| 00001160: 32 37 30 00 71 19 00 05 8B 4B 24 B2 22 59 22 A7 |270.q....K$."Y".| 00001170: 8A 00 7C 19 0A 05 99 22 93 22 3A 80 00 00 00 |..|....".":.... |
..F.... COPYRIGHT 1989 COMPUTE! PUBLICAT
IONS INC., ALL RIGHTS RESERVED......169,
160,133,252,169,222,133,254,169,0,133,25
1,133,253,160,0,177.S....251,145,251,177
,253,145,253,136,208,245,230,252,230,254
,208,237,96...(..T.49152.49185:.A:.T,A:.
...2..49152:.59639,7:.1,B(1).253.N.<..53
280,11:.53281,0:.646,3:.".".9)"N........
............M".U.F...6)".....O..........
......P....."...P...3)"......... TRIPLE
SEARCH .........".I.Z...6)".....L......
................"...D...9)"M............
........N"...N..".".3)"COPYRIGHT 1989 CO
MPUTE! PUBL., INC.".:.X...11)"ALL RIGHTS
RESERVED".S...."..WHAT KIND OF SEARCH D
O YOU WISH TO CREATE?"......".1) WO
RD-SEARCH":."2) NUMBER-SEARCH":."3) PICT
OGRAM-SEARCH".G....".CHOICE: ";... ..K$:
.K$."1".K$."3".160......K$"...".12)"
":C.E(K$).4....C.1.K1$."WORD
-SEARCH":K2$."WORDS"._....C.2.K1$."NUMBE
R-SEARCH":K2$."NUMBERS"...H..C.3.K1$."PI
CTOGRAM-SEARCH":K2$."PICTOGRAMS"...R..".
..".20.C(K1$).2)K1$"..............."....
.WD.80:LN.66:.".HOW LARGE IS YOUR PUZZLE
(10 -".(WD.2)".)";:.S......S.10.S..(WD.
2).220.W....".HOW MANY "K2$" WOULD YOU L
IKE TO":."ENTER";NW:.NW.2.S.240.L....L$(
NW):.C.1.290......".WOULD YOU LIKE ME TO
GENERATE YOUR "K2$" RANDOMLY? ";.K
....K$:.K$.."Y".K$.."N".270......K$:.K$.
"Y".340.#."..".ENTER YOUR "K2$" ONE AT A
TIME.":."THEY MUST BE LESS THAN"S;.>.,.
."CHARACTERS":."LONG.".S.6..Z.1.NW:.631,
157:.632,157:.633,32:.634,34:.198,4...@.
.Z;:.L$(Z):L.C(L$(Z)):.L..S.310...J..Z:.
400...T..".HOW MANY CHARACTERS DO YOU WA
NT IN EACH "K2$". (1 -"S.1".)";:.L...^..
L.1.L..S.340. .H..".MAKING LIST. PLEASE
WAIT...".4.R..C.2.DD.10:D.48.I.|..C.3.DD
.63:D.192.}....I.1.NW:.X.1.L:L$(I).L$(I)
.G(.(DD..(1)).D):.X,I......".WOULD YOU L
IKE THE "K2$" PRINTED":."BELOW THE PUZZL
E? ";.Z....K$:.K$.."Y".K$.."N".410......
K$:.K$."Y".LY.1......".WOULD YOU LIKE TH
EM TO BE SORTED? ";.8....K$:.K$.."Y".K$.
."N".440.L.B..K$:.K$."Y".A.1...L.."..HOW
DO YOU WANT YOUR "K2$:."PLACED IN THE P
UZZLE?"...V..".1) VERTICALLY":."2) HORIZ
ONTALLY"......"3) DIAGONALLY":."4) HORIZ
ONTALLY & VERTICALLY"......"5) ALL DIREC
TIONS":.".YOUR CHOICE: ";.,....K$:.K$."1
".K$."5".500.K....K$:D.E(K$):.D.1.DD.2:.
560.B....D.2.DD.2:D.3:.560.Y....D.3.DD.4
:D.5:.560......D.4.DD.4:D.1:.560...&.DD.
8:D.1.Y.0..".ENTER THE TITLE FOR YOUR PU
ZZLE":.631,34:.198,1:.TL$...:..C(TL$).WD
.560.$.D..".ENTER THE MESSAGE TO PRINT B
ELOW THE PUZZLE.".I.N..631,34:.198,1:
.M$:.C(M$).WD.580.O.X..WF$(S,S):."PLEASE
WAIT...":GP.NW...B.GP..(GP.2):.GP.0.670
...L.F.0...V..M.1.(NW.GP):.C(L$(M))..C(L
$(M.GP)).650.....SW$.L$(M):L$(M).L$(M.GP
):L$(M.GP).SW$:F.1......M:.F.620......61
0......"..PLACING:.".7....I.1.NW:.L$(I):
PL..(DD..(1)).D.L....PL.1.O2..1:.790.`..
..PL.2.O2.1:.790.U.F..PL.3.O1..1:.850...
P..PL.4.O1.1:.850...Z..PL.5.O1..1.O2..1:
.910......PL.6.O1.1.O2.1:.910.W....PL.7.
O1.1.O2..1:.910......PL.8.O1..1.O2.1:.91
0......I.NW.980......I.....L.C(L$(I)).P.
.P1..(S..(1)).1:P2..(S..(1)).1:.P2.L.O2
.0.P2.L.O2.S.800.].*..X.0.L.1. .4.T$.J(L
$(I),X.1,1):.WF$(P1,P2.X.O2).."".T$..WF$
(P1,P2.X.O2).800.G.>..X:.X.0.L.1:.J(L$(I
),X.1,1)." "..X...H.WF$(P1,P2.X.O2).J(L$
(I),X.1,1):.X:....R.L.C(L$(I)).9.\.P1..(
S..(1)).1:P2..(S..(1)).1:.P1.L.O1.0.P1.L
.O1.S.860.F.F..X.0.L.1...P.T$.J(L$(I),X.
1,1):.WF$(P1.X.O1,P2).."".T$..WF$(P1.X.O
1,P2).860...Z..X:.X.0.L.1:.J(L$(I),X.1,1
)." "..X.X...WF$(P1.X.O1,P2).J(L$(I),X.1
,1):.X:......L.C(L$(I)).....P1..(S..(1))
.1:P2..(S..(1)).1.:....P1.L.O1.0.P1.L.O1
.S.P2.L.O2.0.P2.L.O2.S.920.Y....X.0.L.1:
T$.J(L$(I),X.1,1)......WF$(P1.X.O1,P2.X.
O2).."".T$..WF$(P1.X.O1,P2.X.O2).920....
..X:.X.0.L.1:.J(L$(I),X.1,1)." "..X...J.
WF$(P1.X.O1,P2.X.O2).J(L$(I),X.1,1):.X:.
.!.T..".PRINTING THE ANSWER KEY...":.1,4
:TA..((WD.2.S).2).K....1,..((WD.C(TL$).2
).2))TL$" KEY"G(13).H....P2.1.S:.1,.TA);
:.P1.1.S......WF$(P1,P2).""..1,"*";G(32)
;:.1030......1,WF$(P1,P2);G(32);......P1
:.1:.P2.U....X.1.LN.S:.1:.:.A..1.1120...
...".SORTING. PLEASE WAIT...":GP.NW...$.
GP..(GP.2):.GP.0.1120.....F.0.D.8..M.1.(
NW.GP):.L$(M)..L$(M.GP).1100.R.B.SW$.L$(
M):L$(M).L$(M.GP):L$(M.GP).SW$:F.1...L..
M:.F.1070...V..1060...`..".PRINTING YOUR
"K1$"..."...J..C.1.DD.26:D.65.R.T..C.2.
DD.10:D.48...~..C.3.DD.63:D.192......1,.
.((WD.C(TL$)).2))TL$G(13).&....P2.1.S:.1
,.TA);:.P1.1.S.X....WF$(P1,P2).""..1,G(.
(DD..(1)).D)G(32);:.1200.P....1,WF$(P1,P
2)G(32);.....P1:.1:.P2......1,G(13)..((
WD.C(M$)).2))M$G(13):.LY..1.1260...D.X.0
...N.X.X.1:.1,..(TA.2))L$(X)..(WD.2).C(L
$(X))..(TA.2));...X..X.NW..1:.1260.!...X
.X.1:.1,L$(X):.X..NW.1230.E... 1:.".CREA
TE ANOTHER PUZZLE? ";.C....K$:.K$.."Y".K
$.."N".1270.Q....K$."Y"...|....".":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL