' '께께께께께께께께께께께께� Published By: ARROW Software '� HAMBURGER HEAVEN v1.0 � Programmed By: Lester '께께께께께께께께께께께께� Release Date: January, 1998. ' ' ' Send all Comments and questions to: lester64@hotmail.com ' DECLARE SUB DrawStand () DECLARE SUB PrintMenu () DECLARE SUB DrawIntro () m = 50 'money mb = 0 'money in the bank seasoning = 10 'seasoning packages ham = 10 '# of hamburger units ice = 10 'ice units packs = 10 'complimentary packs lighter = 10 'lighter fluid units price = .95 'hamburger price drinks = 10 'drinks on hand (assorted) CALL DrawIntro DO 0 CLS CALL DrawStand CALL PrintMenu COLOR 7 LOCATE 10, 1 RANDOMIZE TIMER w& = RND * 5 IF w& = 1 THEN weather$ = "FAIR" IF w& = 2 THEN weather$ = "RAINY" IF w& = 3 THEN weather$ = "SUNNY" IF w& = 4 THEN weather$ = "STORMY" IF w& = 5 THEN weather$ = "OFF LIMITS" PRINT "The weather outside is: "; weather$ LOCATE 11, 1 PRINT "Money on hand = $"; m LOCATE 12, 1 PRINT "Money in the bank = $"; mb LOCATE 13, 1 PRINT "Price per Hamburger = $"; price LOCATE 15, 1 PRINT "STOCK:" LOCATE 17, 1 PRINT "Hamburger units = "; ham LOCATE 18, 1 PRINT "Ice units = "; ice LOCATE 19, 1 PRINT "Seasoning units = "; seasoning LOCATE 20, 1 PRINT "Complimentary packs = "; packs LOCATE 21, 1 PRINT "Lighter fluid units = "; lighter LOCATE 22, 1 PRINT "Assorted drinks on hand = "; drinks LOCATE 21, 45 INPUT "Type a number"; ch$ IF ch$ = "1" THEN GOTO 1 IF ch$ = "2" THEN GOTO 2 IF ch$ = "3" THEN GOTO 3 IF ch$ = "4" THEN GOTO 4 IF ch$ = "5" THEN GOTO 5 IF ch$ = "6" THEN GOTO 6 IF ch$ = "7" THEN GOTO 7 IF ch$ = "8" THEN GOTO 8 IF ch$ = "9" THEN GOTO 9 IF ch$ = "10" THEN END 1 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Change Price On Hamburgers" LOCATE 11, 1 PRINT "--------------------------" LOCATE 13, 1 PRINT "The current price on hamburgers is: $"; price LOCATE 15, 1 PRINT "If you change the price to less than a dollar, then type the price" LOCATE 16, 1 PRINT "as follows: 56 cents = .56. NOTE: DO NOT USE THE '$' SIGN!!!!" LOCATE 18, 1 INPUT "What is the NEW price"; newprice IF newprice > 5 THEN GOTO 1 ELSE price = newprice GOTO 0 2 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Hamburger Meat" LOCATE 11, 1 PRINT "------------------" LOCATE 13, 1 PRINT "ONE Hamburger unit costs ONE dollar ($1). ONE Hamburger unit serves" LOCATE 14, 1 PRINT "ONE costumer. To serve a burger, you must have seasoning with it." LOCATE 16, 1 INPUT "How many units will you buy"; hamunits ham = ham + hamunits m = m - hamunits GOTO 0 3 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Drinks" LOCATE 11, 1 PRINT "----------" LOCATE 13, 1 PRINT "ONE drink serves ONE costumer. ONE drink costs fifty cents (50c)" LOCATE 15, 1 INPUT "How many drinks will you buy"; newdrink drinks = drinks + newdrink m = m - newdrink / 2 GOTO 0 4 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Complimentary Packs" LOCATE 11, 1 PRINT "-----------------------" LOCATE 13, 1 PRINT "ONE costumer uses ONE complimentary pack. ONE complimentary pack" LOCATE 14, 1 PRINT "costs two dollars ($2). It includes salt, pepper, napkins, straws..." LOCATE 16, 1 INPUT "How many complimentary packs will you buy"; newcomp packs = packs + newcomp m = m - newcomp * 2 GOTO 0 5 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Lighter Fluid" LOCATE 11, 1 PRINT "-----------------" LOCATE 13, 1 PRINT "ONE lighter fluid unit cooks ONE Hamburger. ONE lighter fluid unit" LOCATE 14, 1 PRINT "costs ten cents (10c)." LOCATE 16, 1 INPUT "How many units will you buy"; newl lighter = lighter + newl m = m - newl / 10 GOTO 0 6 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Ice" LOCATE 11, 1 PRINT "-------" LOCATE 13, 1 PRINT "ONE ice unit serves ONE costumer. ONE ice unit costs ten cents (10c)." LOCATE 15, 1 INPUT "How many units will you buy"; newice ice = ice + newice m = m - newice / 10 GOTO 0 7 CLS CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "Buy Hamburger Seasoning" LOCATE 11, 1 PRINT "-----------------------" LOCATE 13, 1 PRINT "ONE hamburger seasoning unit serves ONE costumer. ONE seasoning" LOCATE 14, 1 PRINT "unit costs fifty cents (50c)." LOCATE 16, 1 INPUT "How mant units will you buy"; news seasoning = seasoning + news m = m - news / 2 GOTO 0 8 CLS COLOR 7 CALL DrawStand COLOR 7 LOCATE 10, 1 PRINT "BANK" LOCATE 11, 1 PRINT "----" LOCATE 13, 1 PRINT "You currently have $"; mb; " in the bank." LOCATE 15, 1 INPUT "How much would you like to take out (in whole numbers (NO $ sign))"; newb m = m + newb mb = mb - newb GOTO 0 9 CLS a% = RND * 10 b% = RND * 20 c% = RND * 30 d% = RND * 40 e% = RND * 50 cust = 0 IF weather$ = "SUNNY" AND price <= .95 THEN cust = e% IF weather$ = "FAIR" AND price <= .95 THEN cust = d% IF weather$ = "RAINY" AND price <= .95 THEN cust = c% IF weather$ = "STORMY" AND price <= .95 THEN cust = b% IF weather$ = "OFF LIMITS" AND price <= .95 THEN cust = a% IF weather$ = "SUNNY" AND price >= 1 AND 3 THEN cust = d% IF weather$ = "FAIR" AND price >= 1 AND 3 THEN cust = c% IF weather$ = "RAINY" AND price >= 1 AND 3 THEN cust = b% IF weather$ = "STORMY" AND price >= 1 AND 3 THEN cust = a% IF weather$ = "OFF LIMITS" AND price >= 1 AND 3 THEN cust = 0 IF weather$ = "SUNNY" AND price >= 4.1 THEN cust = c% IF weather$ = "FAIR" AND price >= 4.1 THEN cust = b% IF weather$ = "RAINY" AND price >= 4.1 THEN cust = a% IF weather$ = "STORMY" AND price >= 4.1 THEN cust = 0 IF weather$ = "OFF LIMITS" AND price >= 4.1 THEN cust = 0 m = m + price * cust ham = ham - cust drinks = drinks - cust packs = packs - cust lighter = lighter - cust ice = ice - cust seasoning = seasoning - cust IF ham <= 0 THEN ham$ = "YOU NEED TO BUY MORE HAMBURGER MEAT!!!!!" ELSE ham$ = "Hamburger stock good" IF drinks <= 0 THEN drinks$ = "YOU NEED TO BUY MORE DRINKS!!!!!" ELSE drinks$ = "Drinks are well stocked" IF packs <= 0 THEN packs$ = "YOU NEED TO BUY MORE COMPLIMENTARY PACKS!!!!!" ELSE packs$ = "You have enough complimentary packs" IF lighter <= 0 THEN lighter$ = "YOU NEED TO BUY MORE LIGHTER FLUID!!!!!" ELSE lighter$ = "You have lots of lighter fluid" IF ice <= 0 THEN ice$ = "YOU NEED TO BUY MORE ICE!!!!!" ELSE ice$ = "Ice supplies are holding" IF seasoning <= 0 THEN seasoning$ = "YOU NEED TO BUY MORE HAMBERGER SEASONING!!!!!" ELSE seasoning$ = "Hamburger seasoning good" CLS PRINT " SALES REPORT" PRINT " ------------" PRINT PRINT "Costumers: "; cust PRINT PRINT ham$ PRINT PRINT drinks$ PRINT PRINT packs$ PRINT PRINT lighter$ PRINT PRINT ice$ PRINT PRINT seasoning$ PRINT PRINT " <>" WHILE INKEY$ = "" WEND LOOP UNTIL m >= 300 new = m - mb CLS PRINT " *** CONGRATULATIONS ***" PRINT PRINT " You have reached your goal of $300!!!!!!!!!!!! " PRINT PRINT " <> " PRINT PRINT "Hamburger meat left = "; ham PRINT "Drinks left = "; drinks PRINT "Complimentary packs left = "; packs PRINT "Lighter fluid left = "; lighter PRINT "Ice left = "; ice PRINT "Hamburger seasoning left = "; seasoning PRINT PRINT "Money in the bank = $"; mb PRINT "Cash on hand = $"; m PRINT PRINT "If you have minus anything in your inventory, you CHEATED. If you owe" PRINT "any debt in the bank, your OVERALL total is... $"; new PRINT INPUT "Type 1 to print a record. Otherwise, press enter to exit."; printme$ IF printme$ = "1" THEN GOTO 3000 ELSE GOTO 2000 2000 CLS PRINT "Thank you for playing Hamburger Heaven v1.0..." PRINT PRINT "Published By: ARROW Software" PRINT "Programmed By: Lester" PRINT PRINT "(c) 1998 ARROW Software." END 3000 CLS PRINT PRINT "PLEASE MAKE SURE YOUR PRINTER IS TURNED ON AND HAS PAPER!" WHILE INKEY$ = "" WEND LPRINT LPRINT " HAMBURGER HEAVEN v1.0" LPRINT " =-=-=-=-=-=-=-=-=-=-=" LPRINT LPRINT " Published By: ARROW Software, 1998." LPRINT " Programmed By: Lester Anderson, 1998." LPRINT LPRINT " Hamburger meat left = "; ham LPRINT " Drinks Left = "; drinks LPRINT " Complimentary packs left = "; packs LPRINT " Lighter fluid left = "; lighter LPRINT " Ice left = "; ice LPRINT " Hamburger seasoning left = "; seasoning LPRINT LPRINT " Cash on hand = $"; m LPRINT " Debt in bank = $"; mb LPRINT " OVERALL TOTAL = $"; new LPRINT LPRINT " I hope you had fun playing!!!!!!!!!! ==> Lester." LPRINT LPRINT "PLEASE REMEMBER TO SEND ALL COMMENTS TO: lester64@hotmail.com" END SUB DrawIntro CLS PRINT "HAMBURGER HEAVEN v1.0 BY: Lester, 1998." PRINT PRINT "Hamburger Heaven is a game where your goal is to raise $300 profit." PRINT "You start out with a bank account of $0, and you have $50 cash on" PRINT "hand. ONE hamburger serves ONE customer. Things you NEED include:" PRINT PRINT " - ice for drinks" PRINT " - lighter fluid for the B.B.Q." PRINT " - Hamburger meat" PRINT " - complimentary packs (straws, cups, plastic utensils, etc.)" PRINT " - Drinks (soft drinks, coffee, tea, etc.)" PRINT " - seasoning for your special recipie" PRINT PRINT "ONE hamburger unit srves ONE costumer. Also, each costumer uses ONE " PRINT "ice unit, ONE complimentary pack, and ONE drink. The rest of the " PRINT "rules will be explained to you througout the game. Good Luck!!!" PRINT PRINT "SEND ALL COMMENTS TO: lester64@hotmail.com" WHILE INKEY$ = "" WEND END SUB SUB DrawStand CLS SCREEN 0 COLOR 6 PRINT "�袴袴袴袴袴袴袴袴袴�" COLOR 30 PRINT " HAMBURGER HEAVEN " COLOR 6 PRINT "훤佶袴袴袴袴袴袴錮暠" PRINT " � �" COLOR 2 PRINT " \/\/\\\/\/\\\/\///\/\\\/\/\/\/\/\////\/\/\/\\\/\/\/\/\/\/\//" PRINT "/\/\\/\/\/\\\/\/\/\/\/\\\/\/\\////\/\/\/\/\/\\/\\\/\/\\\/\\\\" LOCATE 2, 1 COLOR 6 PRINT "�" LOCATE 2, 20 PRINT "�" COLOR 3 LOCATE 2, 40 PRINT CHR$(1) COLOR 4 LOCATE 3, 40 PRINT "�" COLOR 9 LOCATE 4, 39 PRINT "/" LOCATE 4, 41 PRINT "\" LOCATE 3, 39 PRINT "/" LOCATE 3, 41 PRINT "\" COLOR 4 LOCATE 1, 25 PRINT "께께께께 께께께께" LOCATE 2, 25 PRINT "께께께" LOCATE 3, 25 PRINT "께께께" LOCATE 4, 25 PRINT "께께께" LOCATE 2, 53 PRINT "께께께" LOCATE 3, 53 PRINT "께께께" LOCATE 4, 53 PRINT "께께께" COLOR 6 LOCATE 1, 33 PRINT "-HAMBURGER-HEAVEN-" COLOR 4 LOCATE 8, 1 COLOR 30 PRINT CHR$(17) LOCATE 8, 2 COLOR 9 PRINT "HAMBURGER HEAVEN v1.0 BY: Lester, 1998." LOCATE 8, 51 COLOR 30 PRINT CHR$(16) END SUB SUB PrintMenu LOCATE 10, 45 COLOR 7 PRINT "1. Change Price On Hamburgers" LOCATE 11, 45 PRINT "2. Buy Hamburger Meat" LOCATE 12, 45 PRINT "3. Buy Drinks" LOCATE 13, 45 PRINT "4. Buy Complimentary Packs" LOCATE 14, 45 PRINT "5. Buy Lighter Fluid" LOCATE 15, 45 PRINT "6. Buy ice for drinks" LOCATE 16, 45 PRINT "7. Buy Hamburger Seasoning" LOCATE 17, 45 PRINT "8. Go to the bank" LOCATE 18, 45 PRINT "9. Wait for costumers to come" LOCATE 19, 45 PRINT "10. Exit" END SUB