-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+ V## X############################################################################ V## X############################################################################ V## X Beware `20 X of Deception `20 $ CALL UNPACK LEVEL3.TXT;1 2120907351 $ 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 Welcome To `20 X the Catacombs `20 $ CALL UNPACK LEVEL4.TXT;1 1143618462 $ 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 `20 X###################################################################### V `20 X######### ########## ########## ########## V # X####### ###### ###### ###### V ## X# # V## X# ###### ###### ###### ### V## X## ########## ########## ########## ####### V## X############################################################################ V## X The `20 X Snake `20 $ CALL UNPACK LEVEL5.TXT;1 355281124 $ create 'f' X 5 X########## # ######### V## X######### ## # # # ####### V## X####### # # # ## ##### V## X##### ### # # # ### V## X#### ### # # ## V## X### ## ## # V## 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## X#### ### # #### ## V## X##### ### # # #### ### V## X####### ### # # ### ##### V## X######### ### # # # ###### V## X########## ### ######### V## X Here's Glaring `20 X At You Kid `20 $ CALL UNPACK LEVEL6.TXT;1 575540705 $ create 'f' X 4 X############################################################################ V## X # ## V `20 X # ## V `20 X # # ## V `20 X # # ################################### V `20 X ################# # ################################### V `20 X # # ################################### V `20 X################ # # #### # V `20 X # # #### #### # # V `20 X ################# # #### #### # # V `20 X # # #### #### # # V `20 X # # #### #### # ################# V `20 X # # #### #### # # V `20 X # #### # # ############## V## X ################################### # # V `20 X ################################### # ################# V `20 X ################################### # # V `20 X ## # # V `20 X ## # V `20 X ## # V `20 X############################################################################ V## X This Space `20 X For Rent `20 $ CALL UNPACK LEVEL7.TXT;1 758137001 $ create 'f' X 5 X######################### # # # # # # ######################## V## X######################### # # # # # # # # # # # # # ## V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X######################### # # # # # # # # # # # # # ## ##################### V # X `20 V `20 X ##################### ##################### V#`20 X `20 V `20 X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# #################### ## # # # # # # # # # # # # # ######################## V## X# ## # # # # # # # # # # # # # ######################## V## X######################### # # # # # # ######################## V## X Mission: `20 X Impossible `20 $ CALL UNPACK LEVEL8.TXT;1 809456915 $ 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 Simple `20 X Right? `20 $ CALL UNPACK LEVEL9.TXT;1 2050570322 $ create 'f' X!************************************LEVELR********************************* V**** Xdefine verb LEVELR X image DISK$USERDISK1:`5BMAS0.MASLIB.GAMES.SHROOM`5DLEVELR.EXE X qualifier WALL X nonnegatable X value (default="#") X qualifier DIRECTORY X nonnegatable X value (default="DISK$USERDISK1:`5BMAS0.MASLIB.GAMES.SHROOM`5D") X qualifier BRIGHT X nonnegatable X qualifier NOBACKUP X nonnegatable $ CALL UNPACK LEVELR.CLD;1 689053023 $ create 'f' X`7B This program was written by Richard Wicks of the University of Buffalo ` V7D X`7B permission to copy, duplicate, spindle or mutilate this program is ` V7D X`7B hereby explicitly granted provided that this header remains intact. ` V7D X`7B Any other use constitutes copy right infiringement an will be dealt ` V7D X`7B in accordance with the full extent of the law. ` V7D X X`7B questions, comments, etc. should be directed to either: ` V7D X`7B V128LL9E @ UBVMS.CC.BUFFALO.EDU *or* MASRICH @ UBVMS.CC.BUFFALO.EDU ` V7D X X`5Binherit ('sys$library:starlet')`5D X Xprogram LEVELR (input,output); X Xconst X prefixd = 'disk$userdisk1:`5Bmas0.masrich.games`5D'; X sheight = 21; X swidth = 78; X Xtype X $UBYTE = `5BBYTE`5D 0..255; X $UWORD = `5BWORD`5D 0..65535; X short = packed array `5B1..4`5D of char; X liner = array `5B1..sheight`5D of boolean; X vshort = packed array `5B1..19`5D of char; X Xvar X`7Btotally bogus variables`7D X prefix : varying `5B100`5D of char; X QUIT : boolean; X loop : integer; X loop2 : integer; X null : varying `5B4`5D of char; `7Bto change shroom string to integer V`7D X X`7Bbogus screen variables`7D X keyboard : unsigned; X pasty : unsigned; X helpdis : unsigned;`7Bhelpscreen`7D X stat : unsigned;`7Bstatus display`7D X display : unsigned; X X`7Bbackup variables`7D X t_time : packed array `5B1..11`5D of char;`7Bcompare old and new, when V diff save`7D X t_time_o : packed array `5B1..11`5D of char; X AUTO : boolean; `7Bcontrolls if autosave backup feature is used or no Vt`7D X AUTOSAVE : boolean; `7Bcontrolls if there is a save needed`7D X NOWRITE : boolean; `7Bcontrolls wether a file is saved or discarded`7D X X`7Boptions for display`7D X clistat : unsigned; X wallseg : char; X moveb : boolean; X X`7Bvariables for the copy command`7D X leftx : integer; X rightx : integer; X lefty : integer; X righty : integer; X temp : array `5B1..swidth`5D of liner; X X`7Bimportant variables`7D X title : array `5B1..2`5D of vshort; X filename : varying `5B100`5D of char; X filen : integer; `7Bgets the level`7D X screen : array `5B1..swidth`5D of liner; X lastdir : `5Bword`5D 0..65535; X direction : `5Bword`5D 0..65535; X X : integer; X Y : integer; X muno : integer; X lastkey : `5Bword`5D 0..65535; X X`7Bexternal functions start`7D X X`5BASYNCHRONOUS`5D FUNCTION lib$delete_file ( X`09filespec : `5BCLASS_S`5D PACKED ARRAY `5B$l1..$u1:INTEGER`5D OF CHAR; +-+-+-+-+-+-+-+- END OF PART 3 +-+-+-+-+-+-+-+-