home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
1_2lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
93 lines
1 poke45,peek(174):poke46,peek(175):clr:poke53281,1:poke53280,1
2 poke788,52:poke657,128:goto100
7 geta$:ifa$=""then7
8 print:return
10 fori=1to39:printchr$(30)c$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";:fori=1to38:print"[157]"c$"[157]";
12 next:printc$:fori=1to23:print"[145]"c$"[157]";:next:return
34 )
100 print"[147]"tab(12)chr$(156)"zeilennummer[146]":gosub8
900 printchr$(31)"ein basic-programm besteht aus einer
940 [153]"liste von anweisungen, die nachein-
950 print"ander der ";chr$(156)" zeilennummer [146]";chr$(31)" entsprechend"
951 print"ausgefuehrt werden.":gosub8
970 print"jede anweisung muss eine ";chr$(156)" zeilennummer [146]"
971 printchr$(31)"haben.":gosub8
990 print"mit eingabe der anweisung ist deren
1000 [153]"position im programm durch die ";[199](156)" zeilen-wait"
1001 [153]"nummer wait";[199](31)" festgelegt."
1010 [141]8:[141]8
1020 [153]"am folgenden programm soll nun die
1030 print"bedeutung der ";chr$(156)" zeilennummer [146]";chr$(31)" illustriert"
1040 print"[145]werden.":gosub7
1050 printchr$(30)"[147]10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
1055 print"20 input a
1060 [153]"30 print"[199](34)"sie sind"[199](34)"365*a"[199](34)"tage alt"[199](34)
1072 [153]:[129]i[178]1[164]39:[153][199](31)"tab(";:[130]i:[141]8
1090 [153]"angenommen, es soll das alter sowohl in
1100 print"tagen als auch in monaten berechnet":print"werden,
1110 [141]8:[153]"dann geben sie folgende anweisung ein:":[153]
1120 [153][199](30)"35 print"[199](34)"sie sind"[199](34)"12*a "[199](34)"monate alt
1130 print:printchr$(31)"dies ergibt automatisch:"
1135 fori=1to38:print"[164]";:nexti:print:print
1140 printchr$(30)"10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
1150 print"20 input a
1160 [153]"30 print"[199](34)"sie sind"[199](34)"365*a"[199](34)"tage alt"[199](34)
1170 [153]"35 print"[199](34)"sie sind"[199](34)"12*a "[199](34)"monate alt
1380 gosub7:printchr$(31)"[147]sehen sie nun, was das neue programm"
1390 print"bewirkt:":gosub8:gosub8
1402 printchr$(30)"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]
1404 [153]"fnbitte tippen sie ihr alter ein."[163]38)"then
1406 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]":gosub8
1430 print:printchr$(31)"eingabe des alters in jahren ":inputa
1440 print"sie sind"365*a" tage alt
1450 [153]"sie sind"12[172]a" monate alt":[153]:[141]7
1530 [153]"loadsicherlich fragen sie sich,warum die
1540 printchr$(156)" zeilennummern [146]";chr$(31)" im originalprogramm
1550 [153]"immer ein vielfaches von 10 sind.":[141]8
1560 [153]"dies ermoeglicht das einschieben von
1570 print"neuen anweisungen, falls das programm
1575 [153]"veraendert werden soll.":[141]8
1590 [153][199](156)" zeilennummer wait";[199](31)" kann jede zahl von 0"
1591 [153]"bis 63999 sein.":[141]8
1610 [153]"die ";[199](156)" zeilennummer wait";[199](31)" ermoeglicht das "
1620 [153]"aendern oder loeschen von gegebenen":[153]"anweisungen.":[141]7
1640 [153]"loadangenommen, die zeile 145 im folgenden
1650 print"programm soll geaendert werden.":gosub8
1670 printchr$(30)"135 print"chr$(34)"eingabe von zwei zahlen"chr$(34)
1680 print"140 input a,b
1690 [153]"145 print"[199](34)"das produkt ist"[199](34)"a+b":[153]
1700 [129]i[178]1[164]38:[153][199](31)"tab(";:[130]i:[153]:[141]8
1710 [153]"nun wird eingetippt:
1730 printchr$(30)"145 print"chr$(34)"die summe ist"chr$(34)"a+b":gosub8
1750 printchr$(31)"das abgeaenderte programm sieht
1760 [153]"folgendermassen aus:"
1765 [129]i[178]1[164]38:[153]"to";:[130]i:[153]:[153]
1770 [153][199](30)"135 print"[199](34)"eingabe von zwei zahlen"[199](34)
1780 [153]"140 input a,b
1790 print"145 print"chr$(34)"die summe ist"chr$(34)"a+b":gosub8
1795 printchr$(31)"(beachten sie die veraenderung in":print" zeile 145!)":gosub7
1810 print"[147]eine anweisung wird durch eingabe der
1820 [153][199](156)" zeilennummer wait";[199](31)" geloescht.":[141]8
1850 [153]"um alle zeilen eines programms zu
1851 print"loeschen (d.h. den speicher fuer ein
1852 [153]"neues programm frei zu machen),
1860 gosub8:print"tippen sie den befehl ";chr$(28)" n e w [146]";chr$(31)"ein.":gosub8:gosub8
1870 printchr$(28)"[207]";:fori=1to37:print"[163]";:next:print"[208]
1880 [153]"fn"[163]38)"then":[153]"fn"[163]38)"then":[153]"(NULL)";:[129]i[178]1[164]37:[153]"to";:[130]:
1885 [153]"sqronononon";
1890 [153]"bem.:n e w ist ein systemkommando
1900 print"und erfordert keine zeilennummer":gosub7
2220 c$="[216]":print"[147]":gosub10
2250 print""tab(11)"ende von lektion 1
2255 [153][199](31)"sind sie bereit fuer lektion 2 ?"
2256 [153][199](28)"druecken sie bitte die taste"
2257 [153]"j fuer ja"
2258 [153]"n fuer nein
2259 geta$:ifa$="j"then9000
2260 ifa$<>"n"then2259
2270 printchr$(30)"[147]auf wiedersehen bei"
2280 printchr$(28)" lektion 2[146]"
2300 forz=1to700:nextz
2310 sys64738
9000 load"2/1lektion",8