Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!samsung!noose.ecn.purdue.edu!en.ecn.purdue.edu!platkus
From: platkus@en.ecn.purdue.edu (Shawn W Platkus)
Newsgroups: comp.binaries.apple2
Subject: Re: InCider/A+ error!
Message-ID: <1991Jan30.054015.18134@en.ecn.purdue.edu>
Date: 30 Jan 91 05:40:15 GMT
References: <1991Jan29.201622.1@ccvax.iastate.edu>
Organization: Purdue University Engineering Computer Network
Lines: 34


Hello all, 
        Remember back when InCider/A+ added Mac coverage?  Most of you wanted
to boycott the Magazine.  Well, I was in the process of letting my subscription
run out even before they decided to add mac coverage.  I don't mind the mac
coverage (it would at least maybe give me something interesting to read), 
its just that the GS and II coverage is terrible and filled with errors.

This is an example of what I mean... This reader asked how to eject a 3.5" disk
from Appsoft basic, and this program (I have modified it some, but the data 
statements and for loop is the same) was their response.  


 100 L = 768
 110 S = 5:D = 1
 120  FOR I = L TO L + 17
 130  READ J: POKE I,J
 140  NEXT I
 150  POKE L + 2,S + 192
 160  POKE L + 11,D
 165  PRINT "PRESS RETURN TO EJECT DISK": CALL  - 678
 170  CALL L
 180  PRINT  PEEK (L + 17)
 190  DATA 32,13,197,4,10,3,141,17,3

Anyone can see this won't work!  There is less data than its trying to read!

So, can anyone give me the correct code for this?  Also, how can you eject a
disk from say Orca/C or Pascal?  I never could figure this out!

Thanks (in advance of course)


Platkus