Announcement

Collapse
No announcement yet.

Range Lines

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Range Lines

    In many cases in surveying a road or property, working along the line where a roadway (any boundary where the right-of-way of a highway, street, etc. and property meet) is not possible, it becomes necessary to work on a line that is offset by a set distance. Some call that line a Range Line. The Range Line can be any distance outside or inside of the property ownership line. That Range Line is parallel to the line we are staking or measuring structures thereon...
    Likewise, any property side or rear line might also need a Range Line...

    This program was originally written in Turbo Basic and converted to Power Basic... I used it to check my calculations and not as the prime source... It is very easy to box numbers or some other mistake to take any program as your final answer... Always have some sort of check on your work...

    Here is my Range Line program... I stopped using it when Generic Cad came out... Then AutoCAD...

    Code:
    #COMPILE EXE
    #CONSOLE OFF
    
    FUNCTION PBMAIN () AS LONG
    
    LOCAL H,Y,X,V9 AS LONG
    LOCAL XZ,W AS LONG
    
    LOCAL arial$, TT1$(), BM$()
    
    LOCAL hGW1&, st&, rev&, r&, sa&, se&, sc&, sar&, ser&, hFont&
    LOCAL TXTT1$, nWidth!, nHeight!
    LOCAL kbd$
    LOCAL PT AS LONG
    LOCAL G$, I$, K$, R1$, TXT$, Y1$, Y6$, U$
    LOCAL A1(), N() AS LONG
    DIM N(20)
    LOCAL yloc#
    
    DIM B1 AS DOUBLE, B2 AS DOUBLE, B6 AS DOUBLE, B7 AS DOUBLE, B8 AS DOUBLE
    DIM D1 AS DOUBLE, D2 AS DOUBLE, D3 AS DOUBLE, D4 AS DOUBLE, D5 AS DOUBLE
    DIM A AS DOUBLE, T AS DOUBLE, PI AS DOUBLE, CCC AS INTEGER, CCCC AS INTEGER
    DIM DDD AS INTEGER, DDDD AS INTEGER, EEE AS INTEGER, EEEE AS INTEGER
    DIM HLD AS DOUBLE, RGD AS DOUBLE, PCD AS DOUBLE, HLR AS DOUBLE
    DIM RAD1 AS DOUBLE,RAD2 AS DOUBLE, ANGA AS DOUBLE, ANGB AS DOUBLE
    DIM ANG1 AS DOUBLE, ANG2 AS DOUBLE, ANG3 AS DOUBLE, ANG4 AS DOUBLE
    DIM TANG1 AS DOUBLE, TANG2 AS DOUBLE, GZ AS DOUBLE, GX AS DOUBLE
    DIM RGA AS DOUBLE, RGB1 AS DOUBLE, B AS DOUBLE, C AS DOUBLE, D AS DOUBLE
    DIM E AS DOUBLE, F AS DOUBLE, L AS DOUBLE, M AS DOUBLE, N AS DOUBLE
    DIM W0 AS DOUBLE, W1 AS DOUBLE, W2 AS DOUBLE, W3 AS DOUBLE, W4 AS DOUBLE
    DIM HZ AS DOUBLE, LZ AS DOUBLE, G1 AS DOUBLE, G2 AS DOUBLE, CC AS INTEGER
    
    LOCAL hWin AS WORD
    
    LOCAL hDC1&,radius&,tx&,yx&,xc&,yc&,xp&,yp&,ys#,sratio#
    LOCAL fhndl AS LONG
    
    ' LOCAL CX!, CY!, CLICK&
    
    '------------------------------------------------------------------
    'do some graphics
    yloc#= 495
    GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
    GRAPHIC SET POS (-tx&/2,yloc#)
    GRAPHIC PRINT "RangeLines"
    
    '------------------------------------------------------------------
    GRAPHIC ATTACH hgw1&, 0, REDRAW
    
    GRAPHIC FONT "Arial",12,5 'set the font
    GRAPHIC GET PPI TO xp&,yp& 'get pixels per inch for the Graphic window
    GRAPHIC SCALE (-500,500)-(500,-500) 'Scale to Cartesian coordinates
    
    'do some graphics
    
    yloc#= 495
    GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
    GRAPHIC SET POS (-tx&/2,yloc#)
    GRAPHIC PRINT "RangeLines"
    
    CONSOLE GET LOC TO x, y ' Console pos on screen
    
    CONSOLE GET SIZE TO w, h ' Console size
    
    x = x + (w - 600) / 2 ' Calculate center x pos ORIGINAL WAS 200
    
    y = y + (h - 600) / 2 ' Calculate center y pos
    
    GRAPHIC ATTACH hWin, 0
    
    
    GRAPHIC WINDOW "Range Line", 10, 10, 1024, 620 TO hGW1&
    
    GRAPHIC COLOR %YELLOW, %BLACK
    GRAPHIC CLEAR
    15 GOSUB LGPR:GRAPHIC SET POS (380,100):GRAPHIC PRINT "R A N G E L I N E S":SLEEP 500
    17 GRAPHIC SET POS (460,150):GRAPHIC PRINT"by Chix":SLEEP 500
    20 GRAPHIC SET POS (150,200):GRAPHIC PRINT "The <ENTER> key is the default for a Zero, a No or a None entry":SLEEP 1000
    35 ' Come here if another range is needed or an error has occured
    36 CC=0
    40 PI=3.141592653589793#
    45 R1$="#####.###"
    50 GRAPHIC SET POS (270,320):GRAPHIC PRINT "Will there be a radius at the corners Y/N";
    52 U$=GRAPHIC$(INKEY$)
    55 U$=UCASE$(U$)
    60 IF U$="Y" THEN GOTO 2270
    62 IF U$="N" OR U$=CHR$(13) THEN GOTO 65
    63 GOTO 52
    65 GRAPHIC CLEAR
    70 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line distance ";HLD ' go from here to 1550 and draw the houseline and print the distance, then go to 2455 and clear entry
    75 GOSUB 1550 ' LINE 1550 DRAWS THE HOUSE LINE...
    80 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter house line range ";HLR
    82 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
    83 GOSUB CL1
    85 IF HLR=>0 THEN GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR)"'":GOSUB CL2:GOTO 95
    87 GOSUB CL1 ' CL1 IS COLOR OF DODGER BLUE
    90 GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR);"'"
    92 GOSUB CL2 ' CL2 IS COLOR YELLOW
    95 ' come directly here if the houseline range is zero or a negative number
    100 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
    102 GRAPHIC SET POS (200,40):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
    105 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at A (>0 & <180)";ANGA:IF ANGA=<0 THEN GOSUB 5000:GOTO 105 '5000 is a warning that the angle can not be zero
    106 IF (ANGA-INT(ANGA))>.6 THEN BEEP:GOSUB 5000:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
    107 B=ANGA:GOSUB 1480
    GZ=ANGA*100:GX=INT(GZ)
    108 IF GZ-GX>.6 THEN BEEP: GRAPHIC BOX (100,100)-(300,300),0,%BLACK,%BLACK:GOSUB 5020:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
    109 IF U$="Y" AND RAD1=0 AND ANG1=0 THEN GOTO 111
    110 B=ANGA:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
    111 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
    115 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E
    120 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575
    125 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
    130 GOSUB 2455
    135 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at B (>0 & <180)";ANGB:IF ANGB=<0 THEN GOSUB 5000:GOTO 135 ' 3520 is a warning that the minutes or seconds are greater than 60
    136 IF (ANGB-INT(ANGB))>.6 THEN BEEP:GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '5020 is a warning that the minutes or seconds are greater than 60
    137 GZ=ANGB*100:GX=INT(GZ)
    138 IF GZ-GX>.6 THEN BEEP:GRAPHIC BOX (100,100)-(500,500),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '3520 is a warning that the minutes or seconds is greater than 60
    139 IF U$="Y" AND RAD2=0 AND ANG2=0 THEN GOTO 141
    140 B=ANGB:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
    141 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34) ' PRINT THE ANGLE IN CONVENTIONAL DMS
    145 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
    150 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
    155 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `A' ";RGA
    157 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
    160 IF HLR=0 THEN 240
    165 IF HLR>0 AND RGA>0 AND ANGA>90 THEN GOSUB 1595 ELSE IF HLR>0 AND RGA<0 AND ANGA>90 THEN GOSUB 1605 ELSE IF HLR>0 AND RGA=0 AND ANGA>90 THEN GOSUB 1615
    170 IF HLR>0 AND RGA>0 AND ANGA<90 THEN GOSUB 1625 ELSE IF HLR>0 AND RGA<0 AND ANGA<90 THEN GOSUB 1635 ELSE IF HLR>0 AND RGA=0 AND ANGA<90 THEN GOSUB 1645
    175 IF HLR>0 AND RGA=0 AND ANGA=90 THEN GOSUB 1655 ELSE IF HLR>0 AND RGA>0 AND ANGA=90 THEN GOSUB 1665 ELSE IF HLR>0 AND RGA<0 AND ANGA=90 THEN GOSUB 1675
    180 IF HLR<0 AND RGA>0 AND ANGA>90 THEN GOSUB 1685 ELSE IF HLR<0 AND RGA<0 AND ANGA>90 THEN GOSUB 1695 ELSE IF HLR<0 AND RGA=0 AND ANGA>90 THEN GOSUB 1705
    185 IF HLR<0 AND RGA>0 AND ANGA<90 THEN GOSUB 1715 ELSE IF HLR<0 AND RGA<0 AND ANGA<90 THEN GOSUB 1725 ELSE IF HLR<0 AND RGA=0 AND ANGA<90 THEN GOSUB 1735
    190 IF HLR<0 AND RGA=0 AND ANGA=90 THEN GOSUB 1745 ELSE IF HLR<0 AND RGA>0 AND ANGA=90 THEN GOSUB 1755 ELSE IF HLR<0 AND RGA<0 AND ANGA=90 THEN GOSUB 1765
    195 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
    200 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
    205 IF HLR>0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1775 ELSE IF HLR>0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1785 ELSE IF HLR>0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1795
    210 IF HLR>0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1805 ELSE IF HLR>0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1815 ELSE IF HLR>0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1825
    215 IF HLR>0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1835 ELSE IF HLR>0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1845 ELSE IF HLR>0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1855
    220 IF HLR<0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1865 ELSE IF HLR<0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1875 ELSE IF HLR<0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1885
    225 IF HLR<0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1895 ELSE IF HLR<0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1905 ELSE IF HLR<0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1915
    230 IF HLR<0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1925 ELSE IF HLR<0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1935 ELSE IF HLR<0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1945
    235 GOTO 280
    240 IF HLR=0 AND RGA>0 AND ANGA>90 THEN GOSUB 1955 ELSE IF HLR=0 AND RGA<0 AND ANGA>90 THEN GOSUB 1965 ELSE IF HLR=0 AND RGA=0 AND ANGA>90 THEN GOSUB 1975
    245 IF HLR=0 AND RGA>0 AND ANGA<90 THEN GOSUB 1985 ELSE IF HLR=0 AND RGA<0 AND ANGA<90 THEN GOSUB 1995 ELSE IF HLR=0 AND RGA=0 AND ANGA<90 THEN GOSUB 2005
    250 IF HLR=0 AND RGA=0 AND ANGA=90 THEN GOSUB 2015 ELSE IF HLR=0 AND RGA>0 AND ANGA=90 THEN GOSUB 2025 ELSE IF HLR=0 AND RGA<0 AND ANGA=90 THEN GOSUB 2035
    255 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
    260 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
    265 IF HLR=0 AND RGB1>0 AND ANGB>90 THEN GOSUB 2045 ELSE IF HLR=0 AND RGB1<0 AND ANGB>90 THEN GOSUB 2055 ELSE IF HLR=0 AND RGB1=0 AND ANGB>90 THEN GOSUB 2065
    270 IF HLR=0 AND RGB1>0 AND ANGB<90 THEN GOSUB 2075 ELSE IF HLR=0 AND RGB1<0 AND ANGB<90 THEN GOSUB 2085 ELSE IF HLR=0 AND RGB1=0 AND ANGB<90 THEN GOSUB 2095
    275 IF HLR=0 AND RGB1=0 AND ANGB=90 THEN GOSUB 2105 ELSE IF HLR=0 AND RGB1>0 AND ANGB=90 THEN GOSUB 2115 ELSE IF HLR=0 AND RGB1<0 AND ANGB=90 THEN GOSUB 2125
    280 GOSUB 2455 ' CLEARS ENTRY
    285 GOSUB 2140 ' CALCULATES THE TANGENTS AND COSINES WHEN NO CURVED CORNERS
    290 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3000
    295 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3005
    300 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3010
    305 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3015
    310 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3020
    315 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3025
    325 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3030
    330 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3035
    335 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3040
    340 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3045
    345 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3050
    350 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3055
    355 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3060
    360 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3065
    365 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3070
    370 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3075
    375 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3080
    380 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3085
    385 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3090
    390 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3095
    395 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3100
    400 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3105
    405 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3110
    410 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3115
    415 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3120
    420 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3125
    425 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3130
    430 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3135
    435 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3140
    440 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3145
    445 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3150
    450 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3155
    455 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3160
    460 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3165
    465 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3170
    470 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3175
    475 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3180
    480 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3185
    485 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3190
    490 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3195
    495 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3200
    500 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3205
    505 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3210
    510 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3215
    515 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3220
    520 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3225
    525 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3230
    530 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3235
    535 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3240
    540 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3245
    545 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3250
    550 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3255
    555 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3260
    560 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3265
    565 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3270
    570 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3275
    575 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3280
    580 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3285
    585 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3290
    590 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3295
    595 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3300
    600 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3305
    605 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3310
    610 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3315
    615 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3320
    620 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3325
    625 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3330
    630 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3335
    635 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3340
    640 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3345
    645 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3350
    650 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3355
    655 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3360
    660 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3365
    665 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3370
    670 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3375
    675 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3380
    680 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3385
    685 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3390
    690 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3395
    695 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3400
    700 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3405
    710 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3406
    715 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3407
    720 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3408
    725 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3410
    730 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3412
    735 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3414
    740 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3416
    745 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3418
    750 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3420
    755 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3422
    760 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3424
    765 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3426
    770 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3428
    775 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3430
    780 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3432
    785 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3434
    790 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3436
    795 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3438 ' 100 combos
    800 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3440
    805 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3442
    810 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3444
    815 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3446
    820 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3448
    825 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3450
    830 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3452
    835 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3454
    840 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3456
    845 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3458
    850 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3460
    855 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3462
    860 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3464
    865 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3466
    870 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3468
    875 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3470
    880 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3472
    885 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3474
    890 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3476
    895 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3478
    900 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3480
    905 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3482
    910 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3484
    915 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3486
    920 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3488
    925 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3490
    930 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3492
    935 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3494
    940 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3496
    945 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3498
    950 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3500
    955 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3502
    960 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3504
    965 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3506
    970 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3508
    975 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
    980 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
    985 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3512
    990 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3514
    995 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3516
    1000 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3518
    1005 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3520
    1010 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3522
    1015 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3524
    1020 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3526
    1025 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3528
    1030 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3530
    1035 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3532
    1040 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3534
    1045 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3536
    1050 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3538
    1055 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3540
    1060 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3542
    1065 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3544
    1070 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3546
    1072 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3548
    1074 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3550
    1076 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3552
    1078 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3554
    1080 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3556
    1082 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3558
    1084 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3560
    1086 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3562
    1088 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3564
    1090 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3566
    1092 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3568
    1094 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3570
    1096 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3572
    1098 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3574
    1100 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3576
    1102 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3578
    1104 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3580
    1106 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3582
    1108 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3584
    1110 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3586
    1112 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3588
    1114 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3590
    1116 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3592
    1118 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3594
    1120 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3596
    1122 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3598
    1124 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3600
    1126 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3602
    1128 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3604
    1130 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3606
    1132 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3608
    1134 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3610
    1136 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3612
    1138 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3614
    1140 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3616
    1141
    1142 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3618
    1144 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3620
    1146 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3622
    1148 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3624
    1150 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3626
    1152 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3628
    1154 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3630
    1156 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3632
    1158 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3634
    1159
    1160 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3636 ' 200 combos
    1162 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3638
    1164 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3640
    1166 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3642
    1168 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3644
    1170 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3646
    1172 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3648
    1174 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3650
    1176 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3652
    1177
    1178 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3654
    1180 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3656
    1182 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3658
    1184 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3660
    1186 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3662
    1188 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3664
    1190 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3666
    1192 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3668
    1194 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3670
    1195
    1196 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3672
    1198 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3674
    1200 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3676
    1202 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3678
    1204 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3680
    1206 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3682
    1208 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3684
    1210 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3686
    1212 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3688
    1214 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3690
    1216 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3692
    1218 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3694
    1219
    1220 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3696
    1222 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3698
    1224 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3700
    1226 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3702
    1228 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3704
    1230 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3706
    1232 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3708
    1234 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3710
    1236 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3712
    1237
    1238 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3714
    1240 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3716
    1242 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3718
    1244 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3720
    1246 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3722
    1248 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3724
    1250 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3726
    1252 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3728
    1254 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3730 ' 247 combos
    1256 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3732
    1258 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3734
    
    
    
    GRAPHIC SET POS (20,560):GRAPHIC PRINT "GRAPHIC NOT AVAILABLE FOR THIS PROBLEM":SLEEP 3000:GOTO 2230 ' post answer
    1480 REM D M S to D D
    1485 C=INT(B)=(B-INT(B))*100:IF D-INT(D)>.975 THEN D=CINT(D) ' come here to turn angle into degrees and decimal degrees
    1490 E=(D-INT(D))*100
    1495 IF E-INT(E)>.975 THEN E=CINT(E)
    1496 C=INT(C)
    1497 D=INT(D)
    1498 E=INT(E)
    1500 HZ=C+D/60+E/3600
    1505 RETURN
    1510 REM D D to D M S
    1515 IF W0-INT(W0)>.995 THEN W0=CINT(W0)
    1520 W1=(W0-INT(W0))*60:IF W1-INT(W1)>.995 THEN W1=CINT(W1) ' come here to turn angle from decimal degrees to degrees, minutes and seconds
    1525 IF W1=60 THEN W1=0:W0=W0+1
    1530 W2=(W1-INT(W1))*60:
    1535 W3=INT(W2):IF W3<0 THEN W3=0
    1540 IF W2-INT(W2)>.995 THEN W3=CINT(W2)
    1545 RETURN
    1550 GRAPHIC LINE (250,300)-(750,300) ' DRAWS HOUSE LINE
    1556 GRAPHIC SET POS (430,310):GRAPHIC PRINT USING$(R1$,HLD)
    1560 RETURN
    1565 GRAPHIC LINE (250,300)-(250,500):RETURN 'Angle A = 90 House line
    1570 GRAPHIC LINE (250,300)-(350,520):RETURN 'Angle A < 90 House line
    1575 GRAPHIC LINE (250,300)-(150,520):RETURN 'Angle A > 90 House line
    1580 GRAPHIC LINE (750,300)-(750,500):RETURN 'Angle B = 90 House line
    1585 GRAPHIC LINE (750,300)-(650,520):RETURN 'Angle B < 90 House line
    1590 GRAPHIC LINE (750,300)-(850,520):RETURN 'Angle B > 90 House line
    ' ALL THE FOLLOWING DRAWS RANGE LINES AND PRINTS RANGE DISTANCE
    1595 GOSUB CL1:GRAPHIC LINE (230,240)-(100,520) 'HLR > 0 and Rg A > 0 and Angle A > 90 **********
    1600 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1605 GOSUB CL1:GRAPHIC LINE (330,240)-(200,520) 'HLR > 0 and Rg A < 0 and Angle A > 90 **********
    1610 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1615 GOSUB CL1:GRAPHIC LINE (277,240)-(150,520) 'HLR > 0 and Rg A = 0 and Angle A > 90 **********
    1620 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1625 GOSUB CL1:GRAPHIC LINE (160,240)-(285,520) 'HLR > 0 and Rg A > 0 and Angle A < 90 **********
    1630 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1635 GOSUB CL1:GRAPHIC LINE (280,240)-(400,520) 'HLR > 0 and Rg A < 0 and Angle A < 90 **********
    1640 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1645 GOSUB CL1:GRAPHIC LINE (223,240)-(349,520) 'HLR > 0 and Rg A = 0 and Angle A < 90 **********
    1650 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1655 GOSUB CL1:GRAPHIC LINE (250,240)-(250,520) 'HLR > 0 and Rg A = 0 and Angle A = 90 **********
    1660 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1665 GOSUB CL1:GRAPHIC LINE (210,240)-(210,520) 'HLR > 0 and Rg A > 0 and Angle A = 90 **********
    1670 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1675 GOSUB CL1:GRAPHIC LINE (290,240)-(290,520) 'HLR > 0 and Rg A < 0 and Angle A = 90 **********
    1680 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1685 GOSUB CL1:GRAPHIC LINE (180,350)-(100,520) 'HLR < 0 and Rg A > 0 and Angle A > 90 **********
    1690 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1695 GOSUB CL1:GRAPHIC LINE (268,350)-(190,520) 'HLR < 0 and Rg A < 0 and Angle A > 90 **********
    1700 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1705 GOSUB CL1:GRAPHIC LINE (227,350)-(150,520) 'HLR < 0 and Rg A = 0 and Angle A > 90 **********
    1710 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1715 GOSUB CL1:GRAPHIC LINE (215,350)-(300,520) 'HLR < 0 and Rg A > 0 and Angle A < 90 **********
    1720 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1725 GOSUB CL1:GRAPHIC LINE (325,350)-(400,520) 'HLR < 0 and Rg A < 0 and Angle A < 90 **********
    1730 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1735 GOSUB CL1:GRAPHIC LINE (272,350)-(350,520) 'HLR < 0 and Rg A = 0 and Angle A < 90 **********
    1740 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1745 GOSUB CL1:GRAPHIC LINE (250,350)-(250,520) 'HLR < 0 and Rg A = 0 and Angle A = 90 **********
    1750 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1755 GOSUB CL1:GRAPHIC LINE (210,350)-(210,520) 'HLR < 0 and Rg A > 0 and Angle A = 90 **********
    1760 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1765 GOSUB CL1:GRAPHIC LINE (290,350)-(290,520) 'HLR < 0 and Rg A < 0 and Angle A = 90 **********
    1770 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1775 GOSUB CL1:GRAPHIC LINE (775,240)-(900,520) 'HLR > 0 and Rg B > 0 and Angle B > 90 **********
    1780 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1785 GOSUB CL1:GRAPHIC LINE (680,240)-(795,520) 'HLR > 0 and Rg B < 0 and Angle B > 90 **********
    1790 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1795 GOSUB CL1:GRAPHIC LINE (723,240)-(850,520) 'HLR > 0 and Rg B = 0 and Angle B > 90 **********
    1800 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1805 GOSUB CL1:GRAPHIC LINE (837,240)-(710,520) 'HLR > 0 and Rg B > 0 and Angle B < 90 **********
    1810 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1815 GOSUB CL1:GRAPHIC LINE (720,240)-(600,520) 'HLR > 0 and Rg B < 0 and Angle B < 90 **********
    1820 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1825 GOSUB CL1:GRAPHIC LINE (777,240)-(650,520) 'HLR > 0 and Rg B = 0 and Angle B < 90 **********
    1830 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1835 GOSUB CL1:GRAPHIC LINE (750,240)-(750,520) 'HLR > 0 and Rg B = 0 and Angle B = 90 **********
    1840 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1845 GOSUB CL1:GRAPHIC LINE (790,240)-(790,520) 'HLR > 0 and Rg B > 0 and Angle B = 90 **********
    1850 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1855 GOSUB CL1:GRAPHIC LINE (710,240)-(710,520) 'HLR > 0 and Rg B < 0 and Angle B = 90 **********
    1860 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1865 GOSUB CL1:GRAPHIC LINE (812,350)-(890,520) 'HLR < 0 and Rg B > 0 and Angle B > 90 **********
    1870 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1875 GOSUB CL1:GRAPHIC LINE (730,350)-(805,520) 'HLR < 0 and Rg B < 0 and Angle B > 90 **********
    1880 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1885 GOSUB CL1:GRAPHIC LINE (772,350)-(850,520) 'HLR < 0 and Rg B = 0 and Angle B > 90 **********
    1890 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1895 GOSUB CL1:GRAPHIC LINE (780,350)-(700,520) 'HLR < 0 and Rg B > 0 and Angle B < 90 **********
    1900 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1905 GOSUB CL1:GRAPHIC LINE (680,350)-(600,520) 'HLR < 0 and Rg B < 0 and Angle B < 90 **********
    1910 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1915 GOSUB CL1:GRAPHIC LINE (727,350)-(650,520) 'HLR < 0 and Rg B = 0 and Angle B < 90 **********
    1920 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1925 GOSUB CL1:GRAPHIC LINE (750,350)-(750,520) 'HLR < 0 and Rg B = 0 and Angle B = 90 **********
    1930 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1935 GOSUB CL1:GRAPHIC LINE (790,350)-(790,520) 'HLR < 0 and Rg B > 0 and Angle B = 90 **********
    1940 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1945 GOSUB CL1:GRAPHIC LINE (710,350)-(710,520) 'HLR < 0 and Rg B < 0 and Angle B = 90 **********
    1950 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    1955 GOSUB CL1:GRAPHIC LINE (210,300)-(100,520) 'HLR = 0 and Rg A > 0 and Angle A > 90 **********
    1960 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1965 GOSUB CL1:GRAPHIC LINE (295,300)-(195,520) 'HLR = 0 and Rg A < 0 and Angle A > 90 **********
    1970 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1975 GOSUB CL1:GRAPHIC LINE (250,300)-(150,520) 'HLR = 0 and Rg A = 0 and Angle A > 90 *****
    1980 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1985 GOSUB CL1:GRAPHIC LINE (195,300)-(295,520) 'HLR = 0 and Rg A > 0 and Angle A < 90 **********
    1990 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    1995 GOSUB CL1:GRAPHIC LINE (300,300)-(400,520) 'HLR = 0 and Rg A < 0 and Angle A < 90 **********
    2000 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    2005 GOSUB CL1:GRAPHIC LINE (250,300)-(350,520) 'HLR = 0 and Rg A = 0 and Angle A < 90 **********
    2010 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    2015 GOSUB CL1:GRAPHIC LINE (250,300)-(250,520) 'HLR = 0 and Rg A = 0 and Angle A = 90 **********
    2020 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    2025 GOSUB CL1:GRAPHIC LINE (210,300)-(210,520) 'HLR = 0 and Rg A > 0 and Angle A = 90 **********
    2030 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    2035 GOSUB CL1:GRAPHIC LINE (290,300)-(290,520) 'HLR = 0 and Rg A < 0 and Angle A = 90 **********
    2040 GRAPHIC SET POS (270,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
    2045 GOSUB CL1:GRAPHIC LINE (792,300)-(892,520) 'HLR = 0 and Rg B > 0 and Angle B > 90 **********
    2050 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2055 GOSUB CL1:GRAPHIC LINE (705,300)-(805,520) 'HLR = 0 and Rg B < 0 and Angle B > 90 **********
    2060 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2065 GOSUB CL1:GRAPHIC LINE (750,300)-(850,520) 'HLR = 0 and Rg B = 0 and Angle B > 90 **********
    2070 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2075 GOSUB CL1:GRAPHIC LINE (800,300)-(700,520) 'HLR = 0 and Rg B > 0 and Angle B < 90 **********
    2080 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2085 GOSUB CL1:GRAPHIC LINE (695,300)-(595,520) 'HLR = 0 and Rg B < 0 and Angle B < 90 **********
    2090 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2095 GOSUB CL1:GRAPHIC LINE (750,300)-(650,520) 'HLR = 0 and Rg B = 0 and Angle B < 90 **********
    2100 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2105 GOSUB CL1:GRAPHIC LINE (750,300)-(750,520) 'HLR = 0 and Rg B = 0 and Angle B = 90 **********
    2110 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2115 GOSUB CL1:GRAPHIC LINE (790,300)-(790,520) 'HLR = 0 and Rg B > 0 and Angle B = 90 **********
    2120 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2125 GOSUB CL1:GRAPHIC LINE (710,300)-(710,520) 'HLR = 0 and Rg B < 0 and Angle B = 90 **********
    2130 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
    2135 REM ****************************************************************
    2140 D1=HLD5=D1 'House line distance
    2145 D2=HLR 'House line range
    2155 IF U$="Y" AND RAD1>0 THEN G1=ANGA:GOTO 2160 'Angle A
    2159 B=ANGA:GOSUB 1480:G1=HZ
    2160 B6=C:B7=D:B8=E 'Needed for GRAPHIC PRINT section
    2165 D3=RGA 'Range A
    2175 IF U$="Y" AND RAD2>0 THEN G2=ANGB:GOTO 2180 'Angle B
    2179 B=ANGB:GOSUB 1480:G2=HZ
    2180 D4=RGB1 'Range B Can't use RGB... That is taken by PB for Colors... Need RGB1 instead
    2185 IF G1>90 THEN GOTO 2195
    2190 G1=90-G11=D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180):GOTO 2200
    2195 G1=G1-901=D1+D3/COS(G1*PI/180)-D2*TAN(G1*PI/180)
    2200 IF G2>90 THEN GOTO 2210
    2205 G2=90-G21=D1+D4/COS(G2*PI/180)+D2*TAN(G2*PI/180):GOTO 2215
    2210 G2=G2-901=D1+D4/COS(G2*PI/180)-D2*TAN(G2*PI/180)
    2215 RGD=D1
    2220 RETURN
    2225 REM ****************** Ending Section **********************
    2230 GOSUB CL2:GRAPHIC BOX (100,10)-(900,120),0,%BLACK,%BLACK
    2235 'GRAPHIC SET POS ( 10,25):FOR Z=1 TO 4
    2240 'GRAPHIC SET POS ( 10,25):GRAPHIC PRINT" "
    2242 R1$=USING$("#####.###",RGD)
    'goto printingsection ' Get a paper printout ******************************************************************** Erase Erase Erase Erase ***************************************
    2245 GRAPHIC SET POS (300,200):GRAPHIC PRINT "Range line Distance = ";R1$
    2250 GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? Printout P"
    2251 Y1$=GRAPHIC$(INKEY$)
    2252 Y1$=UCASE$(Y1$)
    2255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
    2257 IF Y1$="P" THEN GOTO PRINTINGSECTION
    2260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
    2261 GOTO 2251
    2262
    2263 COLOR 15,0:CLS:GRAPHIC SET POS ( 10,27):GRAPHIC PRINT"Loading Main Menu":SLEEP 2000
    2265 ' chain"miser.exe"
    2270 REM ************ CURVED CORNER ENTRIES ********************************************************************** CURVED CORNER ENTRIES ************************
    2272 CC=1
    2275 GOSUB RGPR:GRAPHIC CLEAR ' ERASE THE PAGE...
    2276 GRAPHIC SET POS (160,60):GRAPHIC PRINT "IF ONLY ONE CORNER HAS A CURVE, ENTER A ZERO FOR THE RADIUS AND"
    2277 GRAPHIC SET POS (160,100):GRAPHIC PRINT "THE CENTRAL ANGLE AT THE CORNER THAT DOES NOT HAVE A CURVE."
    2278 GOSUB LGPR:GRAPHIC SET POS (390,400):GRAPHIC PRINT "Press a key to continue"
    2279 IF GRAPHIC$(INKEY$)="" THEN 2279
    2280 GRAPHIC CLEAR:GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter distance between PCs ";PCD
    2285 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 1st Radius ";RAD1
    2286 GRAPHIC SET POS (200,120):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
    2290 GRAPHIC SET POS (350,160):GRAPHIC INPUT "Enter 1st Central Angle ";ANG1:ANG3=ANG1
    2291 IF (ANG1-INT(ANG1))>.6 THEN GOSUB 5020:GOTO 2290
    2292 GZ=ANG1*100:GX=INT(GZ)
    2293 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2290
    2295 IF RAD1=0 AND ANG1=0 THEN 2305
    2300 B=ANG1:GOSUB 1480:ANGA=180-HZ:TANG1=TAN((HZ/2)*PI/180)*RAD1 ' LINE 1480 CHANGES DMS TO DD
    2305 GOSUB 2455:GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 2nd Radius ";RAD2 ' LINE 2455 BLANKS OUT ENTRY FOR NEXT ENTRY
    2310 GOSUB 2455:GRAPHIC SET POS (350,120):GRAPHIC INPUT "Enter 2nd Central Angle ";ANG2:ANG4=ANG2
    2311 IF (ANG2-INT(ANG2))>.6 THEN GOSUB 5020:GOTO 2310
    2312 GZ=ANG2*100:GX=INT(GZ)
    2313 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2310
    2315 IF RAD2=0 AND ANG2=0 THEN 2325
    2320 B=ANG2:GOSUB 1480:ANGB=180-HZ:TANG2=TAN((HZ/2)*PI/180)*RAD2
    2322 TANG1=ROUND (TANG1,3):TANG2=ROUND (TANG2,3)
    2323 GRAPHIC SET POS (230,560):GRAPHIC PRINT "TAN 1 = ";TANG1,"TAN 2 = ";TANG2
    2325 HLD=TANG1+TANG2+PCD:GOSUB 1550:GOSUB 2455
    2330 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line range ";HLR
    2335 GRAPHIC SET POS (380,310):GRAPHIC PRINT "PC to PC = ";PCD
    2336 GRAPHIC SET POS (350,40):GRAPHIC PRINT " ";
    2237 GOSUB CL1
    2340 GRAPHIC SET POS (400,250):GRAPHIC PRINT "HLRG = ";HLR"'"
    2241 GOSUB CL2
    2342 GRAPHIC SET POS (260,400):GRAPHIC PRINT "RAD = "RAD1
    2343 GRAPHIC SET POS (560,400):GRAPHIC PRINT "RAD = "RAD2
    2345
    2350 W0=ANGA:GOSUB 1510:C=INT(W0)=INT(W1):E=INT(W3) ' 1510 CHANGE DD TO DMS FOR PRINTING OF ANGLE
    2355 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
    2360 IF ANG1=0 AND RAD1=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at A ";ANGA:B=ANGA:GOSUB 1480 ' CHANGE DMS TO DD
    2365 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E:GOSUB 2455:CCC=CDD=D:EEE=E ' THESE ARE FOR PRINTING SECTION
    2370 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575 ' DRAWS ANGLE LINE FROM HL
    2375 W0=ANGB:GOSUB 1510:C=INT(W0)=INT(W1):E=INT(W3)
    2376 GOSUB 2410
    2380 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
    2385 IF ANG2=0 AND RAD2=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at B ";ANGB:B=ANGB:GOSUB 1480
    2390 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):CCCC=CDDD=D:EEEE=E
    2395 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
    2400 GOSUB 2410
    2405 GOSUB 2455:GOTO 155
    2410 IF ANG1=0 THEN GOTO 2430 ' IF 1ST ANGLE IS ZERO, SKIP THIS PART
    2415 IF ANG1<90 THEN GRAPHIC ARC (232,300)-(332,400),0.5*PI,.9*PI ' <90 - left corner ' THIS IS THE ARC SECTION
    2420 IF ANG1=90 THEN GRAPHIC ARC (250,300)-(350,400),0.5*Pi,pi ' 90 degree - left corner
    2425 IF ANG1>90 THEN GRAPHIC ARC (277,300)-(377,400),0.5*PI,1.2*PI ' >90 - LC
    2430 IF ANG2=0 THEN RETURN ' IF SECOND ANGLE IS ZERO, SKIP THIS PART
    2435 IF ANG2<90 THEN GRAPHIC ARC (669,300)-(769,400),0.15*PI,.5*PI ' <90 - right corner
    2440 IF ANG2=90 THEN GRAPHIC ARC (650,300)-(750,400),0,0.5*Pi ' 90 degree - right corner
    2445 IF ANG2>90 THEN GRAPHIC ARC (623,300)-(723,400),1.95*PI,0.5*PI ' >90 - RC
    2450 RETURN
    2455 GRAPHIC BOX (100,10)-(900,200),0,%BLACK,%BLACK:RETURN ' CLEAR THE LINE FOR NEW TEXT
    3000 GOSUB CL1:GRAPHIC LINE (230,240)-(775,240):GRAPHIC ELLIPSE (222,235)-(238,250):GRAPHIC ELLIPSE (768,235)-(783,250):GOTO 2230
    3005 GOSUB CL1:GRAPHIC LINE (210,240)-(790,240):GRAPHIC ELLIPSE (203,235)-(218,250):GRAPHIC ELLIPSE (783,235)-(798,250):GOTO 2230
    3010 GOSUB CL1:GRAPHIC LINE (330,240)-(680,240):GRAPHIC ELLIPSE (323,235)-(338,250):GRAPHIC ELLIPSE (673,235)-(688,250):GOTO 2230
    3015 GOSUB CL1:GRAPHIC LINE (160,240)-(837,240):GRAPHIC ELLIPSE (155,235)-(170,250):GRAPHIC ELLIPSE (830,235)-(845,250):GOTO 2230
    3020 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
    3025 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
    3030 GOSUB CL1:GRAPHIC LINE (290,240)-(710,240):GRAPHIC ELLIPSE (283,235)-(297,250):GRAPHIC ELLIPSE (703,235)-(717,250):GOTO 2230
    3035 GOSUB CL1:GRAPHIC LINE (195,300)-(800,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3040 GOSUB CL1:GRAPHIC LINE (290,300)-(710,300):GRAPHIC ELLIPSE (283,293)-(297,308):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3045 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3050 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3055 GOSUB CL1:GRAPHIC LINE (300,300)-(695,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (687,293)-(702,307):GOTO 2230
    3060 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3065 GOSUB CL1:GRAPHIC LINE (295,300)-(705,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3070 GOSUB CL1:GRAPHIC LINE (180,350)-(812,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3075 GOSUB CL1:GRAPHIC LINE (210,350)-(790,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3080 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3085 GOSUB CL1:GRAPHIC LINE (195,300)-(710,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3090 GOSUB CL1:GRAPHIC LINE (215,350)-(780,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3095 GOSUB CL1:GRAPHIC LINE (277,240)-(723,240):GRAPHIC ELLIPSE (270,234)-(284,247):GRAPHIC ELLIPSE (717,234)-(730,247):GOTO 2230
    3100 GOSUB CL1:GRAPHIC LINE (250,240)-(750,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3105 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3110 GOSUB CL1:GRAPHIC LINE (268,350)-(750,350):GRAPHIC ELLIPSE (265,343)-(275,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3115 GOSUB CL1:GRAPHIC LINE (223,240)-(777,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3120 GOSUB CL1:GRAPHIC LINE (227,350)-(772,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3125 GOSUB CL1:GRAPHIC LINE (250,350)-(750,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3130 GOSUB CL1:GRAPHIC LINE (272,350)-(727,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3135 GOSUB CL1:GRAPHIC LINE (268,350)-(730,350):GRAPHIC ELLIPSE (262,343)-(276,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3140 GOSUB CL1:GRAPHIC LINE (290,350)-(710,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3145 GOSUB CL1:GRAPHIC LINE (325,350)-(680,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3150 GOSUB CL1:GRAPHIC LINE (230,240)-(680,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3155 GOSUB CL1:GRAPHIC LINE (330,240)-(775,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3160 GOSUB CL1:GRAPHIC LINE (210,240)-(710,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3165 GOSUB CL1:GRAPHIC LINE (290,240)-(790,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3170 GOSUB CL1:GRAPHIC LINE (160,240)-(720,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3175 GOSUB CL1:GRAPHIC LINE (280,240)-(837,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3180 GOSUB CL1:GRAPHIC LINE (277,240)-(775,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3185 GOSUB CL1:GRAPHIC LINE (230,240)-(723,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (717,233)-(730,247):GOTO 2230
    3190 GOSUB CL1:GRAPHIC LINE (277,240)-(680,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (673,233)-(686,247):GOTO 2230
    3195 GOSUB CL1:GRAPHIC LINE (330,240)-(723,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3200 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3205 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3210 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3215 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
    3220 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3225 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3230 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3235 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3240 GOSUB CL1:GRAPHIC LINE (250,240)-(790,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3245 GOSUB CL1:GRAPHIC LINE (290,300)-(790,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3250 GOSUB CL1:GRAPHIC LINE (250,350)-(790,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3255 GOSUB CL1:GRAPHIC LINE (290,350)-(790,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3260 GOSUB CL1:GRAPHIC LINE (210,240)-(750,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3265 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3270 GOSUB CL1:GRAPHIC LINE (210,350)-(750,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3275 GOSUB CL1:GRAPHIC LINE (210,350)-(710,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3280 GOSUB CL1:GRAPHIC LINE (250,350)-(710,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3285 GOSUB CL1:GRAPHIC LINE (290,350)-(750,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3290 GOSUB CL1:GRAPHIC LINE (250,240)-(710,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3295 GOSUB CL1:GRAPHIC LINE (290,240)-(750,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3300 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3305 GOSUB CL1:GRAPHIC LINE (295,300)-(792,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3310 GOSUB CL1:GRAPHIC LINE (227,350)-(812,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3315 GOSUB CL1:GRAPHIC LINE (268,350)-(812,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3320 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3325 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3330 GOSUB CL1:GRAPHIC LINE (180,350)-(772,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3335 GOSUB CL1:GRAPHIC LINE (180,350)-(730,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3340 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3345 GOSUB CL1:GRAPHIC LINE (268,350)-(710,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3350 GOSUB CL1:GRAPHIC LINE (227,350)-(790,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3355 GOSUB CL1:GRAPHIC LINE (227,350)-(730,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3360 GOSUB CL1:GRAPHIC LINE (268,350)-(790,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3365 GOSUB CL1:GRAPHIC LINE (268,350)-(772,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3370 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3375 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3380 GOSUB CL1:GRAPHIC LINE (223,240)-(837,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3385 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3390 GOSUB CL1:GRAPHIC LINE (300,300)-(800,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3395 GOSUB CL1:GRAPHIC LINE (272,350)-(780,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3400 GOSUB CL1:GRAPHIC LINE (325,350)-(780,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3405 GOSUB CL1:GRAPHIC LINE (160,240)-(777,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3406 GOSUB CL1:GRAPHIC LINE (280,240)-(720,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3407 GOSUB CL1:GRAPHIC LINE (230,240)-(790,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3408 GOSUB CL1:GRAPHIC LINE (277,240)-(790,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3410 GOSUB CL1:GRAPHIC LINE (330,240)-(790,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3412 GOSUB CL1:GRAPHIC LINE (277,240)-(750,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3414 GOSUB CL1:GRAPHIC LINE (330,240)-(710,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3416 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3418 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3420 GOSUB CL1:GRAPHIC LINE (295,300)-(790,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3422 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3424 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3426 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3428 GOSUB CL1:GRAPHIC LINE (295,300)-(710,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    3430 GOSUB CL1:GRAPHIC LINE (223,240)-(720,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3432 GOSUB CL1:GRAPHIC LINE (280,240)-(777,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3434 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3436 GOSUB CL1:GRAPHIC LINE (195,300)-(695,300):GRAPHIC ELLIPSE (187,293)-(202,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
    3438 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 100 combos
    3440 GOSUB CL1:GRAPHIC LINE (215,350)-(680,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3442 GOSUB CL1:GRAPHIC LINE (325,350)-(727,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3444 GOSUB CL1:GRAPHIC LINE (272,350)-(680,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3446 GOSUB CL1:GRAPHIC LINE (230,240)-(710,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3448 GOSUB CL1:GRAPHIC LINE (230,240)-(750,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3450 GOSUB CL1:GRAPHIC LINE (210,240)-(775,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3452 GOSUB CL1:GRAPHIC LINE (250,240)-(775,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3454 GOSUB CL1:GRAPHIC LINE (290,240)-(775,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3456 GOSUB CL1:GRAPHIC LINE (210,240)-(723,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3458 GOSUB CL1:GRAPHIC LINE (210,240)-(680,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3460 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3462 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3464 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3466 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3468 GOSUB CL1:GRAPHIC LINE (290,300)-(705,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3470 GOSUB CL1:GRAPHIC LINE (290,300)-(792,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3472 GOSUB CL1:GRAPHIC LINE (160,240)-(790,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3474 GOSUB CL1:GRAPHIC LINE (223,240)-(790,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3476 GOSUB CL1:GRAPHIC LINE (280,240)-(790,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
    3478 GOSUB CL1:GRAPHIC LINE (280,240)-(750,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3480 GOSUB CL1:GRAPHIC LINE (223,240)-(750,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3482 GOSUB CL1:GRAPHIC LINE (223,240)-(710,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3484 GOSUB CL1:GRAPHIC LINE (280,240)-(710,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3486 GOSUB CL1:GRAPHIC LINE (160,240)-(710,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3488 GOSUB CL1:GRAPHIC LINE (210,240)-(837,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3490 GOSUB CL1:GRAPHIC LINE (250,240)-(837,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3492 GOSUB CL1:GRAPHIC LINE (290,240)-(837,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3494 GOSUB CL1:GRAPHIC LINE (210,240)-(777,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3496 GOSUB CL1:GRAPHIC LINE (210,240)-(720,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3498 GOSUB CL1:GRAPHIC LINE (250,240)-(777,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3500 GOSUB CL1:GRAPHIC LINE (290,240)-(777,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3502 GOSUB CL1:GRAPHIC LINE (290,240)-(720,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3504 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3506 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3508 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3510 GOSUB CL1:GRAPHIC LINE (290,300)-(800,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3512 GOSUB CL1:GRAPHIC LINE (215,350)-(812,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
    3514 GOSUB CL1:GRAPHIC LINE (272,350)-(812,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
    3516 GOSUB CL1:GRAPHIC LINE (325,350)-(812,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
    3518 GOSUB CL1:GRAPHIC LINE (215,350)-(772,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3520 GOSUB CL1:GRAPHIC LINE (272,350)-(772,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3522 GOSUB CL1:GRAPHIC LINE (325,350)-(772,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3524 GOSUB CL1:GRAPHIC LINE (215,350)-(730,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3526 GOSUB CL1:GRAPHIC LINE (272,350)-(730,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3528 GOSUB CL1:GRAPHIC LINE (325,350)-(730,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3530 GOSUB CL1:GRAPHIC LINE (230,240)-(837,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3532 GOSUB CL1:GRAPHIC LINE (277,240)-(837,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3534 GOSUB CL1:GRAPHIC LINE (330,240)-(837,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
    3536 GOSUB CL1:GRAPHIC LINE (230,240)-(777,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3538 GOSUB CL1:GRAPHIC LINE (277,240)-(777,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3540 GOSUB CL1:GRAPHIC LINE (330,240)-(777,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
    3542 GOSUB CL1:GRAPHIC LINE (230,240)-(720,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3544 GOSUB CL1:GRAPHIC LINE (277,240)-(720,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3546 GOSUB CL1:GRAPHIC LINE (330,240)-(720,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3548 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3550 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3552 GOSUB CL1:GRAPHIC LINE (295,300)-(800,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
    3554 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3556 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3558 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3560 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
    3562 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
    3564 GOSUB CL1:GRAPHIC LINE (295,300)-(695,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
    3566 GOSUB CL1:GRAPHIC LINE (180,350)-(780,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3568 GOSUB CL1:GRAPHIC LINE (227,350)-(780,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3570 GOSUB CL1:GRAPHIC LINE (268,350)-(780,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3572 GOSUB CL1:GRAPHIC LINE (180,350)-(727,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3574 GOSUB CL1:GRAPHIC LINE (227,350)-(727,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3576 GOSUB CL1:GRAPHIC LINE (268,350)-(727,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3578 GOSUB CL1:GRAPHIC LINE (180,350)-(680,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3580 GOSUB CL1:GRAPHIC LINE (227,350)-(680,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3582 GOSUB CL1:GRAPHIC LINE (268,350)-(680,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3584 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3586 GOSUB CL1:GRAPHIC LINE (180,350)-(790,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
    3588 GOSUB CL1:GRAPHIC LINE (180,350)-(750,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
    3590 GOSUB CL1:GRAPHIC LINE (180,350)-(710,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3592 GOSUB CL1:GRAPHIC LINE (227,350)-(710,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
    3594 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3596 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3598 GOSUB CL1:GRAPHIC LINE (210,300)-(680,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (673,293)-(687,307):GOTO 2230
    3600 GOSUB CL1:GRAPHIC LINE (250,240)-(723,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3602 GOSUB CL1:GRAPHIC LINE (250,240)-(680,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3604 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3606 GOSUB CL1:GRAPHIC LINE (250,350)-(812,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3608 GOSUB CL1:GRAPHIC LINE (250,350)-(772,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3610 GOSUB CL1:GRAPHIC LINE (250,350)-(730,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3612 GOSUB CL1:GRAPHIC LINE (210,350)-(812,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3614 GOSUB CL1:GRAPHIC LINE (210,350)-(772,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3616 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3618 GOSUB CL1:GRAPHIC LINE (160,240)-(775,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3620 GOSUB CL1:GRAPHIC LINE (160,240)-(723,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3622 GOSUB CL1:GRAPHIC LINE (160,240)-(680,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3624 GOSUB CL1:GRAPHIC LINE (223,240)-(775,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3626 GOSUB CL1:GRAPHIC LINE (223,240)-(723,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3628 GOSUB CL1:GRAPHIC LINE (223,240)-(680,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3630 GOSUB CL1:GRAPHIC LINE (280,240)-(775,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
    3632 GOSUB CL1:GRAPHIC LINE (280,240)-(723,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
    3634 GOSUB CL1:GRAPHIC LINE (280,240)-(680,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3636 GOSUB CL1:GRAPHIC LINE (195,300)-(792,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3638 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 200 combos
    3640 GOSUB CL1:GRAPHIC LINE (195,300)-(705,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3642 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3644 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3646 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3648 GOSUB CL1:GRAPHIC LINE (300,300)-(792,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
    3650 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3652 GOSUB CL1:GRAPHIC LINE (300,300)-(705,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
    3654 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3656 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3658 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3660 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3662 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3664 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3666 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3668 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3670 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3672 GOSUB CL1:GRAPHIC LINE (290,240)-(723,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (716,233)-(729,247):GOTO 2230
    3674 GOSUB CL1:GRAPHIC LINE (290,240)-(680,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
    3676 GOSUB CL1:GRAPHIC LINE (290,350)-(812,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
    3678 GOSUB CL1:GRAPHIC LINE (290,350)-(772,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
    3680 GOSUB CL1:GRAPHIC LINE (290,350)-(730,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
    3682 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
    3684 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3686 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
    3688 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3690 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
    3692 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3694 GOSUB CL1:GRAPHIC LINE (290,300)-(695,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
    3696 GOSUB CL1:GRAPHIC LINE (210,350)-(780,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3698 GOSUB CL1:GRAPHIC LINE (210,350)-(727,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3700 GOSUB CL1:GRAPHIC LINE (210,350)-(680,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3702 GOSUB CL1:GRAPHIC LINE (250,350)-(780,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3704 GOSUB CL1:GRAPHIC LINE (250,350)-(727,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3706 GOSUB CL1:GRAPHIC LINE (250,350)-(680,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3708 GOSUB CL1:GRAPHIC LINE (290,350)-(780,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
    3710 GOSUB CL1:GRAPHIC LINE (290,350)-(727,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3712 GOSUB CL1:GRAPHIC LINE (290,350)-(680,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
    3714 GOSUB CL1:GRAPHIC LINE (160,240)-(750,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
    3716 GOSUB CL1:GRAPHIC LINE (195,300)-(790,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3718 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3720 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3722 GOSUB CL1:GRAPHIC LINE (300,300)-(790,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
    3724 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
    3726 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(719,307):GOTO 2230
    3728 GOSUB CL1:GRAPHIC LINE (215,350)-(727,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
    3730 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 246 combos
    3732 GOSUB CL1:GRAPHIC LINE (277,240)-(710,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
    3734 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
    
    
    
    5000 GRAPHIC SET POS (220,200):GRAPHIC PRINT"ANGLE CAN NOT BE ZERO.... RE-ENTER": SLEEP 3000
    5010 GRAPHIC SET POS (210,200):GRAPHIC PRINT " ":RETURN
    5020 BEEP:BEEP:GRAPHIC SET POS (100,150):GRAPHIC PRINT"MINUTES OR SECONDS IS GREATER THEN 60... RE-ENTER": SLEEP 3000:GRAPHIC SET POS (450,80):GRAPHIC PRINT " "
    5030 GRAPHIC BOX (10,80)-(900,250),0,%BLACK,%BLACK:RETURN
    
    LGPR:
    FONT NEW "Times New Roman", 20, 1 TO hFont&
    GRAPHIC SET FONT hFont&
    GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
    RETURN
    
    RGPR:
    FONT NEW "Times New Roman", 15, 1 TO hFont&
    GRAPHIC SET FONT hFont&
    GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
    RETURN
    
    CL1:
    GRAPHIC COLOR %RGB_DODGERBLUE
    RETURN
    CL2:
    GRAPHIC COLOR %YELLOW
    RETURN
    
    PRINTINGSECTION:
    R2$="#####.###"
    XPRINT ATTACH DEFAULT
    XPRINT:XPRINT:XPRINT TAB(35) "R A N G E L I N E S"
    XPRINT TAB(40)"by C H i X"
    PI=3.141592653589793#
    RGD= ROUND (RGD,3)
    XPRINT:XPRINT TAB (30) "Range line distance = ";RGD
    HLD= ROUND (HLD,3)
    XPRINT:XPRINT TAB (30) "House line distance or PI to PI = ";HLD
    HLR=ROUND (HLR,3)
    XPRINT:XPRINT TAB (30) "House line range ";HLR
    B=ANGA:GOSUB 1480
    IF CC=1 THEN C=CCC=DDD:E=EEE
    XPRINT:XPRINT TAB (30) "Angle A = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
    B=ANGB:GOSUB 1480
    IF CC=1 THEN C=CCCC=DDDD:E=EEEE
    XPRINT:XPRINT TAB (30) "Angle B = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
    XPRINT:XPRINT TAB (30) "Range A = ";USING$(R2$,RGA)
    XPRINT:XPRINT TAB (30) "Range B = ";USING$(R2$,RGB1)
    IF CC=0 THEN XPRINT CLOSE:GOTO ANOTHERPROBLEM
    XPRINT:XPRINT TAB (30) "Radius 1 = ";USING$(R2$,RAD1)
    XPRINT:XPRINT TAB (30) "Radius 2 = ";USING$(R2$,RAD2)
    XPRINT:XPRINT TAB (30) "Tangent 1 = ";USING$(R2$,TANG1)
    XPRINT:XPRINT TAB (30) "Tangent 2 = ";USING$(R2$,TANG2)
    XPRINT CLOSE
    ANOTHERPROBLEM:
    Y1$="0"
    6250 GRAPHIC CLEAR:GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? "
    6251 Y1$=GRAPHIC$(INKEY$)
    6252 Y1$=UCASE$(Y1$)
    6255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
    6260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
    GOTO 6251
    
    
    END FUNCTION
    Izzy
    Last edited by Izzy Zeitz; 11 Feb 2020, 03:29 PM. Reason: Forgot the [code] definers...

  • #2
    Hi Izzy

    When I compile this program I gotten an error as below

    Code:
    Compiling "D:\oldPB\Survey Progs\Range Lines\Range Lines.bas"
    Error 516 in D:\oldPB\Survey Progs\Range Lines\Range Lines.bas(65:001):
      DefType, Type id (?%&!#$), or AS... required: CONSOLE
      Line 65: CONSOLE GET LOC TO x, y ' Console pos on screen
    I was using PBWin10 how to do a translation from Console compiler to PBwin ?

    Comment


    • #3
      I haven't used PBWin since version 8... A few years ago... I concentrated on PWCC for the last few years...
      I can't remember anything that I could suggest to help you translate that...
      There are some people out there that are very up to date on both programs and if they are tuned in might be able to help...
      Sorry Tim...
      Izzy

      Comment


      • #4
        Hi Izzy,

        I have issues compiling your code (PBCC6):

        2140 D1=HLD5=D1 'House line distance
        Def Type Id required for " HLD5 "

        And similar problems on these lines:
        2190 G1=90-G11=D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180):GOTO 2200
        2205 G2=90-G21=D1+D4/COS(G2*PI/180)+D2*TAN(G2*PI/180):GOTO 2215
        2365 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E:GOSUB 2455:CCC=CDD=D:EEE=E ' THESE ARE FOR PRINTING SECTION
        2390 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):CCCC=CDDD=D:EEEE=E

        I see this or similar in a couple of places too:
        IF CC=1 THEN C=CCC=DDD:E=EEE
        Is that intentional? Is it legal? (Compiler doesn't complain but..?? what does it do?
        Rgds, Dave

        Comment


        • #5
          Originally posted by Dave Biggs View Post
          I see this or similar in a couple of places too:
          IF CC=1 THEN C=CCC=DDD:E=EEE
          Is that intentional? Is it legal? (Compiler doesn't complain but..?? what does it do?
          That would have to evaluate to:

          If CC =1 then (if CCC=DDD then C = -1 Else C = 0) : E = EEE.

          But best of luck with the aking sense of that spaghetti code.
          (In all my years of BASIC, I've never seen more convoluted and hard to maintain code. )


          Similarly:

          CCC=CDD=D

          If CDD = D then CCC = -1 ELSE CCC = 0

          but far worse:

          G1=90-G11=D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180
          may evaluate to
          If (90-G11) = ( D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180)) THEN G1 = -1 ELSE G1 = 0

          But given the combination of operators and precedences, I'd hate to guess what the "=" test will be evaluating.

          It may evaluate to
          G1 = 90 - (G11=D1) + .D3/COS(G1*PI/180)+D2*TAN(G1*PI/180

          Where G11 = D1 evaluates to -1 or 0

          Comment


          • #6
            G11 is a multiple error.
            It is not defined in a LOCAL nor a DIM.
            It is not set to a value before use in line 2190; in fact I find it no where else in post one.

            Similar in other lines Dave mentioned.

            Cheers,

            (added a couple minutes later - code in post 1 does not have #DIM ALL!)
            Dale

            Comment


            • #7
              Had to insert the following among dim statements in PBMAIN to make it compile in PBCC 6:
              Code:
              DIM HLD5 AS DOUBLE, G11 AS DOUBLE, G21 AS DOUBLE
              DIM CDD AS INTEGER, CDDD AS INTEGER
              LOCAL R2$
              PS, don't close the program using system close (X) - it will fail to close and remain running, eating lots of processor time. GRAPHIC WINDOW STABILIZE after GRAPHIC WINDOW "Range Line".. will prevent that from happening.
              Hard to maintain? Nah, this kind of old DOS code is exactly why they call us programmers..

              Comment


              • #8
                I think that rather than undeclared variables those errors are some repeated/duplicated letters or numbers within the declared variables names.

                Comment


                • #9
                  ((especially since they don't do anything))
                  Dale

                  Comment


                  • #10
                    To all... Thanx...
                    You are probably correct in everything you said...
                    When I originally brought the code into the PW editor to post... it came in with a bunch of smiley faces throughout...
                    I had no idea why they were there because I didn't put them there, and they might have been needed...
                    I also knew that absolutely no one would ever use this old program with the new programs now available,
                    and it was just to bring back memories for those that also wrote these types of programs, such as Tim Lakinir, post#2...
                    I spared you the possibility of wasting ink with my final version that captured and printed the graphic screen...
                    Izzy

                    Comment


                    • #11
                      Do you still have the code outside of the 'PW editor'?
                      Try adding code tags - before copy / pasting to the bulletin board.
                      Rgds, Dave

                      Comment


                      • #12
                        Thanx, Dave...
                        I am going to bring it into the editor again... If smiley faces reappear, I will delete the file and call it over...
                        I will put the code tags in first...
                        Another thing... The top
                        Code:
                         and not the closing one
                        appears after posting...
                        When brought in to editor, I saw the smileys again, but once posted, they didn't show up...

                        Code:
                        #COMPILE EXE
                        #CONSOLE OFF
                        
                        FUNCTION PBMAIN () AS LONG
                        
                        LOCAL H,Y,X,V9 AS LONG
                        LOCAL XZ,W AS LONG
                        
                        LOCAL arial$, TT1$(), BM$()
                        
                        LOCAL hGW1&, st&, rev&, r&, sa&, se&, sc&, sar&, ser&, hFont&
                        LOCAL TXTT1$, nWidth!, nHeight!
                        LOCAL kbd$
                        LOCAL PT AS LONG
                        LOCAL G$, I$, K$, R1$, TXT$, Y1$, Y6$, U$
                        LOCAL A1(), N() AS LONG
                        DIM N(20)
                        LOCAL yloc#
                        
                        DIM B1 AS DOUBLE, B2 AS DOUBLE, B6 AS DOUBLE, B7 AS DOUBLE, B8 AS DOUBLE
                        DIM D1 AS DOUBLE, D2 AS DOUBLE, D3 AS DOUBLE, D4 AS DOUBLE, D5 AS DOUBLE
                        DIM A AS DOUBLE, T AS DOUBLE, PI AS DOUBLE, CCC AS INTEGER, CCCC AS INTEGER
                        DIM DDD AS INTEGER, DDDD AS INTEGER, EEE AS INTEGER, EEEE AS INTEGER
                        DIM HLD AS DOUBLE, RGD AS DOUBLE, PCD AS DOUBLE, HLR AS DOUBLE
                        DIM RAD1 AS DOUBLE,RAD2 AS DOUBLE, ANGA AS DOUBLE, ANGB AS DOUBLE
                        DIM ANG1 AS DOUBLE, ANG2 AS DOUBLE, ANG3 AS DOUBLE, ANG4 AS DOUBLE
                        DIM TANG1 AS DOUBLE, TANG2 AS DOUBLE, GZ AS DOUBLE, GX AS DOUBLE
                        DIM RGA AS DOUBLE, RGB1 AS DOUBLE, B AS DOUBLE, C AS DOUBLE, D AS DOUBLE
                        DIM E AS DOUBLE, F AS DOUBLE, L AS DOUBLE, M AS DOUBLE, N AS DOUBLE
                        DIM W0 AS DOUBLE, W1 AS DOUBLE, W2 AS DOUBLE, W3 AS DOUBLE, W4 AS DOUBLE
                        DIM HZ AS DOUBLE, LZ AS DOUBLE, G1 AS DOUBLE, G2 AS DOUBLE, CC AS INTEGER
                        
                        LOCAL hWin AS WORD
                        
                        LOCAL hDC1&,radius&,tx&,yx&,xc&,yc&,xp&,yp&,ys#,sratio#
                        LOCAL fhndl AS LONG
                        
                        ' LOCAL CX!, CY!, CLICK&
                        
                        '------------------------------------------------------------------
                        'do some graphics
                        yloc#= 495
                        GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
                        GRAPHIC SET POS (-tx&/2,yloc#)
                        GRAPHIC PRINT "RangeLines"
                        
                        '------------------------------------------------------------------
                        GRAPHIC ATTACH hgw1&, 0, REDRAW
                        
                        GRAPHIC FONT "Arial",12,5 'set the font
                        GRAPHIC GET PPI TO xp&,yp& 'get pixels per inch for the Graphic window
                        GRAPHIC SCALE (-500,500)-(500,-500) 'Scale to Cartesian coordinates
                        
                        'do some graphics
                        
                        yloc#= 495
                        GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
                        GRAPHIC SET POS (-tx&/2,yloc#)
                        GRAPHIC PRINT "RangeLines"
                        
                        CONSOLE GET LOC TO x, y ' Console pos on screen
                        
                        CONSOLE GET SIZE TO w, h ' Console size
                        
                        x = x + (w - 600) / 2 ' Calculate center x pos ORIGINAL WAS 200
                        
                        y = y + (h - 600) / 2 ' Calculate center y pos
                        
                        GRAPHIC ATTACH hWin, 0
                        
                        
                        GRAPHIC WINDOW "Range Line", 10, 10, 1024, 620 TO hGW1&
                        
                        GRAPHIC COLOR %YELLOW, %BLACK
                        GRAPHIC CLEAR
                        15 GOSUB LGPR:GRAPHIC SET POS (380,100):GRAPHIC PRINT "R A N G E L I N E S":SLEEP 500
                        17 GRAPHIC SET POS (460,150):GRAPHIC PRINT"by Chix":SLEEP 500
                        20 GRAPHIC SET POS (150,200):GRAPHIC PRINT "The <ENTER> key is the default for a Zero, a No or a None entry":SLEEP 1000
                        35 ' Come here if another range is needed or an error has occured
                        36 CC=0
                        40 PI=3.141592653589793#
                        45 R1$="#####.###"
                        50 GRAPHIC SET POS (270,320):GRAPHIC PRINT "Will there be a radius at the corners Y/N";
                        52 U$=GRAPHIC$(INKEY$)
                        55 U$=UCASE$(U$)
                        60 IF U$="Y" THEN GOTO 2270
                        62 IF U$="N" OR U$=CHR$(13) THEN GOTO 65
                        63 GOTO 52
                        65 GRAPHIC CLEAR
                        70 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line distance ";HLD ' go from here to 1550 and draw the houseline and print the distance, then go to 2455 and clear entry
                        75 GOSUB 1550 ' LINE 1550 DRAWS THE HOUSE LINE...
                        80 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter house line range ";HLR
                        82 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                        83 GOSUB CL1
                        85 IF HLR=>0 THEN GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR)"'":GOSUB CL2:GOTO 95
                        87 GOSUB CL1 ' CL1 IS COLOR OF DODGER BLUE
                        90 GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR);"'"
                        92 GOSUB CL2 ' CL2 IS COLOR YELLOW
                        95 ' come directly here if the houseline range is zero or a negative number
                        100 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
                        102 GRAPHIC SET POS (200,40):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
                        105 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at A (>0 & <180)";ANGA:IF ANGA=<0 THEN GOSUB 5000:GOTO 105 '5000 is a warning that the angle can not be zero
                        106 IF (ANGA-INT(ANGA))>.6 THEN BEEP:GOSUB 5000:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
                        107 B=ANGA:GOSUB 1480
                        GZ=ANGA*100:GX=INT(GZ)
                        108 IF GZ-GX>.6 THEN BEEP: GRAPHIC BOX (100,100)-(300,300),0,%BLACK,%BLACK:GOSUB 5020:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
                        109 IF U$="Y" AND RAD1=0 AND ANG1=0 THEN GOTO 111
                        110 B=ANGA:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
                        111 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                        115 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E
                        120 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575
                        125 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
                        130 GOSUB 2455
                        135 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at B (>0 & <180)";ANGB:IF ANGB=<0 THEN GOSUB 5000:GOTO 135 ' 3520 is a warning that the minutes or seconds are greater than 60
                        136 IF (ANGB-INT(ANGB))>.6 THEN BEEP:GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '5020 is a warning that the minutes or seconds are greater than 60
                        137 GZ=ANGB*100:GX=INT(GZ)
                        138 IF GZ-GX>.6 THEN BEEP:GRAPHIC BOX (100,100)-(500,500),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '3520 is a warning that the minutes or seconds is greater than 60
                        139 IF U$="Y" AND RAD2=0 AND ANG2=0 THEN GOTO 141
                        140 B=ANGB:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
                        141 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34) ' PRINT THE ANGLE IN CONVENTIONAL DMS
                        145 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
                        150 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                        155 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `A' ";RGA
                        157 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                        160 IF HLR=0 THEN 240
                        165 IF HLR>0 AND RGA>0 AND ANGA>90 THEN GOSUB 1595 ELSE IF HLR>0 AND RGA<0 AND ANGA>90 THEN GOSUB 1605 ELSE IF HLR>0 AND RGA=0 AND ANGA>90 THEN GOSUB 1615
                        170 IF HLR>0 AND RGA>0 AND ANGA<90 THEN GOSUB 1625 ELSE IF HLR>0 AND RGA<0 AND ANGA<90 THEN GOSUB 1635 ELSE IF HLR>0 AND RGA=0 AND ANGA<90 THEN GOSUB 1645
                        175 IF HLR>0 AND RGA=0 AND ANGA=90 THEN GOSUB 1655 ELSE IF HLR>0 AND RGA>0 AND ANGA=90 THEN GOSUB 1665 ELSE IF HLR>0 AND RGA<0 AND ANGA=90 THEN GOSUB 1675
                        180 IF HLR<0 AND RGA>0 AND ANGA>90 THEN GOSUB 1685 ELSE IF HLR<0 AND RGA<0 AND ANGA>90 THEN GOSUB 1695 ELSE IF HLR<0 AND RGA=0 AND ANGA>90 THEN GOSUB 1705
                        185 IF HLR<0 AND RGA>0 AND ANGA<90 THEN GOSUB 1715 ELSE IF HLR<0 AND RGA<0 AND ANGA<90 THEN GOSUB 1725 ELSE IF HLR<0 AND RGA=0 AND ANGA<90 THEN GOSUB 1735
                        190 IF HLR<0 AND RGA=0 AND ANGA=90 THEN GOSUB 1745 ELSE IF HLR<0 AND RGA>0 AND ANGA=90 THEN GOSUB 1755 ELSE IF HLR<0 AND RGA<0 AND ANGA=90 THEN GOSUB 1765
                        195 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                        200 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
                        205 IF HLR>0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1775 ELSE IF HLR>0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1785 ELSE IF HLR>0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1795
                        210 IF HLR>0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1805 ELSE IF HLR>0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1815 ELSE IF HLR>0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1825
                        215 IF HLR>0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1835 ELSE IF HLR>0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1845 ELSE IF HLR>0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1855
                        220 IF HLR<0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1865 ELSE IF HLR<0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1875 ELSE IF HLR<0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1885
                        225 IF HLR<0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1895 ELSE IF HLR<0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1905 ELSE IF HLR<0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1915
                        230 IF HLR<0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1925 ELSE IF HLR<0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1935 ELSE IF HLR<0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1945
                        235 GOTO 280
                        240 IF HLR=0 AND RGA>0 AND ANGA>90 THEN GOSUB 1955 ELSE IF HLR=0 AND RGA<0 AND ANGA>90 THEN GOSUB 1965 ELSE IF HLR=0 AND RGA=0 AND ANGA>90 THEN GOSUB 1975
                        245 IF HLR=0 AND RGA>0 AND ANGA<90 THEN GOSUB 1985 ELSE IF HLR=0 AND RGA<0 AND ANGA<90 THEN GOSUB 1995 ELSE IF HLR=0 AND RGA=0 AND ANGA<90 THEN GOSUB 2005
                        250 IF HLR=0 AND RGA=0 AND ANGA=90 THEN GOSUB 2015 ELSE IF HLR=0 AND RGA>0 AND ANGA=90 THEN GOSUB 2025 ELSE IF HLR=0 AND RGA<0 AND ANGA=90 THEN GOSUB 2035
                        255 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                        260 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
                        265 IF HLR=0 AND RGB1>0 AND ANGB>90 THEN GOSUB 2045 ELSE IF HLR=0 AND RGB1<0 AND ANGB>90 THEN GOSUB 2055 ELSE IF HLR=0 AND RGB1=0 AND ANGB>90 THEN GOSUB 2065
                        270 IF HLR=0 AND RGB1>0 AND ANGB<90 THEN GOSUB 2075 ELSE IF HLR=0 AND RGB1<0 AND ANGB<90 THEN GOSUB 2085 ELSE IF HLR=0 AND RGB1=0 AND ANGB<90 THEN GOSUB 2095
                        275 IF HLR=0 AND RGB1=0 AND ANGB=90 THEN GOSUB 2105 ELSE IF HLR=0 AND RGB1>0 AND ANGB=90 THEN GOSUB 2115 ELSE IF HLR=0 AND RGB1<0 AND ANGB=90 THEN GOSUB 2125
                        280 GOSUB 2455 ' CLEARS ENTRY
                        285 GOSUB 2140 ' CALCULATES THE TANGENTS AND COSINES WHEN NO CURVED CORNERS
                        290 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3000
                        295 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3005
                        300 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3010
                        305 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3015
                        310 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3020
                        315 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3025
                        325 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3030
                        330 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3035
                        335 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3040
                        340 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3045
                        345 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3050
                        350 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3055
                        355 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3060
                        360 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3065
                        365 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3070
                        370 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3075
                        375 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3080
                        380 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3085
                        385 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3090
                        390 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3095
                        395 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3100
                        400 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3105
                        405 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3110
                        410 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3115
                        415 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3120
                        420 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3125
                        425 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3130
                        430 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3135
                        435 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3140
                        440 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3145
                        445 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3150
                        450 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3155
                        455 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3160
                        460 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3165
                        465 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3170
                        470 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3175
                        475 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3180
                        480 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3185
                        485 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3190
                        490 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3195
                        495 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3200
                        500 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3205
                        505 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3210
                        510 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3215
                        515 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3220
                        520 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3225
                        525 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3230
                        530 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3235
                        535 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3240
                        540 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3245
                        545 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3250
                        550 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3255
                        555 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3260
                        560 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3265
                        565 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3270
                        570 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3275
                        575 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3280
                        580 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3285
                        585 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3290
                        590 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3295
                        595 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3300
                        600 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3305
                        605 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3310
                        610 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3315
                        615 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3320
                        620 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3325
                        625 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3330
                        630 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3335
                        635 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3340
                        640 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3345
                        645 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3350
                        650 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3355
                        655 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3360
                        660 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3365
                        665 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3370
                        670 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3375
                        675 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3380
                        680 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3385
                        685 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3390
                        690 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3395
                        695 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3400
                        700 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3405
                        710 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3406
                        715 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3407
                        720 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3408
                        725 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3410
                        730 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3412
                        735 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3414
                        740 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3416
                        745 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3418
                        750 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3420
                        755 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3422
                        760 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3424
                        765 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3426
                        770 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3428
                        775 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3430
                        780 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3432
                        785 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3434
                        790 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3436
                        795 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3438 ' 100 combos
                        800 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3440
                        805 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3442
                        810 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3444
                        815 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3446
                        820 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3448
                        825 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3450
                        830 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3452
                        835 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3454
                        840 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3456
                        845 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3458
                        850 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3460
                        855 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3462
                        860 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3464
                        865 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3466
                        870 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3468
                        875 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3470
                        880 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3472
                        885 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3474
                        890 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3476
                        895 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3478
                        900 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3480
                        905 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3482
                        910 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3484
                        915 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3486
                        920 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3488
                        925 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3490
                        930 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3492
                        935 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3494
                        940 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3496
                        945 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3498
                        950 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3500
                        955 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3502
                        960 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3504
                        965 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3506
                        970 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3508
                        975 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
                        980 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
                        985 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3512
                        990 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3514
                        995 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3516
                        1000 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3518
                        1005 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3520
                        1010 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3522
                        1015 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3524
                        1020 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3526
                        1025 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3528
                        1030 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3530
                        1035 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3532
                        1040 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3534
                        1045 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3536
                        1050 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3538
                        1055 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3540
                        1060 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3542
                        1065 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3544
                        1070 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3546
                        1072 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3548
                        1074 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3550
                        1076 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3552
                        1078 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3554
                        1080 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3556
                        1082 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3558
                        1084 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3560
                        1086 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3562
                        1088 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3564
                        1090 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3566
                        1092 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3568
                        1094 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3570
                        1096 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3572
                        1098 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3574
                        1100 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3576
                        1102 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3578
                        1104 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3580
                        1106 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3582
                        1108 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3584
                        1110 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3586
                        1112 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3588
                        1114 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3590
                        1116 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3592
                        1118 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3594
                        1120 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3596
                        1122 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3598
                        1124 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3600
                        1126 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3602
                        1128 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3604
                        1130 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3606
                        1132 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3608
                        1134 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3610
                        1136 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3612
                        1138 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3614
                        1140 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3616
                        1141
                        1142 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3618
                        1144 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3620
                        1146 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3622
                        1148 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3624
                        1150 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3626
                        1152 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3628
                        1154 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3630
                        1156 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3632
                        1158 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3634
                        1159
                        1160 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3636 ' 200 combos
                        1162 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3638
                        1164 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3640
                        1166 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3642
                        1168 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3644
                        1170 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3646
                        1172 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3648
                        1174 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3650
                        1176 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3652
                        1177
                        1178 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3654
                        1180 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3656
                        1182 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3658
                        1184 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3660
                        1186 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3662
                        1188 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3664
                        1190 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3666
                        1192 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3668
                        1194 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3670
                        1195
                        1196 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3672
                        1198 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3674
                        1200 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3676
                        1202 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3678
                        1204 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3680
                        1206 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3682
                        1208 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3684
                        1210 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3686
                        1212 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3688
                        1214 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3690
                        1216 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3692
                        1218 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3694
                        1219
                        1220 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3696
                        1222 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3698
                        1224 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3700
                        1226 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3702
                        1228 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3704
                        1230 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3706
                        1232 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3708
                        1234 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3710
                        1236 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3712
                        1237
                        1238 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3714
                        1240 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3716
                        1242 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3718
                        1244 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3720
                        1246 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3722
                        1248 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3724
                        1250 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3726
                        1252 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3728
                        1254 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3730 ' 247 combos
                        1256 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3732
                        1258 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3734
                        
                        
                        
                        GRAPHIC SET POS (20,560):GRAPHIC PRINT "GRAPHIC NOT AVAILABLE FOR THIS PROBLEM":SLEEP 3000:GOTO 2230 ' post answer
                        1480 REM D M S to D D
                        1485 C=INT(B):D=(B-INT(B))*100:IF D-INT(D)>.975 THEN D=CINT(D) ' come here to turn angle into degrees and decimal degrees
                        1490 E=(D-INT(D))*100
                        1495 IF E-INT(E)>.975 THEN E=CINT(E)
                        1496 C=INT(C)
                        1497 D=INT(D)
                        1498 E=INT(E)
                        1500 HZ=C+D/60+E/3600
                        1505 RETURN
                        1510 REM D D to D M S
                        1515 IF W0-INT(W0)>.995 THEN W0=CINT(W0)
                        1520 W1=(W0-INT(W0))*60:IF W1-INT(W1)>.995 THEN W1=CINT(W1) ' come here to turn angle from decimal degrees to degrees, minutes and seconds
                        1525 IF W1=60 THEN W1=0:W0=W0+1
                        1530 W2=(W1-INT(W1))*60:
                        1535 W3=INT(W2):IF W3<0 THEN W3=0
                        1540 IF W2-INT(W2)>.995 THEN W3=CINT(W2)
                        1545 RETURN
                        1550 GRAPHIC LINE (250,300)-(750,300) ' DRAWS HOUSE LINE
                        1556 GRAPHIC SET POS (430,310):GRAPHIC PRINT USING$(R1$,HLD)
                        1560 RETURN
                        1565 GRAPHIC LINE (250,300)-(250,500):RETURN 'Angle A = 90 House line
                        1570 GRAPHIC LINE (250,300)-(350,520):RETURN 'Angle A < 90 House line
                        1575 GRAPHIC LINE (250,300)-(150,520):RETURN 'Angle A > 90 House line
                        1580 GRAPHIC LINE (750,300)-(750,500):RETURN 'Angle B = 90 House line
                        1585 GRAPHIC LINE (750,300)-(650,520):RETURN 'Angle B < 90 House line
                        1590 GRAPHIC LINE (750,300)-(850,520):RETURN 'Angle B > 90 House line
                        ' ALL THE FOLLOWING DRAWS RANGE LINES AND PRINTS RANGE DISTANCE
                        1595 GOSUB CL1:GRAPHIC LINE (230,240)-(100,520) 'HLR > 0 and Rg A > 0 and Angle A > 90 **********
                        1600 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1605 GOSUB CL1:GRAPHIC LINE (330,240)-(200,520) 'HLR > 0 and Rg A < 0 and Angle A > 90 **********
                        1610 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1615 GOSUB CL1:GRAPHIC LINE (277,240)-(150,520) 'HLR > 0 and Rg A = 0 and Angle A > 90 **********
                        1620 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1625 GOSUB CL1:GRAPHIC LINE (160,240)-(285,520) 'HLR > 0 and Rg A > 0 and Angle A < 90 **********
                        1630 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1635 GOSUB CL1:GRAPHIC LINE (280,240)-(400,520) 'HLR > 0 and Rg A < 0 and Angle A < 90 **********
                        1640 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1645 GOSUB CL1:GRAPHIC LINE (223,240)-(349,520) 'HLR > 0 and Rg A = 0 and Angle A < 90 **********
                        1650 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1655 GOSUB CL1:GRAPHIC LINE (250,240)-(250,520) 'HLR > 0 and Rg A = 0 and Angle A = 90 **********
                        1660 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1665 GOSUB CL1:GRAPHIC LINE (210,240)-(210,520) 'HLR > 0 and Rg A > 0 and Angle A = 90 **********
                        1670 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1675 GOSUB CL1:GRAPHIC LINE (290,240)-(290,520) 'HLR > 0 and Rg A < 0 and Angle A = 90 **********
                        1680 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1685 GOSUB CL1:GRAPHIC LINE (180,350)-(100,520) 'HLR < 0 and Rg A > 0 and Angle A > 90 **********
                        1690 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1695 GOSUB CL1:GRAPHIC LINE (268,350)-(190,520) 'HLR < 0 and Rg A < 0 and Angle A > 90 **********
                        1700 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1705 GOSUB CL1:GRAPHIC LINE (227,350)-(150,520) 'HLR < 0 and Rg A = 0 and Angle A > 90 **********
                        1710 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1715 GOSUB CL1:GRAPHIC LINE (215,350)-(300,520) 'HLR < 0 and Rg A > 0 and Angle A < 90 **********
                        1720 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1725 GOSUB CL1:GRAPHIC LINE (325,350)-(400,520) 'HLR < 0 and Rg A < 0 and Angle A < 90 **********
                        1730 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1735 GOSUB CL1:GRAPHIC LINE (272,350)-(350,520) 'HLR < 0 and Rg A = 0 and Angle A < 90 **********
                        1740 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1745 GOSUB CL1:GRAPHIC LINE (250,350)-(250,520) 'HLR < 0 and Rg A = 0 and Angle A = 90 **********
                        1750 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1755 GOSUB CL1:GRAPHIC LINE (210,350)-(210,520) 'HLR < 0 and Rg A > 0 and Angle A = 90 **********
                        1760 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1765 GOSUB CL1:GRAPHIC LINE (290,350)-(290,520) 'HLR < 0 and Rg A < 0 and Angle A = 90 **********
                        1770 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1775 GOSUB CL1:GRAPHIC LINE (775,240)-(900,520) 'HLR > 0 and Rg B > 0 and Angle B > 90 **********
                        1780 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1785 GOSUB CL1:GRAPHIC LINE (680,240)-(795,520) 'HLR > 0 and Rg B < 0 and Angle B > 90 **********
                        1790 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1795 GOSUB CL1:GRAPHIC LINE (723,240)-(850,520) 'HLR > 0 and Rg B = 0 and Angle B > 90 **********
                        1800 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1805 GOSUB CL1:GRAPHIC LINE (837,240)-(710,520) 'HLR > 0 and Rg B > 0 and Angle B < 90 **********
                        1810 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1815 GOSUB CL1:GRAPHIC LINE (720,240)-(600,520) 'HLR > 0 and Rg B < 0 and Angle B < 90 **********
                        1820 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1825 GOSUB CL1:GRAPHIC LINE (777,240)-(650,520) 'HLR > 0 and Rg B = 0 and Angle B < 90 **********
                        1830 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1835 GOSUB CL1:GRAPHIC LINE (750,240)-(750,520) 'HLR > 0 and Rg B = 0 and Angle B = 90 **********
                        1840 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1845 GOSUB CL1:GRAPHIC LINE (790,240)-(790,520) 'HLR > 0 and Rg B > 0 and Angle B = 90 **********
                        1850 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1855 GOSUB CL1:GRAPHIC LINE (710,240)-(710,520) 'HLR > 0 and Rg B < 0 and Angle B = 90 **********
                        1860 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1865 GOSUB CL1:GRAPHIC LINE (812,350)-(890,520) 'HLR < 0 and Rg B > 0 and Angle B > 90 **********
                        1870 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1875 GOSUB CL1:GRAPHIC LINE (730,350)-(805,520) 'HLR < 0 and Rg B < 0 and Angle B > 90 **********
                        1880 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1885 GOSUB CL1:GRAPHIC LINE (772,350)-(850,520) 'HLR < 0 and Rg B = 0 and Angle B > 90 **********
                        1890 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1895 GOSUB CL1:GRAPHIC LINE (780,350)-(700,520) 'HLR < 0 and Rg B > 0 and Angle B < 90 **********
                        1900 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1905 GOSUB CL1:GRAPHIC LINE (680,350)-(600,520) 'HLR < 0 and Rg B < 0 and Angle B < 90 **********
                        1910 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1915 GOSUB CL1:GRAPHIC LINE (727,350)-(650,520) 'HLR < 0 and Rg B = 0 and Angle B < 90 **********
                        1920 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1925 GOSUB CL1:GRAPHIC LINE (750,350)-(750,520) 'HLR < 0 and Rg B = 0 and Angle B = 90 **********
                        1930 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1935 GOSUB CL1:GRAPHIC LINE (790,350)-(790,520) 'HLR < 0 and Rg B > 0 and Angle B = 90 **********
                        1940 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1945 GOSUB CL1:GRAPHIC LINE (710,350)-(710,520) 'HLR < 0 and Rg B < 0 and Angle B = 90 **********
                        1950 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        1955 GOSUB CL1:GRAPHIC LINE (210,300)-(100,520) 'HLR = 0 and Rg A > 0 and Angle A > 90 **********
                        1960 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1965 GOSUB CL1:GRAPHIC LINE (295,300)-(195,520) 'HLR = 0 and Rg A < 0 and Angle A > 90 **********
                        1970 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1975 GOSUB CL1:GRAPHIC LINE (250,300)-(150,520) 'HLR = 0 and Rg A = 0 and Angle A > 90 *****
                        1980 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1985 GOSUB CL1:GRAPHIC LINE (195,300)-(295,520) 'HLR = 0 and Rg A > 0 and Angle A < 90 **********
                        1990 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        1995 GOSUB CL1:GRAPHIC LINE (300,300)-(400,520) 'HLR = 0 and Rg A < 0 and Angle A < 90 **********
                        2000 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        2005 GOSUB CL1:GRAPHIC LINE (250,300)-(350,520) 'HLR = 0 and Rg A = 0 and Angle A < 90 **********
                        2010 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        2015 GOSUB CL1:GRAPHIC LINE (250,300)-(250,520) 'HLR = 0 and Rg A = 0 and Angle A = 90 **********
                        2020 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        2025 GOSUB CL1:GRAPHIC LINE (210,300)-(210,520) 'HLR = 0 and Rg A > 0 and Angle A = 90 **********
                        2030 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        2035 GOSUB CL1:GRAPHIC LINE (290,300)-(290,520) 'HLR = 0 and Rg A < 0 and Angle A = 90 **********
                        2040 GRAPHIC SET POS (270,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                        2045 GOSUB CL1:GRAPHIC LINE (792,300)-(892,520) 'HLR = 0 and Rg B > 0 and Angle B > 90 **********
                        2050 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2055 GOSUB CL1:GRAPHIC LINE (705,300)-(805,520) 'HLR = 0 and Rg B < 0 and Angle B > 90 **********
                        2060 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2065 GOSUB CL1:GRAPHIC LINE (750,300)-(850,520) 'HLR = 0 and Rg B = 0 and Angle B > 90 **********
                        2070 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2075 GOSUB CL1:GRAPHIC LINE (800,300)-(700,520) 'HLR = 0 and Rg B > 0 and Angle B < 90 **********
                        2080 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2085 GOSUB CL1:GRAPHIC LINE (695,300)-(595,520) 'HLR = 0 and Rg B < 0 and Angle B < 90 **********
                        2090 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2095 GOSUB CL1:GRAPHIC LINE (750,300)-(650,520) 'HLR = 0 and Rg B = 0 and Angle B < 90 **********
                        2100 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2105 GOSUB CL1:GRAPHIC LINE (750,300)-(750,520) 'HLR = 0 and Rg B = 0 and Angle B = 90 **********
                        2110 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2115 GOSUB CL1:GRAPHIC LINE (790,300)-(790,520) 'HLR = 0 and Rg B > 0 and Angle B = 90 **********
                        2120 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2125 GOSUB CL1:GRAPHIC LINE (710,300)-(710,520) 'HLR = 0 and Rg B < 0 and Angle B = 90 **********
                        2130 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                        2135 REM ****************************************************************
                        2140 D1=HLD:D5=D1 'House line distance
                        2145 D2=HLR 'House line range
                        2155 IF U$="Y" AND RAD1>0 THEN G1=ANGA:GOTO 2160 'Angle A
                        2159 B=ANGA:GOSUB 1480:G1=HZ
                        2160 B6=C:B7=D:B8=E 'Needed for GRAPHIC PRINT section
                        2165 D3=RGA 'Range A
                        2175 IF U$="Y" AND RAD2>0 THEN G2=ANGB:GOTO 2180 'Angle B
                        2179 B=ANGB:GOSUB 1480:G2=HZ
                        2180 D4=RGB1 'Range B Can't use RGB... That is taken by PB for Colors... Need RGB1 instead
                        2185 IF G1>90 THEN GOTO 2195
                        2190 G1=90-G1:D1=D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180):GOTO 2200
                        2195 G1=G1-90:D1=D1+D3/COS(G1*PI/180)-D2*TAN(G1*PI/180)
                        2200 IF G2>90 THEN GOTO 2210
                        2205 G2=90-G2:D1=D1+D4/COS(G2*PI/180)+D2*TAN(G2*PI/180):GOTO 2215
                        2210 G2=G2-90:D1=D1+D4/COS(G2*PI/180)-D2*TAN(G2*PI/180)
                        2215 RGD=D1
                        2220 RETURN
                        2225 REM ****************** Ending Section **********************
                        2230 GOSUB CL2:GRAPHIC BOX (100,10)-(900,120),0,%BLACK,%BLACK
                        2235 'GRAPHIC SET POS ( 10,25):FOR Z=1 TO 4
                        2240 'GRAPHIC SET POS ( 10,25):GRAPHIC PRINT" "
                        2242 R1$=USING$("#####.###",RGD)
                        'goto printingsection ' Get a paper printout ******************************************************************** Erase Erase Erase Erase ***************************************
                        2245 GRAPHIC SET POS (300,200):GRAPHIC PRINT "Range line Distance = ";R1$
                        2250 GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? Printout P"
                        2251 Y1$=GRAPHIC$(INKEY$)
                        2252 Y1$=UCASE$(Y1$)
                        2255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
                        2257 IF Y1$="P" THEN GOTO PRINTINGSECTION
                        2260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
                        2261 GOTO 2251
                        2262
                        2263 COLOR 15,0:CLS:GRAPHIC SET POS ( 10,27):GRAPHIC PRINT"Loading Main Menu":SLEEP 2000
                        2265 ' chain"miser.exe"
                        2270 REM ************ CURVED CORNER ENTRIES ********************************************************************** CURVED CORNER ENTRIES ************************
                        2272 CC=1
                        2275 GOSUB RGPR:GRAPHIC CLEAR ' ERASE THE PAGE...
                        2276 GRAPHIC SET POS (160,60):GRAPHIC PRINT "IF ONLY ONE CORNER HAS A CURVE, ENTER A ZERO FOR THE RADIUS AND"
                        2277 GRAPHIC SET POS (160,100):GRAPHIC PRINT "THE CENTRAL ANGLE AT THE CORNER THAT DOES NOT HAVE A CURVE."
                        2278 GOSUB LGPR:GRAPHIC SET POS (390,400):GRAPHIC PRINT "Press a key to continue"
                        2279 IF GRAPHIC$(INKEY$)="" THEN 2279
                        2280 GRAPHIC CLEAR:GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter distance between PCs ";PCD
                        2285 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 1st Radius ";RAD1
                        2286 GRAPHIC SET POS (200,120):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
                        2290 GRAPHIC SET POS (350,160):GRAPHIC INPUT "Enter 1st Central Angle ";ANG1:ANG3=ANG1
                        2291 IF (ANG1-INT(ANG1))>.6 THEN GOSUB 5020:GOTO 2290
                        2292 GZ=ANG1*100:GX=INT(GZ)
                        2293 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2290
                        2295 IF RAD1=0 AND ANG1=0 THEN 2305
                        2300 B=ANG1:GOSUB 1480:ANGA=180-HZ:TANG1=TAN((HZ/2)*PI/180)*RAD1 ' LINE 1480 CHANGES DMS TO DD
                        2305 GOSUB 2455:GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 2nd Radius ";RAD2 ' LINE 2455 BLANKS OUT ENTRY FOR NEXT ENTRY
                        2310 GOSUB 2455:GRAPHIC SET POS (350,120):GRAPHIC INPUT "Enter 2nd Central Angle ";ANG2:ANG4=ANG2
                        2311 IF (ANG2-INT(ANG2))>.6 THEN GOSUB 5020:GOTO 2310
                        2312 GZ=ANG2*100:GX=INT(GZ)
                        2313 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2310
                        2315 IF RAD2=0 AND ANG2=0 THEN 2325
                        2320 B=ANG2:GOSUB 1480:ANGB=180-HZ:TANG2=TAN((HZ/2)*PI/180)*RAD2
                        2322 TANG1=ROUND (TANG1,3):TANG2=ROUND (TANG2,3)
                        2323 GRAPHIC SET POS (230,560):GRAPHIC PRINT "TAN 1 = ";TANG1,"TAN 2 = ";TANG2
                        2325 HLD=TANG1+TANG2+PCD:GOSUB 1550:GOSUB 2455
                        2330 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line range ";HLR
                        2335 GRAPHIC SET POS (380,310):GRAPHIC PRINT "PC to PC = ";PCD
                        2336 GRAPHIC SET POS (350,40):GRAPHIC PRINT " ";
                        2237 GOSUB CL1
                        2340 GRAPHIC SET POS (400,250):GRAPHIC PRINT "HLRG = ";HLR"'"
                        2241 GOSUB CL2
                        2342 GRAPHIC SET POS (260,400):GRAPHIC PRINT "RAD = "RAD1
                        2343 GRAPHIC SET POS (560,400):GRAPHIC PRINT "RAD = "RAD2
                        2345
                        2350 W0=ANGA:GOSUB 1510:C=INT(W0):D=INT(W1):E=INT(W3) ' 1510 CHANGE DD TO DMS FOR PRINTING OF ANGLE
                        2355 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
                        2360 IF ANG1=0 AND RAD1=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at A ";ANGA:B=ANGA:GOSUB 1480 ' CHANGE DMS TO DD
                        2365 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E:GOSUB 2455:CCC=C:DDD=D:EEE=E ' THESE ARE FOR PRINTING SECTION
                        2370 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575 ' DRAWS ANGLE LINE FROM HL
                        2375 W0=ANGB:GOSUB 1510:C=INT(W0):D=INT(W1):E=INT(W3)
                        2376 GOSUB 2410
                        2380 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
                        2385 IF ANG2=0 AND RAD2=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at B ";ANGB:B=ANGB:GOSUB 1480
                        2390 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):CCCC=C:DDDD=D:EEEE=E
                        2395 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
                        2400 GOSUB 2410
                        2405 GOSUB 2455:GOTO 155
                        2410 IF ANG1=0 THEN GOTO 2430 ' IF 1ST ANGLE IS ZERO, SKIP THIS PART
                        2415 IF ANG1<90 THEN GRAPHIC ARC (232,300)-(332,400),0.5*PI,.9*PI ' <90 - left corner ' THIS IS THE ARC SECTION
                        2420 IF ANG1=90 THEN GRAPHIC ARC (250,300)-(350,400),0.5*Pi,pi ' 90 degree - left corner
                        2425 IF ANG1>90 THEN GRAPHIC ARC (277,300)-(377,400),0.5*PI,1.2*PI ' >90 - LC
                        2430 IF ANG2=0 THEN RETURN ' IF SECOND ANGLE IS ZERO, SKIP THIS PART
                        2435 IF ANG2<90 THEN GRAPHIC ARC (669,300)-(769,400),0.15*PI,.5*PI ' <90 - right corner
                        2440 IF ANG2=90 THEN GRAPHIC ARC (650,300)-(750,400),0,0.5*Pi ' 90 degree - right corner
                        2445 IF ANG2>90 THEN GRAPHIC ARC (623,300)-(723,400),1.95*PI,0.5*PI ' >90 - RC
                        2450 RETURN
                        2455 GRAPHIC BOX (100,10)-(900,200),0,%BLACK,%BLACK:RETURN ' CLEAR THE LINE FOR NEW TEXT
                        3000 GOSUB CL1:GRAPHIC LINE (230,240)-(775,240):GRAPHIC ELLIPSE (222,235)-(238,250):GRAPHIC ELLIPSE (768,235)-(783,250):GOTO 2230
                        3005 GOSUB CL1:GRAPHIC LINE (210,240)-(790,240):GRAPHIC ELLIPSE (203,235)-(218,250):GRAPHIC ELLIPSE (783,235)-(798,250):GOTO 2230
                        3010 GOSUB CL1:GRAPHIC LINE (330,240)-(680,240):GRAPHIC ELLIPSE (323,235)-(338,250):GRAPHIC ELLIPSE (673,235)-(688,250):GOTO 2230
                        3015 GOSUB CL1:GRAPHIC LINE (160,240)-(837,240):GRAPHIC ELLIPSE (155,235)-(170,250):GRAPHIC ELLIPSE (830,235)-(845,250):GOTO 2230
                        3020 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
                        3025 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
                        3030 GOSUB CL1:GRAPHIC LINE (290,240)-(710,240):GRAPHIC ELLIPSE (283,235)-(297,250):GRAPHIC ELLIPSE (703,235)-(717,250):GOTO 2230
                        3035 GOSUB CL1:GRAPHIC LINE (195,300)-(800,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3040 GOSUB CL1:GRAPHIC LINE (290,300)-(710,300):GRAPHIC ELLIPSE (283,293)-(297,308):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3045 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3050 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3055 GOSUB CL1:GRAPHIC LINE (300,300)-(695,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (687,293)-(702,307):GOTO 2230
                        3060 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3065 GOSUB CL1:GRAPHIC LINE (295,300)-(705,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3070 GOSUB CL1:GRAPHIC LINE (180,350)-(812,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3075 GOSUB CL1:GRAPHIC LINE (210,350)-(790,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3080 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3085 GOSUB CL1:GRAPHIC LINE (195,300)-(710,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3090 GOSUB CL1:GRAPHIC LINE (215,350)-(780,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3095 GOSUB CL1:GRAPHIC LINE (277,240)-(723,240):GRAPHIC ELLIPSE (270,234)-(284,247):GRAPHIC ELLIPSE (717,234)-(730,247):GOTO 2230
                        3100 GOSUB CL1:GRAPHIC LINE (250,240)-(750,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3105 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3110 GOSUB CL1:GRAPHIC LINE (268,350)-(750,350):GRAPHIC ELLIPSE (265,343)-(275,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3115 GOSUB CL1:GRAPHIC LINE (223,240)-(777,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3120 GOSUB CL1:GRAPHIC LINE (227,350)-(772,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3125 GOSUB CL1:GRAPHIC LINE (250,350)-(750,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3130 GOSUB CL1:GRAPHIC LINE (272,350)-(727,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3135 GOSUB CL1:GRAPHIC LINE (268,350)-(730,350):GRAPHIC ELLIPSE (262,343)-(276,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3140 GOSUB CL1:GRAPHIC LINE (290,350)-(710,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3145 GOSUB CL1:GRAPHIC LINE (325,350)-(680,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3150 GOSUB CL1:GRAPHIC LINE (230,240)-(680,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3155 GOSUB CL1:GRAPHIC LINE (330,240)-(775,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3160 GOSUB CL1:GRAPHIC LINE (210,240)-(710,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3165 GOSUB CL1:GRAPHIC LINE (290,240)-(790,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3170 GOSUB CL1:GRAPHIC LINE (160,240)-(720,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3175 GOSUB CL1:GRAPHIC LINE (280,240)-(837,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3180 GOSUB CL1:GRAPHIC LINE (277,240)-(775,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3185 GOSUB CL1:GRAPHIC LINE (230,240)-(723,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (717,233)-(730,247):GOTO 2230
                        3190 GOSUB CL1:GRAPHIC LINE (277,240)-(680,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (673,233)-(686,247):GOTO 2230
                        3195 GOSUB CL1:GRAPHIC LINE (330,240)-(723,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3200 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3205 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3210 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3215 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                        3220 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3225 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3230 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3235 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3240 GOSUB CL1:GRAPHIC LINE (250,240)-(790,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3245 GOSUB CL1:GRAPHIC LINE (290,300)-(790,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3250 GOSUB CL1:GRAPHIC LINE (250,350)-(790,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3255 GOSUB CL1:GRAPHIC LINE (290,350)-(790,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3260 GOSUB CL1:GRAPHIC LINE (210,240)-(750,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3265 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3270 GOSUB CL1:GRAPHIC LINE (210,350)-(750,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3275 GOSUB CL1:GRAPHIC LINE (210,350)-(710,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3280 GOSUB CL1:GRAPHIC LINE (250,350)-(710,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3285 GOSUB CL1:GRAPHIC LINE (290,350)-(750,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3290 GOSUB CL1:GRAPHIC LINE (250,240)-(710,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3295 GOSUB CL1:GRAPHIC LINE (290,240)-(750,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3300 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3305 GOSUB CL1:GRAPHIC LINE (295,300)-(792,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3310 GOSUB CL1:GRAPHIC LINE (227,350)-(812,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3315 GOSUB CL1:GRAPHIC LINE (268,350)-(812,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3320 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3325 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3330 GOSUB CL1:GRAPHIC LINE (180,350)-(772,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3335 GOSUB CL1:GRAPHIC LINE (180,350)-(730,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3340 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3345 GOSUB CL1:GRAPHIC LINE (268,350)-(710,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3350 GOSUB CL1:GRAPHIC LINE (227,350)-(790,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3355 GOSUB CL1:GRAPHIC LINE (227,350)-(730,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3360 GOSUB CL1:GRAPHIC LINE (268,350)-(790,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3365 GOSUB CL1:GRAPHIC LINE (268,350)-(772,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3370 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3375 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3380 GOSUB CL1:GRAPHIC LINE (223,240)-(837,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3385 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3390 GOSUB CL1:GRAPHIC LINE (300,300)-(800,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3395 GOSUB CL1:GRAPHIC LINE (272,350)-(780,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3400 GOSUB CL1:GRAPHIC LINE (325,350)-(780,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3405 GOSUB CL1:GRAPHIC LINE (160,240)-(777,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3406 GOSUB CL1:GRAPHIC LINE (280,240)-(720,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3407 GOSUB CL1:GRAPHIC LINE (230,240)-(790,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3408 GOSUB CL1:GRAPHIC LINE (277,240)-(790,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3410 GOSUB CL1:GRAPHIC LINE (330,240)-(790,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3412 GOSUB CL1:GRAPHIC LINE (277,240)-(750,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3414 GOSUB CL1:GRAPHIC LINE (330,240)-(710,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3416 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3418 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3420 GOSUB CL1:GRAPHIC LINE (295,300)-(790,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3422 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3424 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3426 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3428 GOSUB CL1:GRAPHIC LINE (295,300)-(710,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        3430 GOSUB CL1:GRAPHIC LINE (223,240)-(720,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3432 GOSUB CL1:GRAPHIC LINE (280,240)-(777,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3434 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3436 GOSUB CL1:GRAPHIC LINE (195,300)-(695,300):GRAPHIC ELLIPSE (187,293)-(202,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                        3438 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 100 combos
                        3440 GOSUB CL1:GRAPHIC LINE (215,350)-(680,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3442 GOSUB CL1:GRAPHIC LINE (325,350)-(727,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3444 GOSUB CL1:GRAPHIC LINE (272,350)-(680,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3446 GOSUB CL1:GRAPHIC LINE (230,240)-(710,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3448 GOSUB CL1:GRAPHIC LINE (230,240)-(750,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3450 GOSUB CL1:GRAPHIC LINE (210,240)-(775,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3452 GOSUB CL1:GRAPHIC LINE (250,240)-(775,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3454 GOSUB CL1:GRAPHIC LINE (290,240)-(775,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3456 GOSUB CL1:GRAPHIC LINE (210,240)-(723,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3458 GOSUB CL1:GRAPHIC LINE (210,240)-(680,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3460 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3462 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3464 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3466 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3468 GOSUB CL1:GRAPHIC LINE (290,300)-(705,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3470 GOSUB CL1:GRAPHIC LINE (290,300)-(792,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3472 GOSUB CL1:GRAPHIC LINE (160,240)-(790,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3474 GOSUB CL1:GRAPHIC LINE (223,240)-(790,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3476 GOSUB CL1:GRAPHIC LINE (280,240)-(790,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                        3478 GOSUB CL1:GRAPHIC LINE (280,240)-(750,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3480 GOSUB CL1:GRAPHIC LINE (223,240)-(750,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3482 GOSUB CL1:GRAPHIC LINE (223,240)-(710,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3484 GOSUB CL1:GRAPHIC LINE (280,240)-(710,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3486 GOSUB CL1:GRAPHIC LINE (160,240)-(710,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3488 GOSUB CL1:GRAPHIC LINE (210,240)-(837,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3490 GOSUB CL1:GRAPHIC LINE (250,240)-(837,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3492 GOSUB CL1:GRAPHIC LINE (290,240)-(837,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3494 GOSUB CL1:GRAPHIC LINE (210,240)-(777,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3496 GOSUB CL1:GRAPHIC LINE (210,240)-(720,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3498 GOSUB CL1:GRAPHIC LINE (250,240)-(777,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3500 GOSUB CL1:GRAPHIC LINE (290,240)-(777,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3502 GOSUB CL1:GRAPHIC LINE (290,240)-(720,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3504 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3506 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3508 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3510 GOSUB CL1:GRAPHIC LINE (290,300)-(800,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3512 GOSUB CL1:GRAPHIC LINE (215,350)-(812,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                        3514 GOSUB CL1:GRAPHIC LINE (272,350)-(812,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                        3516 GOSUB CL1:GRAPHIC LINE (325,350)-(812,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                        3518 GOSUB CL1:GRAPHIC LINE (215,350)-(772,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3520 GOSUB CL1:GRAPHIC LINE (272,350)-(772,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3522 GOSUB CL1:GRAPHIC LINE (325,350)-(772,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3524 GOSUB CL1:GRAPHIC LINE (215,350)-(730,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3526 GOSUB CL1:GRAPHIC LINE (272,350)-(730,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3528 GOSUB CL1:GRAPHIC LINE (325,350)-(730,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3530 GOSUB CL1:GRAPHIC LINE (230,240)-(837,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3532 GOSUB CL1:GRAPHIC LINE (277,240)-(837,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3534 GOSUB CL1:GRAPHIC LINE (330,240)-(837,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                        3536 GOSUB CL1:GRAPHIC LINE (230,240)-(777,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3538 GOSUB CL1:GRAPHIC LINE (277,240)-(777,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3540 GOSUB CL1:GRAPHIC LINE (330,240)-(777,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                        3542 GOSUB CL1:GRAPHIC LINE (230,240)-(720,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3544 GOSUB CL1:GRAPHIC LINE (277,240)-(720,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3546 GOSUB CL1:GRAPHIC LINE (330,240)-(720,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3548 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3550 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3552 GOSUB CL1:GRAPHIC LINE (295,300)-(800,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                        3554 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3556 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3558 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3560 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                        3562 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                        3564 GOSUB CL1:GRAPHIC LINE (295,300)-(695,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                        3566 GOSUB CL1:GRAPHIC LINE (180,350)-(780,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3568 GOSUB CL1:GRAPHIC LINE (227,350)-(780,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3570 GOSUB CL1:GRAPHIC LINE (268,350)-(780,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3572 GOSUB CL1:GRAPHIC LINE (180,350)-(727,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3574 GOSUB CL1:GRAPHIC LINE (227,350)-(727,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3576 GOSUB CL1:GRAPHIC LINE (268,350)-(727,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3578 GOSUB CL1:GRAPHIC LINE (180,350)-(680,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3580 GOSUB CL1:GRAPHIC LINE (227,350)-(680,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3582 GOSUB CL1:GRAPHIC LINE (268,350)-(680,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3584 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3586 GOSUB CL1:GRAPHIC LINE (180,350)-(790,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                        3588 GOSUB CL1:GRAPHIC LINE (180,350)-(750,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                        3590 GOSUB CL1:GRAPHIC LINE (180,350)-(710,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3592 GOSUB CL1:GRAPHIC LINE (227,350)-(710,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                        3594 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3596 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3598 GOSUB CL1:GRAPHIC LINE (210,300)-(680,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (673,293)-(687,307):GOTO 2230
                        3600 GOSUB CL1:GRAPHIC LINE (250,240)-(723,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3602 GOSUB CL1:GRAPHIC LINE (250,240)-(680,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3604 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3606 GOSUB CL1:GRAPHIC LINE (250,350)-(812,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3608 GOSUB CL1:GRAPHIC LINE (250,350)-(772,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3610 GOSUB CL1:GRAPHIC LINE (250,350)-(730,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3612 GOSUB CL1:GRAPHIC LINE (210,350)-(812,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3614 GOSUB CL1:GRAPHIC LINE (210,350)-(772,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3616 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3618 GOSUB CL1:GRAPHIC LINE (160,240)-(775,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3620 GOSUB CL1:GRAPHIC LINE (160,240)-(723,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3622 GOSUB CL1:GRAPHIC LINE (160,240)-(680,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3624 GOSUB CL1:GRAPHIC LINE (223,240)-(775,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3626 GOSUB CL1:GRAPHIC LINE (223,240)-(723,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3628 GOSUB CL1:GRAPHIC LINE (223,240)-(680,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3630 GOSUB CL1:GRAPHIC LINE (280,240)-(775,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                        3632 GOSUB CL1:GRAPHIC LINE (280,240)-(723,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                        3634 GOSUB CL1:GRAPHIC LINE (280,240)-(680,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3636 GOSUB CL1:GRAPHIC LINE (195,300)-(792,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3638 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 200 combos
                        3640 GOSUB CL1:GRAPHIC LINE (195,300)-(705,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3642 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3644 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3646 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3648 GOSUB CL1:GRAPHIC LINE (300,300)-(792,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                        3650 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3652 GOSUB CL1:GRAPHIC LINE (300,300)-(705,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                        3654 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3656 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3658 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3660 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3662 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3664 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3666 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3668 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3670 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3672 GOSUB CL1:GRAPHIC LINE (290,240)-(723,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (716,233)-(729,247):GOTO 2230
                        3674 GOSUB CL1:GRAPHIC LINE (290,240)-(680,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                        3676 GOSUB CL1:GRAPHIC LINE (290,350)-(812,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                        3678 GOSUB CL1:GRAPHIC LINE (290,350)-(772,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                        3680 GOSUB CL1:GRAPHIC LINE (290,350)-(730,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                        3682 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                        3684 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3686 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                        3688 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3690 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                        3692 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3694 GOSUB CL1:GRAPHIC LINE (290,300)-(695,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                        3696 GOSUB CL1:GRAPHIC LINE (210,350)-(780,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3698 GOSUB CL1:GRAPHIC LINE (210,350)-(727,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3700 GOSUB CL1:GRAPHIC LINE (210,350)-(680,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3702 GOSUB CL1:GRAPHIC LINE (250,350)-(780,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3704 GOSUB CL1:GRAPHIC LINE (250,350)-(727,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3706 GOSUB CL1:GRAPHIC LINE (250,350)-(680,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3708 GOSUB CL1:GRAPHIC LINE (290,350)-(780,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                        3710 GOSUB CL1:GRAPHIC LINE (290,350)-(727,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3712 GOSUB CL1:GRAPHIC LINE (290,350)-(680,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                        3714 GOSUB CL1:GRAPHIC LINE (160,240)-(750,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                        3716 GOSUB CL1:GRAPHIC LINE (195,300)-(790,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3718 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3720 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3722 GOSUB CL1:GRAPHIC LINE (300,300)-(790,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                        3724 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                        3726 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(719,307):GOTO 2230
                        3728 GOSUB CL1:GRAPHIC LINE (215,350)-(727,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                        3730 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 246 combos
                        3732 GOSUB CL1:GRAPHIC LINE (277,240)-(710,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                        3734 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                        
                        
                        
                        5000 GRAPHIC SET POS (220,200):GRAPHIC PRINT"ANGLE CAN NOT BE ZERO.... RE-ENTER": SLEEP 3000
                        5010 GRAPHIC SET POS (210,200):GRAPHIC PRINT " ":RETURN
                        5020 BEEP:BEEP:GRAPHIC SET POS (100,150):GRAPHIC PRINT"MINUTES OR SECONDS IS GREATER THEN 60... RE-ENTER": SLEEP 3000:GRAPHIC SET POS (450,80):GRAPHIC PRINT " "
                        5030 GRAPHIC BOX (10,80)-(900,250),0,%BLACK,%BLACK:RETURN
                        
                        LGPR:
                        FONT NEW "Times New Roman", 20, 1 TO hFont&
                        GRAPHIC SET FONT hFont&
                        GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
                        RETURN
                        
                        RGPR:
                        FONT NEW "Times New Roman", 15, 1 TO hFont&
                        GRAPHIC SET FONT hFont&
                        GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
                        RETURN
                        
                        CL1:
                        GRAPHIC COLOR %RGB_DODGERBLUE
                        RETURN
                        CL2:
                        GRAPHIC COLOR %YELLOW
                        RETURN
                        
                        PRINTINGSECTION:
                        R2$="#####.###"
                        XPRINT ATTACH DEFAULT
                        XPRINT:XPRINT:XPRINT TAB(35) "R A N G E L I N E S"
                        XPRINT TAB(40)"by C H i X"
                        PI=3.141592653589793#
                        RGD= ROUND (RGD,3)
                        XPRINT:XPRINT TAB (30) "Range line distance = ";RGD
                        HLD= ROUND (HLD,3)
                        XPRINT:XPRINT TAB (30) "House line distance or PI to PI = ";HLD
                        HLR=ROUND (HLR,3)
                        XPRINT:XPRINT TAB (30) "House line range ";HLR
                        B=ANGA:GOSUB 1480
                        IF CC=1 THEN C=CCC:D=DDD:E=EEE
                        XPRINT:XPRINT TAB (30) "Angle A = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
                        B=ANGB:GOSUB 1480
                        IF CC=1 THEN C=CCCC:D=DDDD:E=EEEE
                        XPRINT:XPRINT TAB (30) "Angle B = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
                        XPRINT:XPRINT TAB (30) "Range A = ";USING$(R2$,RGA)
                        XPRINT:XPRINT TAB (30) "Range B = ";USING$(R2$,RGB1)
                        IF CC=0 THEN XPRINT CLOSE:GOTO ANOTHERPROBLEM
                        XPRINT:XPRINT TAB (30) "Radius 1 = ";USING$(R2$,RAD1)
                        XPRINT:XPRINT TAB (30) "Radius 2 = ";USING$(R2$,RAD2)
                        XPRINT:XPRINT TAB (30) "Tangent 1 = ";USING$(R2$,TANG1)
                        XPRINT:XPRINT TAB (30) "Tangent 2 = ";USING$(R2$,TANG2)
                        
                        XPRINT CLOSE
                        ANOTHERPROBLEM:
                        Y1$="0"
                        6250 GRAPHIC CLEAR:GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? "
                        6251 Y1$=GRAPHIC$(INKEY$)
                        6252 Y1$=UCASE$(Y1$)
                        6255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
                        6260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
                        GOTO 6251
                        
                        END FUNCTION
                        The code looks clean... Maybe it will run now...
                        izzy

                        Comment


                        • #13
                          That seems to have done the trick Izzy. Can compile and run the code now

                          It's way over my head though as I know nought about surveying
                          Rgds, Dave

                          Comment


                          • #14
                            Hi All
                            How to convert the above code to PBWin ?
                            Appreciate all help

                            Comment


                            • #15
                              By using GRAPHIC WINDOW this is already 99% either PBWin or PBCC.
                              delete lines
                              #CONSOLE OFF
                              CONSOLE GET LOC TO x, y ' Console pos on screen
                              CONSOLE GET SIZE TO w, h ' Console size x = x + (w - 600) / 2 ' Calculate center x pos ORIGINAL WAS 200 y = y + (h - 600)_ / ' Calculate center y pos


                              Might be something else hiding in there, but can't be much.

                              Cheers,
                              Dale

                              Comment


                              • #16
                                Hi Tim, here's Izzy's latest code adjusted to compile with both PBWIN10 and PBCC6. Look for lines starting with #IF %DEF(%PB_CC32) to see what was needed to adjust (only a few simple ones). Also took the liberty to insert GRAPHIC WINDOW STABILIZE to prevent system close, which caused program to keep on running and eating processor time.
                                HTML Code:
                                [CODE]
                                #COMPILE EXE
                                #IF %DEF(%PB_CC32)
                                  #CONSOLE OFF
                                #ENDIF
                                
                                FUNCTION PBMAIN () AS LONG
                                
                                LOCAL H,Y,X,V9 AS LONG
                                LOCAL XZ,W AS LONG
                                
                                LOCAL arial$, TT1$(), BM$()
                                
                                LOCAL hGW1&, st&, rev&, r&, sa&, se&, sc&, sar&, ser&, hFont&
                                LOCAL TXTT1$, nWidth!, nHeight!
                                LOCAL kbd$
                                LOCAL PT AS LONG
                                LOCAL G$, I$, K$, R1$, TXT$, Y1$, Y6$, U$
                                LOCAL A1(), N() AS LONG
                                DIM N(20)
                                LOCAL yloc#
                                
                                DIM B1 AS DOUBLE, B2 AS DOUBLE, B6 AS DOUBLE, B7 AS DOUBLE, B8 AS DOUBLE
                                DIM D1 AS DOUBLE, D2 AS DOUBLE, D3 AS DOUBLE, D4 AS DOUBLE, D5 AS DOUBLE
                                DIM A AS DOUBLE, T AS DOUBLE, PI AS DOUBLE, CCC AS INTEGER, CCCC AS INTEGER
                                DIM DDD AS INTEGER, DDDD AS INTEGER, EEE AS INTEGER, EEEE AS INTEGER
                                DIM HLD AS DOUBLE, RGD AS DOUBLE, PCD AS DOUBLE, HLR AS DOUBLE
                                DIM RAD1 AS DOUBLE,RAD2 AS DOUBLE, ANGA AS DOUBLE, ANGB AS DOUBLE
                                DIM ANG1 AS DOUBLE, ANG2 AS DOUBLE, ANG3 AS DOUBLE, ANG4 AS DOUBLE
                                DIM TANG1 AS DOUBLE, TANG2 AS DOUBLE, GZ AS DOUBLE, GX AS DOUBLE
                                DIM RGA AS DOUBLE, RGB1 AS DOUBLE, B AS DOUBLE, C AS DOUBLE, D AS DOUBLE
                                DIM E AS DOUBLE, F AS DOUBLE, L AS DOUBLE, M AS DOUBLE, N AS DOUBLE
                                DIM W0 AS DOUBLE, W1 AS DOUBLE, W2 AS DOUBLE, W3 AS DOUBLE, W4 AS DOUBLE
                                DIM HZ AS DOUBLE, LZ AS DOUBLE, G1 AS DOUBLE, G2 AS DOUBLE, CC AS INTEGER
                                
                                LOCAL hWin AS WORD
                                
                                LOCAL hDC1&,radius&,tx&,yx&,xc&,yc&,xp&,yp&,ys#,sratio#
                                LOCAL fhndl AS LONG
                                
                                ' LOCAL CX!, CY!, CLICK&
                                
                                '------------------------------------------------------------------
                                'do some graphics
                                yloc#= 495
                                GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
                                GRAPHIC SET POS (-tx&/2,yloc#)
                                GRAPHIC PRINT "RangeLines"
                                
                                '------------------------------------------------------------------
                                GRAPHIC ATTACH hgw1&, 0, REDRAW
                                
                                GRAPHIC FONT "Arial",12,5 'set the font
                                GRAPHIC GET PPI TO xp&,yp& 'get pixels per inch for the Graphic window
                                GRAPHIC SCALE (-500,500)-(500,-500) 'Scale to Cartesian coordinates
                                
                                'do some graphics
                                
                                yloc#= 495
                                GRAPHIC TEXT SIZE "RangeLines" TO tx&,yx&
                                GRAPHIC SET POS (-tx&/2,yloc#)
                                GRAPHIC PRINT "RangeLines"
                                
                                #IF %DEF(%PB_CC32)
                                  CONSOLE GET LOC TO x, y ' Console pos on screen
                                  CONSOLE GET SIZE TO w, h ' Console size
                                #ELSE
                                  DESKTOP GET LOC TO x, y ' Console pos on screen
                                  DESKTOP GET SIZE TO w, h ' Console size
                                #ENDIF
                                
                                
                                x = x + (w - 600) / 2 ' Calculate center x pos ORIGINAL WAS 200
                                
                                y = y + (h - 600) / 2 ' Calculate center y pos
                                
                                GRAPHIC ATTACH hWin, 0
                                
                                
                                GRAPHIC WINDOW "Range Line", 10, 10, 1024, 620 TO hGW1&
                                GRAPHIC WINDOW STABILIZE  ' <- added to disable system close
                                
                                GRAPHIC COLOR %YELLOW, %BLACK
                                GRAPHIC CLEAR
                                15 GOSUB LGPR:GRAPHIC SET POS (380,100):GRAPHIC PRINT "R A N G E L I N E S":SLEEP 500
                                17 GRAPHIC SET POS (460,150):GRAPHIC PRINT"by Chix":SLEEP 500
                                20 GRAPHIC SET POS (150,200):GRAPHIC PRINT "The <ENTER> key is the default for a Zero, a No or a None entry":SLEEP 1000
                                35 ' Come here if another range is needed or an error has occured
                                36 CC=0
                                40 PI=3.141592653589793#
                                45 R1$="#####.###"
                                50 GRAPHIC SET POS (270,320):GRAPHIC PRINT "Will there be a radius at the corners Y/N";
                                52 U$=GRAPHIC$(INKEY$)
                                55 U$=UCASE$(U$)
                                60 IF U$="Y" THEN GOTO 2270
                                62 IF U$="N" OR U$=CHR$(13) THEN GOTO 65
                                63 GOTO 52
                                65 GRAPHIC CLEAR
                                70 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line distance ";HLD ' go from here to 1550 and draw the houseline and print the distance, then go to 2455 and clear entry
                                75 GOSUB 1550 ' LINE 1550 DRAWS THE HOUSE LINE...
                                80 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter house line range ";HLR
                                82 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                                83 GOSUB CL1
                                85 IF HLR=>0 THEN GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR)"'":GOSUB CL2:GOTO 95
                                87 GOSUB CL1 ' CL1 IS COLOR OF DODGER BLUE
                                90 GRAPHIC SET POS (440,260):GRAPHIC PRINT "RG = ";USING$(R1$,HLR);"'"
                                92 GOSUB CL2 ' CL2 IS COLOR YELLOW
                                95 ' come directly here if the houseline range is zero or a negative number
                                100 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
                                102 GRAPHIC SET POS (200,40):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
                                105 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at A (>0 & <180)";ANGA:IF ANGA=<0 THEN GOSUB 5000:GOTO 105 '5000 is a warning that the angle can not be zero
                                106 IF (ANGA-INT(ANGA))>.6 THEN BEEP:GOSUB 5000:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
                                107 B=ANGA:GOSUB 1480
                                GZ=ANGA*100:GX=INT(GZ)
                                108 IF GZ-GX>.6 THEN BEEP: GRAPHIC BOX (100,100)-(300,300),0,%BLACK,%BLACK:GOSUB 5020:GOTO 105 '5020 is a warning that the minutes or seconds is greater than 60
                                109 IF U$="Y" AND RAD1=0 AND ANG1=0 THEN GOTO 111
                                110 B=ANGA:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
                                111 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                                115 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E
                                120 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575
                                125 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
                                130 GOSUB 2455
                                135 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter angle at B (>0 & <180)";ANGB:IF ANGB=<0 THEN GOSUB 5000:GOTO 135 ' 3520 is a warning that the minutes or seconds are greater than 60
                                136 IF (ANGB-INT(ANGB))>.6 THEN BEEP:GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '5020 is a warning that the minutes or seconds are greater than 60
                                137 GZ=ANGB*100:GX=INT(GZ)
                                138 IF GZ-GX>.6 THEN BEEP:GRAPHIC BOX (100,100)-(500,500),0,%BLACK,%BLACK:GOSUB 5020:GOTO 135 '3520 is a warning that the minutes or seconds is greater than 60
                                139 IF U$="Y" AND RAD2=0 AND ANG2=0 THEN GOTO 141
                                140 B=ANGB:GOSUB 1480 ' 1480 CHANGE THE DMS TO DD DEGREES, MINUTES AND SECONDA TO DECIMAL DEGREES
                                141 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34) ' PRINT THE ANGLE IN CONVENTIONAL DMS
                                145 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
                                150 GRAPHIC BOX (200,10)-(900,150),0,%BLACK,%BLACK
                                155 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `A' ";RGA
                                157 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                                160 IF HLR=0 THEN 240
                                165 IF HLR>0 AND RGA>0 AND ANGA>90 THEN GOSUB 1595 ELSE IF HLR>0 AND RGA<0 AND ANGA>90 THEN GOSUB 1605 ELSE IF HLR>0 AND RGA=0 AND ANGA>90 THEN GOSUB 1615
                                170 IF HLR>0 AND RGA>0 AND ANGA<90 THEN GOSUB 1625 ELSE IF HLR>0 AND RGA<0 AND ANGA<90 THEN GOSUB 1635 ELSE IF HLR>0 AND RGA=0 AND ANGA<90 THEN GOSUB 1645
                                175 IF HLR>0 AND RGA=0 AND ANGA=90 THEN GOSUB 1655 ELSE IF HLR>0 AND RGA>0 AND ANGA=90 THEN GOSUB 1665 ELSE IF HLR>0 AND RGA<0 AND ANGA=90 THEN GOSUB 1675
                                180 IF HLR<0 AND RGA>0 AND ANGA>90 THEN GOSUB 1685 ELSE IF HLR<0 AND RGA<0 AND ANGA>90 THEN GOSUB 1695 ELSE IF HLR<0 AND RGA=0 AND ANGA>90 THEN GOSUB 1705
                                185 IF HLR<0 AND RGA>0 AND ANGA<90 THEN GOSUB 1715 ELSE IF HLR<0 AND RGA<0 AND ANGA<90 THEN GOSUB 1725 ELSE IF HLR<0 AND RGA=0 AND ANGA<90 THEN GOSUB 1735
                                190 IF HLR<0 AND RGA=0 AND ANGA=90 THEN GOSUB 1745 ELSE IF HLR<0 AND RGA>0 AND ANGA=90 THEN GOSUB 1755 ELSE IF HLR<0 AND RGA<0 AND ANGA=90 THEN GOSUB 1765
                                195 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                                200 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
                                205 IF HLR>0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1775 ELSE IF HLR>0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1785 ELSE IF HLR>0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1795
                                210 IF HLR>0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1805 ELSE IF HLR>0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1815 ELSE IF HLR>0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1825
                                215 IF HLR>0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1835 ELSE IF HLR>0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1845 ELSE IF HLR>0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1855
                                220 IF HLR<0 AND RGB1>0 AND ANGB>90 THEN GOSUB 1865 ELSE IF HLR<0 AND RGB1<0 AND ANGB>90 THEN GOSUB 1875 ELSE IF HLR<0 AND RGB1=0 AND ANGB>90 THEN GOSUB 1885
                                225 IF HLR<0 AND RGB1>0 AND ANGB<90 THEN GOSUB 1895 ELSE IF HLR<0 AND RGB1<0 AND ANGB<90 THEN GOSUB 1905 ELSE IF HLR<0 AND RGB1=0 AND ANGB<90 THEN GOSUB 1915
                                230 IF HLR<0 AND RGB1=0 AND ANGB=90 THEN GOSUB 1925 ELSE IF HLR<0 AND RGB1>0 AND ANGB=90 THEN GOSUB 1935 ELSE IF HLR<0 AND RGB1<0 AND ANGB=90 THEN GOSUB 1945
                                235 GOTO 280
                                240 IF HLR=0 AND RGA>0 AND ANGA>90 THEN GOSUB 1955 ELSE IF HLR=0 AND RGA<0 AND ANGA>90 THEN GOSUB 1965 ELSE IF HLR=0 AND RGA=0 AND ANGA>90 THEN GOSUB 1975
                                245 IF HLR=0 AND RGA>0 AND ANGA<90 THEN GOSUB 1985 ELSE IF HLR=0 AND RGA<0 AND ANGA<90 THEN GOSUB 1995 ELSE IF HLR=0 AND RGA=0 AND ANGA<90 THEN GOSUB 2005
                                250 IF HLR=0 AND RGA=0 AND ANGA=90 THEN GOSUB 2015 ELSE IF HLR=0 AND RGA>0 AND ANGA=90 THEN GOSUB 2025 ELSE IF HLR=0 AND RGA<0 AND ANGA=90 THEN GOSUB 2035
                                255 GRAPHIC SET POS (350,80):GRAPHIC PRINT " "
                                260 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter range at angle `B' ";RGB1
                                265 IF HLR=0 AND RGB1>0 AND ANGB>90 THEN GOSUB 2045 ELSE IF HLR=0 AND RGB1<0 AND ANGB>90 THEN GOSUB 2055 ELSE IF HLR=0 AND RGB1=0 AND ANGB>90 THEN GOSUB 2065
                                270 IF HLR=0 AND RGB1>0 AND ANGB<90 THEN GOSUB 2075 ELSE IF HLR=0 AND RGB1<0 AND ANGB<90 THEN GOSUB 2085 ELSE IF HLR=0 AND RGB1=0 AND ANGB<90 THEN GOSUB 2095
                                275 IF HLR=0 AND RGB1=0 AND ANGB=90 THEN GOSUB 2105 ELSE IF HLR=0 AND RGB1>0 AND ANGB=90 THEN GOSUB 2115 ELSE IF HLR=0 AND RGB1<0 AND ANGB=90 THEN GOSUB 2125
                                280 GOSUB 2455 ' CLEARS ENTRY
                                285 GOSUB 2140 ' CALCULATES THE TANGENTS AND COSINES WHEN NO CURVED CORNERS
                                290 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3000
                                295 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3005
                                300 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3010
                                305 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3015
                                310 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3020
                                315 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3025
                                325 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3030
                                330 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3035
                                335 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3040
                                340 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3045
                                345 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3050
                                350 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3055
                                355 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3060
                                360 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3065
                                365 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3070
                                370 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3075
                                375 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3080
                                380 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3085
                                385 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3090
                                390 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3095
                                395 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3100
                                400 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3105
                                405 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3110
                                410 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3115
                                415 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3120
                                420 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3125
                                425 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3130
                                430 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3135
                                435 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3140
                                440 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3145
                                445 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3150
                                450 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3155
                                455 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3160
                                460 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3165
                                465 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3170
                                470 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3175
                                475 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3180
                                480 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3185
                                485 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3190
                                490 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3195
                                495 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3200
                                500 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3205
                                505 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3210
                                510 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3215
                                515 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3220
                                520 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3225
                                525 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3230
                                530 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3235
                                535 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3240
                                540 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3245
                                545 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3250
                                550 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB=90 THEN 3255
                                555 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3260
                                560 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3265
                                565 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3270
                                570 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3275
                                575 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3280
                                580 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3285
                                585 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB=90 THEN 3290
                                590 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3295
                                595 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3300
                                600 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3305
                                605 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3310
                                610 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB>90 THEN 3315
                                615 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3320
                                620 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3325
                                625 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3330
                                630 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3335
                                635 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3340
                                640 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3345
                                645 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3350
                                650 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3355
                                655 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3360
                                660 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3365
                                665 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3370
                                670 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB>90 THEN 3375
                                675 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3380
                                680 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3385
                                685 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3390
                                690 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3395
                                695 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB<90 THEN 3400
                                700 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3405
                                710 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3406
                                715 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3407
                                720 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3408
                                725 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3410
                                730 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3412
                                735 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3414
                                740 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3416
                                745 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3418
                                750 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3420
                                755 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3422
                                760 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3424
                                765 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3426
                                770 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3428
                                775 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3430
                                780 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3432
                                785 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3434
                                790 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3436
                                795 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB=90 THEN 3438 ' 100 combos
                                800 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3440
                                805 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3442
                                810 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB<90 THEN 3444
                                815 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3446
                                820 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3448
                                825 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3450
                                830 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3452
                                835 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3454
                                840 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3456
                                845 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3458
                                850 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3460
                                855 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3462
                                860 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3464
                                865 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3466
                                870 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3468
                                875 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3470
                                880 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3472
                                885 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3474
                                890 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3476
                                895 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3478
                                900 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3480
                                905 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3482
                                910 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3484
                                915 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3486
                                920 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3488
                                925 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3490
                                930 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3492
                                935 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3494
                                940 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3496
                                945 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3498
                                950 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3500
                                955 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3502
                                960 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3504
                                965 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3506
                                970 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3508
                                975 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
                                980 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3510
                                985 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3512
                                990 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3514
                                995 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3516
                                1000 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3518
                                1005 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3520
                                1010 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3522
                                1015 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3524
                                1020 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3526
                                1025 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3528
                                1030 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3530
                                1035 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3532
                                1040 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3534
                                1045 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3536
                                1050 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3538
                                1055 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3540
                                1060 IF HLR>0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3542
                                1065 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3544
                                1070 IF HLR>0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3546
                                1072 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3548
                                1074 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3550
                                1076 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3552
                                1078 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3554
                                1080 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3556
                                1082 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3558
                                1084 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3560
                                1086 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3562
                                1088 IF HLR=0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3564
                                1090 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3566
                                1092 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3568
                                1094 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1>0 AND ANGB<90 THEN 3570
                                1096 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3572
                                1098 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3574
                                1100 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1=0 AND ANGB<90 THEN 3576
                                1102 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3578
                                1104 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3580
                                1106 IF HLR<0 AND RGA<0 AND ANGA>90 AND RGB1<0 AND ANGB<90 THEN 3582
                                1108 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3584
                                1110 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1>0 AND ANGB=90 THEN 3586
                                1112 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1=0 AND ANGB=90 THEN 3588
                                1114 IF HLR<0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3590
                                1116 IF HLR<0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3592
                                1118 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3594
                                1120 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3596
                                1122 IF HLR>0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3598
                                1124 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3600
                                1126 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3602
                                1128 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3604
                                1130 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3606
                                1132 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3608
                                1134 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3610
                                1136 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3612
                                1138 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3614
                                1140 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3616
                                1141
                                1142 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3618
                                1144 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3620
                                1146 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3622
                                1148 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3624
                                1150 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3626
                                1152 IF HLR>0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3628
                                1154 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3630
                                1156 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3632
                                1158 IF HLR>0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3634
                                1159
                                1160 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3636 ' 200 combos
                                1162 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3638
                                1164 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3640
                                1166 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3642
                                1168 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3644
                                1170 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3646
                                1172 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3648
                                1174 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3650
                                1176 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3652
                                1177
                                1178 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3654
                                1180 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3656
                                1182 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3658
                                1184 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3660
                                1186 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3662
                                1188 IF HLR<0 AND RGA=0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3664
                                1190 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB>90 THEN 3666
                                1192 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB>90 THEN 3668
                                1194 IF HLR<0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB>90 THEN 3670
                                1195
                                1196 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3672
                                1198 IF HLR>0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3674
                                1200 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB>90 THEN 3676
                                1202 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB>90 THEN 3678
                                1204 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB>90 THEN 3680
                                1206 IF HLR>0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3682
                                1208 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3684
                                1210 IF HLR=0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3686
                                1212 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3688
                                1214 IF HLR=0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3690
                                1216 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3692
                                1218 IF HLR=0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3694
                                1219
                                1220 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3696
                                1222 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3698
                                1224 IF HLR<0 AND RGA>0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3700
                                1226 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3702
                                1228 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3704
                                1230 IF HLR<0 AND RGA=0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3706
                                1232 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1>0 AND ANGB<90 THEN 3708
                                1234 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1=0 AND ANGB<90 THEN 3710
                                1236 IF HLR<0 AND RGA<0 AND ANGA=90 AND RGB1<0 AND ANGB<90 THEN 3712
                                1237
                                1238 IF HLR>0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3714
                                1240 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3716
                                1242 IF HLR=0 AND RGA=0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3718
                                1244 IF HLR=0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3720
                                1246 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1>0 AND ANGB=90 THEN 3722
                                1248 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1=0 AND ANGB=90 THEN 3724
                                1250 IF HLR=0 AND RGA<0 AND ANGA<90 AND RGB1<0 AND ANGB=90 THEN 3726
                                1252 IF HLR<0 AND RGA>0 AND ANGA<90 AND RGB1=0 AND ANGB<90 THEN 3728
                                1254 IF HLR=0 AND RGA=0 AND ANGA>90 AND RGB1=0 AND ANGB>90 THEN 3730 ' 247 combos
                                1256 IF HLR>0 AND RGA=0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3732
                                1258 IF HLR=0 AND RGA>0 AND ANGA>90 AND RGB1<0 AND ANGB=90 THEN 3734
                                
                                
                                
                                GRAPHIC SET POS (20,560):GRAPHIC PRINT "GRAPHIC NOT AVAILABLE FOR THIS PROBLEM":SLEEP 3000:GOTO 2230 ' post answer
                                1480 REM D M S to D D
                                1485 C=INT(B):D=(B-INT(B))*100:IF D-INT(D)>.975 THEN D=CINT(D) ' come here to turn angle into degrees and decimal degrees
                                1490 E=(D-INT(D))*100
                                1495 IF E-INT(E)>.975 THEN E=CINT(E)
                                1496 C=INT(C)
                                1497 D=INT(D)
                                1498 E=INT(E)
                                1500 HZ=C+D/60+E/3600
                                1505 RETURN
                                1510 REM D D to D M S
                                1515 IF W0-INT(W0)>.995 THEN W0=CINT(W0)
                                1520 W1=(W0-INT(W0))*60:IF W1-INT(W1)>.995 THEN W1=CINT(W1) ' come here to turn angle from decimal degrees to degrees, minutes and seconds
                                1525 IF W1=60 THEN W1=0:W0=W0+1
                                1530 W2=(W1-INT(W1))*60:
                                1535 W3=INT(W2):IF W3<0 THEN W3=0
                                1540 IF W2-INT(W2)>.995 THEN W3=CINT(W2)
                                1545 RETURN
                                1550 GRAPHIC LINE (250,300)-(750,300) ' DRAWS HOUSE LINE
                                1556 GRAPHIC SET POS (430,310):GRAPHIC PRINT USING$(R1$,HLD)
                                1560 RETURN
                                1565 GRAPHIC LINE (250,300)-(250,500):RETURN 'Angle A = 90 House line
                                1570 GRAPHIC LINE (250,300)-(350,520):RETURN 'Angle A < 90 House line
                                1575 GRAPHIC LINE (250,300)-(150,520):RETURN 'Angle A > 90 House line
                                1580 GRAPHIC LINE (750,300)-(750,500):RETURN 'Angle B = 90 House line
                                1585 GRAPHIC LINE (750,300)-(650,520):RETURN 'Angle B < 90 House line
                                1590 GRAPHIC LINE (750,300)-(850,520):RETURN 'Angle B > 90 House line
                                ' ALL THE FOLLOWING DRAWS RANGE LINES AND PRINTS RANGE DISTANCE
                                1595 GOSUB CL1:GRAPHIC LINE (230,240)-(100,520) 'HLR > 0 and Rg A > 0 and Angle A > 90 **********
                                1600 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1605 GOSUB CL1:GRAPHIC LINE (330,240)-(200,520) 'HLR > 0 and Rg A < 0 and Angle A > 90 **********
                                1610 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1615 GOSUB CL1:GRAPHIC LINE (277,240)-(150,520) 'HLR > 0 and Rg A = 0 and Angle A > 90 **********
                                1620 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1625 GOSUB CL1:GRAPHIC LINE (160,240)-(285,520) 'HLR > 0 and Rg A > 0 and Angle A < 90 **********
                                1630 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1635 GOSUB CL1:GRAPHIC LINE (280,240)-(400,520) 'HLR > 0 and Rg A < 0 and Angle A < 90 **********
                                1640 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1645 GOSUB CL1:GRAPHIC LINE (223,240)-(349,520) 'HLR > 0 and Rg A = 0 and Angle A < 90 **********
                                1650 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1655 GOSUB CL1:GRAPHIC LINE (250,240)-(250,520) 'HLR > 0 and Rg A = 0 and Angle A = 90 **********
                                1660 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1665 GOSUB CL1:GRAPHIC LINE (210,240)-(210,520) 'HLR > 0 and Rg A > 0 and Angle A = 90 **********
                                1670 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1675 GOSUB CL1:GRAPHIC LINE (290,240)-(290,520) 'HLR > 0 and Rg A < 0 and Angle A = 90 **********
                                1680 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1685 GOSUB CL1:GRAPHIC LINE (180,350)-(100,520) 'HLR < 0 and Rg A > 0 and Angle A > 90 **********
                                1690 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1695 GOSUB CL1:GRAPHIC LINE (268,350)-(190,520) 'HLR < 0 and Rg A < 0 and Angle A > 90 **********
                                1700 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1705 GOSUB CL1:GRAPHIC LINE (227,350)-(150,520) 'HLR < 0 and Rg A = 0 and Angle A > 90 **********
                                1710 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1715 GOSUB CL1:GRAPHIC LINE (215,350)-(300,520) 'HLR < 0 and Rg A > 0 and Angle A < 90 **********
                                1720 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1725 GOSUB CL1:GRAPHIC LINE (325,350)-(400,520) 'HLR < 0 and Rg A < 0 and Angle A < 90 **********
                                1730 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1735 GOSUB CL1:GRAPHIC LINE (272,350)-(350,520) 'HLR < 0 and Rg A = 0 and Angle A < 90 **********
                                1740 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1745 GOSUB CL1:GRAPHIC LINE (250,350)-(250,520) 'HLR < 0 and Rg A = 0 and Angle A = 90 **********
                                1750 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1755 GOSUB CL1:GRAPHIC LINE (210,350)-(210,520) 'HLR < 0 and Rg A > 0 and Angle A = 90 **********
                                1760 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1765 GOSUB CL1:GRAPHIC LINE (290,350)-(290,520) 'HLR < 0 and Rg A < 0 and Angle A = 90 **********
                                1770 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1775 GOSUB CL1:GRAPHIC LINE (775,240)-(900,520) 'HLR > 0 and Rg B > 0 and Angle B > 90 **********
                                1780 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1785 GOSUB CL1:GRAPHIC LINE (680,240)-(795,520) 'HLR > 0 and Rg B < 0 and Angle B > 90 **********
                                1790 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1795 GOSUB CL1:GRAPHIC LINE (723,240)-(850,520) 'HLR > 0 and Rg B = 0 and Angle B > 90 **********
                                1800 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1805 GOSUB CL1:GRAPHIC LINE (837,240)-(710,520) 'HLR > 0 and Rg B > 0 and Angle B < 90 **********
                                1810 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1815 GOSUB CL1:GRAPHIC LINE (720,240)-(600,520) 'HLR > 0 and Rg B < 0 and Angle B < 90 **********
                                1820 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1825 GOSUB CL1:GRAPHIC LINE (777,240)-(650,520) 'HLR > 0 and Rg B = 0 and Angle B < 90 **********
                                1830 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1835 GOSUB CL1:GRAPHIC LINE (750,240)-(750,520) 'HLR > 0 and Rg B = 0 and Angle B = 90 **********
                                1840 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1845 GOSUB CL1:GRAPHIC LINE (790,240)-(790,520) 'HLR > 0 and Rg B > 0 and Angle B = 90 **********
                                1850 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1855 GOSUB CL1:GRAPHIC LINE (710,240)-(710,520) 'HLR > 0 and Rg B < 0 and Angle B = 90 **********
                                1860 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1865 GOSUB CL1:GRAPHIC LINE (812,350)-(890,520) 'HLR < 0 and Rg B > 0 and Angle B > 90 **********
                                1870 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1875 GOSUB CL1:GRAPHIC LINE (730,350)-(805,520) 'HLR < 0 and Rg B < 0 and Angle B > 90 **********
                                1880 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1885 GOSUB CL1:GRAPHIC LINE (772,350)-(850,520) 'HLR < 0 and Rg B = 0 and Angle B > 90 **********
                                1890 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1895 GOSUB CL1:GRAPHIC LINE (780,350)-(700,520) 'HLR < 0 and Rg B > 0 and Angle B < 90 **********
                                1900 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1905 GOSUB CL1:GRAPHIC LINE (680,350)-(600,520) 'HLR < 0 and Rg B < 0 and Angle B < 90 **********
                                1910 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1915 GOSUB CL1:GRAPHIC LINE (727,350)-(650,520) 'HLR < 0 and Rg B = 0 and Angle B < 90 **********
                                1920 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1925 GOSUB CL1:GRAPHIC LINE (750,350)-(750,520) 'HLR < 0 and Rg B = 0 and Angle B = 90 **********
                                1930 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1935 GOSUB CL1:GRAPHIC LINE (790,350)-(790,520) 'HLR < 0 and Rg B > 0 and Angle B = 90 **********
                                1940 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1945 GOSUB CL1:GRAPHIC LINE (710,350)-(710,520) 'HLR < 0 and Rg B < 0 and Angle B = 90 **********
                                1950 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                1955 GOSUB CL1:GRAPHIC LINE (210,300)-(100,520) 'HLR = 0 and Rg A > 0 and Angle A > 90 **********
                                1960 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1965 GOSUB CL1:GRAPHIC LINE (295,300)-(195,520) 'HLR = 0 and Rg A < 0 and Angle A > 90 **********
                                1970 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1975 GOSUB CL1:GRAPHIC LINE (250,300)-(150,520) 'HLR = 0 and Rg A = 0 and Angle A > 90 *****
                                1980 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1985 GOSUB CL1:GRAPHIC LINE (195,300)-(295,520) 'HLR = 0 and Rg A > 0 and Angle A < 90 **********
                                1990 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                1995 GOSUB CL1:GRAPHIC LINE (300,300)-(400,520) 'HLR = 0 and Rg A < 0 and Angle A < 90 **********
                                2000 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                2005 GOSUB CL1:GRAPHIC LINE (250,300)-(350,520) 'HLR = 0 and Rg A = 0 and Angle A < 90 **********
                                2010 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                2015 GOSUB CL1:GRAPHIC LINE (250,300)-(250,520) 'HLR = 0 and Rg A = 0 and Angle A = 90 **********
                                2020 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                2025 GOSUB CL1:GRAPHIC LINE (210,300)-(210,520) 'HLR = 0 and Rg A > 0 and Angle A = 90 **********
                                2030 GRAPHIC SET POS (200,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                2035 GOSUB CL1:GRAPHIC LINE (290,300)-(290,520) 'HLR = 0 and Rg A < 0 and Angle A = 90 **********
                                2040 GRAPHIC SET POS (270,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGA);"'":GOSUB CL2:RETURN
                                2045 GOSUB CL1:GRAPHIC LINE (792,300)-(892,520) 'HLR = 0 and Rg B > 0 and Angle B > 90 **********
                                2050 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2055 GOSUB CL1:GRAPHIC LINE (705,300)-(805,520) 'HLR = 0 and Rg B < 0 and Angle B > 90 **********
                                2060 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2065 GOSUB CL1:GRAPHIC LINE (750,300)-(850,520) 'HLR = 0 and Rg B = 0 and Angle B > 90 **********
                                2070 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2075 GOSUB CL1:GRAPHIC LINE (800,300)-(700,520) 'HLR = 0 and Rg B > 0 and Angle B < 90 **********
                                2080 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2085 GOSUB CL1:GRAPHIC LINE (695,300)-(595,520) 'HLR = 0 and Rg B < 0 and Angle B < 90 **********
                                2090 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2095 GOSUB CL1:GRAPHIC LINE (750,300)-(650,520) 'HLR = 0 and Rg B = 0 and Angle B < 90 **********
                                2100 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2105 GOSUB CL1:GRAPHIC LINE (750,300)-(750,520) 'HLR = 0 and Rg B = 0 and Angle B = 90 **********
                                2110 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2115 GOSUB CL1:GRAPHIC LINE (790,300)-(790,520) 'HLR = 0 and Rg B > 0 and Angle B = 90 **********
                                2120 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2125 GOSUB CL1:GRAPHIC LINE (710,300)-(710,520) 'HLR = 0 and Rg B < 0 and Angle B = 90 **********
                                2130 GRAPHIC SET POS (700,520):GRAPHIC PRINT "RG = ";USING$(R1$,RGB1);"'":GOSUB CL2:RETURN
                                2135 REM ****************************************************************
                                2140 D1=HLD:D5=D1 'House line distance
                                2145 D2=HLR 'House line range
                                2155 IF U$="Y" AND RAD1>0 THEN G1=ANGA:GOTO 2160 'Angle A
                                2159 B=ANGA:GOSUB 1480:G1=HZ
                                2160 B6=C:B7=D:B8=E 'Needed for GRAPHIC PRINT section
                                2165 D3=RGA 'Range A
                                2175 IF U$="Y" AND RAD2>0 THEN G2=ANGB:GOTO 2180 'Angle B
                                2179 B=ANGB:GOSUB 1480:G2=HZ
                                2180 D4=RGB1 'Range B Can't use RGB... That is taken by PB for Colors... Need RGB1 instead
                                2185 IF G1>90 THEN GOTO 2195
                                2190 G1=90-G1:D1=D1+D3/COS(G1*PI/180)+D2*TAN(G1*PI/180):GOTO 2200
                                2195 G1=G1-90:D1=D1+D3/COS(G1*PI/180)-D2*TAN(G1*PI/180)
                                2200 IF G2>90 THEN GOTO 2210
                                2205 G2=90-G2:D1=D1+D4/COS(G2*PI/180)+D2*TAN(G2*PI/180):GOTO 2215
                                2210 G2=G2-90:D1=D1+D4/COS(G2*PI/180)-D2*TAN(G2*PI/180)
                                2215 RGD=D1
                                2220 RETURN
                                2225 REM ****************** Ending Section **********************
                                2230 GOSUB CL2:GRAPHIC BOX (100,10)-(900,120),0,%BLACK,%BLACK
                                2235 'GRAPHIC SET POS ( 10,25):FOR Z=1 TO 4
                                2240 'GRAPHIC SET POS ( 10,25):GRAPHIC PRINT" "
                                2242 R1$=USING$("#####.###",RGD)
                                'goto printingsection ' Get a paper printout ******************************************************************** Erase Erase Erase Erase ***************************************
                                2245 GRAPHIC SET POS (300,200):GRAPHIC PRINT "Range line Distance = ";R1$
                                2250 GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? Printout P"
                                2251 Y1$=GRAPHIC$(INKEY$)
                                2252 Y1$=UCASE$(Y1$)
                                2255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
                                2257 IF Y1$="P" THEN GOTO PRINTINGSECTION
                                2260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
                                2261 GOTO 2251
                                2262
                                #IF %DEF(%PB_CC32)
                                  COLOR 15,0:CLS
                                #ELSE
                                  GRAPHIC COLOR 15,0:GRAPHIC CLEAR
                                #ENDIF
                                2264 GRAPHIC SET POS ( 10,27):GRAPHIC PRINT"Loading Main Menu":SLEEP 2000
                                2265 ' chain"miser.exe"
                                2270 REM ************ CURVED CORNER ENTRIES ********************************************************************** CURVED CORNER ENTRIES ************************
                                2272 CC=1
                                2275 GOSUB RGPR:GRAPHIC CLEAR ' ERASE THE PAGE...
                                2276 GRAPHIC SET POS (160,60):GRAPHIC PRINT "IF ONLY ONE CORNER HAS A CURVE, ENTER A ZERO FOR THE RADIUS AND"
                                2277 GRAPHIC SET POS (160,100):GRAPHIC PRINT "THE CENTRAL ANGLE AT THE CORNER THAT DOES NOT HAVE A CURVE."
                                2278 GOSUB LGPR:GRAPHIC SET POS (390,400):GRAPHIC PRINT "Press a key to continue"
                                2279 IF GRAPHIC$(INKEY$)="" THEN 2279
                                2280 GRAPHIC CLEAR:GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter distance between PCs ";PCD
                                2285 GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 1st Radius ";RAD1
                                2286 GRAPHIC SET POS (200,120):GRAPHIC PRINT "Enter angles as Degrees.MinutesSeconds ie. 85.1234 ";
                                2290 GRAPHIC SET POS (350,160):GRAPHIC INPUT "Enter 1st Central Angle ";ANG1:ANG3=ANG1
                                2291 IF (ANG1-INT(ANG1))>.6 THEN GOSUB 5020:GOTO 2290
                                2292 GZ=ANG1*100:GX=INT(GZ)
                                2293 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2290
                                2295 IF RAD1=0 AND ANG1=0 THEN 2305
                                2300 B=ANG1:GOSUB 1480:ANGA=180-HZ:TANG1=TAN((HZ/2)*PI/180)*RAD1 ' LINE 1480 CHANGES DMS TO DD
                                2305 GOSUB 2455:GRAPHIC SET POS (350,80):GRAPHIC INPUT "Enter 2nd Radius ";RAD2 ' LINE 2455 BLANKS OUT ENTRY FOR NEXT ENTRY
                                2310 GOSUB 2455:GRAPHIC SET POS (350,120):GRAPHIC INPUT "Enter 2nd Central Angle ";ANG2:ANG4=ANG2
                                2311 IF (ANG2-INT(ANG2))>.6 THEN GOSUB 5020:GOTO 2310
                                2312 GZ=ANG2*100:GX=INT(GZ)
                                2313 IF GZ-GX>.6 THEN GOSUB 5020:GOTO 2310
                                2315 IF RAD2=0 AND ANG2=0 THEN 2325
                                2320 B=ANG2:GOSUB 1480:ANGB=180-HZ:TANG2=TAN((HZ/2)*PI/180)*RAD2
                                2322 TANG1=ROUND (TANG1,3):TANG2=ROUND (TANG2,3)
                                2323 GRAPHIC SET POS (230,560):GRAPHIC PRINT "TAN 1 = ";TANG1,"TAN 2 = ";TANG2
                                2325 HLD=TANG1+TANG2+PCD:GOSUB 1550:GOSUB 2455
                                2330 GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter house line range ";HLR
                                2335 GRAPHIC SET POS (380,310):GRAPHIC PRINT "PC to PC = ";PCD
                                2336 GRAPHIC SET POS (350,40):GRAPHIC PRINT " ";
                                2237 GOSUB CL1
                                2340 GRAPHIC SET POS (400,250):GRAPHIC PRINT "HLRG = ";HLR"'"
                                2241 GOSUB CL2
                                2342 GRAPHIC SET POS (260,400):GRAPHIC PRINT "RAD = "RAD1
                                2343 GRAPHIC SET POS (560,400):GRAPHIC PRINT "RAD = "RAD2
                                2345
                                2350 W0=ANGA:GOSUB 1510:C=INT(W0):D=INT(W1):E=INT(W3) ' 1510 CHANGE DD TO DMS FOR PRINTING OF ANGLE
                                2355 GRAPHIC SET POS (300,320):GRAPHIC PRINT "A"
                                2360 IF ANG1=0 AND RAD1=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at A ";ANGA:B=ANGA:GOSUB 1480 ' CHANGE DMS TO DD
                                2365 GRAPHIC SET POS (300,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):L=C:M=D:N=E:GOSUB 2455:CCC=C:DDD=D:EEE=E ' THESE ARE FOR PRINTING SECTION
                                2370 IF ANGA=90 THEN GOSUB 1565 ELSE IF ANGA<90 THEN GOSUB 1570 ELSE GOSUB 1575 ' DRAWS ANGLE LINE FROM HL
                                2375 W0=ANGB:GOSUB 1510:C=INT(W0):D=INT(W1):E=INT(W3)
                                2376 GOSUB 2410
                                2380 GRAPHIC SET POS (685,320):GRAPHIC PRINT "B"
                                2385 IF ANG2=0 AND RAD2=0 THEN GRAPHIC SET POS (350,40):GRAPHIC INPUT "Enter angle at B ";ANGB:B=ANGB:GOSUB 1480
                                2390 GRAPHIC SET POS (550,360):GRAPHIC PRINT C;CHR$(248);D;CHR$(39);E;CHR$(34):CCCC=C:DDDD=D:EEEE=E
                                2395 IF ANGB=90 THEN GOSUB 1580 ELSE IF ANGB<90 THEN GOSUB 1585 ELSE GOSUB 1590
                                2400 GOSUB 2410
                                2405 GOSUB 2455:GOTO 155
                                2410 IF ANG1=0 THEN GOTO 2430 ' IF 1ST ANGLE IS ZERO, SKIP THIS PART
                                2415 IF ANG1<90 THEN GRAPHIC ARC (232,300)-(332,400),0.5*PI,.9*PI ' <90 - left corner ' THIS IS THE ARC SECTION
                                2420 IF ANG1=90 THEN GRAPHIC ARC (250,300)-(350,400),0.5*Pi,pi ' 90 degree - left corner
                                2425 IF ANG1>90 THEN GRAPHIC ARC (277,300)-(377,400),0.5*PI,1.2*PI ' >90 - LC
                                2430 IF ANG2=0 THEN RETURN ' IF SECOND ANGLE IS ZERO, SKIP THIS PART
                                2435 IF ANG2<90 THEN GRAPHIC ARC (669,300)-(769,400),0.15*PI,.5*PI ' <90 - right corner
                                2440 IF ANG2=90 THEN GRAPHIC ARC (650,300)-(750,400),0,0.5*Pi ' 90 degree - right corner
                                2445 IF ANG2>90 THEN GRAPHIC ARC (623,300)-(723,400),1.95*PI,0.5*PI ' >90 - RC
                                2450 RETURN
                                2455 GRAPHIC BOX (100,10)-(900,200),0,%BLACK,%BLACK:RETURN ' CLEAR THE LINE FOR NEW TEXT
                                3000 GOSUB CL1:GRAPHIC LINE (230,240)-(775,240):GRAPHIC ELLIPSE (222,235)-(238,250):GRAPHIC ELLIPSE (768,235)-(783,250):GOTO 2230
                                3005 GOSUB CL1:GRAPHIC LINE (210,240)-(790,240):GRAPHIC ELLIPSE (203,235)-(218,250):GRAPHIC ELLIPSE (783,235)-(798,250):GOTO 2230
                                3010 GOSUB CL1:GRAPHIC LINE (330,240)-(680,240):GRAPHIC ELLIPSE (323,235)-(338,250):GRAPHIC ELLIPSE (673,235)-(688,250):GOTO 2230
                                3015 GOSUB CL1:GRAPHIC LINE (160,240)-(837,240):GRAPHIC ELLIPSE (155,235)-(170,250):GRAPHIC ELLIPSE (830,235)-(845,250):GOTO 2230
                                3020 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
                                3025 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(218,308):GRAPHIC ELLIPSE (783,293)-(798,308):GOTO 2230
                                3030 GOSUB CL1:GRAPHIC LINE (290,240)-(710,240):GRAPHIC ELLIPSE (283,235)-(297,250):GRAPHIC ELLIPSE (703,235)-(717,250):GOTO 2230
                                3035 GOSUB CL1:GRAPHIC LINE (195,300)-(800,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3040 GOSUB CL1:GRAPHIC LINE (290,300)-(710,300):GRAPHIC ELLIPSE (283,293)-(297,308):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3045 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3050 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3055 GOSUB CL1:GRAPHIC LINE (300,300)-(695,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (687,293)-(702,307):GOTO 2230
                                3060 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3065 GOSUB CL1:GRAPHIC LINE (295,300)-(705,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3070 GOSUB CL1:GRAPHIC LINE (180,350)-(812,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3075 GOSUB CL1:GRAPHIC LINE (210,350)-(790,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3080 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3085 GOSUB CL1:GRAPHIC LINE (195,300)-(710,300):GRAPHIC ELLIPSE (188,292)-(202,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3090 GOSUB CL1:GRAPHIC LINE (215,350)-(780,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3095 GOSUB CL1:GRAPHIC LINE (277,240)-(723,240):GRAPHIC ELLIPSE (270,234)-(284,247):GRAPHIC ELLIPSE (717,234)-(730,247):GOTO 2230
                                3100 GOSUB CL1:GRAPHIC LINE (250,240)-(750,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3105 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3110 GOSUB CL1:GRAPHIC LINE (268,350)-(750,350):GRAPHIC ELLIPSE (265,343)-(275,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3115 GOSUB CL1:GRAPHIC LINE (223,240)-(777,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3120 GOSUB CL1:GRAPHIC LINE (227,350)-(772,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3125 GOSUB CL1:GRAPHIC LINE (250,350)-(750,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3130 GOSUB CL1:GRAPHIC LINE (272,350)-(727,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3135 GOSUB CL1:GRAPHIC LINE (268,350)-(730,350):GRAPHIC ELLIPSE (262,343)-(276,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3140 GOSUB CL1:GRAPHIC LINE (290,350)-(710,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3145 GOSUB CL1:GRAPHIC LINE (325,350)-(680,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3150 GOSUB CL1:GRAPHIC LINE (230,240)-(680,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3155 GOSUB CL1:GRAPHIC LINE (330,240)-(775,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3160 GOSUB CL1:GRAPHIC LINE (210,240)-(710,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3165 GOSUB CL1:GRAPHIC LINE (290,240)-(790,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3170 GOSUB CL1:GRAPHIC LINE (160,240)-(720,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3175 GOSUB CL1:GRAPHIC LINE (280,240)-(837,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3180 GOSUB CL1:GRAPHIC LINE (277,240)-(775,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3185 GOSUB CL1:GRAPHIC LINE (230,240)-(723,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (717,233)-(730,247):GOTO 2230
                                3190 GOSUB CL1:GRAPHIC LINE (277,240)-(680,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (673,233)-(686,247):GOTO 2230
                                3195 GOSUB CL1:GRAPHIC LINE (330,240)-(723,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3200 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3205 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3210 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3215 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                                3220 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3225 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3230 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3235 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3240 GOSUB CL1:GRAPHIC LINE (250,240)-(790,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3245 GOSUB CL1:GRAPHIC LINE (290,300)-(790,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3250 GOSUB CL1:GRAPHIC LINE (250,350)-(790,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3255 GOSUB CL1:GRAPHIC LINE (290,350)-(790,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3260 GOSUB CL1:GRAPHIC LINE (210,240)-(750,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3265 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3270 GOSUB CL1:GRAPHIC LINE (210,350)-(750,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3275 GOSUB CL1:GRAPHIC LINE (210,350)-(710,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3280 GOSUB CL1:GRAPHIC LINE (250,350)-(710,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3285 GOSUB CL1:GRAPHIC LINE (290,350)-(750,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3290 GOSUB CL1:GRAPHIC LINE (250,240)-(710,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3295 GOSUB CL1:GRAPHIC LINE (290,240)-(750,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3300 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3305 GOSUB CL1:GRAPHIC LINE (295,300)-(792,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3310 GOSUB CL1:GRAPHIC LINE (227,350)-(812,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3315 GOSUB CL1:GRAPHIC LINE (268,350)-(812,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3320 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3325 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3330 GOSUB CL1:GRAPHIC LINE (180,350)-(772,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3335 GOSUB CL1:GRAPHIC LINE (180,350)-(730,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3340 GOSUB CL1:GRAPHIC LINE (227,350)-(750,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3345 GOSUB CL1:GRAPHIC LINE (268,350)-(710,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3350 GOSUB CL1:GRAPHIC LINE (227,350)-(790,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3355 GOSUB CL1:GRAPHIC LINE (227,350)-(730,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3360 GOSUB CL1:GRAPHIC LINE (268,350)-(790,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3365 GOSUB CL1:GRAPHIC LINE (268,350)-(772,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3370 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3375 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3380 GOSUB CL1:GRAPHIC LINE (223,240)-(837,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3385 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3390 GOSUB CL1:GRAPHIC LINE (300,300)-(800,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3395 GOSUB CL1:GRAPHIC LINE (272,350)-(780,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3400 GOSUB CL1:GRAPHIC LINE (325,350)-(780,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3405 GOSUB CL1:GRAPHIC LINE (160,240)-(777,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3406 GOSUB CL1:GRAPHIC LINE (280,240)-(720,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3407 GOSUB CL1:GRAPHIC LINE (230,240)-(790,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3408 GOSUB CL1:GRAPHIC LINE (277,240)-(790,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3410 GOSUB CL1:GRAPHIC LINE (330,240)-(790,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3412 GOSUB CL1:GRAPHIC LINE (277,240)-(750,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3414 GOSUB CL1:GRAPHIC LINE (330,240)-(710,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3416 GOSUB CL1:GRAPHIC LINE (210,300)-(790,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3418 GOSUB CL1:GRAPHIC LINE (250,300)-(790,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3420 GOSUB CL1:GRAPHIC LINE (295,300)-(790,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3422 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3424 GOSUB CL1:GRAPHIC LINE (250,300)-(710,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3426 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3428 GOSUB CL1:GRAPHIC LINE (295,300)-(710,300):GRAPHIC ELLIPSE (288,293)-(302,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                3430 GOSUB CL1:GRAPHIC LINE (223,240)-(720,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3432 GOSUB CL1:GRAPHIC LINE (280,240)-(777,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3434 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3436 GOSUB CL1:GRAPHIC LINE (195,300)-(695,300):GRAPHIC ELLIPSE (187,293)-(202,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                                3438 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 100 combos
                                3440 GOSUB CL1:GRAPHIC LINE (215,350)-(680,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3442 GOSUB CL1:GRAPHIC LINE (325,350)-(727,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3444 GOSUB CL1:GRAPHIC LINE (272,350)-(680,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3446 GOSUB CL1:GRAPHIC LINE (230,240)-(710,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3448 GOSUB CL1:GRAPHIC LINE (230,240)-(750,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3450 GOSUB CL1:GRAPHIC LINE (210,240)-(775,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3452 GOSUB CL1:GRAPHIC LINE (250,240)-(775,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3454 GOSUB CL1:GRAPHIC LINE (290,240)-(775,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3456 GOSUB CL1:GRAPHIC LINE (210,240)-(723,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3458 GOSUB CL1:GRAPHIC LINE (210,240)-(680,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3460 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3462 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3464 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3466 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3468 GOSUB CL1:GRAPHIC LINE (290,300)-(705,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3470 GOSUB CL1:GRAPHIC LINE (290,300)-(792,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3472 GOSUB CL1:GRAPHIC LINE (160,240)-(790,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3474 GOSUB CL1:GRAPHIC LINE (223,240)-(790,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3476 GOSUB CL1:GRAPHIC LINE (280,240)-(790,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (783,233)-(797,247):GOTO 2230
                                3478 GOSUB CL1:GRAPHIC LINE (280,240)-(750,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3480 GOSUB CL1:GRAPHIC LINE (223,240)-(750,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3482 GOSUB CL1:GRAPHIC LINE (223,240)-(710,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3484 GOSUB CL1:GRAPHIC LINE (280,240)-(710,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3486 GOSUB CL1:GRAPHIC LINE (160,240)-(710,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3488 GOSUB CL1:GRAPHIC LINE (210,240)-(837,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3490 GOSUB CL1:GRAPHIC LINE (250,240)-(837,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3492 GOSUB CL1:GRAPHIC LINE (290,240)-(837,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3494 GOSUB CL1:GRAPHIC LINE (210,240)-(777,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3496 GOSUB CL1:GRAPHIC LINE (210,240)-(720,240):GRAPHIC ELLIPSE (203,233)-(217,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3498 GOSUB CL1:GRAPHIC LINE (250,240)-(777,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3500 GOSUB CL1:GRAPHIC LINE (290,240)-(777,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3502 GOSUB CL1:GRAPHIC LINE (290,240)-(720,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3504 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3506 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3508 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3510 GOSUB CL1:GRAPHIC LINE (290,300)-(800,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3512 GOSUB CL1:GRAPHIC LINE (215,350)-(812,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                                3514 GOSUB CL1:GRAPHIC LINE (272,350)-(812,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                                3516 GOSUB CL1:GRAPHIC LINE (325,350)-(812,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (807,343)-(819,357):GOTO 2230
                                3518 GOSUB CL1:GRAPHIC LINE (215,350)-(772,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3520 GOSUB CL1:GRAPHIC LINE (272,350)-(772,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3522 GOSUB CL1:GRAPHIC LINE (325,350)-(772,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3524 GOSUB CL1:GRAPHIC LINE (215,350)-(730,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3526 GOSUB CL1:GRAPHIC LINE (272,350)-(730,350):GRAPHIC ELLIPSE (265,343)-(279,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3528 GOSUB CL1:GRAPHIC LINE (325,350)-(730,350):GRAPHIC ELLIPSE (318,343)-(332,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3530 GOSUB CL1:GRAPHIC LINE (230,240)-(837,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3532 GOSUB CL1:GRAPHIC LINE (277,240)-(837,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3534 GOSUB CL1:GRAPHIC LINE (330,240)-(837,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (830,233)-(844,247):GOTO 2230
                                3536 GOSUB CL1:GRAPHIC LINE (230,240)-(777,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3538 GOSUB CL1:GRAPHIC LINE (277,240)-(777,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3540 GOSUB CL1:GRAPHIC LINE (330,240)-(777,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (770,233)-(784,247):GOTO 2230
                                3542 GOSUB CL1:GRAPHIC LINE (230,240)-(720,240):GRAPHIC ELLIPSE (223,233)-(237,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3544 GOSUB CL1:GRAPHIC LINE (277,240)-(720,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3546 GOSUB CL1:GRAPHIC LINE (330,240)-(720,240):GRAPHIC ELLIPSE (323,233)-(337,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3548 GOSUB CL1:GRAPHIC LINE (210,300)-(800,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3550 GOSUB CL1:GRAPHIC LINE (250,300)-(800,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3552 GOSUB CL1:GRAPHIC LINE (295,300)-(800,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (793,293)-(807,307):GOTO 2230
                                3554 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3556 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3558 GOSUB CL1:GRAPHIC LINE (295,300)-(750,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3560 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                                3562 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                                3564 GOSUB CL1:GRAPHIC LINE (295,300)-(695,300):GRAPHIC ELLIPSE (287,293)-(303,307):GRAPHIC ELLIPSE (687,293)-(703,307):GOTO 2230
                                3566 GOSUB CL1:GRAPHIC LINE (180,350)-(780,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3568 GOSUB CL1:GRAPHIC LINE (227,350)-(780,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3570 GOSUB CL1:GRAPHIC LINE (268,350)-(780,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3572 GOSUB CL1:GRAPHIC LINE (180,350)-(727,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3574 GOSUB CL1:GRAPHIC LINE (227,350)-(727,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3576 GOSUB CL1:GRAPHIC LINE (268,350)-(727,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3578 GOSUB CL1:GRAPHIC LINE (180,350)-(680,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3580 GOSUB CL1:GRAPHIC LINE (227,350)-(680,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3582 GOSUB CL1:GRAPHIC LINE (268,350)-(680,350):GRAPHIC ELLIPSE (261,343)-(275,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3584 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3586 GOSUB CL1:GRAPHIC LINE (180,350)-(790,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (783,343)-(797,357):GOTO 2230
                                3588 GOSUB CL1:GRAPHIC LINE (180,350)-(750,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (743,343)-(757,357):GOTO 2230
                                3590 GOSUB CL1:GRAPHIC LINE (180,350)-(710,350):GRAPHIC ELLIPSE (173,343)-(187,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3592 GOSUB CL1:GRAPHIC LINE (227,350)-(710,350):GRAPHIC ELLIPSE (220,343)-(234,357):GRAPHIC ELLIPSE (703,343)-(717,357):GOTO 2230
                                3594 GOSUB CL1:GRAPHIC LINE (210,300)-(792,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3596 GOSUB CL1:GRAPHIC LINE (210,300)-(705,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3598 GOSUB CL1:GRAPHIC LINE (210,300)-(680,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (673,293)-(687,307):GOTO 2230
                                3600 GOSUB CL1:GRAPHIC LINE (250,240)-(723,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3602 GOSUB CL1:GRAPHIC LINE (250,240)-(680,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3604 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3606 GOSUB CL1:GRAPHIC LINE (250,350)-(812,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3608 GOSUB CL1:GRAPHIC LINE (250,350)-(772,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3610 GOSUB CL1:GRAPHIC LINE (250,350)-(730,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3612 GOSUB CL1:GRAPHIC LINE (210,350)-(812,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3614 GOSUB CL1:GRAPHIC LINE (210,350)-(772,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3616 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3618 GOSUB CL1:GRAPHIC LINE (160,240)-(775,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3620 GOSUB CL1:GRAPHIC LINE (160,240)-(723,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3622 GOSUB CL1:GRAPHIC LINE (160,240)-(680,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3624 GOSUB CL1:GRAPHIC LINE (223,240)-(775,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3626 GOSUB CL1:GRAPHIC LINE (223,240)-(723,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3628 GOSUB CL1:GRAPHIC LINE (223,240)-(680,240):GRAPHIC ELLIPSE (216,233)-(230,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3630 GOSUB CL1:GRAPHIC LINE (280,240)-(775,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (768,233)-(782,247):GOTO 2230
                                3632 GOSUB CL1:GRAPHIC LINE (280,240)-(723,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (716,233)-(730,247):GOTO 2230
                                3634 GOSUB CL1:GRAPHIC LINE (280,240)-(680,240):GRAPHIC ELLIPSE (273,233)-(287,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3636 GOSUB CL1:GRAPHIC LINE (195,300)-(792,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3638 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 200 combos
                                3640 GOSUB CL1:GRAPHIC LINE (195,300)-(705,300):GRAPHIC ELLIPSE (186,293)-(203,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3642 GOSUB CL1:GRAPHIC LINE (250,300)-(792,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3644 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3646 GOSUB CL1:GRAPHIC LINE (250,300)-(705,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3648 GOSUB CL1:GRAPHIC LINE (300,300)-(792,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (785,293)-(799,307):GOTO 2230
                                3650 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3652 GOSUB CL1:GRAPHIC LINE (300,300)-(705,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (698,293)-(712,307):GOTO 2230
                                3654 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3656 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3658 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3660 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3662 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3664 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3666 GOSUB CL1:GRAPHIC LINE (350,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3668 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3670 GOSUB CL1:GRAPHIC LINE (210,350)-(730,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3672 GOSUB CL1:GRAPHIC LINE (290,240)-(723,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (716,233)-(729,247):GOTO 2230
                                3674 GOSUB CL1:GRAPHIC LINE (290,240)-(680,240):GRAPHIC ELLIPSE (283,233)-(297,247):GRAPHIC ELLIPSE (673,233)-(687,247):GOTO 2230
                                3676 GOSUB CL1:GRAPHIC LINE (290,350)-(812,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (805,343)-(819,357):GOTO 2230
                                3678 GOSUB CL1:GRAPHIC LINE (290,350)-(772,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (765,343)-(779,357):GOTO 2230
                                3680 GOSUB CL1:GRAPHIC LINE (290,350)-(730,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (723,343)-(737,357):GOTO 2230
                                3682 GOSUB CL1:GRAPHIC LINE (250,240)-(720,240):GRAPHIC ELLIPSE (243,233)-(257,247):GRAPHIC ELLIPSE (713,233)-(727,247):GOTO 2230
                                3684 GOSUB CL1:GRAPHIC LINE (210,300)-(750,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3686 GOSUB CL1:GRAPHIC LINE (210,300)-(695,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                                3688 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3690 GOSUB CL1:GRAPHIC LINE (250,300)-(695,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                                3692 GOSUB CL1:GRAPHIC LINE (290,300)-(750,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3694 GOSUB CL1:GRAPHIC LINE (290,300)-(695,300):GRAPHIC ELLIPSE (283,293)-(297,307):GRAPHIC ELLIPSE (688,293)-(702,307):GOTO 2230
                                3696 GOSUB CL1:GRAPHIC LINE (210,350)-(780,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3698 GOSUB CL1:GRAPHIC LINE (210,350)-(727,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3700 GOSUB CL1:GRAPHIC LINE (210,350)-(680,350):GRAPHIC ELLIPSE (203,343)-(217,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3702 GOSUB CL1:GRAPHIC LINE (250,350)-(780,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3704 GOSUB CL1:GRAPHIC LINE (250,350)-(727,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3706 GOSUB CL1:GRAPHIC LINE (250,350)-(680,350):GRAPHIC ELLIPSE (243,343)-(257,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3708 GOSUB CL1:GRAPHIC LINE (290,350)-(780,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (773,343)-(787,357):GOTO 2230
                                3710 GOSUB CL1:GRAPHIC LINE (290,350)-(727,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3712 GOSUB CL1:GRAPHIC LINE (290,350)-(680,350):GRAPHIC ELLIPSE (283,343)-(297,357):GRAPHIC ELLIPSE (673,343)-(687,357):GOTO 2230
                                3714 GOSUB CL1:GRAPHIC LINE (160,240)-(750,240):GRAPHIC ELLIPSE (153,233)-(167,247):GRAPHIC ELLIPSE (743,233)-(757,247):GOTO 2230
                                3716 GOSUB CL1:GRAPHIC LINE (195,300)-(790,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3718 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3720 GOSUB CL1:GRAPHIC LINE (195,300)-(750,300):GRAPHIC ELLIPSE (188,293)-(202,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3722 GOSUB CL1:GRAPHIC LINE (300,300)-(790,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (783,293)-(797,307):GOTO 2230
                                3724 GOSUB CL1:GRAPHIC LINE (300,300)-(750,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230
                                3726 GOSUB CL1:GRAPHIC LINE (300,300)-(710,300):GRAPHIC ELLIPSE (293,293)-(307,307):GRAPHIC ELLIPSE (703,293)-(719,307):GOTO 2230
                                3728 GOSUB CL1:GRAPHIC LINE (215,350)-(727,350):GRAPHIC ELLIPSE (208,343)-(222,357):GRAPHIC ELLIPSE (720,343)-(734,357):GOTO 2230
                                3730 GOSUB CL1:GRAPHIC LINE (250,300)-(750,300):GRAPHIC ELLIPSE (243,293)-(257,307):GRAPHIC ELLIPSE (743,293)-(757,307):GOTO 2230 ' 246 combos
                                3732 GOSUB CL1:GRAPHIC LINE (277,240)-(710,240):GRAPHIC ELLIPSE (270,233)-(284,247):GRAPHIC ELLIPSE (703,233)-(717,247):GOTO 2230
                                3734 GOSUB CL1:GRAPHIC LINE (210,300)-(710,300):GRAPHIC ELLIPSE (203,293)-(217,307):GRAPHIC ELLIPSE (703,293)-(717,307):GOTO 2230
                                
                                
                                
                                5000 GRAPHIC SET POS (220,200):GRAPHIC PRINT"ANGLE CAN NOT BE ZERO.... RE-ENTER": SLEEP 3000
                                5010 GRAPHIC SET POS (210,200):GRAPHIC PRINT " ":RETURN
                                5020 BEEP:BEEP:GRAPHIC SET POS (100,150):GRAPHIC PRINT"MINUTES OR SECONDS IS GREATER THEN 60... RE-ENTER": SLEEP 3000:GRAPHIC SET POS (450,80):GRAPHIC PRINT " "
                                5030 GRAPHIC BOX (10,80)-(900,250),0,%BLACK,%BLACK:RETURN
                                
                                LGPR:
                                FONT NEW "Times New Roman", 20, 1 TO hFont&
                                GRAPHIC SET FONT hFont&
                                GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
                                RETURN
                                
                                RGPR:
                                FONT NEW "Times New Roman", 15, 1 TO hFont&
                                GRAPHIC SET FONT hFont&
                                GRAPHIC TEXT SIZE TXT$ TO nWidth!, nHeight!
                                RETURN
                                
                                CL1:
                                GRAPHIC COLOR %RGB_DODGERBLUE
                                RETURN
                                CL2:
                                GRAPHIC COLOR %YELLOW
                                RETURN
                                
                                PRINTINGSECTION:
                                R2$="#####.###"
                                XPRINT ATTACH DEFAULT
                                XPRINT:XPRINT:XPRINT TAB(35) "R A N G E L I N E S"
                                XPRINT TAB(40)"by C H i X"
                                PI=3.141592653589793#
                                RGD= ROUND (RGD,3)
                                XPRINT:XPRINT TAB (30) "Range line distance = ";RGD
                                HLD= ROUND (HLD,3)
                                XPRINT:XPRINT TAB (30) "House line distance or PI to PI = ";HLD
                                HLR=ROUND (HLR,3)
                                XPRINT:XPRINT TAB (30) "House line range ";HLR
                                B=ANGA:GOSUB 1480
                                IF CC=1 THEN C=CCC:D=DDD:E=EEE
                                XPRINT:XPRINT TAB (30) "Angle A = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
                                B=ANGB:GOSUB 1480
                                IF CC=1 THEN C=CCCC:D=DDDD:E=EEEE
                                XPRINT:XPRINT TAB (30) "Angle B = ";C;CHR$(248);D;CHR$(39);E;CHR$(34)
                                XPRINT:XPRINT TAB (30) "Range A = ";USING$(R2$,RGA)
                                XPRINT:XPRINT TAB (30) "Range B = ";USING$(R2$,RGB1)
                                IF CC=0 THEN XPRINT CLOSE:GOTO ANOTHERPROBLEM
                                XPRINT:XPRINT TAB (30) "Radius 1 = ";USING$(R2$,RAD1)
                                XPRINT:XPRINT TAB (30) "Radius 2 = ";USING$(R2$,RAD2)
                                XPRINT:XPRINT TAB (30) "Tangent 1 = ";USING$(R2$,TANG1)
                                XPRINT:XPRINT TAB (30) "Tangent 2 = ";USING$(R2$,TANG2)
                                
                                XPRINT CLOSE
                                ANOTHERPROBLEM:
                                Y1$="0"
                                6250 GRAPHIC CLEAR:GRAPHIC SET POS (300,50):GRAPHIC PRINT "Another Problem Y/N? "
                                6251 Y1$=GRAPHIC$(INKEY$)
                                6252 Y1$=UCASE$(Y1$)
                                6255 IF Y1$="Y" THEN GRAPHIC CLEAR:GOTO 35
                                6260 IF Y1$="N" OR Y1$=CHR$(13)THEN END
                                GOTO 6251
                                
                                END FUNCTION
                                [/CODE]

                                Comment


                                • #17
                                  Weird, parts of code is blue, other parts is not. Guess it relates to using HTML tags around it all. Ah well, at least it's formatted correctly. :

                                  Comment


                                  • #18
                                    Thank you Sir Borje and Sir Izzy
                                    That was a very good program

                                    Comment


                                    • #19
                                      Borje, Tim...

                                      Thank you for putting in the time...
                                      Did either of you get the program to run?
                                      Did it show up graphically on the screen...

                                      Izzy

                                      Comment


                                      • #20
                                        It runs fine, Izzy and with just a few changes I made it compile with PBWin too. Thanks for sharing - always fun to see old code, from a time when programmers really was programmers.

                                        Comment

                                        Working...
                                        X