Radio Shack 26-1190A Hardware Manual page 32

1190
LPRINT"G50
X0
Y-700
1200 LPRINT'GOl Y700
1210
REM
DRAW
HYPERBOLA
1220 LPRINT"G50 X-690 Y-30
1
230
FOR
X=-690 TO
690
STEP
20
1240 Y=21000/X:IF
X<19
AND
X>-19 THEN
1270
1250
IF
X=30 THEN
LPRINT"G50
X"X"Y"Y
1260 LPRINT"G01
X"X"Y"Y
1270
NEXT
1280
REM
DRAW
PARABOLA
1290 LPRINT"G50 X-500
Y700
1
300
FOR
X=-500 TO
500
STEP
1
1310
Y=X*X/357
1320
LPRINT"G01 X"X"Y"Y
1330
NEXT
1340
REM
DRAW
CIRCLE
1350
LPRINT"G50 X500 Y0
1360
LPRINT"G02
1500
1370
.REM DRAW
SINE
1380
LPRINT"G50X-700
1390
FOR
X=-700 TO
700
STEP
20
1400 Y=SIN(X/1
1 1
.4)*300:LPRINT"G01 X"X"Y"Y
1410
NEXT
1420
REM
DRAW
DOTTED
LINE
1430
LPRINT"G50 X-700 Y-700
1440 LPRINT"G00
X700 Y700
1450
REM
ROTATE CHARACTERS
1460
LPRINT"G50
X750 Y190
1470
LPRINT CHR$(1)CHR$(18)"PL0TTER/PRINTER";
1480
LPRINT
CHR$(2)
1490
LPRINT"G50
U-570 V-570
1500
LPRINT CHR$(1)CHR$(19)"PL0TTER/PRINTER";
1510
LPRINT
CHR$(2)
1520
LPRINT"G50
U-570 V570
1
530
LPRINT CHR$(1)CHR$(20)"PLOTTER/PRINTER";
1540
LPRINT
CHR$(2)
1550
LPRINT"G50
U100
V140
1
560
LPRINT
CHR$(1)CHR$(1
7)"Y=SIN(X)";
1570
LPRINT
CHR$(2)
1580
LPRINT"50
U20
V300
31-