1 files changed, 24 insertions, 0 deletions
diff --git a/old-examples/mp3/MP3I.gf b/old-examples/mp3/MP3I.gf
new file mode 100644
index 000000000..ab8eb7915
--- /dev/null
+++ b/old-examples/mp3/MP3I.gf
@@ -0,0 +1,24 @@
+--# -path=.:resource-0.6/english:resource-0.6/abstract:prelude
+
+incomplete concrete MP3I of MP3 = open Structural, Lexicon in {
+
+  flags startcat=Move ;
+
+  lincat
+    Move = Phr ;
+    Song = NP ;
+
+  lin
+    Play song = ImperOne (ImperVP (PosVG (PredTV play song))) ;
+    CanPlay  song = QuestPhrase (QuestVP ThouNP (PosVG (PredVV CanVV (PredTV play song)))) ;
+    WantPlay song = IndicPhrase (PredVP INP (PosVG (PredVV WantVV (PredTV play song)))) ;
+    WhichPlay = QuestPhrase (IntVP (NounIPOne (UseN song)) (PosVG (PredPassV (VTrans play)))) ;
+
+    ThisSong = DetNP ThisDet (UseN song) ;
+    This = ThisNP ;
+
+    Yesterday = yesterday ;
+
+----    MkSong : String -> Song ;
+
+}