home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / ph_progs.lha / PH_PROGS.AMOS / Quick_Compiler.AMOS / Quick_Compiler.amosSourceCode
AMOS Source Code  |  1993-06-02  |  1KB  |  57 lines
  1. S$="df1:Video2_1.AMOS"
  2. D$="df1:video"
  3. '
  4. SRAM=False
  5. DRAM=True
  6. '
  7. DFAULT=False
  8. AMTB=False
  9. LARGE=False
  10. ERRS=False
  11. RM_ACMP=True
  12. '
  13. AMSYS$="AMOS:AMOS_System/"
  14. CONFIG$="AMOS:AMOS_System/Compiler_Configuration"
  15. ACMP$="AMOS:AMOS_System/Acmp"
  16. '
  17. 'TYPE=0 : Rem WB 
  18. 'TYPE=1 : Rem CLI  
  19. TYPE=2 : Rem CLI runback  
  20. 'TYPE=3 : Rem AMOS 
  21. '
  22. '***************************************** 
  23. '
  24. On Error Proc IGNORE_ERRORS
  25. Music Off : Amal Off : Menu Off : Bob Update Off 
  26. For A=0 To 7 : Screen Close A : Next 
  27. On Error Goto 0
  28. '
  29. Screen Open 0,640,140,2,Hires : Curs Off : Palette 0,$FFF
  30. Screen Display 0,,49,,
  31. '
  32. If S$=""
  33. S$=Fsel$("","","Source File","")
  34. End If 
  35. If S$<>""
  36.    If D$="" : D$=Fsel$("","","Dest File","") : End If 
  37.    If D$<>"" : D$=" -O"+Chr$(34)+D$+Chr$(34) : End If 
  38.    M$=" -D"+Str$(SRAM+1)-" "+Str$(DRAM+1)-" "
  39.    SC$=" -S"+Str$(0-_DFAULT)-" "
  40.    T$=" -T"+Str$(TYPE)-" "
  41.    A$=" -W"+Str$(0-AMTB)-" "
  42.    E$=" -E"+Str$(0-ERRS)-" "
  43.    L$="" : If LARGE : L$=" -l" : End If 
  44.    C$=Chr$(34)+S$+Chr$(34)+D$+M$+SC$+T$+A$+L$+E$+" -C"+CONFIG$+" -F"+AMSYS$
  45.    If Not Extension_5_00AE 
  46.        Extension_5_0098 ACMP$
  47.    End If 
  48.     Extension_5_005E C$
  49.    If RM_ACMP
  50.        Extension_5_00A0 
  51.    End If 
  52. End If 
  53. Print : Centre "Press Any key To Exit" : Wait Key 
  54. '
  55. Procedure IGNORE_ERRORS
  56. Resume Next 
  57. End Proc