SYSTEM VARIABLES
PROG : 16509
D-FILE: 19627
VARS : 20420
E-LINE: 20439
STKBOT: 20449
STKEND: 20449
LEGEND
[A] means INVERSE A
{A} means GRAPHICS A
PRINT means treat as KEYWORD P
PROGRAM LISTING
10 REM **PHOTON**SLR/1985
20 FOR A=0 TO 21
30 PRINT AT A,0;"[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]";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}[ ][ ][ ][ ][ ][ ]{F}";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}"
40 PRINT AT 6,9;"[ ]"
50 NEXT A
60 PAUSE 300
70 PRINT AT 7,2;"[ ]{R}";AT 8,2;"{2}{R}";AT 9,2;"{E}{R}"
80 PRINT AT 7,2;"[ ][ ]{E}";AT 8,2;"{8}{E}{Q}";AT 9,2;"{8}{A}{6}{7}";AT 10,4;"{T}"
90 PRINT AT 7,3;"[ ][ ]{E}";AT 8,3;"[ ]{E}{Q}";AT 9,3;"[ ]{A}{6}{7}";AT 10,3;"[ ][ ]{T}"
100 PRINT AT 7,4;"[ ][ ]{8}";AT 8,4;"[ ]{5}{E}";AT 9,4;"[ ]{A}{T}";AT 10,4;"[ ]{5}[ ]{Q}"
110 PRINT AT 7,5;"[ ][ ]{8}";AT 8,5;"[ ]{5}{E}";AT 9,5;"[ ]{A}{T}";AT 10,5;"[ ]{5}[ ]{Q}"
120 PRINT AT 7,5;"[ ][ ]{8}";AT 8,5;"[ ][ ]{8}{Y}";AT 9,5;"[ ][ ]{A}";AT 10,5;"[ ]{E}{Q}{8}"
130 PRINT AT 7,6;"[ ][ ]{8}";AT 8,6;"[ ][ ]{8}{Y}";AT 9,6;"[ ][ ]{A}";AT 10,6;"[ ]{E}{Q}{8}"
140 PRINT AT 7,7;"[ ]{8}";AT 8,7;"[ ]{5}{5}";AT 9,7;"[ ][ ]{A}";AT 10,7;"[ ]{Y}{5}"
150 PRINT AT 7,8;"[ ]{8}";AT 8,8;"[ ]{5}{5}";AT 9,8;"[ ][ ]{A}";AT 10,8;"[ ]{Y}{5}"
160 PRINT AT 7,8;"[ ]{E}";AT 8,8;"[ ][ ]{T}{T}";AT 9,8;"[ ][ ]{7}{A}";AT 10,8;"[ ][ ][ ]{Y}"
170 PRINT AT 7,9;"[ ]{E}";AT 8,9;"[ ][ ]{T}{T}";AT 9,9;"[ ][ ]{7}{A}";AT 10,9;"[ ][ ][ ]{Y}"
180 PRINT AT 7,10;"[ ]{E}";AT 8,10;"[ ][ ]{T}";AT 9,10;"[ ]{6} {A}";AT 10,10;"[ ][ ]{Y}"
190 PRINT AT 7,11;"[ ]{E}";AT 8,11;"[ ][ ]{T}";AT 9,11;"[ ]{6} {A}";AT 10,11;"[ ][ ]{Y}"
200 PRINT AT 7,12;"[ ]{E}";AT 8,12;"[ ][ ]{T}";AT 9,12;"[ ]{6} {A}";AT 10,12;"[ ][ ]{Y}"
210 PRINT AT 7,13;"[ ]{E}";AT 8,13;"[ ][ ]{T}";AT 9,13;"[ ]{6} {A}";AT 10,13;"[ ][ ]{Y}"
220 PRINT AT 7,14;"[ ][ ]{R}";AT 8,14;"[ ][ ]{1}";AT 9,14;"[ ][ ]{1}";AT 10,14;"[ ][ ]{Y}"
230 PRINT AT 7,16;"[ ]";AT 8,16;"[ ]";AT 9,16;"[ ]";AT 10,16;"[ ]"
240 PAUSE 50
250 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}"
260 PAUSE 100
270 FOR A=8 TO 13
280 PRINT AT A,17;"{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}{H}"
290 NEXT A
300 FOR A=8 TO 13
310 PRINT AT A,17;"{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}{A}"
320 NEXT A
330 FOR A=8 TO 13
340 PRINT AT A,17;"{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}{T}"
350 NEXT A
360 FOR A=8 TO 13
370 PRINT AT A,17;"[ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ]"
380 NEXT A
390 PAUSE 100
400 LET A$="[ ][ ][ ][ ][ ][ ][B][Y][:][ ][S][T][E][V][E][N][ ][R][E][I][D][.][.][.]"
410 LET B$=""
420 FOR A=24 TO 1 STEP -1
430 LET B$=A$(A)+B$
440 PRINT AT 9,2;B$
450 NEXT A
460 PRINT AT 9,3;B$
470 PRINT AT 9,2;"{8}"
480 PAUSE 1000
490 CLS
500 RUN