Conference noted::hackers_v1

    And god help the person who gives "*" as an argument or hits a ^Y
    during this.  Could do some amusing things to your directory structure.
    
    j.

        Well there you go.  I already did it!  All it does is rename all
    the directories to such names as XXXXXX89.dir or XXXXXX92.dir. 
    I had a fun time trying to rename all the directories to the proper
    names.  Still don't know what 3 are!!
    Why did it do that??
    		-=*>Jason<*=-

  	Hello all,
    OK OK ,I have wrote another procedure more quickly and less
    rename the directory , try and you'll see .you can also break
    with CTRL/Y , it'sn't dangerous for your directory.
    Well , bye and  Enjoy.
    	
    		Marc..  
    
    
$!-----------------------cut here -----------------------------------------    
$!
$!   
$!GO .COM 		VERS 1.2		MORE QUICK
$!
$!           ********************************************************
$!           *    Created by Marc Blassin  November, 30    1987     *
$!	     * 			DIGITAL VALBONNE                    *
$!	     *			       QA			    *
$!	     ********************************************************
$!
$! PUT THAT LINE IN YOUR LOGIN.COM :
$! ------->      GO=="@[DIRECTORY_WHERE_IS_THIS_PROGRAM]GO"
$! THEN , TO RUN IT YOU ONLY HAVE TO PUT :
$! ------->	 GO DIRECTORY , WHERE DIRECTORY IS THE DIRECTORY YOU
$! WHANT TO GO
$! IF THERE IS MORE THAN ONE SUBDIRECTORY GO WILL AVISE YOU AND YOU 
$! WILL HAVE THE CHOICE TO DECIDE IN WHITCH YOU WANT TO GO
$! 
$!
$! 	THIS IS THE NEW VERSION MORE QUICKLY THAN THE OTHER
$!			ENJOY,
$!				Marc..
$!
$ RS =="READ SYS$COMMAND"
$ WS =="WRITE SYS$OUTPUT"
$ DIRECTORY = 0
$ GO_OUT = "NO"
$ WS ""
$!
$!
$!
$ IF P1 .EQS. "" THEN -
 READ SYS$COMMAND P1/PROMPT="DIRECTORY TO GO > "
$ WS "Working..."
$ IF P1 .EQS. "^" THEN GOTO UP
$ SET DEF SYS$LOGIN
$ DEFAULT_DIR=F$DIRECTORY()
$ LENGHT=F$LEN(DEFAULT_DIR)
$ DEFAULT_DIR=F$EXTRACT(1,LENGHT-2,DEFAULT_DIR)
$ REN_DIR = "''P1'"
$ IF P1 .EQS. "''DEFAULT_DIR'" THEN EXIT
$ RETRY:
$ LOOK_AFTER = F$SEARCH("[...''P1']*.*")
$!
$! TEST
$!
$ IF DIRECTORY .EQ. 0 .AND. LOOK_AFTER .EQS. "" THEN GOTO ERROR_1
$ IF DIRECTORY .GE. 1 THEN GOTO TEST
$ LITTLE_FAR:
$ IF LOOK_AFTER .EQS. "" THEN GOTO FINISH
$ DIRECTORY = DIRECTORY + 1
$ SUBDIR'DIRECTORY = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ GOTO RETRY 
$!
$!
$!
$ TEST:
$ SUBTEST = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ IF SUBTEST .EQS. SUBDIR'DIRECTORY THEN GOTO RETRY
$ GOTO LITTLE_FAR
$!
$!
$!
$ FINISH:
$ IF DIRECTORY .EQ. 1 THEN GOTO END
$ COUNT = 0
$ WS "                 THERE IS MORE THAN ONE SUBDIRECTORY"
$ 	LOOP_2:
$	COUNT = COUNT + 1
$	IF COUNT .GT. DIRECTORY THEN GOTO JUMPING
$ 	WS "''COUNT' . " + SUBDIR'COUNT 
$	GOTO LOOP_2
$          	JUMPING:
$		WS "                          WHITCH SUBDIRECTORY"
$		WS ""
$		RS WH_DIR/PROMPT =" > "
$ 		TO_GO = SUBDIR'WH_DIR 
$		SET DEFAULT 'TO_GO'
$		EXIT      
$!
$!
$!
$ UP:
$ SET DEF [-]
$ EXIT
$!
$ END:
$ SET DEF 'SUBDIR1'
$ EXIT
$!
$!ERRORS
$!
$ ERROR_1:
$ WS "                    DIRECTORY NOT FOUND!!!" 
$ EXIT
   

    
    
    
     You should not place DCL in all the hands ! 
     
     

    Aow, c'mon Franco. Who hasn't ever tried to do such a program when
    starting on VMS ?!?!
    
    Anyway Marc, take a look in the toolshed (METOO), before re-inventing
    the wheel.
    Nice try though ;-)
    
    Pierre.

    
    
     You're right Pierre I was just teasing Marc.
     
      Hope the next reply will not be the version 3  :-) :-)
    
    

    	HEY, 
   You 're right here 's the version 3 with help . If you don't know
   where you can go .Type 'GO ?' and you'll see.
   
    	Bye. 
    
    PS: Perhaps one day the version 4 will exist but let me the time
    to create it.
    
$!
$!GO .COM 		VERS 1.3		WITH HELP
$!
$!           ********************************************************
$!           *    Created by Marc Blassin  December , 3    1987     *
$!	     * 			DIGITAL VALBONNE                    *
$!	     *			       QA			    *
$!	     ********************************************************
$!
$! PUT THAT LINE IN YOUR LOGIN.COM :
$! ------->      GO=="@[DIRECTORY_WHERE_IS_THIS_PROGRAM]GO"
$! THEN , TO RUN IT YOU ONLY HAVE TO PUT :
$! ------->	 GO DIRECTORY , WHERE DIRECTORY IS THE DIRECTORY YOU
$! WHANT TO GO
$! IF THERE IS MORE THAN ONE SUBDIRECTORY GO WILL AVISE YOU AND YOU 
$! WILL HAVE THE CHOICE TO DECIDE IN WHITCH YOU WANT TO GO
$! 
$! GO ^ IS EQUAL TO SET DEFAULT [-]
$! GO ? TELL YOU THE NAME OF YOUR DIRECTORIES
$!
$!			ENJOY,
$!				Marc..
$!
$ RS =="READ SYS$COMMAND"
$ WS =="WRITE SYS$OUTPUT"
$ DIRECTORY = 0
$ GO_OUT = "NO"
$ WS ""
$!
$!
$!
$ IF P1 .EQS. "" THEN -
 READ SYS$COMMAND P1/PROMPT="DIRECTORY TO GO > "
$ WS "Working..."
$ IF P1 .EQS. "^" THEN GOTO UP
$ IF P1 .EQS. "?" THEN GOTO SEARCH_DIR
$ SET DEF SYS$LOGIN
$ DEFAULT_DIR=F$DIRECTORY()
$ LENGHT=F$LEN(DEFAULT_DIR)
$ DEFAULT_DIR=F$EXTRACT(1,LENGHT-2,DEFAULT_DIR)
$ REN_DIR = "''P1'"
$ IF P1 .EQS. "''DEFAULT_DIR'" THEN EXIT
$ RETRY:
$ LOOK_AFTER = F$SEARCH("[...''P1']*.*")
$!
$! TEST
$!
$ IF DIRECTORY .EQ. 0 .AND. LOOK_AFTER .EQS. "" THEN GOTO ERROR_1
$ IF DIRECTORY .GE. 1 THEN GOTO TEST
$ LITTLE_FAR:
$ IF LOOK_AFTER .EQS. "" THEN GOTO FINISH
$ DIRECTORY = DIRECTORY + 1
$ SUBDIR'DIRECTORY = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ GOTO RETRY 
$!
$!
$!
$ TEST:
$ SUBTEST = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ IF SUBTEST .EQS. SUBDIR'DIRECTORY THEN GOTO RETRY
$ GOTO LITTLE_FAR
$!
$!
$!
$ FINISH:
$ IF DIRECTORY .EQ. 1 THEN GOTO END
$ COUNT = 0
$ WS "                 THERE IS MORE THAN ONE SUBDIRECTORY"
$ 	LOOP_2:
$	COUNT = COUNT + 1
$	IF COUNT .GT. DIRECTORY THEN GOTO JUMPING
$ 	WS "''COUNT' . " + SUBDIR'COUNT 
$	GOTO LOOP_2
$          	JUMPING:
$		WS "                          WHITCH SUBDIRECTORY"
$		WS ""
$		RS WH_DIR/PROMPT =" > "
$ 		TO_GO = SUBDIR'WH_DIR 
$		SET DEFAULT 'TO_GO'
$		EXIT      
$!
$!
$!
$ UP:
$ SET DEF [-]
$ EXIT
$!
$!
$!
$ SEARCH_DIR:
$ 	WS "" 
$ 	COUNT = -1
$ 	SET DEFAULT SYS$LOGIN
$ 	X=2
$ 	Y=1
$     RETURN:
$ 	Y=Y+1
$ 	DIR = F$SEARCH("[...]*.DIR")
$ 	DIR1 = F$ELEMENT(0,"]",DIR) + "]"
$ 	DIR = DIR - DIR1
$ 	DIR = F$ELEMENT(0,".",DIR)
$ 	IF DIR .EQS. "" THEN GOTO EXIT_1
$ 	IF Y .GE. 12 THEN GOSUB SCREEN
$ 	WS "[''Y';''X'H''DIR'"
$     GOTO RETURN
$ EXIT
$!
$!
$!
$ EXIT_1:
$ WS ""
$ EXIT
$!
$!
$ SCREEN:
$ X=X+15
$ Y=2
$ RETURN
$ EXIT
$!
$!
$!
$ END:
$ SET DEF 'SUBDIR1'
$ EXIT
$!
$!ERRORS
$!
$ ERROR_1:
$ WS "                    DIRECTORY NOT FOUND!!!" 
$ EXIT