DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦d131a555a⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »DATER.CMD«

Derivation

└─⟦3fb1c4739⟧ Bits:30005266 dBase II 2.4 og SuperCalc2 m.m.
    └─⟦this⟧ »DATER.CMD« 
└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─⟦this⟧ »DATER.CMD«

TextFile

NOTE - DRIVER program for date calculation
SET TALK OFF
DO CALJUL
INPUT 'Enter interval in days between dates' TO DELTA
?
?
INPUT 'Enter number of times you want iterval' TO TOT
* - initialize counter
INPUT 'Do you want output to printer? (Y/N)' TO ANSWER
STORE 1 TO CNT
IF ANSWER
  SET PRINT ON
  ? '   START DATE = '
  ?? DATE
  SET PRINT OFF
ELSE
  ? '   START DATE = '
  ?? DATE
ENDIF
DO WHILE CNT<=TOT
   *  - increment date
   STORE X+DELTA TO X
   DO JULCAL
   STORE 1+CNT TO CNT
LOOP
ENDDO
«eof»