home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b012 / 1.ddi / HX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  35.2 KB  |  1,036 lines
  1. 10  DIM AA(14,8),P1(128),P2(128),P3(15)
  2. 20  DIM ESD(147),ESP(103),ED(145),EP(15),RD(99),RP(22),CP(15)
  3. 30  DIM SN$(46),DN$(20),GN$(9),XR$(5),XSM$(3),KS$(2),YZ$(2),KZ$(2)
  4. 40  DIM MN$(36),MQ$(36),MP$(36),MU$(19,5),MV$(33,5),OM(3)
  5. 50  DIM MD(82),MC(82),MP(103),DD(82),DP(15),ND(83),NP(15),AD(27),AP(15)
  6. 60  DIM OP(46),SD(139),SP(15),A1$(4),B1$(4)
  7. 70  DIM KM(36)
  8. 80  REM HX DATA TRANSFER
  9. 90  GOSUB 5490
  10. 100  DIM S(N+1),MARK(N+1),FS(NS),P(DS),PT(DS),W(M),W1(M),NO(M)
  11. 110  DIM CO(N),MKAD(M),MKND(M),W2(M)
  12. 120  DIM DIS(N),MSD(82),W3(M),XY(5)
  13. 140  REM INTIATE
  14. 145  CLS
  15. 150  S(1)=1:S(26)=54:S(31)=65:S(32)=68:S(43)=91:S(44)=96:S(45)=99:S(46)=102
  16. 160  S(0)=-2:LSS=0:FOR I=0 TO 5:XY(I)=0:NEXT I
  17. 170  FOR I=0 TO 25:S(I)=2*I:NEXT I:FOR I=27 TO 30:S(I)=2*I+2:NEXT I
  18. 180  FOR I=33 TO 42:S(I)=2*I+4:NEXT I
  19. 190  FOR I=0 TO N:MARK(I)=0:CO(I)=0:DIS(I)=0:NEXT I
  20. 200  FOR I=0 TO M:MKND(I)=0:MKAD(I)=0:W2(I)=0:W3(I)=0:NEXT I
  21. 210  FOR I=0 TO 80:MSD(I)=0:NEXT I
  22. 220  INPUT "WENDELSECLS<UNK! {00FA}>OPENBEEP";NU
  23. 230  PRINT "USRERLWHILEXOR:      "
  24. 240  INPUT "1=SOUNDUSR      2=BEEPDEFSNG";X:IF X=1 THEN MA$="SOUNDUSR":GOTO 270
  25. 250  IF X=2 THEN MA$="BEEPDEFSNG":GOTO 270
  26. 260  GOTO 240
  27. 270  INPUT "SOUND-MOTOR<0xE4!>(**.**):";AE:IF AE<0.01 THEN RUN "ZXSE.BAS"
  28. 280  IF AE>14 THEN 270
  29. 290  INPUT "WRITETRONWENDELSEERLBSAVEWRITEOFF:";MONTH:IF MONTH>12 OR MONTH<1 THEN 290
  30. 300  AGE=INT(AE)*12+(AE-INT(AE))*100
  31. 301  PRINT "1=CALL<UNK! {00F5}><0xB4!>TAB(COLOR<0xB4!>WENDELSE":PRINT "2=FNAUTOCALLTROFFRANDOMIZE>LOAD/WEND+THEN-"
  32. 302  PRINT "3=XRANDOMIZE<0xE2!>LOAD/WEND+THEN-":PRINT "4=<0xB4!>MODWHILE<0xE3!>LOAD/WEND+THEN-":PRINT "5=WEND+COLOR<0xB4!>WENDELSECLS<UNK! {00FA}>"
  33. 303  INPUT "PRESET*NOTBLOADCOLORERROPTIONEQVWRITESTRING$COLORAUTO<0xCB!><UNK! {00F9}>FNELSE<0xB5!>SOUNDLOCATE<UNK! {FD22}>;S$
  34. 305  IF S$<>"1" THEN 10000
  35. 310  GOSUB 470:REM COMPLAIN
  36. 320  GOSUB 3190:REM ASK-DIGNOSIS
  37. 330  PRINT "PRESET*KEYERLOPENAND"
  38. 340  GOSUB 4570:REM ZHEN DUAN
  39. 350  GOSUB 4410:REM RESET IMPRESION
  40. 360  GOSUB 3190
  41. 370  INPUT "CLOSERANDOMIZENOTUSRSTRING$TRONUSING<0xB4!>BSAVEXOR (Y/N)";S$:IF S$="Y" THEN 310 ELSE IF S$<>"Y" AND S$<>"N" THEN 370
  42. 380  GOSUB 5320:REM LIST oF SY.
  43. 390  GOSUB 4570:REM DIGNOSIS
  44. 400  GOSUB 1260:REM ZONG HE ZHEN DUAN
  45. 410  IF TR<>0 THEN GOSUB 8770:REM TRETMENT
  46. 420  IF TRH<>0 THEN GOSUB 8930
  47. 421  LPRINT"--------------------------------------------------                                                               SPC(MERGE  LOCATEEDIT (        )"
  48. 430  IF L>0 THEN GOSUB 7880:REM MEDCING
  49. 432  INPUT "LOCATEPRESETWRITEEQVWHILETROFF<0xB4!>>WENDELSECLS<UNK! {00FA}>(Y/N)";S$:IF S$<>"Y" AND S$<>"N" THEN 432
  50. 434  IF S$="N" THEN 446
  51. 436  BN$="BL"+STR$(NU):OPEN "O",#1,BN$
  52. 438  PRINT #1,NU:FOR I=0 TO N+1:PRINT #1,S(I):NEXT I
  53. 439  PRINT #1,TEMP:PRINT #1,BRKM:PRINT #1,AE:PRINT#1,DAY$:PRINT #1,MA$
  54. 440  FOR I=0 TO M:PRINT #1,W1(I):PRINT #1,NO(I):NEXT I
  55. 444  CLOSE #1
  56. 446  INPUT "STEPBSAVESPC(CLOSEOPTION<UNK! {00F6}>WENDELSESCREEN<0xCB!>LOCATEPRESETWRITEEQVTAB(AUTOOPEN\TAB(<UNK! {00FC}>STEP<0xB5!>THENCALL<0xB5!>SOUNDWENDELSESCREEN<0xCB!>(Y/N)";S$:IF S$<>"Y" AND S$<>"N" THEN 446
  57. 448  IF S$="Y" THEN 140
  58. 450  CLS:PRINT "WRITE<0xB5!>CLOSEINSTRUSINGPOINTCOLORINSTR,CLOSE<0xB6!>NOTDEFINTSOUND<UNK! {00FA}>ERL'<0xB4!>TAB(LOCATERANDOMIZENOTBLOADWHILESAVESTEP<0xB5!>THENCALL":RUN "ZK.BAS"
  59. 460  END
  60. 470  REM SUB 0 FIRST IMPRESION COMPLAIN
  61. 480  I1=0:I2=9:E$="PSET<0xE4!>NOT<0xE0!>":T$="STRING$<UNK! {00F7}><0xCB!><0xDF!> (I)":GOSUB 1160:REM 0.3
  62. 482  I1=10:I2=N1:E$="PSET<0xE4!>NOT<0xE0!>":T$="STRING$<UNK! {00F7}><0xCB!><0xDF!> (II)"
  63. 490  GOSUB 1160:REM SUB 0.3
  64. 500  I1=N1-1:I2=25:E$="PSET<0xE4!>NOT<0xE0!>":T$="TO<0xE5!>ERR<UNK! {00F7}>  (III)":GOSUB 1160:REM SUB 0.3
  65. 502  I1=26:I2=N2:E$="PSET<0xE4!>NOT<0xE0!>":T$="TO<0xE5!>ERR<UNK! {00F7}> (IV)"
  66. 510  GOSUB 1160:REM SUB 0.3
  67. 520  I1=N2+1:I2=N:E$="PSET<0xE4!>NOT<0xE0!>":T$="  WENDELSELOCATEWRITEOPENTHENPSET<0xE4!><0xCB!><UNK! {00FC}>STRING$TRONUSING<0xB4!> (V)"
  68. 530  GOSUB 1160:REM 0.3
  69. 540  FOR I=20 TO 30
  70. 550  IF (S(I)/2)<>INT(S(I)/2) THEN LSS=0:GOTO 580
  71. 560  NEXT I:IF S(26)<>54 THEN LSS=0:GOTO 580
  72. 570  LSS=1
  73. 580  FOR I=20 TO 30:IF MARK(I)=1 THEN 630
  74. 590  MARK(I)=1 :DIS(I)=1:CO(I)=CO(I)+1
  75. 600  IF I<=25 THEN S(I)=2*I:GOTO 630
  76. 610  IF I=26 THEN S(I)=54:GOTO 630
  77. 620  S(I)=2*I+2
  78. 630  NEXT I
  79. 640  GOSUB 1070:REM SUB 0.2 KILL D BY COMPLAIN
  80. 650  RETURN
  81. 660  REM SUB 0.1 OUTPUT MENU
  82. 670  H$="                                       ":
  83. 680  I=I1-1:J1=0:J2=0:K1=-1:K2=-1
  84. 690  IF J1<=K1 THEN PRINT "    ";A1$(J1);LEFT$(H$,30-LEN(A1$(J1))),:GOTO 760
  85. 700  IF I<I2 THEN 730
  86. 710  IF J2<=K2 THEN PRINT "                                  ",:GOTO 770
  87. 720  GOTO 850
  88. 730  GOSUB 910:IF I>I2 THEN 710
  89. 740  IF (I-I1)<10 THEN PRINT " ";
  90. 750  J1=0:PRINT I-I1;"=";A1$(J1);LEFT$(H$,30-LEN(A1$(J1))),
  91. 760  J1=J1+1
  92. 770  IF J2<=K2 THEN PRINT "    ";B1$(J2):GOTO 840
  93. 780  IF I<I2 THEN 810
  94. 790  IF J1<=K1 THEN PRINT:GOTO 690
  95. 800  GOTO 850
  96. 810  GOSUB 990:IF I>I2 THEN 790
  97. 820  IF (I-I1)<10 THEN PRINT " ";
  98. 830  J2=0:PRINT I-I1;"=";B1$(J2)
  99. 840  J2=J2+1:GOTO 690
  100. 850  IF (I2-I1+1)<10 THEN PRINT " ";
  101. 860  PRINT I2-I1+1;"=";E$
  102. 870  PRINT "SOUND<UNK! {00FA}>CLOSELOADNOTUSRSOUNDSOUNDSPC(CLOSESTRING$STRING$?"
  103. 880  PRINT "FNELSEERLEQVPSET<0xE4!>STRING$USRSTRING$DEFSNGSPC(CLOSE,LINE<0xB4!>STEPBSAVEPSET<0xE4!>WHILE<0xE0!>OPENBEEP,SCREENCLOSEOPENMODLINE<0xB4!>RETURNLOAD<UNK! {00FC}>"
  104. 890  INPUT X:X=X+I1
  105. 900  RETURN
  106. 910  REM SUB 0.1.0.
  107. 920  I=I+1:IF I>I2 THEN 980
  108. 930  IF MARK(I)=1 THEN 920
  109. 940  K1=0
  110. 950  A1$(K1)=MID$(SN$(I),K1*30+1,30)
  111. 960  IF A1$(K1)<>"" THEN K1=K1+1:GOTO 950
  112. 970  K1=K1-1
  113. 980  RETURN
  114. 990  REM SUB 0.1.1.
  115. 1000  I=I+1:IF I>I2 THEN 1060
  116. 1010  IF MARK(I)=1 THEN 1000
  117. 1020  K2=0
  118. 1030  B1$(K2)=MID$(SN$(I),30*K2+1,30):IF B1$(K2)="" THEN 1050
  119. 1040  K2=K2+1:GOTO 1030
  120. 1050  K2=K2-1
  121. 1060  RETURN
  122. 1070  REM SUB 0.2 KILL D BY COMPLAIN
  123. 1080  FOR I=1 TO N
  124. 1090  IF CO(I)=0 THEN 1140
  125. 1100  FOR J=ESP(S(I)) TO ESP(S(I)+1)-1
  126. 1110  W2(ESD(J))=1
  127. 1120  NEXT J
  128. 1130  IF DIS(I)=1 THEN CO(I)=0
  129. 1140  NEXT I
  130. 1150  RETURN
  131. 1160  REM SUB 0.3
  132. 1170  PRINT "               ";T$
  133. 1180  GOSUB 660
  134. 1190  IF X>I2 THEN 1230
  135. 1200  FS(0)=X:K=1:GOSUB 2730
  136. 1210  IF X=-1 THEN DIS(FS(0))=1
  137. 1220  IF FS(0)<43 THEN CO(FS(0))=CO(FS(0))+1
  138. 1230  INPUT "CLOSERANDOMIZENOTUSRBSAVEXOR (Y/N)";S$
  139. 1240  IF S$="Y" THEN 1160 ELSE IF S$<>"Y" AND S$<>"N" THEN 1230
  140. 1250  RETURN
  141. 1260  REM SUB 5 ZONG HE ZHEN DUAN
  142. 1270  LPRINT :LPRINT:LPRINT "         ***** ERROR    <0xB6!>STEP *****":LPRINT
  143. 1271  PRINT :PRINT:PRINT "         ***** ERROR    <0xB6!>STEP *****":PRINT
  144. 1280  L=0:INH=0:TR=0:I=-1:OBGD=0:OBXL=0:TRH=0
  145. 1290  XD=0:EXBC=0:OBTM=0:IF W1(0)<8 THEN 1310
  146. 1300  GOTO 1450
  147. 1310  I=0
  148. 1320  IF I=0 AND ((W1(I+1)-W1(I))>=2 AND W1(I+1)>=3 OR W1(I+1)>=9) THEN 1340
  149. 1330  LPRINT "<";I+1;">."
  150. 1331  PRINT "<";I+1;">."
  151. 1340  ON NO(I)+1 GOSUB 1720,1810,1900,1950,1950,2190,1950,2190,2380,2450,2490,2490,2490,2580,2680
  152. 1350  IF I<2 AND ((W1(I+1)-W1(I))<2 OR W1(I+1)<3) AND W1(I+1)<8 THEN I=I+1:GOTO 1330
  153. 1360  IF S(20)=39 THEN 1410
  154. 1370  FOR K=22 TO 30:IF S(K)=2*K+1 THEN 1410:NEXT K
  155. 1380  IF S(31)=63 OR S(31)=64 THEN 1410
  156. 1390  IF S(32)=66 OR S(32)=67 THEN 1410
  157. 1400  GOTO 1450
  158. 1410  FOR J=I TO 0 STEP -1
  159. 1420  IF NO(J)>=3 AND NO(J)<=12 THEN 1450
  160. 1430  NEXT J:IF W1(I+1)>=8  THEN 1450
  161. 1440  I=I+1:GOTO 1330
  162. 1450  IF S(10)=20 OR S(2)=4 THEN 1500
  163. 1460  FOR J=1 TO 0 STEP-1 :IF NO(J)=4 OR NO(J)=3 OR NO(J)=6 THEN 1500
  164. 1470  NEXT J
  165. 1480  I=I+1:LPRINT "<";I+1;">.":LPRINT A$ ,DN$(4);",";DN$(3);"? <0xB4!><UNK! {FDC5}>BEEP"
  166. 1481  PRINT "<";I+1;">.":PRINT A$ ,DN$(4);",";DN$(3);"? <0xB4!><UNK! {FDC5}>BEEP"
  167. 1490  XD=1
  168. 1500  IF S(12)<>23 THEN 1530
  169. 1510  FOR J=I TO 0 STEP -1:IF NO(J)=14 THEN 1530
  170. 1520  NEXT J:I=I+1:LPRINT "<";I+1;">":LPRINT A$,DN$(14);"?":IF S(45)<>98 THEN LPRINT C$,"WEND+<0xB4!>MODWHILE<0xE3!>CALL>BSAVEFN"
  171. 1521  PRINT "<";I+1;">":PRINT A$,DN$(14);"?":IF S(45)<>98 THEN PRINT C$,"WEND+<0xB4!>MODWHILE<0xE3!>CALL>BSAVEFN"
  172. 1530  IF S(19)<>37 THEN 1560
  173. 1540  I=I+1:LPRINT "<";I+1;">.":LPRINT A$,DN$(15);"?"
  174. 1541  PRINT "<";I+1;">.":PRINT A$,DN$(15);"?"
  175. 1550  LPRINT C$,"USINGAUTO<0xB4!>RENUMSCREENSAVECOLORPSET"
  176. 1551  PRINT C$,"USINGAUTO<0xB4!>RENUMSCREENSAVECOLORPSET"
  177. 1560  IF S(34)<>71 THEN 1590
  178. 1570  I=I+1:LPRINT"<";I+1;">.":LPRINT A$ ,DN$(16);"?"
  179. 1571  PRINT"<";I+1;">.":PRINT A$ ,DN$(16);"?"
  180. 1580  LPRINT C$,"USINGAUTOUSRINSTRTHEN<0xE2!>COLORPSET"
  181. 1581  PRINT C$,"USINGAUTOUSRINSTRTHEN<0xE2!>COLORPSET"
  182. 1590  IF S(41)=85 THEN I=+1:LPRINT "<";I+1;">.":LPRINT A$,DN$(17);"?":OM(L)=17:L =L+1
  183. 1591  IF S(41)=85 THEN I=+1:PRINT "<";I+1;">.":PRINT A$,DN$(17);"?":OM(L)=17:L =L+1
  184. 1600  IF TEMP>37 AND W1(0)>=8 THEN LPRINT "             WRITETRONKEYERR<0xB4!><UNK! {FDB2}>+"
  185. 1601  IF TEMP>37 AND W1(0)>=8 THEN PRINT "             WRITETRONKEYERR<0xB4!><UNK! {FDB2}>+":GOTO 1620
  186. 1610  IF I=-1 THEN LPRINT "  WENDCLOSESOUNDPOINTSCREENWRITE<0xB6!>RESUME,LOADTOUSR<UNK! {00F8}>RANDOMIZECSRLINWEND/   "
  187. 1611  IF I=-1 THEN PRINT "  WENDCLOSESOUNDPOINTSCREENWRITE<0xB6!>RESUME,LOADTOUSR<UNK! {00F8}>RANDOMIZECSRLINWEND/   "
  188. 1620  I=1
  189. 1630  IF EXBC=1 THEN LPRINT C$;I,EXBC$
  190. 1631  IF EXBC=1 THEN PRINT C$;I,EXBC$:I=I+1
  191. 1640  IF XD=1 THEN LPRINT C$;I,XD$
  192. 1641  IF XD=1 THEN PRINT C$;I,XD$:I=I+1: GOTO 1660
  193. 1650  IF XD=2 THEN LPRINT C$;I ,X2$
  194. 1651  IF XD=2 THEN PRINT C$;I ,X2$:I=I+1
  195. 1660  IF OBTM=1 THEN LPRINT C$;I,OBTM$
  196. 1661  IF OBTM=1 THEN LPRINT C$;I,OBTM$:I=I+1
  197. 1670  IF S(35)=73 AND S(36)<>75 THEN LPRINT C$;I,OBGD$;"BEEPBEEPCALL<UNK! {FDD0}>SOUND<0xCB!>ERASE "
  198. 1671  IF S(35)=73 AND S(36)<>75 THEN PRINT C$;I,OBGD$;"BEEPBEEPCALL<UNK! {FDD0}>SOUND<0xCB!>ERASE ":I=I+1
  199. 1680  IF INH<>1 THEN 1710
  200. 1690  LPRINT
  201. 1700  LPRINT "          ******";INH$;" ******"
  202. 1701  PRINT "          ******";INH$;" ******"
  203. 1710  RETURN
  204. 1720  REM SUB 5.0 BAI RE KE
  205. 1730  LPRINT A$,DN$(NO(I));
  206. 1731  PRINT A$,DN$(NO(I));
  207. 1740  IF W1(I)<=2 THEN 1780
  208. 1750  LPRINT "?":LPRINT B$,GN$(W1(I))
  209. 1751  PRINT "?":PRINT B$,GN$(W1(I))
  210. 1760  IF S(2)<>3 THEN LPRINT C$,"RANDOMIZECSRLINWEND/COLORSCREEN<0xCB!>ERL"
  211. 1761  IF S(2)<>3 THEN PRINT C$,"RANDOMIZECSRLINWEND/COLORSCREEN<0xCB!>ERL"
  212. 1770  RETURN
  213. 1780  LPRINT :LPRINT B$ ,GN$(W1(I))
  214. 1781  PRINT :PRINT B$ ,GN$(W1(I))
  215. 1790  OM(L)=NO(I):L=L+1
  216. 1800  RETURN
  217. 1810  REM SUB 5.1 HOU YAN
  218. 1820  LPRINT A$,DN$(NO(I));
  219. 1821  PRINT A$,DN$(NO(I));
  220. 1830  IF W1(I)>2 THEN 1870
  221. 1840  LPRINT:LPRINT B$,GN$(W1(I))
  222. 1841  PRINT:PRINT B$,GN$(W1(I))
  223. 1850  IF S(8)=15 OR S(11)=21 THEN INH=1:TRH=1:RETURN
  224. 1860  GOTO 1790
  225. 1870  LPRINT  "?":LPRINT B$,GN$(W1(I))
  226. 1871  PRINT  "?":PRINT B$,GN$(W1(I))
  227. 1880  IF TEMP<=37 THEN OBTM=1
  228. 1890  RETURN
  229. 1900  REM SUB 5.2 BIAN TIAO TI YAN
  230. 1910  LPRINT A$,DN$(NO(I)):LPRINT B$,GN$(W1(I))
  231. 1911  PRINT A$,DN$(NO(I)):PRINT B$,GN$(W1(I))
  232. 1920  IF TEMP>37 THEN 1790
  233. 1930  OBTM=1:IF S(43)=91  THEN EXBC=1
  234. 1940  RETURN
  235. 1950  REM SUB 5.3,4,6 NING XIONG WITH FEI YAN,DA YE
  236. 1960  LPRINT A$,DN$(NO(I));
  237. 1961  PRINT A$,DN$(NO(I));
  238. 1970  IF S(35)<>73 OR S(36)<>75 THEN 1990
  239. 1980  LPRINT "OPENSTEPWENDTRONUSRSOUND<0xCB!>ERASE";
  240. 1981  PRINT "OPENSTEPWENDTRONUSRSOUND<0xCB!>ERASE";
  241. 1990  IF S(44)=96 THEN 2030
  242. 2000  LPRINT:LPRINT B$,GN$(W1(I)):INH=1
  243. 2001  PRINT:PRINT B$,GN$(W1(I)):INH=1
  244. 2010  TR=1
  245. 2020  RETURN
  246. 2030  IF S(43)=90 THEN LPRINT "?":LPRINT C$;" 0 ";"OPTION<0xB4!>WEND+";EXBC$
  247. 2031  IF S(43)=90 THEN PRINT "?":PRINT C$;" 0 ";"OPTION<0xB4!>WEND+";EXBC$:GOTO 2090
  248. 2040  IF S(43)=91 THEN EXBC=1
  249. 2050  IF I<>0 THEN 2110
  250. 2060  IF I=2 OR (W1(I+1)-W1(I))>=2 AND W1(I+1)>2 THEN 2080
  251. 2070  IF NO(I+1)=3 OR NO(I+1)=4 THEN PRINT "?":XD=1
  252. 2071  IF NO(I+1)=3 OR NO(I+1)=4 THEN PRINT "?":XD=1:RETURN
  253. 2080  LPRINT "?"
  254. 2081  PRINT "?"
  255. 2090  IF W1(I)>2 THEN XD=1:RETURN
  256. 2100  XD=2:RETURN
  257. 2110  FOR J=I-1 TO 0 STEP -1
  258. 2120  FOR K=3 TO 9
  259. 2130  IF NO(J)=K THEN 2170
  260. 2140  NEXT K
  261. 2150  NEXT J
  262. 2160  GOTO 2060
  263. 2170  LPRINT "?";:IF (W1(I)-W1(I-1))>=2 THEN LPRINT "<0xB4!><UNK! {FDC5}>BEEP";
  264. 2171  PRINT "?";:IF (W1(I)-W1(I-1))>=2 THEN PRINT "<0xB4!><UNK! {FDC5}>BEEP";
  265. 2180  LPRINT :XD=1
  266. 2181  PRINT :XD=1:RETURN
  267. 2190  REM SUB 5.5,7 FEI YAN
  268. 2200  IF S(35)<>73 OR S(36)<>75 THEN LPRINT A$,DN$(NO(I));
  269. 2201  IF S(35)<>73 OR S(36)<>75 THEN PRINT A$,DN$(NO(I));:GOTO 2240
  270. 2210  LPRINT A$,DN$(8);:IF W(8)<90 THEN LPRINT "?";
  271. 2211  PRINT A$,DN$(8);:IF W(8)<90 THEN PRINT "?";
  272. 2220  W1(I)=INT((W1(I)+XSW1)/2-1):IF W1(I)<0 THEN W1(I)=W1(I)+2
  273. 2230  IF W1(I)>2 AND S(44)=96 THEN W1(I)=W1(I)+1
  274. 2240  IF S(44)<>96 THEN 2320
  275. 2250  IF I=0 THEN 2310
  276. 2260  FOR J=I-1 TO 0 STEP-1
  277. 2270  FOR K=3 TO 9
  278. 2280  IF NO(J)=K THEN 2170
  279. 2290  NEXT K
  280. 2300  NEXT J
  281. 2310  IF W1(I)>2 THEN 2080
  282. 2320  LPRINT:LPRINT B$,GN$(W1(I))
  283. 2321  PRINT:PRINT B$,GN$(W1(I))
  284. 2330  IF S(44)=96 THEN XD=2
  285. 2340  IF S(11)=21 OR S(15)=29 THEN INH=1:TR=1:GOTO 2360
  286. 2350  OM(L)=NO(I):L=L+1
  287. 2360  IF S(13)<>25 THEN RETURN
  288. 2370  LPRINT C$,"MERGE<UNK! {00F8}>SCREEN*KEYEQVSAVEDEFINTSTEP<0xB5!>THENCALL"
  289. 2371  PRINT C$,"MERGE<UNK! {00F8}>SCREEN*KEYEQVSAVEDEFINTSTEP<0xB5!>THENCALL":RETURN
  290. 2380  REM SUB 5.8 FEI YAN XIN SHUAI
  291. 2390  LPRINT A$,DN$(NO(I));
  292. 2391  PRINT A$,DN$(NO(I));
  293. 2400  IF W1(I)<=1 THEN 2000
  294. 2410  LPRINT:LPRINT B$,GN$(W1(I))
  295. 2411  PRINT:PRINT B$,GN$(W1(I))
  296. 2420  IF S(35)=74 THEN OBXL=1
  297. 2430  IF S(36)=76 THEN OBGD=1
  298. 2440  RETURN
  299. 2450  REM SUB 5.9 JIE DUAN FEI YAN
  300. 2460  LPRINT A$,DN$(NO(I));
  301. 2461  PRINT A$,DN$(NO(I));
  302. 2470  IF S(44)<>96 THEN 1780
  303. 2480  LPRINT "?":LPRINT B$,GN$(5):XD=1
  304. 2481  PRINT "?":PRINT B$,GN$(5):XD=1:RETURN
  305. 2490  REM SUB 5.10 ,11,12,MAO XI ,CHUAN ZHI, ZHI QI GUAN YAN
  306. 2500  LPRINT A$,DN$(NO(I));
  307. 2501  PRINT A$,DN$(NO(I));
  308. 2510  IF W1(I)>2 THEN 2570
  309. 2520  IF NO(I)=10 THEN 2000
  310. 2530  IF NO(I)<>11 THEN 1780
  311. 2540  PRINT:PRINT SN$(2);"FNSTEPSTRING$INSTR (Y/N)?":INPUT S$:IF S$="N" THEN 1780
  312. 2550  IF S(11)=21 THEN 2000
  313. 2560  GOTO 1780
  314. 2570  LPRINT "?":LPRINT B$,GN$(W1(I))
  315. 2571  PRINT "?":PRINT B$,GN$(W1(I)):RETURN
  316. 2580  REM SUB 5.13 SHANG GAN
  317. 2590  IF W1(I)<=2 THEN 2610
  318. 2600  LPRINT A$,DN$(NO(I));"?":LPRINT B$,GN$(W1(I))
  319. 2601  PRINT A$,DN$(NO(I));"?":PRINT B$,GN$(W1(I)):GOTO 2650
  320. 2610  PRINT SN$(46);"=Y/N?":INPUT S$
  321. 2620  IF S$="Y" THEN LPRINT A$,DN$(18):S(46)=101
  322. 2621  IF S$="Y" THEN PRINT A$,DN$(18):S(46)=101:GOTO 2640
  323. 2630  LPRINT A$,DN$(NO(I))
  324. 2631  PRINT A$,DN$(NO(I))
  325. 2640  LPRINT B$,GN$(W1(I))
  326. 2641  PRINT B$,GN$(W1(I))
  327. 2650  IF TEMP>=38.5 AND S(43)=91  THEN EXBC=1:RETURN
  328. 2660  IF W1(I)<=2 THEN 1790
  329. 2670   RETURN
  330. 2680  REM SUB 5.14 HUI CHONG
  331. 2690  LPRINT A$,DN$(NO(I));
  332. 2691  PRINT A$,DN$(NO(I));
  333. 2700  IF S(45)<>99 THEN 1780
  334. 2710  LPRINT"?":LPRINT B$,GN$(W1(I)):LPRINT C$,"WEND+<0xB4!>MODWHILE<0xE3!>CALL>BSAVEFN"
  335. 2711  PRINT"?":PRINT B$,GN$(W1(I)):PRINT C$,"WEND+<0xB4!>MODWHILE<0xE3!>CALL>BSAVEFN"
  336. 2720  RETURN
  337. 2730  REM SUB1 ASK SY.
  338. 2740  FOR I=0 TO K-1
  339. 2750  IF MARK(FS(I))=1 THEN 3170
  340. 2760  MARK(FS(I))=1:PRINT SN$(FS(I));
  341. 2770  IF FS(I)<>1 THEN 2810
  342. 2780  PRINT "=? C":INPUT TEMP
  343. 2790  IF TEMP>37 THEN S(1)=0:GOTO 3170
  344. 2800  X=-1:GOTO 3170
  345. 2810  IF FS(I)<>2 THEN 2860
  346. 2820  PRINT ":":PRINT"(1)=";KS$(0):PRINT"(2)=";KS$(1)
  347. 2830  PRINT "(3)=";KS$(2):INPUT X
  348. 2840  S(2)=X+1:IF X=3 THEN X=-1
  349. 2850  GOTO 3170
  350. 2860  IF FS(I)<>26 THEN 2910
  351. 2870  PRINT ":":FOR J=1 TO 4:PRINT "(";J;")=";XSM$(J-1):NEXT J
  352. 2880  INPUT X:S(26)=X+50
  353. 2890  IF X=4 THEN X=-1
  354. 2900  GOTO 3170
  355. 2910  IF FS(I)<>31 THEN 2960
  356. 2920  PRINT ":":PRINT "(1)=";KZ$(0):PRINT"(2)=";KZ$(1):PRINT "(3)=";KZ$(2)
  357. 2930  INPUT X:S(31)=X+62
  358. 2940  IF X=3 THEN X=-1
  359. 2950  GOTO 3170
  360. 2960  IF FS(I)<>32 THEN 3000
  361. 2970  PRINT ":":PRINT"(1)=";YZ$(0):PRINT"(2)=";YZ$(1):PRINT"(3)=";YZ$(2)
  362. 2980  INPUT X:S(32)=X+65
  363. 2990  GOTO 2940
  364. 3000  IF FS(I)<>43 THEN 3030
  365. 3010  PRINT ":":PRINT"(1)=OPTION<0xDF!>":PRINT"(2)=WENDCLOSEOPTION<0xDF!>": PRINT "(3)=BLOADCLOSEWEND+"
  366. 3020  INPUT X:S(43)=X+88:GOTO 3170
  367. 3030  IF FS(I)<>44 THEN 3070
  368. 3040  PRINT ":":FOR J=1 TO 6:PRINT"(";J;")=";XR$(J-1):NEXT J
  369. 3050  INPUT X:S(44)=X+91:XY(X-1)=1:IF X<>5 THEN INPUT "X-RANDOMIZE<0xE2!>THENOPTIONLOCATENOTCLOSERANDOMIZEWRITETRONSTEPSTRING$LOCATEWENDBLOAD<0xB4!>(Y/N)";S$:IF S$="Y" THEN 3040
  370. 3060  GOTO 3170
  371. 3070  IF FS(I)<>45 THEN 3100
  372. 3080  PRINT":":PRINT"(1)=+":PRINT"(2)=BLOADCLOSEWEND+":PRINT"(3)=-"
  373. 3090  INPUT X:S(45)=X+97:GOTO 3170
  374. 3100  IF FS(I)>45 THEN 3170
  375. 3110  INPUT "=Y/N";S$
  376. 3120  IF S$<>"Y" THEN X=-1:GOTO 3170
  377. 3130  X=1
  378. 3140  IF FS(I)<=25 THEN S(FS(I))=2*FS(I)-1:GOTO 3170
  379. 3150  IF FS(I)<=30 THEN S(FS(I))=2*FS(I)+1:GOTO 3170
  380. 3160  S(FS(I))=2*FS(I)+3
  381. 3170  IF FS(I)>=20 AND FS(I)<=33 AND X<>-1 THEN LSS=0
  382. 3180  NEXT I:RETURN
  383. 3190  REM SUB2 ASK-DIGNOSIS PROGRAM
  384. 3200  GOSUB 3300:REM SUB 2.0 DECIDE RIGHT
  385. 3210  IF H=-1 THEN 3280
  386. 3220  GOSUB 3390:REM SUB 2.1
  387. 3230  GOSUB 4020:REM SUB 2.4 kill SY. BY D.
  388. 3240  GOSUB 4210:REM SUB 2.5 KILL SY. BY SY.
  389. 3250  IF X=-1 THEN CO(H)=0:DIS(H)=1:GOTO 3270
  390. 3260  GOSUB 3610 :REM SUB 2.3
  391. 3270  GOTO 3200
  392. 3280  IF S(2)=3 THEN BRKM=1
  393. 3290  IF S(2)=3 AND S(37)=77 THEN S(2)=2:RETURN
  394. 3300  REM SUB 2.0 DECIDE RIGHT WHOSE NO.IS IN H,IF NO ONE CAN BE CHOICED H=-1
  395. 3310  IF H1=-1 THEN H=-1:H1=0:GOTO 3380
  396. 3320  FOR H=1 TO N
  397. 3330  IF CO(OP(H))<>0 AND DIS(OP(H))<0.1 THEN 3350
  398. 3340  NEXT H:H=-1:GOTO 3380
  399. 3350  H=OP(H):DIS(H)=0
  400. 3360  IF MARK(H)<>0 THEN X=0:GOTO 3380
  401. 3370  FS(0)=H:K=1:GOSUB 2730
  402. 3380  RETURN
  403. 3390  REM SUB 2.1 KILL D.BY SY.
  404. 3400  IF LSS=0 THEN 3420
  405. 3410  FOR K=3 TO 8:W2(K)=1:NEXT K:W2(11)=0:W2(12)=0
  406. 3420  FOR I=ESP(S(H)) TO ESP(S(H)+1)-1
  407. 3430  L=ESD(I):GOSUB 3470
  408. 3440  NEXT I
  409. 3450  IF S(2)=4 AND S(0)=-2 THEN L=3:GOSUB 3470
  410. 3460  RETURN
  411. 3470  REM SUB 2.2 RECOVE DIS BY D.WHICH WAS KILLED
  412. 3480  IF W2(L)=1 THEN 3600
  413. 3490  W2(L)=1
  414. 3500  FOR J=DP(L) TO DP(L+1)-1
  415. 3510  R=DD(J):T=MP(R+1)-MP(R)-1
  416. 3520  FOR K=0 TO T
  417. 3530  P(K)=MD(MP(R)+K)
  418. 3540  IF P(K)<>L THEN 3580
  419. 3550  IF MSD(MP(R)+K)<>1 THEN 3590
  420. 3560  U=R:GOSUB 4280
  421. 3570  DIS(V)=DIS(V)-1/(1+T):GOTO 3590
  422. 3580  NEXT K
  423. 3590  NEXT J
  424. 3600  RETURN
  425. 3610  REM SUB 2.3 WAKE UP SY.BY H-D-SY
  426. 3620  T=MP(S(H)+1)-MP(S(H))-1
  427. 3630  FOR I=0 TO T:Y=MP(S(H))+I:P(I)=MD(Y)
  428. 3640  IF W2(P(I))<>1 THEN 3680
  429. 3650  NEXT I
  430. 3660  DIS(H)=1
  431. 3670  RETURN
  432. 3680  IF MSD(Y)=1 THEN DIS(H)=DIS(H)+1/(1+T):GOTO 3650
  433. 3690  IF W3(P(I))=1 THEN 3650
  434. 3700  IF MC(Y)<>1 AND DIS(H)>=0.1 THEN 3670
  435. 3710  H1=H:DO=P(I):T1=NP(DO+1)-NP(DO)-1
  436. 3720  FOR J1=0 TO T1
  437. 3730  L1=ND(NP(DO)+J1):CO(L1)=CO(L1)+1
  438. 3740  IF W2(DO)=1 THEN 3800
  439. 3750  FS(0)=L1:K=1:GOSUB 2730
  440. 3760  IF X=-1 THEN DIS(FS(0))=1:CO(FS(0))=0
  441. 3770  H=FS(0):GOSUB 3390:REM SUB 2.0
  442. 3780  GOSUB 4020:REM SUB 2.4
  443. 3790  GOSUB 4210:REM SUB 2.5
  444. 3800  NEXT J1
  445. 3810  MSD(Y)=1
  446. 3820  MKND(DO)=MKND(DO)+1
  447. 3830  IF W2(DO)=1 THEN GOSUB 4020:GOTO 4010
  448. 3840  DIS(H1)=DIS(H1)+1/(1+T1)
  449. 3850  I1=1
  450. 3860  FOR I=1 TO N
  451. 3870  IF CO(OP(I))<=0 OR DIS(OP(I))>=1 THEN 3940
  452. 3880  FOR J=SP(DO) TO SP(DO+1)-1
  453. 3890  IF SD(J)=S(OP(I)) THEN 3940
  454. 3900  NEXT J
  455. 3910  T=OP(I)
  456. 3920  FOR J=1 TO I1+1 STEP-1:OP(J)=OP(J-1):NEXT J
  457. 3930  OP(I1)=T:I1=I1+1
  458. 3940  NEXT I
  459. 3950  IF I1>1 THEN 4010
  460. 3960  GOSUB 4620:REM FUNCTION
  461. 3970  K=DO:GOSUB 4740:REM CACULATE
  462. 3980  GOSUB 4840:REM CORECTOR
  463. 3990  I=DO:GOSUB 5170:REM DGREE
  464. 4000  IF W1(DO)<=2 THEN H1=-1
  465. 4010  W3(DO)=1:RETURN
  466. 4020  REM SUB 2.4 KILL SY.BY D.
  467. 4030  FOR I=0 TO M
  468. 4040  IF W2(I)=0 THEN 4190
  469. 4050  IF MKND(I)=0 THEN 4120
  470. 4060  T=NP(I+1)-NP(I)-1
  471. 4070  FOR J=0 TO T
  472. 4080  K=ND(NP(I)+J)
  473. 4090  CO(K)=CO(K)-MKND(I)
  474. 4100  NEXT J
  475. 4110  MKND(I)=0
  476. 4120  IF MKAD(I)=0 THEN 4190
  477. 4130  T=AP(I+1)-AP(I)-1
  478. 4140  FOR J=0 TO T
  479. 4150  K=AD(AP(I)+J)
  480. 4160  CO(K)=CO(K)-MKAD(I)
  481. 4170  NEXT J
  482. 4180  MKAD(I)=0
  483. 4190  NEXT I
  484. 4200  RETURN
  485. 4210  REM SUB 2.5 KILL SY.BY D AND SY
  486. 4220  IF W2(5)=1 THEN CO(9)=0:CO(35)=0:CO(36)=0
  487. 4230  IF S(8)=16 AND MARK(8)=1 THEN CO(9)=0
  488. 4240  IF S(2)<>4 OR MARK(I)<>1 THEN 4270
  489. 4250  CO(7)=0:CO(8)=0:CO(11)=0:CO(14)=0:CO(15)=0:CO(16)=0:CO(42)=0:CO(20)=0
  490. 4260  FOR I=22 TO 33:CO(I)=0:NEXT I
  491. 4270  RETURN
  492. 4280  REM SUB 2.6 Tij-sij
  493. 4290  IF U<=1 THEN V=1:GOTO 4400
  494. 4300  IF U<=4 THEN V=2:GOTO 4400
  495. 4310  IF U<=50 THEN V=INT((U+1)/2):GOTO 4400
  496. 4320  IF U<=54 THEN V=26:GOTO 4400
  497. 4330  IF U<=62 THEN V=INT((U-1)/2):GOTO 4400
  498. 4340  IF U<=68 THEN V=INT((U+30)/3):GOTO 4400
  499. 4350  IF U<=88 THEN V=INT((U-3)/2):GOTO 4400
  500. 4360  IF U<=91 THEN V=43:GOTO 4400
  501. 4370  IF U<=97 THEN V=44:GOTO 4400
  502. 4380  IF U<=100 THNE V=45:GOTO 4400
  503. 4390  V=46
  504. 4400  RETURN
  505. 4410  REM SUB 3 RESET IMPRESION TO CO,W2,MKAD,MKND,ADD SY AT CO
  506. 4420  FOR I=0 TO N:CO(I)=0:NEXT I
  507. 4430  FOR I=0 TO M:MKND(I)=0
  508. 4440  IF W1(I)<8 THEN 4480
  509. 4450  L=NO(I):MKAD(NO(I))=0:GOSUB 3470
  510. 4460  IF W1(I)=8 THEN W2(I)=0
  511. 4470  GOTO 4540
  512. 4480  MKAD(NO(I))=1:W2(NO(I))=0
  513. 4490  P(I)=NO(I):PT(I)=AP(P(I)+1)-AP(P(I))-1
  514. 4500  FOR J=0 TO PT(I)
  515. 4510  K=AD(AP(P(I))+J)
  516. 4520  CO(K)=CO(K)+1
  517. 4530  NEXT J
  518. 4540  NEXT I
  519. 4550  GOSUB 4210:REM SUB 2.5 KILL SY BY SY.OR D.
  520. 4560  RETURN
  521. 4570  REM SUB 4 ZHEN DUAN
  522. 4580  GOSUB 4610
  523. 4590  GOSUB 4710:GOSUB 4940:GOSUB 4810:GOSUB 5040:GOSUB 5140:GOSUB 5230
  524. 4600  RETURN
  525. 4610  REM SUB 4.0 FUNCTION
  526. 4620  FOR I=0 TO M:W(I)=0:NO(I)=I:W1(I)=10:NEXT I
  527. 4630  IF AGE>36 THEN W(3)=7:W(5)=3:W(6)=7:W(7)=3:GOTO 4680
  528. 4640  W(3)=11:W(5)=12:W(7)=12:W(6)=11:W(4)=(AGE-36)*2
  529. 4650  IF S(1)=0 AND S(28)=58 AND S(31)=65 AND S(32)=68 AND S(29)=60 THEN W(3)=W(3)-4
  530. 4660  IF S(1)=1 AND S(31)=65 AND S(28)=58 AND S(32)=68 THEN W(3)=W(3)+3
  531. 4670  W(11)=30:GOTO 4690
  532. 4680  W(11)=28
  533. 4690  IF TEMP<39 THEN W(4)=(TEMP-39)*10
  534. 4700  RETURN
  535. 4710  REM SUB 4.1 CACULATE
  536. 4720  FOR K=0 TO M:GOSUB 4740:NEXT K
  537. 4730  RETURN
  538. 4740  REM SUB 4.1.0
  539. 4750  I=1
  540. 4760  FOR J=P3(K) TO P3(K+1)-1
  541. 4770  IF S(I)<P2(J) THEN I=I+1:J=J-1:GOTO 4790
  542. 4780  IF S(I)=P2(J) THEN W(K)=W(K)+P1(J):I=I+1
  543. 4790  NEXT J
  544. 4800  RETURN
  545. 4810  REM SUB 4.2 CORRECT
  546. 4820  FOR K=0 TO M:GOSUB 4840:NEXT K
  547. 4830  RETURN
  548. 4840  REM SUB 4.2.0
  549. 4850  IF W(K)<-50 THEN 4930
  550. 4860  FOR J=CP(K) TO CP(K+1)-1
  551. 4870  L=1:FOR I=RP(J) TO RP(J+1)-2
  552. 4880  IF S(L)<RD(I) THEN L=L+1:I=I-1:GOTO 4910
  553. 4890  IF S(L)>RD(I) THEN 4920
  554. 4900  IF S(L)=RD(I) THEN L=L+1
  555. 4910  NEXT I:W(K)=W(K)+RD(RP(J+1)-1)
  556. 4920  NEXT J
  557. 4930  RETURN
  558. 4940  REM SUB 4.3 EXCLUDE
  559. 4950  IF LSS=0 THEN 4980
  560. 4960  FOR K=3 TO 8:W(K)=W(K)-100:NEXT K
  561. 4970  W(11)=0:W(12)=0
  562. 4980  FOR K=0 TO M:I=0
  563. 4990  FOR J=EP(K) TO EP(K+1)-1
  564. 5000  IF ED(J)>S(I) THEN I=I+1:J=J-1:GOTO 5020
  565. 5010  IF ED(J)=S(I) THEN W(K)=W(K)-100:GOTO 5030
  566. 5020  NEXT J
  567. 5030  NEXT K:RETURN
  568. 5040  REM SUB 4.4 SPETIAL FACT
  569. 5050  IF S(44)=96 THEN 5130
  570. 5060  W(3)=XY(2)*100*(1-XY(3)):W(4)=XY(1)*100
  571. 5070  W(6)=XY(2)*XY(3)*100:IF XY(3)=0 OR XY(2)=1 OR S(35)=73 THEN 5100
  572. 5080  IF S(14)=17 THEN W(7)=100:GOTO 5100
  573. 5090  W(5)=100
  574. 5100  IF XY(1)=1 OR XY(2)=1 AND XY(3)=1 THEN W(9)=0
  575. 5110  W(9)=XY(5)*100
  576. 5120  IF XY(3)=1 AND XY(2)=1 THEN W(5)=0
  577. 5130  RETURN
  578. 5140  REM SUB 4.5 DGREE
  579. 5150  FOR I=0 TO M:GOSUB 5170:NEXT I
  580. 5160  RETURN
  581. 5170  REM SUB 4.5.0
  582. 5180  FOR J=0 TO 8
  583. 5190  IF W(I)<AA(I,J) THEN 5210
  584. 5200  W1(I)=J:GOTO 5220
  585. 5210  NEXT J:W1(I)=9
  586. 5220  RETURN
  587. 5230  REM SUB 4.6 SEQUENCE
  588. 5240  XSW1=W1(8):W1(8)=9
  589. 5250  FOR I=1 TO M
  590. 5260  FOR J=M TO I STEP-1
  591. 5270  IF W1(J-1)<=W1(J) THEN 5300
  592. 5280  T=W1(J):W1(J)=W1(J-1):W1(J-1)=T
  593. 5290  T=NO(J):NO(J)=NO(J-1):NO(J-1)=T
  594. 5300  NEXT J:NEXT I
  595. 5310  RETURN
  596. 5320  REM SUB 7 LIST OF SY
  597. 5330  T$="        WENDELSE      CLS<UNK! {00FA}>  "
  598. 5340  GOSUB 9020
  599. 5350  IF TEMP>37 THEN LPRINT SN$(1);"=";TEMP
  600. 5351  IF TEMP>37 THEN PRINT SN$(1);"=";TEMP
  601. 5360  IF BRKM=1 THEN LPRINT KS$(1)
  602. 5361  IF BRKM=1 THEN PRINT KS$(1):GOTO 5380
  603. 5370  IF S(2)=2 THEN LPRINT KS$(0)
  604. 5371  IF S(2)=2 THEN PRINT KS$(0)
  605. 5380  FOR I=3 TO 42
  606. 5390  IF I=26 OR I=31 OR I=32 OR I>=43 THEN 5410
  607. 5400  IF (S(I)/2-INT(S(I)/2))<>0 THEN LPRINT SN$(I)
  608. 5401  IF (S(I)/2-INT(S(I)/2))<>0 THEN PRINT SN$(I)
  609. 5410  NEXT I
  610. 5420  IF S(26)<>54 THEN LPRINT SN$(26);"=";XSM$(S(26)-51)
  611. 5421  IF S(26)<>54 THEN PRINT SN$(26);"=";XSM$(S(26)-51)
  612. 5430  IF S(31)<>65 THEN LPRINT SN$(31);"=";KZ$(S(31)-63)
  613. 5431  IF S(31)<>65 THEN PRINT SN$(31);"=";KZ$(S(31)-63)
  614. 5440  IF S(32)<>68 THEN LPRINT SN$(32);"=";YZ$(S(32)-66)
  615. 5441  IF S(32)<>68 THEN PRINT SN$(32);"=";YZ$(S(32)-66)
  616. 5450  IF S(43)=89 THEN LPRINT SN$(43);"=OPTION<0xDF!>"
  617. 5451  IF S(43)=89 THEN PRINT SN$(43);"=OPTION<0xDF!>"
  618. 5460  IF S(44)=96 THEN 5470
  619. 5462  LPRINT SN$(44);"=";:FOR I=1 TO 5
  620. 5463  IF XY(I)<>0 THEN LPRINT XR$(I);" ";
  621. 5464  NEXT I: PRINT SN$(44);"=";:FOR I=1 TO 5
  622. 5465  IF XY(I)<>0 THEN PRINT XR$(I);" ";
  623. 5466  NEXT I:LPRINT:PRINT
  624. 5470  IF S(45)=98 THEN LPRINT SN$(45);"=+"
  625. 5471  IF S(45)=98 THEN PRINT SN$(45);"=+"
  626. 5480  RETURN
  627. 5490  REM DATA TRANSFER
  628. 5500   FOR I=0 TO 14:FOR J=0 TO 8:READ AA(I,J):NEXT J:NEXT I
  629. 5510  DATA 75,65,65,65,56,56,56,52,52,93,84,76,69,60,53,45,42,42
  630. 5520  DATA 85,75,60,52,50,50,50,40,30,71,63,58,50,41,39,36,33,32
  631. 5530  DATA 43,33,27,20,16,8,7,7,5,89,73,62,39,27,12,0,-3,-3
  632. 5540  DATA 71,63,58,50,41,39,36,33,32,89,73,62,39,27,12,0,-3,-3
  633. 5550  DATA 95,85,85,85,75,75,75,65,60,100,90,90,88,76,76,76,76,63
  634. 5560  DATA 92,82,82,82,74,68,67,67,67,67,57,45,45,45,45,33,19,17
  635. 5570  DATA 86,71,56,56,56,56,56,56,56,59,53,43,42,41,38,38,38,37
  636. 5580  DATA 60,60,40,32,28,28,28,28,28
  637. 5590  FOR I=0 TO 128:READ P1(I),P2(I):NEXT I
  638. 5600  DATA 10,2,30,3,5,77,30,78,17,79,8,80,26,0,42,5,3,15,4,31,8,33,17,41
  639. 5610  DATA 25,0,6,9,1,10,3,11,1,12,44,35,15,89,5,90,5,91
  640. 5620  DATA 18,0,7,1,3,13,3,15,2,19,11,57,1,58,8,59,15,63,15,64,12,67,3,68,2,81
  641. 5630  DATA 7,13,7,15,2,19,16,51,6,55,13,59,12,63,17,64,7,66
  642. 5640  DATA 4,0,1,1,15,13,7,21,2,22,15,29,9,31,3,32,53,51,53,52,53,53,-37,55,-37,59
  643. 5650  DATA -67,63,-67,64
  644. 5660  DATA 18,0,-3,1,3,13,3,15,2,19,11,57,1,58,8,59,15,63,15,64,12,67,3,68,2,81
  645. 5670  DATA 4,0,1,1,15,13,7,21,2,22,15,29,9,31,3,32,53,51,53,52,53,53,-37,55,-37,59
  646. 5680  DATA -67,63,-67,64
  647. 5690  DATA 10,17,50,52,50,53,20,73,20,75,12,0,53,2,10,51,25,87
  648. 5700  DATA 4,0,1,1,33,2,33,29,8,31,18,39,32,69,2,0,4,21,30,27,8,31,30,45
  649. 5710  DATA 7,0,43,2,15,43,15,45,15,47,15,49,5,61
  650. 5720  DATA 13,0,8,1,10,2,4,3,4,4,19,7,8,8,18,33,8,34,8,61,4,62,8,23,12,83,60,98,20,99
  651. 5730  FOR I=0 TO 15:READ P3(I):NEXT I
  652. 5740  DATA 0,6,12,21,34,43,58,71,86,91,95,102,107,114,125,129
  653. 5750  FOR I=0 TO 82:READ MC(I),MD(I):NEXT I
  654. 5760  DATA 1,2,0.9,13,1,5,1,6,1,10,1,12,0.9,3,0.9,9,0.8,4,0.5,0,1,0,1,1,1,13
  655. 5770  DATA 1,2,0.7,13,0.4,1,1,2,1,5,1,6,0.9,3,0.9,4,0.8,9,1,5,1,10,0.9,6,0.9,3,0.9,4
  656. 5780  DATA 1,8,1,3,1,4,1,6,0.8,9,1,5,1,6,0.9,10,0.8,3,0.7,11
  657. 5790  DATA 1,7,0.9,11,1,10,0.9,5,1,5,1,6,1,7,0.9,10,0.8,4,1,13,1,2,1,10,0.9,11
  658. 5800  DATA 1,1,1,12,0.9,11,1,12,0.9,11,1,12,0.9,11,1,12,0.9,11,1,4,1,6
  659. 5810  DATA 1,5,1,7,0.9,6,1,4,0.9,3,1,3,1,3,1,4,1,13,0.9,12,1,3,1,4,1,3,1,4
  660. 5820  DATA 1,4,1,3,1,10,1,8,1,8,1,0,1,14,1,9
  661. 5830  FOR I=0 TO 103:READ MP(I): NEXT I
  662. 5840  DATA 0,2,2,10,11,11,12,12,13,13,16,16,17,17,22,22,27,27,28,28,32,32
  663. 5850  DATA 37,37,37,37,37,37,39,39,41,41,46,46,47,47,48,48,48,48,50,50,51,51
  664. 5860  DATA 53,53,55,55,57,57,59,59,60,61,64,64,66,66,67,67,69,69,71,71
  665. 5870  DATA 73,75,75,76,77,77,78,78,78,78,79,79,80,80,80,80,81,81,81,81
  666. 5880  DATA 82,82,82,82,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83,83
  667. 5890  FOR I=0 TO 82:READ DD(I):NEXT I
  668. 5900  DATA 2,3,79,5,9,41,0,9,11,35,2,13,15,19,21,55,57,59,63,64,67
  669. 5910  DATA 2,13,15,19,31,51,55,59,63,64,66,2,13,15,21,29,31,53
  670. 5920  DATA 2,13,15,19,21,31,52,53,27,31,53
  671. 5930  DATA 17,73,75,2,13,19,87,2,15,21,29,31,39,69,21,27,39,43,45,47,49
  672. 5940  DATA 2,43,45,47,49,61,0,7,9,33,61,83
  673. 5950  FOR I=0 TO 15:READ DP(I):NEXT I
  674. 5960  DATA 0,3,6,10,21,32,39,47,50,53,57,64,71,77,82,83
  675. 5970  FOR I=0 TO 83:READ ND(I):NEXT I
  676. 5980  DATA 2,37,38,1,3,8,16,17,21,1,5,6,18,1,2,7,8,10,26,28,29,1,2,7,8,10,26,27,29
  677. 5990  DATA 1,2,7,11,15,16,26,33,1,2,7,8,10,26,28,29,1,2,7,11,14,15,16,26,2,9,26
  678. 6000  DATA 1,2,26,1,2,15,16,20,33,1,2,11,14,15,16,20,23,1,2,22,23,24,25,1,2,4,17,40
  679. 6010  FOR I=0 TO 15:READ NP(I):NEXT I
  680. 6020  DATA 0,3,9,13,21,29,37,45,53,56,59,65,73,79,83,84
  681. 6030  FOR I=0 TO 27:READ AD(I):NEXT I
  682. 6040  DATA 43,31,32,39,43,44,31,32,43,44,35,36,44,31,32,39,44,44,35,36,42,44
  683. 6050  DATA 30,42,30,42,43,45
  684. 6060  FOR I=0 TO 15:READ AP(I):NEXT I
  685. 6070  DATA 0,0,0,1,6,10,13,17,18,20,22,22,22,24,27,28
  686. 6080  FOR I=0 TO 147:READ ESD(I):NEXT I
  687. 6090  DATA 4,0,3,5,6,7,8,9,10,11,12,9,1,12,13,10,12,13,12,13,5,12,13,7,11,11,12,13
  688. 6100  DATA 10,12,13,13,2,12,13,13,13,13,13,3,11,12,12,3,11,12,13,3,4,9,11,12,13
  689. 6110  DATA 5,6,7,8,9,10,11,12,13,4,5,7,8,9,10,11,12,13,9,11,13,9,11,12,13
  690. 6120  DATA 9,11,12,13,3,11,12,13,4,5,7,9,10,11,12,13,3,4,5,6,7,8,11,12,10,4
  691. 6130  DATA 9
  692. 6140  DATA 3,4,5,6,7,8,9,3,5,6,7,8,9,10,11,12,13,4,5,7,8,9,10,11,12,13
  693. 6150  DATA 3,4,9,10,11,12,13,3,4,5,6,8,10,11,12,13,14
  694. 6160  FOR I=0 TO 103:READ ESP(I):NEXT I
  695. 6170  DATA 0,0,1,1,1,11,12,13,13,13,13,13,13,13,13,13,15,16,18,18,18,18,20,20,20
  696. 6180  DATA 20,20,20,23,25,28,29,31,31,31,31,32,33,33,33,35,35,35,35,36,36,37,37
  697. 6190  DATA 38,38,39,39,43,47,53,57,62,62,71,71,74,74,74,74,78,82,82,86,94,94,102
  698. 6200  DATA 103,103,103,103,103,103,103,103,103,103,103,104,104,104,104,104,104
  699. 6210  DATA 104,105,105,105,105,112,122,131,138,138,147,147,147,148,148,148
  700. 6220  FOR I=0 TO 142:READ ED(I):NEXT I
  701. 6230  DATA 4,6,36,4,51,52,53,66,69,92,93,95,97,1,53,57,67,69,81,92,94,95,97
  702. 6240  DATA 4,27,54,57,67,69,93,94,97,4,54,69,92,93,97,4,28,54,57,67,69,93,94,97
  703. 6250  DATA 4,54,57,69,93,94,4,5,53,55,57,59,63,64,67,92,93,94,95
  704. 6260  DATA 4,30,55,57,67,70,93,94,95,97
  705. 6270  DATA 4,29,40,51,52,53,55,57,59,63,64,66,67,69,93,94,95,97
  706. 6280  DATA 4,15,17,21,27,29,31,39,51,52,53,55,57,63,64,66,67,69,93,94,95,97
  707. 6290  DATA 15,17,21,27,29,31,35,39,43,45,47,49,51,52,53,55,57,59,63,64,66,67
  708. 6300  DATA 93,94,95,97,100
  709. 6310  FOR I=0 TO 15:READ EP(I):NEXT I
  710. 6320  DATA 0,1,2,3,13,23,32,38,47,53,66,76,94,116,142,143
  711. 6330  FOR I=0 TO 96:READ RD(I):NEXT I
  712. 6340  DATA 3,27,80,-11,3,39,80,-11
  713. 6350  DATA 0,58,60,65,67,-2,0,14,16,20,58,60,65,67,82,-4,1,58,59,65,68,2,13,15,-3
  714. 6360  DATA 55,59,64,-13,55,59,63,-9,56,59,64,-10,56,59,63,-10,56,60,65,-11
  715. 6370  DATA 51,56,60,65,13,13,29,-15,0,58,60,65,67,-2,0,14,16,20,58,60,65,67,82,-4
  716. 6380  DATA 13,15,-3,73,75,-50,51,56,60,65,13,13,29,-15,27,45,-30,47,49,-15
  717. 6390  FOR I=0 TO 21:READ RP(I):NEXT I
  718. 6400  DATA 0,4,8,14,24,30,33,37,41,45,49,53,58,61,67,77,80,83,88,91,94,97
  719. 6410  FOR I=0 TO 15:READ CP(I):NEXT I
  720. 6420  DATA 0,2,2,2,6,11,13,16,19,19,19,19,20,21,21,21
  721. 6430  FOR I=0 TO 139:READ SD(I):NEXT I
  722. 6440  DATA 2,3,79,0,2,5,9,13,15,21,31,33,41,0,9,11,33,35,0,2,13,15,19,21,31,33
  723. 6450  DATA 55,57,59,63,64,67,81,0,2,13,15,19,21,31,33,51,55,59,63,64,66
  724. 6460  DATA 0,2,13,15,21,29,31,33,49,53,0,2,13,15,19,21,31,33,52,57,81
  725. 6470  DATA 0,2,13,15,21,27,29,31,33,39,49,53,0,2,13,15,17,21,31,33,49,53,73,75
  726. 6480  DATA 0,2,13,19,33,51,87,0,2,13,15,17,21,29,31,33,39,53,69
  727. 6490  DATA 0,2,3,13,21,27,31,33,39,43,45,47,49,0,2,33,43,45,47,49,61
  728. 6500  DATA 0,2,7,9,33,61,23,83
  729. 6510  FOR I=0 TO 15:READ SP(I):NEXT I
  730. 6520  DATA 0,3,13,18,33,47,57,68,80,92,99,111,124,132,138,140
  731. 6530  FOR I=0 TO 45:READ OP(I):NEXT I
  732. 6540  DATA 0,3,4,5,6,2,9,10,14,15,12,11,7,8,18,17,21,26,1,13,16,19,20,33,28,29
  733. 6550  DATA 22,23,24,25,27,30,31,32,35,36,42,38,37,39,40,43,34,41,44,45
  734. 6560  READ N,M,NS,DS,N1,N2:DATA 45,14,50,12,15,36
  735. 6570  READ A$,B$,C$,XD$,OBTM$,EXBC$,INH$
  736. 6580  DATA "ERROR<0xB6!>STEP","CALLTO<0xB6!>SCREEN","MERGERESUMESPC(+","WEND+x-RANDOMIZE<0xE2!>SAVE<UNK! {00F6}><0xB6!>RESUME","RANDOMIZECSRLINWEND/TO<0xE5!>TAB(BSAVE"
  737. 6590  DATA "WEND+LINEUSINGFNAUTOPRESETIMPLOADLINEWRITESTRING$CLS<0xE0!>","USINGELSEERLOPEN"
  738. 6600  READ OBXL$,OBGD$:DATA "RANDOMIZECSRLINWEND/USRSOUNDBSAVELOCATECOLOR/","RANDOMIZECSRLINWEND/OPTIONTAB(<0xB4!>MOD"
  739. 6610  READ X2$:DATA "WEND+X-RANDOMIZE<0xE2!>SAVE<UNK! {00F6}><0xB6!>RESUME"
  740. 6620  FOR I=0 TO 2:READ KS$(I),KZ$(I),YZ$(I):NEXT I
  741. 6630  DATA "SPC(CLOSELINE<0xE3!>COLORSCREEN<0xCB!>ERL","<0xDF!><0xB5!>LOCATE<0xB5!>","ERL<UNK! {00F6}>PRESETCOLOR","ERRMODWRITETRONUSRERLSAVEWRITEBSAVETAB(COLORSCREEN<0xCB!>ERL","<0xDF!><0xB5!>USINGPRESET"
  742. 6640  DATA "LOAD<UNK! {00F5}>SCREEN<UNK! {00F5}>","WENDCLOSECOLORSCREEN<0xCB!>ERL","ERR<UNK! {FDB3}>TROFF","ERR<UNK! {FDB3}>TROFF"
  743. 6650  FOR I=0 TO 5:READ XR$(I):NEXT I
  744. 6660  DATA "ERR<UNK! {FDB3}>TROFF","<0xB4!>MODSPC(<0xB6!>WRITETAB(FNUSINGUSRERLOPTIONSOUNDWHILE<0xE4!>","USRINSTRPRESETCLOSECLOSE<UNK! {FDD2}>OPENOPTIONSOUNDWHILE<0xE4!>"
  745. 6670  DATA "STRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTWRITETAB(FNUSINGUSRERLOPTIONSOUNDWHILE<0xE4!>","BLOADCLOSEWEND+","MERGEVARPTR<0xB6!>TAB(WRITETAB(FNUSINGUSRERLOPTIONSOUNDWHILE<0xE4!>"
  746. 6680  FOR I=0 TO 3:READ XSM$(I):NEXT I
  747. 6690  DATA "SAVESTRING$WENDCOLOR","SPC(CLOSEWEND<0xE0!>","BLOADSTRING$BSAVE<UNK! {FE22}>,"ERR<UNK! {FDB3}>TROFF"
  748. 6700  FOR I=0 TO 46:READ SN$(I):NEXT I
  749. 6710  DATA "***"
  750. 6720  DATA "TO<0xE5!>TAB(BSAVE","COLORSCREEN<0xCB!>ERL","KEY<UNK! {00F9}>FNPSETSCREENDEFSNGCOLORSCREEN","WHILEPRESETSCREEN<UNK! {00FB}>BEEP=TO+"
  751. 6730  DATA "FNLOCATETHEN<0xB4!>","<0xB6!>EQVUSRSOUNDTHENBSAVE","PSET<UNK! {00F8}>LOADWHILE","OPEN\TAB(<UNK! {00FC}>CLSERRORSOUNDFN"
  752. 6740  DATA "OPEN\TAB(<UNK! {00FC}>CLSERRORSOUNDFNTHENCLOSESCREENCLOSELOADNOTSTRING$INSTR"
  753. 6750  DATA "USRINSTROPTIONRANDOMIZETHEN<0xB4!>","WRITETRON=SWAP","PSET-STRING$POINTTAB(ERRORTHEN<0xB4!>"
  754. 6760  DATA "CALL+WRITE=","STEP<UNK! {00F8}><0xB4!>DEFINT","<0xB4!>DEFINT<UNK! {00F5}>COLOR","WHILEPRESETKEYSCREENSCREEN<UNK! {FDB0}>LOADSTRING$TRON"
  755. 6770  DATA "FNLOCATECALL<0xE4!>FNAUTO","WHILE<0xE2!>TOSPC(TO<0xE5!>WRITELOCATE<0xB4!>MODCLOSEDEFDBLBEEPERROR","COLORVARPTRPRESETCLOSECOLORBSAVELOCATESTEPLINE<0xDF!>","WRITETAB(<0xB4!>DEFINTBLOAD<UNK! {00F9}>"
  756. 6780  DATA "TAB(<UNK! {00FC}>PSET<UNK! {00F8}>USRERLOPEN^<0xB4!>DEFINTBLOAD<UNK! {00F9}>","TO<0xB5!>BLOAD<UNK! {00F9}>","OPTIONKEYBLOAD<UNK! {00F9}>","<0xB4!>MODLOCATEAUTOBLOAD<UNK! {00F9}>","STRING$USRLOCATEAUTOBLOAD<UNK! {00F9}>"
  757. 6790  DATA "USRELSELOCATEAUTOBLOAD<UNK! {00F9}>","RANDOMIZEPOINTUSRERLOPEN\TAB(<UNK! {00FC}>SPC(\","USRINSTRSOUNDEDITWENDMOTORSPC(\","OPEN\TAB(<UNK! {00FC}>SPC(\LOAD<UNK! {00F5}><0xB5!>THEN"
  758. 6800  DATA "OPEN\TAB(<UNK! {00FC}>SPC(\<0xB4!>STRING$","<0xDF!><0xB5!>ERROR","NOTORSPC(\ERRXORWEND<UNK! {00FC}>","OPEN\TAB(<UNK! {00FC}>CLSERRORSOUNDFNOPENTHENWRITETAB(WENDCOLORTO<0xE5!>STRING$TRONWENDCLOSECALLKEYWHILESCREENCLS<UNK! {FD22}>
  759. 6810  DATA "USRSOUNDERL<0xE0!><0xB4!>STRING$WENDVARPTRERLNOTSPC(\","USRSOUNDBSAVELOCATECOLOR/(140-160/WRITESTRING$)","OPTIONTAB(<0xB4!>MOD(3RANDOMIZERENUMWRITESTRING$SPC(ERLKEYSTEP)"
  760. 6820  DATA "LINE'SCREENERRCOLORSCREENLOCATEWRITE","LINE'SCREENERRCOLORSCREENMERGENOT<0xB4!>ERASELOCATEWRITE","WRITETAB(FNUSINGLOCATEWRITE","WHILE<0xE3!>CALL>LOCATEWRITE"
  761. 6830  DATA "INSTR<UNK! {FED9}>THENWENDELSETO<0xE5!>STRING$TRON(<0xB5!>MOTOROPENRANDOMIZE,ERR^OPENMODTHENFNWRITETRON,WRITEMERGEBSAVEDEFINT,SPC(RANDOMIZEBLOAD<UNK! {00F9}>,CALL<UNK! {00F6}>FNCLSTHEN^)"
  762. 6840  DATA "LINE<0xB4!>KEYSTEPOPTIONUSRCLOSEIMPSTRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTFNUSINGSTRING$TAB(MOTORPSETTAB(INKEY$USRERROR","LINEUSINGFNAUTOPRESETIMPOPENTHENLINEUSINGFNAUTOPRESETIMPWRITESTRING$CLS<0xE0!>"
  763. 6850  DATA "TROFFINSTRTROFFDEFINTRANDOMIZE<0xE2!>THENOPTIONLOCATENOTPRESET+COLOR<UNK! {00F6}>","<0xB4!>MODWHILE<0xE3!>CALL>BSAVEFN","OPTIONRANDOMIZEUSRRANDOMIZE"
  764. 6900  FOR I=0 TO 19:READ DN$(I):NEXT I
  765. 6910  DATA "LINE'SCREENERRCOLORSCREEN","LOADWHILEUSRERLOPEN^FNUSING","WHILE<0xE2!>TOSPC(TO<0xE5!>FNUSING","BEEPERRORUSRINSTR","<0xB4!>MODSPC(<0xB6!>WRITETAB(FNUSING","STRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTWRITETAB(FNUSING"
  766. 6920  DATA "WRITETAB(FNUSINGOPENSTEPWENDTRONBEEPERRORUSRINSTR","<0xB4!>DEFINTUSRERLWRITETAB(FNUSING","WRITETAB(FNUSINGOPENSTEPWENDTRONUSRSOUND<0xCB!>ERASE"
  767. 6930  DATA "MERGEVARPTR<0xB6!>TAB(WRITETAB(FNUSING","BLOADRENUMSTEPOPTIONSTRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTFNUSING","<0xB4!>DEFINTUSRERLSTRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTFNUSING","STRING$ERRORPSET<UNK! {00F8}>RANDOMIZEPOINTFNUSING"
  768. 6940  DATA "KEYSTEPOPEN\TAB(<UNK! {00FC}><0xB5!>CLSOPTIONUSRSCREENSAVE","CALLEDITCALL>WENDELSE","BSAVE+ERRAND","STEPSCREENTO/USRERLUSRSOUNDERL<0xE0!>WENDELSE"
  769. 6950  DATA "INSTR<UNK! {FED9}>THENWENDELSE","KEYSTEPOPTIONUSROPENSTEPWENDTRONOPTIONRANDOMIZEUSRRANDOMIZE","STRING$USR<0xB6!>SAVEUSRERLSOUNDERLWENDELSE"
  770. 7010  FOR I=0 TO 9:READ GN$(I):NEXT I
  771. 7020  DATA "SCREENWRITEERROR","SCREENWRITEERROR","CLOSE<UNK! {00F9}>WHILESAVESCREENWRITEERROR","COLORKEYSOUNDPOINTUSRERL<0xB4!>MOD","NOTUSRCOLORKEYSOUNDPOINT"
  772. 7030  DATA "WENDCLOSEBEEPBEEPCALL<UNK! {FD22}>,"WENDCLOSETHEN-SCREENRENUMBEEPBEEPCALL<UNK! {FD22}>,"COLORKEYSOUNDPOINTUSRERLUSRELSE","COLORKEYSOUNDPOINTUSRERLOPENPOINTUSRELSE","CLOSE<UNK! {00F9}>WHILESAVEBEEPBEEPCALL<UNK! {FD22}>
  773. 7050  FOR I=0 TO 36:READ MN$(I),MQ$(I),MP$(I):NEXT I
  774. 7060  DATA "LINETRONBSAVECALLKEYTRON","PSETDEFSTR","   WHILEINSTRSPC(AUTOLOCATEWHILECOLORVARPTRWRITE<UNK! {FE22}>,"PRESET<0xE5!>MERGE<0xE2!>2OPENBEEP","STRING$ERROR"," LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB("
  775. 7070  DATA "A.P.C.","PSETDEFSTR","PSETDEFSTR WHILEINSTRSPC(AUTOLOCATEWHILECOLORVARPTRWRITE<UNK! {FE22}>,"WRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}>","PSETDEFSTR","COLORVARPTRWRITE<UNK! {FE22}>
  776. 7080  DATA "PRESETCOLOR<0xB5!>SOUND<0xCB!>KEY","PSETDEFSTR"," COLORVARPTRWRITE<UNK! {FE22}>,"10% TOSPC(CLOSERESUMEKEYTRON","#","COLORVARPTRWRITE<UNK! {FE20}>SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  777. 7090  DATA "PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY","STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  SAVEWEND<0xB5!><0xE3!>","CLOSEPRESETLINEWRITE<0xE0!>USING<0xE0!>SWAPLOADLINE<0xCB!>ERR<0xB4!>IMP","PSETDEFSTR","  COLORVARPTRWRITE<UNK! {FE22}>
  778. 7100  DATA "LOADEDITCOLOR<0xE0!><0xB5!>RESUMEWRITECSRLIN","#","COLORVARPTRWRITE<UNK! {FE22}>
  779. 7110  DATA "<0xB6!>RENUMOFFRANDOMIZEOFFUSRLOADAND","STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  CLOSEIMP  SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  780. 7120  DATA "KEYMERGEOFFRANDOMIZEOFFUSRLOADAND","OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>","<0xDF!>CLOSE<0xE0!>RENUM<0xDF!>IMPTHENAUTO","PSETDEFSTR","COLORVARPTRWRITE<UNK! {FE22}>
  781. 7130  DATA "SCREEN+<0xCB!><0xE1!>OPTIONPSETPSETDEFSTR","PSETDEFSTR","COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(  COLORVARPTRWRITE<UNK! {FE22}>
  782. 7140  DATA "OPEN/BLOADRANDOMIZE<0xCB!>INSTR","STRING$ERROR","COLOR<0xCB!>  SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(  SAVEWEND<0xB5!><0xE3!> "
  783. 7150  DATA "OPEN/BLOADRANDOMIZE<0xCB!>INSTR","PSETDEFSTR","COLORVARPTRWRITE<UNK! {FE22}>,"OPEN/BLOADRANDOMIZE<0xCB!>INSTR","PSETDEFSTR","COLORVARPTRWRITE<UNK! {FE22}>
  784. 7160  DATA "<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY","OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB( SAVEWEND<0xB5!><0xE3!>"
  785. 7170  DATA "MOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTR","STRING$ERROR","COLOR<0xCB!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  PSETSWAPLOCATEERL( )"
  786. 7180  DATA "USINGMODUSR<UNK! {FDC3}>USINGUSING<UNK! {00F8}>"," ","COLORVARPTRWRITE<UNK! {FE22}>,"TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTR D3","00000<0xB5!>ERASETAB(CLOSE*1STRING$ERROR","0000<0xB5!>ERASETAB(CLOSE LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  787. 7190  DATA "MOTOR<0xB4!>BLOADRANDOMIZE<0xCB!>INSTR","1COLOR<0xCB!>*STRING$ERROR","COLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( PSETSWAPLOCATEERL( )"
  788. 7200  DATA "PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR","400000<0xB5!>ERASETAB(CLOSE*4STRING$ERROR","<0xB5!>ERASETAB(CLOSE  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  PSETSWAPLOCATEERL( )"
  789. 7210  DATA "PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR","400000<0xB5!>ERASETAB(CLOSE*14STRING$ERROR","<0xB5!>ERASETAB(CLOSE  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> PSETSWAPLOCATEERL( )"
  790. 7220  DATA "PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>INSTR","40000<0xB5!>ERASETAB(CLOSE*4STRING$ERROR","<0xB5!>ERASETAB(CLOSE SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  791. 7230  DATA "PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>INSTR","40000<0xB5!>ERASETAB(CLOSE*14STRING$ERROR","<0xB5!>ERASETAB(CLOSE SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  792. 7240  DATA "COLORRESUMESOUNDPRESETBLOADRANDOMIZE<0xCB!>INSTR","0.25COLOR<0xCB!>*4STRING$ERROR","COLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  793. 7250  DATA "USRELSE<0xB6!><UNK! {00F9}>STRING$RANDOMIZECOLORSCREENOPENSTEPLOADMOTOR","100cc","cc SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB( COLORVARPTRWRITE<UNK! {FE22}>,"OPTION<0xB4!>WRITEMERGELINEWENDCLOSE<UNK! {00F9}>PSETERASEMOTORSTRING$","1STRING$ERROR","STRING$ERROR LOADELSE SCREEN<0xE2!>USINGTRONKEY<0xE4!> ST."
  794. 7260  DATA "WRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}>","25OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  795. 7270  DATA "WHILEMERGELINETHENWHILESCREENTHENUSINGSOUNDPSET","0.1*STRING$ERROR","STRING$ERROR  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> ST."
  796. 7280  DATA "<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+","25OPENMOTORCOLOR<0xCB!>*1PSETDEFSTR"," COLORVARPTRWRITE<UNK! {FE22}>,"<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+","25OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  797. 7290  DATA "TAB(<UNK! {00F7}><0xB5!>INSTRCLSLOAD","0.4OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR","<0xB5!><0xDF!>PRESETFNOPENSTEPLOADMOTOR","100cc","cc SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(  COLORVARPTRWRITE<UNK! {FE22}>
  798. 7300  DATA "<0xB6!>SAVEBLOADRENUMUSR<UNK! {FDBB}>RESUMEUSINGNOTOPTIONLOCATEk","0.25OPENMOTORCOLOR<0xCB!>*1STRING$ERROR","0.007-0.01OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/<0xB4!>TAB( SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  799. 7310  DATA "10%PSETSTEPTOFNTOPRESET","500cc*1#","30-60cc/RANDOMIZERENUMMERGEOR/TO/"
  800. 7320  DATA "TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRc","0.1*6PSETDEFSTR","0.1  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(  COLORVARPTRWRITE<UNK! {FE22}>
  801. 7330  FOR I=0 TO 19:FOR J=0 TO 5:READ MU$(I,J):NEXT J:NEXT I
  802. 7340  DATA "4",4","4","6","8","10","2<0xB5!>ERASETAB(CLOSE*4","2<0xB5!>ERASETAB(CLOSE*4","2<0xB5!>ERASETAB(CLOSE*4","2<0xB5!>ERASETAB(CLOSE*4","4<0xB5!>ERASETAB(CLOSE*1","4<0xB5!>ERASETAB(CLOSE*1"
  803. 7350  DATA "0.42*2","0.42*2","0.42*2","0.42*2","0.42*2","0.42*3"
  804. 7360  DATA "25OPENMOTORCOLOR<0xCB!>*1","25OPENMOTORCOLOR<0xCB!>*1","25OPENMOTORCOLOR<0xCB!>*1","25OPENMOTORCOLOR<0xCB!>*2","25OPENMOTORCOLOR<0xCB!>*4","25OPENMOTORCOLOR<0xCB!>*6"
  805. 7370  DATA "5OPENMOTORCOLOR<0xCB!>*2","5OPENMOTORCOLOR<0xCB!>*4","5OPENMOTORCOLOR<0xCB!>*6","5OPENMOTORCOLOR<0xCB!>*6","5OPENMOTORCOLOR<0xCB!>*10","5OPENMOTORCOLOR<0xCB!>*16"
  806. 7380  DATA "0.2*3","0.2*6","0.2*21","0.2*28","0.2*28","0.2*28"
  807. 7390  DATA "50OPENMOTORCOLOR<0xCB!>*1","50OPENMOTORCOLOR<0xCB!>*1","50OPENMOTORCOLOR<0xCB!>*1","50OPENMOTORCOLOR<0xCB!>*1","50OPENMOTORCOLOR<0xCB!>*2","50OPENMOTORCOLOR<0xCB!>*2"
  808. 7400  DATA "OPTION<UNK! {00F7}>5*4","OPTION<UNK! {00F7}>0.5*4","OPTION<UNK! {00F7}>0.5*6","OPTION<UNK! {00F7}>0.5*8",".OPTION<UNK! {00F7}>0.5*16","OPTION<UNK! {00F7}>0.5*24"
  809. 7410  DATA "3","3","3","4","7","14","0.3 OPENMOTORCOLOR<0xCB!>*1","0.3OPENMOTORCOLOR<0xCB!>*1","0.3OPENMOTORCOLOR<0xCB!>*1","0.3OPENMOTORCOLOR<0xCB!>*2","0.5OPENMOTORCOLOR<0xCB!>*1","0.5OPENMOTORCOLOR<0xCB!>*1"
  810. 7420  DATA "5","5","5","5","5","10","10OPENMOTORCOLOR<0xCB!>*6","10OPENMOTORCOLOR<0xCB!>*8","10OPENMOTORCOLOR<0xCB!>*12","10OPENMOTORCOLOR<0xCB!>*18","0.1COLOR<0xCB!>*3","0.1COLOR<0xCB!>*4"
  811. 7430  DATA "0.3COLOR<0xCB!>*20","0.3COLOR<0xCB!>*20","0.3COLOR<0xCB!>*20","0.3COLOR<0xCB!>*40","0.3COLOR<0xCB!>*40","0.3COLOR<0xCB!>*40"
  812. 7440  DATA "0.3COLOR<0xCB!>*1","0.3COLOR<0xCB!>*1","0.3COLOR<0xCB!>*1","0.3COLOR<0xCB!>*1","0.3COLOR<0xCB!>*2","0.3COLOR<0xCB!>*2"
  813. 7450  DATA "0.1COLOR<0xCB!>*2","0.1COLOR<0xCB!>*3","0.1COLOR<0xCB!>*4","0.125COLOR<0xCB!>*8","0.1COLOR<0xCB!>*12","0.1COLOR<0xCB!>*18"
  814. 7460  DATA "0.1COLOR<0xCB!>*7","0.1COLOR<0xCB!>*11","0.1COLOR<0xCB!>*14","0.125COLOR<0xCB!>*28","0.1COLOR<0xCB!>*42","0.1COLOR<0xCB!>*63"
  815. 7470  DATA "3","3","3","3","3","5"
  816. 7480  DATA "1COLOR<0xCB!>*2","1COLOR<0xCB!>*2","1COLOR<0xCB!>*3","1COLOR<0xCB!>*3","1COLOR<0xCB!>*3","1COLOR<0xCB!>*3"
  817. 7490  DATA "25OPENMOTORCOLOR<0xCB!>*1/3PSETDEFSTR","25OPENMOTORCOLOR<0xCB!>*1/2PSETDEFSTR","25OPENMOTORCOLOR<0xCB!>*1PSETDEFSTR","25OPENMOTORCOLOR<0xCB!>*1.5PSETDEFSTR","25OPENMOTORCOLOR<0xCB!>*3PSETDEFSTR","           25OPENMOTORCOLOR<0xCB!>*4PSETDEFSTR"
  818. 7500  DATA "3","3","6","6","6","6"
  819. 7510  FOR I=0 TO 33:FOR J=0 TO 5:READ MV$(I,J):NEXT J:NEXT I
  820. 7520  DATA "1/2PSETDEFSTR","1/2PSETDEFSTR","2/3PSETDEFSTR","1PSETDEFSTR","2PSETDEFSTR","3PSETDEFSTR"
  821. 7530  DATA "1/2STRING$ERROR","1/2STRING$ERROR","2<0xB5!>ERASETAB(CLOSE","2<0xB5!>ERASETAB(CLOSE","3<0xB5!>ERASETAB(CLOSE","4<0xB5!>ERASETAB(CLOSE"
  822. 7540  DATA "1/7","1/6","1/5","1/4","1/2","2/3"
  823. 7550  DATA "3OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","7.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","7.5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","12.5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","12.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  824. 7560  DATA "2.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(", "5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","5OPENMOTORCOLOR<0xCB!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","10OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","10OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB("
  825. 7570  DATA "0.1","0.1","0.2","0.3","0.6","0.9"
  826. 7580  DATA "30","30","50","50","75","100"
  827. 7590  DATA "OPTION<UNK! {00F7}>0.2COLOR<0xCB!>  SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","OPTION<UNK! {00F7}>0.25COLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","OPTION<UNK! {00F7}>0.5COLOR<0xCB!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","OPTION<UNK! {00F7}>0.5COLOR<0xCB!>  SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","OPTION<UNK! {00F7}>1.0COLOR<0xCB!>  SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","OPTION<UNK! {00F7}>1.5COLOR<0xCB!>  SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB("
  828. 7600  DATA "9/1# SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","1/9# SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","1/9# SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","1/6# SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","1/3# SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","1# SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB("
  829. 7610  DATA "0.1","0.2","0.3","0.3","0.4","0.45"
  830. 7620  DATA "1","1.5","2.5","3","5","7"
  831. 7630  DATA "10OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","10OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","20OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","20OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","50OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","50OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB("
  832. 7640  DATA "0.3","0.3","0.3","0.6","0.6","0.6"
  833. 7650  DATA "0.1","0.15","0.15","0.3","0.6","0.6"
  834. 7660  DATA "1/3PSETDEFSTR SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.05COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.05COLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","0.125COLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","0.2COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.3COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  835. 7670  DATA "1/3PSETDEFSTR SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.05COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.05COLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","0.125COLOR<0xCB!> SPC(CLOSESCREENERR<0xCB!>SOUND<0xB4!>TAB(","0.2COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(","0.3COLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  836. 7680  DATA "1","1","1.5","2","2.5","4"
  837. 7690  DATA "0.06","0.07","0.1","0.15","0.25","0.33"
  838. 7700  DATA "1/3PSETDEFSTR","1/2PSETDEFSTR","1PSETDEFSTR","1.5PSETDEFSTR","2-3PSETDEFSTR","3-4PSETDEFSTR"
  839. 7710  DATA "3","3","6","6","6","6"
  840. 7720  DATA "0.06","0.07","0.1","0.15","0.25","0.33"
  841. 7730  DATA "200000","200000","400000","400000","400000","400000"
  842. 7740  DATA "200000","200000","400000","400000","400000","400000"
  843. 7750  DATA "5000","8000","10000","20000","30000","40000"
  844. 7760  DATA "5000","8000","10000","20000","30000","40000"
  845. 7770  DATA "0.0625","0.125","0.125","0.25","0.25","0.5"
  846. 7780  DATA "5","5","5","5","10","10"
  847. 7790  DATA "1/3","1/3","1/2","2/3","3/5"
  848. 7800  DATA "1","5","5","7.5","7.5-12.5","12.5-20","25"
  849. 7810  DATA "1/3","1/3","1/2","2/3","1","1"
  850. 7820  DATA "2.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","7.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","7.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","12.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(","12.5OPENMOTORCOLOR<0xCB!> SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  851. 7830  DATA "2.5","5","7.5","7.5","12.5","12.5"
  852. 7840  DATA "USINGPOINTMOTORCOLOR 0.03","USINGPOINTMOTORCOLOR 0.03","USINGPOINTMOTORCOLOR 0.04","USINGPOINTMOTORCOLOR 0.04"
  853. 7850  DATA "USINGPOINTMOTORCOLOR 0.02-0.03","USINGPOINTMOTORCOLOR 0.02"
  854. 7860  DATA "0.5","1","2","3","5","10"
  855. 7870  RETURN
  856. 7880  REM SUB 6 MEDICIN
  857. 7890  IF AGE<=3 THEN X=0 :GOTO 7950
  858. 7900  IF AGE<=6 THEN X=1:GOTO 7950
  859. 7910  IF AGE<=11 THEN X=2:GOTO 7950
  860. 7920  IF AGE<=36 THEN X=3:GOTO 7950
  861. 7930  IF AGE<=84 THEN X=4:GOTO 7950
  862. 7940  X=5
  863. 7950  FOR J=0 TO 36:KM(J)=0:NEXT J
  864. 7960  K=0:H=1
  865. 7970  FOR J=0 TO L-1
  866. 7980  ON OM(J)+1 GOSUB 8300,8320,8350,8390,8390,8410,8390,8410,8390,8410,8390,8460,8500,8560,8720,8390,8390,8740
  867. 7990  NEXT J
  868. 8000  T$="       <0xB4!>EDIT     WRITEMERGE"
  869. 8005  LPRINT:
  870. 8010  GOSUB 9080
  871. 8020  LPRINT :LPRINT "Rp"
  872. 8030  FOR J=0 TO K-1
  873. 8040  IF KM(FS(J))=1 THEN 8280
  874. 8050  KM(FS(J))=1
  875. 8060  IF FS(J)=17 THEN KM(20)=1:GOTO 8100
  876. 8070  IF FS(J)=20 THEN KM(17)=1:GOTO 8100
  877. 8080  IF FS(J)=21 THEN KM(22)=1:GOTO 8100
  878. 8090  IF FS(J)=22 THEN KM(21)=1
  879. 8100  IF FS(J)<>17 THEN 8130
  880. 8110  GOSUB 9220:IF XX=1 OR XX=3 THEN FS(J)=24:GOTO 8040
  881. 8120  IF XX=2 THEN MP$(17)="COLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  882. 8130  IF FS(J)<>20 THEN 8160
  883. 8140  GOSUB 9220:IF XX=1 OR XX=3 THEN FS(J)=23:GOTO 8040
  884. 8150  IF XX=2 THEN MP$(20)="COLOR<0xCB!> SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  885. 8160  IF FS(J)<>21 THEN 8190
  886. 8170  GOSUB 9220:IF XX=1 OR XX=3 THEN FS(J)=14:GOTO 8040
  887. 8180  IF XX=2 THEN MP$(21)="<0xB5!>ERASETAB(CLOSE  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  888. 8190  IF FS(J)<>22 THEN 8220
  889. 8200  GOSUB 9220:IF XX=1 OR XX=3 THEN FS(J)=14:GOTO 8040
  890. 8210  IF XX=2 THEN MP$(22)="<0xB5!>ERASETAB(CLOSE  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>"
  891. 8220  REM
  892. 8230  LPRINT H;".";MN$(FS(J));"  ";
  893. 8231  PRINT H;".";MN$(FS(J));"  ";:H=H+1
  894. 8240  IF FS(J)<=19 THEN LPRINT MU$(FS(J),X);
  895. 8241  IF FS(J)<=19 THEN PRINT MU$(FS(J),X);
  896. 8250  LPRINT MQ$(FS(J)):LPRINT "   NOTBLOADWRITERESUME   ";
  897. 8251  PRINT MQ$(FS(J)):PRINT "   NOTBLOADWRITERESUME   ";
  898. 8260  IF FS(J)<=33 THEN LPRINT MV$(FS(J),X);
  899. 8261  IF FS(J)<=33 THEN PRINT MV$(FS(J),X);
  900. 8270  LPRINT MP$(FS(J))
  901. 8271  PRINT MP$(FS(J))
  902. 8280  LPRINT :LPRINT
  903. 8281  PRINT :PRINT :NEXT J
  904. 8285  LPRINT"--------------------------------------------------                                                               SPC(MERGE  LOCATEEDIT (        )"
  905. 8290  RETURN
  906. 8300  REM  SUBOP 0 BAI RE KE
  907. 8310  FS(K)=17:FS(K+1)=5:FS(K+2)=8:K=K+3:RETURN
  908. 8320  REM SUBOP 1 HOU YAN
  909. 8330  FS(K)=21:FS(K+1)=20:FS(K+2)=4:FS(K+3)=3:FS(K+4)=0
  910. 8340  K=K+5:RETURN
  911. 8350  REM SUBOP 2 BIAN TIAO XIAN YAN
  912. 8360  FS(K)=21:FS(K+1)=20:K=K+2
  913. 8370  IF TEMP>37 THEN FS(K)=0:K=K+1
  914. 8380  RETURN
  915. 8390  REM SUBOP 3,4,6,8,10
  916. 8400  RETURN
  917. 8410  REM SUBOP 5,7,9
  918. 8420  FS(K)=21:FS(K+1)=20:FS(K+2)=26:FS(K+3)=0:K=4
  919. 8430  IF TEMP>37 THEN FS(K)=0:K=K+1
  920. 8440  IF S(14)=27 THEN FS(K)=3:K=K+1
  921. 8450  FS(K)=4:K=K+1:RETURN
  922. 8460  REM SUBOP11
  923. 8470  FS(K)=21:FS(K+1)=20:FS(K+2)=26:FS(K+3)=4:K=K+4
  924. 8480  IF TEMP>37 THEN FS(K)=0:K=K+1
  925. 8490  FS(K)=3:K=K+1:RETURN
  926. 8500  REM SUBOP 12 ZHI QI GUAN YAN
  927. 8510  IF TEMP>37 OR S(24)=47 OR S(25)=49 THEN 8550
  928. 8520  IF AGE>48 THEN FS(K)=7:GOTO 8540
  929. 8530  FS(K)=14
  930. 8540  FS(K+1)=26:K=K+2:RETURN
  931. 8550  FS(K)=21:FS(K+1)=26:FS(K+2)=0:K=K+3:RETURN
  932. 8560  REM SUBOP 13 SHANG GAN 
  933. 8570  IF TEMP>37 THEN 8620
  934. 8580  FS(K)=7:FS(K+1)=36:K=K+2
  935. 8590  IF S(2)=2 THEN FS(K)=26:K=K+1
  936. 8600  IF S(46)=101 THEN FS(K)=11:K=K+1
  937. 8610  RETURN
  938. 8620  IF TEMP>38.5 THEN 8660
  939. 8630  IF AGE<48 THEN FS(K)=14:GOTO 8650
  940. 8640  FS(K)=7
  941. 8650  FS(K+1)=0:FS(K+2)=36:K=K+3:GOTO 8590
  942. 8660  IF TEMP>39.7 THEN 8700
  943. 8670  IF S(43)=90 THEN FS(K)=1:GOTO 8690
  944. 8680  FS(K)=21
  945. 8690  FS(K+1)=0:K=K+2:GOTO 8590
  946. 8700  FS(K)=29:FS(K+1)=27:FS(K+2)=21:FS(K+3)=20:FS(K+4)=0
  947. 8710  K=K+5:GOTO 8600
  948. 8720  REM SUBOP 14 CHONG
  949. 8730  FS(K)=18:FS(K+1)=33:K=K+2:RETURN
  950. 8740  REM SUBOP 17 GOU LOU
  951. 8750  FS(K)=19:FS(K+1)=12:K=K+2:RETURN
  952. 8760  REM TRETMENT OF FEIO NONG YE AND SO ON 
  953. 8770  LPRINT:LPRINT "              ***** STRING$TAB(MOTORPSETERLDEFINTERLIMP *****":LPRINT
  954. 8771  PRINT:PRINT "              ***** STRING$TAB(MOTORPSETERLDEFINTERLIMP *****":PRINT
  955. 8780  LPRINT "(1).";MN$(13);"  30OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/ SAVEWEND<0xB5!><0xE3!>   CLOSEIMP"
  956. 8781  PRINT "(1).";MN$(13);"  30OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/ SAVEWEND<0xB5!><0xE3!>   CLOSEIMP"
  957. 8790  LPRINT "   LINEWHILEPOINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR";"  50-100OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/    SAVEWEND<0xB5!><0xE3!>"
  958. 8791  PRINT "   LINEWHILEPOINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR";"  50-100OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/    SAVEWEND<0xB5!><0xE3!>"
  959. 8800  LPRINT "(2).";MN$(6);"   5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/   CLOSEIMP"
  960. 8801  PRINT "(2).";MN$(6);"   5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/  CLOSEIMP"
  961. 8810  LPRINT "    ";MN$(16);"   0.25-0.5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/    SAVEWEND<0xB5!><0xE3!>"
  962. 8811  PRINT "    ";MN$(16);"   0.25-0.5OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/TO/    SAVEWEND<0xB5!><0xE3!>"
  963. 8820  LPRINT "(3).";MN$(35);"   30-60cc/RANDOMIZERENUMMERGEOR/TO/  SAVEWEND<0xB5!><0xE3!>"
  964. 8821  PRINT "(3).";MN$(35);"   30-60cc/RANDOMIZERENUMMERGEOR/TO/  SAVEWEND<0xB5!><0xE3!>"
  965. 8830  LPRINT "(4).SCREEN\PSET<UNK! {00F8}><0xB4!>DEFINTFNSTEPSTRING$INSTR"
  966. 8831  PRINT "(4).SCREEN\PSET<UNK! {00F8}><0xB4!>DEFINTFNSTEPSTRING$INSTR"
  967. 8840  LPRINT "   1>.";MN$(30);"  1OPENMOTORCOLOR<0xCB!>-1.5OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  968. 8841  PRINT "   1>.";MN$(30);"  1OPENMOTORCOLOR<0xCB!>-1.5OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB("
  969. 8850  LPRINT "     +";MN$(3);"  1OPENMOTORCOLOR<0xCB!>-1.5OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(  CLOSEIMP"
  970. 8851  PRINT "     +";MN$(3);"  1OPENMOTORCOLOR<0xCB!>-1.5OPENMOTORCOLOR<0xCB!>/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB(  CLOSEIMP"
  971. 8860  LPRINT "   2>.";MN$(10);"   0.3OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( CLOSEIMP"
  972. 8861  PRINT "   2>.";MN$(10);"   0.3OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>  SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB( CLOSEIMP"
  973. 8870  LPRINT "   3>.";MN$(9);"    0.02-0.04OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  974. 8871  PRINT "   3>.";MN$(9);"    0.02-0.04OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>  CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  975. 8880  LPRINT "   4>.4%TOLOAD<0xCB!><0xE1!>PRESET<0xE2!>SOUNDPSET  3-5cc/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  976. 8881  PRINT "   4>.4%TOLOAD<0xCB!><0xE1!>PRESET<0xE2!>SOUNDPSET  3-5cc/RANDOMIZERENUMMERGEOR/<0xB4!>TAB(  SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>"
  977. 8890  LPRINT "(5).";"<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:";MN$(26);",";MN$(0);",FN<UNK! {00F5}>TAB(<UNK! {00FC}>SCREEN*"
  978. 8891  PRINT "(5).";"<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:";MN$(26);",";MN$(0);",FN<UNK! {00F5}>TAB(<UNK! {00FC}>SCREEN*"
  979. 8900  LPRINT "(6).";"USRSOUND<0xCB!>ERASELOCATEWHILE:";MN$(32);"0.04mg/kg WRITESTRING$<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>  CLOSEIMP"
  980. 8901  PRINT "(6).";"USRSOUND<0xCB!>ERASELOCATEWHILE:";MN$(32);"0.04mg/kg WRITESTRING$<0xB4!>TAB(  LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!> CLOSEIMP SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>  CLOSEIMP"
  981. 8910  LPRINT "(7).<0xB5!>WHILEOPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!>LOCATEWHILE:BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$ CLOSEIMP COLORKEYCLSDEFINTBLOAD<UNK! {00F7}>"
  982. 8911  PRINT "(7).<0xB5!>WHILEOPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!>LOCATEWHILE:BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$ CLOSEIMP COLORKEYCLSDEFINTBLOAD<UNK! {00F7}>"
  983. 8920  RETURN
  984. 8930  REM TREATMENT OF HOU YAN
  985. 8940  T$="STRING$TAB(MOTORPSETERLDEFINTERLIMP":LPRINT:LPRINT:LPRINT "            ***** ";T$;" *****":LPRINT
  986. 8941  T$="STRING$TAB(MOTORPSETERLDEFINTERLIMP":PRINT "            ***** ";T$;" *****":PRINT
  987. 8950  LPRINT "(1).";MN$(35);"       30-60cc/RANDOMIZERENUMMERGEOR"
  988. 8951  PRINT "(1).";MN$(35);"       30-60cc/RANDOMIZERENUMMERGEOR"
  989. 8960  LPRINT "    ";MN$(13);"       30-50OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR"
  990. 8961  PRINT "    ";MN$(13);"       30-50OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR"
  991. 8970  LPRINT "    ";MN$(6);"        OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR    SAVEWEND<0xB5!><0xE3!>"
  992. 8971  PRINT "    ";MN$(6);"        OPENMOTORCOLOR<0xCB!>/RANDOMIZERENUMMERGEOR    SAVEWEND<0xB5!><0xE3!>"
  993. 8980  LPRINT "(2).";MN$(17);" CLOSEIMP ";MN$(23);"   LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>   SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB("
  994. 8981  PRINT "(2).";MN$(17);" CLOSEIMP ";MN$(23);"   LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>   SPC(CLOSESCREENERRMOTORMERGE<0xB4!>TAB("
  995. 8990  LPRINT "(3).ERR\PSET<UNK! {00F8}>TAB(<UNK! {00FC}>SCREEN*  3-5 <0xB4!>TAB(/SCREENERR"
  996. 8991  PRINT "(3).ERR\PSET<UNK! {00F8}>TAB(<UNK! {00FC}>SCREEN*  3-5 <0xB4!>TAB(/SCREENERR"
  997. 9000  LPRINT "(4).SEDATIVES"
  998. 9001  PRINT "(4).SEDATIVES"
  999. 9010  LPRINT "(5).Tracheotomy tra:<0xB5!>WHILENOTUSR3-4<0xB6!>SCREENOPEN^RANDOMIZETROFFUSING<LOCATEWHILE,USING<UNK! {00F6}>PSET<UNK! {00F8}>RANDOMIZEPOINTPRESETUSRCOLORAUTO"
  1000. 9011  PRINT "(5).Tracheotomy tra:<0xB5!>WHILENOTUSR3-4<0xB6!>SCREENOPEN^RANDOMIZETROFFUSING<LOCATEWHILE,USING<UNK! {00F6}>PSET<UNK! {00F8}>RANDOMIZEPOINTPRESETUSRCOLORAUTO":RETURN
  1001. 9020  REM SUB 7 FORMAT
  1002. 9080  LPRINT:LPRINT:LPRINT "                  <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL                "
  1003. 9081  PRINT:PRINT "                  <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL                "
  1004. 9090  LPRINT:LPRINT "               ";T$
  1005. 9091  PRINT:PRINT "               ";T$
  1006. 9100  LPRINT "__________________________________________________"
  1007. 9101  PRINT "__________________________________________________"
  1008. 9140  LPRINT " WENDELSECLS<UNK! {00FA}>OPENBEEP. ";NU;"      SCREENERRPSETVARPTR:  ";LEFT$(DAY$,2);"  SOUND-  ";MID$(DAY$,4,2);"  ERLBSAVE  ";RIGHT$(DAY$,2);"  SCREENERR"
  1009. 9141  PRINT " WENDELSECLS<UNK! {00FA}>OPENBEEP. ";NU;"      SCREENERRPSETVARPTR:  ";LEFT$(DAY$,2);"  SOUND-  ";MID$(DAY$,4,2);"  ERLBSAVE  ";RIGHT$(DAY$,2);"  SCREENERR"
  1010. 9150  LPRINT "--------------------------------------------------"
  1011. 9151  PRINT "--------------------------------------------------"
  1012. 9160  LPRINT "USRERRBLOAD<UNK! {00FB}>:          USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>: ";
  1013. 9161  PRINT "USRERRBLOAD<UNK! {00FB}>:          USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>: ";
  1014. 9170  Y=INT(AE):Z=INT((AE-INT(AE))*100+0.5)
  1015. 9180  IF Y<>0 THEN LPRINT Y;" <0xCB!>-  ";
  1016. 9181  IF Y<>0 THEN PRINT Y;" <0xCB!>-  ";
  1017. 9190  IF Z<>0 THEN LPRINT Z;" ERLBSAVE";
  1018. 9191  IF Z<>0 THEN PRINT Z;" ERLBSAVE";
  1019. 9200  LPRINT:LPRINT"--------------------------------------------------"
  1020. 9201  PRINT:PRINT"--------------------------------------------------"
  1021. 9210  RETURN
  1022. 9220  REM MEDICINE CHANGE
  1023. 9225  PRINT MN$(FS(J)):
  1024. 9230  PRINT "1=PSETSWAPLOCATEERL (+)":PRINT "2=PSETSWAPLOCATEERL (-)":PRINT "3=COLORRANDOMIZESPC(DELETE":PRINT "4=PSET<0xE4!><0xCB!><UNK! {00FB}>"
  1025. 9240  INPUT XX:RETURN
  1026. 10000  BN$="BL"+STR$(NU): OPEN "I",#1,BN$
  1027. 10010  INPUT #1,NU:FOR I=0 TO N+1:INPUT #1,S(I):NEXT I:INPUT #1,TEMP:
  1028. 10020  INPUT #1,BRKM:INPUT #1,AE:INPUT #1,DAY$:INPUT #1,MA$
  1029. 10030  FOR I=0 TO M:INPUT #1,W1(I):INPUT #1,NO(I):NEXT I:CLOSE #1
  1030. 10040  IF S$="5" THEN 380
  1031. 10050  U%=1:K=0
  1032. 10060  IF (MID$(S$,U%,1)=" ")AND(U%<=LEN(S$)) THEN U%=U%+1:GOTO 10060
  1033. 10070  IF U%>LEN(S$) THEN 10090
  1034. 10080  FS(K)=VAL(MID$(S$,U%,1))+41:K=K+1:U%=U%+1:GOTO 10060
  1035. 10090  GOSUB 2730:GOTO 370
  1036.