home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDP1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  11 lines
  1. 10  CLS:KEY OFF:LOCATE 1,5:PRINT "A>"
  2. 15  LOCATE 7,1:PRINT "________________________________________________________________________________"
  3. 20  LOCATE 8,5:PRINT "MOTORWRITESTEPLINE: PRESET*LOCATEERLUSINGBEEPNOTBLOADERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORANDWHILESCREENMERGESTEPMOTORMERGEOPTION<UNK! {00F6}>WENDCLOSETHENDEFSTRBEEPTOPSETDEFSTR,LINEFNABEEPTOBBEEPTOCLOSECLOSECALLKEYWENDCLOSESTEP<0xE0!>THENDEFSTR<0xB5!>SOUNDBEEPTO,PSET<0xE4!><0xCB!><UNK! {00FC}>WEND'";
  4. 25  LOCATE 9,11:PRINT "USING<UNK! {00F7}>THENDEFSTRKEYSTEP,COLOR<0xB4!>WHILESCREENMERGESTEPOPENMODMERGE<0xE1!>RANDOMIZE<UNK! {00FB}>";
  5. 30  LOCATE 10,11:PRINT "PRESET*LOCATE<0xE4!>SCREEN*diskcomp a: b:";
  6. 40  LOCATE 1,7:INPUT "  ",B$
  7. 50  IF B$="diskcomp a: b:" OR B$="DISKCOMP A: B:" GOTO 100
  8. 60  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 "                                         "
  9. 70  GOTO 40
  10. 100  SYSTEM
  11.