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

[Adigun A. Polack]

To Na_th_an:

I have recently taken a good look at your “Palette in Screen 9” tutorial for QBasicNews.com (and even added it to “My Favorites” as well! ), and it has impressed me to where I can really work on the custom colors of any text- or graphics-based EGA project in QB where a palette of 64 colors turns into approximately a possible 262,144 of them ( :o ! ), all while *still* using the 16 displayable colors. Man, you do great work, and I would quite recommend your article, Na_th_an!! !

Thank you so much for your truly fine piece of advice!!! :king: !!




- 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”



UPDATE (From the afternoon of Tuesday, October 12, 2004 at 3:46pm EST): Attention please, everybody! I have just got done my sixth and ALL-NEW original screensaver in QB text mode to inspire you all even further than ever!! I sure hope you all are plain ready for this! !!

Code:

'G R A S S L A N D S   U N D E R   T H E   S T A R S
'---------------------------- QB 7-line Text Demo #6
'
'Presented to you by Adigun Azikiwe Polack.
'
'This is now my sixth and rather latest graphical text
'demo, in which it paints up a *soothingly* beautiful
'living picture of the grasslands in which the grass
'itself actually moves in the wind at night while the
'night starry sky shows itself above!  Can you even dare
'imagine that it is all being done in a 80x43 resolution
'in just 7 lines of QuickBASIC source code?  WELL BELIEVE
'IT!!!  ;*) !  And I personally think that you are going
'to enjoy this original screensaver created by yours
'truly, just for you!  God bless you and see you again!!
'       ~~~~~~~~~~~~
'
'- Adigun Azikiwe Polack
'  October 12, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 43 ELSE IF init = 3 THEN VIEW PRINT 1 TO 43 ELSE IF init = 4 THEN PALETTE 1, 8 ELSE IF init = 5 THEN PALETTE 2, 16 ELSE IF init = 6 THEN PALETTE 3, 2 ELSE IF init = 7 THEN PALETTE 4, 18 ELSE IF init = 8 THEN PALETTE 5, 8 ELSE IF init = 9 THEN PALETTE 6, 9 ELSE IF init = 10 THEN PALETTE 7, 57

2 IF init = 11 THEN LOCATE INT(RND(1) * 12) + 2, INT(RND(1) * 80) + 1 ELSE IF init = 12 THEN COLOR 1, INT(RND(1) * 3) + 5 ELSE IF init = 13 THEN PRINT MID$("████████████████████████▒█░", INT(RND * 28) + 1, 1) ELSE IF init = 14 THEN LOCATE INT(RND(1) * 2) + 14, INT(RND(1) * 80) + 1 ELSE IF init = 15 THEN COLOR 1, 2 ELSE IF init = 16 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1) ELSE IF init = 17 THEN LOCATE INT(RND(1) * 2) + 16, INT(RND(1) * 80) + 1 ELSE IF init = 18 THEN COLOR 1, 2 ELSE IF init = 19 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 20 THEN LOCATE INT(RND(1) * 2) + 18, INT(RND(1) * 79) + 1 ELSE IF init = 21 THEN COLOR 2, 1 ELSE IF init = 22 THEN PRINT "▓█"

3 IF init = 23 THEN LOCATE INT(RND(1) * 2) + 20, INT(RND(1) * 80) + 1 ELSE IF init = 24 THEN COLOR 2, 0 ELSE IF init = 25 THEN PRINT "█" ELSE IF init = 26 THEN LOCATE INT(RND(1) * 2) + 22, INT(RND(1) * 80) + 1 ELSE IF init = 27 THEN COLOR 2, 3 ELSE IF init = 28 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1) ELSE IF init = 29 THEN LOCATE INT(RND(1) * 2) + 24, INT(RND(1) * 80) + 1 ELSE IF init = 30 THEN COLOR 2, 3 ELSE IF init = 31 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 32 THEN LOCATE INT(RND(1) * 2) + 26, INT(RND(1) * 79) + 1 ELSE IF init = 33 THEN COLOR 3, 2 ELSE IF init = 34 THEN PRINT "▓█"

4 IF init = 35 THEN LOCATE INT(RND(1) * 2) + 28, INT(RND(1) * 80) + 1 ELSE IF init = 36 THEN COLOR 3, 0 ELSE IF init = 37 THEN PRINT "█" ELSE IF init = 38 THEN LOCATE INT(RND(1) * 2) + 30, INT(RND(1) * 80) + 1 ELSE IF init = 39 THEN COLOR 3, 4 ELSE IF init = 40 THEN PRINT MID$("███████▓▓▓▒▒", INT(RND * 12) + 1, 1)

5 IF init = 41 THEN LOCATE INT(RND(1) * 2) + 32, INT(RND(1) * 80) + 1 ELSE IF init = 42 THEN COLOR 3, 4 ELSE IF init = 43 THEN PRINT MID$("▓▓▓▓▒▒▒░░░", INT(RND * 10) + 1, 1) ELSE IF init = 44 THEN LOCATE INT(RND(1) * 2) + 34, INT(RND(1) * 79) + 1 ELSE IF init = 45 THEN COLOR 4, 3 ELSE IF init = 46 THEN PRINT "▓█" ELSE IF init = 47 THEN LOCATE INT(RND(1) * 7) + 36, INT(RND(1) * 80) + 1 ELSE IF init = 48 THEN COLOR 4, 0 ELSE IF init = 49 THEN PRINT "█"

6 IF init < 50 THEN init = init + 1 ELSE init = 11

7 GOTO 1

I promise you richly that you will enjoy this one indeed, I guarantee you that!



UPDATE #2 (From the afternoon of Wednesday, October 20, 2004 at 1:18pm EST): In addition to that, I want to let you all know so something, as this is *very* important here. Listen to me now, please! Just from yesterday afternoon or a bit before that, I had gotten a fresh and awesome idea that is TOTALLY out of the ordinary as to what my next 7-liner is gonna be: parallax-scrolling in textmode!! =b !! So, with that already deeply embedded in my head, here now is my seventh (and definitely mind-blowing!!!) original screensaver for this challenge:

Code:

'C H A M B E R S   O F   M O L T E N   M A G M A
'------------------------ QB 7-line Text Demo #7
'
'Presented to you by Adigun Azikiwe Polack.
'
'This is now my seventh and *MOST* revolutionary graphical
'text demo you will ever dare to see, in that it features
'utterly amazing parallax-scrolling of the flowing magma
'that lies beneath the dark chambers of some volcano!!
'You had gotta be impressed a-plenty here, as you must
'witness it all in 80x25 text mode in order for you to
'enjoy the show once this baby is run!!!  ;*) !!  It took
'me around a good 3½ hours to get this prepared to be a
'special blessing to you all in only 7 LINES of pure-QB
'code, I must say!  With all of that spoken, do kick back
'and enjoy this very exciting new demo!!!  ^_-=b !!
'
'- Adigun Azikiwe Polack
'  October 20, 2004


1 IF init = 0 THEN SCREEN 0 ELSE IF init = 1 THEN CLS  ELSE IF init = 2 THEN WIDTH 80, 25 ELSE IF init = 3 THEN PALETTE 1, 63 ELSE IF init = 4 THEN PALETTE 2, 54 ELSE IF init = 5 THEN PALETTE 3, 46 ELSE IF init = 6 THEN PALETTE 4, 36 ELSE IF init = 7 THEN PALETTE 5, 4 ELSE IF init = 8 THEN PALETTE 6, 32 ELSE IF init = 9 THEN VIEW PRINT 1 TO 25 ELSE IF init = 10 THEN COLOR 0, 1 ELSE IF init = 11 THEN CLS  ELSE IF init = 12 THEN VIEW PRINT 1 TO 22 ELSE IF init = 13 THEN COLOR 0, 0 ELSE IF init = 14 THEN CLS 2 ELSE IF init = 15 THEN VIEW PRINT 1 TO 25 ELSE IF init = 16 THEN Speed! = .25

2 IF init = 17 THEN X! = X! + (Speed! / 1) ELSE IF init = 18 THEN LOCATE 22, 1 ELSE IF init = 19 THEN COLOR 1, 2 ELSE IF init = 20 THEN PRINT MID$("░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░", X! + 1, 80) ELSE IF init = 21 THEN LOCATE 21, 1 ELSE IF init = 22 THEN COLOR 1, 2 ELSE IF init = 23 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X! + 1, 80)

3 IF init = 24 THEN X2! = X2! + (Speed! / 1.5) ELSE IF init = 25 THEN LOCATE 20, 1 ELSE IF init = 26 THEN COLOR 2, 3 ELSE IF init = 27 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X2! + 1, 80) ELSE IF init = 28 THEN X3! = X3! + (Speed! / 2) ELSE IF init = 29 THEN LOCATE 19, 1 ELSE IF init = 30 THEN COLOR 3, 4 ELSE IF init = 31 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X3! + 1, 80)

4 IF init = 32 THEN X4! = X4! + (Speed! / 2.5) ELSE IF init = 33 THEN LOCATE 18, 1 ELSE IF init = 34 THEN COLOR 5, 4 ELSE IF init = 35 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X4! + 1, 80) ELSE IF init = 36 THEN X5! = X5! + (Speed! / 3) ELSE IF init = 37 THEN LOCATE 17, 1 ELSE IF init = 38 THEN COLOR 6, 0 ELSE IF init = 39 THEN PRINT MID$("██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓██▓▒░░▒▓", X5! + 1, 80)

5 IF init = 40 THEN LOCATE INT(RND(1) * 15) + 1, INT(RND(1) * 80) + 1 ELSE IF init = 41 THEN COLOR 0, 6 ELSE IF init = 42 THEN PRINT MID$("▓▓▒░░▒▓▓▒░", INT(RND * 10) + 1, 1) ELSE IF init = 43 AND X! > 8 THEN X! = 1 ELSE IF init = 44 AND X2! > 8 THEN X2! = 1 ELSE IF init = 45 AND X3! > 8 THEN X3! = 1 ELSE IF init = 46 AND X4! > 8 THEN X4! = 1 ELSE IF init = 47 AND X5! > 8 THEN X5! = 1

6 IF init < 48 THEN init = init + 1 ELSE init = 17

7 GOTO 1

Praise God Almighty that He has inspired me to do this one to in turn inspire you all, and I hope you intensely marvel this one real good now, you understand? ;*) !