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

⟦657bc62c1⟧ TextFile

    Length: 1346 (0x542)
    Types: TextFile
    Names: »HELP.S«

Derivation

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

TextFile

%NOSUMMARY
%NOLIST
$@**GENS.D*PREFIX
%LIST
%EXECLEVEL = 2



CONST
    FORMAT = #0720;
    H = 'H';
    D = 'D';

VAR
    IS,OS : STREAM;
    CC    : COMPLETION_CODE;
    X     : INTEGER;
    CH,LE : CHAR;


BEGIN
  CONNECT (PARAM.IFILE, INPUT_MODE, IS, CC);
  IF CC <> IO_OK THEN TERMINATE(CC);

  CONNECT (PARAM.OFILE, OUTPUT_MODE, OS,CC);
  IF CC <> IO_OK THEN TERMINATE(CC);

  OUTTEXT(OS,'(:10:)(:10:) HEXADECIMAL_DECIMAL CONVERSION (:10:)(:0:)',CC); 
REPEAT
OUTTEXT(OS,' TYPE IN LETTER = S TO END THE PROGRAM(:10:)(:0:)',CC);
OUTTEXT(OS,' TYPE IN LETTER = H FOR HEX TO DEC CONVERSION(:10:)(:0:)',CC);
OUTTEXT (OS,' OR LETTER = D FOR DEC TO HEX CONVERSION(:10:)(:0:)',CC);
OUTTEXT (OS,' LETTER =(:0:)',CC);
  FLUSH (OS,CC);

  INBYTE    (IS,LE,CC);
  INBYTE    (IS,CH,CC);
  ININTEGER (IS,X,CC);
  INBYTE    (IS,CH,CC);


  IF LE = H THEN 
                BEGIN
                 OUTTEXT(OS,' IS EQUAL TO DEC = (:0:)',CC);
                 OUTINTEGER(OS,X,FORMAT,CC);
                 FLUSH(OS,CC);
                END
            ELSE
            IF LE = D THEN
                BEGIN
                 OUTTEXT(OS,' IS EQUAL TO HEX = (:0:)',CC);
                 OUTHEXA(OS,X,'#',CC);
                 FLUSH(OS,CC)
                END;
UNTIL (LE <> H) AND (LE <> D);

  DISCONNECT (IS,PARAM.IFILE, CC);
  DISCONNECT (IS,PARAM.OFILE, CC);
END.