home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDR3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  11 lines
  1. 10  KEY OFF:CLS:LOCATE 1,5:PRINT "A>"
  2. 15  LOCATE 8,1:PRINT "________________________________________________________________________________"
  3. 20  LOCATE 9,5:PRINT "MOTORWRITESTEPLINE: TAB(SPC(BLOADPRESET<0xB5!>SOUNDMERGETOFNERRORBEEPTOSTRING$USRNOTUSR.BASLOADLINE.BATCLS<0xE0!>USRTHENTAB(SOUNDLOAD<UNK! {FE2C}>SOUND<0xE3!>COLORKEYNOTBLOADSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CLS<0xB4!>STEPERLLOCATESAVEOPTIONBLOADCLS<0xE0!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE22}>;
  4. 25  LOCATE 10,5:PRINT "PRESET*SOUND<0xE3!><0xB4!>IMPSCREEN*DIR *.BAT";
  5. 30  LOCATE 1,7:INPUT "  ",B$
  6. 40  IF B$="DIR *.BAT" OR B$="dir *.bat" GOTO 80
  7. 50  PRINT
  8. 60  FOR I=1 TO 20:LOCATE 2,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                                                                       ":LOCATE 1,7:PRINT "                                 "
  9. 70  GOTO 30
  10. 80  SYSTEM
  11.