Javacode Supermarket

n?nprumi

2 no”

= WI;

baok-Bpace

= #8;

cauiago~mhlr”

= t13;

rpscial

=#o;

right-mrow

- #II;

leftt3rIow

= w5;

down-8txc.w

= #80,

up--w

= #72;

fl = ‘s.hostor.Qt’; n = ‘s~saction.dat’; f3 - ‘a:\indox.dat; f4 = ‘a:\s”mmary.W, “ar fpp-m

:

fiismebr;

W

: filoi”&x;

fP-t

: fibhn”;

b-8

: fhumme;

rOSpo”SO

zhar;

(--- ------------ sm,,und ______._______________) pmcodnm

stmtsoond;

begin ao”“d(1OOO);

&lay(lOO);

soond(1300);

d!alay(lOO);

soond(700);

delay(100);

sound(1500);

&lny(lOO);

sou”d@o);

&lay(lcO);

so”nd(450);

&lay( 100);

nosound; and; [ ---------------_ prdum

&sound__________________________1

ticsound;

begin soond(45SO);

dohy( 100);

aound(850);

dolay(5oo);

so”nd(1650);

&lay(lOO);

so”“d(1000);

dalay(100);

“0SOU”d;

end; { ----~~---~~~~~~~~~~~~~~~~~~~-~~~~~~~~~~~~~~~~~~~~~~-~~~ IT 257

] 255

gotoxy(bfcol.tDplim);

wliw

‘,11218);

for colw 1 to numcols + 2 da vnik@l%);

wriw191: 3;

(display the sscond line) .ptoxy(kacol.topline+l);

wliq-

for colic 1 to numcoln do forlimzmQline+2tn

‘#179.’ 7;

miq#220);

vnib(’ ‘C179.’ ‘);

topline+numlitm+2do

hegin gotoxy(loflmlJino): wlikq ‘,#179,’

‘); gotoxy@fkol+nn3Jim);

wiblnc ‘C179.@ 3;

end; [diqlay

the second-lmt line)

gotoxy(l&.ol.topline+nllmlims+3); for cob 1 to nnmccds do

wrirs(’

‘.u179: ‘);

wrib(#223); wrikt’ ‘$179:

‘);

(dislaythelastlim} ~otoxy(bfkol.~line+n~si4);

WribC

‘C192);

for co1 i 1 to nomcob+2 do mik$Ul%);

‘miWl27.

‘); 1stvidM6);

end;

if nomchoices > 7 then

I@“&=

I topliner - (numhckcs*~~) hfbmlz41

1

C‘lM

apacirLp~

div 2 - (2-qauintV

nomchobs mod 2;

- mDmmidth div 2;

(displaythefmmandtitb) displa~nomchoicos*spazim~

+ 3,mnawidth);

pobm~trios0itkW’~l.2)~

[display the choice and dsloriptions~ for iw 1 to nomchoka

do

bsin pniaking(ch&a[i].toplim potstring(‘-‘+ I

&suiptioru[i].

+i*spxdng+2.

bfbml+2.2)2);

toplim + i*spx& +2.bfbli4.0);

and; (display the prompt1

IT 257

259

l-sin

olncr;

e bxfbmJicpuod(o);

l.dmw

f o r irlto7do -w&h g~roxy(l53)FwJw~ro;

c

for ir 1 to 40 do wiqohr(205)); wrib(chr(ls7));gotoxy(l5,4); highvidoo;wrib&nbr

rstvidm(6)~o1oxy(S6~4);

choice ‘:25);

wribln(chr@S));a%vidw$6);

gotoxy(lS~);wrib(c~r(186));

s~~~Yw.w~~~qlw~;

m~6~(l0toxy(15,6);

wib(chI(l86));bxbolor(l4);

highvidso;gotoxy(20,6);

cmab mesbr fib ‘);

wlibo’. .

wrib&hr(l86));bxkmlor(l);

m~~;dotoxy(s6.6);wribln(ohr(l86));

w~~:~o~xy(15,7);~~c~l86)): wlibcz’.’

bxlcolol(l4);highvo;go~xy(u).7);

hansaction fib?;

mibln(chr(l86));sestvidso(6);

gotoxy(l5,8);wrie(cbr(l86));

bxbolor(l4)&ighvi&idoo;

gotoxy(20,8);tib(‘3’.

le~6);~otoxy(568);wribln(c~l8~);

selvkbo(6)~or0xy(l5,9);

wriqchz(l86));bxbolor(14);

highvi&o;gotoxy(20,9);

wliq4”:

sommsty

fib’);

atI

‘);

bxoolor(l4)~hvidw;poloxy(20,10);

t~ido0(6);~0tc1xy(56,10);

go~xy(l5,lO);~qch@l86));

mib(ch(l86))~to(6);

Wvidoo((a);go~xy(l5,11);

wribC6:

&vidm(6);gotoxy(l5,12);

~cql86));bxo;~gh~o; :-> ‘);

exit-);

wiqcWl86));bxbolor(l4);

highviaso;~otoxy(20,11);

gotoxy(25.12);mib(‘ohow

in&x iild);

se~o(6);gotoxy(56,9);~b~(chr(186));

wtvidm(6);@oxy(15,10);~chr(186)); mib(‘S’,

.

dvidd6);gotoxy(56.7);

Istvi&0(6);gotoxy(56,11);wribln(ch1(186));

le~66)aotoxy(56,12);~b~(c~186));

~~6);gotoxy(15.12);~qc~uw))); for i:= 1 to 40 do anib(chr(205)); &vidm(6);wribln(chr(l88))$ighvi&.o; cam

oh

ch:azdkey;

of

‘1’ZlUablIl;

Tasablrim;

‘3’e

‘4’xmabsum;

‘5’:bDgin cm*sm;

mabtcan;

cmabin;

cmabsum;

end; slss L-sin

262

IT 257

end; until (choice = 4);

5

end; {5555555555555555boonchok

55555555555555555555555555551

begin clrscr;

lBXthackgmU”d(hti);

mP& dosdatetime;starisound;b;csound;

displaymenu(mainmenu);displayfrsmo(

\ 10.40);

getmcnuresponso(mainmenufasponse); I menu choice ) ease msponse of ‘I’matofilo;

‘2’ze”te~

‘3’Jormdallfila;

‘4’:seamh;

‘6’:updatsdsta;

*I’:summacy;

‘8’:dsletsinsert;

‘&exit;

Y’aeUgood;

end; wli~l”;textbackgrou”d(o);clwcr; until mspo”se = ‘a’; lmdl” end.

IT 257

281