Listing of file='ROULET.BAS;01' on disk='vmedia/ncc_9-sector.ccvf'
100 REM *** EUROPEAN ROULETTE *** 110 REM * DISPLAY THE INTRODUCTION * 120 PLOT 6,33,12,27,11,14 130 PLOT 3,13,6 140 PLOT 6,25 150 PRINT "COMPUCOLOR PRESENTS EUROPEAN ROULETTE" 160 PLOT 3,64,0 170 GOSUB 10000 180 PLOT 6,7,12 210 K= 0 215 PLOT 3,0,10 220 PRINT "WELCOME TO THE COMPUCOLOR CASINO AND OUR EUROPEAN ROULETTE TABLE" 225 PLOT 3,17,14 230 PRINT "WE WISH YOU THE BEST OF LUCK!." 245 PLOT 3,19,18 250 PLOT 6,3 260 PRINT "DO YOU WANT INSTRUCTIONS"; 270 INPUT Z$ 280 IF LEFT$ (Z$,1)< > "Y"THEN 440 320 PLOT 6,7,12 325 PRINT "THIS IS A GAME OF ROULETTE. YOU ARE ALLOWED TO BET ON" 330 PRINT "ANY (OR ALL) OF THE FOLLOWING: WHETHER A NUMBER IS ODD OR EVEN," 340 PRINT "COLOR (RED OR BLACK) OF THE NUMBER, A COLUMN OF NUMBERS," 350 PRINT "A NUMBER ITSELF. NUMBERS RANGE FROM 0 TO 36. IF A 0 APPEARS," 360 PRINT "THE BANK COLLECTS ALL BETS EXCEPT THOSE BET ON THE NUMBER 0." 362 PLOT 6,3 364 PLOT 3,19,12 365 PRINT "THE PAYOFFS ARE AS FOLLOWS:" 367 PLOT 3,23,14 370 PRINT "ODD OR EVEN 1 TO 1" 375 PLOT 3,23,16 380 PRINT "RED OR BLACK 1 TO 1" 385 PLOT 3,23,18 390 PRINT "A COLUMN 2 TO 1" 395 PLOT 3,23,20 400 PRINT "A NUMBER 35 TO 1" 405 PRINT 408 PLOT 6,7 410 PRINT "YOU ARE ALLOWED TO BET FROM $1 TO $10,000,BUT ONLY WHOLE DOLLARS" 420 PLOT 6,1 430 PRINT "(TO QUIT, REPLY 'Q' TO ODD BET QUESTION OF '-Y,N OR Q')" 440 PLOT 6,120 450 PLOT 3,14,30 460 INPUT "HIT THE SPACE BAR WHEN YOU ARE READY";QQ 470 IF QQ< > 0THEN 460 490 GOSUB 5000:REM * DRAW THE TABLE * 500 REM *** TAKE THE BETS *** 501 PLOT 3,0,0:PLOT 6,7 502 PRINT " " 503 GOSUB 6300 504 GOSUB 6500 505 PLOT 14 510 PLOT 6,79 520 PLOT 3,0,4 530 PRINT "PLACE YOUR BETS" 531 REM WAS PLOT 6,2,27,11,15:FOR W=1 TO 1000:NEXT W:END 540 FOR J1= 1TO 500:NEXT J1 550 PLOT 6,2 560 PLOT 3,0,4 570 PRINT "PLACE YOUR BETS" 580 REM * ODD? * 590 PLOT 6,1 600 PLOT 3,4,8 602 PRINT "-(Y/N/Q) ?"; 604 POKE 33278,0 606 T= INT (37* RND (1)):IF PEEK (33278)= 0THEN 606 608 Q= PEEK (33278):A$= CHR$ (Q) 620 IF A$= "Q"THEN PLOT 6,2,12,27,11,15:END 630 IF A$< > "Y"THEN PLOT 3,4,8:PRINT " ":GOTO 760 660 REM * GET AMOUNT * 670 PLOT 3,4,8:PRINT " " 675 PLOT 3,4,8 680 INPUT "$";H 690 IF H< = 10000THEN 720 700 GOSUB 1980 702 PLOT 3,4,8 704 PRINT " " 710 GOTO 670 720 IF H< 0THEN 740 730 IF H= INT (H)THEN 950 740 GOSUB 2010 750 GOTO 702 760 REM * EVEN? * 770 PLOT 3,5,12 780 INPUT "-(Y/N) ?";A$ 790 IF LEFT$ (A$,1)< > "Y"THEN PLOT 3,5,12:PRINT " ":GOTO 930 830 REM * GET AMOUNT * 840 PLOT 3,5,12:PRINT " " 842 B$= "EVEN" 845 PLOT 3,5,12 850 INPUT "$";H 860 IF H< = 10000THEN 890 870 GOSUB 1980 872 PLOT 3,5,12 874 PRINT " " 880 GOTO 840 890 IF H< 0THEN 910 900 IF H= INT (H)THEN 950 910 GOSUB 2010 920 GOTO 872 930 REM * NO ODD/EVEN BET * 940 H= 0 950 REM * RED * 960 PLOT 3,4,16 970 INPUT "-(Y/N) ?";C$ 980 IF LEFT$ (C$,1)< > "Y"THEN PLOT 3,4,16:PRINT " ":GOTO 1120 1020 REM * GET AMOUNT * 1030 PLOT 3,4,16:PRINT " " 1032 D$= "RED" 1034 PLOT 3,4,16 1040 INPUT "$";I 1050 IF I< = 10000THEN 1080 1060 GOSUB 1980 1062 PLOT 3,4,16 1064 PRINT " " 1070 GOTO 1030 1080 IF I< 0THEN 1100 1090 IF I= INT (I)THEN 1240 1100 GOSUB 2010 1110 GOTO 1062 1120 REM * BLACK * 1122 PLOT 3,6,20 1124 INPUT "-(Y/N) ?";C$ 1126 IF LEFT$ (C$,1)< > "Y"THEN PLOT 3,6,20:PRINT " ":GOTO 1220 1136 REM * GET AMOUNT * 1140 PLOT 3,6,20:PRINT " " 1142 D$= "BLACK" 1144 PLOT 3,6,20 1146 INPUT "$";I 1150 IF I< = 10000THEN 1180 1160 GOSUB 1980 1162 PLOT 3,6,20 1164 PRINT " " 1170 GOTO 1140 1180 IF I< 0THEN 1200 1190 IF I= INT (I)THEN 1240 1200 GOSUB 2010 1210 GOTO 1162 1220 REM * NO RED/BLACK BET * 1230 I= 0 1240 REM * COLUMN? * 1250 PLOT 3,7,24 1260 INPUT "-(Y/N) ?";B1$ 1270 IF LEFT$ (B1$,1)< > "Y"THEN PLOT 3,7,24:PRINT " ":GOTO 1490 1310 PLOT 3,8,24:PRINT B1$;" " 1315 PLOT 3,10,24 1320 INPUT "1-2 OR 3?";B2 1330 IF B2> 0THEN IF B2< 4THEN 1400 1340 PLOT 3,10,24 1345 PLOT 6,79 1350 PRINT "1-2 OR 3? " 1360 FOR J1= 1TO 500:NEXT J1 1370 PLOT 3,10,24 1380 PLOT 6,1 1390 PRINT " " 1395 GOTO 1310 1400 REM * GET AMOUNT * 1410 PLOT 3,7,24 1412 PRINT B2; 1415 PRINT " ":PLOT 3,10,24 1420 INPUT "$";B8 1430 IF B8< = 10000THEN 1460 1440 GOSUB 1980 1442 PLOT 3,7,24 1444 PRINT " " 1450 GOTO 1410 1460 IF B8< 0THEN 1480 1470 IF B8= INT (B8)THEN 1510 1480 GOSUB 2010 1482 GOTO 1442 1490 REM * NO COLUMN BET * 1500 B8= 0 1510 REM * NUMBER BET? * 1520 PLOT 3,7,28 1530 INPUT "-(Y/N) ?";E$ 1540 IF LEFT$ (E$,1)< > "Y"THEN PLOT 3,7,28:PRINT " ":GOTO 1790 1580 PLOT 3,8,28:PRINT E$;" " 1585 PLOT 3,10,28 1590 INPUT "0-36?";F 1600 IF F< 0THEN 1630 1610 IF F> 36THEN 1630 1620 IF F= INT (F)THEN 1670 1630 PLOT 3,10,28 1635 PLOT 6,79 1640 PRINT "0-36?" 1650 FOR J1= 1TO 500:NEXT J1 1652 PLOT 3,7,28 1654 PLOT 6,1 1656 PRINT " " 1660 GOTO 1580 1670 REM * GET AMOUNT * 1700 PLOT 3,7,28 1702 PRINT F; 1705 PRINT " ":PLOT 3,11,28 1710 INPUT "$";G 1720 IF G< = 10000THEN 1750 1730 GOSUB 1980 1732 PLOT 3,7,28 1734 PRINT " " 1740 GOTO 1700 1750 IF G< 0THEN 1770 1760 IF G= INT (G)THEN 2040 1770 GOSUB 2010 1780 GOTO 1732 1790 REM * NO NUMBER BET * 1800 G= 0 1810 GOTO 2050 1980 PLOT 3,0,0 1982 PLOT 6,79 1984 PRINT "HOUSE LIMIT IS $10,000 !!" 1985 FOR J1= 1TO 500:NEXT J1 1988 PLOT 3,0,0 1990 PLOT 6,1 1992 PRINT " " 2000 RETURN 2010 PLOT 3,0,0 2012 PLOT 6,79 2014 PRINT "FULL DOLLAR BETS ONLY PLEASE" 2016 FOR J1= 1TO 500:NEXT J1 2017 PLOT 3,0,0 2018 PLOT 6,1 2020 PRINT " " 2030 RETURN 2040 REM 2050 REM 2051 GOTO 2080 2052 PLOT 6,7,3,46,20:PRINT " " 2054 PLOT 3,46,24:PRINT " " 2056 PLOT 3,46,28:PRINT " " 2058 GOSUB 9000:GOTO 2088 2060 REM 2080 REM * THE NUMBER IS * 2082 T1= INT (T/ 10)+ 1 2083 I1= I:PLOT 6,15,3,0,0 2084 IF F+ H+ I+ B8+ B2+ G= 0THEN PRINT "SERIOUS BETTERS ONLY !":PLOT 6,1:GOTO 4990 2086 PLOT 14:GOTO 2052 2088 PLOT 14,6,37:GOSUB 6190:PLOT 14,6,1 2093 I= I1 2094 PLOT 3,0,0:PLOT 6,15 2100 ON T1GOTO 2110,2120,2130,2140 2110 ON T+ 1GOTO 2390,2210,2290,2250,2270,2230,2310,2210,2290,2250 2120 ON T- 9GOTO 2270,2350,2190,2330,2170,2370,2150,2350,2190,2210 2130 ON T- 19GOTO 2290,2250,2270,2230,2310,2210,2170,2370,2270,2350 2140 ON T- 29GOTO 2190,2330,2170,2370,2150,2350,2190 2150 PRINT T;" RED,EVEN,COLUMN 1" 2160 GOTO 2400 2170 PRINT T;" RED,EVEN,COLUMN 2" 2180 GOTO 2400 2190 PRINT T;" RED,EVEN,COLUMN 3" 2200 GOTO 2400 2210 PRINT T;" RED,ODD,COLUMN 1" 2220 GOTO 2400 2230 PRINT T;" RED,ODD,COLUMN 2" 2240 GOTO 2400 2250 PRINT T;" RED,ODD,COLUMN 3" 2260 GOTO 2400 2270 PRINT T;" BLACK,EVEN,COLUMN 1" 2280 GOTO 2400 2290 PRINT T;" BLACK,EVEN,COLUMN 2" 2300 GOTO 2400 2310 PRINT T;" BLACK,EVEN,COLUMN 3" 2320 GOTO 2400 2330 PRINT T;" BLACK,ODD,COLUMN 1" 2340 GOTO 2400 2350 PRINT T;" BLACK,ODD,COLUMN 2" 2360 GOTO 2400 2370 PRINT T;" BLACK,ODD,COLUMN 3" 2380 GOTO 2400 2390 PRINT "THE NUMBER IS 0" 2400 PLOT 3,46,4 2402 PRINT "BETTING RESULTS" 2403 FOR G9= 1TO 500:NEXT G9 2404 PLOT 6,2,3,46,4 2405 PRINT "BETTING RESULTS" 2409 IF G= 0THEN 2470 2410 IF T= FTHEN 2450 2430 G= - G 2440 GOTO 2470 2450 REM 2460 G= 35* G 2470 IF H= 0THEN 2660 2480 IF T= 0THEN 2570 2490 IF B$= "EVEN"THEN 2540 2500 FOR X= 1TO 35STEP 2 2510 IF T= XTHEN 2610 2520 NEXT X 2530 GOTO 2570 2540 FOR X1= 2TO 36STEP 2 2550 IF T= X1THEN 2610 2560 NEXT X1 2570 REM 2590 H= - H 2610 REM 2620 IF B$= "EVEN"THEN 2640 2630 PLOT 3,49,8 2635 GOTO 2642 2640 PLOT 3,50,12 2642 IF H< 0THEN 2646 2644 PLOT 6,2 2645 GOTO 2650 2646 PLOT 6,1 2650 PRINT " $";H 2660 IF I= 0THEN 2940 2670 IF T= 0THEN 2840 2680 FOR A1= 1TO 9STEP 2 2690 IF T= A1THEN 2830 2700 NEXT A1 2710 FOR A2= 12TO 18STEP 2 2720 IF T= A2THEN 2830 2730 NEXT A2 2740 FOR A3= 19TO 25STEP 2 2750 IF T= A3THEN 2830 2760 NEXT A3 2770 FOR A4= 30TO 36STEP 2 2780 IF T= A4THEN 2830 2790 NEXT A4 2800 IF T= 26THEN 2830 2810 IF D$= "BLACK"THEN 2880 2820 GOTO 2840 2830 IF D$= "RED"THEN 2880 2840 REM 2860 I= - I 2880 REM 2890 IF D$= "BLACK"THEN 2920 2900 PLOT 3,49,16 2910 GOTO 2930 2920 PLOT 3,51,20 2930 IF I< 0THEN 2936 2932 PLOT 6,2 2934 GOTO 2938 2936 PLOT 6,1 2938 PRINT " $";I 2940 IF B8= 0THEN 3212 2950 IF T= 0THEN 3160 2960 FOR B3= 1TO 34STEP 3 2970 IF T= B3THEN 3050 2980 NEXT B3 2990 FOR B4= 2TO 35STEP 3 3000 IF T= B4THEN 3070 3010 NEXT B4 3020 FOR B5= 3TO 36STEP 3 3030 IF T= B5THEN 3090 3040 NEXT B5 3050 IF B2= 1THEN 3110 3060 IF B2< > 1THEN 3160 3070 IF B2= 2THEN 3110 3080 IF B2< > 2THEN 3160 3090 IF B2= 3THEN 3110 3100 IF B2< > 3THEN 3160 3110 REM 3130 REM 3140 B8= 2* B8 3150 GOTO 3200 3160 REM 3190 B8= - B8 3200 IF B8< 0THEN 3206 3202 PLOT 6,2 3204 GOTO 3208 3206 PLOT 6,1 3208 PLOT 3,52,24 3210 PRINT " $";B8 3212 IF G= 0THEN 3220 3213 IF G< 0THEN 3216 3214 PLOT 6,2 3215 GOTO 3218 3216 PLOT 6,1 3218 PLOT 3,52,28 3219 PRINT " $";G 3220 PLOT 3,54,0 3230 PRINT " " 3235 K9= K9+ G+ H+ I+ B8 3240 IF K9< 0THEN 3270 3250 PLOT 6,2 3260 GOTO 3280 3270 PLOT 6,1 3280 PLOT 3,54,0 3290 PRINT " $";K9 4990 FOR I1= 1TO 2000:NEXT I1 4992 F= 0:B2= 0 4995 GOTO 500 4999 PLOT 6,2,27,11:END 5000 REM *** DRAW THE BOARD *** 5010 PLOT 6,7,15,12 5040 PLOT 6,56 5045 PLOT 27,24 5050 PLOT 3,27,31 5060 FOR I= 1TO 11:PLOT 32:NEXT I 5080 FOR I= 28TO 4STEP - 2 5090 PLOT 3,27,I 5100 FOR J= 1TO 11:PLOT 32:NEXT J 5120 NEXT I 5140 PLOT 3,27,1 5160 FOR I= 1TO 11:PLOT 32:NEXT I 5180 FOR I= 4TO 28STEP 12 5200 PLOT 3,21,I 5220 FOR J= 1TO 23:PLOT 32:NEXT J 5230 NEXT I 5235 FOR I= 20TO 44STEP 24:REM * START VERTICAL * 5240 FOR J= 28TO 4STEP - 1 5260 PLOT 3,I,J 5280 PLOT 32:NEXT J 5300 NEXT I 5320 FOR I= 26TO 38STEP 12 5340 FOR J= 1TO 31 5360 PLOT 3,I,J 5380 PLOT 32:NEXT J:NEXT I 5400 FOR I= 30TO 34STEP 4 5420 FOR J= 4TO 31 5440 PLOT 3,I,J 5460 PLOT 32:NEXT J:NEXT I 5500 REM * LABEL THE BOARD * 5520 PLOT 6,20 5540 FOR I= 21TO 39STEP 18 5560 FOR J= 5TO 15 5580 PLOT 3,I,J 5590 FOR K= 1TO 5:PLOT 32:NEXT K 5600 NEXT J:NEXT I 5610 FOR I= 2TO 3 5615 PLOT 3,27,I 5620 FOR J= 1TO 11 5640 PLOT 32:NEXT J:NEXT I 5650 FOR I= 29TO 30 5660 FOR J= 27TO 35STEP 4 5670 PLOT 3,J,I 5680 FOR K= 1TO 3:PLOT 32:NEXT K 5690 NEXT J:NEXT I 5700 PLOT 3,32,3:PRINT "0" 5710 PLOT 3,22,10:PRINT "EVEN" 5720 PLOT 3,40,10:PRINT "ODD" 5730 FOR I= 27TO 35STEP 4 5740 PLOT 3,I,29 5750 PRINT "COL":NEXT I 5760 PLOT 3,28,30 5765 K= 0 5770 FOR I= 27TO 35STEP 4 5780 K= K+ 1 5790 PLOT 3,I,30 5800 PRINT K 5810 NEXT I 5820 PLOT 6,7 5830 PLOT 3,21,22 5840 PRINT "BLACK" 5850 PLOT 6,15 5860 FOR I= 17TO 27 5870 PLOT 3,39,I 5880 FOR J= 1TO 5:PLOT 32:NEXT J 5890 NEXT I 5900 PLOT 3,40,22:PRINT "RED" 5910 PLOT 3,27,5:PRINT " 1 " 5912 PLOT 3,35,5:PRINT " 3 " 5914 PLOT 3,31,7:PRINT " 5 " 5916 PLOT 3,27,9:PRINT " 7 " 5918 PLOT 3,35,9:PRINT " 9 " 5920 PLOT 3,35,11:PRINT "12 " 5922 PLOT 3,31,13:PRINT "14 " 5924 PLOT 3,27,15:PRINT "16 " 5926 PLOT 3,35,15:PRINT "18 " 5928 PLOT 3,27,17:PRINT "19 " 5930 PLOT 3,35,17:PRINT "21 " 5932 PLOT 3,31,19:PRINT "23 " 5934 PLOT 3,27,21:PRINT "25 " 5936 PLOT 3,31,21:PRINT "26 " 5938 PLOT 3,35,23:PRINT "30 " 5940 PLOT 3,31,25:PRINT "32 " 5942 PLOT 3,27,27:PRINT "34 " 5944 PLOT 3,35,27:PRINT "36 " 5946 PLOT 6,7 5950 PLOT 3,31,5:PRINT " 2" 5952 PLOT 3,27,7:PRINT " 4" 5954 PLOT 3,35,7:PRINT " 6" 5956 PLOT 3,31,9:PRINT " 8" 5958 PLOT 3,27,11:PRINT "10" 5960 PLOT 3,31,11:PRINT "11" 5962 PLOT 3,27,13:PRINT "13" 5964 PLOT 3,35,13:PRINT "15" 5966 PLOT 3,31,15:PRINT "17" 5968 PLOT 3,31,17:PRINT "20" 5970 PLOT 3,27,19:PRINT "22" 5972 PLOT 3,35,19:PRINT "24" 5974 PLOT 3,35,21:PRINT "27" 5975 PLOT 3,27,23:PRINT "28" 5976 PLOT 3,31,23:PRINT "29" 5978 PLOT 3,27,25:PRINT "31" 5980 PLOT 3,35,25:PRINT "33" 5982 PLOT 3,31,27:PRINT "35" 5990 REM * END OF BOARD * 6000 REM * PLACE TEXT * 6010 PLOT 6,2 6015 PLOT 14,6,37 6020 PLOT 3,0,4 6040 PRINT "PLACE YOUR BETS":PRINT 6050 PRINT "ODD":PRINT 6060 PRINT "EVEN":PRINT 6070 PRINT "RED":PRINT 6080 PRINT "BLACK":PRINT 6090 PRINT "COLUMN":PRINT 6100 PRINT "NUMBER" 6102 PLOT 3,46,0 6104 PRINT "BALANCE $0" 6110 PLOT 3,46,4 6120 PRINT "BETTING RESULTS" 6130 PLOT 3,46,8 6140 PRINT "ODD" 6150 PLOT 3,46,12 6160 PRINT "EVEN" 6170 PLOT 3,46,16 6180 PRINT "RED" 6190 PLOT 3,46,20 6200 PRINT "BLACK" 6210 PLOT 3,46,24 6220 PRINT "COLUMN" 6222 PLOT 3,46,28 6224 PRINT "NUMBER" 6270 PLOT 15,6,7 6280 RETURN 6300 REM ** CLEAR THE BET AREA ** 6310 PLOT 6,7 6320 PLOT 3,3,8 6330 PRINT " " 6340 PLOT 3,4,12 6350 PRINT " " 6360 PLOT 3,3,16 6370 PRINT " " 6380 PLOT 3,5,20 6390 PRINT " " 6400 PLOT 3,6,24 6410 PRINT " " 6420 PLOT 3,6,28 6430 PRINT " " 6440 RETURN 6500 REM ** CLEAR THE RESULTS AREA ** 6510 PLOT 6,7 6520 PLOT 3,49,8 6530 PRINT " " 6540 PLOT 3,50,12 6550 PRINT " " 6560 PLOT 3,49,16 6570 PRINT " " 6580 PLOT 3,51,20 6590 PRINT " " 6600 PLOT 3,52,24 6610 PRINT " " 6620 PLOT 3,52,28 6630 PRINT " " 6640 RETURN 9000 REM ** SPIN THE BALL COUNTER CLOCKWISE ** 9005 PLOT 3,64,0 9010 PLOT 2,253,X,Y 9020 FOR I= 1TO 2 9030 FOR K= 1TO K4 9035 REM * PLOT THE WHITE BALL * 9040 PLOT 255:PLOT 6,7:PLOT 2,253,X1(K),Y1(K) 9060 REM * PLOT THE BLACK BALL * 9070 PLOT 255:PLOT 6,0:PLOT 2,253,X1(K),Y1(K) 9090 NEXT K:NEXT I 9095 REM * END OF CCW SPIN * 9100 REM * SPIN ONCE CW * 9110 PLOT 255,3,64,0 9112 PLOT 6,7 9115 PLOT 2,253,X,Y 9120 FOR I= K4TO 1STEP - 1 9140 PLOT 255:PLOT 6,7:PLOT 2,253,X2(I),Y2(I) 9180 PLOT 255:PLOT 6,0:PLOT 2,253,X2(I),Y2(I) 9210 NEXT I 9220 PLOT 255:PLOT 6,7 9230 REM * END OF SPIN * 9240 RETURN 10000 REM ** CALCULATE THE PATH OF THE BALL ** 10010 DIM X1(64),Y1(64) 10015 DIM X2(64),Y2(64) 10020 S1= 10:K1= 0:K2= 158:K3= S1:K4= 0 10030 XX= 17:YY= 27 10035 X3= 14:Y3= 24 10040 REM * CENTER OF WHEEL * 10050 X= 108:Y= 30 10060 FOR KK= 1TO 4 10070 IF KK< > 2THEN 10090 10080 XX= - XX:K1= 158:K2= 0:K3= - S1 10085 X3= - X3 10090 IF KK< > 3THEN 10110 10100 YY= - YY:K1= 0:K2= 158:K3= S1 10105 Y3= - Y3 10110 IF KK< > 4THEN 10130 10120 XX= - XX:K1= 158:K2= 0:K3= - S1 10125 X3= - X3 10130 FOR I= K1TO K2STEP K3 10140 A= I* .01 10150 K4= K4+ 1 10160 X1(K4)= X+ XX* COS (A) 10170 Y1(K4)= Y+ YY* SIN (A) 10172 X2(K4)= X+ X3* COS (A) 10174 Y2(K4)= Y+ Y3* SIN (A) 10180 NEXT I 10190 NEXT KK 10192 RETURN 10195 REM * END OF CALCULATION * 19999 END