DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦e3c2a10cd⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »TEST.C«

Derivation

└─⟦93c4d868c⟧ Bits:30005869 SW1609 Digital Research C v. 1.11 - May 84
    └─ ⟦this⟧ »TEST.C« 
└─⟦b85731168⟧ Bits:30002664 Digital Research C - CCP/M - May 84
    └─ ⟦this⟧ »TEST.C« 
└─⟦fa5b86546⟧ Bits:30002725 SW1609 Digital Research C - CCP/M - Oct 83
    └─ ⟦this⟧ »TEST.C« 

TextFile

int i,j;
long l,k;
float f,g;
double d,e;

main()
æ
  printf("************************************************Øn");
  printf("**       WELCOME TO DIGITAL RESEARCH C        **Øn");
  printf("**                                            **Øn");
  printf("**  This sample program tests the C compiler, **Øn");
  printf("**  linker and libraries.   If the number in  **Øn");
  printf("**  parentheses matches the number to the     **Øn");
  printf("**  immediate left, each component is working **Øn");
  printf("**  properly.                                 **Øn");
  printf("************************************************Øn");
  printf("Øn");

  printf("Test      int math: 4567 * 10 = "); i = 4567; j = 10;
  printf("%u (45670)Øn",i * j);

  printf("Test long int math: 1234 * 4567 = "); l = 1234; k = 4567;
  printf("%ld (5635678)Øn",l * k);

  printf("Test float    math: 1.234 + 0.001 = "); f = 1.234; g = 0.001;
  printf("%g (1.235)Øn",f + g);

  printf("Test double   math: 5635678.0 / 1234.0 = ");
  d = 5635678.0;
  e = 1234.0;
  printf("%g (4567)Øn",d / e);

  printf("ØnGood Luck!Øn");
å

«eof»