home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug043.ark / A_P000.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  921 b   |  31 lines
  1. %CHAIN 100,8300,500,1000
  2.  
  3.     REMARK    ##########################################################
  4.     REMARK    #   PROGRAM SELECTION MENU (A/P000)  5:00 PM   6/18/79   #
  5.     REMARK    ##########################################################
  6.  
  7.     DIM P1$(21)
  8. %INCLUDE CURSOR
  9.     GOTO 6000
  10. %INCLUDE SUBS1
  11.  
  12. 5100    DATA "A/P010","A/P02A","A/P120","A/P030","A/P040",\
  13.     "A/P050","A/P060","A/P070","A/P090","A/P080"
  14.     DATA "A/R010","A/R020","A/R070","A/R03A","A/R040",\
  15.     "A/R080","A/R050","A/R060","A/P110"
  16. 6000    PASSWORD$="PASS"
  17.     IF COMMAND$<>PASSWORD$ THEN \
  18.     PRINT CLEAR.SCREEN$;"        INVALID PASSWORD":STOP
  19.     OPEN "CRT" RECL 1100 AS 19
  20.     X0=10:GOSUB 260
  21.     RESTORE
  22. 6100    FOR I%=1 TO 19:READ P1$(I%):NEXT I%
  23.     X2=2:X3=1:X4=20:X2$="CHOOSE PROGRAM BY NUMBER":GOSUB 665
  24.     PRINT CURSOR.HOME$
  25.     PRINT:PRINT
  26.     IF X0=20 THEN \
  27.         PRINT CLEAR.SCREEN$;"A/P & A/R MENU EXITING TO CP/M":\
  28.         STOP
  29.     PRINT "-->LOADING PROGRAM ";X0
  30.     CHAIN P1$(X0)
  31.