ZXTape! 0Created with Ramsoft MakeTZX PIMANIAo=1:0:1:5::2,0;"""PIMANIA"" may not be reproduced,resold, hired, rented, loaned,","or copied in any part or whole,","without written consent from:","AUTOMATA CARTOGRAPHY LIMITED.",,,,,"A `100 reward will be paid to","any person supplying evidence","leading to the successful","prosecution of an offender","committing any above offence.",,,,,"AUTOMATA CARTOGRAPHY LIMITED","WILL NOT HESITATE TO PROSECUTE","any person or persons, company","or organisation committing any","of the above listed offences.":x=01999:x /:,,,,"The name ""PIMANIA"" along with","its program, concept & graphics,is the copyright and property ofAUTOMATA CARTOGRAPHY Ltd. 1982. Sole marketing and merchandisingrights are the property of:","AUTOMATA U.K. LIMITED.",,,"The competition is open to all","persons, except those involved","in the computer Software or","publication industries.",,,"The Judge's decision as to the","ultimate and outright winner of","""The Golden Sundial of Pi""","is FINAL. No correspondence willbe entered into concerning the","winner.":x=01999:x:1:  n$=" PIMANIA"n$="*PIMANIA" 23658j\,8:1:1::5;5,1;"Program **********************";5,15;n$;7,1;"PLEASE BE PATIENT WHILE I LOAD"," ALL OF THE GRAPHIC CHARACTERS.";19,0;" ":"" n$="*PIMANIA"9 :5;5,2;"WE ARE NOW READY TO CONTINUE";7,4;"THE QUEST FROM YOUR LAST";9 ,2;"KNOWN POSITION ";S$  n$=" PIMANIA"n$="*PIMANIA" H20,3;5;"Press any key to continue.":=""7 0:200 0 mS$=""::5;"BEFORE WE START THE QUEST","PLEASE TELL ME YOUR NAME.",S$:S$=""űS$>13 10 Xx=1o:q(x)=0:x:x=1192:q(x)=(*4)+1:x !o(o):x=1o:o(x)=q(x):x 0s(10 ):p$(2,2):gate=6 d0:0::" "," "," "," "," ",,,"  Automata UK Ltd. 1982" n6;8,0;"WELCOME SEEKER, YOU STAND BEFORETHE GATE OF . YOUR QUEST IS TOLOCATE THE GOLDEN SUNDIAL HIDDENIN TIME AND SPACE,BY THE CORRECTINTERPRETATION OF THE TRUTH THAT LIES WITHIN THIS PROGRAM.",,,"ON THE APPOINTED DAY, ONE AMONGYOU WILL BE REWARDED WITH THISCELEBRATED ORIGINAL TREASURE. ITIS CRAFTED FROM GOLD,DIAMOND ANDTHE RAREST OF THE EARTH'S RICHES" xP21,0;3;"Press any key to begin the Quest":=""120x 1:1:3::5;0;0,0;" _||/ \|| " 6:x=060<:10 +x,0:113q-x,127:x:x=0250:x:x=50-1:x,15;"":502:x,15;" ":x:1;15,19;"A KEY TURNS";16,20;"THE LOCK." #n$:n$167150 3180l :18,9 ;"Hello";19,8;"I'm a ";20,7;"Pi Man!":1.6L,25:99c:0::x=120:ٺ(*2)+6:21-x,5+x;g$(x):x:100d:1:x=0150:.03{u\,(*502):ں(*7):ٺ(*7):i=01:(*22),(*8)*4;"HaHa":i:x:0:2:7:0 x=7:1;7;5,x;" ";6,x;" CONGRATULATIONS ";x,x;" Seeker,your key ";8,x;" has turned this ";9 ,x;" lock! You have ";10 ,x;" passed through ";11 ,x;" 'The Gate of ' ";12 ,x;" TIME IS ON YOUR ";13 ,x;" SIDE! ";14,x;" ";15,x;" GOOD LUCK ";16,x;" " ,190:x=017:l,p:l,p:x E.4L,7,.4L,7,.8L,12 ,.4L,11 ,.4L,12 ,.8L,14,.4L,12 ,.4L,14,.4L,16,.4L,16,.4L,17,.4L,16,.8L,9 ,.4L,14,.4L,14,1.6L,12 ,1.6L,11 ,3.2L,12 2690 +gate*10 f=0 x=1o o(x)gate3106 f300, 2gate4,," Within easy reach you can see" <gate=5gate=6,," This is where you left...." /gate=7,," Here you have laid to rest" ,gate8,," Earlier you dumped....." " f=1 , " ";o$(x) 6x @ t=1 T 8204 ^,," You have:" h f=1 r x=1o |o(x)0410  ;" ";o$(x)  f=0 x f" nothing" " with you." D1;"IT'S UP TO YOU ";(s$);"!";0,k$:k$=""200 )y=0:z$=k$:,," Command {";k$;"}" ̺k$="YES"" YES WE HAVE NO BANANAS!":.6,7:.2~L,2:.2~L,4:.4L,2:.2~L,0:.2~L,-1:.8L,2:99c:200 k$="NO"" THERE'S NO BUSINESS"," LIKE SHOW-BUSINESS!":.4L,12 :.8L,17:.4L,5:.4L,5:.2~L,5:.8L,12 :.4L,5:.4L,5:99c:200 k$<4550& x=1̱k$-3 i$=k$(xx+3) l=1294 i$=q$(ll+3)490 l x  550& i$="WHER"i$="WHAT"i$="WHO "" That's the whole point of this"," quest, you silly little seeker":x=0491:.03{u\,-2:.03{u\,11 :.03{u\,24:x:200 i$="LOOK"gate11 " Wait until you can"," use a telescope!":x=025:.03{u\,15:.03{u\,26:.03{u\,37%:.03{u\,480:x:200 i$="LOOK"" You'll need to use a telescope"," to see anything from in here!!":x=025:.03{u\,15:.03{u\,26:.03{u\,37%:.03{u\,480:x:200 i$="STOP"2330 i$="HELP"" Sorry my friend, but you have"," to help yourself around here!":x=01:.3,7:.1}L,8:.3,9 :.1}L,8:.25~,9 :.1}L,8:1,9 :x:200 i$="QUIT",," What a vulgar Americanism!"," The correct word is 'STOP'":.8L,16:.8L,16:.8L,18:1.2,15:.4L,16:.8L,18: 200 &i$="EAT "" Unfortunately that's gone off!"," You'll have to remain hungry!!":.8L,12 :.4L,7:.4L,4:.2~L,0:1.6L,10 :.8L,9 :.4L,5:.4L,2:.2~L,-1:.4L,8:1.2,7:200 &p$(2)="00" 0w=12 : 2390V D vd=99c N,p$(2)"00"vd=p$(2)-20 Xau=(p$(1)) b!AU12 s(7)=0 lyȱk$650 vp$(w)="00"570: w p$(1)"00"730 x=(*5)  i=1o Cau=14o(i)=-1" WHAT DO YOU WANT TO USE?":720 @au=15o(i)=gate" WHAT DO YOU WANT TO TAKE?":720 Tau=16s(7)=0o(i)=-1" I CAN'T SEE THE PI MAN":720 Vau=16s(7)=1o(i)=-1" WHAT ARE YOU GIVING HIM?":720 `au=17VD22o(i)=-1" NOW WHAT ARE YOU"," TRYING TO GET RID OF?":720 i :au=14" USE WHAT? YOU'VE GOT NOTHING!":720 Fau=15" TAKE! TAKE WHAT!"," THERE'S NOTHING HERE!":720 Cau=17VD22" YOU HAVE NOTHING WITH YOU!":720 Kau=16s(7)=1" BUT YOU'VE NOTHING TO GIVE!":720 vau=16s(7)=0" GIVE WHAT?",," YOU'VE NOTHING WITH YOU "," AND I CAN'T SEE THE PI MAN!":720 +x=0" What are you talking about?" .x=1" I'm afraid that is irrelevant." .x=2" I can't make any sense of this" .x=3" Please will you rephrase that!" Px=4" Look, I've got my own pwoblems"," without this wubbish fwom you!" h.5,9 :.5,11 :.5,7:.5,-5:1.5@,2:200  z=1 t$=m$(gate)(zz+1) t$="00"810* t$p$(1)790 'gate=(m$(gate)(z+2z+3))  200  z=z+4  740 *t=0:zz=0 4 mc=0 Hmc=mc+1 Rt880p \ e$=c$(mc) f 1090B pmca1050 zzz320@ 2au12 " NO RIGHT OF WAY ";au:1020 #vd=22X=3:710 vd>ovd<1660 Vau=14o(vd)=-1" SORRY!",," YOU CAN'T USE ";o$(vd)," HERE!":1020 x=0202 gate=7o(vd)=7au=15VD=X" THIS IS THE FINAL RESTING"," PLACE OF ";o$(vd)," AND IT CANNOT BE MOVED!":i=099c:.006yD,20-(*30):i:200 x (au=17o(vd)=-11010 Hau=15o(vd)=-1" YOU ALREADY HAVE"," ";o$(vd):1020 Wau=15o(vd)-1" I CAN'T SEE ";o$(vd)," ANYWHERE NEAR HERE!":1020 ]au=14au=17o(vd)-1" YOU HAVEN'T GOT ";o$(vd)," WITH YOU!":1020 Hau=16s(7)=0" I CAN'T SEE THE PI MAN!":1020 Tau=16s(7)=1o(vd)=-1" I DON'T WANT ";o$(vd):1020 Zo(vd)0au=16s(7)=1" ONLY GIVE ME WHAT YOU HAVE!":1020 "" You can't do that round here!" #gate=13 s(7)=0 Fi=04:.3,13 :.3,9 :i:200 0a$(mc)(12)p$(1)840H $k$=a$(mc)(34) .#k$"00"k$p$(2)840H 8e$=a$(mc)(5) B e=1 e$(e)="."2130R gs=(e$(e))-97a n=(e$(e+1e+2)) 2080 +gs*10 mm840H  e=e+3  2000  mm=(n=gate): *mm=(o(n)=gate): 4mm=(o(n)<0): >#mm=(((*100d)+1)n): H mm=s(n): R zz=1 \ e=e+1 fe$(e)="."840H pgs=(e$(e))-97a z1e$(e+1)"."n=(e$(e+1e+2))  ee=0 2230+gs*10 eeee  e=e+3  2150f  s(1)<52235 B" You'll have to drop something if you want to take that too." =2233:l=017:p,j:p,j:l:ee=200: A.2~L,16,.1}L,19,.3,16,.2~L,16,.1}L,19,.3,16,.1}L,17,.1}L,19,.1}L,17,.3,14,.1}L,16,.1}L,19,.1}L,16,.3,12 ,.1}L,4,.4L,0,.1}L,4,.4L,0 0o(n)=-1:s(1)=s(1)+1: o(n)=-12245 ee=200: ,o(n)=gate:s(1)=s(1)-1: :3000 +n*10 : x=o(n) "gate12 o(n)=o(n+1) "gate=12 o(n)=o(n-1) gate12 o(n+1)=x gate=12 o(n-1)=x hh=n+1: s(n)=1: s(n)=0: -o(n)<0s(1)=s(1)-1 o(n)=(*4)+1   gate=n: ee=350^: ee=200: "Please enter a code number.",">0< to new the program.",">1< to continue the quest.",">2< to start this quest again.",">3< to save the program at your present position on cassette ";n$ $n$12330 . n$="0" 8n$="2"10 Bn$="3"4000 L 200 V w$(4) ` p$(w)="00" j 2620< tgap ~q=14 w$(q)=k$(y) 2570 gap2500 q 2570 gap2480 w$=" " q=1v w$=v$(q)(3)2550 q  p$(w)=v$(q)(2)  y=y+1  gap=(y>k$) gap (gap=(k$(y)=" ") 2 < y=y+1 F gap=(y>k$) Pgap Zk$(y)=" "2620< d n0:0: 6::X=30502:.01z# =,X:X:10 ,15;"":25:9 ,14;"";10 ,14;" ";11 ,14;" ":10 :8,13 ;"";9 ,14;" ";10 ,14;" ";11 ,14;" ";12 ,14;" ":10 :8,12 ;"";9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" ";12 ,13 ;" ":10 :7,11 ;"";8,12 ;" ";9 ,12 ;" ";10 ,12 ;" ";11 ,12 ;" ";12 ,12 ;" ";13 ,12 ;" ";14,12 ;" ":502:7:0::: x1::;6;0;"" 0;6;"":m=0491:m:0:: b2670n :4:" Impassable foothills bar your way. Return to where you came.": Z2670n :3:" What a run down ghetto!"," You've hit rock bottom!": X2670n :0:" Looks like the end of the line Was it really worth coming?": Z2670n :0:" This looks like a dead end."," Grab what you can, and RUN!": R2670 n :3:" 7 is a turning point,"," if 2 is not for you!": 2670n :0:2:7::,," You are cast into an Arena of Despair. A cage surrounds you. It is only unlocked 3 from 12. ": 2680x :3:2:7::,," This is the 'Cavern of Ivory'.",,," Underfoot is heaving ooze!"," Overhead is dripping slime!!"," There is an exit at 1.",,,"The Ultimate Gate of is above. It remains shut until enough clues have been sacrificed here.": o2680x :0:1:6::,," You drift along a choked canal Sluices lie ahead and behind.": p2680x :2:4:0::,," I SAY! I Say! i say! an Echo"," Chamber! I GO ON & On & on!!": o2680x :6:6:0::,," You crawl inside an oily drum"," Is there bright light ahead?": 2680x :5:7:1::,,12 ;"Welcome!"," This is the Observatory There is an entrance at 7 and an exit at 4": l2670n :4:7:0::,," At this neck of the woods"," trails point out 5 and 3.": 2670n :7:" You've fallen into a stinking waste disposal unit. You can clamber out by hitting bottom or by heading towards 9.": 2670n :0:0:7::,," Bad to worse!",," What a scab-infested odorous pit. Escape at 12, 4, 9 or 5.": 2670n :6:7:0::,," You can crawl along the rancid sewage pipe that veers off at 8, or carry on regardless.": "2670n :1:6::,,12 ;"WARNING!",,," This is a PRIVATE Cul-de-Sac.";12 ;"GET OUT!":i=09 :x=40(60<:.01z# =,x:x:i: ,s2670n :2:" You have wandered into a"," crummy joint, between the"," sewage works & a dead end.": 6m2670n :1:0:7::,," This is a parting of the ways."," Follow 3, 7, 8 or 11.": @M2670n :3:" This broken pathway twists at the 5 and 10.": J\2670n :2:" What a down at heel alley!"," Are you Passing through?": TQ2670n :5:" 1 can proceed, or at the base of your face!": ^&0:2680x :3180l :1.6L,12 :7:2:5::2,1;"At last, by accident or design"," you have returned through the",,," ULTIMATE GATE OF ",,," Remember where you have been &"," what you have seen and heard.."," Remember too those gifts that"," unlocked the Gate. Distil this"," knowledge & meet me at noon on"," the correct date and location"," revealed.I'll be waiting there"," for you every year,bearing the"," 'Golden sundial of Pi'";19,1;"Press any key to restart Quest" h=""2920h r 9 m3045 :" YUM YUM YUM!",," IN MY TUM!",," HAVE ";o$(hh)," LITTLE CHUM!":x=0250:x:: ̥:3035 :x-1,7;"PORKY PIES!";x,7;"You've fed me lies!";x+1,7;"Give back your grub";x+2,7;"and damn your eyes!": hh=143320 f3045 :" THANKS A LOT ";S$:" SEEN ONE OF THESE BEFORE?"," ";o$(hh):x=0250:x:: :x=5:x,2;"";x+1,2;"";x+2,2;"":.4L,19:x+2,2;"":.2~L,14:x+2,3;"":.2~L,14:x+2,2;"":.4L,15:x,2;" ";x+1,1;"";x+2,2;" ":.8L,14:x,2;"";x+1,1;" ";x+2,2;"":.4L,18:x,2;"":.2~L,19:x,2;"": 3035 :x-1,7;"A Rubber Duck!";x,7;"What filthy muck!";x+1,7;"Give me those.";x+2,7;"Ha ha! Tough luck!":i=0200:i:: Ui=-525:.02{# =,i:i:i=25-5-1:.02{# =,i:i: 3085 :x,0;" Hello stranger I'm the "," Pi Man & I'm starving. "," Give me food, or else! ": 3085 :x,0;" Yawn! It's the Pi Man, & "," I am bored. I bet you've "," got something to give me. ": 3085 :x,0;" Pssst! Excuse me! This is "," the Pi Man. I'm s-scared. "," C-can you c-comfort m-me? ": x=2+(24-23689\):x-1,1;"OK ";S$:" HOLD IT RIGHT THERE "," YOU'VE GOT ";o$(hh-1)," AND I'M TAKING IT BACK!":x,28;"";x+1,27;"";x+2,28;"":.4L,0:x+2,28;"":.4L,3:x+2,28;"":.4L,7:x+2,28;"":.4L,12 :x+2,28;"";x,28;"":.8L,8:x,28;"";x+1,27;"  ":.2~L,7:x,28;"";x+1,27;"":.2~L,5:x,28;"";x+1,27;"  ":.2~L,3:x+2,28;"":.2~L,2:x+1,27;"";x+2,28;"":150:: x=1+(24-23689\):l=x+2:x,28;"";x+1,28;"";l,28;"":k=01:.2~L,8:l,28;"":.4L,5:l,29;"":.2~L,5:l,28;"":.2~L,6:l,29;"":.2~L,8:l,28;"";x,28;"":.4L,17:l,29;"";x,28;"":.4L,17:l,28;"":.8L,13 :l,29;"":k: .4L,8:.4L,5:.2~L,10 :.2~L,10 :.2~L,10 :.05|L,12 :.25~,10 :.4L,8:.4L,5:" Suddenly a green door yawns"," wide at 10.": 7::"I WILL BLESS THE LORD AT ALL TIMES. HIS PRAISE SHALL ALWAYS BE IN MY MOUTH. ":19,2;"",," ",," ":i=05022:27+i,18+i,i:i: &19,2;"";1;"";0,," ",," ": i=03:i:.2~L,13 :.2~L,21:.3,20:.5,20:i:6: 0n0:5::i=150-1:i+1,18;" ":i,18;"*":15,0;"":25:i 5.2~L,7:.2~L,9 :.1}L,7:.1}L,5:.6,4:.1}L,2:.1}L,0:.2~L,-1:.2~L,-3:.4L,-1:.8L,-1:7:5:5:: :F" Only now are you able to open the 'Ultimate Gate of '.": Di=027 Ei=12 3143G F<.1}L,*25:21,i;7;"  ":i: Gk=203-1 Hk>12 k,14;"o" I&k<12 k+10 ,14;" " Jw21,13 ;7;"  ":.1}L,0:21,14;7;"":.06|u\,-5:k: N'i=10 40(:.05|L,i:i: X0i=40(10 -1:.05|L,i:i: l`0:0::6:x=0110n:25+x,0:230-x,175:x qx=.1}L:p=01:6:0:18,15;"";19,15;"";20,15;"":x,7:20,16;"":x,6:20,15;"":x,7:20,16;"":x,9 :18,15;"";20,15;"":.4L,7:p:18,14;" ";19,14;" ";20,14;" ":x,7:20,14;"":.2~L,7:18,13 ;" ";19,13 ;" ";20,13 ;" ":x,7:20,13 ;"":.2~L,9 :18,12 ;" ";19,12 ;" ";20,12 ;" ":.2~L,10 :20,12 ;"":.4L,11 :18,12 ;" ";19,11 ;" ";20,12 ;" ":.4L,7 vhl=0202:x=x-.004yn:19,11 ;"":x,0+l:19,11 ;"";20,12 ;"":x,12 +l:18,12 ;"";19,11 ;"":x,3:17,12 ;"";18,12 ;":";19,11 ;"":x,4+l:19,10 ;"":x,7+l:18,12 ;"";19,12 ;"";20,12 ;" ":x,-5+l:17,12 ;" ";18,12 ;"";19,12 ;"":x,8+l:20,11 ;" ":x,9 +l:19,10 ;" ";20,11 ;" ":x,0+l:19,11 ;"":x,12 +l:20,12 ;"":x,10 +l:19,11 ;"":x,9 +l:19,11 ;"":x,7+l:19,11 ;"":x,9 +l:19,11 ;"":x,3+l:19,11 ;"":x,4+l:l {x=.4L:x,7:19,11 ;"":x,6:18,12 ;" ";19,11 ;" ";20,12 ;" ":x,7:18,13 ;" ";19,12 ;" ";20,13 ;" ":x,8:18,14;" ";19,13 ;" ";20,14;" ":x,9 :18,15;"";19,16;"":x,10 :19,16;"":x,11 : 1x=0-40(-1:.008zn,x:x: 1,12 :1,12 :1,19:1,19:1,21:1,21:2,19:1,17:1,17:1,16:1,16:1,14:1,14:2,12 : =i=05:x=10 25:.01z# =,x:x:i: >.53358 0:0::" "," "," "," "," ",,," WE INTERRUPT THIS PROGRAM FOR A SHORT COMMERCIAL BREAK":.4L,14:.2~L,14:.2~L,14:1.2,14:.4L,16:.4L,12 :.4L,16:1.6L,19:20,8;6;" T-SHIRT TIME ":x=0150:x :6:2,16;"";3,15;"";4,16;"",,," YES FOLKS! YOU TOO COULD BE"," WEARING A ""PIMANIA"" T-SHIRT!":150:9 ,8;"THE IDEAL GIFT":200:5;"IMPRESS YOUR FRIENDS":200:3;"INSULT YOUR INTELLIGENCE!":3357 :15,1;"HANDY FOR MOPPING UP SECRETIONS":150:17,4;"COVERING UP SAGGY FLESH!":3357 :,,"& GENERALLY SHAKING IT ALL ABOUT":x=0200:x :6;"WHAT COLOUR DO YOU PREFER?",">1< RED ON WHITE",">2< BLACK ON BLACK",">3< LIVER ON PUCE",">4< DEAD COD GREY",">5< PRESTAINED PUNK",">6< A SORT OF SLIME GREEN",n$:N$<491ůN$>546űN$>13343 >9 ,0;"WELL, WE ONLY HAVE RED ON WHITE!":3357 :6;"WHAT SIZE DO YOU REQUIRE?",">1< DWARF",,">2< QUITE SMALL",,">3< NOT AS SMALL AS QUITE SMALL, BUT PRETTY SMALL NONETHELESS>4< SMALL",,">5< MEDIUM",,">6< LARGE",,">7< REVOLTINGLY GROSS",n$:N$<491ůN$>557űN$>13344 9 ,19;"EXTRA LARGE! ":3357 :6;"DO YOU WANT TO ORDER","A ""PIMANIA"" T-SHIRT? (Y/N) ";n$:N$13345 n$="Y"3348 6,0;"NO! WHAT DO YOU MEAN NO! HERE'S ME TRYING TO MAKE AN HONEST BOB","OR TWO, JUMPING AT THE TOUCH OF","A BUTTON, FLOGGING MY GUTS OUT,","SINGING AND DANCING ABOUT LIKE","AN IDIOT, SPREADING JOY AND FUN","THROUGHOUT THE PLANET..........":500:,,"AND YOU WON'T EVEN LISTEN TO ME!":X=0502:.003xD,-1:.005y# =,13 :X:,,"WELL WATCH OUT BABY!","I WON'T FORGET THIS!":X=099c:X:0:7: $:6;"THANKS PAL! ""PIMANIA"" T-SHIRTS","HAVE THE DYNAMIC MESSAGE ""I'VE","MET THE PI MAN"" EMBLAZONED ON","THE CHESTY REGIONS, WITH SOME","EYE-CATCHING PICTURES OF ME!!",,,"HOW MANY DO YOU WANT?","Please enter a number (Max:9) ";n$:n$1ůn$<491ůn$>5793348 x=n$*5:i=n$*10 :1,0;"OK CHEAPSKATE, THAT'S `";X;2,0;"INCLUDING p&p WITHIN THE UK";4,0;"OR FOR YOU FOREIGNERS IT'S $";i;9 ,0;"SEND OFF RIGHT AWAY TO:","""PIMANIA"" T-SHIRTS UNLIMITED","AUTOMATA UK LIMITED","65a OSBORNE ROAD","PORTSMOUTH",,"HAMPSHIRE PO5 3LR","ENGLAND.":3357 :21,0;"Press any key to continue." =""3350 0:7:  200 }x=40(60<:.003xD,x:x:x=40(502:.003xD,x:x:x=50230-1:.003xD,x:x: 3359 :7::x=48:x,3;"":x:x=020:4;30,145,1+x:x:x=276-1:6,x+3;"/ ";7,x;" ";8,x;"  ":x:b=017:6,9 ;"/";7,6;"":x,i:x,i:6,9 ;"_";7,6;"":b:X=099c: 7.4L,7,.4L,12 ,.4L,7,.4L,4,.6,0,.2~L,9 ,.2~L,7,.2~L,6,.4L,7,1.6L,2,.4L,7,.4L,11 ,.4L,9 ,.4L,7,.4L,5,.4L,4,.4L,2,1.6L,0 0::x=110n:b=40(:3365% :i=16:bow:bow:l=110 :x,0:b,0,-:x=x-1:b=b+2:l:x=x-9 :b=b+17:i:x=09 :ov,th:ov,th:x: %4,6,2,3,1,5,.8L,5,.8L,12 ,.4L,16,.2~L,12 ,.2~L,14,.4L,16,.4L,17,.8L,5,.8L,14,1.6L,12 He2:2:6::" Tsk! Tsk! Tsk! You really must"," not be so rude and aggressive!"," I'm going to have to teach you"," a lesson you will not forget!!":99c:.8L,7:.6,7:.2~L,7:.8L,7:.6,10 :.2~L,9 :.4L,9 :.4L,7:.4L,7:.4L,6:1.6L,7:x=0273:5,x+1;"";6,x;"";7,x+1;"":x:l=03:x=0273:6,x+2;"":x:x=0273:6,x+2;"":x:l:10 R" THAT DIRECTION IS USELESS HERE"," TAKE A GOOD LOOK AT YOUR FACE!":x=020:.03{u\,42*:.03{u\,20:.03{u\,8:.03{u\,-4:x: 8;"ENJOY YOUR TRIP!":x=.6:x,7:x,12 :x,19:x,10 :x,16:x,19:x,9 :x,16:x,19:.3,17:.3,16:1.8ffff,12 : :4,1;"A SAXOPHONE! Wow! I've always wanted to get into showbiz!"," Here, have some OXYGEN.":300, 2:0:7:9 ,13 ;"";10 ,12 ;"";11 ,13 ;"":.4L,7:11 ,12 ;" ":.4L,9 :11 ,12 ;" ":.6,12 :11 ,12 ;"":.2~L,16:10 ,12 ;"":.4L,14:10 ,14;"":.4L,12 :10 ,14;"":.8L,8:10 ,11 ;"";11 ,12 ;" ":.4L,7:9 ,10 ;" ";10 ,11 ;" ":.4L,9 :9 ,10 ;" ";10 ,9 ;" ":.6,12 :10 ,9 ;" ";11 ,9 ;" ":.2~L,16:9 ,13 ;"";11 ,9 ;" ";11 ,13 ;"";12 ,8;"":.2~L,19:9 ,13 ;"";10 ,12 ;"":.2~L,19:10 ,12 ;"";11 ,13 ;"":.4L,18:10 ,12 ;"";11 ,13 ;"":.4L,17:10 ,12 ;"":.4L,16:9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" " d.8L,16:9 ,14;"":.6,16:9 ,14;"";11 ,14;"":.2~L,16:9 ,14;"";10 ,12 ;" ";11 ,12 ;"":.2~L,15:11 ,12 ;" ";12 ,12 ;"":.2~L,16:9 ,14;"":.4L,16:9 ,14;"";11 ,14;"":.6,16:9 ,13 ;" ";10 ,13 ;" ";11 ,13 ;" ";12 ,11 ;" ":.2~L,16:9 ,13 ;"":.6,19:10 ,15;" ";11 ,15;"":.2~L,19 (11 ,13 ;" ";12 ,15;"":.6,20:9 ,13 ;"";11 ,13 ;"":.2~L,20:11 ,13 ;" ";12 ,13 ;"":.6,21:9 ,13 ;"";12 ,13 ;" ";13 ,13 ;"":.2~L,21:10 ,13 ;" ";11 ,13 ;"":.8L,23:11 ,13 ;" ";12 ,13 ;"";13 ,13 ;" ";14,12 ;"":.2~L,19:9 ,13 ;"":2,25:9 ,13 ;" ";11 ,13 ;"" x=13 1-1:11 ,x;" ":3:11 ,x;"":3:x:10 ,3;"Well that's showbiz!":300,:0:: 87::2,16;"";3,15;"";4,16;" YOU":99c:.2~L,14:4,19;"PUT":.2~L,16:4,19;"YOUR":.2~L,14:4,19;"LEFT":.4L,19:4,21;"G ":.4L,19:2,16;"";3,15;" ";4,16;" IN ":.8L,19:4,19;"LEFT":.4L,19:4,21;"G ":.4L,19:4,16;" OUT":.8L,19:x=01:4,16;" IN ":.4L,19:4,16;" OUT":.4L,19:x:2,16;"";4,16;" SHAKE":.2~L,18:3,16;"";4,16;" IT ":.2~L,17:3,16;"";4,16;" ALL":.2~L,18:3,16;"";4,16;" A ":.2~L,17:2,16;"";3,16;"" d4,20;"BOUT":.8L,18:2,16;" ";3,15;"";4,16;" DO ":.2~L,18:3,15;"";4,19;"THE":.2~L,17:2,16;" ";3,15;"";4,19;"HO ":.1}L,18:3,15;"";4,21;"KEY":.2~L,17:3,15;"";4,19;"KO ":.1}L,18:3,17;"";4,21;"KEY":.6,21:2,16;"";3,15;" ";4,16;" TURN ":.4L,18:2,16;" ";3,15;"  ";4,16;" A ":.4L,17:4,19;"AROUND":.8L,18 2,16;"";3,15;"";4,16;" THAT'S":.4L,14:4,16;" WHAT ":.2~L,14:4,16;" IT'S":.2~L,14:4,16;" ALL ":.4L,16:4,16;" A ":.4L,18:2,16;"";3,15;"";4,16;" ABOUT!":1.6L,19: 1:1::5;"Connect lead from the Spectrum's""MIC"" socket to your cassetterecorder's ""MIC"" socket. Placea blank cassette in the cassetterecorder. Now type in a name forthis program, maximum 10 lettersDO NOT USE 'PIMANIA'. Then press""ENTER"" ";n$ >n$=""űn$>10 n$=" PIMANIA"N$="PIMANIA" 4000  n$2 1:1::5;15,0;" PAUSE OR STOP TAPE PLAYER NOW! ";17,0;" THE MAIN PROGRAM IS NOW SAVED"," WE WILL NOW SAVE THE GRAPHICS" n$"a",168 1:1::6;3,7;1;" STOP TAPE PLAYER ";0;5,1;5;"THE QUEST IS NOW SAVED AT YOUR"," LAST KNOWN POSITION. TO VERIFY"," THIS, REWIND YOUR CASSETTE AND"," RECONNECT LEAD FROM SPECTRUM'S ""EAR"" SOCKET TO TAPE PLAYER'S ""EAR"" SOCKET. THEN REPLAY YOUR CASSETTE AT ITS NORMAL VOLUME.",,," Press any key before verifying",,," IF YOU ARE UNABLE TO VERIFY"," ENTER 'GO TO 4000' & RESAVE",,," TO RELOAD THE QUEST AT PRESENT"," POSITION, LOAD """;n$;"""" =""4040 a3,2;1;5;" PROGRAM NOW BEING VERIFIED ";0;19,0;"" ܌n$:n$"a",168::9 ,2;5;"THIS POSITION IN YOUR QUEST";11 ,3;"IS NOW SAVED AND VERIFIED":2330 '0:0:6::5,0;"FOR SOME REASON UNKNOWN TO ME,",,,"YOU HAVE MANAGED TO CRASH THE",,,"PROGRAM! BUT I AM PROGRAMMED TO",,,"RETURN YOU TO THE START OF THE",,,"QUEST. DO NOT TOUCH ANY KEY!":X=0500:X:10 rorogye{ag rM͑010500 111700 112000 122100 0701021800 0314091800 011100 1009041200 0408101000 0409101100 0410070700 0313051800 0912061400 09061213051504190011140816051700 021500 0502111500 0306080511120721001014052000 0503111900 0604011800 00 ogBAKED BEANS A HANGLIDER A TV DINNER A TELESCOPE A CAN OF WORMSA DEAF AID A SAXOPHONE OXYGEN A HULA HOOP A MEGAPHONE A POGO STICK A SUNDIAL A CUDDLY TOY PSALM 33 A RUBBER DUCK A CALENDAR A PORK PIE A COMPASS VALIUM A BLACKBOARD  Pq H  cÍa14c15c07.e07c06i. a14c15c09.e07c06i. a14c15c11.e07c06i. a14c15c13.e07c06i. a14c15c17.e07c06i. a18c15c17.e07c05i. a18c17c01.e07c05i. a18c17c03.e07c05i. a18c17c05.e07c05i. a13.e07c07i. a12c04d50.b04d04g03f05c08i.a12c06d50.b06d06g05f05c08i.a12c10d50.b10d10g09f05c08i.a12c02d40.b02d02g01f05c08i.a12c16d40.b16d16g15f05c08i.a12c14d40.b14d14g13f05c08i.a12c20d40.b20d20g19f05c08i.a12c08d50.b08d08g07f05c08i.a12c18d50.b18d18g17f05c08i.a12c12d50.b12d12g11f05c08i.a12e05.c09i. a07b02b04b06b14b16.e08. a07e08b18b20.c13f08e09i. .i. a2?2%1500d10.c14j. 1000d25.c34j. 1521b01.a01c31j. 1523b03.a03c15j. 1525b05.a05c15j. 1527b07.a07c15j. 1529b09.a09c15j. 1531b11.a11c33j. 1533b13.a13c32j. 1535b15.a15c15j. 1537b17.a17c15j. 1539b19.a19c50j. 1721c01.b01c16j. 1723c03.b03c16j. 1725c05.b05c16j. 1727c07.b07c16j. 1729c09.b09c16j. 1731c11.b11c16j. 1733c13.b13c16j. 1735c15.b15c16j. 1737c17.b17c16j. 1739c19.b19c16j. 1621a18c01e07.d01f07e05c01i. 1623a18c03e07.d03f07e05c01i. 1625a18c05e07.d05f07e05c01i. 1627a14c07e07.d07f07e05c51i. 1629a14c09e07.d09f07e05c03i. 1631a14c11e07.d11f07e05c03i. 1633a13c13e07.d13f07e05c03i. 1635a13c15e07.d15f07e05c03i. 1639a13c19e07.d19f07e05c03i. 1637a13c17e07.d17f07e05c03i. 1637a18c17e07.g01g03g05g17f07c02i. 1635a14c15e07.g07g09g13g15f07c04i. 1430a09c10.c10j. 1426a10c06.c11j. 1424a11c04.c12j. 1722a07c02.b02c16j. 1724a07c04.b04c16j. 1726a07c06.b06c16j. 1734a07c14.b14c16j. 1736a07c16.b16c16j. 1738a07c18.b18c16j. 1740a07c20.b20c16j. 4200.c41j. 4100.c40j. 1000a12e05.h08f05j. 1300a07e09.h22j. 1432c12.c36j. 4300.c60j. at3vIֻI011 022 033 044 055 066 077 088 099 1010 1111 1212 1322 14USE 15TAKE16GIVE16OFFE17DROP17LEAV17DUMP17PUT 29HOOP21BAKE21BEAN22HANG23TV D23TV 24TELE25CAN 25WORM26DEAF27SAX 27SAXO28OXYG29HULA30MEGA31POGO32SUND33CUDD33TOY 34PSAL35RUBB35DUCK36CALE37PORK37PIE 38COMP39VALI40BLAC41KILL41HIT 41ROB 41STEA41FUCK41BUGG41SOD 41BALL41BOLL41SCRE41SHIT41BAST41BLOO41PISS42NORT42SOUT42EAST42WEST42UP 42DOWN42EXIT43IN 43OUT 23DINNG& I'LL BE SEEING YOUften^y 0aI z 21 oLʹ pjpenfol%jQ WHERWHATWHO LOOKSTOPHELPQUITEAT 5 1415ITAKETAKET00Ea18c15c17.e07c05i. gS  AUTOMATA CARTOGRAPHY LTD. 1982ZKN PIMANIA PIMANIAXo?g|DD|||fnln~7s8p8>~B~~fff<<~BB~~x??0pp08xffff?``xp f5<~Acf88n