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