1 / 201

;*****************************************************************************

;*****************************************************************************. ;* *. ;* ANSI DETECTION V2.1 *.

sumana
Télécharger la présentation

;*****************************************************************************

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;*****************************************************************************;*****************************************************************************

  2. ;* *

  3. ;* ANSI DETECTION V2.1 *

  4. ;* *

  5. ;* written by: Steve Catmull *

  6. ;* additional coding: David Terry *

  7. ;* *

  8. ;* started: 04-26-93 *

  9. ;* *

  10. ;*****************************************************************************;*****************************************************************************

  11. BOOLEAN hasansi ; Result of ANSI - detection test (true or false)

  12. BOOLEAN hasrip ; Result of ANSI - detection test (RIP & ANSI)

  13. STRING graphdef ; Stores response to the "ask" prompt below

  14. STRING ask ; Constant that contains "want graphics" minus default resp.

  15. INTEGER numticks ; Used to store number of clock ticks that I have waited.

  16. INTEGER maxticks ; Stores the maximum number of ticks to wait for response.

  17. STRING temp ; Stores the token of what user inputed.

  18. STRING default_yes ; Used to store setting from PCBOARD.DAT for the default

  19. STRING rest_ANSI ; Store rest of input buffer if any after ANSI CPR.

  20. STRING temp_dir ; Temporary/work directory as defined in PCBSetup

  21. STRING bkspace ; Sequence of characters for destructive backspace dwt

  22. STRING esc ; Constant used instead of chr(27)

  23. STRING cr_lf ; Constant used instead of chr(13)+chr(10)

  24. BOOLEAN recorded ; temporary. Delete -- not needed. SLC 04/28/93

  25. BOOLEAN compatible ; Used to determine is sysop wants to use compatible mode.

  26. STRING nonews ; For parsing out what user enters

  27. STRING nowelc ; For parsing out what user enters

  28. STRING ansi ; For parsing out what user enters

  29. STRING rip ; For parsing out what user enters

  30. STRING noansi ; For parsing out what user enters

  31. STRING autoansr ; Used to skip graphics question if graphics detected

  32. temp = "" ; Initialized to non null for WHILE

  33. bkspace = chr(8)+chr(32)+chr(8) ; destructive backspace dwt

  34. maxticks = 50 ; (50/18.2 seconds)

  35. esc = chr(27)

  36. cr_lf = chr(13)+chr(10)

  37. ; Analyze Command line passed

  38. temp=gettoken()

  39. while (temp != "") DO

  40. if (mid(upper(temp),2,1) = "W") then

  41. maxticks = mid(temp,instr(temp,":")+1,2)

  42. if (maxticks < 1 | maxticks = "") maxticks=50

  43. if (mid(upper(temp),11,1) = "C") then ; Test For /COMPATIBLE Arg

  44. compatible = true ; Set compatible if true

  45. else if (mid(upper(temp),11,1) = "A") then ; OR Test For /AUTO Arg

  46. autoansr = true ; Set autoansr if true

  47. endif

  48. else if (mid(upper(temp),2,1) = "C") then

  49. compatible = true

  50. else if (mid(upper(temp),2,1) = "A") then

More Related