PSET (IBM) by Mike Babz

My submission is dubbed "PSET" and showcases a demo of what the PSET command can do in QBasic 7.1. It creates sort of a melting color changing dot based screen saver that moves continuously for 10000 rotations and then using the PSET command again it will remove itself from the screen dot by dot till a blank screen and repeat the process all over. Use the CTRL+C to kill the process. 

-Mike Babz

1 SCREEN 12: DIM pointsx(100), pointsy(100): RANDOMIZE TIMER
  
2 FOR amount = 1 TO 10000: c = INT(RND * 15) + 1: FOR P = 1 TO 100: pointsx(P) = INT(RND * 800): pointsy(P) = INT(RND * 800): NEXT P
3 FOR P = 1 TO 100: PSET (pointsx(P), pointsy(P)), c + 1
4 NEXT P
5 FOR SPRINKLE = 1 TO INT(RND * 5000) + 1: FOR P = 1 TO 100: pointsx(P) = INT(RND * 800): pointsy(P) = INT(RND * 800)
6 PSET (pointsx(P), pointsy(P)), c: NEXT P
7 NEXT SPRINKLE: NEXT amount
8 FOR amount = 1 TO 10000: FOR P = 1 TO 100: pointsx(P) = INT(RND * 800): pointsy(P) = INT(RND * 800): NEXT P
9 FOR P = 1 TO 100: PSET (pointsx(P), pointsy(P)), 0: NEXT P:
10 NEXT amount