1 REM *** UFO WAR v1 ***
2 REM *** TI EXT BASIC ***
3 REM *** EDOROLA ***
4 REM *** Eduu (Atariage) ***
5 REM *** PoC ***

10 CALL CLEAR :: CALL SCREEN(2)
30 CALL MAGNIFY(3)
40 CALL COLOR(3,16,1,4,16,1,5,16,1,6,16,1,7,16,1,8,16,1):: DISPLAY AT (1,1):"0000":: DISPLAY AT (1,12):"UFOWAR":: DISPLAY AT (1,25):"0000"

100 CALL CHAR(96,"030C1023404193979793414023100C03C03008C40282C9E9E9C98202C40830C0")
110 CALL CHAR(100,"030C1023404193979793414023100C03C03008C40282C9E9E9C98202C40830C0")
120 CALL CHAR(104,"0000000000000103030100000000000000000000000080C0C080000000000000")
130 CALL CHAR(108,"02045003484192118512C54033504C0240A228800AA2C939AC48A212C1803280")
140 CALL SPRITE(#1,96,5,100,100)
150 CALL SPRITE(#2,100,7,100,100)

180 RANDOMIZE :: X=INT(RND*176)+1:: Y=INT(RND*240)+1:: CALL LOCATE(#1,Y,X)
190 RANDOMIZE :: XX=INT(RND*176)+1:: YY=INT(RND*240)+1:: CALL LOCATE(#1,YY,XX)

200 REM ** BUCLE PRINCIPAL **
220 CALL JOYST(1,X,Y):: CALL MOTION(#1,4*-Y,4*X)
240 CALL JOYST(2,XX,YY):: CALL MOTION(#2,4*-YY,4*XX)
250 CALL KEY(1,F,FF)
260 IF F=18 THEN GOSUB 900
270 CALL COINC(#2,#3,16,RE):: IF RE THEN GOSUB 1000
280 CALL KEY(2,G,FF)
290 IF G=18 THEN GOSUB 950 
300 CALL COINC(#1,#4,16,RD):: IF RD THEN GOSUB 1200
500 GOTO 200
510 END

900 REM ** FIRE 2
910 CALL POSITION(#2,Y1,X1,#1,R2,C2):: Y3=Y1-R2:: X3=X1-C2
920 IF Y3>125 THEN Y3=125 ELSE IF Y3<-125 THEN Y3=-125
930 IF X3>125 THEN X3=125 ELSE IF X3<-125 THEN X3=-125
940 CALL SPRITE(#3,104,5,R2,C2,(Y3),(X3))
945 RETURN

950 REM ** FIRE 1
960 CALL POSITION(#1,Y11,X11,#2,R22,C22):: Y4=Y11-R22:: X4=X11-C22
970 IF Y4>125 THEN Y4=125 ELSE IF Y4<-125 THEN Y4=-125
980 IF X4>125 THEN X4=125 ELSE IF X4<-125 THEN X4=-125
990 CALL SPRITE(#4,104,7,R22,C22,(Y4),(X4))
995 RETURN

1000 REM ** EXPLOTA SPRITE 2
1010 CALL MOTION(#2,0,0):: CALL DELSPRITE(#3):: CALL PATTERN(#2,108):: FOR N=1 TO 100:: NEXT N
1020 CALL DELSPRITE(#2):: RANDOMIZE :: XX=INT(RND*176)+1:: YY=INT(RND*240)+1:: CALL SPRITE(#2,100,7,YY/2,XX,0,0)
1030 RETURN

1200 REM ** EXPLOTA SPRITE 1
1210 CALL MOTION(#1,0,0):: CALL DELSPRITE(#4):: CALL PATTERN(#1,108):: FOR N=1 TO 100:: NEXT N
1220 CALL DELSPRITE(#1):: RANDOMIZE :: X=INT(RND*176)+1:: Y=INT(RND*240)+1:: CALL SPRITE(#1,100,5,Y/2,X,0,0)
1230 RETURN








LABURO:
181 Y=INT(RND*250)+1

TEXTO:
24 x 32
GRAFICA:
192 x 256
176 x 240