09.03.2013 Aufrufe

Viel mehr als 33 Programme für den Sinclair Spectrum

Viel mehr als 33 Programme für den Sinclair Spectrum

Viel mehr als 33 Programme für den Sinclair Spectrum

MEHR ANZEIGEN
WENIGER ANZEIGEN

Erfolgreiche ePaper selbst erstellen

Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.

28<br />

nächsten Mai ist. Die Chance ist 1:9!<br />

Hat man die Mine getroffen, meldet der SPECTRUM "TREFFER".<br />

Durch Eingabe von ENTER beginnt das Spiel erneut mit der 2. Teibmene<br />

.. .<br />

Hat man nicht getroffen, zeigt ein gelber Stern <strong>den</strong> eigenen Schuß<br />

und ein roter Kreis <strong>den</strong> neuen Standort der Mine. Der nächste Versuch !<br />

Kommt die Mine nun an eine der bei<strong>den</strong> Null-Linien, so ist die Abwehrstation<br />

zerstört und der SPECTRUM meldet die Anzahl der bereits<br />

zerstörten Minen.<br />

Wer erreicht die höchste Anzahl, bevor er selbst getroffen wird?<br />

2.5 Programm 5: – М inisector "<br />

SECTOR ist der Name eines elektronischen Spieles, bei dem es darauf<br />

ankommt, U-Boote in einem Ozean zu suchen, wobei sich die U-Boote<br />

während des Spieles fortbewegen.<br />

2.5.1 Minisector I<br />

7<br />

10 RE5TORE : RRNDO λiZ: ε : Е;OR ϊ•ε<br />

ή 0: fi ЯRER 0: INK 7: С:LL•<br />

2 ί LET x = INT 4RtdD-14+5:><br />

:30 LET y=INT (RiJG`+14+5:'<br />

40 LET э =I Γdт (RNC^}4)<br />

η LET x2 = 0<br />

50 LET q=0<br />

50 LET ц 2 =0<br />

'30 GO To 500<br />

1 +Э(7 IF 3 =0 THEN LET ч. = ч: +1<br />

1 10 IF 3= 1 THE N LET .д =x -1<br />

120 IF э =2 THEN LET y=y+1<br />

1 30 IF э =3 THEN LET ч = ц –1<br />

140 IF

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!