Post by Azan on Aug 7, 2005 15:56:00 GMT -5
Graphics 1024,768,0,1
Global time=10
Global x=0
Print "WARNING... COMPUTER SYSTEM FAILURE IN "+time+" SHUTDOWN NOW"
For z=1 To time
Delay 1000
Print time-z
Next
While x<5
Print Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))
key=GetKey()
If key Then
x=x+1
EndIf
Wend
End
Global time=10
Global x=0
Print "WARNING... COMPUTER SYSTEM FAILURE IN "+time+" SHUTDOWN NOW"
For z=1 To time
Delay 1000
Print time-z
Next
While x<5
Print Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))+Chr$(Rnd(500))
key=GetKey()
If key Then
x=x+1
EndIf
Wend
End