Compucolor.org – Virtual Media

Listing of file='RULET.BAS;01' on disk='vmedia/ncc_16-sector.ccvf'

100 REM  EUROPEAN ROULETTE
110 REM  CONVERTED FROM DARTMOUTH BASIC TO INTERCOLOR BY:
120 REM  W.C. HOFFER-2721 N. WANDA-SIME VALLEY,CA-93065
130 REM  CONVERTED TO COMPUCOLOR BY:
140 REM  C.& M.ALLAN NSW CCII USER GROUP
150 REM  REQUIRES 16K OF USER RAM
155
160 DUMMY= RND (- PEEK (33209))
165
170 REM  DISPLAY THE INTRODUCTION
180 PLOT 6,33,12,27,24,14,6,97
181 PLOT 3,7,11
182 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
183 PLOT 3,7,13:PRINT "$":PLOT 3,53,13:PRINT "$"
184 PLOT 3,7,15:PRINT "$":PLOT 3,53,15:PRINT "$"
185 PLOT 3,7,17:PRINT "$":PLOT 3,53,17:PRINT "$"
186 PLOT 3,7,19
187 PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
190 PLOT 6,38,30,3,11,13
200 FOR I= 1TO 39:PLOT 127:NEXT I
210 PLOT 6,48,3,11,15
220 PRINT " COMPUCOLOR PRESENTS EUROPEAN ROULETTE "
230 PLOT 3,64,0
235
240 GOSUB 5610
245
250 PLOT 6,6,12,15
260 PRINT "WELCOME TO THE COMPUCOLOR CASINO AND OUR EUROPEAN ROULETTE TABLE."
270 PRINT "WE WISH YOU THE BEST OF LUCK."
280 PRINT :PRINT :PRINT
290 INPUT "DO YOU WANT INSTRUCTIONS? ";Z$
300 IF Z$= "NO"THEN 564
310 IF Z$= ""THEN 564
320 IF Z$= "YES"THEN 350
330 GOSUB 5120
340 GOTO 280
345
350 PLOT 6,6,12
360 PRINT :PRINT :PRINT
370 PRINT "THIS IS A GAME OF ROULETTE. YOU ARE ALLOWED TO BET ON"
380 PRINT "ANY (OR ALL) OF THE FOLLOWING: WHETHER A NUMBER IS ODD OR EVEN,"
390 PRINT "COLOUR (RED OR BLACK) OF THE NUMBER, A COLUMN OF NUMBERS,"
400 PRINT "A NUMBER ITSELF. NUMBERS RANGE FROM 0 TO 36. IF A 0 APPEARS,"
410 PRINT "THE BANK COLLECTS ALL BETS EXCEPT THOSE BET ON THE NUMBER 0."
420 PLOT 6,2
430 PRINT :PRINT
440 PRINT "THE PAYOFFS ARE AS FOLLOWS:
450 PRINT "ODD OR EVEN  1 TO 1"
460 PRINT "RED OR BLACK 1 TO 1"
470 PRINT "A COLUMN     2 TO 1"
480 PRINT "A NUMBER    35 TO 1"
490 PLOT 6,6
500 PRINT :PRINT
510 PRINT " YOU ARE ALLOWED TO BET FROM $1 TO $10,000, BUT THE"
520 PRINT "TABLE WILL ONLY ACCEPT BETS OF WHOLE DOLLARS."
530 PRINT
550 PRINT :PRINT
552 PLOT 6,5:PRINT "A <RETURN> IS USED TO BYPASS A PARTICULAR BET."
553 PRINT :PRINT "A <Q> WILL EXIT THE PROGRAM AFTER RESULTS POSTED."
555
564 PRINT :PRINT
566 PLOT 6,3:INPUT "HOW MUCH IS YOUR STAKE? $";K9
570
575 REM  DRAW THE TABLE
580 GOSUB 3490
585
590 REM  TAKE THE BETS
610 GOSUB 4810
620 GOSUB 4980
630 PLOT 6,79,3,0,18:PRINT "PLACE YOUR BETS"
640 FOR J1= 1TO 500:NEXT J1
650 PLOT 6,2,3,0,18:PRINT "PLACE YOUR BETS"
655
660 REM  ODD?
670 PLOT 6,1,3,4,20:INPUT "$";A$
680 H= VAL (A$)
690 IF H= 0THEN PLOT 3,4,20:PRINT "                ":GOTO 850
700 B$= "ODD"
770 IF H> 10000THEN GOSUB 5210:GOTO 842
810 IF H< 1THEN GOSUB 5300:GOTO 842
820 IF H< > INT (H)THEN GOSUB 5300:GOTO 842
830 IF H> K9THEN GOSUB 5160:GOTO 842
840 GOTO 1055
842 PLOT 3,4,20:PRINT "                "
844 GOTO 670
845
850 REM  EVEN?
860 PLOT 6,1,3,5,22:INPUT "$";A$
870 H= VAL (A$)
880 IF H= 0THEN PLOT 3,5,22:PRINT "               ":GOTO 1060
890 B$= "EVEN"
900 IF H> 10000THEN GOSUB 5210:GOTO 950
910 IF H< 1THEN GOSUB 5300:GOTO 950
920 IF H< > INT (H)THEN GOSUB 5300:GOTO 950
930 IF H> K9THEN GOSUB 5160:GOTO 950
940 GOTO 1055
950 PLOT 3,5,22:PRINT "               "
960 GOTO 860
1055 K9= K9- H
1056 PLOT 6,2,3,8,14:PRINT "            "
1057 PLOT 3,8,14:PRINT " $";K9
1058
1060 REM  RED?
1070 PLOT 6,1,3,4,24:INPUT "$";A$
1080 I= VAL (A$)
1090 IF I= 0THEN PLOT 3,4,24:PRINT "                ":GOTO 1190
1100 D$= "RED"
1110 IF I> 10000THEN GOSUB 5210:GOTO 1160
1120 IF I< 1THEN GOSUB 5300:GOTO 1160
1130 IF I< > INT (I)THEN GOSUB 5300:GOTO 1160
1140 IF I> K9THEN GOSUB 5160:GOTO 1160
1150 GOTO 1455
1160 PLOT 3,4,24:PRINT "                "
1170 GOTO 1070
1180
1190 REM  BLACK?
1200 PLOT 6,1,3,6,26:INPUT "$";A$
1210 I= VAL (A$)
1220 IF I= 0THEN PLOT 3,6,26:PRINT "              ":GOTO 1460
1230 D$= "BLACK"
1240 IF I> 10000THEN GOSUB 5210:GOTO 1290
1250 IF I< 1THEN GOSUB 5300:GOTO 1290
1260 IF I< > INT (I)THEN GOSUB 5300:GOTO 1290
1270 IF I> K9THEN GOSUB 5160:GOTO 1290
1280 GOTO 1455
1290 PLOT 3,6,26:PRINT "              "
1300 GOTO 1200
1455 K9= K9- I
1456 PLOT 6,2,3,8,14:PRINT "            "
1457 PLOT 3,8,14:PRINT " $";K9
1458
1460 REM  COLUMN?
1540 PLOT 6,3,3,7,28:INPUT "1,2 OR 3? ";A$
1542 B2= VAL (A$)
1544 IF B2= 0THEN B8= 0:PLOT 3,7,28:PRINT "             ":GOTO 1730
1546 IF B2< 0THEN 1560
1550 IF B2< 4THEN 1600
1560 PLOT 6,79,3,7,28:PRINT "  1,2 OR 3?  "
1570 FOR J1= 1TO 500:NEXT J1
1580 PLOT 6,1,3,7,28:PRINT "             "
1590 GOTO 1540
1600 REM  GET AMOUNT
1610 PLOT 6,2,3,7,28:PRINT B2;"           "
1620 PLOT 6,1,3,10,28:INPUT "$";B8
1630 IF B8< = 10000THEN 1670
1640 GOSUB 5210
1650 PLOT 3,10,28:PRINT "          "
1660 GOTO 1620
1670 IF B8< 1THEN GOSUB 5300:GOTO 1650
1680 IF B8< > INT (B8)THEN GOSUB 5300:GOTO 1650
1690 IF B8> K9THEN GOSUB 5160:GOTO 1650
1722 K9= K9- B8
1724 PLOT 6,2,3,8,14:PRINT "            "
1726 PLOT 3,8,14:PRINT " $";K9
1728
1730 REM  NUMBER BET?
1810 PLOT 6,3,3,7,30:INPUT "0-36? ";A$
1812 F= VAL (A$)
1814 IF F= 0THEN G= 0:PLOT 3,7,30:PRINT "             ":GOTO 2020
1820 IF F< 0THEN 1850
1830 IF F> 36THEN 1850
1840 IF F= INT (F)THEN 1890
1850 PLOT 6,79,3,7,30:PRINT " 0-36?  "
1860 FOR J1= 1TO 500:NEXT J1
1870 PLOT 6,1,3,7,30:PRINT "             "
1880 GOTO 1810
1890 REM  GET AMOUNT
1900 PLOT 6,2,3,7,30:PRINT F;"           "
1910 PLOT 6,1,3,11,30:INPUT "$";G
1920 IF G< = 10000THEN 1960
1930 GOSUB 5210
1940 PLOT 3,11,30:PRINT "         ";
1950 GOTO 1910
1960 IF G< 1THEN GOSUB 5300:GOTO 1940
1970 IF G< > INT (G)THEN GOSUB 5300:GOTO 1940
1980 IF G> K9THEN GOSUB 5160:GOTO 1940
2012 K9= K9- G
2014 PLOT 6,2,3,8,14:PRINT "            "
2016 PLOT 3,8,14:PRINT " $";K9
2018
2020 T= INT (37* RND (1))
2030 REM  THE NUMBER IS
2040 T1= INT (T/ 10)+ 1
2050 GOSUB 5380
2060 IF T= 0THEN XT= 31:YT= 3:GOTO 2100
2070 TT= INT ((T- 1)/ 3)
2080 XT= (T- 3* TT)* 4+ 23
2090 YT= 2* TT+ 5
2100 AD= 28673+ 2* XT+ 128* YT
2110 FOR L= ADTO AD+ 4STEP 2
2120 POKE L,PEEK (L)+ 64
2130 NEXT L
2365
2370 PLOT 6,79,3,46,16:PRINT "BETTING RESULTS"
2400 FOR G9= 1TO 500:NEXT G9
2410 PLOT 6,2,3,46,16:PRINT "BETTING RESULTS"
2420 BT= H+ I+ B8+ G
2425
2430 IF G= 0THEN 2490
2440 IF T= FTHEN 2470
2450 G= - G:CL= 1
2460 GOTO 2480
2470 G= 35* G:CL= 2
2480 PLOT 6,CL,3,52,30:PRINT " $";G
2485
2490 IF H= 0THEN 2710
2500 IF T= 0THEN 2590
2510 IF B$= "EVEN"THEN 2560
2520 FOR X1= 1TO 35STEP 2
2530 IF T= X1THEN 2610
2540 NEXT X1
2550 GOTO 2590
2560 FOR X1= 2TO 36STEP 2
2570 IF T= X1THEN 2610
2580 NEXT X1
2590 REM
2600 H= - H
2610 REM
2620 IF B$= "EVEN"THEN 2650
2630 PLOT 3,49,20
2640 GOTO 2660
2650 PLOT 3,50,22
2660 IF H< 0THEN 2690
2670 PLOT 6,2
2680 GOTO 2700
2690 PLOT 6,1
2700 PRINT " $";H
2705
2710 IF I= 0THEN 3010
2720 IF T= 0THEN 3010
2730 FOR A1= 1TO 9STEP 2
2740 IF T= A1THEN 2880
2750 NEXT A1
2760 FOR A2= 12TO 18STEP 2
2770 IF T= A2THEN 2880
2780 NEXT A2
2790 FOR A3= 19TO 25STEP 2
2800 IF T= A3THEN 2880
2810 NEXT A3
2820 FOR A4= 30TO 36STEP 2
2830 IF T= A4THEN 2880
2840 NEXT A4
2850 IF T= 26THEN 2880
2860 IF D$= "BLACK"THEN 2910
2870 GOTO 2890
2880 IF D$= "RED"THEN 2910
2890 REM
2900 I= - I
2910 REM
2920 IF D$= "BLACK"THEN 2950
2930 PLOT 3,49,24
2940 GOTO 2960
2950 PLOT 3,51,26
2960 IF I< 0THEN 2990
2970 PLOT 6,2
2980 GOTO 3000
2990 PLOT 6,1
3000 PRINT " $";I
3005
3010 IF B8= 0THEN 3370
3020 IF T= 0THEN 3220
3030 FOR B3= 1TO 34STEP 3
3040 IF T= B3THEN 3120
3050 NEXT B3
3060 FOR B4= 2TO 35STEP 3
3070 IF T= B4THEN 3140
3080 NEXT B4
3090 FOR B5= 3TO 36STEP 3
3100 IF T= B5THEN 3160
3110 NEXT B5
3120 IF B2= 1THEN 3200
3130 IF B2< > 1THEN 3230
3140 IF B2= 2THEN 3200
3150 IF B2< > 2THEN 3230
3160 IF B2= 3THEN 3200
3170 IF B2< > 3THEN 3230
3200 B8= 2* B8
3210 GOTO 3240
3230 B8= - B8
3240 IF B8< 0THEN CL= 1:GOTO 3290
3250 CL= 2
3290 PLOT 6,CL,3,52,28:PRINT " $";B8
3360
3370 PLOT 3,8,14:PRINT "            "
3382 TW= G+ H+ I+ B8
3390 K9= K9+ TW+ BT
3440 PLOT 6,2,3,8,14:PRINT " $";K9
3444 CL= 2:IF TW< 0THEN CL= 1
3446 PLOT 6,CL,3,51,18:PRINT " $";TW
3448 IF K9= 0THEN 3472
3454 PLOT 6,75,3,0,4:PRINT "PRESS ANY KEY TO GO":PLOT 3,64,0
3456 POKE 33278,0
3458 IF PEEK (33278)= 0THEN 3458
3460 IF PEEK (33278)= 81THEN 3476
3468 PLOT 6,2,3,0,4:PRINT "                    "
3469 FOR L= ADTO AD+ 4STEP 2:POKE L,PEEK (L)- 64:NEXT L
3470 GOTO 590
3472 PLOT 6,1,8,11:INPUT "YOU HAVE RUN OUT OF MONEY! WANT TO PLAY AGAIN (Y/N)? ";AN$
3474 IF AN$= "Y"THEN 250
3476 PLOT 6,2,27,11,15,12
3478 END
3480
3490 REM  DRAW THE BOARD ************************************
3500 PLOT 6,6,15,12
3510 PLOT 6,56
3520 PLOT 3,27,31
3530 FOR I= 1TO 11:PLOT 32:NEXT I
3540 FOR I= 28TO 4STEP - 2
3550 PLOT 3,27,I
3560 FOR J= 1TO 11:PLOT 32:NEXT J
3570 NEXT I
3580 PLOT 3,27,1
3590 FOR I= 1TO 11:PLOT 32:NEXT I
3600 FOR I= 4TO 28STEP 12
3610 PLOT 3,21,I
3620 FOR J= 1TO 23:PLOT 32:NEXT J
3630 NEXT I
3640 FOR I= 20TO 44STEP 24:REM  START VERTICAL
3650 FOR J= 28TO 4STEP - 1
3660 PLOT 3,I,J
3670 PLOT 32:NEXT J
3680 NEXT I
3690 FOR I= 26TO 38STEP 12
3700 FOR J= 1TO 31
3710 PLOT 3,I,J
3720 PLOT 32:NEXT J:NEXT I
3730 FOR I= 30TO 34STEP 4
3740 FOR J= 4TO 31
3750 PLOT 3,I,J
3760 PLOT 32:NEXT J:NEXT I
3770 REM  LABEL THE BOARD
3780 PLOT 6,20
3790 FOR I= 21TO 39STEP 18
3800 FOR J= 5TO 15
3810 PLOT 3,I,J
3820 FOR K= 1TO 5:PLOT 32:NEXT K
3830 NEXT J:NEXT I
3840 FOR I= 2TO 3
3850 PLOT 3,27,I
3860 FOR J= 1TO 11
3870 PLOT 32:NEXT J:NEXT I
3880 FOR I= 29TO 30
3890 FOR J= 27TO 35STEP 4
3900 PLOT 3,J,I
3910 FOR K= 1TO 3:PLOT 32:NEXT K
3920 NEXT J:NEXT I
3930 PLOT 3,32,3:PRINT "0"
3940 PLOT 3,22,10:PRINT "EVEN"
3950 PLOT 3,40,10:PRINT "ODD"
3960 FOR I= 27TO 35STEP 4
3970 PLOT 3,I,29
3980 PRINT "COL":NEXT I
3990 K= 0
4000 FOR I= 27TO 35STEP 4
4010 K= K+ 1
4020 PLOT 3,I,30:PRINT K
4030 NEXT I
4040 PLOT 6,2
4050 PLOT 3,21,22
4060 PRINT "BLACK"
4070 PLOT 6,15
4080 FOR I= 17TO 27
4090 PLOT 3,39,I
4100 FOR J= 1TO 5:PLOT 32:NEXT J
4110 NEXT I
4120 PLOT 6,10
4130 PLOT 3,40,22:PRINT "RED"
4140 PLOT 3,27,5:PRINT " 1 "
4150 PLOT 3,35,5:PRINT " 3 "
4160 PLOT 3,31,7:PRINT " 5 "
4170 PLOT 3,27,9:PRINT " 7 "
4180 PLOT 3,35,9:PRINT " 9 "
4190 PLOT 3,35,11:PRINT "12 "
4200 PLOT 3,31,13:PRINT "14 "
4210 PLOT 3,27,15:PRINT "16 "
4220 PLOT 3,35,15:PRINT "18 "
4230 PLOT 3,27,17:PRINT "19 "
4240 PLOT 3,35,17:PRINT "21 "
4250 PLOT 3,31,19:PRINT "23 "
4260 PLOT 3,27,21:PRINT "25 "
4270 PLOT 3,31,21:PRINT "26 "
4280 PLOT 3,35,23:PRINT "30 "
4290 PLOT 3,31,25:PRINT "32 "
4300 PLOT 3,27,27:PRINT "34 "
4310 PLOT 3,35,27:PRINT "36 "
4320 PLOT 6,2
4330 PLOT 3,31,5:PRINT " 2"
4340 PLOT 3,27,7:PRINT " 4"
4350 PLOT 3,35,7:PRINT " 6"
4360 PLOT 3,31,9:PRINT " 8"
4370 PLOT 3,27,11:PRINT "10"
4380 PLOT 3,31,11:PRINT "11"
4390 PLOT 3,27,13:PRINT "13"
4400 PLOT 3,35,13:PRINT "15"
4410 PLOT 3,31,15:PRINT "17"
4420 PLOT 3,31,17:PRINT "20"
4430 PLOT 3,27,19:PRINT "22"
4440 PLOT 3,35,19:PRINT "24"
4450 PLOT 3,35,21:PRINT "27"
4460 PLOT 3,27,23:PRINT "28"
4470 PLOT 3,31,23:PRINT "29"
4480 PLOT 3,27,25:PRINT "31"
4490 PLOT 3,35,25:PRINT "33"
4500 PLOT 3,31,27:PRINT "35"
4501 PLOT 3,50,1:PRINT ""
4503 PLOT 3,48,2:PRINT "ih         fg"
4504 PLOT 3,46,3:PRINT "ih             fg"
4505 PLOT 3,45,4:PRINT "b        n        a"
4506 PLOT 3,45,5:PRINT "b        n        a"
4507 PLOT 3,45,6:PRINT "b     fg n ih     a"
4508 PLOT 3,45,7:PRINT "b       >+<       a"
4509 PLOT 3,45,8:PRINT "b     ih n fg     a"
4510 PLOT 3,45,9:PRINT "b        n        a"
4511 PLOT 3,45,10:PRINT "b        n        a"
4512 PLOT 3,45,11:PRINT "b        n        a"
4513 PLOT 3,46,12:PRINT "fg             ih"
4514 PLOT 3,48,13:PRINT "fg         ih"
4515 PLOT 3,50,14:PRINT "eeeeeeeee"
4519 REM  END OF BOARD
4520 REM  PLACE TEXT
4530 PLOT 6,2,3,0,18
4550 PRINT "PLACE YOUR BETS":PRINT
4560 PRINT "ODD":PRINT
4570 PRINT "EVEN":PRINT
4580 PRINT "RED":PRINT
4590 PRINT "BLACK":PRINT
4600 PRINT "COLUMN":PRINT
4610 PRINT "NUMBER"
4630 PLOT 3,46,16:PRINT "BETTING RESULTS"
4640 PLOT 3,46,18:PRINT "TOTAL"
4650 PLOT 3,46,20:PRINT "ODD"
4670 PLOT 3,46,22:PRINT "EVEN"
4690 PLOT 3,46,24:PRINT "RED"
4710 PLOT 3,46,26:PRINT "BLACK"
4730 PLOT 3,46,28:PRINT "COLUMN"
4750 PLOT 3,46,30:PRINT "NUMBER"
4780 PLOT 3,0,14:PRINT "BALANCE $";K9
4800 RETURN
4805
4810 REM  CLEAR THE BET AREA *********************************
4820 PLOT 6,7
4840 PLOT 3,3,20:PRINT "               "
4860 PLOT 3,4,22:PRINT "              "
4880 PLOT 3,3,24:PRINT "               "
4900 PLOT 3,5,26:PRINT "             "
4920 PLOT 3,6,28:PRINT "            "
4940 PLOT 3,6,30:PRINT "            "
4950 RETURN
4955
4960 REM  CLEAR THE RESULTS AREA ****************************
4970 PLOT 6,2
4980 PLOT 3,38,0:PRINT "                           "
4990 PLOT 3,52,18:PRINT "             "
5000 PLOT 3,49,20:PRINT "                "
5010 PLOT 3,50,22:PRINT "               "
5030 PLOT 3,49,24:PRINT "                "
5050 PLOT 3,51,26:PRINT "              "
5070 PLOT 3,52,28:PRINT "             "
5090 PLOT 3,52,30:PRINT "             "
5100 RETURN
5105
5110 REM  ERROR MESSAGES ************************************
5120 PLOT 6,79,3,0,4:PRINT "  YES OR NO PLEASE  "
5150 GOTO 5330
5160 PLOT 6,79,3,0,4:PRINT "YOU HAVEN'T THE CASH"
5170 GOTO 5330
5210 PLOT 6,79,3,0,4:PRINT "  LIMIT IS $10,000  "
5240 GOTO 5330
5300 PLOT 6,79,3,0,4:PRINT "  DOLLAR BETS ONLY  "
5330 FOR J1= 1TO 500:NEXT J1
5360 PLOT 6,1,3,0,4:PRINT "                    "
5370 RETURN
5375
5380 REM  SPIN THE BALL **************************************
5385 REM SPIN TWICE COUNTER CLOCKWISE
5390 PLOT 3,64,0
5400 FOR II= 1TO 2
5410 FOR K= 1TO 64
5420 REM  PLOT THE WHITE BALL
5430 PLOT 6,7,2,253
5440 PLOT X1(K),Y1(K),255
5450 REM  PLOT THE BLACK BALL
5460 PLOT 6,0,2,253
5470 PLOT X1(K),Y1(K),255
5480 NEXT K
5490 NEXT II
5500 REM  END OF CCW SPIN
5510 REM  SPIN ONCE CW
5520 PLOT 3,64,0
5530 FOR K= 64TO 1STEP - 1
5540 PLOT 6,7,2,253
5550 PLOT X2(K),Y2(K),255
5560 PLOT 6,0,2,253
5570 PLOT X2(K),Y2(K),255
5580 NEXT K
5590 REM  END OF SPIN
5600 RETURN
5605
5610 REM  CALCULATE THE PATH OF THE BALL **********************
5620 DIM X1(64),Y1(64)
5630 DIM X2(64),Y2(64)
5650 XX= 16:YY= 21
5660 X3= 14:Y3= 19
5670 REM  CENTRE OF WHEEL
5680 X= 108:Y= 96
5690 K= 0
5700 FOR I= 0TO 158STEP 10
5710 A= I* .01
5720 K= K+ 1
5730 CA= COS (A)
5732 SA= SIN (A)
5734 X1(K)= X+ XX* CA
5736 X1(33- K)= X- XX* CA
5738 X1(32+ K)= X1(33- K)
5740 X1(65- K)= X1(K)
5742 Y1(K)= Y+ YY* SA
5744 Y1(33- K)= Y1(K)
5746 Y1(32+ K)= Y- YY* SA
5748 Y1(65- K)= Y1(32+ K)
5800 X2(K)= X+ X3* CA
5802 X2(33- K)= X- X3* CA
5804 X2(32+ K)= X2(33- K)
5806 X2(65- K)= X2(K)
5808 Y2(K)= Y+ Y3* SA
5810 Y2(33- K)= Y2(K)
5812 Y2(32+ K)= Y- Y3* SA
5814 Y2(65- K)= Y2(32+ K)
5860 NEXT I
5880 RETURN
5890 REM  END OF CALCULATION