'===========================================================================
' Subject: PIANO SIMULATOR                   Date: 06-24-97 (21:26)       
' Author:  Michael G. Stewart                Code: QB, QBasic, PDS        
' Origin:  mikegs@juno.com                 Packet: SOUND.ABC
'===========================================================================
DECLARE SUB drawpiano ()
DECLARE FUNCTION waitkey$ ()
SCREEN 9
WIDTH 80, 43
drawpiano
'GABCDEFGAB
PLAY "<<"
DO
 A$ = waitkey$
 IF A$ = CHR$(27) THEN END
 IF A$ = "Z" THEN PLAY "<G>"
 IF A$ = "X" THEN PLAY "<A>"
 IF A$ = "C" THEN PLAY "<B>"
 IF A$ = "V" THEN PLAY "C"
 IF A$ = "B" THEN PLAY "D"
 IF A$ = "N" THEN PLAY "E"
 IF A$ = "M" THEN PLAY "F"
 IF A$ = "," THEN PLAY "G"
 IF A$ = "." THEN PLAY "A"
 IF A$ = "/" THEN PLAY "B"
 IF A$ = "S" THEN PLAY "<G+>"
 IF A$ = "D" THEN PLAY "<A+>"
 IF A$ = "G" THEN PLAY "C+"
 IF A$ = "H" THEN PLAY "D+"
 IF A$ = "K" THEN PLAY "F+"
 IF A$ = "L" THEN PLAY "G+"
 IF A$ = ";" THEN PLAY "A+"
 IF A$ = "A" THEN PLAY "<"
 IF A$ = "'" THEN PLAY ">"
LOOP



letters:
DATA 777777777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777007777777777777777077777777
DATA 777007777777777777777777777777
DATA 777007777777777777000077777777
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777700000000007777777777
DATA 777777770000000000000077777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000007777777
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777000000000777777777777777777
DATA 777000000000777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777007777777777777777077777777
DATA 777007777777777777777777777777
DATA 777007777777777777000077777777
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777700000000007777777777
DATA 777777770000000000000077777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000007777777
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077707077
DATA 777770000000000000000077000007
DATA 777007777777777777777077707077
DATA 777007777777777777777777000007
DATA 777007777777777777000077707077
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777777777700000000007777077777
DATA 777777770000000000000077007777
DATA 777777700777777777777007070777
DATA 777777700777777777777007007777
DATA 777777700000000000000007777777
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777700000000007777707077
DATA 777777770000000000000077000007
DATA 777777700777777777777007707077
DATA 777777700777777777777007000007
DATA 777777700000000000000007707077
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777777700000000000000777077777
DATA 777777700000000000000777007777
DATA 777777700777777777777007070777
DATA 777777700777777777777007007777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077707077
DATA 777770000000000000000077000007
DATA 777007777777777777777777707077
DATA 777007777777777777777777000007
DATA 777007777777777777777777707077
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777777700000000000000777077777
DATA 777777700000000000000777007777
DATA 777777700777777777777007070777
DATA 777777700777777777777007007777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777707077
DATA 777777700000000000000777000007
DATA 777777700777777777777007707077
DATA 777777700777777777777007000007
DATA 777777700777777777777007707077
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777000000000000000000077077777
DATA 777000000000000000000077007777
DATA 777007777777777777777777070777
DATA 777007777777777777777777007777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777000000000000000000077777777
DATA 777000000000000000000077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777000000000000000000077707077
DATA 777000000000000000000077000007
DATA 777007777777777777777777707077
DATA 777007777777777777777777000007
DATA 777000000000777777777777707077
DATA 777000000000777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777770000000000000000077077777
DATA 777770000000000000000077007777
DATA 777007777777777777777077070777
DATA 777007777777777777777777007777
DATA 777007777777777777000077777777
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077707077
DATA 777770000000000000000077000007
DATA 777007777777777777777077707077
DATA 777007777777777777777777000007
DATA 777007777777777777000077707077
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777777777700000000007777077777
DATA 777777770000000000000077007777
DATA 777777700777777777777007070777
DATA 777777700777777777777007007777
DATA 777777700000000000000007777777
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777700000000007777707077
DATA 777777770000000000000077000007
DATA 777777700777777777777007707077
DATA 777777700777777777777007000007
DATA 777777700000000000000007707077
DATA 777777700000000000000007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777077777
DATA 777777700000000000000777077777
DATA 777777700000000000000777007777
DATA 777777700777777777777007070777
DATA 777777700777777777777007007777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000000077777
DATA 777770000000000000000007777777
DATA 777777777777777777700777777777
DATA 777777777777777770077777777777
DATA 777777777777777007777777777777
DATA 777777777777700777777777777777
DATA 777777777770077777777777777777
DATA 777777777007777777777777777777
DATA 777777700000000000000000077777
DATA 777770000000000000000000077777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 770077777777777777777777770077
DATA 777700777777777777777777007777
DATA 777777007777777777777700777777
DATA 777777770077777777770077777777
DATA 777777777700000000007777777777
DATA 777777777700000000007777777777
DATA 777777770077777777770077777777
DATA 777777007777777777777700777777
DATA 777700777777777777777777007777
DATA 770077777777777777777777770077
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777007777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 770077777777777777777777770077
DATA 770077777777777777777777770077
DATA 777700777777777777777777007777
DATA 777777007777777777777700777777
DATA 777777770077777777770077777777
DATA 777777777700777777007777777777
DATA 777777777700777777007777777777
DATA 777777777777007700777777777777
DATA 777777777777007700777777777777
DATA 777777777777770077777777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777007777777770077777777
DATA 777777777000077777770077777777
DATA 777777777007007777770077777777
DATA 777777777007700777770077777777
DATA 777777777007770077770077777777
DATA 777777777007777007770077777777
DATA 777777777007777700770077777777
DATA 777777777007777770070077777777
DATA 777777777007777777000077777777
DATA 777777777007777777770077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770007777777777777700077777
DATA 777770000777777777777000077777
DATA 777770070077777777770070077777
DATA 777770077007777777700770077777
DATA 777770077700777777007770077777
DATA 777770077770077770077770077777
DATA 777770077777007700777770077777
DATA 777770077777700007777770077777
DATA 777770077777770077777770077777
DATA 777770077777770077777770077777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777777770077777777777777
DATA 777777777777007777777777777777
DATA 777777777700777777777777777777
DATA 777777777777007777777777777777
DATA 777777777777770077777777777777
DATA 777777777777777777777777777777
DATA 777777777777000077777777777777
DATA 777777777777000077777777777777
DATA 777777777777770077777777777777
DATA 777777777777000777777777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777777007777777777777777
DATA 777777777777770077777777777777
DATA 777777777777777700777777777777
DATA 777777777777770077777777777777
DATA 777777777777007777777777777777
DATA 777777777777777777777777777777
DATA 777777777777777777777777777777
DATA 777777777777000777777777777777
DATA 777777777777000777777777777777
DATA 777777777777000777777777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777777770077777777777777
DATA 777777777777707707777777777777
DATA 777777777777777077777777777777
DATA 777777777777777077777777777777
DATA 777777777777777077777777777777
DATA 777777777777777777077777777777
DATA 777777777777777770777777777777
DATA 777777777777777707777777777777
DATA 777777777777777077777777777777
DATA 777777777777770777777777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000000077777
DATA 777777700000000000000000077777
DATA 777770077777777777777777777777
DATA 777770077777777777777777777777
DATA 777777700000000000000007777777
DATA 777777700000000000000007777777
DATA 777777777777777777777770077777
DATA 777777777777777777777770077777
DATA 777770000000000000000007777777
DATA 777770000000000000000007777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700777777777777007777777
DATA 777777700000000000000777777777
DATA 777777700000000000000777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770000000000000000077777777
DATA 777770000000000000000077777777
DATA 777007777777777777777077777777
DATA 777007777777777777777777777777
DATA 777007777777777777000077777777
DATA 777007777777777777000077777777
DATA 777007777777777777770077777777
DATA 777007777777777777770077777777
DATA 777770000000000000007777777777
DATA 777770000000000000007777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777770000000000000000000077777
DATA 777770000000000000000000077777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777770077777777777777770077777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777007777777700777777777
DATA 777777777007777770077777777777
DATA 777777777007777007777777777777
DATA 777777777007700777777777777777
DATA 777777777000077777777777777777
DATA 777777777000077777777777777777
DATA 777777777007700777777777777777
DATA 777777777007777007777777777777
DATA 777777777007777770077777777777
DATA 777777777007777777700777777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700777777777777777777
DATA 777777777700000000000077777777
DATA 777777777700000000000077777777
DATA 777777777777777777777777777777

DATA 777777777777777777777777777777
DATA 777770077777777777777777777777
DATA 777770077777777777777777777777
DATA 777777777777777777777777777777
DATA 777770077777777777007777777777
DATA 777770077777777777007777777777
DATA 777777777777777777777777777777
DATA 777777777777777777007777777777
DATA 777777777777777777007777777777
DATA 777777777777777777707777777777
DATA 777777777777777777007777777777
DATA 777777777777777777777777777777

SUB drawpiano
PALETTE 7, 0
PALETTE 15, 0
PALETTE 4, 0
LOCATE 40
COLOR 14
PRINT "Please Wait..."
LINE (0, 0)-(630, 200), 15, BF
FOR A% = 0 TO 630 STEP 63
 LINE (A%, 0)-(A%, 200), 0
NEXT A%
LINE (42, 0)-(84, 150), 0, BF
LINE (105, 0)-(147, 150), 0, BF
LINE (231, 0)-(273, 150), 0, BF
LINE (294, 0)-(336, 150), 0, BF
LINE (420, 0)-(462, 150), 0, BF
LINE (484, 0)-(526, 150), 0, BF
LINE (547, 0)-(589, 150), 0, BF
RESTORE letters
FOR h% = 1 TO 10
 FOR B% = 1 TO 12
  READ A$
  FOR A% = 1 TO 30
   col% = VAL(MID$(A$, A%, 1))
   c% = B% + 160
   d% = A% + (16 + ((63 * h%) - 63))
   PSET (d%, c%), col%
  NEXT A%
 NEXT B%
NEXT h%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 48
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 111
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 237
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 300
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 426
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 489
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 24
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  c% = B% + 80
  d% = A% + 552
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR h% = 1 TO 10
 FOR B% = 1 TO 12
  READ A$
  FOR A% = 1 TO 30
   col% = VAL(MID$(A$, A%, 1))
   IF col% = 7 THEN col% = 4
   IF col% = 0 THEN col% = 7
   c% = B% + 180
   d% = A% + (16 + ((63 * h%) - 63))
   PSET (d%, c%), col%
  NEXT A%
 NEXT B%
NEXT h%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 48
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 111
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 237
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 300
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 426
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 489
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
FOR B% = 1 TO 12
 READ A$
 FOR A% = 1 TO 30
  col% = VAL(MID$(A$, A%, 1))
  IF col% = 7 THEN col% = 4
  IF col% = 0 THEN col% = 7
  c% = B% + 120
  d% = A% + 552
  PSET (d%, c%), col%
 NEXT A%
NEXT B%
PALETTE
LOCATE 40
PRINT "              "
LOCATE 27
PRINT "Play the piano!"
PRINT "Just press the "; : COLOR 7: PRINT "Grey on Red"; : COLOR 14:PRINT " Keys!"
LINE (117, 215)-(210, 225), 7, B
PAINT (118, 224), 4, 7
LINE (117, 215)-(210, 225), 4, B
END SUB

FUNCTION waitkey$
WHILE KBD$ = ""
KBD$ = INKEY$
WEND
KBD$ = UCASE$(KBD$)
waitkey$ = KBD$

END FUNCTION