home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.0 KB  |  38 lines
  1. 5  CLS
  2. 10  KEY OFF
  3. 20  PRINT "                                2.  DISkCOPY  BLOAD<UNK! {00FC}>MOTORAND"
  4. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  DISKCOPY BLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETOPTION<0xB4!>STRING$PSETSCREEN^BEEPTOBLOAD<UNK! {00FC}>MOTORAND, <0xCB!><UNK! {00FC}>LINEFNERL<0xB4!>PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>CLSOR<0xB5!>SOUNDSCREEN^BEEPTOSOUNDVARPTRSCREENOFFOPTION<0xB4!>STRING$PSET<0xB5!>MERGE                     SOUNDCOLORWHILE-PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUNDSCREEN^BEEPTOSOUNDVARPTR,ERLVARPTROPTION<0xB4!>STRING$PSETPSETVARPTRLOAD<0xE4!>,SCREEN=WHILEINSTRSPC(AUTOCOLORKEYTHENDEFSTRLOCATEWHILEOPTIONEQVLOCATEMERGECLOSEDEFDBLSCREEN^BEEPTO."
  5. 50  PRINT "         OPTIONEQVLOCATEMERGE:  DISKCOPY[D:][D:][/1]"
  6. 60  PRINT "         USINGTRONLOCATETHEN:  NOTBLOADCLOSEERRORSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEWENDTAB(LOCATE<UNK! {FDCA}>PRESETERL<0xB4!>PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,<0xB5!>VARPTR<0xB6!><UNK! {FEB2}>TAB(LOCATE<UNK! {FDCA}>PRESETSOUNDCOLORWHILE-PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>."
  7. 70  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>1LOCATERANDOMIZEDISKCOPYSTRING$CLOSEOPTION<0xB4!>STRING$PSETSCREEN^BEEPTO<0xB5!>SOUNDSPC(CLOSEBLOAD>,WENDCLOSERANDOMIZEPOINTSCREEN^BEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>CLS<0xE0!>USRTHENSCREEN=OPENTAB(."
  8. 80  PRINT "                NOTBLOADCLOSEERRORCOLORKEYSPC(ERLSTRING$OPTION<0xB6!>RESUMETHENDEFSTRSPC(CLOSEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>CLOSEIMPWENDCLOSETHENDEFSTR<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>, SCREEN=PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>LOCATEPRESETSTEP<0xE0!>THENDEFSTR<0xB5!>SOUND,ERLIMPSTRING$<0xB4!>                     USRUSR<0xB5!>ERASEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>OPTION<0xB4!>STRING$PSETWEND'USING<UNK! {00F7}>,STEP<0xB5!>THENCALLTO<0xE1!>LOCATESAVENOTBLOADCLOSEERRORERLVARPTRLOCATELOCATE<0xB5!>WHILE<0xB5!>SOUNDLOCATEWHILELOAD<0xE4!>WEND<0xE5!>SCREEN*SCREEN^BEEPTO."
  9. 110  GOSUB 300
  10. 120  BA$=INKEY$
  11. 130  IF BA$=" " GOTO 150
  12. 135  IF BA$="R" OR BA$="r" GOTO 295
  13. 137  IF BA$="E" OR BA$="e" GOTO 297
  14. 140  GOTO 120
  15. 150  CLS: PRINT "         DISKCOPY<0xB5!>SCREEN<0xB4!><UNK! {FDD3}>BLOADCLOSEERROR<0xB4!>IMPSCREEN*SCREENTAB(SPC(CLOSELOAD<UNK! {00FC}>STRING$DEFSNGOPENMODLOADTOUSR<UNK! {00F8}>WEND'USING<UNK! {00F7}>."
  16. 160  PRINT "         OPTION<0xB4!>STRING$PSETTHEN-CALLKEYOPENMOD,PSETMOTORSOUNDCLOSECALL<UNK! {00F6}>STEPSTRING$TO<0xE1!>LOCATESAVE   'CLOSERANDOMIZESPC(AUTOOPTION<0xB4!>STRING$PSETBSAVEXOR ? (y/n)?' ERR<0xE2!>LOCATEPRESETTAB(LOCATESOUND<0xE3!>SPC(AUTOWRITEEQVOPTION<0xB4!>STRING$PSETPSET<0xE4!>          <0xCB!><UNK! {00FC}>BEEPTO,SCREEN=CLOSERANDOMIZESPC(AUTOOPTION<0xB4!>STRING$PSET,ERLIMP<0xB4!>IMPSCREEN* Y,OPTION<UNK! {00F9}>SAVEOFFPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEWEND<0xE5!>SCREEN*BEEPTOPSETDEFSTRLOADTOUSR<UNK! {00F8}>OPTION<0xB4!>STRING$PSET,SCREEN=WENDCLOSESPC(AUTOOPTION<0xB4!>STRING$PSETPSET<0xE4!><0xCB!><UNK! {00FC}>BEEPTO          PSETDEFSTR.ERLIMP<0xB4!>IMPSCREEN* N,MERGE<0xE1!>LOCATE<UNK! {00F8}> DISKCOPYBLOAD<UNK! {00FC}>MOTORAND."
  17. 170  PRINT "         SCREEN=RANDOMIZE<UNK! {00FB}>OPTION<0xB4!>STRING$PSETRANDOMIZE<UNK! {FDB3}>TOSTRING$USR,ERLVARPTRSCREENTAB(SPC(CLOSESCREEN^BEEPTOKEYSTEPNOT<UNK! {00F6}><0xB5!>MERGE<0xB4!>BEEPBEEPTO<0xB4!>^TAB(MOD,ERLIMPDISKCOPYSTRING$OPTIONCALL<UNK! {00F6}><0xB4!>^TAB(MOD<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,         <0xB4!>BEEP<0xB5!>CLSOPENTHENKEYSCREENBLOAD>."
  18. 173  GOSUB 300
  19. 174  B$=INKEY$
  20. 175  IF B$="R" OR B$="r" GOTO 295
  21. 176  IF B$="E" OR B$="e" GOTO 297
  22. 178  IF B$=" " GOTO 180
  23. 179  GOTO 174
  24. 180  KEY OFF:CLS:LOCATE 1,5:PRINT "A>";
  25. 181  LOCATE 8,1:PRINT "________________________________________________________________________________"
  26. 190  LOCATE 9,2:PRINT "MOTORWRITESTEPLINE: USINGLOADWHILEOPTIONSPC(CLOSEOPTION<UNK! {00F6}>SPC(FNNOTUSRSOUNDVARPTRSCREENOFF<0xB5!>SOUNDBEEPTOPSETDEFSTR(MERGEUSRABEEPTO),USINGLOADWHILEOPTIONSPC(CLOSEOPTION<UNK! {00F6}>COLORERRBEEPTO(BBEEPTO),STEPSTRING$MERGERENUMABEEPTOSOUNDVARPTRSCREENOFFOPTION<0xB4!>STRING$PSET<0xB5!>MERGEBBEEPTO";
  27. 200  LOCATE 10,8:PRINT "SAVEDEFINTPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEOPENMOD,WEND<0xE5!>SCREEN*STEP<0xE0!>NOTEDITBEEPTOPSETDEFSTR, PRESET*LOCATE<0xE4!>SCREEN* DISKCOPY A: B:";
  28. 230  LOCATE 1,7:INPUT "  ",B$
  29. 240  IF B$="DISKCOPY A: B:" OR B$="diskcopy a: b:" GOTO 290
  30. 250  FOR I=1 TO 10:LOCATE 2,9:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^TAB(MOD,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                              ":LOCATE 1,7:PRINT "                                                  "
  31. 260  GOTO 230
  32. 290  NAME "C:FFF.BAS" AS "TttBDC.BAS":SYSTEM
  33. 295  CHAIN "ama1",ALL
  34. 297  CHAIN "bm32",ALL
  35. 300  LOCATE 9,1:PRINT "________________________________________________________________________________"
  36. 310  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";
  37. 320  RETURN
  38.