home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / INOUTTES.M < prev    next >
Encoding:
Text File  |  1991-07-21  |  1.2 KB  |  34 lines
  1. MODULE InOutTest;
  2.  
  3. (*$E MOS *)
  4. IMPORT TOSIO;
  5.  
  6. FROM SYSTEM IMPORT ASSEMBLER;
  7. FROM InOut IMPORT Write, WriteLn, WriteString, WriteInt, WriteCard,
  8.         OpenInput, CloseInput, Read, ReadReal, ReadCard, ReadInt,
  9.         Done, WriteReal;
  10.  
  11. VAR r: REAL; c: CARDINAL; i: INTEGER; ch: CHAR;
  12.  
  13. BEGIN
  14.   WriteString ('OpenInput? ');
  15.   OpenInput ('TXT');
  16.   WriteLn;
  17.   
  18.   REPEAT
  19.     LOOP
  20.       ReadReal (r);
  21.       IF ~Done THEN EXIT END;
  22.       WriteReal (r, 10, 5);
  23.       WriteLn;
  24.     END;
  25.     WriteString ('NOT Done. Continue (Y/n)');
  26.     Read (ch);
  27.     WriteLn;
  28.   UNTIL (CAP(ch) = 'N');
  29.   
  30.   CloseInput
  31. END InOutTest.
  32. ə
  33. (* $FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FEÇ$00000190T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000190$00000018$FFED70FE$00000022$0000002F$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FE$FFED70FEöÇÇ*)
  34.