home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
5_3lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
77 lines
0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
1 poke53280,1:poke53281,1
2 q$="[145] [145][145][145][145]":z$=chr$(34):goto180
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
6 geta$:ifa$=""then6
7 print:return
180 print"[147]"tab(16)"goto":gosub6
182 print"[147]der [129]goto-befehl ermoeglicht den [129]sprung
183 [153]"zu irgendeiner zeile des programmes.
184 gosub7:print"dabei kann entweder zu einer zeilen# vor";
185 print"dem goto-befehl oder zu einer zeilen#
186 [153]"nach dem goto-befehl gesprungen werden.":[141]7
187 [153]"bitte betrachten sie das folgende programm:
188 gosub6:print"[147]6 print "z$"eingabe des alters"z$:print"7 input a
190 [153]"8 print"z$"alter in tagen oder in monaten"z$;:[153]"10 input b$
192 print"12 if b$="z$"tage"z$" then 18"
193 print"14 print"z$"sie sind"z$"12*a"z$"monate alt"z$
194 print"16 goto20":print"18 print"z$"sie sind"z$"365*a"z$"tage alt"z$:print"20 end
195 [141]7:[153]"dieses programm berechnet entweder das
196 print"alter in tagen oder in monaten, aber
197 [153]"nichtwait beides zusammen.":[141]7
198 [153]"wenn auf die frage von zeile 8 der
199 print"string tage[146] eingegeben wird, so bewirkt
200 [153]"dies einen sprung zu zeile 18."
201 [141]7:[153]"wird der string monatewait eingegeben, so
202 print"wird der befehl in zeile 14 ausgefuehrt,";
203 print"und zeile 16 bewirkt dann den sprung"
204 print"zu zeile 20 (zeile 18 wird ausgelassen).
205 [153]"forbitte beachten sie,dass der endwaitfor-befehl"
206 [153]"das programm in jedem fall beendet.";:[141]6
207 [153]"load5 input x":[153]"10 if x>=50 then 50":[153]"20 goto 40
208 print"30 print x*10":print"40 goto 60
209 [153]"50 print x":[153]"60 end":[141]7
210 [153]"was wird durch dieses programm gedruckt,";
211 [153]"wenn fuer x der wert 25 eingegeben wurde
213 print"1.[146] 250":print"2.[146] 25":print"3.[146] es wird nichts gedruckt":gosub7
214 print"(1, 2 oder 3)";:inputa$:ifval(a$)>3then216
215 onval(a$)goto217,217,220
216 printq$:goto207
217 print"[129]nein, da die bedingung in zeile 10 fuer":print"x=25 nicht erfuellt ist,";
218 print" wird das":print"programm mit zeile 20 fortgesetzt.
219 [141]7:[153]"versuchen sie es nochmal!":[141]6:[137]207
220 [153]"richtig!!! es wird nichts gedruckt.
221 print"fuer x=25 wird zunaechst zeile 20 ausge-";
222 print"fuehrt, zeile 40 bewirkt dann den sprung";
223 print"zu zeile 60 (zeile 50 wird ausgelassen).":gosub6
224 print"[147]bevor sie den kurs mit lektion 6
225 [153]"fortsetzen, versuchen sie bittte ein
226 print"programm zu schreiben, dass den [156]lohn"
227 print"eines arbeiters berechnet.":gosub7
228 print"der arbeiter soll [156] dm 8.35 pro stunde
229 [153]"verdienen und fuer clrjede ueberstunde das":[153]"eineinhalbfache des ";
230 [153]"lohnes bekommen.":[153]"es soll nach eingabe der gearbeiteten"
232 [153]"stunden der lohn gedruckt werden.":[141]7
233 [153]"clrbitte notieren sie die aufgabe, wait
234 print"bevor sie eine beliebige taste druecken.[146]":gosub6
400 c$="[255]":gosub3:print""tab(10)"ende von lektion 5
402 [153]"wenn sie bereit sind fuer lektion 6,"
403 [153]"antworten sie wie gewohnt mit (j/n)"
404 [137]7000
5000 [153]"";:[129]i[178]1[164]y1:[153]"";:[130]:[153]"on";:[129]j[178]0[164]y2[171]y1
5001 [153]" ":[130]:[142]
6000 [153]"";:[129]i[178]1[164]y1:[153]"";:[130]:[153]"on";:[142]
7000 [161]a$:[139]a$[178]"n"[167]8000
7010 [139]a$[179][177]"j"[167]7000
7020 [153]"verschnaufen sie einen moment, bis"
7030 [153]"lektion 6wait geladen ist."
7040 [147]"6/1lektion",8
8000 [153]"nun koennen sie ja schon ziemlich"
8010 [153]"viel. ueben sie auch fuer sich noch"
8020 [153]"ein wenig, bis wir uns wiedersehen"
8030 [153]"bei lektion 6."
8050 [129]z[178]1[164]700:[130]z
8060 [158]64738