home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C9.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  25 lines
  1. 1  COMMON XY$,LI$,KS$,AB$
  2. 5  CLS
  3. 10  PRINT "                             9.  TREE  BLOAD<UNK! {00FC}>MOTORAND      "
  4. 20  PRINT "          RANDOMIZEEDITSOUNDPOINT: STEPERLLOCATESAVECALL<UNK! {00F6}>ERLVARPTRSTRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>KEYSTEPWRITETRONSTEPSTRING$<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRSOUNDCOLORBSAVELOADBSAVEWRITESAVE<0xB6!>, WENDTRONNOTUSRFNELSEERLEQV<0xB5!>INSTRMOTORUSRCALL<UNK! {00F6}>OPTION<UNK! {00F7}>                        OPTION<UNK! {00F6}>USINGNOTSOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2E}>"
  5. 30  PRINT "          OPTIONEQVLOCATEMERGE: TREE [d:] [/f]"
  6. 40  PRINT "          <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: (1)SCREEN=RANDOMIZE<UNK! {00FB}>BLOADCLOSENOTUSRSTRING$OPTION<0xB6!>RESUMEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,ERLIMPLOAD'KEY<SOUNDDEFSTRSCREENSTEP<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>."
  7. 50  PRINT "                (2)<0xB6!>ERLNOTVARPTRBLOADCOLORSPC(CLOSEOPTION<UNK! {00F6}>ERRSPC(<0xB5!>MERGE<0xB5!>SOUNDSOUNDCOLORBSAVELOAD,MERGERENUMSTEPERLLOCATESAVE<0xCB!><UNK! {00FC}><0xB5!>SOUNDTHEN-ERR<UNK! {00FB}>BSAVEWRITESAVE<0xB6!>BLOAD<UNK! {00FB}>SPC(ERLLOADLINE<0xB6!>RESUMESPC(<0xE5!>ERLVARPTROPTIONBLOAD                           SOUNDCOLORBSAVELOADSOUNDVARPTR<0xB5!>SOUNDSCREENTAB(OPENTAB(PSET<0xE4!><0xCB!><UNK! {00FC}>SOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>(ERLVARPTRLOCATE<0xE4!>CALL<UNK! {00F6}>STRING$USRERR<0xE2!>USRDELETEWHILECLOSECALLPSETTAB(AUTOUSINGNOTSOUNDCOLORBSAVELOAD)."
  8. 60  PRINT "                (3)SCREEN=RANDOMIZE<UNK! {00FB}>LOCATERANDOMIZENOTBLOAD/FWENDTAB(LOCATE<UNK! {FD2C}>SPC(<0xE0!>MERGERENUMSTEPERLLOCATESAVEOPTION<UNK! {00F7}>OPTION<UNK! {00F6}>USINGNOTSOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUND<0xCB!><UNK! {00F9}>NOTUSRTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>."
  9. 70  LOCATE 9,1:PRINT LI$:PRINT XY$;
  10. 71  B$=INKEY$
  11. 72  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 75 ELSE IF B$="r" OR B$="R" THEN 74 ELSE 71
  12. 74  CHAIN "ama1",ALL
  13. 75  CLS
  14. 76  LOCATE 7,1 : PRINT LI$
  15. 80  PRINT "     OPTION<UNK! {00F9}>SAVEOFFTO<0xE1!>LOCATESAVETHEN-CALLKEYSPC(ERLSTEPBSAVEMOTORWRITESTEPLINE:MOTORUSRCALL<UNK! {00F6}>PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}> AKEYSTEP<0xCB!><UNK! {00F9}>NOTUSRSOUNDCOLORBSAVELOAD,WENDTRONSTEPERLLOCATESAVELINE<UNK! {00FC}>OPENDEFSTRERLVARPTROPTION<UNK! {00F7}>SOUNDCOLORBSAVELOADSTRING$USR<0xB5!>SOUND     "
  16. 90  PRINT "    <0xCB!><UNK! {00F9}>NOTUSRUSINGNOTSOUNDCOLORBSAVELOADBLOAD<UNK! {00FB}>OPENTHENTAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>. PRESET*LOAD<UNK! {00FC}>SCREEN* TREE A:/F LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>";
  17. 100  LOCATE 1,2 : INPUT "A>",BS$
  18. 104  IF BS$="tree a:/f" OR BS$="TREE A:/F" THEN 110 ELSE 105
  19. 105  BEEP
  20. 106  LOCATE 1,40 : PRINT AB$
  21. 107  GOTO 100
  22. 110  LOCATE 1,4:PRINT BS$:LOCATE 1,13:PRINT "                                                           ":NAME "fff.bas" AS "ttt9.bas"
  23. 120  CLS:SYSTEM
  24. 130  END
  25.