AMSTRAD cpc 6128 - Electric Fencing

Electric fencing
Try to 'foil' your opponent! For two players only. Keyboard or Joysticks.
10 'ELECTRIC FENCING by ALEXANDER MARTIN
20 'copyright (c) AMSOFT 1985
30 '
40 DEFINT a-z
50 MODE '0
60 GOSUB 980
70 GOSUB 1370
80
GOSUB 270
90 GOSUB 1520
100
GOSUB 1370
110
GOSUB 1270
120
'
130 '
140 REM start
150 IF finished THEN GOTO 100
160
GOSUB 240
170
FRAME:IF p1dir THEN GOSUB 570 ELSE FRAME:FRAME
180 FRAME:IF p2dir THEN GOSUB 620 ELSE FRAME:FRAME
190 IF p1sa=-1 THEN GOSUB 670
200
IF p2sa=-1 THEN GOSUB 720
210
GOTO 140
220
'
230 '
240 IF THEN 380 ELSE 480
250
'
260 '
270 CLS:PEN 6
280 PRINT:PRINT" CHOOSE CONTROL"
290 PRINT:PRINT:PRINT:PRINT"press J/K then ENTER"
300 LOCATE 4,10:PRINT"JOYSTICK";TAB(5);"OR KEYS"
310 LOCATE 12,10:IF j THEN PRINT"*":ELSE PRINT" "
320
LOCATE 12,11:IF j THEN PRINT" ":ELSE PRINT"*"
330 IF NOT(INKEY(45» THEN j=-1
340 IF NOT(INKEY(37» THEN j=0
350 IF NOT(INKEY(18» THEN RETURN ELSE 310
360
'
370 '
380 p1=JOY(0):p2=JOY(1)
390 p1dir=(p1 AND 1)*-1+(p1 AND 2)*0.5
continued on the next page
Some Programs for you ....
Appendix 3 Page 9