$! ------------------ CUT HERE ----------------------- $ v='f$verify(f$trnlnm("SHARE_VERIFY"))' $! $! This archive created by VMS_SHARE Version 7.2-007 22-FEB-1990 $! On 4-JUN-1992 19:47:14.26 By user MASMUMMY $! $! This VMS_SHARE Written by: $! Andy Harper, Kings College London UK $! $! Acknowledgements to: $! James Gray - Original VMS_SHARE $! Michael Bednarek - Original Concept and implementation $! $!+ THIS PACKAGE DISTRIBUTED IN 9 PARTS, TO KEEP EACH PART $! BELOW 30 BLOCKS $! $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER $! AND EXECUTE AS A COMMAND PROCEDURE ( @name ) $! $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING: $! 1. LEVEL1.TXT;1 $! 2. LEVEL10.TXT;1 $! 3. LEVEL11.TXT;1 $! 4. LEVEL12.TXT;1 $! 5. LEVEL13.TXT;1 $! 6. LEVEL14.TXT;1 $! 7. LEVEL15.TXT;1 $! 8. LEVEL16.TXT;1 $! 9. LEVEL17.TXT;1 $! 10. LEVEL18.TXT;1 $! 11. LEVEL19.TXT;1 $! 12. LEVEL2.TXT;1 $! 13. LEVEL20.TXT;1 $! 14. LEVEL3.TXT;1 $! 15. LEVEL4.TXT;1 $! 16. LEVEL5.TXT;1 $! 17. LEVEL6.TXT;1 $! 18. LEVEL7.TXT;1 $! 19. LEVEL8.TXT;1 $! 20. LEVEL9.TXT;1 $! 21. LEVELR.CLD;1 $! 22. LEVELR.PAS;1 $! 23. README.TXT;1 $! 24. SHROOM.CLD;1 $! 25. SHROOM.PAS;1 $! $set="set" $set symbol/scope=(nolocal,noglobal) $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID")) $e="write sys$error ""%UNPACK"", " $w="write sys$output ""%UNPACK"", " $ if f$trnlnm("SHARE_LOG") then $ w = "!" $ ve=f$getsyi("version") $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto START $ e "-E-OLDVER, Must run at least VMS 4.4" $ v=f$verify(v) $ exit 44 $UNPACK: SUBROUTINE ! P1=filename, P2=checksum $ if f$search(P1) .eqs. "" then $ goto file_absent $ e "-W-EXISTS, File ''P1' exists. Skipped." $ delete 'f'* $ exit $file_absent: $ if f$parse(P1) .nes. "" then $ goto dirok $ dn=f$parse(P1,,,"DIRECTORY") $ w "-I-CREDIR, Creating directory ''dn'." $ create/dir 'dn' $ if $status then $ goto dirok $ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped." $ delete 'f'* $ exit $dirok: $ w "-I-PROCESS, Processing file ''P1'." $ if .not. f$verify() then $ define/user sys$output nl: $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1' PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET( SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");b:= CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(b)); LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION( BEGINNING_OF(b));g:=0;LOOP EXITIF MARK(NONE)=END_OF(b);x:=ERASE_CHARACTER(1); IF g=0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x="V" THEN APPEND_LINE; MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;IF x="+" THEN g:=1; ERASE_LINE;ENDIF;ELSE IF x="-" THEN IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+")= 1 THEN g:=0;ENDIF;ENDIF;ERASE_LINE;ENDIF;ENDLOOP;t:="0123456789ABCDEF"; POSITION(BEGINNING_OF(b));LOOP r:=SEARCH("`",FORWARD);EXITIF r=0;POSITION(r); ERASE(r);x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,ERASE_CHARACTER(1))-1; COPY_TEXT(ASCII(16*x1+x2));ENDLOOP;WRITE_FILE(b,GET_INFO(COMMAND_LINE, "output_file"));ENDPROCEDURE;Unpacker;QUIT; $ delete/nolog 'f'* $ CHECKSUM 'P1' $ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT $ e "-E-CHKSMFAIL, Checksum of ''P1' failed." $ ENDSUBROUTINE $START: $ create 'f' X 5 X############################################################################ V## X# ################################################################## V## X# ################################################################## V## X# ################################################################## V## X# ################################################################## V## X# ################################################################## V## X# ########## V # X# ########## V # X# ########## V # X# ########## ########## V # X# ########## ########## V # X# ########## ########## V # X# ########## V # X# ########## V # X# ########## V # X#################################################################### V # X#################################################################### V # X#################################################################### V # X#################################################################### V # X#################################################################### V # X############################################################################ V## X Piece 'O `20 X Cake! `20 $ CALL UNPACK LEVEL1.TXT;1 2905993 $ create 'f' X 5 X ##################### V `20 X # ## ########## V `20 X # ### ## # ########## V `20 X # ### ## # ########## V `20 X ### # # ### V `20 X ########## # ## ### # V `20 X############### ##### ########## # ## ### # ##### ############# V## X############### ##### ########## ## # ##### ############# V## X ############################################## V `20 X #################### ## ## ## ## #################### V#`20 X ## ## ## ## ## ## ## ## V `20 X #################### ## ## ## ## #################### V#`20 X ############################################## V `20 X############### ##### ########## ## # ##### ############# V## X############### ##### ########## # ## ### # ##### ############# V## X ########## # ## ### # V `20 X ### # # ### V `20 X # ### ## # ########## V `20 X # ### ## # ########## V `20 X # ## ########## V `20 X ##################### V `20 X It's `20 X aMAZEing `20 $ CALL UNPACK LEVEL10.TXT;1 1716981118 $ create 'f' X 6 X############################################################################ V## X############################################################################ V## X############################################################################ V## X### # V## X### ############### ###################################### ############### # V## X### ############### ###################################### ############### # V## X### ######## ###################################### ######## # V## X### ######## ######## # V## X### ######## ################ ################# ######## # V## X### ######## ################ ################# ######## # V## X### ######## ################## ################### ######## # V## X### ######## ###################################### ######## # V## X### ######## ######################## ######## # V## X### ######## ######################## ######## # V## X################### ######################## ################# V## X################### ######################## ################# V## X################### ######################## ################# V## X################### ######################## ################# V## X################### ######################## ################# V## X################### ######################## ################# V## X############################################################################ V## X It's `20 X Possible `20 $ CALL UNPACK LEVEL11.TXT;1 1451038729 $ create 'f' X 6 X############################################################################ V## X###### # #### V## X###### ############################## # ############################### #### V## X###### ######### ### # ### ########## #### V## X########### ######### ###### ### # ### ###### ########## ######### V## X###### ######### ###### ### # ### ###### ########## #### V## X###### ############## ### # ### ############### #### V## X###### ## #### # #### ## #### V## X################## ## ## # ## ## ################# V## X###### ## ## #### V## X###### ############################### ################################ #### V## X###### ## ## #### V## X################## ## ## # ## ## ################# V## X###### ## #### # #### ## #### V## X###### ############## ### # ### ############### #### V## X###### ######### ###### ### # ### ###### ########## #### V## X########### ######### ###### ### # ### ###### ########## ######### V## X###### ######### ### # ### ########## #### V## X###### ############################## # ############################### #### V## X###### # #### V## X############################################################################ V## X The `20 X Crypt `20 $ CALL UNPACK LEVEL12.TXT;1 389428973 $ create 'f' X 5 X############################################################################ V## X# ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ####### ## ## ## ## ## V # X# ################################### #################################### V # X# `20 V # X# ################################### #################################### V # X# ## ## ## ## ## ####### ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## V # X# ## ## ## ## ## ## ## ## ## ## V # X############################################################################ V## X Generic Pattern `20 X Number 5 `20 $ CALL UNPACK LEVEL13.TXT;1 1915164579 $ create 'f' X 5 X############## ######################### ############### V## X# #### ## #### ## V # X# ################ ################ ############## ################### V # X# ################ # ################ # ############## # ################### V # X# ############ # # # ############ # ########## # # # ############### V # X# ############ # # # # # ############ # ########## # # # # # ############### V # X# ######## # # # # # # # ######## # ###### # # # # # # # ########### V # X# ######## # # # # # # # # # ######## # ###### # # # # # # # # # ########### V # X# #### # # # # # # # # # # # #### # ## # # # # # # # # # # # ####### V # X# ### # # # # # # # # # # # # # ### # # # # # # # # # # # # # # # ###### V # X# # # # # # # # # # # # # # # # # # # # # # # # # # # # # V # X# ##### # # # # # # # # # # # # # # # ### # # # # # # # # # # # # # #### V # X# ###### # # # # # # # # # # # ## # #### # # # # # # # # # # # ##### V # X# ########## # # # # # # # # # ###### # ######## # # # # # # # # # ######### V # X# ########## # # # # # # # ###### # ######## # # # # # # # ######### V # X# ############## # # # # # ########## # ############ # # # # # ############# V # X# ############## # # # ########## # ############ # # # ############# V # X# ################## # ############## # ################ # ################# V # X# ################## ############## ################ ################# V # X# ## #### ## #### V # X################ ######################### ############# V## X The `20 X Mazer `20 $ CALL UNPACK LEVEL14.TXT;1 522204858 $ create 'f' X 5 +-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-