Sharp CE-140P User Manual download pdf (Page 50)

-

'M""

·

;w

",

.-"'

...

-

iw

'

;.

. -.

.

...-.

, .

.

_-

---,

_..-_...,----

.

Programm~

fuer

den

Sharp

PC

1500A

Programm

Nr.

6:

Graphikprogramm

Seite

-3-

Mit

dem

folgenden

Programm

wird

die

Anzeige

des

PC

1500A

so

weit

es

geht,

graphisch

genutzt.

Die

BefehIe

im

einzelnen:

4

6

8

2

7

9

1

3

I

*

Cursor

um

Position

C~rsor

um

Position

Cursor

um

Position

nach

nac:h

nach

nac:h

8

8

2

links

rechts

oben

L

tnten

8

(I

FISCHEL

GmbH

IJ

00000000

0

0000000000

DDDDDDDtJDO

DtJOQODDDDO

..

uu

...........

-.

Cursor

um

Position

Kombination

von

4

und

Kombination

von

6

und

Kombination

von

4

und

Kombination

von

6

und

2

Schrittweite

festlegen

(1-143)

SpaItenmatrix

festlegen

(0-127)

Spaltenmatrix

an

Cursorposition

bleibt

erhalten)

zeichnen

(Untergrund

+ Von

Position

v

bis

Position

b

Spaltenmatri

x 1

zeichnen

'Untergrund

bleibt

erhalten)

,

Linien

~

i~hen.

lID

Anfan

s

punkt

lin

ks

oben,

r/u

.

Endpunkt

r~c~t~

unten.

Es

ist

auch

mdglich,

schr~ge

Linien

zu

zeichnen

Werteberei

ch:

1

Ir:

0-143,

DIu

1-7,

r >1

Rechtecke

zeichnen.

lID

r/u

wie

bei

Linien

ziehen.

Anzeige

loschen

100:

"A"

'

CLEAR

:

WAIT

0:

QIM P

(7)

:

ON

ERROR

GOTO

HI8

102:

FOR

T=lTO

7:P(T)=2

A

(T-1):NEXT

T

104:

Gl=1:P1=0:P2=1:k=0:Z=1

106:

PP=POINT

Pi

108:

A$=INI<EY$

110:

IF

K=0GCURSOR

Pl:GPRINT

PP

OR

P(G1):

k=1:GOTO

114

112:

K

=IZI:GCURSOR

Pl:GPRINT

PPAND

NOT

P(G1)

114:

IF

A$="

"GOTO

108

116:

GOTO

A$

118:

"P1"GCURSOR

P1:GPRINT

PP:RETURN

120:

"P2"CURSOR

24:PRINT"

":RETURN

122:

"I"CURSOR

24:INPUTP2:IF

P2

<:

10R

P2

:>

143GOTO

"I"

124:

GOSUB"P2":GOTO

108

Et'ganzungs-

126:

"*"CUSOR

24:

INPUT Z:GOSUB

"P2"

:

GOTO

108

128:

"-"CURSOR

PI:

GPRINT

PF'OR

Z:

GOSUB

"P

1":

GOTO

106

130:

"="CLS

:G010

106

132:

"+"GOSUB

"Pl":CURSOR

24:

INPUT

V,B,L

134:

ST=l:IF

V>BLET

ST=-l

136~

FOR

T=VTO

BSTE~

ST:GCURSOR

T:GPRINT

(POINT

TOR

L):NEXT

T

138:

GOSUB

"F'2":

GOTO

106

140:

"4"GOSUB

IP1":P1=P1-P2:IF

P1{0LET

P1=143

142:

GO

TO

106

144:

"6"GOSUB

"Pl":Pl=F'1+P2:

IF

F'

1}143LET

Pl=0

146:

GOTO

H'I6

148:

18"GOSUB

"Pl":Gl=Gl-1:IF

Gl <1LET

Gl=7

150:

GOTO

108

152:

154:

.

"2"GOSUB

"P1":G1=G1+1:IF

Gl >7LET

G1=0

GOTO

108

156:

"7"Gl=Gl-l:

IF

G1

<'

lLET

G1=7

158

:

GOTO

"4"

160:

"9"G1=G1-1:

IF

G1

< 1LET G1=7

GOTO

"6"

"1"G1=G1+1:IF

Gl

>7LET G1=1

GOTO

"4"

"3"81=Gl+1:IF

Gl

) 7LET

Gl=1

GOTO

"6"

He

.

ft

~

;

scne

I

i;t.c

!

-I

162:

164:

166:

168:

170:

172:

174:

.

176:

178:

")"GOSUB

"P1":CURSOR

24:

INPUT

L,O,R,U:GOSUB

"P2"

Y1=O-U:ST=1:Y6=O:IF

O>ULET

ST=-1:Yl=U-O

IF

R<

LGOTO

106

DM

15,-(incl.

7%

MWSt.)

180:

182:

184:

186:

188:

190:

192:

.

194:

Y3=0:Y2=INT

«R-L)/(ABS

Y1»:GCURSOR

L

FeR

T=I,...TO

R:Y4=POINT

T:Y3=Y3+1:,IF

Y3>Y2LET

Y3=0:Y6=Y6+ST

Y5=2

A

(Y6-1):GPRINT

Y40R Y5;NEXT T

11

(

11

GOSUB

11

P

1"

:

CURSOR

24:

INPUT

L,

0,

R ,

U:

GOSUB

11

P2'

) :

IF

L >R

GOTO

1[2)6

Yl=2

A

(O-1):FOR

T=LTO R:GCURSOR

T:GPRINT

POINT T

BR

Y1:NEXT T

FOR

T=OTO

U:Yl=2

A

(T-1):GCURSOR

R:GPRINT

POINT R

OR

Yl:NEXT

T

Y1=2

A

(U-l):FOR

T=RTO LSTEP

-l:GCURSOR

T:GPRINT

POINT T

OR

Y1

NEXT

T '

FOR

T=UTO

OSTEP

-1:Y1=2

A

(T-1):GCURSOR

L:GPRINT

POINT

LOR

Y1:

NEXT

T

GOTO

106

raM. i

PMP'

,

SHARP;....GOmput

_

er

-

Heft16

Se.i

te

50

1 2 ... 45 46 47 48 49 50 51 52 53 54 55 ... 59 60

Comments to this Manuals

No comments