home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C8.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.9 KB  |  37 lines
  1. 1  COMMON XY$,LI$,KS$,AB$
  2. 5  CLS:KEY OFF
  3. 10  PRINT "                          8.  CD  BLOAD<UNK! {00FC}>MOTORAND      "
  4. 20  PRINT "      RANDOMIZEEDITSOUNDPOINT: OPTIONSOUNDWHILE<0xE4!>STRING$OPTION<0xB6!>RESUMECLOSEIMPSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUNDDOS<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADCLOSEIMPSTEPERLLOCATESAVEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUND<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADBSAVEWRITESAVE<0xB6!>."
  5. 30  PRINT "      OPTIONEQVLOCATEMERGE: CHDIR [[d:]path] CLOSEIMP CD [[d:]path]"
  6. 40  PRINT "      <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: LOCATERANDOMIZENOTBLOADUSRINKEY$OPTIONSOUNDSOUNDCOLORBSAVELOADBLOAD<UNK! {00FC}>MOTORANDLOCATEWHILE,SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSESTRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>BLOAD<UNK! {00FB}>ERLIMPWENDKEYNOTBLOADSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>.SCREEN=RANDOMIZE<UNK! {00FB}>LOCATE<0xE4!>
  7. 41  PRINT "            SCREEN*WENDCLOSEOPENDEFSTRWENDTAB(LOCATE<UNK! {FDBB}>IMPMERGE<UNK! {00F6}>LINE<UNK! {00FC}>CLSRESUME d:WENDTAB(LOCATE<UNK! {FDCA}>WHILE,ERLIMPSTEPERLLOCATESAVECALL<UNK! {00F6}>STRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>CLOSEIMPSOUNDDEFSTRSCREENSTEP<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBL                    PSET<UNK! {00F7}><0xB5!>SOUND<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADBSAVEWRITESAVE<0xB6!>."
  8. 62  LOCATE 9,1:PRINT LI$:PRINT XY$;
  9. 63  B$=INKEY$
  10. 64  IF B$=" " THEN 66 ELSE IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$="r" OR B$="R" THEN 65 ELSE 63
  11. 65  CHAIN "ama1",ALL
  12. 66  CLS
  13. 67  LOCATE 7,1: PRINT LI$
  14. 70  PRINT "    PSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>'B>'WHILE^LOCATESAVE<0xB5!>WHILEPRESETLINEDOS<0xB5!>SOUNDSOUNDDEFSTRSCREENSTEPBEEPTOTAB(AUTOB,TAB(AUTOMOTOR<0xCB!>LOCATERANDOMIZESTEPSTRING$USRUSRRANDOMIZESWAPUSING<UNK! {00F7}>PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>TAB(AUTOA,LOCATEUSINGSTEPSCREENPRESET*SOUND<0xE3!>              ERLVARPTRAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USRWEND<0xE5!>SCREEN*ERLVARPTR MDBLOAD<UNK! {00FC}>MOTORANDSTEPBSAVEMERGERESUMENOTUSRSUBDIR1USINGNOTSOUNDCOLORBSAVELOAD<0xB5!>SOUNDBEEPTOPSETDEFSTR,SCREENCLOSEOPENMODLOCATE<0xE4!>SCREEN*'A:'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}> "
  15. 75  LOCATE 1,1:INPUT"B>",BS$
  16. 76  IF BS$="a:" OR BS$="A:" THEN 80 ELSE 77
  17. 77  BEEP
  18. 78  LOCATE 1,40 :PRINT AB$
  19. 79  GOTO  75
  20. 80  LOCATE 1,3:PRINT BS$:LOCATE 1,5 : PRINT "                                                        "
  21. 81  LOCATE 8,1 :PRINT "     PSETMOTORSOUNDCLOSEKEYSTEPCALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!>SOUND<0xE3!><0xCB!><UNK! {00F9}>STEPTROFFTHEN<UNK! {00FB}><0xB5!>SOUNDTO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}> 'A',TAB(AUTOMOTOR<0xCB!>LOCATERANDOMIZEAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUND<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOAD                          OPTIONSOUNDWHILE<0xE4!>TAB(AUTOUSINGNOTSOUNDCOLORBSAVELOAD'SUBDIR1',PRESET*SOUND<0xE3!>LOCATE<0xE4!>SCREEN*: CD\SUBDIR1LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>                    "
  22. 82  LOCATE 2,1:INPUT "A>",BS$
  23. 83  IF BS$="cd\subdir1" OR BS$="CD\SUBDIR1" THEN 88 ELSE 84
  24. 84  BEEP
  25. 85  LOCATE 1,40:PRINT AB$
  26. 86  GOTO 82
  27. 88  LOCATE 1,40 : PRINT "                                "
  28. 89  LOCATE 2,3:PRINT BS$:LOCATE 2,13 : PRINT "                                                            "
  29. 90  LOCATE 8,1:PRINT "     OPENBLOAD!PSETMOTORSOUNDCLOSECALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!><0xB5!>VARPTR<0xB6!><UNK! {FEB8}><UNK! {00F6}>'A>'WRITE<UNK! {00FB}>,TO<0xE1!>LOCATESAVESOUND<0xE3!>STEPSTRING$ERLVARPTRMERGE<UNK! {00F8}>SCREEN*MOTOR<0xCB!>USINGNOTSOUNDCOLORBSAVELOADSUBDIR1,COLORKEYSPC(ERLLINEFNCBEEPTOSTRING$USR<0xB5!>SOUND           'qwer.bat'TAB(SOUNDLOAD<UNK! {FEBF}>MERGEWHILE<0xB4!><0xB5!>MERGEOPTIONBLOADSOUNDCOLORBSAVELOADSTRING$USR.PRESET*SOUND<0xE3!>LOAD<UNK! {00FC}>SCREEN*:COPY C:QWER.BAT BBB.BAKLOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>           (CLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>'bak'WHILE^LOCATESAVE'bbb.bak'LOCATEPRESETSPC(CLOSEOPTION<UNK! {00F6}>OPENMODWHILEOPTIONTAB(SOUNDLOAD<UNK! {FE29}> " ;
  30. 92  LOCATE 3,1:INPUT "A>",BS$
  31. 94  IF BS$="copy c:qwer.bat bbb.bak" OR BS$="COPY C:QWER.BAT BBB.BAK" THEN 103 ELSE 95
  32. 95  BEEP
  33. 96  LOCATE 1,40 :PRINT AB$
  34. 97  GOTO 92
  35. 103  LOCATE 3,1:PRINT KS$:LOCATE 3,1:PRINT "A>";:PRINT BS$:LOCATE 1,40:PRINT "                             ":NAME "fff.bas" AS "ttt8.bas"
  36. 105  CLS:SYSTEM
  37.