Bip

[Lord_Korian]

Nome: Bip

Autore: LoRd_KoRiAn

Descrizione: verifica se lo specker (la cassa interna del vostro pc) è funzionante...

Screen:

Link: h**p://lordkorian.altervista.org/BIP.rar

Sorgente:

Program bip;
USES CRT;
VAR X,Z,Y,W:REAL;

begin
      clrscr;
      TextColor(RED);
      WriteLn('SALVE');
      TextColor(RED);
      WriteLn('QUESTO PROGRAMMA TESTA LA CASSA INTERNA DEL VOSTRO PC!');
      TextColor(RED);
      WriteLn('SE E FUNZIONANTE SENTIRETE UN BIP!');
      NormVideo;
      TEXTCOLOR(RED);
      WRITELN('DIGITATE UN QUALSIASI NUMERO PER CONTINUARE E POI INVIO');
      READLN(X);
      SOUND(200);
      DELAY(9999);
      NOSOUND;
      TEXTCOLOR(RED);
      WRITELN('SE AVETE SENTITO UN BIP ALLORA FUNZIONANO!');
      WRITELN('                                                                BY LORD KORIAN');
      READLN
END.

 

[sCiEnZiAtOpAzZo]

Bella Lord! Ma un modo x aumentare il volume dell'altoparlante di sistema in modo da far prendere una coccia alla nostra vittima (o a noi stessi)???
Ovviamente lo dico a modi scherzetto

 

[Lord_Korian]

Penso che sia quello il massimo se vai a vedere è minuscola la cassa

 

[sCiEnZiAtOpAzZo]

Hihihi è vero

 

[HaCk-ChAn]

Bip Bip xD

 

[imported_AlexBio]

lol, e così il pascal serve a qualcosa...

 

[imported_KRONOS]

uahahahhah..... Pascal....

 

[HaCk-ChAn]

Pascaaaaaaaaal ci sta nu bip rint o computer )

 

[Langy]

in c questa riga fa la stessa cosa di quel papiro

system("\a");

 

[HaCk-ChAn]

in c questa riga fa la stessa cosa di quel papiro

system("\a");

Quoto XD