Viel mehr als 33 Programme für den Sinclair Spectrum

Weitere Magazine

Empfehlungen

Info

80 L300 R UN 500 0 REH : DATUλiSε ZNGFг Eт E 3010 INPUT RT 0, 0; "Tт . MM JJJJ" LINE D$ 5015 LET К $ ="G" 501 7 IF D$ ="" THEN GO TO 5010 50 18 IF D$(1) ="5" OR O$(1)="" т г^ Е i-d RUN 5020 IF LEN L'$ τ г THEN GO TO 5010 5021 IF 0$1 Ј ;" Ј" ıANO D$(I3 έ : ј " THEN GO TO 5024 5022 LET 0$=C' $ (3 To λ 5023 LET t;* = "J" 5024 IF D $ (:г ) < " ND D$ (3λ έ ) ' " OR D$ Σ E. з έ : Dil3O D $ (5 š
4-0 GO 5ü6 550 0 •-4- 7 @ LET 5=100*F 34-75 LET Y =28 5-0 GO 5Uß 550 0 5 4- 85 LET K. =100*F 540 RETURN 5500 LET F=INT (OT -INT (C`тг"Y 3 iF'Y+ 551 ť3 LET F= (F; ıι') tPZ*2 550 LET F=SIN F 5530 RETU R N 5 5 00 REM : ОнTU λ35UEßERLAUF 5810 IF T:31 ιчND i λt = 1 OF λ1= 5 OR Н=5 OR λ1 =7 OR Г-1=8 OR M=1 ιl OR M=1 - THEN GO TO 5700 5520 IF T RNO £M= 4 OR λ1 =5 OP М = У THEN GO TO 5700 5550 IF T :'2ß RNO М =2 RND ‚NT i.J .- <strong>33</strong> = Ј : 4 AND ( INT r.J; 2QQ 3 < :.J і 10Ø С P •Jl4ØØ= τNT (•JìçL00š 3 THEN GO TO 5700 ^700 5640 IF т >29 RN О M =2 THEN GO TO 5550 RETURN 57 0 0 LET T=1 5710 LET M=H+1 г 20 IF M< 13 THEN RETURN 730 LET ')=J+1 - 7 d-^,ı LET N=i 575 0 RETURN 5003 RESTORE . FOR Z0 TO 7: Rε Fк C• A ô ί-'110 POKE U5R "a"+ τ, я : NEXT I: R °Т J п Λ+ Є 020 DRTR 0, 0: 24 0 .+_•0 .. 24 .. 0, 0 Wichtige Variablen: DS Datum nach der Datumseingabe (GOSU В 5000) TS Wochentag des Tatums nach GOSU В 5300 LS Code-Tabelle <strong>für</strong> die Länge der einzelnen Namen der Wochentage WS Tabelie der Wochentagsnamen T, M, J Datum aufgeschlüsselt in Tage, Monat und Jahr nach GOSU В 5000 G Geist-Wert K Körper-Wert S Seelischer Wert Geben Sie das Programm ein und speichern Sie es mit GOTO 9000. 81
Seite 2 und 3:
ISBN 3-88963-144-4 Es kann keine Ge
Seite 4 und 5:
2.8 Programm 8: "Spielautomat" 36 2
Seite 6 und 7:
2 keit in Kauf nehmen. Im ZX SPECTR
Seite 8 und 9:
4 wir schreiben: 20 GOTO 10+850*(X=
Seite 10 und 11:
6 1.1.3.2 ... durch den Einsatz von
Seite 12 und 13:
8 braucht. Der durch die Verwendung
Seite 14 und 15:
10 die Löcher für die Schrauben z
Seite 16 und 17:
12 Zunächst fertigen wir die entsp
Seite 18 und 19:
14 nach den Attributswert 206. Prob
Seite 20 und 21:
16 100-110 : Das Feld wird gezeichn
Seite 22 und 23:
18 і2' FŰ Rı := 3 С' Z1 -1 1 з
Seite 24 und 25:
20 1Ø RE τ-1 TESTS lU) 2a fд ORe
Seite 26 und 27:
22 Variablen: 10 LET Х=: INPUT "G
Seite 28 und 29:
Variahlen: Y Standort der Abwehrsta
Seite 30 und 31:
26 Dezimalpunkt genau. Bedenken Sie
Seite 32 und 33:
28 nächsten Mai ist. Die Chance is
Seite 34 und 35: 30 АХ 25 x 25 großes Feld Es geh
Seite 36 und 37: 32 Variablen: ε г 5 FOP i =i TO 1
Seite 38 und 39: 34 Sofort nimmt die Elektronik die
Seite 40 und 41: 36 гв Aιιτsτ τκ% ^- -- '- -
Seite 42 und 43: 38 Variablen: G noch vorhandener Ge
Seite 44 und 45: 40 Variablen: 4- 10 LET 5 =65536 *
Seite 46 und 47: 42 Variablen: 330 PRINT ' INK 5; BR
Seite 48 und 49: 44 Wenn man aus Höhle 8 seitwärts
Seite 50 und 51: 46 Im folgenden zwei Maschinencode-
Seite 52 und 53: 48 3.2.2 Programm 12: ""Hex-Loader
Seite 54 und 55: 50 stimmt, können Sie mittels "PRI
Seite 56 und 57: 52 2б LET tontr=0 1 гČτ гг ί
Seite 58 und 59: 54 Wird aber der Wert 183 in Adress
Seite 60 und 61: 56 NOTIZEN
Seite 62 und 63: 58 150 PRINT h$ C5? "'Code?" 1 55 I
Seite 64 und 65: б0 2. INTERPRET? Man gibt einen In
Seite 66 und 67: б 2 295 PRINT AT 20,1; FLAS н 1;
Seite 68 und 69: 64 40S0 IF X$'1,1 ТО Rf2))=R$21.1
Seite 70 und 71: 66 Dem 4. Wo rt, der Freizeile, bra
Seite 72 und 73: 68 4. EINEN EINTRAG LOESCHEN Es ist
Seite 74 und 75: 70 1 ј 85 LET 1Ù (e) = τ Nт ı
Seite 76 und 77: 72 5О3' FOR i =V0n TO zu 9@ GO 5U
Seite 78 und 79: 74 {4 0 CL5 г 50 PRINT INK 5 " 10
Seite 80 und 81: 76 4.5 Programm 22: " Віог hyth
Seite 82 und 83: 78 *30 PRINT "IHRE QERTE RN ";D$. *
Seite 86 und 87: 82 Dann startet es sich nach dem LO
Seite 88 und 89: 84 120 IF h=24 THEN LET b=O 130 GO
Seite 90 und 91: 86 100 G O SU Б 5 0 0 ј . FOR Σ
Seite 92 und 93: 88 76^1 NEXT ,ť 7 д'' PR 2NT aT 1
Seite 94 und 95: 90 10? IF V tL ) 0 THEN GO TO 110 3
Seite 96 und 97: 92 9562 FOR X=1 TO SPZ 9563 IF NOT
Seite 98 und 99: 94 4 3 2 5 9 1 0 7 8 Je nach Raktio
Seite 100 und 101: 96 ALES 1ιιι3 ОО IST. f-1ERKEN
Seite 102 und 103: 98 1133 LET k$=k$+i$ 11 3ι1 INPUT
Seite 104 und 105: 100 0 0 0 f 0 0 4 с' 0& ª 0 Du ha
Seite 106 und 107: 102 427 IF N2 i> Q{ THEN GO TO 490
Seite 108 und 109: 104 7 53 REM LET 6i = ι+5й ‚NV
Seite 110 und 111: 106 50 PRINT "U-Boot fur se ε ten
Seite 112 und 113: 108 59ς PRINT эlΣΡ 2i^л , a.л
Seite 114 und 115: 110 2144 t,. IF R =8 THEN LET X$="
Seite 116 und 117: 112 und Entfernung zum U-Boot an. Z
Seite 118 und 119: 114 Dienstgrade in Abhängigkeit vo
Seite 120 und 121: 116 33 3 G O TO 350 34 0 IF (,► (
Seite 122 und 123: 118 9 7 З GO TO 1000 980 LET 8(R.'
Seite 124 und 125: 120 YRINT ER— SCHEINT. DANN іλE
Seite 126 und 127: 122 40 PRINT ''g е ј с h е run
Seite 128 und 129: 124 Wichtige Variablen: d$(3,2025)
Seite 130 und 131: 126 10 EDROER 1: PAцEй 1: INK 7:
Seite 132 und 133: 128 richtung, aus der Sie das Objek
Seite 134 und 135:
130 55 LET z$=CHR$ 18+ С:Н $ +С
Seite 136 und 137:
132 a+35Ø PRINT "N&Ch јi υf*zí
Seite 138 und 139:
134 50 PRINT PT 21, 0 ; INK ь ; К
Seite 140 und 141:
136 #############!3## ##τ1#####Σ:
Seite 142 und 143:
138 Empfehlenswerte Literatur Rund
Seite 144 und 145:
NOTIZEN
Seite 146 und 147:
Elektronik Schaltungen, Hofacker Di
Seite 148 und 149:
IC Experimentier Handbuch -IC, •E
Seite 150 und 151:
51 C.Loren z Praktische BASIC Progr
Seite 152 und 153:
Programmieren mit TRS-80, Stübs Da
Seite 154 und 155:
„ m uıιrв IEC Bus-Handbuch, M.
Seite 156 und 157:
ELCOMP-Bücher Englisch Care and Fe
Seite 158 und 159:
The Fifth Book OF t __ The Fifth Bo
Seite 160 und 161:
E1.Ø POSTKARTE Absender Bitte deut
Alle anzeigen

Viel mehr als 33 Programme für den Sinclair Spectrum

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?