computoman

Text clocks seem to be a big thing right now. Here is one written in qbasic. qb64 result: Freebasic result: Source code: [code] 'UNSEEN'S NOT A STANDARD CLOCK DIM SEC AS STRING, MIN AS STRING, HR AS STRING SCREEN 0: COLOR 3, 15: WIDTH 40, 25 CLS DO HR$ = LEFT$(TIME$, 2): MIN$ = MID$(TIME$, 4, 2): SEC$ = RIGHT$(TIME$, 2) LOCATE 1, 1: PRINT HR$; ":"; MIN$; ":"; SEC$ 'MINUTES IF (VAL(MIN$) <  10 and val(min$) >= 5) OR (VAL(MIN$) >= 55 AND VAL(MIN$) < 60) THEN COLOR 12, 15 LOCATE 3, 2: PRINT "FIVE": COLOR 3, 15 IF VAL(MIN$) >= 10 AND VAL(MIN$) < 15 OR VAL(MIN$) >= 50 AND VAL(MIN$) < 55 THEN COLOR 12, 15 LOCATE 3, 8: PRINT "TEN": COLOR 3, 15 IF VAL(MIN$) >= 15 AND VAL(MIN$) < 20 OR VAL(MIN$) >= 45 AND VAL(MIN$) < 50 THEN COLOR 12, 15 LOCATE 3, 13: PRINT "FIFTEEN": COLOR 3, 15 IF VAL(MIN$) >= 20 AND VAL(MIN$) < 25 OR VAL(MIN$) >= 40 AND VAL(MIN$) < 45 THE...

Just something to play with. DIM Angle(1) DIM MyData(0 TO 4) DIM C(1 TO 4) Pi = 4 * ATN(1)                                                   '  Can use 3.141593 Radius = 200                                                      '  Change these to suit your taste  Xc = 319                               ...