home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BMS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  896 b   |  17 lines
  1. 10  CLS:KEY OFF:PRINT "                            A.  <0xCB!>LOADCOLORLOADTO<0xE2!>"
  2. 20  PRINT "             THENRESUMERANDOMIZE<UNK! {FDB1}>SAVEERRBSAVEFNERRORSTEPLINE,PRESET*SOUND<0xE3!><0xCB!>LOADCOLORLOADWENDTRONCLOSEINSTR<0xB4!>XORSCREEN=STEPBSAVETAB(LOCATETO<0xE2!>:"
  3. 30  PRINT "         1.  WHILESAVEERRBSAVEMERGE+KEYPOINT<0xB5!>SOUNDBEEPTOPSETDEFSTRRANDOMIZEPOINTCLS^BLOAD<UNK! {00FC}>MOTORANDNOTUSRLOADOPTIONTO<UNK! {00F5}> ?<0xCB!><UNK! {00FC}>BLOADPRESET<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTLOCATEPRESETLOCATEWENDBLOAD<0xB4!> ?SOUND<0xE3!>SOUNDPOINT<0xB6!>ERLSCREENTAB(SPC(CLOSEBEEPTOPSETDEFSTR                  MERGE<UNK! {00F8}>USRUSROPTION<0xB4!>STRING$PSETWENDTRONBEEPUSR<0xB6!>STEP<0xCB!><UNK! {00FC}><0xB5!>SOUNDERR<UNK! {FDC8}>WRITEUSRERLBSAVEXOR?"
  4. 40  PRINT "         2.  SOUND<0xE3!>SOUNDPOINTCOLORMERGEWHILE<0xB4!>BEEPTOPSETDEFSTRKEYSTEPSCREENTAB(SPC(CLOSESOUND<0xE3!>STEP*SPC(AUTO<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC2}>XOR?(LOADNOTBLOADPOINTWENDCLOSESOUNDPOINTCOLORMERGE<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB3}><UNK! {FDCD}><0xE2!>)"
  5. 50  PRINT "         3.  LOAD'SCREEN=SOUND<0xE3!>STEP*COLOR<0xB4!>SOUNDCALLSPC(CLOSETAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDVARPTRSCREENOFF,SOUND<0xE3!>SOUNDPOINTLINEFN<0xCB!><UNK! {00FC}>BLOADPRESETSCREENELSECALL<UNK! {00F6}>CLS<0xB4!>COLOR<0xB4!>COLOR<0xB4!>BSAVEXOR?(LOADNOTBLOADPOINTTAB(SOUNDLOAD<UNK! {FEB3}><UNK! {FDCD}><0xE2!>)"
  6. 60  PRINT "         4.  LOAD/WEND+SPC(CLOSEOPTION<UNK! {00F6}>BEEPTO<0xB5!>SOUNDOPENBLOADCLOSE<0xB5!>NOTBLOADLOCATEWENDBLOAD<0xB4!>BLOAD<UNK! {00FC}>MOTORAND?"
  7. 70  PRINT "         5.  SCREEN=OPENTAB(KEYSAVECALL<UNK! {FDC4}><0xE3!>BEEPTOPSETDEFSTRKEYSTEPWENDCLOSEUSR<SPC(AUTO<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE3F}>"
  8. 80  PRINT "________________________________________________________________________________"
  9. 90  PRINT "                                       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 ";
  10. 100  B$=INKEY$
  11. 110  IF B$="E" OR B$="e" GOTO 130
  12. 120  IF B$="R" OR B$="r" GOTO 140
  13. 125  GOTO 100
  14. 130  CHAIN "bm32",ALL
  15. 140  CHAIN "ama1",ALL
  16. 150  GOTO 100
  17.