:*************************************************************************** : :Name: 4Clk12.BTM (4DOS > 3.01 required) Timestamp: 10-30-90 04:30pm : Copyright (c) 1990, Dick Botbyl CIS 71571,151 : :Description: Shows big clock on screen : needs 110 bytes free environment :*************************************************************************** @echo off *set _BClr=blu on whi *set _chr=² *set _SU=x *set _ST=7 *set _MU=x *set _MT=7 *set _HU=x *set _HT=3 *set sec_col=3 setdos /s32:32 :BEGIN screen 0 0 drawbox 4 4 14 78 2 bla on bla fill bla drawbox 3 2 13 76 2 whi on blu fill whi scrput 3 32 bri yel on blu ` 4DOS Clock ` scrput 7 26 bla on whi %_chr scrput 9 26 bla on whi %_chr scrput 7 51 bla on whi %_chr scrput 9 51 bla on whi %_chr :TIME_TO Esc to exit inkey /W0 %%Key_code >nul IF "%Key_code" EQ "" GOTO FINI :SECONDS UNITS *set digit=%@substr[%_TIME,7,1] IFF %digit NE %_SU THEN *set _SU=%digit *set num_row= 5 *set num_col= 64 GOSUB WHAT_NUM unset digit ENDIFF :SECONDS TENS *set digit=%@substr[%_TIME,6,1] IFF %digit NE %_ST THEN *set _ST=%digit *set num_row= 5 *set num_col= 53 GOSUB WHAT_NUM unset digit ENDIFF :MINUTES UNITS *set digit=%@substr[%_TIME,4,1] IFF %digit NE %_MU THEN *set _MU=%digit *set num_row= 5 *set num_col= 40 GOSUB WHAT_NUM unset digit ENDIFF :MINUTES TENS *set digit=%@substr[%_TIME,3,1] IFF %digit NE %_MT THEN *set _MT=%digit *set num_row= 5 *set num_col= 28 GOSUB WHAT_NUM unset digit ENDIFF :HOURS UNITS *set digit=%@substr[%_TIME,1,1] IFF %digit NE %_HU THEN *set _HU=%digit *set num_row= 5 *set num_col= 15 GOSUB WHAT_NUM unset digit ENDIFF :HOURS TENS *set digit=%@substr[%_TIME,0,1] IFF %digit NE %_HT THEN *set _HT=%digit *set num_row= 5 *set num_col= 4 GOSUB WHAT_NUM unset digit ENDIFF :MOVING SECONDS *set sec_row=12 scrput %sec_row %sec_col %_BClr Ä *set sec_col=%@eval[%sec_col + 1] IF %sec_col EQ 76 *set sec_col=3 scrput %sec_row %sec_col red on whi Í screen 14 4 GOTO TIME_TO :WHAT_NUM IFF %digit EQ 1 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+1] %num_col %_BClr ` ħħħħ ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħ ` RETURN ENDIFF IFF %digit EQ 2 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr `ħħħħħħħħħħ` RETURN ENDIFF IFF %digit EQ 3 THEN scrput %@eval[%num_row+0] %num_col %_BClr `ħħħħħħħħħħ` scrput %@eval[%num_row+1] %num_col %_BClr ` ħħħ ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħħ ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ` scrput %@eval[%num_row+5] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħħħ ` RETURN ENDIFF IFF %digit EQ 4 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr ` ħħ ħħ ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħ ħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ ħħ ` scrput %@eval[%num_row+4] %num_col %_BClr `ħħħħħħħħħħ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħ ` RETURN ENDIFF IFF %digit EQ 5 THEN scrput %@eval[%num_row+0] %num_col %_BClr `ħħħħħħħħħħ` scrput %@eval[%num_row+1] %num_col %_BClr `ħħ ` scrput %@eval[%num_row+2] %num_col %_BClr `ħħħħħħħħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ` scrput %@eval[%num_row+5] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħħħ ` RETURN ENDIFF IFF %digit EQ 6 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+1] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ ħħħħħ ` scrput %@eval[%num_row+4] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+5] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħħħ ` RETURN ENDIFF IFF %digit EQ 7 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+2] %num_col %_BClr ` ħħ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħ ` RETURN ENDIFF IFF %digit EQ 8 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+2] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħħħħħħħ ` scrput %@eval[%num_row+4] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+5] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħħħ ` RETURN ENDIFF IFF %digit EQ 9 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+2] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+3] %num_col %_BClr ` ħħħħħ ħħ ` scrput %@eval[%num_row+4] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħ ` RETURN ENDIFF IFF %digit EQ 0 THEN scrput %@eval[%num_row+0] %num_col %_BClr ` ħħħħħħ ` scrput %@eval[%num_row+1] %num_col %_BClr ` ħħ ħħ ` scrput %@eval[%num_row+2] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+3] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+4] %num_col %_BClr `ħħ ħħ` scrput %@eval[%num_row+5] %num_col %_BClr ` ħħ ħħ ` scrput %@eval[%num_row+6] %num_col %_BClr ` ħħħħħħ ` RETURN ENDIFF RETURN :FINI setdos /s6:7 :cls unset _BClr _chr _SU _ST _MU _MT _HU _HT unset sec_col sec_row num_col num_row digit Key_Code quit