Welcome to the Lounge

Re: BASIC Puzzle (Beginner's All-purpose Symbolic Instructional Code)

2-Dec-14 10:31

Right you are.
And with what you've said and what another commenter said (about true = -1 -- not 1 like I thought) I believe it is possible that what the dev was trying to do is just insure that the byte value was not a negative value -- by multiplying any value which is negative by -1 to get a positive number.

Thanks for your input.

Jeremy Falcon2-Dec-14 10:49

Re: BASIC Puzzle (Beginner's All-purpose Symbolic Instructional Code)

2-Dec-14 10:49

newton.saber wrote:
1. weird data read syntax READ T$ just reads that data in

In BASIC, putting a dollar sign at the end of a variable was shorthand for ensuring the variable is a string.

newton.saber wrote:
2. odd function called SEG$()

It's just a substring type function. Also, ASC() converts a character to its numerical equivalent, such as A to 65.

newton.saber wrote:
But this one I can't look up, because N<32 means something quite different when involved with an if statement.

BASIC doesn't have a bit-wise operator like that. It's doing a less than comparison operation.

Jeremy Falcon

newton.saber2-Dec-14 10:58

Re: BASIC Puzzle (Beginner's All-purpose Symbolic Instructional Code)

2-Dec-14 10:58

Great information. Thanks very much for reading and giving me some more clues.
I really appreciate your time.
Thanks to everyone's help and clues, I've cracked the code / "encryption" and I'm going to post another entry in this thread explaining where this all came from.
Thanks again.

Kornfeld Eliyahu Peter2-Dec-14 10:50

Kornfeld Eliyahu Peter

2-Dec-14 10:50

You may play with this here:
http://calormen.com/jsbasic/[^]

(N<32) will return 1 (true) or 0 (false)
64 is the @ char, and 26 is the number of Latin letters...
Also remember that T$ can contain only characters you can input from keyboard (printable ones)...
An ASCII table for reference: http://www.asciitable.com/[^]

Skipper: We'll fix it.
Alex: Fix it? How you gonna fix this?
Skipper: Grit, spit and a whole lotta duct tape.

Re: BASIC Puzzle (Beginner's All-purpose Symbolic Instructional Code)

Jeremy Falcon2-Dec-14 10:52

Re: BASIC Puzzle (Beginner's All-purpose Symbolic Instructional Code)

2-Dec-14 10:52

That's cool. Thumbs Up | :thumbsup:

Jeremy Falcon

newton.saber2-Dec-14 11:00

2-Dec-14 11:00

Thanks very much for reading my crazy little thread and replying with helpful insights.
I really appreciate it.
Because of everyone posting, I've cracked it and I will post an answer at the bottom of this thread. Thanks again.

newton.saber2-Dec-14 11:29

2-Dec-14 11:29

I know this is long, but it took me 30 years to figure this code out. Big Grin | :-D

Seriously.

Thanks To All
First of all, thanks to everyone who contributed information.
Everyone got me looking at the odd code (N<32) and thinking about it differently.
The big trick was that old BASIC considers -1 (negative 1) to be value for TRUE.
That was the KEY to solving this.

Coleco Adam
The code is from a program found in a magazine (Family Computing) from November 1984. I was but a lad then and owned my first computer a Coleco Adam[^]. I didn't know anything but tried to type this program in and it never worked.

Flash Forward to Now
30 Years later I did a google for Lapis Lazuli Coleco Adam and someone has archived the magazine online. CRAZY!!! I guess I've just always thought of this because it was my first programming experience.

You can see it here:
THe Case of the Missing Lapis Lazuli[^]
I just had to know the answer to the Mystery. Why didn't it work? And what were the real words that the data represented?

Old BASIC Code
I started examining the code and the first thing I found out was that the TI-99 code was the nicest so I used it to try to crack the code.
If you want to just see the code listing look at this page of the article (left page)[^]:

Cracked The Code- Rewritten In C#

If you have the great LINQPad C# TOOL[^] you can copy my final code below and run it and see the data is cracked.

The original data looks like:

4000 DATA 3,THINBCHA,BURGEKCN,TUVI0N,4,CMKHUH*V 
4010 DATA KABGUVAT,SYBLAR,6HIVBA,S,HLBH4ER,KHLDETYR 
4020 DATA NHCIF,NHWAS,KHTES,5,PIXUHBESA,FNUfiSKY 
4030 DATA HJBHYQA4G,SUX,CHADPLQLeJ,1 ,HPYBPX,1 ,DAEXGL 
4040 DATA 1 ,8YTKUVYCVEJ,1 ,C5=7<1 ,1 ,HZVEEBE,1S 
4050 DATA DGSVVI6X):,AQIPUP,J=,LIME,GAHRLU,IRW,SMAX 
4060 DATA dqhvvsv2,fznk,satgwl,hba,kesp,twfiwe,h-ij:h 
4070 DATA CUHYHUVHG1,4,HERSYRPG,LAZ,TNBY,I8LNWN7

There's an interesting part of the algorithm which reads the integer from the data, determines that is the number of words that it should read, then it reads the next N data items as words.
You can see all of this in the code at the previous link.

Here's the final C# code just to decrypt the data.

void Main()
{
	string [] allStrings = { "THINBCHA","BURGEKCN","TUVION",
			"CWKHUH*V","MABGUVAT","SYBLAR","GHIVBA",
			"MLBH4ER","KHLDETYR","NMCIF","NHWAS","KHTES",
			"PIXUHBESA","FNURSKY","MJBHYQA4G","SUX","CHADPLQLQJ",
			"MPYBPX",
			"DAEXGL",
			"BYTKUVYCVEJ",
			"C5=7<1",
			"MZVEEBE",
			"DGSVVIGX%","AQIPUP","J=","LIME","GAHRLU","IRW","SMAX","DQMVVSV2","FZNK","SATGWL","MBA","KESP","TWFIWE","HIZM","CUHYHUVHG1",
			"MERSYRPG","LAZ","TNBY","IBLNWN7" };
	
	foreach (string strIn in allStrings)
	{
		byte encryptor = (byte)(Convert.ToByte(strIn[0]) - 64);
		// Console.WriteLine("encryptor value: {0} ", encryptor); // used in XOR
		string outWord = string.Empty;
		int elseCounter = 0;
		for(int x=1; x<strIn.Length;x++)
		{
			byte outByte = (byte)(Convert.ToByte(strIn[x]) - encryptor);
			// Console.Write(string.Format("{0} ", outByte));
			if ((outByte + encryptor) >= 65)
			{
				if (outByte < 65)
				{
					outWord += Convert.ToChar((byte)((outByte-26*-1)));
				}
				else
				{
					outWord += Convert.ToChar((byte)((outByte)));
					
				}
			}
			else
			{
				
				//outWord += Convert.ToChar((byte)((outByte+-11*33*(outByte^encryptor))));
				elseCounter++;
				if (outByte < 32)
				{
					outWord += Convert.ToChar((byte)((outByte-33*-1)));
				}
				else
				{
					outWord += Convert.ToChar((byte)((outByte)));
				}

				outWord += Convert.ToChar(outByte);
			}
		}
		// Console.WriteLine("**** STAGE 2 *****");
		Console.WriteLine(outWord);
		//Console.WriteLine();
		//Console.WriteLine("elseCounter : {0}", elseCounter);
		//Console.WriteLine();
		//Console.WriteLine();
	}
}

After that I can figure out the answer to the puzzle. Even though it is in weird order and there are still a couple of scrambled ones--- due to my mistyping or something.

Lapis Lazuli Puzzle ANSWER SPOILER ALERT!!!!
NOTHING
SPECIAL
ABOUT
THERE''S
NOTHING
FISHY
ABOUT
YOU''RE
WASTING
YOUR
TIME
WITH
SHERLOCK
HOLMES
WOULDN''T
BE
EXAMINING
CLOCK
WATCH
WRISTWATCH
22::4499..
MIRROR
CORRECT!!
PHOTO
33
WAS
TAKEN
IN
THE
MIRROR..
THE
HANDS
ON
THE
CLOCK
ARE
REVERSED..
REFLECT
ON
THE
SCENE..

modified 2-Dec-14 17:50pm.

Jeremy Falcon2-Dec-14 11:41

2-Dec-14 11:41

Good work man.

Jeremy Falcon

newton.saber2-Dec-14 11:46

2-Dec-14 11:46

Thank you so much for reading my thread and replying and responding to me.
I'm sitting here thinking about how I can't believe I solved this old problem for myself and I want to shout from the hilltops, "I figured this out!!!"

It's not even a truly meaningful problem, but it is just so interesting to go back to something that stumped the person you were and now to figure it out as the person you are. Smile | :)

I feel a bit of poetry coming on. Big Grin | :-D

Dave Kreskowiak2-Dec-14 12:12

Dave Kreskowiak

2-Dec-14 12:12

I have a TI-99/4A emulator that I would have just run it on.

The thing works great and brings back a ton of memories from back in the day.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

kmoorevs3-Dec-14 3:26

kmoorevs

3-Dec-14 3:26

Dave Kreskowiak wrote:
I have a TI-99/4A emulator

Wow, didn't even know there was one. Thanks!

I have my original TI-99/4A out in the garage. It has probably been close to 20 years since I fired it up. It was a real life changer for me and I can't bring myself to throw it away. Smile | :)

"Go forth into the source" - Neal Morse

Dave Kreskowiak3-Dec-14 17:26

Dave Kreskowiak

3-Dec-14 17:26

Just Google for "Classic99"

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Andy Brummer2-Dec-14 15:54

Andy Brummer

2-Dec-14 15:54

congrats.

Curvature of the Mind now with 3D

Natural Disasters

Vivi Chellappa2-Dec-14 6:45

Vivi Chellappa

2-Dec-14 6:45

No one teaches a Volcano how to Erupt....
No one teaches a Tsunami how to Rise.....
No one teaches a Hurricane how to Sway...
No one teaches a MAN or a WOMAN how to choose a WIFE or HUSBAND!!!!!!

Natural Disasters Just Happen.😜😁😁😜😜😜

modified 2-Dec-14 13:03pm.

PIEBALDconsult2-Dec-14 7:08

PIEBALDconsult

2-Dec-14 7:08

Take it to the Soapbox.

Johnny J.4-Dec-14 23:15

Johnny J.

4-Dec-14 23:15

I would have said: Take it to Stackoverflow... D'Oh! | :doh:

Anything that is unrelated to elephants is irrelephant
Anonymous
-----
The problem with quotes on the internet is that you can never tell if they're genuine
Winston Churchill, 1944
-----
I'd just like a chance to prove that money can't make me happy.
Me, all the time

jeron12-Dec-14 7:25

jeron1

2-Dec-14 7:25

Vivic wrote:
No one teaches a Volcano how to Erupt....

You obviously haven't met my missus.

"the debugger doesn't tell me anything because this code compiles just fine" - random QA comment

"Facebook is where you tell lies to your friends. Twitter is where you tell the truth to strangers." - chriselst

OriginalGriff2-Dec-14 8:00

OriginalGriff

2-Dec-14 8:00

So...forgot the wedding anniversary again, have we?

Bad command or file name. Bad, bad command! Sit! Stay! Staaaay...

Kornfeld Eliyahu Peter2-Dec-14 8:08

Kornfeld Eliyahu Peter

2-Dec-14 8:08

Probably the wedding day itself...

Skipper: We'll fix it.
Alex: Fix it? How you gonna fix this?
Skipper: Grit, spit and a whole lotta duct tape.

Deflinek2-Dec-14 8:28

Deflinek

2-Dec-14 8:28

OriginalGriff wrote:
So...forgot the wedding anniversary again, have we?

You can't forget it again. The best way to always remember is to forget it once! Smile | :)

--
"My software never has bugs. It just develops random features."

jeron12-Dec-14 9:41

jeron1

2-Dec-14 9:41

Deflinek wrote:
You can't forget it again.

Of course you can, brain damage caused by repeated blows to the cranium with a heavy blunt object, brought on by the first time you forgot. Smile | :)

Slacker0072-Dec-14 8:14

Slacker007

2-Dec-14 8:14

Marriage is not natural. That is why you have to force it to work. When a man and woman or "partners" decide they are done forcing, then that becomes divorce/breakup.

Jeremy Falcon2-Dec-14 8:36

2-Dec-14 8:36

Slacker007 wrote:
Marriage is not natural.

You're right in the fact that most people just aren't happy in one and that's not natural, but it can work. The way I see it is it's a feminine thing. Masculine energy wants to roam free. Either the man or woman can take on the masculine role since someone has to in a couple. Feminine energy is so wrapped up in their partner they'd never think of straying, the exact opposite of masculine. And yes, either the man or woman can take that role too.

The problem arises because most people tie the knot without enough relationship experience to find out who they are compatible with. They don't get the wild out of their system. Etc. There are even women out there that don't like, but still understands a man's need to roam the streets. And of course, wonderfully awesome bi chicks that are willing to join in the extra marital fun with you.

So while I do think life-long lock down isn't natural as you do, it can work. And it would work a lot better if more people knew more about relationships. That being said, I'm not getting married any time soon. Smile | :)

Jeremy Falcon