Kleincomputer KC85 Einleitung Seite 15

BASIC-LERNEN 15
Um das Koordinatensystem schneller zu zeichnen, werden die
Befehle PSET durch LINE ersetzt:
40 LINE 0,140,300,140
60 LINE 12,0,12,255
Im Programm "DREIECK" sollen die Dreiecke in der Bildschirmmitte
einander zulaufen und sich dabei vergrößern. So ist ein
Lösungsvorschlag:
10 WINDOWS 0,31,0,39: CLS
20 FOR I=30 TO 100 STEP 10: Z=255-I: K=I-30
30 LINE I, I, I+K, I: LINE I+K, I, I, I+K: LINE I, I+K, I, I
40 LINE I, I, Z-K, I: LINE Z-K, I, Z, I+K: LINE I, I+K, Z, I
50 LINE I, Z, I+K, Z: LINE I+K, Z, I, Z-K: LINE I, Z-K, I, Z
60 LINE Z, Z, Z-K, Z: LINE Z-K, Z, Z, Z-K: LINE Z, Z-K, Z, Z
Lösungsvorschlag zum Programm "Kreise":
10 WINDOW: CLS
20 FOR R=5 TO 200 STEP 10
30 CIRCLE 152,130,R
40 NEXT: END
Um symmetrische Kreise darzustellen, ist folgender Vorschlag
gegeben:
10 RANDOMIZE:WINDOW:CLS
20 R=INT (100 * RND(1))
30 F=INT (15 * RND(1))
40 N=INT (150 *RND(1)): X=155-N: X1=155+N
50 Y=INT (200 * RND(1))
60 CIRCLE X,, Y, R, F
70 CIRCLE X1, Y, R, F
80 GOTO 20: END
Ein Lösungsvorschlag für das Programm "C-Dur auf den Tasten A
bis _"
wäre:
10 ! C-Dur: C-D-E-F-G-H-C-D1-E1-F1
20 B$ = INKEY$: IFB$="" THEN 20
30 ! TONABSCHALTUNG U. PROGRAMMENDE
40 IF B$="0" THEN SOUND 0,0,0,0,0,0: END
50 REM TONAUSGABE
60 IF B$="A" THEN SOUND 216,00,0,31,0: GOTO 20
70 IF B$="S" THEN SOUND 192,00,0,31,0: GOTO 20
80 IF B$="D" THEN SOUND 171,00,0,31,0: GOTO 20
90 IF B$="F" THEN SOUND 162,00,0,31,0: GOTO 20
100 IF B$="G" THEN SOUND 144,00,0,31,0: GOTO 20
110 IF B$="H" THEN SOUND 128,00,0,31,0: GOTO 20
120 IF B$="J" THEN SOUND 114,00,0,31,0: GOTO 20
130 IF B$="K" THEN SOUND 108,00,0,31,0: GOTO 20
140 IF B$="L" THEN SOUND 96,00,0,31,0: GOTO 20
150 IF B$="+" THEN SOUND 86,00,0,31,0: GOTO 20
160 IF B$="_" THEN SOUND 81,00,0,31,0: GOTO 20
170 GOTO 20