%NOLIST	rem Theis is ALL.BAS used to include FORMAT and CONTROL

	rem This is FORMAT.BAS used to set common and formats.

	COMMON BLOCK.SIZE,PAGELEN,Z2,RX,T%(1),A(1),CLEAR$,CO.NAME$,D$(1),\
		LLL$,PPP$,DATE1$(1),BIZMII.FLAG
	N$=CO.NAME$
	L$=LLL$:P$=PPP$

	rem This is CONTROL.BAS used to set up control characters for
	rem your terminal.

	clear$=chr$(12)+"+"
	block.size=1024
	ON$=chr$(27)+chr$(14)  rem background ON
	OFF$=chr$(27)+chr$(15) rem background OFF
	pagelen=51
	UP$=CHR$(30)
	CUR$=CHR$(27)+CHR$(89)+CHR$(44)+CHR$(32)
	GOTO 50.5
50	CUR2$=CHR$(27)+CHR$(89)+CHR$(CL+32)+CHR$(CC+32):RETURN
50.5	REM
%LIST