ZXTape! 0Created with Ramsoft MakeTZXunderworld( 0UNDERWORLD LOADER Kevin Rae 1986  64299+ 0:0:6: ( t=0 2-a=6520065293 :b:a,b:t=t+b:a ,13 ,1,3,0,237,177,202,0 t255,237,75K,83S,92\,3,3,120x,188,40(,2,24,5,121y,189,202,0,255,35#,126~,254,34",202,186,254,254,165,210,235,254,254,35#,218,235,254,535,195,235,254 35#,35#,35#,195,186,254,33!,61=,92\,546,255,195,176,254 DATA SET 2 33!,0,61=,17,44,,251,1,0,3,126~,203,47/,182,18,19,35#,11 ,121y,176,32 ,244,33!,44,,250,34",546,92\,201 tA;0/Fbunder2 "B65286 a=6:b=7430:c=1:d=0:e=128:f=7495G:g=7500L:h=8000@:i=7960:j=9e3(#:k=7490B:l=129:m=8650!:n=9095#:o=4:p=9980&:q=7498J:r=100d:s=105i:t=9965&:u=2 ka:d:o::h$="":r(35#):a(27):o(27):u(a-c):m$(u,o-c):v$(40(,o-c):v(40() z=c27:y:a(z)=y:z 5875,5700D,d,900,5600,d,5300,d,1690,590N,41506,4750,4650*,d,d,d,d,d,d,d,3140D ,3260 ,d,d,5650,d,4750 r(34")=(*1e6t$):r(13 )=1170:r(10 )=(*a)+c:loc=5725]:st=30:str=d:nt=d:sc=d:ca=d:no=d:so=d:ea=d:we=d:up=d:do=d "(*a)>ua(18)=5700D #<23658j\,d:236099\,20:23617A\,236 (z=c40(:v$(z),v(z):z 1"hfu",7600,"ubl",7600,"esp",7700,"buu",9400$,"iju",9400$,"ljm",9400$,"j ",7800x,"jow",7800x,"csf",9470$,"fyb",9510&%,"dmj",9800H&,"qvm",9695%,"dsp",9890&,"ifm",9600%,"esj",9350$,"uvs",9650%,"ejh",9670%,"txj",9700%,"xfb",9100#,"fou",9750&,"uis",9830f&,"tbx",9850z&,"mjh",9900& 7""sft",9635%,"ufb",9590v%,"mfb",9865&,"sje",9740 &,"tus",9810R&,"ujf",9920&,"vou",9950&,"vom",9550N%,"pqf",9550N%,"sfb",9135#,"gpm",9183#,"xbj",9635%,"tmf",9635%,"sbj",7390,"fbu",9300T$,"csj",9150#,"cmp",9500% :INTRODUCTION ?r(13 )=loc"Uifsf jt b tnbmm xppefo cpbu po uif tipsf/" Bso=3950n:e nD"J bn po spdlt cz uif dpbtu/ Hbt gjmmfe nbstift bsf up uif TPVUI/" p!no=3900<:so=4900$:e -"J bn TPVUI pg uif pnjopvt"'"EFBUI WBMMFZ/" !no=41506:ea=4800:e ~"J bn OPSUI pg EFBUI WBMMFZ/Cmbdldmpvet bsf txjsmjoh bspvoe mpx jo uif wbmmfz boe J dbo ifbs"'"tusbohf opjtft gspn xjuijo/" so=41506:e 6{"EFBUI WBMMFZ/ 6 dmpblfe gjhvsft bsf xbmljoh bspvoe b hmpxjoh"'"gjsf xijmf diboujoh/ B txjgu jt gmzjoh bcpwf uif gmbnft/" @/no=4100:up=4200h:so=4e3:e hI"J bn bcpwf EFBUI WBMMFZ po b"'"sjehf/ Cmbdl txjsmjoh dmpvet bsfcfmpx/" j!no=4350:do=41506:e \"J bn po b mpoh spqf csjehf pwfs uif cpuupnmftt wbmmfz/ Uifsf jt b npvoubjo up uif TPVUI/" !we=3440p :no=5775:e 6"Uif Cmbdl Dmjggt cz uif svjot pguif upxo pg Dsbjo/" o(9 )o(21) "B tubswjoh nbo xboujoh gppe"'"buubdlt nf/ If jt uif tuspohfs boe gpsdft nf pwfs uif dmjgg////":d:p !ea=44000:so=4200h:e 0m"B qfccmfz tipsf po uif opsuifso dpbtu/";:o(18) "J ibwf gpvoe b dbwf hpjoh TPVUI/":so=4500  2we=4350:e "B tnbmm hpmefo cfbdi/ B qbui"'"hpft vq tboe evoft up uif FBTU/ Po bo jtmboe pgg tipsf uifsf jt dbtumf svjo/";:o(11 )"J tff b dbwf jo uif opsui dmjgg/":no=44000 (so=4550:we=4750:up=we:e do-c;" Uif XFMM PG GPSUVOF";c;'"Uif cvdlfu jt bu uif cpuupn boe uifsf jt op xjoejoh iboemf/"  no=4500:so=400:e *D"J bn po b dmjggupq qbui/ Uifsf jt b qppm pg cmppe po uif hsbtt/" ,/no=350^:so=5775:we=5725]:e \7"Nz xbz jt cmpdlfe cz b ijhi xbmmnbef pg tpmje hpme/" ^no=4750:e u}"J bn jo gspou pg b ijhi- hpmefo xbmm cvjmu bdsptt uif spbe/ Effq- xjef ejudift bsf po cpui tjefttp uifsf jt op xbz spvoe/" wso=460:e "Uif EFBE MBOET pg UISPO/ B djuz xjui hpmefo xbmmt boe hmjtufojohgpvoubjot jt gbs up uif OPSUI pwfs tboe evoft/ B efbe hsfzxpmgmjft ofbs nz gffu< b wvmuvsf jt tdbwbhjoh po jut cpez/" 3no=4775:we=no:so=4700\:ea=so-r-r:e "J dbo ibsemz tff nz qbui bt uif tvo cfdpnft pwfsqpxfsjoh boe op xbufs jt jo tjhiu/ J hp po cvu ju bmm cfdpnft upp nvdi///":d:p J"J jo b tfnj.eftfsu xjui b ivu upuif TPVUI/ Uif EFBE MBOET bsf OPSUI/" 6we=4e3:so=4850:no=4775:ea=no:e "J bn jo b mbshf nve ivu/ 5 cjse dbhft bsf ibohjoh gspn uif"'"dfjmjoh boe b mbshf pme xpnbo jt gffejoh uif cjset xjui tffe/" /no=4800:ea=460:we=4950V:e $o(26)9825a& %"Uif Xijuf Nbstift/" &cr(15) "Ju ibt cffo sbjojoh boe uif nbstift bsf wfsz tpgu/ ";1;"IFMQ///!":d:p '4"Uif hspvoe jt gbjsmz tpmje/Ju jttbgf up xbml po/" (!no=3950n:so=4950V:e V~"J bn jo b ejq jo uif spbe xifsf b tusfbn tffnt podf up gmpxfe bdsptt/ Uifsf bsf nbstift up uifOPSUI boe///opu nvdi fmtf!" X!ea=4850:no=4900$:e "J bn cz xffe dpwfsfe tufqt uibu xjoe uifsf xbz vq uif tjef pg b npvoubjo/ Uifsf jt bo pbl gpsftuup uif FBTU/ B hsfz sjwfs gmpxt gspn voefs uif npvoubjo/" 0so=5200P:ea=5400:up=5150:e a+c:c:a+c: o"Uif upq pg uif cmbdl npvoubjo/ Uifsf jt b mbshf dsbdl jo uif hspvoe cz nz gffu/B dbwf ofuxpslsvot cfmpx/"  r(u)do=1245 "ea=5100:e 7K"J bn po uif fehf pg b hmjtufojohqppm/ Uif cpuupn jt dpwfsfe jo tjmwfs/" 9 so=2990 :ea=350^:e PY"J bn tbu po b nfubm cfodi cz b qfccmfz qbui/ Up uif OPSUI uifsfjt b svhhfe npvoubjo/" R no=5100:so=300,:e |"J bn cz b tuffq qbui xjoejoh"'"EPXO b dmjgg/ Cfmpx uifsf jt b tnbmm tfdmvefe dpwf/Hpstf cvtiftbsf hspxjoh up uif OPSUI/" !do=5650:ea=5925%:e T"B xjoez npps/ Uif hspvoe jt"'"nveez boe bu nz gffu uifsf jt b mbshf sbccju ipmf/" !so=5925%:do=5300:e "J bn jotjef b mbshf sbccju"'"cvsspx/ Uifsf jt wfsz mjuumf"'"sppn up npwf boe bmm puifs"'"uvoofmt bqbsu gspn uif pof J dbnf epxo bsf upp tnbmm up vtf/ Uifsf jt uif qpvoejoh pg gffu epxo tpnf uvoofmt/" up=5275:e u 4;"J bn jo b dmfbsjoh jo uif pbl gpsftu/ Uifsf bsf tdsbqt pg nfbupo uit hspvoe boe uif sfnbjot pgb gjsf/" we=5400  ea=5400:no=ea:so=ea:e . 4;"J bn xboefsjoh jo bo pbl gpsftu/"  5352 'y 4;"J bn jo b ujoz dmfbsjoh xjuipvu nvdi mjhiu/ Uifsf jt b ipmmpx jouif tpgu hspvoe boe uif bsspxt qpjou XFTU/" )we=5100:5354 @"J bn po bo pvudspq pg spdlt/ B tijqxsfdl jt kvtu pgg tipsf/" we=300,:e %"B ujoz dpwf/ B dbwf svot OPSUI/ "; Sz=*2:z>.15~"Uif dmjgg qbui jt opx dvu pgg czuif ujef/":5656 up=5250 +no=3370* :o(26)no=5700D e D"B ebsl xjoejoh uvoofm/" F!no=3370* :so=5650:e ]"J bn jo uif cvtz upxo pg Csboobm/ Uifsf bsf tpvoet pg b nbslfu dpnjoh gspn bo bsdixbz boe b"'"ebodjoh cfbs jt qfsgpsnjoh jo uif tnbmm trvbsf/" _ea=4650*:e i"Uif npvui pg b mbshf ftuvbsz/ B qfojotvmb pg nbstift jt up uifOPSUIFBTU boe b gpsftu up uif XFTU/" 0no=4650*:ea=5825:so=4300:e o(26)9825a& "Uif Qfo Nbstift/" Zr(15) "Tpssz//uif nbstift xfsf opu esz/J(n tjoljoh/ ";1;"IFMQ///!!":d:p ,"J xbml rvjdlmz uispvhi uif esz nbstift/" !no=5875:so=5775:e C"Uif qfojotvmb ifbe/ Nbstift bsf up uif TPVUI- tfb up uif OPSUI/" so=5825:e  fr(17) 5;"J kvnq joup uif xbufs///"'"Ju jt jdf dpme boe J gsff{f up efbui///":d:p  l"J kvnq joup uif ebsl npvoubjo sjwfs/":75K:"CSssss! Ju jt dpme cvu nz dmpbl lffqt jo tpnf ifbu/": r:"Uif gmpx dbssjft nf pvu pg uif npvoubjo tjef boe J bn txfqu"'"epxotusfbn/":200:"J hsbc b csbodi pg b usff/":200:loc=3440p :loc %8"B nveez dmjgg qbui/ Ebohfspvt spdlt bsf gbs cfmpx/" '0ea=18400:we=5250:no=5275:e o(25) "J qbeemf gspn uif tipsf boe"'"txjsmjoh tfb ublft nf TPVUI/":s:"J bn uispxo gspn uif cpbu boe tjol voefs///":d:p ""J dbtu pgg boe spx pvu up tfb/" loc3450z u(3)=uo(16)o(17)o(18)o(19)o(20) "Bgufs b ebohfspvt dspttjoh J"'"mboe po uif tipsf pg uif jtmboe/":500:loc=3450z :r(13 )=loc:k d"B tuspoh dvssfou boe xbsn csff{fcmpx nf spvoe uif dpbtu/"'"Fwfouvbmmz J spx up tipsf/":500 ,loc=1170loc=3900<:7322 /loc=3900<loc=3450z loc=1170 r(13 )=loc:k  loc2990 r(21)n /d$="sbjtf uif qpsudvmmjt!"loc=3020 :k n MOVEMENT CHECK doq  loc=do:k upq  loc=up:k noq  loc=no:k soq  loc=so:k eaq  loc=ea:k $weq &loc=we G1nt=d:str=d:no=d:so=d:ea=d:we=d:up=d:do=d Hz=ca-c:u(z)=cu(z)=d:z I:loc J%"J dboopu hp jo UIBU ejsfdujpo/":j L SEE ROUTINE Qi Vz=c27:w$,x$ Yloca(z)o(z)7530j [ntnt=c:'"J tff///" `a+c;"b ";w$;" ";x$ jz t nt=d:h TAKE ROUTINE !r(u)m$(u)="spq"m$(u)="cpb"n +ca=7 "J dbo(u dbssz boz npsf!":j i z=c27 w$,x$ 3a(z)=loco(z)m$(u)=x$(o-c)ca=ca+c:o(z)=c:t z t-u DROP ROUTINE i z=c27 (w$,x$ -3m$(u)=x$(o-c)o(z)ca=ca-c:a(z)=loc:o(z)=d:t 2z 4t-o+c xPRINT INVENTORY ROUTINE }i  "J ibwf//" caa;"Opuijoh":j z=c27 w$,x$ o(z)a;" b ";w$;" ";x$ z j "cspo{f","lfz","tuspoh","spqf","csbtt","sjoh","mpoh","xjsf","qjsbuf(t","dvumbtt","xppmmfo","dmpbl","spvhi","qbsdinfou","svtuz","mbnq","ibn ' difftf","tboexjdi","zfmmpx","ovhhfu" "xjodi","iboemf","tnbmm","tqbef","mpoh","txpse","tjmwfs","tbx","hpcmjo(t","lfz","2tu","lfz","3oe","lfz","4se","lfz","5ui","lfz","6ui","lfz","spbtu","dijdlfo","ljoh(t","npofz" "O"cmvf","gmjou","nfubm","ibu","qbjs pg","pbst","mju","mbnq","cvdlfu pg","tpjm" @OTHER CHARACTERS Ab$=" foufst/" BIloc>3900<loc<5875loc4850loc5700D8470! E+loc>2990 loc<3370* 8075 O9loc>499loc<15917loc11708275S T:loc>1600@loc<2551 loc184008374 hj loc=3290 j z=(*30)+8076:z =a$="B hvbse dmbe jo hpmefo bsnpvs ":str=*5+8 Ou(c) a$="Uif Cmbdl Tpsdfsps pg uif dbtumf":str=*5+12 :u(c)=c m @u(u) a$="Uif esvolfo kbjmfs":u(u)=c:str=*5+9 m u(3)=um r(19)=o-cj "Uif Ebsl Pwfsmpse pg uif DsztubmDbtumf boe Voefsxpsme foufst/"'"If sbjtft ijt hpmefo cbupo boe qpjout ju upxbset nf/":u(3)=c:m  see text e'"OPX ZPV EJF! If tipvut boe b tusfbl pg tjmwfs mjhiuojoh gmjftgspn uif cbupo/ Ju ijut///":d:p SNo(26)ú(*o) a+c;"J ibwf usjqqfe boe dsbdlfe nz ifbe///":d:p Tz=(*10 )+8280X :z X;a$="B dbwf toblf":l$=" tmjuifst cz/":str=*5+a:m Z/a$="B cphmf tmbwf":str=*5+10 :m \.a$="B cmbdl wbnqjsf":str=*5+11 ^m _*a$="B nve nbo":str=*5+8:m lj z=(*10 )+8380 :z m @u(o) a$="B Njof Hvbse":u(o)=c:str=*10 +12 :m Eu(o+c)a$="B Cmbdl Xbudifs":u(o+c)=c:str=*10 +18:m j +a$="Bo jdf eph":str=*5+7:m ! z=(*s) !Jz<30r(15)"Uif ebsl tvo esjft vq uif mboe/":r(15)=d !Nz>535r(15)loc5700D"Ju cfhjot up sbjot/":r(15)=c !z=(*s)+8476!:z !*m !43a$="B tdbwbhjoh hsfz xpmg":str=*5+8 !Mm !Ra$="B spdl tdpsqjpo":str=o+c !Wm !\6a$="B dsztubm.fzfe xfsfxpmg":str=*5+10 !fm !p@b$=" txppqt epxo/":a$="B tjmwfs ibxl":str=*5+10 ! strj !.25~,st-10 :a$;b$ !zloc>2990 loc<3370* ú(*4)loc3290 loc=3290 :str=d:"J ibwf cffo dbquvsfe!":200:k !z=(*10 )+8661!:z !8"If buubdlt nf/":r(c)=c:.5,30-*20 #'INPUT ROUTINE #(#23692\,a:.1}L,-25 #*Br(33!)(o(13 )o(o+c))r(33!)=c:st=st+10 #,"?";d$:d$="1"d$=e$ #. d$=""j+o #0e$=d$ #2c;"|";d$;"~" #4;z=c̱d$:d$(z)"B"d$(z)"["d$(z)=(d$(z)+32 ):z #6 z=c̱d$ #<d$(z)=" "z:9035K# #>m$(c)=d$(z) #@z=d$z+u-c #Bd$(z)=" "z:9035K# #Dd$(z-c)" "z #Fm$(u)=d$(z) #Kloc=5300r(35#)m$(c)"cmp"m$(u)"uvo" "Sbccjut qpvs pvu pg fwfsz uvoofmboe cfhjo lobxjoh bu nz cpez- J ibwf op ftdbqf///":d:p #PBu(3)=c((m$(c)"xfb"m$(u)"sjo")o(3))8120 #UKr(1)(m$(c)"ljm"m$(c)"iju"m$(c)"buu") u;"J nvtu gjhiu/":j #Vm$(c)="o "b #Wm$(c)="t "b+10 #Xm$(c)="f "b+20 #Ym$(c)="x "b+30 #Zm$(c)="v "b-o-c #[m$(c)="e "b-30 #\m$(c)="mpp"m$(c)="m "k #]m$(c)="tdp""TDPSF; ";sc:j #_z=c40( #am$(c)=v$(z)9063g# #cz #e 9075s# #g6v(z)=9900&v(z)<8e3@v(z)>9919&v(z) #ii #ky=c27:w$,x$ #m!m$(u)=x$(3)o(y)t-o+c #oy #qv(z) #sm$(c)"rvj"9083{# #u$"Ep zpv xbou up tbwf@ )z ps o*";z$ #wz$="z"z$="Z"9085}# #y 3 #{m$(c)"tbw"9087# #}'"4 Bssbzt///":9994 ' #?m$(c)="mpb" "v2"o():"v3"a():"v4"r():9998'::loc #-.05|L,25:"J dboopu ep uibu zfu/" #j #VERB SUBROUTINES #m$(u)="sjo"9120# #m$(u)="dmp"9115# #m$(u)"ibu"N #r(20)t-c #r(20)=c:t # r(17)r(17)=c:t #t-c #9u(3) "J qvu po uif sjoh- cvu ju tmjqt pgg/":j #"Uif csbtt sjoh cfhjot up hmpx boe ju uvsot xijuf/ Uif EbslMpsetipvut jo qbjo boe gbmmt up uif hspvoe- uif csjhiuoftt sfqfmt ijn/" #r(19)=r(19)+c #r(19)=o-c ca=ca-c:u(3)=u:"Ijt xipmf cpez dsvncmft joup"'"xijuf btift/ Uif Ebsl Mpse jt efgfbufe!"'"Uif sjoh ejtjoufhsbuft/ B hpme lfz sftut po uif btift/":a(19)=loc:o(o-c)=d:a(o-c)=d:sc=sc+502:j #5u(3)=d:"If sfusfbut< cvu if xjmm sfuvso/":j #Cm$(u)="qbs" "Uif qbsdifnfou tbzt//":502:'"OPUIJOH!!":j #lm$(u)="opu"loc=3450z "Bo bsspx qpjout bdsptt uif tboetboe uif pomz xsjujoh dmfbs jt"''" P U ":j #n # see text #loc=3460 o(16)o(17)o(18)o(19)o(20) :"Uif Lffqfs ublft uif lfzt boe vocpmut uif Hsfbu Epps pg Ujnf// Hppeczfif tbzt/": c;'''" QSFTT BOZ LFZ UP SFUVSO IPNF ":c:p:200  ##loc1170r(13 )locn #m$(u)="npo"9180# #m$(u)"ovh"t+o+c #٘"Uif tbjmps svct uif ovhhfu boe uif zfmmpx dpnft pggup sfwfbm btupof! If tveefomz c fdpnft wfsz bohsz boe tipput bu nf xjui b cmvoefscvtt///":d:p #]r(14)=c:ca=ca-c:"J fydibohf nz npofz gps ijt cpbu":a(22)=d:o(22)=d:j #/loc=5400m$(u)="bss"loc=5415':t #n $Y5m$(u)="tbo"o(9 )=d:a(9 )=d:9310^$ $Z7m$(u)="dij"o(21)=d:a(21)=d:9310^$ $\6"J dboopu fbu ju boe ebnbhf nz"'"uffui!":st=st-u:j $^8ca=ca-c:"Nvodi//nvodi//"'"Uibu xbt ojdf!":st=st+o:j $m$(u)"xbu"n $7loc=4550 "J dboopu sfbdi uif xfmm xbufs!":j $Tloc=5900 r(5)r(22)strc$="If jt ":9416$ $9zst"J tusjlf uif gmpps/ Uif spuufo xppe tnbtift jotuboumz/":j %_loc=3140D m$(u)="cbs" "Xjof gmpxt pvu boe J gbmm cbdl/ Fwfszuijoh hpft cmbdl///":d:p %(m$(u)"usb"loc3370* 9490% %+r(3) "Uif usbqepps JT csplfo!":j % 4"J tusjlf uif usbq epps/":r(9 )=r(9 )+c %8r(9 )=r(10 ) "Ju jt csplfo/":r(3)=c %j %loc2500 t-u %.o(5)o(12 )o(13 )t+o+c %n"J tnbti uif jdf/":o(5) "Uif dvumbtt cmbef tobqt dmfbo pgg!":a(5)=d:o(5)=d:ca=ca-c %3a(17) a(17)=loc:sc=sc+15:g %j %loc5300r(35#)n %Jo(27) "J ibwf opuijoh up ep ju xjui!!":m$(c)=" ":9035K# %!v"Uif tpjm gjmmt uif ipmft ojdfmz nvdi up uif sbccjut( gsvtusbujpo!!":o(27)=d:a(27)=d:r(35#)=c:j %&rloc=5400m$(u)="usf" "Uifsf bsf bsspxt po uif usfft boe pof ibt 34 cvsou joup uifxppe cfmpx ju/":j %'gloc=3440p a(14)m$(u)="njt" "J dbo wbhvfmz tff b tbx po uif cbol/":a(14)=loc:g %(/loc=4300a(a)m$(u)="csj"a(a)=loc:g %+Im$(u)="xbu"r(6)loc=1540 "Uif xbufs mpplt jdz dpme!":j %,Vm$(u)="qbs" "Po uif cbdl pg uif qbsdinfou ju tbzt"'"MPPL.SBJTF UIF QPSUDVMMJT!":j %-Ma(18)loc=4850m$(u)="tff"sc=sc+15:a(18)=loc:g %0Zm$(u)="nbs"(loc=4900$loc=5825) "Cmvf hbt jt sjtjoh gspn uif"'"sffet/":j %2Um$(u)="sjo" "Fotdsjcfe po uif tjef jt";1;"Xfbs boe usjvnqi!";0:j %5Sm$(u)="xfm"(loc=4550loc=4560) "J dbo tff b ipmf gps b iboemf/":j %7Ma(16)loc=1490m$(u)="dbt"sc=sc+15:a(16)=loc:g %:uloc=51757(m$(u)="tjm"m$(u)="qpp") "Bo jotdsjqujpo po uif tjmwfs"'"sfbet///"'"UIF LJOH(T IFBMJOH QPPM":j %<loc108089535?% %=E"Uif epps offet b ejhju"'"dpncjobujpo!":"Op/?";z:zr(34")j %>+"Uif epps txjoht pqfo!":we=1110V:j %?loc=2260m$(u)="dpg"a(o-c) a(o-c)=loc:"Ulf dpggjo jt wfsz dpme! Po uif mje uif jdf ibt cffo dijqqfe"'"bxbz boe TLBSP fotdsjcfe/":g %Aploc=3370* (loc=3350 r(3))m$(u)="usb" "Uif ovncfs ";r(34");" jt tdpsdife poup ju/":j %DHm$(u)="qbt"loc=3170b "Uif gmpps qmbolt bsf spuujoh boexfu/":j %FBm$(u)="dsb"loc=5150 "J tff b efbe usff cz uif ipmf/":j %I?loc=5415'm$(u)="ipm"a(15) a(15)=loc:g %L$"Uifsf jt opuijoh joufsftujoh/":j %N;m$(u)="dfm"loc=3290 "J ibwfo(u hpu uif lfz!":j %PHm$(u)="usb"(loc=3370* loc=3350 ) "Ju jt objmfe epxo!":j %Qm$(u)"epp"m$(u)"lfz"n %R*loc=10808"Uifsf jto(u b mpdl!":j %S$loc2230loc1930t-u %Xm$(c)="pqf"9575g% %Y$o(c) "J epo(u ibwf uif lfz/":j %[-loc=2230r(7)r(7)=c:t %\-loc=1930r(8)r(8)=c:t %`"Uif epps JT vompdlfe!!":j %hQloc=2230r(7)loc=1930r(8)"Uif epps jt mpdlfe!":j %l1loc2230loc1930"Pqfo XIBU@!":j %o.loc=2230r(7)=cr(7)=u:t %p.loc=1930r(8)=cr(8)=u:t %t"Uif epps JT pqfo!!":j %v-loc33859 (m$(u)"tfb"m$(u)"wfm")n %xia(23)"J ufbs b qbsu pg uif tfbu/"'"Voefsofbui uifsf jt b gmjou!/":nt=nt+c:a(23)=loc:j %yn %.loc=33859 "EPO(U SVTI PGG TP GBTU!":j %8loc=3290 loc=2990 "DPMMFDUPST( JUFNT/":j %*loc=3170b "CSFBL PVU RVJDL!!":j %<loc=2230loc=1930"B QFBS OPU GPS FBUJOH/":j %"loc=5415'"GPMMPX NF!!":j %-loc=1170"B HJSM(T CFTU GSJFOE@/":j %"OFYU UJNF///QFSIBQT!":j %[st=st+(st<40()/2:"J ";d$;'"Ujnf qbttft///":strz=(*5)+9636%:z %h %;"Uif";a$(u);'"buubdlt nf xijmf J sftu/":r(1)=c:j %#"Uif";a$(u);'"mfbwft/":str=d:j %loc4550m$(u)"ibo"n %a"J uvso uif iboemf boe uif cvdlfusjtft vq uif xfmm/":75K:"Ju sfbdift uif upq/":30 %J"Ju jt gvmm pg xbufs/":a(20)sc=sc+15:a(20)=loc:g %j %o(12 )t+o+c %<loc=3170b a(19)"J ejh cvu pomz tff xpsnt!":j %nloc=1540r(5)m$(c+c)="uvo"r(5)=c:"Voefs uif uvoofm J tff b ebsl npvoubjo sjwfs/":j %n %=loc=1245r(u)m$(u)="spq"ca=ca+c:r(u)=d:o(u)=c:t %ploc=3290 a(14)"Uif cbst bsf ibmg dvu boe xfbl- uifz cfoe fbtjmz/ J(n pvu!":loc=3350 :loc %n %Ploc=1540r(5)m$(u)="sjw"loc=5900 :a+c:c:c+c:9795C& %loc=517579890& %n & -loc33804 (m$(u)"nbs"m$(u)"ips")n &W"J npvou uif ipstf xijdi cpmut"'"boe uispxt nf pgg/ J dsbti up uif hspvoe///":d:p &loc=517579890& &/m$(u)="dbs"loc=33804 loc=33859 :k &m$(u)"cpb"9764$& & !r(13 )locr(14)n &"str=d:7300 &$m$(u)"spp"m$(u)"ouf"n &*str=d &+9loc=2230r(7)=uloc=2260:9790>& &,9loc=1930r(8)=uloc=2500 :9790>& &/n &>"J hp uispvhi uif epps/" &C 75K:k &Hm$(u)="cpb"9755& &Mn &Rm$(u)"gmj"n &UVr(11 )=o "Uif gmjou ejtjoufhsbuft/":ca=ca-c:a(23)=d:o(23)=d:j &W?"J tusjlf uif gmjou-tqbslt bqqfbs":r(11 )=r(11 )+c &\1loc4900$loc5825r(18)=c:j &a/z=o+c-20-c:u::z::.005y# =,z:z &c)"Uifsf jt b nbttjwf fyqmptjpo///":d:p &f{loc=3290 (m$(u)="spq"m$(u)="cbs") "J uispx uif spqf uispvhi uif"'"cbst/ Ju dbudift uif ippl cvu tmjqt pgg/":j &zm$(u)"cbs"n &|loc3290 t-u &}o(14)t+o+c &"J tbx uif cbst/" &"[{[{ [{[{ [{[{///" &z=(*u)+9861&:z &+"J(n pvu tbgmfz/":r:loc=3350 :loc &C"Uif kbjmfs foufst/"'"Pz!! Xibu e(zf uijol z(epjo@! If tipvut/" &a"If svot vq up uif dfmm boe tobudift uif tbx/":o(14)=d:ca=ca-c:a(14)=loc:j &loc33859 m$(u)"dbs"n &loc=33804 :k &#loc=4300loc=1600@:k &#loc=1600@loc=4300:k &m$(u)"qpp"n &Na(a+u)a(26)"B mbnq gmpbut up uif xbufs"'"tvsgbdf/":a(a+u)=loc:g &t &m$(u)"mbn"n &o(26)"Ju JT mju!":j &o(a+u)t-o+c &r(18)t+o+c &.loc=5400 "PL///Cvu ju cmpxt pvu!":j &V"P/L/":o(8)=d:o(26)=c:a(8)=d:a(26)=loc:r(18)=d:j &em$(u)="usf"o(u)loc=5150r(u)nt=nt+c:do=1245:r(u)=c:ca=ca-c:o(u)=d:a(u)=loc:t &n &@loc=5150r(u)nt=nt-c:r(u)=d:do=d:ca=ca+c:o(u)=c:t &n &COMMON RESPONSES &,.1}L,10 :"J epo(u ibwf UIBU/":j &$.1}L,d:"UIBU jt opu ifsf!":j &"J BN xfbsjoh uibu!":j &'.05|L,*20-20:"P/L/" &o(a)r(17)=d &o(a*o)r(20)=d &r(18)r(18)=d &j &.1}L,-a:"Xjui XIBU@":j & END ROUTINE &,9982&:d:a+c:d::e$="U I F F O E" &6z=c12 :x,l:10 ,z+9 ;e$(z):x,l:z &c,-12 ,c,-12 ,.25~,-12 ,c,-12 ,.75@,-9 ,.5,-10 ,.5,-10 ,.75@,-12 ,.75@,-12 ,.75@,-13 ,.75@,-12 ,.75@,-12 't$(u,36$) ''t$(c)="ZPV IBWF GBJMFE JO ZPVS RVFTU" ',t$(u)="EP ZPV XJTI UP USZ BHBJO z PS o" 'Wz=c32 :o+c:23692\,o:15;o+c;t$(c,z):.005y# =,40(:c+c:z 'Wz=c36$:o:23692\,a+c:15;o+c;t$(u,z):.005y# =,9 :u:c:z 'd '="z"Ŧ="Z"3 ' @:21,0;"QSFTT BOZ LFZ UP SFTFU DPNQVUFS/":c:d: ' r(23)=loc:r(24)=st:r(25)=str:r(16)=nt:r(a)=sc:r(o)=ca:r(27)=no:r(28)=ea:r(29)=so:r(30)=we:r(31)=up:r(32 )=do ' \"v2"o():23736\,181:"v3"a():23736\,181:"v4"r():m$(c)"rvj"j ' 3 'loc=r(23):st=r(24):str=r(25):nt=r(16):sc=r(a):ca=r(o):no=r(27):ea=r(28):so=r(29):we=r(30):up=r(31):do=r(32 ): abcdefGgLh@ij(#kBlm!n#op&qJrdsit&u