Sharp PC-1500 Anwenderhandbuch Seite 214

[ Programmlisting ]
18: "A"; CLEAR
2@:CLS :WAIT @:
{INPUT "PUNKTBE
REICH(@-)198)°?
tt iN
4
3B: 1F (NS=8)4+¢NK=
10@8)<>2G0TQ 28
49@:CLS :D=1:P=9 .
41: CURSOR 17:
PRINT " BEWEG
EN"
SBI WAIT OB: AS="""k
=POINT P
95: Y=BOR X:Ag=""
60: GCURSOR P:
GPRINT -Y
635: D1=D
70: AS=INKEYS
8B: IF A$<>""GOTO
158
90: A=87F-D:A=AAND
: x
~18@: GCURSOR P:
GPRINT A
145: D=8
110: AS=INKEYS
'120: IF AS$<>"" GOTO
158
130:0=01:GOTO 55
158:BEEP 1, 18, 10:
IF A$="8"LET D
W=INT (¢DI41)7 -
2):GOTO 258
16@:1F AQ$="2"LET D~
-
- W=D1*¥2:GOTO 25
2)
(17621F A$="6"LET P
W=P+1:GOTO 268 |
186: IF AS="4"LET P
_ W=P-1:GOTO 26¢
19@:1F AS="M"LET NM
7 ODE=@:CURSOR 1
?:PRINT " BEW
| EGEN":GOTO 138
200: 1F AS="T"LET M
ODE=1:CURSOR 1
2:PRINT "QUFZE
ICH. ":GOTO 139°
216: 1F A$S="P"LET M
ODE=2: CURSOR 1
7-PRINT "AUSDR
UCK,": GOTO 389
-GOTO §8@
. =01:GOTO 55
250: 1F DWO64LET Dw
=64
251: 1F MODE< >@G0TO
255°
252: A=87F-D1: xX=A
AND X
253: GCURSOR P:
GPRINT x:D= DW:
GOTO Sa
255: A=YOR DW
256: GCURSOR P:
GPRINT A: 0=DW:
GOTO 5a
268: 1F PW<@LET PW=_
@:BEEP 3, 18, 28
:GOTO 288
278: 1F PWONLET PlW=
NIBEEP 3, 18, 3
280: 1F MODE=@G0TO
286.
284: GCURSOR P:
GPRINT Y:GOTO
. . 298.°°°
286: A=87F-D1:0=0
AND X
287: GCURSOR P:
GPRINT a
298: P=PW:D=D1:GOTO
SQ
388: GCURSOR P:
GPRINT X:D=D1:
E=@
381: T$="1234567890 -
BCDEF"
385: GRAPH : :
GLCURSOR (8, 8)
31@: COLOR 1:ROQTATE
1:CSIZE 1
320: C=118
338:FOR J=1TO 7?
3402 A=20¢J-1)
341:GOSUB 572
358: GLCURSOR (C, @)
:LPRINT D$
36@:C=C-15
370:NEXT J... -
3): SORGN
— 208 —
398:LINE (15, @)-¢1
20; 8), 8,2
412: GLCURSOR ¢@, ED
* SORGN
413:E=-16 7
415°LINE ¢€15, -16)-
(126, -16), @, 2
420:FOR J=1TO 7., |
430: B=24¢J-1)
44@:B=AAND
B
.....
458: C=120-¢Jk15)
478: 1F B=@GO0TO 498
48@:LINE (C+3, -4)-:
(C+12;, -13), 8, 3
B
3
_ 498:GLCURSOR ¢C, a
*LINE (C;8)-¢C:
3 -15); 1, 2
S@@:NEXT J
3835: GOSUB 570
315: GLCURSOR (2, -4.
J:COLOR 1
528:LPRINT O$
S38:NEXT I
548: TEXT :LF 2
550:CURSOR 17:
PRINT " BEWEG
EN": MODE=9
562@:GOTO 58
57Q:F=INT (A716):G
=A-(F X16)
S71:1F F=OLET Fes"
Q":GOTO 574
S7ZiFS=MIDS (TS$,F,
1)
374: 1F
G=OLET
Ges".
@":GOTO 576
575: G$=MID$ (TS, G,
1)
376: DS=F $+G6$
379: RETURN
648:CSIZE 2:COLOR
B:CLS : ROTATE
@: TEXT
618:END
STATUS 1