Ten lines (less than 80 characters by line) 
ORIC 1/ATMOS Basic program: "MARTIANS CAN'T CROSS".
Programmed by Miguel Angel Ramos.

Code:




0Q=1:D=5:DIMM(D),R(D),H(D),K(D):Y=20:X=18:DEFFNZ(G)=INT(RND(1)*G)+1:L$="END"
1CLS:?"KEYS:Z,X,M.":?"ENEMY CAN'T CROSS.PRESS":REPEAT:A$=KEY$:UNTILA$<>"":CLS
2A$=KEY$:W=M(Q):IFW>0THENW=W+1:PLOTW,Q," >"ELSEIFFNZ(9)>6ANDW=0THENW=2
3IFA$="M"ANDC=0THENB=X:C=Y:SHOOTELSEIFA$="Z"THENX=X-1ELSEIFA$="X"THENX=X+1
4PLOT X,Y," ^ ":IFC>0THENPLOTB,C," ":C=C-1:PLOTB,C,"^"
5FORP=1TOD:N=M(P)+1:E=K(P):U=R(P):I=H(P):IF(U-1)=XANDI=YTHENW=38:GOTO9
6IFB=NANDC=PTHENS=S+1:M(P)=0:ZAP:PLOTB,C," ":C=0:PLOT2,23,STR$(S):IFP=QTHENW=0
7IFI>0THENPLOTU,I," ":U=U+E:I=I+1:PLOTU,I,"V":R(P)=U:H(P)=I:IFI>21THENH(P)=0
8NEXT:M(Q)=W:IFH(Q)=0THENIFFNZ(9)>5ANDW>0THENR(Q)=W:H(Q)=Q:K(Q)=1-INT(W/18)
9Q=Q+1:IFW>37THENCLS:EXPLODE:?L$:?"POINTS:";S:ENDELSEIFQ>DTHENQ=1:GOTO2ELSE2






The objetive of the game:

The enemies, represented by '>' can't cross the screen. If any one reach the right 
of the screen, at column 38, the user lose the game. So the gamer will have to kill 
them using the missiles. 
For every dead enemy, the user will get 1 point.
The user will need to avoid the bombs from the enemies, because if any bomb get to the 
spaceship of the gamer, the game will be over.
At the end, the game will present the total number of points got by the gamer.


Tecnical details:

The game is in text mode only. Text mode in Oric 1/Atmos have a 38 columns x 26 rows 
screen. 

The limit of the gamer spaceship is not controled by the program, so if you try to go 
beyond that limits, will obtain an error. That limits is the column 2 of the screen, 
using the 'Z' key or 37 using the 'X' key.

The game use sounds when the gamer make a shot, the missile impact with an enemy or 
the game ends. 


Variables:

D: Number of enemies.
Y: Y position of our Spaceship.
X: X position of our Spaceship.
B: X position of the missil
C: Y position of the missil
Q: Enemy that the system manages in this moment.
M(Q),W: Postion x of the enemies
N: M(Q)+1: Real position of the enemies
R(Q),U: X position of the bombs
H(Q),I: Y positions of the bombs
K(Q),E: Number to add to the X postion to the bombs (0 or 1)
A$: Is the last key pressed by the user.
G: Used to set the range to get a random number in the function Z.

Emulator:
This program has been tested in real Oric Atmos, but I've used the 'Oricutron' 
emulator to code it running in a Linux(Ubuntu 64) system.

Oricutron web page:

http://www.petergordon.org.uk/oricutron/

Others Oric1/Atmos emulators:

http://oric.free.fr/emulator.html

http://www.bannister.org/software/oric.htm

You can use any Oric 1 or Oric Atmos emulator to run it.

If you use 'Oricutron' emulator, the easy way to write the code is to select and copy 
the code to the clipboard of the system that execute the emulator (Linux, Windows, Mac,
..) and in the Oricutron emulator, press F12 key to paste it in the Oric.




