ZX81 Listing for photon98.p


ZX81 program listing for **PHOTON**SLR/1985/98**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19751
VARS  : 20544
E-LINE: 20569
STKBOT: 20569
STKEND: 20569


LEGEND

9999 means line number
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;"÷ó";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