home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDR2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  9 lines
  1. 10  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________"
  2. 20  LOCATE 9,5:PRINT"MOTORWRITESTEPLINE: SOUND<0xE3!>CLOSERANDOMIZECOLORKEYSPC(ERLNOTBLOADSTRING$OPTION<0xB6!>RESUMETAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}><0xB5!>SOUNDWRITEMERGEWRITERESUME,WEND+ERRSPC(STEP<0xE0!>NOTEDIT<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FECA}>PRESETWRITEEQVERLVARPTRBEEPTOKEYSTEP,CLS<UNK! {FDC8}>=ERLVARPTRTAB(SPC(BLOADPRESET<0xB5!>SOUND";
  3. 25  LOCATE 10,5:PRINT "STEP<0xB5!>THENCALLBEEPTOSTRING$USRNOTUSRBASICATAB(SOUNDLOAD<UNK! {FE2C}>SOUND<0xE3!><0xB4!>IMPSCREEN*DIR BASICA.EXE";
  4. 30  LOCATE 1,7:INPUT "  ",B$
  5. 40  IF B$="DIR BASICA.EXE"OR B$="dir basica.exe" GOTO 70
  6. 50  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 "                              "
  7. 60  GOTO 30
  8. 70  SYSTEM
  9.