Radio Shack TRS-80 X-PAD GT-116 - Page 58

1640
TP=1:
'TEXT
POSIT
SELECTED
1650
RETURN
1660
REM
**********************
1670
REM
TOP MENU BOX
3:
1680
REM
"DRAW"
1690
REM
**********************
1700
PSET(X,Y,1)
1710
X1^X;Y1=Y
1720
GOSUB
2870
1730
IF
S<>3
THEN
RETURN
1740
LINE(X1,Y1)-(X,Y),PSET
1750
GOTO
1710
1760
REM
1770
REM
**********************
1780
REM TOP
MENU
BOX
4:
1790
REM "PAINT"
1800
REM
**********************
1810
B=8: C=8
1820
SW*=0
1830
RETURN
1840
REM ENTRY
TO
SELECT
COLOR
1850
ON
SW GOTO
1970
1860
GOSUB
2890
1870
IF
S»3 THEN
1860
1880
IF
Y<192 THEN RETURN
1890
C=INT(X/28.334)
1900
CS=0
1910
IF
C>4
THEN
CS=1
1920
SCREEN
1,CS
1930
PLAY
STR$(C+1)
1940
SW-1
1950
RETURN
1960
REM ENTRY
TO
SELECT AREA
TO
PAINT
1970
GOSUB
2890
1980
IF
S=3
THEN
1970
1990
IF
Y>191
THEN
RETURN
2000
PAINT
(X,Y),C,B
2010
RETURN
2020
REM
2030
REM
**********************
2040
REM TOP
MENU
BOX
5:
2050
REM
-ERASE"
2060
REM
**********************
2070
PSET <X,Y,1)
2072
X1*X:Y1-Y
2074
GOSUB
2870
2076
IF
S<>3
THEN
RETURN
2078
LINE
(XI,
Y1)-(X,Y), PRESET
2080
GOTO
2072
2090
PSET(X,Y)
2110
REM
2120
REM
**********************
2130
REM TOP
MENU BOX
6:
2140
REM
"LINE"
2150
REM
**********************
2160
SW=0
2170
RETURN
2180
REM ENTRY
FOR
FIRST
END
POINT
2190
ON
SW
GOTO
2270
2200
GOSUB
2890
2210
IF
S=3
THEN
2200
2220
PSET
(X,Y)
2230
X1=X:Y1=Y
2240
SW=1
2250
RETURN
2260
REM ENTRY
FOR
SECOND
END
POINT
2270
GOSUB
2890
2280
IF
S=3
THEN
2270
2290
LINE
(X1,Y1)-(X,Y),PSET
2300
SW=0
2310
RETURN
2320
REM
2330
REM
**********************
2340
REM TOP MENU
BOX
7:
2350
REM "CIRCLE"
2360
REM
**********************
2370
SW=0
2380
RETURN
2390
REM ENTRY
FOR
CENTER POINT
2400
ON SW GOTO
2480
2410
GOSUB
2890
2420
IF
S=3
THEN
2410
2430
PSET (X,Y)
2440
Xl=OC:Yl=Y
2450
SW=1
2460
RETURN
2470
REM
ENTRY
FOR
RADIUS
2480
L=ABS
( Xl-X
) :
C=ABS
(
Yl-Y
)
2490
D*SQR( (L*L)+(C*C))
2500
CIRCLE (X1,Y1),D
2510
PRESET
(XI,
YD
2520
SW=0
2530
RETURN
2540
REM
2550
REM
**********************
2560
REM TOP
MENU BOX
8:
2570
REM
"BOX"
2580
REM
**********************
2590
SW=0
2600
RETURN
2610
REM ENTRY FOR FIRST
CORNER POINT
2620
ON SW GOTO
2700
2630
GOSUB
2890
2640
IF
S=3
THEN
2630
2650
PSET
(X,Y)
2660
X1=X:Y1=Y
2670
SW=1
2680
RETURN
2690
REM ENTRY FOR DIAGANOL CORNER POINT
2700
GOSUB
2890
2710
IF
S=3
THEN
2700
2720
LINE (X1,Y1)-(X,Y),PSET,B
2730
SW-0
2740
RETURN
2750
REM
2760
REM
**********************
2770
REM TOP MENU BOX 9:
2780
REM "CLEAR
DISPLAY
AREA"
2790
REM
**********************
5 1