%CHAIN 100,8300,500,2000

	REMARK	##########################################################
	REMARK	#   PROGRAM SELECTION MENU (A/P000)  5:00 PM   6/18/79   #
	REMARK	##########################################################

	DIM P1$(21)
%INCLUDE CURSOR
	GOTO 6000
%INCLUDE SUBS1

5100	DATA "A/P010","A/P02A","A/P120","A/P030","A/P040",\
	"A/P050","A/P060","A/P070","A/P090","A/P080"
	DATA "A/R010","A/R020","A/R070","A/R03A","A/R040",\
	"A/R080","A/R050","A/R060","A/P110"
6000	PASSWORD$="PASS"
	IF COMMAND$<>PASSWORD$ THEN \
	PRINT CLEAR.SCREEN$;"		INVALID PASSWORD":STOP
	OPEN "CRT" RECL 1100 AS 19
	X0=10:GOSUB 260
	RESTORE
6100	FOR I%=1 TO 19:READ P1$(I%):NEXT I%
	X2=2:X3=1:X4=20:X2$="CHOOSE PROGRAM BY NUMBER":GOSUB 665
	PRINT CURSOR.HOME$
	PRINT:PRINT
	IF X0=20 THEN \
		PRINT CLEAR.SCREEN$;"A/P & A/R MENU EXITING TO CP/M":\
		STOP
	PRINT "-->LOADING PROGRAM ";X0
	CHAIN P1$(X0)