1 / 297

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. ; DEF Transfer Protocol v1.1 by Drew [PWA]. ; Last updated 8-11-94. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. string tp_cfg ; this ppe's config file.

bao
Download Presentation

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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. ; DEF Transfer Protocol v1.1 by Drew [PWA]

  3. ; Last updated 8-11-94

  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  5. string tp_cfg ; this ppe's config file

  6. string prot_dat ; location of PCBPROT.DAT

  7. string description ; protocol description read from pcbprot.dat

  8. string keys(17) ; first letter of each protocol (16 max)

  9. string tmpstr1 ; temporary string

  10. integer curprot ; current protcol number

  11. integer numprot ; number of protocols

  12. integer maxprot ; maximum number of protocols

  13. integer ascii ; ascii equiv of key entered by user

  14. integer start_row ; row of where to start printing protocol listing

  15. integer start_col ; column of where to start printing protocol listing

  16. integer cur_row ; current row after moving lightbar

  17. integer cur_col ; current column

  18. integer maxlength ; length of longest protocol description

  19. integer numspaces ; # of spaces after printing protocols first letter

  20. integer i ; loop index

  21. boolean quit ; used to terminate loop

  22. boolean hl_desc ; indicates highlighing first letter or entire

  23. ; protocol description for lightbar

  24. string save_text ; used to restore text when moving light bar

  25. string save_row

  26. string save_col

  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  28. ; main

  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  30. gosub CheckParams

  31. cls

  32. startdisp FNS

  33. gosub Initialize

  34. gosub DoIt

  35. gosub PrintCredits

  36. resetdisp

  37. startdisp NC

  38. end

  39. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  40. ; SUBROUTINE: PrintCredits

  41. ;

  42. ; I hope no one minds this.. :-)

  43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  44. :PrintCredits

  45. defcolor

  46. println "@X08DEF Transfer Protocol v1.1 by Drew [PWA]"

  47. newline

  48. defcolor

  49. return

  50. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

More Related