home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BDP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.9 KB  |  38 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                  3.  DISKCOMP  BLOAD<UNK! {00FC}>MOTORAND."
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  LINEFNSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR<0xB5!>SOUNDSCREEN^BEEPTOSOUNDVARPTRSCREENOFFNOT* STRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB5!>VARPTR<0xB6!><UNK! {FEC7}><UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR<0xB5!>SOUNDSCREEN^BEEPTOSOUNDVARPTR                     SCREENOFFMERGE<UNK! {00F8}>USRUSRWHILESCREENMERGESTEP, THENRESUMECALLTROFFNOTBLOADNOTVARPTR DISKCOPYBLOAD<UNK! {00FC}>MOTORANDSTRING$DEFSNGOPENMODWHILESCREENMERGESTEPMOTORMERGEOPTION<UNK! {00F6}>SCREEN^BEEPTOSOUNDVARPTRSCREENOFFLOCATEPRESETWRITEEQVSTEP<0xE0!>                     THENDEFSTR.ERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORANDWENDCLOSESOUNDPOINTSTRING$OPTION<0xB6!>RESUMENOTWENDBEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>USINGSTRING$SOUNDOPTION."
  4. 50  PRINT "         OPTIONEQVLOCATEMERGE:  DISKCOMP[D:][D:][/1][/8]
  5. 60  PRINT "         USINGTRONLOCATETHEN:  WENDTAB(LOCATE<UNK! {FD2F}>1LOCATERANDOMIZEDISKCOMPBLOAD<UNK! {00FC}>MOTORANDMERGE<UNK! {00F6}>WHILESCREENMERGESTEPSCREEN^BEEPTO<0xB5!>SOUND<0xB5!>VARPTRSPC(CLOSEBLOAD>.
  6. 70  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>8LOCATERANDOMIZEDISKCOMPBLOAD<UNK! {00FC}>MOTORANDMERGE<UNK! {00F6}>WHILESCREENMERGESTEPBLOADCOLOR<0xB4!>BEEP<0xB5!>CLSKEYSTEPLINE<0xCB!>OPTION<UNK! {00F6}>KEYSCREENPRESET<UNK! {00F8}>."
  7. 100  GOSUB 280
  8. 110  B$=INKEY$
  9. 120  IF B$=" " GOTO 133
  10. 124  IF B$="R" OR B$="r" GOTO 260
  11. 125  IF B$="e" OR B$="E" GOTO 250
  12. 130  GOTO 110
  13. 133  CLS:PRINT "         ERLVARPTRERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORANDSTRING$USR, NOTBLOADCLOSEERRORCOLORKEYSTRING$OPTION<0xB6!>RESUMESTEP<0xE0!>THENDEFSTRCLOSEIMPWENDCLOSETHENDEFSTRPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,<0xB5!>WHILENOTBLOADCLOSEERRORSTRING$OPTION<0xB6!>RESUMESTEP<0xE0!>THENDEFSTR<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>LOCATEWHILE,"
  14. 135  PRINT "         ERLIMPSTRING$<0xB4!>USRUSR<0xB5!>ERASEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>WHILESCREENMERGESTEP.STEP<0xB5!>THENCALLTO<0xE1!>LOCATESAVENOTBLOADCLOSEERRORERLVARPTRLOCATELOCATE<0xB5!>WHILE<0xB5!>SOUNDLOCATEWHILEOPENIMPWEND<0xE5!>SCREEN*SCREEN^BEEPTO,<0xCB!>>OPENMOD<0xB5!>SCREEN<0xB4!><UNK! {FDD3}>BLOADCLOSEERRORLINE<0xB4!>              SCREENTAB(SPC(CLOSELOAD<UNK! {00FC}>OPENMODLOADTOUSR<UNK! {00F8}>WEND'USING<UNK! {00F7}>."
  15. 150  PRINT "         DISKCOMP BLOAD<UNK! {00FC}>MOTORANDSTRING$XORSPC(CLOSEWHILESCREENMERGESTEP<0xCB!><UNK! {00F9}>NOTUSR40OPTION<UNK! {00F6}><0xB4!>BEEP<0xB5!>CLS,SCREEN=RANDOMIZE<UNK! {00FB}>SOUNDCALLSPC(CLOSE<0xB4!>BEEP<0xB5!>CLSWENDCLOSESTEP<0xE0!>THENDEFSTRERLIMPSTRING$OPTIONCALL<UNK! {00F6}>WENDCLOSEPSETERASEBEEP<0xE4!><0xB5!>SOUND              <0xB4!>BEEP<0xB5!>CLSOPENBEEP(0--39)OPENTHENKEYSCREENBLOAD>OPENBEEP(0CLOSEIMP1)."
  16. 160  PRINT "         THEN-CALLKEYWHILESCREENMERGESTEPOPENMODDISKCOMPTO<0xE1!>LOCATESAVETAB(LOCATESOUND<0xE3!>LOCATEPRESETWRITEEQVCLOSERANDOMIZESPC(AUTOLOADTOUSR<UNK! {00F8}>MERGE<UNK! {00F8}>USRUSRWHILESCREENMERGESTEP, SCREEN=CLOSERANDOMIZESPC(AUTOWHILESCREENMERGESTEP<0xB4!>IMPSCREEN*Y,ERLVARPTR              TO<0xE1!>LOCATESAVENOTBLOADCLOSEERROROPENMOD,LOADTOUSR<UNK! {00F8}>WHILESCREENMERGESTEP,<0xB4!>IMPSCREEN*NERLIMPMERGE<0xE1!>LOCATE<UNK! {00F8}>ERR<0xE2!>SPC(CLOSEBLOAD<UNK! {00FC}>MOTORAND."
  17. 172  GOSUB 280
  18. 173  B$=INKEY$
  19. 174  IF B$=" " GOTO 184
  20. 175  IF B$="R" OR B$="r" GOTO 260
  21. 176  IF B$="E" OR B$="e" GOTO 250
  22. 177  GOTO 173
  23. 184  KEY OFF
  24. 185  CLS:LOCATE 1,5:PRINT "A>"
  25. 187  LOCATE 8,1:PRINT "________________________________________________________________________________"
  26. 190  LOCATE 9,5:PRINT "MOTORWRITESTEPLINE: PRESET*LINEFNOPTIONERRNOTBLOADdiskcopyBLOAD<UNK! {00FC}>MOTORANDOPTION<0xB4!>STRING$PSET<0xB5!>SOUNDMOTORMERGEOPTION<UNK! {00F6}>BEEPTOPSETDEFSTRLOADNOTSPC(ERLWHILESCREENMERGESTEP,LOCATE<0xE4!>SCREEN*diskcomp a: b:";
  27. 200  LOCATE 10,11:PRINT "<0xB6!>ERL<0xB5!>ERASESCREEN^BEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>ERLVARPTRPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEOPENMODERL'NOTBLOADbBEEPTOTO>CLOSECLOSEaBEEPTO";
  28. 210  LOCATE 1,7:INPUT "  ",B$
  29. 220  IF B$="diskcomp a: b:" OR B$="DISKCOMP A: B:" GOTO 270
  30. 230  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 "                                       "
  31. 240  GOTO 210
  32. 250  CHAIN "bm32",ALL
  33. 260  CHAIN "ama1",ALL
  34. 270  NAME "c:fff.bas" AS "c:tttbdp.bas":SYSTEM
  35. 280  LOCATE 9,1:PRINT "________________________________________________________________________________"
  36. 290  LOCATE 10,30:PRINT "LINE<0xB4!>'COLORERROPTIONEQVLOAD<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";
  37. 300  RETURN
  38.