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