< < ? x x < ??< x @ = < < x<< p p p p p p < < ? ? < < x< < > < < x<< < x< < << x< < x?? < |< < p x
< < < > ?< < x< < << x<|< < x< < <> < p ?p > < < < > ?< ?< < ?< x<>< < x< < <> < p p p < < |?< < < x< < < x< x?< ?< < ?< x< < < x< < <?< p p < < ?> < < x< < |< x< x?< ?< < ?< x< < < x?? < < p p < < ?> < < x< < > < x< x=< ?< < ?< x< < x?? < < | p p < < ? ? < < x< < ?? < x< x<< ?< < ?< x< < x?? < < | M 3@ 2 t !H ! T @ ! R @ @ 0 "@ ? 2 @ @ x P
>'< @ " ? Ϙ " "( A @ * D@""" ( "" ȼ" A " ) E!)"2 L " (" ! GGGGFFFFFFFFFFFFFFFFGGGGGGGGGFFFFFFFFFFFFFFFFGGGGGGGGGFFFFFFFFFFFFFFFFGGGGGGGGGFFFFGGGGGGGGGFFFFGGGGGGGGGFFCCGGGGGFGGFFFCCGGGGGFGGFFFCCFGGGFFGGFFFFFFGGGFFGGGGGFFGGGGGFFGGGGGFFGGGGGFFGGGGGFFGGGGGFFGGFFGGGFGGGGFFGGGFGGGGFFGGGFGGGGFFGGGFGGGGFGGGGGGGGGFGGGGGGGGGFFFFFFFFFGGGGG tallyron [d [d]d t(s
)=65323 + :k(l=64l)=64985 :c(lm)=l,m=64m)=64898 :i(s$, ,r$) )=64668 :s(o ,s$) )=64425 :b(s 2 ,f c ,n )=64240 :d(s w ,f )=64194 :r(s 2 ,f c ,n ,i )=63384 :h(os)=o,s=63s)=63279 / :l(l )=62775 7 :v(o )=62847 :m(o )=62469
The Wizard of Tallyron by Mike Turner & the Star Dreams team. STAR DREAMS 1986 For the background story you require a copy of Computer &Video Games magazine April 1986
X=7 :Y=10
9 0 :7 ::10
,0 ;"DATA IS LOADING"
"MAP"A()
:"PLEASE WAIT"
1000
d9 N=2 5 :N,6 ;O$(6 31 ):N:
i X1=X:Y1=Y:23658 j\ ,8 :.2~L,1 :0 ,0 ;"Which direction? ";u$ :u$<1 űu$>2 105 i
n! U$="N"X1=X-1 :128
p! U$="S"X1=X+1 :128
r! U$="W"Y1=Y-1 :128
t! U$="E"Y1=Y+1 :128
v0 U$="NE"Y1=Y+1 :X1=X-1 :128
x0 U$="NW"Y1=Y-1 :X1=X-1 :128
z0 U$="SW"Y1=Y-1 :X1=X+1 :128
{0 U$="SE"Y1=Y+1 :X1=X+1 :128
|+ U$="R"1500 :1400 x :128
}M U$="I"500 :3000 :Q=1 100 d :Q:550 & :128
~M U$="U"500 :3500
:Q=1 100 d :Q:550 & :128
105 i
r A(X1,Y1,2 )=0 #0 ;"YOU CAN'T GO INTO THE WATER!":.5,4 :1 ,-4 :105 i
X=X1:Y=Y1
I=-1 1 :Q=-1 1 :C=A(X+I,Y+Q,1 ):2 +I*2 ,2 +Q*2 ;(QI);1 ;C$(C+1 );3 +I*2 ,2 +Q*2 ;C$(C+1 ):Q:I
C=A(X,Y,2 )
F 0 ,6 ;"YOUR PRESENT LOCATION IS;":1 ,6 ;A$(C)
C16 100 d
4 ,10
;"BUT LONG!":N=21 60 < :.01z#
=,N+2 :.01z#
=,N-2 :.001wn,N:N:4 ,10
;" ":X=7 :Y=10
:150
] 6 ,0 ;"":N=7 21 :N,0 ;O$:N:
8 z$=" Gold Pieces":GP=1 z$=z$(1 11 )
< 21 ,0 ;o$;21 ,3 ;"You have ";GP;z$:
B 10
,0 ;"You already have 100% Life Force":9555 S%
&) L=16 21 :L,0 ;O$:L:
8000 @
6000 p
P 23658 j\ ,8 :A(X,Y,1 )=3 500 :1100 L :1050
; A(X,Y,1 )=7 500 :5000 :1040
; A(X,Y,3 )=1 500 :4000 :1050
; A(X,Y,3 )>2 1300 :500 :1050
; A(X,Y,3 )=2 500 :4500 :1050
1400 x
1020
K2 Village Options
L 8 ,8 ;"OPTIONS"
N5 6 ,0 ;""
Q/ 7 ,0 ;O$;10
,8 ;"M)ove"
V 12 ,8 ;"R)eport"
` 14 ,8 ;"H)ealer"
j) 16 ,8 ;"G)uild of Magicians"
t# 18 ,8 ;"T)rading Post"
y$ 20 ,8 ;"S)ave Position"
~3 "M"Ʀ"S" "R"Ʀ"H"Ʀ"G"Ʀ"T"1150 ~
="M"500 :1400 x :
="R"1500 :
="H"1600 @ :
="G"1700 :
="T"1800 :
_ ="S":"Ready tape,then press any key":4E4 @ :"tallyron"1010 :1 ,1 :
) Combat
A(X,Y,3 )<3
C T5=A(X,Y,3 ):M$=B$(T5):AC=M(1 ,T5):DAM=M(2 ,T5)
/ T5=5 T5=7 M1=2 :1309
$ T5=9 M1=3 :1309
M1=1
D(M1)
M1=0
#; INIT=(*2 ):U(M1):N=1 M1:U(N)=100 d :N
%5 1322 * :INIT1360 P :M1L$"R"2000
& INIT2000 :1360 P
' M1=0 PRO=0 :A1=(*M(4 ,T5)):500 :13
,0 ;"You find ";a1;" Gold Pieces!":Q=1 100 d :Q:GP=GP+A1:500
( L$="R"M1=0 :500
) 1317 %
*& N=7 14 :N,0 ;O$:N
+J 6 ,0 ;"":7 ,0 ;O$
-) 8 ,6 ;"YOU ARE ATTACKED BY:"
2 10
,6 ;"A) ";M$
7( M1=2 12 ,6 ;"B) ";M$
<( M1=3 14 ,6 ;"C) ";M$
A6 15 ,0 ;""
K
P Fight or Run
Q, A(X,Y,1 )=7 L$="F":1385 i
R 550 &
U 17 ,10
;"OPTIONS"
Z 19 ,10
;"F)ight"
_ 21 ,10
;"R)un"
d# L$=:L$"F" L$"R"1380 d
i; L$="F"N=16 21 :N,0 ;O$:N:2500
n; L$="R"N=16 21 :N,0 ;O$:N:1900 l
p( FLAG=1 FLAG=0 :1300
t
w Move
x 8 ,10
;"NW N NE"
/ 11 ,10
;"W";11 ,18 ;"E"
14 ,10
;"SW S SE"
100 d ,68 D
30 ,30
130 ,68 D
-30 ,30
115 s ,64 @
0 ,38 &
95 _ ,83 S
40 ( ,0
16 ,2 ;"Enter the letter(s) of the direction you wish to move (or 'R' for report - 'I' to incant a spell - 'U' to use an item)"
105 i
I A(X,Y,1 )=3 A(X,Y,1 )>5 A(X,Y,3 )>1
( T5=(*50 2 )+1 :T5>9
d M$=V$(T5):AC=M(1 ,T5+9 ):DAM=M(2 ,T5+9 ):M1=1 :T5>5 M1=2
T5=T5+9 :1309
) Report
500
Q=1 3 : Q*4 +4 ,0 ;"Name ";N$(Q);20 ;"L.Force ";F(Q);"%"'"Weapon ";D$(Q);24 ;"A/C ";Z(Q)'"Armour ";E$(Q):F(Q)Q*4 +4 ,20 ;" DECEASED "
Q
9555 S%
" 500
,/ 8 ,2 ;"SPELLS KNOWN | OTHER ITEMS"
1U 9 ,0 ;:N=1 6 :1 ;N;" ";T$(N);15 ;"| ";P$(N):N
2% 17 ,3 ;"GOLD PIECES ";GP
4% 19 ,3 ;"EXP. POINTS ";EP
6 9555 S% :500 :
?* Healer
@ 500
E- 8 ,3 ;"WHO WISHES TO BE HEALED?"
JP 10
,7 ;"0) NO-ONE"'':N=1 3 :7 ;N;") ";N$(N)'':N
O! I$=:I$<"0"I$>"3"1615 O
Q
I$="0"
R I=I$
T# 500 :8 ,6 ;N$(I)
V' F(I)=100 d 530 :1600 @
Y F(I)=0 1680
^ 13
,0 ;"You may be healed for 1 Gold Piece per % Life Force";10
,0 ;"Your Life Force is currently"'f(I);"%";17 ,0 ;"Enter no. of points to be healed"
cH 0 ,0 ;F$ :N=1 ̱F$:F$(N)<"0"F$(N)>"9"1635 c
r1 N:NR=F$:T3=NR+F(I):T3>100 d 1635 c
t NR=0 1600 @
w NR>GP9500 % :1630 ^
| GP=GP-NR:F(I)=F(I)+NR
1500 :1600 @
Resurrection
10
,0 ;"I can resurrect you and restore you to 25% Life Force for 500 Gold Pieces";14 ,2 ;"Will you accept? (Y or N)"
"Y"Ʀ"N"1690
="N"
GP<500 9500 % :
8 GP=GP-500 :F(I)=25 :1500 :1600 @
3 Magicians Guild
& S=6 G$="SPELLS":9550 N% :
500
9 ,10
;"WELCOME";12 ,5 ;"To our humble Guild";14 ,10
;N$(3 );16 ,5 ;"WIZARD of TALLYRON"
9555 S%
500
1 8 ,6 ;"SPELLS AVAILABLE":T3=1
E 11 ,2 ;"1) ";X$((A(X,Y,2 ))-8 );" (1st Level)"
EP>999 A(X,Y,2 )<12 S2<2 12 ,2 ;"2) ";X$((A(X,Y,2 ))-3 );" (2nd Level)":T3=2
F 20 ,2 ;"Press no. of spell required or '0' to leave."
"0"Ʀ"1"Ʀ"2"1720
="0"
="2"T3=1 1720
k ="1"S$(S+1 )=X$((A(X,Y,2 ))-8 ):T$(S+1 )=Y$((A(X,Y,2 ))-8 ):1780
n ="2"S$(S+1 )=X$((A(X,Y,2 ))-3 ):T$(S+1 )=Y$((A(X,Y,2 ))-3 ):S2=S2+1
T 16 ,0 ;"The command word for this spell is ";T$(S+1 ):S=S+1
Z 20 ,0 ;O$;21 ,0 ;O$:9555 S% :1570 " :S6 1704
1700
Trading Post
500
4 8 ,6 ;"WHO WISHES TO TRADE?":510
P 10
,7 ;"0) NO-ONE"'':N=1 3 :7 ;N;") ";N$(N)'':N
! I$=:I$<"0"I$>"3"1815
I$="0"
I=I$
500 :8 ,6 ;N$(I);10
,6 ;"DO YOU WANT TO BUY";12 ,6 ;"0) Nothing";14 ,6 ;"1) Weapons";16 ,6 ;"2) Armour":I=3 18 ,6 ;"3) Other Items"
510
!4 I$=:I$<"0"I$>"4"(I$="4"I3 )1825 !
& I$="0"1800
+* 9000 (# +I$*100 d :1820
k& Run
l_ V=(*10
)+1 :V>6 18 ,6 ;"YOU CAN'T ESCAPE":L$="":9555 S% :
q X1=X+(*11 )-5 :Y1=Y+(*11 )-5 :(X1=XY1=Y)X1<3 X1>14 Y1<3 Y1>14 1905 q
{ A(X1,Y1,1 )1905 q
' X=X1:Y=Y1:150 :FLAG=1 :
Monsters Attack
550 & :N=1 M1
I D(N)17 ,0 ;"The ";m$(3 )'" sleeps on...":2030
: A1=(*(3 -PRO)+1 ):F(A1)=0 2015
A=(*20 +1 ):A19 -Z(A1)DAM1=(*M(2 ,T5)+1 ):17 ,0 ;N$(A1);18 ,0 ;"has been hit":F(A1)=F(A1)-DAM1:F(A1)<1 19 ,0 ;"and is dead":F(A1)=0 :F(1 )F(2 )PRO=0
N A<19 -Z(A1)17 ,0 ;"The ";M$(3 )'"has missed ";N$(A1)
& Q=1 100 d :Q:550 & :N
F(3 )=0 9600 %
2 20 ,1 ;"DO YOU WANT A STATUS REPORT?"
"Y"Ʀ"N"2040
="N"
1500 :INIT1323 +
Players Attack
8 N=1 3 :B(N)=1 :N3 2515
Γ 550 & :17 ,11 ;N$(N);19 ,6 ;"U)se an item";20 ,6 ;"I)ncant a spell";21 ,6 ;"A)ttack with weapons"
( K$=:K$"A"K$"I"K$"U"2511
( K$="I"3000 :K$="I"2535
( K$="U"3500
:K$="U"2535
K$="Z"550 & :2510
% F(N)=0 M1=1 2535
W 550 & :17 ,11 ;N$(N);19 ,0 ;"Which monster will you fight?"
, K$=:K$<"A"K$>(M1+64 @ )2520
B(N)=K$-64 @
N:550 &
(: N=1 3 :F(N)=0 B(N)=0 2620 <
*U(B(N))>0 A=(*20 +1 ):A19 -ACD(B(N))DAM1=(*G(N)+1 ):17 ,0 ;N$(N)'"hits the ";M$(3 ):U(B(N))=U(B(N))-DAM1:U(B(N))<1 19 ,0 ;"and kills it":U(B(N))=0 :EP=EP+M(3 ,T5):2615 7
-T U(B(N))A<19 -ACD(B(N))17 ,0 ;N$(N)'"misses the ";M$(3 )
7 Q=1 100 d :Q
< 550 & :N
Al L1=M1:N=1 M1:U(N)<1 M1=M1-1 :U(N)=0 :N