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 — [...]
Posted by: programmervb on: June 3, 2008
DECLARE SUB CURVE (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION DIST! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION RADIANS! (X!)
DECLARE FUNCTION MOVEX! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION MOVEY! (X1!, Y1!, X2!, Y2!)
‘*********************************
‘* *
‘* A FRACTAL COASTLINE-RECURSE *
‘* *
‘*********************************
DEFSNG A-Z
CLEAR , , 12000
SCREEN 2
CONST PI = 3.14159
WINDOW (-500!, 500!)-(500!, -500!)
X1 = -250: Y1 = 200
X2 = 250: Y2 = 200
CALL [...]
Posted by: programmervb on: June 3, 2008
DECLARE SUB CURVE (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION DIST! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION RADIANS! (X!)
DECLARE FUNCTION MOVEX! (X1!, Y1!, X2!, Y2!)
DECLARE FUNCTION MOVEY! (X1!, Y1!, X2!, Y2!)
‘*********************************
‘* *
‘* A FRACTAL COASTLINE-RECURSE *
‘* *
‘*********************************
DEFSNG A-Z
CLEAR , , 12000
SCREEN 2
CONST PI = 3.14159
WINDOW (-500!, 500!)-(500!, -500!)
X1 = -250: Y1 = 200
X2 = 250: Y2 = 200
CALL [...]