A fiery photon torpedo being shot at an enemy vessel.
PROG : 16509
D-FILE: 19647
VARS : 20440
E-LINE: 20441
STKBOT: 20441
STKEND: 20441
9999 means line number
PRINT means treat as KEYWORD P
10 REM **PHOTON**SLR/1985
20 FOR A=0 TO 21
30 PRINT AT A,0;"
";AT 0,8;"÷ó"
;AT 1,7;"÷ ò";AT 2,1;"÷óóñ
óóó";AT 3,0;"¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸";AT 4,0;" ³ô ³³³";
AT 5,0;" · º¸¸º";AT 6,0;" ±
º";AT 7,0;" ";AT 8,0;"¸¸µ
ó";AT 9,0;"¸¸µ
óóóóóóó";AT 10
,0;"±";AT 10,17;" óóó"
;AT 11,17;" ³³³³³³³³³³³³³";AT 1
2,0;"´ ó ó
";AT 13,0;"µ ³³³³
³³³³³³ ³";AT 14,0;"ò¹¹";AT 15,0;
"µ";AT 16,0;"µ"
40 PRINT AT 6,9;" "
50 NEXT A
60 PAUSE 300
70 PRINT AT 7,2;" ´";AT 8,2;"ò
´";AT 9,2;"·´"
80 PRINT AT 7,2;" ÷";AT 8,2;"
µ÷±";AT 9,2;"µ!³ó";AT 10,4;"ö"
90 PRINT AT 7,3;" ÷";AT 8,3;"
÷±";AT 9,3;" !³ó";AT 10,3;" ö"
100 PRINT AT 7,4;" µ";AT 8,4;"
õ÷";AT 9,4;" !ö";AT 10,4;" õ ±"
110 PRINT AT 7,5;" µ";AT 8,5;"
õ÷";AT 9,5;" !ö";AT 10,5;" õ ±"
120 PRINT AT 7,5;" µ";AT 8,5;"
µ¶";AT 9,5;" !";AT 10,5;" ÷±µ
"
130 PRINT AT 7,6;" µ";AT 8,6;"
µ¶";AT 9,6;" !";AT 10,6;" ÷±µ
"
140 PRINT AT 7,7;" µ";AT 8,7;"
õõ";AT 9,7;" !";AT 10,7;" ¶õ"
150 PRINT AT 7,8;" µ";AT 8,8;"
õõ";AT 9,8;" !";AT 10,8;" ¶õ"
160 PRINT AT 7,8;" ÷";AT 8,8;"
öö";AT 9,8;" ó!";AT 10,8;" ¶
"
170 PRINT AT 7,9;" ÷";AT 8,9;"
öö";AT 9,9;" ó!";AT 10,9;" ¶
"
180 PRINT AT 7,10;" ÷";AT 8,10;
" ö";AT 9,10;" ³ !";AT 10,10;"
¶"
190 PRINT AT 7,11;" ÷";AT 8,11;
" ö";AT 9,11;" ³ !";AT 10,11;"
¶"
200 PRINT AT 7,12;" ÷";AT 8,12;
" ö";AT 9,12;" ³ !";AT 10,12;"
¶"
210 PRINT AT 7,13;" ÷";AT 8,13;
" ö";AT 9,13;" ³ !";AT 10,13;"
¶"
220 PRINT AT 7,14;" ´";AT 8,14
;" ñ";AT 9,14;" ñ";AT 10,14;"
¶"
230 PRINT AT 7,16;" ";AT 8,16;"
";AT 9,16;" ";AT 10,16;" "
240 PAUSE 50
250 PRINT AT 8,17;"¸¸¸¹";AT 9,1
7;"¸¸¸¸¸¹¹¹¹¹¹¹";AT 10,17;"¸¸¸¸¸
¸¸¸¸¸¸¹¹¹";AT 11,17;"¸¸ººººººººº
ºººº";AT 12,17;"¸¸¸¹ ¹";AT 1
3,17;"ºººººººººº¸º"
260 PAUSE 100
270 FOR A=8 TO 13
280 PRINT AT A,17;"¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸"
290 NEXT A
300 FOR A=8 TO 13
310 PRINT AT A,17;"!!!!!!!!!!!!
!!!"
320 NEXT A
330 FOR A=8 TO 13
340 PRINT AT A,17;"öööööööööööö
ööö"
350 NEXT A
360 FOR A=8 TO 13
370 PRINT AT A,17;"
"
380 NEXT A
390 PAUSE 100
400 LET A$=" BY: STEVEN RE
ID..."
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;"µ"
480 PAUSE 1000
490 CLS
500 RUN
600 SAVE "PHOTON"
610 RUN