Source Code
1 SAVE "1018%4"
2 CLS
3 PRINT "PHASOR";AT 1,0;"\''\''\''\''\''\''",,
4 PRINT "WHAT LEVEL OF DIFFICULTY?",,,
5 PRINT "(1,2,OR 3)"
6 INPUT X
7 IF X>3 OR X<0 THEN GOTO 6
8 LET INP=(1/INT X)*25
9 CLS
10 LET S=0
11 LET SH=5
12 LET P=20
13 LET I=0
15 CLS
16 IF X=1 THEN LET A$=" FALCON"
17 IF X=2 OR X=1 AND S=2100 THEN LET A$=" HAWK"
18 IF X=3 OR X=2 AND S=2100 OR X=1 AND S=2850 THEN LET A$=" EAGLE"
20 IF S=1050 OR S=2100 OR S=2850 THEN GOSUB 7000
25 FOR N=1 TO 21
30 PRINT "% % % % % % % % % % % % % % % % % % % % % % % % % % "
40 NEXT N
45 FOR M=1 TO 80
50 LET R1=INT (RND*20)
60 LET R2=INT (RND*26)
80 PRINT AT R1,R2;"%."
90 NEXT M
95 FOR K=1 TO 10
100 LET R3=INT (RND*20)
110 LET R4=INT (RND*26)
120 PRINT AT R3,R4;"\:'"
130 NEXT K
135 LET Q=38
140 LET Z=0
145 PRINT AT 21,Z;CHR$ Q
150 LET Q=Q+1
155 LET Z=Z+1
156 IF Z=26 THEN GOTO 165
160 GOTO 145
165 PRINT AT 2,26;"SCORE:";AT 3,26;S
170 PRINT AT 6,28;"S";AT 7,28;"H";AT 8,28;"I";AT 9,28;"E";AT 10,28;"L";AT 11,28;"D";AT 12,28;"S";AT 12,29;"=";AT 12,30;"5"
180 PRINT AT 14,28;"P";AT 15,28;"H";AT 16,28;"A";AT 17,28;"S";AT 18,28;"O";AT 19,28;"R";AT 20,28;"S";AT 20,29;"=";AT 20,30;"20"
200 REM %W%A%R%P%-%I%N% % % % % % % % % % % % % % % %
205 IF I=150 AND INP<>1 THEN LET INP=INP-1
210 LET R5=INT (RND*20)
220 LET R6=INT (RND*24)
230 FOR C=1 TO INP
235 LET R8=INT (RND*30)+1
240 PRINT AT R5,R6;"%(%0%)"
241 IF I=150 THEN GOTO 11
245 IF P=0 THEN GOSUB 500
250 IF CODE INKEY$-38=R6+1 AND P<>0 THEN GOSUB 300
260 IF INKEY$<>"" THEN GOSUB 500
265 IF INKEY$="" AND R8=1 THEN GOSUB 525
270 NEXT C
280 PRINT AT R5,R6;"% %.% "
290 GOTO 210
300 REM %H%I%T% % % % % % % % % % % % % % % % % % % %
310 LET P=P-1
320 LET S=S+10
325 LET I=I+10
330 PRINT AT 3,26;" ";AT 3,26;S
335 PRINT AT 20,30;" ";AT 20,30;P
340 FOR F=1 TO 5
350 PRINT AT R5,R6;"% % % "
360 PRINT AT R5,R6;"%(%0%)"
370 NEXT F
375 PRINT AT R5,R6;"% % %."
380 GOTO 200
500 REM %M%I%S%S% % % % % % % % % % % % % % % % % % %
510 IF P<>0 THEN LET P=P-1
520 PRINT AT 20,30;" ";AT 20,30;P
525 FOR J=1 TO 5
530 PRINT AT 0,0;"%A%L%I%E%N% %F%I%R%E%S"
535 NEXT J
540 LET R7=INT (RND*3)+1
545 PRINT AT 0,0;"% %.% %.% % \:.%.% % % "
546 GOSUB 1000
550 IF R7<>1 THEN RETURN
555 FOR Y=1 TO 5
560 PRINT AT 0,0;"%A%L%I%E%N% %H%I%T%S"
565 PRINT AT 0,0;"% % % % % % \:.% % % "
566 NEXT Y
570 LET SH=SH-1
580 IF SH<0 THEN GOTO 1000
590 PRINT AT 12,30;SH
600 RETURN
\n1000 REM %F%I%R%E% %G%R%A%P%H%I%C%S% % % % % % % % % %
\n1005 PRINT AT R5,R6;"% % % "
\n1010 PRINT AT 10,11;"%(%0%)"
\n1015 FOR L=1 TO 5
\n1020 PRINT AT 11,11;"\:.";TAB 13;"\.:"
\n1030 PRINT AT 11,11;"% ";TAB 13;"% "
\n1040 PRINT AT 12,10;" ";TAB 14;" "
\n1050 PRINT AT 12,10;"% ";TAB 14;"% "
\n1060 PRINT AT 13,8;" ";TAB 15;" ";AT 14,8;" ";TAB 15;" "
\n1070 PRINT AT 13,8;"% %.";TAB 15;"%.%.";AT 14,8;"\:'% ";TAB 15;"% % "
\n1080 PRINT AT 15,4;" ";TAB 17;" ";AT 16,4;" ";TAB 17;" ";AT 17,4;" ";TAB 17;" ";AT 18,4;" ";TAB 17;" "
\n1090 PRINT AT 15,4;"% %.% % ";TAB 17;"% % % % ";AT 16,4;"% % % % ";TAB 17;"% %.%.% ";AT 17,4;"% % % % ";TAB 17;"\:'% % % ";AT 18,4;"% % % % ";TAB 17;"% % % % "
\n1100 PRINT AT 19,0;" ";TAB 21;" ";AT 20,0;" ";TAB 21;" "
\n1110 PRINT AT 19,0;"% % %.% ";TAB 21;"% %.%.% % ";AT 20,0;"% % %.";TAB 21;"% %.% %.% "
\n1111 IF R7<>1 THEN PRINT AT 10,11;"%.%.% "
\n1115 IF R7<>1 THEN RETURN
\n1200 FOR F=1 TO 10
\n1210 FAST
\n1220 SLOW
\n1230 NEXT F
\n1240 NEXT L
\n1242 PRINT AT 10,11;"% % %."
\n1245 IF SH<>0 THEN RETURN
\n1247 GOSUB 8000
\n2010 PRINT AT 0,0;"HIT ""R"" FORNEW GAME."
\n2020 IF INKEY$="R" THEN RUN 2
\n2030 GOTO 2020
\n7000 PRINT AT 1,1;"CONGRATULATIONS";AT 2,1;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''";AT 4,1;"WE HEREBY AWARD YOU THE TITLE";AT 5,1;"OF: ""STAR";A$;""".";AT 8,1;"KEEP ON FIGHTING, COWBOY."
\n7010 PAUSE 300
\n7020 CLS
\n7030 RETURN
\n8000 REM %E%N%D% % % % % % % % % % % % % % % % % % % %
\n8010 FAST
\n8015 FOR U=0 TO 20
\n8020 PRINT AT U,0;" "
\n8025 NEXT U
\n8030 SLOW
\n8035 FOR U=1 TO 80
\n8040 LET R9=INT (RND*4)+1
\n8050 IF R9>1 THEN LET B$="."
\n8060 IF R9=1 THEN LET B$="\. "
\n8070 PRINT AT INT (RND*20),INT (RND*26);B$
\n8080 NEXT U
\n8100 RETURN
