Grand Thieves & Tomb Raiders (48 page)

20 GO SUB 210

25 REM ***Start display

30 LET I=0: INVERSE 0: BRIGHT 0: FLASH 0: BORDER 0: PAPER 0: INK 7: CLS

­40 PRINT “ 
”

­50 PRINT “ 
”

­60 PRINT “ 
”

­70 PRINT “ 
”

­80 PRINT “ 
”

­90 PRINT “ 
”

­100 PRINT “ 
”

110 PRINT AT 14,1; “Use keys Q,Z,I&P for up, down.”: PRINT “ left and right. Each time you”: PRINT “ eat a toadstool the
snake will” : PRINT “ grow longer.”: PRINT “ BE CAREFUL NOT TO BUMP INTO”

120 PRINT “YOUR OWN BODY OR THE FENCE!!!”

130 PRINT :PRINT INK 3;“GOOD LUCK”

140 PRINT AT 10,6; INK I; “ENTER LEVEL OF PLAY”

150 PRINT AT 12,11; INK I/2; “(1 TO 9)”

155 REM ***Input Level

160 LET A$=INKEY$: IF A$=“” THEN LET I=I+1: IF I>7 THEN LET I=0

170 IF A$<“1” OR A$>“9” THEN GO TO 140

180 LET L=VAL A$

190 INK 0

200 GO TO 350

205 REM ***User defined Chrs

210 FOR A=1 TO 5

220 READ A$

230 FOR N=0 TO 7

240 READ B

250 POKE USR A$+N, B

260 NEXT N

270 NEXT A

280 DATA “A”,189,102,195,153,153,195,102,189

290 DATA “B”,0,60,126,153,24,24,24,24

300 DATA “C”,90,36,189,102,102,189,36,90

310 DATA “D”,0,34,34,85,85,85,136,136

320 DATA “E”,28,96,28,3,26,96,28,3

330 LET HS=0

340 RETURN

350 LET B$=“p”

360 BORDER 7

370 PAPER 7

380 LET A=0

390 LET SC=0

400 CLS

405 REM ***Screen set up

410 PRINT AT 0,0; INK 1; “”; INK 5; “”; INK 1; “M>”; INK 2; “SNAKE”; INK 1;
“” AND HS <100); “HI-SCORE: ”;HS;(“>” AND HS<100)

420 FOR N=1 TO 20

430 PRINT AT N,0; INK 1; “M M”

440 NEXT N

450 PRINT AT 21,0; INK 1; “MMMMMM­MMMMMMMMMM­MMMMM­MMMMMM­MMMMM”

460 LET X=20

470 LET Y=19

480 LET A$=“”

490 FOR N=10 TO 19

500 LET A$=A$+“10”+STR$ N

510 PRINT BRIGHT 1; INK 2;AT 10,N; “O”

520 NEXT N

530 GO SUB 800

540 LET D$=INKEY$

545 REM ***Key input

550 IF D$=“p” OR D$=“q” OR D$=“i” OR D$=“z” THEN LET B$=D$

560 LET X=X+(B$=“z”)-(B$=“q”)

570 LET Y=Y+(B$=“p”)-(B$=“i”)

580 IF X=21 OR X=0 THEN GO TO 850

590 IF Y=31 OR Y=0 THEN GO TO 850

600 IF ATTR (X,Y)=122 OR X=22 OR Y=32 THEN GO TO 830

610 GO SUB 750

620 LET C$=STR$ X

630 IF X<10 THEN LET C$=“ ”+STR$ X

640 LET D$=STR$ Y

650 IF Y<10 THEN LET D$=“ ”+STR$ Y

660 LET X1=VAL A$( TO 2)

670 LET Y1=VAL A$(3 TO 4)

680 IF ATTR (X1,Y1)<>122 THEN GO TO 700

690 PRINT AT X1,Y1;“ ”

695 REM PRINT SNAKE

700 PRINT BRIGHT 1; INK 2; AT X,Y;“O”

710 LET A$=A$+C$+D$

720 IF A=0 THEN LET A$=A$(5 TO )

730 LET A=A-(A>0)

740 GO TO 540

750 LET M=ATTR (X,Y)

760 IF M<>60 THEN RETURN

770 LET A=A+L

780 LET SC=SC+L

790 PRINT AT 0,0; INK 5; “”; INK 1; “M>”; INK 2 ; “SNAKE”; INK 1;
“” AND HS <100)

800 PRINT PAPER 7; INK 4; AT INT (RND*10) +2, INT (RND*29) +2; “T”

810 FOR n=50 TO -20 STEP -10: BEEP .01,n: NEXT n

820 RETURN

830 LET X=X-(X=22)+(X=-1)

840 LET Y=Y-(Y=32)+(Y=-1)

850 FOR F=50 TO -20 STEP -5: BEEP .02,F: NEXT F

855 REM ***End of game

860 IF SC>HS THEN LET HS=SC

870 PRINT AT 10,10; “HIGH SCORE: ”; HS

880 PRINT AT 12,11; “Press a key!”

890 LET I=0

900 PRINT AT X,Y; INK 1; “%”: BEEP .01,I*2

905 REM ***Print scores

910 PRINT AT 8,6; INK 1; FLASH 1; “>You scored ”;SC;“ points.<”

920 LET Q$=INKEY$: IF Q$=“” THEN LET I=I+1: IF I>7 THEN LET I=0

930 IF Q$=“” THEN GO TO 900

940 CLS

950 GO TO 30