home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BBF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  7.9 KB  |  108 lines
  1. 15  KEY OFF
  2. 20  CLS:LOCATE 1,8:PRINT"                   <0xB5!>VARPTR<0xB6!><UNK! {FED5}>BSAVE   DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDOPTIONBEEPSOUNDANDLOADLINELOCATE<UNK! {00F5}>NOTOR "
  3. 30  PRINT "         <0xB4!>NOTSTEPBSAVESPC(CLOSEERRBSAVECOLORAUTOLOCATELOADTAB(SPC(BLOADPRESETMERGERENUMMERGE<UNK! {00F8}>SCREEN*DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATE<0xB5!>CLS<UNK! {FDBD}>TOFNERROR,ERLVARPTRCOLORAUTOLOCATELOADDOSBLOAD<UNK! {00FC}>MOTORANDLOCATE<0xB5!>CLS<UNK! {FDBD}>TOFNERRORSTRING$DEFSNGPRESETLINE,"
  4. 40  PRINT "     TAB(SPC(BLOADPRESETWHILEINSTRUSR*LOCATEUSINGSTEPSCREENMOTOR<0xCB!>MERGE<0xE2!>DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDNOTUSRRANDOMIZEINSTROPTIONBEEPSOUNDANDLOADLINELOCATE<UNK! {00F5}>NOTOR, ERR<0xE2!>SAVETHENLOCATEPRESETWHILESAVEERRBSAVE<0xB5!>SOUNDSOUNDCOLOR<0xB5!>SOUND.WHILESAVEERRBSAVENOTKEYPSET<0xDF!>MERGEVARPTRUSING+          CALLKEY,USINGNOTWEND<0xCB!><0xB5!>ERASE2MOTORUSRCALL<UNK! {00F6}>MOTOR<0xCB!>OPTION<UNK! {00F7}>MERGEVARPTRWHILE-TO<0xE2!>."
  5. 50  GOSUB 2730
  6. 300  CLS:PRINT "          *************************  USINGNOT WEND<0xCB!> <0xB5!>ERASE 2  *************************"
  7. 340  PRINT "          *   1.  WEND<0xCB!><0xB5!>ERASE<0xCB!><0xB5!>BLOAD<UNK! {00F7}>                        5.  SCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>     *"
  8. 350  PRINT "          *   2.  RANDOMIZEINSTRNOTVARPTRSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*                    6.  DOSBLOAD<UNK! {00FC}>MOTORANDCLS<0xE0!>USRTHEN        *"
  9. 360  PRINT "          *   3.  DOSBLOAD<UNK! {00FC}>MOTORANDWENDTAB(LOCATE<UNK! {FD20}>                    7.  DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDOPTIONEQVLOCATEMERGEWRITE<UNK! {00FB}>OPENBEEP  *"
  10. 370  PRINT "          *   4.  TAB(SOUNDLOAD<UNK! {FEBA}>THENTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>                    E.  THEN<0xCB!><0xB5!>MERGESTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE         *"
  11. 375  PRINT "          *                       8.  <0xCB!>LOADCOLORLOADTO<0xE2!>                              *"
  12. 380  PRINT "          ****************************************************************"
  13. 400  LOCATE 8,10:PRINT "PRESET*LOCATE<0xE4!>SCREEN*SOUND<0xE3!><0xB5!>SOUNDFNELSEERLEQVTROFFRESUME1TROFFDEFINTTROFFDEFINT8CLOSEIMPETROFFDELETE";
  14. 410  LOCATE 8,38:INPUT "  ",BA$
  15. 420  IF BA$="1" GOTO 2300
  16. 430  IF BA$="2" GOTO 2500
  17. 440  IF BA$="3" GOTO 1500
  18. 450  IF BA$="4" GOTO 1700
  19. 460  IF BA$="5" GOTO 2100
  20. 470  IF BA$="6" GOTO 1100
  21. 480  IF BA$="7" GOTO 1300
  22. 485  IF BA$="8" THEN CHAIN "bbf2",ALL
  23. 490  IF BA$="E" OR BA$="e" GOTO 2800
  24. 500  FOR I=1 TO 10:LOCATE 9,10:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*";:NEXT I:LOCATE 9,1:PRINT "                                   "
  25. 510  GOTO 410
  26. 1100  CLS:PRINT "                            6.  DOSBLOAD<UNK! {00FC}>MOTORANDCLS<0xE0!>USRTHEN"
  27. 1120  PRINT "             ERLVARPTRMSTROFFDEFINTDOSSTRING$USR,BLOAD<UNK! {00FC}>MOTORANDWRITESTRING$CALLKEYSOUNDVARPTRWENDCOLORBLOAD<UNK! {00FC}>MOTORAND,THEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDOPENTHENBEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDSCREEN<UNK! {FDC0}><0xE0!>."
  28. 1130  PRINT "         SOUNDVARPTRWENDCOLORBLOAD<UNK! {00FC}>MOTORANDLINE<UNK! {00FC}>OPENDEFSTRERLVARPTRDOSSOUNDVARPTR,CALLTROFFUSINGSWAPSOUNDVARPTR<0xB4!>>,LOCATERANDOMIZENOTBLOADLOCATEWHILEWENDCLOSEERRLOADNOTBLOADWRITESTRING$BEEP<0xE4!>OPTION<UNK! {00F8}>NOTBLOADCLOSEERROR<0xB5!>SOUNDSOUNDVARPTR<0xB4!>>COLORERRLOAD<0xE4!>,<0xCB!><UNK! {00FC}>COLORKEY              SPC(ERLSTRING$WHILEMERGENOTSTRING$<0xB4!>USRUSR,STEPEQVOPTION<0xB4!>STRING$PSETTAB(SOUNDLOAD<UNK! {FE28}>copy)BLOAD<UNK! {00FC}>MOTORAND,MOTORUSRSOUNDCOLORBSAVELOADTROFF(DIR)BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SCREENTAB(AUTOSOUNDVARPTRWENDCOLORBLOAD<UNK! {00FC}>MOTORAND."
  29. 1140  PRINT "         THEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDSTEPEQVCALLTOUSRIMPTAB(SOUNDLOAD<UNK! {FED2}>CLOSEFN<UNK! {00F9}>USINGSWAPMOTOR\ERLVARPTR<0xB4!>BEEPBEEPTOKEYSTEP,LOCATERANDOMIZENOTBLOADLOCATEWHILE<0xB5!><UNK! {00F7}>SCREEN*SOUNDVARPTR<0xB4!>>,NOTBLOADTHEN-OPENMODTHEN<0xCB!>CALL<UNK! {00F6}>WENDTRONRANDOMIZE+CLOSERANDOMIZE              SOUNDVARPTR<0xB4!>>.ERR<0xE2!>SPC(<0xE2!>TAB(<0xB6!>USINGBEEPNOTUSROPTIONBLOADBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUND<0xB4!>BEEPBEEPTOUSR*STEPSCREENERLVARPTRPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>SOUNDVARPTR,WRITEEQVERLIMPDOSERRSPC(WENDCLOSE<0xB5!>MERGEOPTIONBLOADBLOAD<UNK! {00FC}>MOTORAND,<0xB4!><UNK! {00F8}>NOTUSR
  30. 1150  PRINT "         CLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>TAB(AUTO.COMCLOSEIMP.EXE<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB6}>LOADLOCATENOTTAB(AUTOTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORAND,NOTBLOADCLOSEERRORCOLORKEYCOLORAUTOWRITETRONUSINGERLLOADOPEN<0xB6!>CLSMOTORTRON<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORAND,WENDTRON              LINEFN<0xCB!><UNK! {00FC}>BLOADPRESETLOADNOTSCREEN*STEP<0xB5!>THENCALL.STEPMODOPTION<0xB4!>STRING$PSETBEEPTOPSETDEFSTR(DISKCOPY),OPTIONEQVLOCATEMERGECLOSEDEFDBLSCREEN^BEEPTO(FORMAT)SAVE<UNK! {00F9}>TAB(AUTOTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORAND."
  31. 1151  GOSUB 2730
  32. 1170  PRINT "        BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORANDERLIMPLOCATEPRESETNOTKEYSPC(CLOSEUSING+SOUNDVARPTRWENDCOLORBLOAD<UNK! {00FC}>MOTORANDCLOSEIMPTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDUSING+CALLKEY<0xB5!>SOUNDOPTION<0xB4!>OPENSTEPBLOAD<UNK! {00FC}>MOTORAND. BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC0}><0xE0!>USRTHEN              TAB(AUTO.BAT, <0xCB!><UNK! {00FC}>USINGSWAPMOTOR\ERLVARPTR<0xB4!>BEEPBEEPTOKEYSTEP, <0xB5!><UNK! {00F7}>NOTBLOADWRITEMERGEWRITERESUMESCREEN=THENDEFSTRTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORAND. STEPEQVUSINGERL<0xB6!>DEFDBLPSET\<0xB6!>DEFDBLBEEP<UNK! {00FA}><0xB4!>EDITCLS^TAB(SOUNDLOAD<UNK! {FE20}>             (AUTOEXE.BAT)SAVETHENLOCATEPRESETSPC(CLOSEOPTION<UNK! {00F6}>BEEP<UNK! {00FA}>BLOAD<UNK! {00FC}>MOTORAND."
  33. 1200  GOSUB 2730
  34. 1300  CLS:PRINT "                            7.  DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDOPTIONEQVLOCATEMERGEWRITE<UNK! {00FB}>OPENBEEP "
  35. 1320  PRINT "           TAB(SPC(BLOADPRESETMERGERENUMNOTBLOADSTEPBSAVEMOTORUSRWRITE<UNK! {00FB}>OPENBEEPCLS<0xB4!>WHILE^LOCATESAVEDOSBLOAD<UNK! {00FC}>MOTORANDNOTEDITOPTIONBLOADERL<UNK! {00F5}>FN<UNK! {00F9}>LOCATE<0xE4!>SCREEN*."
  36. 1330  PRINT "       1.  NOTBLOADCLOSEERRORERLVARPTR<0xB4!>MODUSR<0xB4!>USINGSTRING$SOUNDOPTIONSTRING$OPTIONCALL<UNK! {00F6}><0xB5!>SOUND<0xB5!>INSTRWRITEMERGE<0xB4!>IMPSCREEN*SOUNDCALLSPC(CLOSEUSINGSTRING$,ERR<0xE2!>USRDELETEUSINGSTRING$TAB(AUTORANDOMIZEINSTRLOAD<UNK! {00FC}>USINGSTRING$.NOTBLOADCLOSEERRORCOLORKEYNOTBLOAD<0xB4!>MODUSR<0xB4!>CLOSEIMP                USRELSEUSR<0xB4!>USINGSTRING$SOUNDOPTIONSCREENTAB(SPC(<0xE2!>USING+OPENSTEP<0xB5!>SOUNDUSRTAB(LOCATEMERGE<0xB4!>IMPSCREEN*RANDOMIZEINSTRLOAD<UNK! {00FC}>USINGSTRING$,DOSMERGERENUMRANDOMIZEINSTRLOAD<UNK! {00FC}>USINGSTRING$WHILE<0xE4!>CLOSECLOSECALLKEY<0xB4!>MODUSR<0xB4!>CLOSEIMPUSRELSEUSR<0xB4!>USINGSTRING$SOUNDOPTION."
  37. 1340  PRINT "       2.  NOTBLOADCLOSEERRORUSR*ERLVARPTRSPC(ERLUSRELSEUSR<0xB4!>USRWHILETO<0xE5!>USINGSTRING$WHILE^LOCATESAVE<0xB5!>SOUND<0xB5!>INSTRWRITEMERGE<0xB4!>IMPSCREEN*SOUNDCALLSPC(CLOSESTEPAND,  SCREEN=ERLVARPTROPTIONEQVLOCATEMERGESTRING$USRCALL<UNK! {00F6}>STEPSTRING$filename               LOCATEWHILE,NOTBLOADCLOSEERRORWHILEINSTRUSR*LOCATE<0xE4!>SCREEN*USINGERLLOADOPEN<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>."
  38. 1350  PRINT "       3.  ERLVARPTRWRITEMERGECLSRESUMEOPENBEEPTROFF([])STRING$USR<0xB5!>SOUNDSTEPANDSOUNDCOLORLOCATEPRESETCOLORKEYFNELSESTEPAND, SCREEN=RANDOMIZE<UNK! {00FB}>SPC(AUTOLINE<UNK! {00FC}>CLSRESUMESCREENTAB(FNELSESTEPANDUSRBEEPSTEPTRON,NOTBLOADCLOSEERRORWENDCLOSEUSR<<0xB4!>IMPNOTELSE                WRITEMERGECLSRESUMEOPENBEEP,MERGE<UNK! {00F6}>SPC(AUTO<0xB4!>IMPNOTELSEWRITEMERGECLSRESUMEOPENBEEPCLSOR<0xB5!>SOUNDUSRBEEPSTEPTRON."
  39. 1353  GOSUB 2730
  40. 1360  PRINT "         4.  NOTKEYSPC(CLOSEOPTION<UNK! {00F6}>LOCATE<UNK! {00FA}>OPTIONPOINTOPTION\COLORAUTO<0xB5!>SOUNDSTEPANDSOUNDCOLORWHILE^LOCATESAVENOTBLOADCLOSEERRORCOLORKEY<0xB4!>IMPSCREEN*<0xCB!><UNK! {00F9}>OPTION\COLORAUTO<0xB5!>SOUNDSTEPANDSOUNDCOLORSTRING$DEFSNGSPC(CLOSE,CLS<UNK! {FDC8}>=ONEDITEDITOFF                  SPC(<0xE2!>LOAD<0xB4!>NOTBLOADCLOSEERRORCOLORKEYSPC(ERL<0xB4!>IMP SCREEN*ONEDITEDITOFF,<0xB5!>RENUMWENDCLOSESOUNDPOINT<0xB4!>IMPSCREEN*MOTORMERGEERR<0xDF!>."
  41. 1370  PRINT "         5.  LOCATEELSEBSAVEERLWRITE<UNK! {00FB}>OPENBEEP(......)WHILE^LOCATESAVENOTBLOADCLOSEERRORCOLORKEYSPC(ERLLINE<0xB4!>USINGERLLOADOPEN<0xB5!>SOUNDSPC(<0xE2!>ERLOPTION<0xB6!><0xE0!><0xB4!>TAB(STRING$INSTROPTION<0xB4!>THENDEFSTRSPC(CLOSEOPTION<UNK! {00F6}>STEPANDSOUNDCOLOR"
  42. 1380  PRINT "         6.  NOTBLOADCLOSEERRORWHILEINSTRUSR*LINE<UNK! {00FC}>CLSRESUMEDOSBLOAD<UNK! {00FC}>MOTORANDOPTIONEQVLOCATEMERGESTRING$USRCALL<UNK! {FDC1}><0xCB!>WRITEMERGECLSRESUMEOPENBEEPOPENTHENLOCATE<UNK! {00FA}>OPTIONPOINTSPC(ERLTHEN<0xE2!><0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRWHILE-<0xB5!><0xE3!>,CLS<UNK! {FDC8}>=<0xB6!>OPEN                  OPENBEEP,<0xB5!>SCREENOPENBEEP,TAB(LOCATEOPENBEEP,USRWHILEOPTIONPOINTCLOSEIMP<0xB5!>RANDOMIZEUSRWHILEOPTIONPOINT."
  43. 1385  GOSUB 2730
  44. 1400  CHAIN "ama1.bas",10,ALL
  45. 1500  CLS:PRINT "                                3.  DOSBLOAD<UNK! {00FC}>MOTORANDWENDTAB(LOCATE<UNK! {FD00}>b4XOR<UNK! {0005}>PRINT "         WENDTAB(LOCATE<UNK! {FDB0}><UNK! {00FC}>OPENDEFSTRERLVARPTRDOSBLOAD<UNK! {00FC}>MOTORANDNOTORSAVE<0xE4!>STRING$USR, <0xCB!><UNK! {00FC}>BLOADPRESETNOTBLOADCLS<0xB4!>SCREENWRITE<0xB6!>RESUMESTEP<0xB5!>THENCALLOPTIONMERGELOADNOTUSRBEEPSTEPTRON,BLOAD<UNK! {00FC}>MOTORANDSTRING$USRNOTUSRSPC(CLOSEWENDCOLORWRITESTRING$WENDTAB(          LOCATE<UNK! {FDCA}>PRESETWHILEINSTRUSR*<0xB5!>SOUND,PSET<0xE4!>NOT<0xE0!><0xB5!>SOUNDLOCATEPRESETSCREENTAB(FNELSE<0xB5!>SOUND.SCREEN=NOTBLOADCLOSEERRORWENDCLOSELINE<UNK! {00FC}>OPENDEFSTRSOUNDCALLUSRDELETEWENDTAB(LOCATE<UNK! {FD2C}>STEP<0xB5!>THENCALLTO<0xE1!>RANDOMIZEDELETESPC(CLOSEOPTION<UNK! {00F6}>SOUNDDEFSTRSCREENSTEPSTRING$<0xB5!>."
  46. 1540  PRINT "          STEPBSAVEBLOAD>LOCATEPRESETWENDTAB(LOCATE<UNK! {FDBC}>LINEPSET<0xE4!><0xB6!>RESUMESPC(<0xE5!>"
  47. 1550  PRINT "      d:  STRING$OPTIONCALL<UNK! {00F6}>NOTBLOADCLOSEERRORUSR*STRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,STRING$OPTION<0xB6!>RESUMELOCATEWHILE,<0xB4!>IMPSCREEN*PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>USINGSTRING$SOUNDOPTIONOPENMODOPTION<UNK! {00FA}>USINGBEEPSPC(CLOSEOPTION<UNK! {00F6}>BLOADLINEOPENBEEP(:),CLS<UNK! {FD20}>B:"
  48. 1560  PRINT "   PATH:  <0xB4!><UNK! {00FA}>WHILE^SOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}><0xB5!>SOUNDBSAVEWRITESAVE<0xB6!>,<0xB4!>IMPSCREEN*SOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>LOCATEWHILENOTKEY<0xB5!>RANDOMIZEUSRWHILEOPTIONPOINTWRITE<UNK! {00FB}>OPTION\COLORAUTO,SCREEN=TO^LOADNOTSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,USR*ERLVARPTR               USINGANDOPENMODSOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>OPENMODNOTBLOAD<0xB5!>RANDOMIZEUSRWHILEOPTIONPOINTMERGERENUMPSET<0xE4!>OPTION\COLORAUTO,LOCATEELSEBSAVEERL<0xB5!>VARPTRSPC(CLOSEOPTION<UNK! {00F6}><0xB5!>RANDOMIZEUSRWHILEOPTIONPOINTSPC(<0xE2!>TAB(<0xB6!>USINGBEEP<0xB4!>NOT<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADCOLORAUTOLOCATELOAD,              CLS<UNK! {FD5C}>DIR|\FILE"
  49. 1563  GOSUB 2730
  50. 1570  PRINT "     FILENAME:  <0xB4!>BEEPBEEPTOTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,CALLSWAP<0xB6!>SCREENTAB(AUTO1-8OPTION<UNK! {00F6}>USINGSTRING$WRITE<UNK! {00FB}>,PSET<0xE4!>OPENMODCOLORKEYOPTION<UNK! {00FA}>CLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>."
  51. 1580  PRINT "     .EXT:  NOTKEYSPC(CLOSEOPTION<UNK! {00F6}>SAVE<0xE4!>OPENBEEPOPENTHEN1-3USINGSTRING$WRITE<UNK! {00FB}>USING+CALLKEY<0xB5!>SOUNDSCREENTAB(FNELSETAB(SOUNDLOAD<UNK! {FEC0}>DELETEERRRANDOMIZEBLOAD<UNK! {00FB}>.LOCATERANDOMIZENOTBLOADLOCATEWHILEMERGE\MERGENOTERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>STRING$DEFSNGOPENMOD."
  52. 1590  PRINT "     FILESPACE:  TAB(SOUNDLOAD<UNK! {FED2}><UNK! {FDD3}>BLOADBLOAD<UNK! {00FB}>,NOTKEYBEEPTOBLOAD<UNK! {00FB}>,TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,CLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>SCREEN<UNK! {FDB2}>COLORWRITESTRING$USING+CALLKEY,BEEPTOBLOAD<UNK! {00FB}>LOADLINECLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>COLORKEYSCREENWHILELOCATEELSE."
  53. 1600  GOSUB 2730
  54. 1700  CLS:PRINT"                              4.  TAB(SOUNDLOAD<UNK! {FEBA}>THENTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>"
  55. 1720  PRINT "         TAB(SOUNDLOAD<UNK! {FECA}>PRESETSAVE<0xDF!>NOTUSRBLOAD<UNK! {00FB}>USINGSTRING$<0xB5!>SOUNDSPC(CLOSEUSING+STEP<0xE0!>RANDOMIZEINSTRUSRBEEPSTEPTRON<0xB5!>SOUNDLOADDEFDBLOPENSTEP, MS-DOSSTEPBSAVE<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRCALLTOUSRIMPOPENTHENLOCATE<UNK! {FDBE}>OFF<0xB6!>LOADLOCATEPRESETSPC(ERL          TAB(SOUNDLOAD<UNK! {FEB5}>SOUNDUSRTAB(LOCATEMERGE<0xB4!>><0xB4!>TRONERLVARPTR<0xB4!>BEEPBEEPTOKEYSTEP, TAB(AUTOPRESET<UNK! {FDB6}>DEFDBLWENDCLOSETHENDEFSTRTAB(SOUNDLOAD<UNK! {FE2C}>SPC(ERLWHILE<0xE3!>TAB(SOUNDLOAD<UNK! {FED6}><0xB4!>USRUSR,USRINKEY$OPTIONSOUND,LOAD/<0xCB!><UNK! {00F7}>,TAB(SOUNDLOAD<UNK! {FED0}>*NOTUSR"
  56. 1730  PRINT "     OPTION<UNK! {00F6}>WHILE-STRING$SAVE,TAB(SPC(BLOADPRESETCALLPSET<0xB4!><0xCB!>WHILE-STRING$SAVETAB(AUTOTAB(SOUNDLOAD<UNK! {FED2}><UNK! {FDD3}>BLOADBLOAD<UNK! {00FB}>,SPC(<UNK! {FDD3}>BLOADBLOAD<UNK! {00FB}>NOTKEYBEEPTOWRITE<UNK! {00FB}>,TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPENTHENCLS<0xE0!>USRTHENBLOAD<UNK! {00FB}>SCREEN<UNK! {FDB2}>COLORWRITESTRING$USING+CALLKEY,          PSET<0xE4!>STRING$USRBEEPTOWRITE<UNK! {00FB}>OPENTHENTAB(SOUNDLOAD<UNK! {FEC0}><0xE0!>USRTHENBLOAD<UNK! {00FB}>COLORKEYSCREENWHILELOCATEELSE,BEEPTOWRITE<UNK! {00FB}>SCREENWHILELOCATEELSELOCATEWHILEWHILE^LOCATESAVETAB(SOUNDLOAD<UNK! {FECB}><UNK! {00F9}>ERLVARPTRBEEPTOTAB(AUTO<0xB5!>WHILEPRESETLINEBEEPTO."
  57. 1750  PRINT "     SPC(<UNK! {FDD3}>BLOADBLOAD<UNK! {00FB}><0xB5!>SOUNDOPTIONEQVLOCATEMERGESCREEN=STEPBSAVE: [<BEEPTOWRITE<UNK! {00FB}>>] <TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>> [.<CLS<0xE0!>USRTHENBLOAD<UNK! {00FB}>>]
  58. 1770  PRINT "         PSET<0xE4!>STRING$USRBEEPTOWRITE<UNK! {00FB}>TAB(AUTOA:,B:,C:CLOSEIMPD:WHILE^LOCATESAVETAB(SOUNDLOAD<UNK! {FECB}><UNK! {00F9}>ERLVARPTR<0xB5!>SOUNDBEEPTOWRITESTRING$WHILEXORTAB(AUTOABEEPTO,BBEEPTO,CBEEPTO,CLOSEIMPDBEEPTO.TAB(SOUNDLOAD<UNK! {FE20}>         BLOAD<UNK! {00FB}>OPENTHENCLS<0xE0!>USRTHENBLOAD<UNK! {00FB}>NOTKEYWENDCLOSE<0xB6!><0xE0!>NOTVARPTR8OPTION<UNK! {00F6}>OPENTHEN3OPTION<UNK! {00F6}>ASCIIUSINGSTRING$WRITE<UNK! {00FB}>USING+CALLKEY.";
  59. 1800  GOSUB 2730
  60. 1860  PRINT "         ERR<0xE2!>USRDELETEUSINGSTRING$WRITE<UNK! {00FB}>COLORKEYSPC(ERLLOCATEPRESETSTEPBSAVEMOTORUSRUSINGSTRING$WRITE<UNK! {00FB}>: A--Z,0--9,$,#,@,!,%,(,)"
  61. 1865  PRINT "         NOTBLOADCLOSEERRORBLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>TAB(SOUNDLOAD<UNK! {FECA}>WHILE,USINGANDOPENBLOADFNELSENOTBLOADNOT*TAB(SOUNDLOAD<UNK! {FEC4}>VARPTRSCREENOFFCLOSEIMPUSRERLSTRING$LOCATESTEP<0xE0!>RANDOMIZEINSTR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>.MOTOR^THEN<0xE2!>,ERLVARPTRTHENDEFSTRSPC(CLOSEBEEPTO               KEYSTEP,TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>WENDCLOSESOUNDPOINTSTEP<0xE0!>THENDEFSTR."
  62. 1870  PRINT "         <0xB6!>ERLNOTVARPTRCLS<0xE0!>USRTHENBLOAD<UNK! {00FB}>,ms-dosNOTUSRSPC(CLOSE<0xB6!>RESUME<0xB5!>SOUNDERLLOAD<0xB6!>RESUME,STEPBSAVEBLOAD>LOCATEPRESETSCREEN\OPTIONKEYCALLTROFFNOTBLOADTAB(SOUNDLOAD<UNK! {FEC0}><0xE0!>USRTHENBLOAD<UNK! {00FB}>LOADLINEPSET<0xE4!>OPENDEFSTRSPC(<0xE5!>:"
  63. 1880  PRINT "         .com  COLORKEYSTRING$<0xB4!>USRUSR<0xB5!>SOUND<0xB6!><UNK! {FEBD}><UNK! {00F8}>STRING$PSET<0xB4!><UNK! {00FA}>BSAVE*TAB(SOUNDLOAD<UNK! {FE20}>                                                   .exe  COLORKEYSTRING$<0xB4!>USRUSR<0xB5!>SOUNDOPTIONELSE<0xB6!>DEFDBL<0xB4!><UNK! {00FA}>BSAVE*TAB(SOUNDLOAD<UNK! {FE22}>
  64. 1890  PRINT "         .bat  COLORKEYSTRING$<0xB4!>USRUSR<0xB5!>SOUNDBEEP<UNK! {00FA}><0xB4!>EDITCLS^TAB(SOUNDLOAD<UNK! {FE20}>                                                       .sys  STEP<0xB5!>THENCALLTAB(SOUNDLOAD<UNK! {FE22}>
  65. 1894  GOSUB 2730
  66. 1900  PRINT "         .BAK  WHILE<0xE0!>LOADDEFINTCALLTOUSRIMP<0xB5!>SOUNDOPENMODWHILEOPTIONTAB(SOUNDLOAD<UNK! {FE20}>                                                       .OBJ   SOUNDCOLORWHILE-BSAVE*TAB(SOUNDLOAD<UNK! {FE22}>
  67. 1920  PRINT "         .LST  MOTORUSRWHILE^TAB(SOUNDLOAD<UNK! {FE00}>/0"         MS-DOSCALL<UNK! {FDB4}>BEEPBEEPTOTAB(SOUNDLOAD<UNK! {FECD}><0xE2!>,CLOSERANDOMIZELINEFNSPC(CLOSEUSRDELETECALLTROFFNOTBLOAD<0xB5!>SOUNDWHILE-USINGLOADTHEN<0xE2!>WENDCOLORKEY<WHILEOPTIONSPC(WENDCOLOR<0xB4!>USING<UNK! {00F7}>TAB(SOUNDLOAD<UNK! {FE28}>CALLPSETTAB(AUTOKEY<WHILEOPTIONTAB(SOUNDLOAD<UNK! {FE29}>,     SPC(ERLWHILE<0xE3!>NOTVARPTROPENTHEN<0xB4!>BEEPBEEPTOTAB(SOUNDLOAD<UNK! {FEBD}><UNK! {00F8}>USRUSRTHENCALLSPC(CLOSEWEND'USING<UNK! {00F7}><0xB4!>EDITCLS^.ERR<0xE2!>USRDELETEKEY<WHILEOPTIONTAB(SOUNDLOAD<UNK! {FEBF}>KEYLOCATERANDOMIZENOTBLOADERLVARPTRLOCATE<UNK! {FDBE}>OFF<0xB4!>RENUMLOCATE<0xE4!>CLS<0xE0!><0xB5!>SOUNDLOAD<UNK! {00FC}>BEEPTOBLOAD<UNK! {00FC}>MOTORAND       STRING$USR,CALLTROFFNOTBLOAD<0xB5!>SOUNDKEY<WHILEOPTIONTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>NOTUSR"
  68. 2010  PRINT "         COM:  COLORINSTRSTRING$PSETTORESUMELOAD<UNK! {00FC}>BEEPTO/PSETMOTORSOUNDCLOSE          PRN:CLOSEIMPLPTL:WENDTRONUSRUSR<0xB4!>IMPNOTELSECLOSE<UNK! {00FA}>"
  69. 2020  PRINT "         AUX:CLOSEIMPCOM:  <0xB4!>DEFSNGUSRUSRLOCATE<0xE4!>SCREEN*LOCATE<0xE4!>CALL<UNK! {00F6}>KEY<WHILEOPTION   NUL:  USR+KEY<WHILEOPTION"
  70. 2030  GOSUB 2730
  71. 2100  CLS:PRINT "                            5.  SCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>"
  72. 2120  PRINT "         ERLVARPTRSPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>LOADLINECLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>STRING$USR,COLORKEYSPC(ERLLOCATERANDOMIZENOTBLOADMOTORMERGEOPTION<UNK! {00F6}>USINGRESUMENOTBLOAD<0xB5!>SOUNDUSINGSTRING$WRITE<UNK! {00FB}> '?'OPENTHEN '*',ERR<0xE2!>MOTORMERGEOPTION<UNK! {00F6}>USINGSTRING$WRITE<UNK! {00FB}>          MERGEUSRSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>.ERR<0xE2!>USRDELETEUSINGRESUMENOTBLOADUSINGSTRING$WRITE<UNK! {00FB}>OPTION<UNK! {00F8}>NOTBLOADCLOSEERRORLOCATERANDOMIZENOTBLOADDOSBLOAD<UNK! {00FC}>MOTORAND<0xB4!><UNK! {00F8}>CLS<0xB4!>MERGESTEP<0xB4!>MOD<0xB5!>SOUNDMOTOR+CLOSEANDUSRERL."
  73. 2140  PRINT "        '?'USINGSTRING$WRITE<UNK! {00FB}>: ERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CLOSEIMPTAB(SOUNDLOAD<UNK! {FEC0}>DELETEERRRANDOMIZEBLOAD<UNK! {00FB}>STRING$USR'?'WHILE^LOCATESAVEERLVARPTR?TAB(CLOSESTRING$BLOADKEYSTEPLOCATEPRESETSCREENTAB(SPC(CLOSEUSINGSTRING$WRITE<UNK! {00FB}>.CLS<UNK! {FD20}>A?.BAS        ERLIMPWHILE^LOCATESAVESPC(ERLA<0xB4!>IMPTHENWRITE<0xB5!>SOUNDMOTORMERGEOPTION<UNK! {00F6}>USINGSTRING$WRITE<UNK! {00FB}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}><0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSR.BASTAB(SOUNDLOAD<UNK! {FE2E}>"
  74. 2160  PRINT "       '*'USINGSTRING$WRITE<UNK! {00FB}>: ERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CLOSEIMPTAB(SOUNDLOAD<UNK! {FEC0}>DELETEERRRANDOMIZEBLOAD<UNK! {00FB}>STRING$USR<0xB5!>SOUND'*'OPENBEEPWHILE^LOCATESAVE<0xB4!>NOT*TAB(CLOSESTRING$BLOADCOLORAUTOLOCATELOAD<0xB5!>MERGESTEPBSAVESPC(CLOSELOAD<0xE4!>OPTION\WRITE<UNK! {00FB}>(CLOSEIMP        COLORERROPTIONEQV)STRING$DEFSNGLOAD<0xE4!><0xB5!>SOUNDSCREENTAB(SPC(CLOSEUSINGSTRING$WRITE<UNK! {00FB}><0xB4!>DEFSNG.CLS<UNK! {FD20}>*.BASERLIMPWHILE^LOCATESAVE<0xCB!><UNK! {00F9}>NOTUSRCLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>TAB(AUTO.BAS<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2E}>"
  75. 2180  GOSUB 2730
  76. 2290  GOTO 1100
  77. 2300  CLS:PRINT "                              1.  WEND<0xCB!><0xB5!>ERASE<0xCB!><0xB5!>BLOAD<UNK! {00F7}>"
  78. 2320  PRINT "         WHILESAVEMERGETOCALLTOLOCATERANDOMIZENOTBLOADWEND<0xCB!><0xB5!>ERASELOADLOADLOCATE<UNK! {00F5}>.<0xB5!>WHILESPC(CLOSEOPTION<UNK! {00F6}>CALLTOUSRIMPSAVE<0xDF!>NOTUSRSCREEN\OPTIONKEYSTEPANDRANDOMIZEDELETENOTBLOADCLOSEERRORFNELSEERLEQV<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTLOCATEWHILE,SPC(CLOSELINE<0xE3!><0xB6!>LOADLOCATERANDOMIZENOTBLOAD        MERGECLOSECLOSECLOSELOADLOADLOCATE<UNK! {00F5}>MERGE<UNK! {00F8}>USRUSRWRITESTRING$STRING$ERROR<0xB4!>EDITCLS^,LOCATE<0xB5!>STEPSTRING$<0xB5!>SOUNDRANDOMIZE<UNK! {FDB3}>TOLOCATEPRESETCALLTOUSRIMPLOCATEUSINGSTEPSCREENSTEPERLLOCATESAVECALL<UNK! {00F6}><0xCB!><UNK! {00F9}>SOUNDPOINTTHEN-CALLKEY<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTBLOAD<UNK! {00FB}>CALLPSET,NOTBLOADCLOSEERROROPTION<UNK! {00F9}> "
  79. 2330  PRINT "     SAVEOFFUSR<SPC(AUTOSTRING$OPTIONCALL<UNK! {00F6}>STEPTROFFTHEN<UNK! {00FB}>THEN-CALLKEY<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTOPENBEEP, CALLTOUSRIMPWRITESTRING$TAB(<UNK! {00F6}>NOTBLOADCLOSEERROR<0xB5!>SOUNDLOCATE<0xE4!>SCREEN*WENDTRON<0xB5!><UNK! {00F7}>NOTBLOADWENDCLOSETHENDEFSTR<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTCOLOR+MERGE<UNK! {00F8}>USRUSR<0xB4!>EDITCLS^,       SPC(IMPTAB(AUTOERR<0xE2!>STRING$STRING$WRITEMERGEWRITERESUMECLS<0xE0!><0xCB!>PSETWENDTHENRANDOMIZEOFF<0xB5!>SOUND<0xB5!><0xE3!>WEND<0xCB!>WRITEMERGELOCATEMERGE,RANDOMIZELOCATECALLPSETTAB(AUTOWEND<0xCB!><0xB5!>ERASELOADLOADLOCATE<UNK! {00F5}>."
  80. 2340  PRINT "          WHILESAVEMERGETOCALLTOWRITESTRING$TAB(AUTOSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE,USINGNOTWEND<0xCB!><0xB5!>ERASE, STRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASESTEPERLLOCATESAVEWHILESAVEMERGETOCALLTOOPTION<UNK! {00F7}>ERRBSAVE<0xB5!>SOUNDSOUNDVARPTRSCREENOFFRANDOMIZEDELETESOUND<0xE3!>FNELSEERLEQV,USINGNOTWEND<0xCB!><0xB5!>ERASESTEPERL"
  81. 2350  PRINT"      LOCATESAVEBLOADCOLORERRBSAVEOPTION<UNK! {00F7}>MERGEVARPTR<0xB5!>SOUNDSOUNDVARPTRSCREENOFFRANDOMIZEDELETESOUND<0xE3!>FNELSEERLEQV.THENRESUMERANDOMIZE<UNK! {FDCF}><0xE0!>NOTEDIT<0xB5!>SOUNDWEND<0xCB!><0xB5!>ERASEFNELSEERLEQV,SOUND<0xE3!>SAVETHENCOLORKEYSPC(ERLCLOSEEQV<0xB5!>BLOADSTEPTROFFTHEN<UNK! {00FB}>MOTOR<0xCB!>MERGE<0xE2!><0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINT."
  82. 2360  PRINT "          <0xB4!>NOTUSINGNOTWEND<0xCB!><0xB5!>ERASEFNELSEERLEQVRTHEN<0xCB!>CALL<UNK! {00F6}><0xB5!>WHILEPRESETLINEUSINGNOTWEND<0xCB!><0xB5!>ERASE,MERGE<UNK! {00F8}>SCREEN*STRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE,<0xB4!>NOTSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASEFNELSEERLEQVQCOLORKEYTHEN<0xCB!>CALL<UNK! {00F6}>MERGETOCALLTOSTEP<0xB5!>THENCALL."
  83. 2390  GOSUB 2730
  84. 2500  CLS:PRINT "                            2.  RANDOMIZEINSTRNOTVARPTRSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*"
  85. 2520  PRINT "         TAB(AUTOMOTOR<0xCB!>WHILE<0xE3!>NOTVARPTROPENOPENUSINGSTRING$LOCATE<0xE4!>SCREEN*LOADLINESTEPERLLOCATESAVE, TAB(SPC(BLOADPRESET<0xCB!><UNK! {00F9}>LOCATERANDOMIZENOTBLOAD<0xB5!>SOUNDLOCATE<0xB5!>LOADLOCATEKEYSTEPLOCATEPRESETSTRING$USRTAB(<UNK! {00F7}>TAB(SOUNDDOS,STRING$USRTAB(<UNK! {00F7}>TAB(SOUNDDOSWHILETROFFMOTOR\MOTOR<0xCB!>"
  86. 2530  PRINT "     ERLDEFINTMS-DOS<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINT.<0xCB!><UNK! {00FC}>SOUNDPOINT<0xB6!>ERLSTRING$USRTAB(SOUNDCLOSEIMPTAB(<UNK! {00F7}>TAB(SOUNDMERGE<UNK! {00F8}>USRUSRSTEPERLLOCATESAVE,<0xB4!>EDITCLS^,LOCATE<0xE4!>CALL<UNK! {00F6}>LOADLINEWEND'USING<UNK! {00F7}>."
  87. 2540  PRINT "         STRING$USRTAB(<UNK! {00F7}>TAB(SOUNDDOSERLLOCATEUSR^LOCATERANDOMIZENOTBLOADTAB(<UNK! {00F7}>TAB(SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>, SPC(WENDERLLOCATEUSR^LOCATERANDOMIZENOTBLOADSTRING$USRTAB(SOUNDCLOSEIMPSTRING$USRTAB(<UNK! {00F7}>TAB(SOUNDCLOSE/OPENSTEP<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>, SPC(CLOSEOPTION<UNK! {00F6}>"
  88. 2550  PRINT "     STRING$USRTAB(SOUNDERRLOADMOTORMERGEOPTION<UNK! {00F6}>ASCIIBSAVE*USINGSTRING$WRITE<UNK! {00FB}>TAB(CLOSE.TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}><0xB5!>SOUNDCALLSWAP<0xB6!>SCREENSPC(WENDSPC(AUTOUSINGEQVFNDEFINTTAB(<UNK! {00F7}>TAB(SOUNDWENDCLOSECALLDEFSTRRANDOMIZE<UNK! {FD38}>OPTION<UNK! {00F6}>ASCIIUSINGSTRING$WRITE<UNK! {00FB}><0xB5!>SOUNDRANDOMIZE><0xB6!>RESUME"
  89. 2560  PRINT "         ERLVARPTRSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*PRESETLINE,LOCATEUSINGSTEPSCREENUSR*NOTBLOADRANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>FNELSEERLEQVSOUND<0xE3!><0xCB!><UNK! {00F9}>SPC(AUTO<0xB5!>SOUNDSTRING$USRTAB(SOUNDWHILE<0xE0!>BSAVE*WRITEMERGELOCATEMERGE,OPTION<UNK! {00F7}>RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>WRITESTRING$BEEP<0xE4!>SCREEN=STEPBSAVE:"
  90. 2578  IF BA$="R" OR BA$="r" GOTO 300
  91. 2580  PRINT "         ALT+F1  TAB(AUTOPRESET<UNK! {00F8}>TAB(CLOSEBSAVE*LOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGE                                                        ALT+F2  TAB(AUTOLOCATEUSINGTAB(WENDBSAVE*LOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGE"
  92. 2590  GOSUB 2730
  93. 2599   PRINT "         ALT+F3  TAB(AUTOPSET<0xB4!>SPC(\LOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGE         ALT+F4  TAB(AUTOCOLOR/<0xCB!>'LOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGE"
  94. 2600  PRINT "         CTRL+F8  TAB(AUTOMERGERESUMEMOTORTRONUSINGERL<0xB6!>DEFDBLRANDOMIZE<0xE2!>WHILE-OPENTHENSCREENELSESTEP<UNK! {00FB}>USINGERL<0xB6!>DEFDBLRANDOMIZE<0xE2!>WHILE-USINGAUTOCLOSECLOSE                                       CTRL+F9  TAB(AUTOMERGERESUMEMOTORTRON<0xB4!>COLORSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*OPENTHENSCREENELSESTEP<UNK! {00FB}><0xB4!>COLORSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*<0xB5!>SOUNDUSINGAUTOCLOSECLOSE"
  95. 2650  PRINT "         ALT+F6   TAB(AUTOASCIIBSAVE*LOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGE                                                      CTRL+F7  TAB(AUTO<0xB4!>COLORTAB(<UNK! {00F7}>TAB(SOUNDOPENTHEN<0xB4!>COLORSTRING$USRTAB(SOUNDWRITEMERGELOCATEMERGEUSINGAUTOCLOSECLOSE"
  96. 2670  PRINT "         CTRL+F10 TAB(AUTOFNELSEERLEQV<0xB4!>IMPNOTELSECLOSE<UNK! {00FA}>USINGSTRING$USRTHENOPENTHENSTRING$MERGECOLOR^<0xB5!>SOUNDWRITEMERGELOCATEMERGE"
  97. 2680  PRINT "         ERLVARPTRSTRING$USRTAB(SOUNDLOCATE<0xE4!>SCREEN*WRITEMERGELOCATEMERGESTEPBSAVE,PSETMOTORSOUNDCLOSEUSINGANDSTEPBSAVEBLOAD>SPC(CLOSEUSRUSRLOCATEPRESETSTEP<0xB5!>THENCALLTO<0xE1!>LOCATESAVEUSRUSR,NOTBLOADCLS<0xB4!>STEPERLLOCATESAVELOCATE<0xE4!>SCREEN*WRITEMERGEWRITERESUMELOADLINEWEND+BSAVE*"
  98. 2690  PRINT "         OPENOPENUSINGSTRING$OPENTHENSTRING$INSTRBSAVE*OPTION<UNK! {00F6}>LOCATE<UNK! {FD2E}>        NOT<UNK! {00FB}>STRING$AUTOSTEP-STEPOPTION,PRESET*COLOR<0xB4!>STRING$USRTAB(<UNK! {00F7}>TAB(SOUNDDOS,LOAD<0xB4!>CCDOSLOCATERANDOMIZENOTBLOADSTRING$OPTIONSOUNDSTEP"
  99. 2700  GOSUB 2730
  100. 2710  GOTO 1500
  101. 2730  LOCATE 9,1:PRINT "________________________________________________________________________________"
  102. 2740  LOCATE 10,30: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";
  103. 2750  BA$=INKEY$
  104. 2760  IF BA$=" " THEN 2780 ELSE IF BA$="e" OR BA$="E" THEN 300 ELSE IF BA$="r" OR BA$="R" THEN 1400 ELSE 2750
  105. 2780  CLS
  106. 2790  RETURN
  107. 2800  CHAIN "ama1.bas",10,ALL
  108.