home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BES.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.9 KB  |  54 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                               10.  ERASE  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  ERASE BLOAD<UNK! {00FC}>MOTORANDNOTBLOADNOTVARPTRKEYSAVECALL<UNK! {FDD6}>OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>OPENTHENSOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUNDSTRING$OPTION<0xB6!>RESUMETAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>TAB(SOUNDLOAD<UNK! {FE2C}>SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSE                     STRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,<0xB4!>NOTSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USRKEYSAVECALL<UNK! {FDCE}>SOUNDLOAD<UNK! {FE2C}>SCREEN=WENDCLOSESTRING$OPTION<0xB6!>RESUMEBSAVEWRITESTEP<0xDF!>,ERLIMP<0xB4!>NOT<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOAD                     STRING$USRKEYSAVECALL<UNK! {FDCE}>SOUNDLOAD<UNK! {FE22}>
  4. 40  PRINT "         OPTIONEQVLOCATEMERGE:  ERASE [d:] [PATH] [FILENAME [.EXT]]"
  5. 50  PRINT "         USINGTRONLOCATETHEN:  ERASESPC(WENDCOLORKEYSPC(ERLDEL<0xCB!><UNK! {00F5}>USR<0xB4!>USRTAB(LOCATEMERGE<0xB4!><UNK! {00FA}>TO>,ERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPENTHENTAB(SOUNDLOAD<UNK! {FEC0}>DELETEERRRANDOMIZEBLOAD<UNK! {00FB}>STRING$USRCOLORKEYLOCATERANDOMIZENOTBLOADSCREENRENUMSAVESTRING$                     TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>?OPENTHEN* <0xB5!>RENUMWHILEINSTRUSR*USRELSEUSRSOUNDLOCATERANDOMIZENOTBLOADSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>"
  6. 53  GOSUB 530
  7. 54  B$=INKEY$
  8. 55  IF B$=" " GOTO 70
  9. 56  IF B$="E" OR B$="e" GOTO 500
  10. 57  IF B$="R" OR B$="r" GOTO 520
  11. 58  GOTO 54
  12. 70  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________"
  13. 120  LOCATE 9,1:PRINT "        ERLVARPTRTAB(SOUNDLOAD<UNK! {FEBF}>MERGEWHILE<0xB4!>SPC(CLOSEMERGEVARPTRSTRING$USR,TAB(SPC(BLOADPRESETERLVARPTRABEEPTOKEYSTEPCOLORMERGEWHILE<0xB4!>MOTOR<0xCB!>A.BASTAB(SOUNDLOAD<UNK! {FE2C}>STEPSTRING$SOUNDCOLORBSAVELOADBLOAD<UNK! {00FC}>MOTORANDLOAD/WEND+,";
  14. 130  LOCATE 10,9:PRINT "COLOR<0xB4!><0xB4!><0xCB!>TAB(SOUNDLOAD<UNK! {FECA}>PRESETWRITEEQVERLVARPTRBEEPTOKEYSTEP,PRESET*<0xB4!>IMPSCREEN*DIR/W A:A.BAS";
  15. 135  LOCATE 1,7:INPUT "  ",B$
  16. 140  IF B$="DIR/W A:A.BAS" OR B$="dir/w a:a.bas" GOTO 180
  17. 150  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 "                                                        "
  18. 160  GOTO  130
  19. 180  LOCATE 2,7:FILES"A:A.BAS"
  20. 190  LOCATE 8,1:PRINT "________________________________________________________________________________":LOCATE 9,5:PRINT "STEPERLLOCATESAVEMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>,STRING$OPTIONBLOAD<UNK! {00F7}>OPTIONBLOADTAB(SOUNDLOAD<UNK! {FECA}>PRESETWRITEEQVERLVARPTRBEEPTOKEYSTEP,SCREEN=WENDCLOSEERLVARPTRBEEPTOKEYSTEP,LINE<0xB4!>'E'LOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>WHILESAVEMERGEVARPTR,FNELSEUSING<UNK! {00F6}>COLORMERGEWHILE<0xB4!>SPC(CLOSEMERGEVARPTR";:LOCATE 10,3:PRINT "SPC(ERLOPENMODERL'USING<UNK! {00F6}>WHILESAVEMERGEVARPTR.              ";
  21. 200  GOSUB 540
  22. 210  B$=INKEY$
  23. 220  IF B$=" " GOTO  300
  24. 230  IF B$="R" GOTO  520
  25. 240  IF B$="E" GOTO  500
  26. 250  GOTO  210
  27. 300  CLS:KEY OFF:LOCATE 2,5:PRINT "A>":LOCATE 9,1:PRINT "________________________________________________________________________________":LOCATE 10,10:PRINT "STEPSTRING$ERLVARPTRTAB(SPC(BLOADPRESETPRESET<0xE5!>CALL<UNK! {FD41}>BEEPTOKEYSTEP<0xB5!>SOUNDA.BASTAB(SOUNDLOAD<UNK! {FE2C}>PRESET*<0xB4!>IMPSCREEN*DEL A:A.BAS";
  28. 310  LOCATE 2,7:INPUT "  ",B$
  29. 320  IF B$="DEL A:A.BAS" OR B$="del a:a.bas" GOTO  350
  30. 330  FOR I=1 TO 10:LOCATE 3,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 3,1:PRINT "                             ":LOCATE 2,7:PRINT "                                                      "
  31. 340  GOTO  310
  32. 350  KILL"A:A.BAS"
  33. 360  LOCATE 3,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________":LOCATE 9,1:PRINT "   TAB(SPC(BLOADPRESETSPC(FNTHEN-CALLKEYA.BAS<0xB5!>SOUNDKEYSAVECALL<UNK! {FD2C}>STEPSTRING$ERLVARPTRERL'NOTBLOADMOTORUSRSOUNDCOLORBSAVELOADBLOAD<UNK! {00FC}>MOTORANDLOAD/WEND+SPC(CLOSESTEPBSAVE,COLOR<0xB4!>OPTIONBLOADTAB(SOUNDLOAD<UNK! {FECA}>PRESETWRITEEQVSCREENWRITELOCATE<0xB5!>KEYSAVECALL<UNK! {FD2E}>         ";
  34. 370  LOCATE 10,1:PRINT "         PRESET*<0xB4!>IMPSCREEN*DIR/W A:A.BAS                                                   ";
  35. 380  LOCATE 3,7:INPUT "  ",B$
  36. 390  IF B$="DIR/W A:A.BAS" OR B$="dir/w a:a.bas" GOTO 430
  37. 400  FOR I=1 TO 10:LOCATE 4,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 4,1:PRINT "                                                ":LOCATE 3,7:PRINT "                                            "
  38. 410  GOTO  380
  39. 430   LOCATE 8,1:PRINT "________________________________________________________________________________"
  40. 435  LOCATE 4,10:PRINT "File  Not  Found";
  41. 440  LOCATE 9,1:PRINT "          STEPERLLOCATESAVESTRING$OPTIONCALL<UNK! {00F6}>OPTIONBLOADBLOAD<UNK! {00FC}>MOTORANDWENDCLOSEERLVARPTRBEEPTOKEYSTEP,OPTIONBLOADTAB(SOUNDLOAD<UNK! {FEC8}>WRITELOCATE<0xB5!>SPC(FNKEYSAVECALL<UNK! {FD2C}>ERR<0xE2!>TO<UNK! {00F5}>BLOAD<UNK! {00FC}>MOTORANDSOUND<0xE3!>SPC(FNUSING<UNK! {00F6}>CALLKEYRANDOMIZEEDIT.    ";
  42. 445  LOCATE 10,1:PRINT "                             ";
  43. 447  GOSUB 540
  44. 450  B$=INKEY$
  45. 460  IF B$=" " GOTO  500
  46. 470  IF B$="E" OR B$="e" GOTO  500
  47. 480  IF B$="R" OR B$="r" GOTO  520
  48. 490  GOTO 450
  49. 500  CHAIN "BM32",ALL
  50. 520  CHAIN "AMA1",ALL
  51. 530  LOCATE 9,1:PRINT "________________________________________________________________________________"
  52. 540  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";
  53. 550  RETURN
  54.