Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!seismo!lll-crg!nike!ucbcad!ucbvax!decwrl!kaoa01.dec.com!curzon From: curzon@kaoa01.dec.com Newsgroups: net.micro.atari8 Subject: BINARY file Message-ID: <5525@decwrl.DEC.COM> Date: Wed, 24-Sep-86 23:09:55 EDT Article-I.D.: decwrl.5525 Posted: Wed Sep 24 23:09:55 1986 Date-Received: Thu, 25-Sep-86 07:26:17 EDT Sender: daemon@decwrl.DEC.COM Organization: Digital Equipment Corporation Lines: 1274 Thanks to Bruce Langdon for that Action source code... I'm sure others would be interested in seeing a summary listing of your Action library that you mentionned many moons ago. (Also I can't seem to mail to you directly) SOFTWARE SWAPPING DEPT This is a binary for a board-type game. I called it SMACK; it's based on "Concentration", but it adds logical clues. Has 2 player or variable against-the-computer modes. Needs joystick(s) and at least 48K since it uses high res graphics. School kids like it especially. It's in "no cartridge required" Action / public domain. Documentation is in the program. ACS asks you to say here that certain parts are copyright by ACS, since it is compiled code. No problem as long as there is no charge for the software... If anybody wants the source, let me know. [Any comment out there on posting binaries? USENET rules say to follow the newsgroups customs; many binaries/sources have appeared here over the past year....I assume anyone can chooose to skip reading messages that say BINARY in the subject. Looks from here like a good way to distribute stuff.] Dick Curzon Digital Equipment of Canada PO Box 13000 Kanata Ontario Canada K2K 2A6 (DEC E-NET) KAOA01::CURZON (UUCP) {decvax, ucbvax, allegra}!decwrl!kaoa01.dec.com!curzon (ARPA) curzon%kaoa01.DEC@decwrl.ARPA ;-------------------------- DECODER PROGRAM 1 REM HEXBIN 1.1, DECEMBER 1984 2 REM -- BY DAN FLEYSHER -- 3 REM (FLEYSHER.WBST@XEROX) 4 REM THIS BASIC PROGRAM CONVERTS A 5 REM HEXADECIMAL TEXT FILE CREATED 6 REM BY COMPANION PROGRAM BINHEX 7 REM BACK INTO ITS ORIGINAL BINARY 8 REM FILE FORMAT. THE CHECKSUM AT 9 REM THE END OF THE INPUT HEX FILE 10 REM IS VERIFIED. 11 REM 20 DIM FILEIN$(15),FILEOUT$(15) 30 BUFSIZ=37:DIM BUF$(BUFSIZ) 40 ASCA=ASC("A"):ASCF=ASC("F"):ASC0=ASC("0"):ASC9=ASC("9") 50 ? "} HEXBIN 1.0":? :? 60 TRAP 60:? "INPUT FILENAME";:INPUT FILEOUT$ 70 IF FILEOUT$<>"" THEN 90 80 FILEOUT$="D:HEXFILE.TXT":? " ";FILEOUT$:GOTO 100 90 GOSUB 1000 100 FILEIN$=FILEOUT$:? 110 TRAP 110:? "OUTPUT FILENAME";:INPUT FILEOUT$:GOSUB 1000:? 120 TRAP 40000:SUM=0 130 OPEN #4,4,0,FILEIN$:OPEN #5,8,0,FILEOUT$ 140 TRAP 310:INPUT #4,BUF$:? BUF$:LBUF=LEN(BUF$):IF LBUF<7 THEN 140 142 FOR I=1 TO LBUF-6:IF BUF$(I,I+6)=".START." THEN 146 144 NEXT I:GOTO 140 146 POP :? " STARTING FILE CONVERSION" 150 TRAP 310:INPUT #4,BUF$:? BUF$:LBUF=LEN(BUF$):EVENODD=0:REM EVEN=0 155 IF LBUF=0 THEN 150 160 FOR I=1 TO LBUF 170 HEX1=ASC(BUF$(I,I)) 180 IF HEX1>=ASC0 AND HEX1<=ASC9 THEN HEX1=HEX1-ASC0:GOTO 200 190 IF HEX1>=ASCA AND HEX1<=ASCF THEN HEX1=HEX1-ASCA+10:GOTO 200 192 IF LBUF