BASICBASCOM-86/88 5.31m A:BASRUN~CODEINITRT_DATABLANKCONSTDATABC_CODEBC_ICNBC_IDSINITCONSTDATACOMMONCONSTDATABC_DATABC_FTBC_CNBC_DSDGROUPh39h IhZ h h H x՘hhH,JHh;hZ D  $AC$DAC$SEG$USR$INI*bmU1      V2$531!&@>k؜ VԠ!C?#u3 `þ?#u M W"l3  ͍ intropic.bino >"Press any Key to continue !͙=͌?#u0y٠l !3>3>5 Ҡ>3>5#!û@>k-!ӻ0 ڎ0u.www!'H>N3>0!D@>ӎ #a0ˋڑ #ӎ0ˋڑP !=͌=͍tX " =͍uH>Nû >B>D滧".Press any key to continue2ݠ#͕3>0.!@>ӎ0S!"ڑ !?ӎ0ˋڑ=V \͌=͍t qX͍uh L ZL Pq͚钜PPԠ!͠ͺͮ6 :à!ͨͪͨvÿܜP 6TX T@LؠͺwC >B6%!ͺͨͺ\F`>B \ 3339w5t!ͺͨͲԜTF>BddffwS"ͦͲƿrFh>BlF6 h 1!4߿ʹͨ>N TR Q͚Ӝppd 5[:!#X>B͠>D͕$ JtP# t$x!wͨvԾ͚ʜJ zPJz:!>B'>D͕ͪͨҜ tPJ#!vԿ͚ͦ˜~ N z% ~8">B͠>D͕ͪJtNJ|rs NppX!v͚ͦ6pJ R~~!͠>B>D͕ͪrJtR.;ͨrsJRPd U J!Tv>N[PJ!qÿͦͦ>1>>(Vl Z T!?º>@>>>VC!>@‹V>>=>@>B͠>D[Z"%----------- Hot Dog Stand ͙͠>B͠>D˻VZ"-----------#Your club is gO͕ͪ͢>B>D` P"oing to run a hot dog?stan ͕+9"d at eight football games. ͪ͢>B͠>D˻VZ" You will start with $200 i %͕ͪ͢>B>D' lN"n yourtreasury. Your goalD&=͕ͪ͢>B>D "FN": is to have@ $2,500 by *N!U͕ͪ͢>B͠>DDJnVZXthe end of the season.r˻Р"r%The stands can hold 1,000 vu͕ͪ͢>B>Dל r\"people, but3very large crob͕ͪ͢>B>D滿 Z"wds only come for`0 impoI0 ͕L"rtant games in nice weather.%ͪ͢>B͠>D˻VZ"`"Enter prices as dollars ͕ͪ͢>B>D滇 "and cents:p$2.30 would $#͕>><3>A V3&be entered as 2.30{"ͦͦ>>?8ZTv8`9">@>>>>@>B!8>D͕͠>B͠>D VZ U˻"< Before each game you can bϜ@͠Y͕ͪ͢>B>D <P*"Zuy hot%dogs, buns, chips, sd!q͕ͪ͢>B͠>D'`pVZtxoda, and courtesy}˻" kits (napkins, mustard, re*͙ͪ͢>B>D滶 l"lish). Hot dogs and buns wiHU͕ͪ͢>B>D滢 F"ll spoil and!can't be saved+!͕ͪ͢>B͠>DלnVZ for the next game.Ѡ˻c"!Remember you can't sell a ͕ͪ͢>B>Dj \b"hot dog without the bun, a "#͕ͦ>1͚͔^BFJJ|4nd vice versa.@ q!͢ʋ>>͢‹ NR NC!5>@ͪͨv&P JJR>B>De"VThe football schedule is:Z#a͕͙͚͌7VL PtJՠtFridaytxt8 b p֠H 3T !͌ͪ͢>B>D~ J~Saturday#͕͒͒͠~ P!t͕͠CJ J' Preseasonz"t͕͙sPLP5 HomecomingWj! ͪͨwU>10;JJ 7!'>5>C >D͖͌ޜ tD͠t bprFUu![͌>B >D͕~4!x͒͠>Nq  !t>B>D Pp!͙͠tiP0 PreseasonZ!>B>D͙NA Homecoming}L!?3ͦ͠ǜ &̠! ͚?ͪͨP P66!& v͠ށB&Pz!C uJʹuI##u  8ܠ`  3o[a ͌>B>Dӻ! Y" clear and hotWeather !| ͙ >B>D͕t*EForecast: (! ͦͦ͠v. 28 ! >B>D͖i6:>w! ͦͦʻvKBl:p! ͪͬͬԺvJ #ĜNJ RV" t>1>>?+ >@>B>D<"You don't have enough mone= ͕ >B >D  "y orsupplies to continue.`&P ͕>B>D""<Perhaps you'll do better il@ˠc ͕>B>D͕hA <`Zf you begin again.da !~ >>ûL>?>>! ?>?V>?>?V>?þB tc mѠ " ͠>B>D͕ͩ>p>F pYour stand now contains:t! >Bͪ͢>D͕͚ƜnBPMYour stand contains:{ p _ {" ͪ͠16F." =ͨͪͨvɻ% P6lM 4 ?4͚ŜP ).!= ?ͪ߿ͬ͢> 6 >P!Z Bͪ͢>D͠nBr.!w ͕͒ͪͨ@F P 66l+  v>1ܠ= IȠ" ?4͚>1?ӻ PŠ >B>D˻,"&Your stand contains Your _! ͕>BË>D͠㳜vzbank balance# ͙͒>B>D3F~:/! t͌TzV sodaќ5  t4z 6$ ͌ >B>D滸 H"chipsThe current pric  = ͕͕͕͚T P3e of  is:$ ! !"Q ?Ӿ͠ں" 6!o = =ͥͨ= =͕! ͨ͠ ͠/6z" = =ͥͨͦ6! ͢>B>D͒͠ǜg# ͒ = ͕̜ P6:! ͨw>>>Ȝ 6 T(! ?V>@V>>V!= >@VV>>V>@C>!Z >>>?ʺ:>>ѻȠ"w >A,6>>û?C>A! >> >A2V!>>3H! 5>A$(>>V>?º'>k >+>?ͦ|Q 0Q K! >>?>@>B >DǠ"  Do you want to make a purc! ͕͍ͦtJ T.(hase? Yל2Ҡ!)͍tI##u>B_4נ 4NӜ8ҠF>D>Nӻ":Please enter 'YES' or 'NO'ߜ>̠!_͕ڸ>Bӻ"Ϝ : xX.!|>D˻͕>B>D>]Z Z o^!B>D?5͕͍tL4驠;WͦͦPbb>B>Dנ"fHow many units will you buj!͕ͦͦ$f ly? '!ͦͦ=t Pr#>B>Dͦ P^;ͦ>B>Deb"From which line (1, 2, or ~Q͕ͦͦ輜 P3)? - !fͦʻsKʺw PTנ!vJ #u>Bӻ >DF!˻͕>B>DͦY6  c\!͠ͺr麜 :ɠ$>B>D͕K"You have only $####.##I %!> ͕͒ͦ诜: P. Think Again.˜4! >B>DͦPd*ͦ>B>Dcb"Are both values correct? 6$@͕ͦĜTU!M͍tJ͍tI#".4@!j#u>B>D>Nՠ!ӻ͕ڸ' :!>Bӻ>D˻͕>BZ#>D>B>D?5TL͍t靜 4ؠoW!>B>DͦǜPd! ׁͦ͠obzF#&ϋͺþ͌͜͠ 6#E~ͰVF Fǜ@!d~͜ͺvͮ͸ͨ͠)z!ׁʋӾ͠ں F F 6-#߿ͺͮͨo vͺͮͨ ";!ͦ͠9P6 !ͺƋͨ͠:z !ͦtb T 6h!-ͦͪͨw^ҜPPz zl!J>1>C>D͕͒@ Game Day #A#gͦ?3ͦ 2B2Po> i$ !?ͪͨvW P 66B!͠ށʺuJ P"ʹuI##u*8!͌>B>D͕>B Weatherc!>D͕>B͂T -------"ͼ=͢>D͕ &*&!8ͦͦͦ;$*..>B2u*< e!UͦZ>>T>@r>B>D"6'How much will you charge fy:Ϡ!~͕ͦͦ>>û^6Fp JTor each item?!b>?>>?>?V>?o>?V>?>B>Dޠ"b$You Paid Youf͕>B>Dnb"'ll Charge$--------  q͕>B>D" -------------$##.##?!ͪͬ͒>CX >D͕JHot Dog? $ Ie#ͦ>B>Dv%!;>C>D͕ͦ ~ Can of Soda? $ ʜ3!X>B>D͒>C> "uD͕ͦͦ T[Bag of Chips? $ l">B>D͕͍ .XAre all prices O.K.? !tJ͍tI##u>BԜ4Ԡ!>D>N>Cӻ!>D͕ڸ :h!>Bӻ>D˻͕>B>DZ%{͍u邜 .ڠ`!3>B>Dͦ|Pd"Pͦÿͦͦ͜$b   zHnͦ͠t8bP3""͠u!t͠чPf!tt鈜PPe!t͠|P !txͺP$V$ !ͨ͠t蠜p"6Pͺͨ͠((ffԠ!Tt(ͺͨ͠ ,,hffo!qtһ lJ#vK־ҹvI##u NF!޾ͦͦͲ͜B vӠ!ͲͰͨͦw=>FR6f#޾ͦͦͲͧF B~>ͦwEF V)3#޾ͦͦͲsF B> 9ͦͦrZF JN)Uͦw Udͦrl  REdڠuͦrۜ VAuˠͦwǜ ZE!‹߿ͼͬͨÿZ 00L~ ͦͦͦͦ4$J4 NR4LϠ!‹ͨ‹ͨ‹b VZ r,!ͦͺ͜ͺͰ4v ~1!͜ͺͰͨͪy:U+ͨ>1>B>Dˠ"8&Today's game is over. Your<̠!=͕>B>D͒ӻ̜8GV stand sold:!Z͕͒ͺ͒ >Bޜbvxbhot dogsŜf!w>D͒ӻ͕͒? n~,n cans of sodahr!ͺ͒ >B>D͒Gz!ӻ͕͒ͺ͒>B%~G~ bags of chips!>D=͕>BԜ n -t!>D͖>B>D瓜1!»͖>B>D?: S"%͒>>?>@I:ҠC>1>B>Dc"The football season is oven!V͙>B>D͒ 6:3r.s>Ds ^:L >B>D滓""You made your goal. TerriCN͕ͺv鍜 ^:fic job!Y>C>D滿"%You almost made your goal.$͕ͺvh` ^: Nice try.ݠ!>C >D͕ͺ4 ^ Very nice profit.ڜ v钜:Ӡ\!>C >D͕ >B> ۠  You made a good profit.ߜ$Dx"<Keep trying until you reac@Ǡ!͙>B >D͕ͪ <\Zh`your goal of $C`!4=͕͒=͕͙>Dþ ^nӠ n.r Q͉͠!2ܠ E :":!X͠Ӿ͠>N .*Du͠Ӿ͠>N酜 .*ZZXtXXbƠ#͠Ӿ͠>N͠Ӿ͔. *.*! >N鷠^X\X#͠Ӿ͠>N>_. *t?t IMAGES.IMGx!>û>N3>O>NT $Ơ͚  lKrH`ߜX~ x$6!͠>B>Dڋͪ͢œ T+F۠! ͍͠uzp) ~K!,͕ͪͨv P T+T+8Q"I>N>8n !gB>9ÿtͦP X+נ>!ͦͦͦ$\+l`+ X+l\+;ͦͦͦ$`+ pd+\+h+`+!͚ͦ͠>NͪX+ l+h+l+#ͨrsӜl+h+d+d+vȾ?/u魜l+`+  B Lg Ӡ Ӡy- H! ͚¿ͬ͢ͰP `+l+p")>N3>O͚ͪĜ$ PPp+p+_"Gv͢>NÜ `+l+PՠH"eͪͨv\Pp+ p+P#ͪͨvÿͦt+t+ x+"͠>N3>O<l+$x+l+!ͨrs l+x+l"vÿt8ll+ P`+0!ͦͦͦ |+ `+|+[0ͦͦͦ<$+X+ \+`+|@F`)2‹߿͚ͨͦJ+ +|+J'8 Y cX~ X  X X gΠ9q "Kͺʹͨ=2ڜ+ ++X+ I44!iͨ=5ͬͨ=5ͧ+ \++++!׿ͬͨ=2ͼƿX+ +++!=2ͬͨ=5ͬp++ +++!͠Ӿ͠>>͠Ӿ͠3՜+ +++k">?͠Ӿ͠>>͠Ӿ+ +++!3>?͠Ӿ͠>>͠Ӿ\+X++g!͠>?͠Ӿ͠>> + +++!5Ӿ͠>?ͦ͂++X+++ Rͦͦͦ$++ + ++\++nͦͦͦ&$++ +++++ !ͪͨrrV+++/!w͠Ӿ͠++\+X+o#>>͠Ӿ͠>?͠Ӿ+ +++!>>͠Ӿ͠>?û~ Ŝ + +!>87>9͚͠ K t+<|">Nͪͨv߻ pt+ t+^!:>N͍͠uJœz){!W(+͚͂ͨ| +&t+n!tӻ>N͚ͪ- PPp+p+"v͠ӻ>N\ t+pt+ˠ"ͨvͪ͢ӻ7t+ +t+!>NÿͦuT+\ P+0!͚ͦ͠ӻ>L͜ t+p,ܠ! >L͚ͦͪ+ +PPp+>#$ ͨvٜͪͨp+++t+t++4!C rsv &&t+B!` ͚͠ӻ>M> & t+!} M͚ͦͪ֜++ PPp+p+E! vͪͨn+ Pt+t+! v>1߻>5=GtJݠ! =5tI##u>B  >Dӻ'"Please insert the diskettei? ͕ >B>D滚E"labelled HOT DOG STAND int!! !͕ >B>D͕͠# K othe disk drive (!#u鮠 f DS ܠG  Dzܠ! Dn@ K>-!͙>B>D滌 " on the left,and clos  * UE!͙.& "2 e its door., and close itiB !O!͙>B>D͙n> > R P sdoor.V !l!=t>1޻<>5=\ \ g!!t>1>5>1@>` ` !!0͂ͨk+5!!0t0ӑ!!0%"!͂ͨr>1>4R + d 0d b">5 >DN"h $ Sorry, but you don't hpl '"͙͙\ h L" ave enough" memory to rۜ h!5"͙X>  un this program...>!R"0t>1>1o"(> >DE" ' Sorry, but you need the C L~"͙͙ L" olor/Graphicsz& Monitor Ad !"͙DX͠00t> + apter to use this program.!"1P> >Bӻ">B3>D!">5͙>5ӻ͙˻  LD Hot Dog StandŜ !"?7͕͙ >5?7  ߠ (c) Copyright 1983" #͕͙>5?7͕Ҝ4 Ϡ&4 Sunburst CommunicationsPl 8 T "V easantville, New York 10570!#͙͙ӻ!?7͕HP Lt (t Programming by:Vx 7#?7͕" #Walter Koetke III and Jame yE#͙>B>B3>Dr " s Brayton%Please turn on y G!]#͙>͚ͪ͜ b t+A our graphics monitor., !z#?"?" [ P1a"#ͪͨvp t+ + t  3!#ͦͦͦJ+ + 8+J` xd!#͚ͪͨvꙜPP 66  zX #͚5b#Wm#1j"+d"͠".! w! J!Ԡ-!!#ͪ?"p؜ t+Π!$?"ͪͨ pt+!/$v@>͠(  +!L$3>Rӻ>R>C>Cڋ!i$>B>B>Dۻ<>5y$,> " logo.binPress Any Key I   !$͙=͌ 03  to Continue"$>R@>r4s"$>[=%͂D++!$3=!͂ͨt6 +!%ʻtK͂ͬͨ̈́P++!,%ӻ>>>3>A͠>B+ՠ!I%͠>D=%͂ͨ3=!͂͋+++!f%ʻrK͂ͬ+,+ՠ!%ͬ͢ =͕͠>B͠+P++ !%>Dû >5͠>B͠>D& ++q!%=͕¿ͬ͢=͂ + !%=͕ͪͨQ +,P++!%͠>B˾͠>D滺  ,+\!&=͕>B͠>D=͕؜ +!1&ͪͨv͠>BQP ,,+"N&͠>D=͕¿ͧ++!l&͢=͕=͕>55!&YwSھ͚E뇜 P#&>1|ͪͨN P!&vy3=!͂ͨ=%͂+!&ͨͦ͌͠>B̜+, bL,+ɠ!&͠>B>D@>k +"'0t?#ub ,:'ͦͦ顜 , Ơ  @hw#d"efid5NMd& {$NN%<+dJN % %E%'#1!G'͕ͦͦ{,& ,$ ( x$ ~_, Ԡ#d'=͕3>0 !'@>ӎ0˰!'ڑd !'ӎ0ˋڑ= !'͍͌t̜͂ͨ,L ,,", "'tͦXl . ",H. #(ʻuKҺvJ##uO ,,#4(KӋ= ͌=͕͵2 2 _ 6 Π#S(=͕=͕ͪͨϜ 8 Π8 P?!r(ʻuKӻ ۸tH#1 ", ,"!(#u>C>C3>D =̀#!(=͕ͥͨͦ3 < @ < P ƜD !(ʻsK־ʹw,,",|!(I#˿ʻrK##u͔ ,,!)˻͕=ٰ͕ͪͨ ( P%# )̀͌[ͦͦ], R,bV,L!?)ͦͦ>C>C>D&,*,( k!\)=͕3>0ڜ!y)@>ӎ0N !)ˋڑ~ #)ӎ0ˋڑ ")=͍͌t͂Z, LZ,!)tXʻul8 ؠ" *Kӻ ۹tI##tݜ !+*ʻtKӻ ۹uI #  g!H*t=͕͕=͕2  !e*=͕= ͌K Z,#*Ëْ= ͍͌t͖ nZ,R,b!*͠һvKݜ R,&,ՠ"*͂ͮͨʻuKҺ F R,F 8G!*uJ##u͕ӻ͕ Z,( ߠ!*=͕ͦڸ̀͌QPJ J C>C3>D͗ P!+=͕ͥͨ>10>5 Ϝ  @ +>B>D滳"N Do you want to try again? R !+͕ͦ = N T,n!+͍tJ͍tI#ʻ:.,4!+͍tJ#ѻ͍tI##u l r l n}y p v ! ,>B>D>N՜!*,ӻ͕ڸ z :h!G,>Bӻ>D˻͕>B>D<x  x  l| !d,[͍uJ͍uI .,r `!,#u> >R>1>!,0uJ͂ͨ ,>>1 >B>Dӻ" Would you like to use anot !,͙ >B>D͕=  u her diskette?  Z!,͕=͕=͕ͦ T! -= ͍͌tJ),.,!)-͍tI#ʻ͍tJ#ѻ 4 l r !F-tI##u>B>D͐"c->Nӻ͕ڸ :d"- >Bӻ>D˻ x "!->B>D͍uJz .,+-͍uI #umr )u')~ !4'T-W,WȠ"' qMP+)*'"&*!k* K*yk%*W>"~ q))1 ~(+ (3j.(>Š (( %G'۠->1 >B>Dӻ%" %Insert the diskette you wo L-͙ >B>D滝 R" uld like touse into the dQ "-͕͠#uX  U  isk drive on the left.] .>B>D͙ " Close then door. . Clo  $ [!-.͙>B>D͙k R % * se theJ.>1>B>D "0 To turn the computer off:4 Ϡ\.͙ >Bӻ>Di0 ՠ"N 1. Remove the diskette froR q.͙ >B>DN "l m theZdrive and put it in.v !.͙ >B>D͙ >B r   a safe place.2 u .>D " 2. Turn the computer off.  c!.͙>B >D͕?"  ̠ Theswitch is located } =!.#t͙>B >D拱 ' on the, +.ӻ" right side of the computerp !!.͙>B>D͙>BQ   towards the back.  />D`" "3. Turn off your graphics  ! /͙͙>B >DK  8 Q0 monitor.in the < !&/͙>B>D͙/ B  >B back of the computer.8F !C/͙3><ӻ>R>1>C>C͐\ \ Zordon is Evil!` !`/>D>0uX !}/J͂ͨ>>1>5F!/,>1>3G />5ͦͦͦ :p ,"p H#Starting bank balance x /͌ t " was $#####.### New ban T /͌{ W" k balance is $#####.####W " /͌s vr" ## \ \ is $####.#ߜ /͌͌ ~ $ ## \ \ #:00 PMGa   /͌[ "me # Information\ \Ѡ 0͌R "& at #:00 PM$####.## is ۜ8  0͌J 46A"Dyour bank balance.##### \Z!0͌͌'=͌RVrn @ ^,nb \ #) $##.## r00?"|M#### \ \ at $##."## fo9 10͌$ |"r a total of $####.##TotaU!90͌=$͌ں= q b,?l sales were $####.##!V0== ́ͭͥ͝ נ"s0ͨ͢> =09 f,r,o!0=ͬ`Pv,c!0~I{}H#&!0=þ͚͠H P6!0߿ͦv^~ͼr, TҠ"1ͬ~ͨ͠߿Ĝ 6br,##1ͦ^]~ͨ͠ܜp6!B1߿ͦ^9~ͨͪȜr,lP6S"_1ͨwnͦv 6r,!}1~ͬͨͦ͠~z,P|!1͚͠ʺ>=zP JLP!1ͨvܻ?4͚EJ \PT!1͚͠ں ӾP ~,J!1?ͪͨ p)P~,!2vȿͪͨv TP JJl-2 sunny and hot, fair and clear, cool ab(nd cloudy2.2 light rain, heavyH F rainCL/2 hot dogs,hot dog o`buns, cans of soda, 4tbags of chips02 courtesy kits12 hot dogs, 0185200k12per dozen for reguzlar quality*22 021520012per doze$n for higher qualityՠi32 024520012per dozen for highest qualityŠ42 hot dog buns, 011I.920012per dozen for ڠBregular qualityR52 014420012per dozefn for higher qualityIzݠ{62 016920012per dozecn for highest qualit$y:72 cans of soda, 064Ϡ840024per case of 24۠  cans82 110480048per 2 cases of 24 cansנ92 245099120per 5 cas ses of 24 cans:2 bags of chips, 03&-9030010per box of 10 A bagsSG;2 155060050per cart[on of 50 bagsڠi<2 260099100per cartp}on of 100 bags=2 courtesy kits, 050025025per box of 25  kits >2 140050100per box nof 100 kits?2 280099250per box 5of 250 kits@2 ~,Hot Dogs,~ A2 Hot Dog,~," Bunsp" B2 ~," Soda",~30C2 ~," Chips",~Ҡ@D2 Courtesy,~," KitTs"j!+2Y>1ؠ!H23>R>C>C>D >B>Dߠ"#YOU HAVE VIOLATED FEDERAL + e2͙>B>D滻"COPYRIGHT&LAWS. POLICE HA2 ֠x2͙>B>D滤"0VE BEEN ELECTRONICALLY!NOTIJ"NFIED. STAY WHERE YOU ARE!!!!!2͙͚͚͚3FP Pll/"!2͠ʺ>Uͪͨt+ pPt+ڠpL}u!2v͚ܿͦ͠Ԝt, tt+ta"2ʺ>Uͪͨrp ,t+,h!3svſll lt+P,ݠ!3ͨwp͚, TP#:3>U>Uͪͨͦ8 P,,l!Y3vۿͪͨw"FP6 6lŠWv3>͙>x xThanks for playing! :)|@.2 X/2 X12ߠ53ڠ 3 2 '' 282l2 2Š1*$1H1aX@2Р1r0͠04V0!t>/8/-.D(. .-K-/--2 $$MAINՐ  $FTPD