home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / BM31.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  13 lines
  1. 10  KEY OFF
  2. 20  CLS:PRINT "                       <0xB5!>VARPTRSCREEN<UNK! {FDD5}>BSAVE  BEEPTOPSETDEFSTR<0xB4!>EDITCLS^LOADLINETAB(SOUNDLOAD<UNK! {FEB4}>EDITCLS^BLOAD<UNK! {00FC}>MOTORAND"
  3. 30  PRINT "             WHILESAVEERRBSAVESTRING$<UNK! {00F7}>SPC(AUTOMERGE+KEYPOINTBEEPTOPSETDEFSTR<0xB4!>EDITCLS^LOADLINETAB(SOUNDLOAD<UNK! {FEB4}>EDITCLS^<0xB5!>SOUNDNOTUSRRANDOMIZEINSTRBLOAD<UNK! {00FC}>MOTORAND,THENRESUMERANDOMIZE<UNK! {FDD5}><0xE2!>ERRBSAVE<0xB5!>SOUNDFNERRORSTEPLINELOADLINELOCATE<0xB5!>LOAD<UNK! {00F9}>,              STEPTROFFTHEN<UNK! {00FB}>SOUND<0xE3!>SOUNDPOINTERRPSETTAB(ERRBEEPTOPSETDEFSTR<0xB4!>EDITCLS^LOADLINETAB(SOUNDLOAD<UNK! {FEB9}>POINTCLS^BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDLOCATERANDOMIZENOTBLOADWRITEMERGEWRITERESUME."
  4. 50  LOCATE 6,1:PRINT "                        STEPBSAVEBLOAD>PRESET*COLOR<0xB4!>WHILESAVEERRBSAVEWEND<0xCB!><0xB5!>ERASE!!!!!";
  5. 60  LOCATE 9,1:PRINT "________________________________________________________________________________"
  6. 80  LOCATE 10,30:PRINT "LINE<0xB4!>COLORERROPTIONEQVLOAD<UNK! {00FC}>MERGE<UNK! {00F8}>SCREEN*WEND<0xCB!><0xB5!>ERASEFNELSEERLEQV LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE";
  7. 90  BA$=INKEY$
  8. 100  IF BA$="R" OR BA$="r" GOTO 140
  9. 110  IF BA$=" " GOTO 130
  10. 120  GOTO 90
  11. 130  CHAIN "bm32",ALL
  12. 140  CHAIN "ama1",ALL
  13.