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.

592 REM LET 6ι =USR IN&)<br />

500 LET A$ (ts+. λτ)= " "<br />

501 PRINT PT V-1,M+3;"<br />

502 LET R$ (iί , -\' λ = "4"<br />

53 PRINT AT " Y-1.Y +3; " λл "<br />

5ι34 RETURN<br />

6τ0 LET A$ (tJ. м i =" "<br />

612 IF Я $ ( λ, `ί )=" THEN GO TO 5<br />

20<br />

515 LET Fı $(\."Y) =' "<br />

516 PRINT нT " >?-1 ,Y+3; ": "<br />

520 0 GO SUB 530<br />

= 2 5 L.ET Х =99<br />

627 RETURN<br />

530 FOR I1 ТО 5: SEEP . 0 1. 10:<br />

NEXT I: REM LET Ω=U5R 'NV<br />

534 REM LET Q=USR ‚NV<br />

538 LET N3=N3+1<br />

639 RETURN<br />

64 0 IF R$ ( гC.Y) THEN GO ТО<br />

^.;Э<br />

v 5 45 LET M9=2<br />

65(λ iF 5 1 , Х THEN GO τ0 БЕ<br />

О<br />

555 IF δ(2 , M9) =Y THEN GO TO 570<br />

5 5 LET !`19= λτ9 + .Σ<br />

65 5 GO т 0 650<br />

570 LET Ef (1, λ29) =99<br />

675 Gš? 5U8 630<br />

550 LET A$ (rı- ,"y'7 =A$ 11λ. λτ ί<br />

Е,82 LET P$l:V.m=" .,<br />

663 R ‚NT PT +.,i -1 H +3:<br />

5 э5 R ETURN<br />

690 FOR I =0 T O З0 : SEEP .01,':<br />

NEXT I<br />

592 REM LET =U5R ‚NV<br />

6`Э3 REM LET ιз =US. Гλ ‚NV<br />

69 г1 REM LET O =USR 'NV<br />

595 REM LET tз =USR ‚NV<br />

5 Э5 PRINT FLRS ťi i. PT 1 Э . 1: " Σι h<br />

habe Dich e г 4i іЅг_h t. '<br />

53? REYS LET 9=ilSR 'NV<br />

698 GO TO г6 0<br />

,0 ί FOR D =1 TO E+<br />

70 2 LET ¡X =E; Σ . D!<br />

1 0 4 LET Y =ε(2 -. о 1<br />

706 GO SUB 54 О<br />

?1 ί LET B(i.€`-)=w'<br />

712 LET B ( 2 ".DY =4'<br />

715 NEXT D<br />

7 2 0 IF NS >5 THEN GO TO 4 ί 0<br />

730 FOR I= 0 TC; 5: SEEP .3.1: NE<br />

λT I<br />

?:з5 PRINT PT 29. 1; " Я !" з_8 Яп Q г e і f<br />

e: _ ã Л ci g2_ Ch t Э<br />

τч τ.`g2f1<br />

. Du h г = i g2 щс<br />

Гг . •.<br />

735 REM LET Q =U5R ‚NV<br />

1 4 ί GO TO 770<br />

7 50 F OR I=1 ТО 10: SEEP .0140<br />

NEXT I: REM LET О U5R 'NV<br />

752. REM L ET Q=U5R- INJ<br />

η52 REM LET =U5R ‚NV<br />

103

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

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!