#!/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/../"$/));
	chop;
	$file .= $_;
}

$file =~ s/.*"(\w*)\w{4}".*/$1/;

$file =~ s/(..)/pack("C",hex($1))/eg;

print $file;