home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C10.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.5 KB  |  55 lines
  1. 2  COMMON XY$,LI$,KS$,AB$
  2. 5  CLS
  3. 10  PRINT "                        10.  PATH  BLOAD<UNK! {00FC}>MOTORAND         "
  4. 20  PRINT "          NOTUSRLOCATEWHILENOTBLOADCLOSEERRORERLVARPTRUSINGERLSPC(FN<0xB5!>SOUNDSOUNDCOLORBSAVELOADSTRING$USRRANDOMIZESWAPUSING<UNK! {00F7}>LOCATEWHILE,CALLTROFFCALLTROFFCLOSE<0xE1!>LOCATERANDOMIZENOTBLOADWHILEXOR<0xB5!>SOUNDSOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUNDTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORAND,                ERLIMP PATH BLOAD<UNK! {00FC}>MOTORANDCOLORKEYSPC(ERLBSAVE<UNK! {00FA}>USING<0xE3!>ERR<0xE2!>SPC(CLOSESPC(AUTOPRESETMOD ,LOAD<0xB4!>LOAD'SCREEN=ERLVARPTR<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADSTRING$USRERRSPC(WENDCLOSE<0xB5!>MERGESOUNDCALLSPC(CLOSETHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>                MOTORANDTAB(SOUNDLOAD<UNK! {FECA}>WHILE,PATHCOLORKEYSPC(ERLMERGE<UNK! {00F8}>SPC(CLOSEWENDMERGE<0xB4!>NOTPSET<0xE4!><0xCB!><UNK! {00FC}><0xB5!>SOUNDSTRING$OPTION<0xB6!>RESUMESOUNDCOLORBSAVELOADSTRING$USRWEND+ERRSPC(."
  5. 30  PRINT "      RANDOMIZEEDITSOUNDPOINT: STRING$OPTION<0xB6!>RESUMESPC(CLOSEUSRDELETESOUNDCOLORBSAVELOADCLS<0xB4!>LOAD/<0xCB!><UNK! {00F7}>ERLVARPTR<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADKEYSTEPLOAD/<0xCB!><UNK! {00F7}>WENDCLOSE<0xB5!>MERGE<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORANDCLOSEIMPBEEP<UNK! {00FA}>TAB(SOUNDLOAD<UNK! {FE2E}>
  6. 40  PRINT "      OPTIONEQVLOCATEMERGE: PATH [d:] PATH [[;[d:] path]...]
  7. 50  PRINT "      <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: (1)SCREEN=RANDOMIZE<UNK! {00FB}>BLOAD<UNK! {00FC}>MOTORANDWENDCLOSE<0xB4!><UNK! {00F8}>WENDTAB(LOCATE<UNK! {FD2C}> MERGERENUMSTEPERLLOCATESAVESTEPSTRING$USRUSR<0xB5!>SOUNDBLOAD<UNK! {00FC}>MOTORANDBSAVEWRITESAVE<0xB6!>."
  8. 51  LOCATE 9,1:PRINT LI$:PRINT XY$;
  9. 53  BS$=INKEY$
  10. 54  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 55 ELSE IF BS$="r" OR BS$="R" THEN 118 ELSE 53
  11. 55  CLS
  12. 60  PRINT "            (2)SCREEN=RANDOMIZE<UNK! {00FB}>MERGE<UNK! {00F6}>NOTUSR';'WENDTAB(LOCATE<UNK! {FD2C}>ERLIMPMERGE<UNK! {00F6}>ERLVARPTR<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADSTRING$USRFNLINEERRSPC(THEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDTAB(SOUNDLOAD<UNK! {FE2E}>"
  13. 70  PRINT "            (3)SCREEN=RANDOMIZE<UNK! {00FB}>WENDTAB(LOCATE<UNK! {FDD6}>USRNOTUSR<0xB6!><0xE0!>OPTION<UNK! {00F6}>BSAVEWRITESAVE<0xB6!>BLOAD<UNK! {00FB}>,ERLIMPMERGERENUMSTRING$XOROPTION<UNK! {00F6}>WEND+ERRSPC(<0xCB!><UNK! {00FC}>BLOADPRESET,STRING$WHILESTRING$MOTOR<0xCB!><UNK! {00F9}>LOCATE<0xE4!>SCREEN*<0xB5!>SOUNDTHEN<0xE2!>                          WENDCOLORBLOAD<UNK! {00FC}>MOTORANDERRSPC(<0xB5!>MERGETAB(AUTOSTRING$RANDOMIZE.";
  14. 80  LOCATE 9,1:PRINT LI$:PRINT XY$;
  15. 81  BS$=INKEY$
  16. 82  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 85 ELSE IF BS$="r" OR BS$="R" THEN 118 ELSE 81
  17. 85  CLS
  18. 90  PRINT "       STEPSTRING$ERLVARPTRSAVE'SPC(CLOSECLS<UNK! {FDD7}>NOT<0xCB!><0xB5!>BLOAD<UNK! {00F7}>'PATH'<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD:"
  19. 100  LOCATE 3,1:PRINT "          LOAD'SCREEN=ERLVARPTRB PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUND MYDIR SOUNDCOLORBSAVELOADNOTUSRSPC(CLOSEOPTION<UNK! {00F6}>THEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDCALLTOUSRIMP MYPROG.COM,PRESETSPC(SOUNDDEFSTRSCREENSTEP<0xB5!>SOUNDPRESET<UNK! {FD20}>        <0xB6!>DEFDBLPSET<UNK! {00F7}>TAB(AUTOA ERLIMPERLVARPTRLOCATE<0xE4!>SCREEN*'PATH\LEVE2;\LEVE2\LEVE3;B:\MYDIR'BLOAD<UNK! {00FC}>MOTORANDSPC(ERLOPENMOD<0xB5!>SOUNDSCREENTAB(OPENTAB(SOUNDCOLORBSAVELOADSTEPBSAVE, "
  20. 105  PRINT "      ERL'LOCATE<0xE4!>SCREEN* MYPROG BLOAD<UNK! {00FC}>MOTORAND,DOS <0xB6!>LOADCLOSE<0xE1!>ERLVARPTRSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUND<0xB5!>WHILEPRESETLINESOUNDCOLORBSAVELOADKEYSTEPLOAD/<0xCB!><UNK! {00F7}>,WENDTRON<0xCB!>>OPENMOD<0xCB!>CALLUSRIMPLOAD/"
  21. 110  PRINT "      <0xCB!><UNK! {00F7}>A:\LEVE2,A:\LEVE2\LEVE3,B:\MYDIRSTRING$WHILE<0xB5!>MERGEERRSPC(<0xB5!>MERGE'MYPROG.COM'TAB(AUTOSTRING$RANDOMIZE."
  22. 112  LOCATE 8,1:PRINT "      STEPBSAVEBLOAD>SCREENBLOADTAB(SPC(BLOADPRESETLOCATE<0xB5!>STEPLINESPC(CLOSESTEPBSAVEERR<0xE2!>OPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD."
  23. 115  LOCATE 25,1:PRINT XY$;
  24. 116  BS$=INKEY$
  25. 117  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 130 ELSE IF BS$="r" OR BS$="R" THEN 118 ELSE 116
  26. 118  CHAIN "ama1",ALL
  27. 130  CLS
  28. 135  LOCATE 1,2 : PRINT "C>_"
  29. 140  LOCATE 7,1:PRINT LI$
  30. 145  PRINT "    USINGTRONSPC(<0xE2!>PSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVE,<0xCB!><UNK! {00FC}>OPTION><0xCB!><0xDF!>TAB(SPC(BLOADPRESET<0xB5!>WHILEPRESETLINESTEP<0xB5!>THENCALLSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>TAB(AUTOC .SPC(FNSTRING$AUTOERLVARPTR CBEEPTOBLOAD<UNK! {00FB}>TAB(AUTOMSUB3<0xB5!>SOUNDUSINGNOTSOUNDCOLORBSAVELOADSTRING$USR "
  31. 150  PRINT "       NOTUSRSPC(CLOSEOPTION<UNK! {00F6}>THEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDCALLTOUSRIMP SYS.COM .PRESET*WEND<0xE5!>SCREEN*SPC(FNOPTIONEQVLOCATEMERGECLOSEDEFDBL<0xB5!>SOUNDCOLORERRBEEPTO<0xB5!>MERGEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}> ASTRING$USR."
  32. 170  PRINT XY$;
  33. 171  BS$=INKEY$
  34. 172  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 174 ELSE IF BS$="r" OR BS$="R" THEN 118 ELSE 171
  35. 174  CLS
  36. 175  LOCATE 1,2:PRINT "C>";
  37. 177  LOCATE 7,1:PRINT LI$
  38. 180  PRINT "   PRESET*LOAD<UNK! {00FC}>SCREEN*:PATH A:\MSUB1\MSUB2;C:\MSUB3 LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>";
  39. 181  LOCATE 1,2:INPUT "C>",BS$
  40. 182  IF BS$="path a:\msub1\msub2;c:\msub3" OR BS$="PATH A:\MSUB1\MSUB2;C:\MSUB3" THEN 186 ELSE 183
  41. 183  BEEP
  42. 184  LOCATE 1,40:PRINT AB$
  43. 185  GOTO 181
  44. 186  LOCATE 1,4:PRINT BS$:LOCATE 1,32 : PRINT "                              "
  45. 187  FOR I=1 TO 50:I=I+1:LOCATE 1,40:PRINT "ERR<UNK! {FDD4}>VARPTRKEY<STRING$BLOAD !KEYERLOPENIMPPSETDEFSTRCOLORTO":LOCATE 1,40:PRINT "                  ":NEXT
  46. 190  LOCATE 9,14:PRINT "ERL'LOAD<UNK! {00FC}>SCREEN*:SYS A:LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  47. 191  LOCATE 2,2:INPUT "C>",B$
  48. 192  IF B$="sys a:" OR B$="SYS A:" THEN 196 ELSE 193
  49. 193  BEEP
  50. 194  LOCATE 1,40:PRINT AB$
  51. 195  GOTO 191
  52. 196  LOCATE 2,4:PRINT B$:LOCATE 2,10:PRINT "                                                         ":NAME "fff.bas" AS "ttt10.bas"
  53. 197  CLS:SYSTEM
  54. 200  END
  55.