home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b012 / 1.ddi / XSE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  19.7 KB  |  643 lines
  1. 10  DIM NBAA(9,10),NBP1(82),NBP2%(82),NBP3%(10),NBMD%(58),NBMP%(24),NBND%(48)
  2. 20  DIM NBNP%(15),NBAD%(15),NBAP%(15),NBSN$(35),NBDN$(14),NBGN$(10)
  3. 30  REM NB DATA TRANSFER
  4. 40  GOSUB 4250
  5. 50  DIM S%(NBN%+1),MARK%(NBN%+1),FS%(NBNS%),P%(NBDS%),PT%(NBDS%)
  6. 53  DIM W(NBM%),W1%(NBM%),NO%(NBM%),AN$(4),BN$(4)
  7. 60  REM INTIATE
  8. 80  S%(1)=36:MARK%(0)=0:MARK%(1)=0:FX=0
  9. 90  FOR I=2 TO NBN%
  10. 100  S%(I)=2*I-1:MARK%(I)=0:NEXT I
  11. 102  CLS:INPUT "WENDELSECLS<UNK! {00FA}>OPENBEEP";NU
  12. 104  INPUT "SOUND-MOTORAND(TO/)";AGE:IF AGE>31 THEN 104
  13. 108  INPUT "WRITETRONWENDELSEERLBSAVEWRITEOFF";MONTH:IF MONTH>12 OR MONTH<1 THEN 108
  14. 110  INPUT "USRERLWHILEXOR:      1=SOUNDUSR        2=BEEPDEFSNG";X
  15. 111  IF X=1 THEN MA$="SOUNDUSR":GOTO 120
  16. 112  IF X=2 THEN MA$="BEEPDEFSNG":GOTO 120
  17. 114  GOTO 110
  18. 120  PRINT "                    STRING$<UNK! {00F7}>   <0xCB!><0xDF!>"
  19. 122  I1=1:I2=12:E$="PSET<0xE4!><0xCB!><UNK! {00FC}>":GOSUB 132:IF X<>13 THEN 210
  20. 124  I1=13:I2=24:E$="PSET<0xE4!><0xCB!><UNK! {00FC}>":GOSUB 132:IF X<>25 THEN 210
  21. 126  I1=25:I2=35:E$="PSET<0xE4!><0xCB!><UNK! {00FC}>":GOSUB 132:IF X<>36 THEN 210
  22. 128  GOTO 530
  23. 132  H$="                               "
  24. 134  I=I1-1:J1=0:J2=0:K1=-1:K2=-1
  25. 136  IF J1<=K1 THEN PRINT"     ";A1$(J1);LEFT$(H$,30-LEN(A1$(J1))),:GOTO 148
  26. 138  IF I<I2 THEN 142
  27. 140  IF J2<=K2 THEN PRINT "                                  ",:GOTO 150
  28. 141  GOTO 166
  29. 142  GOSUB 178:IF I>I2 THEN 140
  30. 144  IF (I-I1)<10 THEN PRINT " ";
  31. 146  J1=0:PRINT I-I1;"=";A1$(J1);LEFT$(H$,30-LEN(A1$(J1))),
  32. 148  J1=J1+1
  33. 150  IF J2<=K2 THEN PRINT "     ";B1$(J2):GOTO 164
  34. 152  IF I<I2 THEN 158
  35. 154  IF J1<=K1 THEN PRINT:GOTO 136
  36. 156  GOTO 166
  37. 158  GOSUB 194:IF I>I2 THEN 154
  38. 160  IF (I-I1)<10 THEN PRINT " ";
  39. 162  J2=0:PRINT I-I1;"=";B1$(J2)
  40. 164  J2=J2+1:GOTO 136
  41. 166  IF (I2-I1+1)<10 THEN PRINT " ";
  42. 168  PRINT I2-I1+1;"=";E$
  43. 172  PRINT "FNELSEERLEQVPSET<0xE4!>STRING$USRSTRING$DEFSNGSPC(CLOSE,LINE<0xB4!>PSET<0xE4!>WHILE<0xE0!>OPENBEEP,SCREENCLOSEOPENMODLINE<0xB4!> RETURN LOAD<UNK! {00FC}>."
  44. 174  INPUT X:X=X+I1
  45. 176  RETURN
  46. 178  REM SUB LEFT FORMAT
  47. 180  I=I+1:IF I>I2 THEN 192
  48. 182  IF MARK%(I)=1 THEN 180
  49. 184  K1=0
  50. 186  A1$(K1)=MID$(NBSN$(I),K1*30+1,30)
  51. 188  IF A1$(K1)<>"" THEN K1=K1+1:GOTO 186
  52. 190  K1=K1-1
  53. 192  RETURN
  54. 194  REM SUB RIGHT FORMAT
  55. 196  I=I+1:IF I>I2 THEN 208
  56. 198  IF MARK%(I)=1 THEN  196
  57. 200  K2=0
  58. 202  B1$(K2)=MID$(NBSN$(I),30*K2+1,30):IF B1$(K2)="" THEN 206
  59. 204  K2=K2+1:GOTO 202
  60. 206  K2=K2-1
  61. 208  RETURN
  62. 210  REM CHECK COMPLAIN SCOPE
  63. 220  IF X<=NBN1%+1 THEN  240
  64. 230  PRINT "SOUND<0xE3!>CALL<UNK! {00F6}>MOTOR<0xCB!>STRING$<UNK! {00F7}><0xCB!><0xDF!><0xB5!>SOUNDWRITE<0xB6!>TAB(ERROR.":GOTO 530
  65. 240  IF (X=NBN1%+1) AND (L=2) OR (MARK%(X)=1) THEN 530
  66. 250  MARK%(X)=1
  67. 260  IF X<>1 THEN 320
  68. 270  INPUT "TO<0xE5!>TAB(BSAVE=";S%(1)
  69. 280  IF S%(1)>35 THEN 300
  70. 290  X=0:GOTO 340
  71. 300  IF S%(1)<=37 THEN 530
  72. 310  GOTO 340
  73. 320  IF X=10 THEN PRINT "LOCATEWENDBLOAD<0xB4!>LOCATEWHILEOPENIMPCOLORAUTOLOCATELOADCALL<UNK! {00F6}>STEPSTRING$";NBSN$(10);:INPUT HDQ
  74. 325  S%(X)=2*(X-1)
  75. 330  IF X>23 THEN 430
  76. 340  REM FIND SY. THAT MUST BE ASK,STROED IN FS%(K)
  77. 350  T=NBMP%(X+1)-NBMP%(X)-1:K=0
  78. 360  FOR I=0 TO T
  79. 370  P%(I)=NBMD%(NBMP%(X)+I):PT%(I)=NBNP%(P%(I)+1)-NBNP%(P%(I))-1
  80. 380  FOR J=0 TO PT%(I)
  81. 390  FS%(K)=NBND%(NBNP%(P%(I))+J)
  82. 400  IF MARK%(FS%(K))=0 THEN K=K+1
  83. 410  NEXT J:NEXT I
  84. 420  GOSUB 830
  85. 430  GOSUB 930
  86. 440  REM FIND ADDITIONAL SY.
  87. 450  K=0
  88. 460  FOR I=0 TO NBM%
  89. 470  IF W1%(I)>=10 THEN 520
  90. 480  P%(I)=NO%(I):PT%(I)=NBAP%(P%(I)+1)-NBAP%(P%(I))-1
  91. 490  FOR J=0 TO PT%(I)
  92. 500  FS%(K)=NBAD%(NBAP%(P%(I))+J):K=K+1
  93. 510  NEXT J:NEXT I
  94. 520  IF K<>0 THEN GOSUB 830
  95. 530  INPUT "CLOSERANDOMIZENOTUSRSTRING$TRONUSING<0xB4!>BSAVEXOR(Y/N)";S$
  96. 540  IF S$="Y" THEN 120
  97. 545  T$="WENDELSE     CLS<UNK! {00FA}>":GOSUB 4232
  98. 547  LPRINT:GOSUB 4180
  99. 550  GOSUB 930
  100. 560  REM ZONG HE ZHEN DUAN
  101. 565  T$="ERROR    <0xB6!>STEP":LPRINT:LPRINT"              ***** ";T$;" *****"
  102. 566  T$="ERROR    <0xB6!>STEP":PRINT:PRINT"              ***** ";T$;" *****"
  103. 570  A$="ERROR<0xB6!>STEP":B$="CALLTO<0xB6!>SCREEN":C$="MERGERESUMESPC(+":D$="<0xB5!>SOUND<0xB4!>EDITCLS^":INM=0
  104. 580  IF W1%(0)<10 THEN 710
  105. 590  LPRINT A$,"WENDCLOSESOUNDPOINTSAVE<UNK! {00F6}><0xB6!>RESUME":LPRINT C$,"RANDOMIZECSRLINWEND+"
  106. 591  PRINT A$,"WENDCLOSESOUNDPOINTSAVE<UNK! {00F6}><0xB6!>RESUME":PRINT C$,"RANDOMIZECSRLINWEND+"
  107. 600  IF S%(10)=19 THEN 640
  108. 620  FOR J=0 TO I:IF NO%(J)=3 OR NO%(J)=6 OR NO%(J)=14 THEN 640
  109. 630  NEXT J:LPRINT C$,"RANDOMIZECSRLINWEND+";NBSN$(10)
  110. 631  PRINT C$,"RANDOMIZECSRLINWEND+";NBSN$(10)
  111. 640  IF S%(18)=35 THEN 670
  112. 650  FOR J=0 TO I:IF NO%(J)=0 OR NO%(J)=1 OR NO%(J)=8 THEN 670
  113. 660  NEXT J:LPRINT C$,"RANDOMIZECSRLINWEND+";NBSN$(18)
  114. 661  PRINT C$,"RANDOMIZECSRLINWEND+";NBSN$(18)
  115. 670  IF S%(17)=33 AND S%(19)=37 THEN 678
  116. 672  FOR J=0 TO I:IF (NO%(J)=0) OR (NO%(J)=1) THEN 678
  117. 674  NEXT J:LPRINT "USINGTRONSPC(<0xE2!>KEYEQVSAVEDEFINTSTEP<0xB5!>THENCALLLOADWENDWENDELSE"
  118. 675  PRINT "USINGTRONSPC(<0xE2!>KEYEQVSAVEDEFINTSTEP<0xB5!>THENCALLLOADWENDWENDELSE"
  119. 678  IF INM<>1 THEN 685
  120. 680  LPRINT:LPRINT "                ******  USINGELSE  ERLOPEN  ******"
  121. 681  PRINT:PRINT "                ******  USINGELSE  ERLOPEN  ******"
  122. 685  LPRINT"------------------------------------------------                                                                SPC(MERGE  LOCATEEDIT (        )"
  123. 686  PRINT"------------------------------------------------                                                                SPC(MERGE  LOCATEEDIT (        )"
  124. 690  INPUT "STEPBSAVESPC(CLOSEOPTION<UNK! {00F6}>WENDELSESCREEN<0xCB!>LOCATEPRESETUSRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>STEP<0xB5!>THENCALL<0xB5!>SOUNDWENDELSESCREEN<0xCB!>BSAVEXOR(Y/N)";S$
  125. 695  IF S$="Y" THEN 60 ELSE IF S$="N" THEN CLS:PRINT "WRITE<0xB5!>CLOSEINSTRUSINGPOINTCOLORINSTR,CLOSE<0xB6!>NOTDEFINTSOUND<UNK! {00FA}>ERL'<0xB4!>TAB(LOCATERANDOMIZENOTBLOADWHILESAVESTEP<0xB5!>THENCALL":RUN "A:ZK.BAS" ELSE 690
  126. 700  END
  127. 710  I=0
  128. 720  IF I=0 AND (W1%(I+1)-W1%(I))>2 AND W1%(I+1)>=6 THEN 740
  129. 730  LPRINT:LPRINT:LPRINT "<";I+1;">."
  130. 731  PRINT:PRINT:PRINT "<";I+1;">."
  131. 740  IF W1%(I)>3 THEN 780
  132. 750  LPRINT A$,NBDN$(NO%(I)):LPRINT B$,NBGN$(W1%(I)-1)
  133. 751  PRINT A$,NBDN$(NO%(I)):PRINT B$,NBGN$(W1%(I)-1)
  134. 760  GOSUB 3210:IF NO%(I)<>13 THEN INM=1
  135. 770  GOTO 800
  136. 780  LPRINT A$,NBDN$(NO%(I));"?":LPRINT B$,NBGN$(W1%(I)-1)
  137. 781  PRINT A$,NBDN$(NO%(I));"?":PRINT B$,NBGN$(W1%(I)-1)
  138. 790  GOSUB 2820
  139. 800  IF I>=2 THEN 600
  140. 810  IF W1%(I+1)>=10 OR (W1%(I+1)-W1%(I))>2 AND W1%(I+1)>=6 THEN 600
  141. 820  I=I+1:GOTO 730
  142. 830  REM SUB1 ASK SY.
  143. 840  FOR I=0 TO K-1
  144. 850  IF MARK%(FS%(I))=1 THEN 920
  145. 860  MARK%(FS%(I))=1
  146. 870  IF FS%(I)<>1 THEN 890
  147. 880  PRINT NBSN$(1);"=";:INPUT S%(1):GOTO 920
  148. 890  PRINT NBSN$(FS%(I));"=Y/N";:INPUT S$
  149. 900  IF S$="N" THEN 920
  150. 905  IF FS%(I)=10 THEN PRINT "LOCATEWENDBLOAD<0xB4!>LOCATEWHILEOPENIMPCOLORAUTOLOCATELOADCALL<UNK! {00F6}>STEPSTRING$";NBSN$(10);:INPUT HDQ
  151. 910  S%(FS%(I))=2*(FS%(I)-1)
  152. 920  NEXT I:RETURN
  153. 930  REM SUB2 ZHEN DUAN
  154. 940  FOR I=0 TO NBM%
  155. 950  W(I)=0:NO%(I)=I
  156. 960  NEXT I
  157. 970  IF (MONTH>3) AND (MONTH<11) THEN 990
  158. 980  W(4)=2
  159. 990  W(1)=4.65:IF AGE<=5 THEN 1010
  160. 1000  W(9)=2.5:GOTO 1030
  161. 1010  W(9)=12.5:IF AGE>3 THEN 1030
  162. 1020  W(1)=10.35
  163. 1030  IF AGE>7 THEN 1050
  164. 1040  W(6)=2:GOTO 1080
  165. 1050  IF AGE>10 THEN 1070
  166. 1060  W(6)=4:GOTO 1080
  167. 1070  W(6)=12
  168. 1080  IF S%(1)<=37 THEN 1170
  169. 1090  W(7)=18.1:W(4)=W(4)+6
  170. 1100  IF S%(1)<37.5 THEN 1140
  171. 1110  W(0)=15:W(1)=W(1)-6:W(3)=22
  172. 1120  IF S%(1)<38.8 THEN 1210
  173. 1130  W(9)=W(9)+50:GOTO 1210
  174. 1140  T=2*(37.5-S%(1)):W(0)=W(0)+15*(1-T)-12*T
  175. 1150  W(1)=W(1)+15*T-6*(1-T):W(3)=W(3)+22*(1-T)*(1-T)+3*(1-(1-T)*(1-T))
  176. 1160  GOTO 1210
  177. 1170  W(7)=7.9:W(0)=W(0)-12:W(1)=W(1)+15
  178. 1180  IF S%(1)<=35 THEN 1200
  179. 1190  W(3)=W(3)+3:W(4)=W(4)+2:GOTO 1210
  180. 1200  W(3)=W(3)+21:W(4)=W(4)+6
  181. 1210  GOSUB 1260:GOSUB 1370:GOSUB 1500:GOSUB 1650:GOSUB 1690
  182. 1220  GOSUB 1740:GOSUB 1770:GOSUB 1850:GOSUB 1930:GOSUB 2050
  183. 1230  GOSUB 2100:GOSUB 2270:GOSUB 2310:GOSUB 2400:GOSUB 2490
  184. 1240  GOSUB 2580:GOSUB 2660:GOSUB 2740
  185. 1250  RETURN
  186. 1260  REM SUB2.1
  187. 1270  J=0:FOR K=0 TO 9
  188. 1280  J=NBP3%(K):FOR I=2 TO NBN%
  189. 1290  IF J>=NBP3%(K+1) THEN 1350
  190. 1300  IF S%(I)<NBP2%(J) THEN 1340
  191. 1310  IF S%(I)=NBP2%(J) THEN 1330
  192. 1320  J=J+1:I=I-1:GOTO 1340
  193. 1330  W(K)=W(K)+NBP1(J):J=J+1
  194. 1340  NEXT I
  195. 1350  NEXT K
  196. 1360  RETURN
  197. 1370  REM SUB HUR NAO
  198. 1380  IF (S%(19)=36) OR (S%(17)=32) OR (S%(18)=34) OR (S%(21)=40) THEN 1400
  199. 1390  W(0)=10:RETURN
  200. 1400  IF (S%(1)>37) OR (S%(33)=64) THEN RETURN
  201. 1410  IF W(0)<40 THEN 1430
  202. 1420  W(0)=35:RETURN
  203. 1430  IF W(0)<35 THEN 1450
  204. 1440  W(0)=32:RETURN
  205. 1450  IF W(0)<31 THEN 1470
  206. 1460  W(0)=30.95:RETURN
  207. 1470  IF W(0)<21 THEN 1490
  208. 1480  W(0)=29:RETURN
  209. 1490  IF W(0)>=19 THEN W(0)=27.9:RETURN
  210. 1500  REM SUB LU NEI CHU XUE
  211. 1510  IF (S%(16)=31) OR (AGE>3) THEN 1530
  212. 1520  W(1)=35:RETURN
  213. 1530  IF (S%(18)=34) OR (S%(17)=32) THEN RETURN
  214. 1540  IF S%(19)=36 THEN 1560:IF S%(16)=31 THEN 1640
  215. 1550  IF (S%(20)=39) AND (S%(34)=67) THEN 1640
  216. 1560  IF W(1)<63 THEN 1580
  217. 1570  W(1)=60:RETURN
  218. 1580  IF W(1)<56 THEN 1600
  219. 1590  W(1)=50:RETURN
  220. 1600  IF W(1)<51 THEN 1620
  221. 1610  W(1)=43:RETURN
  222. 1620  IF W(1)<42 THEN 1640
  223. 1630  W(1)=41:RETURN
  224. 1640  W(1)=20:RETURN
  225. 1650  REM SUB ZHI XI
  226. 1660  IF (S%(6)=11) OR (AGE>=3) THEN 1680
  227. 1670  W1%(2)=2:RETURN
  228. 1680  W1%(2)=10:RETURN
  229. 1690  REM SUB FEI YAN
  230. 1700  IF (AGE>2) OR (S%(6)=11) THEN 1720
  231. 1710  W(4)=27.5:RETURN
  232. 1720  IF (S%(32)=62) OR (S%(27)=53) AND (S%(5)=9) AND (S%(6)=11) AND (S%(7)=13) THEN W(4)=10
  233. 1730  RETURN
  234. 1740  REM SUB XI RU FEI YAN
  235. 1750  IF S%(32)=63 THEN W(5)=10
  236. 1760  RETURN
  237. 1770  REM SUB GAN YAN
  238. 1780  IF S%(10)=19 THEN 1820
  239. 1790  IF S%(11)=21 AND S%(28)=55 THEN 1810
  240. 1800  W(6)=66:RETURN
  241. 1810  IF W(3)<50 AND S%(19)=37 AND S%(15)=29 AND S%(17)=33 AND S%(18)=35 AND S%(21)=41 THEN 1830
  242. 1820  W(6)=20:RETURN
  243. 1830  IF (S%(23)=44) AND (S%(25)=48) THEN W(6)=W(6)-4
  244. 1840  RETURN
  245. 1850  REM GAN MAO
  246. 1860  IF (S%(5)=9) AND (S%(7)=13) AND (S%(15)=29) AND (S%(17)=33) AND (S%(18)=35) AND (S%(19)=37) AND (S%(21)=41) AND (S%(27)=53) THEN 1880
  247. 1870  W(7)=10:RETURN
  248. 1880  IF S%(6)=11 THEN RETURN
  249. 1890  IF W(7)<67 THEN 1910
  250. 1900  W(7)=65:RETURN
  251. 1910  IF W(7)>=50 THEN W(7)=45
  252. 1920  RETURN
  253. 1930  REM DI GAI JING JUE
  254. 1940  IF S%(18)=34 THEN 1960
  255. 1950  W1%(8)=11:RETURN
  256. 1960  IF (S%(16)=30) OR (S%(17)=32) OR (S%(19)=63) OR (S%(21)=40) OR (S%(20)=38) THEN 1950
  257. 1970  IF S%(1)>37.3 THEN 2010
  258. 1980  IF S%(33)=64 OR S%(8)=14 THEN 2000
  259. 1990  W1%(8)=2:RETURN
  260. 2000  W1%(8)=4:RETURN
  261. 2010  IF (W(7)>=50) AND (W(4)>=42) THEN 1980
  262. 2020  IF (S%(33)=64) OR (S%(8)=14) OR (S%(25)=48) THEN 2040
  263. 2030  W1%(8)=3:RETURN
  264. 2040  W1%(8)=9:RETURN
  265. 2050  REM SUB TUO SHUI RE
  266. 2060  IF W(4)<37 AND S%(3)=4 OR S%(5)=8 OR S%(6)=10 OR S%(7)=12 OR S%(13)=24 THEN 2090
  267. 2070  IF S%(15)=28 OR S%(16)=30 OR S%(17)=32 OR S%(18)=34 OR S%(19)=36 OR S%(21)=40 OR S%(27)=52 THEN 2090
  268. 2072  IF S%(10)=18 AND (S%(12)=22 OR S%(35)=68) THEN 2090
  269. 2074  IF S%(10)=18 AND (AGE>31 OR HDQ>6 AND AGE>8) THEN W(9)=W(9)-10
  270. 2080  RETURN
  271. 2090  W(9)=20:RETURN
  272. 2100  REM SUB BAI XUE ZHENG
  273. 2110  IF S%(10)=19 AND S%(12)=23 AND S%(13)=25 AND S%(15)=29 AND S%(35)=69 THEN W(3)=10:RETURN
  274. 2120  IF S%(25)=48 AND S%(26)=50 THEN W(3)=W(3)-1.7
  275. 2130  W(3)=W(3)-2.1
  276. 2140  IF (S%(1)>35) OR (S%(23)=45) AND (W(4)<42) THEN 2160
  277. 2150  W(3)=W(3)-18:RETURN
  278. 2160  IF (S%(1)>37.3) AND (W(4)>=43 OR W(0)>=54) THEN W(3)=W(3)-19
  279. 2170  IF S%(1)<37.3 OR S%(13)=24 OR S%(15)=28 OR S%(35)=68 OR S%(10)=19 THEN 2200
  280. 2180  IF (W(7)<50 AND W(4)<42 AND W(9)<71) OR (AGE>7 AND W(6)<62) THEN 2200
  281. 2190  W(3)=20
  282. 2200  IF S%(12)=23 THEN RETURN
  283. 2210  IF FX<>0 THEN 2230
  284. 2220  PRINT "1=";NBSN$(12);"STRING$INSTR","2=";NBSN$(12);"PRESET<0xE1!>";:INPUT FX
  285. 2230  IF FX<>1 THEN RETURN
  286. 2240  W(3)=W(3)-1.6:RETURN
  287. 2250  IF ((S%(1)>=37.8) OR (S%(1)<=35)) AND (S%(10)=19) AND (S%(13)=25) AND (S%(35)=69) AND (S%(15)=29) THEN W(3)=48
  288. 2260  RETURN
  289. 2270  REM SUB YING ZHONG
  290. 2280  IF S%(23)=45 THEN 2300
  291. 2290  W1%(10)=2:RETURN
  292. 2300  W1%(10)=11:RETURN
  293. 2310  REM SUB FU XIE
  294. 2320  IF (S%(12)=22) AND (AGE>=4) THEN 2340
  295. 2330  W1%(11)=11:RETURN
  296. 2340  IF FX<>0 THEN 2360
  297. 2350  PRINT "1=";NBSN$(12);"STRING$INSTR","2=";NBSN$(12);"PRESET<0xE1!>";:INPUT FX
  298. 2360  IF FX<>1 THEN 2380
  299. 2370  W1%(11)=2:RETURN
  300. 2380  IF W(6)<57 AND W(3)<47 THEN W1%(11)=3:RETURN
  301. 2390  W1%(11)=8:RETURN
  302. 2400  REM SUB ZI RAN CHU XUE
  303. 2410  IF (S%(20)=38) AND (AGE<10) AND (S%(16)=31) AND (S%(17)=33) AND (S%(18)=35) AND (S%(19)=37) THEN 2430
  304. 2420  W1%(12)=10:RETURN
  305. 2430  IF W(3)>=47 OR W(1)>=53.7 THEN 2420
  306. 2440  IF S%(1)>37.2 THEN 2460
  307. 2450  W1%(12)=2:RETURN
  308. 2460  IF S%(1)>37.5 THEN 2480
  309. 2470  W1%(12)=4:RETURN
  310. 2480  W1%(12)=6:RETURN
  311. 2490  REM JI YAN
  312. 2500  IF S%(14)=26 THEN 2520
  313. 2510  W1%(13)=11:RETURN
  314. 2520  IF W(3)>=39.6 THEN 2540
  315. 2530  W1%(13)=3:RETURN
  316. 2540  IF W(3)>=47 THEN 2560
  317. 2550  W1%(13)=5:RETURN
  318. 2560  IF S%(1)<=37.2 THEN 2550
  319. 2570  W1%(13)=6:RETURN
  320. 2580  REM SUB SHENG LI HUANG DAN
  321. 2590  IF (AGE<=13) AND (S%(10)=18) AND (W(3)<50) AND (S%(28)=55) THEN 2610
  322. 2600  W1%(14)=11:RETURN
  323. 2610  IF AGE<=10 OR HDQ<7 AND AGE<=14 THEN 2630
  324. 2620  W1%(14)=7:RETURN
  325. 2630  IF S%(11)=20 OR S%(1)>38 THEN 2650
  326. 2640  W1%(14)=3:RETURN
  327. 2650  W1%(14)=4:RETURN
  328. 2660  REM SUB 2.2 DEGRE CACULATE
  329. 2670  FOR I=0 TO 9
  330. 2680  IF (I=2) OR (I=8) THEN 2730
  331. 2690  FOR J=0 TO 10
  332. 2700  IF W(I)<NBAA(I,J) THEN 2720
  333. 2710  W1%(I)=J+1:GOTO 2730
  334. 2720  NEXT J
  335. 2730  NEXT I:RETURN
  336. 2740  REM SUB 2.3 SEQUENCE
  337. 2750  FOR I=1 TO NBM%
  338. 2760  FOR J=NBM% TO I STEP -1
  339. 2770  IF W1%(J-1)<=W1%(J) THEN 2800
  340. 2780  T=W1%(J):W1%(J)=W1%(J-1):W1%(J-1)=T
  341. 2790  T=NO%(J):NO%(J)=NO%(J-1):NO%(J-1)=T
  342. 2800  NEXT J:NEXT I
  343. 2810  RETURN
  344. 2820  REM SUB 3 OUTPUT ORDER
  345. 2830  X=NO%(I)+1
  346. 2840  OBTE$="RANDOMIZECSRLINWEND+TO<0xE5!>TAB(BSAVE":EXNAO$="WEND+SOUNDERLLOADRANDOMIZESPC(OPEN"
  347. 2850  ON X GOSUB 2880,2940,3190,3190,3190,3190,2980,3030,3050,3100,3190,3190,3120,3150,3170
  348. 2860  IF (W1%(0)<8) OR (S%(1)<=37) THEN RETURN
  349. 2870  LPRINT "WRITETRONKEYERR<0xB4!><UNK! {FDB2}>+"
  350. 2871  PRINT "WRITETRONKEYERR<0xB4!><UNK! {FDB2}>+":RETURN
  351. 2880  REM SUB 3.0 HUA HAO
  352. 2890  IF W1%(I)>5 THEN 2910
  353. 2900  LPRINT C$,EXNAO$
  354. 2901  PRINT C$,EXNAO$:RETURN
  355. 2910  IF S%(1)>37 THEN RETURN
  356. 2920  LPRINT C$,OBTE$;"NOT*";NBDN$(1);"STEP<0xE0!>PRESET<UNK! {00F8}>WRITESTRING$"
  357. 2921  PRINT C$,OBTE$;"NOT*";NBDN$(1);"STEP<0xE0!>PRESET<UNK! {00F8}>WRITESTRING$"
  358. 2930  RETURN
  359. 2940  REM SUB 3.1 LU NEI CHU XUE
  360. 2950  IF S%(1)<=37 THEN RETURN
  361. 2960  LPRINT C$,OBTE$;"NOT*";NBDN$(0);"STEP<0xE0!>PRESET<UNK! {00F8}>WRITESTRING$"
  362. 2961  PRINT C$,OBTE$;"NOT*";NBDN$(0);"STEP<0xE0!>PRESET<UNK! {00F8}>WRITESTRING$"
  363. 2970  RETURN
  364. 2980  REM SUB 3.6 GAN YAN
  365. 2990  IF W1%(I)>5 THEN 3010
  366. 3000  LPRINT C$,"WEND+OPTIONTAB(RANDOMIZEEDIT"
  367. 3001  PRINT C$,"WEND+OPTIONTAB(RANDOMIZEEDIT":RETURN
  368. 3010  IF AGE>14 OR S%(11)=20 THEN RETURN
  369. 3020  LPRINT C$,"RANDOMIZECSRLINWEND+LOCATEPRESETWRITEEQVLOCATEPRESET";NBDN$(14)
  370. 3021  PRINT C$,"RANDOMIZECSRLINWEND+LOCATEPRESETWRITEEQVLOCATEPRESET";NBDN$(14):RETURN
  371. 3030  REM SUB 3.7 GAN MAO
  372. 3040  LPRINT C$,"USINGTRONSPC(<0xE2!>USINGAUTOCLOSEDEFDBLTAB(AUTO";NBDN$(4)
  373. 3041  PRINT C$,"USINGTRONSPC(<0xE2!>USINGAUTOCLOSEDEFDBLTAB(AUTO";NBDN$(4):RETURN
  374. 3050  REM SUB 3.8 DI GAI YING JUE
  375. 3060  IF W1%(I)>4 THEN 3080
  376. 3070  LPRINT C$,"WEND+FNAUTOOPTIONPSET"
  377. 3071  PRINT C$,"WEND+FNAUTOOPTIONPSET":RETURN
  378. 3080  IF S%(1)<=37.3 THEN 3070
  379. 3090  LPRINT C$,OBTE$
  380. 3091  PRINT C$,OBTE$:RETURN
  381. 3100  REM SUB 3.9 TUO SHUI RE
  382. 3110  LPRINT C$,"OPTION<UNK! {00F8}><0xCB!>DEFSNGOPENMODRANDOMIZECSRLINWEND+"
  383. 3111  PRINT C$,"OPTION<UNK! {00F8}><0xCB!>DEFSNGOPENMODRANDOMIZECSRLINWEND+":RETURN
  384. 3120  REM  SUB 3.12 ZI RAN CHU XUE
  385. 3130  IF S%(1)<=37 THEN RETURN
  386. 3140  LPRINT C$,OBTE$
  387. 3141  PRINT C$,OBTE$:RETURN
  388. 3150  REM SUB 3.13 JI YAN
  389. 3160  LPRINT C$,"USINGTRONSPC(<0xE2!>LINEPOINTFNAUTOSTRING$TRON"
  390. 3161  PRINT C$,"USINGTRONSPC(<0xE2!>LINEPOINTFNAUTOSTRING$TRON":RETURN
  391. 3170  REM SUB 3.14 SHENG LI HUANG DAN
  392. 3180  LPRINT C$,"USINGTRONSPC(<0xE2!>MOTORMERGESTRING$POINTOPENMOD<0xB5!>SOUNDWHILE<0xE4!>CLOSEDEFDBL"
  393. 3181  PRINT C$,"USINGTRONSPC(<0xE2!>MOTORMERGESTRING$POINTOPENMOD<0xB5!>SOUNDWHILE<0xE4!>CLOSEDEFDBL":RETURN
  394. 3190  REM OTHERS
  395. 3200  RETURN
  396. 3210  REM SUB 4 OUTPUT TREATMENT
  397. 3215  LPRINT:LPRINT
  398. 3216  PRINT:PRINT
  399. 3220  LPRINT NBDN$(NO%(I));D$
  400. 3221  PRINT NBDN$(NO%(I));D$:X=NO%(I)+1
  401. 3230  ON X GOSUB 3250,3330,3410,3470,3540,3620,3680,3750,3790,3840,3870,3970,4050,4090,4120
  402. 3240  RETURN
  403. 3250  REM SUB 4.0 HUR NAO
  404. 3260  LPRINT "1. BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR25OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,OPEN/BLOADRANDOMIZE<0xCB!>INSTR10OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/"
  405. 3261  PRINT "1. BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR25OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,OPEN/BLOADRANDOMIZE<0xCB!>INSTR10OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/"
  406. 3270  LPRINT "   SAVEWEND<0xB5!><0xE3!>CLOSEIMPSAVEWENDUSINGTRON,CALLSTRING$USR<UNK! {00F8}><0xB5!>MERGESOUNDERLLOADRANDOMIZESPC(OPENERR<UNK! {FDB3}>TROFFOPENMOD2-3STRING$POINT,"
  407. 3271  PRINT "   SAVEWEND<0xB5!><0xE3!>CLOSEIMPSAVEWENDUSINGTRON,CALLSTRING$USR<UNK! {00F8}><0xB5!>MERGESOUNDERLLOADRANDOMIZESPC(OPENERR<UNK! {FDB3}>TROFFOPENMOD2-3STRING$POINT,"
  408. 3280  LPRINT "2. SAVECLSERR<UNK! {FDCB}><0xE1!>STRING$USR<0xB6!>SAVEOPENTHENTHENFN<0xCB!>DEFSNG."
  409. 3281  PRINT "2. SAVECLSERR<UNK! {FDCB}><0xE1!>STRING$USR<0xB6!>SAVEOPENTHENTHENFN<0xCB!>DEFSNG."
  410. 3290  LPRINT "3. <0xB6!>ERLSTRING$TRON<0xB4!>EDITCLS^:(1)ERRIMPSAVEWEND(2)MERGE<0xE2!>SCREENSCREEN(3)STRING$TAB(MOTORPSETTHENFN<0xCB!>DEFSNG."
  411. 3291  PRINT "3. <0xB6!>ERLSTRING$TRON<0xB4!>EDITCLS^:(1)ERRIMPSAVEWEND(2)MERGE<0xE2!>SCREENSCREEN(3)STRING$TAB(MOTORPSETTHENFN<0xCB!>DEFSNG."
  412. 3310  LPRINT "4. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR."
  413. 3311  PRINT "4. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR."
  414. 3320  RETURN
  415. 3330  REM  SUB 4.1 LU NEI CHU XUE
  416. 3340  LPRINT "1. <0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+OPENTHENWRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}>OPTION<UNK! {00F7}>1OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON,4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB(."
  417. 3341  PRINT "1. <0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+OPENTHENWRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}>OPTION<UNK! {00F7}>1OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON,4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB(."
  418. 3350  LPRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1OPENMOTORCOLOR<0xCB!>,TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC0.1OPENMOTORCOLOR<0xCB!>OPENTHENSTRING$RANDOMIZEFNAUTOWRITELOAD<0xCB!><0xE1!>0.1OPENMOTORCOLOR<0xCB!>,SAVEWENDUSINGTRON."
  419. 3351  PRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1OPENMOTORCOLOR<0xCB!>,TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC0.1OPENMOTORCOLOR<0xCB!>OPENTHENSTRING$RANDOMIZEFNAUTOWRITELOAD<0xCB!><0xE1!>0.1OPENMOTORCOLOR<0xCB!>,SAVEWENDUSINGTRON."
  420. 3360  LPRINT "3. PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/CLOSEIMP<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY0.6-1OPENMOTORCOLOR<0xCB!>/TO/,SAVEWEND<0xB5!><0xE3!>."
  421. 3361  PRINT "3. PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/CLOSEIMP<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY0.6-1OPENMOTORCOLOR<0xCB!>/TO/,SAVEWEND<0xB5!><0xE3!>."
  422. 3370  LPRINT "4. BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET2-3OPENMOTORCOLOR<0xCB!>/TO/CLOSEIMPLINEWEND<0xB6!>RESUME1-2OPENMOTORCOLOR<0xCB!>/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  423. 3371  PRINT "4. BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET2-3OPENMOTORCOLOR<0xCB!>/TO/CLOSEIMPLINEWEND<0xB6!>RESUME1-2OPENMOTORCOLOR<0xCB!>/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  424. 3380  LPRINT "5. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:PSETSTEPTOFNTOPRESETSAVEWENDUSINGTRONCLOSEIMPFN<UNK! {00F5}>TAB(<UNK! {00FC}>SCREEN*,WHILETROFFBEEPDEFDBL,LOCATE<0xE4!>FNAUTO."
  425. 3381  PRINT "5. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:PSETSTEPTOFNTOPRESETSAVEWENDUSINGTRONCLOSEIMPFN<UNK! {00F5}>TAB(<UNK! {00FC}>SCREEN*,WHILETROFFBEEPDEFDBL,LOCATE<0xE4!>FNAUTO."
  426. 3400  RETURN
  427. 3410  REM SUB 4.2 ZHI XI
  428. 3420  LPRINT "1. PRESET<0xE5!>CALL<UNK! {FDBA}>\TAB(<UNK! {00FC}><0xB5!>CLSWRITESTRING$BLOADVARPTRTAB(OR."
  429. 3421  PRINT "1. PRESET<0xE5!>CALL<UNK! {FDBA}>\TAB(<UNK! {00FC}><0xB5!>CLSWRITESTRING$BLOADVARPTRTAB(OR."
  430. 3430  LPRINT "2. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  431. 3431  PRINT "2. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  432. 3440  LPRINT "3. STRING$USRLOCATE<0xE0!>USRERLOPEN\TAB(<UNK! {00FC}>USR<0xCB!>WRITEPOINTLOADMOTOR:BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$CLOSEIMPCOLORKEYCLSDEFINTBLOAD<UNK! {00F7}>."
  433. 3441  PRINT "3. STRING$USRLOCATE<0xE0!>USRERLOPEN\TAB(<UNK! {00FC}>USR<0xCB!>WRITEPOINTLOADMOTOR:BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$CLOSEIMPCOLORKEYCLSDEFINTBLOAD<UNK! {00F7}>."
  434. 3450  LPRINT "4. SCREEN<0xCB!>RANDOMIZESWAPOPEN\TAB(<UNK! {00FC}>."
  435. 3451  PRINT "4. SCREEN<0xCB!>RANDOMIZESWAPOPEN\TAB(<UNK! {00FC}>."
  436. 3460  RETURN
  437. 3470  REM 4.3 BAI XUE ZHENG
  438. 3480  LPRINT "1. PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>INSTR5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRON,CALLSTRING$USR<UNK! {00F8}>7-8TO/."
  439. 3481  PRINT "1. PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>INSTR5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRON,CALLSTRING$USR<UNK! {00F8}>7-8TO/."
  440. 3490  LPRINT "2. OPEN/BLOADRANDOMIZE<0xCB!>INSTR10OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,SAVEWENDUSINGTRONCLOSEIMPSAVEWEND<0xB5!><0xE3!>,CALLSTRING$USR<UNK! {00F8}>7-10TO/."
  441. 3491  PRINT "2. OPEN/BLOADRANDOMIZE<0xCB!>INSTR10OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,SAVEWENDUSINGTRONCLOSEIMPSAVEWEND<0xB5!><0xE3!>,CALLSTRING$USR<UNK! {00F8}>7-10TO/."
  442. 3500  LPRINT "3. WHILETROFFBEEPDEFDBL."
  443. 3501  PRINT "3. WHILETROFFBEEPDEFDBL."
  444. 3510  LPRINT "4. RANDOMIZEDELETEOPTION<UNK! {00F8}>USING<0xE3!>RANDOMIZECLOSE<0xB5!>SOUND<0xCB!>DEFSNGOPENTHENSCREENSCREENMOTORCOLOR."
  445. 3511  PRINT "4. RANDOMIZEDELETEOPTION<UNK! {00F8}>USING<0xE3!>RANDOMIZECLOSE<0xB5!>SOUND<0xCB!>DEFSNGOPENTHENSCREENSCREENMOTORCOLOR."
  446. 3520  LPRINT "5. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR10CC/RANDOMIZERENUMMERGEOR."
  447. 3521  PRINT "5. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR10CC/RANDOMIZERENUMMERGEOR."
  448. 3530  RETURN
  449. 3540  REM  SUB 4.4 FEI YAN
  450. 3550  LPRINT "1. PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR5000-10000<0xB5!>ERASETAB(CLOSE/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  451. 3551  PRINT "1. PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR5000-10000<0xB5!>ERASETAB(CLOSE/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  452. 3560  LPRINT "2. COLORRESUMESOUNDPRESETBLOADRANDOMIZE<0xCB!>INSTR15OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,WRITESTRING$MOTORMERGE<0xB4!>TAB(LOADELSEUSINGTRON."
  453. 3561  PRINT "2. COLORRESUMESOUNDPRESETBLOADRANDOMIZE<0xCB!>INSTR15OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,WRITESTRING$MOTORMERGE<0xB4!>TAB(LOADELSEUSINGTRON."
  454. 3570  LPRINT "3. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  455. 3571  PRINT "3. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  456. 3580  LPRINT "4. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR,RANDOMIZEDELETEOPTION<UNK! {00F8}>SCREENSCREENCOLORRESUMEOPENTHENSPC(OPENTO<0xE5!>."
  457. 3581  PRINT "4. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:LOCATE<0xE4!>FNAUTOCLOSEIMPFNAUTOMERGEDEFSTR,RANDOMIZEDELETEOPTION<UNK! {00F8}>SCREENSCREENCOLORRESUMEOPENTHENSPC(OPENTO<0xE5!>."
  458. 3600  LPRINT "5. STRING$USRSPC(MERGESTRING$USRSPC(DELETE:<0xB6!>CLSWENDTAB(TOCLS,COLORVARPTRWRITE<UNK! {FE2E}>"
  459. 3601  PRINT "5. STRING$USRSPC(MERGESTRING$USRSPC(DELETE:<0xB6!>CLSWENDTAB(TOCLS,COLORVARPTRWRITE<UNK! {FE2E}>"
  460. 3610  RETURN
  461. 3620  REM  SUB 4.5 XI RU FEI YAN
  462. 3630  LPRINT "1. PRESET<0xE5!>CALL<UNK! {FDBA}>\TAB(<UNK! {00FC}><0xB5!>CLSWRITESTRING$BLOADVARPTRTAB(OR."
  463. 3631  PRINT "1. PRESET<0xE5!>CALL<UNK! {FDBA}>\TAB(<UNK! {00FC}><0xB5!>CLSWRITESTRING$BLOADVARPTRTAB(OR."
  464. 3640  LPRINT "2. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  465. 3641  PRINT "2. TAB(<UNK! {00FC}>FN<UNK! {00F5}>."
  466. 3650  LPRINT "3. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR,MOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTRCLOSEIMPOPEN/BLOADRANDOMIZE<0xCB!>INSTR."
  467. 3651  PRINT "3. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR,MOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTRCLOSEIMPOPEN/BLOADRANDOMIZE<0xCB!>INSTR."
  468. 3660  LPRINT "4. BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$3OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON,WHILEINSTRSPC(AUTOLOCATEWHILEWRITE<UNK! {FE2E}>"
  469. 3661  PRINT "4. BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$3OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON,WHILEINSTRSPC(AUTOLOCATEWHILEWRITE<UNK! {FE2E}>"
  470. 3670  RETURN
  471. 3680  REM SUB 4.6 GAN YAN
  472. 3690  LPRINT "1. PRESETCOLOR<0xB5!>SOUND<0xCB!>KEY1-2OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,CALLSTRING$USR<UNK! {00F8}>1-2ERLBSAVE."
  473. 3691  PRINT "1. PRESETCOLOR<0xB5!>SOUND<0xCB!>KEY1-2OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,CALLSTRING$USR<UNK! {00F8}>1-2ERLBSAVE."
  474. 3700  LPRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRA,D,K LOADELSEUSINGTRON."
  475. 3701  PRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRA,D,K LOADELSEUSINGTRON."
  476. 3710  LPRINT "3. <0xB5!>RESUME<0xCB!><0xE1!>SOUNDPSET0.05COLOR<0xCB!>,BLOADCOLORSCREENERRSCREEN<UNK! {FDB4}>TAB(."
  477. 3711  PRINT "3. <0xB5!>RESUME<0xCB!><0xE1!>SOUNDPSET0.05COLOR<0xCB!>,BLOADCOLORSCREENERRSCREEN<UNK! {FDB4}>TAB(."
  478. 3720  LPRINT "4. STRING$USRSPC(MERGESTRING$USRSPC(DELETE:SPC(XORCALLBSAVE9COLOR<0xCB!>,POINTIMPPOINT<0xDF!>3COLOR<0xCB!>,NOTEQVMERGEXOR3COLOR<0xCB!>,CLOSEPSETLINEINSTR3COLOR<0xCB!>,BLOADCOLORSCREENERRSPC(CLOSELOADMOTOR."
  479. 3721  PRINT "4. STRING$USRSPC(MERGESTRING$USRSPC(DELETE:SPC(XORCALLBSAVE9COLOR<0xCB!>,POINTIMPPOINT<0xDF!>3COLOR<0xCB!>,NOTEQVMERGEXOR3COLOR<0xCB!>,CLOSEPSETLINEINSTR3COLOR<0xCB!>,BLOADCOLORSCREENERRSPC(CLOSELOADMOTOR."
  480. 3740  RETURN
  481. 3750  REM  SUB 4.7 GAN MAO
  482. 3760  LPRINT "1. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:OPEN/BLOADRANDOMIZE<0xCB!>INSTR25OPENMOTORCOLOR<0xCB!>,BLOADCOLORSCREENERR<0xCB!>SOUND<0xB4!>TAB(."
  483. 3761  PRINT "1. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:OPEN/BLOADRANDOMIZE<0xCB!>INSTR25OPENMOTORCOLOR<0xCB!>,BLOADCOLORSCREENERR<0xCB!>SOUND<0xB4!>TAB(."
  484. 3770  LPRINT "2. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:(1)LINETRONBSAVECALLKEYTRON1/3#,WHILEINSTRSPC(AUTOLOCATEWHILEWRITE<UNK! {FE22}>
  485. 3771  PRINT "2. STRING$ERRORCALLSTRING$MOTORPSETWRITERESUME:(1)LINETRONBSAVECALLKEYTRON1/3#,WHILEINSTRSPC(AUTOLOCATEWHILEWRITE<UNK! {FE22}>
  486. 3780  LPRINT "            (2)USRELSE<0xB6!><UNK! {00F9}>STRING$RANDOMIZECOLORSCREENOPENSTEPLOADMOTOR5CC,BLOADCOLORSCREENERRSCREEN<UNK! {FDB4}>TAB(."
  487. 3781  PRINT "            (2)USRELSE<0xB6!><UNK! {00F9}>STRING$RANDOMIZECOLORSCREENOPENSTEPLOADMOTOR5CC,BLOADCOLORSCREENERRSCREEN<UNK! {FDB4}>TAB(."
  488. 3785  RETURN
  489. 3790  REM SUB 4.8 DI GAI YING JUE
  490. 3800  LPRINT "1. 10%PSETSTEPTOFNTOPRESET<0xCB!><0xE1!>OPTIONPSET5-10CC,SAVEWENDUSINGTRONCLOSEIMPLOADELSEUSINGTRON."
  491. 3801  PRINT "1. 10%PSETSTEPTOFNTOPRESET<0xCB!><0xE1!>OPTIONPSET5-10CC,SAVEWENDUSINGTRONCLOSEIMPLOADELSEUSINGTRON."
  492. 3810  LPRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRD."
  493. 3811  PRINT "2. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRD."
  494. 3820  LPRINT "3. 2.5%BSAVESCREENCLOSEDEFDBLOPTIONPSET1-2COLOR<0xCB!>/SCREENERR,COLORVARPTRWRITE<UNK! {FE2E}>"
  495. 3821  PRINT "3. 2.5%BSAVESCREENCLOSEDEFDBLOPTIONPSET1-2COLOR<0xCB!>/SCREENERR,COLORVARPTRWRITE<UNK! {FE2E}>"
  496. 3830  RETURN
  497. 3840  REM SUB 4.9 TUO SHUI RE
  498. 3850  LPRINT "1. 5%PSETSTEPTOFNTOPRESETOPENTHEN0.9%FNTAB(<0xCB!>DEFSNGOPTION<UNK! {00F7}>20CC,SAVEWENDUSINGTRON."
  499. 3851  PRINT "1. 5%PSETSTEPTOFNTOPRESETOPENTHEN0.9%FNTAB(<0xCB!>DEFSNGOPTION<UNK! {00F7}>20CC,SAVEWENDUSINGTRON."
  500. 3860  LPRINT "2. <0xB6!><0xE0!>OPENSCREEN<0xCB!>DEFSNG."
  501. 3861  PRINT "2. <0xB6!><0xE0!>OPENSCREEN<0xCB!>DEFSNG.":RETURN
  502. 3870  REM SUB 4.10 YING ZHONG
  503. 3880  LPRINT "1. PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR5000-10000<0xB5!>ERASETAB(CLOSE/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  504. 3881  PRINT "1. PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR5000-10000<0xB5!>ERASETAB(CLOSE/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  505. 3890  LPRINT "2. COLORRESUMESOUNDPRESETBLOADRANDOMIZE<0xCB!>INSTR15OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,SAVEWENDUSINGTRONCLOSEIMPLOADELSEUSINGTRON."
  506. 3891  PRINT "2. COLORRESUMESOUNDPRESETBLOADRANDOMIZE<0xCB!>INSTR15OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,SAVEWENDUSINGTRONCLOSEIMPLOADELSEUSINGTRON."
  507. 3900  LPRINT "3. OPTION<0xB4!>TAB(BSAVE."
  508. 3901  PRINT "3. OPTION<0xB4!>TAB(BSAVE."
  509. 3910  LPRINT "4. RANDOMIZEDELETEOPTION<UNK! {00F8}>SPC(OPENTO<0xE5!>LOADLINESCREENSCREENCOLORRESUME50COLORRESUME/RANDOMIZERENUMMERGEOR/TO/."
  510. 3911  PRINT "4. RANDOMIZEDELETEOPTION<UNK! {00F8}>SPC(OPENTO<0xE5!>LOADLINESCREENSCREENCOLORRESUME50COLORRESUME/RANDOMIZERENUMMERGEOR/TO/."
  511. 3920  LPRINT "5. PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY5-10OPENMOTORCOLOR<0xCB!>STEPELSELOCATETHEN<0xB5!>MERGE5-10%PSETSTEPTOFNTOPRESETSCREENPOINTSPC(OPENSTRING$USRSAVEWEND<0xB5!><0xE3!>"
  512. 3921  PRINT "5. PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY5-10OPENMOTORCOLOR<0xCB!>STEPELSELOCATETHEN<0xB5!>MERGE5-10%PSETSTEPTOFNTOPRESETSCREENPOINTSPC(OPENSTRING$USRSAVEWEND<0xB5!><0xE3!>"
  513. 3930  LPRINT "   LOADNOTSCREEN*TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTR100-200OPENMOTORCOLOR<0xCB!>,OPENBLOADUSINGAUTOOPENMODSTRING$XORMERGEERASELOAD<UNK! {00F5}>MOTORCOLOR."
  514. 3931  PRINT "   LOADNOTSCREEN*TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTR100-200OPENMOTORCOLOR<0xCB!>,OPENBLOADUSINGAUTOOPENMODSTRING$XORMERGEERASELOAD<UNK! {00F5}>MOTORCOLOR."
  515. 3940  LPRINT "6. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRE,KOPENTHEN<0xB5!>SCREENSOUNDPOINTMOTORCOLOROPENSTEPLOADMOTOR."
  516. 3941  PRINT "6. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRE,KOPENTHEN<0xB5!>SCREENSOUNDPOINTMOTORCOLOROPENSTEPLOADMOTOR."
  517. 3950  LPRINT "7. WRITETAB(CALL<UNK! {00F6}>FNAUTOLOCATEWHILE:TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRCOPENTHENK."
  518. 3951  PRINT "7. WRITETAB(CALL<UNK! {00F6}>FNAUTOLOCATEWHILE:TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRCOPENTHENK."
  519. 3960  RETURN
  520. 3970  REM  SUB 4.11 FU XIE
  521. 3980  LPRINT "1. LOAD<UNK! {00F5}>KEY'TAB(RANDOMIZEFN<UNK! {00F8}>MOTORCOLOR."
  522. 3981  PRINT "1. LOAD<UNK! {00F5}>KEY'TAB(RANDOMIZEFN<UNK! {00F8}>MOTORCOLOR."
  523. 3990  LPRINT "2. COLORVARPTRWRITE<UNK! {FEC6}>STEPTOFNTOPRESET<0xCB!>DEFSNG."
  524. 3991  PRINT "2. COLORVARPTRWRITE<UNK! {FEC6}>STEPTOFNTOPRESET<0xCB!>DEFSNG."
  525. 4000  LPRINT "3. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC,B."
  526. 4001  PRINT "3. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC,B."
  527. 4010  LPRINT "4. MOTORIMP<0xCB!><0xE1!>USRBSAVEBLOADRANDOMIZE<0xCB!>INSTR0.05-0.1COLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/CLOSEIMP<0xDF!>CLOSE<0xE0!>RENUM<0xDF!>IMPTHENAUTO10OPENMOTORCOLOR<0xCB!>.RANDOMIZERENUMMERGEOR/TO/."
  528. 4011  PRINT "4. MOTORIMP<0xCB!><0xE1!>USRBSAVEBLOADRANDOMIZE<0xCB!>INSTR0.05-0.1COLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/CLOSEIMP<0xDF!>CLOSE<0xE0!>RENUM<0xDF!>IMPTHENAUTO10OPENMOTORCOLOR<0xCB!>.RANDOMIZERENUMMERGEOR/TO/."
  529. 4020  LPRINT "   COLORVARPTRWRITE<UNK! {FEBB}>IMP<0xB6!><0xE0!>ERRCALLSAVE<UNK! {00FA}><0xCB!>INSTRB1.5-2.5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  530. 4021  PRINT "   COLORVARPTRWRITE<UNK! {FEBB}>IMP<0xB6!><0xE0!>ERRCALLSAVE<UNK! {00FA}><0xCB!>INSTRB1.5-2.5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/,LOADELSEUSINGTRONCLOSEIMPSAVEWENDUSINGTRON."
  531. 4030  LPRINT "5. THENFN<0xCB!>DEFSNG<0xCB!><0xE1!>STRING$USR<0xB6!>SAVELOCATEWHILELOCATE<0xE4!>SPC(OPEN."
  532. 4031  PRINT "5. THENFN<0xCB!>DEFSNG<0xCB!><0xE1!>STRING$USR<0xB6!>SAVELOCATEWHILELOCATE<0xE4!>SPC(OPEN."
  533. 4040  RETURN
  534. 4050  REM SUB 4.12 ZI RAN CHU XUE
  535. 4060  LPRINT "1. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRON,12USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB(."
  536. 4061  PRINT "1. TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1OPENMOTORCOLOR<0xCB!>,LOADELSEUSINGTRON,12USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB(."
  537. 4070  LPRINT "2. LOCATE<0xE4!>USRBSAVESTEPLOCATEFNAUTO10-20CC/RANDOMIZERENUMMERGEOR."
  538. 4071  PRINT "2. LOCATE<0xE4!>USRBSAVESTEPLOCATEFNAUTO10-20CC/RANDOMIZERENUMMERGEOR."
  539. 4080  RETURN
  540. 4090  REM SUB 4.13 JI YAN
  541. 4100  LPRINT "1. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTRCLOSEIMPMOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTR."
  542. 4101  PRINT "1. COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTRCLOSEIMPMOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTR."
  543. 4105  LPRINT "2. PSET-WENDCOLORCLOSECLOSESPC(DELETE."
  544. 4106  PRINT "2. PSET-WENDCOLORCLOSECLOSESPC(DELETE."
  545. 4110  RETURN
  546. 4120  REM SUB 4.14 SHANG LI HUANG DAN
  547. 4130  LPRINT "1. CLSLOADRANDOMIZE<0xE2!>STRING$TAB(MOTORPSET."
  548. 4131  PRINT "1. CLSLOADRANDOMIZE<0xE2!>STRING$TAB(MOTORPSET."
  549. 4140  LPRINT "2. SOUNDBLOADBLOADUSINGSOUNDPRESET,COLORVARPTRWRITE<UNK! {FE2E}>"
  550. 4141  PRINT "2. SOUNDBLOADBLOADUSINGSOUNDPRESET,COLORVARPTRWRITE<UNK! {FE2E}>"
  551. 4150  LPRINT "3. STRING$USRSPC(DELETE:SPC(XORCALLBSAVE9COLOR<0xCB!>,<0xB4!>MODCLOSEPSET3COLOR<0xCB!>,CLOSEPSETPOINT<0xCB!>4COLOR<0xCB!>,LOAD<0xE5!>WRITE<UNK! {FE2C}>BLOADCOLORSCREENERRSPC(CLOSELOADMOTOR."
  552. 4151  PRINT "3. STRING$USRSPC(DELETE:SPC(XORCALLBSAVE9COLOR<0xCB!>,<0xB4!>MODCLOSEPSET3COLOR<0xCB!>,CLOSEPSETPOINT<0xCB!>4COLOR<0xCB!>,LOAD<0xE5!>WRITE<UNK! {FE2C}>BLOADCOLORSCREENERRSPC(CLOSELOADMOTOR."
  553. 4170  RETURN
  554. 4180  REM SUB 5 LIST OF SY.
  555. 4200  IF (S%(1)>37) OR (S%(1)<35) THEN LPRINT "TO<0xE5!>TAB(BSAVE=";S%(1)
  556. 4201  IF (S%(1)>37) OR (S%(1)<35) THEN PRINT "TO<0xE5!>TAB(BSAVE=";S%(1)
  557. 4210  FOR I=2 TO NBN%
  558. 4220  IF S%(I)<>2*(I-1) THEN 4230
  559. 4222  LPRINT NBSN$(I);:IF I=10 THEN LPRINT AGE-HDQ;"TO/";
  560. 4223  PRINT NBSN$(I);:IF I=10 THEN PRINT AGE-HDQ;"TO/";
  561. 4224  LPRINT
  562. 4225  PRINT
  563. 4230  NEXT I
  564. 4231  RETURN
  565. 4232  GOSUB 5000
  566. 4248  RETURN
  567. 4250  REM NEWBORY DATA TRANSFER
  568. 4260  FOR I=0 TO 9:FOR J=O TO 10
  569. 4270  READ NBAA(I,J)
  570. 4280  NEXT J:NEXT I
  571. 4290  FOR I=0 TO 82
  572. 4300  READ NBP1(I),NBP2%(I):NEXT I
  573. 4310  FOR I=0 TO 10
  574. 4320  READ NBP3%(I):NEXT I
  575. 4330  FOR I=0 TO 58
  576. 4340  READ NBMD%(I):NEXT I
  577. 4350  FOR I=0 TO 24
  578. 4360  READ NBMP%(I):NEXT I
  579. 4370  FOR I=0 TO 48
  580. 4380  READ NBND%(I):NEXT I
  581. 4390  FOR I=0 TO 15
  582. 4400  READ NBNP%(I),NBAD%(I),NBAP%(I):NEXT I
  583. 4410  DATA 81,68,54,40,38,34,31,30.92,28,27,0,69,63,53.7,44,42,40,31,31,31,0,0
  584. 4420  DATA 0,0,0,0,0,0,0,0,0,0,0,68,57,50,47,43,43,39.6,39.6,29,0,0
  585. 4430  DATA 46,43,42,37,33,30,28,28,27,0,0,71,66,57,50,50,49,49,49,49,0,0
  586. 4440  DATA 67,64,62,57,54,52,51,51,51,48,0,100,67,50,43,43,43,43,41,36,0,0
  587. 4450  DATA 0,0,0,0,0,0,0,0,0,0,0,91,83,71,68,61,58,58,58,58,0,0
  588. 4460  DATA 3,30,9.1,32,3.9,33,21,34,9,35,7,36,3,37,10,40,2,42,22,64
  589. 4470  DATA 10,30,2,31,10.5,32,4.5,33,14.8,34,5.2,35,4,36,1,37,11,38,2,39,6,66,4,67
  590. 4480  DATA 16.6,18,5.4,19,4.8,22,3.2,23,15,24,2,25,8.7,28,0.3,29,3.9,48,2.1,49,3.9,50,2.1,51,9,68,1,69
  591. 4490  DATA 9,6,3,7,16,8,5,9,9.2,10,1.8,11,10.25,12,3.75,13,24,52,6,53
  592. 4500  DATA 6,6,3,7,12,8,4,9,4.2,10,2.8,11,7.5,12,2.5,13,1.8,14,1.2,15,20,52,5,53,30,62
  593. 4510  DATA 25,18,4.5,20,0.5,21,3,22,2,23,3,46,2,47,6,48,2,49,10,56,5.25,58,1.75,59
  594. 4520  DATA 23,2,9,3,19.6,4,2.4,5,3,48,2,49,10,50,5,51
  595. 4530  DATA 3,16,9,50,3,51,20,60
  596. 4540  DATA 0,10,22,22,36,46,59,71,79,79,83
  597. 4550  DATA 3,4,5,10,0,3,4,5,7,9,4,5,7,4,5,7,4,5,7,4,5,2,4,5,4,5,0
  598. 4560  DATA 1,5,11,9,3,6,14,6,3,6,11,3,13,3,13,3,0,1,0,1,0,1,8,0,1,1,3,12,0,1,0,10
  599. 4570  DATA 0,4,10,13,16,19,21,24,26,30,31,34,35,38,40,42,43,45,47,50,52,55,57,58,59
  600. 4580  DATA 1,17,18,19,21,33,1,15,16,17,18,19,6,1,10,12,13,35,5,6,7,27,5,6,7
  601. 4590  DATA 8,27,32,10,11,25,29,30,1,2,3,1,8,18,25,1,26,31,23,1,12,20,14,10
  602. 4600  DATA 0,16,0,6,22,2,12,34,3,13,15,3,18,25,6,22,26,8
  603. 4610  DATA 28,1,9,33,4,12,36,4,14,40,12,14,43,24,15
  604. 4620  DATA 44,28,15,46,25,15,47,26,15,48,9,15,49,0,15
  605. 4630  FOR I=1 TO 35:READ NBSN$(I):NEXT I
  606. 4640  FOR I=0 TO 14:READ NBDN$(I):NEXT I
  607. 4650  FOR I=0 TO 10:READ NBGN$(I):NEXT I
  608. 4660  DATA "TO<0xE5!>TAB(BSAVE","WHILEPRESETSCREEN<UNK! {00FB}>BEEP=TO+","FNLOCATECALL<0xE4!>FNAUTO","COLORSCREEN<0xCB!>ERL","COLORVARPTRTHENBSAVEBEEPOFFSOUNDDEFINT"
  609. 4670  DATA "OPEN\TAB(<UNK! {00FC}>CLSERRORSOUNDFN","WRITETRON=SWAP","THENBSAVE","XORIMPUSINGNOTOPENRANDOMIZELINE<UNK! {00FB}>","CLOSEPSETXOR<0xE3!>","<0xB4!>MODWHILE<0xE3!>LINEUSING"
  610. 4680  DATA "OPTIONRANDOMIZEUSRRANDOMIZE","OPTIONUSRSCREENSAVEERLAND","<0xB6!>PRESETPSET-WRITETRONFNUSING","CALL<UNK! {00F6}>FNAUTO<0xB5!><0xE3!>","OPEN\TAB(<UNK! {00FC}>WENDCLOSERANDOMIZE>ERLIMP"
  611. 4690  DATA "<0xB4!>MOD<0xB4!>FNBLOADBEEPBEEPIMPBSAVEELSE","CALL+WRITE=CLOSEIMPERRMODWRITETRONPRESET<0xE0!>USINGSTEP","LOAD<0xE2!>MERGEUSRCLOSEIMPSOUND<UNK! {FDCA}>NOT"
  612. 4700  DATA "CALL<UNK! {00F6}>FNAUTO","SAVEWHILEPRESETCOLORSTRING$WHILE","SPC(ELSETHENWRITE","NOTWENDSTRING$USING","OPTIONTAB(<0xB4!>MOD","SAVEPOINTSCREEN+LOCATECALLKEY'"
  613. 4710  DATA "COLORINKEY$SOUNDSTRING$WENDCLOSELINEWEND","WRITETAB(BSAVEINKEY$SPC(\","OPTIONTAB(RANDOMIZEEDITSPC(/CALLTROFF","WRITETRONWENDELSEBSAVE<UNK! {FD22}>,"SOUNDOPTIONPRESETUSINGOPTIONTAB(FNUSINGWENDELSELOCATEWRITE"
  614. 4720  DATA "LOCATEPOINTSCREENSCREENLOCATEWRITECLOSEIMPSCREEN*MOTORCOLORKEY'LOCATEWRITE","TAB(<UNK! {00FC}>SCREEN*LOCATEWRITE","ERLDEFINTWRITETRONWENDELSE"
  615. 4730  DATA "SPC(/CALLTROFFWRITESTRING$BLOAD<0xE4!>LOCATEWRITECLOSEIMPWEND<UNK! {00FA}>KEY<0xCB!>","WEND<UNK! {00FA}>PRESETLINEOPTIONUSRSCREENSAVECLOSEIMPOPTIONUSRSCREENSAVEMERGENOT<0xB4!>ERASELOCATEWRITE"
  616. 4740  DATA "CLOSEDEFDBLSOUNDERL","BSAVEDEFINTSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO","STRING$STEPSTEPTRON","LINEPOINTFNAUTOSTRING$TRON","USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>WRITETAB(FNUSING"
  617. 4750  DATA "USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>TAB(<UNK! {00FC}>SCREEN*USRERLWRITETAB(FNUSING","USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>OPTIONTAB(FNUSINGUSINGCSRLINOPENSTEPSTRING$TRON","OPTIONUSRBLOADLINE"
  618. 4760  DATA "<0xB5!>THENOPTIONPSETSAVEAUTOINSTRLOCATE","THENFN<0xCB!>DEFSNGSCREENSCREEN","USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>NOTWENDSTRING$USING","USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>OPTIONRANDOMIZEUSRRANDOMIZE"
  619. 4770  DATA "USINGERLSCREENCLOSECALL<UNK! {00F6}>FNAUTO","USRBSAVEKEY<UNK! {00FA}><0xB6!><UNK! {00F9}>PSET-FNUSING","KEY<UNK! {00FA}>CLS^CLOSEPSETXOR<0xE3!>"
  620. 4780  DATA "SCREENWRITEERROR","SCREENWRITEERROR","CLOSE<UNK! {00F9}>WHILESAVESCREENWRITEERROR","COLORKEYSOUNDPOINTUSRERL<0xB4!>MOD"
  621. 4790  DATA "NOTUSRCOLORKEYSOUNDPOINT","WENDCLOSEBEEPBEEPCALL<UNK! {FD22}>,"WENDCLOSETHEN-SCREENRENUMBEEPBEEPCALL<UNK! {FD22}>,"COLORKEYSOUNDPOINTUSRERLUSRELSE"
  622. 4800  DATA "COLORKEYSOUNDPOINTUSRERLOPENPOINTUSRELSE","CLOSE<UNK! {00F9}>WHILESAVEBEEPBEEPCALL<UNK! {FD22}>,"BEEPBEEPCALL<UNK! {FD22}>
  623. 4890  READ NBN%,NBM%,NBN1%,NBNS%,NBDS%
  624. 4900  DATA 35,14,35,25,15
  625. 4910  RETURN
  626. 5000  LPRINT:LPRINT:LPRINT "               <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL               "
  627. 5001  PRINT:PRINT:PRINT "               <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL               "
  628. 5005  LPRINT:LPRINT "                   ";T$
  629. 5006  PRINT:PRINT "                   ";T$
  630. 5010  LPRINT "________________________________________________"
  631. 5011  PRINT "________________________________________________"
  632. 5020  LPRINT "WENDELSECLS<UNK! {00FA}>OPENBEEP  ";NU;"      SCREENERRPSETVARPTR  ";LEFT$(DAY$,2);"  SOUND-  ";MID$(DAY$,4,2);"  ERLBSAVE  ";RIGHT$(DAY$,2);"  SCREENERR  "
  633. 5021  PRINT "WENDELSECLS<UNK! {00FA}>OPENBEEP  ";NU;"      SCREENERRPSETVARPTR  ";LEFT$(DAY$,2);"  SOUND-  ";MID$(DAY$,4,2);"  ERLBSAVE  ";RIGHT$(DAY$,2);"  SCREENERR  "
  634. 5030  LPRINT "-----------------------------------------------"
  635. 5031  PRINT "-----------------------------------------------"
  636. 5040  LPRINT "USRERRBLOAD<UNK! {00FB}>             USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>(TO/)  ";AGE
  637. 5041  PRINT "USRERRBLOAD<UNK! {00FB}>             USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>(TO/)  ";AGE
  638. 5050  LPRINT "-----------------------------------------------"
  639. 5051  PRINT "-----------------------------------------------"
  640. 5055  LPRINT:LPRINT"LOCATE<0xE4!>SCREEN*<0xB5!>SOUNDSTRING$TRONUSING<0xB4!>MOTORUSRWHILE^SCREEN=STEPBSAVE:"
  641. 5056  PRINT:PRINT"LOCATE<0xE4!>SCREEN*<0xB5!>SOUNDSTRING$TRONUSING<0xB4!>MOTORUSRWHILE^SCREEN=STEPBSAVE:"
  642. 5060  RETURN
  643.