home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / AS11.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.4 KB  |  69 lines
  1. 2000  '*******************************************************
  2. 2100  '*                 Filename: SG11.BAS                  *
  3. 2200  '*                 Date: 1987.9                        *
  4. 2300  '*******************************************************
  5. 4001  KEY OFF
  6. 4004  DIM X(10),Y(10)
  7. 4005  K=10
  8. 4006  FOR I=1 TO K
  9. 4007    READ X(I)
  10. 4008  NEXT I
  11. 4009  FOR I=1 TO K
  12. 4010    READ Y(I)
  13. 4011  NEXT I
  14. 4012  DATA 10,20,30,40,50,60,70,80,90,100
  15. 4013  DATA 10,50,40,70,20,70,10,30,60,20
  16. 4014  XS$="aaaaaaaaaa"
  17. 4015  YS$="bbbbbbbbbb"
  18. 4016  GOSUB 4020
  19. 4017  END
  20. 4018  '
  21. 4019  '
  22. 4020  FOR I=1 TO K
  23. 4021    XY(I)=X(I)
  24. 4022  NEXT I
  25. 4023  GOSUB 4060
  26. 4024  XMIN=MIN-ABS(MIN*0.2):  XMAX=MAX+ABS(MAX*0.2)
  27. 4025  FOR I=1 TO K
  28. 4026    XY(I)=Y(I)
  29. 4027  NEXT I
  30. 4028  GOSUB 4060
  31. 4029  YMIN=MIN-ABS(MIN*0.2):  YMAX=MAX+ABS(MAX*0.2)
  32. 4030  SCREEN 2
  33. 4033  SX=640/(XMAX-XMIN): SY=200/(YMAX-YMIN)
  34. 4035  GOSUB 4080
  35. 4048  FOR I=1 TO K-1
  36. 4050    LINE ((X(I)-XMIN)*SX,200-(Y(I)-YMIN)*SY)-((X(I+1)-XMIN)*SX,200-(Y(I+1)-YMIN)*SY)
  37. 4055  NEXT I
  38. 4057  RETURN
  39. 4058  '
  40. 4059  '
  41. 4060  MIN=XY(1): MAX=XY(1)
  42. 4062  FOR I=2 TO K
  43. 4064    IF XY(I)<MIN THEN MIN=XY(I) ELSE IF XY(I)>MAX THEN MAX=XY(I)
  44. 4068  NEXT I
  45. 4069  IF MIN>0 THEN MIN=-5
  46. 4070  RETURN
  47. 4071  '
  48. 4072  '
  49. 4080  X0=-XMIN*SX:  Y0=-YMIN*SY
  50. 4082  X1= XMAX*SX:  Y1= YMAX*SY
  51. 4083  CLS
  52. 4085  LINE (X0,200-Y0)-(X1,200-Y0),1
  53. 4087  LINE (X1,200-Y0)-STEP(-15,2),1
  54. 4088  LINE (X1,200-Y0)-STEP(-15,-2),1
  55. 4090  L%=LEN(XS$)
  56. 4092  LOCATE 26-INT(Y0/8),INT(X1/8)-L%
  57. 4094  PRINT XS$;
  58. 4098  LINE (X0,200-Y0)-(X0,200-Y1),1
  59. 4099  LINE (X0,200-Y1)-STEP(3,7),1
  60. 4100  LINE (X0,200-Y1)-STEP(-3,7),1
  61. 4102  L%=LEN(YS$)
  62. 4104  FOR I=1 TO L% STEP 2
  63. 4106    LOCATE 26-INT(Y1/8)+I\2,INT(X0/8)-2
  64. 4107    SUB$=MID$(YS$,I,2)
  65. 4108    PRINT SUB$
  66. 4109  NEXT I
  67. 4112  LOCATE 23,1
  68. 4120  RETURN
  69.