Quick Basic in Application

Archive for June 2008

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

Converts Degrees to Radians

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

Fractal

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

Tags: