Archive for June 3rd, 2008
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 [...]
Clock
Posted by: programmervb on: June 3, 2008
‘clock view
DECLARE SUB Face (Min$)
SCREEN 9
MAIN:
COLOR 0, 0: CLS
Min$ = MID$(TIME$, 4, 2)
COLOR 2 ‘ Draw clock face.
Face Min$
‘COLOR 11: LOCATE 1, 26: PRINT “(C)1994 redevelop “
COLOR 14: LOCATE 10, 58: PRINT “JAM”: LOCATE 10, 8: PRINT “TANGGAL”
COLOR 4: LOCATE 9, 9: PRINT DATE$
‘locate 12,
‘COLOR 5: LOCATE 23, 26: PRINT “ press any key to [...]
Flickr Photos
|
