Battle For Earth

[OX.]

Found this TI Basic game but can't get it to run, crashes out at line 1540 - any ideas?

 

100 CALL CLEAR
110 CALL SCREEN(12)
120 CALL SOUND(600,659,0)
130 PRINT "  000   0  000 000 0   000"
140 PRINT "  0  0 0 0  0   0  0   0    "
150 PRINT "  000  000  0   0  0   00"
160 PRINT "  0  0 0 0  0   0  0   0"
170 PRINT "  000  0 0  0   0  000 000": : :
180 FOR BASS=1 TO 7
190 CALL SOUND(125,165,4)
191 FOR REST=1 TO 30
192 NEXT REST
200 NEXT BASS
210 PRINT "		    FOR": : : :
220 CALL SCREEN(4)
230 CALL SOUND(125,659,0)
240 CALL SOUND(750,587,0)
250 CALL SCREEN(10)
260 PRINT "    000  0  000  000 0 0"
270 PRINT "    0   0 0 0  0  0  0 0"
280 PRINT "    00  000 000   0  000"
290 PRINT "    0   0 0 0  0  0  0 0"
300 PRINT "    000 0 0 0   0 0  0 0"
310 CALL SOUND(125,587,0)
320 CALL SCREEN(16)
330 CALL SOUND(500,523,0)
340 FOR REST=1 TO 125
350 NEXT REST
360 CALL SOUND(500,523,0)
370 CALL SCREEN(6)
380 FOR REST=1 TO 125
390 NEXT REST
400 CALL SCREEN(10)
410 CALL SOUND(500,587,0)
420 FOR REST=1 TO 125
430 NEXT REST
440 CALL SCREEN(12)
450 CALL SOUND(500,554,0)
460 FOR REST=1 TO 125
470 NEXT REST
480 CALL SCREEN(5)
490 CALL SOUND(500,587,0)
500 FOR REST=1 TO 125
510 NEXT REST
520 CALL SCREEN(10)
530 CALL SOUND(500,622,2)
540 CALL SCREEN(16)
550 CALL SOUND(500,659,0)
560 CALL SCREEN(5)
570 PRINT "COPYRIGHT BY JAMES REDDING"
580 PRINT "AND BRETT PIJAN - 1982"
640 REM  LASAR BASE
650 CALL CHAR(96,"1818183C7EFF3CFF")
660 REM  YOUR LASER
670 CALL CHAR(104,"1008100810081008")
680 REM  INVADER SPACESHIP
690 CALL CHAR(112,"0080C0FE1FFEC080")
700 CALL CHAR(113,"0103077FFC7F0301")
710 REM  INVADER LASER BEAM
720 CALL CHAR(120,"1008100810081008")
730 CALL CHAR(128,"FFFFFFFFFFFFFFFF")
740 CALL CHAR(129,"01071F3F3F7F7FFF")
750 CALL CHAR(130,"80E0FBFCFCFEFEFF")
760 CALL CHAR(131,"FF7F7F3F3F1F0701")
770 CALL CHAR(132,"FFFEFEFCFCF8E080")
780 CALL CHAR(136,"FFFFFFFFFFFFFFFF")
790 CALL CHAR(144,"3C7EFFFFFFFF7E3C")
800 CALL COLOR(9,4,1)
810 CALL COLOR(10,10,1)
820 CALL COLOR(11,16,1)
830 CALL COLOR(12,12,1)
840 CALL COLOR(14,4,1)
850 CALL COLOR(13,16,1)
860 CALL COLOR(15,9,5)
870 CALL CLEAR
880 CALL SCREEN(11)
890 PRINT "   EARTH IS BEING"
900 CALL SOUND(125,165,4)
910 PRINT "   ATTACKED BY ALIEN"
920 CALL SOUND(125,165,4)
930 PRINT "TENNIS SHOES WITH"
940 CALL SOUND(125,165,4)
950 PRINT "PLASMA PUMPKINS": :
960 CALL SOUND(125,165,4)
970 PRINT "   HIT 'S' KEY"
980 CALL SOUND(125,165,4)
990 PRINT "   TO MOVE LEFT"
1000 CALL SOUND(125,165,4)
1010 PRINT "   HIT 'D' KEY"
1020 CALL SOUND(250,110,4)
1030 PRINT "   TO MOVE RIGHT": :
1040 CALL SOUND(250,123,4)
1050 PRINT "   HIT SPACE BAR"
1060 CALL SOUND(250,147,4)
1070 PRINT "   TO FIRE YOUR LASER": :
1080 CALL SOUND(125,165,4)
1090 PRINT "   WARNING !!!!"
1100 CALL SOUND(125,165,4)
1110 PRINT "INVADER HAS DEFENSIVE"
1120 CALL SOUND(125,165,4)
1130 PRINT "BAD BREATH (SHIELDS)"
1140 CALL SOUND(125,165,4)
1150 PRINT "   CAN YOU SAVE"
1160 CALL SOUND(125,165,4)
1170 PRINT "   THE UNIVERSE ?": : : :
1180 CALL SOUND(125,165,0)
1190 CALL SOUND(250,110,0)
1200 CALL SOUND(250,123,0)
1210 CALL SOUND(250,147,0)
1211 CALL SOUND(500,165,0)
1212 FOR DELAY=1 TO 3500
1214 NEXT DELAY
1220 PLAYS=4
1240 SCORE=0
1270 CALL CLEAR
1275 HITS=0
1280 CALL SCREEN(5)
1290 CA=15
1300 I=1
1310 J=32
1320 REM  YOUR BASE APPEARS
1330 CALL HCHAR(23,CA,96)
1340 CALL HCHAR(24,1,136,32)
1350 REM  START NEXT BASE
1360 IF I>=7 THEN 1370 ELSE 1390
1370 CALL HCHAR(2,I*4,32,3)
1375 CALL HCHAR(4,J-I*4,32,3)
1380 I=1
1390 CALL COLOR(11,16,1)
1400 CALL HCHAR(2,I*4,32,3)
1410 CALL HCHAR(4,J-1*4,32,3)
1420 I=I=(RND*7)/10
1430 REM  BACKGROUND BEEPS
1440 CALL SOUND(125,165,6)
1450 C1=INT(I*4)+1
1460 C2=INT(J-I*4)
1470 REM  BEGIN SHIP FIRE
1480 F=(RND*20)
1490 REM  DRAW SHIP
1500 CALL HCHAR(2,J-I*4,112)
1510 CALL HCHAR(4,J-I*4,113)
1520 IF F>10 THEN 1660
1530 REM  SHIP LASER
1540 CALL VCHAR(3,I*4,120,20)
1550 CALL VCHAR(5,J-I*4,120,18)
1560 CALL VCHAR(3,I*4,120,18)
1570 CALL VCHAR(5,J-I*4,32,18)
1600 CALL GCHAR(23,I*4,G)
1610 CALL GCHAR(23,J-1*4,G2)
1620 REM  SHIP HITS BASE
1630 IF G=96 THEN 2380
1640 IF G2=96 THEN 2535
1650 IF F=0 THEN 1660
1660 CALL KEY(0,KEY,STATUS)
1670 IF F=1 THEN 1680 ELSE 1690
1680 STOP
1690 IF KEY<>83 THEN 1760
1700 IF CA=2 THEN 1710 ELSE 1730
1710 CA=2
1720 GOTO 1350
1730 CALL HCHAR(23,CA,32)
1740 CA=CA-2
1750 GOTO 1820
1760 IF KEY<>68 THEN 1840
1770 IF CA>30 THEN 1780 ELSE 1800
1780 CA=31
1790 GOTO 1350
1800 CALL HCHAR(23,CA,32)
1810 CA=CA+2
1820 CALL HCHAR(23,CA,96)
1830 GOTO 1350
1840 IF KEY<>32 THEN 1350
1850 REM  BASE LASER
1860 CALL SOUND(150,659,2)
1870 CALL SOUND(150,-8,3)
1880 CALL VCHAR(3,CA,104,20)
1890 CALL VCHAR(3,CA,32,20)
1900 IF CA=C1 THEN 1930
1910 IF CA=C2 THEN 2130 ELSE 1350
1920 REM  SHIP BLOWS UP
1930 CALL SCREEN(12)
1940 CALL SOUND(125,659,0)
1941 CALL HCHAR(2,I*4,144)
1950 CALL SOUND(875,587,2)
1960 CALL HCHAR(2,I*4,128)
1970 CALL HCHAR(2,I*4+1,128)
1980 CALL HCHAR(2,I*4-1,128)
1990 CALL HCHAR(1,I*4,128)
2000 CALL HCHAR(3,I*4,128)
2010 CALL HCHAR(1,I*4-1,129)
2020 CALL HCHAR(1,I*4+1,130)
2030 CALL HCHAR(3,I*4-1,131)
2040 CALL HCHAR(3,I*4+1,132)
2050 CALL SOUND(900,-7,2)
2060 CALL SCREEN(10)
2070 CALL COLOR(11,5,1)
2080 CALL HCHAR(4,J-I*4,32)
2090 FOR DELAY=1 TO 75
2100 NEXT DELAY
2110 CALL SCREEN(5)
2120 GOTO 2290
2130 CALL SCREEN(12)
2140 CALL SOUND(125,659,0)
2141 CALL HCHAR(4,J-I*4,144)
2150 CALL SOUND(875,587,2)
2160 CALL HCHAR(4,J-I*4-1,128,3)
2170 CALL HCHAR(5,J-I*4,128)
2180 CALL HCHAR(3,J-I*4,128)
2190 CALL HCHAR(3,J-I*4-1,129)
2200 CALL HCHAR(3,J-I*4+1,130)
2210 CALL HCHAR(5,J-I*4-1,131)
2220 CALL HCHAR(5,J-I*4+1,132)
2230 CALL SOUND(900,-7,0)
2240 CALL SCREEN(10)
2250 CALL HCHAR(2,I*4,32)
2260 FOR DELAY=1 TO 75
2270 NEXT DELAY
2280 CALL SCREEN(5)
2290 HITS=HITS+1
2300 M$="HITS="&STR$(HITS)
2310 FOR P=1 TO LEN(M$)
2320 CODE=ASC(SEG$(M$,P,1))
2330 CALL HCHAR(24,10+P,CODE)
2340 NEXT P
2350 SCORE=SCORE+100+HITS
2360 GOTO 1300
2370 END

[rocky007]

mhhh.. i think this game little bit bugged...

 

fixed with :

 

1420 I=(RND*7)/10+1

 

but something wrong in the game anyway

[OX.]

Yes it's a bit of a mess, jumping to line numbers that don't exist and not undrawing graphics in places.