1 POKE45,052:POKE46,66:CLR 3 POKE53281,0:POKE53280,14:PRINT"[147][155]"CHR$(14):GOSUB2000:GOTO2500 4 FORQ=1TO500:NEXT:RETURN 5 PRINT"[201] CAN'T DO THAT.":GOTO299 7 POKE53281,0:POKE53280,30:GOTO9 8 PRINT"[207][203] 9 [137]299 10 [137]50 15 VF[178]VF[170]1:Q9[178]1:J$[178]" ":LN[178]0:[153]"TOCMD";:TI$[178]"000000" 20 [161]B$:[139]Q9[167][139]TI$[177]"000150"[167][153]"(null)AKE ME UP WHEN YOU'RE READY.":Q9[178]0 21 [139]B$[178]""[167]20 30 [139]B$[178][199](20)[167][139]LN[167]LN[178]LN[171]1:[153]"CMDTO CMDCMD";:J$[178][200](J$,LN[170]1) 35 [139]B$[178][199](13)[176]LN[177]99[167]J$[178][202](J$,2):[153]" ":[142] 37 [139]LN[178]0[167][139]B$[178]" "[167]45 38 [139]B$[179]"0"[176]B$[177]"Z"[167][139]B$[179][177]" "[167]20 40 J$[178]J$[170]B$:LN[178]LN[170]1:[153]B$"TOCMD"; 45 [137]20 50 [139]L(18)[179][177]201[167][139]L(18)[179][177]H[167]100 52 [139]GC[178]0[175]L[179][177]3[167]100 54 GC[178]GC[170]1 58 [139]GC[179]9[167][139]L[179][177]4[167]65 60 [153]"CHR$IANT CAUGHT ME AND TOOK HIS HEN BACK.":L[178]3:L(18)[178]7:GC[178]0:[137]9 65 [139]GC[177]5[167][153]"CHR$IANT IS AT THE BOTTOM OF THE BEANSTALK!":[137]100 70 [139]GC[177]2[167][153]"CHR$IANT IS COMING DOWN THE BEANSTALK AFTER ME!" 100 R$[178]"(null)OOK":GF[178]L:[153]"(null)HAT SHOULD RIGHT$ DO?" 101 [141]15:[139][200](J$,2)[179][177]"IN"[167][151]53281,0:[151]53280,30:[153]"LIST"; 102 Q8[178][171]6[172](VF[177]NP):L[178]Q8[171](Q8[178]0)[172]GF:[139]J$[179][177]""[167]R$[178]J$:[137]3500 104 V$[178][200](R$,2) 105 V$[178][199]([198]([200](V$,1))[176]128)[170][199]([198]([201](V$,1))[175]127) 110 [139][195](R$)[167][139][201](R$,1)[178]" "[167]R$[178][200](R$,[195](R$)[171]1):[137]110 115 [143] 118 MS$[178]"":N$[178]"":R$[178]R$[170]" ":V[178]H:[129]Q[178]1[164]NV:[139]V$[178]V2$(Q)[167]V[178]Q:Q[178]H 120 [130]:[129]Q[178][195](R$)[171]2[164]1[169][171]1 125 [139][202](R$,Q,1)[179][177]" "[167]130 128 MS$[178][202](R$,Q[170]1):N$[178][200](MS$,2):Q[178]0:Q9[178][195](MS$)[171]2:MS$[178][202](MS$,1,Q9) 130 [130]:[139][194](SH[170]2)[167]L[178]GF 131 [139]V[178]H[167][153]"LOAD"R$:[137]170 132 [139][195](N$)[167]N$[178][199]([198]([200](N$,1))[176]128)[170][199]([198]([201](N$,1))[175]127) 135 [139]V$[178]"CHR$O"[167]200 140 N[178]0:[129]Q[178]1[164]NI 142 [139]N$[178]N2$(Q)[167]N[178]Q:[141]3000:N[178]0:[139]J[167]N[178]Q:Q[178]H 155 [130]:[153]"LOAD"V$(V)" "N$(N);:[139]LX[178]0[167][139]N[178]0[167][153]MS$; 158 [141]3000:[153]:[153]:[139]V[178]0[167]170 160 [145]V[137]300,200,400,500,600,700,900,800,1001,1100,1200,1300,1400,1500,1600 165 [145]V[171]15[137]1700,1800,1900,1900,1900,400,2300,2400,1900,2500 170 [153]"RIGHT$ DON'T UNDERSTAND.":[137]10 200 N[178]0:T$[178]E$(L):[129]Q[178]1[164]NP:[139]N$[179][177]P2$(Q)[167]227:[143]"CHR$(null)" 210 [129]K[178]1[164][195](T$)[169]2:[139]Q[178][197]([202](T$,K,2))[167]N[178]Q:Q[178]H:K[178]H 225 [130] 227 [130]:[153]"LOAD"V$(V)" "P$(N);:[139]N[178]0[167][153]MS$; 228 [139]N[178]15[176]N[178]16[167][153]"CHR$O "P$(N)" "; 229 [153]:[153] 230 [139]N[178]0[167][139]N$[178][200](P$(L),2)[167][153]"RIGHT$'M ALREADY AT "P$(L)".":[137]9 231 [139]N[178]0[167][153]"RIGHT$ CAN'T GO THERE!":[137]9 235 [139]N[178]11[167][153]"CHR$OING TO THE (null)(null)ATN(null) WOULD BE HAZARDOUS TO MY HEALTH.":[137]9 240 [139]N[178]10[167]6000 245 [139]L[178]3[175]N[178]15[167]N[178]4 250 [139]L[178]4[175]N[178]16[167]N[178]3 255 [139]L[178]4[175]N[178]15[167]N[178]14 260 [139]L[178]14[175]N[178]16[167]N[178]4 290 L[178]N 299 N[178]0:N$[178]"" 300 X[178]L:[139]N[178]0[167]317:[143] "(null)(null)(null)(null)" 302 X[178]N[170]200:[139]L(N)[177]0[167][139]L(N)[171]H[167][153]"RIGHT$ DON'T HAVE "N$(N):[137]9 310 [137]320 317 [139]N$[179][177]""[167]N$[178]"":[153]"RIGHT$ CAN'T FIND "MS$:[137]9 318 [153]"RIGHT$ AM AT "P$(L):[139]L[178]6[167]320 319 [153][163]8)[200]("TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(",[195](P$(L))) 320 J[178]1:[153]"RIGHT$ SEE:"; 321 [139]N[178]8[167][139]L(9)[178]0[167]L(9)[178]208 322 [129]Q[178]1[164]NI:K[178]L(Q) 323 [139][182](K)[171]X[167]326 324 [153][163]EL)N$(Q):J[178]0 325 [139]X[177]200[167][139]L(X[171]200)[178]H[167][139]L(Q)[177]0[167][139]Q[179][177]18[167]L(Q)[178]H 326 [130] 330 [139]J[172]N[167][153][163]EL)"(null)OTHING SPECIAL." 335 [139]N[167]10 336 [139]J[167][153][163]EL)"(null)OTHING SPECIAL." 339 [153]:[153]"RIGHT$ CAN GO:"; 345 [129]Q[178]1[164][195](E$(L))[169]2:J[178][197]([202](E$(L),Q,2)) 350 [153][163]EL)P$(J):[130] 360 [139]L(18)[179][177]H[176]L[179][177]6[167]10 365 [153]"(null)OOPSSS!!!":[153]"LEFT$EN SQUAWKED, GIANT HEARD HER, AND" 370 [153]"HE SWATTED ME BACK TO EARTH!":L(18)[178]7:L[178]3 375 [129]Q[178]1[164]2500:[130]:AT[178]1:[137]9 400 [143] GET 403 [139]L(N)[178]H[167][153]"RIGHT$ ALREADY HAVE "N$(N)"!":[137]1000 408 [139]J[175]L(N)[177]0[167]450 414 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]299 416 [139]N[178]20[176]N[178]21[167][153]"(null)HAT AM RIGHT$ GOING TO DO WITH "N$(N)"?":[137]9 418 [139]N[178]15[167][153]"(null)OU MUST BE JOKING! (null)HIS TURKEY WEIGHS OVER A TON!":[137]9 435 [153]"RIGHT$ CAN'T GET "N$(N);:[139]N[178]0[167][153]MS$; 436 [153]".":[153] 445 [137]9 450 [139]GP[178]0[167][139]N[178]8[167][153]"(null)HAT HAVE YOU GOT TO TRADE FOR IT?":[137]470 455 [139]N[178]1[175]L(2)[178]0[167][153]"ATNHA! ATN TRAPDOOR.":L(2)[178][171]2 460 L(N)[178]H:[137]9 470 [141]15:[139][200](J$,2)[179][177]"EG"[167][153]"RIGHT$ CAN'T TRADE RIFLE FOR THAT.":[137]9 472 [139][200](J$,2)[179][177]"EG"[167][153]"RIGHT$ CAN'T TRADE RIFLE FOR THAT.":[137]9 475 [139]L(17)[179][177]H[167][153]"RIGHT$ DON'T HAVE GOLD EGG.":[137]9 480 [153]"RIGHT$ TRADED THE GOLD EGG FOR THE RIFLE.":GP[178]1:L(17)[178]18 490 L(N)[178]H:[137]9 500 [143] PUT 505 [139]L(N)[178]H[167]510 506 [153]"RIGHT$ DON'T HAVE "N$(N);:[139]N[178]0[167][153]MS$; 507 [153]".":[137]1000 510 [153]"(null)HERE (ONE WORD PLEASE)?":[141]15:J$[178][200](J$,2) 512 [139]N[178]18[175]J$[178]"RU"[167]2435:USE COVER ROUTINE 515 [139]L[179][177]2[167][139]L[179][177]13[167][153]"(null)HAT WON'T DO ANYTHING.":[137]9 517 [139]L[178]13[167]530 520 [139]N[178]10[167][139]J$[178]"TR"[176]J$[178]"KE"[167]L(N)[178]203:[137]592 525 [139]N[178]16[167][139]J$[178]"TR"[176]J$[178]"KE"[167]591 529 [153]"(null)HAT WON'T DO ANYTHING.":[137]9 530 [139]N[178]16[167][139]J$[178]"DO"[176]J$[178]"KE"[167]593 590 [153]"(null)HAT WON'T DO ANYTHING.":[137]9 591 [153]"(null)ASSKEY DOESN'T FIT THIS KEYHOLE.":[137]9 592 [153]"CHR$UNPOWDER IS IN KEYHOLE.":[137]9 593 E$(13)[178]"100717":N$(22)[178]"STR$(null)(null)(null) TO HENHOUSE- OPENED":D1[178]1:[137]9 600 [143] KILL 605 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 610 [139]N[178]18[167][153]"ATNRE YOU KIDDING, THIS HEN IS WORTH A SHEIK'S RANSOM!":[137]9 620 [139]N[179][177]15[167][153]"(null)HAT WON'T HELP.":[137]9 630 [139]L(8)[179][177]H[167][153]"RIGHT$'M ONLY ONE PERSON, NOT AN ARMY!":[137]9 640 [153]"RIGHT$ WOULD NEED A CANNON FOR THAT!":[137]9 700 [143] SHOOT 705 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 707 [139]L(8)[179][177]H[167][153]"RIGHT$ DON'T HAVE ANYTHING TO SHOOT WITH.":[137]9 710 [139]N[178]18[167][153]"ATNRE YOU KIDDING, THIS HEN IS WORTH A SHEIK'S RANSOM!":[137]9 712 [139]N[178]2[176]N[178]3[176]N[178]10[167]750 720 [139]N[179][177]15[167][153]"(null)HAT WON'T HELP.":[137]9 740 [153]"RIGHT$ NEED A CANON!":[137]9 750 [139]SK[179].[167][153]"(null)RAPDOOR ALREADY BLOWN OPEN.":[137]9 755 SK[178]1:[139]L(10)[179][177]203[167]770 760 [153]"(null)ATN-PEEK(null)(null)(null)":[153]"(null)HAT BLEW THE LOCK OPEN!":SK[178][171]1:E$(2)[178]"0301":[137]9 770 [153]"(null)IFLE IS NOT POWERFUL ENOUGH TO BLOW OPEN THE TRAPDOOR.":[137]9 800 [143] CHOP 801 [139]J[178]0[175]N$[179][177]"PEEKE"[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 805 [153]"(null)ITH WHAT?":[141]15:[139][200](J$,2)[179][177]"AX"[167][153]"(null)HAT WON'T WORK.":[137]9 810 [139]L(4)[179][177]H[167][153]"RIGHT$ DON'T HAVE THE AX.":[137]9 812 [139]N[179][177]13[167]840 815 [139]TM[167][153]"(null)NE TREE OVER THE MOAT IS ENOUGH.":[137]9 820 TM[178]1:[153]"(null)RIGHT$(null) - PEEKVAL(null)":E$(5)[178]"141112":[137]9 840 [139]N$[179][177]"PEEKE"[167][153]"(null)HAT DIDN'T DO ANYTHING.":[137]9 845 [139]L[179][177]3[167][153]"RIGHT$ CAN'T CHOP THE BEANSTALK FROM HERE!":[137]9 850 [139]L(18)[179][177]H[175]L(18)[179][177]201[167][153]"(null)HE IDEA IS TO GET THE HEN!!!":[137]9 855 [153]"***LEN(null)ATN(null)LEFT$***":[129]Q[178]1[164]3500:[130]:[153]"(null)HE EVIL GIANT WAS KILLED IN THE FALL. 860 PRINT"[206]O LONGER WILL HE TERRORIZE YOUR VILLAGE." 865 PRINT"[217]OUR HEN WILL MAKE YOU VERY RICH!" 868 FORQ=1TO2000:NEXT:END 900 REM UNLOCK 910 IFL=2THEN990 915 IFL<>13THENPRINT"[206]OTHING HERE TO UNLOCK.":GOTO9 920 IFN<>22ANDN<>23THENPRINT"[201] CAN'T UNLOCK THAT.":GOTO9 925 IFL(16)<>HTHENPRINT"[201] NEED A KEY.":GOTO9 930 E$(13)="101707":N$(22)="[196][207][207][210] TO HENHOUSE- OPEN":D1=1:GOTO9 990 IFN<>2ANDN<>3THENPRINT"[201] CAN'T UNLOCK THAT.":GOTO9 991 IFL(16)=HTHENPRINT"[208]ASSKEY DOESN'T FIT THIS LOCK.":GOTO9 992 PRINT"[201] CAN'T UNLOCK THE TRAPDOOR.":GOTO9 995 GOTO9 1000 N$="":REM INVENTORY 1001 REM DO NOT MOVE THIS LINE!!! 1055 J=1:PRINT"[201] HAVE:":PRINT:FORQ=1TONI:IFL(Q)=HTHENPRINTN$(Q):J=0 1060 NEXT:IFJTHENPRINT"[206]OTHING. 1099 [137]10 1100 [143] SWIM 1110 [139]N[179][177]12[167][153]"RIGHT$ CAN'T SWIM THERE.":[137]9 1120 [153]"(null)WIMMING IN THE MOAT WOULD BE HAZARDOUS TO MY HEALTH.":[137]9 1200 [143] HIT 1210 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 1220 [139]N[178]15[167][153]"RIGHT$'M NOT GOING TO HIT THIS BOZO!":[137]9 1250 [153]"(null)HAT HAD NO EFFECT.":[137]9 1300 [143] OPEN 1305 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 1310 [139]N[178]2[167]1350 1315 [139]N[179][177]22[167][153]"RIGHT$ CAN'T OPEN THAT.":[137]9 1320 [139]D1[167][153]"STR$OOR TO HENHOUSE IS ALREADY OPENED.":[137]9 1325 [153]"RIGHT$ CAN'T, THE DOOR IS LOCKED.":[137]9 1350 [139]SK[179]0[167][153]"(null)RAPDOOR IS ALREADY OPENED.":[137]9 1360 [153]"RIGHT$ CAN'T, THE TRAPDOOR IS LOCKED.":[137]9 1390 [137]5 1400 [143] DROP 1410 [139]L(N)[171]H[167][153]"RIGHT$ DON'T HAVE "N$(N):[137]9 1420 [139]N[178]18[176]N[178]1[167][153]"(null)IGHT NEED "N$(N)" LATER.":[137]9 1499 L(N)[178]L:[137]8 1500 [143] WATER 1505 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 1510 [139]N[178]7[175]L(7)[179][177][171]3[167][153]"RIGHT$ CAN'T WATER THE SEEDS YET.":[137]9 1520 [139]N[179][177]7[167][153]"(null)OTHING HERE TO WATER.":[137]9 1530 [139]L(6)[178]0[167][153]"(null)O MORE WATER IN PITCHER.":[137]9 1540 [139]L(5)[179][177]H[167][153]"RIGHT$ DON'T HAVE ANYTHING TO WATER WITH.":[137]9 1550 [139]L[179][177]3[167][153]"(null)OTHING HERE TO WATER.":[137]9 1555 [153]"LOAD" 1560 X[178]15:L(7)[178]0:E$(3)[178]"02080415":L(6)[178]0:BS[178]1 1561 [153][163]X)"(null)(null)(null)! ATN":[141]4 1562 [153][163]X)" GIANT":[141]4 1563 [153][163]X)"BEAN-":[141]4 1564 [153][163]X)" STALK":[141]4 1565 [153][163]X)"GREW UP":[141]4 1566 [153][163]X)" INTO":[141]4 1567 [153][163]X)"THE SKY":[141]4 1568 [153][163]X)" AS":[141]4 1569 [153][163]X)" SOON":[141]4 1570 [153][163]X)" AS":[141]4 1571 [153][163]X)" RIGHT$":[141]4 1572 [153][163]X)"STARTED":[141]4 1573 [153][163]X)" TO":[141]4 1574 [153][163]X)" WATER":[141]4 1575 [153][163]X)"SEEDS.":[141]4 1576 [153][163]X)"(null)HE":[141]4 1577 [153][163]X)"BEAN-":[141]4 1578 [153][163]X)" STALK":[141]4 1579 [153][163]X)"REACHES":[141]4 1580 [153][163]X)" PAST":[141]4 1581 [153][163]X)" THE":[141]4 1582 [153][163]X)"CLOUDS":[141]4 1583 [153][163]X)" TO ":[141]4 1584 [153][163]X)" THE":[141]4 1585 [153][163]X)" HOME":[141]4 1586 [153][163]X)" OF":[141]4 1587 [153][163]X)"THE":[141]4 1588 [153][163]X)"EVIL":[141]4 1589 [153][163]X)" GIANT.":[141]4 1590 [153][163]X)"(null)HERE YOU":[141]4 1591 [153][163]X)"WILL FIND":[141]4 1592 [153][163]X)"THE HEN":[141]4 1593 [153][163]X)"THAT LAYS":[141]4 1594 [153][163]X)"GOLD EGGS.":[141]4 1599 [137]9 1600 [143] PLANT 1605 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 1610 [139]L[179][177]3[167][153]"RIGHT$ CAN'T PLANT ANYTHING HERE.":[137]9 1620 [139]N[179][177]7[167][153]"RIGHT$ CAN'T PLANT "N$(N)".":[137]9 1630 [139]L(N)[178][171]3[167][153]"(null)HE SEEDS ARE ALREADY PLANTED.":[137]9 1640 [153]"(null)(null), SEEDS ARE PLANTED.":L(7)[178][171]3:N$(7)[178]"(null)VALVALSTR$(null)- PLANTED":[137]9 1700 [143] CLIMB 1701 [139]N$[178]"STR$O"[167]N[178]16 1702 [139]N$[178]"(null)P"[167]N[178]15 1703 [139]L[178]3[175]N[178]15[167]L[178]4:[137]9 1704 [139]L[178]4[175]N[178]16[167]L[178]3:[137]9 1705 [139]L[178]4[175]N[178]15[167]L[178]14:[137]9 1706 [139]L[178]14[175]N[178]16[167]L[178]4:[137]9 1710 [139]N$[179][177]"PEEKE"[167][153]"RIGHT$ CAN'T CLIMB "MS$".":[137]9 1720 [139]BS[178]0[167][153]"(null)HERE'S NO BEANSTALK!":[137]9 1730 [139]L[178]3[167]L[178]4:[137]9 1732 [139]L[178]5[167]L[178]14:[137]9 1734 [139]L[178]14[167]L[178]4:[137]9 1736 [139]L[178]4[167]L[178]14:[137]9 1740 [153]"RIGHT$ CAN'T CLIMB THE BEANSTALK FROM HERE.":[137]9 1799 [153]"(null)HAT DIDN'T WORK.":[137]9 1800 [143] CROSS 1810 [139]N[179][177]12[175]N[179][177]27[167][153]"RIGHT$ CAN'T CROSS THAT.":[137]9 1820 [139]TM[178]0[167][153]"(null)OT A GOOD IDEA TO CROSS THE MOAT WITH":[137]1890 1830 [153]"RIGHT$ CROSSED OVER ON THE TREE." 1840 [139]L[178]6[167]L[178]5:[137]9 1850 [139]L[178]5[167]L[178]6:[137]9 1890 [153]"ALL OF THOSE HUNGRY ALLIGATORS!":[137]9 1900 [143] BUY/PURCHASE/SWAP 1910 [137]400:USE [161] ROUTINE 2000 [134]P$(50),E$(50),N$(100),L(100),V$(50),P(7):NP[178]17:NI[178]30:NV[178]25:EL[178]11:GE[178]458 2001 [134]N2$(100),V2$(50),P2$(50),M$(45) 2003 T[178]9:[153]:H[178]199:HW[178]198:L[178]2 2004 [141]4000 2020 I$[178]" ":T1$[178]"  ":[153] 2030 [129]A[178]1[164]NP:[135]A,P$(A),P2$(A),E$(A):[130]:[135]A 2060 [129]A[178]1[164]NI:[135]A,N$(A),N2$(A),L(A):[130]:[135]A 2065 [153]:[153] 2070 [129]Q[178]1[164]NV:[135]V$(Q):V2$(Q)[178][200](V$(Q),2):[130] 2080 [129]Q[178]1[164]37:[135]M$(Q):[130] 2100 GE[178]H[170]GE:YU$[178]" YOU" 2110 [139][194](SH[170]2)[171]H[167][151]SH[170]2,[171]H[172]([194](GE)[179][177]0) 2120 [141]4500 2199 [153]"LOAD":[142] 2300 [143] HELP 2305 [139]L[178]2[175]SK[167][153]"RIGHT$ NEED AN EXPLOSIVE TO HELP ME SHOOT OPEN THE LOCK.":[137]9 2310 [139]L[178]5[175]TM[178]0[167][153]"RIGHT$ NEED SOMETHING OVER THE MOAT.":[137]9 2315 [139]L[178]3[175]AT[167]AT[178]0:[137]2391 2390 [153]"RIGHT$ CAN'T THINK OF ANYTHING NOW.":[137]9 2391 [153]"RIGHT$ NEED TO USE SOMETHING TO KEEP THAT HEN QUIET!":[137]9 2400 [143] COVER 2405 [139]J[178]0[167][153]"RIGHT$ DON'T SEE IT HERE.":[137]9 2420 [153]"(null)ITH WHAT (ONE WORD PLEASE)?":[141]15 2430 [139]N[179][177]18[176][200](J$,2)[179][177]"RU"[167][153]"(null)HAT WON'T DO ANYTHING.":[137]9 2435 [139]L(1)[179][177]H[167][153]"RIGHT$ DON'T HAVE THE RUG.":[137]9 2440 [153]"RIGHT$ COVERED THE HEN WITH THE RUG.":L(18)[178]201:[137]9 2500 [143] VERBS 2510 [153]"(null)OU MAY USE THE FOLLOWING VERBS: 2520 PRINT"[200]ELP [214]ERBS [204]OOK [199]O [199]ET 2530 [153]"(null)UT (null)ILL (null)HOOT (null)NLOCK LENHOP 2540 PRINT"[211]WIM [200]IT [207]PEN [196]ROP [215]ATER 2550 [153]"(null)LANT LENLIMB LENROSS PEEKUY (null)WAP 2560 PRINT"[201]NVENTORY [212]RADE [208]URCHASE 2570 [153]"(null)AKE LENOVER 2590 IFU%THEN10 2592 U%=1:GOTO9 3000 J=0:K=N:FORQE=1TO7:K=ABS(L(K)):IFK>200THENK=K-200:NEXT:RETURN 3005 IFK=LORK=HTHENJ=1 3010 QE=H:NEXT:RETURN 3410 L(N)=H:GOTO8 3500 Y$=" "+J$+" ":FORQ=1TOLEN(Y$) 3510 IFMID$(Y$,Q,4)=YU$THENPRINT"[147]"Y$"TOO!":J=Q:Q=9E9:NEXT:L=GF:GOTO3550 3520 NEXT:GOTO104 3550 IFMID$(Y$,J,6)=" YOUR "THENPRINT"[147]"LEFT$(Y$,J+5)"OWN "MID$(Y$,J+6)"[157]!":GOTO10 3560 L=GF:PRINT"[147]"Y$"TOO!":GOTO10 4000 PRINT"[147] [202]ACK AND THE [194]EANSTALK[145]TM" 4005 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] 4010 [153]" LENOPYRIGHT (C) 1983 BY: 4020 PRINT" [194]RUCE [210]OBINSON 4050 [153]" ATNLL RIGHTS RESERVED. 4060 PRINT" [196]ISTRIBUTED BY: 4070 [153]" (null)ICTORY (null)OFTWARE LENORPORATION 4080 PRINT" [208]AOLI, [208][193] 4100 [153]" CHR$ET THE HEN THAT LAYS GOLD EGGS AND 4110 PRINT" DEFEAT THE EVIL GIANT. 4120 [142] 4500 [153]" (HIT ANY KEY) 4510 POKE198,0:WAIT198,1:PRINT"[147]":POKE198,0 4999 RETURN 6000 PRINT"[147][198]IND YOUR WAY THROUGH THE UNDERGROUND 6010 O[178][168].:A[178]2:B[178]3:C[178]6:D[178]7:E[178]4:F[178]9 6020 [153]"(null)ATNPEEK(null)(null)RIGHT$(null)(null)LEFT$. (null)HE EXIT FOR THE LENATN(null)(null)(null)VAL IS 6030 PRINT"LOCATED ON THE [206][207][210][212][200][215][197][211][212] END OF THE 6040 [153]"LABYRINTH, AND THE EXIT FOR THE LEFT$VAL(null) 6050 PRINT"[200][207][213][211][197] IS LOCATED ON THE [211][207][213][212][200][197][193][211][212] END 6060 [153]"OF THE LABYRINTH. 6070 PRINT"[208]RESS [206],[197],[215],[211] TO MOVE. [212]HESE ARE YOUR 6080 [153]"ONLY CONTROLS UNTIL YOU GET OUT! 6090 A$="" 6095 B$="" 6100 PRINTA$:PRINTB$"[157][157][215][146][157]E[157]S[157]T[211][146]OUTH"; 6110 PRINT"[145][145]T[145][157]S[145][157]A[145][157][197][146][145][145][145][157][157][157][157][157][157][157][157][206][146]ORTH" 6120 PRINT"[158]" 6200 IFL=6THENX=4:Y=3:GOTO6300:REMGOTO6700 6210 X=22:Y=35:REMGOTO6900 6300 YP=Y+A:YM=Y-A 6310 PRINTA$:FORK=YMTOYP:PRINTB$MID$(M$(K),X-B,D):NEXT 6500 POKE198,0:WAIT198,1:GETD$:PRINTA$ 6505 IFD$="N"THEN6600 6510 IFD$="E"THEN6700 6515 IFD$="S"THEN6800 6520 IFD$="W"THEN6900 6530 GOTO6500 6600 IFMID$(M$(Y-A),X,1)<>" "THEN6500:MOVE NORTH 6606 XM=X-B 6610 FORJ=YTOY-ESTEPO:PRINTA$:FORK=J-ATOJ+A:PRINTB$MID$(M$(K),XM,D):NEXT:NEXT 6630 Y=Y-E:GOTO7000 6700 IFMID$(M$(Y),X+B,1)<>" "THEN6500:MOVE WEST 6706 YP=Y+A:YM=Y-A 6710 FORJ=X-BTOX+B:PRINTA$:FORK=YMTOYP:PRINTB$MID$(M$(K),J,D):NEXT:NEXT 6730 X=X+C:GOTO7000 6800 IFMID$(M$(Y+A),X,1)<>" "THEN6500:REM MOVE SOUTH 6806 XM=X-B 6810 FORJ=Y-ATOY+A:PRINTA$:FORK=JTOJ+E:PRINTB$MID$(M$(K),XM,D):NEXT:NEXT 6830 Y=Y+E:GOTO7000 6900 IFMID$(M$(Y),X-B,1)<>" "THEN6500:REM MOVE WEST 6906 YP=Y+A:YM=Y-A 6910 FORJ=X-BTOX-FSTEPO:PRINTA$:FORK=YMTOYP:PRINTB$MID$(M$(K),J,D):NEXT:NEXT 6930 X=X-C 7000 IFX=4ANDY=3THENL=6:PRINT"[155]":GOTO9 7010 IFX=22ANDY=35THENL=13:PRINT"[155]":GOTO9 7020 GOTO6500 10000 REM STORED AS FOLLOWS: RM #,"RM NAME","1ST 2 LETTERS","EXITS" 10001 DATA1,"[196]AMP [194][193][211][197][205][197][206][212]","[194]A","02" 10002 DATA2,"[200][207][213][211][197] WITH THATCHED ROOF","[200]O","03" 10003 DATA3,"[204]ARGE [217][193][210][196]","[217]A","0208" 10004 DATA4,"[199]IANT [194][197][193][206][211][212][193][204][203]","[194]E","03141516" 10005 DATA5,"[197][196][199][197] OF [205]OAT","[197]D","1411" 10006 DATA6,"[207]MINOUS [195][193][211][212][204][197]","[195]A","111012" 10007 DATA7,"[200][197][206] [200]OUSE","[200]E","13" 10008 DATA8,"[212][207][215][206]","[212]O","0309" 10009 DATA9,"[199][213][206][211][205][201][212][200] [211]HOP","[199]U","08" 10010 DATA10,"[213]NDERGROUND [204][193][194][217][210][201][206][212][200]","[204]A","0613" 10011 DATA11,"[205][207][193][212]","[205]O","0506" 10012 DATA12,"[212][210][197][197] OVER [205]OAT","[212]R","1406" 10013 DATA13,"[207][213][212][211][201][196][197] OF HEN HOUSE","[207]U","1017" 10014 DATA14,"[212][207][208] OF [194]EANSTALK","[212]O","040516" 10015 DATA15,"[213][208]","[213]P","" 10016 DATA16,"[196][207][215][206]","[196]O","" 10017 DATA17,"[211]ECRET [208][193][211][211][193][199][197][215][193][217] TO [195]ASTLE","[208]A","06" 10199 DATA0:REM INDICATES END OF ROOM DATA 12000 REM STORED AS: ITEM#, ITEM NAME, 1ST 2 LTRS,LOCATION (<0 IF CAN'T GET IT!) 12001 DATA1,"[215]OOL [210][213][199]","[210]U",2 12002 DATA2,"[211]TURDY [212][210][193][208][196][207][207][210]","[212]R",0 12003 DATA3,"[203][197][217][200][207][204][197] IN [212]RAPDOOR","[203]E",-202 12004 DATA4,"[193][216]","[193]X",1 12005 DATA5,"[208]EWTER [208][201][212][195][200][197][210]","[208]I",2 12006 DATA6,"[211]PRING [215][193][212][197][210]","[215]A",-205 12007 DATA7,"[211]EEDS","[211]E",8 12008 DATA8,"[210]IFLE","[210]I",9 12009 DATA9,"[194]ULLETS","[194]U",0 12010 DATA10,"[199]UNPOWDER","[199]U",09 12011 DATA11,"[204]ARGE [199][210][197][197][206] [204]EAVES","[199]R",-4 12012 DATA12,"[205]OAT","[205]O",-5 12013 DATA13,"[212]ALL [212][210][197][197][211]","[212]R",-226 12014 DATA14,"[200]UNGRY [193][204][204][201][199][193][212][207][210][211]","[193]L",-212 12015 DATA15,"[211]LEEPING [199][201][193][206][212]","[199]I",-6 12016 DATA16,"[208]ASSKEY","[208]A",215 65287 (null)(null)(null)(null)(null)SGN(null)(null)D VALCHR$CHR$","VALG",22? 12018 [131]18,"(null)AGIC LEFT$VAL(null)","LEFT$E",7 12019 [131]1 [199]