0 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
1 POKE53280,1:POKE53281,1
2 Q$="[145]                                      [145][145][145][145]":GOTO10
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
6 GETA$:IFA$=""THEN6
7 PRINT:RETURN
10 Z$=CHR$(34)
80 GOTO348
90 PRINT"ANGENOMMEN, [129]X HAT DEN WERT [129]8 UND [129]Y HAT":PRINT"DEN WERT [129]25,SO WIRD ";
91 PRINT"FOLGENDES GEDRUCKT:
92 [141]7:[153][163]8)"ZUM DONNER"[163]25)"WETTER":[141]6:[137]374
348 [153]"LOAD"[163]10)"TAB-FUNKTION":[153]:[153]"EINE WEITERE MOEGLICHKEIT, LEER";
350 [153]"STELLEN":[153]"ZU DRUCKEN, BIETET DIE TAB-FUNKTION IM"
351 [153]"PRINT-BEFEHL.
352 GOSUB7:PRINT"JEDE ZEILE BESTEHT AUS 40 STELLEN, DIE
354 [153]"VON 0 BIS 39 DURCHNUMERIERT SIND.":[141]7
355 [153]"TAB(X) BEWIRKT, DASS DER FOLGENDE"
356 [153]"AUSDRUCK BEGINNEND MIT DER STELLE"
357 [153]"X GESCHRIEBEN WIRD."
358 [153]"SO ERGIBT DER BEFEHL:"
359 [153]"5 PRINTTAB(5)"Z$"ZUM DONNER"Z$"TAB(20)"Z$"WETTER"Z$:[141]7
360 [153]"DEN DRUCK VON:":[153][163]5)"ZUM DONNER"[163]20)"WETTER":[141]6
362 [153]"LOADDER BESONDERE VORTEIL DER TAB-FUNKTION
364 PRINT"BESTEHT DARIN, DASS SIE DEN DRUCK EINER
366 [153]"VARIABLEN ANZAHL VON LEERSTELLEN
367 PRINT"ERMOEGLICHT.":PRINT"SIE SCHREIBEN INNERHALB DER KLAMMERN
368 [153]"STATT DER ZAHL EINFACH EINE VARIABLE
369 PRINT"ODER EINEN TERM (SIEHE LEKTION 4).
370 [141]7:[153]"ZUM BEISPIEL:
372 PRINT"5 PRINT TAB(X)"Z$"ZUM DONNER"Z$"TAB(Y)"Z$"WETTER"Z$:GOSUB7
373 GOTO90
374 PRINT"[147]WAS WIRD BEI DEM BEFEHL:"
375 PRINT"2 PRINT TAB(5)"Z$"MICKEY"Z$"TAB(X)"Z$"MAUS"Z$
376 GOSUB7:PRINT"WENN X DEN WERT 20 HAT GEDRUCKT?":GOSUB7
378 PRINT"1. [146]     MICKEY"TAB(23)"MAUS
380 [153]"2. WAITMICKEYMAUS":[153]"(1 ODER 2)";:[133]A$
381 [139]A$[178]"1"[167]392
382 [139]A$[178]"2"[167]384
383 [153]Q$:[137]380
384 [153]"NEIN, DAS WUERDE OHNE DIE TAB-FUNKTION
386 PRINT"GEDRUCKT WERDEN.":GOSUB7:PRINT"ZEILE 1. IST RICHTIG, DA VOR DEM WORT
388 [153]"MICKEYWAIT UND VOR DEM WORT MAUSWAIT LEER-":[153]"STELLEN SIND.
390 GOSUB6:GOTO9002
392 PRINT"DAS IST RICHTIG!!!!
393 [153]"DIE ERSTE TAB-FUNKTION BEWIRKT DEN":[153]"VERSCHUB DES WORTES MICKYWAIT ZU";
394 [153]" SPALTE 5,":[153]"UND DIE ZWEITE TAB-FUNKTION BEWIRKT DEN
395 PRINT"VERSCHUB DES WORTES MAUS[146] ZU SPALTE 20.":GOSUB6:GOTO9002
9002 C$="#":GOSUB3
9010 PRINT""TAB(10)"[129]ENDE VON LEKTION 3"
9012 PRINTTAB(1)"SIND SIE BEREIT SIND FUER LEKTION 4 ?":PRINT
9013 PRINTTAB(15)"(J/N)"
9014 PRINTTAB(5)"DRUECKEN SIE BITTE WIEDER"
9015 PRINTTAB(7)"DIE ZUGEHOERIGE TASTE"
9020 GETA$:IFA$="N"THEN9100
9025 IFA$<>"J"THEN9020
9030 PRINT""TAB(10)"[129]GLEICH GEHTS WEITER"
9040 LOAD"4/1LEKTION",8
9100 GOSUB3
9110 PRINT""TAB(12)"[129]AUF WIEDERSEHEN":PRINT:PRINT
9120 PRINTTAB(13)"BEI LEKTION 4"
9140 FORI=1TO700:NEXTI
9150 SYS64738