! PRO.BAS  This program enables a user to execute only those commands
!          implemented in the program.  It appears to the user that they
!          are in AMOS command mode but only allows actual usage of commands'
!          listed in the program. The program is error protected so that there
!          is no control c out of the program. It makes use of DAVID PALLMANS
!          AMOS.SBR which exucutes the program. The only draw backs that I
!          know of are that command files are not executed to their entirety.
!          I think because AMOS.sbr uses the same memory location. But what do
!          I know!. Also I don't know if it works with DRAVAC security.
!          As an alternative to the EXPERT mode on AMUS the PRO mode could be
!          used for those who were used to the command mode version of AMUS
!          or for anybody else that only whats users to use certain commands.
!          The only way out of the program is to input a SECRET password to get
!          out or Reset the system if password selection is not used.
!          For those who would like it to look like the AMOS command mode
!          Then Replace the ":" on the INPUT LINE":",WHOLE to
!                                      INPUT LINE".",WHOLE
!
!          If you wish to add more commands for available use to the user
!          Then include them in the program.
!          Just a suggestion!
!          James A. Jarboe IV

ON ERROR GOTO ERR                       ! no control C out

MAP1 WHOLE,S,30                         ! input string

MAP1 WHICH(10),S,30                     ! names of commands available
                                       ! to user
       WHICH(1)="TYPE"
       WHICH(2)="DIR"
       WHICH(3)="LOG"
       WHICH(4)="TRMTYP"
       WHICH(5)="MAIL"
       WHICH(6)="LOGOFF"
       WHICH(7)="WATCH"
       WHICH(8)="RIO"
       WHICH(9)="SYSTAT"

MAP1 MANY,F,6,10                        ! number of commands available


TOP:
       WHOLE=""                                ! clear input variable
       INPUT LINE ":",WHOLE                    ! use colon as prompt
                                               ! so you know your not
                                               ! really at AMOS
                                               ! or make it a . to
                                               ! really fool them
       WHOLE=UCS(WHOLE)                        ! make it upper case

       IF WHOLE="" THEN GOTO TOP               ! if nothing do again

!       IF WHOLE="SECRET" THEN GOTO QUIT        ! take this out if you want
                                               ! no out of PRO.BAS
                                               ! until reset
       IF WHOLE="LIST" THEN GOTO LIST          ! list commands available
                                               ! to user
       I=0

SEE'LOOP:
               ! lets check for proper commands
       I=I+1
       IF I>MANY THEN GOTO BAD
       YES=INSTR(1,WHOLE,WHICH(I))
       IF YES=0 GOTO SEE'LOOP
       GOTO INPUT

BAD:
               ! not on command list

       ? "?"+WHOLE+"?"
       GOTO TOP
INPUT:
               ! on command list let's process it

!       XCALL STRIP,WHOLE
       XCALL AMOS,WHOLE
       GOTO TOP
ERR:
       RESUME
       GOTO TOP
QUIT:
       END

LIST:
       ? TAB(-1,0);"You may use these commands at AMOS level"
       ?
       FOR I=1 TO MANY
       ? WHICH(I)
       NEXT I
       GOTO TOP

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.