home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG003.ARK
/
STARS.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
143 lines
REM SHOOTING STARS BY TBX
10 PRINT "INSTRUCTIONS (1=YES, 0=NO)";
20 INPUT Z
30 IF Z=1 THEN GOSUB 900
100 REM START LOOP
A=-1
101 B=-1
102 C=-1
103 D=-1
104 E=1
105 F=-1
106 G=-1
107 H=-1
108 I=-1
109 J=0
148 PRINT
149 IF INT(J/3)*3=J THEN PRINT ""
150 IF A=1 THEN PRINT "* ";
151 IF A=-1 THEN PRINT "- ";
155 IF B=1 THEN PRINT "* ";
156 IF B=-1 THEN PRINT "- ";
160 IF C=1 THEN PRINT "* ";J
161 IF C=-1 THEN PRINT "- ";J
165 IF D=1 THEN PRINT "* ";
166 IF D=-1 THEN PRINT "- ";
170 IF E=1 THEN PRINT "* ";
171 IF E=-1 THEN PRINT "- ";
175 IF F=1 THEN PRINT "* "
176 IF F=-1 THEN PRINT "- "
180 IF G=1 THEN PRINT "* ";
181 IF G=-1 THEN PRINT "- ";
185 IF H=1 THEN PRINT "* ";
186 IF H=-1 THEN PRINT "- ";
190 IF I=1 THEN PRINT "* ";
191 IF I=-1 THEN PRINT "- ";
250 IF E=1 THEN 390
260 IF A+B+C+D+F+G+H+I=8 THEN 809
270 IF A+B+C+D+F+G+H+I=-8 THEN 820
390 PRINT "SHOOT";
391 INPUT Y
395 ON Y GOTO 509,519,529,539,549,559,569,579,589
499 PRINT "YOU GAVE UP ON ";J;" TRYS !!!!"
500 GOTO 830
509 IF A=-1 THEN 800
510 A=-A
511 B=-B
512 D=-D
513 E=-E
516 GOTO 597
519 IF B=-1 THEN 800
520 A=-A
521 B=-B
522 C=-C
526 GOTO 597
529 IF C=-1 THEN 800
530 B=-B
531 C=-C
532 E=-E
533 F=-F
536 GOTO 597
539 IF D=-1 THEN 800
540 A=-A:D=-D:G=-G
546 GOTO 597
549 IF E=-1 THEN 800
550 B=-B:D=-D:E=-E:F=-F:H=-H
556 GOTO 597
559 IF F=-1 THEN 800
560 C=-C:F=-F:I=-I
566 GOTO 597
569 IF G=-1 THEN 800
570 D=-D:E=-E:G=-G:H=-H
576 GOTO 597
579 IF H=-1 THEN 800
580 G=-G:H=-H:I=-I
586 GOTO 597
589 IF I=-1 THEN 800
590 E=-E:F=-F:H=-H:I=-I
597 J=J+1
598 GOTO 148
800 PRINT "HEY ! ! YOU CAN ONLY SHOOT"
801 PRINT "STARS, NOT BLACK HOLES."
802 GOTO 390
809 PRINT
810 PRINT "YOU WIN WITH ";J;" SHOOTS"
815 GOTO 830
820 PRINT "YOU LOST WITH ";J;" TRYS."
830 PRINT
831 PRINT "TRY AGAIN (1=YES, 0=NO)";
832 INPUT X
833 IF X=1 THEN 100
834 IF X=0 THEN 890
835 PRINT "FOLLOW INSTRUCTIONS "
836 GOTO 831
890 PRINT "HOPE YOU HAD FUN"
895 REM
899 REM INSTRUCTION SUBROUTINE
900 PRINT"";
901 PRINT "* * * THERE ARE STARS"
902 PRINT "- - - AND BLACK HOLES"
903 PRINT "* * * IN THE UNIVERSE"
904 PRINT
905 PRINT "1 2 3 YOU SHOOT A STAR *"
906 PRINT "4 5 6 NOT A BLACK HOLE -"
907 PRINT "7 8 9 BY TYPING ITS NUMBER"
908 PRINT
910 PRINT "EACH STAR IS IN A GALAXY."
911 PRINT "WHEN YOU SHOOT A STAR, EVERY-"
912 PRINT "THING IN ITS GALAXY CHANGES."
913 PRINT "ALL STARS BECOME BLACK HOLES,"
914 PRINT "ALL BLACK HOLES BECOME STARS."
915 PRINT "TYPE '2' TO GO ON."
916 INPUT Z
920 PRINT "GALAXY MAPS:"
921 PRINT
923 PRINT "1 * - * 2 * - * 3"
924 PRINT "* * - - - - - * *"
925 PRINT "- - - - - - - - -"
926 PRINT
927 PRINT "* - - - * - - - *"
928 PRINT "4 - - * 5 * - - 6"
929 PRINT "* - - - * - - - *"
930 PRINT
931 PRINT "- - - - - - - - -"
932 PRINT "* * - - - - - * *"
933 PRINT "7 * - * 8 * - * 9"
934 PRINT
935 PRINT "TYPE '3' TO GO ON";
936 INPUT Z
940 PRINT "PATTERNS TO LOOK FOR:"
941 PRINT
942 PRINT "START WIN LOSE"
943 PRINT
945 PRINT "- - - * * * - - -"
946 PRINT "- * - * - * - - -"
947 PRINT "- - - * * * - - -"
948 PRINT
949 PRINT "TYPE '0' TO END GAME"
950 PRINT
951 PRINT "TYPE '4' TO GO ON";
952 INPUT Z
999 RETURN
1000 END