#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "";
$partsraw = <<__EOQ__;
player1colors
playercolors
pfcolors
pfheights
no_blank_lines
readpaddle
background
__EOQ__
@parts = split(/\n/,$partsraw);
$v = 1;
foreach $part (@parts){
$val{$part} = $v;
$v *= 2;
}
$okcombosraw = <<__EOQ__;
player1colors!loss of missile1.
no_blank_lines!loss of missile0.
pfcolors
pfheights
pfcolors pfheights!Colors and height are fixed.
pfcolors pfheights background!Colors and height are fixed.
pfcolors no_blank_lines!loss of missile0.
pfcolors no_blank_lines background!loss of missile0.
player1colors no_blank_lines!loss of missile1 and missile0.
player1colors pfcolors!loss of missile1.
player1colors pfheights!loss of missile1.
player1colors pfcolors pfheights!loss of missile1 and colors and height are fixed.
player1colors pfcolors background!loss of missile1.
player1colors pfheights background!loss of missile1.
player1colors pfcolors pfheights background!loss of missile1 and colors and height are fixed.
player1colors no_blank_lines readpaddle!loss of missile1 and missile0.
player1colors no_blank_lines pfcolors!loss of missile1 and missile0.
player1colors no_blank_lines pfcolors background!loss of missile1 and missile0.
playercolors player1colors pfcolors!loss of missile1 and missile0.
playercolors player1colors pfheights!loss of missile1 and missile0.
playercolors player1colors pfcolors pfheights!loss of missile1 and missile0 & colors and height are fixed.
playercolors player1colors pfcolors background!loss of missile1 and missile0.
playercolors player1colors pfheights background!loss of missile1 and missile0.
playercolors player1colors pfcolors pfheights background|loss of missile1 and missile0 & colors and height are fixed.
no_blank_lines readpaddle!loss of missile0.
__EOQ__
# %combocosts = ("pfcolors pfheights background", "DERRP");
@okcombos = split(/\n/,$okcombosraw);
foreach $rawcombo (@okcombos){
@firststuffs = split(/\!/,$rawcombo);
$combo = $firststuffs[0];
$desc = $firststuffs[1];
#print "$combo TO $desc";
$combocosts{$combo} = $desc;
@stuffs = split(/\s+/,$combo);
$sum = 0;
foreach $stuff (@stuffs){
$sum += $val{$stuff};
}
# print "$combo $sum
";
$isok{$sum} = 1;
}
print <<__EOQ__;
batari BASIC kernel-don't-panic
batari BASIC kernel-don't-panic
batari BASIC has a number of options to let the kernel do interesting things.
Unfortunately, many of these options are mutually incompatible, and some of them are dependent
on other options!
The batari Basic Command List (maintained by Random Terrain, and where this raw data was lifted from) describes the various options and lists the valid singletons and combinations, but I found it difficult to grasp what worked with what from the list. This chart makes it easier.
__EOQ__
print qq();
print qq( | settings |
|---|
);
print qq(| allowed arguments to follow 'set kernel options' | );
foreach $part (@parts){
print qq($part | );
}
print qq(
|---|
);
for($i = 1; $i <= 128; $i++){
@usedparts = ();
foreach $part (@parts){
if($val{$part} & $i){
push @usedparts,$part;
}
}
$single = 0;
if($#usedparts == 0){
$single = 1;
}
if($isok{$i}){
print qq();
# if(! $single) {
$key = join(" ",@usedparts);
print "$key
\n";
$cost = $combocosts{$key};
#print "$cost";
print " | ";
#} else {
#print "",join(" ",@usedparts)," | \n";
# }
foreach $part (@parts){
if($val{$part} & $i){
print qq(X | );
} else {
print " | ";
}
}
print qq(
);
}
}
print qq(
);