Automatic Hex conversion of text for Hardball

[rcamp48]

I have taken more than 8 hours to write and perfect a program that will take any word(s) that you type in and convert that series of words into a string of HEX codes that are exact codes for printing text on the player stats screen on Hardball.

 

Because Hardball uses a non standard code for upper case and lower case letter and for numbers, I took the time to make a program that will help you with Sherlock, or any HEX editor for that Atari 8 Bit , here is the ATR with whe proglam in Basic, and DOS, DUP, etc.

 

Automatically calculate HEX strings for Hardball Editing.atr

[TGB1718]

Had a quick look at your code, I think you may have one of the checks wrong, 

line 1080 checks for "i"

so does line 2080, is that meant to be "I" and the code "29" ?

 

Also you could put a "RETURN" after each character check as it will only return on the line that matches

[rcamp48]

37 minutes ago, TGB1718 said:

Had a quick look at your code, I think you may have one of the checks wrong, 

line 1080 checks for "i"

so does line 2080, is that meant to be "I" and the code "29" ?

 

Also you could put a "RETURN" after each character check as it will only return on the line that matches

Let me have a look, it may be an error

Russ

 

[rcamp48]

Right you are, I corrected it, I will put in the returns and re-upload it, then it should be faster

Russ

 

[TGB1718]

Here's a different way to lookup the hex characters, no quicker, but a lot less typing

 

1 ? CHR$(125)
10 DIM A$(100),B$(200),C$(20),D$(1),OUT$(2)
20 A$="abcdefghijklmnopqrstuvwxyzA BCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
30 B$="0102030405060708090A0B0C0D0E0F101112131415161718191A21  "
40 B$(LEN(B$)+1)="22232425262728292A2B2C2D2E2F303132333435363738393A4142434445464748494A"
60 POSITION 0,6:? "                      ":POSITION 5,5:? "ENTER STRING ":INPUT C$
70 IF C$="" THEN 10000
80 FOR I=1 TO LEN(C$):D$=C$(I,I)
90 GOSUB 1000
100 NEXT I
110 GOTO 60
1000 FOR J=1 TO LEN(A$)
1010 IF A$(J,J)=D$ THEN 1100
1020 NEXT J
1030 RETURN 
1100 POP :OUT$=B$(J*2-1,J*2)
1110 ? OUT$;" ";
1120 RETURN 
10000 END 

[rcamp48]

My version has printer support and saves to disk, plus its already typed in, I will post the new version..... however I do like your version too....have you used a hex editror before? I use Disk Magic from Blak Magic Software , hope to edit Hardball to put in the 2021 teams really soon, starting with The Yankees and the Red Sox

 

Russ

 

[TGB1718]

Hope you don't mind, couldn't resist trying to speed it up a bit

Uses a machine code USR call to speed up the lookup process

 

1 ? CHR$(125)
10 DIM A$(100),B$(200),C$(20),D$(1),OUT$(2)
15 GOSUB 20000
20 A$="abcdefghijklmnopqrstuvwxyzA BCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
30 B$="0102030405060708090A0B0C0D0E0F101112131415161718191A21  "
40 B$(LEN(B$)+1)="22232425262728292A2B2C2D2E2F303132333435363738393A4142434445464748494A"
60 POSITION 0,6:? "                      ":POSITION 5,5:? "ENTER STRING ":INPUT C$
70 IF C$="" THEN 10000
80 FOR I=1 TO LEN(C$):D$=C$(I,I)
90 X=USR(1536,ADR(A$),ADR(D$),LEN(A$)):GOSUB 1000
100 NEXT I
110 GOTO 60
1000 X=X+1:OUT$=B$(X*2-1,X*2)
1010 ? OUT$;" ";
1020 RETURN 
10000 END 
20000 I=0:RESTORE 
20010 READ A:IF A=-1 THEN RETURN 
20020 POKE 1536+I,A:I=I+1:GOTO 20010
20030 DATA 104,104,133,204,104,133,203,104,133,206
20040 DATA 104,133,205,104,104,141,46,6,160,0
20050 DATA 177,205,209,203,240,13,200,204,46,6
20060 DATA 208,246,169,0,133,212,133,213,96,169
20070 DATA 0,133,213,132,212,96,0,-1

[rcamp48]

Don't mind at all, thanks

Russ

 

[rcamp48]

I should mention that there is a mistake in my original program, I have the number 0 listed as 4A, when in fact it is 40, and I have added the comma , which is 4D....other than that no changes , I find that I am using the program quite often for helping my write out names in the hex editor. I am still hard at work producing the very first 2021 team for Hardball, and there is a lot of data that I missed in the 1985 program, I still copied sectors 106 , and 112 to 128, but I missed sector 105, that is where you can put the name of the 2 teams in highlighted text, instead of 'Cracked by whomever from that era', I am also working on a midi port for the Atari 8 bit, it needs a midi keyboard to play back any music? Apparently there is a way to get my music into the Fujinet through Bluetooth, (yes the Fujinet supports it).

 

Russ

 

PS: This is what I use the program for:

 

 

 

In order to make updates for this program , I need what I have written in the above....