home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BM32.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.5 KB  |  39 lines
  1. 5  CLS
  2. 10  KEY OFF
  3. 20  PRINT "      **************************  USINGNOT  WEND<0xCB!>  <0xB5!>ERASE  3  ***************************"
  4. 50  PRINT "      *   1.  DIR(MOTORUSRCALL<UNK! {00F6}>SOUNDCOLORBSAVELOAD)BLOAD<UNK! {00FC}>MOTORAND                6.  COPY(OPTION<0xB4!>STRING$PSETTAB(SOUNDLOAD<UNK! {FE29}>BLOAD<UNK! {00FC}>MOTORAND      *"
  5. 60  PRINT "      *   2.  DISKCOPY(OPTION<0xB4!>STRING$PSETSCREEN^BEEPTO)BLOAD<UNK! {00FC}>MOTORAND           7.  COMP(TAB(SOUNDLOAD<UNK! {FEB1}>SCREENMERGESTEP)BLOAD<UNK! {00FC}>MOTORAND      *"
  6. 70  PRINT "      *   3.  DISKCOMP(SCREEN^BEEPTOWHILESCREENMERGESTEP)BLOAD<UNK! {00FC}>MOTORAND           8.  RENAME(TAB(SOUNDLOAD<UNK! {FED6}>INSTRBLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>)BLOAD<UNK! {00FC}>MOTORAND  *"
  7. 80  PRINT "      *   4.  CHKDSK(LOAD/WEND+BEEPTO)BLOAD<UNK! {00FC}>MOTORAND               9.  TYPE(STEPERLLOCATESAVETAB(SOUNDLOAD<UNK! {FEC4}>VARPTRSCREENOFF)BLOAD<UNK! {00FC}>MOTORAND  *"
  8. 90  PRINT "      *   5.  FORMAT(OPTIONEQVLOCATEMERGECLOSEDEFDBLBEEPTOPSETDEFSTR)BLOAD<UNK! {00FC}>MOTORAND           10. ERASE(KEYSAVECALL<UNK! {FDCE}>SOUNDLOAD<UNK! {FE29}>BLOAD<UNK! {00FC}>MOTORAND     *"
  9. 95  PRINT "                                   A.  <0xCB!>LOADCOLORLOADTO<0xE2!>
  10. 100  PRINT "      **********************************************************************"
  11. 110  LOCATE 9,1:PRINT "     PRESET*LOCATE<0xE4!>SCREEN*SOUND<0xE3!><0xB5!>SOUNDFNELSEERLEQV(1-A)CLOSEIMPLINE<0xB4!>'E'LOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>" ;
  12. 120  LOCATE 9,40:INPUT "  ",BB$
  13. 130  IF BB$="1" GOTO 300
  14. 140  IF BB$="2" GOTO 310
  15. 150  IF BB$="3" GOTO 320
  16. 160  IF BB$="4" GOTO 330
  17. 170  IF BB$="5" GOTO 340
  18. 180  IF BB$="6" GOTO 350
  19. 190  IF BB$="7" GOTO 360
  20. 200  IF BB$="8" GOTO 370
  21. 210  IF BB$="9" GOTO 380
  22. 220  IF BB$="10" GOTO 390
  23. 225  IF BB$="A" OR BB$="a" GOTO 395
  24. 230  IF BB$="e" OR BB$="E" GOTO 510
  25. 240  FOR I=1 TO 10:LOCATE 9,10:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:LOCATE 9,1:PRINT "                                                                              ";
  26. 250  GOTO 120
  27. 300  CHAIN "bdr.bas",10,ALL
  28. 310  CHAIN "bdc.bas",5,ALL
  29. 320  CHAIN "bdp.bas",10,ALL
  30. 330  CHAIN "bdk.bas",10,ALL
  31. 340  CHAIN "bft.bas",10,ALL
  32. 350  CHAIN "bcy.bas",10,ALL
  33. 360  CHAIN "bcp.bas",5,ALL
  34. 370  CHAIN "brm.bas",10,ALL
  35. 380  CHAIN "bte.bas",10,ALL
  36. 390  CHAIN "bes.bas",10,ALL
  37. 395  CHAIN "bms.bas",10,ALL
  38. 510  CHAIN "AMA1",ALL
  39.