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 — [...]