home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BCY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.5 KB  |  25 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                   6.  COPY  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  COPYBLOAD<UNK! {00FC}>MOTORANDLINEFNSPC(CLOSEOPTION<UNK! {00F6}>CLOSEIMP<0xB6!><0xE0!>OPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEB8}><0xB4!>STRING$PSET<0xB5!>MERGEMOTOR^SPC(CLOSE<0xB4!>BEEPBEEPTO,COPYBLOAD<UNK! {00FC}>MOTORANDSPC(WENDCOLORKEYSPC(ERLLINEFNTAB(SOUNDLOAD<UNK! {FE22}>
  4. 40  PRINT "                OPTION<0xB4!>STRING$PSET<0xB5!>MERGETHENDEFSTRSPC(CLOSE<0xB4!>BEEPBEEPTOKEYSTEP, ERLVARPTRERR<0xE2!>STRING$STRING$PRESET+COLOR<UNK! {00F6}>STEPBSAVE,NOTBLOADCLOSEERRORWHILEINSTRUSR*OPTION<UNK! {00F8}>OPTION<0xB4!>STRING$PSETLOAD<UNK! {FED2}>ERLWENDCLOSETHENDEFSTR<0xB5!>SOUNDBLOAD<UNK! {00FB}>USINGSTRING$"
  5. 50  PRINT "                (CALL<UNK! {FDB7}>PRESETSTRING$OPTION<0xB6!>RESUMEWENDCLOSETHENDEFSTRSOUNDCOLORBSAVELOAD),WRITEEQVERLIMPWENDCLOSEERLLOCATEUSR^ COPY.ERLVARPTROPTION<0xB4!>STRING$PSET<0xB4!>EDITCLS^RANDOMIZE<UNK! {FDB3}>TOSTRING$USRCOLORKEYSTRING$<0xB4!>USRUSRWENDTRON                     STRING$BLOADWEND'USING<UNK! {00F7}>(TAB(SOUNDLOAD<UNK! {FEBA}>STEPWENDTRON),NOTBLOADCLOSEERRORSPC(WENDCOLORKEYNOTBLOAD<0xB4!><0xCB!>BLOAD<UNK! {00FC}>MOTORANDERLVARPTRSCREENTAB(SPC(CLOSESTEP<0xB5!>THENCALLKEY<WHILEOPTIONSTRING$DEFSNGLOAD<0xE4!><0xB4!>RENUM<0xB5!>OFFLOCATE<UNK! {FDBE}>OFF."
  6. 60  PRINT "         OPTIONEQVLOCATEMERGE:  COPY[d:][path]filename[.ext] [d:][path]filename[.ext]"
  7. 70  PRINT "         USINGTRONLOCATETHEN:  <0xB5!>VARPTRSPC(CLOSEOPTION<UNK! {00F6}>STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FECE}>AUTOERL<0xB4!>TAB(SOUNDLOAD<UNK! {FE2C}><0xB5!>VARPTR<0xB6!><UNK! {FEB8}><UNK! {00F6}>STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FECE}>AUTOSOUNDCOLORWHILE-TAB(SOUNDLOAD<UNK! {FE2C}> WHILESAVEBLOAD<UNK! {00FC}>MOTORAND                     STRING$USRCLOSERANDOMIZENOTUSRSPC(CLOSEUSRDELETEPSET<0xE4!><0xCB!><UNK! {00FC}>WENDTAB(LOCATE<UNK! {FDD5}><0xE2!>CLSORBLOADCLOSENOTUSRMERGE+KEYPOINT,NOT<UNK! {00FB}>STRING$AUTOSTEP-STEPOPTION,PRESET*COLOR<0xB4!>DOSLOCATESTRING$WEND<0xE1!>"
  8. 80  LOCATE 9,1:PRINT "________________________________________________________________________________"
  9. 90  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 150
  12. 120  IF B$="E" OR B$="e" GOTO 260
  13. 125  IF B$="R" OR B$="r" GOTO 270
  14. 130  GOTO 100
  15. 150  KEY OFF:CLS:LOCATE 1,5:PRINT "A>":LOCATE 8,1:PRINT "________________________________________________________________________________"
  16. 160  LOCATE 9,5:PRINT "MOTORWRITESTEPLINE:  PRESET*SOUND<0xE3!>USINGLOADWHILEOPTIONSPC(CLOSEOPTION<UNK! {00F6}>OPTIONEQVLOCATEMERGECLOSEDEFDBL<0xB5!>SOUNDCOLORERRBEEPTOUSING<UNK! {00F7}>TAB(AUTOABEEPTO,<0xB4!>IMPSCREEN*COPY C:A.BAS A:";
  17. 180  LOCATE 10,5:PRINT "        PRESET*LOCATE<0xE4!>SCREEN*COPY C:A.BAS A: ";
  18. 185  LOCATE 1,7:INPUT "  ", B$
  19. 190  IF B$="COPY C:A.BAS A:" OR B$="copy c:a.bas a:" GOTO 250
  20. 200  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 "                                                    "
  21. 210  GOTO 180
  22. 250  NAME "c:FFF.BAS" AS "c:Tttbcy.BAS":SYSTEM
  23. 260  CHAIN "bm32",ALL
  24. 270  CHAIN "ama1",ALL
  25.