Read Grand Thieves & Tomb Raiders Online
Authors: Rebecca Levene
However you choose to play, once the listing is complete and checked, press ‘R’ for ‘Run’, then ENTER, and enjoy the version of Snake that industry legend David Perry
wrote in 1983 – at the age of sixteen.
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; “
“
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; “MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM”
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; “
“
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
Once the game has been run for the first time, the code can be upgraded. In lines 430, 450, 510, 800 and 900, ‘M’, ‘O’, ‘T’ and ‘%’ can be
replaced by graphic characters – enter the ‘graphics’ mode by holding down the LEFT SHIFT key and ‘9’ while retyping the line; pressing the keys ‘A’ to
‘E’ will print more attractive alternatives directly into the code.
Over three decades, British games developers have published tens of thousands of titles, and in telling the history of the industry this book has been necessarily selective. We
don’t pretend to be canonical though – there are plenty of other titles that are rightly considered masterpieces of their time and would sit proudly in a more encyclopaedic tome.
Fortunately, it is still possible to play most of the games featured herein – as well as those left unmentioned – at very little cost, and many for free. The Internet is well stocked
with libraries of old games, and there are numerous websites which feature reviews and scans of magazines from the 8 and 16-bit eras. A large number of the older titles are considered
‘abandonware’ – games whose authors made no attempt to enforce their copyright, or have openly encouraged gamers to copy them. With emulators, a PC or Mac owner can easily replay
thousands of games, many of which once held a generation rapt with anticipation. What follows is a short guide on how to find and play them.
Pre-home computer era
The original
MUD
game can be played in a browser window at www.british-legends.com. For the technologically adept, the MUSH client (www.gammon.com.au/mushclient) is a
portal to a universe of multi-user games. A long dormant site for the MK14, complete with
an emulator, can be found at
www.robsons.org.uk/archive/members.aol.com/mk14emu/index.htm.