home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oakland CPM Archive
/
oakcpm.iso
/
cpmug
/
cpmug043.ark
/
A_P000.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
921b
|
31 lines
%CHAIN 100,8300,500,1000
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)