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