You Suck - 03/06/00 14:34:39
My URL:http://yousuck.yousuck.com
My Email:yousuck@yousuck.com
Favourite Simpsons Character: Bob
Favourite Starcaft Species: The Jackasses
Comments:
%Program is Music Department
var seats: array 1..18, 1..30 of int
var quit: boolean:=false
var location: string(3)
var seperator, seperator1: int
var dumb: string(1)
%Returns Letter Component
function ReturnInteger( str: string(1) ) : int
var retVal: int
if ord(str)>64 and ord(str)<91 then
retVal:=ord(str)-64
end if
if ord(str)>96 and ord(str)<123 then
retVal:=ord(str)-96
end if
result retVal
end ReturnInteger
%Returns Integer Component
function ReturnSecondComponent( f: string(1), s: string(1) ) : int
var retVal: int:=0
if ord(f)>47 and ord(f)<58 then
retVal:=(ord(f) -48 ) * 10
end if
if ord(s)>47 and ord(s)<58 then
retVal:=retVal+(ord(s)-48)
end if
result retVal
end ReturnSecondComponent
procedure DrawSeatTable
cls
colour( 4 )
put "Auditorium Outline"
for x:1..18
for y:1..30
if seats(x,y)=1 then
colour( 15 )
put chr(1) ..
else
colour( 14 )
put chr(254) ..
end if
end for
put ""
end for
end DrawSeatTable
for x:1..18
for y:1..30
seats(x,y):=0
end for
end for
loop
DrawSeatTable
colour(7)
put "Note that if you want to sell the 5th seat you must enter 05.."
put "Enter a seat to be sold (qui quits): " ..
get location
if location="qui" then
quit:=true
else
seperator := ReturnInteger( location(1) )
seperator1:= ReturnSecondComponent( location(2), location(3) )
if seats(seperator, seperator1)=0 then
seats(seperator, seperator1):=1
else
put "Seat is already sold! Enter a new Seat!"
put "Press any key to continue..."
getch(dumb)
end if
end if
exit when quit=true
end loop
Comments:
First of all let's clear something up:
Comments:
this site sucks
Comments:
test