Viel mehr als 33 Programme für den Sinclair Spectrum

102
427 IF N2 i> Q{ THEN GO TO 490
435 GO TO 4 00
4-40 IF Y {> 1 THEN GO TO 45 0
442 LET J =ß
44- 5 GO TO 450
450 LET J =SGN (Y'-5)
:-E.Ø IF Y>3 THEN G O TO 4 50
452 2F Y =3 THEN GO TO 470
4-65 LET K=1
457 GO TO 510
470 LET =0
475 GO ТО 510
48 0 LET м, =SGN (Y -? )
48ς GO ТО 510
490 GO SUB 25 0
4-95 LET Я $^ ι{ . tί )-• ••
395 PRINT RT J -1,K +.3: "
4- 97 LET fλ $ t н , І ) ="#"
498 PRINT RT H -1, I+ Ъ ; FLRSti 1;
1'
500 LET 'J=H
5 0 1 LET k. =I
502 L ET N2 =N2 - 1
505 GO T{3 520
51 0 LET K=k.+tS
515 LET J = J +l1
... 520 PRINT RT J- 1.λ +3; FLRS λ-Σ 1;"
521 IF Y=9 THEN GO ТО 7 00 Ѕ '
522 PFtINT RT Z? - ï ίJ+^á; "
524 IF R$ (J.Y.) =" ť:" THEN GO To 7
50
525 LET FЭ $ ( +1 . { .1) = , .,
525 PRINT RT Ј -1 .41+3; "
530 LET н $ (J, h) = `*"
531 PRINT RT J-1 .t. +3; FLЙ5н 1;
.ι
535 5 ύ TO 7 0 0
540 IF X č > 99 THEN GO TO 550
545 RETURN
550 LET V = X
551 LET P1=Y
55 3 LET X =SGN ( J -X)
ς5 4 LET Y =SGN C tC -Y
555 L ET X=X ++J
555 LET Y =Y +P1
557 PRINT RT џ - . iΣ+ $; " "
55.3 PRINT AT X - 1,Y+3; "t Я ND 0=
"^" RHO G 1
- 5 6 0 IF fλ $ (X ,Y 1 =";ξ " THEN GO TO
90
555 IF Я $ I ;' " =" " THEN GO TO E.
5 70 IF Я $ )-1=' . ' .. THEN GO т 0 E
40
550 IF R ği !:ti , ί ) : : "^" THEN GO TCi
510
552 GO SUS 25 0
58ς LET X =ri
5 ί ? LET Y=t-1
590 FOR I =1 T{? 5: SEEP .01.10:
MEXT I: REPO LET 0U5R IN+_з