Dancing k&ak&m&yAt the Sign of The Dancing Ogre by Chris Bourne from Sinclair User annual'86 5Corrections marked in . [Jimg] 354999:"GCODE"55000,1221: kk=0:ho=8:min=0:st=10 :dam=0:m=0:t=0:cn=0:c=0 a()=(*11 )+1  9400$  9900&  9300T$ Fcn=09200# P<.59000(# Z 9050Z# dY<.58400 :There's nothing at 8400 so it goes to 8900. [JimG] f 5000 g 3000 n 3300 xho=12 3400H 70F CharCheck x=111 "a(x,5)=03050 :a(x,4)=a(x,4)-1*(a(x,4)>1) a(x,2)<0fight x   Fight Jp$=a$(c)+" goes berserk and tries to wreck The Dancing Ogre":9800H& $a(c,2)=a(c,2)+10 %d1=(a(c,1)*cn-st*cn/2) d1<1d1=1 dam=dam+d1 t=t+20  Time Check min=min+t:t=0 min<60<3350 !min=min-60<:ho=ho+1  HEndDay R?p$="Its the end of anotherday at The Ogre, Gordo":9800H& WCx=111 :a(c,4)=1:a(c,5)=0:x \ m=m-dam:m<03500 f<p$="Including damage you made "+m+" in gold":9800H& kcn=0:dam=0:t=0:ho=8:min=0:Was setting unused variable h=8, instead of ho. [JimG] p Bust =p$="You failed to stay solvent and lose all":9800H& 0 3600 ):7:0:"Another game? Y/N"  ="Y" $ ="N" .=""3610 8 3610 t:6:0 ~""OK Gordo, what's the password?" p$ x=5620056209 #p$(x-56199)¾x3800 x R:"You did it Gordo! and you even managed to make some money into the bargain." ::100d:m;" gold pieces to be precise.":200:m<100d"Lady Marion reckons that won't buy much more than she got to eat in jail." }m>200"Lady Marion is impressed. She reckons with you by her side it will be the Dancing Hilton in notime at all."  0  3600 ؁:"You messed it up, fat gut. Lady Marion hops it with the Grand Elf and you get a sword in your belly for all your trouble."  0  3600 Mingling Routines Free Mingle Offer  k=4 "a(c,4)=241506 " 8100 5 6<p$="":loc=56075 :l=23:9600%:9800H& @ 41495 h k=1 r"a(c,4)>24250 | 8100  <p$="":loc=56054:l=21:9600%:9800H&  4230 Offer Services 'p$=a$(c)+" asks you this":9800H& up$="":loc=55000+z(a(c,6)+12 ,1):l=z(a(c,6)+12 ,2):9600%:9800H& qq=(*3)+1  x(3) r=13 cl=(*12 )+1 r=qqcl=a(c,6)  x(r)=cl ^p$=r+" ":loc=55000+z(cl,1):l=z(cl,2):9600%:9700%:100d p$=""  r  8950" 04375-5*((cc>3)(cc<1))  x(cc)=a(c,6)4500  x(cc)a(c,6)4900$ & 0Ask For Help :#a(c,2)164440X D<p$="":loc=56098":l=15:9600%:9800H& N X<p$="":loc=561131:l=39':9600%:9800H& ],k$=a(c,3):p$=a$(c)+" says "+k$+" " b5loc=56152X:l=42*:9600%:9800H& l 4430N  Success <p$="":loc=561131:l=18:9600%:9800H& $a(c,2)=a(c,2)+10  $ Failure .<p$="":loc=55812:l=33!:9600%:9800H& 8$a(c,2)=a(c,2)-10 B  Main Menu =p$="":loc=55845%:l=102f:9600%:9700%  8950" 05025-5*((cc<0)(cc>4)) 5000+100d*cc   Bar Option  8900"  PRescue Marion Z 3700t d  MingleMenu  9050Z# &p$="You sit with "+a$(c):9800H& <p$="":loc=55968:l=86V:9600%:9700%  8950" 05325-5*((cc<1)(cc>4)) 4000+100d*cc t=t+15   BarPint "p$="" 'x=111 ,"a(x,5)=05440@ 1#a(x,4)>1p$=p$+a$(x) 6"a(x,4)=25500| ;"a(x,4)>25550 @x Jp$="You have "+m+" in gold" O 9800H& T p$="The time is "+ho+":"+min Y 9800H& Z t=t+2 ^ | DrinkPrint ?p$=a$(x):loc=55946:l=12 :9600%:9800H&  5440@  EatPrint ?p$=a$(x):loc=55958:l=10 :9600%:9800H&  5440@ p Reaction "a(c,2)<03200 cc=16050  #a(c,2)<156100 #a(c,2)>146150   Acceptance <p$="":loc=55756:l=23:9600%:9800H&  6070 <p$="":loc=55779:l=33!:9600%:9800H&  6070 XCharEatDrink ba(c,4)=(k>2)*2+(k<3)*7:a(c,1)=a(c,1)+(k<3)*4:a(c,2)=a(c,2)-(k>2)*2 l Free #a(c,2)=a(c,2)+2 <p$="":loc=55716:l=21:9600%:9800H&  7000X  6000p  t=t+5  Serve ;p$="":loc=55711:l=5:9600%:9800H&  7000X  6000p .m=m+(k<3)*15+(k>2)*5 ! t=t+5 & lRefuse q<p$="":loc=55737:l=19:9600%:9800H& r#a(c,2)=a(c,2)-2 s<p$="":loc=55812:l=33!:9600%:9800H& v 6000p { t=t+1  "Bar "$p$="":loc=55620D:l=36$ "$k=(*6)+1:9600% " 9800H& "<p$="":loc=55656h:l=557:9600%:9700% " 8950" "08930"-5*((cc<1)(cc>3)) "8000@+cc*100d " " EnterChoice #c$= # c$=""8960# #cc=c$ # #( CharEvent #2x1=(*10 )+2 #<x1>cn9200# #Fx12))p$=p$+"DRINK" %:(loc)=47/p$=p$+a$(c) %?(loc)=40(p$=p$+"YOU" %D(loc)=41)p$=p$+"THE" %I(loc)=42*p$=p$+"GET" %N (loc)=45-p$=p$+"SERVE" %S$(loc)=43+p$=p$+"DEAL WITH" %v 9630% %Get characters to p$ % x=1l %(loc)<4809500% %p$=p$+(loc) %loc=loc+1 %x % %0:6 %bx=1721:x,0;" ":x:l=p$:17,0; % x=1l &p$(1); & x=l9760 & &p$=p$(2) & x: &H6:1 &R<x=214:x,5;" ":x &\l=p$:3,5; &f x=1l &p?p$(1);:(x/22)=(x/22)""; &zx=l9870& &p$=p$(2) &x: & 9920& &#x=18:a:"A"+x,a:x &Q153,102f,153,102f,153,102f,153,102f &ʼx=164@:"";:x:x=113 :" ";:x:x=132 :"";:x:x=16:" ":x &'2:0:6:End So Far & 'Fa=550005621011 :a:b=aa+10 :b;" ";:b:a #GCODE ۀA LICENCE FOR ROBBERY( NEED A PICK ME UPWAIT FOR ) WORM) LITTLE BIRD KNOWSJOIN ) CLUBITS A SPICY PROBLEMTRAVEL BROADENS ) MINDLOCK ) WAY UP ) STEPSMUSIC IS ) KEYBITE (R LIP( NEED A BLANKET SOLUTIONART IS ALL BOSH, GET ) PEARLIN DUN DARACH, GET OUT OF ) GOBLINS DUNGEON IN ) HOBBIT, + )ADVENTUREQUEST SPHINX, + )SNAKE IN COLOSSAL ADVENTURE, * A GOOD JOB IN HAMPSTEAD, PASS ) GATEOF MORONA IN BORED OF ) RINGS, BREAK INTO MANHATTAN BANK IN SYSTEM 15000, * MY CAMERAIN TERRORMOLINOS, BREAK BASILS ALIBI IN SHERLOCK, TURN INTO )INCREDIBLE HULK, PUT OUT ) FIRE IN INCA CURSE ARRIVES IN & DECIDES TO LEAVE &/ WALKS UP TO ) BAR AND DEMANDS .1 - / ON ) HOUSE 2 - / FOR HARD CASH 3 REFUSE TO - /( - /( OFFER FREE . TO /( REFUSE TO - // ACCEPTS (R KIND OFFER/ THANKS ( FOR ) GENEROUS OFFER/ IS NOT VERY HAPPY WITH ( GORDO1 - AT ) BAR 2 RESCUE ) LADY MARION 3 MINGLE WITH ) CROWD 4 LOOK AROUND & IS DRINKING IS EATING1 OFFER FREE DRINK TO / 2 OFFER FREE FOOD TO / 3 OFFER (R HELP TO / 4 ASK FOR AID/ IS ALREADY EATING/ IS ALREADY DRINKING/ WILL NOT HELP/ LIKES ( GORDO AND AGREES TO HELPIS ONE OF ) LETTERS IN ) DUNGEON PASSWORDD HIERONYMUSTDec-Loaderh hjsAt the Sign of The Dancing Ogre from Sinclair User annual'86 Listing 1: decimal loader Vmodifications to make the typing a bit less tedious marked in . [JimG] 54999  z=0 x=55000 "Enter decimal code" x;":":c$:code c$2230 c=1212 !code=c$(cc+1) ( z=z+1 2x,code:code; <z=11 100d F" ";:code=0" "; Px=x+1:x=56221 Zc:30 d:2,"k":::"Check row against listing. If correct, press y. If incorrect, press n.":2,"s" n="y"150 x="n"160 =""110n 110n :z=0::80 z=0:80P #x=x-11 :z=0:20