home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 1 / sauce-n-code-01.adf / ASCII_Source / NFAPlayCli.asc < prev    next >
Text File  |  1995-05-05  |  4KB  |  141 lines
  1. ' cODED bY ßudda/NFA 
  2. ' StARtEd : a long time ago  
  3. ' FiNiSHed: a while ago  
  4.  
  5. ' -- Set Enviroment -- 
  6. Break Off 
  7. Amos Lock 
  8. Amos To Back 
  9. Areg(0)=0
  10.  
  11. ' -- Grab Command Line --
  12. 'Command Line$="-1 cd0:music/48tpi.abk"
  13. C$=Command Line$
  14.  
  15. ' -- Break Down Command Line --
  16. Q$=Upper$(Right$(C$,5))
  17. If Q$="QUIET" Then Q=1
  18. OPTION=Val(Left$(C$,2)-"-")
  19. MNAME$=Mid$(C$,4,Len(C$)-3)
  20. If Q=1 Then MNAME$=Left$(MNAME$,Len(MNAME$)-6)
  21.  
  22. ' -- Define Messages To User --
  23. Dim MES$(3)
  24. MES$(0)="      *** ESC to stop music! ***"
  25. MES$(1)="   *** SPACE BAR to stop music! ***"
  26. MES$(2)="    *** You CAN'T stop music ! ***"
  27.  
  28. ' -- Define Various ESCape Code Sequences -- 
  29. ESC$=Chr$(27)+"["
  30. CUL0$=ESC$+"30m"
  31. CUL1$=ESC$+"31m"
  32. CUL2$=ESC$+"32m"
  33. CUL3$=ESC$+"33m"
  34. ITALON$=ESC$+"3m"
  35. ITALOFF$=ESC$+"23m"
  36. BOLDON$=ESC$+"1m"
  37. BOLDOFF$=ESC$+"22m"
  38.  
  39. ' -- Open CLI Window --
  40. If Q=0
  41.    Open Port 1,"RAW:160/50/320/155/NFAPlay Command Line V1.2"
  42.    Print #1,CUL1$+ESC$+"4m"+ITALON$+"cODED bY "+ITALOFF$+"ßudda"+CUL3$+BOLDON$+" ,"+BOLDOFF$+CUL1$+"          "+ITALON$+"aNSI bY "+ITALOFF$+"Elf"+ESC$+"24m"+CUL3$+BOLDON$
  43.    Print #1,"         ____ /|___/\_______ /|"
  44.    Print #1,"    ___/\\"+CUL2$+"\"+CUL3$+" //"+CUL2$+"."+CUL3$+"|"+CUL2$+"|"+CUL3$+"         "+CUL2$+"/"+CUL3$+"//"+CUL2$+"|"+CUL3$+"|"
  45.    Print #1,"   ("+CUL2$+"|"+CUL3$+"    \\//  |"+CUL2$+"|"+CUL3$+"   _____ // "+CUL2$+"|"+CUL3$+"|"
  46.    Print #1,"   |"+CUL2$+"¦"+CUL3$+"     \/  "+CUL2$+"."+CUL3$+"|"+CUL2$+"¦"+CUL3$+"    "+CUL2$+"\"+CUL3$+"\  ¬/  "+CUL2$+"¦"+CUL3$+"|"
  47.    Print #1,"   |"+CUL2$+":"+CUL3$+"      \   |"+CUL2$+":"+CUL3$+"   _ "+CUL2$+","+CUL3$+"\ /   "+CUL2$+":"+CUL3$+"|"
  48.    Print #1,"   |"+CUL2$+"."+CUL3$+"  \      "+CUL2$+":"+CUL3$+"|"+CUL2$+"."+CUL3$+"   |¯¯¯/ /  "+CUL2$+"."+CUL3$+"|"
  49.    Print #1,"   |   /\     "+CUL2$+"¦"+CUL3$+"|    |  / /\   |"
  50.    Print #1,"   |"+CUL2$+"."+CUL3$+" //\\    "+CUL2$+"|"+CUL3$+")"+CUL2$+"."+CUL3$+"   | / /  \ "+CUL2$+"."+CUL3$+"|"
  51.    Print #1,"   | //"+CUL2$+"/"+CUL3$+" \\/¯¯¯|    |/  \ /\\ |"
  52.    Print #1,"   |/ ¯¯¯¯     |    \¯¯¯¯/"+CUL2$+"/"+CUL3$+" \¯¯"+BOLDOFF$+ITALON$+CUL1$+" p"+CUL2$+"L"+CUL1$+"a"+CUL2$+"Y"+ITALOFF$+BOLDON$+CUL3$
  53.    Print #1,"   `           ¯¯¯¯¯¯    ¯¯¯¯"+BOLDOFF$
  54. End If 
  55.  
  56. ' -- Test Command Line --
  57. If C$<>"" and OPTION<2 Then Goto PLIT
  58.  
  59. ' -- Show Usage Of Program --
  60. BAD:
  61. If Q=0
  62.    RESULT=Intcall(-96) : Rem display beep 
  63.    Print #1,CUL2$+"Usage: "+CUL1$+"NFAPlayCLi -"+CUL3$+"n <module> "+CUL2$+"«QUIET»"
  64.    Print #1,CUL3$+" n "+CUL1$+"="+ITALON$+" Way To Stop Music"+ITALOFF$
  65.    Print #1,CUL2$+"    0-ESC · 1-SPACE · 2-NO STOPPING!"
  66.    Print #1,CUL3$+" module "+CUL1$+ITALON$+"= Module To load"+ITALOFF$
  67.    Wait 60
  68. End If 
  69. Goto BYE
  70.  
  71. ' -- Check Module Exists --
  72. PLIT:
  73. If Exist(MNAME$)=False
  74.    If Q=0
  75.       Print #1,ITALON$+CUL3$+"cOuldN't gET a GriP oN"+ITALOFF$
  76.       Print #1,CUL1$+Left$(MNAME$,37)
  77.    End If 
  78.    Goto BYE
  79. End If 
  80.  
  81. ' -- Load Specified Module --
  82. If Q=0 Then Print #1,CUL2$+" pLEaSE wAIt lOAdInG aNd pLayINg...."
  83.  
  84. Open In 2,MNAME$
  85. CHK$=Input$(2,4)
  86. Close 2
  87.  
  88. ' -- Is It PowerPacked? -- 
  89. If CHK$="PP20" Then Goto BAD
  90.  
  91. ' -- Play Module --
  92. If CHK$="AmBk"
  93.    Load MNAME$,3
  94.    If Peek$(Start(3)-8,8)="Tracker "
  95.       Track Play 3
  96.    Else 
  97.       Music 1
  98.    End If 
  99.    If Q=0
  100.       Print #1,""
  101.       Print #1,CUL3$+"           AMOS Abk Module"
  102.    End If 
  103.    Goto WW
  104. End If 
  105.  
  106. If CHK$="MMD0" or CHK$="MMD1"
  107.    Med Load MNAME$,3
  108.    Med Play 3
  109.    If Q=0
  110.       Print #1,""
  111.       Print #1,CUL3$+"               MED Module"
  112.    End If 
  113.    Goto WW
  114. End If 
  115.  
  116. Track Load MNAME$,3
  117. Track Play 3
  118. Track Loop On 
  119. If Q=0 Then Print #1,CUL3$+" NAME:"+CUL1$+Peek$(Start(3),22) : Print #1,CUL3$+" LENGTH:"+CUL1$+Str$(Peek(Start(3)+950))+CUL3$+"           SIZE:"+CUL1$+Str$(Length(3))
  120.  
  121.  
  122. ' -- Wait For Music Stop --
  123. WW:
  124. If Q=0 Then Print #1,CUL2$+MES$(OPTION)
  125. If OPTION=2 Then Do : Loop 
  126. Do 
  127.    If OPTION=0 and Key State(69)=True Then Goto BYE
  128.    If OPTION=1 and Key State(64) Then Goto BYE
  129. Loop 
  130.  
  131. ' -- Quit Program -- 
  132. BYE:
  133. Erase 3
  134. Wait 100
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.