; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1350&highlight= ; Author: J-The-Grey (updated for PB3.93 by ts-soft) ; Date: 14. June 2003 OpenConsole() If ReadFile(0,"d:\Meat Loaf - Bat out of hell.mp3") ; Pfad ggf. anpassen !!! MemPointer = AllocateMemory(128) ; 128 byte reservieren If MemPointer FileSeek(Lof()-128) ReadData(MemPointer, 128) ; die letzten 128 byte der Datei auslesen header$ = PeekS(MemPointer, 3) If header$ = "TAG" ; 3 Zeichen songtitle$ = Trim(PeekS(MemPointer + 3,30)) ; 30 Zeichen artist$ = Trim(PeekS(MemPointer + 33,30)) ; 30 Zeichen album$ = Trim(PeekS(MemPointer + 63,30)) ; 30 Zeichen year$ = Trim(PeekS(MemPointer + 93, 4)) ; 4 Zeichen comment$ = Trim(PeekS(MemPointer + 97,30)) ; 30 Zeichen genre = PeekB(MemPointer + 127) ; 1 Zeichen PrintN("Titel: " + songtitle$) PrintN("Kuenstler: " + artist$) PrintN("Album: " + album$) PrintN("Jahr: " + year$) PrintN("Kommentar: " + comment$) PrintN("Genre: " + Str(genre)) Else PrintN("Keine ID3-V1 Tags gefunden!") EndIf EndIf Else PrintN("Datei nicht gefunden!") EndIf Input() End ; ExecutableFormat=Windows ; FirstLine=1 ; EOF