home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDK1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.8 KB  |  35 lines
  1. 10  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 7,1:PRINT "________________________________________________________________________________"
  2. 20   LOCATE 8,5:PRINT "MOTORWRITESTEPLINE :  SOUND<0xE3!>CLOSERANDOMIZECOLORKEYNOTBLOADCHKDSKBLOAD<UNK! {00FC}>MOTORANDLOAD/WEND+SPC(CLOSEOPTION<UNK! {00F6}>BEEPTOSOUNDPOINTWRITEEQVERR<UNK! {FDB3}>TROFFRANDOMIZESWAPUSING<UNK! {00F7}>,SCREEN=WENDCLOSESOUNDPOINTERR<UNK! {FDB3}>TROFFRANDOMIZESWAPUSING<UNK! {00F7}>,SOUND<0xE3!>CLOSE<0xE1!>";
  3. 30  LOCATE 9,5:PRINT "<0xB5!>BLOAD<0xB5!>MERGESPC(CLOSEOPTION<UNK! {00F6}>USRBEEPSTEPTRON,SCREEN=ERLVARPTRAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USRWEND<0xE5!>SCREEN*TAB(<0xB4!>OPTIONEQVLOCATEMERGECLOSEDEFDBLBEEPTOPSETDEFSTRLOCATERANDOMIZENOTBLOADCHKDSK A:BLOAD<UNK! {00FC}>MOTORAND,CLOSE<0xE1!>CALL<UNK! {00F6}>STEPSTRING$LOCATEWENDBLOAD<0xB4!>?":LOCATE 10,7:PRINT "PRESET*<0xB4!>IMPSCREEN*CHKDSK A:";
  4. 50  LOCATE 1,7:INPUT "  ",B$
  5. 60  IF B$="chkdsk a:" OR B$="CHKDSK A:" GOTO 110
  6. 70  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. 80  GOTO 50
  8. 110  LOCATE 3,9:PRINT "data error reading drive A";
  9. 111  LOCATE 4,9:PRINT " Abort,retry,lgnore?";
  10. 116  LOCATE 7,1:PRINT "                                                                                "
  11. 117  LOCATE 8,1:PRINT "________________________________________________________________________________"
  12. 120  LOCATE 9,1:PRINT "       ERR<0xE2!>SAVETHENLOCATEPRESETSOUND<0xE3!>LOCATEERR<0xB5!>MERGE<0xB5!>SOUNDUSRBEEPSTEPTRON,TAB(SPC(BLOADPRESETSCREENBLOADDOSMERGE<0xE1!>LOCATE<UNK! {00F8}>ERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORAND.PRESET*<0xB4!>IMPSCREEN*'A'<0xB4!><UNK! {00FA}>TO> 'abort'                                        ";
  13. 125  LOCATE 4,30:INPUT "  ",B$
  14. 130  IF B$="A" OR B$="a" GOTO 180
  15. 140  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 "                                            "
  16. 150  GOTO 125
  17. 180  LOCATE 10,1:PRINT "                              LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  18. 200  B$=INKEY$
  19. 210  IF B$=" " GOTO 225
  20. 212  IF B$="R" OR B$="r" GOTO 330
  21. 214  IF B$="e" OR B$="E" GOTO 350
  22. 220  GOTO 200
  23. 225  CLS
  24. 250  LOCATE 1,5:PRINT "A>":LOCATE 2,9:PRINT "STRING$MOTOR<0xB4!><0xCB!>,SOUND<0xE3!>SPC(FNLOCATE<0xB5!>STEPLINEMOTOR<0xCB!>CHKDSKBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD,PRESET*ERL'ERLSOUND<0xB6!>MOTORPSET<0xE4!><0xCB!><UNK! {00FC}>ERRBSAVEMERGEVARPTR"
  25. 255  LOCATE 9,1:PRINT "________________________________________________________________________________"
  26. 260  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";
  27. 270  B$=INKEY$
  28. 280  IF B$=" " GOTO 320
  29. 290  IF B$="E" OR B$="e" GOTO 350
  30. 295  IF B$="r" OR B$="R" GOTO 330
  31. 300  GOTO 270
  32. 320  CHAIN "c:bft.bas",10,ALL
  33. 330  CHAIN "AMA1",ALL
  34. 350  CHAIN "BM32",ALL
  35.