Quick Basic in Application

Posts Tagged ‘Gambling With QBasic ….. Part I

Gambling With QBasic ….. Part I

Posted by: programmervb on: June 14, 2008

10 SCREEN 12:CLS   ‘COPYWRITE 1993 BY Peter Elisa Souhoka STMIK GUNADARMA”
DIM YRLG(2000)
GOSUB LG
LINE (10,10)-(630,390),4,B
LINE (15,13)-(625,387),1,B
LINE (20,16)-(620,384),12,B
LINE (25,19)-(615,381),14,B
LOCATE 5,30:COLOR 3:PRINT”THE                 GAMBLER”
LOCATE 5,35:COLOR 4:PRINT”F”;
COLOR 1:PRINT” I”;
COLOR 2:PRINT” R”;
COLOR 5:PRINT” E”;
COLOR 6:PRINT” F”;
COLOR 11:PRINT” L”;
COLOR 13:PRINT” Y”
LOCATE 12,35:COLOR 2:PRINT “A — DRAW POKER”
LOCATE 13,35:COLOR 13:PRINT “B — HOT SLOTS”
LOCATE 14,35:COLOR 4:PRINT “C — ROULETTE”
LOCATE 15,35:COLOR 12:PRINT “D — [...]