home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / DRIPAK.ZIP / ECA / LIST.COM < prev    next >
Text File  |  1999-03-28  |  2KB  |  55 lines
  1. $,CD,1) = " " AND MID$(P$,CD+LE,1) = " " THEN MID$(P$,CD) = N$
  2. 650 NEXT DC
  3. 660 PRINT TAB(CL-2+TB) P$
  4. 670 '
  5. 680 IF PF$ <> "Y" THEN GOTO 850
  6. 690 P$ = STRING$(PS+3," ")
  7. 700 N$ = STR$(LL)
  8. 710 MID$(P$,1) = N$
  9. 720 N$ = STR$(UL)
  10. 730 LE = LEN(N$)
  11. 740 PD = PS + 4 - LE
  12. 750 IF MID$(P$,PD,1) = " " THEN MID$(P$,PD) = N$
  13. 760 FOR DC = 1 TO DV - .1
  14. 770 SG = LL + DC * SL / DV
  15. 780 N$ = STR$(SG)
  16. 790 LE = LEN(N$)
  17. 800 PD = PM * ( SG - LL ) + RD + 1
  18. 810 IF MID$(P$,PD,1) = " " AND MID$(P$,PD+LE,1) = " " THEN MID$(P$,PD) = N$
  19. 820 NEXT DC
  20. 830 LPRINT TAB(PL-2+TB) P$
  21. 840 '
  22. 850 GOSUB 1170
  23. 860 '
  24. 870 INPUT#1, NU(0), NU(1), NU(2)
  25. 880 IF BAD THEN BAD=0 : CLOSE : GOSUB 1170 : GOTO 130
  26. 890 IF NU(0)=0 THEN NU(3)=0 : NU(4)=0 ELSE INPUT#1, NU(3),NU(4)
  27. 900 '
  28. 910 CD =  CM * ( NU(FU) - LL ) + RD
  29. 920 IF CD < 0 THEN CD = 0
  30. 930 IF CD > CS THEN CD = CS
  31. 940 P$ = STRING$(CS+1," ")
  32. 950 MID$(P$,1) = CHR$(124) : MID$(P$,CS+1) = CHR$(124)
  33. 960 IF CG >= CS-1 THEN GOTO 1000
  34. 970 FOR DC = CG TO CS-1 STEP CG
  35. 980 MID$(P$,DC+1+RD) = "."
  36. 990 NEXT DC
  37. 1000 MID$(P$,CD+1) = "*"
  38. 1010 PRINT NU(0) ; TAB(CL+TB) P$
  39. 1020 '
  40. 1030 IF PF$ <> "Y" THEN GOTO 870
  41. 1040 PD =  PM * ( NU(FU) - LL ) + RD
  42. 1050 IF PD < 0 THEN PD = 0
  43. 1060 IF PD > PS THEN PD = PS
  44. 1070 P$ = STRING$(PS+1," ")
  45. 1080 MID$(P$,1) = CHR$(124) : MID$(P$,PS+1) = CHR$(124)
  46. 1090 IF PG >= PS-1 THEN GOTO 1130
  47. 1100 FOR DC = PG TO PS-1 STEP PG
  48. 1110 MID$(P$,DC+1+RD) = "."
  49. 1120 NEXT DC
  50. 1130 MID$(P$,PD+1) = "*"
  51. 1140 LPRINT NU(0) ; TAB(PL+TB) P$
  52. 1150 GOTO 870
  53. 1160 '
  54. 1170 '
  55. 1180