DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a669ea29e⟧ TextFile

    Length: 1834 (0x72a)
    Types: TextFile
    Names: »HELP.P«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »OJG.D!HELP.P« 

TextFile

«ff»
***
*** CR80 PASCAL COMPILER (VERSION: 81/10/29)
*** COMPILATION STARTED 82/04/22 AT 15:12 
*** SOURCE FILE: @FILSYS-FILE*UPDATE2*MD*USERS.D*OJG.D*HELP.S
*** OBJECT FILE: @FILSYS-FILE*UPDATE2*MD*USERS.D*OJG.D*HELP.O
***



0001 %NOSUMMARY
0002 %NOLIST
0533 %EXECLEVEL = 2
0534 
0535 
0536 
0537 CONST
0538     FORMAT = #0720;
0539     H = 'H';
0540     D = 'D';
0541 
0542 VAR
0543     IS,OS : STREAM;
0544     CC    : COMPLETION_CODE;
0545     X     : INTEGER;
0546     CH,LE : CHAR;
0547 
0548 
0549 BEGIN
0550   CONNECT (PARAM.IFILE, INPUT_MODE, IS, CC);
0551   IF CC <> IO_OK THEN TERMINATE(CC);
0552 
0553   CONNECT (PARAM.OFILE, OUTPUT_MODE, OS,CC);
0554   IF CC <> IO_OK THEN TERMINATE(CC);
0555 
0556   OUTTEXT(OS,'(:10:)(:10:) HEXADECIMAL_DECIMAL CONVERSION (:10:)(:0:)',CC); 
0557 REPEAT
0558 OUTTEXT(OS,' TYPE IN LETTER = S TO END THE PROGRAM(:10:)(:0:)',CC);
0559 OUTTEXT(OS,' TYPE IN LETTER = H FOR HEX TO DEC CONVERSION(:10:)(:0:)',CC);
0560 OUTTEXT (OS,' OR LETTER = D FOR DEC TO HEX CONVERSION(:10:)(:0:)',CC);
0561 OUTTEXT (OS,' LETTER =(:0:)',CC);
0562   FLUSH (OS,CC);
0563 
0564   INBYTE    (IS,LE,CC);
0565   INBYTE    (IS,CH,CC);
0566   ININTEGER (IS,X,CC);
0567   INBYTE    (IS,CH,CC);
0568 
0569 
0570   IF LE = H THEN 
0571                 BEGIN
0572                  OUTTEXT(OS,' IS EQUAL TO DEC = (:0:)',CC);
0573                  OUTINTEGER(OS,X,FORMAT,CC);
0574                  FLUSH(OS,CC);
0575                 END
0576             ELSE
0577             IF LE = D THEN
0578                 BEGIN
0579                  OUTTEXT(OS,' IS EQUAL TO HEX = (:0:)',CC);
0580                  OUTHEXA(OS,X,'#',CC);
0581                  FLUSH(OS,CC)
0582                 END;
0583 UNTIL (LE <> H) AND (LE <> D);
0584 
0585   DISCONNECT (IS,PARAM.IFILE, CC);
0586   DISCONNECT (IS,PARAM.OFILE, CC);
0587 END.
 «a5»