home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.3 KB  |  60 lines
  1. 89  KEY OFF
  2. 90  COMMON LI$,XY$,KS$,AB$
  3. 101  CLS
  4. 110  PRINT "                        1.  FDISK  BLOAD<UNK! {00FC}>MOTORAND         "
  5. 120  PRINT "        SCREEN=RANDOMIZE<UNK! {00FB}>SOUND<0xE3!><0xB5!>SOUNDOPTION<UNK! {00F6}>SCREEN<0xCB!>LOADPSET<0xCB!><0xE3!>CLOSE<UNK! {00FA}>NOTUSRSPC(CLOSEOPTION<UNK! {00F6}>NOTWENDBEEPTO,ERLIMPERLVARPTRDOSLOCATERANDOMIZENOTBLOADOPTIONBLOADNOTWENDBEEPTOSTRING$DEFSNGPRESETLINENOTEDITWENDKEYSCREENELSENOTUSRRANDOMIZEINSTR<0xB4!>*LOCATEDELETE ,SCREEN\        ERLVARPTRWENDKEYNOTBLOAD<0xB4!>*LOCATEDELETESTRING$DEFSNGPRESETLINELOCATERANDOMIZENOTBLOADNOTWENDBEEPTO,";
  6. 130  PRINT "ERLIMPPSETMOTORSOUNDCLOSEMERGERENUMCLOSE<0xE1!>TO<0xE1!>LOCATESAVECALL<UNK! {00F6}><0xB4!>^USRBEEPSTEPTRON:'TAB(INKEY$USRERROR<0xB5!>SOUNDPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}><0xB6!>RESUMESPC(<0xE5!>.'"
  7. 140  PRINT "    RANDOMIZEEDITSOUNDPOINT: CALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLNOTWENDBEEPTO,WENDTRONLINEFNNOTWENDBEEPTOCOLORERRLOAD<0xE4!>WRITESTRING$BEEP<0xE4!>OPTION<UNK! {00F8}>DOSLOCATERANDOMIZENOTBLOAD,THENDEFSTRLOCATEWHILEOPTION<UNK! {00F8}>NOTWENDBEEPTOPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>SCREENELSEBLOAD<UNK! {00FB}>TAB(AUTO'C'."
  8. 150  PRINT "    OPTIONEQVLOCATEMERGE: FDISK
  9. 160  PRINT "    USINGTRONLOCATETHEN: ERLVARPTRNOTWENDBEEPTOKEY<STRING$BLOADRANDOMIZE<UNK! {FDB3}>TOSTRING$USR,PSETMOTORSOUNDCLOSEKEYSTEPMERGERENUMCALL<UNK! {00F6}>STEPSTRING$WEND<0xCB!><0xB5!>ERASE,WENDTRONSTEPERLLOCATESAVESPC(AUTOPRESETMODTAB(SPC(BLOADPRESETLOCATE<0xE4!>SCREEN*FNELSEERLEQVSTEPAND<0xB5!>SOUNDSOUNDDEFSTRSCREENSTEPSTRING$<0xB5!>,             SCREEN=RANDOMIZE<UNK! {00FB}>OPTIONBLOADSTRING$<0xB5!>LOCATEPRESETTAB(SPC(BLOADPRESETSTEPTROFFTHEN<UNK! {00FB}><0xB5!>SOUND,ERLIMPNOTBLOADCLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>CLOSEINSTR<0xB4!>XOR,SCREEN\STEP*LOCATE<0xE4!>SCREEN*PSET<0xE4!><0xCB!><UNK! {00FC}>STRING$<0xB5!>,ERLIMP<0xB4!>IMPSCREEN*FNELSEERLEQVSTEPAND,SCREENCLOSE              OPENMODERL'LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>."
  10. 161  LOCATE 9,1:PRINT LI$
  11. 162  LOCATE 10,1:PRINT XY$;
  12. 163  B$=INKEY$
  13. 164  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 173 ELSE IF B$="r" OR B$="R" THEN 230 ELSE 163
  14. 171  CLS:SYSTEM
  15. 173  CLS
  16. 174  LOCATE 8,1:PRINT LI$
  17. 175  PRINT "                   ERLVARPTR'A>'TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>STEPBSAVELOAD<UNK! {00FC}>SCREEN*BLOAD<UNK! {00FC}>MOTORAND'fdisk'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  18. 176  LOCATE 1,2 : INPUT "A>",BS$
  19. 177  IF BS$="fdisk" OR BS$="FDISK" THEN 181
  20. 178  BEEP
  21. 179  LOCATE 1,40:PRINT AB$
  22. 180  GOTO 176
  23. 181  LOCATE 1,4:PRINT BS$:LOCATE 1,9:PRINT "                                                               "
  24. 182  LOCATE 2,10 : PRINT "choose one of the followwing"
  25. 183  LOCATE 3,12 : PRINT "1.creat dos partition "
  26. 184  LOCATE 4,12 : PRINT "2.change active partition"
  27. 185  LOCATE 5,12 : PRINT "3.delet dos partition"
  28. 186  LOCATE 6,12 : PRINT "4.display partition"
  29. 187  LOCATE 7,12 : PRINT "enter chise : [1]"
  30. 190  LOCATE 9,1 : PRINT "   LOAD'KEY<NOTWENDBEEPTOLOCATEPRESETCALL<UNK! {00F5}><0xB4!>TAB(MOTORDEFSTRMERGENOT,ERLIMPSOUNDDEFSTRSCREENSTEPPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVE,LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>,SAVETHENSOUNDPOINTCOLORAUTOLOCATELOADMERGERESUMEMOTORTRONRANDOMIZEDELETEDOSLOCATERANDOMIZENOTBLOAD<0xB5!>SOUNDNOTWENDBEEPTO";
  31. 191  B$=INKEY$:IF B$="" THEN 191 ELSE 192
  32. 192  IF B$=CHR$(13) THEN 196 ELSE 193
  33. 193  BEEP
  34. 194  GOTO 191
  35. 196  CLS
  36. 197  LOCATE 4,10 : PRINT "do you wish to use the entir fixed disk for dos (y/n)......?(y)
  37. 198  LOCATE 8,1:PRINT LI$
  38. 199  PRINT "       LOAD'KEY<TAB(SPC(BLOADPRESET<0xB4!>IMP<0xCB!><0xE3!>LINEFNERR<UNK! {00FB}>OPTION<UNK! {00F6}>NOTWENDBEEPTORANDOMIZEDELETEOPTION<UNK! {00F8}>DOSLOCATERANDOMIZENOTBLOAD,SAVETHENSOUNDDEFSTRSCREENSTEPPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVE,NOTBLOADCLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>CLOSEINSTR<0xB4!>XOR,                   ERLIMPNOTWENDBEEPTOUSINGLOADWHILEOPTIONCALLTOUSRIMPMERGERENUMLINEFNNOTWENDBEEPTOSTRING$OPTION<0xB6!>RESUMEOPTION<UNK! {00F8}>DOS";
  39. 200  B$=INKEY$:IF B$="" THEN 200 ELSE 201
  40. 201  IF B$=CHR$(13) THEN 204 ELSE 202
  41. 202  BEEP
  42. 203  GOTO 200
  43. 204  FOR I=1 TO 2000:I=I+1:NEXT:LOCATE 4,1 : PRINT KS$
  44. 205  LOCATE 3,14 : PRINT "insert dos diskette in drive a:"
  45. 206  LOCATE 4,14:PRINT "Prees any key when read..."
  46. 210  LOCATE 9,1 : PRINT "     STEPSTRING$ERLVARPTRTAB(SPC(BLOADPRESETWHILEINSTRUSR*STRING$INSTRUSRBSAVEPSET\<0xB6!>DEFDBLDOS,SPC(ERLWHILE<0xE3!>LOCATERANDOMIZEDOSLOCATE<0xB6!>WHILEXORSOUND<0xE3!><0xB5!>SOUNDNOTWENDBEEPTOWENDTRONOPTIONCALLNOT<NOTWENDBEEPTOTAB(AUTO'C'PRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>OPENBEEP,                PRESET*SOUND<0xE3!>WEND<0xE5!>SCREEN*DOSBEEPTOSTRING$MOTORAPRESET<UNK! {FDB6}>DEFDBLPSET<UNK! {00F7}>STRING$USR,SCREENCLOSEOPENMODLINE<0xB4!>SCREENTAB(SPC(<0xE2!>LOAD<UNK! {00FC}>";
  47. 211  B$=INKEY$:IF B$="" THEN 211
  48. 212  FOR I=1 TO 100:I=I+1
  49. 213  LOCATE 1,40:PRINT "NOTWENDBEEPTOERR<UNK! {FDD4}>VARPTRCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBL !":LOCATE 1,40:PRINT "                "
  50. 214  NEXT
  51. 222  CLS
  52. 223  LOCATE 1,2 : PRINT "A>"
  53. 224  LOCATE 8,1 : PRINT LI$
  54. 225  LOCATE 9,10 : PRINT "TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>'A'OPTION><0xCB!><0xDF!>TAB(SPC(BLOADPRESETNOTWENDBEEPTOCALL<UNK! {00F5}>LOCATELOADCLOSEDEFDBLTHEN-WHILESTEP !"
  55. 226  PRINT XY$;
  56. 227  B$=INKEY$
  57. 228  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c2",ALL ELSE IF B$="r" OR B$="R" THEN 230 ELSE 227
  58. 230  CHAIN "ama1",ALL
  59. 235  END
  60.