2 CLS SCREEN 13 COLOR 1 PRINT " INSTRUCTIONS.." PRINT " " PRINT " This is a really great" PRINT " screen saver where the " PRINT " screen flashes, almost like" PRINT " a strobe light. Now, pick a " PRINT " speed. The faster the number" PRINT " you pick, the faster it'll " PRINT " flash." INPUT "Pick a speed from 1 to 10: ", Speed Speed = Speed * 3 ' OK, I think I'll explain for you non-algebraic Speed = INT(Speed - 75)'*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^*^* ' people here. You take the speed and multiply Speed = ABS(Speed) ' it by 3. Now, whatever speed used to be, it's ' three times that. So, now it says- ' Speed - 75 to the nearest number. (No decimals ' or fractions) Then, it takes the absolute ' value of that. (Absolute value is just making ' the number positive, put in simplest terms. ' So, let's do an example. Let's say the person ' puts in the number "5" for speed. Now, we ' multiply it by 3 to get 15. Then, we take ' 15 - 75. That's -60. By the way, there's that ' INT thing there which makes it a whole number. ' We don't need that, but someone might say, ' "Oh, I want a speed of 3.32 or something, so ' that'll make sure it doesn't become some weird ' number. Then, it takes the absolute value ' of negative 60. (In this case) That turns ' out to be 60. It's kind of complicated, but ' It has to be that way, otherwise 1 would mean ' fast and 10 would be slow. The reason is that ' the speed tells the computer how many times ' to loop. If it loops once, that's over so ' quick, but it has to loop ten times, that ' takes longer. Just trust me-it works. PALETTE 15, 4144959 'Palette lets you create your own colors. ' To find more about palette, you can download ' a really great file which taught me about ' palettes. It's called "PALETTE.BAS", by ' William Robinson. Get it. If you still don't ' understand, you can email me. (or him, but ' I can't speak for him- I don't know if he ' wants people emailing him. Well, get it anyway, ' it's a great program.) ' *****************THIS IS THE BEGINNING OF THE PROGRAM******************** SCREEN 13 'SCREEN 13 - Big letters, MANY (like 200,000) colors, ' big pixels LINE (0, 0)-(350, 199), 15, BF 'This makes the screen white LOCATE 12, 13 COLOR 10 DO 'If you do not know what DO..LOOPs are, that's not good. ' Try the Qbasic index and if you STILL can't figure it ' out, email me. PALETTE 15, 0 ' Make the screen black FOR I = 1 TO Speed ' Keep looping for SPEED times. NEXT I PALETTE 15, 4144959 ' Make it white FOR I = 1 TO Speed ' Loop for SPEED times NEXT I LOOP UNTIL INKEY$ <> "" ' Go ALL the way back to the beginning. ' ******************THIS IS THE END OF THE PROGRAM****************** ' BELOW IS THE STUFF TO MAKE THE ENDING ' YOU MAY READ THIS. AT THE END IS A FINAL NOTE. CLS LINE (1, 1)-(340, 195), 15, BF FOR DLT = 1 TO 1000 'Delay the program for a few seconds NEXT DLT PALETTE 15, 32 * 65536 ' paint the screen blue FOR G = 1 TO 200 ' This whole thing makes circles 4 Colo = INT(RND * 14) + 1 IF Colo = 7 THEN 4 IF Colo = 8 THEN 4 Size = INT(RND * 6) + 2 Bober = INT(RND * 340) + 1 Bopper = INT(RND * 195) + 1 CIRCLE (Bober, Bopper), Size, Colo PAINT (Bober, Bopper), Colo LINE (2, 60)-(350, 80), 15, BF NEXT G FOR I = 37 TO 680 ' This makes the yellow rectangle LINE (2, 60)-((I / 2) - 17, 80), 14 SOUND I, .032 SOUND 1000, .024 NEXT I FOR I = 680 TO 37 STEP -1 LINE (349, 81)-(INT(I / 2) - 15, 60), 14 SOUND I, .032 SOUND 1000, .024 NEXT I COLOR 10 LOCATE 9, 7 PRINT "It's over. Hope you had fun." LOCATE 10, 9 PRINT "Tell me what you think!" COLOR 15 ' (((((((((((* Note from the Author *)))))))))))) ' ' OK, that's the end. IF you don't get how the screen changes color- ' let me tell you this. I told the game that color 15 was white. ' So, I made the screen in color 15. Then, I changed it and said it was ' black, so everything that was white before became black. Get it? You ' probably have this embedded in your brain by now, but if you have any ' questions, suggestions, or comments, feel free to email me. Hope you liked ' it and possibly (?) learned something from it. Thanks! ' ' -Skyfire747