Updated/cleaned version of Photon.
PROG : 16509
D-FILE: 19751
VARS : 20544
E-LINE: 20569
STKBOT: 20569
STKEND: 20569
9999 means line number
PRINT means treat as KEYWORD P
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;"÷ó";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 12,0;"´
ó ó";AT 13,0;"µ
³³³³³³³³³³ ³";AT 14,
0;"ò¹¹";AT 15,0;"µ";AT 16,0;"µ"
100 REM **BEACON**
110 FOR A=0 TO 20
120 PRINT AT 6,9;"º"
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;" ´";AT 8,2;"ò
´";AT 9,2;"·´"
220 PRINT AT 7,2;" ÷";AT 8,2;"
µ÷±";AT 9,2;"µ!³ó";AT 10,4;"ö"
230 PRINT AT 7,3;" ÷";AT 8,3;"
÷±";AT 9,3;" !³ó";AT 10,3;" ö"
240 PRINT AT 7,4;" µ";AT 8,4;"
õ÷";AT 9,4;" !ö";AT 10,4;" õ ±"
250 PRINT AT 7,5;" µ";AT 8,5;"
õ÷";AT 9,5;" !ö";AT 10,5;" õ ±"
260 PRINT AT 7,5;" µ";AT 8,5;"
µ¶";AT 9,5;" !";AT 10,5;" ÷±µ
"
270 PRINT AT 7,6;" µ";AT 8,6;"
µ¶";AT 9,6;" !";AT 10,6;" ÷±µ
"
280 PRINT AT 7,7;" µ";AT 8,7;"
õõ";AT 9,7;" !";AT 10,7;" ¶õ"
290 PRINT AT 7,8;" µ";AT 8,8;"
õõ";AT 9,8;" !";AT 10,8;" ¶õ"
300 PRINT AT 7,8;" ÷";AT 8,8;"
öö";AT 9,8;" ó!";AT 10,8;" ¶
"
310 PRINT AT 7,9;" ÷";AT 8,9;"
öö";AT 9,9;" ó!";AT 10,9;" ¶
"
320 PRINT AT 7,10;" ÷";AT 8,10;
" ö";AT 9,10;" ³ !";AT 10,10;"
¶"
330 PRINT AT 7,11;" ÷";AT 8,11;
" ö";AT 9,11;" ³ !";AT 10,11;"
¶"
340 PRINT AT 7,12;" ÷";AT 8,12;
" ö";AT 9,12;" ³ !";AT 10,12;"
¶"
350 PRINT AT 7,13;" ÷";AT 8,13;
" ö";AT 9,13;" ³ !";AT 10,13;"
¶"
360 PRINT AT 7,14;" ´";AT 8,14
;" ñ";AT 9,14;" ñ";AT 10,14;"
¶"
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;"¸¸¸¹";AT 9,1
7;"¸¸¸¸¸¹¹¹¹¹¹¹";AT 10,17;"¸¸¸¸¸
¸¸¸¸¸¸¹¹¹";AT 11,17;"¸¸ººººººººº
ºººº";AT 12,17;"¸¸¸¹ ¹";AT 1
3,17;"ºººººººººº¸º"
420 PAUSE 100
430 LET A$="¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸!!!!
!!!!!!!!!!!ööööööööööööööö
"
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$="µ BY: STEVEN R
EID..."
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 "PHOTON98"
620 RUN