Sharp PC-1360 - Page 339

• PROGRAM LIST
lBI"A'" WAIT 01 CLEAR. LPRINT :
COI,SOLE
33
2B:LPRINr • LTeXT I LPRINT • GRAPH
GLCURSOR <240, -,240): SORGN
30: CLS : US I HG : PR I !'H" :t:::t ROUt'-lD GRA
PHIC H"
40: INPUT "COLOR(0-5l=";n: COLOR 0,7
50'lHPUT "",o";C, "L-",L
6B'R=200:H=10: CLS
J01CURSOR 5.1: PRINT "U PI? NHNG n"
88:P=10000
30'0-0. 130SUB "CAi_":U=O:l)=[l:E=OIF=Q:
GLCURSOR CU,:J)
100:EOR I=H TO P STEP H
110. 0=1: COSUS "CAI_" :1,1=0. XrQ
120:LLINE -(W,X)
130: U=I.I!!)=:': IF F"I) IF E"LJ THEH 15(.'1
:140 ~ HE><T I
1S0:CES , LTEXT , LPRINT : LO 10: END
16P:"CAL"'G=R/CYD:S-(R-C)1 COS D:T=(R-C
):t SW O:K=LK COS (913'C):H-LK SII, '
90~'G)
170'0= SIN (0-98)'8= COS 10-90'
180: O=KYB'"AKH+S' Q=UA+BKN+ T
138: REIURI)
• LINE MAP
453 bytes
PROGRAM EXAMPLES
II MEMORY CONTENTS
T rx
T ry