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 “CopyLeft2008 solution software qbasiccode.wordpress.com”
COLOR 14: LOCATE 10, 58: PRINT “SYSTEM  TIME”: LOCATE 10, 8: PRINT “SYSTEM  DATE”
COLOR 4:   LOCATE 9, 9: PRINT DATE$

‘locate 12,
‘COLOR 5: LOCATE 23, 26: PRINT “  press any key to return”
COLOR 4: LOCATE 6, 38: PRINT “12″
LOCATE 9, 45: PRINT “3″
LOCATE 12, 39: PRINT “6″
LOCATE 9, 32: PRINT “9″
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 9, 60
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
NEWMIN:
COLOR 0, 0: CLS
DO
VIEW SCREEN (638, 1)-(540, 85), 1, 1
‘ Get string containing minutes value.
Min$ = MID$(TIME$, 4, 2)
COLOR 2 ‘ Draw clock face.
COLOR 14: LOCATE 6, 69: PRINT “SYSTEM TIME”
Face Min$
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 5, 71
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
‘ End program when a key is pressed.
LOOP WHILE Test$ = “”
VIEW

END

‘
‘ Draw the clock face.
SUB Face (Min$) STATIC
COLOR 15, 0: CIRCLE (303, 118), 35′(600, 26), 35
‘ Convert strings to numbers.
Hr = VAL(TIME$)
Min = VAL(Min$)
‘ Convert numbers to angles.
Little = 360 – (30 * Hr + Min / 2)
Big = 360 – (6 * Min)
‘ Draw the hands.
‘ Need to add face color here
DRAW “TA=” + VARPTR$(Little) + “NU14″
COLOR 12: DRAW “TA=” + VARPTR$(Big) + “NU22″
‘LOCATE 2, 76: COLOR 14: PRINT CHR$(249)
END SUB

‘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 return”
COLOR 4: LOCATE 6, 38: PRINT “12″
LOCATE 9, 45: PRINT “3″
LOCATE 12, 39: PRINT “6″
LOCATE 9, 32: PRINT “9″
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 9, 60
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
NEWMIN:
COLOR 0, 0: CLS
DO
VIEW SCREEN (638, 1)-(540, 85), 1, 1
‘ Get string containing minutes value.
Min$ = MID$(TIME$, 4, 2)
COLOR 2 ‘ Draw clock face.
COLOR 14: LOCATE 6, 69: PRINT “SYSTEM TIME”
Face Min$
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 5, 71
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
‘ End program when a key is pressed.
LOOP WHILE Test$ = “”
VIEW

END

‘
‘ Draw the clock face.
SUB Face (Min$) STATIC
COLOR 15, 0: CIRCLE (303, 118), 35′(600, 26), 35
‘ Convert strings to numbers.
Hr = VAL(TIME$)
Min = VAL(Min$)
‘ Convert numbers to angles.
Little = 360 – (30 * Hr + Min / 2)
Big = 360 – (6 * Min)
‘ Draw the hands.
‘ Need to add face color here
DRAW “TA=” + VARPTR$(Little) + “NU14″
COLOR 12: DRAW “TA=” + VARPTR$(Big) + “NU22″
‘LOCATE 2, 76: COLOR 14: PRINT CHR$(249)
END SUB

‘  full screen 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)1993 CAVEùDATA SOFTWARE”
COLOR 14: LOCATE 10, 58: PRINT “SYSTEM  TIME”: LOCATE 10, 8: PRINT “SYSTEM  DATE”
COLOR 4:   LOCATE 9, 9: PRINT DATE$

‘locate 12,
‘COLOR 5: LOCATE 23, 26: PRINT “  press any key to return”
COLOR 4: LOCATE 6, 38: PRINT “12″
LOCATE 9, 45: PRINT “3″
LOCATE 12, 39: PRINT “6″
LOCATE 9, 32: PRINT “9″
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 9, 60
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
NEWMIN:
COLOR 0, 0: CLS
DO
VIEW SCREEN (638, 1)-(540, 85), 1, 1
‘ Get string containing minutes value.
Min$ = MID$(TIME$, 4, 2)
COLOR 2 ‘ Draw clock face.
COLOR 14: LOCATE 6, 69: PRINT “SYSTEM TIME”
Face Min$
‘ Wait until minute changes or a key is pressed.
DO
LOCATE 5, 71
COLOR 4: PRINT TIME$
‘ Test for a key press.
Test$ = INKEY$
LOOP WHILE Min$ = MID$(TIME$, 4, 2) AND Test$ = “”
‘ End program when a key is pressed.
LOOP WHILE Test$ = “”
VIEW

END

‘
‘ Draw the clock face.
SUB Face (Min$) STATIC
COLOR 15, 0: CIRCLE (303, 118), 35′(600, 26), 35
‘ Convert strings to numbers.
Hr = VAL(TIME$)
Min = VAL(Min$)
‘ Convert numbers to angles.
Little = 360 – (30 * Hr + Min / 2)
Big = 360 – (6 * Min)
‘ Draw the hands.
‘ Need to add face color here
DRAW “TA=” + VARPTR$(Little) + “NU14″
COLOR 12: DRAW “TA=” + VARPTR$(Big) + “NU22″
‘LOCATE 2, 76: COLOR 14: PRINT CHR$(249)
END SUB