XE-Handbuch

Seite 47

Uebungsbeispiele

Die folgenden Beispiele (Listings) sollen Ihnen helfen, die im vorangegangenen BASIC- Kurs erworbenen Kenntnisse zu vertiefen. Wir empfehlen, die Programme vollstaendig abzutippen und dann zu variieren. Bitte beruecksichtigen Sie dabei die jeweiligen Vermerke.

Alle Beispiele sind so abgedruckt, wie sie auf dem Bildschirm erscheinen. Nach jeder Programmzeile ist die RETURN-Taste zu druecken. Der Syntax-Check (Meldung: ERROR) zeigt Ihnen sofort, ob eine nicht zulaessige Eingabe erfolgte. Bitte aendern Sie die Zeile dann entsprechend.

Programmstart: Durch Eingabe von RUN (RETURN)
Abbruch: Durch Druecken der BREAK-Taste.
Erneuter Start durch Eingabe von RUN.
Erneutes Listen durch Eingabe von LIST.

Auch bei Druecken der RESET-Taste bleibt das Programm im RAM-Speicher und kann wie bei einem Programm-Abbruch neu gestartet oder gelistet werden. Mit einem ATARl Programm-Recorder oder einer ATARl Disketten-Station koennen Sie alle Programme fuer weitere Uebungen speichern und bei Bedarf neu laden. Stehen Ihnen diese Datenspeicher nicht zur Verfuegung, so wird das gespeicherte Programm durch die Neueingabe ueberschrieben. Geben Sie dann zur Sicherheit zuvor NEW (RETURN) ein, damitje nach Programmlaenge nicht alle Programmzeilen mit ins Programm uebernommen werden und den Ablauf stoeren.

Beispiel 1

10 REM * * * SIRENE 1 * * *
20 GRAPHICS 18
30 POSITlON 4, 6 : PRINT #6 ; " * * SIRENE * * "
40 FOR I=80 TO 180
50 SOUND 0, I, 10, 10 : SETCOLOR 0, INT ( I / 10 ), 8
60 NeXT I : SETCOLOR 2, 0, 0
70 FOR I=l80 TO 80 STEP -1
80 SOUND 0, I, 10, 10 : SETCOLOR 0, INT ( I / 19 ), 8
90 NeXT I : SETCOLOR 2, 10, 10

100 GOTO 40

BEISPIEL 2

10 ReM * * * SIRENE 2 * * *
20 GRAPHICS 0 : ? "LANGE" ; : INPUT AA : GRAPHICS 18
30 POSITlON 4, 6 : PRINT #6 ; " * * SIRENE* * "
40 FOR I=l TO AA : NEXT I
50 SOUND 0, 80, 10, 10 : SETCOLOR 0, 8, 8
60 SOUND 1, 60, 10, 10 : SETCOLOR 0, 8, 8
70 SeTCOLOR 2, 0, 0
80 FOR I=l TO AA : NEXT I
90 SOUND 0, 120, 10, 10 : SETCOLOR 0, 2, 8
100 SOUND 1, 100, 10, 10 : SETCOLOR 0, 2, 8
110 SeTCOLOR 2, 10, 10
120 GOTO 40

Erstellt am 1.Juli 1998 um 19:10