home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
2_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
87 lines
1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
2 poke53280,1:poke53281,1:goto855
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
855 print"[147]"tab(10)"die input-anweisung
857 [141]7:[153]"variablen werden beispielsweise zur
870 print"eingabe von daten benutzt.":gosub7
890 print"die input-anweisung erlaubt die eingabe
895 [153]"von werten fuer eine -oder mehrere
900 print"variablen auch waehrend des programm-":print"ablaufs.":gosub7
940 print"eine input-anweisung hat folgendes":print"format:
945 [153]"zeilennummerwait input liste der variablenwait
960 gosub6
1000 print"[147]zum beispiel:20 input n1,a,bb":printtab(13)"35 input x
1040 [153][163]13)"15 input y4,i":[153]"sind alles input-anweisungen,":[141]7
1070 [153]"waehrend:"[163]12)"10 input,m":[153][163]12)"25 a,b,c input"
1100 [153][163]12)"input f":[153][163]12)"40 input r s t":[141]7
1101 [153]"keine input-anweisungen sind, da
1120 gosub7:print"* in zeile 10 ein unnoetiges komma steht
1124 [153]"* in zeile 25 die variablen vor input":[153]" stehen":[141]7
1126 [153]"* die zeilennummer bei inputfwait fehlt":[141]7
1128 [153]"* in zeile 40 die variablen nicht durch":[153]" komma getrennt sind.
1129 gosub6
1140 print"[147]"tab(12)"15 input a0,b":printtab(12)"33 input x y z"
1145 printtab(12)"12 inputax,a1
1180 [153][163]12)"8 input q":[153]"welche der obigen bezeichnungen ist
1200 print"keine input-anweisung(15,33,12 oder 8)";:inputa$:ifa$="33"then2310
2230 ifa$="12"then2285
2232 ifa$="15"ora$="8"then2240
2234 printq$:goto1140
2240 print"nein, diese input-anweisung ist richtig!":gosub7
2245 goto2300
2285 print"nein, zeile 12 ist richtig, zwischen dem";
2286 print"wort input und der ersten variablen ist"
2287 print"kein space[146] erforderlich.":gosub 7
2300 print"bitte lesen sie die format-anweisung":print"noch einmal.":gosub6
2301 goto855:print
2310 print"":fori=1to9:print"das ist richtig![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2320 print"das ist richtig![146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:next:gosub7
2340 print"[129]variablen muessen durch komma getrennt":print"sein.":gosub6
2345 print"[147]wenn der computer waehrend der programm-";
2370 print"ausfuehrung auf eine input-anweisung
2380 [153]"trifft, erscheint das zeichenfor ?wait auf dem
2390 print"bildschirm als aufforderung, daten ":print"einzugeben."
2391 gosub7
2420 print"der computer wartet nun, bis die
2430 [153]"entsprechenden daten eingegeben worden
2440 print"sind, und setzt dann erst die programm-":print"ausfuehrung fort.
2450 [141]7
2460 [153]"der computer erwartet fuer jede in der
2470 print"input-anweisung aufgefuehrte variable
2475 [153]"eine dateneingabe.":[141]7:[141]6
2500 [153]"loadso erfordert die anweisung:":[153][163]5)"for15 input x,y1,zz"
2530 [153]"die eingabe von drei durch komma
2540 print"getrennten zahlen als antwort auf das [129]?[146]":gosub7
2550 print"beispielsweise sollen bei der programm-
2560 [153]"ausfuehrung des obigen programms die
2576 print"folgenden zahlen eingegeben werden:":print"10, 6.25, 0.011
2600 [153]"um in x,y1 und zz gespeichert zu werden.":[141]6
2620 [153]"loadwenn nun auf die aufforderung:for":[153]
2630 [153]" 15 input x,y1,zz":[141]7:[153]"weniger als 3 zahlen eingegeben werden,
2640 print"antwortet der computer mit[129] ??[146] um anzu-
2645 [153]"zeigen, fordass mehr daten eingegeben werden";:[153]"muessen.":[141]7
2650 [153]"wenn beispielsweise nur die zahl 10 ":[153]"eingegeben wird.
2660 print"wird der computer mit [129]??[146] antworten.":gosub7
2670 print"an dieser stelle muessen mehr daten ":print"eingegeben werden: ";
2680 print"";:print"[129]? 10";:print"[157][157][157][157][157]?? 21, 35.2":gosub6
3000 c$="[193]":gosub3
3010 print""tab(11)"ende von lektion 2
3032 [153]"sind sie bereit sind fuer lektion 3 ?"
3033 [153]"(j/n)"
3034 [153]"druecken sie bitte die"
3035 [153]"entsprechende taste."
3040 [161]a$:[139]a$[178]"n" [167]3100
3050 [139]a$[179][177]"j"[167]3040
3060 [153]"einen augenblick geduld bitte."
3070 [147]"3/1lektion",8
3100 [141]3:[153]"wait"
3110 [153]"clrvielen dank fuer ihre aufmerksamkeit."
3120 [153]"auf wiedersehen bei"
3130 [153]"lektion 3"
3150 [129]z[178]1[164]600:[130]z
3160 [158]64738