home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / d / fpbas4tla / !fpbas4tla / !run < prev    next >
Encoding:
Text File  |  1992-01-25  |  1000 b   |  22 lines
  1. | special thanks to:
  2. | Paul Moore      ( ported perl )
  3. | Stewart Brodie  ( wrote fpabas/fpassemble )
  4. | Frank Lancaster ( wrote/ported tla )
  5. unSet fpabas4tla$dir 
  6. Set fpabas4tla$dir <Obey$Dir>
  7. *if "%0"="" then obey <fpabas4tla$dir>.!message 
  8. *if "<perl$path>"="" then   echo warning ! variable perl$path   unset ! 
  9. *if "<fpabas$path>"="" then echo warning ! variable fpabas$path unset ! 
  10. *if "%0"="" then *error there is no outputfile
  11. *if "%1"="" then *error there is no inputfile
  12. *rmensure FPEmulator     0.00 *error 0 FPEmulator      must be loaded for Gawk
  13. *rmensure SharedCLibrary 0.00 *error 0 SharedCLibrary  must be loaded for Gawk
  14. *rmensure BASIC          0.00 *error 0 BASIC           must be loaded for fpabas4
  15. echo { > <fpabas4tla$dir>.work.error }
  16. echo { > <fpabas4tla$dir>.work.basicout }
  17. delete <fpabas4tla$dir>.work.error 
  18. delete <fpabas4tla$dir>.work.basicout 
  19. <perl$path>perl <fpabas4tla$dir>.!runimage %1 %0
  20. *if "<fpabas4tla$error>"="true" then obey <fpabas4tla$dir>.!errorprg
  21. *quit
  22.