Personal Heater Professional

Joakim Christiansen · Post by **Joakim Christiansen** » Fri Nov 03, 2006 1:42 am

Since it's getting very cold these days I made a masterpiece of a software to convert your home computer into a personal heater!
And guess what? It's TOTALLY FREE!!
Just run this code below and it will superheat your computer and make your life much easier at once!!

Code: Select all

OpenConsole()
ConsoleTitle("Personal Heater Professional v1.0")
PrintN("Heating in progress, press escape to quit!")
Repeat: Until Inkey() = Chr(27)

Anyone think I can sell this?

Tipperton · Post by **Tipperton** » Fri Nov 03, 2006 4:13 am

Yeah! Sell it to Microsoft to put in Vista!

It'll fit real well with the rest of the crap they've thrown into it....

Character · Post by **Character** » Fri Nov 03, 2006 9:36 am

This will burn it down..

Code: Select all

OpenConsole()

EnableGraphicalConsole(#True) 
ConsoleTitle("Personal Heater Professional v1.1")

Define.b
Move = 1

Repeat
  ConsoleLocate(X, 10)
  Print("Heating in progress, press escape to quit!")
  Delay(20)
  ConsoleLocate(X, 10)    
  Print("                                          ")
  X + Move
  If X = 20 : Move = -1 : EndIf
  If X = 0 : Beep_(100,10) : Move = 1 : EndIf
Until Inkey() = Chr(27)

CloseConsole()

PB · Post by PB » Fri Nov 03, 2006 10:35 am

On a similar subject, I'm seriously thinking of getting one of these:
http://www.ubergizmo.com/15/archives/20 ... ooler.html

Tipperton · Post by **Tipperton** » Fri Nov 03, 2006 2:05 pm

Get one of these:

And you won't need one of those....

Bonne_den_kule · Post by **Bonne_den_kule** » Fri Nov 03, 2006 3:28 pm

You need code to heat with the GPU too.

Joakim Christiansen · Fri Nov 03, 2006 10:45 pm

Bonne_den_kule wrote:You need code to heat with the GPU too.

Good idea!