X.* DEMOLITION * by * GORDON CROOK * 1989 hom () "H"$cl () "E" hom9bel ()co()"e"cof()"f")(ro()"p"rof()"q"02gro ()"b"(?)()"c"()/<grof()"b"()()"c"();F a(,)()"Y"( )( )aP windo(,,,)()"X"( )( )( )( )>Zwindo(,,,Z)clcogrofrofd (n (),(),c()x cof8y a(,)"WHAT COLOUR OF SCREEN DO YOU WANT?"Kz a(,)"TYPE 'G' FOR "ro" GREEN "ROF" / 'B' FOR BLACK" {au| a""au} a"g" gro ~cl ^  cl    randomize positions ({)8 a(,)"* JUST A MO WHILE I BUILD A WALL *"   ()(}())"  ,  @"6 ()() @J  T ^h data bankrw ({)|da(}())   t      t  (). ROSE,TULIP,PETUNIA,DAISY,VIOLET,SALVIA % SHIP,CAR,TRAIN,PLANE,BIKE,TAXI2 SPAIN,FRANCE,SCOTLAND,ENGLAND,WALES,IRELAND, TV.,FRIDGE,HI.FI.,SOFA,COMPUTER,TABLE" WIND,RAIN,SNOW,SUN,HAIL,FOG) DOG,CAT,RABBIT,PARROT,HAMSTER,FISH print grid& GOTO 12400 windo(,,,Z):   D a(,)(W,)NXUb  l    vL a(,)()a(,)()a(,)().     P  b         T + roa(,)rof  pick bit of wall ()/* windo(,,,0)cl/4"PICK A BIT OF WALL TO DEMOLISH "i"?">%H"TYPE NUMBER THEN RETURN ",}R() ()() a(,) belcl"YOU CAN'T USE THE SAME NUMBER. PLEASE TRY AGAIN" 4^\   belcl"ONLY NUMBERS 1-12 ALLOWED. PLEASE TRY AGAIN" 4f c  `p c(c) bel cl"THAT BIT OF WALL IS ALREADY DOWN. TRY AGAIN" 4z  !g()(())  *" windo(,,,0)cl cof' g()g()    demolish chosen bit         $   .8   B  DLV   `  &j-t clwindo(,,,)cl9~ a(,((())))(())H()() window variables to close in 4000 correct choicexc()()c()() give cw a value to check if w has been used (880)F ipl() s()s()  s()s()  !windo(,,,0)clb s() s() (,)a(,)"WELLDONE "i" YOU ARE THE WINNER!" ] s() s() (,)a(,)"EVEN STEVEN FOLK'S A DRAWN GAME!" 1 (,)"WELLDONE "i" CORRECT CHOICE""YOUR GO AGAIN."     )( wrong choice/rebuild holes in wall2J< belroa(,)" HARD LUCK END OF YOUR GO "i" "rofDF ipl() ipl()  ipl()P  Z3d windo((),(),,)cl-n windo((),(),,)x   a(,)(,)F () () () () K a(,)()a(,)()a(,)()a(,)()M a(,)()a(, )()a(,)()a(, )()* a(,)()a(, )()  K a(,)()a(,)()a(,)()a(,)()= a(, )()a(, )()a(, )(); a(, )()a(,)()a(,)()) a(,)ro()rof  Z   details of players#" windo(,,,>)cl,  = 6    @ a(,)"*"J   T  = <^a(,)"*"h windo(,, ,.)   clA a(,)"TYPE NAME OF PLAYER "" (12 letters max)"0"TYPE NAME HERE THEN RETURN.",pl()> (pl()) pl()"" bel "pl()%(pl())  ,' pl()pl()   J belrocla(,)" YOU CAN'T HAVE TWO NAMES THE SAME."!" PLEASE TRY AGAIN."rof  &0 rebuild wall:#D windo(,,,>)clN windo(, ,,B)X   b a(,)(C,)l!vA      ' < a(,)()L a(,)()a(,)()a(,)() -    <   windo(,,,Z) scoreboard $ cofwindo(,2,,()N  a(,)()($,)()a(,)ro"*SCOREBOARD*"rof*  4  & %> a(,)()H'R a(,)()($,)()f windo(,4,,#)3p a(,)"PRESS ANY KEY FOR ORDER OF PLAY"!z u""(}())  ipl()"clwindo(,2,,()^ a(,(pl()))pl()" "s()a(,)pl()" "s()  demolish wall/end of gameFwal()windo(,,,B)wal()windo(,B, ,,)Gwal()windo( ,,,A)wal()windo(,, ,A)Gwal()windo(,7,,#)wal()windo(,,,8)     wal()cl   $ end. !8 windo(,,,0)cl#B "WELL THAT'S THE WALL GONE"-L "ANOTHER GAME "ro"(Y/N)"rof" ?" V au` a""auj a"y" o a"n" t "~ control of data lines (700)  da   da!  da"  da#  da$  da%  da!  da"