""Keep in mind that the budget is one million dollars so it can't be anything too big.""
Is redeeming social value a requisite?
For 10% of that i'll build you a digital clock that displays in Roman Numerals...
(Remember Hula Hoops and Pet Rocks...)
here's the QBASIC program
::::::::::::::::::::::::::::::::::::::::::::::::::::::
' program clock displays time in 24 hr Roman numerals
' press q to exit
DATA "","M","MM","MMM","Mv","v","vM","vMM","vMMM","Mx"
DATA "","C","CC","CCC","CD","D","DC","DCC","DCCC","CM"
DATA "","X","XX","XXX","XL","L","LX","LXX","LXXX","XC"
DATA "","I","II","III","IV","V","VI","VII","VIII","IX"
DIM m(10), c(10), x(10), i(10) AS STRING
FOR a = 0 TO 9: READ m$(a): NEXT a
FOR a = 0 TO 9: READ c$(a): NEXT a
FOR a = 0 TO 9: READ x$(a): NEXT a
FOR a = 0 TO 9: READ i$(a): NEXT a
'
ON TIMER(1) GOSUB time
TIMER ON
WHILE INKEY$ <> "q"
WEND
END
time: time = TIMER
sec = INT(time) MOD 60
min = INT(time / 60) MOD 60
hr = INT(time / 3600) MOD 60
hr$ = m$(INT(hr / 10)) + c$(hr MOD 10)
min$ = x$(INT(min / 10)) + i$(min MOD 10) + ":"
sec$ = x$(INT(sec / 10)) + i$(sec MOD 10)
'
PRINT "Time : "; hr; min; sec, hr$ + min$ + sec$
RETURN
:::::::::::::::::::::::::::::::::::::::::::
old jim
