Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

In a perfect World...

Uploader:Mitgliedcsde_rats
Datum/Zeit:03.11.2007 02:35:47

dim as ubyte rand
dim as string c
RANDOMIZE TIMER
do: if rand > 50 then c+=chr(90) else c+=chr(122)
locate 1,1:print c: sleep 50: rand = INT(RND * 100)+0: if len(c) >= 79 then c="": locate 1,1: print space(79)
loop until inkey=chr(27): sleep: end