Qbasicnews.com › QbasicNews.Com › Challenges v
Challenge....

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
Challenge....
someone42 Offline
Junior Member
**
Posts: 44
Threads: 5
Joined: Jan 2003
#161
02-16-2003, 09:59 AM
Quote:got any other programs that arent 9 lines?

Well, if you're talking about graphic demos, not really. But usually I just program bits and pieces of graphical/sound/network junk.
Of course that means I have over 200 files sitting in \QB45 Smile

Well, here's another one based around the same concepts:
Code:
' Crackler screensaver by someone42
1 SCREEN 9
2 a$ = MKI$(320) + MKI$(175) + MKI$(1) + MKI$(1) + STRING$(12288, 0)
3 IF x& MOD 128 = 0 THEN MID$(a$, 1, 8) = MKI$(CVI(MID$(a$, 1, 2)) + CVI(MID$(a$, 5, 2))) + MKI$(CVI(MID$(a$, 3, 2)) + CVI(MID$(a$, 7, 2))) + MID$(a$, 5, 4)
4 IF x& MOD 128 = 0 THEN MID$(a$, 5, 4) = MKI$((2 * ((0 > CVI(MID$(a$, 1, 2))) OR (640 < CVI(MID$(a$, 1, 2)))) + 1) * CVI(MID$(a$, 5, 2))) + MKI$((2 * (0 > CVI(MID$(a$, 3, 2)) OR 350 < CVI(MID$(a$, 3, 2))) + 1) * CVI(MID$(a$, 7, 2)))
5 IF MID$(a$, x& * 12 + 19, 2) = STRING$(2, 0) THEN MID$(a$, x& * 12 + 9, 12) = MKI$((CVI(MID$(a$, 1, 2)) - 320) * 64) + MKI$((CVI(MID$(a$, 3, 2)) - 175) * 64) + MKI$(RND * 512 - 256) + MKI$(RND * 512 - 256) + MKI$(RND * 15 + 1) + MKI$(RND * 24 + 4) _
ELSE MID$(a$, x& * 12 + 9, 12) = MKI$(CVI(MID$(a$, x& * 12 + 9, 2)) + CVI(MID$(a$, x& * 12 + 13, 2))) + MKI$(CVI(MID$(a$, x& * 12 + 11, 2)) + CVI(MID$(a$, x& * 12 + 15, 2))) + MID$(a$, x& * 12 + 13, 6) + MKI$(CVI(MID$(a$, x& * 12 + 19, 2)) - 1)
6 IF MID$(a$, x& * 12 + 19, 2) <> STRING$(2, 0) THEN PSET (CVI(MID$(a$, x& * 12 + 9, 2)) \ 64 + 320, CVI(MID$(a$, x& * 12 + 11, 2)) \ 64 + 175), CVI(MID$(a$, x& * 12 + 17, 2))
7 PSET ((CVI(MID$(a$, x& * 12 + 9, 2)) - CVI(MID$(a$, x& * 12 + 13, 2))) \ 64 + 320, (CVI(MID$(a$, x& * 12 + 11, 2)) - CVI(MID$(a$, x& * 12 + 15, 2))) \ 64 + 175), 0
8 x& = (x& + 1) MOD 1024
9 IF INKEY$ = "" THEN 3
Find
Reply


Messages In This Thread
Challenge.... - by relsoft - 01-27-2003, 08:47 AM
. - by Agamemnus - 01-28-2003, 08:32 AM
Four lines ... - by Glenn - 01-28-2003, 08:35 AM
Re: Four lines ... - by relsoft - 01-28-2003, 08:52 AM
You forgot to pull the trigger. - by Glenn - 01-28-2003, 11:50 AM
Challenge.... - by Anonymous - 01-28-2003, 07:20 PM
agamemnus - by Agamemnus - 01-28-2003, 08:38 PM
Challenge.... - by BlueKeyboard - 01-29-2003, 02:22 AM
Challenge.... - by Dav - 01-29-2003, 03:20 AM
Challenge.... - by Hexadecimal Disaster - 01-29-2003, 07:28 AM
Challenge.... - by relsoft - 01-29-2003, 09:16 AM
Challenge.... - by LooseCaboose - 01-29-2003, 04:36 PM
Challenge.... - by relsoft - 01-29-2003, 04:46 PM
Challenge.... - by Dav - 01-29-2003, 07:50 PM
Challenge.... - by Neo - 01-30-2003, 04:15 PM
Challenge.... - by Antoni Gual - 01-31-2003, 04:14 AM
! - by Agamemnus - 01-31-2003, 04:53 AM
A more eye-friendly one... - by Antoni Gual - 01-31-2003, 05:07 AM
Challenge.... - by wizardlife - 01-31-2003, 06:25 AM
Challenge.... - by wizardlife - 01-31-2003, 07:40 AM
Challenge.... - by toonski84 - 01-31-2003, 08:07 AM
Challenge.... - by Agamemnus - 01-31-2003, 08:35 AM
Challenge.... - by relsoft - 01-31-2003, 09:46 AM
The Matrix revisited - by Antoni Gual - 01-31-2003, 08:52 PM
Challenge.... - by BlueKeyboard - 01-31-2003, 09:19 PM
Challenge.... - by wizardlife - 01-31-2003, 10:44 PM
Do you want another one? - by Antoni Gual - 01-31-2003, 10:51 PM
Re: Do you want another one? - by wizardlife - 01-31-2003, 11:24 PM
Challenge.... - by wizardlife - 01-31-2003, 11:55 PM
Challenge.... - by wizardlife - 02-01-2003, 12:06 AM
A huge program... - by Antoni Gual - 02-01-2003, 01:29 AM
Challenge.... - by Antoni Gual - 02-01-2003, 01:48 AM
Challenge.... - by BlueKeyboard - 02-01-2003, 01:51 AM
Challenge.... - by toonski84 - 02-01-2003, 03:19 AM
No palette rotators? - by Antoni Gual - 02-01-2003, 03:31 AM
Challenge.... - by wizardlife - 02-01-2003, 04:58 AM
Challenge.... - by Dav - 02-01-2003, 05:41 AM
Challenge.... - by Agamemnus - 02-01-2003, 06:51 AM
Challenge.... - by wizardlife - 02-01-2003, 07:23 AM
Challenge.... - by relsoft - 02-01-2003, 09:02 AM
Challenge.... - by relsoft - 02-01-2003, 09:12 AM
Challenge.... - by Antoni Gual - 02-01-2003, 03:40 PM
Challenge.... - by Antoni Gual - 02-01-2003, 04:49 PM
Challenge.... - by toonski84 - 02-01-2003, 07:24 PM
Challenge.... - by wizardlife - 02-01-2003, 09:47 PM
Challenge.... - by wizardlife - 02-01-2003, 09:56 PM
Challenge.... - by toonski84 - 02-01-2003, 10:15 PM
Challenge.... - by Antoni Gual - 02-01-2003, 11:24 PM
Challenge.... - by toonski84 - 02-01-2003, 11:26 PM
A sloooooow floormapper .. - by Antoni Gual - 02-02-2003, 01:56 AM
Challenge.... - by wildcard - 02-02-2003, 03:04 AM
Re: A sloooooow floormapper .. - by wizardlife - 02-02-2003, 03:07 AM
Challenge.... - by relsoft - 02-02-2003, 08:04 AM
my entry - by Lithium - 02-02-2003, 09:34 AM
Challenge.... - by Antoni Gual - 02-02-2003, 10:30 AM
Here's "fire" - by Lithium - 02-02-2003, 11:09 AM
the never ending hello - by Lithium - 02-02-2003, 01:48 PM
Challenge.... - by relsoft - 02-02-2003, 02:13 PM
Challenge.... - by Lithium - 02-02-2003, 03:01 PM
Challenge.... - by ak00ma - 02-02-2003, 03:34 PM
Challenge.... - by Antoni Gual - 02-02-2003, 05:01 PM
Challenge.... - by Dav - 02-02-2003, 06:22 PM
Challenge.... - by toonski84 - 02-02-2003, 07:22 PM
Challenge.... - by toonski84 - 02-02-2003, 07:30 PM
Challenge.... - by toonski84 - 02-02-2003, 09:14 PM
Bouncing balls! - by Lithium - 02-02-2003, 11:57 PM
Challenge.... - by Dav - 02-03-2003, 12:28 AM
Challenge.... - by toonski84 - 02-03-2003, 03:07 AM
rotozoomer - by Generic - 02-03-2003, 05:49 AM
Challenge.... - by toonski84 - 02-03-2003, 06:12 AM
Challenge.... - by Dav - 02-03-2003, 08:58 AM
Heh - by Nexinarus - 02-03-2003, 10:18 AM
Challenge.... - by relsoft - 02-03-2003, 11:35 AM
Pixel Scrolling Pattern - by BinarySHOCK - 02-03-2003, 04:23 PM
Another 1 - by BinarySHOCK - 02-03-2003, 05:01 PM
Challenge.... - by toonski84 - 02-03-2003, 05:04 PM
Challenge.... - by Agamemnus - 02-03-2003, 05:51 PM
Fire, 8 lines - by BinarySHOCK - 02-03-2003, 06:10 PM
Challenge.... - by Dav - 02-03-2003, 10:37 PM
Challenge.... - by Nexinarus - 02-03-2003, 11:34 PM
Challenge.... - by Antoni Gual - 02-04-2003, 01:47 AM
Am I becoming blind? - by Antoni Gual - 02-04-2003, 02:09 AM
Challenge.... - by Dav - 02-04-2003, 03:49 AM
Challenge.... - by toonski84 - 02-04-2003, 06:12 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 08:18 AM
Challenge.... - by toonski84 - 02-04-2003, 08:21 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 08:45 AM
Challenge.... - by westie - 02-04-2003, 09:15 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 10:46 AM
Challenge.... - by toonski84 - 02-04-2003, 11:49 AM
Re: Am I becoming blind? - by relsoft - 02-04-2003, 12:00 PM
Challenge.... - by relsoft - 02-04-2003, 12:02 PM
James Bond style - by Ichiban_Addict - 02-04-2003, 12:31 PM
Challenge.... - by relsoft - 02-04-2003, 12:41 PM
weird pinwheel - by Ichiban_Addict - 02-04-2003, 01:16 PM
Challenge.... - by Dav - 02-04-2003, 10:04 PM
Challenge.... - by mofu - 02-05-2003, 03:27 AM
Challenge.... - by mofu - 02-05-2003, 03:57 AM
Challenge.... - by na_th_an - 02-05-2003, 05:45 AM
Challenge.... - by Nexinarus - 02-05-2003, 08:29 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 09:20 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 10:03 AM
Challenge.... - by relsoft - 02-05-2003, 10:03 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 10:18 AM
Challenge.... - by red_Marvin - 02-05-2003, 02:43 PM
Challenge.... - by Agamemnus - 02-05-2003, 07:49 PM
Challenge.... - by relsoft - 02-06-2003, 09:38 AM
Challenge.... - by BinarySHOCK - 02-06-2003, 10:09 AM
Challenge.... - by toonski84 - 02-06-2003, 02:31 PM
Challenge.... - by BinarySHOCK - 02-06-2003, 04:43 PM
Challenge.... - by relsoft - 02-07-2003, 11:07 AM
Challenge.... - by toonski84 - 02-08-2003, 02:41 AM
Challenge.... - by Antoni Gual - 02-08-2003, 03:25 AM
Challenge.... - by toonski84 - 02-08-2003, 09:17 AM
Challenge.... - by relsoft - 02-08-2003, 11:49 AM
Challenge.... - by Antoni Gual - 02-08-2003, 04:29 PM
Challenge.... - by toonski84 - 02-08-2003, 09:44 PM
Challenge.... - by Antoni Gual - 02-08-2003, 10:14 PM
Easy saver - by qbasicmaster - 02-08-2003, 11:37 PM
Challenge.... - by ak00ma - 02-09-2003, 12:47 AM
Challenge.... - by na_th_an - 02-09-2003, 12:50 AM
Challenge.... - by toonski84 - 02-09-2003, 09:18 AM
Challenge.... - by relsoft - 02-09-2003, 12:21 PM
Challenge.... - by red_Marvin - 02-09-2003, 05:15 PM
Challenge.... - by Antoni Gual - 02-09-2003, 09:18 PM
Challenge.... - by na_th_an - 02-09-2003, 09:27 PM
Challenge.... - by Antoni Gual - 02-09-2003, 09:36 PM
Challenge.... - by toonski84 - 02-10-2003, 12:19 AM
Challenge.... - by toonski84 - 02-10-2003, 12:26 AM
Challenge.... - by Antoni Gual - 02-10-2003, 04:56 AM
Menos mal! - by phobeous - 02-10-2003, 05:06 AM
Challenge.... - by westie - 02-10-2003, 10:33 AM
Challenge.... - by Rokkuman - 02-10-2003, 11:04 AM
Challenge.... - by relsoft - 02-10-2003, 11:20 AM
Challenge.... - by Agamemnus - 02-10-2003, 09:33 PM
Challenge.... - by relsoft - 02-11-2003, 07:56 AM
Challenge.... - by toonski84 - 02-11-2003, 08:00 AM
Challenge.... - by relsoft - 02-11-2003, 08:06 AM
Challenge.... - by toonski84 - 02-11-2003, 08:13 AM
Challenge.... - by relsoft - 02-11-2003, 08:21 AM
Challenge.... - by toonski84 - 02-11-2003, 08:34 AM
Challenge.... - by relsoft - 02-11-2003, 12:26 PM
A compil - by biskbart - 02-13-2003, 12:09 PM
Challenge.... - by Antoni Gual - 02-14-2003, 02:07 AM
Challenge.... - by relsoft - 02-14-2003, 10:21 AM
Challenge.... - by Neo - 02-14-2003, 04:33 PM
Challenge.... - by BlueKeyboard - 02-14-2003, 05:38 PM
That's ok - by biskbart - 02-14-2003, 05:40 PM
Challenge.... - by Agamemnus - 02-15-2003, 06:51 AM
Challenge.... - by someone42 - 02-15-2003, 01:05 PM
Challenge.... - by toonski84 - 02-15-2003, 08:59 PM
Challenge.... - by Lanzaa - 02-15-2003, 09:31 PM
Challenge.... - by someone42 - 02-16-2003, 09:59 AM
Challenge.... - by BlueKeyboard - 02-16-2003, 08:46 PM
Challenge.... - by toonski84 - 02-16-2003, 09:40 PM
Wirlpool - by Antoni Gual - 02-17-2003, 05:00 AM
Challenge.... - by relsoft - 02-17-2003, 10:02 AM
Challenge.... - by someone42 - 02-17-2003, 12:54 PM
Challenge.... - by toonski84 - 02-17-2003, 01:32 PM
Challenge.... - by Neo - 02-17-2003, 02:38 PM
Challenge.... - by relsoft - 02-18-2003, 09:38 AM
Challenge.... - by BlueKeyboard - 02-19-2003, 12:02 AM
Challenge.... - by toonski84 - 02-19-2003, 03:40 AM
Challenge.... - by BlueKeyboard - 02-20-2003, 01:37 AM
Challenge.... - by toonski84 - 02-20-2003, 04:14 AM
Text mode rotozoomer - by BinarySHOCK - 02-22-2003, 09:41 AM
Challenge.... - by R@dioman - 02-22-2003, 09:44 AM
Challenge.... - by red_Marvin - 02-23-2003, 09:51 PM
Challenge.... - by toonski84 - 02-23-2003, 10:53 PM
Challenge.... - by red_Marvin - 02-23-2003, 11:11 PM
Challenge.... - by na_th_an - 02-23-2003, 11:15 PM
Challenge.... - by red_Marvin - 02-23-2003, 11:21 PM
Challenge.... - by oracle - 04-18-2003, 07:11 AM
Challenge.... - by na_th_an - 04-18-2003, 07:40 AM
Challenge.... - by oracle - 04-18-2003, 08:00 AM
Challenge.... - by TerraGoetia - 04-18-2003, 08:22 AM
Challenge.... - by na_th_an - 04-18-2003, 08:30 AM
Challenge.... - by oracle - 04-18-2003, 08:54 AM
Challenge.... - by na_th_an - 04-18-2003, 02:56 PM
Challenge.... - by red_Marvin - 04-19-2003, 01:47 AM
Challenge.... - by oracle - 04-19-2003, 09:25 AM
Challenge.... - by na_th_an - 04-19-2003, 05:34 PM
Challenge.... - by red_Marvin - 04-19-2003, 10:18 PM
Challenge.... - by oracle - 04-20-2003, 09:37 AM
Challenge.... - by relsoft - 04-21-2003, 10:00 AM
Challenge.... - by oracle - 04-22-2003, 02:20 AM
Challenge.... - by seph - 05-23-2003, 05:53 AM
Challenge.... - by seph - 05-23-2003, 06:18 AM
Challenge.... - by relsoft - 05-23-2003, 08:28 AM
Challenge.... - by oracle - 05-23-2003, 10:36 AM
Challenge.... - by BinarySHOCK - 05-23-2003, 11:34 AM
Challenge.... - by oracle - 05-24-2003, 04:07 AM
Challenge.... - by seph - 05-24-2003, 10:06 PM
here's one...7 lines, 187 bytes - by Mango - 05-25-2003, 01:03 AM
Screen Saver - by Dantheman10110 - 05-25-2003, 04:58 AM
Challenge.... - by red_Marvin - 05-25-2003, 07:23 PM
Challenge.... - by Agamemnus - 05-25-2003, 11:32 PM
Challenge.... - by oracle - 05-26-2003, 05:18 AM
Challenge.... - by relsoft - 05-26-2003, 08:39 AM
Challenge.... - by Hexadecimal Disaster - 05-26-2003, 11:48 AM
Challenge.... - by toonski84 - 05-26-2003, 06:43 PM
Challenge.... - by toonski84 - 05-26-2003, 08:47 PM
Challenge.... - by Mango - 05-27-2003, 05:07 AM
Challenge.... - by toonski84 - 05-27-2003, 05:44 AM
Challenge.... - by Mango - 05-27-2003, 07:55 AM
Challenge.... - by toonski84 - 05-27-2003, 08:19 AM
Challenge.... - by oracle - 05-27-2003, 09:09 AM
Challenge.... - by toonski84 - 05-27-2003, 09:11 AM
Challenge.... - by relsoft - 05-27-2003, 10:36 AM
Challenge.... - by relsoft - 01-30-2003, 10:31 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)