Viel mehr als 33 Programme für den Sinclair Spectrum

des Zerstörers eingegeben. Danach zeigt der SPECTRUM den neuen
eigenen Standort und die neue Entfernung zum U-Boot an.
Sehr bald wird man Position und Bewegungsrichtung des U-Bootes
herausgefunden haben. Dann kommt es nur noch darauf an, sich
genau über das U-Boot zu stellen. Dabei nicht vergessen: Während
der eigenen Bewegung bewegt sich auch das U-Boot. Hat man das
U-Boot getroffen, zeigt der SPECTRUM "Treffer" und die Anzahl
der benötigten Züge an. Durch Eingabe von NEWLINE wird das Spiel
neu gestartet. Jede andere Eingabe stoppt das Spiel.
Ein Hinweis:
Zu Beginn ist der eigene Standort immer 0;0!
Das U-Boot wird übrigens "reflektiert', wenn es an die Grenzen der
Spielfläche kommt (Zeilen 140 und 150 im Listing).
Wer hier zu rasch die U-Boote findet, dem sei folgende Version
empfohlen, die etwas schwieriger ist:
2.5.2 Minisector II
10 RESтύRε : N1) ςtλг ΣZε : b ΓJRUε
R ι-^+. PRPεя п -. Ifói: η C^5
15 OEF FN a ί ) =INT (RN0+14 +5)
20 EЕT x =FN
0 LET y -FN a 'г
4 LET a=INT ( Rp Ј L :f8)
50 LET q=0
7 0 LET x2 =FN a ε?
8• 0 LET ц 2 =FN a s.7
0 GO Tr? 500
1iι3 LET . =.г + ε a=0 +š г? -3=1 OP -3=23
-( . 3 OR 3=4 OR -3=5)
11^^ LET y=y+(a=i OR a =4 OR a=6)
-=2 OP a=5 O R a =7)
120 LET a=a+ti т i x =25τ + +. у =25 з -aE ε
x. = ι3 ? - ť ц = 0 ı
Σ6i LET 4=ς+ і
20 IN.PUT •.,ti = . ; .{ r ,, ц = • ; ц 1
22 0 IF RCS Cx2-x'1 3 > 4 THEN G O ТС
.^ •-.
,: t•
25 ZF R85 1 у 2- у 1 's ? 4 THEN G O T+_t
200
2 Є LET x.2 =>' -1 -. LET ц 2 =ц 1
270 IF х 1: ?λ OR y1> y THEN GO τ
о r_, j30
31