home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.4 KB  |  24 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                 4.  CHKDSK  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  CHKDSKBLOAD<UNK! {00FC}>MOTORANDERLVARPTRSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDCLOSEIMPSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>KEYSTEPWRITESTRING$TAB(<UNK! {00F6}>SOUNDCOLORBSAVELOADOPENTHENTAB(SOUNDLOAD<UNK! {FEB7}>STRING$BEEP<0xE4!>WHILE^,WHILERESUMEOPTION><0xB4!>BEEP"
  4. 35  PRINT "                BEEPTOOPENTHEN<0xB4!>><0xB4!>TRONPSET<UNK! {00F7}><0xB5!>SOUNDUSING<0xB4!>TODEFSTR, NOTBLOADERR<0xE2!>SPC(CLOSEBLOAD<UNK! {00FC}>MOTORANDSOUND<0xE3!>SOUNDPOINTWRITETRONSTEPSTRING$ 1.BEEPTO<0xB5!>SOUNDSCREENOFFMOTORCOLOR<0xB6!><0xE0!>KEY'? 2.<0xB4!>>ERLVARPTR                     <0xB4!>BEEPBEEPTOKEYSTEP<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FED3}>USR<0xB6!><0xE0!>KEY'? 3.BEEPTO<0xB5!>SOUNDLOCATETROFFNOT<0xE0!>COLORERRLOAD<0xE4!><0xB6!><0xE0!>KEY'? 4.BEEPTOSOUNDPOINTWRITEEQVERR<UNK! {FDB3}>TROFFRANDOMIZESWAPUSING<UNK! {00F7}>?"
  5. 40  PRINT "         OPTIONEQVLOCATEMERGE:  CHKDSK [d:] [filename] [/f] [/v]"
  6. 50  PRINT "         USINGTRONLOCATETHEN:  WENDTAB(LOCATE<UNK! {FD2F}>FRANDOMIZEDELETECHKDSKBLOAD<UNK! {00FC}>MOTORANDSOUNDPOINTUSINGERL<0xB6!>DEFDBLSAVECLSERR<UNK! {FDD4}>VARPTRTAB(SOUNDLOAD<UNK! {FEB7}>STRING$BEEP<0xE4!>WHILE^STRING$USRWRITETRONSTEPSTRING$<0xB5!>SOUND<0xB4!>^TAB(MOD"
  7. 60  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>VLOCATERANDOMIZECHKDSKBLOAD<UNK! {00FC}>MOTORANDSTEPERLLOCATESAVESPC(CLOSEUSRDELETEUSRBEEPSTEPTRON,STRING$OPTIONCALL<UNK! {00F6}>MERGE<UNK! {00F8}>ERRRANDOMIZE,LOADLINEWRITETRONSTEPSTRING$<0xB4!>^TAB(MOD<0xB5!>SOUNDSTEP-STEPOPTIONUSINGLOCATEMOTORSTEP"
  8. 70  PRINT "                SCREEN=NOTBLOADCLOSEERRORSTRING$OPTION<0xB6!>RESUMESPC(CLOSEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>,CHKDSKMERGERENUMSTEPERLLOCATESAVENOTKEYTAB(SOUNDLOAD<UNK! {FECB}><UNK! {00F9}>ERRLOADSAVEOFF<0xB5!>SOUNDSTEP<0xE0!>MOTORDEFSTRPRESET<UNK! {00F8}><0xB5!>SOUNDLOCATE<UNK! {FDC4}>COLOR"
  9. 90  LOCATE 9,1:PRINT "________________________________________________________________________________":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";
  10. 100  B$=INKEY$
  11. 110  IF B$=" " GOTO 125
  12. 115  IF B$="E" OR B$="e" GOTO 230
  13. 117  IF B$="R" OR B$="r" GOTO 240
  14. 120  GOTO 100
  15. 125  CLS:LOCATE 1,5:PRINT "A>":LOCATE 9,1:PRINT "________________________________________________________________________________"
  16. 160  LOCATE 10,4:PRINT "MOTORWRITESTEPLINE:  LOAD'KEY<TAB(SPC(BLOADPRESETLOAD/WEND+APRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR<0xB5!>SOUNDRANDOMIZESWAPUSING<UNK! {00F7}>BEEPTOPSETDEFSTRUSING<0xB4!>TODEFSTR,PRESET*<0xB4!>IMPSCREEN*CHKDSK A:";
  17. 170  LOCATE 1,7:INPUT "  ",B$
  18. 180  IF B$="CHKDSK A:" OR B$="chkdsk a:" GOTO 220
  19. 190  FOR I=1 TO 10:LOCATE 2,4:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 2,1:PRINT "                              ":LOCATE 1,7:PRINT "                                             "
  20. 200  GOTO 170
  21. 220  NAME "fff.bas" AS "tttbdk.bas":SYSTEM
  22. 230  CHAIN "bm32",ALL
  23. 240  CHAIN "ama1",ALL
  24.