Quick Basic in Application

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

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

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