This was my extremely early attempt at a cloning Yars’ to the ZX81. I wasn't very good at developing yet and it is clear this game will win no awards. Yet, it did play a small part in my growth as a developer.
Use cursor numbers to move (5, 6, 7, 8) and Z to fire.
PROG : 16509
D-FILE: 17435
VARS : 18228
E-LINE: 18293
STKBOT: 18293
STKEND: 18293
9999 means line number
PRINT means treat as KEYWORD P
1 REM *YARS REVENGE*SLR/1983*
4 LET M=6
5 LET D=2
6 LET E=10
9 CLS
10 FOR Z=0 TO 20
20 PRINT "
"
30 NEXT Z
40 PRINT AT 0,2;"YARS REVENGE"
50 FOR C=1 TO 20
60 PRINT AT C,6;"!õ!!!µ!"
70 NEXT C
80 PRINT AT D,E;"úúò"
90 PRINT AT D+1,E;"ùù·"
100 PRINT AT 10,27;">¸¸**"
110 LET F$=INKEY$
120 LET E=E-(F$="5")+(F$="8")
130 LET D=D-(F$="7")+(F$="6")
160 IF F$="Z" THEN GOSUB 280
170 IF M=0 THEN GOTO 310
180 LET G=INT (RND*10)
190 IF G>7 THEN GOTO 210
200 GOTO 9
210 IF G=10 THEN GOTO 230
220 IF E<13 THEN GOTO 9
230 IF D+1=10 THEN GOTO 250
240 GOTO 9
250 PRINT "YARS DEFEATED"
260 PRINT AT D,E;"ó³ó³ó";AT D+1
,E;"³ó³ó³"
270 STOP
280 IF D+1=10 OR D=10 THEN LET
M=M-1
290 IF E>27 AND E<31 THEN LET M
=M-1
300 RETURN
310 PRINT 10,28;"HSWWSH"
320 PRINT AT D,E;"ùòñù"
330 PRINT AT D+1,E;"ú·ôú"
340 PAUSE 1000
350 IF INKEY$="A" THEN GOTO 370
360 IF INKEY$<>"N" THEN GOTO 35
0
365 STOP
370 CLS
380 GOTO 4
400 SAVE "YR"
410 RUN