Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!src.honeywell.com!msi.umn.edu!cs.umn.edu!uc!noc.MR.NET!gacvx2.gac.edu!hhdist
From: postmaster.DUNG_BEETLE@gateway.qm.apple.com (postmaster)
Newsgroups: comp.sys.handhelds
Subject: Steve Winters :Unknown QM u
Message-ID: <9101032344.AA19376@internal.apple.com>
Date: 3 Jan 91 21:48:29 GMT
Lines: 68
To: handhelds@gac.edu
Return-path: <postmaster.DUNG_BEETLE@gateway.qm.apple.com>
To: handhelds@gac.edu

Mail*Link#170#                    Steve Winters :Unknown QM u
Received: by gateway.qm.apple.com; 3 Jan 91 15:48:26
Received: from apple.com by goofy.apple.com with SMTP (5.61/25-eef)
	id AA19330; Thu, 3 Jan 91 15:43:33 -0800
	for Steve_Winters.PERIPH_PROJ@gateway.qm.apple.com
Received: from gacvx2.gac.edu by apple.com with SMTP (5.61/25-eef)
	id AA26243; Thu, 27 Dec 90 06:53:52 -0800
	for Steve_Winters.PERIPH_PROJ@gateway.qm.apple.com
Date: Thu, 27 Dec 1990 08:48 CST
From: handhelds@gac.edu
Subject: ASC to bin program
Sender: NEWSMGR@gacvx2.gac.edu
To: HANDHELDS@gacvx2.gac.edu
Errors-To: postmaster@gac.edu
Reply-To: handhelds@gac.edu
Message-Id: <E01B62F8200015C0@gacvx2.gac.edu>
X-Vms-To: IN%"HANDHELDS@GACVX2.GAC.EDU"
Comments: Forwarded from COMP.SYS.HANDHELDS by GACVX2.GAC.EDU

Relay-Version: VMS News - V6.0-1 14/11/90 VAX/VMS V5.4; site gacvx2.gac.edu
Path:
gacvx2.gac.edu!hpuslma!hpfcse!hpfcmgw!hpfcso!hplabs!sdd.hp.com!usc!samsung!noose.ecn.purdue.edu!en.ecn.purdue.edu!wscott
Newsgroups: comp.sys.handhelds
Subject: ASC to bin program
Message-ID: <1990Dec9.201154.21797@en.ecn.purdue.edu>
From: wscott@en.ecn.purdue.edu (Wayne H Scott)
Date: Sun, 9 Dec 1990 20:11:54 GMT
Organization: Purdue University Engineering Computer Network
Date-Received: Tue, 18 Dec 1990 23:16:51 GMT
Lines: 38


The following is a script that I have found useful.  It will read a
text file containing a program encoded in the ->ASC format and 
extract the binary file. 

I use this to speed downloads to my HP.  And I don't need the ->ASC program
on the 48.

It is written in perl so I realize that many people will not be able to
use it.  Someday the rest of the world will understand.

#!/usr/unsup/perl

# unasc

# A perl program to extract a HP-48 binary from a text file containing a 
# ->ASC program. 
#
# Usage: unasc file > binfile
#
# Written by Wayne Scott  1990

while (<>) {
	next if (!(/^%%HP/../"$/)); 	# Skip everything but program
	chop;				
	$file .= $_;		
}

$file =~ s/.*"(\w*)\w\w\w\w".*/\1/;	# strip newlines, ", and CRC

$file =~ s/(.)(.)/pack(C,hex(\1.\2))/eg;  # convert ascii to bin

print $file;
-- 
_______________________________________________________________________________
Wayne Scott             |  INTERNET:   wscott@ecn.purdue.edu
Electrical Engineering  |  BITNET:     wscott%ecn.purdue.edu@purccvm
Purdue University       |  UUCP:      {purdue, pur-ee}!ecn.purdue.edu!wscott