home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
3_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
75 lines
0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
1 poke53280,1:poke53281,1
2 z$=chr$(34):q$="[145][145] [145][145]":goto240
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
240 print"[147]"tab(10)"leerstellen":gosub6
241 print"[147]um ausdruecke in der ausgabeliste von-
242 [153]"einander zu trennen, werden forkommata (,)":[153]"bzw. semikola (;) benutzt."
244 [153]"durch forsemikolon voneinander getrennte
245 print"[129]zahlen oder variablen werden [129]mit einer
246 [153]"leerstelle in dieselbe zeile gedruckt.
247 print"durch [129]semikolon voneinander getrennte
248 [153]"forstrings oder stringvariablen werden
250 print"[129]ohne zwischenraum nacheinander gedruckt.
251 [153]"zum beispiel bewirkt der befehl:
252 print" 4 print 2.2;-4;0.75;"z$"abc"z$";"z$"def"z$
254 gosub7:print"das schreiben von:":print" 2.2 -4 .75 abcdef":gosub7
255 print
256 print"bitte beachten sie: links von der zahl
257 [153]"wird immer eine stelle fuer das zeichen":[153]"(-) freigelassen.
258 :gosub6
260 print"[147]jede zeile ist in vier zonen zu je "
261 print"zehn stellen aufgeteilt."
262 print"diese zonen beginnen in den spalten":print"1, 11, 21 und 31."
263 gosub7
264 print"wird in der ausgabeliste ein [129]komma
265 [153]"benutzt, so wird der dem forkomma folgende
266 print"ausdruck [129]in die naechste zone gedruckt."
268 print"zum beispiel bewirkt der befehl:":print"7 print 18,-12,"z$"grad"z$
270 print"den druck von:":print" 18"tab(10)"-12"tab(20)"grad":gosub7
272 print"[145]123456789012345678901234567890123456789":print"^"tab(10)"^"tab(20)"^
274 [153]"bitte beachten sie: links von der zahl
275 print"wird eine stelle fuer das minus (-)":print"zeichen freigelassen.
276 [141]6:[153]"loadist das letzte zeichen der ausgabeliste
278 print"ein [129]semikolon, so wird der [129]zeilenvor-"
279 print"schub unterdrueckt.":gosub7
280 print"d.h. der naechste print-befehl wird in
281 [153]" derselben zeile ausgefuehrt.
282 print"zum beispiel bewirkt der befehl:
283 [153]" 8 print "z$"zum donner"z$";":[153]" 9 print "z$"wetter"z$
284 [141]7:[153]"den druck von:":[153]" zum donnerwetter":[141]6
285 [153]"loadbetrachten sie nun folgende befehle:"
286 [153]"5 print a,"z$"katzen"z$";
288 print"7 print"z$" und hunde"z$:gosub7:print"angenommen, die variable a[146]";
289 print" hat den wert 16: welche der folgenden zeilen wird
290 [153]"dann gedruckt?"
291 [153]"1. wait 16 katzen":[153]" wait und hunde
292 print"2. [146] 16"tab(13)"katzen und hunde":print"3. [146] 16katzen"tab(14)"und hunde
294 [153]"(1, 2 oder 3)wait";:[133]a$:[153]
295 [139][197](a$)[177]3[167]298
296 [145][197](a$)[137]299,302,299
298 [153]q$:[137]294
299 [153]"nein, das ist nicht richtig!"
300 [153]:[153]"bitte versuchen sie es nochmal!":[141]6:[137] 285
302 [153]"das ist richtig!!!!
303 print"das komma nach der variablen a in zeile 5":gosub6
304 print""tab(8)" [157]";:fori=1to50:print"a[146]";:print"[157]";
305 print"a";:print"[157]";:nexti
306 geta$:ifa$=""then306
308 print"
310 [153]"onsorgt dafuer, dass das wort katzen "
311 [153]"erst ab spalte 11 gedruckt wird.";:[141]6
312 [129]i[178]1[164]4:[153]"on";:[130]:[129]i[178]1[164]4:[153]" "
313 [130]:[129]i[178]1[164]5:[153]"on";:[130]
320 [153]"das semikolon nach dem string "z$"katzen"z$"wait
321 print"sorgt dafuer, dass der string "z$"und hunde"z$"[146] "
322 print"[145]in die gleiche zeile geschrieben wird. ":gosub6
9002 c$="#":gosub3
9010 print""tab(8)"[129]ende von lektion 3 teil 2"
9012 printtab(5)"bitte warten sie bis teil 3,":printtab(5)"eingelesen ist.
9014 [153]"":[147]"3/3lektion",8