home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / AMA1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  896 b   |  18 lines
  1. 10  KEY OFF:CLS
  2. 20  PRINT "       ***************************  STRING$<UNK! {00F7}>  WEND<0xCB!>  <0xB5!>ERASE  ***************************"
  3. 30  PRINT "       * 1. <0xB5!>VARPTRSPC(CLOSEERRBSAVE USR<UNK! {00F7}>BSAVECSRLIN                  4. <0xB5!>VARPTR<0xCB!>SOUNDERRBSAVE NOTWENDBEEPTO.STEP<0xB5!>THENCALL.SOUNDCOLORBSAVELOADRANDOMIZEPOINTCLS^BLOAD<UNK! {00FC}>MOTORAND *"
  4. 40  PRINT "       * 2. <0xB5!>VARPTR<0xB6!><UNK! {FED5}>BSAVE DOSBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDOPTIONBEEPSOUNDANDLOADLINELOCATE<UNK! {00F5}>NOTOR   5. <0xB5!>VARPTRTAB(<0xE5!>ERRBSAVE BEEP<UNK! {00FA}><0xB4!>EDITCLS^.<0xB5!><UNK! {00F7}>LOCATEERLCALLTOUSRIMP        *"
  5. 50  PRINT "       * 3. <0xB5!>VARPTRSCREEN<UNK! {FDD5}>BSAVE BEEPTOPSETDEFSTRLOADLINETAB(SOUNDLOAD<UNK! {FEB9}>POINTCLS^BLOAD<UNK! {00FC}>MOTORAND    6. <0xB5!>VARPTRMOTOR<UNK! {00F9}>ERRBSAVE USRUSRWHILE<0xE0!>LOADDEFINTBLOAD<UNK! {00FC}>MOTORAND             *"
  6. 55  PRINT "       *                          q. THEN<0xCB!>CALL<UNK! {00F6}>WHILESAVEMERGETOCALLTO                           *"
  7. 60  PRINT "       ********************************************************************"
  8. 70  LOCATE 8,56:INPUT "PRESET*LOCATE<0xE4!>SCREEN*SOUND<UNK! {00FA}><0xB5!>SOUNDFNELSEERLEQV (1-6)",BS$
  9. 110  IF BS$="1" THEN CHAIN "hl",ALL
  10. 120  IF BS$="2" THEN CHAIN "bbf",ALL
  11. 130  IF BS$="3" THEN CHAIN "bm31",ALL
  12. 140  IF BS$="4" THEN CHAIN "cc",ALL
  13. 150  IF BS$="5" THEN CHAIN "daaa",ALL
  14. 160  IF BS$="6" THEN CHAIN "jjxx",ALL
  15. 170  IF BS$="Q" OR BS$="q" THEN 173 ELSE 70
  16. 173  NAME "fff.bas" AS "tttend.bas":CLS:SYSTEM
  17. 180  END
  18.