10 REM STARS.ECB 100 REM ...PROGRAM BY MIKE MCAMIS TO PLAY 110 REM ...SHOOTING STARS ALA BYTE 5/76 120 PRINT "&K&J&J" 130 PRINT TAB(15);"*************" 140 PRINT TAB(14);"*** ***" 150 PRINT TAB(13);"*** S T A R S ***" 160 PRINT TAB(14);"*** ***" 170 PRINT TAB(15);"*************" 180 FOR X=1 TO 3: PRINT : NEXT X 190 PRINT "DO YOU WANT INSTRUCTIONS ---=>"; 200 INPUT (1,0)M$ 210 LET M$=M$+"N" 220 IF M$(1,1)="Y" THEN PRINT "&K" ELSE 690 230 PRINT "THERE ARE STARS *" 240 PRINT "AND THERE ARE BLACK HOLES ." 250 PRINT "IN THE UNIVERSE * * *" 260 PRINT " * * *" 270 PRINT " * * *" 280 PRINT 290 PRINT "YOU SHOOT A STAR" 300 PRINT "(NOT A BLACK HOLE)" 310 PRINT "BY TYPING ITS NUMBER 1 2 3" 320 PRINT " 4 5 6" 330 PRINT " 7 8 9" 340 PRINT 350 PRINT "EACH STAR IS IN A GALAXY. WHEN YOU SHOOT A STAR," 360 PRINT "EVERYTHING IN ITS GALAXY CHANGES. STARS BECOME" 370 PRINT "BLACK HOLES, AND BLACK HOLES BECOME STARS." 375 INPUT (1,0)"Enter any letter ---=>",I$ 380 PRINT 390 PRINT "THE LAYOUT OF THE GALAXIES IS:" 400 PRINT 410 PRINT "1 * . * 2 * . * 3 * . . . * ." 420 PRINT "* * . . . . . * * 4 . . * 5 *" 430 PRINT ". . . . . . . . . * . . . * ." 440 PRINT 450 PRINT 460 PRINT ". . * . . . . . . . . . " 470 PRINT ". . 6 * * . . . . . * *" 480 PRINT ". . * 7 * . * 8 * . * 9" 490 PRINT 495 INPUT (1,0)"Enter any letter ---=>",I$: PRINT "&K" 500 PRINT "THE UNIVERSE STARTS LIKE THIS:" 510 PRINT 520 PRINT ". . ." 530 PRINT ". * ." 540 PRINT ". . ." 550 PRINT 560 PRINT "IF YOU GET IT LIKE THIS:" 570 PRINT 580 PRINT "* * *" 590 PRINT "* . *" 600 PRINT "* * * YOU WIN!" 610 PRINT 615 INPUT (1,0)"Enter any letter ---=>",I$: PRINT "&K" 620 PRINT "IF YOU WIND UP LIKE THIS:" 630 PRINT 640 PRINT ". . ." 650 PRINT ". . ." 660 PRINT ". . . YOU HAVE DESTROYED THE UNIVERSE" 670 PRINT 680 PRINT "A PERFECT GAME TAKES 11 MOVES. GOOD LUCK." 690 PRINT 700 REM ...DEFINE GALAXIES 710 REM ... 720 DATA 1,2,4,5,0 730 DATA 1,2,3,0,0 740 DATA 2,3,5,6,0 750 DATA 1,4,7,0,0 760 DATA 2,4,5,6,8 770 DATA 3,6,9,0,0 780 DATA 4,5,7,8,0 790 DATA 7,8,9,0,0 800 DATA 5,6,8,9,0 810 REM ... 820 REM ...DEFINE GALAXY SIZES 830 REM ... 840 DATA 4,3,4,3,5,3,4,3,4 850 REM ... 860 REM ...DEFINE GALAXIES,UNIVERSE,VALUE SWITCH AND GALAXY SIZES 870 REM ... 880 DIM U(9,5),B(9),S(2),C(9) 890 FOR X=1 TO 9 900 FOR Y=1 TO 5: READ U(X,Y): NEXT Y 905 NEXT X 910 FOR Y=1 TO 9: READ C(Y): NEXT Y 920 LET S(1)=2,S(2)=1 930 REM ...INITIALIZE INFANT UNIVERSE 940 REM ... 950 FOR I=1 TO 9 960 LET B(I)=1 970 NEXT I 980 LET B(5)=2 990 REM ... 1000 REM ...PRINT CURRENT UNIVERSE AND INPUT STAR TO SHOOT 1010 REM ... 1020 GOSUB 1350 1030 PRINT "WHICH STAR (1 to 9) ---=>"; 1040 INPUT (1,0)M 1050 IF M<1 THEN 1070 1060 IF M<=9 THEN 1090 1070 PRINT "ONLY 1-9 PLEASE" 1080 GOTO 1030 1090 IF B(M)=2 THEN 1120 1100 PRINT "SORRY, NO STAR AT";M 1110 GOTO 1030 1120 REM ... 1130 REM ...INVERT ALL STARS IN THE REQUESTED GALAXY 1140 REM ... 1150 FOR I=1 TO C(M) 1160 LET B(U(M,I))=S(B(U(M,I))) 1170 NEXT I 1180 LET P=P+1 1190 REM ... 1200 REM ...HAS HE WON OR LOST? 1210 REM ... 1220 IF B(5)=2 THEN 1020 1230 LET J=0 1240 FOR I=1 TO 9 1250 LET J=J+B(I) 1260 NEXT I 1270 IF J=9 THEN 1320 1280 IF J<>17 THEN 1020 1290 GOSUB 1350 1300 PRINT "YOU WON IN";P;" MOVES." 1310 GOTO 1480 1320 GOSUB 1350 1330 PRINT "IT TOOK YOU";P;" MOVES TO DESTROY THE UNIVERSE" 1340 GOTO 1480 1350 REM ... 1360 REM ...PRINT UNIVERSE 1370 REM ... 1380 FOR Z=0 TO 2 1390 FOR Y=1 TO 3 1400 IF B((Z*3)+Y)=1 THEN 1430 1410 PRINT " *"; 1420 GOTO 1440 1430 PRINT " ."; 1440 NEXT Y 1445 IF Z=0 THEN PRINT TAB(25);"(1) (2) (3)" 1450 IF Z=1 THEN PRINT TAB(25);"(4) (5) (6)" 1455 IF Z=2 THEN PRINT TAB(25);"(7) (8) (9)" 1460 NEXT Z 1470 RETURN 1480 PRINT TAB(15);"...END OF GAME..." 1490 END