10 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2+V$
20 CLS
30 LOCATE 3,17:PRINT "* MAIN MENU *"
40 PRINT:PRINT
50 LOCATE 6,14:PRINT "A.  Jet Plane
60 LOCATE 7,14:PRINT "B.  Rabbit
70 LOCATE 8,14:PRINT "C.  Waterfowl
80 LOCATE 9,14:PRINT "D.  Candy Dish
90 LOCATE 10,14:PRINT "E.  Two Boxes
100 LOCATE 11,14:PRINT "F.  Puppy
110 LOCATE 12,14:PRINT "G.  Penguin
120 LOCATE 13,14:PRINT "H.  Samurai Helmet/Grouper
130 LOCATE 14,14:PRINT "I.  Cicada
131 LOCATE 15,13:PRINT" J.  Pig
132 LOCATE 16,13:PRINT" K.  Balloon
133 LOCATE 17,13:PRINT" L.  Chick
140 LOCATE 21,10:PRINT "Enter <Letter> desired."
141 A$=INKEY$:IF A$="" GOTO 141
142 IF A$="A" OR A$="a" GOTO 220
143 IF A$="B" OR A$="b" GOTO 230
144 IF A$="C" OR A$="c" GOTO 240
145 IF A$="D" OR A$="d" GOTO 250
146 IF A$="E" OR A$="e" GOTO 260
147 IF A$="F" OR A$="f" GOTO 270
148 IF A$="G" OR A$="g" GOTO 280
149 IF A$="H" OR A$="h" GOTO 290
150 IF A$="I" OR A$="i" GOTO 300
151 IF A$="J" OR A$="j" GOTO 310
152 IF A$="K" OR A$="k" GOTO 320
153 IF A$="L" OR A$="l" GOTO 330
154 GOTO 30
220 CHAIN "jet
230 CHAIN "rabbit
240 CHAIN "waterfowl
250 CHAIN "candy
260 CHAIN "boxes
270 CHAIN "puppy
280 CHAIN "penguin
290 CHAIN "helmet
300 CHAIN "cicada
310 CHAIN "pig
320 CHAIN "balloon
330 CHAIN "chick