1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,0:POKE53281,O
5 C$="[216]"
10 PRINT"[147][158]":FORI=1TO39:PRINTC$;:NEXT:FORI=1TO22:PRINT"[157]"C$;:NEXT:PRINT"[157]";
12 FORI=1TO38:PRINT"[157]"C$"[157]";:NEXT:PRINTC$
14 FORI=1TO23:PRINT"[145]"C$"[157]";:NEXT
20 PRINT""TAB(13)"[150]LEKTION 11"
25 GETA$:IFA$=""THEN25
30 PRINT"[147]":PRINT"FOLGENDE BEISPIELE KOENNEN SIE MIT DEM"
40 PRINT"[150]LOAD-BEFEHL NACHLADEN:"
50 PRINT"11/2LEKTION :[150] BALLBEWEGUNGEN"
60 PRINT"11/3LEKTION :[150] ABSCHREIBUNGSPROGRAMM"
70 PRINT"11/4LEKTION :[150] ADRESSENLISTE"
80 PRINT"11/5LEKTION :[150] MITTELWERT UND":PRINTTAB(14)"STANDARDABWEICHUNG"
90 PRINT"11/6LEKTION :[150] WORTSPIEL"
100 PRINT"11/7LEKTION :[150] ZUORDNUNG"
105 GETA$:IFA$=""THEN105
107 PRINT"[147]"
110 PRINT"[158]BEM.: HABEN SIE DAS PROGRAMM GE-"
120 PRINTTAB(6)"LADEN, SO KOENNEN SIE ES MIT [129]<RUN>[158]";
140 PRINT"      STARTEN.":PRINTTAB(6)"MOECHTEN SIE DAS [129]PROGRAMMLISTING[158]"
150 PRINTTAB(6)"SEHEN, SO DRUECKEN SIE DANN DIE "
160 PRINTTAB(6)"[129]STOP-TASTE[158] UND GEBEN [129]<LIST>[158] EIN."
170 PRINT"UND NUN VIEL SPASS BEIM BETRACHTEN DER"
180 PRINT"BEISPIELE UND IHREN ERSTEN EIGENEN"
190 PRINT"PROGRAMMIERVERSUCHEN."
200 GETA$:IFA$=""THEN200
210 PRINT"[147]":PRINTTAB(10)"BITTE LADEN SIE!"
230 FORZ=1TO700:NEXTZ
240 SYS64738