home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b012 / 1.ddi / SJ.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  29.9 KB  |  833 lines
  1. 10  DIM AA(11,8),P1(106),P2(106),P3(12),AD(45),AP(12),ED(199),EP(12),RD(97)
  2. 20  DIM RP(17),CP(12),GZB(7),KA(11),UA(11),SN$(33),GN$(11),DN$(13),GGN$(3)
  3. 30  DIM TU$(1),FC$(1),FM$(2),CS$(1),NJ$(5),ND$(4),BC$(1),CA$(1)
  4. 40  REM JJ DATA TRANSFER
  5. 50  GOSUB 4310
  6. 60  DIM S(N+1),MARK(N+1),FS(NS),P(DS),PT(DS),W(M),W1(M),NO(M),GG(3),GX(2)
  7. 70  REM INTIATE
  8. 80  IF S(25)=56 THEN KA(6)=3:GOTO 100
  9. 100  S(0)=0:S(1)=1:S(2)=9:S(3)=12:S(4)=15:S(29)=66:S(30)=73:S(31)=75:S(32)=81:S(33)=84
  10. 110  S(34)=85:GIN=0:GX(0)=0:GX(1)=0:GX(2)=0:PN=0:RS=10:GM=0:GEM=0:CSM=0
  11. 120  FOR I=5 TO 28:S(I)=2*I+7:NEXT I:FOR I=0 TO 33:MARK(I)=0:NEXT I
  12. 130  CLS:INPUT "WENDELSECLS<UNK! {00FA}>OPENBEEP=";NU
  13. 132  INPUT "SOUND-MOTOR<0xE4!>(**.**--YY.MM)=";AGE: IF AGE>15 OR AGE<0.01 THEN PRINT "SOUND<UNK! {00FA}><0xB5!>SOUNDSOUND-MOTOR<0xE4!>CALLDEFSTRCALL<UNK! {00F6}>MOTOR<0xCB!>WRITE<0xB6!>TAB(ERROR":GOTO 132
  14. 134  AE=AGE
  15. 136  INPUT "WRITETRONWENDELSEERLBSAVEWRITEOFF=";MONTH:IF MONTH>12 OR MONTH<1 THEN 136
  16. 137  INPUT "USRERLWHILEXOR:   1=SOUNDUSR      2=BEEPDEFSNG";X:IF X=1 THEN MA$="SOUNDUSR":GOTO 140
  17. 138  IF X=2 THEN MA$="BEEPDEFSNG":GOTO 140
  18. 139  GOTO 137
  19. 140  AGE=INT(AGE)*12+(AGE-INT(AGE))*100
  20. 150  FS(0)=0:FS(1)=2:FS(2)=4:FS(3)=5:FS(4)=6:FS(5)=8:FS(6)=11:FS(7)=12:FS(8)=15:FS(9)=16
  21. 160  FS(10)=19:FS(11)=26:K=12:GOSUB 610:PRINT "TAB(SPC(ERR<UNK! {FDD4}>VARPTRCOLORLOADBSAVEPRESET,PRESET*KEYERL<0xB5!>SCREEN......."
  22. 161  GOSUB 1000:GOSUB 530:IF K<>0 THEN GOSUB 610
  23. 162  IF W(7)<30 OR S(3)=10 THEN 170
  24. 164  PRINT "1=SPC(FNCLOSEDEFDBLFN+<0xB4!>MODWHILE<0xE3!>PRESETSPC(WRITETRONSTEPSTRING$BEEPERRORFNAUTO"
  25. 166  PRINT "2=SPC(FNCLOSEDEFDBLFN+<0xB4!>MODWHILE<0xE3!>BLOADCLOSEWRITETRONSTEPSTRING$BEEPERRORFNAUTO"
  26. 168  PRINT "3=TAB(<0xB4!>CLOSEDEFDBLFN+<0xB4!>MODWHILE<0xE3!>":INPUT DLM
  27. 170  INPUT "CLOSERANDOMIZENOTUSRSTRING$TRONUSING<0xB4!>CLOSEIMPNOTUSRSTRING$TRONUSING<0xB4!>SPC(AUTOUSRINKEY$OPTIONSOUNDBSAVEXOR(Y/N)";S$:IF S$<>"Y" AND S$<>"N" THEN 170
  28. 175  IF S$="N" THEN 260
  29. 180  FOR J=0 TO 4
  30. 185  FOR I=J*7 TO J*7+7-1:IF I<>34 THEN PRINT I;"=";SN$(I)
  31. 190  NEXT I:PRINT "FNELSEERLEQVPSET<0xE4!>STRING$USRSTRING$DEFSNGSPC(CLOSE,LINE<0xB4!>PSET<0xE4!>WHILE<0xE0!>OPENBEEP,SCREENCLOSEOPENMODLINE<0xB4!>RETURNLOAD<UNK! {00FC}>,BLOADCLOSENOTUSRLINE<0xB4!>RETURNLOAD<UNK! {00FC}>":INPUT X$
  32. 195  IF X$="" THEN 220
  33. 200  IF VAL(X$)>J*7+7-1 AND VAL(X$)<J*7 THEN 185
  34. 205  FS(0)=VAL(X$):K=1:IF MARK(VAL(X$))=1 THEN MARK(VAL(X$))=0
  35. 210  GOSUB 610:GOTO 185
  36. 220  NEXT J
  37. 260  PRINT "KEYERLOPENIMP......":GOSUB 1000
  38. 270  REM ZONG HE ZHEN DUAN
  39. 271  GOSUB 4292
  40. 272  T$="WENDELSE      CLS<UNK! {00FA}>       ":LPRINT :GOSUB 4140:LPRINT :LPRINT
  41. 275  T$="ERROR   <0xB6!>STEP":LPRINT:LPRINT"           ***** ";T$;" *****":LPRINT
  42. 280  EXNM=0:EXDM=0:OBTM=0:DJM=0:INM=0
  43. 290  IF W1(0)<9 THEN 350
  44. 300  LPRINT A$,"WENDCLOSESOUNDPOINTSAVE<UNK! {00F6}><0xB6!>RESUME":LPRINT C$,"RANDOMIZECSRLINWEND/"
  45. 301  PRINT A$,"WENDCLOSESOUNDPOINTSAVE<UNK! {00F6}><0xB6!>RESUME":PRINT C$,"RANDOMIZECSRLINWEND/"
  46. 310  LPRINT"------------------------------------------                                                                 SPC(MERGE  LOCATEEDIT (      )"
  47. 320  INPUT "STEPBSAVESPC(CLOSEOPTION<UNK! {00F6}>WENDELSESCREEN<0xCB!>LOCATEPRESETKEYEQVSAVEDEFINTSTEP<0xB5!>THENCALL<0xB5!>SOUNDWENDELSESCREEN<0xCB!>BSAVEXOR(Y/N)";X$
  48. 330  IF X$="Y" THEN CLS:GOTO 80 ELSE IF X$="N" THEN CLS:PRINT "WRITE<0xB5!>CLOSEINSTRUSINGPOINTCOLORINSTR,CLOSE<0xB6!>NOTDEFINTSOUND<UNK! {00FA}>ERL'<0xB4!>TAB(LOCATERANDOMIZENOTBLOADWHILESAVESTEP<0xB5!>THENCALL":RUN "ZK.BAS" ELSE PRINT "<0xB4!>^MOTOR<0xCB!>,PRESET*STRING$INSTRCLS<0xB4!>":GOTO 320
  49. 340  END
  50. 350  FOR I=0 TO M:IF NO(I)=4 THEN K=I:GOTO 370
  51. 360  NEXT I
  52. 370  IF K=0 THEN 390
  53. 380  IF K>2 OR (W1(K)-W1(K-1))>1 AND W1(K)>3 OR W1(K)>=9 OR (W1(K)-W1(K-1))>2 THEN 510
  54. 390  IF S(13)=32 OR GM<>0 THEN 420
  55. 400  PRINT "1=CALLSWAPLOCATEWHILELOAD<0xE4!>OPENMODTAB(INKEY$";SN$(13):PRINT "2=PSET<0xE4!><0xCB!><UNK! {00FB}>":INPUT GM
  56. 410  IF GM=1 THEN W1(K)=9:GOTO 490
  57. 420  IF S(31)<>74 OR GIN=1 THEN 500
  58. 430  GOSUB 3970:IF S(13)=33 OR RS>3 THEN 480
  59. 440  FOR I=0 TO M:IF I=K THEN 470
  60. 450  IF RS=1 THEN W1(I)=9:GOTO 470
  61. 460  IF (W1(I)+2)<9 THEN W1(I)=W1(I)+2
  62. 470  NEXT I:GOTO 490
  63. 480  IF S(13)=33 AND RS>6 THEN W1(K)=9
  64. 490  GOSUB 2340:GOTO 280
  65. 500  IF S(13)=32 AND S(31)=75 AND GEM=0 THEN GEM=1:GOTO 440
  66. 510  IF DLM=1 OR S(28)=62 OR NO(0)<>7 AND NO(0)<>8 AND NO(1)<>8 AND NO(1)<>7 THEN 518
  67. 512  INPUT "FNLOCATECALL<0xE4!>FNAUTO=(Y/N)";YCX$
  68. 514  IF YCX$="Y" AND NO(0)=7 AND NO(1)=8 THEN NO(0)=8:NO(1)=7:T=W1(0):W1(0)=W1(1):W1(1)=T:GOTO 518
  69. 516  IF YCX$="N" AND NO(0)=8 AND NO(1)=7 THEN NO(0)=7:NO(1)=8:T=W1(0):W1(0)=W1(1):W1(1)=T
  70. 518  IF ((W1(1)-W1(0))<=1 OR W1(1)<=3) AND W1(1)<9 AND (W1(1)-W1(0))<=2 THEN GOSUB 2490:GOTO 310
  71. 520  GOSUB 3180:GOTO 310
  72. 530  REM SUB 0 FIND ADDITIONAL SY.
  73. 540  K=0:FOR I=0 TO M
  74. 550  IF W1(I)>=9 THEN 600
  75. 560  P(I)=NO(I):PT(I)=AP(P(I)+1)-AP(P(I))-1
  76. 570  FOR J=0 TO PT(I)
  77. 580  FS(K)=AD(AP(P(I))+J):IF MARK(FS(K))=0 THEN K=K+1
  78. 590  NEXT J:NEXT I
  79. 600  RETURN
  80. 610  REM SUB1 ASK SY.
  81. 620  FOR I=0 TO K-1
  82. 630  IF MARK(FS(I))=1 THEN 990
  83. 640  MARK(FS(I))=1
  84. 650  PRINT SN$(FS(I));
  85. 660  IF FS(I)>5 THEN 800
  86. 670  ON FS(I)+1 GOSUB 680,710,730,750,770,790:GOTO 990
  87. 680  PRINT "=? C":INPUT TEMP
  88. 690  IF TEMP>37 THEN S(0)=-1:RETURN
  89. 700  RETURN
  90. 710  PRINT :INPUT S(1):CFCS=S(1):CSM=1:IF S(1)>4 THEN S(1)=5
  91. 720  RETURN
  92. 730  PRINT:PRINT"1=";TU$(0):PRINT"2=";TU$(1):PRINT"3=PSET<0xE4!><0xCB!><UNK! {00FC}>USRTAB(LOCATEMERGETHENBSAVE":PRINT"4=WENDCLOSETHENBSAVE"
  93. 740  INPUT X:S(2)=X+5:RETURN
  94. 750  PRINT:PRINT"1=";FC$(0):PRINT"2=";FC$(1):PRINT"3=BLOAD>KEYRENUMERR<UNK! {FDB3}>TROFF":INPUT X
  95. 760  S(3)=X+9:RETURN
  96. 770  PRINT:PRINT"1=";FM$(0):PRINT"2=";FM$(1):PRINT"3=";FM$(2):INPUT X
  97. 780  S(4)=12+X:RETURN
  98. 790  PRINT:PRINT"1=";CS$(0):PRINT"2=";CS$(1):INPUT X:S(5)=15+X:RETURN
  99. 800  IF FS(I)<29 THEN 950
  100. 810  Y=FS(I)-28
  101. 820  ON Y GOSUB 830,850,880,900,930:GOTO 990
  102. 830  PRINT:PRINT"1=";BC$(0):PRINT"2=";BC$(1):PRINT"3=BLOADCLOSEWEND+":INPUT X
  103. 840  S(29)=X+63:RETURN
  104. 850  PRINT:PRINT"1=";NJ$(0):PRINT"2=";NJ$(1):PRINT"3=";NJ$(2):PRINT"4=";NJ$(3):PRINT"5=";NJ$(4)
  105. 860  PRINT"6=";NJ$(5):PRINT"7=BLOADCLOSEWEND+":INPUT X
  106. 870  S(30)=66+X:RETURN
  107. 880  PRINT:INPUT "1=SPC(FNWEND+      2=BLOADCLOSEWEND+";X
  108. 890  S(31)=X+73:RETURN
  109. 900  PRINT:PRINT"1=";ND$(0):PRINT"2=";ND$(1):PRINT"3=";ND$(2):PRINT"4=";ND$(3):PRINT"5=";ND$(4)
  110. 910  PRINT"6=BLOADCLOSEWEND+":INPUT X
  111. 920  S(32)=X+75:RETURN
  112. 930  PRINT:PRINT"1=";CA$(0):PRINT"2=";CA$(1):PRINT"3=BLOADCLOSEWEND+":INPUT X
  113. 940  S(33)=81+X:RETURN
  114. 950  INPUT "(Y/N)";S$
  115. 960  IF S$<>"Y" THEN 990
  116. 970  S(FS(I))=2*FS(I)+6:IF FS(I)<>26 GOTO 990
  117. 980  INPUT "ERLDEFINTWRITETRONWENDELSE==WRITETAB(FNUSING(Y/N)";S$:IF S$="Y" THEN PN=1
  118. 990  NEXT I:RETURN
  119. 1000  REM SUB2 ZHEN DUAN
  120. 1010  FOR I=0 TO M:W(I)=0:NO(I)=I:IF KA(I)<0 THEN T=TEMP:GOTO 1040
  121. 1020  IF AGE<UA(I) THEN W(I)=KA(I)*(AGE-UA(I))
  122. 1030  GOTO 1060
  123. 1040  IF I=2 THEN T=AGE
  124. 1050  IF T>UA(I) THEN W(I)=KA(I)*(T-UA(I))
  125. 1060  NEXT I
  126. 1070  REM YI NAO
  127. 1080  IF MONTH>=7 AND MONTH<=9 THEN FS=1:GOTO 1110
  128. 1090  IF MONTH=6 OR MONTH=10 THEN FS=-0.4:GOTO 1110
  129. 1100  FS=0
  130. 1110  W(0)=W(0)+FS*28.8+(1-FS)*1.2
  131. 1120  IF TEMP>=38.5 THEN FT=1:GOTO 1150
  132. 1130  IF TEMP<37.5 THEN FT=0:GOTO 1150
  133. 1140  FT=1/(10*(38.5-TEMP))
  134. 1150  W(0)=W(0)+30*FT
  135. 1160  IF FT=0 OR FS=0 THEN W(0)=W(0)-100
  136. 1170  REM LIU NAO
  137. 1180  IF MONTH>=2 AND MONTH<=4 THEN FS=1:GOTO 1220
  138. 1190  IF MONTH>=7 THEN FS=0:GOTO 1220
  139. 1200  IF MONTH=6 THEN FS=0.2025*0.2025:GOTO 1220
  140. 1210  FS=0.81*0.81
  141. 1220  W(1)=W(1)+11*FS+2*(1-FS)
  142. 1230  IF TEMP>=38 THEN FT=1:GOTO 1260
  143. 1240  IF TEMP<37 THEN FT=0:W(1)=W(1)-100:GOTO 1290
  144. 1250  FT=1/(10*(38-TEMP))
  145. 1260  W(1)=W(1)+25*FT
  146. 1270  IF S(17)=41 AND S(18)=43 AND FS<0.5 THEN W(1)=W(1)-25:GOTO 1290
  147. 1280  IF S(17)=41 AND S(18)=43 AND FS>0.5 THEN W(1)=W(1)-12:IF S(5)=16 AND S(16)= 39 THEN W(1)=W(1)-4
  148. 1290  IF S(17)=40 AND S(18)=42 THEN W(1)=W(1)-10.7
  149. 1300  W(1)=W(1)-7.15
  150. 1310  REM CLOSEDEFDBLSOUNDERL
  151. 1320  IF AGE<=12  THEN W(2)=13:GOTO 1340
  152. 1330  IF AGE<=36 THEN W(2)=11
  153. 1340  IF TEMP<=37 THEN W(2)=W(2)-100
  154. 1350  REM SOUNDERLWENDELSE
  155. 1360  W(3)=W(3)+47*FT
  156. 1370  REM R.S
  157. 1380  W(4)=W(4)+FT*18:IF FT=0 THEN W(4)=W(4)-100
  158. 1390  IF S(25)=56 AND S(26)=58 THEN W(4)=W(4)-11
  159. 1400  W(4)=W(4)-4
  160. 1410  REM BSAVEDEFINTSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO
  161. 1420  IF AGE<=2 THEN W(5)=W(5)+18:GOTO 1460
  162. 1430  IF AGE<=4 THEN W(5)=W(5)+12:GOTO 1460
  163. 1440  IF AGE<=12 THEN W(5)=W(5)+5:GOTO 1460
  164. 1450  W(5)=W(5)-100:GOTO 1490
  165. 1460  IF TEMP<=37 THEN W(5)=W(5)+16:GOTO 1490
  166. 1470  IF TEMP<38 THEN W(5)=W(5)+16*(37.9-TEMP)
  167. 1480  IF TEMP>37 AND S(11)=29 AND S(19)=45 AND AGE<=2 THEN W(5)=W(5)+4
  168. 1490  REM SOUNDERLWENDELSE
  169. 1500  IF TEMP>37 THEN W(6)=W(6)+4:GOTO 1530
  170. 1510  IF S(25)=57 AND S(11)=29 AND S(12)=31 AND S(8)=23 AND TEMP<=37 THEN W(6)=W(6)-20:GOTO 1530
  171. 1520  W(6)=W(6)+1
  172. 1530  REM STRING$USR<0xB6!>SAVEUSRERLMOTORELSELOADWEND
  173. 1540  IF MONTH<6 OR MONTH>10 THEN FS=0:GOTO 1590
  174. 1550  IF MONTH>=7 AND MONTH<=9 THEN FS=1:GOTO 1570
  175. 1560  FS=0.9
  176. 1570  W(7)=W(7)+15*FS
  177. 1580  IF TEMP>=39 THEN W(7)=W(7)+15
  178. 1590  IF TEMP<39 THEN W(7)=W(7)-100
  179. 1595  IF DLM=1 THEN W(7)=W(7)+150
  180. 1600  REM OPTION<0xDF!>KEYERRSTRING$USRWRITE=
  181. 1610  IF AGE<=6 OR AGE>72 THEN 1710
  182. 1620  IF AGE<1 THEN W(8)=W(8)+7.5:GOTO 1660
  183. 1630  IF AGE<=30 THEN W(8)=W(8)+10.5:GOTO 1660
  184. 1640  IF AGE<=50 THEN W(8)=W(8)+6.25:GOTO 1660
  185. 1650  W(8)=W(8)+0.75
  186. 1660  IF TEMP>=39 THEN FT=1:GOTO 1700
  187. 1670  IF TEMP<38 THEN FT=0:GOTO 1710
  188. 1680  IF AGE<48 THEN FT=TEMP-38:GOTO 1700
  189. 1690  FT=SQR(TEMP-38)
  190. 1700  W(8)=W(8)+30*FT
  191. 1710  IF AGE>72 OR FT=0 THEN W(8)=W(8)-100
  192. 1720  REM NOTSWAP<0xB6!><UNK! {00F9}>SAVEAUTOBSAVETAB(
  193. 1730  IF AGE<=11 THEN W(9)=16.74:GOTO 1780
  194. 1740  IF AGE<=13 THEN T=(0.8/(AGE-11))*(0.8/(AGE-11)):W(9)=16.74*T+1.26*(1-T):GOTO 1780
  195. 1750  IF AGE<=17 THEN W(9)=1.26:GOTO 1780
  196. 1760  IF AGE<=19  THEN T=(0.9/(AGE-17))*(0.9/(AGE-17)):W(9)=1.26*T:GOTO 1780
  197. 1770  IF AGE>24 THEN W(9)=W(9)-100:GOTO 1800
  198. 1780  IF TEMP<=37 THEN W(9)=W(9)+28:GOTO 1800
  199. 1790  IF TEMP<38 THEN W(9)=W(9)+28*(38-TEMP)*(38-TEMP)
  200. 1800  REM EQVLINELOAD<0xE4!>
  201. 1810  IF TEMP<37 THEN W(10)=W(10)+15:GOTO 1830
  202. 1820  IF TEMP<=37.5 THEN W(10)=W(10)+3
  203. 1830  IF AGE>12 THEN W(10)=W(10)+5:GOTO 1850
  204. 1840  W(10)=W(10)+1
  205. 1850  REM <0xB5!>THENOPTIONPSETSAVEAUTOINSTRLOCATE
  206. 1860  IF AGE<=3 THEN W(11)=W(11)+21.6:GOTO 1910
  207. 1870  IF AGE<=6 THEN W(11)=W(11)+18:GOTO 1910
  208. 1880  IF AGE<=12 THEN W(11)=W(11)+17:GOTO 1910
  209. 1890  IF AGE<=24 THEN W(11)=W(11)+2.14:GOTO 1910
  210. 1900  W(11)=W(11)-100:GOTO 1980
  211. 1910  IF MONTH<=4 OR MONTH=12 THEN FS=1:GOTO 1940
  212. 1920  IF MONTH=11 OR MONTH=5 THEN FS=0.8:GOTO 1940
  213. 1930  FS=0
  214. 1940  W(11)=FS*6.4+(1-FS)*1.6+W(11)
  215. 1950  IF TEMP<=37 THEN W(11)=W(11)+23.68:GOTO 1980
  216. 1960  IF TEMP<=37.5 THEN W(11)=W(11)+6.31:GOTO 1980
  217. 1970  IF TEMP<=38 THEN W(11)=W(11)+4*(38-TEMP)*(38-TEMP)*6.31
  218. 1980  GOSUB 2000:GOSUB 2060:GOSUB 2420:GOSUB 2140:GOSUB 2200:GOSUB 2340
  219. 1990  RETURN
  220. 2000  REM SUB 2.1
  221. 2010  FOR K=0 TO M:I=1
  222. 2020  FOR J=P3(K) TO P3(K+1)-1
  223. 2030  IF S(I)<P2(J) THEN I=I+1:J=J-1:GOTO 2050
  224. 2040  IF S(I)=P2(J) THEN W(K)=W(K)+P1(J):I=I+1
  225. 2050  NEXT J:NEXT K:RETURN
  226. 2060  REM SUB 2.2
  227. 2070  FOR K=0 TO M:FOR J=CP(K) TO CP(K+1)-1
  228. 2080  L=0:FOR I=RP(J) TO RP(J+1)-2
  229. 2090  IF S(L)<RD(I) THEN L=L+1:I=I-1:GOTO 2120
  230. 2100  IF S(L)>RD(I) THEN 2130
  231. 2110  IF S(L)=RD(I) THEN L=L+1
  232. 2120  NEXT I:W(K)=W(K)+RD(RP(J+1)-1)
  233. 2130  NEXT J:NEXT K:RETURN
  234. 2140  REM SUB 2.4
  235. 2150  FOR I=0 TO M:FOR J=0 TO 8
  236. 2160  IF W(I)<AA(I,J) THEN 2180
  237. 2170  W1(I)=J:GOTO 2190
  238. 2180  NEXT J:W1(I)=9
  239. 2190  NEXT I:RETURN
  240. 2200  REM SUB 2.5
  241. 2210  IF S(24)=54 OR S(25)=56 OR S(26)=58 THEN W1(0)=W1(0)+2
  242. 2220  IF S(18)=43 AND (S(24)=54 OR S(25)=56 OR S(26)=58) THEN W1(1)=W1(1)+2
  243. 2230  IF S(10)=27 THEN W1(5)=W1(5)+2
  244. 2240  IF (S(24)=54 OR S(25)=56 OR S(26)=58) AND (W1(5)+2)<9 THEN W1(5)=W1(5)+2
  245. 2250  IF AGE>6 OR W1(11)>=9 THEN 2270
  246. 2260  IF W1(11)>5 THEN W1(11)=5
  247. 2270  IF S(22)=50 THEN W1(11)=W1(11)+1
  248. 2280  IF W1(9)<=9 AND S(32)=77 THEN W1(9)=1
  249. 2290  IF W1(10)<=8 AND S(32)=76 THEN W1(10)=1
  250. 2300  IF W1(11)<=9 AND S(33)=82 THEN W1(11)=1
  251. 2310  IF S(25)=56 OR S(26)=58 AND PN=0 THEN W1(2)=W1(2)+2
  252. 2320  IF S(24)=54 OR S(26)=58 THEN W1(6)=W1(6)+2
  253. 2322  IF S(30)=69 THEN W1(3)=1:GOTO 2325
  254. 2324  IF S(30)=70 THEN W1(5)=1
  255. 2325  IF W1(0)=0 THEN W1(6)=W1(6)+1
  256. 2326  IF W1(0)=0 AND AGE>12 THEN W1(2)=W1(2)+1
  257. 2328  IF W1(0)>=7 AND S(30)=68 AND W1(6)<9 THEN W1(6)=1
  258. 2329  IF DLM<>1 AND S(28)<>62 THEN 2332
  259. 2330  W1(8)=9:FOR Z=0 TO 7:IF (W1(Z)+2)<11 THEN W1(Z)=W1(Z)+3
  260. 2331  NEXT Z
  261. 2332  IF DLM=2 AND S(28)<>62 THEN IF W1(7)<=7 THEN W1(7)=W1(7)+2
  262. 2334  IF S(28)=62 AND W1(7)>4 THEN W1(7)=W1(7)-3
  263. 2335  IF S(28)=62 AND W1(7)>3 THEN W1(7)=W1(7)-2
  264. 2338  RETURN
  265. 2340  REM SUB 2.6 SEQUENCE
  266. 2350  FOR I=1 TO M
  267. 2360  FOR J=M TO I STEP-1
  268. 2370  IF W1(J-1)<=W1(J) THEN 2400
  269. 2380  T=W1(J):W1(J)=W1(J-1):W1(J-1)=T
  270. 2390  T=NO(J):NO(J)=NO(J-1):NO(J-1)=T
  271. 2400  NEXT J:NEXT I
  272. 2410  RETURN
  273. 2420  REM SUB 2.3 EXCLUDE FACT
  274. 2430  FOR K=0 TO M:I=0
  275. 2440  FOR J=EP(K) TO EP(K+1)-1
  276. 2450  IF ED(J)>S(I) THEN I=I+1:J=J-1:GOTO 2470
  277. 2460  IF ED(J)=S(I) THEN W(K)=W(K)-100:GOTO 2480
  278. 2470  NEXT J
  279. 2480  NEXT K:RETURN
  280. 2490  REM SUB 3 LOCATE<0xE4!>CALL<UNK! {00F6}><0xB6!><0xE0!>NOTVARPTRSPC(CLOSEOPTION<UNK! {00F6}><0xB5!>SOUNDMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>
  281. 2500  IF (W1(1)-W1(0))>1 THEN 2540
  282. 2510  IF NO(0)=4 AND NO(1)=6 AND TEMP<39.5 THEN 2530
  283. 2520  IF NO(0)<>6 OR NO(1)<>4 OR TEMP<39.5 THEN 2540
  284. 2530  T=NO(0):NO(0)=NO(1):NO(1)=T:T=W1(0):W1(0)=W1(1):W1(1)=T
  285. 2540  I=0
  286. 2550  LPRINT "<";I+1;">.":LPRINT A$,DN$(NO(I));"?";
  287. 2551  PRINT "<";I+1;">.":PRINT A$,DN$(NO(I));"?";
  288. 2560  IF I=0 OR (W1(I)-W1(0))<2 THEN LPRINT :PRINT:GOTO 2580
  289. 2570  LPRINT ",<0xB4!><UNK! {FDC5}>BEEP"
  290. 2571  PRINT ",<0xB4!><UNK! {FDC5}>BEEP"
  291. 2580  ON NO(I)+1 GOSUB 2660,2690,2730,2660,2770,2900,2930,2990,3170,3070,3070,3130
  292. 2590  IF I<2 AND W1(I+1)<9 AND ((W1(I+1)-W1(I))<=1 OR W1(I+1)<=3) AND (W1(I+1)-W1(I))<=2 THEN I=I+1:GOTO 2550
  293. 2600  IF DJM=1 AND S(21)=48 AND S(9)=24 AND S(4)=11 AND TEMP<=37 THEN LPRINT C$,"BEEPBEEPCALL<UNK! {FD22}>;DN$(12)
  294. 2601  IF DJM=1 AND S(21)=48 AND S(9)=24 AND S(4)=11 AND TEMP<=37 THEN PRINT C$,"BEEPBEEPCALL<UNK! {FD22}>;DN$(12)
  295. 2610  IF EXDM=1 THEN LPRINT C$,EXD$
  296. 2611  IF EXDM=1 THEN PRINT C$,EXD$
  297. 2620  IF EXNM=1 THEN LPRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUME"
  298. 2621  IF EXNM=1 THEN PRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUME"
  299. 2630  IF OBTM=1 THEN LPRINT C$, OBT$
  300. 2631  IF OBTM=1 THEN PRINT C$, OBT$
  301. 2640  IF INM=1 THEN LPRINT  C$,INH$
  302. 2641  IF INM=1 THEN PRINT  C$,INH$
  303. 2650  RETURN
  304. 2660  REM SUB 3.0 SPC(SPC(SOUNDERL 3.3 SOUNDERLWENDELSE
  305. 2670  IF S(30)=73 THEN EXNM=1:RETURN
  306. 2680  INM=1:RETURN
  307. 2690  REM SUB 3.1 MOTOR<UNK! {00F7}>SOUNDERL
  308. 2710  IF S(18)=43 THEN 2670
  309. 2720  INM=1:RETURN
  310. 2730  REM SUB 3.2 CLOSEDEFDBLSOUNDERL
  311. 2740  IF S(29)=66 THEN LPRINT C$,EXB$
  312. 2741  IF S(29)=66 THEN PRINT C$,EXB$:RETURN
  313. 2745  IF S(29)=65 THEN LPRINT C$,"OPTION<0xB4!>";EXB$
  314. 2746  IF S(29)=65 THEN PRINT C$,"OPTION<0xB4!>";EXB$:RETURN
  315. 2750  IF S(30)<>73 THEN 2680
  316. 2760  EXNM=1:RETURN
  317. 2770  REM SUB 3.4 R.S
  318. 2780  IF S(13)=32 THEN 2820
  319. 2790  LPRINT C$,"RANDOMIZECSRLINWEND/";SN$(13)
  320. 2791  PRINT C$,"RANDOMIZECSRLINWEND/";SN$(13)
  321. 2800  IF GIN<>1 THEN LPRINT C$,"WEND+";GGN$(3)
  322. 2801  IF GIN<>1 THEN PRINT C$,"WEND+";GGN$(3)
  323. 2810  RETURN
  324. 2820  IF S(30)=73 THEN EXNM=1:RETURN
  325. 2830  IF S(31)=75 THEN 3540
  326. 2840  IF RS=1 THEN INM=1:RETURN
  327. 2850  FOR L=0 TO 2
  328. 2860  IF GG(L)=2*L OR GX(L)=1 THEN 2880
  329. 2870  LPRINT "OPTION<0xB4!>WEND+";GGN$(L)":GX(L)=1
  330. 2871  PRINT "OPTION<0xB4!>WEND+";GGN$(L)":GX(L)=1
  331. 2880  NEXT L
  332. 2890  RETURN
  333. 2900  REM SUB 3.5 BSAVEDEFINTSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO
  334. 2910  IF TEMP>37 THEN OBTM=1
  335. 2920  GOTO 2670
  336. 2930  REM SUB 3.6 WENDELSESOUNDERL
  337. 2940  IF S(30)<>73 THEN 2680
  338. 2950  EXNM=1
  339. 2960  IF S(21)=49 THEN RETURN
  340. 2970  IF S(5)=17 THEN DJM=1:RETURN
  341. 2980  LPRINT C$,"USINGTRONSPC(<0xE2!>";DN$(12)
  342. 2981  PRINT C$,"USINGTRONSPC(<0xE2!>";DN$(12):RETURN
  343. 2990  REM SUB 3.7 <0xB6!>SAVEMOTORELSE
  344. 3000  IF DLM=3 THEN LPRINT C$,"CLOSEDEFDBLFN+<0xB4!>MODWHILE<0xE3!>"
  345. 3001  IF DLM=3 THEN PRINT C$,"CLOSEDEFDBLFN+<0xB4!>MODWHILE<0xE3!>":GOTO 3060
  346. 3020  IF DLM=2 THEN LPRINT C$,"RANDOMIZECSRLINWEND/<0xB4!>MODWHILE<0xE3!>"
  347. 3021  IF DLM=2 THEN PRINT C$,"RANDOMIZECSRLINWEND/<0xB4!>MODWHILE<0xE3!>":GOTO 3060
  348. 3030  INM=1
  349. 3060  RETURN
  350. 3070  REM SUB 3.9 NOTSWAP<0xB6!><UNK! {00F9}>SAVEAUTOBSAVETAB( SUB 3.10 EQVLINELOAD<0xE4!>
  351. 3080  DJM=1
  352. 3090  IF S(32)<>81 THEN RETURN
  353. 3100  EXDM=1:IF TEMP>37 THEN OBTM=1
  354. 3110  RETURN
  355. 3120  REM SUB 3.11 <0xB5!>THENOPTIONPSET
  356. 3130  DJM=1
  357. 3140  IF S(33)<>84 THEN RETURN
  358. 3150  LPRINT "WEND+FNAUTOBSAVE*"
  359. 3151  PRINT "WEND+FNAUTOBSAVE*"
  360. 3160  IF TEMP>38 THEN OBTM=1
  361. 3170  RETURN
  362. 3180  REM SUB 4 LOCATE<0xE4!>CALL<UNK! {00F6}>MERGE<0xE1!>RANDOMIZE<UNK! {00FB}>
  363. 3190  NR=0:REM SOUNDERLWENDELSE +RS
  364. 3200  LPRINT A$,DN$(NO(0));
  365. 3201  PRINT A$,DN$(NO(0));
  366. 3210  ON NO(0)+1 GOSUB 3230,3360,3390,3440,3490,3570,3610,3690,3260,3830,3830,3910
  367. 3220  RETURN
  368. 3230  REM SUB 4.0 SPC(SPC(SOUNDERL
  369. 3240  IF S(30)=73 THEN 3290
  370. 3250  IF W1(0)>=2 THEN LPRINT:LPRINT B$,GN$(2)
  371. 3251  IF W1(0)>=2 THEN PRINT :PRINT B$,GN$(2):GOTO 3280
  372. 3260  LPRINT :LPRINT B$,GN$(W1(0))
  373. 3261  PRINT :PRINT B$,GN$(W1(0))
  374. 3270  IF NR=1 THEN LPRINT C$,"USINGTRONSPC(<0xE2!>";DN$(4);",RANDOMIZECSRLINWEND/";SN$(13)
  375. 3271  IF NR=1 THEN PRINT C$,"USINGTRONSPC(<0xE2!>";DN$(4);",RANDOMIZECSRLINWEND/";SN$(13)
  376. 3280  X=NO(0)+1:GOSUB 5280:IF X<>9 AND X<>10 THEN LPRINT INH$
  377. 3281  IF X<>9 AND X<>10 THEN PRINT INH$:RETURN
  378. 3285  RETURN
  379. 3290  LPRINT "?":IF (W1(0)+2)>=9 THEN LPRINT B$,GN$(8)
  380. 3291  PRINT "?":IF (W1(0)+2)>=9 THEN PRINT B$,GN$(8):GOTO 3310
  381. 3300  LPRINT B$,GN$(W1(0)+2)
  382. 3301  PRINT B$,GN$(W1(0)+2)
  383. 3310  LPRINT C$,EXN$;
  384. 3311  PRINT C$,EXN$;
  385. 3320  IF W1(0)<=2 THEN LPRINT "STRING$SWAPLOCATE<0xB5!>"
  386. 3321  IF W1(0)<=2 THEN PRINT "STRING$SWAPLOCATE<0xB5!>":GOTO 3340
  387. 3330  LPRINT "SAVE<UNK! {00F6}><0xB6!>RESUME"
  388. 3331  PRINT "SAVE<UNK! {00F6}><0xB6!>RESUME"
  389. 3340  IF NR=1 THEN LPRINT C$,"USINGTRONSPC(<0xE2!>";DN$(4);",RANDOMIZECSRLINWEND/";SN$(13)
  390. 3341  IF NR=1 THEN PRINT C$,"USINGTRONSPC(<0xE2!>";DN$(4);",RANDOMIZECSRLINWEND/";SN$(13)
  391. 3350  RETURN
  392. 3360  REM SUB 4.1 MOTOR<UNK! {00F7}>SOUNDERL
  393. 3370  IF S(18)=43 THEN 3240
  394. 3380  GOTO 3260
  395. 3390  REM SUB 4.2 CLOSEDEFDBLSOUNDERL
  396. 3400  IF S(29)=66 THEN LPRINT "?":GOSUB 3415:LPRINT C$,"WEND+";SN$(29)
  397. 3401  IF S(29)=66 THEN PRINT "?":GOSUB 3416:PRINT C$,"WEND+";SN$(29):RETURN
  398. 3405  IF S(29)=65 THEN LPRINT "?":GOSUB 3415 :LPRINT C$,"OPTION<0xB4!>";EXB$
  399. 3406  IF S(29)=65 THEN PRINT "?":GOSUB 3416:PRINT C$,"OPTION<0xB4!>";EXB$:RETURN
  400. 3410  IF S(30)=73 THEN LPRINT "?":GOSUB 3415:LPRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUME"
  401. 3411  IF S(30)=73 THEN PRINT "?":GOSUB 3416:PRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUME":RETURN
  402. 3413  GOTO 3420
  403. 3415  LPRINT B$,GN$(W1(0)):RETURN
  404. 3416  PRINT B$,GN$(W1(0)):RETURN
  405. 3420  IF MONTH<2 OR MONTH>5 THEN 3260
  406. 3430  LPRINT :LPRINT B$,GN$(2):LPRINT C$,"USINGTRONSPC(<0xE2!>";DN$(1),INH$
  407. 3431  PRINT :PRINT B$,GN$(2):PRINT C$,"USINGTRONSPC(<0xE2!>";DN$(1),INH$:RETURN
  408. 3440  REM 4.3 SOUNDERLWENDELSE
  409. 3450  IF W(4)>40 AND S(13)=33 AND S(31)=75 AND S(30)<>69 THEN NR=1
  410. 3460  IF S(30)=73 THEN 3290
  411. 3470  IF S(30)=69 THEN LPRINT:LPRINT B$,GN$(0)
  412. 3471  IF S(30)=69 THEN PRINT:PRINT B$,GN$(0):GOTO 3280
  413. 3480  GOTO 3260
  414. 3490  REM 4.4 R.S
  415. 3500  IF S(13)=33 THEN LPRINT "?"
  416. 3501  IF S(13)=33 THEN PRINT "?":GOTO 2790
  417. 3510  IF S(30)=73 THEN 3290
  418. 3520  IF S(31)<>75 THEN 3550
  419. 3530  LPRINT "?":LPRINT B$,GN$(W1(0)+2)
  420. 3531  PRINT "?":PRINT B$,GN$(W1(0)+2)
  421. 3540  LPRINT C$,"WEND+";SN$(31);":";GGN$(0);",";GGN$(1);",";GGN$(2);",";GGN$(3)
  422. 3541  PRINT C$,"WEND+";SN$(31);":";GGN$(0);",";GGN$(1);",";GGN$(2);",";GGN$(3):RETURN
  423. 3550  IF RS=1 THEN LPRINT:LPRINT B$,GN$(0)
  424. 3551  IF RS=1 THEN PRINT:PRINT B$,GN$(0):GOTO 3280
  425. 3560  LPRINT "?":LPRINT B$,GN$(W1(0)+1)
  426. 3561  PRINT "?":PRINT B$,GN$(W1(0)+1): GOTO 2850
  427. 3570  REM SUB 4.5 BSAVEDEFINTSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO
  428. 3580  IF S(30)=73 THEN 3290
  429. 3590  IF S(30)<>70 THEN LPRINT "?";
  430. 3591  IF S(30)<>70 THEN PRINT "?";
  431. 3600  LPRINT:LPRINT B$,GN$(0)
  432. 3601  PRINT:PRINT B$,GN$(0):GOTO 3280
  433. 3610  REM SUB 4.6 WENDELSESOUNDERL
  434. 3620  IF S(30)=73 THEN 3650
  435. 3630  IF S(30)=68 THEN LPRINT:LPRINT B$,GN$(1)
  436. 3631  IF S(30)=68 THEN PRINT:PRINT B$,GN$(1):GOTO 3280
  437. 3640  LPRINT "?";
  438. 3641  PRINT "?";:GOTO 3260
  439. 3650  IF S(21)=49 THEN 3290
  440. 3660  IF S(5)=16 THEN LPRINT "?":LPRINT B$,GN$(W1(0)):LPRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUMEWENDTRONUSINGTRONSPC(<0xE2!>";DN$(12)
  441. 3661  IF S(5)=16 THEN PRINT "?":PRINT B$,GN$(W1(0)):PRINT C$,EXN$;"SAVE<UNK! {00F6}><0xB6!>RESUMEWENDTRONUSINGTRONSPC(<0xE2!>";DN$(12):RETURN
  442. 3670  IF TEMP>37 OR S(9)=25 OR S(16)=38 THEN 3290
  443. 3680  LPRINT "?":LPRINT C$,ENX$;"SAVE<UNK! {00F6}><0xB6!>RESUMEWENDTRONBEEPBEEPCALL<UNK! {FD22}>;DN$(13)
  444. 3681  PRINT "?":PRINT C$,ENX$;"SAVE<UNK! {00F6}><0xB6!>RESUMEWENDTRONBEEPBEEPCALL<UNK! {FD22}>;DN$(13):RETURN
  445. 3690  REM SUB 4.7 <0xB6!>SAVEMOTORELSE
  446. 3700  IF DLM<>3 THEN 3750
  447. 3720  LPRINT "?":IF (W1(0)+2)>=9 THEN LPRINT B$,GN$(8)
  448. 3721  PRINT "?":IF (W1(0)+2)>=9 THEN PRINT B$,GN$(8):GOTO 3740
  449. 3730  LPRINT B$,GN$(W1(0)+2)
  450. 3731  PRINT B$,GN$(W1(0)+2)
  451. 3740  LPRINT C$,"LOAD/WEND+<0xB4!>MODWHILE<0xE3!>"
  452. 3741  PRINT C$,"LOAD/WEND+<0xB4!>MODWHILE<0xE3!>":GOTO 3800
  453. 3750  IF DLM=1 THEN 3260
  454. 3760  LPRINT "?":IF (W1(0)+2)>=9 THEN LPRINT B$,GN$(8)
  455. 3761  PRINT "?":IF (W1(0)+2)>=9 THEN PRINT B$,GN$(8):GOTO 3780
  456. 3770  LPRINT B$,GN$(W1(0)+2)
  457. 3771  PRINT B$,GN$(W1(0)+2)
  458. 3780  LPRINT C$,"RANDOMIZECSRLINWEND+<0xB4!>MODWHILE<0xE3!>"
  459. 3781  PRINT C$,"RANDOMIZECSRLINWEND+<0xB4!>MODWHILE<0xE3!>"
  460. 3800  IF YCX$="Y" THEN LPRINT C$,"USINGTRONSPC(<0xE2!>";DN$(8)
  461. 3801  IF YCX$="Y" THEN PRINT C$,"USINGTRONSPC(<0xE2!>";DN$(8)
  462. 3810  RETURN
  463. 3820  LPRINT:RETURN:REM SUB 4.8 OPTION<0xDF!>WRITE=
  464. 3830  REM SUB 4.9 NOTSWAP<0xB6!><UNK! {00F9}>SAVEAUTOBSAVETAB( 4.10 EQVLINELOAD<0xE4!>
  465. 3840  IF S(32)<>81 THEN 3260
  466. 3850  LPRINT "?":IF (W1(0)+2)>=9 THEN LPRINT B$,GN$(8)
  467. 3851  PRINT "?":IF (W1(0)+2)>=9 THEN PRINT B$,GN$(8):GOTO 3870
  468. 3860  LPRINT B$,GN$(W1(0)+2)
  469. 3861  PRINT B$,GN$(W1(0)+2)
  470. 3870  LPRINT C$,EXD$;
  471. 3871  PRINT C$,EXD$;
  472. 3880  IF S(21)=48 AND S(9)=24 AND S(4)=15 AND TEMP<=37 THEN LPRINT "BEEPBEEPCALL<UNK! {FD22}>;DN$(13)
  473. 3881  IF S(21)=48 AND S(9)=24 AND S(4)=15 AND TEMP<=37 THEN PRINT "BEEPBEEPCALL<UNK! {FD22}>;DN$(13)
  474. 3890  LPRINT:IF TEMP>37 THEN LPRINT C$,OBT$
  475. 3891  PRINT:IF TEMP>37 THEN PRINT C$,OBT$
  476. 3900  RETURN
  477. 3910  REM SUB 4.11 <0xB5!>THENOPTIONPSET
  478. 3920  IF S(33)<>84 THEN 3260
  479. 3930  LPRINT "?":IF (W1(0)+2)>=9 THEN LPRINT B$,GN$(8)
  480. 3931  PRINT "?":IF (W1(0)+2)>=9 THEN PRINT B$,GN$(8):GOTO 3950
  481. 3940  LPRINT B$,GN$(W1(0))
  482. 3941  PRINT B$,GN$(W1(0))
  483. 3950  LPRINT C$,"LOAD/WEND+FNAUTOOPTIONPSET";
  484. 3951  PRINT C$,"LOAD/WEND+FNAUTOOPTIONPSET";
  485. 3960  GOTO 3880
  486. 3970  REM SUB 5 LOCATE<0xE4!>SCREEN* GG "2=SOUND<UNK! {FDD1}>AUTOBLOADOPTIONERLDEFINTLOCATEWHILELOAD<0xE4!>RANDOMIZE<UNK! {FDB3}>SWAP": "3=SOUND<UNK! {FDD1}>AUTOBLOADOPTIONERLDEFINTLOCATEWHILELOAD<0xE4!>TAB(<0xB4!>FNNOTCALLSWAP"
  487. 3980  PRINT "0=FNAUTOLINEWHILE (+)","1=FNAUTOLINEWHILE (-)":PRINT "2=FNAUTOSPC(OPENSOUND<UNK! {FDB9}>TOLOCATEWHILELOAD<0xE4!>CALLSWAP (+),"
  488. 3990  PRINT"3=FNAUTOSPC(OPENSOUND<UNK! {FDB9}>TOLOCATEWHILELOAD<0xE4!>CALLSWAP (-)": PRINT "4=USINGAUTOLINEWHILEBLOADOPTIONKEY<UNK! {FDB8}><0xDF!>","5=USINGAUTOLINEWHILEBLOADOPTIONTAB(<0xB4!>KEY<UNK! {FDB8}><0xDF!>"
  489. 4000  PRINT"6=<0xB6!><UNK! {FED1}><UNK! {00F5}>CLOSEDEFDBLTOCOLORMERGE<0xE1!>OPENSTEPBSAVELOCATESTEPBSAVEMERGE<0xB5!>":PRINT"7=<0xB6!><UNK! {FED1}><UNK! {00F5}>CLOSEDEFDBLTOCOLORMERGE<0xE1!>OPENSTEPBSAVELOCATETAB(<0xB4!>STEPBSAVEMERGE<0xB5!>"
  490. 4010  PRINT"PRESET*CLOSEINSTR<0xB4!>XOR 0/1,2/3,4/5,6/7 ?"
  491. 4020  INPUT GG(0),GG(1),GG(2),GG(3):GIN=1:RS=0
  492. 4030  FOR L=0 TO 3
  493. 4040  RS=RS+GZB(GG(L)):NEXT L
  494. 4050  IF RS>=32 THEN RS=1:GOTO 4120
  495. 4060  IF RS>=26 THEN RS=2:GOTO 4120
  496. 4070  IF RS>=22 THEN RS=3:GOTO 4120
  497. 4080  IF RS>=16 THEN RS=4:GOTO 4120
  498. 4090  IF RS>=14 THEN RS=5:GOTO 4120
  499. 4100  IF RS>=10 THEN RS=6:GOTO 4120
  500. 4110  RS=10
  501. 4120  W1(K)=INT((RS-1+W1(K))/2)
  502. 4130  RETURN
  503. 4140  REM SUB 6 LIST OF SY.
  504. 4145  LPRINT:LPRINT "SAVE<0xDF!>NOTUSR<0xB5!>SOUNDSTRING$TRONUSING<0xB4!>MOTORUSRWHILE^SCREEN=STEPBSAVE:                    "
  505. 4148  PRINT:PRINT "SAVE<0xDF!>NOTUSR<0xB5!>SOUNDSTRING$TRONUSING<0xB4!>MOTORUSRWHILE^SCREEN=STEPBSAVE:                    "
  506. 4160  IF (TEMP>37) THEN LPRINT SN$(0);"=";TEMP
  507. 4161  IF (TEMP>37) THEN PRINT SN$(0);"=";TEMP
  508. 4170  IF CSM=1 THEN LPRINT SN$(1);"=";CFCS
  509. 4171  IF CSM=1 THEN PRINT SN$(1);"=";CFCS
  510. 4175  IF S(2)=8 THEN LPRINT "WRITEPRESETBEEP=KEY<0xE4!>USRTAB(LOCATEMERGETHENBSAVE"
  511. 4176  IF S(2)=8 THEN PRINT "WRITEPRESETBEEP=KEY<0xE4!>USRTAB(LOCATEMERGETHENBSAVE"
  512. 4180  IF S(2)<>9 AND S(2)<>8 THEN LPRINT SN$(2);":";TU$(S(2)-6)
  513. 4181  IF S(2)<>9 AND S(2)<>8 THEN PRINT SN$(2);":";TU$(S(2)-6)
  514. 4190  IF S(3)<>12 THEN LPRINT SN$(3);":";FC$(S(3)-10)
  515. 4191  IF S(3)<>12 THEN PRINT SN$(3);":";FC$(S(3)-10)
  516. 4200  LPRINT SN$(4);":";FM$(S(4)-13):IF S(5)<>17 THEN LPRINT CS$(0)
  517. 4201  PRINT SN$(4);":";FM$(S(4)-13):IF S(5)<>17 THEN PRINT CS$(0)
  518. 4210  FOR I=6 TO 28
  519. 4220  IF S(I)=2*I+6 THEN LPRINT SN$(I)
  520. 4221  IF S(I)=2*I+6 THEN PRINT SN$(I)
  521. 4230  NEXT I
  522. 4240  IF S(29)<>66 THEN LPRINT SN$(29);":";BC$(S(29)-64)
  523. 4241  IF S(29)<>66 THEN PRINT SN$(29);":";BC$(S(29)-64)
  524. 4250  IF S(30)<>73 THEN LPRINT SN$(30);":"; NJ$(S(30)-67)
  525. 4251  IF S(30)<>73 THEN PRINT SN$(30);":"; NJ$(S(30)-67)
  526. 4260  IF S(32)<>81 THEN LPRINT SN$(32);":";ND$(S(32)-76)
  527. 4261  IF S(32)<>81 THEN PRINT SN$(32);":";ND$(S(32)-76)
  528. 4270  IF S(33)<>84 THEN LPRINT SN$(33);":";CA$(S(33)-82)
  529. 4271  IF S(33)<>84 THEN PRINT SN$(33);":";CA$(S(33)-82)
  530. 4280  IF S(31)<>74 OR GIN<>1 THEN RETURN
  531. 4290  FOR L=0 TO 3:IF GG(L)=2*L THEN LPRINT GGN$(L);"+":NEXT L
  532. 4291  FOR L=0 TO 3:IF GG(L)=2*L THEN PRINT GGN$(L);"+":NEXT L
  533. 4292  GOSUB 6500:REM SUB7  OPTIONEQVLOCATEMERGECLOSEDEFDBL
  534. 4293  LPRINT:LPRINT:LPRINT "                  <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL           "
  535. 4294  LPRINT:LPRINT:LPRINT "                      WENDELSE       CLS<UNK! {00FA}>                 "
  536. 4295  LPRINT "_____________________________________________________"
  537. 4296  LPRINT "WENDELSECLS<UNK! {00FA}>OPENBEEP   ";NU; "    SCREENERRPSETVARPTR:   "; LEFT$(DAY$,2); "  SOUND-  "; MID$(DAY$,4,2);"  ERLBSAVE  "; RIGHT$(DAY$,2); "  SCREENERR  ":LPRINT "----------------------------------------------------"
  538. 4297  LPRINT "USRERRBLOAD<UNK! {00FB}>            USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>   ";
  539. 4304  Y=INT(AE):Z=INT((AE-INT(AE))*100+0.5)
  540. 4305  IF Y<>0 THEN LPRINT Y;" <0xCB!>-  ";
  541. 4306  IF Z<>0 THEN LPRINT Z;" ERLBSAVE  ";
  542. 4307  LPRINT:LPRINT "----------------------------------------------------"
  543. 4308  RETURN
  544. 4310  REM LOCATE<UNK! {FDBE}>OFF<0xB4!>RENUM<0xCB!>THEN
  545. 4320  FOR I=0 TO 11:FOR J=0 TO 8:READ AA(I,J):NEXT J:NEXT I
  546. 4330  DATA 85,85,78,73,68,51,51,47,44,80,78,62,54,45,40,34,24,22
  547. 4340  DATA 82,71,57,46,42,36,26,18,16,84,75,68,57,57,54,54,54,54
  548. 4350  DATA 95,86,75,68,56,40,40,40,40,57,48,39,30,23,17,10,4,4
  549. 4360  DATA 64,42,36,30,14,13,13,12,9,100,48,42,37,37,37,34,30,30
  550. 4370  DATA 70,68,64,61,56,53,53,53,53,94,83,78,70,65,62,62,60,49
  551. 4380  DATA 54,50,42,38,32,28,28,18,18,100,83,78,65,58,46,46,46,43
  552. 4390  FOR I=0 TO 106:READ P1(I),P2(I):NEXT I
  553. 4400  DATA 1,6,4,7,1,8,1,9,16,16,4,17,3,20,9.6,38,2.4,39
  554. 4410  DATA 0.9,6,3.1,7,0.9,8,0.9,9,6.42,16,3.58,17,3,20,17.85,38,2.15,39,17.85,40,7.15,41
  555. 4420  DATA 17.85,42,7.15,43
  556. 4430  DATA 1,6,4,7,1,8,1,9,8,16,6,36,1,37,39,38,17,58
  557. 4440  DATA 1,6,6,7,1,8,1,9,23,16,2,17,3,36,13.5,38,4.5,39
  558. 4450  DATA 8,6,1,7,1,8,1,9,6,10,2,11,2,12,46,16,2,22,4,34,1,35,15,56,4,57,15,58,4,59
  559. 4460  DATA 1,6,3,7,1,8,1,9,5,16,15,28,1,29,5,36,1,39,15,44,2,45
  560. 4470  DATA 1,7,4,16,2,17,15,22,1,23,25,28,4,29,30,30,4,36,2,37,5,56,1,57
  561. 4480  DATA 6,11,1,12,7,46,1,47,5,62,4,63
  562. 4490  DATA 10,1,8,2,2,3,20,17,3.94,60,1.06,61
  563. 4500  DATA 11,4,11,5,19,13,18,17,3.92,24,1.42,25
  564. 4510  DATA 24,18,29,50,11,51,0.15,1,0.15,2,0.47,3,2.368,4,0.15,5,35,17,3.15,52,0.84,53
  565. 4520  FOR I=0 TO 45:READ AD(I):NEXT I
  566. 4530  DATA 7,21,30,7,17,18,21,30,21,24,29,30,21,30,3,13,14,21,25,30,31,10,21,30
  567. 4540  DATA 25,30,3,20,21,28,1,21,27,1,9,21,32,9,21,22,32,1,9,21,23,33
  568. 4550  FOR I=0 TO 97:READ RD(I):NEXT I
  569. 4560  DATA 17,39,-22,17,39,41,43,-22,9,17,37,39,54,-15,8,17,37,39,54,-15,-1,29,45,-8
  570. 4570  DATA 0,7,17,29,37,45,-11,0,9,17,29,37,45,-36,0,8,17,29,37,45,-36
  571. 4580  DATA 17,22,29,31,10,16,23,29,31,39,13,16,23,29,31,38,19,17,23,29,31,38,3
  572. 4590  DATA 16,36,-2,17,37,-2,0,9,17,23,29,31,56,-4,0,8,17,23,29,31,56,-4
  573. 4600  DATA 0,7,17,23,29,31,57,3
  574. 4610  FOR I=0 TO 17:READ RP(I):NEXT I
  575. 4620  DATA 0,3,8,14,20,24,31,38,45,50,56,62,68,71,74,82,90,98
  576. 4630  FOR I=0 TO 196:READ ED(I):NEXT I
  577. 4640  DATA 13,22,30,34,40,42,44,46,48,67,69,70,71,72,80,13,22,28,30,34,48,67,68
  578. 4650  DATA 69,70,72,80,13,22,28,30,34,42,46,48,67,68,69,70,72,80,13,22,28,30
  579. 4660  DATA 34,42,46,48,59,68,70,71,72,80,13,28,30,38,42,46,48,68,69,70,71,72,80,13
  580. 4670  DATA 22,34,42,46,48,68,69,71,72,80,13,34,42,46,69,70,71,72,80,7,10,13,22,28
  581. 4680  DATA 30,34,36,38,40,42,44,48,68,69,70,71,72,4,5,6,7,13,14,16,22,28,30,34
  582. 4690  DATA 36,38,42,46,48,62,64,68,69,70,71,72,6,7,16,22,28,30,34,36,38,40,42,44
  583. 4700  DATA 46,68,69,70,71,72,76,78,79,80,6,7,13,16,28,30,34,36,38,40,42,44,46
  584. 4710  DATA 68,69,70,71,72,77,78,79,80,6,7,13,16,22,28,30,34,36,38,40,42,44,46,68
  585. 4720  DATA 69,70,71,72,76,77,78,79,83
  586. 4730  FOR I=0 TO 12:READ P3(I),AP(I),CP(I),EP(I):NEXT I
  587. 4740  DATA 0,0,0,0,9,3,1,15,22,8,2,27,31,12,4,41,40,14,4,55,55,21,4,68,66,24,8
  588. 4750  DATA 79,78,26,17,88,84,30,17,106,90,33,17,129,96,37,17,151,99,41,17,173
  589. 4760  DATA 106,46,17,197
  590. 4770  FOR I=0 TO 7:READ GZB(I):NEXT I
  591. 4780  DATA 15,3,7,1,5,1,5,1
  592. 4790  FOR I=0 TO 11:READ KA(I),UA(I):NEXT I
  593. 4800  DATA 10,10,10,6,-1,36,0,0,10,6,-30,38,4,6,10,6,10,6,0,0,-30,37.5,-20,38
  594. 4810  READ N,M,NS,DS:DATA 33,11,20,10
  595. 4820  READ A$,B$,C$,D$,EXN$,EXD$,OBT$,INH$,GGN$(0),GGN$(1),GGN$(2),GGN$(3)
  596. 4830  DATA "ERROR<0xB6!>STEP","CALLTO<0xB6!>SCREEN","MERGERESUMESPC(+","<0xB4!>EDITCLS^","LOAD/WEND+LOADRANDOMIZESPC(OPEN"
  597. 4840  DATA "LOAD/WEND+SOUNDERL<0xB5!>=THENLOAD","RANDOMIZECSRLINWEND/TO<0xE5!>TAB(BSAVE","USINGELSEERLOPEN","FNAUTOLINEWHILE"
  598. 4850  DATA "SOUND<UNK! {FDD1}>AUTOBLOADOPTIONERLDEFINTLOCATEWHILELOAD<0xE4!>","USINGAUTOLINEWHILEBLOADOPTION","<0xB6!><UNK! {FED1}><UNK! {00F5}>CLOSEDEFDBLTOCOLORMERGE<0xE1!>OPENSTEPBSAVELOCATE"
  599. 4860  READ EXB$:DATA "WEND+LINEUSINGFNAUTOPRESETIMPOPENTHENLINEUSINGFNAUTOPRESETIMPWRITESTRING$CLS<0xE0!>"
  600. 4870  FOR I=0 TO 33:READ SN$(I):NEXT I
  601. 4880  DATA "TO<0xE5!>TAB(BSAVE","CALL+WRITE=<0xB4!>TAB(LOCATE<UNK! {FD22}>,"THENBSAVE","BLOAD>KEYRENUM"
  602. 4890  DATA "CALL+WRITE=USRTAB(LOCATEMERGE","CALL+OPENMODSPC(<0xE2!>LOCATE<0xB6!>","CALL+OPENMOD<0xCB!>DEFDBLSAVE<UNK! {00F5}>"
  603. 4900  DATA "THENWRITETHEN<0xB4!>","SAVERENUMKEYEQVLOCATEERRORCALLTROFF","<0xB4!>\CALLERRCLOSEIMPSTRING$PRESETMOTOREDIT<0xB5!>THEN","SOUNDOPTIONSCREEN+TAB(RANDOMIZEFN<UNK! {00F8}>CLOSEIMPNOTBLOADCOLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTRLOCATEWRITE"
  604. 4910  DATA "ERL=PSETVARPTRSAVESTRING$ERLANDTO<0xE5!>STRING$TRON(OPTION<UNK! {00F7}>STRING$STRING$NOTWENDTOWHILE)"
  605. 4920  DATA "TAB(<<0xB5!>OPTION ERRXORWEND<UNK! {00FC}> LOCATEERRORBLOAD<UNK! {00F7}> LOCATEERRORNOTOR (ERL=PSETVARPTR)"
  606. 4930  DATA "MERGE<UNK! {00F8}>USRUSRUSRERLOPTIONTAB(<0xB4!>MOD","RANDOMIZE<UNK! {FDB6}>SCREENCLOSECLOSEPSET<UNK! {00F8}>","<0xB4!>MOD<0xB4!>FNBLOADBEEPBEEPIMPBSAVEELSE"
  607. 4940  DATA "SOUNDERLSOUNDSWAP<0xB4!>TOLOADSWAPSTRING$TRON","PSETSWAPWRITE\CALL<UNK! {00F6}>FNAUTO<0xB5!><0xE3!>"
  608. 4950  DATA "PSETSWAPWRITE\NOT'LINE<0xDF!>CLOSEIMPNOT'<0xB5!><0xE3!>"
  609. 4960  DATA "PSETSWAPWRITE\ERRCALLSOUNDSWAPCALL<UNK! {00F6}>FNAUTO","<0xCB!>SOUNDSTRING$RENUMLOADLINEPSETSWAPWRITE\WHILE<0xE4!>CLS<0xE4!>WHILE<0xE4!>CLOSERESUME"
  610. 4970  DATA "WRITETRONWENDELSEBSAVE<UNK! {FD20}>WENDELSECALLTOCALLSWAP(LOADOPTIONLOCATEDEFSNGTO/ LOADOPTIONOPTION<UNK! {00F6}>ERLBSAVE)"
  611. 4980  DATA "EQVLINELOAD<0xE4!>LOCATEWRITE","SOUNDOPTIONERLUSRPSETVARPTRUSRELSETHENSCREENCALL+MERGEANDLOCATEWRITE"
  612. 4990  DATA "PRESETLINEPRESET<UNK! {FDB2}>ELSE(STEPOPTIONSAVE<UNK! {00FA}>USRTHEN WRITETAB(FNUSING OPTIONRANDOMIZEUSRRANDOMIZE)"
  613. 5000  DATA "PRESETLINEPRESET<UNK! {FDB2}>ELSE(WENDELSE<0xB6!>SAVEUSRTHEN LOADELSEFNUSING KEYSTEPOPTIONUSR OPTIONRANDOMIZEUSRRANDOMIZE LINE<UNK! {00FC}>ERRAND <0xCB!>RENUMWRITE<0xE5!>SCREENSCREEN)"
  614. 5010  DATA "ERLDEFINTWRITETRONWENDELSE(WRITETAB(FNUSING LINE'SCREENERRCOLORSCREEN LINEPOINTFNAUTOSTRING$TRON MOTORELSELOADWEND)"
  615. 5020  DATA "OPTION<0xDF!>KEYERRCALL+WRITE=LOCATEWRITE","<0xB4!>MODWHILE<0xE3!>BEEPERRORFNAUTO","LINEUSINGFNAUTOPRESETIMP"
  616. 5030  DATA "LOADRANDOMIZESPC(OPEN","OPTIONTAB(RANDOMIZEEDIT","SOUNDERL<0xB5!>=THENLOAD","FNAUTOOPTIONPSET"
  617. 5040  FOR I=0 TO 13:READ DN$(I):NEXT I
  618. 5050  DATA "SPC(SPC(SOUNDERL","MOTOR<UNK! {00F7}>SOUNDERL"
  619. 5060  DATA "CLOSEDEFDBLSOUNDERL","STRING$USR<0xB6!>SAVESOUNDERLWENDELSE","SCREENXORLOCATESTEPUSINGCSRLINOPENSTEPSTRING$TRON"
  620. 5070  DATA "BSAVEDEFINTSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO","WENDELSESOUNDERL","STRING$USR<0xB6!>SAVEMOTORELSELOADWEND"
  621. 5080  DATA "OPTION<0xDF!>KEYERRSAVEAUTOINSTRLOCATE","NOTSWAP<0xB6!><UNK! {00F9}>SAVEWRITEBSAVETAB(","EQVLINELOAD<0xE4!>"
  622. 5090  DATA "<0xB5!>THENOPTIONPSETSAVEAUTOINSTRLOCATE"
  623. 5100  DATA "MERGE<0xE1!>OPEN<0xCB!>USRERLSOUNDERLSOUNDSWAPFNUSING","STEPSCREENTO/USRERL<0xB4!>MODSOUNDERLWRITETRONNOT<UNK! {FDB2}>CLOSESCREENRENUM"
  624. 5110  FOR I=0 TO 11:READ GN$(I):NEXT I
  625. 5120  DATA "SCREENWRITEERROR","SCREENWRITEERROR","CLOSE<UNK! {00F9}>WHILESAVESCREENWRITEERROR"
  626. 5130  DATA "COLORKEYSOUNDPOINTUSRERL<0xB4!>MOD","NOTUSRCOLORKEYSOUNDPOINT","WENDCLOSEBEEPBEEPCALL<UNK! {FD22}>,"WENDCLOSETHEN-SCREENRENUMBEEPBEEPCALL<UNK! {FD22}>
  627. 5140  DATA "COLORKEYSOUNDPOINTUSRERLUSRELSE","COLORKEYSOUNDPOINTUSRERLOPENPOINTUSRELSE","CLOSE<UNK! {00F9}>WHILESAVEBEEPBEEPCALL<UNK! {FD22}>
  628. 5150  DATA "BEEPBEEPCALL<UNK! {FD22}>,"BEEPBEEPCALL<UNK! {FD22}>
  629. 5160  READ TU$(0),TU$(1),FC$(0),FC$(1),FM$(0),FM$(1),FM$(2),BC$(0),BC$(1)
  630. 5170  READ CA$(0),CA$(1),CS$(0),CS$(1)
  631. 5180  DATA "ERL=PSETVARPTRTHEN=RANDOMIZETOTHENBSAVE","SPC(CLOSELINE<0xE3!>BEEP=KEY<0xE4!>THENBSAVE"
  632. 5190  DATA "BLOAD>KEYRENUMCALLWHILEOPEN/COLORVARPTR<0xB4!>MERGENOTTROFFOPEN/","BLOAD>KEYRENUMCLOSESPC(LINEUSING"
  633. 5200  DATA "<0xB5!><0xE3!>THENWRITELOCATEMERGECALL+WRITE=","SAVESTRING$WENDCOLORCALL+","PSET<0xE4!><0xCB!><UNK! {00FC}>USRTAB(LOCATEMERGECALL+WRITE="
  634. 5210  DATA "OPTION<0xDF!>","WENDCLOSEOPTION<0xDF!>","<0xB5!>THEN","WENDCLOSE<0xB5!>THEN"
  635. 5220  DATA "LOCATESCREEN<0xCB!>DEFDBLCLOSE<BLOADERL","SPC(<0xE2!>LOCATE<0xB6!>PRESET<0xE5!>CALL<UNK! {FE22}>
  636. 5230  FOR I=0 TO 5:READ NJ$(I):NEXT I
  637. 5240  DATA "ERR<UNK! {FDB3}>TROFF","WENDELSESOUNDERLUSRERLOPTIONSOUNDWHILE<0xE4!>","SOUNDERLWENDELSEUSRERLOPTIONSOUNDWHILE<0xE4!>","FNAUTOUSRERLOPTIONSOUNDWHILE<0xE4!>"
  638. 5250  DATA "STEPOPTIONSAVE<UNK! {00FA}>USRERLOPTIONSOUNDWHILE<0xE4!>","PSET<0xE4!><0xCB!><UNK! {00FC}>"
  639. 5260  FOR I=0 TO 4:READ ND$(I):NEXT I
  640. 5270  DATA "EQVLINELOAD<0xE4!>USRERLOPTIONSOUNDWHILE<0xE4!>","NOTSWAP<0xB6!><UNK! {00F9}>SAVEWRITEBSAVETAB(USRERLOPTIONSOUNDWHILE<0xE4!>","WENDELSESOUNDERLUSRERLOPTIONSOUNDWHILE<0xE4!>","PSET<0xE4!><0xCB!><UNK! {00FC}>","ERR<UNK! {FDB3}>TROFF"
  641. 5272  RETURN
  642. 5280  LPRINT :LPRINT:LPRINT"             STRING$TAB(MOTORPSETWRITEMERGELINEOPTION":LPRINT:REM TREATMENT
  643. 5281  PRINT :PRINT:PRINT"             STRING$TAB(MOTORPSETWRITEMERGELINEOPTION":PRINT:REM TREATMENT
  644. 5290  ON X GOSUB 5320,5440,5500,5580,5630,5730,5780,5850,5960,6010,6040,6130
  645. 5300  RETURN
  646. 5310  REM SPC(SPC(SOUNDERL<0xB5!>SOUNDSTRING$TAB(MOTORPSETWRITEMERGELINEOPTION
  647. 5320  LPRINT "1.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!> SAVEWEND<0xB5!><0xE3!> CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 5-10OPENMOTORCOLOR<0xCB!> SAVEWEND<0xB5!><0xE3!> CALLSTRING$USR<UNK! {00F8}> 3-5 TO/"
  648. 5321  PRINT "1.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!> SAVEWEND<0xB5!><0xE3!> CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 5-10OPENMOTORCOLOR<0xCB!> SAVEWEND<0xB5!><0xE3!> CALLSTRING$USR<UNK! {00F8}> 3-5 TO/"
  649. 5330  LPRINT "2.<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ CLOSEIMP WRITEPRESETSOUNDPRESETOPTION<UNK! {00F9}> OPTION<UNK! {00F6}>/OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> LOADELSEUSINGTRON  4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB("
  650. 5331  PRINT "2.<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ CLOSEIMP WRITEPRESETSOUNDPRESETOPTION<UNK! {00F9}> OPTION<UNK! {00F6}>/OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> LOADELSEUSINGTRON  4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB("
  651. 5340  LPRINT "3.TAB(ORCLS^MERGE<0xB5!>TAB(BSAVE"
  652. 5341  PRINT "3.TAB(ORCLS^MERGE<0xB5!>TAB(BSAVE"
  653. 5350  LPRINT "4.COLORINSTRSTRING$PSETCALL+WRITE=:WHILEMERGELINETHENWHILESCREENTHENUSINGSOUNDPSET CLOSEIMP LINEWEND<0xB6!>RESUME 0.3OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> LOADELSEUSINGTRON,<0xCB!>DEFSNGCLOSEDEFDBLBSAVESCREENSCREENDELETE 40OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>"
  654. 5351  PRINT "4.COLORINSTRSTRING$PSETCALL+WRITE=:WHILEMERGELINETHENWHILESCREENTHENUSINGSOUNDPSET CLOSEIMP LINEWEND<0xB6!>RESUME 0.3OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> LOADELSEUSINGTRON,<0xCB!>DEFSNGCLOSEDEFDBLBSAVESCREENSCREENDELETE 40OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>"
  655. 5360  LPRINT "5.<0xB5!>WHILEOPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!>LOCATEWHILE BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  656. 5361  PRINT "5.<0xB5!>WHILEOPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!>LOCATEWHILE BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  657. 5370  LPRINT "6.ERR*SAVESOUNDSTRING$TAB(MOTORPSET:LINE'CLOSE<0xE1!>,WRITE=CALLINSTR,<0xB4!>MODTHENPSET,OPENSTEPRANDOMIZESCREEN,PRESET<UNK! {00FA}>CALLINSTR"
  658. 5371  PRINT "6.ERR*SAVESOUNDSTRING$TAB(MOTORPSET:LINE'CLOSE<0xE1!>,WRITE=CALLINSTR,<0xB4!>MODTHENPSET,OPENSTEPRANDOMIZESCREEN,PRESET<UNK! {00FA}>CALLINSTR"
  659. 5380  LPRINT "7.STRING$USRSPC(DELETE:CLOSEORSTEP<0xE3!> 9OPENMOTORCOLOR<0xCB!>,WHILEELSEOPENKEY 6OPENMOTORCOLOR<0xCB!>,MOTORDEFSTRPRESETTO 9OPENMOTORCOLOR<0xCB!>,STRING$AUTOSOUNDOPTION 9OPENMOTORCOLOR<0xCB!>"
  660. 5381  PRINT "7.STRING$USRSPC(DELETE:CLOSEORSTEP<0xE3!> 9OPENMOTORCOLOR<0xCB!>,WHILEELSEOPENKEY 6OPENMOTORCOLOR<0xCB!>,MOTORDEFSTRPRESETTO 9OPENMOTORCOLOR<0xCB!>,STRING$AUTOSOUNDOPTION 9OPENMOTORCOLOR<0xCB!>"
  661. 5390  LPRINT "                    KEY<UNK! {00FA}>LOCATEDEFDBLOPTION<0xE0!>15OPENMOTORCOLOR<0xCB!>,BSAVEDEFSTROPTION<UNK! {00F9}>30OPENMOTORCOLOR<0xCB!>,LINE<0xE5!>CLSLOADOPTION<UNK! {00F9}> 9OPENMOTORCOLOR<0xCB!>"
  662. 5391  PRINT "                    KEY<UNK! {00FA}>LOCATEDEFDBLOPTION<0xE0!>15OPENMOTORCOLOR<0xCB!>,BSAVEDEFSTROPTION<UNK! {00F9}>30OPENMOTORCOLOR<0xCB!>,LINE<0xE5!>CLSLOADOPTION<UNK! {00F9}> 9OPENMOTORCOLOR<0xCB!>"
  663. 5400  LPRINT "                    SAVEERRCLOSERESUME 6OPENMOTORCOLOR<0xCB!>,STRING$EQVSPC(<0xB6!> 6OPENMOTORCOLOR<0xCB!>,CLOSEDEFSTRLOCATEDEFDBL12OPENMOTORCOLOR<0xCB!>,OPTIONLOCATEWENDOFF9OPENMOTORCOLOR<0xCB!>"
  664. 5401  PRINT "                    SAVEERRCLOSERESUME 6OPENMOTORCOLOR<0xCB!>,STRING$EQVSPC(<0xB6!> 6OPENMOTORCOLOR<0xCB!>,CLOSEDEFSTRLOCATEDEFDBL12OPENMOTORCOLOR<0xCB!>,OPTIONLOCATEWENDOFF9OPENMOTORCOLOR<0xCB!>"
  665. 5410  LPRINT "  USINGSTEPFNDELETE<0xB5!>SWAP,LINEWENDRANDOMIZEDEFSTRBEEPTROFFCLOSEPSETTHEN<,STRING$RANDOMIZESAVEWRITEKEYTRON"
  666. 5411  PRINT "  USINGSTEPFNDELETE<0xB5!>SWAP,LINEWENDRANDOMIZEDEFSTRBEEPTROFFCLOSEPSETTHEN<,STRING$RANDOMIZESAVEWRITEKEYTRON"
  667. 5420  LPRINT "8.OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP 25% KEYMERGECLS=<0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!> 4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB("
  668. 5421  PRINT "8.OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP 25% KEYMERGECLS=<0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!> 4-6USRELSELOCATEWHILESPC(CLOSE<0xB4!>TAB("
  669. 5425  RETURN
  670. 5430  REM MOTOR<UNK! {00F7}>SOUNDERL
  671. 5440  LPRINT "1.CLOSEPRESETLINEWRITE<0xE0!>USING<0xE0!>SWAPUSRELSE<0xCB!>ERR<0xB4!>IMP. aa 0.2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ OPTION<UNK! {00F9}>SAVEOFFWENDELSEPRESET+WRITESTRING$<0xCB!>SOUND<0xB4!>TAB(COLORVARPTRWRITE<UNK! {FE22}>
  672. 5441  PRINT "1.CLOSEPRESETLINEWRITE<0xE0!>USING<0xE0!>SWAPUSRELSE<0xCB!>ERR<0xB4!>IMP. aa 0.2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ OPTION<UNK! {00F9}>SAVEOFFWENDELSEPRESET+WRITESTRING$<0xCB!>SOUND<0xB4!>TAB(COLORVARPTRWRITE<UNK! {FE22}>
  673. 5450  LPRINT "2.PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR 200000-400000/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP LINEWHILEPOINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR 300-400OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) CLOSEIMP (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CALLSTRING$USR<UNK! {00F8}> 5-10 TO/"
  674. 5451  PRINT "2.PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR 200000-400000/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP LINEWHILEPOINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR 300-400OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) CLOSEIMP (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CALLSTRING$USR<UNK! {00F8}> 5-10 TO/"
  675. 5460  LPRINT "KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEY<0xB5!>ERASE<0xB6!>CLSCLOSEIMPMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD"
  676. 5461  PRINT "KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEY<0xB5!>ERASE<0xB6!>CLSCLOSEIMPMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD"
  677. 5470  LPRINT "3.COLORAUTOLOCATELOAD BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 0.1/kg/TO/ SCREENCLOSEOPENMODLOAD<UNK! {00F5}>MOTORCOLOR ERLVARPTRFNSTEPSTRING$INSTRWENDELSECLS<UNK! {FDD6}>USR CALLSTRING$USR<UNK! {00F8}> 5-7 TO/"
  678. 5471  PRINT "3.COLORAUTOLOCATELOAD BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 0.1/kg/TO/ SCREENCLOSEOPENMODLOAD<UNK! {00F5}>MOTORCOLOR ERLVARPTRFNSTEPSTRING$INSTRWENDELSECLS<UNK! {FDD6}>USR CALLSTRING$USR<UNK! {00F8}> 5-7 TO/"
  679. 5480  LPRINT "4. <0xB6!>ERLSTRING$TRONMOTORPSETWRITERESUME: SAVECLSERR<UNK! {FDD0}>OFFCOLOR<0xCB!>,LOADSWAP<0xCB!>INSTR,THENFN<0xCB!>DEFSNGSTRING$TAB(MOTORPSET"
  680. 5481  PRINT "4. <0xB6!>ERLSTRING$TRONMOTORPSETWRITERESUME: SAVECLSERR<UNK! {FDD0}>OFFCOLOR<0xCB!>,LOADSWAP<0xCB!>INSTR,THENFN<0xCB!>DEFSNGSTRING$TAB(MOTORPSET"
  681. 5485  RETURN
  682. 5490  REM CLOSEDEFDBLSOUNDERL
  683. 5500  LPRINT "1.PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR (SOUNDPSETFNTAB() 200000-600000<0xB5!>ERASETAB(CLOSE/PRESETERRORCOLOR<0xCB!>/TO/. (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CLOSEIMP SAVEWEND<0xB5!><0xE3!>"
  684. 5501  PRINT "1.PRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR (SOUNDPSETFNTAB() 200000-600000<0xB5!>ERASETAB(CLOSE/PRESETERRORCOLOR<0xCB!>/TO/. (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CLOSEIMP SAVEWEND<0xB5!><0xE3!>"
  685. 5510  LPRINT "2.BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 50-100OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) CLOSEIMP COLORVARPTRWRITE<UNK! {FE22}>
  686. 5511  PRINT "2.BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 50-100OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) CLOSEIMP COLORVARPTRWRITE<UNK! {FE22}>
  687. 5520  LPRINT "ERLVARPTRFNSTEPSTRING$INSTRWENDELSECLS<UNK! {FDD6}>USRKEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEYMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD,CALLSTRING$USR<UNK! {00F8}> 10-14 TO/"
  688. 5521  PRINT "ERLVARPTRFNSTEPSTRING$INSTRWENDELSECLS<UNK! {FDD6}>USRKEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEYMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD,CALLSTRING$USR<UNK! {00F8}> 10-14 TO/"
  689. 5530  LPRINT "3.LINEWHILECLOSE<UNK! {00F9}>POINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR:300-400OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ WRITESTRING$TAB(AUTO4-6<0xB4!>TAB( (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  690. 5531  PRINT "3.LINEWHILECLOSE<UNK! {00F9}>POINTUSRPRESET<0xE0!>BLOADRANDOMIZE<0xCB!>INSTR:300-400OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ WRITESTRING$TAB(AUTO4-6<0xB4!>TAB( (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  691. 5540  LPRINT "SCREEN=RANDOMIZE<UNK! {00FB}>KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETETAB(INKEY$USRERROR"
  692. 5541  PRINT "SCREEN=RANDOMIZE<UNK! {00FB}>KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETETAB(INKEY$USRERROR"
  693. 5550  LPRINT "4.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET"
  694. 5551  PRINT "4.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET"
  695. 5560  LPRINT "5.FN<UNK! {00FC}><0xB4!>DELETE WEND+SOUNDERLLOADRANDOMIZESPC(OPEN"
  696. 5561  PRINT "5.FN<UNK! {00FC}><0xB4!>DELETE WEND+SOUNDERLLOADRANDOMIZESPC(OPEN"
  697. 5565  RETURN
  698. 5570  REM STRING$USR<0xB6!>SAVESOUNDERLWENDELSE
  699. 5580  LPRINT "1.20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP 25% KEYMERGECLS><0xB4!>LOAD 1-2 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  700. 5581  PRINT "1.20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP 25% KEYMERGECLS><0xB4!>LOAD 1-2 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  701. 5590  LPRINT "2.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 2-3OPENMOTORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) SAVEWEND<0xB5!><0xE3!>"
  702. 5591  PRINT "2.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 2-3OPENMOTORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) SAVEWEND<0xB5!><0xE3!>"
  703. 5600  LPRINT "3.<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ 1OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET 8OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP LINEWEND<0xB6!>RESUME 0.3 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)"
  704. 5601  PRINT "3.<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ 1OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET 8OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP LINEWEND<0xB6!>RESUME 0.3 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)"
  705. 5610  LPRINT "4.STRING$TAB(MOTORPSETERLDEFINTWRITETRONSTRING$TRON"
  706. 5611  PRINT "4.STRING$TAB(MOTORPSETERLDEFINTWRITETRONSTRING$TRON"
  707. 5615  RETURN
  708. 5620  REM r.s.
  709. 5630  LPRINT "1.LOCATE<0xE4!>SPC(OPEN:10-15% PSETSTEPTOFNTOPRESET OPENTHEN <0xB5!>=MERGE<0xE2!>STRING$LOCATESCREENPOINTSPC(OPEN"
  710. 5631  PRINT "1.LOCATE<0xE4!>SPC(OPEN:10-15% PSETSTEPTOFNTOPRESET OPENTHEN <0xB5!>=MERGE<0xE2!>STRING$LOCATESCREENPOINTSPC(OPEN"
  711. 5640  LPRINT "2.THENFN<0xCB!>DEFSNGMOTORPSETWRITERESUME:20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD 1.5-2.0 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( BLOADCOLOR4--6USRELSELOCATEWHILE/<0xB4!>TAB( CLOSEIMP <0xCB!>'SOUNDIMP 2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( (V)"
  712. 5641  PRINT "2.THENFN<0xCB!>DEFSNGMOTORPSETWRITERESUME:20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD 1.5-2.0 OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( BLOADCOLOR4--6USRELSELOCATEWHILE/<0xB4!>TAB( CLOSEIMP <0xCB!>'SOUNDIMP 2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( (V)"
  713. 5650  LPRINT "3.LOADWHILESAVESCREEN<0xB4!>EDITCLS^OPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!> PSET<UNK! {00F8}>RANDOMIZEPOINTPRESETUSRCOLORAUTO SCREEN<0xCB!>RANDOMIZESWAPOPEN\TAB(<UNK! {00FC}> BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  714. 5651  PRINT "3.LOADWHILESAVESCREEN<0xB4!>EDITCLS^OPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!> PSET<UNK! {00F8}>RANDOMIZEPOINTPRESETUSRCOLORAUTO SCREEN<0xCB!>RANDOMIZESWAPOPEN\TAB(<UNK! {00FC}> BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  715. 5660  LPRINT "4.<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY:1-4OPENMOTORCOLOR<0xCB!> SAVEWEND<0xB5!><0xE3!> CLOSEIMP (M)"
  716. 5661  PRINT "4.<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY:1-4OPENMOTORCOLOR<0xCB!> SAVEWEND<0xB5!><0xE3!> CLOSEIMP (M)"
  717. 5670  LPRINT "5.STEPOPTIONLINE<UNK! {00FB}>KEYRENUM<0xCB!>INSTRWHILE<UNK! {00FB}> SCREEN<UNK! {FDC1}>USING<0xCB!><0xE1!>STEP'POINTERR,VitB1,VitB6,OPTIONRESUMEBLOADOPTIONA,r-LINEWHILECLSSPC(<0xCB!><0xE1!>,RANDOMIZESCREENLINEWHILE<0xCB!><0xE1!>SOUNDPSET"
  718. 5671  PRINT "5.STEPOPTIONLINE<UNK! {00FB}>KEYRENUM<0xCB!>INSTRWHILE<UNK! {00FB}> SCREEN<UNK! {FDC1}>USING<0xCB!><0xE1!>STEP'POINTERR,VitB1,VitB6,OPTIONRESUMEBLOADOPTIONA,r-LINEWHILECLSSPC(<0xCB!><0xE1!>,RANDOMIZESCREENLINEWHILE<0xCB!><0xE1!>SOUNDPSET"
  719. 5680  LPRINT "6.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:WHILETROFFOPTIONTAB(STRING$TAB(MOTORPSET SAVECLSERR<UNK! {FDCB}><0xE1!>STRING$USR<0xB6!>SAVE"
  720. 5681  PRINT "6.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:WHILETROFFOPTIONTAB(STRING$TAB(MOTORPSET SAVECLSERR<UNK! {FDCB}><0xE1!>STRING$USR<0xB6!>SAVE"
  721. 5690  LPRINT "  WENDRANDOMIZECALL<0xE4!>FNAUTOTOPRESET,TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1 5OPENMOTORCOLOR<0xCB!> 1-2<0xB4!>TAB(/TO/"
  722. 5691  PRINT "  WENDRANDOMIZECALL<0xE4!>FNAUTOTOPRESET,TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1 5OPENMOTORCOLOR<0xCB!> 1-2<0xB4!>TAB(/TO/"
  723. 5700  LPRINT "7.OPTIONRANDOMIZESOUNDSWAPTHENOPTIONLOCATENOT"
  724. 5701  PRINT "7.OPTIONRANDOMIZESOUNDSWAPTHENOPTIONLOCATENOT"
  725. 5710  LPRINT "8.WHILEPOINTBLOAD<0xE2!>NOTBLOAD<0xCB!>DEFSNGFNOR<0xCB!><0xE1!>CLSLOADOPENTHEN<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+"
  726. 5711  PRINT "8.WHILEPOINTBLOAD<0xE2!>NOTBLOAD<0xCB!>DEFSNGFNOR<0xCB!><0xE1!>CLSLOADOPENTHEN<0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+"
  727. 5715  RETURN
  728. 5720  REM BSAVEDEFSTRSOUNDVARPTRCALL<UNK! {00F6}>FNAUTO
  729. 5730  LPRINT "1.TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1 10OPENMOTORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC 0.1OPENMOTORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),COLORRANDOMIZEFNAUTOSTEP<0xCB!>SCREENPOINTWRITELOAD<0xCB!><0xE1!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),LOCATE<0xE4!>FNAUTO"
  730. 5731  PRINT "1.TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRK1 10OPENMOTORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTRC 0.1OPENMOTORCOLOR<0xCB!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),COLORRANDOMIZEFNAUTOSTEP<0xCB!>SCREENPOINTWRITELOAD<0xCB!><0xE1!> (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>),LOCATE<0xE4!>FNAUTO"
  731. 5740  LPRINT "2.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 2-3OPENMOTORCOLOR<0xCB!>/TO/ SAVEWEND<0xB5!><0xE3!> "
  732. 5741  PRINT "2.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 2-3OPENMOTORCOLOR<0xCB!>/TO/ SAVEWEND<0xB5!><0xE3!> "
  733. 5750  LPRINT "3.BSAVECALLBLOADUSINGSOUNDPRESET<0xB6!><UNK! {00F9}> 5-8OPENMOTORCOLOR<0xCB!>,LINEWEND<0xB6!>RESUME 0.3OPENMOTORCOLOR<0xCB!> CLOSEIMP <0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ WRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}> OPTION<UNK! {00F7}> OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>(LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CLOSEIMP (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  734. 5751  PRINT "3.BSAVECALLBLOADUSINGSOUNDPRESET<0xB6!><UNK! {00F9}> 5-8OPENMOTORCOLOR<0xCB!>,LINEWEND<0xB6!>RESUME 0.3OPENMOTORCOLOR<0xCB!> CLOSEIMP <0xB6!>DEFSTRBLOAD<0xDF!>MOTOR+ WRITEPRESETSOUNDPRESETOPTION<UNK! {00FC}> OPTION<UNK! {00F7}> OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>(LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>) CLOSEIMP (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  735. 5760  LPRINT "4.STRING$ERRORCALLSTRING$MOTORPSETWRITERESUMEOPENTHEN<0xB6!>ERLSTRING$TRONMOTORPSETWRITERESUME"
  736. 5761  PRINT "4.STRING$ERRORCALLSTRING$MOTORPSETWRITERESUMEOPENTHEN<0xB6!>ERLSTRING$TRONMOTORPSETWRITERESUME"
  737. 5765  RETURN
  738. 5770  REM WENDELSESOUNDERL
  739. 5780  LPRINT "1.SOUNDERL<0xCB!>DEFSNGSTRING$USING<0xB5!>SOUNDSTRING$TAB(MOTORPSET:20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( CLOSEIMP 25% KEYMERGECLS><0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB("
  740. 5781  PRINT "1.SOUNDERL<0xCB!>DEFSNGSTRING$USING<0xB5!>SOUNDSTRING$TAB(MOTORPSET:20% OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( CLOSEIMP 25% KEYMERGECLS><0xB4!>LOAD 1-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB("
  741. 5790  LPRINT "2.STRING$PSETSTRING$RANDOMIZESAVEWRITEBSAVETAB("
  742. 5791  PRINT "2.STRING$PSETSTRING$RANDOMIZESAVEWRITEBSAVETAB("
  743. 5800  LPRINT "3.MERGE<0xB5!>TAB(BSAVE"
  744. 5801  PRINT "3.MERGE<0xB5!>TAB(BSAVE"
  745. 5810  LPRINT "4.<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 0.25-0.5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ SAVEWEND<0xB5!><0xE3!> CALLSTRING$USR<UNK! {00F8}> 7-14 TO/"
  746. 5811  PRINT "4.<0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 0.25-0.5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ SAVEWEND<0xB5!><0xE3!> CALLSTRING$USR<UNK! {00F8}> 7-14 TO/"
  747. 5820  LPRINT "5.OPEN<0xCB!>TOPRESETOPEN<0xCB!><0xCB!><0xE1!>BLOADOPTION CLOSEIMP SCREENERASEFN<UNK! {00F5}>OPEN<0xCB!>TOPRESETOPEN<0xCB!><0xCB!><0xE1!>BLOADOPTION"
  748. 5821  PRINT "5.OPEN<0xCB!>TOPRESETOPEN<0xCB!><0xCB!><0xE1!>BLOADOPTION CLOSEIMP SCREENERASEFN<UNK! {00F5}>OPEN<0xCB!>TOPRESETOPEN<0xCB!><0xCB!><0xE1!>BLOADOPTION"
  749. 5830  LPRINT "6.BEEPOFFERRANDSOUNDERLFNUSING:BEEPOFFERRANDSAVECLOSE 50-60OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/,MOTORPSETCALLTO3-5TO/ CLOSEIMP LINETRONTOPRESETLINE<UNK! {00FB}>POINTERR COLORKEYSPC(ERLLOCATEERLNOTBLOAD"
  750. 5831  PRINT "6.BEEPOFFERRANDSOUNDERLFNUSING:BEEPOFFERRANDSAVECLOSE 50-60OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/,MOTORPSETCALLTO3-5TO/ CLOSEIMP LINETRONTOPRESETLINE<UNK! {00FB}>POINTERR COLORKEYSPC(ERLLOCATEERLNOTBLOAD"
  751. 5835  RETURN
  752. 5840  REM <0xB6!>SAVEMOTORELSE
  753. 5850  LPRINT "1.<0xB6!>ERLSTRING$TRON<0xB4!>EDITCLS^:CLS<0xE4!>WRITEMOD SAVEPSETSAVERENUMWENDMOTORERLELSE MERGE<0xE2!>SCREENSCREENSPC(DELETE  STRING$RANDOMIZESAVEWRITE"
  754. 5851  PRINT "1.<0xB6!>ERLSTRING$TRON<0xB4!>EDITCLS^:CLS<0xE4!>WRITEMOD SAVEPSETSAVERENUMWENDMOTORERLELSE MERGE<0xE2!>SCREENSCREENSPC(DELETE  STRING$RANDOMIZESAVEWRITE"
  755. 5860  LPRINT "2.SCREEN<0xCB!>RANDOMIZESWAP<0xB6!>DEFSTRBLOAD<0xDF!>"
  756. 5861  PRINT "2.SCREEN<0xCB!>RANDOMIZESWAP<0xB6!>DEFSTRBLOAD<0xDF!>"
  757. 5870  LPRINT "3.STRING$USRSPC(DELETEOPENTHENERR*SAVESOUND"
  758. 5871  PRINT "3.STRING$USRSPC(DELETEOPENTHENERR*SAVESOUND"
  759. 5880  LPRINT "4.FNDEFINTCLOSEWRITE<0xCB!>ERASEMERGE<0xDF!><0xB5!>SOUNDSTRING$TAB(MOTORPSET COLORRANDOMIZEUSROFFCOLOR<0xCB!> WENDRANDOMIZECALL<0xE4!>FNAUTOSCREENOFFMOTORCOLOROPENTHENCLSDELETEFNAUTORANDOMIZEPOINT---<0xB5!>THENWRITESTRING$USINGNOTNOTSPC(USR<UNK! {FDCC}>PRESETPOINTERR,654-2,<0xB6!><0xE0!>LINETHENLINEWRITE,SPC(/WHILE<UNK! {00FB}>KEY<UNK! {00F6}>KEYSTEPSTEP'<0xCB!>INSTR"
  760. 5881  PRINT "4.FNDEFINTCLOSEWRITE<0xCB!>ERASEMERGE<0xDF!><0xB5!>SOUNDSTRING$TAB(MOTORPSET COLORRANDOMIZEUSROFFCOLOR<0xCB!> WENDRANDOMIZECALL<0xE4!>FNAUTOSCREENOFFMOTORCOLOROPENTHENCLSDELETEFNAUTORANDOMIZEPOINT---<0xB5!>THENWRITESTRING$USINGNOTNOTSPC(USR<UNK! {FDCC}>PRESETPOINTERR,654-2,<0xB6!><0xE0!>LINETHENLINEWRITE,SPC(/WHILE<UNK! {00FB}>KEY<UNK! {00F6}>KEYSTEPSTEP'<0xCB!>INSTR"
  761. 5890  LPRINT "5.OPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!> THENFN<0xCB!>DEFSNGLOADMOTOR(OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP <0xCB!>'SOUNDIMP),BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  762. 5891  PRINT "5.OPEN\TAB(<UNK! {00FC}><0xCB!>ERASEMERGE<0xDF!> THENFN<0xCB!>DEFSNGLOADMOTOR(OPTIONLOCATEBSAVE<0xB6!><0xB4!>LOAD CLOSEIMP <0xCB!>'SOUNDIMP),BSAVE<0xE5!>WHILE<0xB4!>MOTORSTRING$"
  763. 5900  LPRINT "6.COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:"
  764. 5901  PRINT "6.COLORRANDOMIZESAVE<UNK! {00FA}><0xCB!>INSTR:"
  765. 5910  LPRINT "  (1)CLOSEPRESETLINEWRITEERL<UNK! {00F6}>USRERRORLOADMOTOR 10OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ <UNK! {00F6}><UNK! {00FB}>WRITEMERGEUSRBSAVEBSAVE<0xE4!>BLOAD<UNK! {00F7}> 25-50OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)   CLOSEIMP"
  766. 5911  PRINT "  (1)CLOSEPRESETLINEWRITEERL<UNK! {00F6}>USRERRORLOADMOTOR 10OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ <UNK! {00F6}><UNK! {00FB}>WRITEMERGEUSRBSAVEBSAVE<0xE4!>BLOAD<UNK! {00F7}> 25-50OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)   CLOSEIMP"
  767. 5920  LPRINT " (2).BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 30-50OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) SAVEWEND<0xB5!><0xE3!> CLOSEIMP PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>POINT 2-4OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP"
  768. 5921  PRINT " (2).BSAVESCREENBLOADRANDOMIZE<0xCB!>INSTR 30-50OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ (SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>) SAVEWEND<0xB5!><0xE3!> CLOSEIMP PRESET/<0xB4!>MODBLOADRANDOMIZE<0xCB!>POINT 2-4OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP"
  769. 5930  LPRINT "  (3).T.M.P+Furazolidone 8-10mg/kg/TO/ WRITESTRING$TAB(AUTOSCREEN<UNK! {FDB4}>TAB( COLORVARPTRWRITE<UNK! {FE22}>
  770. 5931  PRINT "  (3).T.M.P+Furazolidone 8-10mg/kg/TO/ WRITESTRING$TAB(AUTOSCREEN<UNK! {FDB4}>TAB( COLORVARPTRWRITE<UNK! {FE22}>
  771. 5940  LPRINT "7.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY:5-10OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( q4-6H.CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 0.25-0.5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( SAVEWEND<0xB5!><0xE3!>"
  772. 5941  PRINT "7.PRESET<0xE2!>CLOSEDEFDBLCOLORLOAD<0xB5!>SOUND<0xCB!>KEY:5-10OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( q4-6H.CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 0.25-0.5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB( SAVEWEND<0xB5!><0xE3!>"
  773. 5945  RETURN
  774. 5950  REM OPTION<0xDF!>KEYERRCALL+WRITE=
  775. 5960  LPRINT "1.ERR*SAVESOUND:SCREEN<0xCB!>STRING$USR,OPENSTEPRANDOMIZESCREEN,NOTCOLORSCREENAUTO,LINE'CLOSE<0xE1!>,<0xB4!>MODTHENPSET"
  776. 5961  PRINT "1.ERR*SAVESOUND:SCREEN<0xCB!>STRING$USR,OPENSTEPRANDOMIZESCREEN,NOTCOLORSCREENAUTO,LINE'CLOSE<0xE1!>,<0xB4!>MODTHENPSET"
  777. 5970  LPRINT "2.BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET LOCATEUSING<0xB4!>TAB( 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> SCREENCLOSEOPENMOD 3-6OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ STRING$WHILE<0xB5!>MERGEKEYERRTHEN<0xCB!>"
  778. 5971  PRINT "2.BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET LOCATEUSING<0xB4!>TAB( 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!> SCREENCLOSEOPENMOD 3-6OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ STRING$WHILE<0xB5!>MERGEKEYERRTHEN<0xCB!>"
  779. 5980  LPRINT "3.TAB(ORCLS^MERGE<0xB5!>TAB(BSAVE"
  780. 5981  PRINT "3.TAB(ORCLS^MERGE<0xB5!>TAB(BSAVE"
  781. 5990  LPRINT "4.STRING$USRSPC(DELETE:SPC(<UNK! {00F8}>PRESETTOMERGE<0xE2!><0xB6!>SAVEKEYTRON (+) CLOSEIMP (-)"
  782. 5991  PRINT "4.STRING$USRSPC(DELETE:SPC(<UNK! {00F8}>PRESETTOMERGE<0xE2!><0xB6!>SAVEKEYTRON (+) CLOSEIMP (-)"
  783. 5992  RETURN
  784. 6000  REM NOTSWAP<0xB6!><UNK! {00F9}>SAVEWRITEBSAVETAB(
  785. 6010  LPRINT "1.PRESETCOLOR<0xB5!>SOUND<0xCB!>KEY 1OPENMOTORCOLOR<0xCB!>-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 1.5-4.5OPENMOTORCOLOR<0xCB!>/TO/(NOTSWAP<0xB6!><UNK! {00F9}>) CALLSTRING$USR<UNK! {00F8}>LOCATE<UNK! {FDD4}>BSAVECLOSEIMPSPC(CLOSESOUND-"
  786. 6011  PRINT "1.PRESETCOLOR<0xB5!>SOUND<0xCB!>KEY 1OPENMOTORCOLOR<0xCB!>-2OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ CLOSEIMP <0xB5!>INSTRSCREEN<UNK! {00FB}>BLOADUSING<0xCB!>KEY 1.5-4.5OPENMOTORCOLOR<0xCB!>/TO/(NOTSWAP<0xB6!><UNK! {00F9}>) CALLSTRING$USR<UNK! {00F8}>LOCATE<UNK! {FDD4}>BSAVECLOSEIMPSPC(CLOSESOUND-"
  787. 6020  LPRINT "2.STEP<UNK! {00F5}>CLOSE<UNK! {00F9}>LINEWEND<0xB6!>RESUME CLOSEIMP BSAVESCREENSTEP<UNK! {00F5}>CLOSE<UNK! {00F9}>LINEWEND<0xB6!>RESUME 0.1-0.3OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ COLORAUTOLOCATELOADNOTEDITNOTBLOADMERGESTEPKEY'LOADMOTORMOTORCOLOR"
  788. 6021  PRINT "2.STEP<UNK! {00F5}>CLOSE<UNK! {00F9}>LINEWEND<0xB6!>RESUME CLOSEIMP BSAVESCREENSTEP<UNK! {00F5}>CLOSE<UNK! {00F9}>LINEWEND<0xB6!>RESUME 0.1-0.3OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ COLORAUTOLOCATELOADNOTEDITNOTBLOADMERGESTEPKEY'LOADMOTORMOTORCOLOR"
  789. 6025  RETURN
  790. 6030  REM EQVLINELOAD<0xE4!>
  791. 6040  LPRINT "1.BSAVECALLBLOADUSINGSOUNDPRESET<0xB6!><UNK! {00F9}> 3-6OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/ COLORVARPTRWRITE<UNK! {FE20}>COLORAUTOLOCATELOADNOTBLOAD<0xB4!><0xCB!>MOTORCOLOR<0xB5!>SOUND 1/2"
  792. 6050  LPRINT "  MOTORMERGESTRING$POINTOPENMODCOLORKEYNOTBLOADUSINGPOINTMOTORCOLOR"
  793. 6051  PRINT "  MOTORMERGESTRING$POINTOPENMODCOLORKEYNOTBLOADUSINGPOINTMOTORCOLOR"
  794. 6060  LPRINT "  ERL'RANDOMIZE<UNK! {FDC1}>MERGESTRING$POINTOPENMODLOAD<UNK! {00F5}><0xB5!>MERGE1/3<0xB5!>SOUNDUSINGPOINTMOTORCOLOR BLOADCOLORTO/SPC(CLOSE<0xB4!>TAB("
  795. 6061  PRINT "  ERL'RANDOMIZE<UNK! {FDC1}>MERGESTRING$POINTOPENMODLOAD<UNK! {00F5}><0xB5!>MERGE1/3<0xB5!>SOUNDUSINGPOINTMOTORCOLOR BLOADCOLORTO/SPC(CLOSE<0xB4!>TAB("
  796. 6070  LPRINT "  SCREENCLOSEOPENMODSPC(ERL<0xB4!><0xCB!>MOTORCOLORTAB(DEFSTRCALLSTRING$STRING$TAB(MOTORPSET"
  797. 6071  PRINT "  SCREENCLOSEOPENMODSPC(ERL<0xB4!><0xCB!>MOTORCOLORTAB(DEFSTRCALLSTRING$STRING$TAB(MOTORPSET"
  798. 6080  LPRINT "2.<0xB4!>MODBSAVEINSTR<0xB6!>ELSE 3-8OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/"
  799. 6081  PRINT "2.<0xB4!>MODBSAVEINSTR<0xB6!>ELSE 3-8OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/TO/"
  800. 6090  LPRINT " KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEY<0xB5!>ERASE<0xB6!>CLSCLOSEIMPMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD  CALLSTRING$USR<UNK! {00F8}>2-4 SOUND-"
  801. 6091  PRINT " KEYSTEPLOCATE<UNK! {00F6}>MOTORMERGESTRING$STRING$SPC(DELETECOLORKEY<0xB5!>ERASE<0xB6!>CLSCLOSEIMPMERGE<0xE1!>OPENSTEPLOCATERANDOMIZENOTBLOAD  CALLSTRING$USR<UNK! {00F8}>2-4 SOUND-"
  802. 6100  LPRINT "  SCREENCLOSEOPENMODLOAD<UNK! {00F5}>MOTORCOLOR ERLVARPTR1-2 SOUND-SOUNDVARPTRTHENTROFFSPC(DELETE"
  803. 6101  PRINT "  SCREENCLOSEOPENMODLOAD<UNK! {00F5}>MOTORCOLOR ERLVARPTR1-2 SOUND-SOUNDVARPTRTHENTROFFSPC(DELETE"
  804. 6110  LPRINT "3.STRING$USRSPC(DELETE:<0xB6!><UNK! {FEB3}>BSAVETHEN<,LINEUSINGMERGEXORTHEN<,OPENNOTCALL<0xB5!><0xB4!>MODERL/THEN<"
  805. 6111  PRINT "3.STRING$USRSPC(DELETE:<0xB6!><UNK! {FEB3}>BSAVETHEN<,LINEUSINGMERGEXORTHEN<,OPENNOTCALL<0xB5!><0xB4!>MODERL/THEN<"
  806. 6120  LPRINT "4.ERR*SAVESOUNDSTRING$TAB(MOTORPSET:SOUNDVARPTRTO/ SCREEN<0xCB!>STRING$USR OPENSTEPRANDOMIZESCREEN NOTCOLORSCREENAUTO"
  807. 6121  PRINT "4.ERR*SAVESOUNDSTRING$TAB(MOTORPSET:SOUNDVARPTRTO/ SCREEN<0xCB!>STRING$USR OPENSTEPRANDOMIZESCREEN NOTCOLORSCREENAUTO"
  808. 6125  RETURN
  809. 6130  REM <0xB5!>THENOPTIONPSETSAVEAUTOINSTRLOCATE
  810. 6140  LPRINT "1.BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB(  (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)"
  811. 6141  PRINT "1.BSAVECALLBLOADUSINGSOUNDPRESETSOUNDPSET 5OPENMOTORCOLOR<0xCB!>/PRESETERRORCOLOR<0xCB!>/<0xB4!>TAB(  (LOADELSESCREEN<0xE2!>USINGTRONKEY<0xE4!>)"
  812. 6150  LPRINT "2.10% PSETSTEPTOFNTOPRESET<0xCB!><0xE1!>OPTIONPSET 5-10OPENMOTORKEY<UNK! {FD2B}>50%  Glucose 20-40OPENMOTORKEY<UNK! {FD20}>(SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  813. 6151  PRINT "2.10% PSETSTEPTOFNTOPRESET<0xCB!><0xE1!>OPTIONPSET 5-10OPENMOTORKEY<UNK! {FD2B}>50%  Glucose 20-40OPENMOTORKEY<UNK! {FD20}>(SAVEWENDBSAVE<UNK! {00F6}>USINGTRONKEY<0xE4!>)"
  814. 6160  LPRINT " SCREENCLOSEOPENMOD 10% BSAVESCREENCLOSEDEFDBLOPTIONPSET  3-10OPENMOTORKEY<UNK! {FD20}>SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB( CALLSTRING$USR<UNK! {00F8}> 7-10 TO/."
  815. 6161  PRINT " SCREENCLOSEOPENMOD 10% BSAVESCREENCLOSEDEFDBLOPTIONPSET  3-10OPENMOTORKEY<UNK! {FD20}>SPC(CLOSESCREENERRSCREEN<UNK! {FDB4}>TAB( CALLSTRING$USR<UNK! {00F8}> 7-10 TO/."
  816. 6170  LPRINT " BSAVESCREENCLOSEDEFDBLOPTIONPSETCOLORVARPTRWRITE<UNK! {FEC7}>LINENOTEDITSTEPELSELOCATETHEN 5-10 WHILE<0xB6!>"
  817. 6171  PRINT " BSAVESCREENCLOSEDEFDBLOPTIONPSETCOLORVARPTRWRITE<UNK! {FEC7}>LINENOTEDITSTEPELSELOCATETHEN 5-10 WHILE<0xB6!>"
  818. 6180  LPRINT "3.TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTR30-60<0xB5!>ERASETAB(CLOSE (M)"
  819. 6181  PRINT "3.TAB(DEFSTRKEY<UNK! {00FA}><0xCB!>INSTR30-60<0xB5!>ERASETAB(CLOSE (M)"
  820. 6190  LPRINT "4.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:ERR*SAVESOUND SCREEN<0xCB!>STRING$USR NOTELSETOBLOAD OPENSTEPRANDOMIZESCREEN"
  821. 6191  PRINT "4.<0xB6!>ERLSTRING$TRONSTRING$TAB(MOTORPSET:ERR*SAVESOUND SCREEN<0xCB!>STRING$USR NOTELSETOBLOAD OPENSTEPRANDOMIZESCREEN"
  822. 6200  RETURN
  823. 6500  PRINT:PRINT:PRINT "                  <0xB6!><UNK! {00F9}>COLORPSETCALLTROFFLOAD<UNK! {00FB}>WENDELSEUSINGRESUMELOADSPC(STEP<0xB5!>THENCALL           "
  824. 6510  PRINT:PRINT:PRINT "                      WENDELSE       CLS<UNK! {00FA}>                 "
  825. 6520  PRINT "_____________________________________________________"
  826. 6530  PRINT "WENDELSECLS<UNK! {00FA}>OPENBEEP   ";NU; "    SCREENERRPSETVARPTR:   "; LEFT$(DAY$,2); "  SOUND-  "; MID$(DAY$,4,2);"  ERLBSAVE  "; RIGHT$(DAY$,2); "  SCREENERR  ":PRINT "----------------------------------------------------"
  827. 6540  PRINT "USRERRBLOAD<UNK! {00FB}>            USRERLWHILEXOR:  ";MA$;"    SOUND-MOTOR<0xE4!>   ";
  828. 6550  Y=INT(AE):Z=INT((AE-INT(AE))*100+0.5)
  829. 6560  IF Y<>0 THEN PRINT Y;" <0xCB!>-  ";
  830. 6570  IF Z<>0 THEN PRINT Z;" ERLBSAVE  ";
  831. 6575  PRINT:PRINT "----------------------------------------------------"
  832. 6580  RETURN
  833.