# $File: pascal,v 1.4 2022/07/30 16:53:06 christos Exp $

#------------------------------------------------------------------------------
# $File: pascal,v 1.4 2022/07/30 16:53:06 christos Exp $
# pascal: file(1) magic for Pascal source
#
0 search/8192 (input, Pascal source text
!:mime text/x-pascal
#0 regex \^program Pascal source text
#!:mime text/x-pascal
#0 regex \^record Pascal source text
#!:mime text/x-pascal

# Free Pascal
0 string PPU Pascal unit
>3 string x \b, version %s

# From: Joerg Jenderek
# URL: https://en.wikipedia.org/wiki/Dan_Bricklin
0 string/b Type
# URL: https://dl.winworldpc.com/Dan%20Bricklins%20Demo%20II%20Version%202%20Manual.7z
# Reference: http://mark0.net/download/triddefs_xml.7z/defs/d/dbd-v2.trid.xml
>4 string D2 Dan Bricklin's Demo 2 demo
#!:mime application/octet-stream
!:ext dbd
# URL: https://muhaz.org/turbo-pascal-download-details.html
# From: Joerg Jenderek
# Note: used by Turbo Pascal 5.5 TOUR.EXE
>4 string T2 Turbo Pascal TOUR data
#!:mime application/octet-stream
!:mime application/x-borland-cbt
!:ext cbt
# WHAT iS THAT?
#>4 string \040P Dan Bricklin's Demo 2 foo
#!:mime application/octet-stream
# _PPRINT.SG2 _PASCII.SG2
#!:ext sg2
# Reference: http://mark0.net/download/triddefs_xml.7z/defs/d/dbd-gen.trid.xml
>4 default x Dan Bricklin's Demo demo (generic)
#!:mime application/octet-stream
!:ext dbd