'zero2 bas' BASIC FILE LISTING
------------------------------

Variables
	r0 used to pass routine number
	a1, a2, a3 used for input parameters
	o1, o2, o3 used for output parameters
	a8, b8, c8, k8, n8 used as scratch variables

9300  REM 	additional subroutines
9302  RESTORE 9320

9304  REM 	define subroutines
9306  READ write, outp, userl ,user2, read, inp, ready, split, 
	lastbyte

9308  REM 	define variables
9310  READ zdend, usrloc, usr1, usr2

9320  DATA 9330, 9332, 9334, 9336, 9340, 9342, 9344, 9346,
	         9348
9322  DATA 64960, 64958, 94970, 64973

9330  POKE arg2,a2: 
	LET rO=23: GO SUB call: 
	GO SUB error: 
	IF o1=3 THEN GO TO ornge
9331  RETURN

9332  LET rO=24: GO TO call

9334  POKE arg2,a2: POKE arg3,a3: 
	LET rO=25: GO TO call

9336  POKE arg2,a2: POKE arg3,a3: 
	LET rO=26: GO TO call

9338  POKE argl,al: GO SUB peek: 
	LET o8=ol: GO SUB error: 
	IF ol=3 THEN GO TO ornge
9339  LET ol=o8: 
	RETURN

9340  LET rO=49: GO TO 9338

9342  LET rO=50: GO TO peek

9344  LET rO=40: GO TO peek

9346  POKE argl,al: GO SUB peek: 
	LET o2=PEEK (arg2): 
	RETURN

9348  LET rO=43: GO TO 9338