home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
8_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
86 lines
1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
2 poke53280,1:poke53281,1:q$="[145] [145]":goto9
3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
4 fori=1to38:print"[157]"c$"[157]";:next:printc$
5 fori=1to23:print"[145]"c$"[157]";:next:return
7 geta$:ifa$=""then7
8 print:return
9 print"[147]"tab(4)"gosub (fortsetzung von 8.1)":gosub7:print"[147]"
111 print"[147]"
112 print" 2 let a=1":print" 4 gosub10":print" 6 print a":print" 8 goto12
114 [153]" 10 let a=a*10":[153]" 12 end"
115 [153]"was wird bei der ausfuehrung des obigen":[153]"programms gedruckt?"
116 [153]"1.wait 1 2.wait 10 3.wait nichts
118 input"(1,2 oder 3)";a$:onval(a$)goto124,130,140
119 printq$:goto111
124 print"[129]nein, sie haben nicht daran gedacht,"
125 print"dass der gosub-befehl in zeile 4 den":print"sprung zu zeile 10 bewirkt.
126 [153]"ueberlegen sie nochmal!":[141]7:[137]111
130 [153]"fornein, der return-befehl fehlt!":[137]126
140 [153]"ganz genau, es wird nichts gedruckt.
142 print"wenn a[146] gedruckt werden soll, muss
143 [153]"dem programm die folgende zeile hinzu-
144 print"gefuegt werden:":print" 11 return":gosub7
146 print"[147]"tab(13)"on...goto":print"sie wissen schon, dass der goto-befehl
148 [153]"den sprung zu einer speziellen zeile
150 print"waehrend des progrmmablaufs bewirkt.
152 [153]"der foron...gotowait-befehl bewirkt den sprung
153 print"zu einer zeile, deren nummer durch den
154 [153]"wert einer variablen oder eines terms
155 print"bestimmt wird.
156 [153]"hier ein beispiel fuer einen":[153]"foron...gotowait-befehl:
158 print" 80 on j goto 10, 90":print"angenommen, j hat den wert 1, so bewirkt";
159 print"dies den sprung zu zeile 10.
160 [153]"angenommen, j hat den wert 2, so bewirkt";
161 [153]"dies den sprung zu zeile 90.":[153]"clrhat j irgendeinen anderen wert, so wird"
162 [153]"die zeile nach zeile 80 ausgefuehrt.":[141]7
164 [153]"loadder foron...goto-befehl hat das folgende":[153]"format:"
166 [153]"forzeilen#wait on xwait goto liste von zeilen#
168 print"wobei x[146] eine variable oder ein term sein":print"kann.:
170 [153]"zwei weitere beispiele:
172 print"2 on f goto 5, 5, 6":print"14 on v+2 goto 33, 10, 2, 2":gosub7
176 print"[147]welcher der folgenden on...goto-befehle":print"ist richtig?:
178 [153]"20 on k-2 goto 10, j, 30":[153]"50 on (u-v)/l goto 68, 55, 2, 88
180 print"70 on x,y goto 89,66":input"(20, 50 oder 70)[146]";a$:ifa$="70"then190
181 ifa$="50"then200
182 ifa$="20"then184
183 printq$"[145][145]":goto180
184 print"[129]nein, dieser befehl ist nicht richtig!
185 [153]"in der liste der zeilennummern duerfen":[153]"keine variablen stehen.
186 print"ueberlegen sie nochmal!":gosub7:goto176
190 print"[129]nein, dieser befehl ist nicht richtg!"
191 print"in einem on...goto-befehl darf nicht":print"x, y[146] stehen.":goto186
200 print"richtig!!
202 [153]"zeile 20 ist nicht korrekt, da eine
203 print"variable in der liste der zeilennummern":print"steht.
204 [153]"zeile 70 ist nicht korrekt, da x, ywait "
205 [153]"in einem on...goto-befehl nicht stehen":[153]"darf.":[141]7
206 [153]"load"[163]13)"on...gosub":[153]"ein dem foron...goto sehr aehnlicher "
207 [153]"befehl ist der foron...gosubwait-befehl."
208 [153]"der foron...gosubwait-befehl bewirkt den"
209 [153]"forsprung zu einer subroutine, die durch"
210 [153]"den wert einer variablen oder eines":[153]"terms bestimmt wird.
212 print"nach dem [129]return-befehl wird das programm";
214 print"in der zeile nach dem [129]on...gosub[146]-befehl":print"fortgesetzt.
216 [153]"clrder return-befehl bewirkt also das"
218 [153]"gleiche wie im gosub-befehl.":[141]7:[153]"loadbeispiel:
220 print"7 on e gosub 5, 2
222 [153]"derfor on...gosub-befehl hat folgendes":[153]"format:"
224 [153]"forzeilen#wait on xwait gosub liste von zeilen#
226 print"wobei x[146] eine variable oder ein term sein":print"kann.":gosub7
400 c$="#":gosub3:print""tab(10)"ende von lektion 8
402 [153]""[163]1)"sind sie bereit sind fuer lektion 9 ?"
403 [153][163]16)"(j/n)"
405 [161]a$:[139]a$[178]"n"[167]500
410 [139]a$[179][177]"j"[167]405
420 [153]"clr "
430 [153]" auf zur letzten runde ! "
440 [153]" "
450 [147]"9/1lektion",8
460 [137]460
500 [153]" beim naechsten mal "
510 [153]" werden wir endgueltig "
520 [153]" den gipfel erstuermen. "
540 [129]i[178]1[164]700:[130]i
550 [158]64738