Path: utzoo!attcan!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!uwm.edu!bionet!agate!eos!amelia!eagle!news
From: ttsung@csduts1.lerc.nasa.gov (Amy Sung)
Newsgroups: comp.lang.apl
Subject: Re: Device Driver: from Apple III BASIC to IBM BASIC
Message-ID: <1990Jul11.184459.26144@eagle.lerc.nasa.gov>
Date: 11 Jul 90 18:44:59 GMT
Reply-To: ttsung@csduts1.lerc.nasa.gov (Amy Sung)
Organization: NASA/Lewis Research Center, Cleveland
Lines: 24

Hi, everybody,

	I have an example device driver program written in BASIC for Apple III
	computer and need to translate it into IBM code.  

	I am not an Apple-BASICer, so can someone out there tell me what the
	equivalence code is in IBM-BASIC.  Thanks in advance.

	// DETERMINE RS232 STATUS.
	..
	2100	INVOKE"REQUEST.INV":C=1	
	2220	R$=".RS232"			// GET INITIAL RS232 STATUS
	2240	OPEN #1,R$
	..
	2340	PERFORM STATUS(%C,@S$)R$	// GET RS232 STATUS
	..
	2400	PERFORM CONTROL(%C, @S$)R$
	......
.
--
\amy
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Amy H. Sung
2001 Areospace Parkway			phone: 216 891-2922