home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BFT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.4 KB  |  30 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                              5.  FORMAT  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  FORMATBLOAD<UNK! {00FC}>MOTORANDLINEFN<0xCB!><UNK! {00F9}>STRING$OPTION<0xB6!>RESUMECLOSEIMPSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR<0xB5!>SOUND<0xB4!>BEEPBEEPTOCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLCALLKEYDOSCOLORKEY<0xB4!>>SCREENELSE<0xB5!>SOUNDLOADPRESET                     BSAVELOADOPTIONEQVLOCATEMERGE,TAB(AUTO<0xB4!>BEEPBEEPTOMERGENOTLOCATEERRDOSTAB(SOUNDLOAD<UNK! {FED7}><UNK! {00F7}>USINGLOADWHILEOPTION."
  4. 40  PRINT "         OPTIONEQVLOCATEMERGE:  FORMAT [d:] [/s] [/1] [/8] [/v]"
  5. 50  PRINT "         USINGTRONLOCATETHEN:  WENDTAB(LOCATE<UNK! {FD2F}>s,LOCATERANDOMIZEFORMATBLOAD<UNK! {00FC}>MOTORANDERLVARPTROPTIONEQVLOCATEMERGECLOSEDEFDBL<0xB4!>BEEPBEEPTOTHENDEFSTRLOCATEWHILEOPTION<0xB4!>STRING$PSETWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALL"
  6. 60  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>1,LOCATERANDOMIZEFORMATBLOAD<UNK! {00FC}>MOTORANDMERGE<UNK! {00F6}><0xB6!>ERLSCREEN^BEEPTOUSING<UNK! {00F7}><0xB5!>ERASEBLOAD>OPTIONEQVLOCATEMERGECLOSEDEFDBL"
  7. 70  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>8,LOCATERANDOMIZEFORMATBLOAD<UNK! {00FC}>MOTORANDOPTIONEQVLOCATEMERGECLOSEDEFDBL<0xB4!>NOTSOUNDDEFSTRSCREENSTEPBLOADCOLOR<0xB4!>BEEP<0xB5!>CLS9KEYSCREENPRESET<UNK! {00F8}>OPTIONSOUNDTAB(AUTO8OPTION<UNK! {00F6}>KEYSCREENPRESET<UNK! {00F8}>"
  8. 80  PRINT "                WENDTAB(LOCATE<UNK! {FD2F}>V,LOCATERANDOMIZEFORMATTO<0xE1!>RANDOMIZEDELETEBEEPTOOPENBEEP,OPTIONBLOADWHILE-OPENBEEPUSR<0xB4!>ERLVARPTR<0xB4!>BEEPBEEPTOKEYSTEP,<0xCB!><UNK! {00FC}>WENDCLOSESOUNDPOINTNOT*WENDTAB(LOCATE<UNK! {FD2F}>8OPENSTEPNOTBLOAD"
  9. 90  GOSUB 380
  10. 100  B$=INKEY$
  11. 110  IF B$=" " GOTO 122
  12. 115  IF B$="E" OR B$="e" GOTO 370
  13. 117  IF B$="R" OR B$="r" GOTO 360
  14. 120  GOTO 100
  15. 122  KEY OFF:CLS:LOCATE 1,5:PRINT "A>"
  16. 125  LOCATE 8,1:PRINT "________________________________________________________________________________"
  17. 140  LOCATE 9,5:PRINT "MOTORWRITESTEPLINE: USINGTRONSPC(<0xE2!>,OPTIONEQVLOCATEMERGECLOSEDEFDBLPSETPSETCLOSE<0xB5!><0xB4!>BEEPBEEPTOKEYSTEPSCREENTAB(OPENTAB(ERLDEFINTNOTUSR<0xB5!>SOUNDLOCATE<UNK! {FDBE}>OFF,PRESET*WENDCLOSESPC(AUTO<0xB6!>ERL<0xB4!>>NOTUSRNOTUSRNOTBLOADUSRBEEPSTEPTRON<0xB5!>SOUNDBEEPTOPSETDEFSTR";
  18. 150  LOCATE 10,11:PRINT "LOCATE<0xB5!>USRUSR FORMAT BLOAD<UNK! {00FC}>MOTORAND";
  19. 160  LOCATE 10,30:PRINT "PRESET*LOCATE<0xE4!>SCREEN* FORMAT A:";
  20. 170  LOCATE 1,7:INPUT "  ",B$
  21. 320  IF B$="format a:" OR B$="FORMAT A:" GOTO 350
  22. 330  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 "                                           "
  23. 340  GOTO 170
  24. 350  NAME "FFF.BAS" AS "Tttbft.BAS":SYSTEM
  25. 360  CHAIN "ama1",ALL
  26. 370  CHAIN "bm32",ALL
  27. 380  LOCATE 9,1:PRINT "________________________________________________________________________________"
  28. 390  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";
  29. 400  RETURN
  30.