10 MODE2:VDU23;8202;0;0;0; 
   11 PROCvdu
   20 PROCvdu7
   21 ENVELOPE 1,1,4,-4,4,10,20,10,127,0,0,-5,126,126 
   30 PROCacross
   40 PROCOL(300,1000,"LOOPY LOOP",6):PROCOL(550,950,"BY",3):PROCOL(200,900,"A.S.SHAKOOR'92",1)      
   41 PROCOL(25,850,"Z - LEFT  X - RIGHT",2)
   42 PROCOL(25,800,"* - UP    ? - DOWN",2)   
   43 PROCOL(25,750,"S - SPEED UP",2)
   44 PROCOL(25,65,"SCORE : ",7)   
   45  CHAIN"SATS"
   46 END
   50 DEFPROCvdu:VDU23,83,60,102,96,124,6,102,124,0:VDU23,76,112,112,112,112,112,126,126,0:VDU23,65,126,102,102,126,102,102,102,0:VDU23,84,126,60,24,24,24,24,24,0:VDU23,69,126,112,112,126,112,112,126,0:VDU23,82,126,102,102,124,124,102,102,0
   60 VDU23,90,126,126,28,56,112,126,126,0:VDU23,70,126,112,112,126,112,112,112,0:VDU23,88,102,102,126,24,126,102,102,0
   70 VDU23,73,60,24,24,24,24,24,60,0:VDU23,71,126,102,96,110,102,102,126,0:VDU23,80,126,102,102,126,96,96,96,0:VDU23,85,102,102,102,102,102,102,126,0:VDU23,83,60,102,96,124,6,102,124,0
   80 VDU23,66,126,102,102,124,102,102,126,0:VDU23,89,102,102,102,126,24,24,24,0:VDU23,75,102,108,120,112,120,108,102,0:VDU23,79,126,102,102,102,102,102,126,0:VDU23,67,126,102,96,96,96,102,126,0
   90 VDU23,81,255,255,255,255,255,255,255,0:ENDPROC 
  100 DEFPROCacross:C1=4:C2=6
  110 x1=0:y1=0:x2=1280:y2=1023:cl=C1 
  120  GCOL0,cl
  130 MOVEx1-15,y1:DRAW x2,y2  
  140  IF cl=C1 cl=C2:GOTO 160  
  150  IF cl=C2 cl=C1
  160  IF x2<=0 GOTO180   
  170  y1=y1+9:x2=x2-12:GOTO 120  
  180 x1=1280:y1=0:x2=1280:y2=1023  
  190 GCOL0,cl
  200   MOVE x1,y1:DRAW x2,y2
  210  IF cl=C1 cl=C2:GOTO 230  
  220  IF cl=C2 cl=C1
  230 IF x1<0 ENDPROC 
  240 x1=x1-12:y2=y2:GOTO190  
  250  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  
  260 DEFPROCline:GCOL0,1:MOVE 100,585:DRAW 660,585:DRAW 660,615:DRAW 100,615:DRAW100,585:PLOT85,660,615:PLOT85,660,585:GCOL0,4:MOVE 100,585:DRAW 660,585:DRAW 660,615:DRAW 100,615:DRAW100,585:ENDPROC
  270 DEFPROCvdu7:ENVELOPE 3,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:ENVELOPE 1,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:ENVELOPE2,1,0,0,0,0,0,0,-126,-2,0,-1,126,80:OSCLI("FX211,1"):OSCLI("FX212,0"):OSCLI("FX213,180"):OSCLI("FX214,1"):ENDPROC
  280 DEFPROCborder:GCOL0,5:MOVE0,0:DRAW 750,0:DRAW 750,925:DRAW 0,925:DRAW0,0:ENDPROC