home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BRM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.5 KB  |  56 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                  8.  RENAME   BLOAD<UNK! {00FC}>MOTORAND "
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  LINEFNERLVARPTR<0xB5!>VARPTRSPC(CLOSEWENDTAB(LOCATE<UNK! {FDD6}>USRRANDOMIZE><0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPTIONSOUNDTAB(AUTOERLVARPTR<0xB5!>VARPTR<0xB6!><UNK! {FEB2}>TAB(LOCATE<UNK! {FDD6}>USROPTION<UNK! {00F8}><0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPENTHENCLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>."
  4. 40  PRINT "         OPTIONEQVLOCATEMERGE:  RENAME [D] [PATH] filename [.exe] filename [.exe]"
  5. 50  PRINT "         USINGTRONLOCATETHEN:  SOUND<0xE3!>COLORKEYSPC(ERLLOCATERANDOMIZENOTBLOADRENAME<0xB5!>SOUND<0xCB!><UNK! {00F5}>USR<0xB4!>USRTAB(LOCATEMERGEREN,ERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>STRING$USRCOLORKEYSPC(ERLLOCATERANDOMIZENOTBLOADSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>                  ?OPENTHEN*"
  6. 60  GOSUB 640
  7. 70  B$=INKEY$
  8. 80  IF B$=" " GOTO 120
  9. 90  IF B$="e" OR B$="E" GOTO 620
  10. 100  IF B$="r" OR B$="R" GOTO 630
  11. 105  GOTO 70
  12. 120  KEY OFF:CLS:LOCATE 9,1:PRINT "________________________________________________________________________________"
  13. 125  LOCATE 1,5:PRINT "A>"
  14. 130  LOCATE 10,7:PRINT "PRESET*<0xB4!>IMPSCREEN*REN C:A.BAS C:CCCCCCC.BAS(A.BASTAB(SOUNDLOAD<UNK! {FED2}>FNERLVARPTRBEEPTOKEYSTEP)";
  15. 140  LOCATE 1,7:INPUT "  ",B$
  16. 150  IF B$="REN C:A.BAS C:CCCCCCC.BAS" OR B$="ren c:a.bas c:ccccccc.bas" GOTO 180
  17. 160  FOR I=1 TO 10:LOCATE 2,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^TAB(MOD STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                                  ":LOCATE 1,7:PRINT "                                                      "
  18. 180  CLS
  19. 190  NAME "c:a.bas" AS "c:ccccccc.bas"
  20. 195  KEY OFF:CLS:LOCATE 8,1:PRINT "________________________________________________________________________________"
  21. 196  LOCATE 1,5:PRINT "A>"
  22. 220  LOCATE 9,10:PRINT "OPTIONSOUNDBLOAD<UNK! {00FB}>THEN-CALLKEY";
  23. 230  LOCATE 10,10:PRINT "STEPBSAVEBLOAD>TAB(SPC(BLOADPRESETNOTBLOADDIRBLOAD<UNK! {00FC}>MOTORANDFN+STRING$SWAPSPC(CLOSESTEPBSAVE,COLOR<0xB4!>LOCATEPRESETWRITEEQVOPTIONSOUNDBLOAD<UNK! {00FB}>,";
  24. 330  LOCATE 10,50:PRINT "PRESET*LOCATE<0xE4!>SCREEN*:DIR C:CCCCCCC.BAS";
  25. 335  LOCATE 1,5:PRINT "A>"
  26. 340  LOCATE 1,7:INPUT "  ",B$
  27. 350  IF B$="DIR C:CCCCCCC.BAS" OR B$="dir c:ccccccc.bas" GOTO 400
  28. 360  FOR I=1 TO 10:LOCATE 2,1:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^TAB(MOD STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                               ":LOCATE 1,7:PRINT "                                            "
  29. 370  GOTO 340
  30. 400  LOCATE 2,7:FILES"c:ccccccc.bas"
  31. 420  KEY OFF:LOCATE 8,1:PRINT "________________________________________________________________________________"
  32. 425  LOCATE 9,5:PRINT "STEPERLLOCATESAVE<0xCB!><0xB5!>BLOAD<UNK! {00F7}>SAVE<0xDF!>NOTUSRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>TAB(AUTOA.BAS<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>SPC(FNOPTIONSOUNDBLOAD<UNK! {00FB}>TAB(AUTOCCCCCCC.BAS";
  33. 430  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";
  34. 440  B$=INKEY$
  35. 445  IF B$=" " GOTO 480
  36. 450  IF B$="r" OR B$="R" GOTO 630
  37. 460  IF B$="e" OR B$="E" GOTO 620
  38. 470  GOTO 440
  39. 480  CLS:LOCATE 1,5:PRINT "A>"
  40. 490  KEY OFF:LOCATE 8,1:PRINT "________________________________________________________________________________"
  41. 495  LOCATE 3,10:PRINT "TAB(AUTOMOTOR<0xCB!>SPC(ERLOPENMODFNERRORSTEPLINE<0xB5!>SOUNDWRITEMERGEWHILE<0xE3!>,TAB(SPC(BLOADPRESET<0xB5!>SOUNDCALLTOUSRIMPUSINGERL<0xB6!>DEFDBLMERGERENUMTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPTIONSOUNDTAB(AUTOERLDEFINTCLS<0xB4!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,";
  42. 540  NAME "c:ccccccc.bas" AS "c:a.bas"
  43. 570  LOCATE 4,6:PRINT "STRING$MOTOR<0xB4!><0xCB!>,TAB(SPC(BLOADPRESETFNERRORMOTOR<0xCB!>RENAMEBLOAD<UNK! {00FC}>MOTORAND,STEPSTRING$ERLVARPTRSOUND<0xE3!>NOTEDITCLOSE<0xE1!>NOTBLOADERR<0xE2!>SPC(CLOSEBLOAD<UNK! {00FC}>MOTORAND"
  44. 580  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";
  45. 590  B$=INKEY$
  46. 600  IF B$=" " GOTO 610
  47. 605  IF B$="E" OR B$="e" GOTO 620
  48. 606  IF B$="r" OR B$="R" GOTO 630
  49. 607  GOTO 590
  50. 610  CHAIN "c:bte.bas",10,ALL
  51. 620  CHAIN "bm32",ALL
  52. 630  CHAIN "ama1",ALL
  53. 640  LOCATE 9,1:PRINT "________________________________________________________________________________"
  54. 650  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";
  55. 660  RETURN
  56.