home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / AMA.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.6 KB  |  25 lines
  1. 10  CLS:PRINT "           *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*"
  2. 20  PRINT "           *           NOTKEYSTRING$USRRANDOMIZE<UNK! {00FA}>MERGEDEFINT<0xCB!>ERRLOCATEELSESOUNDSTEPTHENRESUMELOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>CALLERRORSCREEN^LOAD<UNK! {FEB2}>COLORFNUSRSTRING$PSET            *"
  3. 30  PRINT "           *           NOTKEYLOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>USINGPOINTSAVESTRING$ 0500 SCREEN^LOAD<UNK! {FED6}>USRUSRSOUNDSTEPBSAVE<0xB4!>ORSCREENTAB(TAB(EQV            *"
  4. 40  PRINT "           *                                                         *"
  5. 50  PRINT "           *             OPENOPENUSINGSTRING$ TROFFTHENTROFFNOTTROFFDEFINTTROFFSOUNDTROFFSTEPTROFFNOT MERGETOFNERRORSCREEN^LOAD<UNK! {FEBD}>TOCALLTO              *"
  6. 60  PRINT "           *                    LINE>SCREENRESUME<0xCB!><UNK! {00F9}>NOTUSR,PRESET*<0xB6!><0xE0!>RANDOMIZEINSTRERRERR                    *"
  7. 70  PRINT "           *                        1985 . 7                         *"
  8. 80  PRINT "           *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*"
  9. 90  PRINT "                                                        LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> "
  10. 100  A$ = INKEY$: IF A$=CHR$(32) THEN GOTO 130
  11. 110  GOTO 100 : GOTO 90
  12. 130  CLS:PRINT "                                   ERRAUTO   SPC(AUTO                           "
  13. 140  PRINT "            WHILESAVEMERGETOCALLTOLOADIMPBLOAD<UNK! {00F7}><0xB6!>MODSPC(AUTO<0xB5!>INSTRMERGE+KEYPOINTMOTOR<0xCB!> MS-DOS <0xB5!>SOUNDBLOAD<UNK! {00FB}>CALLPSETOPENDEFSTRSPC(<0xE2!>, WRITETRONERRRANDOMIZENOTKEYCLS<0xB4!>, STRING$<UNK! {00F7}>SPC(AUTOUSING+CALLKEY , "
  14. 150  PRINT "        SPC(<UNK! {FDB5}>LOADPSETXOR<0xB6!>DEFDBLRANDOMIZE<UNK! {FDB3}>TO, STRING$<UNK! {00F7}>SPC(AUTOBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDWEND'USING<UNK! {00F7}>WRITEMERGEWRITERESUME<0xB5!>SCREEN. USINGTRONSTRING$INSTRWEND'USING<UNK! {00F7}>MOTORWRITESTEPLINE. "
  15. 160  PRINT "            WHILESAVEMERGETOCALLTONOTKEYPRESETCALLSCREEN*KEYAND, <0xB4!>NOTSCREENRENUMSAVESTRING$<0xB5!>MERGEOPTION<UNK! {00F7}>OPTION<UNK! {00F6}>STRING$<UNK! {00F7}>SPC(AUTOBLOAD<UNK! {00FC}>MOTORAND, USRXORLOCATE<UNK! {00F6}>LOADIMPMOTORWRITE,LOCATELOCATEOPENSTEPCALL<UNK! {00F5}>FNERROR ms-dos"
  16. 170  PRINT "        <0xB5!>SOUND<0xB6!>MOTORERR<0xDF!>,<0xB4!>MOD,STRING$USRFNERRORKEY<UNK! {00FA}>, RANDOMIZESWAPCALLTOLOADLOADLOCATE<UNK! {00F5}>SCREEN<0xCB!>ERLWHILEOPENTHEN PC WEND'USING<UNK! {00F7}>SCREEN<0xCB!>ERLWHILEERLSOUND<0xB6!>MOTOR."
  17. 180  PRINT "            <0xCB!><UNK! {00FC}>SOUNDPOINTLINEORSTRING$<UNK! {00FA}>SOUND<UNK! {00FA}>ERLVARPTR 0520 , PC ,PCXT ,PCATLOADLINEPSET<0xE4!>LOAD>SCREENOFFCLOSE<UNK! {00FA}>KEYSTEPFNERRORSTEPLINELOCATE<0xB5!>LOAD<UNK! {00F9}>, LOCATE/STEPSWAPOPTION<UNK! {00F7}>"
  18. 190  PRINT "        STRING$<UNK! {00F7}>SPC(AUTOBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINTLOADLINESCREEN=OPENTAB(WEND'USING<UNK! {00F7}>. PSETERRLOADLINE PC <0xB5!>SOUNDSTRING$AUTOLOCATE<0xB6!>, THENPSETRANDOMIZE<0xE3!> PC <0xB5!>SOUNDNOTEDITNOTBLOAD."
  19. 200  PRINT "            SCREENSCREENCALLCLSSTEPTROFFTHEN<UNK! {00FB}>SOUND<UNK! {00FA}>SOUNDPOINT<0xB4!>NOTWHILESAVEMERGETOCALLTO<0xB5!>BLOAD<0xB5!>MERGELOCATEERRSPC(>."
  20. 210  PRINT "_______________________________________________________________________________"
  21. 220  PRINT "                                                                 LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}> "   ;
  22. 230  A$ = INKEY$: IF A$=CHR$(32) THEN  GOTO 250
  23. 240  GOTO 230: GOTO 220
  24. 250  CHAIN "AMA1" , 10
  25.