10 REM STWAR.ECB 20 REM ...STARWARS...from Roseville 12-17-80 100 PRINT TAB(12);"TRUST THE FORCE" 110 REM ...STARWARS 120 REM ... BY JERRY SELF 130 REM ... OCT. 3, 1977 140 PRINT "WHAT SIZE GRID DO YOU WANT? NOVICE=20,20 OR CHALLENGE=20,40." 150 PRINT "LIMITS ARE 60,60. SIZE?" 160 INPUT S1,S2 170 LET W=T1=T2=0 180 PRINT "DO YOU WANT INSTRUCTIONS Y/N?" 190 INPUT A$ 200 IF A$="Y" THEN 940 210 DIM G(60,60) 220 REMPOSITIONING THE TARGET 230 LET C1=INT(RND(0)*S1) 240 IF C1=0 THEN 230 250 LET C2=INT(RND(0)*S2) 260 IF C2=0 THEN 250 270 LET T2=T2+1 280 LET F=M=Z=0 290 REMINITALING THE GRID 300 FOR I=1 TO S1 310 FOR J=1 TO S2 320 LET G(I,J)=0 330 NEXT J 340 NEXT I 350 LET G(C1,C2)=0 360 LET N=11 370 REMTHE PLAY BEGINS 380 FOR I=1 TO 10 390 LET N=N-1 400 PRINT N;"MINTES TIL DEATHSTAR CLEARS THE PLANET" 410 GOSUB 1410 420 REMRANDOMIZING HAN SOLO TO THE RESCUE 430 IF Z>0 THEN 450 440 GOTO 520 450 LET M=INT(RND(0)+.3) 460 IF M=1 THEN 480 470 GOTO 520 480 LET G(C3,C4)=0 490 LET Z=0 500 PRINT "HAN SOLO HAS ELIMINATED THE IMPERIAL FIGHTER." 510 REMTARGETING THE BOMB 520 PRINT "ENTER COORDINATES" 530 INPUT X,Y 540 IF X<1 THEN 520 550 IF X>S1 THEN 520 560 IF Y<1 THEN 520 570 IF Y>S2 THEN 520 580 IF G(X,Y)=2 THEN 760 590 IF G(X,Y)=4 THEN 1140 600 REMCHECKING FOR STRIKE 610 FOR J=1 TO 5 620 IF X+J>S1 THEN 670 630 IF Y+J>S2 THEN 670 640 IF G(Y+J,Y+J)=2 THEN 820 650 IF G(X+J,Y+J)=4 THEN 1140 660 LET G(X+J,Y+J)=1 670 NEXT J 680 GOSUB 1190 690 NEXT I 700 REMREPORTING OUTCOME OF GAMES 710 PRINT "THE DEATHSTAR HAS DESTROYED THE REBEL BASE." 720 PRINT "YOU ARE HOMELESS AND LOSING POWER." 730 LET W=-10 740 PRINT "DARTH VADER WILL GET YOU." 750 GOTO 860 760 LET G(X,Y)=3 770 GOTO 1190 780 PRINT "!!!!IMMEDIATE DIRECT HIT!!!!! YOU HAVE DESTROYED THE DEATHSTAR" 790 PRINT "AND SAVED THE REBEL CAUSE!!!!!!!!!!!!!" 800 LET W=N*5 810 GOTO 860 820 LET G(X+J,Y+J)=3 830 GOSUB 1190 840 PRINT "YOU HAVE DESTROYED THE DEATHSTAR." 850 LET W=N*5 860 LET T1=T1+W 870 PRINT "SCORE THIS GAME";W,"TOTAL";T1,"AVERAGE";T1/T2 880 PRINT "DO YOU WANT TO PLAY AGAIN Y/N" 890 INPUT A$ 900 IF A$="Y" THEN 230 910 PRINT "MAY TH FORCE BE WITH YOU" 920 GOTO 1830 930 REMINSTRUCTIONS 940 PRINT "THE DEATHSTAR HAS THE POWER TO DESTROY A PLANET WITH A" 950 PRINT "SINGLE BLAST. IT IS APPROACHING THE REBEL BASE WHICH" 960 PRINT "IS ON A MOON HIDDEN BEHIND THE BOTHER PLANET. AS SOON AS" 970 PRINT "THE DEATHSTAR CIRCLES THE PLANET IT WILL DESTROY THE BASE." 980 PRINT "YOU ARE FLYING A FIGHTER WHICH CAN BOMB A SMALL " 990 PRINT "SHAFT LEADING TO THE POWER SOURCE OF THE DEATHSTAR." 1000 PRINT "IF YOU HIT IT YOU WILL DESTROY THE DEATHSTAR AND SAVE" 1010 PRINT "THE REBEL BASE." 1020 PRINT "ENTER COORDINATE X (WITHIN GRID LIMIT) AND Y TO TARGET" 1030 PRINT "YOUR BOMB. THE BOMB TRAJEDTORY WILL THEN BE SHOWN" 1040 PRINT "ON YOUR SCREEN. THE TARGET (#) WILL ALSO APPEAR." 1050 PRINT "YOU CAN THEN ESTIMATE HOW NUCH YOU MISSED. THE FIGHTER" 1060 PRINT "IS EQUIPPED WITH A COMPUTERIZED GRID WHICH CAN SHOW THE " 1070 PRINT "EXACT LOCATION OF THE TARGET. BUT YOU DO NOT USE IT" 1080 PRINT "BECAUSE YOU TRUST THE FORCE." 1090 PRINT "BUT WATCH OUT FOR INPERIAL FIGHTERS!!!!!!!!!!!!!!" 1100 PRINT "IF YOU OR HAN SOLO DO NOT ELIMINATER THEN WITHIN TWO TURNS," 1110 PRINT "THEY WILL ELIMINATE YOU. MAY THE FORCE BE WITH YOU!!" 1120 GOTO 210 1130 REMREPORTING STRIKE ON FIGHTER 1140 LET G(C3,C4)=0 1150 LET Z=0 1160 PRINT "YOU HAVE HIT THE IMPERIAL FIGHTER." 1170 GOTO 680 1180 REMPRINTING THE GRID 1190 FOR K=1 TO S1 1200 FOR J=1 TO S2 1210 IF G(K,J)=1 THEN 1260 1220 IF G(K,J)=2 THEN 1290 1230 IF G(K,J)=3 THEN 1360 1240 IF G(K,J)=4 THEN 1310 1250 GOTO 1330 1260 PRINT TAB(J);"*" 1270 LET G(K,J)=2 1280 GOTO 1330 1290 PRINT TAB(J);"#" 1300 GOTO 1330 1310 PRINT TAB(J);"X" 1320 GOTO 1330 1330 NEXT J 1340 NEXT K 1350 GOTO 1390 1360 PRINT "++++++++++++++++++++++++++++++++++++++++++++++++++++++++" 1370 PRINT "++++++++++++++++++++KABOOM++++++++++++++++++++++++++++++" 1380 PRINT "++++++++++++++++++++++++++++++++++++++++++++++++++++++++" 1390 RETURN 1400 REMROUTINE TO RANDOM IMPERIAL FIGHTER 1410 IF Z>0 THEN 1530 1420 LET F=INT(RND(0)+.3) 1430 IF F=1 THEN 1450 1440 GOTO 1620 1450 LET C3=INT(RND(0)*S1) 1460 IF C3=0 THEN 1450 1470 LET C4=INT(RND(0)*S2) 1480 IF C4=0 THEN 1470 1490 LET Z=1 1500 LET G(C3,C4)=4 1510 PRINT "IMPERIAL FIGHTER ON THE ATTACK" 1520 GOTO 1820 1530 ON Z GOTO 1540,1550,1580 1540 PRINT "IMPERIAL FIGHTER IS CLOSING IN !!!!!!!!!!!!" 1550 PRINT "IMPERIAL FIGHTER PENETRAING SHIELDS" 1560 LET Z=Z+1 1570 GOTO 1820 1580 PRINT "THE IMPERIAL FIGHTER HAS DESTROYED YOUR SHIP." 1590 PRINT "THE DEATHSTAR WILL DESTROY THE MOON AND THE REBEL BASE." 1600 GOTO 860 1610 REMPRINTING RADIO MESSAGES 1620 ON N GOTO 1630,1650,1670,1690,1700,1720,1740,1760,1780,1800 1630 PRINT "THE GRAND MOFF TARKIN HAS ORDERED THE DESTRUCT SEQUENCE" 1640 GOTO 1820 1650 PRINT "DARTH VADER IS DETERMINED TO GET YOU" 1660 GOTO 1820 1670 PRINT "THE REBEL CAUSE DEPENDS ON YOU" 1680 GOTO 1820 1690 PRINT "TRUST THE FORCE" 1700 PRINT "THE TRADITION OF THE JEDI KNIGHTS DEMANDS THAT YOU WIN" 1710 GOTO 1820 1720 PRINT "REMEMBER THE JAWAS" 1730 GOTO 1820 1740 PRINT "SOLO S MILLINTUM FALCOM IS STANDING BY" 1750 GOTO 1820 1760 PRINT "R2D2 IS CORRECTING A MAFUNCTION" 1770 GOTO 1820 1780 PRINT "C3PO HAS BROKEN INTO A SWEAT" 1790 GOTO 1820 1800 PRINT "PRINCESS LEIA RADIOS PLEASE HURRY !!!!!!!!!!!" 1810 GOTO 1820 1820 RETURN 1830 END