home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDR4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  14 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "         STRING$MOTOR<0xB4!><0xCB!>,TAB(SPC(BLOADPRESETMOTORWRITESTEPLINEMOTOR<0xCB!>DIRBLOAD<UNK! {00FC}>MOTORANDLOCATERANDOMIZENOTBLOAD, STEPSTRING$ERLVARPTRSOUND<0xE3!>NOTEDITOPTIONBLOADSOUNDPOINTRANDOMIZECLOSESTEPERLLOCATESAVEBEEPTOPSETDEFSTR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC4}>COLORBSAVELOAD,<0xB4!>NOTBEEPTO           PSETDEFSTRKEYSTEPWEND+ERRSPC(SOUNDCALLSPC(CLOSETAB(SOUNDLOAD<UNK! {FECA}>PRESETWRITEEQV<0xB4!>>ERLVARPTR, SPC(ERLLOADLINEWEND+ERRSPC(SOUNDCALLTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDUSINGANDOPENMODUSRINKEY$OPTIONSOUNDSCREENERRPSETVARPTR,CLOSERANDOMIZESOUNDPOINTLOCATE<0xB6!>WHILEXORBEEPTOPSETDEFSTRCLOSERANDOMIZE           NOTUSR<0xB6!><0xE0!>KEY'USINGERLNOTKEYCOLORERRLOAD<0xE4!><0xB5!>SCREEN,SOUND<0xE3!>SCREEN=RANDOMIZE<UNK! {00FB}>CLOSERANDOMIZEWENDCLOSECLOSE<0xE1!>";
  3. 30  PRINT "USING<UNK! {00F6}>,PRESET*SOUND<0xE3!>ERL'WRITE<0xB4!>OPTION<0xB4!>MOTORWRITESTEPLINE."
  4. 40  LOCATE 9,1:PRINT "________________________________________________________________________________"
  5. 50  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";
  6. 65  B$=INKEY$
  7. 70  IF B$=" " GOTO 120
  8. 80  IF B$="E" OR B$="e" GOTO 140
  9. 90  IF B$="r" OR B$="R" GOTO 130
  10. 100  GOTO 65
  11. 120  CHAIN "bdc.bas",5,ALL
  12. 130  CHAIN "ama1",ALL
  13. 140  CHAIN "bm32",ALL
  14.