home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDC1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  13 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "        STRING$MOTOR<0xB4!><0xCB!>SOUND<0xE3!>SPC(FNFNERRORCLOSE<0xE1!>LINEFNABEEPTOOPTION<0xB4!>STRING$PSET<0xB5!>MERGEBBEEPTO, SOUND<0xE3!>SPC(WENDCOLORKEYSPC(ERLNOTBLOADDISKCOPYBLOAD<UNK! {00FC}>MOTORANDLINEFNBBEEPTOOPTION<0xB4!>STRING$PSET<0xB5!>MERGEABEEPTO,STRING$CLOSE             SPC(AUTOSOUND<0xE3!><0xB4!>IMPSCREEN*DISCOPY B: A:LOAD<0xB4!>COLORKEY,ERR<0xE2!>CLSORWENDCLOSEERL'MOTORWRITESTEPLINE."
  3. 25  PRINT "        THENRESUMERANDOMIZE<UNK! {FDB1}>SAVEMERGEVARPTRFNERRORSTEPLINESOUND<0xE3!>NOTEDITSOUNDPOINTOPTION<0xB4!>STRING$PSETWHILEOPTIONWRITEOFFBEEPTOPSETDEFSTR,SCREEN=RANDOMIZE<UNK! {00FB}>CLOSERANDOMIZEWENDCLOSECLOSE<0xE1!>USING<UNK! {00F6}>,PRESET*ERL'<0xB4!>NOTTHENWRITEMOTORWRITESTEPLINE."
  4. 30  LOCATE 9,1:PRINT "________________________________________________________________________________"
  5. 31  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. 32  B$=INKEY$
  7. 33  IF B$=" " THEN CHAIN "c:bdp.bas",10,ALL
  8. 34  IF B$="E" OR B$="e" GOTO 50
  9. 35  IF B$="R" OR B$="r" GOTO 40
  10. 36  GOTO 32
  11. 40  CHAIN "ama1",ALL
  12. 50  CHAIN "bm32",ALL
  13.