home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C7.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.3 KB  |  77 lines
  1. 4  COMMON XY$,LI$,KS$,AB$
  2. 5  KEY OFF:CLS
  3. 10  PRINT "                          7.  MD  BLOAD<UNK! {00FC}>MOTORAND       "
  4. 20  PRINT "        WHILESAVEMERGEVARPTROPENTHENSTEPBSAVEBLOAD>LOADOPTIONMERGEVARPTRMERGERENUMSTEPIMPSOUND<0xE3!>MERGE+KEYPOINTDOS<0xB5!>SOUNDSOUNDCOLORBSAVELOADWEND'USING<UNK! {00F7}>BLOAD<UNK! {00FC}>MOTORAND(MD;CD;TREE;PATH).DOS<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE20}>"
  5. 30  PRINT "    STEP<0xB5!>THENCALLLOCATEPRESETWENDKEYNOTBLOADLOCATE<UNK! {00F7}>USRTHENSOUNDCOLORBSAVELOADMERGE<0xE1!>RANDOMIZERANDOMIZE,LOCATE<UNK! {00F7}>STRING$USR<0xB5!>SOUNDBLOADCOLORSPC(CLOSEOPTION<UNK! {00F6}>MERGE<0xE1!><0xB5!><0xE3!><0xB6!>LOADNOTUSRSPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>USINGSTRING$SPC(ERLRANDOMIZEDELETEWRITEBLOADTAB(LOCATE,LOCATE<UNK! {00F7}><0xB5!>SOUNDMERGE<0xE1!><0xB5!><0xE3!>WRITESTRING$TAB(AUTO        SCREEN<UNK! {FDC0}><0xE0!>:OPTION<UNK! {00F9}>MERGE<0xE1!><0xB5!><0xE3!>WHILE^LOCATESAVEOPTION<UNK! {00F9}>SOUNDCOLORBSAVELOAD;LOCATE<UNK! {00F7}>STRING$EDITMERGE<0xE1!><0xB5!><0xE3!>WHILE^LOCATESAVEUSINGNOTSOUNDCOLORBSAVELOAD;<0xB6!><UNK! {00F8}>LOCATE<UNK! {00F7}>SPC(<0xB6!>ERLIMPWHILE^LOCATESAVEPSETERRTHENRESUMETAB(SOUNDLOAD<UNK! {FE2C}>SCREEN=STEPBSAVETHENLOAD<0xCB!><UNK! {00F9}>LOCATESAVE:
  6. 31  LOCATE 5,38 : PRINT "GML"
  7. 32  LOCATE 6,10 : PRINT "sys.com"
  8. 33  LOCATE 7,38 : PRINT "\sub2"
  9. 34  LOCATE 7,63 : PRINT "\sub1"
  10. 35  LOCATE 8,16 : PRINT "qa.for"
  11. 36  LOCATE 8,51 : PRINT "c2.bas"
  12. 37  LOCATE 9,70 : PRINT "c3.bas"
  13. 38  LOCATE 9,38 :PRINT "\sub3":LOCATE 10,25:PRINT "c1.bas";
  14. 39  GOSUB 600
  15. 40  LOCATE 25,1:PRINT XY$;
  16. 41  BS$=INKEY$
  17. 42  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 45 ELSE IF BS$="r" OR BS$="R" THEN 163 ELSE 41
  18. 45  CLS
  19. 50  PRINT "    OPTION<UNK! {00F9}>SOUNDCOLORBSAVELOAD:NOTSTRING$CALLPSETTAB(AUTOSTEP<0xB5!>THENCALLSOUNDCOLORBSAVELOAD,BLOADCOLORERRBEEPBEEPTOKEYSTEPSTRING$CLOSENOTUSRSPC(CLOSEOPTION<UNK! {00F6}>OPTION<UNK! {00F9}>SOUNDCOLORBSAVELOAD,<0xCB!><UNK! {00FC}>LOCATEPRESETBEEPTOPSETDEFSTRCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLLOCATEWHILEUSINGERL<0xB6!>DEFDBLMERGERESUMEMOTORTRON<0xB5!>SOUND,               CLS<UNK! {FDC8}>=KEYSTEPSPC(CALLSTRING$USR<0xB5!>SOUNDGWL."
  20. 60  PRINT "    USINGNOTSOUNDCOLORBSAVELOAD:LOCATEPRESETLINE<UNK! {00FC}>OPENDEFSTRERLVARPTROPTION<UNK! {00F9}>SOUNDCOLORBSAVELOADCLOSEIMPPSET<0xE4!><0xCB!><UNK! {00FC}>USINGNOTSOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUNDSOUNDCOLORBSAVELOAD,USINGNOTSOUNDCOLORBSAVELOADLOCATEPRESETNOTKEYDOSTO<0xE1!>RANDOMIZEDELETE<0xB5!>SOUNDMDBLOAD<UNK! {00FC}>MOTORANDCLS<0xB4!>MERGERESUME                MOTORTRON<0xB5!>SOUND,ERLVARPTRTHENDEFSTRSPC(CLOSESOUNDCOLORBSAVELOADSTRING$USRCOLORKEYSPC(ERLMERGERESUMEMOTORTRON<0xB6!><0xE0!>OPTION<UNK! {00F6}>WENDCLOSETHENDEFSTRBLOAD<UNK! {00FB}><0xB5!>SOUNDUSINGNOTSOUNDCOLORBSAVELOAD."
  21. 70  PRINT "           SCREEN=RANDOMIZE<UNK! {00FB}>LOADUSINGSOUNDCOLORBSAVELOADLINE<UNK! {00FC}>OPENDEFSTRMOTOR<0xCB!>SPC(SPC(SOUNDCOLORBSAVELOAD ,TAB(SPC(BLOADPRESETSAVETHEN<0xCB!><0xB5!>:LOADUSINGSOUNDCOLORBSAVELOADLOCATEPRESETSPC(SPC(SOUNDCOLORBSAVELOAD<0xB5!>SOUNDOPTIONOPTIONSOUNDCOLORBSAVELOAD,<0xB6!><UNK! {00F8}>SPC(SPC(SOUNDCOLORBSAVELOAD   "
  22. 80  PRINT "           LOCATEPRESETLOADUSINGSOUNDCOLORBSAVELOAD<0xB5!>SOUNDUSINGNOTSOUNDCOLORBSAVELOAD,TAB(AUTOMOTOR<0xCB!>WHILE-LOCATE<0xB6!>USINGNOTSOUNDCOLORBSAVELOAD,USINGNOTSOUNDCOLORBSAVELOADWHILEINSTRUSR*NOTUSRSOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>, SOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}><0xB5!>SOUNDOPTIONEQVLOCATEMERGE                NOT*TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>STEP<0xE0!>CLS<0xE0!><0xCB!>PSET.";
  23. 90   PRINT "CLS<UNK! {FDC8}>=KEYSTEPSPC(CALLSTRING$USR<0xB5!>SOUNDSUB1,SUB2,SUB3."
  24. 91  LOCATE 9,1:PRINT LI$
  25. 92  PRINT "         LINE<0xB4!>'F'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRKEYSTEPSPC(CALL ;LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> ;LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE4 ;LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  26. 93  B$=INKEY$
  27. 94  IF B$="e" OR B$="E" THEN  CHAIN "c0",ALL ELSE IF B$=" " THEN 95 ELSE IF B$="f" OR B$="F" THEN 5 ELSE IF B$="R" OR B$="r" THEN 163 ELSE 93
  28. 95  CLS
  29. 100  PRINT "    BSAVEWRITESAVE<0xB6!> : USINGNOTSOUNDCOLORBSAVELOADTHENRESUMERANDOMIZE<UNK! {FDCA}><UNK! {00F7}>STEP<0xB5!>THENCALL<0xB5!>SOUNDLOCATE<UNK! {00F7}>STRING$EDITOPENTHENKEYSTEPSPC(CLOSELOAD<0xB6!><0xB5!>SOUNDSOUNDCOLORBSAVELOADSTEP<0xE0!>MOTORDEFSTRMERGENOT,OPTION<UNK! {00F9}>SOUNDCOLORBSAVELOAD<0xB5!>MERGEUSINGNOTSOUNDCOLORBSAVELOAD<0xB5!>SOUNDTOINSTR<0xB6!>RESUMETHENRESUME                BSAVEWRITESAVETHENMERGEUSRUSING<UNK! {00F6}>BSAVEWRITESAVE<0xB6!>.";
  30. 105  LOCATE 9,1:PRINT LI$
  31. 110  PRINT "         LINE<0xB4!>'F'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRKEYSTEPSPC(CALL ;LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> ;LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE4 ;LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  32. 111  B$=INKEY$
  33. 112  IF B$="e" OR B$="E" THEN  CHAIN "c0",ALL ELSE IF B$=" " THEN 115 ELSE IF B$="f" OR B$="F" THEN 95 ELSE IF B$="R" OR B$="r" THEN 163 ELSE 111
  34. 115  CLS
  35. 117  LOCATE 2,1 :PRINT  "          ERLVARPTR<0xB4!><0xCB!>TAB(SPC(BLOADPRESETLOCATEUSINGSTEPSCREENFNERRORSTEPLINE MDBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOAD:"
  36. 120  LOCATE 4,1:PRINT "          RANDOMIZEEDITSOUNDPOINT: ERLVARPTRSTRING$OPTION<0xB6!>RESUME<0xB5!>SOUND<0xB4!>BEEPBEEPTOKEYSTEPMERGERESUMEMOTORTRONUSINGNOTSOUNDCOLORBSAVELOAD"
  37. 130  PRINT "          OPTIONEQVLOCATEMERGE: MKDIR [d:] path CLOSEIMP MD [d:] PATH"
  38. 140  PRINT "          <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: (1)SCREEN=RANDOMIZE<UNK! {00FB}>BLOADCLOSENOTUSRSTRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,ERLIMPWENDKEYNOTBLOADSOUNDDEFSTRSCREENSTEPPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>."
  39. 150  PRINT "                (2)path:(SOUNDCOLORBSAVELOADBSAVEWRITESAVE<0xB6!>)NOTBLOADWRITE<0xB4!>USRWHILEOPTIONPOINTSTEP<0xE0!>CLOSEERASEOPTION\COLORAUTO<0xB5!>SOUNDSPC(CLOSEUSING+SOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>CLS<0xB4!>WHILE^LOCATESAVE,                              BSAVEWRITESAVE<0xB6!>SCREEN\SPC(ERL'\'COLORAUTOLOCATELOADERLIMPWHILE^LOCATESAVESAVE<UNK! {00F8}><0xB6!>ERLBSAVEWRITESAVE<0xB6!>,WRITEEQVERLIMPSAVETHENWHILE^LOCATESAVESTEP<0xE0!><0xB6!>ERLBSAVEWRITESAVE<0xB6!>."
  40. 160  LOCATE 9,1 :PRINT LI$:PRINT XY$;
  41. 161  BS$=INKEY$
  42. 162  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 165 ELSE IF BS$="r" OR BS$="R" THEN 163 ELSE 161
  43. 163  CHAIN "ama1",ALL
  44. 165  CLS
  45. 166  LOCATE 1,2:PRINT "A>";
  46. 168  LOCATE 7,1:PRINT LI$
  47. 170  LOCATE 8,1:PRINT "    LOAD'SCREEN=SOUND<0xE3!>STEP*ERLVARPTRAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUNDOPTION<UNK! {00F9}>SOUNDCOLORBSAVELOADSTRING$USRMERGERESUMESPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FB}>TAB(AUTOSUBDIR1<0xB5!>SOUNDUSINGNOTSOUNDCOLORBSAVELOAD,ERLIMPLOCATEUSINGSTEPSCREENWEND<0xE5!>SCREEN*SPC(FNOPTIONEQVLOCATEMERGECLOSEDEFDBL           BEEPTOPSETDEFSTRSTRING$MOTORAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR,SCREENCLOSEOPENMODLOAD<UNK! {00FC}>SCREEN*'MD A:\SUBDIR1'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  48. 175  LOCATE 1,3:INPUT ">",BS$
  49. 180  IF BS$="MD A:\SUBDIR1" OR BS$="md a:\subdir1" THEN 195 ELSE 184
  50. 184  BEEP
  51. 185  LOCATE 1,40 :PRINT AB$
  52. 190  GOTO 175
  53. 195  LOCATE 1,4:PRINT BS$:LOCATE 1,17 :PRINT "                                                             "
  54. 196  NAME "fff.bas" AS "ttt7.bas"
  55. 200  CLS:SYSTEM
  56. 210  END
  57. 600  SCREEN 2
  58. 610  CIRCLE (315,85),100, , , ,1/10
  59. 611  LINE (100,93)-(215,85)
  60. 615  LINE (415,85)-(515,109)
  61. 617  LINE (315,95)-(315,108):DRAW "e3 l6 f3"
  62. 620  CIRCLE (100,102),35, , , ,1/4
  63. 630  CIRCLE (145,135),35, , , ,1/4
  64. 640  CIRCLE (315,117),35, , , ,1/4
  65. 641  LINE (315,126)-(315,143):DRAW "e3 l6 f3"
  66. 645  LINE (278,117)-(145,126)
  67. 647  LINE (354,117)-(420,125)
  68. 650  CIRCLE (515,118),35, , , ,1/4
  69. 651  LINE (515,127)-(570,145)
  70. 660  CIRCLE (570,155),35, , , ,1/4
  71. 670  CIRCLE (420,135),35, , , ,1/4
  72. 680  CIRCLE (315,152),35, , , ,1/4
  73. 681  LINE (280,152)-(215,160)
  74. 690  CIRCLE (215,170),35, , , ,1/4
  75. 700  LOCATE 10,70:PRINT " ";
  76. 701  RETURN
  77.