QB text-based graphical screensaver in *just* 7 lines.

[Adigun A. Polack]

Much _grandly_ dearest all of you QB45/QB71 community,

I welcome you all to my very latest and next challenge in QB which is this: create a text-based graphical screensaver in QuickBASIC or MS-DOS QBasic in only seven (7) lines! After the success of Relsoft’s 9-liners, I thought I am gonna now test you on this one just to see how VERY EXCELLENT you *really* are at your text-based graphics coding in QB, only to get all of you so warmed up and ready to sharpen up your programming skills a little bit. So here we go, shall we? !!

_______________________________________________________

H E R E • A R E • T H E • R U L E S :

• 1 » Your program *must* be “Pure-QB”-based only. No external libraries at all, please.
  
  2 » Your program must also have no more and no less than seven (7) lines total.
  
  3 » You are welcome to use ANY text mode that is built into QB itself (e.g. 40x25, 80x43, 80x50). ^_^ !
  
  4 » No colon-joined lines, subs/functions, or Call Interrupts allowed. Ever.
  
  5 » Remark lines ( ' ) do not count as a line. You are to, however, use at least one of the remark lines at the VERY start of your coding to name your project, who you are that created it, and what your project is really all about.
  
  6 » Aside from the allowable text modes, leave all of the other modes alone for this challenge, please.
  
  7 » For the output of your program, you are only allowed (in *any* color(s) you want!) to display any of the four (4) characters:
  
  ........and that is all. No other characters.
  
  8 » After you are all finished on your project, paste it up on your reply of this thread so that we can see it!
  
  9 » You are ABSOLUTELY welcome to enter as many times as you like!!
  
  10 » The deadline for this special challenge is Monday, November 1, 2004.
  

Here now is a *real* example from me on how it is to be done:

Code:

'8 0 x 5 0   T E L E V I S I O N   S T A T I C
'---------------------- QB 7-line Text Demo #2
'
'Presented to you by Adigun Azikiwe Polack.
'
'In this QB 7-liner example here, it presents a much better
'simulation of static the way it was meant to be portrayed
'on a classic television set.  This is my improved and much
'better attempt at a seven line QB demo (whereas my first
'one failed to make the grade), and is overall one to learn
'by.  Enjoy!!!  ;*) !
'
'- Adigun Azikiwe Polack
'  September 20, 2004


1 WIDTH 80, 50
2 COLOR 8, 0
3 x = INT(RND(1) * 78) + 1
4 y = INT(RND(1) * 48) + 1
5 LOCATE y, x
6 IF INT(RND(1) * 4) + 1 = 1 THEN PRINT CHR$(176) ELSE IF INT(RND(1) * 4) + 1 = 2 THEN PRINT CHR$(177) ELSE IF INT(RND(1) * 4) + 1 = 3 THEN PRINT CHR$(178) ELSE IF INT(RND(1) * 4) + 1 = 3 THEN PRINT CHR$(219)
7 GOTO 2

_______________________________________________________


So, what are you waiting for? Prepare to devise up your RATHER BEST screensaver/demo of this kind, whether it is plasma- or fire-based or what have you!! I mean, hey, I want to see some really fine ones from you, as I am truly encouraging you as passionately as I can to do this!!! !!

Talk to you all again, and do your very best!!! :king: !!



WISHING YOU ALL DEFINITELY GOOD FORTUNE ON THIS INTERESTING CHALLENGE,


Adigun Azikiwe Polack
One of the Founders of “Aura Flow”
Continuing Developer of “Frantic Journey”
Current Developer of “Star Angelic Slugger”
Webmaster of the “AAP Official Projects Squad”



EDIT (on September 20, 2004): Last night, I posted to you an incorrect example which was:

Code:

' T W I N   W H I R L W I N D   O F   C O L O R S
' -------------------- The 7-line Text Demo in QB
'
' Presented by Adigun Azikiwe Polack.
'
' This is my first ever 7-liner about a double randomly-colored
' whirlwind kicking into your QB screen!!  It presents to you an
' amazing sample of just how good you can be at programming a
' splendid text-based graphical 7-liner in QuickBASIC/QBasic
' yourself!!!  ^_^=b !!
'
' - Adigun Azikiwe Polack
'   September 19, 2004


1 X = 1
2 C = INT(RND(1) * 31) + 1
3 LOCATE , X
4 PRINT "   " + CHR$(176) + CHR$(177) + CHR$(178) + CHR$(219) + CHR$(219) + CHR$(178) + CHR$(177) + CHR$(176) + "                                " + CHR$(176) + CHR$(177) + CHR$(178) + CHR$(219) + CHR$(219) + CHR$(178) + CHR$(177) + CHR$(176)
5 X = (INT(RND(1) * 25) + 1)
6 COLOR C
7 GOTO 2

In the very first three (3) replies of this thread, they commented about that code placed just above this piece of text, so *please* disregard that example and go for that other example of mine where the rules are. Thanks!! !



______________________________________

T H E • T H I R D • C A L I B E R • H A S • C U R R E N T L Y • A R R I V E D ! ! ! !!

Now encouraging even more positive originality than ever before, and even featuring exclusive QB challenges based on the 2004 Athens Olympic Games, too!!! ;*) !

Got game for the QuickBASIC Caliber Programming Compo 2004/2005? Then I challenge you to please visit http://dhost.hopto.org/aapproj/qbcpc/. That means YOU, pal!