home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.8 KB  |  36 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                1.  DIR  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  DIRBLOAD<UNK! {00FC}>MOTORANDLOCATEPRESETMOTORUSRCALL<UNK! {00F6}>BEEPTOPSETDEFSTRSOUNDCOLORBSAVELOADBLOAD<UNK! {00FC}>MOTORAND,<0xCB!><UNK! {00FC}>LOADSCREENSOUNDPOINTMOTORUSRCALL<UNK! {00F6}>BEEPTOPSETDEFSTRKEYSTEP<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRSOUNDCOLORBSAVELOADSTEPAND,SPC(WENDSOUNDPOINT                     MERGE<UNK! {00F6}>MOTORUSRCALL<UNK! {00F6}>STRING$OPTION<0xB6!>RESUMETAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDCOLORBSAVELOADSTEPAND,STEPERLLOCATESAVEPSET<UNK! {00F7}>KEYSTEPTO<0xE1!>RANDOMIZEDELETE<0xB5!>SOUNDUSRBEEPSTEPTRON, LINE<UNK! {00FC}>CLSRESUMEBEEPTOWHILE-STRING$SAVEOPENTHENBEEPTOPSETDEFSTR"
  4. 40  PRINT "                KEYSTEPLOCATETROFFSTEPBSAVE<0xB5!>SOUNDUSINGERLNOTKEYCOLORERRLOAD<0xE4!>LOCATE<UNK! {FDC1}>COLOR, OPTION<UNK! {00F8}>BLOADCOLOROPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FECF}>ERLLOCATESAVE<0xB5!>SOUNDUSRBEEPSTEPTRONLINE<UNK! {00FC}>CLSRESUMETAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,<0xCB!><UNK! {00FC}><0xB5!>SOUNDLOCATEDEFSNG                     MERGE<UNK! {00F8}>STRING$PSETUSINGSTRING$MERGEVARPTRLOCATE<UNK! {FDB5}>SOUNDCALLSWAP<0xB6!>SCREENOPENTHENTAB(SOUNDLOAD<UNK! {FED7}>ANDOPENMODSPC(CLOSE<0xB4!>TAB(USR<0xB4!>SCREEN*<0xB5!>SOUNDSCREENERRPSETVARPTROPENTHENLOCATEWHILELOAD<0xE4!>."
  5. 60  PRINT "         OPTIONEQVLOCATEMERGE:  DIR [d:] [PATH] [FILENAME] [.EXE] [/P] [/W]"
  6. 63  GOSUB 240
  7. 64  B$=INKEY$
  8. 65  IF B$=" " GOTO 70
  9. 66  IF B$="r" OR B$="R" GOTO 210
  10. 67  IF B$="E" OR B$="e" GOTO 230
  11. 68  IF B$=" " GOTO 70
  12. 69  GOTO 64
  13. 70  CLS:PRINT "         USINGTRONLOCATETHEN:  RANDOMIZEINSTRNOTVARPTRWENDTAB(LOCATE<UNK! {FD20}>D:,PATH,FILENAME SPC(FNERLVARPTR<0xB5!>VARPTR<0xB6!><UNK! {FED5}>BSAVEDOSBLOAD<UNK! {00FC}>MOTORANDWENDTAB(LOCATE<UNK! {FDD2}>CLOSEMERGEVARPTRMERGE+KEYPOINTRANDOMIZE<UNK! {FD2C}>ERR<0xE2!>                    CLSORWENDCLOSEERL'USINGOPTIONLOCATE<UNK! {00F6}>."
  14. 80  PRINT "                FNELSEERLEQVWENDTAB(LOCATE<UNK! {FD2F}>PSPC(<0xE2!>TAB(<0xB6!>USINGBEEP<0xB5!>WHILEPSETMOTORSOUNDCLOSEBSAVE<UNK! {00FA}>LOCATEWHILE, LOCATERANDOMIZESTEPERLLOCATESAVEERLOFFTHENTROFF(MERGE<UNK! {00F6}><0xB6!>ERLTAB(<UNK! {00F7}>TAB(SOUND,OPENOPENCLOSEDEFDBLOPENMODDOSBEEPTO                     BLOADCLOSEWHILETROFFSTRING$SWAPERR<0xE2!>SPC(CLOSE<0xB5!><0xE3!>),<0xB5!>WHILENOTBLOADCLOSEERRORUSINGLOADWHILEOPTIONOPENBLOADOPENMOD<0xB4!>IMPSCREEN*SCREENTAB(SPC(<0xE2!>LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>MOTORUSRCALL<UNK! {00F6}>SOUNDCOLORBSAVELOAD."
  15. 90  PRINT "                FNELSEERLEQVWENDTAB(LOCATE<UNK! {FD20}>/WLOCATERANDOMIZEWEND<UNK! {00FA}>KEY<UNK! {00FA}>COLOR^STEPERLLOCATESAVE<0xB5!>SOUNDSOUNDCOLORBSAVELOAD,MERGE<UNK! {00F6}>MOTORUSRCALL<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPENTHENSOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>,STEPERLLOCATESAVE<0xB5!>SOUNDBLOADCOLOR                     SPC(CLOSEUSRUSRLINE<UNK! {00FC}>OPENDEFSTRTAB(<0xE5!>OPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>."
  16. 110  GOSUB 240
  17. 115  B$=INKEY$
  18. 120  IF B$=" " GOTO 140
  19. 130  IF B$="R" OR B$="r" GOTO 210
  20. 132  IF B$="e" OR B$="E" GOTO 230
  21. 135  GOTO 115
  22. 140  CLS:LOCATE 1,5:PRINT "A>"
  23. 145  LOCATE 9,1:PRINT "________________________________________________________________________________"
  24. 150  LOCATE 10,5:PRINT "  MOTORWRITESTEPLINE: PRESET*ERLVARPTRABEEPTOWEND<0xE5!>SCREEN*SPC(CLOSEOPTION<UNK! {00F6}>SPC(FNNOTUSRSOUNDVARPTRSCREENOFF<0xB5!>SOUNDBEEPTOPSETDEFSTR,<0xCB!>>OPENMODPRESET*SOUND<0xE3!><0xB4!>IMPSCREEN*DIR A: WENDTRONLINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>";
  25. 160  LOCATE 1,7:INPUT "  ",BC$
  26. 170  IF BC$="DIR A:" OR BC$="dir a:" GOTO 200
  27. 180  FOR I=1 TO 10:LOCATE 2,10:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                                         ":LOCATE 1,7:PRINT "                                            "
  28. 190  GOTO 160
  29. 200  NAME "c:fff.bas" AS "c:tttbdr.bas"
  30. 205  SYSTEM
  31. 210  CHAIN "ama1",ALL
  32. 230  CHAIN "c:bm32",ALL
  33. 240  LOCATE 9,1:PRINT "________________________________________________________________________________"
  34. 250  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";
  35. 260  RETURN
  36.