home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
2_1lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
82 lines
1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128:poke53280,1:poke53281,1
2 q$="[145] [145][145]":goto100
3 print"[147]":fori=1to39:printchr$(30)c$;: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
100 c$="[193]":gosub3:print""tab(15)"lektion 2":printtab(15)"1. list
110 [153][163]15)"2. run":[153][163]15)"3. variablen":[153][163]15)"4. input":[141]6
120 [137]2682
235 [153]"load"[163]15)"variablen":[141]7
240 [153]"sehen wir uns nochmal das programm aus":[153]"lektion 1 an:
260 print"10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
265 print"20 input a
280 [153]"30 print"[199](34)"sie sind"[199](34)" 365*a"[199](34)"tage alt"[199](34)
290 [141]7:[153]"der buchstabe await bezeichnet eine variable":[141]7
330 [153]"eine variable ermoeglicht es, daten zu
335 print"speichern und sie spaeter abzurufen.":gosub7
340 print"der name einer variablen (zum beispiel
350 [153]"a) ist nur eine bezeichnung fuer einen":[153]"speicherplatz.":[141]7
390 [153]"der befehl in zeile 20 speichert eine":[153]"zahl(auf platz a).":[141]7
420 [153]"der befehl in zeile 30 benutzt diese":[153]"zahl fuer eine berechnung.
430 gosub6:print"[147]
460 c[178]c[170]1:[153]"variablen sind:
461 print"ein buchstabe (a)
462 [153]"ein buchstabe gefolgt von einer zahl(a7)";:[153]"zwei buchstaben (aa)
470 gosub7:print"zum beispiel:
480 [153][163]6)"a":[153][163]6)"ts":[153][163]6)"r4":[153][163]6)"q"
481 [153][163]6)"r2":[153][163]6)"d2
570 print"sind alles bezeichnungen fuer variablen":gosub7
590 print"waehrend:":printtab(6)"3z":printtab(6)"3cpo":printtab(6)"5
591 [153]"keine variablen sind."
650 [141]6:[153]"load":[153][163]6)"1. hh":[153][163]6)"2. x5":[153][163]6)"3. 7f":[153][163]6)"4. y
710 print"welche der obigen bezeichnungen ist":print"keine variable?(1,2,3 oder 4)
740 [133]a$:[145][197](a$)[137]750,750,810,750
745 [153]q$:[137]710
750 [153]"nein,das ist eine variable.":[141]7:[139]c[177]2[167]822
760 [153]"lesen sie die definition fuer variblen"
761 [153]"bitte noch einmal!":[141]6:[153]"load":[141]460
810 [153]:[129]i[178]1[164]20:[153]"das ist richtig!cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
820 [153]"das ist richtig!waitcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[130]
821 [141]7
822 [153]"7f ist keine variable, weil das erste
824 print"zeichen einer variablen ein buchstabe":print"sein muss!":gosub7
826 print"nun soll gezeigt werden, wie variablen":print"benutzt werden.":gosub3000
2682 print"[147]"tab(17)"list":gosub7:print"gewoehnlich sind bei erstellung eines
2684 [153]"programmes korrekturen notwendig.":[141]7
2686 [153]"um eine auflistung des gespeicherten"
2687 [153]"programmes zu erhalten, wird der befehl":[153]" l i s t waitbenutzt.
2688 gosub7:print"sie tippen einfach den befehl l i s t [146]"
2690 print"ein, und eine auflistung des programmes":print"erscheint.":gosub7
2692 print"[156][207]";:fori=1to38:print"[163]";:next:print"[208]";
2694 print"[157][167][157][167][157][186]";:fori=1to38:print"[157][157][164]";:next:print"[157][157][204]";
2696 print"[157][145][165][157][145][165]";
2698 print"bem.:l i s t ist ein systemkommando
2699 [153]"fn und benoetigt keine zeilennummer.":[141]6
2700 [153]"loadwenn die auflistung eines programmteils
2701 print"erforderlich ist, wird einer der
2702 [153]"folgenden befehle gegeben:":[141]7:[141]7
2703 [153]"list -l"[163]10)"auflistung bis zeile l":[141]7
2704 [153]"list l-m"[163]8)" auflistung von zeile l":[153][163]10)"bis zeile m"
2705 [141]7
2706 [153]"list l-"[163]10)"auflistung von zeile l":[153][163]10)"bis schluss
2707 gosub7
2708 print"list l"tab(10)"auflistung von zeile l":gosub6
2710 print"[147]"tab(18)"run":gosub7:print"nachdem ein programm im computer
2712 [153]"gespeichert ist und alle fehler
2713 print"korrigiert sind, kann es ausgefuehrt":print"werden.":gosub7:gosub7
2714 print"der entsprechende befehl heisst: r u n [146]":gosub7:gosub7
2718 print"[156][207]";:fori=1to38:print"[163]";:next:print"[208]";
2720 print"[157][167][157][167][157][186]";:fori=1to38:print"[157][157][164]";:next:print"[157][157][204]";
2722 print"[157][145][165][157][145][165]";
2724 print"bem.:r u n ist ein systemkommando
2725 [153]"fn und benoetigt keine zeilennummer.":[141]6
2730 [137]235
3000 [141]6:c$[178]"atn":[141]3
3010 [153]""[163]7)"forende von lektion 2 teil 1
3030 print"[149]bitte warten sie, bis der computer
3032 [153]"teil 2 eingelesen hat.
3034 fori=1to12:print:next
3040 load"2/2lektion",8