300 ' Data Parameters
301	BELL$=CHR$(7):WIDTH 80:WIDTH LPRINT 132:E$="END"
30²	ESC$=CHR$(27)		'Escape Code
	CLS$=ESC$+"*"+"0"	'Clear Screen Code
	CLR.UP$=ESC$+"*"+"2"	'Clear Unprotected
	LI.ER$=ESC$+"T"		'Line Erase
	HOME$=chr$(30)		'Home
	NOR$=ESC$+"k"		'Normal Video
	REV$=ESC$+"j"		'Revese Video
	SWP$=ESC$+")"		'Start Write Protect
	EWP$=ESC$+"("		'End Write Protect
	P.ON$=ESC$+"&"		'Protect Page On
	P.OFF$=ESC$+"'"		'Protect Page Off

	ROMADDR=(PEEK(&H40)-1)*256	'QDP Base Rom Address
303	X.ER=23:Y.ER=20:N#=551903297536.5#
304	DEF FNDI$(D#)=MID$(MKD$(N#+D#*100#),3,4)
305	DEF FNID#(I$)=(CVD(CHR$(0)+CHR$(0)+I$+CHR$(0)+CHR$(168))-INT(N#))*.01#
306	DEF FNPC$(X,Y,L,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+Y)+Z$+" "+STRING$(L,"_")+STRING$(L,CHR$(8))
307	DEF FNLG(X,X$)=(X-LEN(X$))\2
308	DEF FNLPCR$(X$)=SPACE$(FNLG(132,X$))+X$
309	DEF FNPCTR$(X,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+FNLG(80,Z$))+Z$
310	DEF FNRD#(X#)=INT(X#*100#+.5#)/100#
311	DEF FNUB%(X$)=CVI(MID$(X$,2,1)+MID$(X$,1,1)) 'FROM STRING
312	DEF FNBU$(X%)=MID$(MKI$(X%),2,1)+MID$(MKI$(X%),1,1) 'TO STRING
313	DIM MO(12):FOR I=1 TO 12:READ MO(I):NEXT
314	DATA -1,30,59,90,120,151,181,212,243,273,304,334
315	DIM X(60),Y(60),X1(60),Y1(60),L(60),Z$(60),TIME(10)
316	DIM DESC$(10),LIN.REF$(10)	'CHANGE AS NEEDED FOR SORT