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 - download

⟦2fe27fde7⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »DATUM.CMD«

Derivation

└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─ ⟦this⟧ »DATUM.CMD«

TextFile

* note...this is a get 'Swedish date' routine !!
*
*
* prog name...'DATEIN'
*
CLEAR
SET TALK OFF
ERASE
RESTORE FROM DATE
*
 @ 10,20 SAY ' DAGENS DATUM... (YYMMDD) ?' GET DATE PICTURE '99/99/99'
READ
ERASE
SET DATE TO &DATE
SAVE TO DATE
RETURN
«eof»