home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / AS66.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.2 KB  |  101 lines
  1. 2000  '********************************************************
  2. 2100  '*                  TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CALLPSET: SG66.BAS                  *
  3. 2200  '*                  CALLTOUSRIMPRANDOMIZEEDITSOUNDPOINT: CLOSEDEFINTWRITEMERGECOLOR+THENLOAD                  *
  4. 2300  '*                  WHILE<0xE0!>CALLTOSCREENERRPSETVARPTR: 1987.10                   *
  5. 2400  '********************************************************
  6. 4000  KEY OFF
  7. 4001  OPEN "ZBMC.TXT" FOR INPUT AS #1
  8. 4002  INPUT #1,GN$,XS$,YS$
  9. 4003  CLOSE #1
  10. 4004  K=0
  11. 4005  DIM X(15),Y(15)
  12. 4006  OPEN "ZBSZ66.TXT" FOR INPUT AS #1
  13. 4007  IF EOF(1)=-1 THEN CLOSE #1 : GOTO 4010
  14. 4008  K=K+1:INPUT #1,X(K),Y(K):GOTO 4007
  15. 4010  GOSUB 4030
  16. 4011  L%=LEN(GN$)
  17. 4012  LOCATE 10,(40-L%)/2,0
  18. 4013  PRINT GN$;    '  or  LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>
  19. 4014  IF INKEY$=CHR$(13) THEN GOTO 4016
  20. 4015  GOTO 4014
  21. 4016  SYSTEM
  22. 4018  '
  23. 4019  '
  24. 4030  SCREEN 1,0 : COLOR 9,0 : CLS
  25. 4031  MAX=Y(1)
  26. 4032  FOR I=2 TO K
  27. 4033    IF Y(I)>MAX THEN MAX=Y(I)
  28. 4034  NEXT I
  29. 4040  M0=INT(MAX) : M1=LEN(STR$(M0))
  30. 4042  M2=VAL(MID$(STR$(M0),2,1))
  31. 4045  MAX=(M2+1)*10^(M1-2)
  32. 4046  SY=100/MAX
  33. 4050  GOSUB 4080
  34. 4055  GOSUB 4200
  35. 4057  RETURN
  36. 4058  '
  37. 4059  '
  38. 4080  LINE (38,140)-(310,140)
  39. 4084  LINE (310,140)-STEP(-8,2)
  40. 4085  LINE (310,140)-STEP(-8,-2)
  41. 4087  LINE (38,140)-(38,1)
  42. 4088  LINE (38,1)-STEP(2,6)
  43. 4089  LINE (38,1)-STEP(-2,6)
  44. 4090  FOR I=1 TO K
  45. 4095    X1=40+I*200/K-(200/K-2)/2
  46. 4097    LINE (X1,138)-STEP(0,4)
  47. 4100    CN=X(I) : GOSUB 5002
  48. 4105  NEXT I
  49. 4110  L%=LEN(XS$)
  50. 4115  LOCATE 9,40-L%
  51. 4120  PRINT XS$
  52. 4125  L%=LEN(YS$)
  53. 4130  FOR I=1 TO L% STEP 2
  54. 4135    LOCATE 1+I\2,3
  55. 4136    SUB$=MID$(YS$,I,2)
  56. 4138    PRINT SUB$
  57. 4140  NEXT I
  58. 4142  YM=MAX/5
  59. 4143  FOR I=120 TO 40 STEP -20
  60. 4145    IF I<80 THEN GOTO 4150
  61. 4146    L%=LEN(STR$(YM))
  62. 4147    LOCATE I*6/100,5-L%
  63. 4148    PRINT STR$(YM)
  64. 4149    YM=YM+MAX/5
  65. 4150    LINE (36,I)-(40,I)
  66. 4155  NEXT I
  67. 4160  RETURN
  68. 4180  '
  69. 4190  '
  70. 4200  C%=0
  71. 4205  FOR I=1 TO K
  72. 4210    C%=C%+1
  73. 4215    IF C%>3 THEN C%=C%-3
  74. 4220    LINE (40+(I-1)*200/K+2,140)-STEP(200/K-2,-Y(I)*SY),C%,BF
  75. 4225  NEXT I
  76. 4230  LINE (38,140)-(310,140)
  77. 4235  LINE (38,140)-(38,1)
  78. 4240  FOR I=1 TO K
  79. 4245    LINE (40+I*200/K-(200/K-2)/2,138)-STEP(0,4)
  80. 4250  NEXT I
  81. 4260  RETURN
  82. 5000  '
  83. 5001  '
  84. 5002  L=LEN(STR$(CN))-1
  85. 5004  FOR II=1 TO L
  86. 5005    X0=X1+4*(II-L/2-1) : Y0=148
  87. 5006    V=VAL(MID$(STR$(CN),II+1,1))
  88. 5008    IF V=0 THEN PSET(X0,Y0) : DRAW "R4 D6 L4 U6" : GOTO 5030
  89. 5010    ON V GOTO 5012,5014,5016,5018,5020,5022,5024,5026,5028
  90. 5012    PSET(X0+2,Y0) : DRAW "D6" : GOTO 5030
  91. 5014    PSET(X0,Y0) : DRAW "R4 D3 L4 D3 R4" : GOTO 5030
  92. 5016    PSET(X0,Y0) : DRAW "R4 D3 L4 R4 D3 L4" : GOTO 5030
  93. 5018    PSET(X0,Y0) : DRAW "D4 R4 L1 U4 D6" : GOTO 5030
  94. 5020    PSET(X0+4,Y0) : DRAW "L4 D3 R4 D3 L4" : GOTO 5030
  95. 5022    PSET(X0+4,Y0) : DRAW "L4 D6 R4 U3 L4" : GOTO 5030
  96. 5024    PSET(X0,Y0) : DRAW "R4 D6" : GOTO 5030
  97. 5026    PSET(X0,Y0+3) : DRAW "R4 U3 L4 D6 R4 U3" : GOTO 5030
  98. 5028    PSET(X0+4,Y0+3) : DRAW "L4 U3 R4 D6 L4"
  99. 5030  NEXT
  100. 5040  RETURN
  101.