johnblood/tldm-2503
1
0
Fork 0
Code Pull Requests Actions Packages Releases Wiki Activity

added CMS folder

Browse Source
This commit is contained in:
John Paul Wohlscheid
2025-03-31 19:00:48 -04:00
parent c04bc757d9
commit 33048897a7
17778 changed files with 586914 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
CMS/BP.CLOCK/TIMER Normal file
View File

@@ -0,0 +1,10 @@
* THIS ROUTINE RETURNS THE INTERNAL OR EXTERNAL TIME GIVEN EXTERNAL OR INTERNAL - BMT 4/29/87
1 INPUT X
IF X='' OR X='END' THEN GOTO 900
O=OCONV(X,"MTS")
I=ICONV(X,"MT")
PRINT O
PRINT I
GOTO 1
900 STOP
END