10 GOSUB 370 20MODE2:VDU23;8202;0;0;0; 40PROCvdu7 50ENVELOPE 1,1,4,-4,4,10,20,10,127,0, 0,-5,126,126 60PROCacross 61PROCOL(0,1010,"```````````````````` ",7):PROCOL(0,960,"````````````````````" ,7):PROCOL(0,910,"````````````````````", 7) 70PROCOL(300,1000,"LOOPY LOOP II",6): PROCOL(550,950,"BY",3):PROCOL(200,900,"A .S.SHAKOOR'92",1) 71PROCOL(0,860,"````````````````````" ,7):PROCOL(0,810,"````````````````````", 7):PROCOL(0,760,"````````````````````",7 ) 80PROCOL(75,850,"(CODE FROM PD GAME", 5):PROCOL(250,800,"GAME CATCH'EM",6) 90PROCOL(300,750,"BY L0 & BLK)",2) 110 CHAIN"SATS2" 120END 180DEFPROCacross:C1=4:C2=6 190x1=0:y1=0:x2=1280:y2=1023:cl=C1 200 GCOL0,cl 210MOVEx1-15,y1:DRAW x2,y2 220 IF cl=C1 cl=C2:GOTO 240 230 IF cl=C2 cl=C1 240 IF x2<=0 GOTO260 250 y1=y1+9:x2=x2-12:GOTO 200 260x1=1280:y1=0:x2=1280:y2=1023 270GCOL0,cl 280 MOVE x1,y1:DRAW x2,y2 290 IF cl=C1 cl=C2:GOTO 310 300 IF cl=C2 cl=C1 310IF x1<0 ENDPROC 320x1=x1-12:y2=y2:GOTO270 330 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 340DEFPROCline: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 350DEFPROCvdu7: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 360DEFPROCborder:GCOL0,5:MOVE0,0:DRAW 750,0:DRAW 750,925:DRAW 0,925:DRAW0,0:EN DPROC 370 MODE7:VDU23;8202;0;0;0; 380VDU132,157,141:PRINT" LOOPY LOOP II by A.S.SHAKOOR '92" 381VDU132,157,141:PRINT" LOOPY LOOP II by A.S.SHAKOOR '92" 410PRINT'" PLAYER NUMBER ONE:(YELLOW)" ''" LEFT: X"'" RIGHT: C"'" UP: Q"'" DOWN: A"'' 430PRINT" PLAYER NUMBER TWO:(GREEN)"'' " LEFT: ,"'" RIGHT: ."'" UP: £"'" DO WN: ]"'' 450PRINT''" PRESS ANY KEY TO BEGIN THE GAME" 460*FX15,0 470A=GET 480 RETURN 490DEFPROCgrid:GCOL0,0:MOVE100,100:DRA W1150,100:DRAW 1150,700:DRAW 100,700:DRA W 100,100:PLOT85,1150,700:PLOT85,1150,10 0:GCOL0,1:MOVE100,100:DRAW1150,100:DRAW 1150,700:DRAW 100,700:DRAW 100,100:ENDPR OC 9010 RETURN