Sharp PC-1500 Anwenderhandbuch Seite 196

[ Tastenbetdatigung ]
_
y
Der Alarm ertént, wahrend
SPIELSTART
:
das Meteoritenmuster —
Meteoritenmuster
erzeugt wird.
[ Programmlisting ]
18: "A":CLEAR
20:DIM T¢1@1):
RANDOM
3@: WAIT 180:PRINT
"SPIELSTART"
46:FOR N=1TO 180
' STEP. 2,
5@:A=RND 7:B=20¢A
ol
6B: IF (A=1)+¢A=7)
<2ILET T¢N)=p:
BEEP 1, 1, 1:
GOTO 1198
7@:C=RND 7
88: I1F A=CGOTO 79
9@: C=20(C~1)
18@:T(N)=BOR C:
BEEP 1, 1,1
119:NEXT N
120: T(B)=87F:TC1d=
@: T6181 =87F
13@:WAIT @:FOR P=2
"TOs 11
14@:GCURSOR P:
GPRINT TC(P>
(15@:NEXT P. ;
168:CURSOR 22:
_ PRINT S...
' SPIELENDE PUNKTE:
(Punktergebnis)
Das. Raumschiff bewegt
sich und blinkt dabei.
Se
ee)
170: P=@:D=1
188:FOR I=1TO 2
181:1F P>1gaGoTO 5
2a
190: ASH"? KEG: WAIT
3)
.. 208: A=TCP):B=AOR D
218: GCURSOR P:
GPRINT B
228: AS=INKEY$
2348: If Ass >" "GOTO
308
256: GCURSOR Pr
GPRINT AQ"
268: AS=INKEYS
270: 1F AS<>"" GOTO
388
298:NEXT I.
295: P=P+1]iS=S+1:
GOTO 358
. 348: G6CURSOR P:
_ GPRINT A
3@05°1F A$="B8"LET D
=INT: ¢¢D4+1)72)
'GOTO 354
(B1Q:1F AS="2"LET D
=D*2:1F D>64
LET D=64:GOTO |
358
328: 1F A$="6"LET P-
SP4i:SsS+t:
GOTO 352
rae | Fo
Diese Tasten dienen zum
Steuern des Raumschiffs. .
Wenn das Raumschiff das .
Ziel erreicht, erscheint eine
karierte Flagge in der Anzeige.
Das Spiel ist beendet.