home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / AS99.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.2 KB  |  95 lines
  1. 2000  '************************************************************
  2. 2100  '*                  TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CALLPSET: SG99.BAS                      *
  3. 2200  '*                  CALLTOUSRIMPRANDOMIZEEDITSOUNDPOINT: CLOSEDEFINTWHILESCREENBSAVELOCATEWRITEMERGECOLOR+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 "ZBSZ99.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. 4038  IF MAX<=1 THEN SY=0.01 ELSE IF MAX<=5 THEN SY=0.05 ELSE IF MAX<=10 THEN SY=0.1 ELSE IF MAX<=25 THEN SY=0.25 ELSE IF MAX<=50 THEN SY=0.5 ELSE IF MAX<=75 THEN SY=0.75 ELSE SY=1
  30. 4050  GOSUB 4080
  31. 4055  GOSUB 4200
  32. 4057  RETURN
  33. 4058  '
  34. 4059  '
  35. 4080  LINE (38,140)-(310,140)
  36. 4084  LINE (310,140)-STEP(-8,2)
  37. 4085  LINE (310,140)-STEP(-8,-2)
  38. 4087  LINE (38,140)-(38,1)
  39. 4088  LINE (38,1)-STEP(2,6)
  40. 4089  LINE (38,1)-STEP(-2,6)
  41. 4090  FOR I=1 TO K
  42. 4095    X1=40+I*200/K-(200/K-2)/2
  43. 4097    LINE (X1,138)-STEP(0,4)
  44. 4100    CN=X(I) : GOSUB 5002
  45. 4105  NEXT I
  46. 4110  L%=LEN(XS$)
  47. 4115  LOCATE 9,40-L%
  48. 4120  PRINT XS$
  49. 4125  L%=LEN(YS$)
  50. 4130  FOR I=1 TO L% STEP 2
  51. 4135    LOCATE 1+I\2,3
  52. 4136    SUB$=MID$(YS$,I,2)
  53. 4138    PRINT SUB$
  54. 4140  NEXT I
  55. 4143  FOR I=120 TO 40 STEP -20
  56. 4145    IF I<80 THEN GOTO 4150
  57. 4147    LOCATE I*6/100,1,0
  58. 4148    PRINT STR$((140-I)*SY)+"%"
  59. 4150    LINE (36,I)-(40,I)
  60. 4155  NEXT I
  61. 4160  RETURN
  62. 4180  '
  63. 4190  '
  64. 4200  C%=0
  65. 4205  FOR I=1 TO K
  66. 4210    C%=C%+1
  67. 4215    IF C%>3 THEN C%=C%-3
  68. 4220    LINE (40+(I-1)*200/K+2,140)-STEP(200/K-2,-Y(I)/SY),C%,BF
  69. 4225  NEXT I
  70. 4230  LINE (38,140)-(310,140)
  71. 4235  LINE (38,140)-(38,1)
  72. 4240  FOR I=1 TO K
  73. 4245    LINE (40+I*200/K-(200/K-2)/2,138)-STEP(0,4)
  74. 4250  NEXT I
  75. 4260  RETURN
  76. 5000  '
  77. 5001  '
  78. 5002  L=LEN(STR$(CN))-1
  79. 5004  FOR II=1 TO L
  80. 5005    X0=X1+4*(II-L/2-1) : Y0=148
  81. 5006    V=VAL(MID$(STR$(CN),II+1,1))
  82. 5008    IF V=0 THEN PSET(X0,Y0) : DRAW "R4 D6 L4 U6" : GOTO 5030
  83. 5010    ON V GOTO 5012,5014,5016,5018,5020,5022,5024,5026,5028
  84. 5012    PSET(X0+2,Y0) : DRAW "D6" : GOTO 5030
  85. 5014    PSET(X0,Y0) : DRAW "R4 D3 L4 D3 R4" : GOTO 5030
  86. 5016    PSET(X0,Y0) : DRAW "R4 D3 L4 R4 D3 L4" : GOTO 5030
  87. 5018    PSET(X0,Y0) : DRAW "D4 R4 L1 U4 D6" : GOTO 5030
  88. 5020    PSET(X0+4,Y0) : DRAW "L4 D3 R4 D3 L4" : GOTO 5030
  89. 5022    PSET(X0+4,Y0) : DRAW "L4 D6 R4 U3 L4" : GOTO 5030
  90. 5024    PSET(X0,Y0) : DRAW "R4 D6" : GOTO 5030
  91. 5026    PSET(X0,Y0+3) : DRAW "R4 U3 L4 D6 R4 U3" : GOTO 5030
  92. 5028    PSET(X0+4,Y0+3) : DRAW "L4 U3 R4 D6 L4"
  93. 5030  NEXT
  94. 5040  RETURN
  95.