home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085a.adf / archives / af85a1.lzx / Dialog_Procedures / Source / ExamineFile.AMOS / ExamineFile.amosSourceCode
Encoding:
AMOS Source Code  |  1978-07-26  |  3.2 KB  |  88 lines
  1. Procedure _EXAMINEFILE[F$]
  2.    '
  3.    Open In 1,F$
  4.    L=Lof(1)
  5.    H$=Input$(1,Min(L,1088))
  6.    Close 1
  7.    '
  8.    Restore DAT
  9.    '
  10.    Repeat 
  11.       Read S1,H1$,S2,H2$,FT$
  12.       If(Mid$(H$,S1,Len(H1$))=H1$) and(Mid$(H$,S2,Len(H2$))=H2$)
  13.          OK=1
  14.          Exit 
  15.       End If 
  16.    Until H1$="END"
  17.    '
  18.    If H1$="END"
  19.       C=0
  20.       For N=1 To Len(H$)
  21.          A=Asc(Mid$(H$,N,1))
  22.          If A>=32 or A=10 or A=9
  23.             Inc C
  24.          End If 
  25.       Next N
  26.       P=(C*100)/Len(H$)
  27.       If P>95
  28.          FT$="ASCII TEXT"
  29.       End If 
  30.    End If 
  31.    '
  32.    DAT:
  33.    Data 1,"FORM",9,"ILBM","IFF PICTURE"
  34.    Data 1,"FORM",9,"SMUS","IFF MUSIC (AEGIS SONIX)"
  35.    Data 1,"FORM",9,"8SVX","IFF SAMPLE"
  36.    Data 1,"FORM",9,"ANIM","IFF ANIMATION"
  37.    Data 1,"FORM",9,"SC3D","SCULPT 3D SCENE"
  38.    Data 1,"AmSp",1,"","AMOS BOB BANK"
  39.    Data 1,"AmIc",1,"","AMOS ICON BANK"
  40.    Data 1,"AmBk",13,"Music","AMOS MUSIC BANK"
  41.    Data 1081,"M.K.",1,"","NOISE/SOUND/PRO TRACKER MODULE"
  42.    Data 1081,"FLT4",1,"","NOISE/SOUND/PRO TRACKER MODULE"
  43.    Data 1,"BeEp",1,"","JAMCRACKER MODULE"
  44.    Data 1,Chr$(65)+Chr$(250)+Chr$(15)+Chr$(250),1,"","SIDMON V1.0 MODULE"
  45.    Data 27,"V.2",1,"","BPSOUNDMON MODULE"
  46.    Data 1,"SMOD",1,"","FUTURE COMPOSER V1.0-V1.3"
  47.    Data 365,"DELTA MUSIC V2.0",0,"","DELTA MUSIC V2.0"
  48.    Data 1,"MMD1",1,"","MED MODULE"
  49.    Data 1,"MMD0",6,Chr$(2),"MED MODULE (4 CHANNELS)"
  50.    Data 1,"MMD0",6,Chr$(1),"MED MODULE (8 CHANNELS)"
  51.    Data 1,"AmBk",13,"Tracker","SOUNDTRACKER MODULE IN AN AMOS BANK"
  52.    Data 1,"AmBk",13,"Pac.Pic","AMOS PAC PIC"
  53.    Data 1,"AmBk",13,"Samples","AMOS SAMPLE BANK"
  54.    Data 1,"AmBk",13,"Menu","AMOS MENU BANK"
  55.    Data 1,"AmBk",13,"Amal","AMOS AMAL BANK"
  56.    Data 1,"AmBk",13,"Data","AMOS DATA BANK"
  57.    Data 1,"AmBk",13,"Resource","AMOS RESOURCE BANK"
  58.    Data 1,"AmBk",1,"","AMOS BANK"
  59.    Data 1,"AmBs",1,"","SET OF AMOS BANKS"
  60.    Data 1,"AMOS Basic",1,"","AMOS 1.3 PROGRAM"
  61.    Data 1,"AMOS Pro",1,"","AMOS PROFESSIONAL PROGRAM"
  62.    Data 1,Chr$(15)+Chr$(0)+Chr$(0),1,"","FONT DATA FILE"
  63.    Data 1,Chr$(0)+Chr$(0)+Chr$(3)+Chr$($F3),33,"pdNu","WORKBENCH FONT"
  64.    Data 1,Chr$(0)+Chr$(0)+Chr$(3)+Chr$($F3),1,"","EXECUTABLE PROGRAM"
  65.    Data 1,"PP20",1,"","POWERPACKEDDATA FILE"
  66.    Data 1,"MED"+Chr$(4),1,"","OCTAMED MODULE"
  67.    Data 1,"MSH"+Chr$(0),1,"","OCTAMED SYNTHSOUND"
  68.    Data 1,Chr$(227)+Chr$(16)+Chr$(0)+Chr$(1),1,"","WORKBENCH ICON"
  69.    Data 1,"PPbk",1,"","AMOS POWERPACKED BANK"
  70.    Data 1,Chr$(255)+Chr$(216)+Chr$(255)+Chr$(224),7,"JFIF","JPEG PICTURE"
  71.    Data 1,"DMS!",1,"","DISKMASHER FILE"
  72.    Data 1,"xSceneEditor",1,"","MOVIESETTER MOVIE WITH DATA"
  73.    Data 1,"FILM",1,"","MOVIESETTER MOVIE WITHOUT DATA"
  74.    Data 1,"DM20",1,"","DATAMASTER V2.0 DATABASE"
  75.    Data 1,"MM"+Chr$(0)+"*",1,"","TIFF PICTURE"
  76.    Data 5,"DEBR",27,"CHAG","FREELANCE V2.0 PRESENTATION"
  77.    Data 1,Chr$(10)+Chr$(5)+Chr$(1),1,"","PCX PICTURE"
  78.    Data 1,"BM",15,"(","BMP PICTURE"
  79.    Data 1,Chr$(0)+Chr$(32)+Chr$(16)+Chr$(34),1,"","CGM METAFILE"
  80.    Data 1,"GIF87",1,"","GIF PICTURE"
  81.    Data 1,"GIF89",1,"","GIF PICTURE"
  82.    Data 1,"/*",1,"","AREXX PROGRAM"
  83.    Data 1,Chr$(0)+Chr$(0)+Chr$(0)+Chr$(0),49,Chr$(128)+Chr$(30),"NEOCHOME PICTURE"
  84.    Data 1,"@D",1,"","AMIGAGUIDE DOCUMENT"
  85.    Data 1,"@d",1,"","AMIGAGUIDE DOCUMENT"
  86.    Data 1,"END",1,"","UNKNOWN FILE TYPE"
  87.    '
  88. End Proc[FT$]