home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / univ_i / graphics.scr < prev    next >
Encoding:
Text File  |  1990-04-19  |  1.3 KB  |  59 lines
  1. script
  2. abort off
  3.  
  4. ; BBS Express ST! Instant Graphics Analyzer and Mode Switcher
  5.  
  6. ; Written  by Adam Of Evil System Operator #2 of MoDeM MaDnEsS BBS
  7.  
  8. ; MoDeM MaDnEsS Instant Graphics Bulletin Board System 516-295-3827
  9. ; 12OO/24OO Baud - 24 Hours a Day/7 Days a Week - 85 Megabytes
  10. ; Grateful Dead Database, Instant Graphics Online, Awesome Online Games
  11.  
  12. ; Just to clarify with you that there are only 2 text modes,
  13. ; text mode #1 is both ascii and vt-52 since the user does select
  14. ; it from the "E"dit parameters menu unlike FoReM ST BBSes.
  15.  
  16. clear variables
  17.  
  18. define igpath = 'e:\menus_80\ig\'            ; Path to .IG files.
  19. define vtpath = 'e:\menus_80\txt\'           ; Path to .HLP files.
  20. define modepath = 'e:\menus_80\gmode.hlp'    ; Filename to store mode.
  21. define filepath = 'e:\menus_80\filename.hlp' ; Filename to store filename.
  22. define mode
  23. define filename
  24. define file
  25. define cd
  26.  
  27. if file_exists '[filepath]'
  28. open '[filepath]' input
  29. finput filename
  30. close
  31. else
  32. exit
  33. endif
  34.  
  35. if file_exists '[modepath]'
  36. open '[modepath]' input
  37. finput mode
  38. close
  39. else
  40. open '[modepath]' output
  41. fprinte '1'
  42. close
  43. mode = 1
  44. endif
  45.  
  46. if mode = '1'
  47. file = '[vtpath][filename].HLP'
  48. ef mode = '2'
  49. file = '[igpath][filename].IG'
  50. endif
  51.  
  52. if file_exists '[file]'
  53. view '[file]'
  54. endif
  55.  
  56. cd = file_delete '[filepath]'
  57. exit
  58.  
  59.