0 REM  FROM CHUG PD DISK # CHC 194              NAMED ON DISK 'WHIZIT'
10 DIMD$(23),TS(5),W$(20),L1(12),L2(12)
20 D$(0)="":FORX=1TO23:D$(X)=D$(X-1)+"":NEXT:C=54272:FORX=1TO160:READW$:NEXT
30 FORX=1TO12:READL1(X):NEXT:PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,5
40 PRINTD$(12)TAB(16)" WHATZIT ":FORX= 6TO2STEP-1:ZZ=X:IFZZ=3THENZZ=7:
45 POKE646,ZZ
50 PRINTD$(10)TAB(15)"           ":FORY=1TO3:PRINTTAB(15)" "TAB(25)" ":NEXT
60 PRINTTAB(15)"           ":PRINTD$(8)TAB(13)"               "
70 FORY=1TO7:PRINTTAB(13)" "TAB(27)" ":NEXT:PRINTTAB(13)"               "
80 PRINTD$(6)TAB(11)"                   ":FORY=1TO11
90 PRINTTAB(11)" "TAB(29)" ":NEXT:PRINTTAB(11)"                   "
100 PRINTD$(4)TAB(9)"                       ":FORY=1TO15
110 PRINTTAB(9)" "TAB(31)" ":NEXT:PRINTTAB(9)"                       ":NEXT
120 FORX=CTOC+23:POKEX,0:NEXT:POKEC+24,15:POKEC+5,10:POKEC+6,10
130 READH:IFH=0THEN151
140 READL:POKEC,L:POKEC+1,H:POKEC+4,17:FORX=1TO100:NEXT:POKEC+4,16
150 FORX=1TO75:NEXT:GOTO130
151 PRINT"[147]               WHATZIT
152 [153]"  WORDS ARE SCRAMBLED ON A GRID AND
153 PRINT"  YOU TRY TO UNSCRAMBLE THEM FOR
154 [153]"  HIGH SCORES. BONUS FOR SPEED.
159 FORDE=1TO3E3:NEXT
160 PRINT"[147]":POKE53280,2:POKE53281,3:POKE646,6:PRINTTAB(6)"I'M HUNGRY"
170 PRINTTAB(6)"MUSIC MAKERS":PRINTTAB(6)"PEOPLE PARTS"
180 PRINTTAB(6)"PRETTY PETALS":PRINTTAB(6)"HOME SWEET HOME"
190 PRINTTAB(6)"HOW'S THE WEATHER?":PRINTTAB(6)"ALL WORK AND NO PLAY"
200 PRINTTAB(6)"TWO LEGS, FOUR LEGS, NO LEGS":POKE646,2
210 PRINTTAB(2)"MOVE CURSOR WITH JOYSTICK..PORT #2"
220 PRINTTAB(6)"PRESS FIRE BUTTON TO SELECT":OP=1108:POKEOP,160:POKEOP+C,1
225 PRINT"MOVE STAR (*) TO UNSCRAMBLE WORDS"
227 PRINT" PLACE * UNDER LETTER,PRESS FIRE BUTTON
230 [129]X[178]1[164]100:[130]:[139]([194](56320)[175]16)[178]0[167]290
240 J[178]15[171]([194](56320)[175]15):[139]J[178]1[167]DI[178][171]80:[137]270
250 [139]J[178]2[167]DI[178]80:[137]270
260 [137]230
270 NP[178]OP[170]DI:[139]NP[179]1108[176]NP[177]1668[167]230
280 [151]NP[170]C,1:[151]OP,32:[151]NP,160:[151]OP[170]C,3:OP[178]NP:[137]230
290 [140]:CA[178](OP[171]1028)[173]80:[145]CA[141]300,310,320,330,340,350,360,370:[137]380
300 [142]
310 [129]X[178]1[164]20:[135]W$:[130]:[142]
320 [129]X[178]1[164]40:[135]W$:[130]:[142]
330 [129]X[178]1[164]60:[135]W$:[130]:[142]
340 [129]X[178]1[164]80:[135]W$:[130]:[142]
350 [129]X[178]1[164]100:[135]W$:[130]:[142]
360 [129]X[178]1[164]120:[135]W$:[130]:[142]
370 [129]X[178]1[164]140:[135]W$:[130]:[142]
380 [129]X[178]1[164]20:[135]W$(X):[130]
390 [153]"LOAD":[151]53280,15:[151]53281,15:[151]646,1
400 [153]D$(18)[163]4)"WORD"[163]17)"SCORE"[163]24)"BONUS"[163]31)"TOTAL"
410 WC[178]0:TC[178]0:CU[178]18
420 WC[178]WC[170]1:[139]WC[177]5[167]800
430 TC[178]TC[170]2:[151]646,TC:[153]D$(2)[163]11)"                 ":[129]X[178]1[164]3
440 [153][163]11)"     ":[153][163]11)" "[163]27)" "
450 [153][163]11)"     ":[153][163]11)"             ":[130]
460 [153][163]11)"ON                 ":[151]646,13
470 [129]X[178]1[164]12:L2(X)[178]L1(X):[130]:LP[178]0:WP$[178]""
480 WN[178][181]([187](1)[172]20)[170]1:[139]W$(WN)[178]""[167]480
490 LP[178]LP[170]1:[139]LP[177][195](W$(WN))[167]520
500 X[178][181]([187](1)[172]12)[170]1:[139]L2(X)[178]0[167]500
510 [151]L2(X),[198]([202](W$(WN),LP,1))[171]64:[151]L2(X)[170]C,14:L2(X)[178]0:[137]490
520 X[178][181]([187](1)[172]12)[170]1:[139]L2(X)[178]0[167]520
530 OP[178]L2(X):[151]OP,42:[151]OP[170]C,7:TI$[178]"000000"
540 [129]X[178]1[164]60:[130]:[139]([194](56320)[175]16)[178]0[167]620
550 J[178]15[171]([194](56320)[175]15):[139]J[178]1[167]DI[178][171]40:[137]600
560 [139]J[178]2[167]DI[178]40:[137]600
570 [139]J[178]4[167]DI[178][171]1:[137]600
580 [139]J[178]8[167]DI[178]1:[137]600
590 [137]540
600 NP[178]OP[170]DI:[139][194](NP)[179][177]32[167]540
610 [151]NP[170]C,7:[151]OP,32:[151]NP,42:[151]OP[170]C,0:OP[178]NP:[137]540
620 [139][194](OP[171]40)[177]26[167]540
630 WP$[178]WP$[170][199](([194](OP[171]40))[170]64):[153]D$(1)[163]11)WP$:[151]OP[171]40,32
635 [129]BU[178]15[164]0[169][171]1:[151]54296,BU:[151]54296,0:[130]
640 [151]OP[171]40[170]C,0:[139][195](WP$)[179][177][195](W$(WN))[167]550
650 T[178][197](TI$):[151]646,10:[151]OP,32:[151]OP[170]C,0:[139]WP$[178]W$(WN)[167]680
660 [129]X[178]C[164]C[170]24:[151]X,0:[130]:[129]X[178]1[164]10:[151]C[170]24,15:[129]Q[178]1[164]3:[130]
670 [151]C[170]24,0:[129]Q[178]1[164]3:[130]:[130]:[137]690
680 [151]C[170]24,15:[151]C,10:[151]C[170]1,100:[151]C[170]5,9:[151]C[170]6,9:[151]C[170]4,17:[151]C[170]4,16
690 CU[178]CU[170]1:[153]D$(CU)[163]4)W$(WN);:SC[178]0:[139]WP$[178]W$(WN)[167]SC[178][195](WP$)
700 [153][163]19);:[139]SC[179]10[167][153]" ";
710 [153]SC;[163]26);:BO[178]0:[139]T[179]30[167]BO[178]30[171]T
720 [139]SC[178]0[167]BO[178]0
730 [139]BO[179]10[167][153]" ";
740 [153]BO;[163]33);:TS(WC)[178]SC[170]BO:[139]TS(WC)[179]10[167][153]" ";
750 [153]TS(WC):[151]646,2
760 [153]D$(16)[163]11)"PRESS FIRE BUTTON":[129]X[178]1[164]50:[130]
770 [153]D$(16)[163]11)"                 ":[129]X[178]1[164]30:[130]
780 [139]([194](56320)[175]16)[178]16[167]760
790 [153]D$(1)[163]11)"            ":W$(WN)[178]"":[137]420
800 [153]D$(23):[129]X[178]1[164]15:[153]:[130]:[151]646,8
810 [153]D$(12)[163]16)"GAME OVER":GT[178]0:[129]X[178]1[164]5:GT[178]GT[170]TS(X):[130]
820 [153][163]13)"GRAND TOTAL"GT:[139]GT[177]HS[167]HS[178]GT
830 [151]646,7:[153][163]13)"HIGH SCORE"HS:[151]646,12
840 [153][163]11)"PLAY AGAIN? YES/NO":OP[178]1807:[151]OP,30:[151]OP[170]C,7
850 [151]646,13:[153][163]10)"MOVE ";:[151]646,7:[153]"^";:[151]646,13
860 [153]" WITH JOYSTICK":[153][163]7)"PRESS FIRE BUTTON TO SELECT"
870 [139]([194](56320)[175]16)[178]0[167]930
880 J[178]15[171]([194](56320)[175]15):[139]J[178]4[167]DI[178][171]4:[137]910
890 [139]J[178]8[167]DI[178]4:[137]910
900 [137]870
910 NP[178]OP[170]DI:[139]NP[179]1807[176]NP[177]1811[167]870
920 [151]NP[170]C,7:[151]OP,32:[151]NP,30:[151]OP[170]C,0:OP[178]NP:[137]870
930 [139]OP[178]1807[167]160
940 [158]64759
950 [131]HAMBURGER,PIZZA,CABBAGE,CARROT,SPAGHETTI,STRAWBERRY,PINEAPPLE,RAISIN
960 [131]CHEESE,EGGPLANT,POTATO,BANANA,CUCUMBER,YOGURT,BOLOGNA,MARSHMALLOW,CHILI
970 [131]ONION,SQUASH,RHUBARB,GUITAR,BANJO,VIOLIN,DRUM,SAXOPHONE,TRUMPET
980 [131]CLARINET,PIANO,ACCORDION,HARMONICA,HARP,MANDOLIN,FLUTE,XYLOPHONE,ORGAN
990 [131]CELLO,TUBA,TROMBONE,CYMBAL,TAMBOURINE,SHOULDER,ANKLE,HEART,STOMACH
1000 [131]KIDNEY,CORNEA,LIVER,SPLEEN,BRAIN,ELBOW,FINGER,TOOTH,AORTA,KNUCKLE
1010 [131]WRIST,LUNG,INTESTINE,FOOT,NECK,TONGUE,ORCHID,PETUNIA,ZINNIA,MARIGOLD
1020 [131]ASTER,ROSE,PEONY,TULIP,CROCUS,AMARYLLIS,HYACINTH,IRIS,PANSY,GLOXINIA
1030 [131]BEGONIA,SNAPDRAGON,GERANIUM,DAISY,VIOLET,LILY,STEREO,CARPET
1040 [131]SILVERWARE,TELEPHONE,TELEVISION,SHELF,TOASTER,CURTAIN,CLOCK,CABINET
1050 [131]CHAIR,STOVE,BLANKET,PILLOW,TABLE,LAMP,CALENDAR,CLOTHING,THERMOSTAT
1060 [131]BROOM,TORNADO,LIGHTNING,THUNDER,SNOW,SLEET,RAINBOW,HURRICANE,HUMIDITY
1070 [131]TEMPERATURE,BAROMETER,FORECAST,CLOUD,FLOOD,HAIL,FRONT,DROUGHT,BLIZZARD
1080 [131]WIND,WARNING,FROST,ATTORNEY,SURGEON,BANKER,ARTIST,WRITER,CARPENTER
1090 [131]ENGINEER,REPORTER,ARCHITECT,LIBRARIAN,NURSE,CHEF,POLITICIAN,TEACHER
1100 [131]PLUMBER,JANITOR,FARMER,CLERK,ATHLETE,ELECTRICIAN,TURTLE,COUGAR
1110 [131]RATTLESNAKE,SALMON,OSTRICH,PEACOCK,ZEBRA,SKUNK,BUFFALO,KANGAROO,LIZARD
1120 [131]HUMMINGBIRD,CHIMPANZEE,ANTELOPE,SHEEP,DOLPHIN,SQUIRREL,RACCOON,GOPHER
1130 [131]WOODPECKER,1197,1201,1205,1209,1357,1361,1365,1369,1517,1521,1525,1529
1140 [131]22,96,44,193,89,131,25,30,50,60,100,121,28,49,56,99,112,199,0,0