home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / HL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  9.3 KB  |  124 lines
  1. 9  CLS
  2. 10  PRINT "                                                                   "
  3. 11  PRINT "                             <0xB5!>VARPTRSPC(CLOSEERRBSAVE   USRIMP    BSAVECSRLIN"
  4. 20  PRINT "               WHILESAVEERRBSAVEMERGE+KEYPOINT ms-dos WRITETRONERRRANDOMIZENOTKEYCLS<0xB4!>,USING+CALLKEY,SPC(<UNK! {FDB5}>LOADRANDOMIZE<UNK! {FDB3}>TOLOADLINEMERGETOCALLTOLOCATERANDOMIZENOTBLOADWRITEMERGEWRITERESUME.                       PRESET*OPTION<UNK! {00F9}>SAVEOFFSTEPBSAVEBLOAD>WEND<0xCB!><0xB5!>ERASEFNELSEERLEQVSOUND<0xE3!>SPC(AUTOERLSOUND<0xB6!>MOTOR<0xB5!>SOUNDERRBSAVEMERGEVARPTR."
  5. 28  GOSUB 910
  6. 29  CLS
  7. 30  PRINT "                                                                   "
  8. 31  PRINT "          ***********************    USINGNOTWEND<0xCB!><0xB5!>ERASE  1   *******************"
  9. 40  PRINT "          *  1.  ms-dos<0xB5!>SOUNDSPC(CLOSELINE<0xE3!>MERGE+KEYPOINT       3.  ms-dos<0xB5!>SOUNDWRITETRONERRRANDOMIZE           *"
  10. 50  PRINT "          *  2.  ms-dosSPC(<UNK! {FDB5}>LOADRANDOMIZE<UNK! {FDB3}>TO         4.  MERGETOCALLTOLOCATERANDOMIZENOTBLOADWRITEMERGEWRITERESUME           *"
  11. 60  PRINT "          *                             R.  THEN<0xCB!>CALL<UNK! {00F6}>WHILESAVEERRBSAVE,WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE    *"
  12. 61  PRINT "          **********************************************************"
  13. 80  LOCATE 8,50:INPUT "PRESET*LOCATE<0xE4!>SCREEN*FNELSEERLEQV(1-4,R)",B$
  14. 90  IF B$="" THEN 90
  15. 100  IF B$="1" THEN 119
  16. 101  IF B$="2" THEN 199
  17. 102  IF B$="3" THEN 569
  18. 103  IF B$="4" THEN 770
  19. 110  IF B$="R" OR B$="r" GOTO  900
  20. 119  CLS
  21. 120  PRINT "           "
  22. 121  PRINT "                               1  ms-dos<0xB5!>SOUNDSPC(CLOSELINE<0xE3!>MERGE+KEYPOINT"
  23. 130  PRINT "               MS-DOSLOCATEPRESETBLOADCLSRANDOMIZE<UNK! {00FA}>TAB(TRONSCREEN^LOAD<UNK! {FE28}>Mioro Soft)RANDOMIZERENUM<0xCB!>SAVECOLORAUTOWRITETRON<0xB5!>SOUNDSPC(CLOSESTRING$STRING$<0xB4!>BEEPBEEPTOWEND'USING<UNK! {00F7}>STEP<0xB5!>                        THENCALL (Disk Operating System). <0xCB!><UNK! {00FC}>TOINSTRWHILEXORLOCATELOCATEOPENSTEPNOTVARPTRUSINGLOADLOCATEDEFSNGMOTOR<UNK! {00F9}>TAB(CLOSETAB(TRONCLOSE<UNK! {00FA}>LOADLINELOCATEDEFSNG                        MOTOR<UNK! {00F9}>TAB(CLOSETAB(TRONCLOSE<UNK! {00FA}>."
  24. 131  GOSUB 910
  25. 140  PRINT "               MS-DOSERL<0xB4!>NOTVARPTRSPC86-DOS,ERR<0xE2!>LOCATEPRESETTim PatersonERLVARPTR1980SOUND-TAB(AUTOSeattle                          Computer ProductsKEY<LOADPSET<0xB5!>SOUNDCLOSE<UNK! {00F9}>NOTVARPTR8086TAB(TRON<0xB4!>EDITCLS^CLOSE<UNK! {00FA}><0xB5!>SOUNDWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALL.OPENMODCLS<0xB4!>                          Micro SoftRANDOMIZERENUM<0xCB!>SAVECLOSEEQV<0xB5!>BLOADMOTOR<0xCB!>ERR<0xE2!>OPTION<UNK! {00F6}>SCREEN^LOAD<UNK! {FEB5}>SOUNDUSINGRESUMECLS<UNK! {00FB}>SCREENRESUME,BLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>TAB(AUTOMS-DOS,MERGENOTUSINGBEEP"
  26. 141  PRINT "              Lifeboat AssooiaterNOTSTRING$MERGERENUM<0xCB!><UNK! {00FC}>OPTIONSOUNDBLOAD<UNK! {00FB}>TAB(AUTOSB-86(SB-86<0xB5!>SOUNDSPC(<0xE2!><0xCB!>LOADLOCATEPRESET8086"
  27. 142  PRINT "              TAB(TRON<0xB4!>EDITCLS^CLOSE<UNK! {00FA}><0xB5!>SOUNDSCREEN^LOAD<UNK! {FEC4}>OPTIONSTEP<0xDF!>Software Bus).<0xB6!><UNK! {00F8}>Victor Business Mach- "
  28. 150  PRINT "              ines ERLIMPCALLPSET<0xCB!><UNK! {00FC}>TAB(AUTO VICTOR DOS. IBMRANDOMIZERENUM<0xCB!>SAVEERLVARPTRNOT*MicrosoftRANDOMIZERENUM<0xCB!>SAVESAVEDEFINTRANDOMIZE<UNK! {FD20}>                        CALLSWAPPSETVARPTRUSRDEFINTKEYTOSTRING$DEFSNGOPENMOD,SAVE<UNK! {00F6}><0xB6!>RESUMEWENDKEYNOTBLOADMS-DOSUSING<UNK! {00F6}>PC<0xB5!>SOUNDSTRING$<UNK! {00F7}>WEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALL,WENDTRONBLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>TAB(AUTOPC-                         DOS."
  29. 151  GOSUB 910
  30. 160  PRINT "           WEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLLOCATEPRESETCLOSE<UNK! {00FA}>PSET<UNK! {00F7}>SCREENRENUMSTEP<0xB5!>THENCALL<0xB5!>SOUNDSTRING$<UNK! {00F7}>SPC(AUTORANDOMIZEPOINTCLS^SCREEN^LOAD<UNK! {FE2C}><0xCB!><UNK! {00FC}>NOTUSRTAB(<0xE5!><0xB4!>MODSTRING$<UNK! {00F7}>SPC(AUTORANDOMIZEEDITSOUNDPOINT:<0xB4!>EDITCLS^CLOSE<UNK! {00FA}>                      RANDOMIZEPOINTCLS^,<0xB4!>><0xB4!>TRONPSET<UNK! {00F7}>RANDOMIZEPOINTCLS^,THEN<0xE2!>KEY<RANDOMIZEPOINTCLS^,TAB(SOUNDLOAD<UNK! {FEB9}>POINTCLS^,USING<UNK! {00F7}>SPC(<0xB5!>RANDOMIZEPOINTCLS^. <0xCB!><UNK! {00FC}>SOUNDPOINTLOCATERANDOMIZECLOSE<UNK! {00FA}>PSET<UNK! {00F7}><0xB5!>SOUNDNOTWEND
  31. 190  PRINT "           LOAD<UNK! {FE2F}>SCREEN^LOAD<UNK! {FEB8}><UNK! {00F7}>WENDCOLOROPENSTEPCLS^WRITESTRING$BEEP<0xE4!>,OPENSTEPCLS^<0xB5!><UNK! {00F7}><0xB6!>SCREEN,USINGANDLOADFNCLOSEIMPMERGESTEPOPENBLOAD<0xB5!>SOUNDTHEN-CALLKEYSCREENTAB(TAB(EQV.CALL<0xE4!>WRITESTRING$WRITETRONCLOSENOT                      CLOSE<UNK! {00FA}>PSET<UNK! {00F7}>USRERRORSOUNDPOINT,COLOR/<0xCB!>'LOCATEELSELOCATEWHILE,FNNOTCALLSWAPCLOSE<UNK! {00FA}>PSET<UNK! {00F7}>LOCATE'BLOAD<UNK! {00FC}>.<0xCB!><UNK! {00FC}>SPC(WENDCOLORKEYLOCATERANDOMIZENOTBLOADCLOSEERRORWEND'USING<UNK! {00F7}>LOADIMPWHILE<0xE3!>,LOAD<UNK! {00F5}>KEY'SCREEN<0xCB!>                      <0xB5!>SOUNDPSET<0xB5!>WRITEWHILEOPTIONKEYERLSWAP."
  32. 191  GOSUB 910
  33. 199  CLS
  34. 200  PRINT "                                                      "
  35. 201  PRINT "                               2  MS-DOS<0xB5!>SOUNDSPC(<UNK! {FDB5}>LOADRANDOMIZE<UNK! {FDB3}>TO"
  36. 210  PRINT "               WHILESAVESTEP<0xB5!>THENCALLLOADNOT<0xB5!>=CLOSEIMPOPTION<0xB4!>TAB(CLOSEOPENMOD,MERGE<UNK! {00F8}>SCREEN*ROM BIOS,LOCATEUSINGSTEPSCREEN<0xB6!>ERLSTEP<0xB5!>THENCALLMERGE<UNK! {00F8}>USRUSRCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLOPENTHEN                      USINGERLWEND<0xE2!>LOCATEERL,SCREENCLOSEOPENMODMERGE<UNK! {00F8}>SCREEN*ROM BIOS<0xB5!>SOUNDBOOT-STRAP(INT19)LOAD/WEND+NOTUSRWRITEEQVBEEPTOKEY<WHILEOPTION,"
  37. 220  PRINT "           SCREEN=NOTUSR<0xB6!>MOTORSCREEN*DOSSPC(<UNK! {FDB5}>LOADCOLOR+,WRITEEQVERLIMPMERGE<UNK! {00F8}>SCREEN*ROM BASICCALLTOUSRIMP. SPC(<UNK! {FDB5}>LOADCOLOR+WHILECLOSEWRITEBEEPERLVARPTR0000:                      7C00COLORAUTOLOCATELOAD<0xB5!>SOUNDTAB(CLOSESTRING$BLOAD.WENDTRONCOLORAUTOLOCATELOADSTRING$<0xB4!>USRUSR."
  38. 221  GOSUB 910
  39. 230  PRINT "            SPC(<UNK! {FDB5}>LOADCOLOR+RANDOMIZEEDITSOUNDPOINT:"
  40. 240  PRINT "            1. BEEPUSRSOUNDCOLORBSAVELOAD<0xB5!>VARPTR1KEYSCREENPRESET<UNK! {00F8}>STRING$USRNOTUSRTAB(INKEY$BIO.COMOPENTHENDOS.COM<0xB6!><UNK! {FEB8}><UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>."
  41. 250  PRINT "            2. SCREEN=NOTUSRERLIMPMERGERENUM<0xB6!><UNK! {FEB8}><UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FEB6}>LOAD<0xB6!>MOTORSCREEN*<0xB5!>MERGE0060:0000COLORAUTOLOCATELOAD<0xB5!>SOUNDPRESET<UNK! {00F8}>(BIO.COMERLVARPTRPRESETLINE,                          DOS.COMMERGE\MERGENOTPSET<0xE4!>OPENMOD)."
  42. 260  PRINT "            3. USINGAUTOSCREEN*0060:0000STRING$<0xB4!>USRUSRBIO.COM<0xB5!>SOUNDCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLCALLTOUSRIMP."
  43. 270  PRINT "            4. SCREEN=BLOADCLOSENOTUSRERR<0xE2!>MOTORMERGEOPTION<UNK! {00F6}>TAB(SOUNDLOAD<UNK! {FED4}>IMPSCREENSTEPTAB(AUTOLOCATEPRESETWRITEPRESETSTEP<0xB5!>THENCALLBEEPTO,STEPERLLOCATESAVESTEP<0xE0!>NOTEDITTO<0xE1!>LOCATESAVEUSRBEEPSTEPTRONWENDTRON<0xB5!>SCREEN                           <0xB4!><UNK! {FD2E}>SCREEN=<0xB6!>MOTORWEND'USING<UNK! {00F7}>CALL<UNK! {00F6}><0xB4!>^SPC(WENDSTEPERLLOCATESAVESTEP<0xE0!>NOTEDITTO<0xE1!>LOCATESAVEUSRBEEPSTEPTRONWENDTRON<0xB5!>SCREEN<0xB4!><UNK! {FD2E}>"
  44. 271  GOSUB 910
  45. 279  PRINT "             "
  46. 280  PRINT "             BIO.COM<0xB5!>SOUNDCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLCALLTOUSRIMPMERGERENUMCOMMAND.COM<0xB5!>SOUNDCALLTROFFUSINGSWAPWENDCOLORWRITESTRING$<0xB5!><UNK! {00F7}>SCREEN*OPTIONBLOADCALLTOUSRIMP<0xB6!>TAB(<0xB5!>SOUND                       0100HCOLORAUTOLOCATELOAD<0xB5!>SOUNDTAB(CLOSESTRING$BLOAD,WENDTRONMERGERENUMCOLORINSTRSTRING$PSETSCREENRESUMEUSINGAUTOOPTIONBLOAD<0xB5!>INSTRSTRING$WRITECOLORAUTOLOCATELOADSTRING$<0xB4!>USRUSRCOMMAND.COM<0xB5!>SOUNDCALL<UNK! {00F5}>                       LOCATELOADCLOSEDEFDBLCALLTOUSRIMP,<0xCB!><UNK! {00FC}>ERL'MERGERENUMCOMMAND.COM<0xB5!>SOUNDOPTION<0xB4!>OPTIONPRESETWENDCOLORWRITESTRING$<0xB5!><UNK! {00F7}>SCREEN*SOUNDVARPTR<0xB4!>>OPTION<0xDF!><0xB6!><0xCB!>."
  47. 281  GOSUB 910
  48. 290  PRINT "             SOUNDVARPTR<0xB4!>>NOTCALLSTEPMODTHENLOADSCREEN=STEPBSAVE:"
  49. 300  PRINT "             |0000:0000 -|- STRING$USR<0xB6!>TAB(STEPIMPMOTORCOLORWHILE^              |"
  50. 310  PRINT "             |0040:0000 -|- ROMTHENRESUMEFN<0xB6!>PRESET<UNK! {00F8}>               |"
  51. 320  PRINT "             |0050:0000 -|- DOSTHENRESUMEFN<0xB6!>PRESET<UNK! {00F8}>               |"
  52. 330  PRINT "             |0060:0000 -|- IBMBIO.COM              |"
  53. 340  PRINT "             |           |  IBMDOS.COM              |"
  54. 350  PRINT "             |           |  DOSRANDOMIZESWAPUSING<UNK! {00F7}>PRESET<UNK! {00F8}>               |"
  55. 360  PRINT "             |           |  BLOAD<UNK! {00FC}>MOTORAND<0xB4!>EDITCLS^CALLTOUSRIMP(CALLTROFFUSINGSWAPWENDCOLORWRITESTRING$)  |"
  56. 361  GOSUB 910
  57. 380  PRINT "             |___________|__________________________|"
  58. 390  PRINT "             |           |  NOTBLOADCLOSEERRORPRESET<UNK! {00F8}>                  |"
  59. 400  PRINT "             |___________|__________________________|"
  60. 410  PRINT "             |           |  BLOAD<UNK! {00FC}>MOTORAND<0xB4!>EDITCLS^CALLTOUSRIMP            |"
  61. 415  PRINT "             |           |  (COLORKEYOPTION<0xB4!>OPTIONPRESETWENDCOLORWRITESTRING$)            |"
  62. 420  PRINT "             |___________|__________________________|"
  63. 430  PRINT "             |F000:0000 -|- ROM BIOS                |"
  64. 440  PRINT "             |______________________________________|"
  65. 441  GOSUB 910
  66. 450  PRINT "                 WEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLUSINGLINESCREEN*OPENMOD,TO<0xE1!>LOCATESAVELOCATE<0xE4!>SCREEN*SCREENERRPSETVARPTR,LOCATEWHILELOAD<0xE4!>,MERGENOTUSINGBEEPSTEPERLLOCATESAVERANDOMIZERENUM<0xCB!>SAVEBLOAD<UNK! {00FB}>CALLPSET,LINE>                          WHILESAVEOPENBEEP<0xB5!>SCREEN,<0xCB!>>OPENMODUSINGAUTOSCREEN*BLOAD<UNK! {00FC}>MOTORANDLOCATE<0xB6!>WHILEXOROPENTHENMERGE<0xE2!>LOCATETHENCALLTOUSRIMP:"
  67. 460  PRINT "                 Current Date Is Tue 1-01-1980"
  68. 470  PRINT "                 Enter New Date:"
  69. 480  PRINT "                 <0xB4!>IMPSCREEN*<0xB5!>WHILETO/<0xB5!>SOUNDSCREENERRPSETVARPTR,CLOSE<UNK! {00FA}>PSET<UNK! {00F7}>NOTSTRING$STEPERLLOCATESAVE:"
  70. 490  PRINT "                 Current Time Is 0:01:26.94"
  71. 500  PRINT "                 Enter New Time:"
  72. 510  PRINT "               <0xB4!>IMPSCREEN*STEPSTRING$USRUSRLOCATEWHILELOAD<0xE4!>"
  73. 511  GOSUB 910
  74. 520  PRINT "             LOCATE<0xE4!>SCREEN*LOCATEWHILELOAD<0xE4!>OPENMOD,MS-DOSSTEPERLLOCATESAVECALL<UNK! {00F6}>STEPBSAVEMOTORUSRUSRBEEPSTEPTRON:"
  75. 530  PRINT "             The IBM Personal Computer DOS"
  76. 540  PRINT "             Version 2.00 (C) Copyright IBM Corp 1981,1982,1983"
  77. 550  PRINT "            A>_"
  78. 560  PRINT "               WRITE<UNK! {00FB}>OPENBEEP A>_WHILE^BLOAD<UNK! {00F7}>SOUND<0xE3!>SPC(FNTHEN-CALLKEYDOSUSINGLINESCREEN*,A>WRITE<UNK! {00FB}>OPENBEEPOPENMOD<0xB5!>SOUNDWRITE<UNK! {00FB}>OPENBEEP _ LOCATEPRESETRANDOMIZE<0xE2!>WHILE-.                          <0xCB!><UNK! {00FC}>STRING$OPTIONCALL<UNK! {00F6}>SOUND<0xE3!>STEPSTRING$USRUSRLOCATE<0xE4!>SCREEN*TAB(CLOSESTRING$BLOAD.<0xB4!>NOTSTEPSTRING$ERLVARPTRPSETXORSOUND<0xE3!>COLORKEYSPC(ERL<0xB4!>IMPSCREEN*DOSBLOAD<UNK! {00FC}>MOTORANDMOTOR<0xCB!>."
  79. 561  GOSUB 910
  80. 569  CLS
  81. 570  PRINT "                                 3  MS-DOS<0xB5!>SOUNDWRITETRONERRRANDOMIZE "
  82. 580  PRINT "              MS-DOS<0xB4!>NOTSCP 86-DOS<0xB5!>MERGEMS-DOS,NOTSTRING$<0xB5!>MERGESB-86,victor DOS,PC-DOS."
  83. 590  PRINT "              PC-DOSOPENTHENMS-DOSSOUNDCOLORPRESETLINENOTSTRING$COLORAUTOWRITETRONMOTOR<0xCB!>USR^<0xB6!><0xE0!><0xB5!>SOUNDLINE>WHILESAVE(LOADLINEPSET<0xE4!>STRING$ERRORCALLSTRING$STEPBSAVE<0xB5!>SOUNDSTRING$<UNK! {00F8}>BLOAD<UNK! {00FB}>SCREEN^                         LOAD<UNK! {FE29}>,STRING$ANDSCREEN= :"
  84. 600  PRINT "              PC-MS-DOS 1.0, 1.10, 2.0, 2.10, 2.11, 3.0, 3.10, (topv-                         iew,MS Windows,Big DOS), 4.0, 5.0  "
  85. 610  PRINT "              1.0LINE>1982SOUND-PRESETLINEOPENMODCOLORAUTOWRITETRON,STEPSCREENNOTBLOADNOTVARPTRIBM-PC,STRING$ERRORCALLSTRING$SCREEN^BEEPTOOPENTHENOPENUSR<0xB4!><UNK! {00F8}>,SOUNDVARPTR<0xB4!>>64K                         ......256K."
  86. 611  GOSUB 910
  87. 620  PRINT "              2.0LINE>1983SOUND-PRESETLINEOPENMODCOLORAUTOWRITETRON,NOTEDITNOTBLOADCLOSE<UNK! {00FA}>USRTHENIBM-PC XT,ERL<UNK! {00F6}>LOADNOTSTRING$ERRORCALLSTRING$NOTWENDBEEPTORANDOMIZEEDITSOUNDPOINT,                         LINEFNSCREEN^BEEPTO<0xB5!>SOUNDSCREENOFFMOTORCOLOR<0xB4!>NOT320KCLSDELETECALL<0xE4!><0xB5!>MERGE360K,TAB(SOUNDLOAD<UNK! {FECF}><0xB5!>THENCALLERL<UNK! {00F6}>LOADNOTMOTOR<0xCB!>USINGNOTSOUNDCOLORBSAVELOADWEND'USING<UNK! {00F7}>,                          I/OSTRING$INSTR<0xB6!>RESUMESTEPIMPSPC(ERLLOADLINERANDOMIZEPOINT<0xB5!>CLSWEND'USING<UNK! {00F7}>;SOUNDVARPTRWENDCOLORBLOAD<UNK! {00FC}>MOTORANDOPENTHENTHEN<0xE2!>WENDCOLORBLOAD<UNK! {00FC}>MOTORANDOPTION<UNK! {00F7}>ERL<UNK! {00F6}>LOADNOTMOTOR<0xCB!>LOCATEDEFSNGLOADOPTIONTO<UNK! {00F5}>;";
  88. 640  PRINT "              3.0LINE>1984SOUND-PRESETLINEOPENMODCOLORAUTOWRITETRON,NOTEDITNOTBLOADCLOSE<UNK! {00FA}>USRTHEN IBM-PC AT,STRING$ERRORCALLSTRING$OPTION<0xDF!>BLOADPOINT<0xB6!>SCREENSCREEN^BEEPTOCLOSE<UNK! {00FA}>                         OPENTHENNOTWENDLOCATEMERGE<0xB4!>BEEPBEEPTOCLOSE<UNK! {00FA}>.SOUNDVARPTR<0xB4!>>1000KSTRING$MOTOR1250K."
  89. 660  PRINT "              3.10LINE>1984SOUND-OPENMODPSETVARPTRCOLORAUTOWRITETRON,LOCATEPRESET3.0LINE><0xB5!>SOUNDOPTIONSOUNDMERGE<UNK! {00F8}>LINE>WHILESAVE,ERL<UNK! {00F6}>LOADNOTMOTOR<0xCB!>PRESET<UNK! {00F8}>NOTIMPOPTION'BSAVEWRITE<0xB5!>SOUND                         WEND'USING<UNK! {00F7}>CALLTOUSRIMP(PC Network).SOUNDVARPTR<0xB4!>>1250KSTRING$MOTOR1750K."
  90. 671  GOSUB 910
  91. 679  CLS
  92. 690  PRINT "                  Topview: IBMUSINGERLLOADOPENCALL<UNK! {00F6}><0xB5!>SOUND<0xB6!><0xE0!><0xB4!>LINELOADLINE<0xB6!><0xE0!>RANDOMIZESWAPWENDTRONUSRUSRLOCATEMERGE<0xB5!>SOUNDPC-DOSLINE>WHILESAVE.NOTUSR                          SCREEN<0xCB!>BEEP<UNK! {00FA}>PSETCLS<0xCB!><UNK! {00FC}>TORENUM<0xB4!>MOD,WENDCLOSESOUNDPOINTSTRING$<0xB4!>USRUSR<0xCB!><UNK! {00F9}>NOTUSR<0xB5!>SOUNDPC-DOSSTRING$OPTIONMOTORAND."
  93. 710  PRINT "                MS Windows:NOTUSRBLOAD<UNK! {00FB}><0xB5!>SOUND'VAPORWARE'(PSET<UNK! {00F8}>TO<0xE5!>)!SPC(CLOSESOUND-<0xB6!><0xE0!>PRESETLINESAVETHENERR<UNK! {FDCA}>MERGEUSR<UNK! {00FB}>WENDLOAD                          'THENPSETCALL<UNK! {00F6}>'MOTOR<0xCB!>,<0xB5!>MERGESTEPSTRING$ERLVARPTRCLOSERANDOMIZELOCATEPRESETOPTION<UNK! {00FA}>COLORERRPSET<UNK! {00F8}>SPC(CLOSEFN<UNK! {00F9}>BLOADCLOSENOTUSRCALLKEYUSRTHEN.SAVEOFF<0xCB!><0xB5!>STEPBSAVEOPTION<UNK! {00F6}>ERLBSAVESAVETHENSPC(AUTOSOUND<UNK! {FD22}>
  94. 720  PRINT "               SAVECSRLINERLVARPTR<0xB4!>BEEPBEEPTOPSETDEFSTRKEYSTEP!PSET<0xE4!>RANDOMIZEEDITSOUNDPOINTLINE<UNK! {00FC}>CLSRESUMETAB(CLOSEERLAUTONOTCALLKEY<0xE4!>THENLOADUSRTAB(,<0xB6!><0xE0!>RANDOMIZESWAPWENDTRONUSRUSR,LOADLINE<0xB6!><0xE0!><0xB4!>LINE<0xB5!>SCREEN.                          CALLSWAPERL<0xB6!><0xB5!>SOUNDMERGE<UNK! {00F8}>ERRRANDOMIZEERLIMPMERGERENUMNOTKEYMS WindowsFNOFFMERGE<UNK! {00F8}><0xB5!>MERGEPCCLOSEIMPMS-DOS 5.0 ."
  95. 729  GOSUB 910
  96. 730  PRINT "                  Big DOS:<0xB4!>RENUM<0xCB!><0xB5!>STRING$USRIBMUSINGERLLOADOPENUSING<UNK! {00F6}><0xB5!>SOUNDWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALL.SAVEOFF<0xCB!><0xB5!>COLORKEYLINEFNIBM<0xB5!>SOUNDPCNOT*                          <0xB4!>MOD<0xB5!>=SOUNDERLMOTORAUTOCLOSE<UNK! {00FA}>WEND'USING<UNK! {00F7}>."
  97. 731  GOSUB 910
  98. 740  PRINT "                4.0LINE> LOCATEPRESET3.0LINE><0xB5!>SOUNDOPTIONSOUNDMERGE<UNK! {00F8}>USRTHEN,NOTUSR<0xB4!>EDITCLS^USR+SOUND<0xE2!>LOADPRESETSPC(<0xE4!><0xB5!>SOUNDRANDOMIZEEDITSOUNDPOINT,WENDCLOSECOLORKEYSOUNDPOINTERLVARPTRMERGEEQV                          SOUND-<0xB5!>USINGTHENPSETCALL<UNK! {00F6}>,COLORKEY<0xB6!><0xE0!>SCREENTAB(TAB(EQVOPENTHEN<0xB6!><0xE0!><0xB5!>CLSCALLTOUSRIMPRANDOMIZESWAPUSING<UNK! {00F7}>.SOUNDVARPTR<0xB4!>>2000KSTRING$MOTOR2500K. 1985                          SOUND-KEYSTEPLINE*SOUND-COLORAUTOWRITETRON."
  99. 750  PRINT "                5.0LINE> TAB(AUTOPC-AT 80286NOTBLOAD<0xB5!>SOUNDCALLDEFSTRLOAD<0xB6!>DOS,1985-1986SOUND-MERGERENUMTHENPSETCALL<UNK! {00F6}>NOTUSR<0xB6!><0xE0!>                           RANDOMIZESWAPWENDTRONUSRUSRRANDOMIZEEDITSOUNDPOINT.(CLOSEIMPIBMMERGERENUMNOTBLOADNOTVARPTR80386 CPU<0xB5!>SOUNDTAB(TRONCLOSE<UNK! {00FA}>).SOUNDVARPTR<0xB4!>><0xB4!>OR2750KSTRING$DEFSNG                           <0xB6!><0xE0!>."
  100. 755  PRINT "                          MS-DOSCLOSERANDOMIZEMERGERENUMNOTUSROPTION<UNK! {00FC}><0xB6!><0xE0!>, OPTION<UNK! {00FC}><0xB4!>MOD<0xB5!>SOUNDWRITETRONERRRANDOMIZE.                                                   ERLOPTION   SAVE<UNK! {FD20}>  LOCATEBLOAD   SOUNDCOLOR   SPC(ERL   <0xB4!><UNK! {FD20}> TROFFELSE"
  101. 762  GOSUB 910
  102. 770  CLS
  103. 775  PRINT "                              4  LOCATERANDOMIZENOTBLOADWRITEMERGEWRITERESUMELOADLINELOCATELOCATENOTEDITWRITE<0xB6!>TAB(ERROR                                             1. WHILESAVESCREEN^LOAD<UNK! {FED3}>USRMOTORMERGETOUSINGLINE>WHILESAVE,SPC(CLOSETOUSINGLOCATELOCATENOTVARPTR<0xB4!><UNK! {00F8}>NOTUSRNOTWENDBEEPTO<0xB5!>SOUNDOPTION<UNK! {00F6}>SCREEN<0xCB!>CLOSE<UNK! {00FA}><0xCB!><0xE3!>CLOSE<UNK! {00FA}>:0520                           STEP<0xB5!>MOTORUSR,IBM PCXT,IBM PCATLOADLINEPSET<0xE4!>LOAD>SCREENOFFCLOSE<UNK! {00FA}>KEYSTEPERL<0xCB!>USRUSR,SPC(CLOSETOUSINGCOLORKEYERLVARPTRTAB(INKEY$NOTWENDBEEPTO"
  104. 780  PRINT "                <0xB5!>SOUNDIBM PCLOADLINEPSET<0xE4!>LOAD>SCREENOFFCLOSE<UNK! {00FA}>KEYSTEPERL<0xCB!>USRUSR,SPC(AUTOPRESETMOD512KSOUNDVARPTR<0xB4!>>,ERLVARPTROPENOPENUSINGSTRING$CC DOS2.0                           LINE>STEPBSAVEERL<0xCB!>USRUSR.                                                                       2. WHILESAVESCREEN^LOAD<UNK! {FEB3}>TOUSRIMP<0xB4!>>ERLVARPTRMOTORMERGEOPTION<UNK! {00F6}>BEEPTOPSETDEFSTRKEYSTEP,PSET<0xE4!>SPC(CLOSETAB(AUTOWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLBEEPTO,USINGLINENOTUSR CC"
  105. 785  PRINT "                DOS 2.0,MOTOR^SPC(CLOSETAB(AUTOMERGETOCALLTOCALLTOUSRIMPBEEPTO,CALL<UNK! {FDB4}>>NOTUSRMERGETOCALLTOCALLTOUSRIMPTHEN<0xE2!>,CLOSERANDOMIZE<0xB4!>>NOTUSRDOSBLOAD<UNK! {00FC}>                           MOTORAND,LOCATE<0xB5!>NOTBLOADCALLTOUSRIMPDEBUG,EDLINLOADLINEBASIC."
  106. 788  GOSUB 910
  107. 790  PRINT "                  ERLVARPTR<0xCB!>RENUMSCREEN^BEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB5!>SOUNDCLOSE<UNK! {00FA}>PSET<UNK! {00F7}>KEYSTEP,STRING$CLOSESPC(AUTOLINEFNWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLBEEPTOWRITEBEEPSCREEN*APRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>,                           PSET\<0xB6!>DEFDBLWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLOPENMOD,SCREENELSECALL<UNK! {00F6}>WEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLBEEPTO,WRITEBEEPSCREEN*MERGETOCALLTOCALLTOUSRIMPBEEPTO,<0xB4!>IMPSCREEN*DOSC                           WENDTRONLINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>,WHILESAVEMERGETOCALLTOSCREEN^LOAD<UNK! {FEBC}><0xB4!>COLORAUTOLOCATELOADERL<0xCB!>USRUSR."
  108. 795  PRINT "                  <0xB6!>ERLNOTVARPTR<0xB4!><UNK! {00F8}>NOTUSRNOTWENDBEEPTO<0xB5!>SOUNDCLOSE<UNK! {00FA}>PSET<UNK! {00F7}>,USINGANDOPENBLOADPRESET*SOUND<0xE3!>STEPSCREENMERGERENUMTAB(SPC(BLOADPRESETTO<0xE1!>RANDOMIZEDELETE<0xB5!>SOUNDWEND'USING<UNK! {00F7}>STEP<0xB5!>THENCALLBEEPTO                           COLORMERGESCREEN*NOTWENDBEEPTO,WRITEEQVERLIMPWEND'USING<UNK! {00F7}>STRING$USRCOLORKEYSOUNDPOINTCLOSE<0xE1!>CALL<UNK! {00F6}>STEPSTRING$LINE>WHILESAVE<0xB4!>^,SPC(ERLOPENMODERLVARPTRAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>WEND<0xE5!>SCREEN*                           MERGETOCALLTOCALLTOUSRIMPBEEPTO,<0xB4!>IMPSCREEN*MAWENDTRONLINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>,STRING$<0xB4!>USRUSRMERGERENUMMERGETOCALLTOCALLTOUSRIMPCOLORMERGEMERGE<UNK! {00F8}>CBEEPTO<0xB5!>SOUNDRANDOMIZESWAP
  109. 798  PRINT "                USING<UNK! {00F7}>.THEN-CALLKEYOPENMOD,ERLVARPTR<0xB5!>WHILEPRESETLINEPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>TAB(AUTOCLOCATEWHILE,<0xB4!>IMPSCREEN*DOSCWENDTRONLINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>,WHILESAVEMERGETOCALLTO                           SCREEN^LOAD<UNK! {FEBC}><0xB4!>COLORAUTOLOCATELOADERL<0xCB!>USRUSR."
  110. 800  GOSUB 910
  111. 805  PRINT "                3. WHILESAVEMERGETOCALLTOLOCATERANDOMIZENOTBLOADWEND<0xCB!><0xB5!>ERASELOADLOADLOCATE<UNK! {00F5}>,OPTION<UNK! {00F7}>ERRBSAVEOPTION<UNK! {00F7}>MERGEVARPTRTHENRESUMERANDOMIZE<UNK! {FDB2}><0xCB!><0xB5!>ERASEFNELSEERLEQVMERGE<UNK! {00F8}>SCREEN*CLOSEIMPTHEN<0xCB!>CALL<UNK! {00F6}>,                           WRITEMERGEWHILE<0xE3!>SPC(USINGFNERROR.WEND'USING<UNK! {00F7}>LOCATE<0xB5!>STEPLINELOCATERANDOMIZENOTBLOADSCREEN<0xCB!>CLOSE<UNK! {00FA}><0xB6!>ERLCLOSELINEWRITEMERGELOCATEMERGE,STRING$CLOSESPC(AUTOSOUND<0xE3!>USINGEQVFNDEFINTPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVE                            WEND'USING<UNK! {00F7}>(MERGERESUMESPC(+SOUND<0xE3!><0xCB!>CALLUSRIMPMERGE<UNK! {00F8}>USRUSR),SAVETHENSOUNDPOINTSCREENELSE<0xB5!>BLOADCLS^STEP*USRERRORRANDOMIZE<UNK! {00FB}>."
  112. 810  PRINT "                4. CALL<UNK! {FDB2}><0xCB!><0xB5!>ERASEFNELSEERLEQVTHEN<0xE2!>,CLOSERANDOMIZENOTUSRPSETMOTORSOUNDCLOSESTEPERLLOCATESAVEFNELSEERLEQV.THENRESUMECALLTROFFFNELSEERLEQVCOLORERROPTIONEQVLOAD<UNK! {00FC}>,<0xCB!>CALLUSRIMP                            STEPIMPSTEPBSAVEMERGE<UNK! {00F8}>USRUSR,FNELSEERLEQVELOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTROPTIONBLOADERRBSAVEUSINGNOTWEND<0xCB!><0xB5!>ERASE,FNELSEERLEQVRLOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTR<0xB5!>MERGEMERGETOCALLTOSTRING$<UNK! {00F7}>WEND<0xCB!>                            <0xB5!>ERASE,ERLVARPTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASEFNELSEERLEQVQLOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>WHILESAVEMERGETOCALLTOSCREEN^LOAD<UNK! {FE2E}>"
  113. 815  PRINT "                  WEND'USING<UNK! {00F7}>STRING$USRUSINGLOADWHILEOPTIONSPC(CLOSECOLORERRBEEPTOUSING<UNK! {00F7}>MOTORWRITESTEPLINESTRING$DEFSNGNOTBLOAD.USINGTRONSPC(<0xE2!>:WENDCLOSESPC(AUTOPSETPSETCLOSE<0xB5!>WHILESAVEMERGETOCALLTOBEEPTO<0xB5!>SOUND                            SOUNDVARPTRSCREENOFF,USINGANDOPENBLOADOPTION<0xB4!>STRING$PSETWHILEOPTIONWRITEOFFBEEPTO."
  114. 820  GOSUB 910
  115. 825  PRINT "                5. WHILESAVESCREEN^LOAD<UNK! {FECA}>LOCATEOPENSTEPCALL<UNK! {00F5}>FNERRORCLOSE<UNK! {00FA}><0xCB!><0xE3!>CLOSE<UNK! {00FA}><0xB5!>SOUND<0xB4!>MOD.STRING$USRFNERRORKEY<UNK! {00FA}>.RANDOMIZESWAPCALLTOLOADLOADLOCATE<UNK! {00F5}>SCREEN<0xCB!>ERLWHILELOCATERANDOMIZENOTBLOAD.                            <0xB6!>ERLSPC(FNNOTUSRSPC(CLOSE<0xB6!>RESUMECLOSE<UNK! {00F9}><0xB4!>ELSE<0xB5!>SOUNDPCCLOSE<UNK! {00FA}>RANDOMIZESWAPUSING<UNK! {00F7}>SCREEN<0xCB!>ERLWHILESPC(WENDLOCATEPRESETOPENPOINTOPENBLOAD<0xB5!>SOUNDWENDTAB(COLORLOADUSINGLOCATEMOTORSTEP."
  116. 830  GOSUB 910
  117. 900  CHAIN "ama1",ALL
  118. 910  LOCATE 9.1:PRINT "________________________________________________________________________________"
  119. 920  PRINT "                     LINE<0xB4!>'COLORERROPTIONEQV'LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}>, LINE<0xB4!>'E'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRUSINGNOTWEND<0xCB!><0xB5!>ERASE1, LINE<0xB4!>'R'LOAD<UNK! {00FC}>WRITE<0xB5!>CLOSEINSTRSTRING$<UNK! {00F7}>WEND<0xCB!><0xB5!>ERASE ";
  120. 930  B$=INKEY$
  121. 940  IF B$=" " THEN 950 ELSE IF B$="E"OR B$="e" THEN 29 ELSE IF B$="R" OR B$="r" THEN 900 ELSE 930
  122. 950  CLS
  123. 960  RETURN
  124.