Beijing Paradise BBS Backup

home *** CD-ROM | disk | FTP | other *** search

/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RETAIL.ZIP / RETAIL.PPE (.txt) < prev

Wrap

PCBoard Programming Language Executable | 1993-08-25 | 25.0 KB | 1,422 lines

;------------------------------------------------------------------------------ ; .ss. ; `²²' ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs. ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,. ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b. ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$ ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²' ; .sS²°$$$²²°"' d²°' ; .$$² .$$' ; $$$.,d$$' ; `²S$$S²' ;------------------------------------------------------------------------------ ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96 ;------------------------------------------------------------------------------ ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON ;------------------------------------------------------------------------------ Integer INTEGER002 Integer INTEGER003 String STRING001 ;------------------------------------------------------------------------------ Cls PrintLn "Retail Hel" PrintLn "(c) 1988 XR Von Gimbut" PrintLn "The WASTELAND BBS (Marin County, CA)" PrintLn " (415) 479-4520" PrintLn PrintLn PrintLn "Translated for PCBoard 15.x via PPL" PrintLn " by Tim Rush" PrintLn "Night*Watch BBS (Groton, CT)" PrintLn " (203) 448-6171" Wait InputYN "Do you need instructions (Y/N)?", STRING001, 14 If (STRING001 == "Y") Goto LABEL003 :LABEL001 Cls PrintLn PrintLn PrintLn "After waking up this morning, you look outside and see what a bright" PrintLn "and sunny day it is. 'What a great day yo go shopping!' you muse to" PrintLn "yourself! You decide to get up, take a shower, and get ready to on" PrintLn "out and face a full day's shopping extravaganza. So, you go out to" PrintLn "the car and decide:" PrintLn PrintLn " 1) 'Maybe I don't really want to do this today...'" PrintLn " 2) 'I'll head on over to Bartelli's Retail Warehouse'" PrintLn " 3) 'I'll get my car washed first'" :LABEL002 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL004 Case 2 Goto LABEL006 Case 3 Goto LABEL005 Case Else Goto LABEL002 End Select :LABEL003 Cls PrintLn PrintLn " You are given $250 dollars and 30 minutes to find the item of" PrintLn "question. What is the question? That is for you to find out. Please" PrintLn "beware that the establishment that you are patronizing is known for" PrintLn "its rude clerks, atrociously long lines, bad service, and downright" PrintLn "mean employees." PrintLn " " PrintLn " The crucial key to survival is not to run into 'mad Max', the" PrintLn "infamous retail register warlord whose sales-per-hour maxes out" PrintLn "even the hardiest customers." PrintLn " " PrintLn " Good Luck, and remember....be careful who you talk to and where" PrintLn "you go..because......" PrintLn PrintLn PrintLn Delay 90 PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn " this is RETAIL HELL!!!" Goto LABEL001 :LABEL004 PrintLn " Too bad, maybe next week!" Goto LABEL043 :LABEL005 Cls PrintLn "You drive up to the 'Suds and Suds and More Suds' car wash establishment." PrintLn "The man asks you to stay in the car while he gets a new rag to wipe down" PrintLn "the windshields. Unfortunately, Harry, the owner, had just hired a " PrintLn "'new hand', and did not realize he had a penchant for killing car" PrintLn "wash clients." PrintLn Delay 90 PrintLn PrintLn "You were never aware that he had come up behind you with a shovel" PrintLn "and DECAPITATED you." PrintLn Delay 90 PrintLn PrintLn " Sorry! No shopping for YOU today!" PrintLn Goto LABEL043 :LABEL006 Cls PrintLn PrintLn " Ahhh!! The bright lights, the crowds, the angry customers and " PrintLn "underpaid employeees who couldn't give a hoot if they ever saw " PrintLn "you again! Bartelli's Retail Warehouse has always been your " PrintLn "favorite place to shop. Aisles and aisles of junk, junk, and" PrintLn "more junk...not to mention a few choicy knick-knacks. You decide" PrintLn "to head down:" PrintLn :LABEL007 InputStr " Aisle (1)? (2)?", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL008 Case 2 Goto LABEL013 Case Else Goto LABEL007 End Select :LABEL008 Cls PrintLn "Aisle 1 takes you to the back of the store to the elevator. You" PrintLn "find yourseld with Big Bertha and her pekinese in her purse." PrintLn "You ask her:" PrintLn PrintLn " 1) Why are you so rude? You know that dogs are not allowed in the store!?" PrintLn " 2) Are you having a nice day?" PrintLn " 3) Are you going up?" PrintLn :LABEL009 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL010 Case 2 Goto LABEL011 Case 3 Goto LABEL012 Case Else Goto LABEL009 End Select :LABEL010 Cls PrintLn " 'RUDE!!!' she screams at the top of her lungs. Promptly, you" PrintLn "back away from her, but not before she lets you have it with her can" PrintLn "of mace that she so conveniently has hidden in her bra. 'Take that," PrintLn "you skin sucking dog!!' she cries. You feel pain, you're sick, and" PrintLn "the floor rises up to meet your head. Your shopping is over for the" PrintLn "day. Sorry!" PrintLn Delay 90 Goto LABEL043 :LABEL011 Cls PrintLn " 'Oh yes I am! You are such a nice person for asking!' You step" PrintLn "onto the elevator and proceed up to the second floor." PrintLn PrintLn Delay 90 Goto LABEL032 :LABEL012 Cls PrintLn " 'What do you mean by that!?' Big Bertha hollered. 'How dare you" PrintLn "make fun of my weight problem! Take this!' Big Bertha steps back and" PrintLn "immediately raises her awesomely huge leg and lets loose the meanest" PrintLn "kung fu kick you have ever seen...right into your stomach. Through" PrintLn "your screams and her laughing, the rest of the store's customers" PrintLn "continue shopping away. You are definitely DONE for the day!" PrintLn Delay 90 Goto LABEL043 :LABEL013 Cls PrintLn " Aisle 2 leads to the clothing deparment where unbeknownst to" PrintLn "you...Mad Max lurks...awaiting your entry. You decide that you" PrintLn "better:" PrintLn PrintLn "1. 'Go down another aisle'" PrintLn "2. 'Enter at your own risk'" PrintLn "3 'Get the hell out of the store.'" :LABEL014 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL007 Case 2 Goto LABEL016 Case 3 Goto LABEL015 Case Else Goto LABEL014 End Select :LABEL015 Cls PrintLn " SCARED!!! That's too bad. No guts no glory! I guess this text" PrintLn "adventure is not for you! Good day!" Delay 90 Goto LABEL043 :LABEL016 Cls PrintLn PrintLn "You sheepishly enter the department. Max appears!!!!! Do you:" PrintLn PrintLn PrintLn "1. Run" PrintLn "2. Stay put" PrintLn "3. Not sure" PrintLn :LABEL017 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL018 Case 2 Goto LABEL031 Case 3 Goto LABEL023 Case Else Goto LABEL017 End Select :LABEL018 Cls PrintLn PrintLn "You decide to RUN for your life! Damn!!! Which way to go? You head:" PrintLn PrintLn "1. Left" PrintLn "2. Right" PrintLn "3. Backtrack" :LABEL019 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL020 Case 2 Goto LABEL021 Case 3 Goto LABEL022 Case Else Goto LABEL019 End Select :LABEL020 Cls PrintLn " You dart left, around the pant rounders and sprint toward the rear" PrintLn "exit of the department. You don't hear him running after you. Phew!!" PrintLn "You slow down your pace a little as you get to the bottom of the" PrintLn "staircase." PrintLn Delay 90 Cls PrintLn PrintLn PrintLn "The staircase leads to the basement! The doors are locked - you have" PrintLn "no access! A sign above you reads:" PrintLn PrintLn " =======================================================" PrintLn PrintLn " NOT A FIRE ESCAPE" PrintLn " Doors will remain locked during business hours" PrintLn PrintLn " ========================================================" PrintLn PrintLn PrintLn "Your goose is cooked I'm afraid!!" PrintLn PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn "You hear the soft padding of leather soled shoes coming your" PrintLn "way...slowly down the stairwell. You SCREAM for help. But all you" PrintLn "hear is a soft laughter. The is near. No more charging. No more" PrintLn "sales. No more complaints. Mad Max is here......" PrintLn PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn " Your shopping is done FOREVER!" PrintLn PrintLn PrintLn Delay 90 Goto LABEL043 :LABEL021 Cls PrintLn PrintLn "You DART to the right, dash around the garish caps that line the" PrintLn "deparment. You can hear Max running after you!" PrintLn Delay 90 Cls PrintLn PrintLn "Your heart is beating wildly now....You are beginning to see white" PrintLn "specks in front of your eyes. The first stages of panic are" PrintLn "overcoming you!" PrintLn PrintLn "Try as you might, Mad Max is overtaking you! What is going on? Run" PrintLn "faster!!!" PrintLn PrintLn Delay 90 PrintLn PrintLn "You look behind you and get a glimpse of Max sprinting towards you. " PrintLn PrintLn "Unfortunately, as you were looking back at Max, you didn't realize" PrintLn "that you were running off course to the front door. A split second" PrintLn "later, you accidently hurled your body through the GIANT plate glass" PrintLn "display window." PrintLn PrintLn "The jagged pieces of glass have severed most of your major arteries." PrintLn "You start to lose consciousness........." PrintLn " ......but not before you see Max" PrintLn "slip his business card into your bloodied shirt pocket." PrintLn PrintLn "'Be sure to see me the next time you are" PrintLn "in....hehehe..HAHAHAHAHAHA!!!'" PrintLn PrintLn Delay 90 Goto LABEL043 :LABEL022 Cls PrintLn "You decide to backtrack and head back into the department." PrintLn Delay 90 :LABEL023 Cls PrintLn PrintLn "You are confronted by the MAN!" PrintLn PrintLn "Do you:" PrintLn PrintLn PrintLn "1. Beg" PrintLn "2. Buy" PrintLn "3. Borrow" :LABEL024 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL025 Case 2 Goto LABEL029 Case 3 Goto LABEL030 Case Else Goto LABEL024 End Select :LABEL025 Cls PrintLn PrintLn "'Ah! I like a wimpering customer!!!' Max cries. 'Just for today, I" PrintLn "have my own Blue Light Special! I am going to let you go....but only" PrintLn "after you hand over all your money!'" PrintLn Delay 90 Cls PrintLn PrintLn "You decide that it is:" PrintLn PrintLn "1. Not worth handing over the money." PrintLn "2. Not worth keeping the money." PrintLn :LABEL026 InputStr "1,2", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL027 Case 2 Goto LABEL028 Case Else Goto LABEL026 End Select :LABEL027 Cls PrintLn PrintLn "'THAT'S TOO BAD!!!!!' Max screams as he picks you up by the scruff of" PrintLn "your neck and slams your body into a wall-mounted coat hanger. 'IT'S" PrintLn "THE RED LIGHT SPECIAL FOR YOU TODAY!!!!'" PrintLn Delay 90 Cls PrintLn PrintLn "Throughout the rest of the day, customers could be heard screaming" PrintLn "all through the store as they discovered you body swaying in the" PrintLn "dressing rooms........" PrintLn Delay 90 Goto LABEL043 :LABEL028 Cls PrintLn "'AH...., You are as chicken livered as you look!!! You don't deserve" PrintLn "to live, nor do you deserve to die!'" PrintLn Delay 90 Goto LABEL043 :LABEL029 Cls PrintLn PrintLn "A twinkle in Max's eye alights. 'I like you! Here try this" PrintLn "on...Yeah..it fits fine...how much money do you have?...Yeah?....give" PrintLn "it all to me cause that's how much it is.....'" PrintLn Delay 90 Cls PrintLn PrintLn " You are not sure if you are being swindled or not...but you are" PrintLn "so scared that you don't care. You let Max fit you and he lets you go" PrintLn "on your way....." PrintLn PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn " FOR NOW......." PrintLn Delay 90 Goto LABEL037 :LABEL030 Cls PrintLn PrintLn "'Borrow?! Money from me?! Why I'd love to l you some but....'" PrintLn Delay 90 Cls PrintLn PrintLn " THE CREDIT DEPARTMENT IS PERMANENTLY CLOSED!! " PrintLn Delay 90 Goto LABEL043 Cls PrintLn PrintLn "Sorry...the aisle 3 and 4 stories are under construction...." PrintLn Delay 90 Goto LABEL007 :LABEL031 Cls PrintLn PrintLn "Oh....I'm sorry! That was a bad choice!" PrintLn Delay 90 Cls PrintLn PrintLn "Before you knew what happened....Max had rolled a rolling rack full of" PrintLn "clothes over your feet. (You can liken the condition of your feet now" PrintLn "to your Aunt's 'Jello Surprise' that had sat out in the sun at last" PrintLn "year's boring picnic party.)" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " you scream." PrintLn Delay 90 Cls PrintLn PrintLn "'Having trouble moving?' Max snears. " PrintLn PrintLn "As you try to focus through the pain...you can see that he has already" PrintLn "taken your money, called the store's security on you, and 'set you up'" PrintLn "as a shoplifter that is about to be arrested. " PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " Poor you!" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " That's all the shopping for you today!" PrintLn Delay 90 Goto LABEL043 :LABEL032 Cls PrintLn PrintLn PrintLn PrintLn " Ah! You find yourself up on the second floor. People are swirling" PrintLn "about you....shopping carts, crying babies, obnoxious public address" PrintLn "pages, and the general hustling and bustling makes you feel dizzy...." PrintLn PrintLn "Do you:" PrintLn PrintLn "1. Take a seat" PrintLn "2. Find a restroom" PrintLn "3. Throw up" PrintLn :LABEL033 InputStr "1,2,3", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL034 Case 2 Goto LABEL035 Case 3 Goto LABEL036 Case Else Goto LABEL033 End Select :LABEL034 Cls PrintLn PrintLn PrintLn PrintLn " You frantically search for a seat....the stale popcorn wafting up" PrintLn "through the elevator shaft is making you more and more queezy. In" PrintLn "your haste to find a chair, you accidently knock over Mrs. Jeffrey's" PrintLn "baby carriage - with the baby inside! " PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn "You are a shmuck......" PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn "Mrs. Jeffrey does not like shmucks...especially ones like" PrintLn "yourself....." Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn "You turn to vomit away from the crowd...but Mrs. Jeffrey turns your" PrintLn "throw-up matter from BILE to B L O O D." PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn "You have just been shot by a .44" PrintLn PrintLn "Mrs. Jeffrey always DID carry a big purse....." PrintLn PrintLn " ....and a LOADED TEMPER!" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn "That's all the shopping for you today!!!!" Delay 90 Goto LABEL043 :LABEL035 Cls PrintLn PrintLn PrintLn "You dash towards the restroom! Hurry! Hurry! You lose your lunch" PrintLn "just as you enter the stall...... @#$%^$" PrintLn PrintLn PrintLn "The sounds are atrocious!" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn "Getting up off your knees....you notice a white pouch has been taped" PrintLn "under the toilet base. " PrintLn PrintLn "You reach around and peel the pouch off of the toilet. Curious thing! " PrintLn "You suspect what it is...and decide to turn it in to the proper" PrintLn "authorities. " PrintLn PrintLn "As you get up to leave...the door bursts open and 8 DEA officers storm" PrintLn "the bathroom. " PrintLn PrintLn "'Freeze!!!! This is the police!!!!!' they all sing in unison." Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn "You are booked for possession with intent to sell." Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn "Needless to say....." Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn " YOU ARE DONE FOR THE DAY!" PrintLn PrintLn " (Hire a good lawyer!)" Delay 90 Goto LABEL043 :LABEL036 Cls PrintLn PrintLn PrintLn PrintLn "You decide that enough is ENOUGH!!!! You turn, swallow hard, gasp" PrintLn "for air, and " PrintLn PrintLn PrintLn PrintLn PrintLn " BLOW CHUNKS!!!" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn " ghastly...." Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn "As a matter of fact...I am so embarrassed for you that I will have to" PrintLn "ask you to leave the SYSTEM....." PrintLn " ........" PrintLn " ......." PrintLn " ......good day vomit head" PrintLn PrintLn "Log in again when you can hold your cookies..." Delay 90 Bye :LABEL037 Cls PrintLn PrintLn PrintLn PrintLn "Phew!!! You are the FIRST to make it by Max in one piece....or better" PrintLn "yet...to have all your pieces intact!" Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn "Trying to be as casual as you can....you dash to the stairs and run up" PrintLn "a few flights. You stop. You open the door." Delay 90 Cls PrintLn PrintLn PrintLn "And notice a freight elevator down the hallway. You walk briskly" PrintLn "toward it, enter it, and hit:" PrintLn PrintLn PrintLn "1. Basement" PrintLn "2. Floor 1" PrintLn "3. Floor 2" PrintLn "4. Floor 3" PrintLn "5. Floor 4" :LABEL038 InputStr "1,2,3,4,5", INTEGER002, 14, 1, Mask_AlNum(), 8192 Select Case (INTEGER002) Case 1 Goto LABEL039 Case 2 Goto LABEL040 Case 3 Goto LABEL032 Case 4 Goto LABEL042 Case 5 Goto LABEL041 Case Else Goto LABEL038 End Select :LABEL039 Cls PrintLn PrintLn PrintLn PrintLn " Slowly the door closes with an ominous 'THUNK!' Hmmmmm.....this" PrintLn "does not sound good....." PrintLn PrintLn "The elevator lurches...and an amber lighted sign instantly luminates" PrintLn "over your head which says:" Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " **************************************************" PrintLn " | |" PrintLn " | USE OF ELEVATOR BY AUTHORIZED PERSONNEL ONLY |" PrintLn " | All others shall perish |" PrintLn " | (And that means you) |" PrintLn " | |" PrintLn " **************************************************" PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " You gasp from fright....what do they mean..." PrintLn PrintLn " 'All others shall perish?'" PrintLn PrintLn " The elevator lurches again - and then FREEFALLS" PrintLn " to the bottom of the shaft. " PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn "Later that day, Charlie, the head maintenance chief is seen on the" PrintLn "main floor's telephone, cussing about the freight elevator being" PrintLn "broken again. 'The damn thing is always jumpin' the" PrintLn "track and fouling up my schedule...get someone down here on" PrintLn "the double to fix it!'" PrintLn PrintLn PrintLn "You, of course WERE the trouble!" PrintLn PrintLn "But, not any more! Your elevator incident has left you flatter than a" PrintLn "pancake! " PrintLn PrintLn " Good day!" Delay 90 Goto LABEL043 :LABEL040 Cls PrintLn PrintLn PrintLn "You find yourself back on the main floor....looking at the 2 Main" PrintLn "Aisles...." PrintLn PrintLn "Do you go down:" PrintLn Goto LABEL007 :LABEL041 Cls PrintLn PrintLn PrintLn PrintLn PrintLn " The elevator doors close softly...." PrintLn PrintLn " Gently, the elevator begins to rise and takes just a few" PrintLn "seconds for it to arrive on the 4th floor." PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn "You calmly walk out and FIND what you had been looking for! And there" PrintLn "it was.....all the time....just sitting there in the case....on" PrintLn "sale...for sale...for 189 bucks....the thing you should have had in" PrintLn "the beginning....." PrintLn PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn " A 14400 baud fax/modem so you can shop AT HOME!!!" PrintLn PrintLn Delay 90 Cls PrintLn PrintLn PrintLn PrintLn " ***** Congratulations! ***** " PrintLn " Now the least you could do is give the" PrintLn " WASTELAND a call! " PrintLn Delay 90 Goto LABEL043 :LABEL042 Cls PrintLn PrintLn PrintLn " The elevator doors close" PrintLn PrintLn "You step to the rear and wait. " PrintLn PrintLn PrintLn PrintLn "Nothing happens....." Delay 90 Cls GetUser INTEGER003 = U_PageLen U_PageLen = 0 PutUser PrintLn PrintLn PrintLn PrintLn " Suddenly...the elevator lurches!!! And DOWN you go! " PrintLn PrintLn PrintLn " Faster and faster!" PrintLn PrintLn PrintLn " All you can see are the faint floor lights as you are " PrintLn " propelled into oblivion...." Delay 90 Cls PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " *" Delay 5 PrintLn " YOUR LIFE FLASHES BEFORE YOUR EYES!!!!" PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn " ********* FLASH **********" PrintLn " ********* **********" PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn PrintLn " You have just taken your LAST department store" PrintLn " elevator ride! he he! HAHAHAHAHAHAHAHAH!!!!!" PrintLn PrintLn Delay 90 :LABEL043 Cls GetUser U_PageLen = INTEGER003 PutUser PrintLn " " PrintLn PrintLn "Retail Hell" PrintLn "(c) 1988 XR Von Gimbut" PrintLn "The WASTELAND BBS (Marin County, CA)" PrintLn " (415) 479-4520" PrintLn PrintLn PrintLn "Translated for PCBoard 15.x" PrintLn "Tim Rush" PrintLn "Night*Watch BBS (Groton, CT)" PrintLn "(203) 448-6171" Delay 90 ;------------------------------------------------------------------------------ ; ; Usage report (before postprocessing) ; ; ■ Statements used : ; ; 69 Cls ; 1 Wait ; 121 Goto ; 3 Let ; 822 PrintLn ; 31 If ; 2 GetUser ; 2 PutUser ; 10 InputStr ; 1 InputYN ; 274 Delay ; 1 Bye ; ; ; ■ Functions used : ; ; 31 == ; 30 ! ; 10 Mask_AlNum() ; ;------------------------------------------------------------------------------ ; ; Analysis flags : W ; ; W - Write user ■ 5 ; Program writes a user record. Although this may be normal for a ; User Editor, it may also be a way to modify an account level. ; ■ Search for : PUTUSER ; ;------------------------------------------------------------------------------ ; ; Postprocessing report ; ; 0 For/Next ; 0 While/EndWhile ; 0 If/Then or If/Then/Else ; 10 Select Case ; ;------------------------------------------------------------------------------ ; AEGiS Corp - Break the routines, code against the machines! ;------------------------------------------------------------------------------