home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BTE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  23 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                                9.  TYPE  BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "         RANDOMIZEEDITSOUNDPOINT:  TYPEBLOAD<UNK! {00FC}>MOTORANDERLVARPTRPSETMOTORSOUNDCLOSEKEYSTEPSTEPERLLOCATESAVESTRING$OPTION<0xB6!>RESUMETAB(SOUNDLOAD<UNK! {FEB5}>SOUNDSOUNDVARPTRSCREENOFF"
  4. 40  PRINT "         OPTIONEQVLOCATEMERGE:  TYPE [d:] [PATH] FILENAME [.exe]"
  5. 50  PRINT "         USINGTRONLOCATETHEN:  TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>OPENTHENCLSDELETEERRRANDOMIZEBLOAD<UNK! {00FB}>STRING$USRWENDCLOSEERLLOCATEUSR^LOCATERANDOMIZENOTBLOADSCREENRENUMSAVESTRING$TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>USINGSTRING$WRITE<UNK! {00FB}>, SCREEN=RANDOMIZE<UNK! {00FB}>NOTBLOADCLOSEERRORSTEP*<0xB4!>IMPNOTELSESTEPERLLOCATE                     LOCATESAVE<0xB5!>SOUNDTAB(SOUNDLOAD<UNK! {FE2C}>PRESET*THENDEFSTRLOCATEWHILELINE<0xB4!>STEPBSAVECTRLLOADLINEPRTSC"
  6. 51  LOCATE 9,1:PRINT "________________________________________________________________________________"
  7. 52  LOCATE 10,30:PRINT "LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  8. 53  B$=INKEY$
  9. 54  IF B$=" " GOTO 58
  10. 55  IF B$="E" OR B$="e" GOTO 140
  11. 56  IF B$="R" OR B$="r" GOTO 150
  12. 57  GOTO 53
  13. 58  CLS:LOCATE 2,7:PRINT "A>":LOCATE 9,1:PRINT "________________________________________________________________________________"
  14. 60  LOCATE 10,1:PRINT "                STEPBSAVEBLOAD>PRESET*USING<UNK! {00F6}>MOTORWRITESTEPLINE,PRESET*<0xB4!>IMPSCREEN*TYPE C:A.BAS";
  15. 70  LOCATE 2,9:INPUT "  ",B$
  16. 80  IF B$="TYPE C:A.BAS" OR B$="type c:a.bas" GOTO 120
  17. 90  FOR I=1 TO 10:LOCATE 3,5:PRINT "LOCATE<0xE4!>SCREEN*<0xB4!>^,STRING$INSTRUSRBSAVELOCATE<0xE4!>SCREEN*":NEXT I:PRINT "                                          ":LOCATE 2,9:PRINT "                                                    "
  18. 100  GOTO 70
  19. 120  NAME "FFF.BAS" AS "ttTBTE.BAS"
  20. 130  SYSTEM
  21. 140  CHAIN "bm32",ALL
  22. 150  CHAIN "ama1",ALL
  23.