Name: www.qb64.net 2013-06-26 7:44
Post your shitty QB64 programs!
_CONTROLCHR OFF: DEFINT A-Z: SCREEN 13: WIDTH 40, 25: _FULLSCREEN
DO
LOCATE 24, 1: PRINT " "
LOCATE 25, 4: COLOR 9: PRINT "QB64";
LOCATE 1, 1: COLOR 13: PRINT " PROGRAMMING";
LOCATE 1, 23: COLOR 7: PRINT " ";
LOCATE 2, 23: COLOR 7: PRINT " shout out ";
LOCATE 3, 23: COLOR 7: PRINT " to all rich ";
LOCATE 4, 23: COLOR 7: PRINT " gangsta style ";
LOCATE 5, 23: COLOR 7: PRINT "niggas @ /prog/";
RANDOMIZE TIMER
m = RND * 252 + 2
my = RND * 9 + 15
mx = RND * 7 + 2
guy = RND * 2 + 1
guyp = RND * 21 + 15
guyr = RND * 254 + 1
guyg = RND * 254 + 1
guyb = RND * 254 + 1
IF guy = 1 THEN LOCATE 25, guyp: COLOR _RGB(guyr, guyg, guyb): PRINT ">";
LOCATE 25, 25: COLOR 6: PRINT "ÞÝ";
PSET (200, 196), 0: PSET (200, 197), 0
PSET (199, 196), 0: PSET (199, 197), 0
PSET (198, 197), 0: PSET (201, 197), 0
PSET (198, 194), 0: PSET (201, 194), 0
PSET (203, 192), 0: PSET (196, 192), 0
PSET (203, 199), 0: PSET (196, 199), 0
lazor = RND * 80 + 20
lazorb = RND * 1 + 0
erazor = lazor
FOR beam = 8 TO 199
lazor = lazor + lazorb
PSET (lazor, beam), _RGB(254, 41, 41)
_DELAY .001
lazor = lazor + 1
beam = beam + 1
PSET (lazor, beam), _RGB(254, 41, 41)
_DELAY .002
LOCATE my, mx: COLOR 6: PRINT CHR$(m);
NEXT beam
FOR beam = 8 TO 199
erazor = erazor + lazorb
PSET (erazor, beam), 0
_DELAY .001
erazor = erazor + 1
beam = beam + 1
PSET (erazor, beam), 0
_DELAY .001
IF beam = 199 THEN: LINE (lazor, beam)-(lazor - 5, beam - 7), 0, BF
LOCATE my, mx: COLOR 8: PRINT CHR$(m);
NEXT beam
a$ = INKEY$
LOOP UNTIL a$ <> ""