wordstar.pl

#!/usr/bin/perl -w

use Data::Dumper;
use utf8;
use Switch;

if (!defined $ARGV[0] || !$ARGV[1]) {
    print(STDERR "recode_from_z1013.pl (IBM|UML|Z) <file.z80>\n");
    exit 1;
}

$encoding=$ARGV[0];
$encoding="";#entferne Warnung fuer den Moment
$file=$ARGV[1];

$output=$file;
$output =~ s/\.z80$//g;
$output .= ".txt";

open(OUT,">",$output);
open(IN,"<:raw",$file);

binmode(OUT,":utf8");

$len= -s $file;

read(IN,$content,$len);

close(IN);

#Control characters
#http://justsolve.archiveteam.org/wiki/WordStar

for($i=32; $i<length $content; $i++)
{
    if (substr($content,$i,5) eq "=\x14\x08<\x14") {
        $c="<="; $i+=4;
        printf(OUT "%s",$c);
        next;
    }
    if (substr($content,$i,3) eq "0\x08/") {
        $c="0"; $i+=2;
        printf(OUT "%s",$c);
        next;
    }
    if (substr($content,$i,3) eq "_\x08<") {
        $c="<="; $i+=2;
        printf(OUT "%s",$c);
        next;
    }
    #skip over underline 
    if (substr($content,$i,2) eq "\x08_") {
        $i+=1;
        next;
    }
    $c=substr($content,$i,1);
    $n=ord($c);
    # 8D soft CR (inserted, followed by normal linefeed 0A, to mark soft line break at word-wrap)
    if ($n>=128){
      $n=$n-128;
      $c=chr($n);
    }
    if ($n==0x0d) {
        $c="\n";
        my $lookahead=ord(substr($content,$i+1,1));
        if ($lookahead==0x0a || $lookahead==0x8a ) {
            $i++;
        }
    } elsif ($n<32) {
        switch ($n) {                                #wordstar code
            case 0x00 { $c=""; printf("?"); } #bisher fehlerhaft
            case 0x02 { $c=chr(0xf120+$n);  $c=""; } #stx B toggle bold
            #bs braucht noch besondere Behandlung            
            #case 0x08 { $c=chr(0xf120+$n);  } #bs  H backspace, overwrite previous character
            case 0x11 { $c=chr(0xf120+$n); $c=""; } #dc1 Q custom print control - Bedeutung: ??
            case 0x13 { $c=chr(0xf120+$n); $c=""; } #dc3 S toggle underline 
            case 0x14 { $c=chr(0xf120+$n); $c=""; } #dc4 T toggle superscript mode 
            case 0x16 { $c=chr(0xf120+$n); $c=""; } #syn V toggle subscript mode
            case 0x1a { $c="";             }  #sub Z end of text
            case 0x1e { $c="\n";             } #rs  ^ Inactive Soft Hyphen or new line
            case 0x1f { $c='-';             } #us  _ active soft hyphen
            else {
                printf("unbekanntes Sonderzeichen: 0x%02x [%04x] CTRL-%s\n",$n,$i,chr(0x40+$n));
                $c=chr(0xf120+$n);
            }
        }
    }
    if ($c eq "a" && substr($content,$i+1,2) eq "\x08\"") {
        $c="ä";
        $i+=2;
    }
    if (substr($content,$i,3) eq "0\x08/") {
        $c="0"; $i+=2; #oder "0".chr(0x337); 0/
    }
    if (substr($content,$i,3) eq "=\x08/") {
        $c="!="; $i+=2; #oder "0".chr(0x337); 0/
    }
    #printf("%02x ",ord($c));
    printf(OUT "%s",$c);
}

print "output:\"$output\"\n";