Data commit
This commit is contained in:
Ingy döt Net
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
78
Task/Draw-a-clock/REXX/draw-a-clock.rexx
Normal file
78
Task/Draw-a-clock/REXX/draw-a-clock.rexx
Normal file
|
|
@ -0,0 +1,78 @@
|
|||
/*REXX program displays the current (local) time as a digital clock on the terminal.*/
|
||||
trace off /*turn off tracing/possible host errors*/
|
||||
parse arg ! /*obtain optional arguments from the CL*/
|
||||
if !all(arg()) then exit /*was there a request for some help? */
|
||||
if !cms then address '' /*If CMS, then initialize ADDRESS name*/
|
||||
|
||||
signal on halt /*initialize target label when HALTed. */
|
||||
signal on noValue /* " " " " noValue.*/
|
||||
signal on syntax /* " " " " syntax. */
|
||||
|
||||
parse var ! ops /*obtain optional arguments from the CL*/
|
||||
ops = space(ops) /*elide superfluous blanks from options*/
|
||||
blinkSecs = 1 /*amount of time between displays. */
|
||||
creep = 1 /*moves the output "around" the screen.*/
|
||||
tops = '.C=blue .BC=░ .BS=1 .BLOCK=12' /*options to be specified for $T.REXX */
|
||||
|
||||
do while ops\=='' /*process all the specified options. */
|
||||
parse var ops _1 2 1 _ . 1 y ops /*extract various information from opt.*/
|
||||
upper _ /*uppercase the _ REXX variavle. */
|
||||
select
|
||||
when _==',' then nop /*ignore any comma used.*/
|
||||
when _1==. & pos("=",_)\==0 then tops= tops y /*add this value to TOPS*/
|
||||
when abbn('BLINKSECs') then blinksecs= no() /*use/not use BLINKSECs.*/
|
||||
when abbn('CREEPs') then creep= no() /* " " " CREEPs. */
|
||||
otherwise call er 55,y /*whoops! Invalid option*/
|
||||
end /*select*/
|
||||
end /*while ops¬==''*/
|
||||
|
||||
if \!pcrexx then blinkSecs= 0 /*Not PC/REXX? Then turn off BLINKSECS*/
|
||||
tops= space(tops) /*elide superfluous blanks in TOPS. */
|
||||
parse value scrsize() with sd sw . /*obtain the terminal screen dimensions*/
|
||||
oldTime= /*blank out the OLDTIME for comparison.*/
|
||||
do until queued()\==0 /*if user entered some text, then QUIT.*/
|
||||
ct= time() /*obtain the current (system) time. */
|
||||
mn= substr(ct, 4, 2) /*extract the minutes part of the time.*/
|
||||
ss= right(ct, 2) /* " " seconds " " " " */
|
||||
i_= 0 /*REXX variable used for display creep.*/
|
||||
p_= 0 /* " " " " " " */
|
||||
call blinksec
|
||||
if ct==oldTime then if !cms then 'CP SLEEP' /*sleep for one second. */
|
||||
else call delay 1 /* " " " " */
|
||||
|
||||
if creep then do; p_ = 3 + right(mn, 1) /*perform display creep.*/
|
||||
if sd>26 then p_ = p_ + left(mn, 1)
|
||||
if sd>33 then p_ = p_ + left(mn, 1)
|
||||
if sd>44 then p_ = p_ + left(mn, 1) + right(mn, 1)
|
||||
end
|
||||
_p= - p_ /*change the sign of the P_ number. */
|
||||
i_= 2 + left(ct, 1) /*obtain indentation size base on HH. */
|
||||
if sw>108 then ctt= ct /*maybe use wider format for the clock*/
|
||||
else ctt= left(ct, 5) /*maybe use narrow " " " " */
|
||||
r= $t('.P='_p ".I="i_ tops ctt) /*where the rubber meets the road. */
|
||||
if r\==0 then leave /*Had an error in $T ? Then quit. */
|
||||
oldTime= time() /*save the new time, it may be the same*/
|
||||
end /*forever*/
|
||||
exit 0 /*stick a fork in it, we're all done. */
|
||||
|
||||
/*═════════════════════════════general 1-line subs══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════*/
|
||||
!all: !!=!;!=space(!);upper !;call !fid;!nt=right(!var('OS'),2)=='NT';!cls=word('CLS VMFCLEAR CLRSCREEN',1+!cms+!tso*2);if arg(1)\==1 then return 0;if wordpos(!,'? ?SAMPLES ?AUTHOR ?FLOW')==0 then return 0;!call=']$H';call '$H' !fn !;!call=;return 1
|
||||
!cal: if symbol('!CALL')\=="VAR" then !call=; return !call
|
||||
!env: !env= 'ENVIRONMENT'; if !sys=="MSDOS" | !brexx | !r4 | !roo then !env= 'SYSTEM'; if !os2 then !env= "OS2"!env; !ebcdic= 3=='f3'x; if !crx then !env= "DOS"; return
|
||||
!fid: parse upper source !sys !fun !fid . 1 . . !fn !ft !fm .; call !sys; if !dos then do; _= lastpos('\', !fn); !fm= left(!fn, _); !fn= substr(!fn, _+1); parse var !fn !fn '.' !ft; end; return word(0 !fn !ft !fm, 1 +('0'arg(1)))
|
||||
!rex: parse upper version !ver !vernum !verdate .; !brexx= 'BY'==!vernum; !kexx= "KEXX"==!ver; !pcrexx= 'REXX/PERSONAL'==!ver | "REXX/PC"==!ver; !r4= 'REXX-R4'==!ver; !regina="REXX-REGINA"==left(!ver, 11); !roo='REXX-ROO'==!ver; call !env; return
|
||||
!sys: !cms= !sys=='CMS'; !os2= !sys=="OS2"; !tso= !sys=='TSO' | !sys=="MVS"; !vse= !sys=='VSE'; !dos= pos("DOS", !sys)\==0 | pos('WIN', !sys)\==0 | !sys=="CMD"; !crx= left(!sys, 6)=='DOSCRX'; call !rex; return
|
||||
!var: call !fid; if !kexx then return space( dosenv( arg(1) ) ); return space( value( arg(1), , !env))
|
||||
$t: !call= ']$T'; call "$T" arg(1); !call=; return result
|
||||
abb: parse upper arg abbu; parse arg abb; return abbrev(abbu, _, abbl(abb) )
|
||||
abbl: @abc = 'abcdefghijklmnopqrstuvwxyz'; return verify(arg(1)'a', @abc, 'M') - 1
|
||||
abbn: parse arg abbn; return abb(abbn) | abb('NO'abbn)
|
||||
blinksec: if \blinksecs then return; bsec= ' '; ss2= right(ss, 2); if sw<=80 then bsec= copies(" ", 2 + ss2) ss2; call scrwrite 1 + right(mn, 1), 1, bsec, , , 1; call cursor sd - right(mn, 1), sw - length(bsec); return
|
||||
er: parse arg _1,_2; call '$ERR' "14"p(_1) p(word(_1, 2) !fid(1)) _2; if _1<0 then return _1; exit result
|
||||
err: call er '-'arg(1),arg(2); return ''
|
||||
erx: call er '-'arg(1),arg(2); exit 0
|
||||
halt: call er .1
|
||||
no: if arg(1)\=='' then call er 01,arg(2); return left(_, 2) \== 'NO'
|
||||
noValue: !sigl= sigl; call er 17,!fid(2) !fid(3) !sigl condition('D') sourceline(!sigl)
|
||||
p: return word( arg(1), 1)
|
||||
syntax: !sigl= sigl; call er 13,!fid(2) !fid(3) !sigl !cal() condition('D') sourceline(!sigl)
|
||||
Loading…
Add table
Add a link
Reference in a new issue