0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE53281,1:POKE53280,1
1 POKE788,52:POKE657,128:Z$=CHR$(34)
2 Q$="[145]                                     [145][145]":GOTO100
3 PRINTCHR$(30)"[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
40 PRINT"IN DIESER UND DEN FOLGENDEN"
41 PRINT"LEKTIONEN WIRD IHNEN DER COMPUTER"
42 PRINT"FRAGEN STELLEN.":PRINT:GOTO52
50 GOTO40
52 PRINT"DER COMPUTER WIRD EIN ";CHR$(28)" ? [146]";CHR$(31)" DRUCKEN,":PRINT
53 PRINT"UND AUF DIE EINGABE IHRER ANTWORT":PRINT"WARTEN.":PRINT
54 PRINT"NACH EINGABE IHRER ANTWORT DRUECKEN"
55 PRINT"SIE BITTE DIE TASTE ";CHR$(28)"  RETURN [146]";CHR$(31)".":PRINT:PRINT:PRINT
56 PRINT"SOLLTEN SIE VERSEHENTLICH ";CHR$(28)" RETURN [146]";CHR$(31)
57 PRINT"OHNE ANGABE VON DATEN DRUECKEN,"
58 PRINT"SO WIEDERHOLT DAS PROGRAMM DIE FRAGE"
59 PRINT"SOLANGE BIS SIE NACH DER EINGABE"
60 PRINT"VON ZAHLEN  RETURN [146] GEDRUECKT HABEN."
62 GOSUB6:GOTO103
100 C$="*":GOSUB3:PRINT""TAB(14)CHR$(31)"LEKTION 1":PRINTTAB(12)"1. EINLEITUNG"
102 PRINTTAB(12)"2. ZEILENNUMMERN":GOSUB6:PRINT"[147]":GOTO50
103 PRINT"[147]"TAB(14)CHR$(156)" EINLEITUNG ":PRINT:PRINT:PRINT
104 PRINTCHR$(30)"BASIC";CHR$(31)" IST EINE EINFACHE SPRACHE, DIE"
105 PRINT"ES IHNEN ERMOEGLICHT, MIT DEM COMPUTER"
106 PRINT"ZU SPRECHEN.":GOSUB7
108 PRINTCHR$(30)"BASIC";CHR$(31)" LERNEN SIE WIE JEDE ANDERE"
110 PRINT"SPRACHE - SIE MUESSEN DIE VOKABELN":PRINT"UND REGELN KENNEN.":GOSUB7
112 PRINT"DIESER EINFUEHRUNGS-KURS SOLL IHNEN":PRINT"DABEI HELFEN.":GOSUB7
114 PRINT"WIE IMMER BEIM LERNEN EINER SPRACHE,"
116 PRINT"MACHT AUCH HIER NUR DIE UEBUNG DEN":PRINT"MEISTER."
118 GOSUB6:PRINT"[147]SIE SPRECHEN MIT DEM COMPUTER,INDEM"
119 PRINT"SIE IHM EIN ";CHR$(156)" PROGRAMM [146]";CHR$(31)" VORSCHREIBEN."
120 GOSUB7:PRINT"DIE ENTWICKLUNG EINES PROGRAMMS"
122 PRINT"BESTEHT AUS ZWEI PHASEN:":PRINT:PRINT"1. SCHREIBEN EINER LISTE VON BEFEHLEN"
123 PRINT"  [156] <PROGRAMMIEREN>  UND":PRINT
124 PRINT"2. AUSFUEHRUNG DER BEFEHLE DURCH":PRINT"   DEN COMPUTER[156] <RUN>.":PRINT:PRINT
126 PRINT:PRINT:PRINT: GOSUB7:PRINT"UND NUN EIN PROGRAMM-BEISPIEL:":GOSUB6
128 PRINTCHR$(30)"[147]10 PRINT"Z$"EINGABE DES ALTERS IN JAHREN"Z$:PRINT"20 INPUT A
130 [153]"30 PRINT"Z$"SIE SIND"Z$" 365*A "Z$"TAGE ALT"Z$
132 [129]I[178]1[164]39:[153][199](31)"LEN";:[130]:[141]7:[153]"DIESES PROGRAMM ERRECHNET IHR ALTER
133 PRINT"IN TAGEN(NAEHERUNGSWEISE).":GOSUB7
134 PRINT"SEHEN SIE NUN, WAS DIESES PROGRAMM
136 [153]"BEWIRKT:":[153]:[153][199](30)"BITTE GEBEN SIE IHR ALTER EIN UND
137 PRINT"DRUECKEN SIE DIE ";CHR$(28)" RETURN [146]";CHR$(30)"-TASTE[146]"CHR$(31):GOSUB7
138 FORI=1TO39:PRINT"[198]";:NEXT:GOSUB7
139 PRINT"EINGABE DES ALTERS IN JAHREN":INPUTA
140 PRINT"SIE SIND "365*A" TAGE ALT":GOSUB7:FORI=1TO39:PRINT"[195]";:NEXT:GOSUB7
141 PRINT"MOECHTEN SIE DEN PROGRAMM-ABLAUF NOCH
142 [153]"EINMAL SEHEN(JA ODER NEIN)";:[133]A$
143 [139]A$[178]"JA"[176]A$[178]"NEIN"[167]145
144 [153]Q$:[137]141
145 [139]A$[179][177]"JA"[167]160
146 [137]128
160 [153][199](156)"LOADUND NOCH EIN PROGRAMM-BEISPIEL":[141]7
162 [153][199](30)"10 PRINT"Z$"EINGABE VON GRAD FAHRENHEIT"Z$:[153]"20 INPUT F"
164 [153]"30 PRINT"Z$"GRAD CELSIUS = "Z$"5*(F-32)/9":[141]7
166 [129]I[178]1[164]39:[153][199](31)"FRE";:[130]:[141]7:[153]"SEHEN SIE NUN WAS DIESES PROGRAMM
168 PRINT"BEWIRKT:":PRINT:PRINTCHR$(30)"BITTE GEBEN SIE EINEN WERT FUER DIE
170 [153]"TEMPERATUR EIN!WAIT":[141]7:[129]I[178]1[164]39:[153][199](31)"FRE";:[130]
171 [153]
172 [153]"EINGABE VON GRAD FAHRENHEIT":[133]F:[153]"GRAD CELSIUS="5[172](F[171]32)[173]9
173 [129]I[178]1[164]39:[153]"FRE";:[130]:[141]7
174 [153]"MOECHTEN SIE DEN PROGRAMM-ABLAUF NOCH
175 PRINT"EINMAL SEHEN(JA ODER NEIN)";:INPUTA$:IFA$="JA"ORA$="NEIN"THEN177
176 PRINTQ$:GOTO174
177 IFA$<>"JA"THEN190
178 PRINT"[147]":GOTO162
190 C$="[209]":GOSUB3:PRINTTAB(7)CHR$(156)"ENDE  VON LEKTION 1 TEIL 1"
192 PRINT"BITTE WARTEN SIE, BIS DER COMPUTER
194 [153]"TEIL 2 EINGELESEN HAT.
196 PRINTCHR$(31)"
350 [147]"1/2LEKTION",8