260 Ip W>0O

The Wizard's Wall

all the Wizard built to surround his secret stronghold is no ordinary
ai Te stones in it are people, petrified by the Wizard's angry stare, and, ki
what's more, it can move. If you can breaka hole through it with yourtrusty —.
catapults which fling gigantic boulders, you will destroy the Wizard's H.
magic powers and turn the stones back into people again. There are

vy

problems though - the Wizard is working on a spell which stops missilesin bu Š

mid-air and sends them back where they came from. Sometimes he can a si
makeitwork... ».

If you don't succeed, you will become just another stone in the Wizard's
— Wall!!!

Za810 CLS
! 20 PRINT "WIZARD"'S WALL"
30 PRINT

40 PRINT "DO YOU MANT ANY HELP?"
SO INPUT I$

60 IF I$(1)<"y" THEN GOSUB 740
70 PRINT "DIFFICULTY?"

BO PRINT "(S—EASY, i<DIFFICULT)"
90 INPUT O

100 DIM W(8,8)
110 DIM E(8)

120 FOR ys<1 TO 8
150 FOR x<1 TO 4
140 LET W(X,Y)<20
150 NEXT x

160 NEXT y

170 LET z<o

180 FOR csi To x

190 LET D<— INT (RND480121)
| 200 GOSUB 430

po IF Z<1 THEN Goro 1150
o ponika. ARE ";D5" YARDS AWAY"
1 —INT (RND41) -20
He IF W<0 THEN PRINT "NO WIND"

IF W<O0 THEN PRINT "WIND TO RIGHT"
THEN PRINT "WIND TO LEFT".:

J

"270 PRINT

z "SIVE ELEV -90) "
HE5o inu; a ATION (1-90)

290 PRINT

"GIVE SPEED"

 —-—-s - -

300 INPUT V ng oma

ga ke? az. hi

zo LET NETANCA) x D-M) — (5% (D-W) 52) / (VsCOS(A) ) 72

T H<INTI(H/0)

nan pe H>O AND H<9 THEN GOSUB 540 m

z5O0 IF H<1i THEN PRINT "SHOT WAS TOD NEAR

z60 IF H>8 THEN PRINT "SHOT WAS TOO FAR"
knae370 IF RND>.2 THEN GOTO 200

380 PRINT "THE WALL HAS MOVED..."

390 NEXT C

400 PRINT "YOU HAVE BEEN TURNED"

410 PRINT "INTO STONE"

420 STOP

kXuae43O0 FOR I<i TO 3O
440 NEXT I
48450 CLS
460 PRINT
470 FOR Y<8 TO 1 STEP -i
480 FOR X<1 TO 8
kN4a0490 PRINT CHR$(W(X,Y));
500 NEXT X
510 PRINT
520 NEXT Y
530 RETURN
540 GOSUB 650
550 LET W(E(HI-1,H)-0
560 IF VxCOS(A) >50 THEN LET W(E(H)
kmae570 IF RND>.5 AND 1

H<>1 THEN LET Wi mi
kmae580 IF RND>.5 AND Nk k min

H>5 AND H<8 THEN LET
WCEKHti)-i1,Ht1)<o

590 IF H>1 THEN GOTO 630
evo: et Y<2 TO 8
F RND<.5 T
ZO, NEKI. V HEN LET W3(E(Y)-1, v)co
650 GOSUB 650
640 RETURN
660 LET Xz1
670 IF Wix na iš
plednjadni Me Ji 9 OR x<8 THEN Goro 700
690 GOTO 670
700 LET E(X)<xXY

ge