Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
In a perfect World...
| Uploader: |  csde_rats |
| Datum/Zeit: | 03.11.2007 02:35:36 |
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