10 m=1
   20 MODE2:VDU23;8202;0;0;0;
   30 GCOL0,4:GCOL0,132:CLG
   40  PROCOL(50,1025,"___________________",2) 
   50  PROCOL(50,975,"Z - LEFT",1)  
   60  PROCOL(50,925,"X - RIGHT",2)   
   70  PROCOL(50,875,"* - UP",3)  
   80  PROCOL(50,825,"? - DOWN",5)  
   90  PROCOL(50,775,"RETURN - FIRE",6) 
  100  PROCOL(50,725,"Q/S - SOUND ON/OFF",7) 
  110  PROCOL(50,700,"___________________",2) 
  120  PROCOL(50,650,"SATELLITE HAVOC II",1)
  130  PROCOL(50,600,"BY",1):PROCOL(200,600,"A.S.SHAKOOR '92",3) 
  140  PROCOL(50,500,"STOP THE MAD",6)
  150  PROCOL(50,450,"SATELLITES",6)
  160  PROCOL(50,400,"FIRING ON THE",6)
  170  PROCOL(50,350,"CITY BELOW !!",6)
  180  PROCOL(50,300,"IF DAMAGE < 10",6)
  190  PROCOL(50,250,"YOU DIE !!",6)
  200  PROCOL(50,100,"PRESS ANY KEY",2) 
  201 G$=GET$:CLG
  202  PROCOL(50,900,"YOUR DAMAGE",6)
  203  PROCOL(50,850,"GOES DOWN",6)
  204  PROCOL(50,800,"IF YOUR SHIP",6)
  205  PROCOL(50,750,"TOUCHES THE",6)
  206  PROCOL(50,700,"SATELLITE !!",6)
  207  PROCOL(50,600,"GOOD LUCK !!",9)
  208  PROCOL(50,200,"PRESS ANY KEY",2)
  210  G$=GET$:MODE2:VDU23;8202;0;0;0;
  220 *FX9,4
  230 *FX10,4
  240 GCOL0,6:MOVE 0,0:DRAW 1280,0:DRAW 1280,100:DRAW 0,100:DRAW 0,0   
  250  PLOT85,1280,100:PLOT85,1280,0   
  260  e1=1
  270 y=100:FG=e1  
  280 FOR n=1 TO 4
  290  IF FG=2 FG=3
  300 FG=FG+1
  310  IF FG=3 FG=1
  320  IF FG=6 FG=1
  330  y=y-25
  340  FOR t=0 TO 1280 STEP RND(30)+30:f=50
  350 v=RND(75)
  360  GCOL0,FG
  370  MOVE t,y:DRAW t+50,y:DRAW t+50,y+v:DRAW t,y+v:DRAW t,y
  380 PLOT85,t+50,y+v:PLOT85,t+50,y   
  390  FORd=1 TO 10:GCOL0,3:PLOT69,(t+20)+RND(20),y+RND(v):NEXT   
  400 GCOL0,0:MOVE t,y:DRAW t+50,y:DRAW t+50,y+v:DRAW t,y+v:DRAW t,y  
  410 NEXT
  420 NEXT
  430  sw=6:ch6=0   
  440  GCOL0,sw
  450  MOVE 0,750:DRAW 1279,750:DRAW 1279,775:DRAW0,775:DRAW 0,750   
  460  IF ch6=1 GOTO 480
  470  PLOT85,1279,775:PLOT85,1279,750  
  480  MOVE 0,775:DRAW 0,1022:DRAW 25,1022:DRAW 25,775:DRAW 0,775
  490  IF ch6=1 GOTO 510
  500  PLOT85,25,1022:PLOT85,0,1022
  510  MOVE 25,1022:DRAW 1279,1022:DRAW 1279,997:DRAW 25,997:DRAW 25,1022
  520  IF ch6=1 GOTO 540
  530  PLOT85,1279,997:PLOT85,1279,1022
  540  MOVE 1279,997:DRAW 1279,775:DRAW 1255,775:DRAW 1255,997:DRAW 1279,997
  550  IF ch6=1 GOTO 570
  560  PLOT85,1255,775:PLOT85,1279,775 
  570  IF ch6=0 ch6=1:sw=4:GOTO 440 
  580 GCOL0,4:MOVE 25,775:DRAW 1254,775:DRAW 1254,997:DRAW 25,997:DRAW 25,775
  590 PLOT85,1254,997:PLOT85,1254,775
  600  ENVELOPE 1,1,-26,-36,-45,255,255,255,127,0,0,-127,126,0  
  610  VDU 23,240,0,0,0,0,31,63,127,255
  620  ENVELOPE4,8,1,-1,1,1,1,1,121,-10,-5,-2,120,120   
  630  VDU 23,241,0,3,7,15,95,255,255,255
  640  VDU 23,242,255,127,63,31,0,0,0,0 
  650  VDU 23,243,255,255,255,95,15,7,3,0
  660  VDU 23,245,0,0,31,63,127,255,0,0
  661  VDU 23,246,24,24,60,60,126,126,255,255       
  662  VDU 23,247,0,0,248,252,254,255,0,0
  670  PROCOL(50,960,"SCORE : ",1)
  680  PROCOL(50,895,"LEVEL : ",2)
  690  PROCOL(50,830,"DAMAGE  : ",3) 
  700  PROCbeep
  710 CHAIN"SHIP"
  720  DEFPROCOL(X%,Y%,A$,C%) VDU5:MOVEX%-8,Y%-4:GCOL0,0:PRINTA$:MOVEX%+8,Y%+4:PRINTA$:MOVEX%-8,Y%+4:PRINTA$:MOVEX%+8,Y%-4:PRINTA$:MOVEX%,Y%:GCOL0,C%:PRINTA$:VDU4:ENDPROC   
  730  DEFPROCbeep
  740  ENVELOPE 3,1,0,0,0,0,0,0,-126,-2,0,-1,126,80  
  750  *FX211,3
  760  *FX212,0
  770  *FX213,120
  780  *FX214,1
  790  ENDPROC