Lektion9 - Kleincomputer KC85 Einleitung

BASIC-LERNEN
Nun muß ab Zeile 60 der Vergleich der drei Worte beginnen.
60 IF A$(0)>A$(1) AND A$(1)>A$(2) THEN PRINT A$(2),A$(1),A$(0)
70 IF A$(0)>A$(1) AND A$(0)<A$(2) THEN PRINT A$(1),A$(0),A$(2)
80 IF A$(0)<A$(1) AND A$(1)<A$(2) THEN PRINT A$(0),A$(1),A$(2)
90 IF A$(2)>A$(0) AND A$(2)<A$(1) THEN PRINT A$(0),A$(2),A$(1)
100 IF A$(0)>A$(2) AND A$(0)<A$(1) THEN PRINT A$(2),A$(0),A$(1)
110 IF A$(2)>A$(1) AND A$(2)<A$(0) THEN PRINT A$(1),A$(2),A$(0)
120 END
Zum Programm "Palindrom" sind folgende Änderungen in den Zeilen:
10 CLS:A$=""
45 A$=A$+MIDS(Z$,I,1)
55 IF A$=Z$ THEN PRINT " IST EIN PALINDROM"
vorzunehmen. Ein
Das Programm "Quersumme" benötigt z.B. folgende Ergänzungen:
10 CLS:Q=0:A$=""
20 INPUT "Zahl=";K
50 Q=Q+VAL(MIDS(A$,I,1))
70 PRINT "DIE QUERSUMME IST";Q
Mit der Anweisung
Programm fortgesetzt werden soll oder nicht.
hinzugefügt:
75 PRINT "WEITER (J)?"
80 A$=INKEY$:IF A$="J" THEN 10:ELSE 80
Abgebrochen wird dieses Programm mit <BREAK>.

2.9. LEKTION9

Um in dem Programm
erscheinen zu lassen, wird in der Zeile 60 folgendes geändert:
60 INK V+16:PRINT V,:PRINT F$(V);"AUF";F$(H)
Das Programm "Würfel" wird als Lösung angeboten. Sie erreichen es
durch Drücken der <F1>-Taste.
In den folgenden
Titelbildgestaltung dieses Programms gegeben:
3000 REM * * WUERFELN * *
3001 RANDOMIZE:PAPER0:CLS:WINDOW 2,15,2,36:COLOR 7,2:CLS
3002 FOR V=1 TO INT(31*RND(1)):INK V
3003 LOCATE 6,10:PRINT "WUERFELSPIEL"
3004 LOCATE 8,10:PRINT "HABEN SIE GLUECK?"
3005 NEXT:PAUSE 30
3006 WINDOW:LOCATE 28,28:INPUT"<ENTER>";D
3010 WINDOW:COLOR 7,2:CLS:CLS:PRINT "WUERFELN MIT 2 WUERFELN"
13
Palindrom ist
INKEYS soll nun abgefragt werden,
"Farben" die
BASIC-Zeilen
z.B. IMI.
Dazu wird folgendes
Vordergrundfarbe
ist ein Lösungsvorschlag zur
ob das
blinkend