' Accessory Swapper Version 0.3
' by Walter S. Wilson, 08 January 1995
' in GFA 3.5e
'
fsource$=UPPER$(CHAR{BASEPAGE+&H81})         ! command line
'
RESERVE 10000
'
linesize%=LEN(fsource$)
check$=RIGHT$(fsource$,3)
newsize%=linesize%-3
tempaut1$=RIGHT$(fsource$,newsize%)
'
GOSUB firstcheck
GOSUB get_drive
GOSUB namething
GOSUB end_thing
' ----------------------------> Procedures
'
> PROCEDURE firstcheck         !  Check command line integrity
  '
  IF fsource$=""
    ALERT 1," You haven't read | the manual yet? ",1," Oops! ",b%
    GOSUB end_thing
  ENDIF
  '
  IF fsource$="H" OR fsource$="HELP" OR LEFT$(fsource$,1)="-"
    ALERT 1," Sorry, I'm not | that kind of | program. ",1," Oops! ",b%
    GOSUB end_thing
  ENDIF
  '
  IF EXIST(fsource$)=FALSE
    ALERT 1," Please specify an | existing file! ",1," Oops! ",b%
    GOSUB end_thing
  ENDIF
  '
  IF check$<>"ACC" AND check$<>"ACX"
    ALERT 1," ACCessories and | AUTO folder | PRG's only! ",1," Oops!",b%
    GOSUB end_thing
  ENDIF
  '
  IF LEFT$(tempaut1$,4)="AUTO" AND check$<>"ACX" AND check$<>"ACC"
    IF check$="PRG" OR check$="PRX"
      GOSUB auto_thang
      GOSUB end_thing
    ENDIF
  ENDIF
  '
RETURN
> PROCEDURE get_drive          !  Current drive and destination path
  '
  drive%=GEMDOS(25)
  dr$=CHR$(65+drive%)+":\"
  '
RETURN
> PROCEDURE namething          !  Figure out extension and rename
  '
  tempfsource$=LEFT$(fsource$,newsize%)
  '
  IF check$="ACC"
    munama$=tempfsource$+"ACX"
  ELSE IF check$="ACX"
    munama$=tempfsource$+"ACC"
  ENDIF
  '
  NAME fsource$ AS munama$
  '
RETURN
> PROCEDURE auto_thang
  '
  tempfsource$=LEFT$(fsource$,newsize%)
  '
  IF check$="PRG"
    munama$=tempfsource$+"PRX"
  ELSE IF check$="PRX"
    munama$=tempfsource$+"PRG"
  ENDIF
  '
  NAME fsource$ AS munama$
  '
RETURN
'
> PROCEDURE end_thing          !  THE END
  '
  RESERVE
  SYSTEM
  '
RETURN