home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C11.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  27 lines
  1. 10  COMMON XY$,LI$,KS$,AB$
  2. 20  CLS
  3. 30  PRINT "                             <0xCB!>LOAD  COLORLOAD  TO<0xE2!>"
  4. 40  PRINT "  1.STRING$OPTIONCALL<UNK! {00F6}>STEPBSAVEMOTORUSROPTION<UNK! {00F7}>TO<0xE2!><0xB5!>SOUND<0xCB!><0xB5!>WRITERESUMELOCATEPRESETWRITEEQVERR<UNK! {FDC8}>WRITE ?"
  5. 50  PRINT "    A.'RESTORE'BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTSAVETHENLOCATEPRESETLINEFNSCREEN^BEEPTOKEYSTEP<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEBF}>LOADWHILE<0xB4!><0xB5!>MERGENOTWENDBEEPTOKEYSTEP."
  6. 60  PRINT "    B.SCREEN=RANDOMIZE<UNK! {00FB}>SPC(AUTOERLVARPTRABEEPTOKEYSTEPMERGERESUMEMOTORTRONUSINGNOTSOUNDCOLORBSAVELOAD,STRING$CLOSESPC(AUTOERLVARPTRLOAD<UNK! {00FC}>BEEPTOKEYSTEPLOCATE<0xE4!>SCREEN*MERGERESUMEMOTORTRONUSINGNOTSOUNDCOLORBSAVELOAD<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORAND'MD'."
  7. 70  PRINT "    C.SCREEN=RANDOMIZE<UNK! {00FB}>SPC(AUTOTAB(AUTOSTEP<0xB5!>THENCALLLOCATE<0xE4!>SCREEN*SPC(CLOSEOPTION<UNK! {00F6}>SCREENERRPSETVARPTRCLOSEIMPOPTIONSOUNDWHILE<0xE4!>SPC(FNSTRING$AUTO<0xB5!>SOUNDSCREENERRPSETVARPTR,COLORKEYNOTBLOADDATE [MM-DD-YY]BLOAD<UNK! {00FC}>MOTORANDCLS<0xB4!>LOCATE<0xB5!>STEPSTRING$."
  8. 80  PRINT "    D.'SYS'BLOAD<UNK! {00FC}>MOTORANDSOUNDPOINTMERGERENUMWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLTAB(SOUNDLOAD<UNK! {FEB4}>RENUM<0xCB!>THEN<0xB5!>MERGESCREENTAB(OPENTAB(BEEPTOSTRING$USR."
  9. 90  PRINT "  2.LOAD'KEY<ERLVARPTRABEEPTOSTRING$USRNOTUSRSPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>TAB(AUTOFILE.BASTAB(SOUNDLOAD<UNK! {FE2C}>SOUNDPRESETBLOAD<0xB4!>SCREEN=OPENTAB(MERGERENUMOPTIONBLOADTAB(SOUNDLOAD<UNK! {FED3}>BLOADTHENDEFSTRFN<UNK! {00F9}><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>COLORMERGEWHILE<0xB4!><0xB5!>MERGEABEEPTO."
  10. 100  LOCATE 9,1:PRINT LI$
  11. 110  PRINT XY$;
  12. 120  BS$=INKEY$
  13. 130  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 140 ELSE IF BS$="r" OR BS$="R" THEN 250 ELSE 120
  14. 140  CLS
  15. 150  PRINT "  3.SCREEN=OPENTAB(LINEFNNOTWENDBEEPTOSTRING$USR<0xB5!>SOUNDSPC(CLOSEOPTION<UNK! {00F6}>CLOSEIMP<0xB6!><0xE0!>OPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEBF}>MERGEWHILE<0xB4!><0xB5!>MERGESCREEN^BEEPTOKEYSTEP?"
  16. 160  PRINT "  4.LOAD'SCREEN=<0xB5!>WHILEPRESETLINESTEP<0xB5!>THENCALLSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>TAB(AUTOA,PRESETSPC(ERLVARPTRABEEPTOSTRING$USRNOTUSRSPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>TAB(AUTO'SDIR'<0xB5!>SOUNDUSINGNOTSOUNDCOLORBSAVELOAD,ERLIMPERL<UNK! {00F5}>FN<UNK! {00F9}>MERGE<UNK! {00F8}>SCREEN*OPTIONBLOAD        USINGNOTSOUNDCOLORBSAVELOAD."
  17. 170  PRINT "  5.SCREEN=OPENTAB(OPTIONSOUNDWHILE<0xE4!>STEP<0xB5!>THENCALLSCREENERRPSETVARPTROPENTHENLOCATEWHILELOAD<0xE4!>?"
  18. 180  PRINT "  6.LOCATEERLMERGERENUMDOSBEEPTOSTRING$USR<0xB5!>SOUNDWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLTAB(SOUNDLOAD<UNK! {FEB4}>RENUM<0xCB!>THEN<0xB5!>MERGESOUND<0xE3!><0xCB!><UNK! {00F9}>STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR."
  19. 190  PRINT "  7.NOTBLOADLOCATEWENDBLOAD<0xB4!>BLOAD<UNK! {00FC}>MOTORANDCOLORKEYSPC(ERLSTEPERLLOCATESAVESTRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>KEYSTEP<0xCB!><UNK! {00F9}>NOTUSR<0xB5!>SOUNDSOUNDCOLORBSAVELOADBSAVEWRITESAVE<0xB6!>?"
  20. 200  PRINT "  8.'PATH'BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDUSING<UNK! {00F7}>NOTBLOADLOCATEPRESETLOCATEWENDBLOAD<0xB4!>?"
  21. 210  LOCATE 9,1:PRINT LI$
  22. 220  PRINT XY$;
  23. 230  BS$=INKEY$
  24. 240  IF BS$="E" OR BS$="e" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN CHAIN "c12",ALL ELSE IF BS$="r" OR BS$="R" THEN 250 ELSE 230
  25. 250  CHAIN "ama1",ALL
  26. 260  END
  27.