ZX Spectrum+ User Guide Companion Cassette: hello.B

Is a part of release: ZX Spectrum+ User Guide Companion Cassette
File size: 32799
md5: 6abf23ca1e522bf01e734acd34634d03
  1 POKE 23658,0: POKE 23617,0: OVER 0: INVERSE 0: RANDOMIZE : CLS : GO TO 1500: REM  HACKERS PLEASE NOTE- THIS PROGRAM IS NOTMEANT TO DEMONSTRATE STRUCTURED PROGRAMMING TECHNIQUE. IT'S ONLYMEANT TO WORK.
  2 RESTORE USR clow: PRINT #1;"Irgendeine Taste zum Umblaettern"
  3 POKE 23560,0
  4 IF PEEK 23560=0 THEN  GO TO 4
  5 LET a$=CHR$ PEEK 23560: RETURN 
  6 LET rong=rong+1: PRINT #1; FLASH 1;AT 1,0;m$: FOR i=10 TO -40 STEP -1: BEEP .01=,i: NEXT i: RESTORE USR clow: PRINT #1;" NOCHMAL VERSUCHEN, ODER ENTER": RETURN : REM ( TO ent*32): LET ent=1: RETURN 
  7 PRINT ;: LET vect=PEEK 23633+256*PEEK 23634: POKE vect,3: POKE vect+1,250: RETURN 
  8 PRINT ;: LET vect=PEEK 23633+256*PEEK 23634: POKE vect,244: POKE vect+1,9: RETURN 
  10 RESTORE USR xpld: BORDER o: PAPER o: INK 9: CLS 
  11 GO SUB big: PRINT ''''m$: GO SUB norm: PRINT '' PAPER 6; INK 2;""; INK 4; PAPER 5;"": GO SUB wait: BORDER l: PAPER l: INK 9: CLS : RETURN 
  12 PRINT AT 0,1;"Irgendeine Taste fuehrt weiter": GO TO 3
  13 PRINT AT 16,0;"Der Cursor erscheint normaler-  weise in den beiden unteren     Bildschirmzeilen, wie man hier  sieht.": RETURN 
  14 LET rong=rong+1: PRINT #1; FLASH 1;AT 1,0;m$: FOR i=10 TO -40 STEP -1: BEEP .01=,i: NEXT i: RESTORE USR clow: PRINT #1;" NOCHMAL VERSUCHEN, ODER ENTER"( TO ent*32): LET ent=1: RETURN 
  17 GO SUB big: PRINT 'm$: GO SUB norm: RETURN 
  20 FOR c=1 TO LEN m$-1: PRINT #1;m$(c TO c); FLASH 1;m$(LEN m$); FLASH 0;CHR$ 8;: PAUSE 5: NEXT c: PRINT #1; FLASH 1;m$(LEN m$); FLASH 0: RETURN 
  40 PAPER 0: INK 0: BORDER 0: PRINT AT 19,0: LOAD "keycode"CODE 
  50 LET yes=8500: LET err=6: LET gets=3: LET muse=1000: LET big=7: LET norm=8: LET wait=2: LET scr=3582: LET scrl=1200: LET top=1300: LET zap=59000: LET dot=64223: LET bias=63952: LET blok=64000: LET chart=64350: LET clow=3438
  60 LET o=0: LET l=1: LET ent=l: LET off=l: LET xpld=65280: LET alt=64610: LET banr=10: LET ban2=11: LET menu=1500: LET ktop=7000: LET kfla=7030: LET rong=o: LET rite=o
  70 RESTORE USR clow: PRINT #o; INK 6;"   Irgendeine Taste druecken"
  80 RESTORE USR alt: PAUSE 40: RESTORE USR alt: IF INKEY$="" THEN  PAUSE 40
  90 IF INKEY$="" THEN  GO TO 80
  100 RESTORE USR clow: IF INKEY$="`" THEN  PAUSE 1: PAUSE 0: IF INKEY$="$" THEN  GO TO 9999
  110 FOR i=10 TO 25: RESTORE USR scr: BEEP .1 TO ,i: NEXT i
  120 PRINT  INK 6;AT 3,12;"SOFTWARE"'''"       Programm und Grafik"''"        von Iolo Davidson"'''"      Text von Neil Ardley "''''"   © 1984 Dorling Kindersley"'"        Software Limited"
  130 GO SUB 9000: GO SUB wait
  150 RESTORE USR xpld: LET off=1: BORDER o: PAPER o: INK 9: CLS 
  300 PRINT AT o,o;: LET m$=" WILLKOMMEN ZUM   ZX SPECTRUM+": LET p=l: GO SUB ban2
  610 PRINT '''"Kennen Sie das Spectrum Tasten- feld nicht so gut, so waehlen   Sie zunaechst die erste Linie imMENU. Dabei werden Ihnen die    ersten Schritte mitgeteilt, die ein Anfaenger wissen muss. Da-  nach waehlen Sie die anderen    Linien, um Ihre Fertigkeiten zu entwickeln."
  620 PRINT '' BRIGHT 1;"Durch Druecken der BREAK-Taste  kommt man zum MENU zurueck,  un-abgesehen davon, wo man sich im Programm befindet."; BRIGHT 0
  650 GO SUB wait
  700 CLS : RESTORE USR zap: PRINT "             Die BREAK-Taste                 stoppt normaler-   [C][N][N][N][N][N][N][N][N][N][N][E] weise den Ablauf   [F]          [G] eines Programms,   [H]  BREAK   [I] fuehrt aber hier   [J]          [K] zum MENU.           [L]        [M]                       [O][P][D][D][D][D][Q][R]                      "
  710 PRINT #o;"Irgendeine Taste zum Umblaettern"
  720 LET a=1: GO SUB kfla
  730 GO TO menu
  1000 RESTORE 1100: LET j=LEN m$: LET w=.4 TO : LET h=w/2: LET q=w/4: LET e=w/10
  1005 LET j=342-j-(j<115)*78-(j<193)*36-(j<229)*78-(j<307)*36
  1010 FOR i=l TO LEN m$: LET a=CODE m$(i)+USR dot: PRINT m$(i);: IF PEEK 23688=32 THEN  BEEP .3[J],10: GO TO 1020
  1015 BEEP .007▖,8
  1020 LET a=CODE m$(i)+USR dot: NEXT i
  1030 LET a=USR clow: PRINT #l; PAPER 2; INK 7; FLASH l;"Irgendeine Taste zum Umblaettern"
  1050 FOR i=l TO 50: IF INKEY$="" THEN  READ a: READ b: BEEP a,b+k: PAUSE 3: NEXT i
  1060 IF INKEY$="" THEN  GO TO 1060
  1080 RETURN 
  1100 DATA q,10,q,15,q,14,q,12,e,10,e,10,q,20,q,19,q,17,q,15,q,22,e,19,e,19,q,15,e,14,e,14,h,12,q,17,q,10
  1110 DATA e,15,e,15,q,14,q,12,q,10,q,20,q,19,q,17,q,16,q,22,e,19,e,19,q,17,e,20,e,20,h,17,q,15,q,19
  1120 DATA q,19,e,19,e,19,e,21,e,21,e,19,e,18,q,19,q,19,q,21,e,19,e,18,q,19,e,19,e,21,q,22,e,20,e,19,q,17,e,15,e,12,q,14,e,10,e,10
  1200 FOR i=l TO 24: RESTORE USR 3582: BEEP .005=,i+10: NEXT i: PRINT AT o,o;: RETURN 
  1300 RESTORE USR clow: FOR i=l TO 10: RESTORE USR 3582: BEEP .005=,i+10: NEXT i: PRINT AT 13,o;: POKE 63952,10: RETURN 
  1499 REM  MENU 
  1500 BORDER o: PAPER o: INK 5: CLS : POKE 23658,o: POKE 23617,o: IF rite+rong=o OR off THEN  GO TO 1530
  1505 GO SUB big: LET cent=INT (rite/(rite+rong)*1000+.5 COPY )/10: PRINT "SIE HABEN ";cent;"%"'"IN DIESEM TEIL."
  1510 PRINT '"RICHTIG = ";rite'"FALSCH  = ";rong
  1515 IF cent<80 OR rite<4 THEN  PRINT '"SIE BRAUCHEN    UEBUNG IN DIESEMABSCHNITT.": GO TO 1525
  1520 IF cent>=80 THEN  PRINT '"BRAVO! GEHEN SIEZUM NAECHSTEN   ABSCHNITT."
  1525 GO SUB wait
  1530 LET tr=o: LET rite=o: LET rong=o: LET off=o: LET flag=o: PAPER o: BORDER o: INK 5: CLS : PRINT TAB l;: GO SUB big: PRINT "     MENU": GO SUB norm
  1540 INK 9: PRINT '"         Druecken Sie:"''" F  Zu allererst      ";TAB o''" K  Keyword-Modus  ";TAB o''" L  Letter-Modus";TAB o''" S  Symbol Shift";TAB o''" E  Extended-Modus";TAB o''" G  Grafik-Modus";TAB o''" M  Verbesserungen ";TAB o''" V  Video-Kontrolle ";TAB o''" H  Hochaufloesende Grafik      "
  1550 PRINT #o;" BREAK bringt Sie hier zurueck "
  1580 GO SUB gets: IF a$="k" OR a$="K" THEN  GO TO 1820
  1600 IF a$="e" OR a$="E" THEN  GO TO 3720
  1620 IF a$="l" OR a$="L" THEN  GO TO 2040
  1640 IF a$="s" OR a$="S" THEN  GO TO 2540
  1650 IF a$="h" OR a$="H" THEN  GO TO 6000
  1660 IF a$="m" OR a$="M" THEN  GO TO 4060
  1700 IF a$="g" OR a$="G" THEN  GO TO 3320
  1720 IF a$="f" OR a$="F" THEN  GO TO 2930
  1730 IF a$="v" OR a$="V" THEN  GO TO 4400
  1740 PAPER 2: INK 9: BORDER 2: CLS : GO SUB big: PRINT "  KEINE PANIK!  "''" Die Taste, die Sie drueckten,  ist nicht auf   dem MENU.        'Q' quittiert  das Programm.    Jede andere    Taste bringt Siezurueck zum MENU": GO SUB norm
  1780 GO SUB gets: IF a$="q" OR a$="Q" THEN  LET i=PEEK 23613+256*PEEK 23614: POKE i,3: POKE i+1,19: GO TO 9900
  1800 GO TO menu
  1819 REM  KEYWORDS 
  1820 LET m$=" Keyword-Modus": GO SUB banr
  1840 PRINT "      K KEYWORD-MODUS K"
  1860 PRINT ''"Der Spectrum geht automatisch inden Keyword-Modus, gleich nach  dem Einschalten. Das erkennt mandaran, dass der Cursor sich in Kumwandelt."''"Der Computer erwartet jetzt ein Schluesselwort, das fuer ihn    ein Befehl ist, den er versteht.Blaettern Sie um, und ueben Sie,Schluesselwoerter zu finden."
  1900 GO SUB wait: CLS 
  1920 LET a=INT (RND*26)+97
  1940 RESTORE USR zap: PRINT AT o,o;"  K KEYWORD-MODUS K"''"Wenn Sie diese Buch-"'"stabentaste im K-Modus"'"druecken, erscheint"'"ein blinkendes "'"Schluesselwort."''"Finden Sie das "'"Schluesselwort!"
  1960 PRINT AT 3,24; FLASH l;"      "
  1970 LET tr=tr+1: IF tr=11 THEN  GO TO menu
  1980 GO SUB ktop: IF a$=CHR$ 13 THEN  GO TO menu
  2000 IF a=CODE a$ THEN  GO SUB yes: GO TO 1920
  2020 LET m$=" Ei! Nicht die richtige Taste!  ": GO SUB err: GO TO 1970
  2039 REM  LETTERS 
  2040 LET m$="  Letter-Modus": GO SUB banr
  2045 PRINT "     L  LETTER-MODUS  C"
  2050 PRINT ''"Wenn der L-Cursor erscheint,    funktioniert der Computer genau wie eine Schreibmaschine und dieTasten geben Kleinbuchstaben undZiffern."
  2060 PRINT '"Fuer Grossbuchstaben muss man   entweder CAPS SHIFT oder CAPS   LOCK druecken. Die CAPS LOCK    Taste aendert den Cursor zu C.  Das Loslassen von CAPS SHIFT    oder das erneute druecken von   CAPS LOCK bringt Sie zurueck zu Kleinbuchstaben."
  2100 GO SUB wait
  2120 CLS : RESTORE USR zap: PRINT "                   CAPS SHIFT                      wird fuer    [C][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][N][E] Grossbuch-   [F]                [G] staben ge-   [H]   CAPS SHIFT   [I] braucht.     [J]                [K]               [L]              [M]                 [O][P][D][D][D][D][D][D][D][D][D][D][Q][R]  "
  2140 RESTORE USR clow: PRINT #l;"   CAPS SHIFT zum Umblaettern   "
  2160 LET i=24+USR dot: LET i=25+USR dot: PAUSE 5: LET i=24+USR dot: LET i=25+USR dot: PAUSE 4: LET a$=INKEY$: IF IN 57342-IN 65278<>1 AND a$="" THEN  GO TO 2160
  2200 IF IN 57342-IN 65278<>1 THEN  LET m$=" Unbedingt CAPS SHIFT druecken! ": LET ent=0: GO SUB err: GO TO 2140
  2220 GO SUB yes: PRINT AT o,o;"CAPS LOCK wird ge-              braucht, wenn Sie               mehrere Grossbuch-              staben benutzen.                Taste druecken zum              Feststellen, noch-              mal druecken fuer               Kleinbuchstaben.";TAB o
  2240 RESTORE USR clow: PRINT #l;"   CAPS LOCK zum Umblaettern    "
  2260 LET a=4: GO SUB ktop
  2280 IF CODE a$<>6 THEN  LET m$=" Unbedingt CAPS LOCK druecken!  ": LET ent=0: GO SUB err: GO TO 2240
  2300 GO SUB yes: LET flag=1
  2320 LET a=INT (RND*26+97): IF RND>.5 COPY  THEN  LET a=INT (RND*26+65)
  2340 PRINT AT o,o;"Buchstabentasten er-            geben Kleinbuchstab-            en, ausgenommen wenn            CAPS SHIFT bzw. CAPS            LOCK benutzt wird.";TAB o,TAB o,TAB o,TAB o,TAB o
  2360 PRINT AT 5,o;""""+CHR$ a+""""+" druecken": REM  IF a>64 AND a<91 THEN  PRINT AT 5,8;"(CAPITAL). "
  2400 REM  IF a>96 THEN  PRINT AT 5,8;"(lower case)."
  2420 RESTORE USR clow: IF flag THEN  POKE 23658,8: PRINT AT 7,l; FLASH l;" CAPS LOCK EIN"
  2440 IF NOT flag THEN  POKE 23658,o: PRINT AT 7,l;" CAPS LOCK AUS"
  2450 LET tr=tr+1: IF tr=10 THEN  POKE 23658,o: GO TO menu
  2460 GO SUB ktop: IF a$=CHR$ 13 THEN  POKE 23658,o: GO TO menu
  2480 IF a$=CHR$ 6 THEN  LET flag=ABS flag-1: GO TO 2420
  2500 IF CODE a$<>a THEN  LET m$=" CAPS LOCK oder SHIFT vergessen?": GO SUB err: GO TO 2460
  2520 GO SUB yes: GO TO 2320
  2539 REM  SYMBOLS  
  2540 LET m$="  SYMBOL SHIFT": GO SUB banr
  2550 PRINT "      SS SYMBOL SHIFT SS"
  2560 PRINT ''"Schluesselwoerter, Symbole und  Interpunktion erscheinen paar-  weise auf dem erhoeten Teil der Taste oder ueber der Taste."'''"Um das untere (oder rechte)     irgendeines Paars zu waehlen,   benutzen Sie SYMBOL SHIFT."
  2565 PRINT ''"Manche Interpunktionszeichen    haben ihre eigenen Tasten und   benutzen SYMBOL SHIFT nicht."
  2570 PRINT ''"Blaettern Sie um, um zu sehen,  welche Schluesselwoerter oder   Zeichen SYMBOL SHIFT gibt."
  2600 GO SUB wait
  2610 CLS : PRINT " SS SYMBOL SHIFT SS"
  2620 PRINT "Eine der SYMBOL SHIFT           Tasten muss man zu-             sammen mit der des              gewuenschten Schlues-           selworts/Zeichens               niederhalten. Drueck-           en Sie SYMBOL SHIFT.";TAB o,TAB o,TAB o
  2640 RESTORE USR zap: LET a=26: GO SUB ktop
  2660 LET i=26+USR dot: LET i=27+USR dot: PAUSE 5: LET i=26+USR dot: LET i=27+USR dot: PAUSE 4: LET a$=INKEY$: IF a$="" AND IN 57342-IN 32766<>2 THEN  GO TO 2660
  2700 IF IN 57342-IN 32766<>2 THEN  LET m$="    Bitte nur SYMBOL SHIFT!     ": LET ent=o: GO SUB 14: GO TO 2660
  2720 GO SUB yes: CLS : RESTORE USR zap
  2740 LET a=CODE s$(INT (RND*36+1))
  2760 IF (a>32 AND a<42) OR a=64 OR a=95 THEN  LET typ=1
  2780 IF (a>41 AND a<48) OR (a>57 AND a<64) OR (a>196 AND a<202) OR (a>202 AND a<206) OR a=94 OR a=96 OR a=172 OR a=195 OR a=226 THEN  LET typ=2
  2800 IF a=34 OR a=44 OR a=46 OR a=59 THEN  LET typ=3
  2820 PRINT AT o,o,TAB o,TAB o;"Druecken Sie nun das            blinkende Symbol bzw            Schluesselwort.     ";TAB o,TAB o,TAB o,TAB o
  2830 RESTORE USR zap
  2840 IF typ=1 THEN  PRINT AT 3,28; FLASH l;" "
  2860 IF typ=2 THEN  PRINT AT 4,25; FLASH l;"    "
  2880 IF typ=3 THEN  PRINT AT 5,26; FLASH l;"  ";AT 6,26;"  ";AT 6,o; FLASH o;"SYMBOL SHIFT ist"'"hier nicht noetig."
  2890 LET tr=tr+1: IF tr=10 THEN  GO TO menu
  2900 GO SUB ktop: IF a$=CHR$ 13 THEN  GO TO menu
  2910 IF CODE a$<>a THEN  LET m$="    SYMBOL SHIFT vergessen?     ": GO SUB err: GO TO 2890
  2920 GO SUB yes: GO TO 2740
  2929 REM  HELP  
  2930 LET off=1: RESTORE USR xpld
  3000 DIM g$(288): BORDER l: PAPER l: INK 9: CLS : RESTORE USR zap
  3010 LET m$=" Ihr neuer ZX Spectrum+ eroeff-  net Ihnen eine neue Welt. Er    unterhaelt, lehrt und hilft bei Haushalt und Arbeit. Um aus dem Geraet das Beste zu holen,      lohnt es sich, die zahlreichen  Funktionen und Einrichtungen zu erlernen."
  3020 LET m$=m$+""
  3030 LET k=15: PAPER 2: PRINT AT o,o;g$;AT o,o;: GO SUB muse
  3040 LET m$=" Das Programm wurde entworfen,   damit Sie sich durch Anwenden   des Tastenfelds mit ihm ver-    traut machen. Wir brauchen Ihre Hilfe dabei, aber haben Sie     keine Angst, es kann nichts     schiefgehne.  ?"+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+CHR$ 8+"en!  Folgen Sie den    Anweisungen, so beherrschen Sie bald den ZX Spectrum+."
  3050 BORDER l: PAPER l: RESTORE USR clow: GO SUB top: PAPER 6: PRINT AT 13,o;g$;AT 13,o;: LET k=-15: GO SUB muse
  3060 BORDER o: PAPER o: INK 6: CLS 
  3080 GO SUB big: PRINT '" -BEDENKEN SIE-"'"Dem Computer    schadet's nicht,falsche Tasten  zu druecken.": GO SUB norm: INK 9: PRINT ''"Im schlimmsten Fall tut der     Computer einfach etwas anderes  als Sie erwarten."
  3090 GO SUB wait
  3100 BORDER l: PAPER l: INK 9: CLS : PRINT '"Damit der Spectrum Ihnen folgt, muessen Sie die richtigen Be-   fehle ausgeben. Dann wird er    Ihnen auf's Wort folgen."
  3110 PRINT ''"Diese Befehle werden KEYWORDS   (Schluesselwoerter) genannt. Es sind die Woerter, die auf den   Tasten des Spectrums zu sehen   sind, zB: LOAD, RUN und INK.    Um sie zu benutzen, braucht man nur eine oder zwei Tasten zu    druecken."'''"Sie sollen auf keinem Fall die  Schluesselwoerter buchstaeblich abtippen. Der Computer erkennt  solche 'von Hand' zusammenge-   stellten Woerter nicht."
  3120 GO SUB wait
  3130 CLS : PRINT "Jeder Buchstabe oder Zahl kann  bis zu 4 verschiedene Schlues-  selwoerter, Zeichen oder Grafik-zeichen sowie Ziffern oder      Gross- bzw. Kleinbuchstaben be- deuten. Um Ihnen zu helfen, zu  wissen, was kommt, zeigt der    Computer einen blinkenden Buch- staben, genannt Cursor. Es gibt 5 verschiedene Cursors:"
  3140 PRINT '"         K E G L und C"''"die anzeigen, in welchen der 5  Modi der Computer sich befindet.": GO SUB 7500: CLS : PRINT '"Die verschiedenen Moeglichkeitenauf dem MENU liefern weitere    Information ueber diese Modi."''"Es gibt jedoch eine besondere   Taste, die Sie sofort kennen-   lernen muessen."
  3150 GO SUB wait
  3230 CLS : PRINT "Diese Taste kommt               oft vor. Sie muss               gedrueckt werden,        [C][N][N][N][N][N][E]um jegliche In-          [F]     [G]formation in den         [H]     [I]Spectrum einzu-          [H]     [I]geben, z.B. wenn         [H]     [I]"
  3240 PRINT "Sie den Computer         [H]     [I]einen Befehl aus-        [H]     [I]fuehren lassen wollen.   [H]     [I]                         [H]     [I]                  [C][N][N][N][N][N][N][U]     [I]                  [F]            [I]                  [H]   ENTER    [I]                  [J]            [K]                   [L]          [M]                     [O][P][D][D][D][D][D][D][Q][R]  "
  3260 RESTORE USR clow: PRINT #1;"   Mit ENTER geht es weiter": GO SUB gets
  3270 IF a$<>CHR$ 13 THEN  LET m$="   Unbedingt ENTER druecken!    ": LET ent=0: GO SUB 14: GO TO 3260
  3280 CLS : PRINT AT 8,o;"Sie werden die verschiedenen    Einteilungen des MENUs leichter verstehen, wenn Sie oben        beginnen und sich nach unten    durcharbeiten, aber Sie koennen sooft Sie wollen zu jeder Unter-teilung zurueckkehren."
  3290 PRINT '''"Irgeneine Taste fuehrt zum MENU.": GO SUB gets
  3300 GO TO menu
  3319 REM  GRAPHICS 
  3320 LET m$="  Grafik-Modus": GO SUB banr
  3330 LET flag=o: PRINT "       G GRAFIK-MODUS G"
  3335 PRINT '''"Im Grafik-Modus kann man Formen und Bilder anstatt Buchstaben   und Ziffern eingeben."
  3340 PRINT ''"Um den Grafik-Modus zu benutzen druecken Sie einfach die GRAPH- Taste. Der Computer zeigt dann  den G-Cursor, um anzudeuten,    dass er im Grafik-Modus ist."
  3360 PRINT ''"Sie erhalten nun Blockgrafik-   zeichen mit Tasten 1 bis 8. Mit Tasten A bis U koennen Sie Ihre eigenen Formen bilden, die als  User-Defined Graphics (UDGs)    bezeichnet werden."
  3380 GO SUB wait
  3400 CLS : RESTORE USR zap: PRINT "Druecken Sie GRAPH              einmal, um in den               Grafik-Modus einzu-             gehen, und nochmal,             um zu normalen Zei-             chen zurueckzugehen.            Der Grafik-Modus                bleibt an, bis aus-             geschaltet."
  3405 PRINT #1;"       Druecken Sie GRAPH      "
  3410 IF flag THEN  RESTORE USR clow: PRINT #l;" Sie sind noch im Grafik-Modus  "
  3420 LET a=3: GO SUB ktop
  3430 IF a$=CHR$ 13 THEN  GO TO 3680
  3440 IF a$<>CHR$ 15 THEN  LET m$="    Unbedingt GRAPH druecken!   ": GO SUB err: GO TO 3420
  3450 GO SUB 3690: IF NOT flag THEN  GO TO 3420
  3460 GO SUB yes: CLS : LET m$="  Blockgrafik": GO SUB ban2
  3470 CLS : PRINT AT 6,o;"                               Mit Blockgrafiken koennen     Sie grobe Muster und Bilder   zusammenstellen.                                           "
  3480 GO SUB wait: GO SUB 7700: CLS : RESTORE USR zap
  3490 LET a=INT (RND*8+128): IF flag THEN  RESTORE USR clow: PRINT #1;"    Sie sind im Grafik-Modus    "
  3500 PRINT AT o,o;"Blockgrafik auf Zif-            ferntasten kann                 normal ( ) oder nega-           tiv ( ) sein. CAPS              SHIFT benutzen um               Grafik umzukehren.              Druecken Sie diese              Grafik ( )            ";TAB o
  3510 PRINT  PAPER o;AT 2,8;CHR$ (271-a);AT 3,5;CHR$ a: IF RND>.5 COPY  THEN  LET a=271-a
  3515 LET tr=tr+1: IF tr=10 THEN  GO TO 3560
  3520 PRINT  PAPER o;AT 7,8;CHR$ (271-a): GO SUB ktop: IF a$=CHR$ 13 THEN  GO TO 3560
  3530 GO SUB 3690: IF NOT flag OR a$=CHR$ 15 THEN  GO TO 3520
  3540 IF a$<>CHR$ a THEN  LET m$="     CAPS SHIFT vergessen?      ": GO SUB err: GO TO 3515
  3550 GO SUB yes: GO TO 3490
  3560 CLS : LET m$="  User-Defined"+CHR$ 13+"    Graphics": GO SUB ban2
  3565 GO SUB 7800: PRINT ''''"Wenn Sie das folgende Beispiel  genau ansehen, stellen Sie fest,dass wir UDGs benutzt haben, um Teile des grossen Tastenbilds   und der Tastatur aufzubauen."
  3566 PRINT '"Der UDG-Generator auf Seite B   dieser Kassette erlaubt Ihnen,  Ihre eigenen Grafikformen zu    schaffen."
  3568 GO SUB wait: CLS : RESTORE USR zap
  3570 LET a=INT (RND*21+144): IF flag THEN  RESTORE USR clow: PRINT #l;" Sie sind noch im Grafik-Modus  "
  3580 PRINT AT o,o;"Die fuer den Teil               der Abbildung einer             Taste definierte UDG            erscheint im Kaest-             chen. Druecken Sie              diese Taste, um ein             anderes zu sehen.                          ";TAB o
  3590 PRINT  PAPER o;AT 7,21;CHR$ a
  3600 GO SUB ktop: IF a$=CHR$ 13 THEN  GO TO 3680
  3620 GO SUB 3690: IF NOT flag OR a$=CHR$ 15 THEN  GO TO 3600
  3640 IF a$<>CHR$ a THEN  LET m$=" Ei! Sie koennen sicher besser! ": GO SUB err: GO TO 3600
  3660 GO SUB yes: GO TO 3570
  3680 IF flag=1 THEN  LET m$=" Vom Grafik-Modus kein Ausgang! ": LET ent=0: GO SUB err: GO TO 3400
  3685 GO TO menu
  3690 IF a$=CHR$ 15 THEN  LET flag=ABS (flag-1): IF flag THEN  POKE 23617,2: IF a<>3 THEN  RESTORE USR clow: PRINT #1;"Sie sind wieder im Grafik-Modus "
  3693 IF a$=CHR$ 15 AND NOT flag THEN  POKE 23617,o: RESTORE USR clow: PRINT #l;"  Grafik-Modus eben verlassen   "
  3696 IF NOT flag AND a$<>CHR$ 15 THEN  LET m$=" Druecken Sie zuerst GRAPH! ": GO SUB err
  3697 RETURN 
  3700 GO TO menu
  3719 REM  EXTENDED 
  3720 LET m$=" Extended-Modus": GO SUB banr
  3730 CLS : PRINT "      E EXTENDED-MODUS E"
  3740 PRINT ''"Um in den Extended-Modus zu     gehen, drueckt man die EXTEND   MODE-Taste. Der Cursor wird     dabei zu E."
  3760 PRINT ''"Im Extended-Modus erhalten Sie  die Schluesselwoerter auf dem   erhoeten Teil der Taste. Fuer   das untere der beiden Schlues-  selwoerter auch SYMBOL SHIFT    verwenden."
  3770 PRINT ''"Extended-Modus-Schluesselwoertersind u.a. INK, PAPER und BEEP."
  3780 GO SUB wait: CLS : RESTORE USR zap
  3800 RESTORE USR clow: PRINT #l;"  EXTEND MODE zum umblaettern "
  3810 LET tr=tr+1: IF tr=10 THEN  GO TO menu
  3820 PRINT AT o,o;"                                             EXTEND MODE muss   [C][N][N][N][N][N][N][N][N][N][N][E] vor jedem Schlues- [F]          [G] selwort im Extended[H]  EXTEND  [I] Modus gedrueckt    [J]   MODE   [K] werden. Es schaltet [L]        [M]  sich nach Gebrauch   [O][P][D][D][D][D][Q][R]   von selbst aus.                      "
  3840 LET a=2: GO SUB kfla: IF a$=CHR$ 13 THEN  GO TO menu
  3860 IF a$<>CHR$ 14 THEN  LET m$="      Zuerst EXTEND MODE!       ": GO SUB err: GO TO 3840
  3880 RESTORE USR clow: PRINT #l;"   Sie sind im Extended-Modus   "
  3900 LET a=CODE s$(INT (RND*32+1)): LET flag=1
  3920 IF RND>.5 COPY  THEN  LET a=INT (RND*26+97): LET flag=0
  3940 IF flag THEN  PRINT AT o,o;" E EXTENDED MODE E                                              Druecken Sie jetzt              dieses untere                   Schluesselwort bzw              Symbol. Verwenden               Sie SYMBOL SHIFT!                                                                                         ";TAB o
  3950 IF NOT flag THEN  PRINT AT o,o;"  E EXTENDED MODE E                                             Nun dies Schluessel-            wort druecken.                                                                                                                             ";TAB o,TAB o
  3980 GO SUB ktop: RESTORE USR clow: PRINT #1;"    Extended-Modus abgeloest    ": IF a$=CHR$ 13 THEN  GO TO menu
  4000 IF a$=CHR$ 14 THEN  LET m$="    Extended-Modus abgeloest    ": GO SUB err: GO TO 3800
  4020 IF a$=CHR$ a THEN  GO SUB yes: GO TO 3810
  4040 LET m$="     Ei! Das war falsch.        ": GO SUB err: GO TO 3800
  4059 REM  EDITING 
  4060 LET m$="     Fehler"+CHR$ 13+"   Verbessern ": GO SUB banr
  4070 PRINT "           Die EDIT-Taste wird             benutzt, wenn man    [C][N][N][N][N][N][N][N][N][E] eine Zeile aendern   [F]        [G] oder zum Programm    [H]  EDIT  [I] hinzufuegen will.    [J]        [K]                       [L]      [M]                         [O][P][D][D][Q][R]                        "
  4080 RANDOMIZE USR zap: RESTORE USR clow: PRINT #l;" EDIT zum Umblaettern druecken ": LET a=7: GO SUB kfla
  4100 IF a$<>CHR$ 7 THEN  LET m$=" Das war nicht die EDIT-Taste!  ": LET ent=0: GO SUB 14: GO TO 4080
  4120 GO SUB yes: CLS : PRINT "   [T][S]  CURSOR-KONTROLLE  [A][B]"
  4140 PRINT '''"Die Cursor-Kontrolltasten sind  die mit den Pfeilen. Die        [A] und [B] Tasten werden benutzt,  um den Programm-Cursor von Zeilezu Zeile beim Auflisten zu be-  wegen. Die [T] und [S] Tasten werdenbenutzt, um den EDIT-Cursor in- nerhalb der Zeile zu bewegen,   nachdem EDIT gedrueckt wurde."
  4160 PRINT '"Viele Programme, besonders      Spiele benutzen die Cursor-     Kontrolltasten auch fuer eigene Zwecke."
  4180 GO SUB wait
  4200 CLS : RESTORE USR zap
  4220 LET a=INT (RND*4+8)
  4230 PRINT AT o,o;"[T][S] CURSOR-KONTROLLE [A][B]"
  4240 PRINT AT 4,o;"Druecken Sie nun "'"diese Cursor- "'"Kontrolltaste!"
  4250 LET tr=tr+1: IF tr=10 THEN  GO TO 4320
  4260 GO SUB ktop: IF a$=CHR$ 13 THEN  GO TO 4320
  4280 IF a$=CHR$ a THEN  GO SUB yes: GO TO 4220
  4300 LET m$="Das war nicht die richtige Taste": GO SUB err: GO TO 4250
  4320 CLS : PRINT "             DELETE entfernt                 Zeichen, die von   [C][N][N][N][N][N][N][N][N][N][N][E] einer Zeile heraus [F]          [G] muessen. Entfernt  [H]  DELETE  [I] Buchstabe/Schlues- [J]          [K] selwort links des   [L]        [M]  EDIT-Cursors.        [O][P][D][D][D][D][Q][R]              "
  4340 RESTORE USR zap: RESTORE USR clow: PRINT #l;"DELETE druecken, um fortzufahren": LET a=12: GO SUB kfla
  4360 IF a$<>CHR$ 12 THEN  LET m$="     Das war nicht DELETE!      ": LET ent=o: GO SUB 14: GO TO 4340
  4380 GO SUB yes: GO TO menu
  4400 LET m$=" Video-Kontrolle": GO SUB banr
  4410 PRINT "       TV VIDEO TASTEN IV"
  4420 PRINT '''"Die VIDEO-Tasten ermoeglichen,  Kontrollcodes direkt in den     Text bzw. Programmauflistung zu geben, um negative Zeichen zu   produzieren. Dies ist besonders nuetzlich, um Woerter auf dem   Bildschirm Herauszuheben."
  4460 PRINT '"Aehnliche Codes, um PAPER oder  INK Farben zu aendern, koennen  mit Tasten 0-7 im Extended-Moduserstellt werden. Tasten 8 und 9 in diesem Modus geben Kontroll- codes, die Zeichen aufblinken   (FLASH) oder aufhellen (BRIGHT) lassen."
  4470 GO SUB wait: CLS : RESTORE USR zap
  4560 PRINT AT o,o;"Die INV VIDEO Taste             wird benutzt, um                folgende Zeichen                umzukehren. Zum                 fortfahren INV VIDEO            druecken.";TAB o
  4570 LET a=6: GO SUB ktop: IF CODE a$=13 THEN  GO TO menu
  4580 IF CODE a$<>5 THEN  LET m$=" Unbedingt INV VIDEO druecken!": GO SUB err: GO TO 4570
  4590 GO SUB yes
  4600 PRINT AT o,o;"TRUE VIDEO macht                folgende Zeichen                'normal'. Es schal-             tet INV VIDEO aus.              Druecken Sie TRUE               VIDEO, um fortzu-               fahren.";TAB o
  4610 LET a=5: GO SUB ktop: IF CODE a$=13 THEN  GO TO menu
  4620 IF CODE a$<>4 THEN  LET m$="Unbedingt TRUE VIDEO druecken!": GO SUB err: GO TO 4610
  4630 GO SUB yes: GO TO menu
  5000 FOR i=18496 TO 22463: POKE i+40592,PEEK i: NEXT i: STOP 
  5010 FOR i=18496 TO 22463: POKE i+40592,PEEK i: NEXT i: STOP 
  6000 LET off=1: LET m$="Hochaufloesende"+CHR$ 13+"   Grafiken": GO SUB banr: INK 9
  6010 PRINT ''''"Ausser mit den mit GRAPH-Taste  erstellten Grafiken kann man    auch mit den PLOT, CIRCLE und   DRAW Befehlen auf dem Bildschirmzeichnen."
  6020 PRINT '"Auf der naechsten Seite ist ein fortlaufendes Beispiel mit      Effekten, die Sie mit einiger   Erfahrung mit Ihrem Spectrum    schaffen koennen."''"Um aufzuhoeren und zurueck zum  MENU zu gehen, koennen Sie      jederzeit BREAK druecken."
  6030 GO SUB wait: BORDER o: PAPER o: CLS : PRINT #o;"  Mit BREAK geht's zum MENU"
  6050 LET m$="HELLO": FOR j=1 TO 5: INK j+1: FOR i=6 TO 1 STEP -1
  6060 LET x=PEEK (15360+8*CODE m$(j)+i): FOR k=8 TO 1 STEP -1: LET t=x
  6070 PLOT   INVERSE 1;j*48-36,100-k-i*8
  6080 DRAW  INVERSE (t-64<0);6,0: LET t=t-64*(t>63): DRAW  INVERSE (t-32<0);6,0: LET t=t-32*(t>31)
  6090 DRAW  INVERSE (t-16<0);6,0: LET t=t-16*(t>15): DRAW  INVERSE (t-8<0);6,0: LET t=t-8*(t>7)
  6100 DRAW  INVERSE (t-4<0);6,0: LET t=t-4*(t>3): DRAW  INVERSE (t-2<0);6,0: NEXT k: NEXT i: NEXT j
  6200 INK 7: OVER 1: GO SUB 6690: GO SUB 6690
  6210 FOR i=2 TO 7: INK i: GO SUB 6650: PAUSE 10: NEXT i
  6220 OVER 0: GO SUB 6650
  6510 OVER 0: INK 5: GO SUB 6610: OVER 1: GO SUB 6610
  6520 INK 4: GO SUB 6660: GO SUB 6660
  6540 FOR i=2 TO 7: INK i: GO SUB 6650: PAUSE 10: NEXT i
  6550 OVER 0: GO SUB 6650
  6555 OVER 1: INK 6: GO SUB 6570: GO SUB 6570
  6560 GO SUB 6800: OVER 0: GO SUB 6900: PAUSE 50: GO SUB 6650: GO TO 6050
  6570 FOR j=2 TO 172 STEP 8
  6580 CIRCLE j*1.46VAL$ ,j+1,86-ABS (j-86)
  6590 CIRCLE j*1.46VAL$ ,173-j,86-ABS (j-86)
  6600 NEXT j: RETURN 
  6610 FOR j=0 TO 359
  6620 LET x=j/180*PI: PLOT  126,87: DRAW SIN x*85,COS x*85
  6630 NEXT j
  6640 RETURN 
  6650 DIM g$(22*32): PRINT AT 0,0;g$: RETURN 
  6660 FOR i=0 TO 255: PLOT  0,0: DRAW i,175: NEXT i
  6670 FOR i=174 TO 0 STEP -1: PLOT  0,0: DRAW 255,i: NEXT i
  6680 RETURN 
  6690 FOR i=0 TO -255 STEP -1: PLOT  255,175: DRAW i,-175: NEXT i
  6700 FOR i=-174 TO 0: PLOT  255,175: DRAW -255,i: NEXT i
  6710 RETURN 
  6800 LET a=2: RANDOMIZE a+3: INK a: GO SUB 6810: RANDOMIZE a+3: GO SUB 6810: RETURN 
  6810 FOR i=1 TO 50: LET j=RND*255: LET k=RND*175: PLOT  j,k: LET j=RND*(255-j)-RND*j: LET k=RND*(175-k)-RND*k: DRAW j,k: NEXT i
  6820 FOR i=1 TO 50: PLOT  RND*205+25,RND*105: LET j=RND*20+5: DRAW -j,j: DRAW j,j: DRAW j,-j: DRAW -j,-j: NEXT i
  6830 RETURN 
  6900 INK 4: FOR j=90 TO 360 STEP 6
  6910 LET x=j/180*PI: PLOT  SIN x*128,COS x*87: DRAW SIN x*127,COS x*86
  6920 NEXT j
  6930 FOR j=0 TO 359 STEP 6
  6940 LET x=j/180*PI: PLOT  ABS SIN x*128+90,ABS (COS x*80)+70: DRAW (COS x*90),(SIN x*65)
  6950 NEXT j
  6990 RETURN 
  7000 FLASH 8: LET li=o: LET co=23: LET z=PEEK (chart+a)
  7010 PRINT  PAPER o;AT li,co;k$(z, TO 7);" ";AT li+1,co;k$(z,8 TO 14);" ";AT li+2,co;"[C][N][N][N][N][N][N][E]";AT li+3,co;"[F]";k$(z,15 TO 20);"[G]"
  7015 PRINT  PAPER o;AT li+4,co;"[H]";k$(z,21 TO 26);"[I]";AT li+5,co;"[J]      [K]";AT li+6,co;" [L]    [M] ";AT li+7,co;"  [O][P][Q][R]  ";AT li+5,co+3;: GO SUB big: PRINT k$(z,27): GO SUB norm
  7020 IF z<9 THEN  PLOT  (co+2)*8,175-(li+3)*8: DRAW 7,o: DRAW o,-7: DRAW -7,o: DRAW o,7
  7025 IF a=26 OR a=27 THEN  RETURN 
  7030 POKE 23560,o
  7040 LET i=a+USR dot: PAUSE 5: LET i=a+USR dot: PAUSE 5: LET i=PEEK 23560: IF i=o THEN  GO TO 7040
  7050 LET a$=CHR$ i: FLASH o: RETURN 
  7500 PRINT '"Abbildungen der Cursor, wie sie im Gebrauch zu sehen sind,      werden auf den folgenden Seiten gezeigt.": GO SUB wait
  7510 PAPER 7: INK 0: BORDER 7
  7520 CLS : LET m$=" KEYWORD-MODUS": GO SUB 17: PRINT ''"K ist der Cursor, der zu sehen  ist, wenn Sie sich im Keyword-  Modus befinden.": LET m$="K": GO SUB 20
  7530 PRINT ''"In diesem Modus hat man Zugang  zu den Schluesselwoertern auf   dem erhoeten Teil der Tasten.": GO SUB 13: GO SUB 12
  7540 CLS : LET m$=" EXTENDED-MODUS": GO SUB 17: PRINT ''"E ist der Cursor, der im        Extended-Modus zu sehen ist.": LET m$="E": GO SUB 20
  7545 PRINT ''"In diesem Modus hat man Zugang  zu den Schluesselwoertern, die  sich UEBER dem erhoeten Teil    der Tasten befinden.": GO SUB 13: GO SUB 12
  7550 CLS : LET m$=" GRAFIK-MODUS": GO SUB 17: PRINT ''"G ist der Cursor, den man im    Grafik-Modus sieht."''"In diesem Modus hat man Zugang  zu den Blockgrafikzeichen auf   Tasten 1 bis 8.": GO SUB 13: LET m$="▝ ▘  ▗  ▚ ▜  ▟ ▙ ▞G": GO SUB 20: GO SUB 12
  7560 CLS : LET m$="LOWER CASE MODUS": GO SUB 17: PRINT ''"L ist der Cursor, der im Klein- buchstaben-Modus erscheint."''"In diesem Modus hat man Zugang  zu den Buchstaben auf dem er-   hoeten Teil der Tasten mit      Kleinbuchstaben.": GO SUB 13:  LET m$="Kleinbuchstaben mit CursorL": GO SUB 20: GO SUB 12
  7570 CLS : LET m$="UPPER CASE MODUS": GO SUB 17: PRINT ''"C ist der Cursor, der im Gross- buchstaben-Modus erscheint."''"In diesem Modus hat man Zugang  zu den Buchstaben auf dem er-   hoeten Teil der Tasten in GROSS-BUCHSTABEN.": GO SUB 13: LET m$="GROSSBUCHSTABEN MIT CURSORC": GO SUB 20: GO SUB 12
  7580 PAPER 1: BORDER 1: INK 7
  7590 RETURN 
  7700 CLS : PRINT ''''"Denken Sie daran, dass nur die  weissen Teile der Grafik auf    dem Bildschirm sichtbar sind.   Um die schwarzen Teile zu       bekommen, verwenden Sie CAPS    SHIFT mit der Taste.": GO SUB wait: RETURN 
  7800 PRINT ''''"[S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][S][A]                              [B][A] Mit User-Defined Graphics    [B][A] (UDGs) koennen Sie kompli-   [B][A] ziertere Formen herstellen   [B][A] als mit Blockgrafik. Man     [B][A] definiert die Grafik selbst. [B][A]                              [B][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T]"
  7810 GO SUB wait: CLS : RETURN 
  7997 PAPER 1: BORDER 1: INK 7
  7998 RETURN 
  7999 STOP 
  8500 RESTORE USR clow: LET rite=rite+1: PRINT #o;"  Sie haben es richtig gemacht!": FOR i=1 TO 7: BEEP .02=,i*7: RESTORE USR 64310: NEXT i: BEEP .02=,56: RESTORE USR zap: RETURN 
  8900  LOAD *"m";1;"comboSCREEN$ "SCREEN$ 
  8910 FOR i=0 TO 255: POKE i+65024,PEEK (i+22528): POKE i+22528,0: NEXT i
  8920 STOP 
  8999 REM  KEYTOPS STRING ARRAY 
  9000 LET m$="": LET g$="": DIM f$(26): DIM k$(49,27): LET scor=0: RESTORE 9000
  9005 LET s$="!@#$%&'()_<=<>>=<> AND  OR AT  STOP NOT  STEP  TO  THEN ^-+=:`?/*,.;"""
  9010 FOR i=1 TO 49: READ a$: LET k$(i)=a$: NEXT i: RETURN 
  9020 DATA "  BLUE  DEF FN ▝  !       1","  RED    FN    ▘  @       2"," MGNTA   LINE    #       3"," GREEN  OPEN#  ▗  $       4","  CYAN  CLOSE#   %       5"," YELLW   MOVE  ▚  &       6"," WHITE  ERASE  ▜  '       7","        POINT    (       8","         CAT      )       9"," BLACK  FORMAT    _       0"
  9030 DATA "  SIN    ASN   PLOT    <= Q","  COS    ACS   DRAW    <> W","  TAN    ATN   REM     >= E","  INT   VERIFY RUN      < R","  RND   MERGE  RAND     > T","  STR$   [    RETURN AND  Y","  CHR$   ]      IF    OR  U","  CODE    IN  INPUT   AT  I","  PEEK   OUT   POKE       O","  TAB     ©   PRINT       P"
  9040 DATA "  READ    ~    NEW   STOP A"," RESTR  |      SAVE  NOT  S","  DATA   /     DIM   STEP D","  SGN    {     FOR   TO   F","  ABS    }     GOTO  THEN G","  SQR   CIRCLEGOSUB     ^ H","  VAL    VAL$  LOAD     - J","  LEN   SCRN$  LIST     + K","  USR    ATTR  LET      = L"
  9050 DATA "   LN    BEEP  COPY     : Z","  EXP    INK  CLEAR     ` X"," LPRNT  PAPER  CONT     ? C"," LLIST  FLASH  CLS      / V","  BIN   BRIGHTBORDER    * B"," INKY$  OVER   NEXT       N","   PI   INVERSPAUSE       M"
  9060 DATA f$+".",f$+",",f$+";",f$+""""
  9070 DATA "                    GRAPH  ","               CAPS  LOCK  ","               TRUE VIDEO  ","               INV  VIDEO  ","              SYMBOLSHIFT  "
  9080 DATA f$+"[T]",f$+"[S]",f$+"[A]",f$+"[B]"
  9900 BORDER 7: PAPER 7: INK 9: CLS : PRINT "Use GO TO 150 to restart"'"Do not use RUN": STOP 
  9998 REM YOU GET HERE BY PRESSING ` THEN $ WHILE THE TITLE PAGE IS FLASHING
  9999 SAVE "SCREEN$ "SCREEN$ : SAVE "hello" LINE 40: SAVE "keycode"CODE 59000,6536
  474614!RNDr PAUSE PIet NEXT TAB us RESTORE  CONTINUE [S]i BORDER VAL$ or GO SUB ATN ai POKE COS c PAUSE  RETURN COS cr GO TO VAL TAN o LIST INT a LIST x NEW [U]o POKE  OUT  IF [S]ia NEXT  FORMAT  RANDOMIZE [S]lo FOR  IF [T]har POKE ^ CLS [T]lo RUN nolRNDn POKE CODE f NEW LN pl DATA  COPY [R]l POKE b DRAW [S]an PAUSE [S]anSIN TAB en PRINT  BRIGHT ATTR to LIST XATTR fl LLIST vSIN on BORDER SIN it RESTORE  DIM 
  0 COPY  CIRCLE  COPY  COPY  COPY  COPY COS co PAUSE pACS ec POKE  PRINT / LLIST [A]INKEY$la BORDER  REM [S]xB FOR  COPY  COPY  COPY AT tAT  DIM [T] LOAD z0[T]en POKE ▚333TAN y LIST w©L TO  TO  TO h~L TO  TO  TO q}L TO  TO  TO e|# BEEP =b READ uSGN TAN  PAUSE  AND                            THEN 01  BLUE  DEF FN ▝  !       1  RED    FN    ▘  @       2 MGNTA   LINE    #       3 GREEN  OPEN#  ▗  $       4  CYAN  CLOSE#   %       5 YELLW   MOVE  ▚  &       6 WHITE  ERASE  ▜  '       7        POINT    (       8         CAT      )       9 BLACK  FORMAT    _       0  SIN    ASN   PLOT    <= Q  COS    ACS   DRAW    <> W  TAN    ATN   REM     >= E  INT   VERIFY RUN      < R  RND   MERGE  RAND     > T  STR$   [    RETURN AND  Y  CHR$   ]      IF    OR  U  CODE    IN  INPUT   AT  I  PEEK   OUT   POKE       O  TAB     ©   PRINT       P  READ    ~    NEW   STOP A RESTR  |      SAVE  NOT  S  DATA   /     DIM   STEP D  SGN    {     FOR   TO   F  ABS    }     GOTO  THEN G  SQR   CIRCLEGOSUB     ^ H  VAL    VAL$  LOAD     - J  LEN   SCRN$  LIST     + K  USR    ATTR  LET      = L   LN    BEEP  COPY     : Z  EXP    INK  CLEAR     ` X LPRNT  PAPER  CONT     ? C LLIST  FLASH  CLS      / V  BIN   BRIGHTBORDER    * B INKY$  OVER   NEXT       N   PI   INVERSPAUSE       M                          .                          ,                          ;                          "                    GRAPH                 CAPS  LOCK                 TRUE VIDEO                 INV  VIDEO                SYMBOLSHIFT                            [T]                          [S]                          [A]                          [B]S$!@#$%&'()_<=<>>=<> AND  OR AT  STOP NOT  STEP  TO  THEN ^-+=:`?/*,.;"<=#                                                                                                                                                                                                                                                                                                 M Das war nicht die richtige TasteAq