platkus@en.ecn.purdue.edu (Shawn W Platkus) (01/30/91)
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)
Platkuszane@ddsw1.MCS.COM (Sameer Parekh) (02/02/91)
That problem was similar to the one they wrote about the line checker. . .(There was a checksum after each line to see if you typed it in right.) This program didn't have enough data on the data lines either! Follow ups to comp.sys.apple2 -- zane@ddsw1.MCS.COM