home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / AS22.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.7 KB  |  127 lines
  1. 2000  '****************************************************************
  2. 2100  '*                  TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CALLPSET: SG22.BAS                          *
  3. 2200  '*                  CALLTOUSRIMPRANDOMIZEEDITSOUNDPOINT: CLOSEDEFINTCOLORINSTRSTRING$PSETMERGE=STEPINKEY$WHILESCREENMERGESTEPTHENLOAD                  *
  4. 2300  '*                  WHILE<0xE0!>CALLTOSCREENERRPSETVARPTR: 1987.12                           *
  5. 2400  '****************************************************************
  6. 2510  KEY OFF
  7. 2520  OPEN "ZBMC.TXT" FOR INPUT AS #1
  8. 2530  INPUT #1,GN$,XS$,YS$
  9. 2540  CLOSE #1
  10. 2550  K=0
  11. 2560  DIM Y(15)
  12. 2570  OPEN "ZBSZ22.TXT" FOR INPUT AS #1
  13. 2580  IF EOF(1)=-1 THEN CLOSE #1 : GOTO 2800
  14. 2590  K=K+1: INPUT #1,Y(K) : GOTO 2580
  15. 2800  OPEN "SXX.TXT" FOR INPUT AS #1
  16. 2801  INPUT #1,YD,YU
  17. 2802  CLOSE #1
  18. 4000  GOSUB 4025
  19. 4005  L%=LEN(GN$)
  20. 4010  LOCATE 10,(40-L%)/2,0
  21. 4012  PRINT GN$;    '   or  LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>
  22. 4014  IF INKEY$=CHR$(13) THEN GOTO 4016
  23. 4015  GOTO 4014
  24. 4016  SYSTEM
  25. 4018  '
  26. 4019  '
  27. 4025  MAX=YU
  28. 4028  FOR I=1 TO K
  29. 4029    IF Y(I)>MAX THEN MAX=Y(I)
  30. 4030  NEXT I
  31. 4048  M0=INT(MAX) : M1=LEN(STR$(M0))
  32. 4050  M2=VAL(MID$(STR$(M0),2,1))
  33. 4055  MAX=(M2+1)*10^(M1-2)
  34. 4060  SY=100/MAX
  35. 4062  GOSUB 4080
  36. 4064  GOSUB 4200
  37. 4068  GOSUB 4500
  38. 4070  RETURN
  39. 4072  '
  40. 4074  '
  41. 4080  SCREEN 1,0 : COLOR 9,0 : CLS
  42. 4082  LINE (42,140)-(310,140)
  43. 4084  LINE (310,140)-STEP(-8,2)
  44. 4085  LINE (310,140)-STEP(-8,-2)
  45. 4087  LINE (42,140)-(42,1)
  46. 4088  LINE (42,1)-STEP(2,6)
  47. 4089  LINE (42,1)-STEP(-2,6)
  48. 4090  FOR I=1 TO K
  49. 4095    X1=42+(I-1)*200/(K-1)
  50. 4097    IF I<>1 THEN LINE (X1,138)-STEP(0,4)
  51. 4100    CN=I : GOSUB 5000
  52. 4105  NEXT I
  53. 4110  L%=LEN(XS$)
  54. 4115  LOCATE 9,40-L%
  55. 4120  PRINT XS$
  56. 4125  L%=LEN(YS$)
  57. 4130  FOR I=1 TO L% STEP 2
  58. 4135    LOCATE 1+I\2,3
  59. 4136    SUB$=MID$(YS$,I,2)
  60. 4138    PRINT SUB$
  61. 4140  NEXT I
  62. 4142  YM=0
  63. 4144  FOR I=140 TO 40 STEP -20
  64. 4145    IF I<80 THEN GOTO 4155
  65. 4146    L%=LEN(STR$(YM))
  66. 4147    LOCATE I*6/100,6-L%,0
  67. 4148    PRINT STR$(YM)
  68. 4150    YM=YM+MAX/5
  69. 4152    IF I=140 THEN GOTO 4158
  70. 4155    LINE (40,I)-(44,I)
  71. 4158  NEXT I
  72. 4160  RETURN
  73. 4170  '
  74. 4180  '
  75. 4200  X1=42 : Y1=140-Y(1)*SY
  76. 4210  FOR I=2 TO K
  77. 4220    X2=42+(I-1)*220/(K-1)
  78. 4230    Y2=140-Y(I)*SY
  79. 4240    LINE (X1,Y1)-(X2,Y2),2
  80. 4250    X1=X2 : Y1=Y2
  81. 4260  NEXT I
  82. 4270  RETURN
  83. 4272  '
  84. 4275  '
  85. 4500  Y0=140-YD*SY
  86. 4502  LINE (42,Y0)-STEP(15,0),1
  87. 4505  FOR I=0 TO 200 STEP 20
  88. 4515    LINE (57+I+5,Y0)-STEP(15,0),1
  89. 4520  NEXT I
  90. 4525  LOCATE Y0*6/100,36
  91. 4530  PRINT STR$(INT(YD))
  92. 4600  Y0=140-YU*SY
  93. 4602  LINE (42,Y0)-STEP(15,0),1
  94. 4605  FOR I=0 TO 200 STEP 20
  95. 4615    LINE (57+I+5,Y0)-STEP(15,0),1
  96. 4620  NEXT I
  97. 4625  LOCATE Y0*6/100,36
  98. 4630  PRINT STR$(INT(YU))
  99. 4800  Y0=140-(YD+YU)/2*SY
  100. 4810  LINE (34,Y0)-STEP(15,0),3
  101. 4820  FOR I=0 TO 240 STEP 29
  102. 4830    LINE (49+I+4,Y0)-STEP(1,0),3
  103. 4840    LINE (54+I+4,Y0)-STEP(1,0),3
  104. 4850    LINE (59+I+4,Y0)-STEP(15,0),3
  105. 4860  NEXT I
  106. 4870  LINE (42,140)-(42,10)
  107. 4880  RETURN
  108. 4885  '
  109. 4886  '
  110. 5000  L=LEN(STR$(CN))-1
  111. 5002  FOR II=1 TO L
  112. 5004    X0=X1+4*(II-L/2-1) : Y0=148
  113. 5006    V=VAL(MID$(STR$(CN),II+1,1))
  114. 5008    IF V=0 THEN PSET(X0,Y0) : DRAW "R4 D6 L4 U6" : GOTO 5030
  115. 5010    ON V GOTO 5012,5014,5016,5018,5020,5022,5024,5026,5028
  116. 5012    PSET(X0+2,Y0) : DRAW "D6" : GOTO 5030
  117. 5014    PSET(X0,Y0) : DRAW "R4 D3 L4 D3 R4" : GOTO 5030
  118. 5016    PSET(X0,Y0) : DRAW "R4 D3 L4 R4 D3 L4" : GOTO 5030
  119. 5018    PSET(X0,Y0) : DRAW "D4 R4 L1 U4 D6" : GOTO 5030
  120. 5020    PSET(X0+4,Y0) : DRAW "L4 D3 R4 D3 L4" : GOTO 5030
  121. 5022    PSET(X0+4,Y0) : DRAW "L4 D6 R4 U3 L4" : GOTO 5030
  122. 5024    PSET(X0,Y0) : DRAW "R4 D6" : GOTO 5030
  123. 5026    PSET(X0,Y0+3) : DRAW "R4 U3 L4 D6 R4 U3" : GOTO 5030
  124. 5028    PSET(X0+4,Y0+3) : DRAW "L4 U3 R4 D6 L4"
  125. 5030  NEXT
  126. 5040  RETURN
  127.