10MODE2:VDU23;8202;0;0;0; 11PROCvdu 20PROCvdu7 21ENVELOPE 1,1,4,-4,4,10,20,10,127,0, 0,-5,126,126 30PROCacross 40PROCOL(300,1000,"LOOPY LOOP",6):PRO COL(550,950,"BY",3):PROCOL(200,900,"A.S. SHAKOOR'92",1) 41PROCOL(25,850,"Z - LEFT X - RIGHT" ,2) 42PROCOL(25,800,"* - UP ? - DOWN", 2) 43PROCOL(25,750,"S - SPEED UP",2) 44PROCOL(25,65,"SCORE : ",7) 45 CHAIN"SATS" 46END 50DEFPROCvdu: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,1 02,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 60VDU23,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 70VDU23,73,60,24,24,24,24,24,60,0:VDU 23,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,6 0,102,96,124,6,102,124,0 80VDU23,66,126,102,102,124,102,102,12 6,0:VDU23,89,102,102,102,126,24,24,24,0: VDU23,75,102,108,120,112,120,108,102,0:V DU23,79,126,102,102,102,102,102,126,0:VD U23,67,126,102,96,96,96,102,126,0 90VDU23,81,255,255,255,255,255,255,25 5,0:ENDPROC 100DEFPROCacross:C1=4:C2=6 110x1=0:y1=0:x2=1280:y2=1023:cl=C1 120 GCOL0,cl 130MOVEx1-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 180x1=1280:y1=0:x2=1280:y2=1023 190GCOL0,cl 200 MOVE x1,y1:DRAW x2,y2 210 IF cl=C1 cl=C2:GOTO 230 220 IF cl=C2 cl=C1 230IF x1<0 ENDPROC 240x1=x1-12:y2=y2:GOTO190 250 DEFPROCOL(X%,Y%,A$,C%) VDU5:MOVEX% -8,Y%-4:GCOL0,0:PRINTA$:MOVEX%+8,Y%+4:PR INTA$:MOVEX%-8,Y%+4:PRINTA$:MOVEX%+8,Y%- 4:PRINTA$:MOVEX%,Y%:GCOL0,C%:PRINTA$:VDU 4:ENDPROC 260DEFPROCline:GCOL0,1:MOVE 100,585:DR AW 660,585:DRAW 660,615:DRAW 100,615:DRA W100,585:PLOT85,660,615:PLOT85,660,585:G COL0,4:MOVE 100,585:DRAW 660,585:DRAW 66 0,615:DRAW 100,615:DRAW100,585:ENDPROC 270DEFPROCvdu7: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("FX 211,1"):OSCLI("FX212,0"):OSCLI("FX213,18 0"):OSCLI("FX214,1"):ENDPROC 280DEFPROCborder:GCOL0,5:MOVE0,0:DRAW 750,0:DRAW 750,925:DRAW 0,925:DRAW0,0:EN DPROC