* Demonstrationsprogramm zu Farbe + Grafik unter Redabas
* (c) ML-Soft 02.10.93
* TEST.PRG
* ------------------------------------------------------
set talk off
set raw on
clear
erase
* Vordergrund: gelb    Hintergrund: rot
? chr(27)+'N'+chr(6)+chr(27)+'O'+chr(2)
@ 1,9 say 'Das ist eine Demonstration zu Farbe & Grafik von Redabas'
@ 2,14 say 'der Terminals KC85/2 bis KC85/4 unter MicroDOS'
?
* Grafikfarbe: weiss
? chr(27)+'C'+chr(7)
* Linie:
? chr(27)+'D'+chr(0)+chr(0)+chr(210)+chr(63)+chr(1)+chr(210)
@ 6,3 say 'vorgestellt werden die Funktionen:'

* Fenster 1 und 2 definieren:
? chr(27)+'L'+chr(1)+chr(2)+chr(11)+chr(18)+chr(8)
? chr(27)+'L'+chr(2)+chr(1)+chr(10)+chr(18)+chr(8)
* Fenster 1 aufrufen:
? chr(27)+'F'+chr(1)
* Farbe einstellen + CLS:
? chr(27)+'H'+chr(7)+chr(0)+chr(27)+'V'+chr(12)
* Fenster 2:
? chr(27)+'F'+chr(2)
? chr(27)+'H'+chr(7)+chr(1)+chr(27)+'V'+chr(12)

@  8,5 say '- Fenstertechnik'

@  9,5 say '- Kreise'
* Grafikfarbe: blau
?? chr(27)+'C'+chr(1)

store chr(27)+'E'+chr(210)+chr(0)+chr(120) to circl
?? circl+chr(40)
?? circl+chr(30)
?? circl+chr(20)
?? circl+chr(10)
?? chr(27)+'A'+chr(210)+chr(0)+chr(120)

@ 10,5 say '- Linien'
* Grafikfarbe: gruen
?? chr(27)+'C'+chr(4)
? chr(27)+'D'+chr(10)+chr(1)+chr(180)+chr(50)+chr(1)+chr(60)
? chr(27)+'D'+chr(10)+chr(1)+chr(160)+chr(50)+chr(1)+chr(80)
? chr(27)+'D'+chr(10)+chr(1)+chr(140)+chr(50)+chr(1)+chr(100)
? chr(27)+'D'+chr(10)+chr(1)+chr(120)+chr(50)+chr(1)+chr(120)
? chr(27)+'D'+chr(10)+chr(1)+chr(100)+chr(50)+chr(1)+chr(140)
? chr(27)+'D'+chr(10)+chr(1)+chr(80)+chr(50)+chr(1)+chr(160)
? chr(27)+'D'+chr(10)+chr(1)+chr(60)+chr(50)+chr(1)+chr(180)
? chr(27)+'D'+chr(30)+chr(1)+chr(60)+chr(30)+chr(1)+chr(180)

@ 11,5 say '- CAOS-Zeichenausgabe'
* Fenster 4 definieren:
? chr(27)+'L'+chr(4)+chr(2)+chr(22)+chr(20)+chr(5)
* Fenster 4 aufrufen:
? chr(27)+'F'+chr(4)
* Farbe einstellen + CLS:
? chr(27)+'H'+chr(8)+chr(2)+chr(27)+'V'+chr(12)
?? chr(27)+'V'+'`'
?? chr(27)+'V'+' '
?? chr(27)+'V'+'M'
?? chr(27)+'V'+'L'
?? chr(27)+'V'+'-'
?? chr(27)+'V'+'S'
?? chr(27)+'V'+'o'
?? chr(27)+'V'+'f'
?? chr(27)+'V'+'t'
?? chr(27)+'V'+"'"
?? chr(27)+'V'+'9'
?? chr(27)+'V'+'3'

* Toene definieren:
store 0 to N
store 216 to C
store 192 to D
store 171 to E
store 162 to F
store 144 to G
store 128 to A
store 114 to H
store 108 to C1
store 96 to D1
store 86 to E1
store chr(27)+'G' to SOUND
@ 12,5 say '- einfache Melodien'
@ 22,0
* Lied  Wachet auf:
?? SOUND+chr(C)+chr(0)+chr(0)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(E)+chr(0)+chr(0)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(G)+chr(0)+chr(0)+chr(0)+chr(20)+chr(64)
?? SOUND+chr(E)+chr(0)+chr(0)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(G)+chr(0)+chr(0)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(C1)+chr(0)+chr(0)+chr(0)+chr(20)+chr(64)
?? SOUND+chr(C1)+chr(0)+chr(0)+chr(0)+chr(15)+chr(32)
?? SOUND+chr(H)+chr(0)+chr(0)+chr(0)+chr(20)+chr(48)
?? SOUND+chr(A)+chr(0)+chr(0)+chr(0)+chr(10)+chr(16)
?? SOUND+chr(H)+chr(0)+chr(0)+chr(0)+chr(15)+chr(32)
?? SOUND+chr(C1)+chr(0)+chr(0)+chr(0)+chr(20)+chr(64)
do while N<2
?? SOUND+chr(C1)+chr(0)+chr(C)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(C1)+chr(0)+chr(E)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(E1)+chr(0)+chr(G)+chr(0)+chr(20)+chr(48)
?? SOUND+chr(D1)+chr(0)+chr(G)+chr(0)+chr(20)+chr(16)
?? SOUND+chr(C1)+chr(0)+chr(E)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(C1)+chr(0)+chr(G)+chr(0)+chr(15)+chr(16)
?? SOUND+chr(G)+chr(0)+chr(C1)+chr(0)+chr(20)+chr(32)
?? SOUND+chr(E)+chr(0)+chr(C1)+chr(0)+chr(10)+chr(32)
?? SOUND+chr(C)+chr(0)+chr(C1)+chr(0)+chr(15)+chr(32)
?? SOUND+chr(D)+chr(0)+chr(H)+chr(0)+chr(20)+chr(32)
?? SOUND+chr(G)+chr(0)+chr(H)+chr(0)+chr(10)+chr(16)
?? SOUND+chr(G)+chr(0)+chr(A)+chr(0)+chr(10)+chr(16)
?? SOUND+chr(F)+chr(0)+chr(H)+chr(0)+chr(15)+chr(32)
?? SOUND+chr(E)+chr(0)+chr(C1)+chr(0)+chr(20)+chr(64)
store N+1 to N
enddo

@ 21,0
wait
erase
?? chr(27)+'N'+chr(7)+chr(27)+'O'+chr(1)
return
Grafikfarbe: weiss
? chr(27)+'C'+chr(7)
* Linie:
? chr(27)+'D'+chr(0)+chr(0)+chr(210)+chr(63)+chr(1