Download
slide1 n.
Skip this Video
Loading SlideShow in 5 Seconds..
;***************************************************************************** PowerPoint Presentation
Download Presentation
;*****************************************************************************

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

80 Views Download Presentation
Download Presentation

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

- - - - - - - - - - - - - - - - - - - - - - - - - - - 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