shortint align,p

x$=arg$(1)
y$=arg$(2)
if x$="" then print "no file selected...exiting!":stop
if y$="" then print "no output path given!":stop
open "I",1,x$
if ERR<>0 then print "Error on input file!":stop
open "O",2,y$+x$
if ERR<>0 then print "Error on output file!":stop
print "Aligning code in file "+x$
while not eof(1)
align=0
line input #1,a$
if len(a$)=0 then
   print #2,chr$(10) 
else
      comment1=instr(a$,";")
   comment2=instr(a$,"*")
   if (comment1=0 and comment2=0) then 
      c=1023 
   else 
      if (comment1<>0 and comment2<>0) then
         if (comment1<comment2) then c=comment1 else c=comment2
      else 
         if (comment1<>0) then c=comment1 else c=comment2
      end if
   end if
   case
      instr(ucase$(a$),"RTS") and instr(ucase$(a$),"RTS")<c: gosub rtscheck
      instr(ucase$(a$),"JMP") and instr(ucase$(a$),"JMP")<c: gosub jmpcheck
      instr(ucase$(a$),"BRA") and instr(ucase$(a$),"BRA")<c: gosub bracheck
      instr(ucase$(a$),"RTE") and instr(ucase$(a$),"RTE")<c: gosub rtecheck
      instr(ucase$(a$),"RTD") and instr(ucase$(a$),"RTD")<c: gosub rtdcheck
   end case
   print #2,a$
   if align=1 then print #2," cnop 0,4"
end if
wend
close 2
close 1
print "Finished!"
stop

rtscheck:
   p=instr(ucase$(a$),"RTS")
checkroutine1:
   pre$=right$(left$(a$,p-1),1)
   post$=left$(right$(a$,len(a$)-p-2),1)
   if ((pre$=chr$(9) or pre$=":" or pre$=" ") and (post$=" " or post$="" or post$=chr$(9))) then align=1
   return

rtecheck:
   p=instr(ucase$(a$),"RTE")
   goto checkroutine1

jmpcheck:
   p=instr(ucase$(a$),"JMP")
checkroutine2:
   pre$=right$(left$(a$,p-1),1)
   post$=left$(right$(a$,len(a$)-p-2),1)
   if ((pre$=chr$(9) or pre$=":" or pre$=" ") and (post$=" " or post$=chr$(9) or post$=".")) then align=1
   return

bracheck:
   p=instr(ucase$(a$),"BRA")
   goto checkroutine2

rtdcheck:
   p=instr(ucase$(a$),"RTD")
   pre$=right$(left$(a$,p-1),1)
   post$=left$(right$(a$,len(a$)-p-2),1)
   if ((pre$=chr$(9) or pre$=":" or pre$=" ") and (post$=" " or post$=chr$(9))) then align=1
   return