**** BASIC-LISTINGS ZUM ABTIPPEN ****

BASIC-Programme zum Abtippen

Q: Was ist ein BASIC-Listing?

Ein Listing ist ein vollstaendig abgedrucktes BASIC-Programm zum Abtippen, wie es frueher in Computerzeitschriften und Handbuechern ueblich war. Man tippt jede Zeile selbst ein und lernt so nebenbei, wie ein Programm aufgebaut ist.

Q: Wie tippe ich eines dieser Programme ab?

Oeffne den freien Editor, tippe jede Zeile mit ihrer Zeilennummer ein und bestaetige sie mit RETURN. Zum Schluss startest du das Programm mit RUN.

Q: Laufen diese Programme auch auf einem echten C64 oder in anderen Emulatoren?

Die Listings nutzen den hier unterstuetzten Kern-Befehlssatz und funktionieren daher garantiert im BASIC64-Editor. Da sie sich an original C64 BASIC V2 orientieren, laufen die meisten davon auch unveraendert auf echter Hardware oder in anderen C64-Emulatoren.

14 fertige BASIC-Programme, ganz wie frueher aus dem Computermagazin: selbst eintippen, Zeile fuer Zeile verstehen und mit RUN zum Leben erwecken. Vom ersten Begruessungscomputer bis zum kleinen Textadventure.

Freien Editor oeffnen → Zum Lernkurs

Alle Programme sind eigene Beispiele, geschrieben fuer den Befehlssatz dieses Kurses, und laufen direkt im freien Editor. Unklare Befehle findest du mit Erklaerung im Befehls-Lexikon. Wie es dazu kam, dass man BASIC-Programme frueher aus Zeitschriften abgetippt hat, steht in der Geschichte von BASIC und dem Commodore 64.

SO GEHT'S

Wie du ein Listing abtippst

TIPP 1

Genau abtippen

Zeilennummer, Befehl und Anfuehrungszeichen zaehlen. Ein fehlendes Zeichen fuehrt schnell zu einer Fehlermeldung.

TIPP 2

Zeile fuer Zeile, mit RETURN

Jede Zeile einzeln eintippen und mit RETURN bestaetigen. Die Reihenfolge der Eingabe ist egal, der Rechner sortiert die Zeilen automatisch nach Nummer.

TIPP 3

Mit LIST pruefen, mit RUN starten

LIST zeigt, was gespeichert ist. Passt alles, startest du das Programm mit RUN.

TIPP 4

Fehler? Einfach neu eintippen

Bei ?SYNTAX ERROR tippst du die betroffene Zeilennummer einfach nochmal komplett neu ein, sie ersetzt automatisch die alte Version.

Einsteiger

Der Begrüßungscomputer

Einsteiger

Fragt nach Name und Alter und begrüßt dich persönlich. Der klassische erste Einstieg: PRINT, INPUT und eine einfache Verzweigung mit IF/THEN.

Befehle: PRINT INPUT IF/THEN GOTO

Listing

10 PRINT "**** DER BEGRUESSUNGSCOMPUTER ****"
20 PRINT
30 INPUT "WIE HEISST DU";N$
40 INPUT "WIE ALT BIST DU";A
50 PRINT
60 PRINT "HALLO "; N$; "!"
70 IF A<18 THEN 100
80 PRINT "MIT ";A;"JAHREN HAST DU SCHON EINIGES ERLEBT."
90 GOTO 110
100 PRINT "MIT ";A;"JAHREN FAENGT ALLES ERST AN."
110 PRINT "VIEL SPASS MIT BASIC!"

Der Taschenrechner

Einsteiger

Rechnet zwei Zahlen mit +, -, * oder / zusammen. Zeigt, wie man mit IF/THEN mehrere Fälle sauber unterscheidet.

Befehle: PRINT INPUT IF/THEN END

Listing

10 PRINT "**** DER TASCHENRECHNER ****"
20 PRINT
30 INPUT "ERSTE ZAHL";A
40 INPUT "RECHENZEICHEN (+ - * /)";R$
50 INPUT "ZWEITE ZAHL";B
60 IF R$="+" THEN 140
70 IF R$="-" THEN 160
80 IF R$="*" THEN 180
90 IF R$="/" THEN 200
100 PRINT "UNBEKANNTES RECHENZEICHEN."
110 END
140 PRINT A;"+";B;"=";A+B
150 END
160 PRINT A;"-";B;"=";A-B
170 END
180 PRINT A;"*";B;"=";A*B
190 END
200 IF B=0 THEN 230
210 PRINT A;"/";B;"=";A/B
220 END
230 PRINT "DIVISION DURCH NULL GEHT NICHT!"

Der Temperatur-Umrechner

Einsteiger

Rechnet Celsius in Fahrenheit um und zurück. Übung für Formeln, INPUT und eine kleine Menüführung.

Befehle: PRINT INPUT IF/THEN GOTO

Listing

10 PRINT "**** TEMPERATUR-UMRECHNER ****"
20 PRINT
30 PRINT "1 = CELSIUS IN FAHRENHEIT"
40 PRINT "2 = FAHRENHEIT IN CELSIUS"
50 INPUT "DEINE WAHL";W
60 IF W=1 THEN 90
70 IF W=2 THEN 120
80 GOTO 150
90 INPUT "GRAD CELSIUS";C
100 PRINT C;"GRAD CELSIUS SIND";C*9/5+32;"GRAD FAHRENHEIT."
110 END
120 INPUT "GRAD FAHRENHEIT";F
130 PRINT F;"GRAD FAHRENHEIT SIND";(F-32)*5/9;"GRAD CELSIUS."
140 END
150 PRINT "BITTE 1 ODER 2 EINGEBEN."

Der BMI-Rechner

Einsteiger

Berechnet den Body-Mass-Index aus Größe und Gewicht und ordnet ihn per IF-Kette einer Kategorie zu.

Befehle: PRINT INPUT IF/THEN END

Listing

10 PRINT "**** DER BMI-RECHNER ****"
20 PRINT
30 INPUT "GROESSE IN METERN (Z.B. 1.75)";G
40 INPUT "GEWICHT IN KILO";K
50 B=K/(G*G)
60 PRINT
70 PRINT "DEIN BMI IST";B
80 IF B<18.5 THEN 130
90 IF B<25 THEN 150
100 IF B<30 THEN 170
110 PRINT "KATEGORIE: STARKES UEBERGEWICHT"
120 END
130 PRINT "KATEGORIE: UNTERGEWICHT"
140 END
150 PRINT "KATEGORIE: NORMALGEWICHT"
160 END
170 PRINT "KATEGORIE: UEBERGEWICHT"

Schleifen & Muster

Das Sternendreieck

Schleifen & Muster

Zeichnet ein Dreieck aus Sternchen in wählbarer Höhe. Der Klassiker für verschachtelte FOR/NEXT-Schleifen.

Befehle: PRINT INPUT FOR/NEXT

Listing

10 PRINT "**** DAS STERNENDREIECK ****"
20 PRINT
30 INPUT "WIE HOCH SOLL ES SEIN (1-20)";H
40 FOR Z=1 TO H
50 S$=""
60 FOR X=1 TO Z
70 S$=S$+"*"
80 NEXT X
90 PRINT S$
100 NEXT Z

Das Einmaleins-Training

Schleifen & Muster

Stellt fünf zufällige Kopfrechenaufgaben und zählt die richtigen Antworten. Kombiniert Schleifen, Zufallszahlen und IF/THEN.

Befehle: FOR/NEXT RND INT IF/THEN

Listing

10 PRINT "**** EINMALEINS-TRAINING ****"
20 PRINT
30 PUNKTE=0
40 FOR I=1 TO 5
50 A=INT(RND(1)*10)+1
60 B=INT(RND(1)*10)+1
70 PRINT A;" MAL ";B;" = ?"
80 INPUT "DEINE ANTWORT";L
90 IF L=A*B THEN 120
100 PRINT "LEIDER FALSCH. RICHTIG WAERE";A*B
110 GOTO 140
120 PRINT "RICHTIG!"
130 PUNKTE=PUNKTE+1
140 NEXT I
150 PRINT
160 PRINT "DU HAST";PUNKTE;"VON 5 RICHTIG."

Die Fibonacci-Folge

Schleifen & Muster

Berechnet beliebig viele Zahlen der Fibonacci-Folge. Zeigt, wie man Werte in einer Schleife weiterreicht.

Befehle: FOR/NEXT STR$

Listing

10 PRINT "**** DIE FIBONACCI-FOLGE ****"
20 PRINT
30 INPUT "WIE VIELE ZAHLEN (MAX 20)";N
40 A=0
50 B=1
60 F$=""
70 FOR I=1 TO N
80 F$=F$+STR$(A)+" "
90 C=A+B
100 A=B
110 B=C
120 NEXT I
130 PRINT F$

Ist es eine Primzahl?

Schleifen & Muster

Prüft, ob eine eingegebene Zahl eine Primzahl ist. Übung für Schleifen mit eingebauter Bedingung.

Befehle: FOR/NEXT IF/THEN INT

Listing

10 PRINT "**** IST ES EINE PRIMZAHL? ****"
20 PRINT
30 INPUT "ZAHL EINGEBEN";N
40 IF N<2 THEN 130
50 P=1
60 FOR T=2 TO N-1
70 IF N/T<>INT(N/T) THEN 90
80 P=0
90 NEXT T
100 IF P=1 THEN 120
110 PRINT N;"IST KEINE PRIMZAHL."
115 END
120 PRINT N;"IST EINE PRIMZAHL."
125 END
130 PRINT N;"IST KEINE PRIMZAHL (KLEINER ALS 2)."

Text & Strings

Der Palindrom-Test

Text & Strings

Prüft, ob ein Wort vorwärts und rückwärts gelesen gleich ist. Übung für Textbefehle wie MID$ und LEN.

Befehle: FOR/NEXT STEP LEN MID$

Listing

10 PRINT "**** PALINDROM-TEST ****"
20 PRINT
30 INPUT "WORT EINGEBEN";W$
40 L=LEN(W$)
50 R$=""
60 FOR I=L TO 1 STEP -1
70 R$=R$+MID$(W$,I,1)
80 NEXT I
90 PRINT
100 PRINT "RUECKWAERTS: ";R$
110 IF W$=R$ THEN 140
120 PRINT "DAS IST KEIN PALINDROM."
130 END
140 PRINT "DAS IST EIN PALINDROM!"

Der Passwort-Generator

Text & Strings

Baut aus Buchstaben und Zahlen ein zufälliges Passwort in gewünschter Länge.

Befehle: FOR/NEXT RND MID$

Listing

10 PRINT "**** DER PASSWORT-GENERATOR ****"
20 PRINT
30 Z$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
40 INPUT "WIE VIELE ZEICHEN (4-20)";N
50 P$=""
60 FOR I=1 TO N
70 X=INT(RND(1)*36)+1
80 P$=P$+MID$(Z$,X,1)
90 NEXT I
100 PRINT
110 PRINT "DEIN PASSWORT: ";P$

Spiele & Grafik

Der Ampel-Simulator

Spiele & Grafik

Lässt den Bildschirmrahmen wie eine Ampel von Rot über Gelb zu Grün wechseln. Übung für POKE und Wartezeiten.

Befehle: POKE FOR/NEXT

Listing

10 PRINT "**** DER AMPEL-SIMULATOR ****"
20 PRINT "SCHAU AUF DEN BILDSCHIRM-RAHMEN!"
30 FOR D=1 TO 3
40 POKE 53280,2
50 PRINT "ROT"
60 FOR W=1 TO 15
70 NEXT W
80 POKE 53280,7
90 PRINT "ROT-GELB"
100 FOR W=1 TO 8
110 NEXT W
120 POKE 53280,5
130 PRINT "GRUEN"
140 FOR W=1 TO 15
150 NEXT W
160 POKE 53280,7
170 PRINT "GELB"
180 FOR W=1 TO 8
190 NEXT W
200 NEXT D
210 POKE 53280,14
220 PRINT "ENDE DER SIMULATION."

Der Lottozahlen-Generator

Spiele & Grafik

Zieht sechs eindeutige Zufallszahlen von 1 bis 49, ganz ohne doppelte Zahl. Zeigt Felder (Arrays) im Einsatz.

Befehle: DIM RND IF/THEN GOTO

Listing

10 PRINT "**** LOTTOZAHLEN-GENERATOR (6 AUS 49) ****"
20 PRINT
30 DIM G(49)
40 C=0
50 IF C=6 THEN 110
60 X=INT(RND(1)*49)+1
70 IF G(X)=1 THEN 50
80 G(X)=1
90 C=C+1
100 GOTO 50
110 PRINT "DEINE ZAHLEN:"
120 FOR N=1 TO 49
130 IF G(N)=0 THEN 150
140 PRINT N
150 NEXT N

Der Reaktionstest

Spiele & Grafik

Misst deine Reaktionszeit auf einen Tastendruck in Sekunden. Übung für GET und die eingebaute Systemuhr TI.

Befehle: GET TI RND

Listing

10 PRINT "**** DER REAKTIONSTEST ****"
20 PRINT
30 PRINT "GLEICH ERSCHEINT EIN STERN."
40 PRINT "DRUECK DANN SOFORT EINE TASTE!"
50 FOR W=1 TO INT(RND(1)*60)+30
60 NEXT W
70 PRINT "*** JETZT! ***"
80 T=TI
90 GET A$
100 IF A$="" THEN 90
110 Z=TI-T
120 PRINT
130 PRINT "DEINE REAKTIONSZEIT:";Z/60;"SEKUNDEN"

Die Schatzkarte

Spiele & Grafik

Ein kleines Text-Abenteuer mit mehreren Wegen und Enden. Zeigt, wie man mit ON...GOTO ganze Verzweigungen baut.

Befehle: ON GOTO IF/THEN

Listing

10 PRINT "**** DIE SCHATZKARTE ****"
20 PRINT
30 PRINT "DU STEHST AM RAND EINES ALTEN WALDES."
40 PRINT "EINE VERWITTERTE KARTE ZEIGT ZWEI WEGE."
50 PRINT
60 PRINT "1 = DEM PFAD LINKS FOLGEN"
70 PRINT "2 = DEM PFAD RECHTS FOLGEN"
80 INPUT "DEINE WAHL";W
90 ON W GOTO 120,220
100 PRINT "DAS WAR KEINE GUELTIGE WAHL."
110 END
120 PRINT
130 PRINT "DER LINKE PFAD FUEHRT ZU EINER DUNKLEN HOEHLE."
140 PRINT "AUS DEM INNEREN HOERST DU EIN LEISES KNURREN."
150 PRINT
160 PRINT "1 = IN DIE HOEHLE HINEINGEHEN"
170 PRINT "2 = LIEBER UMKEHREN"
180 INPUT "DEINE WAHL";W
190 IF W=1 THEN 320
200 PRINT "DU KEHRST LIEBER UM. DAS ABENTEUER ENDET HIER."
210 END
220 PRINT
230 PRINT "DER RECHTE PFAD FUEHRT AN EINEN REISSENDEN FLUSS."
240 PRINT "EIN ALTES BOOT LIEGT AM UFER."
250 PRINT
260 PRINT "1 = MIT DEM BOOT UEBERSETZEN"
270 PRINT "2 = AM UFER ENTLANGGEHEN"
280 INPUT "DEINE WAHL";W
290 IF W=1 THEN 360
300 PRINT "DU FINDEST KEINEN WEITEREN WEG UND KEHRST UM."
310 END
320 PRINT
330 PRINT "MUTIG GEHST DU HINEIN - UND FINDEST NUR EINEN ALTEN FUCHS."
340 PRINT "KEIN SCHATZ, ABER EIN SPANNENDES ERLEBNIS!"
350 END
360 PRINT
370 PRINT "AUF DER ANDEREN SEITE GLITZERT ETWAS IM SAND..."
380 PRINT "DU HAST DIE SCHATZTRUHE GEFUNDEN! HERZLICHEN GLUECKWUNSCH!"
390 END

Kein Programm gefunden. Versuch einen anderen Suchbegriff.

HAEUFIGE FRAGEN

Fragen zu den Listings

Was ist ein BASIC-Listing?

Ein Listing ist ein vollständig abgedrucktes BASIC-Programm zum Abtippen, wie es früher in Computerzeitschriften und Handbüchern üblich war. Man tippt jede Zeile selbst ein und lernt so nebenbei, wie ein Programm aufgebaut ist.

Wie tippe ich eines dieser Programme ab?

Öffne den freien Editor, tippe jede Zeile mit ihrer Zeilennummer ein und bestätige sie mit RETURN. Zum Schluss startest du das Programm mit RUN.

Laufen diese Programme auch auf einem echten C64 oder in anderen Emulatoren?

Die Listings nutzen den hier unterstützten Kern-Befehlssatz und funktionieren daher garantiert im BASIC64-Editor. Da sie sich an original C64 BASIC V2 orientieren, laufen die meisten davon auch unverändert auf echter Hardware oder in anderen C64-Emulatoren.

Sind die Programme kostenlos nutzbar?

Ja. Alle Listings auf dieser Seite sind eigene, frei erfundene Beispielprogramme und dürfen kostenlos zum Lernen und Ausprobieren genutzt werden.

Jetzt selbst eintippen

Oeffne den freien Editor und leg mit dem ersten Listing los.

Freien Editor oeffnen →