Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 The turing heart moniter
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
PHP God




PostPosted: Fri May 23, 2003 10:05 pm   Post subject: The turing heart moniter

just slap this messy cose into OOT and you have your very own Turing heart moniter Very Happy

code:

var beats:int
var times:int
    times:=0
   
var any:string (1)

var screen:int:=Window.Open ("fullscreen")

loop

setscreen ("cursor")

colorback (black)
color (brightgreen)
cls

put "How many times would you like to have the heart beat before it flatlines?"
get beats

setscreen ("nocursor")

loop
colorback (brightgreen)
cls
sound (440,100)
colorback (black)
cls
delay (1000)
times:=times+1
if times=beats then
exit
end if
end loop
colorback (red)
color (black)
cls
sound (350,1000)
put "You're dead"
put ""
put "Press any key to try again..."
getch (any)
cls
times:=0
end loop

[/list]
Sponsor
Sponsor
Sponsor
sponsor
Dan




PostPosted: Fri May 23, 2003 10:42 pm   Post subject: (No subject)

most hear meater things have a green grahp line not a fashing green back but it is still cool so +5 bits
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
PHP God




PostPosted: Sat May 24, 2003 11:29 am   Post subject: (No subject)

I'll have to work on that Razz
Homer_simpson




PostPosted: Sat May 24, 2003 1:51 pm   Post subject: (No subject)

i dont get it... =/
PaddyLong




PostPosted: Sat May 31, 2003 12:38 pm   Post subject: (No subject)

I'm at a loss as to what the point of this was...
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 5 Posts ]
Jump to:   


Style:  
Search: