ZXTape!Valhalla A A9C 1000  ( 1500 2 9000(# <%year=1:se=1:h=0 F 2000 P 9000(# Z 2500 d 9000(# n 3000 x 9000(# se=24000 se=se+1 se=4year=l5000 se=49900& 70F ,a(4,5):f(4):p(4) x=14 y=15 a(x,y)=(-)/5 y p(x)=(*502+1) $x .l=(*6)+3 8*n$(4,4):p$(4,6) B 9500% Lx=14 Vi$ `j$ j n$(x)=i$ t p$(x)=j$ ~x  "THE ROAD TO VALHALLA" '"You have emigrated from the"'"kingdom of Norway to Iceland. Landing at Helmsdale, you found a settlement in true Viking"'"fashion." ,-"After the long, stormy voyage, you are "; 6-l>6"still in the best of"'"health." @,l6l>5"in moderate health." J5l5l>4"rather the worse for"'"wear." T+l4"in a poor state of"'"health." h"You know the time has come to think seriously of the after- life. You must increase your"'"honour so you can reach Valhallawhen the time comes." "You alter your honour in your dealings with the other four"'"clans of settlers, led by Thor, Odin, Olaf and Lars. You also gain honour by increasing your worldly wealth.";   se=1"Spring"; se=2"Summer"; se=3"Autumn"; se=4"Winter"; " of year ";year '"Your possessions are:"  x=14 *p(x);" ";p$(x) 4x > H n=0 Rx=14 \"a(x,1)>05500| fx pn>05600 z   "These are your options:" ."1. Give away some of your"'" possessions" "2. Do nothing" #"3. Steal somebody's possessions" ""4. Kill somebody's possessions" "Which do you want?" j &j<1j>4jɺj2500  j=j-2 ( n=0 2 k=0 <j05800 Fn0f(n)=(f(n)-j) Pj=-16000p Zj=16100 dj=262008 nx=14 xx=n2710 6a(x,1)=a(x,1)-j*k*a(x,n+1)/5 0h=h-(a(x,1)*j*k*a(x,n+1))/2 x  x=14 s=(*4)+1 6500d y=14 5t1a(t-1,s)=a(t-1,s)-j*k*a(y,t) y t=1f(x)=(f(x)+j) x s=(*4)+1  7000X   /'"Do you want to go to the moot this year?" a$ 4a$""a$(1)"Y"a$(1)"y"9000(# *a$""a$(1)"Y"a$(1)"y"  B"At the moot, you can settle yourdifferences with any one clan."  x=14 x;". ";n$(x) x ""Which one do you want?" ,a 6&a<1a>4aɺa4060 @f(a)=0 Ja(a,1)=*2 ^'"It is the end of the moot. The chief of the Althing from"'"Reykjavik approaches you and"'"tells you that as far as your honour is concerned, you are"'"doing "; h>0"fine." h=0"averagely well." h<0"badly."  9000(#  x=14 h=h-f(x)+p(x)/15 x *'"You have reached the end of yourlife." d=1+*2 h>d"Valhalla welcomes you." 'h1"Long may you rot in Hel!" '"Do you wish to play again?" a$ *a$""a$(1)="Y"a$(1)="y"  10000' | n=n+1 n=1f$=n$(x)  n=2f$=n$(x)+" and "+f$ n>2f$=n$(x)+", "+f$  f$; n=1" has"; n>1" have"; " sent good wishes."  x=14 x;". ";n$(x) x "Which one do you want?" n 2n<1n>4nɺnn=(*4)+1 x=14 x;". ";p$(x) x "Which type of possession?"  k 2k<1k>4kɺkk=(*4)+1   png=(*p(k)+.9ffff) ,'n$(n);" thanks you for the ";ng'p$(k);"." p(k)=p(k)-ng #a(n,1)<0h=h-1 %a(n,1)0h=h+7.5p a(k,1)=a(k,1)+k  ns=(*40(+1) 2"We have stolen ";ns;" of ";n$(n);"'s"'p$(k);"." p(k)=p(k)+ns 3a(n,1)0h=h-(a(n,1)+.2~L) %a(n,1)<0h=h+1.5@ %a(n,1)=a(n,1)-1.5@  8nk=(*502+1) L2"We have killed ";nk;" of ";n$(n);"'s"'p$(k);"." V;a(n,1)0h=h-2*(a(n,1)+.5) `%a(n,1)<0h=h+2.5 j#a(n,1)=a(n,1)-3 t dt=(*4)+1 nt=s+16500d xd=a(s,t)+(-)/10 d<.01z# =j=1 d<-3j=2 d.01z# = j=1s$="stole" j=2s$="killed" k=1+(a(s,t)) k>4k=4 t=17400 t17500L )n$(s)+" "+s$+" "+q+" of "+w$+p$(k)+"."  X'a(s,1)+(-)/10 0 bq=(*502)+1 lk=(*4)+1 v p(k)=p(k)+q %n$(s);" sends you ";q;" ";p$(k);"." f(s)=f(s)-1  q=(*p(k)+.9ffff) p(k)=(p(k)-q)  w$="your "  Lq=(*502)+1 Vw$=n$(t-1)+"'s " ` #('"Press A Key To Continue" #<=""9020<# #F #P %"Thor","sheep" %&"Odin","cattle" %0"Olaf","horses" %:"Lars","serfs" & se=1 &year=year+1 & 2