home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.9 KB  |  55 lines
  1. 220  KEY OFF
  2. 225  COMMON LI$,XY$,KS$,AB$
  3. 229  CLS
  4. 230  PRINT "                        2.  BACKUP  BLOAD<UNK! {00FC}>MOTORAND        "
  5. 240  PRINT "        NOTBLOAD'copy'BLOAD<UNK! {00FC}>MOTORANDCOLORKEYSPC(ERLMERGERENUMNOTWEND.SCREEN^BEEPTOLOAD<0xE4!><0xB5!>SOUNDUSRBEEPSTEPTRONMERGE<UNK! {00F8}>USRUSRMERGECLOSECLOSECLOSE,THENDEFSTRFN<UNK! {00F9}>NOTBLOAD'backup'OPENTHEN'restore'         SPC(WENDSOUNDPOINTLOCATE<0xB5!>STEPSTRING$copyBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINT,ERLVARPTR<0xB4!><0xCB!>TAB(SPC(BLOADPRESETLOCATEUSINGSTEPSCREENFNERRORSTEPLINE'backup'BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD."
  6. 250  PRINT "    RANDOMIZEEDITSOUNDPOINT: 'BACKUP'BLOAD<UNK! {00FC}>MOTORANDSAVETHENLOCATEPRESETLINEFNNOTWENDBEEPTOSTRING$USR<0xB5!>SOUNDSPC(CLOSEOPTION<UNK! {00F6}>CLOSEIMP<0xB6!><0xE0!>OPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEBF}>MERGEWHILE<0xB4!><0xB5!>MERGESCREEN^BEEPTOKEYSTEP."
  7. 260  PRINT "    OPTIONEQVLOCATEMERGE: BACKUP [d1:][path] [filename][.ext] [d2:][/s][/a][/m][/d:mm-dd-yy] "
  8. 270  PRINT "    <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: d1:WHILE^LOCATESAVEMERGERENUMWHILECLOSECOLORMERGEWHILEOPTION<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FECB}><UNK! {00F9}>ERLVARPTRBEEPTO<0xB5!>SOUNDWRITE<UNK! {00FB}>OPENBEEP ,ERLVARPTRWHILESAVEBLOAD<UNK! {00FC}>MOTORANDSTRING$USRSPC(CLOSEBSAVEKEYTAB(AUTONOTWENDBEEPTOLOAD<0xB4!>'c:'."
  9. 280  PRINT "          d2:WHILE^LOCATESAVEMERGENOTLOCATEPOINTCOLORMERGEWHILE<0xB4!>NOTWENDBEEPTOTAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDCOLORWHILE-SCREEN^BEEPTO."
  10. 281  LOCATE 9,1:PRINT LI$:PRINT XY$;
  11. 282  B$=INKEY$
  12. 283  IF B$="e" OR B$="E" THEN CHAIN "C0",ALL ELSE IF B$=" " THEN 289 ELSE IF B$="r" OR B$="R" THEN 429 ELSE 282
  13. 289  CLS
  14. 290  LOCATE 1,1:PRINT "        SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSESTRING$OPTION<0xB6!>RESUMEBSAVEWRITESAVE<0xB6!> ,ERLIMP<0xB4!>NOT<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADSTRING$USRCOLORMERGEWHILE<0xB4!>TAB(SOUNDLOAD<UNK! {FE20}>.SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSESTRING$OPTION<0xB6!>RESUMETAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CLOSEIMPTAB(SOUNDLOAD<UNK! {FEC0}>DELETEERRRANDOMIZEBLOAD<UNK! {00FB}>,       ERLIMPMERGERENUMCOLORMERGEWHILE<0xB4!>OPTIONBLOADSOUNDCOLORBSAVELOADSTRING$USR<0xCB!><UNK! {00F9}>NOTUSR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2C}><0xB5!>WHILEERLVARPTRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>STRING$USRLOCATERANDOMIZENOTBLOADSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>LOCATEWHILE ,MERGERENUMLOCATERANDOMIZENOT*TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>       PSETERASEBEEP<0xE4!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB6}>LOADCOLORMERGEWHILE<0xB4!><0xB5!>MERGESCREEN^BEEPTOKEYSTEP."
  15. 310  PRINT "    /s:COLORMERGEWHILE<0xB4!>LINE<UNK! {00FC}>CLSRESUMEUSINGNOTSOUNDCOLORBSAVELOADERLVARPTRSOUNDVARPTR<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRTAB(SOUNDLOAD<UNK! {FE2E}>"
  16. 320  PRINT "    /m:MERGE<UNK! {00F6}>COLORMERGEWHILE<0xB4!><0xB4!>NOTUSINGANDOPENMODSPC(CLOSE<0xB4!>TAB(COLORMERGEWHILE<0xB4!>SPC(ERLCLS<0xB4!>ERL<UNK! {00F8}>USING<UNK! {00F7}>RANDOMIZE<UNK! {FDD0}>INKEY$OPTIONSOUNDRANDOMIZE<UNK! {FDB5}>SOUNDTAB(SOUNDLOAD<UNK! {FE2E}>"
  17. 330  PRINT "    /a:COLORMERGEWHILE<0xB4!><0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEB1}>INSTRUSR*LOADNOTERLVARPTRSPC(FNSAVEDEFINTERLVARPTRSTRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>KEYSTEP<0xB5!>SOUNDWHILEOPTIONWRITEOFFSCREEN^BEEPTOTAB(SOUNDLOAD<UNK! {FED6}>USR."
  18. 340  PRINT "    /d:COLORMERGEWHILE<0xB4!>ERLVARPTRSTRING$OPTION<0xB6!>RESUMESCREENERRPSETVARPTRCLOSEIMPSTRING$OPTION<0xB6!>RESUMESCREENERRPSETVARPTRSTRING$DEFSNGOPENMODUSR<0xB4!>SCREEN*<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2E}>"
  19. 350  PRINT "    STEPBSAVEBLOAD>SCREENBLOADTAB(SPC(BLOADPRESETCLS<0xB4!>FNERRORSTEPLINE'backup'BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDWEND'USING<UNK! {00F7}>:"
  20. 360  LOCATE 9,1:PRINT LI$:PRINT XY$;
  21. 361  B$=INKEY$
  22. 362  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 367 ELSE IF B$="r" OR B$="R" THEN 429 ELSE 361
  23. 367  CLS
  24. 368  LOCATE 1,1:PRINT "C>"
  25. 369  LOCATE 6,1 : PRINT LI$
  26. 370  PRINT "        USINGTRONSPC(<0xE2!>: PSETMOTORSOUNDCLOSEUSINGMODKEYSTEPMERGEPRESET<0xB5!>SOUNDTO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>'C>',<0xCB!><UNK! {00FC}>WHILE^LOCATESAVESTEP<0xB5!>THENCALL<0xB5!>WHILEPRESETLINE<0xB5!>SOUNDSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>TAB(AUTOc,SPC(WENDSAVETHENLOCATEPRESET "
  27. 380  PRINT "    <0xB5!>WHILEPRESETLINELOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>SPC(AUTO<0xB6!>MOTOR/USR<0xB4!><0xB5!>SOUNDBEEPTO,<0xCB!><UNK! {00F9}>SPC(ERLSOUND<0xE3!><0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORANDCOLORKEYSPC(ERLERR<0xE2!>FN<UNK! {00F9}>LOCATE<0xE4!>SCREEN*LOAD<0xB4!>:'backup c:ca1.bas a:'          CLOSEIMP 'backup ca1.bas a:'LOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}><0xB6!>LOADSOUNDPOINTCOLORMERGEWHILE<0xB4!>cBEEPTOSTRING$USR<0xB5!>SOUNDca1.basTAB(SOUNDLOAD<UNK! {FE2E}>"
  28. 383  PRINT  XY$;
  29. 384  B$=INKEY$
  30. 385  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 387 ELSE IF B$="r" OR B$="R" THEN 429 ELSE 384
  31. 387  LOCATE 6,1 : PRINT KS$:PRINT KS$
  32. 389  LOCATE 8,1:PRINT LI$;
  33. 390  PRINT "          PRESET*STEPSCREENERLVARPTRAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USRWEND<0xE5!>SCREEN*SPC(FNOPTIONEQVLOCATEMERGECLOSEDEFDBL<0xB5!>SOUND<0xB4!>BEEPBEEPTO(USINGTRONSPC(<0xE2!> :WEND<0xE5!>SCREEN*<0xB5!>SOUNDBEEPTOPSETDEFSTRKEYSTEPWHILEINSTRUSR*BLOADCLOSENOTUSRTAB(SOUNDLOAD<UNK! {FE2E}>          WRITEEQVERLIMP,BEEPTOKEYSTEP<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEBB}><0xE1!>WHILECLOSEKEYSAVE<0xB5!>\),SCREENCLOSEOPENMOD,<0xB4!>NOTLOAD<UNK! {00FC}>BEEPTOLOCATE<0xE4!>SCREEN*BLOAD<UNK! {00FC}>MOTORAND:'backup ca1.bas a:'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>  ";
  34. 405  LOCATE 1,1:PRINT " ":LOCATE 1,2:INPUT"C>",B$
  35. 406  IF B$="backup ca1.bas a:" OR B$="BACKUP CA1.BAS A:" THEN 410
  36. 407  BEEP
  37. 408  LOCATE 1,40 : PRINT AB$
  38. 409  GOTO 405
  39. 410  LOCATE 1,4 : PRINT B$:LOCATE 1,21:PRINT "                                                       "
  40. 411  LOCATE 2,5 : PRINT "Insert backup diskette 01 in drive A:
  41. 412  PRINT "    Warning ! Diskette files will be erased .
  42. 413  PRINT "    Sterike any key when read.
  43. 414  LOCATE 9,1 : PRINT "        STEP<0xB5!>THENCALLERR<UNK! {FDB5}>SCREEN<0xB4!><UNK! {FDC4}><0xE3!>ERLVARPTRPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}> ASTRING$USRWEND<0xE5!>SCREEN*WHILEOPTIONWRITEOFFBEEPTO .THENDEFSTRLOCATEWHILETO<0xE1!>USRFNSOUND<0xE3!>OPTIONBLOADBEEPTOKEYSTEP<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FEBD}>RENUMCLOSE<0xE1!>WHILECLOSE            KEYSAVE<0xB5!>\,SCREEN=RANDOMIZE<UNK! {00FB}>SOUND<0xE3!><0xB5!>SOUNDBEEPTOPSETDEFSTRSPC(FNWEND<0xE5!>OPENBLOAD,ERLIMPLINE<0xB4!>SCREENTAB(SPC(<0xE2!>LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>.                                    ";
  44. 415  LOCATE 4,32 : B$=INKEY$:IF B$="" THEN 415
  45. 416  FOR I=1 TO 100:I=I+1:LOCATE 1,40:PRINT "ERR<UNK! {FDD4}>VARPTRCOLORMERGEWHILE<0xB4!>":LOCATE 1,40:PRINT "        ":NEXT
  46. 417  LOCATE 5,5 : PRINT "*** Backing up files to diskette 01 ***"
  47. 418  PRINT "\ca1.bas"
  48. 419  PRINT "C>_                                                                             "
  49. 425  LOCATE 9,1:PRINT "    USINGTRONSPC(<0xE2!>:PSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>'C>',ERR<0xE2!>LOCATEPRESETTO<0xE1!>USRFNSOUND<0xE3!>'BACKUP'BLOAD<UNK! {00FC}>MOTORANDERL<0xCB!>USRUSRMERGE<0xE1!>LOCATE<UNK! {00F8}>,DOS<0xB5!>WHILEPRESETLINE<0xB4!>EDITNOTVARPTR<0xB5!>SCREEN<0xB4!><UNK! {FDC3}><UNK! {00FC}>MOTORANDUSING<0xB4!>TODEFSTR.    ";
  50. 426  PRINT XY$;
  51. 427  B$=INKEY$
  52. 428  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c3",ALL ELSE IF B$="r" OR B$="R" THEN 429 ELSE 427
  53. 429  CHAIN "AMA1",ALL
  54. 440  END
  55.