Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!rutgers!ames!ucbcad!ucbvax!BRL-SMOKE.ARPA!info-apple-request
From: info-apple-request@BRL-SMOKE.ARPA
Newsgroups: comp.sys.apple
Subject: (none)
Message-ID: <8708250926.aa00973@SMOKE.BRL.ARPA>
Date: Wed, 26-Aug-87 08:25:45 EDT
Article-I.D.: SMOKE.8708250926.aa00973
Posted: Wed Aug 26 08:25:45 1987
Date-Received: Fri, 28-Aug-87 03:58:39 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 89

Date:    Tue, 25 Aug 87 09:21 EDT
From:    "William J. Sproule Jr. 814-863-4356" <THJ@PSUVM>
Subject: Re: TML Pascal
To:      BHUBER@ecla.usc.edu
Cc:      Info-Apple@brl.arpa
In-Reply-To:  BHUBER AT ecla.usc.edu -- 24 Aug 1987 09:49-PDT


Thanks for responding to my query about TML Pascal problems and the
IIgs, here is the setup and the problem:

Apple IIgs(woz addition) w/ 1meg expansion, 2 3.5" microdisks.

I am running APW v1.0 B1 with TML compiler v1.0 (we should be getting
v2.0 in a couple of days)

I am having problems writing and reading NON-text files to/from the disk.
Here is an example of what I am trying to do:

Program Help(input,output);

TYPE
  Fred = file of Integer;

VAR
  f      : Fred;
  count  : Integer;
  tmpInt : Integer;
  whatsInCreateMe : Integer;

Procedure setUpCreateMe;
  Begin
    ReWrite(f,'CreateMe');
    tmpInt := IOResult;
    Writeln('Error on ReWrite = ',tmpInt);  {Always returns a '0'}
    For count := 1 to 20 do
      Begin
        Write(f,count);
        tmpInt := IOResult;
        Writeln('Error on Write = ',tmpInt); {Always returns a '0')
        End; {For count}
    Close(f);
    Reset(f,'CreateMe');
    For count := 1 to 20 do
      Begin
        Read(f,whatsInCreateMe);
        tmpInt := IOResult;
        Writeln('Error on Read = ',tmpInt); {Sometimes returns '80'}
                                            {which is not listed in}
                                            {manual, or returns '0'}
                                            {not a fun bug!!!      }
        Writeln(count,' ',whatsInCreateMe); {this will print the   }
                                            {value of count, then  }
                                            {a '0' or sometimes a  }
                                            {'2'                   }
        End;{For count}
   Close(f);
   End; {setUpCreateMe}
Begin {Main loop}
  setUpCreateMe;
  End. {Help}

The program does not seem to be creating any data in the file,
but when a catalog is done on the disk, the file
CreateMe is of type $00, (whichis what we want) but as commented
above, it seems to be empty.

I have tried this with the results in comments above. I have also
tried this with gs tools (QDIntf, GSIntf, MISCTools, ProDos16,
ConsoleIO) and with the GSToolsStartup and ShutDown.

What we are trying to do is capture digitized sound using the
SuperSonic digitizer, and save the sound into various files
to be called later.  We can read and write to text files, but it is
a kludge way.  We will be getting the ORCA compilier in this week
but we want to make sure where the bug is.

Thanks for the help!
                   ===============================

Bill Sproule
Microcomputer Information and Support Center  (MISC)
The Pennsylvania State University
101 Computation Center      =====================================
University Park, PA 16802   |bitnet:   thj@psuvm
(814) 863-4356              |arpa: thj%psuvm.BITNET@wiscvm.wisc.edu
                            |uucp: ...psuvax1!psuvm.BITNET!thj
                            |AppleLink: U0399   (Sproule1)
                            |