home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BCP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.4 KB  |  52 lines
  1. 5  CLS
  2. 10  KEY OFF
  3. 20  PRINT "                                7.  COMP  BLOAD<UNK! {00FC}>MOTORAND"
  4. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  LINEFN<0xB5!>VARPTRSPC(CLOSEUSING+STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDVARPTRSCREENOFFNOT*<0xB5!>VARPTR<0xB6!><UNK! {FED7}>+STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDVARPTRSCREENOFFMERGE<UNK! {00F8}>USRUSRWHILESCREENMERGESTEP,THENRESUME                    CALLTROFFNOTBLOADCLOSEERRORERLVARPTRWEND'USING<UNK! {00F7}>COPYBLOAD<UNK! {00FC}>MOTORANDSTRING$DEFSNGOPENMODSTRING$<0xB4!>USRUSRCOMPBLOAD<UNK! {00FC}>MOTORANDSPC(ERLWHILETROFFSTRING$SWAPMOTORMERGEUSING+TAB(SOUNDLOAD<UNK! {FECF}><0xE0!>THENDEFSTR."
  5. 40  PRINT "         OPTIONEQVLOCATEMERGE:  COMP [d:] [path] [filename.exe]
  6. 50  PRINT "         USINGTRONLOCATETHEN:  NOTBLOADCLOSEERRORSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEOPTION<UNK! {00F6}>WENDTAB(LOCATE<UNK! {FDCA}>PRESETERLDEFINTLOCATELOADTAB(SOUNDLOAD<UNK! {FE2C}> <0xB5!>VARPTR<0xB6!><UNK! {FEB8}><UNK! {00F6}>LOCATEPRESETOPTIONRESUMESTRING$<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FE2C}>NOTBLOADCLOSEERROR<0xCB!><UNK! {00F9}>WHILESCREENMERGESTEP                      <0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEBF}>KEYERLVARPTRTHENDEFSTRSPC(CLOSECLOSEIMPWENDCLOSETHENDEFSTR<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>KEYSTEP,<0xCB!><UNK! {00FC}>BLOADPRESETSPC(<0xE0!>COLORKEYERLVARPTRTHENDEFSTRSPC(CLOSECLOSEIMPWENDCLOSETHENDEFSTRSOUNDCOLORBSAVELOAD,SCREENRENUM                      SAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>SPC(WENDCOLORKEYNOTBLOADERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>STRING$USR.ERLVARPTRWHILESCREENMERGESTEPPSETVARPTRLOAD<0xE4!>,BLOADCOLOR<0xB5!>WHILENOT<UNK! {00F6}><0xB5!>MERGEMOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FED6}>USR"
  7. 70  PRINT "                 LINE<UNK! {00FC}>OPENDEFSTRLOCATEERRORBEEP<0xE4!>USRBEEPSTEPTRON<0xB5!>SOUND<0xB5!>INSTRWRITEMERGE<0xB6!>LOADMERGERENUMSTEPERLLOCATESAVECALL<UNK! {00F6}><0xB4!>^USRBEEPSTEPTRON."
  8. 80  LOCATE 9,1:PRINT "______________________________________________________________________________"
  9. 85  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";
  10. 90  B$=INKEY$
  11. 100  IF B$=" " GOTO 140
  12. 110  IF B$="E" OR B$="e" GOTO 510
  13. 115  IF B$="r" OR B$="R" GOTO 520
  14. 120  GOTO 90
  15. 140  CLS
  16. 170  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________"
  17. 200  LOCATE 9,5:PRINT "MOTORWRITESTEPLINE : TAB(SPC(BLOADPRESETCALLTOUSRIMPBEEPTOKEYSTEPNOTUSRMOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FE2C}>SOUND<0xE3!>COLORKEYSPC(ERLWHILESCREENMERGESTEP<0xCB!><UNK! {00FC}>LOCATEPRESETWRITEEQVSTEP<0xE0!>THENDEFSTR.PRESET*<0xB4!>IMPSCREEN*";
  18. 210  LOCATE 10,5:PRINT "       COMP C:A.BAS C:B.BAS";
  19. 215  LOCATE 1,7:INPUT "  ",B$
  20. 220  IF B$="comp c:a.bas c:b.bas" OR B$="COMP C:A.BAS C:B.BAS"  GOTO 260
  21. 230  FOR I=1 TO 10:LOCATE 2,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                                      ":LOCATE 1,7:PRINT "                                             "
  22. 240  GOTO 215
  23. 260  FOR I=1 TO 10:NEXT I:LOCATE 2,20:PRINT "TAB(SOUNDLOAD<UNK! {FEB1}>SCREENMERGESTEPERR<UNK! {FDC8}>WRITE "
  24. 270  LOCATE 9,5:PRINT " WHILESCREENMERGESTEPMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>,ERR<0xE2!>MOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FECD}>-SCREENRENUMSPC(CLOSESTRING$BSAVE                                               ";
  25. 280  LOCATE 10,1: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";
  26. 290  B$=INKEY$
  27. 300  IF B$=" " GOTO 500
  28. 310  IF B$="E" OR B$="e" GOTO 510
  29. 315  IF B$="R" OR B$="r" GOTO 520
  30. 320  GOTO 290
  31. 340  SYSTEM
  32. 345  CLS
  33. 346  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________"
  34. 350  PRINT "     MOTORWRITESTEPLINE2:  STEPSTRING$ERLVARPTRTAB(SPC(BLOADPRESETNOTBLOAD<0xCB!>RENUMSCREEN^BEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>WHILESCREENMERGESTEPBLOAD<UNK! {00FC}>MOTORANDWHILESCREENMERGESTEPOPTIONERRCOLORMERGEWHILE<0xB4!><0xB5!>SOUNDMOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FE2E}>SCREEN=RANDOMIZE<UNK! {00FB}>SOUND<UNK! {00FA}>LOCATERANDOMIZENOTBLOAD<0xB5!>SOUND";
  35. 360  PRINT "             WENDCLOSELOCATEPRESET<0xCB!>RENUMSCREEN^BEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,PRESET*LINE<0xB4!>ELOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>,WRITEEQVERLIMPPRESET*LOCATE<0xE4!>SCREEN* COMP A:BDR.BAS B:A.BAS";
  36. 370  LOCATE 1,7:INPUT " ",B$
  37. 380  IF B$="E" OR B$="e" GOTO 500
  38. 390  IF B$="COMP A:BDR.BAS B:A.BAS" OR B$="comp a:bdr.bas b:a.bas" GOTO 410
  39. 400  GOTO 370
  40. 410  NAME "fff.bas" AS "tttbcp.bas":SYSTEM
  41. 450  PRINT "    KEYSTEPBLOAD>STEPERLLOCATESAVESTRING$OPTIONCALL<UNK! {00F6}>MOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEB2}>CLOSEPSETERASEBEEP<0xE4!>"
  42. 460  PRINT "    STRING$MOTOR<0xB4!><0xCB!>,SOUND<0xE3!>SPC(FNMOTORWRITESTEPLINEMOTOR<0xCB!>COMPBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD"
  43. 470  LOCATE 10,30:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  44. 475  B$=INKEY$
  45. 480  IF B$="e" OR B$="E" GOTO 510
  46. 486  IF B$=" " GOTO 500
  47. 490  IF B$="R" OR B$="r" GOTO 520
  48. 495  GOTO 475
  49. 500  CHAIN "brm",10,ALL
  50. 510  CHAIN "bm32",ALL
  51. 520  CHAIN "ama1",ALL
  52.