-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+ Vepth )) or X (( r = 3 ) and ( screen`5Bx,y-1`5D = slime_d Vepth )) or X (( r = 4 ) and ( screen`5Bx,y+1`5D = slime_d Vepth )); X END; X END; X CASE r of X 1 : x_alien`5Bnu`5D := x - 1; V `20 X 2 : x_alien`5Bnu`5D := x + 1; V `20 X 3 : y_alien`5Bnu`5D := y - 1; V `20 X 4 : y_alien`5Bnu`5D := y + 1; V `20 X End; `7Bcase`7D X X x := x_alien`5Bnu`5D; X y := y_alien`5Bnu`5D; X screen `5Bx,y`5D := slime_depth - 1; X IF ( number_times = count ) then X BEGIN X ok := true; X FOR i := 1 to number_of_aliens do X IF alien_alive`5Bi`5D and (i <> nu) and (x = x_alien V`5Bi`5D) and (y = y_alien`5Bi`5D) Then X ok := false; X IF ok Then X BEGIN X posn (x,y); X qio_write ('#'); X END; X END; X IF ( x_posn = x ) and ( y_posn = y ) then X person_killed := true; X END; X END; X END; X END; XEND; X X XBEGIN X Initialize; X setup; X REPEAT X IF ( gold_here < 4 ) then X setup; X sleep_start (20); X get_command; X move; X IF rock_fall then X drop_rock; X create_aliens; X move_aliens; X posn (1,1); X sleep_wait; X UNTIL ( person_killed ) or ( upper_case(command) = 'Q' ); X Finish; XEND. $ CALL UNPACK MOLE.PAS;1 2013486969 $ create 'f' X`1B`5BH`1B`5BJ`1B(B`1B`5B0m X`1B`5B1;1H`1B#6 `1B`5B7m `20 X`1B`5B2;1H`1B#3`1B`5B0m `1B`5B7m `1B`5B0m M O L E - K I L L E R `1B`5B V7m`20 X`1B`5B3;1H`1B#4`1B`5B0m `1B`5B7m `1B`5B0;1m M O L E - K I L L E R `1B` V5B0;7m`20 X`1B`5B4;1H`1B#6`1B`5B0m `1B`5B7m `20 X`1B`5B5;1H`1B#6`1B`5B0m`1B(0lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk X`1B`5B6;1H`1B#6x A`1B(Bnother Software Group Production `1B(0x X`1B`5B7;1H`1B#6x`1B`5B7;40Hx X`1B`5B8;1H`1B#6x `1B(B Paul Denize `1B(0x X`1B`5B9;1H`1B#6x`1B`5B9;40Hx X`1B`5B10;1H`1B#6x M`1B(Bove using the number key pad and `1B(0x X`1B`5B11;1H`1B#6x`1B(B dig out under the rocks causing them `1B(0x X`1B`5B12;1H`1B#6x `1B(Bto drop on the moles, being carefull `1B(0x X`1B`5B13;1H`1B#6x `1B(Bnot to drop them on yourself. `1B(0x X`1B`5B14;1H`1B#6x`1B`5B14;40Hx X`1B`5B15;1H`1B#6x T`1B(Bhe Moles will appear after you have `1B(0x X`1B`5B16;1H`1B#6x 10 `1B(Bpoints giving you a chance to get `1B(0x X`1B`5B17;1H`1B#6x `1B(Bwell away to start with. `1B(0x X`1B`5B18;1H`1B#6x`1B`5B18;40Hx X`1B`5B19;1H`1B#6x T`1B(Bhe screen will be refilled when you `1B(0x X`1B`5B20;1H`1B#6x `1B(Bhave cleared a certain amount of it. `1B(0x X`1B`5B21;1H`1B#6x`1B`5B21;40Hx X`1B`5B22;1H`1B#6x`1B`5B22;13H`1B(B`1B`5B1mPress <`1B`5B5mReturn`1B`5B0;1m>`1 VB`5B22;40H`1B`5B0m`1B(0x X`1B`5B23;1H`1B#6mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj`1B`5B1;1H X`1B(B`1B* $ CALL UNPACK MOLE.PIC;1 1331720211 $ v=f$verify(v) $ EXIT