home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG045.ARK / P_R000.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  38 lines
  1. %CHAIN 100,8000,450,800
  2.  
  3.     REMARK    ****************************************\
  4.         *  P/R000.BAS  PROGRAM SELECTION MENU  *\
  5.         *  5/16/79                   10.30 AM  *\
  6.         ****************************************
  7.  
  8.  
  9.     DIM P1$(34)
  10.     RESTORE
  11. %INCLUDE CURSOR
  12.     GOTO 6000
  13. %INCLUDE SUBS1
  14. 6000    DATA "P/R010","P/R020","P/R050","P/R06A",\
  15.       "P/R070","P/R240","P/R110","P/R120","P/R090",\
  16.     "P/R100","P/R130","P/R180","P/R140","P/R170",\
  17.     "P/R150","P/R260","P/R160","P/R190","P/R200",\
  18.     "P/R210","P/R250","P/R220","P/R230","P/R030",\
  19.     "P/R040","P/R280","P/R290","P/R330","P/R300",\
  20.     "P/R320","P/R310","P/R340","P/R080","P/R270"
  21.  
  22. 6100    PASSWORD$="PASS"
  23.     IF COMMAND$ <> PASSWORD$ THEN PRINT CLEAR.SCREEN$;:\        REMARK  IF PASSWORD INCORRECT, PROHIBIT EXECUTION
  24.     PRINT "INVALID PASSWORD":STOP
  25.  
  26.     OPEN "CRT" RECL 1100 AS 19
  27.     X0=17:GOSUB 260                            REMARK  GET MENU CRT MASK
  28.     RESTORE
  29.     FOR I%=1 TO 34:READ P1$(I%):NEXT I%                REMARK  READ PROGRAMS INTO DATA TABLE
  30.     X2=2:X3=1:X4=35:X2$="CHOOSE PROGRAM BY NUMBER":GOSUB 665
  31.     PRINT CURSOR.HOME$
  32.     PRINT:PRINT
  33.     IF X0=35 THEN\
  34.     PRINT CLEAR.SCREEN$;"PAYROLL MENU EXITING TO CP/M":\
  35.     STOP
  36.     PRINT "-->LOADING PROGRAM";X0
  37.     CHAIN P1$(X0)
  38.