10 CLS
20 PRINT "Welcome to My Shop."
30 INPUT "What would You like to see";F$
40 FOR I = 1 TO 3
50 READ A,B
60 NEXT I
70 FOR X = 1 TO 7
80 FOR Y = 1 TO 5
90 READ P$(X,Y)
100 IF LEN(F$) = 0 THEN 200
110 IF ASC(F$) > 90 AND ASC(F$) < 123 THEN GOSUB 210
120 IF F$ = LEFT$(P$(X,Y),LEN(P$(X,Y))-1) THEN                                      PRINT "You'll find the ";P$(X,Y);" in aisle";X:GOTO 200
130 IF F$ = P$(X,Y) THEN 170
140 NEXT Y
150 NEXT X
160 GOTO 190
170 IF X = A AND Y = B THEN                                                         PRINT "You'll find the ";F$;" in aisle";X:GOTO 200
180 IF F$ = P$(X,Y) THEN                                                            PRINT "You'll find the ";P$(X,Y);"s in aisle";X:GOTO 200
190 PRINT "Sorry, I have no ";F$;"."
200 END
210 FOR C = 1 TO LEN(F$)
220 D$ = MID$(F$,C,1)
226 IF ASC(D$) < 48 AND ASC(D$) > 91 OR ASC (D$) < 96 THEN 260
230 IF VAL(MID$(F$,C,1)) > 0 THEN 260
240 IF MID$(F$,C,1) = " " THEN 260
250 MID$(F$,C,1) = CHR$(ASC(MID$(F$,C,1))-32)
260 NEXT C
270 RETURN
280 DATA 4,5,7,5,2,1
290 DATA VIRTUALIZER,POWER MORPHER,PLANETEER RING,VIRTUAL DISK,                          WRIST COMMUNICATOR
300 DATA FISH,SNAKE,GERBIL,BIRD,HAMSTER
310 DATA RADIO,TV SET,COMPUTER,DISK,MOUSE
320 DATA COOKIES,CRACKERS,CEREAL,HOT DOGS,CANDY
330 DATA TOYS,GAMES,ACTION FIGURES,CRAFTS,TRAIN SET
340 DATA PENCILS,CRAYONS,PAPER,MARKERS,PENS
350 DATA TAPES,CASSETTES,CD,VIDEO GAME,SOFTWARE