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

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2. ;; ppe title...: electric oneliner 0.1

3. ;; ppe author..: flux/pgd^pr

4. ;; ppe compiled: pplc 3.20 - 06.28.96 - 20:01

5. ;; ppe notes...: thanx to pyx for nice ansi

6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

7. ;; variable declarations

8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

9. string datfile ;; data file

10. string pcbfile ;; display file

11. string cfgfile ;; config file

12. string lines(10) ;; lines (array) from datafile

13. string color ;; color of output lines

14. string tmp ;; temporary string

15. string addstr ;; "add a line"-string

16. string whatstr ;; "what line"-string

17. string savestr ;; "save"-string

18. integer idx ;; index counter

19. integer actline ;; the action line

20. integer startln ;; start line of onelines

21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

22. ;; variable definations

23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

24. let datfile = ppepath() + ppename() + ".dat"

25. let pcbfile = ppepath() + ppename() + ".pcb"

26. let cfgfile = ppepath() + ppename() + ".cfg"

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

28. ;; main body of program

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

30. begin

31. ;; read lines from config file

32. let addstr = readline(cfgfile, 1)

33. let whatstr = readline(cfgfile, 2)

34. let savestr = readline(cfgfile, 3)

35. tokenize readline(cfgfile, 4)

36. let actline = gettoken()

37. let startln = gettoken()

38. let color = gettoken()

39. ;; read 10 lines from the data file

40. for idx = 1 to 10

41. let lines(idx) = readline(datfile, idx)

42. next

43. ;; display "oneliners"-file

44. dispfile pcbfile, defs

45. ;; declare "non-stop"-mode

46. startdisp fns

47. ;; print all the lines to the screen

48. for idx = 1 to 10

49. ansipos 2, (startln - 1) + idx

50. println color + stripatx(lines(idx))