Keskustelu: Koodit: QB: Musiikkia

SCREEN 12
DO
 CLS
 LOCATE 7, 35: PRINT "Playing..."
 a = 1
 PLAY "T130 o2 l4 c+ c+ l8 b-64 b g+ f+ e>  c64 c+< b g+> d64 d+ < b g+ >"
 PLAY "d+64 e < b>  d64 d+ < b>  c64 c+ <b g+>"
 PLAY "c64 c+ <b g+ f+ e  g64 g+ f+ e c+ <b g+ c+" 'kuuluu musiikkia
 DO
  CLS
  LOCATE 6
  PRINT "     Wanna hear again?"
  PRINT
  PRINT "     1) Hear again!"
  PRINT "     2) What's da song is that?"
  PRINT "     3) Go away!"
  INPUT "     My choise is :", v%       'valinta

 LOOP WHILE v% = 0 OR v% > 3
  IF v% = 2 OR v% = 3 THEN a = 2
LOOP WHILE a = 1

IF v% = 2 THEN    'mikä biisi
CLS
LOCATE 6
PRINT "    U dont know?!?"
PRINT
PRINT "    It is  Dream Theater - Take The Time"
SLEEP
END IF

END      'lopetus