home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.4 KB  |  55 lines
  1. 3  KEY OFF
  2. 4  COMMON LI$,XY$,KS$,AB$
  3. 5  CLS
  4. 10  PRINT "                             4.  TIME  BLOAD<UNK! {00FC}>MOTORAND         "
  5. 20  PRINT "          RANDOMIZEEDITSOUNDPOINT: TAB(AUTOSTEP<0xB5!>THENCALLLOCATE<0xE4!>SCREEN*LOCATEWHILELOAD<0xE4!>CLOSEIMPUSRINKEY$OPTIONSOUNDLOCATEWHILELOAD<0xE4!>,BLOADCOLOR<0xB5!>WHILEMERGERESUMEMOTORTRONCLOSEIMPLOADNOTSCREEN*TAB(SOUNDLOAD<UNK! {FEC4}>VARPTRSCREENOFF<0xB5!>SOUND                               LOCATEWHILEOPENIMP,LOCATEWHILELOAD<0xE4!><0xB6!>LOADWHILECLOSELOADPRESETBSAVELOADERLVARPTRPSET<0xE4!>SOUNDCOLORBSAVELOADSTEPANDSTRING$USR."
  6. 30  PRINT "          OPTIONEQVLOCATEMERGE: TIME [HH:MM:SS.XX]"
  7. 40  PRINT "          <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: (1)LOCATEWHILELOAD<0xE4!><0xB5!>SOUNDNOTUSRUSRERRORWRITESTRING$MERGE=WRITE<UNK! {00FB}>TAB(AUTOBLOADLINEOPENBEEP':'"
  8. 50  PRINT "                (2)SCREEN=RANDOMIZE<UNK! {00FB}>BLOADCLOSENOTUSRWENDTAB(LOCATE<UNK! {FDCA}><0xE4!>SCREEN*,PSETMOTORSOUNDCLOSEMERGERENUMTO<0xE1!>LOCATESAVEUSRBEEPSTEPTRON:"
  9. 60  PRINT "                         Current time is hh:mm:ss.xx"
  10. 70  PRINT "                         Enter new time :___"
  11. 75  LOCATE 9,1:PRINT LI$:PRINT XY$;
  12. 82  B$=INKEY$
  13. 84  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 86 ELSE IF B$="r" OR B$="R" THEN 203 ELSE 82
  14. 86  CLS
  15. 87  PRINT "                    SCREEN=RANDOMIZE<UNK! {00FB}>WENDCLOSESTEP*OPTIONSOUNDWHILE<0xE4!>STEPERLLOCATESAVE<0xB5!>SOUNDLOCATEWHILELOAD<0xE4!>,ERLIMPLOADIMP<0xB5!>ERASE<0xB5!>SOUNDNOTBLOADCLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>CLOSEINSTR<0xB4!>XOR"
  16. 90  LOCATE 2,1:PRINT "                (3)SCREEN=RANDOMIZE<UNK! {00FB}>LINEFNUSRBSAVELOCATEWHILELOAD<0xE4!>USING<UNK! {00F7}>TAB(AUTOtimeBLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDWENDTAB(LOCATE<UNK! {FDCA}><0xE4!>SCREEN*,ERLIMPLOCATEWHILELOAD<0xE4!>WHILECLOSEMERGENOTLOCATEPOINT,                                WENDTRONCALL<UNK! {00F6}>STEPSTRING$STEP<0xB5!>THENCALLTO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>."
  17. 100  PRINT "                (4)LOAD<UNK! {00FC}>SCREEN*<0xB5!>SOUNDWENDTAB(LOCATE<UNK! {FDB2}>CLOSESOUNDPOINTLOCATEPRESETUSINGSTRING$SOUNDOPTION,STRING$CLOSEERLLOCATEUSR^STEPBSAVEMOTORUSRLOCATE<UNK! {FDD7}>STRING$:"
  18. 110  PRINT "                        <hh>:0-23(WHILE^LOCATESAVEUSRELSELOCATEWHILE)"
  19. 120  PRINT "                        <mm>:0-59(WHILE^LOCATESAVEWRITESTRING$STRING$NOT)"
  20. 130  PRINT "                        <ss>:0-59(WHILE^ LOCATESAVE BLOAD*)"
  21. 140  PRINT "                        <xx>:0-99(WHILE^LOCATESAVELINE'WRITESTRING$STRING$DEFSNGLOADOPTIONBLOAD*)"
  22. 150  LOCATE 9,1:PRINT LI$:PRINT XY$;
  23. 152  BS$=INKEY$
  24. 153  IF BS$="e" OR BS$="E" THEN CHAIN "c0" ,ALL ELSE IF BS$=" " THEN 155 ELSE IF BS$="r" OR BS$="R" THEN 154 ELSE 152
  25. 154  NAME "tj.bas" AS "tjj0.bas":CLS:SYSTEM
  26. 155  CLS:PRINT "A>"
  27. 156  LOCATE 7,1 : PRINT LI$
  28. 160  PRINT "    STEPSTRING$ERLVARPTRCOLORAUTOLOCATELOADMOTORWRITESTEPLINEWENDCLOSE<0xB4!><UNK! {00F8}>SCREENTAB(OPENTAB(WENDTAB(LOCATE<UNK! {FD2C}>LINEFNSTEP<0xB5!>THENCALLSPC(FNSTRING$AUTO<0xB5!>SOUNDLOCATEWHILELOAD<0xE4!>USRINKEY$OPTIONSOUNDTAB(AUTO:13:55:00.00
  29. 170  PRINT "        PRESET*SOUND<0xE3!>STEPSCREENLOAD<UNK! {00FC}>SCREEN* 'time'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  30. 171  LOCATE 1,1 : PRINT " ":LOCATE 1,2:INPUT "A>",BS$
  31. 172  IF BS$="time" OR BS$="TIME" THEN 179 ELSE GOTO 173
  32. 173  BEEP
  33. 174  LOCATE 1,40 : PRINT AB$
  34. 175  GOTO 171
  35. 179  LOCATE 1,4:PRINT BS$:LOCATE 1,8 : PRINT "                                                                "
  36. 180  PRINT "                 current time is 00:25:16:65"
  37. 181  PRINT "                 enter new time :_____"
  38. 182  LOCATE 8,1 : PRINT KS$
  39. 185  LOCATE 8,1 : PRINT "    DOSOPTION><0xCB!><0xDF!>SOUND<0xE3!>LOCATEWHILELOAD<0xE4!>TAB(AUTO: 00:25:16.65,SPC(AUTOPRESETMODSOUND<0xE3!>LOCATE<0xE4!>SCREEN*USRBSAVE<0xB5!>SOUNDLOCATEWHILELOAD<0xE4!><0xE4!>,                                   SOUNDPRESETBLOAD<0xB4!>TAB(SPC(BLOADPRESETLOAD<UNK! {00FC}>SCREEN*:'13:55'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  40. 186  LOCATE 3,33 : INPUT ":",BS$
  41. 187  IF BS$="13:55" THEN 192
  42. 188  BEEP
  43. 189  LOCATE 1,40 : PRINT AB$
  44. 190  GOTO 186
  45. 192  LOCATE 1,40 : PRINT "                                       "
  46. 193  LOCATE 3,1:PRINT KS$:LOCATE 3,18:PRINT "enter new time :13:55"
  47. 194  FOR I=1 TO 50:I=I+1:LOCATE 1,40:PRINT "STEP<0xB5!>THENCALLERR<UNK! {FDD4}>VARPTRKEY<STRING$BLOADLOCATEWHILELOAD<0xE4!>,PRESET*KEYERLOPENAND!":NEXT
  48. 195  LOCATE 1,40:PRINT "                                   ":LOCATE 7,1:PRINT KS$;:PRINT LI$;
  49. 196  PRINT "     USINGTRONSPC(<0xE2!>:OPTIONERRWENDBEEPTAB(SPC(BLOADPRESETMERGE<UNK! {00F6}>LOCATE<0xE4!>SCREEN*MOTOR<0xCB!>USRELSELOCATEWHILEOPENTHENWRITESTRING$STRING$NOT,PSET<0xE4!>NOT<0xE0!><0xB5!>SOUNDBLOAD*OPENTHENLINE'WRITESTRING$BLOAD*STEP<0xB5!>THENCALLMERGERENUMUSINGERL<0xB6!>DEFDBLKEY<STRING$BLOADTAB(AUTOMOTOR<0xE3!>.        ";
  50. 200  PRINT XY$;
  51. 201  B$=INKEY$
  52. 202  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c5" ELSE IF B$="r" OR B$="R" THEN 203 ELSE 201
  53. 203  CHAIN "AMA1",ALL
  54. 210  END
  55.