home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd515 / amos-programs / bank-type.amos / bank-type.amosSourceCode next >
AMOS Source Code  |  1991-07-10  |  1KB  |  33 lines
  1. Rem    *************************** 
  2. Rem    *                         * 
  3. Rem    *        Bank Types       * 
  4. Rem    *                         * 
  5. Rem    *     by Murray Jones     * 
  6. Rem    *                         * 
  7. Rem    *      Taken from the     *   
  8. Rem    *  Twilight Zone program  * 
  9. Rem    *                         * 
  10. Rem    *************************** 
  11. Rem  
  12. BEGIN:
  13.    F$=Fsel$("","","SELECT A FILE","")
  14.    If F$="" Then End 
  15.    Open In 1,F$
  16.    D$=Input$(1,30)
  17.    Close 1
  18.    If Left$(D$,4)="AmSp" Then Print "Sprites" : Goto STO
  19.    If Instr(D$,"Samples")>0 Then Print "samples" : Goto STO
  20.    If Instr(D$,"Amal")>0 Then Print "Amal" : Goto STO
  21.    If Instr(D$,"Music")>0 Then Print "music" : Goto STO
  22.    If Instr(D$,"Datas")>0 Then Print "Data" : Goto STO
  23.    If Instr(D$,"Work")>0 Then Print "Work" : Goto STO
  24.    If Left$(D$,4)="AmIc" Then Print "Icons" : Goto STO
  25.    If Instr(D$,"Menu")>0 Then Print "Menu" : Goto STO
  26.    If Instr(D$,"Pac.Pic")>0 Then Print "Pac.Pic" : Goto STO
  27. Print "Unknown"
  28. On Error Goto TUTUT
  29. STO:
  30. Wait Key 
  31. Goto BEGIN
  32. TUTUT:
  33. Resume Next