SYSTEM VARIABLES
PROG : 16509
D-FILE: 19751
VARS : 20544
E-LINE: 20569
STKBOT: 20569
STKEND: 20569
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
10 REM **PHOTON**SLR/1985/98**
20 FOR A=0 TO 21
30 PRINT AT A,0;"[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
40 NEXT A
50 RAND 81
60 FOR A=0 TO INT (RND*10+20)
70 PRINT AT 21*RND,31*RND;"[.]"
80 NEXT A
90 PRINT AT 0,8;"{E}{7}";AT 1,7;"{E} {2}";AT 2,1;"{E}{7}{7}{1} {7}{7}{7}";AT 3,0;"{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}";AT 4,0;" {6}{4} {6}{6}{6}";AT 5,0;" {E}[ ][ ][ ][ ]{F}{H}{H}{F}";AT 6,0;" {Q}";AT 7,0;" ";AT 8,0;"{H}{H}{8}[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ] {7}";AT 9,0;"{H}{H}{8}[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ] {7}{7}{7}{7}{7}{7}{7}";AT 10,0;"{Q}";AT 10,17;" {7}{7}{7}";AT 11,17;" {6}{6}{6}{6}{6}{6}{6}{6}{6}{6}{6}{6}{6}";AT 12,0;"{R}[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ] {7}[ ][ ][ ][ ][ ]{7}";AT 13,0;"{8}[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]{6}{6}{6}{6}{6}{6}{6}{6}{6}{6} {6}";AT 14,0;"{2}{G}{G}";AT 15,0;"{8}";AT 16,0;"{8}"
100 REM **BEACON**
110 FOR A=0 TO 20
120 PRINT AT 6,9;"{F}"
130 LET L=SIN PI
140 PRINT AT 6,9;"[ ]"
150 LET L=SIN PI*SIN PI
160 NEXT A
170 PAUSE 200
200 REM **TORPEDO, AWAY**
210 PRINT AT 7,2;"[ ]{R}";AT 8,2;"{2}{R}";AT 9,2;"{E}{R}"
220 PRINT AT 7,2;"[ ][ ]{E}";AT 8,2;"{8}{E}{Q}";AT 9,2;"{8}{A}{6}{7}";AT 10,4;"{T}"
230 PRINT AT 7,3;"[ ][ ]{E}";AT 8,3;"[ ]{E}{Q}";AT 9,3;"[ ]{A}{6}{7}";AT 10,3;"[ ][ ]{T}"
240 PRINT AT 7,4;"[ ][ ]{8}";AT 8,4;"[ ]{5}{E}";AT 9,4;"[ ]{A}{T}";AT 10,4;"[ ]{5}[ ]{Q}"
250 PRINT AT 7,5;"[ ][ ]{8}";AT 8,5;"[ ]{5}{E}";AT 9,5;"[ ]{A}{T}";AT 10,5;"[ ]{5}[ ]{Q}"
260 PRINT AT 7,5;"[ ][ ]{8}";AT 8,5;"[ ][ ]{8}{Y}";AT 9,5;"[ ][ ]{A}";AT 10,5;"[ ]{E}{Q}{8}"
270 PRINT AT 7,6;"[ ][ ]{8}";AT 8,6;"[ ][ ]{8}{Y}";AT 9,6;"[ ][ ]{A}";AT 10,6;"[ ]{E}{Q}{8}"
280 PRINT AT 7,7;"[ ]{8}";AT 8,7;"[ ]{5}{5}";AT 9,7;"[ ][ ]{A}";AT 10,7;"[ ]{Y}{5}"
290 PRINT AT 7,8;"[ ]{8}";AT 8,8;"[ ]{5}{5}";AT 9,8;"[ ][ ]{A}";AT 10,8;"[ ]{Y}{5}"
300 PRINT AT 7,8;"[ ]{E}";AT 8,8;"[ ][ ]{T}{T}";AT 9,8;"[ ][ ]{7}{A}";AT 10,8;"[ ][ ][ ]{Y}"
310 PRINT AT 7,9;"[ ]{E}";AT 8,9;"[ ][ ]{T}{T}";AT 9,9;"[ ][ ]{7}{A}";AT 10,9;"[ ][ ][ ]{Y}"
320 PRINT AT 7,10;"[ ]{E}";AT 8,10;"[ ][ ]{T}";AT 9,10;"[ ]{6} {A}";AT 10,10;"[ ][ ]{Y}"
330 PRINT AT 7,11;"[ ]{E}";AT 8,11;"[ ][ ]{T}";AT 9,11;"[ ]{6} {A}";AT 10,11;"[ ][ ]{Y}"
340 PRINT AT 7,12;"[ ]{E}";AT 8,12;"[ ][ ]{T}";AT 9,12;"[ ]{6} {A}";AT 10,12;"[ ][ ]{Y}"
350 PRINT AT 7,13;"[ ]{E}";AT 8,13;"[ ][ ]{T}";AT 9,13;"[ ]{6} {A}";AT 10,13;"[ ][ ]{Y}"
360 PRINT AT 7,14;"[ ][ ]{R}";AT 8,14;"[ ][ ]{1}";AT 9,14;"[ ][ ]{1}";AT 10,14;"[ ][ ]{Y}"
370 PRINT AT 7,16;"[ ]";AT 8,16;"[ ]";AT 9,16;"[ ]";AT 10,16;"[ ]"
380 PAUSE 50
400 REM **EXPLOSION**
410 PRINT AT 8,17;"{H}{H}{H}{G}";AT 9,17;"{H}{H}{H}{H}{H}{G}{G}{G}{G}{G}{G}{G}";AT 10,17;"{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{G}{G}{G}";AT 11,17;"{H}{H}{F}{F}{F}{F}{F}{F}{F}{F}{F}{F}{F}{F}{F}";AT 12,17;"{H}{H}{H}{G}[ ][ ][ ][ ][ ]{G}";AT 13,17;"{F}{F}{F}{F}{F}{F}{F}{F}{F}{F}{H}{F}"
420 PAUSE 100
430 LET A$="{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
440 FOR A=1 TO 60 STEP 15
450 FOR B=8 TO 13
460 PRINT AT B,17;A$(A TO A+14)
470 NEXT B
480 NEXT A
490 PAUSE 200
500 REM **ENDING**
510 LET A$="{8}[ ][ ][ ][ ][ ][ ][B][Y][:][ ][S][T][E][V][E][N][ ][R][E][I][D][.][.][.]"
520 FOR A=24 TO 1 STEP -1
530 PRINT AT 9,2;A$(A TO )
540 NEXT A
550 PAUSE 1000
560 GOTO 90
600 REM **SAVE**
610 SAVE "PHOTON9[8]"
620 RUN