1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:Z$=CHR$(34):GOTO108
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
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
108 PRINT"[147]"TAB(13)"MATRIZEN":PRINT"ZUSAETZLICH ZU DEN OBEN ERWAEHNTEN
110 [153]"VARIABLEN BIETET IHNEN FORBASIC DIE MOEG-
111 PRINT"LICHKEIT,[129] INDIZIERTE VARIABLEN ZU       BENUTZEN."
112 PRINT"[129]INDIZIERTE VARIABLEN WERDEN HAEUFIG BEI
114 [153]"LISTEN, TABELLEN UND ANDEREN ABHAENGIGEN";:[153]"MENGEN VERWENDET.
116 PRINT"SIE KOENNEN EINEN, ZWEI ODER MEHR":PRINT"INDIZES BENUTZEN.":GOSUB7
118 PRINT"[147]HIER EINIGE BEISPIELE FUER[129] INDIZIERTE":PRINT"VARIABLEN:"
120 PRINT"  A(6)":PRINT"  R$(4)":PRINT"  R1(21,7)":PRINT"  FF$(K)":PRINT"  U$(R,C)
121 [153]"  M(2*I+3)
122 PRINT"EINE [129]INDIZIERTE VARIABLE IST EINE
123 [153]"VARIABLE UNTER HINZUFUEGUNG EINER LISTE
124 PRINT"DURCH KOMMATA GETRENNTER AUSDRUECKE,
125 [153]"DIE IN KLAMMERN EINGESCHLOSSEN IST.":[141]7
140 [153]"LOADEINE LISTE VON INDIZIERTEN VARIABLEN
142 PRINT"NENNT MAN [129]VEKTOR (EIN INDEX) ODER [129]MATRIX";:PRINT"(MEHR ALS EIN INDEX).
144 [153]"DIE AUSDRUECKE INNERHALB DER KLAMMERN
145 PRINT"[129](INDIZES) GEBEN DIE [129]POSITION DER":PRINT"VARIABLEN IN DER MATRIX AN."
146 PRINT"IN DER FOLGENDEN GRAPHIK WIRD GEZEIGT,"
148 PRINT"WIE DIE INDIZIERTEN VARIABLEN EINES ":PRINT"VEKTORS ANGEORDNET SIND:"
150 PRINT"     [207][163][163][163][163][163][207][163][163][163][163][163][207][163][163][163][163][163][207][163][163][163][163][208]":PRINT"     [165]C(0) [165]C(1) [165]C(2) [165]C(3)[167]
152 [153]"     (null)TOTOTOTOTO(null)TOTOTOTOTO(null)TOTOTOTOTO(null)TOTOTOTOSQR
154 PRINT"DER INDEX TEILT DEM DATENSPEICHER DIE
155 [153]"POSITION DER VARIABLE IM VEKTOR MIT,"
156 [153]"SO WIE DER INDEX 2 IN C(2) AUF DEN
157 PRINT"DARGESTELLTEN PLATZ VERWEIST.":GOSUB7
158 Y=14:GOSUB900:PRINTTAB(18):FORI=1TO20:PRINT"C(2)[146][157][157][157][157]";:FORJ=1TO40:NEXT:PRINT"C(2)";
159 PRINT"[157][157][157][157]";
160 FORK=1TO50:NEXT:NEXT:GOSUB7
162 Y=23:GOSUB900:PRINT"BITTE BEACHTEN SIE:[129] DIE ERSTE VARIABLE
164 [153]"DES VEKTORS HAT DEN INDEX 0.":[141]7
165 [153]"LOADWIE DIE ELEMENTE EINER MATRIX ANGEORDNET";
166 [153]"SIND, WIRD IN DER FOLGENDEN GRAPHIK":[153]"GEZEIGT:":[153]
168 [153]"  (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB((null)
170 PRINT"  [165]C(0,0) [165]C(0,1) [165]C(0,2) [165]C(0,3)[167]
172 [153]"  (null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOSQR
173 PRINT"  [207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][163][207][163][163][163][163][163][163][208]
174 [153]"  FNC(1,0) FNC(1,1) FNC(1,2) FNC(1,3)THEN
176 PRINT"  [204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][164][204][164][164][164][164][164][164][186]
177 [153]"  (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TAB(TAB(TAB(TAB(TAB(TAB((null)
178 PRINT"  [165]C(2,0) [165]C(2,1) [165]C(2,2) [165]C(2,2)[167]
179 [153]"  (null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOTO(null)TOTOTOTOTOTOSQR
180 PRINT"WIEDER TEILT DER INDEX DEM DATENSPEICHER";
181 PRINT"DIE POSITION DER VARIABLE IN DER MATRIX":PRINT"MIT,
182 [153]"SO WIE C(1,3) DIE DARGESTELLTE POSITION":[153]"INNE HAT.":[141]7
186 Y[178]8:[141]900:[153][163]27):[129]I[178]1[164]20:[153]"C(1,3)WAITCMDCMDCMDCMDCMDCMD";:[129]J[178]1[164]40:[130]
188 [153]"C(1,3)CMDCMDCMDCMDCMDCMD";:[129]J[178]1[164]50:[130]:[130]:[141]7
189 [153]"LOAD"[163]12)"DIM-ANWEISUNG":[153]"DIEFOR DIMENSIONSANWEISUNG (KURZ: DIM-"
190 [153]"ANWEISUNG) FORSETZT DIE MAXIMALE GROESSE
192 PRINT"EINES VEKTORS ODER EINER MATRIX FEST.
194 [153]"ZUM BEISPIEL BESAGT DIE ANWEISUNG:"
195 [153]"     30 DIM A(20), C$(15,3)
196 PRINT"DASS EIN VEKTOR, GENANNT A[146],
197 [153]"21 ELEMENTE HABEN SOLL (INDIZES 0-20)"
200 [153]"UND DASS EINE MATRIX, GENANNT C$WAIT,
202 PRINT"16 REIHEN UND 4 SPALTEN HABEN SOLL.":PRINT"BEM.: 0 IST IMMER DER";
204 PRINT" ERSTE INDEX.":PRINT"DIE[129] DIM-ANWEISUNG IST NUR NOTWENDIG,
206 [153]"FORWENN DIE INDIZES DIE ZAHL 10 UEBER-":[153]"SCHREITEN.":[141]7
210 C$[178]"(null)":[141]3:[153]""[163]10)"ENDE VON LEKTION 6":[137]1000
900 [153]"":[129]I[178]0[164]Y[171]1:[153]"";:[130]:[153]"ONON";:[142]
910 [129]J[178]1[164]20:[153]">";:[129]I[178]1[164]50:[130]:[153]"CMD CMD";:[129]K[178]1[164]50:[130]:[130]:[142]
920 Y[178]Y1:[141]900:[129]I[178]0[164]Y2[171]Y1:[153]"                                       ":[130]
922 [141]900:[142]
1000 [153]" LEKTION 7 USW. BEFINDET SICH AUF  WAIT"
1010 [153]" DER RUECKSEITE DER KASSETTE.      WAIT"
1020 [153]" SPULEN SIE DESHALB VOR BEANTWORTENWAIT"
1030 [153]" DER FRAGE AN DAS BANDENDE UND     WAIT"
1040 [153]" DREHEN SIE DIE KASSETTE UM !      WAIT"
1050 [153]"WENN SIE BEREIT SIND FUER LEKTION 7,"
1060 [153]"ANTWORTEN SIE BITTE MIT J  (=JA)"
1070 [153]"SONST MIT N  (=NEIN)"
1080 [161]A$:[139]A$[178]"N"[167]1500
1090 [139]A$[179][177]"J"[167]1080
1100 [153]"LOAD"
1110 [153]"     DANN WEITERHIN VIEL VERGNUEGEN !"
1120 [147]"7/1LEKTION",8
1500 [153]""
1510 [129]I[178]1[164]15:[153]"                                     "
1520 [129]K[178]1[164]10:[130]:[130]
1600 [153]"ONONONONONONONONONONONSCHADE! ES MACHT FREUDE, MIT IHNEN  "
1610 [153]"ZU ARBEITEN !!"
1620 [153]"LASSEN SIE MICH NICHT LANGE"
1630 [153]"WARTEN, BIS ZU UNSERER NAECHSTEN "
1640 [153]"SITZUNG BEI     LEKTION 7WAIT"
1660 [129]Z[178]1[164]700:[130]Z
1670 [158]64738
12311 F