#!/usr/bin/perl -w push(@Inc,"home/themanin/www/cgi-bin"); require("cgi-lib.pl"); &ReadParse(*input); #Determine the base price based on the system variable if($input{'system'}eq"486d66"){ #set 486 only variables $computer_name = "486DX2-66"; $price = 1099; $memory = 4; $video = "VLB"; } else{ #not a 486 must be a pentium system $computer_name = "Pentium"; $memory=8; $video="pcl"; $cache="256K Cache"; if ($input{'system'}eq"P100"){$price=1799;$ptype=100} elsif($input{'system'}eq"P75"){$price=1550;$ptype=75} elsif($input{'system'}eq"P60"){$price=1450;$ptype=60} } #add extra price for monitors over 14 inch $monitor=$input{'monitor'}; if ($input{'monitor'}eq"17inch"){$price+=650;} elsif($input{'monitor'}eq"15inch"){$price+=200;} #add multimedia system if(defined($input{'sound'})){ $price+=190; $multimedia="Multimedia System"; } #add 14.4 modem price if (defined($input{'modem'})){ $price+=69; $modem="14.4 modem"; } print&PrintHeader; print < $computer_name Systems from Gavyn Mickleson

Kingsville Computers
Melbourne!

${computer_name}$ptype for only \$$price

  • $memory megs of RAM
  • $cache
  • Enhanced IDE In/Out Controller
  • $monitor NIL SVGA Monitor
  • 1 Meg $video SVGA Video Card
  • $multimedia
  • 1.44 Floppy Drive
  • 500+ meg Hard Drive
  • Mouse
  • Windows 95
  • $modem

1 YEAR WARRANTY If your Lucky!

Or Build your own

CPUMemoryHard DiskVideo CardMonitor CD ROM Modem
print_tag