home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / DAAA.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  24.5 KB  |  375 lines
  1. 10  REM cc,dd   (ll,mm)    pp,qq    m     sss1$,sss2$    xx$
  2. 20  DIM A$(90),BB$(90)
  3. 30  XXX1$="PRESET*LOCATE<0xE4!>SCREEN*:  ":XXX2$=" ERL'CLOSEINSTRCALL<0xB5!>. ":X$=CHR$(13)
  4. 40  LLNN$(1)="AX=0000  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  5. 50  LLNN$(2)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0103   NV UP DI PL NZ NA PE NC"
  6. 60  LLNN$(3)="AX=4321  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  7. 70  LLNN$(4)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0106   NV UP DI PL NZ NA PE NC"
  8. 80  LLNN$(5)="AX=5555  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  9. 90  LLNN$(6)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0108   NV UP DI PL NZ NA PE NC":LLNN$(7)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0100   NV UP DI PL NZ NA PE NC"
  10. 100  CLS:PRINT " ":PRINT "               <0xB5!>VARPTR TAB(<0xE5!> ERRBSAVE   MS-DOS LOCATE<0xB5!> NOTBLOAD CALLTO USRIMP MERGE+ KEYPOINT   "
  11. 110  PRINT "        CLOSE<0xB6!>NOTDEFINTSOUND<UNK! {00FA}>LOCATERANDOMIZENOTBLOADTAB(SPC(BLOADPRESETSOUNDSTEPTHENRESUMELOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>CALLERRORSCREEN^LOAD<UNK! {FEBF}>AUTOWRITETRONWENDCOLORFNUSRSTRING$PSET<0xB5!>SOUND MS-DOS OPENOPENUSINGSTRING$MERGETOFNERRORSCREEN^LOAD<UNK! {FE21}>                 ERLVARPTRIBM-PC CLOSE<UNK! {00FA}>STEP<0xB5!>THENCALLSCREEN^LOAD<UNK! {FED6}>USRNOTUSRSPC(CLOSEUSRDELETELOCATE<0xB5!>NOTBLOADCALLTOUSRIMP ,WHILESAVEERRBSAVETAB(SPC(BLOADPRESETWRITESTRING$MOTORMERGEMERGEVARPTRSTRING$INSTR<0xB5!><0xE3!>MERGE+KEYPOINT MS-DOS          STRING$USR<0xB5!>SOUNDLOCATE<0xB5!>NOTBLOADCALLTOUSRIMP:"
  12. 120  PRINT "            <0xB5!>VARPTR SPC(CLOSE MERGEVARPTR   <0xB6!>DEFDBL TODEFSTR <0xB5!><UNK! {00F7}> LOCATEERL CALLTO USRIMP MERGE+ KEYPOINT"
  13. 130  PRINT "            <0xB5!>VARPTR <0xB6!><UNK! {FE20}>MERGEVARPTR   BEEP<UNK! {00FA}> <0xB4!>EDIT CLS^ MERGE+ KEYPOINT  "
  14. 140  GOSUB 4940:ON ZX GOTO 150,3220
  15. 150  CLS:PRINT " ":PRINT "             ******************** USINGNOT WEND<0xCB!> <0xB5!>ERASE5 *********************"
  16. 160  PRINT "             *                                                  *"
  17. 170  PRINT "             *    1.     <0xB5!>VARPTR SPC(CLOSE MERGEVARPTR    <0xB6!>DEFDBL TODEFSTR <0xB5!><UNK! {00F7}> LOCATEERL CALLTO USRIMP MERGE+ KEYPOINT    *"
  18. 180  PRINT "             *    2.     <0xB5!>VARPTR <0xB6!><UNK! {FE20}>MERGEVARPTR    BEEP<UNK! {00FA}> <0xB4!>EDIT CLS^ MERGE+ KEYPOINT             *"
  19. 190  PRINT "             *    3.     WRITE<0xB5!> CLOSEINSTR STRING$<UNK! {00F7}> WEND<0xCB!> <0xB5!>ERASE                         *"
  20. 200  PRINT "             *                                                  *"
  21. 210  PRINT "             ****************************************************"
  22. 220  PRINT
  23. 230  INPUT "    PRESET*LOCATE<0xE4!>SCREEN*SOUND<UNK! {00FA}><0xB5!>SOUNDFNELSEERLEQV(1-3) ?",B$
  24. 240  IF      B$ = "1"  THEN   GOTO   300
  25. 250  IF      B$ = "2"  THEN   GOTO   2250
  26. 260  IF      B$ = "3"  THEN   GOTO   3220
  27. 270  PRINT
  28. 280  PRINT "FNELSEERLEQV<0xB4!>^TAB(MOD . PRESET*STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN* ! "
  29. 290  GOTO 150
  30. 300  CLS:PRINT " ":PRINT "              <0xB5!>VARPTR SPC(CLOSE MERGEVARPTR   <0xB6!>DEFDBLTODEFSTR<0xB5!><UNK! {00F7}>LOCATEERLCALLTO USRIMP MERGE+ KEYPOINT"
  31. 310  PRINT "        <0xB6!>DEFDBLTODEFSTR<0xB5!><UNK! {00F7}>LOCATEERLCALLTOUSRIMP DEBUGLOCATEPRESET IBM/PC CLOSE<UNK! {00FA}>STEP<0xB5!>THENCALLSCREEN^LOAD<UNK! {FED6}>USR<0xB5!>SOUNDSPC(CLOSEOPTION<UNK! {00F6}>LOCATE<0xB5!>NOTBLOADCALLTOUSRIMP,<0xCB!><UNK! {00FC}>STRING$<UNK! {00F7}>SPC(AUTONOTBLOADNOTVARPTR:"
  32. 320  PRINT "        1. TO<0xE1!>RANDOMIZEDELETESPC(CLOSEOPTION<UNK! {00F6}>COLORKEYCOLORINSTRSTRING$PSET<0xB5!>SOUNDWEND<0xE2!>LOCATEERLCLOSEWRITESAVECALL , NOTBLOADCLOSEERRORCOLORKEYCLS<UNK! {00FB}>NOTBLOAD DEBUG CALLTOUSRIMPCLS<0xB4!>LOAD<0xE0!><0xB6!>MERGECOLORINSTRSTRING$PSETWHILECLOSE<0xB5!><UNK! {00F7}>LOCATEERL                CALLTOUSRIMP<0xB5!>SOUNDSTRING$<0xB4!>USRUSRPRESET+COLOR<UNK! {00F6}> ."
  33. 330  PRINT "        2. COLORKEYSPC(ERLUSINGLINESCREEN* ,USRINKEY$OPTIONSOUND ,STEPERLLOCATESAVELOADLINELOAD/FN+SCREENTAB(SPC(CLOSETAB(SOUNDLOAD<UNK! {FEBB}>IMPTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSPC(CLOSEWENDCOLORWRITESTRING$ . "
  34. 340  PRINT "        3. COLORKEYSPC(ERLSTRING$<0xB4!>USRUSRCLOSE<UNK! {00FA}>PSET<UNK! {00F7}>NOTORFNERLOPTIONEQVLOCATEMERGEWHILE<0xE0!>STRING$PSET<0xB5!>SOUNDSOUNDCOLORWHILE-TAB(SOUNDLOAD<UNK! {FE20}>. "
  35. 350  GOSUB 5940:ON ZX GOTO 360,400,3220
  36. 360  CLS:PRINT "        STEPBSAVEBLOAD>TAB(SPC(BLOADPRESETCOLORAUTOLOCATELOADFNERRORSTEPLINE DEBUG BLOAD<UNK! {00FC}>MOTORAND. LOCATEUSINGSTEPSCREENMERGE+KEYPOINTSCREEN=OPENTAB(PSET\<0xB6!>DEFDBL DEBUG CALLTOUSRIMP. DEBUG CALLTOUSRIMP        LOCATEPRESETERLVARPTR DOS LOAD<0xE0!>COLORINSTRSTEPBSAVE ( TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}> A>, B>, CLOSEIMP C>STEPBSAVE )PSET\<0xB6!>DEFDBL<0xB5!>SOUND, OPTIONEQVLOCATEMERGETAB(AUTO:"
  37. 370  PRINT "        debug  [d:] [path] [filename [.ext]]"
  38. 380  PRINT "        PSET<0xE4!>STRING$USR d: TAB(AUTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>BLOAD<UNK! {00FB}>;                                                                  path WHILE^LOCATESAVEBSAVEWRITESAVE<0xB6!>;                                                                  filename, ext WRITESTRING$WHILEXORWHILE^LOCATESAVESPC(AUTOWHILECLOSE<0xB5!><UNK! {00F7}>LOCATEERL<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>LOADLINECLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>."
  39. 390  PRINT "        STEP<0xB5!>THENCALLSPC(CLOSE<0xB5!>DELETEMERGE<UNK! {00F8}>SCREEN* DEBUG USING<0xB4!>TODEFSTR, PSETMOTORSOUNDCLOSEKEYSTEPSAVETHENCLOSE<0xE1!>CALL<UNK! {00F6}>STEPSTRING$TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}> '-' , MERGENOTUSINGBEEPSAVETHENCOLORKEYSPC(ERLLOCATE<0xE4!>SCREEN*          DEBUG BLOAD<UNK! {00FC}>MOTORANDMOTOR<0xCB!>.":GOSUB 5940:ON ZX GOTO 400,400,3220
  40. 400  CLS
  41. 410  PRINT "            *****************  USINGNOT  WEND<0xCB!>  <0xB5!>ERASE  5.1  *******************"
  42. 420  PRINT "            * 1.  A < CLOSE<0xE3!> WHILE<0xE0!> BLOAD<UNK! {00FC}> MOTORAND >       6.  Q < THEN<0xCB!> CALL<UNK! {00F6}> BLOAD<UNK! {00FC}> MOTORAND >   *"
  43. 430  PRINT "            * 2.  D < STEPERL LOCATESAVE BLOAD<UNK! {00FC}> MOTORAND >       7.  R < LOAD/ WEND+ BLOAD<UNK! {00FC}> MOTORAND >   *"
  44. 440  PRINT "            * 3.  G < STRING$<0xB4!> USRUSR BLOAD<UNK! {00FC}> MOTORAND >       8.  T < OPTION<UNK! {00FA}> USING' BLOAD<UNK! {00FC}> MOTORAND >   *"
  45. 450  PRINT "            * 4.  L < USINGLINE SCREEN* BLOAD<UNK! {00FC}> MOTORAND >       9.  U < WRITE<0xB4!> CLOSE<0xE3!> WHILE<0xE0!> BLOAD<UNK! {00FC}> MOTORAND >*"
  46. 460  PRINT "            * 5.  N < BLOAD<UNK! {00FC}> BLOAD<UNK! {00FB}> BLOAD<UNK! {00FC}> MOTORAND >       10. W < USR<0xB4!> BLOAD<UNK! {00FC}> MOTORAND >      *"
  47. 465  PRINT "            *                    11. <0xCB!>LOAD COLORLOAD TO<0xE2!>                     *"
  48. 470  PRINT "            *******************************************************"
  49. 480  INPUT "      PRESET*LOCATE<0xE4!>SCREEN*SOUND<UNK! {00FA}><0xB5!>SOUNDFNELSEERLEQV(1-10),LINE<0xB4!> 'R' LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE",D$
  50. 490  IF D$="R" OR D$="r" THEN GOTO 3220
  51. 500  IF D$="1" THEN GOTO 620
  52. 510  IF D$="2" THEN GOTO 790
  53. 520  IF D$="3" THEN GOTO 1060
  54. 530  IF D$="4" THEN GOTO 1200
  55. 540  IF D$="5" THEN GOTO 1330
  56. 550  IF D$="6" THEN GOTO 1430
  57. 560  IF D$="7" THEN GOTO 1550
  58. 570  IF D$="8" THEN GOTO 1750
  59. 580  IF D$="9" THEN GOTO 1900
  60. 590  IF D$="10" THEN GOTO 2090
  61. 591  IF D$="11" THEN GOTO 2241
  62. 600  PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^TAB(MOD , PRESET*STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN* !"
  63. 610  GOTO 400
  64. 620  CLS:PRINT "                    1.  CLOSE<0xE3!>  WHILE<0xE0!>  BLOAD<UNK! {00FC}>  MOTORAND  "
  65. 630   PRINT "       DEBUG CALLTOUSRIMPCOLORKEYSPC(ERLLINEORSTRING$<UNK! {00FA}>SOUND<UNK! {00FA}>LINEFN IBM-PC OPTION<UNK! {00F6}>SCREEN<0xCB!>LOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>CLOSE<0xE3!>WHILE<0xE0!>CALLTOUSRIMPSTRING$WHILEMERGENOTCLOSE<0xE3!>WHILE<0xE0!><0xB5!>MERGESOUNDVARPTR<0xB4!>>.DEBUG        STRING$USR<0xB5!>SOUNDCLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORANDSAVE<0xDF!>NOTUSR<0xB4!><0xCB!>RANDOMIZEEDITSOUNDPOINT."
  66. 640   PRINT "        RANDOMIZEEDITSOUNDPOINT:  LINEFNCLOSE<0xE3!>WHILE<0xE0!>CALLTOUSRIMPSTRING$WHILEMERGENOTWHILE<0xE0!><0xB5!>MERGESOUNDVARPTR<0xB4!>> .":PRINT "        OPTIONEQVLOCATEMERGE:  A [address]"
  67. 650  PRINT "        USINGTRONLOCATETHEN:  (1)address: STRING$OPTION<0xB6!>RESUMEMERGENOTLOCATEERRCLOSE<0xE3!>WHILE<0xE0!>NOTORSAVE<0xE4!><0xB5!>SOUNDSOUNDVARPTR<0xB4!>><0xB5!>INSTRSTRING$WRITE, SPC(ERL16MERGE<UNK! {00F8}>STRING$PSETWHILE^LOCATESAVE."
  68. 660  PRINT "               (2)SCREEN=RANDOMIZE<UNK! {00FB}>BLOADCLOSENOTUSRSTRING$OPTION<0xB6!>RESUME<0xB5!>INSTRSTRING$WRITE ,ERLIMPERLVARPTRBLOADCLOSELOCATERANDOMIZENOTBLOAD A <0xB5!>SOUNDPRESET+COLOR<UNK! {00F6}>STEPBSAVENOTORSAVE<0xE4!>CLOSE<0xE3!>WHILE<0xE0!><0xB5!>MERGE CS:0100"
  69. 670  PRINT "                  <0xB5!>ERASEERLAUTOPRESET<UNK! {00F8}>, CLOSEIMPCLOSE<0xE3!>WHILE<0xE0!><0xB5!>MERGEPRESETLINESPC(CLOSEOPTION<UNK! {00F6}>CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORAND<0xCB!><UNK! {00F9}>CLOSE<0xE3!>WHILE<0xE0!><0xB5!>SOUNDUSINGANDOPENMODSPC(CLOSEOPTION<UNK! {00F6}>STRING$OPTIONMOTORAND<0xB5!>SOUNDOPENMODBLOAD>.":GOSUB 5940:ON ZX GOTO 680,400,3220
  70. 680  CLS:PRINT " ":PRINT  "               (3)<0xB5!>WHILE<0xCB!><UNK! {00F9}>NOTUSRNOTORSAVE<0xE4!><0xB6!>LOADSPC(FNLOCATE<0xE4!>SCREEN*OPENMOD DEBUG MERGERENUMSTEPERLLOCATESAVESTEPBSAVESPC(CLOSEOPTION<UNK! {00F6}>NOTORSAVE<0xE4!><0xB5!>SOUNDPSETXORLOCATELOAD<0xB5!>INSTRSTRING$WRITE.SCREEN=                        RANDOMIZE<UNK! {00FB}>NOTBLOADCLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>STEP/NOTEDIT, ERLIMPTHEN<0xCB!>CALL<UNK! {00F6}>CLOSE<0xE3!>WHILE<0xE0!>."
  71. 690  PRINT "                      <0xB6!>ERLNOTVARPTRTAB(INKEY$USRERROR<0xB5!>SOUNDNOTORSAVE<0xE4!>,DBBUG <0xB5!>SOUNDCLOSEINSTR<0xB4!>XORLOCATEPRESETSTEPERLLOCATESAVECALL<UNK! {00F6}> : "
  72. 700  PRINT "                          ^ error   (<0xB4!>^ TAB(MOD) "
  73. 710  PRINT "                      WENDTRONSTRING$INSTRUSRBSAVESTEPERLLOCATESAVECALL<UNK! {00F6}><0xB5!>WHILEPRESETLINECLOSE<0xE3!>WHILE<0xE0!><0xB5!>INSTRSTRING$WRITE ."
  74. 720  GOSUB 5940:ON ZX GOTO 730,400,3220
  75. 730  CLS:SSS1$="LOAD'<0xB6!>RESUMESTEPSTRING$ERLVARPTRSPC(FNERLVARPTR DEBUG USING<0xB4!>TODEFSTRSTEPBSAVE. "+XXX1$:SSS2$=XXX2$:PRINT "    -":CC=1:DD=6:PP=9:QQ=20:XX$="a":A$(1)="a":BB$(1)="A":A$(2)=CHR$(13):BB$(2)=A$(2):M=2:GOSUB 3020
  76. 740  SSS1$=XXX1$:LOCATE 2,5:PRINT "5165:0100 ":CC=2:DD=15:XX$="mov bx,1234":VAR1$=XX$:VAR2$="MOV BX,1234":M=12:GOSUB 3120:A$(12)=CHR$(13):BB$(12)=A$(12):GOSUB 3020:GOSUB 5940:ON ZX GOTO 750,400,3220
  77. 750  LOCATE 3,5:PRINT "5165:0103 ":CC=3:XX$="mov ax,4321":VAR1$=XX$:VAR2$="MOV AX,4321":GOSUB 3120:GOSUB 3020:GOSUB 5940:ON ZX GOTO 760,400,3220
  78. 760  LOCATE 4,5:PRINT "5165:0106 ":CC=4:XX$="add ax,bx":M=10:VAR1$=XX$:VAR2$="ADD AX,BX":GOSUB 3120:A$(10)=X$:BB$(10)=X$:GOSUB 3020:GOSUB 5940:ON ZX GOTO 770,400,3220
  79. 770  LOCATE 5,5:PRINT "5165:0108 ":CC=5:XX$=" ":SSS1$=" ":SSS2$="PRESET*CLOSEINSTRCALL<0xB5!>.":M=1:A$(1)=X$:BB$(1)=X$:GOSUB 3020:LOCATE 6,5:PRINT "-"
  80. 780  LOCATE 8,20:PRINT "ERR<0xE2!><0xB6!>TAB(CALLTOUSRIMPSAVETHENLOCATE<0xE4!>THEN-MOTOR<0xCB!>.":GOSUB 5940:ON ZX GOTO 790,400,3220
  81. 790  CLS:PRINT " ":PRINT "                 2. STEPERL  LOCATESAVE  SOUNDVARPTR  <0xB4!>>   "
  82. 800  PRINT "        SPC(AUTOSTEP*STRING$AUTO<0xB5!>CLSSOUNDVARPTR<0xB4!>>STRING$USRSAVECOLORSAVERANDOMIZEWRITEBEEPMOTOR<0xCB!>USRDELETELOCATEWENDBLOAD<0xB4!>? SPC(AUTOSTEP*STRING$AUTO<0xB5!>CLSSOUND<UNK! {00FA}>LOCATE<0xE4!>SCREEN*SOUNDVARPTR<0xB4!>><0xB5!>SOUNDSOUNDVARPTRSCREENOFFLOCATEPRESETWRITEEQVERR<UNK! {FDC8}>WRITE? SOUND<UNK! {00FA}><0xCB!><UNK! {00F9}>"
  83. 810  PRINT "    USING<UNK! {00F6}><0xB5!>SOUNDSOUNDVARPTR<0xB4!>>WRITESTRING$BEEP<0xE4!>LOCATEPRESETWRITEEQVBSAVE<UNK! {00FA}>SPC(<0xE2!>? COLORKEYSPC(ERLNOTBLOADSTEPERLLOCATESAVEBLOAD<UNK! {00FC}>MOTORAND D MERGERENUMSOUNDVARPTR<0xB4!>>SCREENRENUMWENDCOLORCLOSEIMPWENDCOLORWRITESTRING$STEPERLLOCATESAVECALL<UNK! {00F6}>CLS<0xB4!>."
  84. 820  PRINT "        RANDOMIZEEDITSOUNDPOINT:  STEPERLLOCATESAVESOUNDVARPTR<0xB4!>><0xB5!>SOUNDSOUNDVARPTRSCREENOFF."
  85. 830  PRINT "        OPTIONEQVLOCATEMERGE:  D [address] CLOSEIMP D [range]"
  86. 840  PRINT "        USINGTRONLOCATETHEN:  (1)address: 16 MERGE<UNK! {00F8}>STRING$PSETLOCATE<UNK! {FD2C}> WHILE^LOCATESAVESOUNDVARPTR<0xB4!>><0xB5!>INSTRSTRING$WRITE."
  87. 850  PRINT "               (2)range: STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDSTEPERLLOCATESAVEWRITE<0xB6!>TAB(ERROR.":GOSUB 5940:ON ZX GOTO 860,400,3220
  88. 860  CLS:PRINT " ":PRINT "            (3)STEPERLLOCATESAVELOCATEPRESETSPC(ERLMOTORMERGEWENDCOLORWRITESTRING$<0xB5!>SOUNDSOUNDVARPTRSCREENOFFMERGE<UNK! {00F8}>USRUSRSTEPERLLOCATESAVE :"
  89. 870  PRINT "              * LOCATEDEFSNGMOTOR<UNK! {00F9}>MERGE<UNK! {00F8}>STRING$PSETWENDCOLORWRITESTRING$ :BLOADCOLOROPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR<0xB6!>LOADSPC(ERLLOCATEDEFSNGMOTOR<UNK! {00F9}>MERGE<UNK! {00F8}>STRING$PSETLOCATE<UNK! {FDD0}>TAB(LOCATEMERGESTEPERLLOCATESAVE ."
  90. 880  PRINT "              * ASCII BSAVE*WENDCOLORWRITESTRING$ :BLOADCOLOROPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTRLINE<0xB4!> ASCIIBSAVE*MERGE<UNK! {00F8}>USRUSRSTEPERLLOCATESAVE ,WENDCLOSECOLORKEY<0xB4!>IMPNOTELSE<0xB5!>SOUNDUSINGSTRING$WRITE<UNK! {00FB}>"
  91. 890  PRINT "                NOTBLOADSAVE<0xE4!>OPENBEEP '.' WHILE^LOCATESAVE ."
  92. 900  PRINT "            (4)<0xB6!>ERLNOTVARPTRSTEPERLLOCATESAVEOPTIONEQVLOCATEMERGETAB(AUTO40MOTORUSR<0xB5!>SOUNDSTEP<0xB5!>THENCALL,BLOADCOLORUSRUSRLINE<0xB4!>8USINGSTRING$MERGEVARPTRTAB(AUTOMERGE=STRING$<0xB5!>,STEPERLLOCATESAVE 8OPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR<0xB5!>SOUNDSOUNDVARPTRSCREENOFF"
  93. 910  PRINT "            (5)<0xB6!>ERLNOTVARPTRSTEPERLLOCATESAVEOPTIONEQVLOCATEMERGETAB(AUTO 80 MOTORUSR<0xB5!>SOUNDSTEP<0xB5!>THENCALL ,BLOADCOLORUSRUSRLINE<0xB4!> 16USINGSTRING$MERGEVARPTRTAB(AUTOMERGE=STRING$<0xB5!> ,STEPERLLOCATESAVE 16"
  94. 920  PRINT "               OPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR<0xB5!>SOUNDSOUNDVARPTRSCREENOFF .ERLVARPTR<0xB5!>VARPTR 8 <0xB5!>MERGE<0xB5!>VARPTR 9USINGSTRING$MERGEVARPTRSTRING$DEFSNGLOAD<0xE4!>NOTUSRSPC(CLOSEOPTION<UNK! {00F6}>MOTORDEFSTRMERGENOTWRITE<UNK! {00FB}> '_'."
  95. 930  GOSUB 5940:ON ZX GOTO 940,400,3220
  96. 940  CLS
  97. 950  PRINT " ":PRINT "        USINGTRONSPC(<0xE2!>: SCREEN=RANDOMIZE<UNK! {00FB}>STEPERLLOCATESAVE<0xB5!>SOUNDCOLORAUTOLOCATELOAD<0xB5!>INSTRSTRING$WRITEWENDCLOSELOCATEPRESETSPC(CLOSEOPTION<UNK! {00F6}>MERGE=STRING$<0xB5!> ,<0xB5!>VARPTRSPC(CLOSEUSRUSRERLIMPCOLORKEYSPC(ERLKEY'NOTVARPTR 8 CLOSEIMP"
  98. 960  PRINT "              16OPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR .ERLVARPTR<0xB4!><0xCB!>PRESET+COLOR<UNK! {00F6}>STEPBSAVE<0xB5!>VARPTR<0xB6!><UNK! {FED0}>USRSAVETHENLINE<0xB4!>MERGE=STRING$<0xB5!><0xB4!>NOTTHENWRITECOLORAUTOLOCATELOADSTEPERLLOCATESAVE ."
  99. 970  PRINT "              SCREEN=RANDOMIZE<UNK! {00FB}>NOTBLOADCLOSEERRORBLOADCLOSENOTUSRSTRING$OPTION<0xB6!>RESUMESPC(CLOSEOPTION<UNK! {00F6}><0xB5!>INSTRSTRING$WRITE ,DBLOAD<UNK! {00FC}>MOTORANDSAVETHENLOAD'<0xB6!>RESUMECOLORAUTOLOCATELOAD<0xB5!>INSTRSTRING$WRITETAB(AUTOPRESETLINESPC(CLOSEOPTION<UNK! {00F6}>"
  100. 980  PRINT "              DBLOAD<UNK! {00FC}>MOTORAND<0xCB!><UNK! {00F9}>STEPERLLOCATESAVE<0xB5!>SOUNDUSINGANDOPENMODSPC(CLOSEOPTION<UNK! {00F6}><0xB5!>ERASEERLAUTOOPENMODBLOAD><0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEOPTION<UNK! {00F6}><0xB5!>INSTRSTRING$WRITE.ERR<0xE2!>FN<UNK! {00F9}>,WENDCLOSENOTBLOADWENDTAB("
  101. 990  PRINT "              LOCATE<UNK! {FDB6}><UNK! {00F8}>COLORCOLOR<0xB4!>IMPSCREEN*MOTORDEFSTRUSR<UNK! {00F8}><0xB5!>SOUND DBLOAD<UNK! {00FC}>MOTORANDSAVETHENCOLORKEYSPC(ERLSTEPERLLOCATESAVEOPENMODLOADTO<0xB5!>SOUNDSOUNDVARPTRSCREENOFF.SCREEN\NOTBLOADCLOSEERRORMERGE<UNK! {00F6}><0xB4!>IMP"
  102. 1000  PRINT "              SPC(CLOSEOPTION<UNK! {00F6}>TAB(CLOSESPC(PSETSTRING$<0xB5!>USING<UNK! {00F6}>PSETXORLOCATELOAD<0xB5!>INSTRSTRING$WRITE ,DBLOAD<UNK! {00FC}>MOTORANDSAVETHENLOAD'<0xB6!>RESUME<0xB6!>TAB(<0xB5!>INSTRSTRING$WRITELINE<UNK! {00FC}>OPENDEFSTRERLVARPTR DS LOADSOUND<0xB4!>>                           PSET<UNK! {00F7}>STRING$USR ."
  103. 1010  GOSUB 5940:ON ZX GOTO 1020,400,3220
  104. 1020  CLS:SSS1$="LOAD'<0xB6!>RESUMESTEPSTRING$ERLVARPTRSPC(FNERLVARPTR DEBUG USING<0xB4!>TODEFSTRSTEPBSAVE. "+XXX1$:SSS2$=XXX2$:PRINT "    -":CC=1:DD=6:PP=9:QQ=20:XX$="d 100 107":M=10:VAR1$=XX$:VAR2$="D 100 107":GOSUB 3120:A$(10)=X$:BB$(10)=X$:GOSUB 3020
  105. 1030  LOCATE 2,5:PRINT "5165:0100  BB 34 12 B8 21 34 01 D8                              ;4.8!C.X":LOCATE 3,5:PRINT "-"
  106. 1040  LOCATE 8,20:PRINT "SPC(ERLKEYSTEPSAVETHENLOCATEPRESET 5165:100 <0xB5!>MERGE 5165:107 <0xB5!>SOUNDSOUNDVARPTRSCREENOFF."
  107. 1050  :GOSUB 5940:ON ZX GOTO 1060,400,3220
  108. 1060  CLS
  109. 1070  PRINT " ":PRINT "                      3.   STRING$<0xB4!> USRUSR BLOAD<UNK! {00FC}> MOTORAND"
  110. 1080  PRINT "        DEBUG COLORKEYSPC(ERLLINEORSTRING$<UNK! {00FA}>SOUND<UNK! {00FA}>STRING$<0xB4!>USRUSRSOUND<UNK! {00FA}>ERR<UNK! {FDD4}>VARPTR<0xB5!><UNK! {00F7}>LOCATEERLCLOSEIMPSPC(FN<0xB5!><UNK! {00F7}>OPENBLOAD<0xB5!>SOUNDCALLTOUSRIMP .ERR<0xE2!>STRING$STRING$STRING$<0xB4!>USRUSRLOCATEPRESETMOTORDEFSTRUSR<UNK! {00F8}>SPC(CLOSE<0xB4!>TAB(STRING$<0xB4!>USRUSR        <0xB5!>MERGESOUND<UNK! {00FA}><0xCB!><UNK! {00F9}>KEY<MOTORTRON<0xB5!>SOUND<0xB6!>STEP<0xB5!><0xE3!>TAB(AUTOSTRING$RANDOMIZE ."
  111. 1090  PRINT "        RANDOMIZEEDITSOUNDPOINT: STRING$<0xB4!>USRUSRERR<UNK! {FDD4}>VARPTR<0xB5!><UNK! {00F7}>LOCATEERL<0xB5!>SOUNDCALLTOUSRIMP.":PRINT "        OPTIONEQVLOCATEMERGE: G [=address1] [address2 [address3...] ]."
  112. 1100  PRINT "        USINGTRONLOCATETHEN: (1)CALLTOUSRIMPSTRING$<0xB4!>USRUSRLOCATEWHILEERLVARPTR<0xB6!>STEP<0xB5!><0xE3!> address1, address2,... <0xB4!>EDITERLOFFTHENTROFF, WENDTRONSTEPERLLOCATESAVECALL<UNK! {00F6}>OPTION<UNK! {00F7}>LOADSOUND<0xB4!>>                  PSET<UNK! {00F7}>.OPTION<UNK! {00F7}>WHILE-STRING$SAVETAB(CLOSE<0xB5!>SOUNDSOUNDVARPTRSCREENOFF."
  113. 1110  GOSUB 5940:ON ZX GOTO 1120,400,3220
  114. 1120  CLS:PRINT "          (2)SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSESTRING$OPTION<0xB6!>RESUME '=address1' , ERLIMP<0xB4!>NOT<0xB5!>WHILEPRESETLINE<0xB5!>SOUND CS:IP STRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>INSTRSTRING$WRITECOLORAUTOLOCATELOADSTRING$<0xB4!>USRUSR;                   SCREEN=RANDOMIZE<UNK! {00FB}>STRING$OPTION<0xB6!>RESUMEMOTOR<0xCB!> 'address1' , ERLIMPCALLTOUSRIMPMERGERENUM<0xB4!>NOT CS:=address1 <0xB4!>EDITCOLORAUTOLOCATELOADSTRING$<0xB4!>USRUSR."
  115. 1130  PRINT "          (3)address1, address2,... <0xB6!>STEP<0xB5!><0xE3!><0xB5!>INSTRSTRING$WRITEUSINGAND<0xB6!><0xE0!>COLORKEYSTRING$OPTION<0xB6!>RESUME 10 OPTION<UNK! {00F6}>."
  116. 1140  PRINT "          (4)SPC(CLOSE<0xB5!>DELETECALLTOUSRIMPSTRING$<0xB4!>USRUSRMERGE<0xE1!>LOCATE<UNK! {00F8}>, NOTUSRWHILEINSTRSPC(AUTOSTRING$INSTRUSRBSAVEUSINGLINESCREEN*OPTIONBLOADCALLTOUSRIMP, SCREENCLOSEOPENMODWENDBEEPSOUNDPOINTERL'<0xB4!>TAB(STRING$<0xB4!>USRUSR.":GOSUB 5940:ON ZX GOTO 1150,400,3220
  117. 1150  CLS:SSS1$="TAB(SPC(BLOADPRESETCLS<0xB4!>ERL<0xCB!>USRUSRERLVARPTR 1.CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORANDSTRING$USRUSR<0xB4!><0xB5!>SOUNDCALLTOUSRIMP. "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=9:QQ=20:XX$="g 108":VAR1$=XX$:VAR2$="G 108":M=6:GOSUB 3120:A$(6)=X$:BB$(6)=X$:GOSUB 3020
  118. 1160  LOCATE 2,5:PRINT LLNN$(5):LOCATE 3,5:PRINT LLNN$(6)
  119. 1170  LOCATE 4,5:PRINT "5165:0108 004B75      ADD    [BP+DI+75]                      SS:0075=20":LOCATE 5,5:PRINT "-"
  120. 1180  LOCATE 8,5:PRINT "TAB(SPC(BLOADPRESETCOLORKEYSPC(ERLCOLOR<0xB4!><0xB5!>MERGE, AX=5555, ERR<0xE2!>ERR<UNK! {FDCA}>PRESET 1234+4321 <0xB5!>SOUNDMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>."
  121. 1190  GOSUB 5940:ON ZX GOTO 1200,400,3220
  122. 1200  CLS
  123. 1210  PRINT "                            4. USINGLINE SCREEN* BLOAD<UNK! {00FC}> MOTORAND"
  124. 1220  PRINT "        ERLVARPTRSTRING$<0xB4!>USRUSRSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC7}>LINEWHILEINSTRUSR*MERGERENUM<0xCB!><UNK! {00FC}>USINGLINESCREEN*SOUNDVARPTR<0xB4!>>.DEBUG STRING$USR<0xB5!>SOUND LBLOAD<UNK! {00FC}>MOTORANDSAVETHENSAVE<0xDF!>NOTUSR<0xB4!><0xCB!>WRITEMERGEBLOAD><0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINT.            <0xCB!><UNK! {00FC}>COLORKEYSPC(ERLMERGERENUMSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEBB}>IMPERR<0xDF!>SAVE<UNK! {00F8}><0xB6!>ERL<0xB5!>SOUNDSCREEN^BEEPTOKEYSCREENPRESET<UNK! {00F8}>CLSOR<0xB5!>SOUNDSOUNDVARPTRSCREENOFFUSINGLINESCREEN*<0xB5!>MERGESOUNDVARPTR<0xB4!>>STRING$USRSCREENERASE."
  125. 1230  PRINT "        RANDOMIZEEDITSOUNDPOINT:  MERGERENUMSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEBB}>IMP<0xB4!>BEEPBEEPTOSOUNDCALL<0xB6!>TAB(LOCATE<UNK! {FDBE}>OFFUSINGLINESCREEN*SOUNDVARPTR<0xB4!>>."
  126. 1240  PRINT "        OPTIONEQVLOCATEMERGE:  L [address [drive sector1 secter2] ]"
  127. 1250  PRINT "        USINGTRONLOCATETHEN:  address: MERGENOTLOCATEERRTAB(SOUNDLOAD<UNK! {FECA}><UNK! {FDBE}>OFF<0xB5!>SOUNDSOUNDVARPTR<0xB4!>>LOCATEUSING<0xB5!>INSTRSTRING$WRITE."
  128. 1260  PRINT "               drive: <0xB4!>BEEPBEEPTOOPENBEEP."
  129. 1270  PRINT "               sector1: <0xB6!>MOTORSCREEN*PRESET<UNK! {00F8}><0xB6!>TAB(<0xB5!>SOUNDPSETXORLOCATELOAD<0xB6!>TAB(.     sector2: <0xB6!>MOTORSCREEN*<0xB5!>SOUNDPRESET<UNK! {00F8}><0xB6!>TAB(LOCATE<UNK! {FD2E}>"
  130. 1280  GOSUB 5940:ON ZX GOTO 1290,400,3220
  131. 1290  CLS:SSS1$="                  TAB(SPC(BLOADPRESETSPC(AUTOLINEFN a BEEPTO<0xB5!>SOUND<0xB4!>NOT<0xB5!>VARPTR 0F KEYSCREENPRESET<UNK! {00F8}>COLORAUTOLOCATELOAD<0xB5!>SOUND 6 OPTION<UNK! {00F6}>KEYSCREENPRESET<UNK! {00F8}><0xB5!>SOUNDSOUNDVARPTRSCREENOFFUSINGLINE<0xB5!>MERGE                            5165:0400 COLORAUTOLOCATELOAD<0xB5!>SOUNDSOUNDVARPTR<0xB4!>>STRING$USRSCREENERASE, "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=7:QQ=40:XX$="l 400 0 0f 6":VAR1$=XX$:VAR2$="L 400 0 0F 6"
  132. 1300  M=13:GOSUB 3120:A$(13)=X$:BB$(13)=X$:GOSUB 3020
  133. 1310  LOCATE 2,5:PRINT "-":LNUM=8:GOSUB 3090:LOCATE 8,5:PRINT "CALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!> '-' TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>, <0xCB!><0xB5!>BLOAD<UNK! {00F7}>SPC(FNSAVEDEFINTUSINGLINESCREEN*THEN-WHILESTEP."
  134. 1320  GOSUB 5940:ON ZX GOTO 1330,400,3220
  135. 1330  CLS
  136. 1340  PRINT " ":PRINT "                         5. BLOAD<UNK! {00FC}> BLOAD<UNK! {00FB}> BLOAD<UNK! {00FC}> MOTORAND   "
  137. 1350  PRINT "        SCREEN=RANDOMIZE<UNK! {00FB}>ERLVARPTRPSET\<0xB6!>DEFDBL DEBUG LOCATEWHILETAB(<0xB4!>NOTBLOADTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CLS<0xB4!>PSET\<0xB6!>DEFDBL , ERLIMPWHILEINSTRUSR*ERLVARPTRLOCATERANDOMIZENOTBLOADBLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>BLOAD<UNK! {00FC}>MOTORAND N STRING$DEFSNGOPENMODWENDBEEP             SOUNDPOINTNOTBLOAD L BLOAD<UNK! {00FC}>MOTORANDUSINGLINESCREEN*NOTBLOADCLOSEERROR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE20}>.WRITEEQVERLIMP ,USINGLINESCREEN*<0xB5!>SOUNDLOCATEPRESETSTEP<0xB5!>THENCALL ."
  138. 1360  PRINT "        OPTIONEQVLOCATEMERGE:  N filespc [filespec...]"
  139. 1370  PRINT "        USINGTRONLOCATETHEN:  filespec WHILE^LOCATESAVESPC(AUTO<0xB6!>RESUMESPC(<0xE5!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>."
  140. 1380  GOSUB 5940:ON ZX GOTO 1390,400,3220
  141. 1390  CLS:LOCATE 2,5:PRINT "-":CC=2:DD=6:PP=8:QQ=30:M=9:XX$="n myprog":SSS1$=XXX1$:SSS2$=XXX2$:VAR1$=XX$:VAR2$="N MYPROG":A$(9)=CHR$(13):BB$(9)=A$(9)
  142. 1400  GOSUB 3120:GOSUB 3020:LOCATE 3,5:PRINT "-"
  143. 1410  LOCATE 8,5:PRINT "CALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!> '-' TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>, <0xCB!><0xB5!>BLOAD<UNK! {00F7}>SPC(FNBLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>MOTOR<0xCB!>TAB(SOUNDLOAD<UNK! {FE20}>myprog , NOTSTRING$COLORKEYLOCATE<0xE4!>SCREEN* DEBUG BLOAD<UNK! {00FC}>MOTORANDMOTOR<0xCB!>."
  144. 1420  GOSUB 5940:ON ZX GOTO 1430,400,3220
  145. 1430  CLS
  146. 1440  PRINT "                         6. THENTROFF STRING$RANDOMIZE BLOAD<UNK! {00FC}> MOTORAND   "
  147. 1450  PRINT "        <0xB5!>WHILESOUND<UNK! {00FA}>WENDCLOSESTEP*WHILETROFF<0xB4!>>ERR<UNK! {FDD4}>VARPTR<0xB5!><UNK! {00F7}>LOCATEERL<0xB5!>SOUNDCALLTOUSRIMP ,USR<SPC(AUTOTHEN<0xCB!>CALL<UNK! {00F6}> DEBUG USING<0xB4!>TODEFSTRLOCATEWHILE , COLORKEYNOTBLOAD QBLOAD<UNK! {00FC}>MOTORAND."
  148. 1460  PRINT "        RANDOMIZEEDITSOUNDPOINT:  MERGE<0xE1!>LOCATE<UNK! {00F8}><0xB5!><UNK! {00F7}>LOCATEERL."
  149. 1470  PRINT "        OPTIONEQVLOCATEMERGE:  Q"
  150. 1480  PRINT "        USINGTRONLOCATETHEN:  QBLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETWENDCLOSEWHILETROFF<0xB4!>>ERR<UNK! {FDD4}>VARPTRSOUNDVARPTR<0xB4!>>STRING$USRERL<0xCB!>USRUSR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2C}> SCREEN=RANDOMIZE<UNK! {00FB}>SOUND<UNK! {00FA}>SPC(AUTOWHILETROFF<0xB4!>>SOUND<UNK! {00FA}><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2C}> WHILEINSTRUSR*NOTBLOADOPENMOD               BLOAD>MERGERENUMSPC(AUTOFNERROR<0xB5!>MERGE<0xB5!>SOUNDUSR<0xB4!>BLOAD<UNK! {00FC}>MOTORAND WCLS<0xB4!>WHILETROFF<0xB4!>>TAB(SOUNDLOAD<UNK! {FE20}>.   "
  151. 1490  PRINT "               LOAD<UNK! {00FC}>SCREEN* Q OPENMOD, DEBUG WRITE<0xB5!>CLOSEINSTR<0xB5!>MERGEBLOAD<UNK! {00FC}>MOTORAND<0xB4!>EDITCLS^CALLTOUSRIMPSTRING$USR. MERGENOTUSINGBEEPOPTIONBLOADBLOAD<UNK! {00FC}>MOTORAND<0xB4!>EDITCLS^CALLTOUSRIMPSTEPERLLOCATESAVECALL<UNK! {00F6}>THENRESUME               CALLTROFF<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORANDTO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}> . STEPBSAVEBLOAD>TAB(SPC(BLOADPRESETUSING<UNK! {00F6}>MOTORWRITESTEPLINE ."
  152. 1500  GOSUB 5940:ON ZX GOTO 1510,400,3220
  153. 1510  CLS:LOCATE 2,5:PRINT "-":CC=2:DD=6:PP=8:QQ=30:M=2:XX$="q":SSS1$=XXX1$:SSS2$=XXX2$:A$(1)="q":BB$(1)="Q":A$(2)=CHR$(13):BB$(2)=A$(2):GOSUB 3020
  154. 1520  LOCATE 4,5:PRINT "A>"
  155. 1530  LOCATE 8,5:PRINT "CALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!> 'A>' TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>, <0xCB!><0xB5!>BLOAD<UNK! {00F7}>SPC(FNTHEN<0xCB!><0xB5!>MERGEMOTOR<0xCB!>WEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLSTEPBSAVE."
  156. 1540  GOSUB 5940:ON ZX GOTO 1550,400,3220
  157. 1550  CLS
  158. 1560  PRINT "                          7. LOADSOUND<0xB4!>>PSET<UNK! {00F7}>BLOAD<UNK! {00FC}>MOTORAND    "
  159. 1570  PRINT "        NOTUSRLOCATEWHILEERLVARPTRCALLTOUSRIMPWRITESTRING$TAB(<UNK! {00F6}>CLOSEIMPMERGE<0xE2!>PSETLOCATELOCATEWHILEUSR<SPC(AUTOSTRING$AUTO<0xB5!>CLSOPTION<UNK! {00F7}>LOADSOUND<0xB4!>>PSET<UNK! {00F7}>OPENTHENWHILE-STRING$SAVE<0xB5!>SOUNDUSING<0xB4!>TODEFSTR, ERR<0xE2!>SAVETHENWHILEINSTRUSR*MERGERENUM<0xCB!><UNK! {00FC}>BLOADPRESETSTEPERL        LOCATESAVECALL<UNK! {00F6}>CLS<0xB4!>. R BLOAD<UNK! {00FC}>MOTORANDCOLORKEYSPC(ERLLOCATERANDOMIZESOUND<UNK! {00FA}><0xB4!>OR<0xB5!>MERGESOUNDCOLOR<0xB5!>SOUND."
  160. 1580  PRINT "        RANDOMIZEEDITSOUNDPOINT:  (1)STEPERLLOCATESAVE<0xB5!>ERASEOPTION<UNK! {00F6}>LOADSOUND<0xB4!>>PSET<UNK! {00F7}>SOUNDVARPTRLOCATEDEFSNGMOTOR<UNK! {00F9}>MERGE<UNK! {00F8}>STRING$PSETLOCATE<UNK! {FD2C}> WENDTRONCOLORKEYUSRINKEY$OPTIONSOUND."
  161. 1590  PRINT "               (2)STEPERLLOCATESAVE<0xCB!><UNK! {00F9}>NOTUSRLOADSOUND<0xB4!>>PSET<UNK! {00F7}>SOUNDVARPTRLOCATEDEFSNGMOTOR<UNK! {00F9}>MERGE<UNK! {00F8}>STRING$PSETLOCATE<UNK! {FD2C}> USINGSTRING$SOUNDOPTIONWHILE^LOCATESAVE<0xB5!>SOUNDWHILE-STRING$SAVEUSING<0xB4!>TODEFSTRLOADLINESTEPBSAVESPC(CLOSETO<UNK! {00F5}>SPC(AUTOSTRING$<0xB4!>                      USRUSR<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORAND."
  162. 1600  PRINT "               (3)STEPERLLOCATESAVELINE<0xCB!>OPTION<UNK! {00F6}>NOTBLOAD<0xCB!>RENUMUSINGSTRING$SOUNDOPTIONWHILE^LOCATESAVE<0xB5!>SOUNDWHILE-STRING$SAVE<0xB5!>SOUNDUSING<0xB4!>TODEFSTR, WENDTRONCOLORKEYSPC(ERLOPTIONSOUNDWHILE<0xE4!>SPC(CLOSEOPTION<UNK! {00F6}>CLOSEIMPSCREENRENUMWENDCOLORWHILE-STRING$SAVE                      TAB(CLOSE<0xB5!>SOUNDSTRING$<0xB5!>.":GOSUB 5940:ON ZX GOTO 1610,400,3220
  163. 1610  CLS:PRINT " ":PRINT "    OPTIONEQVLOCATEMERGE:  R [registername] CLOSEIMP  R   CLOSEIMP  R  F"
  164. 1620  PRINT "    USINGTRONLOCATETHEN:  <0xB5!>VARPTRSPC(CLOSESTRING$STRING$BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDOPTIONEQVLOCATEMERGEWHILE^LOCATESAVESTEPERLLOCATESAVE<0xB5!>SOUNDLOCATEPRESETLOADSOUND<0xB4!>>PSET<UNK! {00F7}> registername <0xB5!>SOUND<0xB5!>WHILEPRESETLINESTRING$<0xB5!> , THENDEFSTRLOCATEWHILECOLORKEY               MERGE<UNK! {00F8}>USRUSRUSRINKEY$OPTIONSOUND; <0xB5!>VARPTR<0xB6!><UNK! {FED6}>STRING$BLOAD<UNK! {00FC}>MOTORANDOPTIONEQVLOCATEMERGEWHILE^LOCATESAVE<0xB5!>SOUNDLOCATEPRESET<0xCB!><UNK! {00F9}>NOTUSRLOADSOUND<0xB4!>>PSET<UNK! {00F7}><0xB5!>SOUNDSTRING$<0xB5!>LOADLINEWHILE-STRING$SAVE ; <0xB5!>VARPTRSCREEN<UNK! {FDD6}>STRING$LOCATEPRESET<0xCB!><UNK! {00F9}>               NOTUSR<0xB5!>SOUNDWHILE-STRING$SAVE."
  165. 1630  PRINT "           STEPBSAVEBLOAD>TAB(SPC(BLOADPRESETCLS<0xB4!>USING<UNK! {00F6}>SCREEN<UNK! {FDD6}>STRING$BLOAD<UNK! {00FC}>MOTORANDOPTIONEQVLOCATEMERGE<0xB5!>SOUNDMOTORWRITESTEPLINE ."
  166. 1640  GOSUB 5940:ON ZX GOTO 1650,400,3220
  167. 1650  CLS:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=9:QQ=20:M=2:XX$="r":SSS1$=XXX1$:SSS2$=XXX2$:A$(1)="r":BB$(1)="R":A$(2)=X$:BB$(2)=X$:GOSUB 3020
  168. 1660  LOCATE 2,5:PRINT LLNN$(1):LOCATE 3,5:PRINT LLNN$(7)
  169. 1670  LOCATE 4,5:PRINT "5165:0100 BB3412         MOV     BX,1234":LOCATE 5,5:PRINT "-":LOCATE 8,5:PRINT "SPC(ERLKEYSTEPLOCATEPRESETOPTION<UNK! {00F7}>OPTION<UNK! {00F6}>LOADSOUND<0xB4!>>PSET<UNK! {00F7}>LOADLINEWHILE-STRING$SAVE<0xB5!>SOUNDSTRING$<0xB5!>.":GOSUB 5940:ON ZX GOTO 1680,400,3220
  170. 1680  CLS:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=9:QQ=20:M=4:XX$="rax":SSS1$=XXX1$:SSS2$=XXX2$:VAR1$=XX$:VAR2$="RAX":GOSUB 3120:A$(4)=X$:BB$(4)=X$:GOSUB 3020
  171. 1690  LOCATE 2,5:PRINT "AX 0000":LOCATE 3,5:PRINT ":"
  172. 1700  CC=3:DD=6:XX$=" ":M=1:A$(1)=X$:BB$(1)=X$:SSS1$=" ":SSS2$="TAB(SPC(BLOADPRESETWENDCLOSEOPTIONSOUNDWHILE<0xE4!> AX <0xB5!>SOUNDSTRING$<0xB5!>, PRESET*CLOSEINSTRCALL<0xB5!>.":GOSUB 3020:LOCATE 4,5:PRINT "-":GOSUB 5940:ON ZX GOTO 1710,400,3220
  173. 1710  CC=4:DD=6:PP=8:QQ=30:M=3:XX$="rf":SSS1$=XXX1$:SSS2$=XXX2$:VAR1$=XX$:VAR2$="RF":GOSUB 3120:A$(3)=X$:BB$(3)=X$:GOSUB 3020
  174. 1720  LOCATE 5,5:PRINT "NV UP DI PL NZ NA PO NC-"
  175. 1730  CC=5:DD=30:XX$=" ":M=1:A$(1)=X$:BB$(1)=X$:SSS1$=" ":SSS2$="TAB(SPC(BLOADPRESETWENDCLOSEOPTIONSOUNDWHILE<0xE4!>OPTION<UNK! {00F7}>WHILE-STRING$SAVE<0xB5!>SOUNDSTRING$<0xB5!>, PRESET*CLOSEINSTRCALL<0xB5!>.":GOSUB 3020:LOCATE 6,5:PRINT "-"
  176. 1740  GOSUB 5940:ON ZX GOTO 1750,400,3220
  177. 1750  CLS:PRINT "                   8.  OPTION<UNK! {00FA}>USING'BLOAD<UNK! {00FC}>MOTORAND"
  178. 1760  PRINT "        LOAD'SCREEN=SOUND<UNK! {00FA}>STEP*STRING$<0xB4!>USRUSRCALLTOUSRIMPSTRING$USR<0xB5!>SOUNDSPC(CLOSETO<UNK! {00F5}>CLOSEIMPLOADOPTIONTO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORANDWENDTRONSTEPERLLOCATESAVEPSET<0xE4!>USING<0xB4!>TODEFSTR,COLORKEYNOTBLOADT BLOAD<UNK! {00FC}>MOTORANDCLS<0xB4!>OPTION<UNK! {00FA}>USING'CALLTOUSRIMP.":PRINT "        RANDOMIZEEDITSOUNDPOINT:  LINE<0xB4!>STRING$OPTION<0xB6!>RESUME<0xB5!>INSTRSTRING$WRITEOPTION<UNK! {00FA}>USING'STRING$OPTIONMOTORAND<0xB5!>SOUNDSTRING$<0xB4!>USRUSR"
  179. 1770  PRINT "        OPTIONEQVLOCATEMERGE:  T [<0xB5!>INSTRSTRING$WRITE] [STRING$<0xB5!>]"
  180. 1780  PRINT "        USINGTRONLOCATETHEN:  <0xB5!>WHILESOUND<0xE3!>STRING$CLOSESTEP*OPTION<UNK! {00FA}>USING'SPC(CLOSETO<UNK! {00F5}>STRING$OPTIONMOTORANDLOCATEWHILE,STRING$WHILEMERGENOTLOAD<UNK! {00FC}>SCREEN*SPC(CLOSEOPTION<UNK! {00F6}> T LOAD<0xB4!>COLORKEY;SCREEN=RANDOMIZE<UNK! {00FB}>STRING$<0xB4!>USRUSRLOADOPTIONTO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORAND,                    WHILEINSTRUSR*<0xB6!>RESUMESPC(<0xE5!>STRING$<0xB5!>. LOAD'SCREEN=SOUND<UNK! {00FA}><0xB6!>RESUMESPC(<0xE5!><0xB5!>SOUNDSTRING$<0xB5!>LOCATEPRESET 5, ERLIMPSPC(CLOSE<0xB4!>TAB(STRING$<0xB4!>USRUSR 5 TO<UNK! {00F5}>STRING$OPTIONMOTORAND. SCREEN=RANDOMIZE<UNK! {00FB}>STRING$<0xB4!>USRUSR                   <0xB5!>SOUNDSTRING$OPTIONMOTORANDLOCATEPRESET<0xB6!><0xE0!>TO<UNK! {00F5}>, PSETMOTORSOUNDCLOSERANDOMIZE<UNK! {00F6}><0xB6!>DEFDBLTORENUMCOLOR/ .LOCATERANDOMIZESOUND<UNK! {00FA}>COLOR<0xB4!>WENDCLOSEPRESET<0xE5!>STEPERLLOCATESAVE<0xB5!>SOUNDSOUNDVARPTRSCREENOFF ,COLORKEYCLS<UNK! {00FB}>NOTBLOAD Ctrl -"
  181. 1790  PRINT "               Num Lock CLS<0xB4!>THENTROFFSTRING$RANDOMIZERANDOMIZE<UNK! {00F6}><0xB6!>DEFDBL. ERL'<0xB4!>IMPSCREEN*SCREENTAB(SPC(CLOSEUSINGSTRING$WRITE<UNK! {00FB}>NOTSTRING$COLORKEYSPC(ERLLOADTOUSR<UNK! {00F8}>STEPERLLOCATESAVE . "
  182. 1800  GOSUB 5940:ON ZX GOTO 1810,400,3220
  183. 1810  CLS:SSS1$="                  TAB(SPC(BLOADPRESETCLS<0xB4!>OPTION<UNK! {00FA}>USING'ERLVARPTR 1.CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORANDSTRING$USRUSR<0xB4!><0xB5!>SOUNDCALLTOUSRIMP, RANDOMIZEWENDNOTUSRSCREEN<UNK! {FDCC}><UNK! {00F5}>STRING$OPTIONMOTORAND.                                "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=7:QQ=20:XX$="t 3":VAR1$=XX$:VAR2$="T 3":M=4:GOSUB 3120:A$(4)=X$:BB$(4)=X$:GOSUB 3020
  184. 1820  LOCATE 2,5:PRINT LLNN$(1):PRINT "    "+LLNN$(2)
  185. 1830  PRINT "    5165:0103 B82143      MOV    AX,4321                                   ":PRINT " "
  186. 1840  PRINT "    "+LLNN$(3):PRINT "    "+LLNN$(4)
  187. 1850  PRINT "    5165:0106 01D8        ADD    AX,BX                                     ":PRINT " "
  188. 1860  PRINT "    "+LLNN$(5):PRINT "    "+LLNN$(6)
  189. 1870  PRINT "    5165:0108 0000        ADD    [BX+SI],AL                  DS:1234=29":PRINT "    -":PRINT " ":PRINT " "
  190. 1880  PRINT "    TAB(SPC(BLOADPRESETCOLORKEYSPC(ERLCOLOR<0xB4!><0xB5!>MERGE, AX=5555, ERR<0xE2!>ERR<UNK! {FDCA}>PRESET 1234+4321 <0xB5!>SOUNDMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>."
  191. 1890  GOSUB 3140:ON ZX GOTO 1900,400,3220
  192. 1900  CLS:PRINT " ":PRINT"                  9.  WRITE<0xB4!> CLOSE<0xE3!> WHILE<0xE0!> BLOAD<UNK! {00FC}> MOTORAND"
  193. 1910  PRINT "        SCREEN\STEP*MERGERENUM<0xB4!>><0xB4!>TRON<0xB5!>ERASEERLAUTOCLSOR<0xB5!>SOUNDSOUNDVARPTRSCREENOFFUSINGAUTOCLOSECLOSECALLKEYCLS<0xE0!><0xCB!>PSETCLOSE<0xE3!>WHILE<0xE0!>NOTORFNERL<0xB5!>SOUNDNOTORSAVE<0xE4!> ,WENDTRONTHENDEFSTRLOCATEWHILESTEPERLLOCATESAVECALL<UNK! {00F6}><0xCB!><UNK! {00FC}>BLOADPRESET<0xB5!>SOUNDLOCATEDEFSNG        MOTOR<UNK! {00F9}>MERGE<UNK! {00F8}>STRING$PSET<0xB5!>INSTRSTRING$WRITE .COLORKEYCLS<UNK! {00FB}>NOTBLOAD DEBUGSTRING$USR<0xB5!>SOUNDWRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORAND U."
  194. 1920  PRINT "        RANDOMIZEEDITSOUNDPOINT:  <0xB6!>ERLSOUNDVARPTR<0xB4!>><0xB5!>ERASEERLAUTO<0xB5!>SOUNDSOUNDVARPTRSCREENOFFMERGE<UNK! {00F8}>USRUSRWRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>."
  195. 1930  PRINT "        OPTIONEQVLOCATEMERGE:  U [address]  CLOSEIMP  U [range]"
  196. 1940  PRINT "        USINGTRONLOCATETHEN:  (1)address: WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!><0xB5!>SOUNDPSETXORLOCATELOAD<0xB5!>INSTRSTRING$WRITE.":GOSUB 5940:ON ZX GOTO 1950,400,3220
  197. 1950  CLS:PRINT " ":PRINT "           (2)range:WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!><0xB5!>SOUND<0xB5!>INSTRSTRING$WRITEWRITE<0xB6!>TAB(ERROR."
  198. 1960  PRINT "           (3)WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!><0xB5!>SOUNDUSINGSTRING$MERGEVARPTRLOCATE<UNK! {FDC8}>ELSESAVE<UNK! {00F6}>NOTVARPTRNOTBLOADCLOSEERROR<0xCB!><UNK! {00F9}>NOTBLOADSTEP<0xB5!>THENCALL<0xB5!>SOUNDSTEPERLLOCATESAVEOPTIONEQVLOCATEMERGE(40 MOTORUSRCLOSEIMP 80 MOTORUSR ), LOADLINE                  NOTBLOADCLOSEERROR<0xCB!><UNK! {00F9}>NOTBLOADNOTVARPTRWRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDFNELSEERLEQV ."
  199. 1970  PRINT "                  ERLVARPTRSCREENTAB(SPC(CLOSEPRESET+COLOR<UNK! {00F6}>STEPBSAVE, WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>LOADLINESTEPERLLOCATESAVE<0xB5!>SOUNDUSINGSTRING$MERGEVARPTRLOCATE<UNK! {FDBF}>KEY<0xB6!><0xE0!>NOTVARPTR<0xCB!><UNK! {00F9}>SPC(AUTOPRESETMOD<0xB5!>SOUNDMOTORCOLOR. SPC(IMPTAB(AUTOSTRING$OPTION                  MOTORANDSAVE<0xDF!>NOTUSRCOLORKEYWHILE<0xE4!><0xB5!>SOUNDCALLSWAP<0xB6!>SCREEN ,SPC(IMP<0xB6!><UNK! {00F8}>WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>USINGANDOPENMODSPC(CLOSETO<UNK! {00F5}>STRING$OPTIONMOTORANDLOCATEWHILECOLORKEYSOUNDPOINTLINE<UNK! {00FC}>CLSRESUMEWHILESCREEN<0xCB!><UNK! {00F9}>PSETVARPTRTHEN<UNK! {00FB}>OPTION<UNK! {00FC}><0xB6!><0xE0!>                  <0xB5!>SOUNDUSINGSTRING$MERGEVARPTRLOCATE<UNK! {FD20}>."
  200. 1980  GOSUB 5940:ON ZX GOTO 1990,400,3220
  201. 1990  CLS:PRINT " ":PRINT "           (4)WHILEINSTRUSR*WHILETROFFSTRING$SWAP<0xB5!>INSTRSTRING$WRITEWENDTAB(LOCATE<UNK! {FDCA}>PRESETOPENDEFSTRNOTUSRNOTUSRUSRERROR<0xB5!>SOUND 8088 STRING$OPTIONMOTORANDBSAVE*<0xB5!>SOUND<0xB4!>><0xB4!>TRON<0xB5!>ERASEERLAUTO, SCREEN\NOTBLOADCLOSEERRORSTRING$OPTION<0xB6!>RESUME                  <0xB5!>SOUNDWENDCLOSELOCATEPRESETOPENDEFSTRNOTUSRNOTUSRUSRERRORSTRING$OPTIONMOTORAND<0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEOPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR<0xB5!>SOUND<0xB5!>INSTRSTRING$WRITE .PSETMOTORSOUNDCLOSEMERGERENUMOPTION>STRING$AUTOSOUND<UNK! {00FA}>CALL<UNK! {00F6}><0xB4!>^ ."
  202. 2000  PRINT "           (5)SCREEN=RANDOMIZE<UNK! {00FB}>NOTBLOADCLOSEERRORMERGE<UNK! {00F6}><0xB6!>ERLPSETXORLOCATELOAD<0xB5!>INSTRSTRING$WRITE<0xB4!>IMPSCREEN*SPC(CLOSEOPTION<UNK! {00F6}>PSETRENUMSPC(PSETMOTORCOLOR , ERLIMP U BLOAD<UNK! {00FC}>MOTORANDLOAD'<0xB6!>RESUMEERLVARPTR CS STRING$USROPENDEFSTRNOTUSR                  OPTIONBLOAD<0xB6!>TAB(<0xB5!>SOUND<0xB6!>TAB(<0xB5!>INSTRSTRING$WRITE ."
  203. 2010  GOSUB 5940:ON ZX GOTO 2020,400,3220
  204. 2020  CLS:SSS1$="    TAB(SPC(BLOADPRESETCLS<0xB4!>WRITE<0xB4!>CLOSE<0xE3!>WHILE<0xE0!>ERLVARPTR 1.CLOSE<0xE3!>WHILE<0xE0!>BLOAD<UNK! {00FC}>MOTORANDSTRING$USRUSR<0xB4!>ERLVARPTR 5165:0100 <0xB5!>MERGE 5165:0106 <0xB5!>SOUNDSCREEN<UNK! {FDCC}><UNK! {00F5}>STRING$OPTIONMOTORAND.                                        "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=7:QQ=20:XX$="u 100 106":VAR1$=XX$:VAR2$="U 100 106"
  205. 2030  A$(10)=X$:BB$(10)=X$:M=10:GOSUB 3120:GOSUB 3020
  206. 2040  LOCATE 2,5:PRINT "5165:0100 BB3412        MOV BX,1234"
  207. 2050  LOCATE 3,5:PRINT "5165:0103 B82143        MOV AX,4321"
  208. 2060  LOCATE 4,5:PRINT "5165:0106 01D8          ADD AX,BX"
  209. 2070  LOCATE 5,5:PRINT "-"
  210. 2080  LOCATE 8,5:PRINT "KEYSTEPBLOAD>ERR<UNK! {FDCA}>PRESETTAB(SPC(BLOADPRESETWHILE<0xE0!><0xB5!>SOUNDSCREEN<UNK! {FDCC}><UNK! {00F5}>STRING$OPTIONMOTORAND.":GOSUB 5940:ON ZX GOTO 2090,400,3220
  211. 2090  CLS
  212. 2100  PRINT "                        10.  USR<0xB4!>  TAB(SOUND  LOAD<UNK! {FE20}> BLOAD<UNK! {00FC}>  MOTORAND"
  213. 2110  PRINT "    RANDOMIZEEDITSOUNDPOINT:  LINEFNERR<UNK! {FDD4}>VARPTR<0xB5!><UNK! {00F7}>LOCATEERL<0xB5!>SOUNDLOCATE<UNK! {FDBE}>OFF(TAB(SOUNDLOAD<UNK! {FE29}>USR<0xB4!>SCREEN*<0xB4!>BEEPBEEPTO."
  214. 2120  PRINT "    OPTIONEQVLOCATEMERGE1: W address drive sector1, sector2"
  215. 2130  PRINT "    USINGTRONLOCATETHEN:  <0xB4!>NOTSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>INSTRSTRING$WRITE (address) COLORAUTOLOCATELOAD, MERGERENUMLOCATE<UNK! {FDBE}>OFFUSR<0xB4!>SCREEN*STRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}> (drive) <0xB5!>SOUNDBEEPTOKEYSTEP,               LOCATE<UNK! {FDBE}>OFF<0xB4!>NOTSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDSTEP<0xE0!><0xB6!>ERLKEYSCREENPRESET<UNK! {00F8}> (sector1) COLORAUTOLOCATELOADUSR<0xB4!>SCREEN*, STRING$WHILE<0xB5!>MERGEUSR<SPC(AUTO<0xB5!>SOUNDKEYSCREENPRESET<UNK! {00F8}>LOCATE<UNK! {FDCC}>ANDBSAVE<UNK! {00FA}>TAB(AUTOSTRING$RANDOMIZE               (sector2)."
  216. 2140  PRINT "    OPTIONEQVLOCATEMERGE2: W  CLOSEIMP  W address"
  217. 2150  PRINT "    USINGTRONLOCATETHEN:  <0xB5!>WHILE W <0xB4!><UNK! {00F8}>WENDTAB(LOCATE<UNK! {FD28}>CLOSEIMPMERGE<UNK! {00F6}><0xB4!><UNK! {00F8}><0xB5!>INSTRSTRING$WRITE address)LOCATEWHILE, USR<0xB4!>BLOAD<UNK! {00FC}>MOTORANDMERGERENUMTAB(SOUNDLOAD<UNK! {FED0}><0xB4!>SCREEN*SCREEN^BEEPTO."
  218. 2160  GOSUB 5940:ON ZX GOTO 2170,400,3220
  219. 2170  CLS:PRINT " ":PRINT "        SCREEN=RANDOMIZE<UNK! {00FB}>ERLVARPTRUSR<0xB4!>BEEPTOLOCATEWHILEWRITETRONKEY<UNK! {00FA}><0xB4!>^TAB(MOD, DEBUG MERGERENUMSTEPERLLOCATESAVECALL<UNK! {00F6}>CALL<UNK! {00F6}><0xB4!>^USRBEEPSTEPTRON. LINE<0xB4!>STEPBSAVE F3 LOAD<UNK! {00FC}>STRING$INSTRUSRBSAVESTEPERLLOCATESAVEUSR<0xB4!>BLOAD<UNK! {00FC}>        MOTORAND ,SCREENCLOSEOPENMODERL'LINE<0xB4!>STEPBSAVECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}> Enter WHILE<0xE3!>COLORKEYSPC(ERLSTRING$INSTRUSRBSAVEUSR<0xB4!>WEND'USING<UNK! {00F7}> ."
  220. 2180  PRINT "        LOCATERANDOMIZENOTBLOAD W BLOAD<UNK! {00FC}>MOTORANDUSR<0xB4!>SPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FECA}>WHILE, SPC(AUTOSTEPSCREENLOCATERANDOMIZENOTBLOAD N BLOAD<UNK! {00FC}>MOTORANDOPTION<UNK! {00F8}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FC}>BLOAD<UNK! {00FB}> , ERL'NOTBLOAD R BLOAD<UNK! {00FC}>MOTORANDLINEFNTAB(SOUND        LOAD<UNK! {FEB5}>SOUNDCALLSWAP<0xB6!>SCREEN<0xCB!>THEN<0xB5!>MERGELOADSOUND<0xB4!>>PSET<UNK! {00F7}> BX OPENTHEN CX STRING$USRSCREENERASE."
  221. 2190  PRINT "        STEPBSAVEBLOAD>TAB(SPC(BLOADPRESETCLS<0xB4!>MOTORWRITESTEPLINELOCATERANDOMIZENOTBLOAD WBLOAD<UNK! {00FC}>MOTORAND ."
  222. 2200  GOSUB 5940:ON ZX GOTO 2210,400,3220
  223. 2210  CLS:SSS1$="    TAB(SPC(BLOADPRESETCLS<0xB4!>LINEFN<0xB4!>NOT 5165:0100 COLORAUTOLOCATELOAD<0xB5!>SOUNDSOUNDVARPTRSCREENOFFUSR<0xB4!><0xB5!>MERGE a BEEPTO<0xB5!>SOUND<0xB5!>VARPTR 0F KEYSCREENPRESET<UNK! {00F8}>COLORAUTOLOCATELOAD<0xB5!>SOUND 6 OPTION<UNK! {00F6}>KEYSCREENPRESET<UNK! {00F8}>SCREENERASE.                        "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "-":CC=1:DD=6:PP=7:QQ=20:XX$="w 100 0 0f 6":VAR1$=XX$:VAR2$="W 100 0 0F 6"
  224. 2220  A$(13)=X$:BB$(13)=X$:M=13:GOSUB 3120:GOSUB 3020:LOCATE 2,5:PRINT "-"
  225. 2230  LNUM=8:GOSUB 3090:LOCATE 8,5:PRINT "CALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!> '-' TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>, <0xCB!><0xB5!>BLOAD<UNK! {00F7}>SPC(FNSAVEDEFINTUSINGLINESCREEN*THEN-WHILESTEP."
  226. 2240  GOSUB 5940:ON ZX GOTO 2241,400,3220
  227. 2241  CLS:PRINT "                    11. <0xCB!>LOAD COLORLOAD TO<0xE2!>."
  228. 2242  PRINT "    (1). LOCATEERLNOTBLOAD DEBUG WHILE<0xE0!>USR<0xB4!>SPC(CLOSEOPTION<UNK! {00F6}>LOAD<UNK! {00F5}>WRITERESUMECALLTOUSRIMP."
  229. 2243  PRINT "    (2). PRESET*NOTBLOAD DEBUG LINEFNSPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>TAB(AUTO ASDF.BAS <0xB5!>SOUNDCALLTOUSRIMPUSINGLINE<0xB5!>MERGE 5165:0000 COLORAUTOLOCATELOAD<0xB5!>SOUNDSOUNDVARPTR<0xB4!>>STRING$USRSCREENERASE,             WENDTRON<0xB4!>IMPNOTELSECALL<UNK! {00F6}>CLOSE<0xE3!>WHILE<0xE0!>CALLTOUSRIMP."
  230. 2244  PRINT "    (3). NOTBLOAD DEBUG CLS<0xB4!>COLORMERGEWHILE<0xB4!>SPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FE2C}> NOTBLOADSOUNDSOUNDUSRDELETEBLOAD<UNK! {00FC}>MOTORAND?"
  231. 2245  PRINT "    (4). TAB(SPC(BLOADPRESETSPC(AUTO<0xB4!>NOT 5165:100 COLORAUTOLOCATELOADSTRING$<0xB4!>USRUSR 6 TO<UNK! {00F5}>STRING$OPTIONMOTORAND, NOTBLOADLOCATEWENDBLOAD<0xB4!>BLOAD<UNK! {00FC}>MOTORAND?"
  232. 2246  GOSUB 5940:ON ZX GOTO 400,400,3220
  233. 2250  CLS:PRINT " ":PRINT "                    <0xB5!>VARPTR  <0xB6!><UNK! {FE20}> MERGEVARPTR    BEEP<UNK! {00FA}>  <0xB4!>EDIT  CLS^  MERGE+  KEYPOINT"
  234. 2260  PRINT "        ERLVARPTRLOCATERANDOMIZENOTBLOADLOAD<UNK! {00FC}>BEEPTOBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDRANDOMIZE<UNK! {FDB3}>TOSTRING$USR ,NOTUSRLOCATEWHILEUSR<SPC(AUTOMOTORDEFSTRUSR<UNK! {00F8}><0xB5!>SOUNDLOCATERANDOMIZENOTBLOADLOADOPTIONTO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORAND ,NOTUSRLOCATEWHILEUSR<SPC(AUTO<0xB6!><0xE0!><0xB4!>TAB(STRING$INSTROPTION<0xB4!>        LOCATERANDOMIZENOTBLOADSCREEN\OPTIONKEYTO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORAND ,NOTUSRLOCATEWHILELOCATEPRESETSPC(AUTONOTUSRFNELSEERLEQV<0xB5!>SOUNDLOCATERANDOMIZENOTBLOADWENDCLOSETHENDEFSTRBLOAD<UNK! {00FC}>MOTORAND ,TAB(AUTOBSAVE<UNK! {00FA}>USING<0xE3!>SPC(ERLKEYSTEPSPC(AUTOPRESETMOD , MS-DOS TO<0xE1!>        RANDOMIZEDELETEMOTOR<0xCB!>SPC(CLOSETO<UNK! {00F5}>TOINSTRLOCATE<0xE2!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE5F}>_BEEP<UNK! {00FA}><0xB4!>EDITCLS^ .BAT TAB(SOUNDLOAD<UNK! {FE2E}> "
  235. 2270  PRINT "        OPTIONBLOADTAB(SOUNDLOAD<UNK! {FED4}>LOCATEUSR^NOTBLOADCLOSEERRORUSING+STRING$DEFDBLLOAD<UNK! {00FC}>BEEPTOBLOAD<UNK! {00FC}>MOTORANDNOTORFNERLCALLTOUSRIMP, SPC(CLOSE<0xB4!>TAB(MERGERESUMEMOTORTRON, <0xB6!><0xE0!><0xB4!>TAB(STRING$<0xB4!>USRUSR. <0xCB!><UNK! {00FC}>NOTKEY EDLINTAB(SOUND        LOAD<UNK! {FEBB}>IMP COPY BLOAD<UNK! {00FC}>MOTORANDMERGERESUMEMOTORTRON .<0xB6!><UNK! {00F8}> MS-DOS LOCATEPRESETLINEFNBEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDTAB(SOUNDLOAD<UNK! {FED7}><UNK! {00F6}>TAB(AUTOPSETERRTHENRESUMEBLOAD<UNK! {00FC}>MOTORAND<0xB4!>EDITCLS^<0xB5!>SOUND ,THENDEFSTRLOCATEWHILESTRING$WHILEMERGENOT        STEPMOD<0xB4!>IMPSCREEN* DOSBLOAD<UNK! {00FC}>MOTORANDSPC(CLOSEFN<UNK! {00F9}><0xB4!>IMPSCREEN*BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}> ."
  236. 2280  GOSUB 6940:ON ZX GOTO 2290,2290,3220
  237. 2290  CLS:PRINT " ":PRINT "        ***************************WEND<0xCB!>  <0xB5!>ERASE  5.2*************************"
  238. 2300  PRINT "        *   1. ECHO <ERLLOCATEUSR^/MERGE<UNK! {00FB}>STRING$RANDOMIZESTEPERLLOCATESAVEBLOAD<UNK! {00FC}>MOTORAND>    4. PAUSE <ERLOFFTHENTROFFBLOAD<UNK! {00FC}>MOTORAND>        *"
  239. 2310  PRINT "        *   2. FOR  <FNDEFINTCLOSEWRITESTRING$<0xB4!>USRUSRBLOAD<UNK! {00FC}>MOTORAND>         5. REM <USINGTRONLOCATETHENBLOAD<UNK! {00FC}>MOTORAND>          *"
  240. 2320  PRINT "        *   3. GOTO <OPTIONSOUNDWHILE<0xE4!>STRING$<0xB4!>USRUSR<0xCB!>CALLUSRIMPBLOAD<UNK! {00FC}>MOTORAND>     6. CLS<UNK! {FDD7}>NOT                    *"
  241. 2330  PRINT "        *                      7.  <0xCB!>LOADCOLORLOADTO<0xE2!>                             *"
  242. 2340  PRINT "        ***************************************************************"
  243. 2350  INPUT "          PRESET*LOCATE<0xE4!>SCREEN*SOUND<UNK! {00FA}><0xB5!>SOUNDFNELSEERLEQV  1 - 7; CLOSEIMPLINE<0xB4!> 'R' LOAD<UNK! {00FC}>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE",E$
  244. 2360  IF E$="r" OR E$="R" THEN GOTO 3220
  245. 2370  IF E$="1" THEN GOTO 2450
  246. 2380  IF E$="2" THEN GOTO 2570
  247. 2390  IF E$="3" THEN GOTO 2640
  248. 2400  IF E$="4" THEN GOTO 2720
  249. 2410  IF E$="5" THEN GOTO 2830
  250. 2420  IF E$="6" THEN GOTO 2890
  251. 2430  IF E$="7" THEN GOTO 2920
  252. 2440  GOTO 2290
  253. 2450  CLS:PRINT " ":PRINT "                    1. ECHO USINGNOT BLOAD<UNK! {00FC}> MOTORAND"
  254. 2460  PRINT "        RANDOMIZEEDITSOUNDPOINT:  OPTIONBLOADBLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETNOTBLOADCLS<0xB4!>ERLLOCATEUSR^CLOSEIMPMERGE<UNK! {00FB}>STRING$RANDOMIZEPSETMOTORSOUNDCLOSESTEPERLLOCATESAVESTRING$<0xB4!>USRUSRBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FEB5}>SOUND DOS BLOAD<UNK! {00FC}>MOTORAND, WENDCLOSEWRITEMOTOR                       LINEDEFINTSTRING$<0xB4!>USRUSRBLOAD<UNK! {00FC}>MOTORANDLOCATEWHILE<0xCB!><UNK! {00F9}>WEND<UNK! {00FA}>KEY<UNK! {00FA}><0xB5!>SOUNDUSRBEEPSTEPTRON.  "
  255. 2470  PRINT "        OPTIONEQVLOCATEMERGE:  1. ECHO ON"
  256. 2480  PRINT "               2. ECHO OFF"
  257. 2490  PRINT "               3. ECHO message"
  258. 2500  PRINT "        USINGTRONLOCATETHEN:  1. ECHO ON ERLLOCATEUSR^ERLVARPTRPSETMOTORSOUNDCLOSEKEYSTEPSTEPERLLOCATESAVECALL<UNK! {00F6}>STRING$<0xB4!>USRUSR<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRBLOAD<UNK! {00FC}>MOTORAND .  "
  259. 2510  GOSUB 6940:ON ZX GOTO 2520,2290,3220
  260. 2520  CLS:PRINT " ":PRINT "               2. ECHO OFF MERGE<UNK! {00FB}>STRING$RANDOMIZEERLVARPTRPSETMOTORSOUNDCLOSEKEYSTEPSTEPERLLOCATESAVE<0xCB!><UNK! {00F9}>STRING$<0xB4!>USRUSR<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRBLOAD<UNK! {00FC}>MOTORAND,LINE<UNK! {00FC}>CLSRESUMEREMBLOAD<UNK! {00FC}>MOTORAND."
  261. 2530  PRINT "               3. ECHO message ERLVARPTRPSETMOTORSOUNDCLOSEKEYSTEPSTEPERLLOCATESAVE message (USRBEEPSTEPTRON), <0xB6!><UNK! {00F8}>WENDCLOSERANDOMIZEPOINT<0xB5!>WHILEPRESETLINE<0xB5!>SOUND                               USING<0xB4!>TODEFSTRLOCATEPRESET ON CLOSERANDOMIZELOCATEPRESET OFF."
  262. 2540  PRINT "                           SCREEN=RANDOMIZE<UNK! {00FB}>WRITETRONCALL<UNK! {00F6}> ECHO BLOAD<UNK! {00FC}>MOTORAND, <0xB6!><UNK! {00F8}>WENDCLOSEOPENDEFSTRSCREENTAB(OPENTAB(WENDTAB(LOCATE<UNK! {FD20}>, ERLIMPSTEPERLLOCATESAVE<0xB5!>WHILE                               PRESETLINE<0xB5!>SOUND ECHO USING<0xB4!>TODEFSTR ( ON CLOSEIMP OFF )."
  263. 2550  PRINT "                           CLS<0xE4!>PSET\<0xB6!>DEFDBLCLOSEIMPSTEP<0xB5!>THENCALLOPTION<0xB4!>TAB(CLOSEOPENMOD, TAB(AUTO ECHO ON USING<0xB4!>TODEFSTR."
  264. 2560  GOSUB 6940:ON ZX GOTO 2570,2290,3220
  265. 2570  CLS
  266. 2580  PRINT " ":PRINT "                    2. FOR USINGNOT BLOAD<UNK! {00FC}> MOTORAND"
  267. 2590  PRINT "    RANDOMIZEEDITSOUNDPOINT:  NOTBLOADNOTVARPTRWRITE<0xB4!>OPTION<0xB4!>STRING$<0xB4!>USRUSRSOUNDCALLTO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORAND."
  268. 2600  PRINT "    OPTIONEQVLOCATEMERGE:  FOR  %% <USINGSTRING$WRITE<UNK! {00FB}>>  IN  <FNDEFINTCLOSEWRITEWHILE^>  DO  <BLOAD<UNK! {00FC}>MOTORAND> "
  269. 2610  PRINT "    USINGTRONLOCATETHEN:  PSET<0xE4!>STRING$USR %% <USINGSTRING$WRITE<UNK! {00FB}>> LOCATEPRESETFNDEFINTCLOSEWRITEWHILE<0xE4!>MOTORCOLOR .<0xCB!><UNK! {00FC}><0xB5!>SOUNDSCREENELSESTRING$<0xB5!>TAB(AUTOFNDEFINTCLOSEWRITEWHILE^STRING$USR<0xCB!>CALLUSRIMPOPTION<UNK! {00F8}>CALL<UNK! {00F6}><0xB5!>SOUNDBLOADCOLORSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FE20}>              BLOAD<UNK! {00FB}>; FNDEFINTCLOSEWRITEWHILE^COLORKEYSPC(ERLLOCATEPRESETSPC(CLOSESTEP<0xB5!>MOTORUSR<0xB5!>ERASESPC(<0xE5!>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}> , SPC(WENDCOLORKEYSPC(ERLLOCATEPRESETSPC(CLOSE<0xB6!><0xE0!>SPC(<0xE5!>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>. <0xB6!><UNK! {00F8}> FOR                 BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTLOCATEPRESET<0xB6!>ERLFNDEFINTCLOSEWRITEWHILE^STRING$USRBLOADCOLORSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FED6}><0xB4!>USRUSR DO OPENMODBLOAD><0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORAND . FOR BLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETWENDCLOSE"
  270. 2620  PRINT "           SOUNDPOINTPRESET<0xB6!>TOUSING<0xB5!>SOUND ."
  271. 2630  GOSUB 6940:ON ZX GOTO 2640,2290,3220
  272. 2640  CLS
  273. 2650  PRINT " ":PRINT "                    3. GOTO USINGNOT  BLOAD<UNK! {00FC}>  MOTORAND"
  274. 2660  PRINT "    RANDOMIZEEDITSOUNDPOINT:  COLORINSTRSTRING$PSETUSINGAUTOSPC(PSETUSINGNOTBLOAD<UNK! {00FC}>MOTORANDNOTBLOADNOTVARPTROPTIONSOUNDWHILE<0xE4!>BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDSTRING$USRUSINGNOTBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDSTRING$<0xB4!>USRUSR<0xCB!>CALLUSRIMP , USINGAUTOSPC(PSET<0xB5!>MERGENOTUSRLOCATELOCATE<0xB5!>WHILEWHILE-OPENBEEP               <0xB5!>SOUNDSOUNDPRESETSPC(CLOSEUSRUSRKEYSTEP ."
  275. 2670  PRINT "    OPTIONEQVLOCATEMERGE:  GOTO  [ WHILE-OPENBEEPBLOAD<UNK! {00FB}> ]  "
  276. 2680  PRINT "    USINGTRONLOCATETHEN:  WHILE-OPENBEEPNOTKEYSPC(CLOSEOPTION<UNK! {00F6}> BLOADLINEOPENBEEP(:)OPENBEEPOPTION<UNK! {00FA}><0xCB!>>SPC(CLOSEOPTION<UNK! {00F6}>WHILE-OPENBEEPBLOAD<UNK! {00FB}>USING+CALLKEY ,WHILE-OPENBEEPBLOAD<UNK! {00FB}><0xB5!>SOUNDPRESETLINELINE<0xCB!>OPTION<UNK! {00F6}>USINGSTRING$WRITE<UNK! {00FB}>LOCATEPRESETNOTUSRUSRERROR                <0xB5!>SOUND."
  277. 2690  PRINT "              CLS<UNK! {FDC8}>= :           :LOOP"
  278. 2700  PRINT "                               :LABEL     <0xB6!>LOADLOCATEPRESETWHILE-OPENBEEP."
  279. 2710  GOSUB 6940:ON ZX GOTO 2720,2290,3220
  280. 2720  CLS
  281. 2730  PRINT " ":PRINT "                    4. PAUSE USINGNOT BLOAD<UNK! {00FC}> MOTORAND"
  282. 2740  PRINT "        RANDOMIZEEDITSOUNDPOINT:  PAUSE USINGNOTBLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETNOTBLOADNOTVARPTRERLOFFTHENTROFFSTEP<0xB5!>THENCALL<0xB5!>SOUND<0xB4!>EDITCLS^WENDTRONSTEPERLLOCATESAVECALL<UNK! {00F6}>USRBEEPSTEPTRON :"
  283. 2750  PRINT "               Strike a key when ready...(LINE<0xB4!>SCREENTAB(SPC(CLOSELOAD<UNK! {00FC}>COLORAUTOLOCATELOAD . . .)"
  284. 2760  PRINT "        OPTIONEQVLOCATEMERGE:  PAUSE   [ USINGTRON LOCATETHEN ]"
  285. 2770  PRINT "        USINGTRONLOCATETHEN:  NOTBLOADCLOSEERRORCOLORKEYMERGERENUM<0xB4!><0xCB!>BLOAD<UNK! {00FC}>MOTORANDWEND<0xE5!>SCREEN*MOTORMERGEOPTION<UNK! {00F6}>STRING$<0xB4!>USRUSRBLOAD<UNK! {00FC}>MOTORANDSTRING$DEFSNGLOAD<0xE4!>CLS<0xB4!>STEPERLLOCATESAVEUSRBEEPSTEPTRON,SPC(ERLLOADLINEOPTION<UNK! {00FC}>CLOSECLOSESCREEN^BEEPTO.CLOSESTRING$                    OPTION<0xB4!>BEEP<UNK! {00FA}><0xB4!>EDITCLS^LOADTOUSR<UNK! {00F8}>STRING$<0xB4!>USRUSRLOCATEWHILESTRING$CLOSESPC(AUTO<0xB4!>IMPSCREEN*CALL<UNK! {FDC1}><0xCB!>Ctrl - break (CLOSEIMPC)SPC(ERLTHEN<0xE2!><0xB5!>SOUNDSCREENTAB(SPC(CLOSEOPTION<UNK! {00F6}>"
  286. 2780  PRINT "               LOAD<UNK! {00FC}>(SPC(IMP Ctrl-breakLOAD<UNK! {00FC}>MERGE<0xE1!>LOCATE<UNK! {00F8}><0xB4!>EDITCLS^CLOSEINSTR<0xB5!>MERGEWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALL)."
  287. 2790  GOSUB 6940:ON ZX GOTO 2800,2290,3220
  288. 2800  CLS:PRINT " ":PRINT "            SCREEN=RANDOMIZE<UNK! {00FB}>NOTBLOADCLOSEERRORERLVARPTRBLOAD<UNK! {00FC}>MOTORANDSTRING$USRLINE<UNK! {00FC}>OPENDEFSTRMOTOR<0xCB!>SCREENTAB(FNELSESTEPAND [USINGTRONLOCATETHEN] .ERLIMPMERGERENUMSTEPERLLOCATESAVECALL<UNK! {00F6}>USINGANDCALLSWAPTAB(AUTO 121 OPTION<UNK! {00F6}>                USINGSTRING$MERGEVARPTR<0xB5!>SOUNDSCREENTAB(SPC(<0xE2!>USINGSTRING$WRITE<UNK! {00FB}><0xB4!>DEFSNG ."
  289. 2810  PRINT "            ERLVARPTRRANDOMIZEINSTRMERGEELSE<0xB5!>SOUND<0xB5!>INSTRWRITEMERGEKEY<STRING$BLOAD PAUSE BLOAD<UNK! {00FC}>MOTORAND ,NOTBLOADCLOSEERRORCOLORKEYSPC(ERLCOLORINSTRSTRING$PSETUSINGERLLOADOPEN<0xCB!><UNK! {00F9}>SPC(AUTOSTRING$<0xB4!>USRUSR<0xB5!>SOUNDBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FED6}>USR             <0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORANDLOCATE<UNK! {FDC4}>COLOR ,STRING$<0xB4!>USRUSRBLOADCOLOROPTION<UNK! {00F6}> PAUSEBLOAD<UNK! {00FC}>MOTORANDLOCATEWHILE, STEP<0xB5!>THENCALLERLOFFTHENTROFFWENDTRONOPTION<UNK! {00F8}>NOTBLOADCLOSEERRORSPC(ERLLOCATEWHILELOAD<0xE4!>CLS<0xB4!>SAVE<UNK! {00F6}><0xB6!>RESUMELOCATEPRESETWRITEEQV              MERGE<0xE1!>LOCATE<UNK! {00F8}><0xB4!>EDITCLS^ ."
  290. 2820  GOSUB 6940:ON ZX GOTO 2830,2290,3220
  291. 2830  CLS
  292. 2840  PRINT " ":PRINT "                    5. REM  USINGNOT BLOAD<UNK! {00FC}> MOTORAND"
  293. 2850  PRINT "        RANDOMIZEEDITSOUNDPOINT:  BEEP<UNK! {00FA}><0xB4!>EDITCLS^<0xB5!>SOUND REM USINGNOTBLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETNOTBLOADNOTVARPTRSTEPERLLOCATESAVEBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FED6}>USR<0xB5!>SOUNDUSINGTRONLOCATETHEN ."
  294. 2860  PRINT "        OPTIONEQVLOCATEMERGE:  REM    < USINGTRON LOCATETHEN >"
  295. 2870  PRINT "        USINGTRONLOCATETHEN:  <0xB5!>WHILEBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FED6}><0xB4!>USRUSR<0xB5!>MERGEUSINGTRONLOCATETHENLOCATEWHILE ,STEPERLLOCATESAVECALL<UNK! {00F6}>OPTIONBLOADSCREENTAB(FNELSESTEPANDUSINGTRONLOCATETHEN .USINGTRONLOCATETHENLOCATEPRESETCOLORKEYCALLSWAP<0xB4!>OR123                       OPTION<UNK! {00F6}>USINGSTRING$MERGEVARPTR<0xB5!>SOUNDSCREENTAB(OPENTAB(USINGSTRING$WRITE<UNK! {00FB}><0xB4!>DEFSNG .SCREEN=WENDCLOSEKEY<STRING$BLOADSCREENTAB(FNELSESTEPAND <USINGTRONLOCATETHEN>,ERLIMP REM BLOAD<UNK! {00FC}>MOTORANDUSING<UNK! {00F6}>TAB(AUTO                       BEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FEC4}>VARPTR<0xCB!><UNK! {00F9}>KEY<STRING$BLOAD<0xB5!>SOUNDLOAD<0xE4!>OPTION\SPC(ERLWHILE<0xE3!>NOTBLOADCLOSEERRORSPC(USING<0xB6!>MOTORUSINGERLLOADOPEN<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2E}>"
  296. 2880  GOSUB 6940:ON ZX GOTO 2890,2290,3220
  297. 2890  CLS:PRINT "                    6. CLS<UNK! {FD20}> USINGNOT"
  298. 2891  PRINT "        ERR<0xE2!>LOCATEPRESETSPC(CLOSEOPTION<UNK! {00F6}>BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDCLS<UNK! {FDD7}>NOT, SOUNDVARPTRSCREENOFFTAB(AUTO:"
  299. 2892  PRINT "    dir *.bas/w"
  300. 2893  PRINT "    rem ERLVARPTRERR<0xE2!>OPTION<UNK! {00F6}>BEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FED6}>USRLOCATEUSINGSTEPSCREENSTRING$<0xB4!>USRUSRMOTOR<0xCB!>SPC(CLOSEOPTION<UNK! {00F6}> DOS BLOAD<UNK! {00FC}>MOTORAND dir."
  301. 2894  PRINT "    rem STEPBSAVEBLOAD>NOTBLOAD for BLOAD<UNK! {00FC}>MOTORANDCLS<0xB4!>ERL<0xCB!>USRUSRMOTORMERGEOPTION<UNK! {00F6}> basic TAB(SOUNDLOAD<UNK! {FE2E}>"
  302. 2895  PRINT "    rem   ff11.bas OPENTHEN ff22.bas WRITESTRING$WHILEXORSTEPERLLOCATESAVE:"
  303. 2896  PRINT "    pause   SOUNDSTEPTHENRESUMELOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>CALLERROR     ......     Jiangsu."
  304. 2897  PRINT "    for %%v in (ff11.bas ff22.bas) do basica %%v"
  305. 2900  GOSUB 6940:ON ZX GOTO 2901,2290,3220
  306. 2901  CLS:SSS1$="                  TAB(SPC(BLOADPRESETCLS<0xB4!>STRING$<0xB4!>USRUSRERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>USINGSTRING$TAB(AUTO ff.bat <0xB5!>SOUNDBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FE2E}>                                           "+XXX1$:SSS2$=XXX2$:LOCATE 1,5:PRINT "A>":CC=1:DD=7:PP=7:QQ=20:XX$="ff":VAR1$=XX$:VAR2$="FF":M=3:GOSUB 3120:A$(3)=X$:BB$(3)=X$:GOSUB 3020
  307. 2902  NAME "FFF.BAS" AS "tttddd.bas":SYSTEM
  308. 2910  REM cc,dd   (ll,mm)    pp,qq    m     sss1$,sss2$    xx$
  309. 2911  DIM A$(90),BB$(90)
  310. 2912  XXX1$="PRESET*LOCATE<0xE4!>SCREEN*:  ":XXX2$=" ERL'CLOSEINSTRCALL<0xB5!>. ":X$=CHR$(13)
  311. 2913  LLNN$(1)="AX=0000  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  312. 2914  LLNN$(2)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0103   NV UP DI PL NZ NA PE NC"
  313. 2915  LLNN$(3)="AX=4321  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  314. 2916  LLNN$(4)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0106   NV UP DI PL NZ NA PE NC"
  315. 2917  LLNN$(5)="AX=5555  BX=1234  CX=0000  DX=0000  SP=FFEE  BP=0000  SI=0000  DI=0000"
  316. 2918  LLNN$(6)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0108   NV UP DI PL NZ NA PE NC":LLNN$(7)="DS=5165  ES=5165  SS=5165  CS=5165  IP=0100   NV UP DI PL NZ NA PE NC"
  317. 2920  CLS:PRINT "                    7. <0xCB!>LOAD COLORLOAD TO<0xE2!>"
  318. 2921  PRINT "    (1). PRESET*WHILE<0xE0!>USR<0xB4!>SPC(CLOSEOPTION<UNK! {00F6}>BEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FEC0}><0xB4!>ERL<0xCB!>USRUSRSOUND<0xE3!><0xB5!>SOUND basic CALLTOUSRIMP, PSETDELETESCREEN=<0xCB!><0xB5!>, CALLTOUSRIMPBLOAD<UNK! {00FB}>TAB(AUTO myprog.bas,             PRESETSPC(SPC(CLOSESTRING$WHILEERL<0xCB!>USRUSRSTEPBSAVESCREENERASE."
  319. 2922  PRINT "    (2). NOTBLOADSPC(CLOSEOPTION<UNK! {00F6}>BEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FEB0}>FN a BEEPTO<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRCLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>TAB(AUTO .prg OPENTHEN .exe <0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEBF}>MERGEWHILE<0xB4!><0xB5!>MERGE c BEEPTO."
  320. 2923  PRINT "    (2). NOTBLOADSPC(CLOSEOPTION<UNK! {00F6}>BEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FEC0}><0xB4!>OPTIONEQVLOCATEMERGECLOSEDEFDBLSCREEN^BEEPTO."
  321. 2930  GOSUB 6940:ON ZX GOTO 2290,2290,3220
  322. 2940  LOCATE 9,1:PRINT "________________________________________________________________________________";
  323. 2950  LOCATE 10,25:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>, LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  324. 2960  B$=INKEY$:IF B$="" THEN 2960
  325. 2970  IF B$=" " THEN ZX=1:GOTO 3010
  326. 2980  IF B$="E" OR B$="e" THEN ZX=2:GOTO 3010
  327. 2990  IF B$="R" OR B$="r" THEN ZX=3:GOTO 3010
  328. 3000  GOTO 2960
  329. 3010  RETURN
  330. 3020  LNUM=9:GOSUB 3090:LNUM=10:GOSUB 3090:LNUM=PP:GOSUB 3100:LOCATE PP+1,QQ:PRINT SSS1$+XX$+SSS2$;:LOCATE CC,DD:FOR JJ=1 TO 80-DD:PRINT " ";:NEXT JJ:LOCATE CC,DD
  331. 3030  FOR I=1 TO M:LL=CSRLIN:MM=POS(0)
  332. 3040  B$=INKEY$:IF A$(I)=B$ OR BB$(I)=B$ THEN  3060 ELSE 3050
  333. 3050  IF B$<>"" THEN GOSUB 3110:LOCATE LL,MM:GOTO 3040:ELSE GOTO 3040
  334. 3060  IF B$=CHR$(26) THEN PRINT "^Z";ELSE PRINT B$;
  335. 3070  NEXT I
  336. 3080  FOR PJ=PP TO 10:LNUM=PJ:GOSUB 3090:NEXT PJ:RETURN
  337. 3090  LOCATE LNUM,1:PRINT "                                                                                ";:RETURN
  338. 3100  LOCATE LNUM,1:PRINT "________________________________________________________________________________";:RETURN
  339. 3110  LOCATE 10,5:PRINT "LOAD/WEND+SOUND<UNK! {00FA}><0xB5!>SOUNDLOCATE<0xE4!>SCREEN*!";:FOR JXJ=1 TO 9:NEXT JXJ:LOCATE 10,5:PRINT "             ";:RETURN
  340. 3120  REM var1$,var2$,m-1
  341. 3130  FOR III=1 TO M-1:A$(III)=MID$(VAR1$,III,1):BB$(III)=MID$(VAR2$,III,1):NEXT III:RETURN
  342. 3140  PRINT "________________________________________________________________________________";
  343. 3150  PRINT "                     LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>, LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE5.1, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  344. 3160  B$=INKEY$:IF B$="" THEN 3160
  345. 3170  IF B$=" " THEN ZX=1:GOTO 3210
  346. 3180  IF B$="E" OR B$="e" THEN ZX=2:GOTO 3210
  347. 3190  IF B$="R" OR B$="r" THEN ZX=3:GOTO 3210
  348. 3200  GOTO 3160
  349. 3210  RETURN
  350. 3220  CHAIN "AMA1.BAS",ALL
  351. 4000  GOTO 4960
  352. 4940  LOCATE 9,1:PRINT "________________________________________________________________________________";
  353. 4950  LOCATE 10,25:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>MERGE<UNK! {00F8}>SCREEN*USINGNOTWEND<0xCB!><0xB5!>ERASE5, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  354. 4960  B$=INKEY$:IF B$="" THEN 4960
  355. 4970  IF B$=" " THEN ZX=1:GOTO 5010
  356. 4990  IF B$="R" OR B$="r" THEN ZX=2:GOTO 5010
  357. 5000  GOTO 4960
  358. 5010  RETURN
  359. 5940  LOCATE 9,1:PRINT "________________________________________________________________________________";
  360. 5950  LOCATE 10,20:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>, LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE5.1, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  361. 5960  B$=INKEY$:IF B$="" THEN 5960
  362. 5970  IF B$=" " THEN ZX=1:GOTO 6010
  363. 5980  IF B$="E" OR B$="e" THEN ZX=2:GOTO 6010
  364. 5990  IF B$="R" OR B$="r" THEN ZX=3:GOTO 6010
  365. 6000  GOTO 5960
  366. 6010  RETURN
  367. 6940  LOCATE 9,1:PRINT "________________________________________________________________________________";
  368. 6950  LOCATE 10,20:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>, LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE5.2, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  369. 6960  B$=INKEY$:IF B$="" THEN 6960
  370. 6970  IF B$=" " THEN ZX=1:GOTO 7010
  371. 6980  IF B$="E" OR B$="e" THEN ZX=2:GOTO 7010
  372. 6990  IF B$="R" OR B$="r" THEN ZX=3:GOTO 7010
  373. 7000  GOTO 6960
  374. 7010  RETURN
  375.