SparrowOSTS_121127.ISO

SparrowOS/Apps/MusicOrgan/Examples/silver.CPP

@@ -0,0 +1,25 @@
+//8 has words
+
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("W13qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
+		"Love \0 \0 \0 \0 \0 \0ev\0 \0ery \0 \0sec\0ond.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("qF!2GsGG!!GG3GFG!FqAeD!2G!3etDBEsFCFC",
+		"World -- \0 \0 \0 \0 \0 \0all \0 \0that \0 \0beck\0ons.\n\0 \0 \0 \0 \0 \0 \0 \0 \0");
+	Play("qBG!!FsEAEAqEFGeF!C",
+		" \0Life \0is \0too \0 \0 \0 \0prec\0i\0ous.\n\0 \0 \0");
+	Play("qBG!!FsEAEAqEFGeF!C",
+		" \0Can \0be \0 \0 \0 \0 \0worr\0i\0ous.\n\0 \0 \0");
+  }
+  } catch
+    CatchAll;
+  Snd(0);
+}
+
+Song;