home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / CC5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.3 KB  |  30 lines
  1. 1  CHAIN MERGE "cs",2,DELETE 2-6
  2. 2  C=4
  3. 6  D=2
  4. 155  KEY OFF:CLS
  5. 157  LOCATE 1,2 : PRINT "A>"
  6. 158  LOCATE 7,1 : PRINT LI$
  7. 161  PRINT "     USINGTRONSPC(<0xE2!>:PSETMOTORSOUNDCLOSEKEYSTEPNOTSTRING$CALL<UNK! {00F6}>STEPSTRING$MOTOR<0xCB!>SPC(CLOSEOPTION<UNK! {00F6}>'A>'TO<0xE1!>LOCATESAVEWRITE<UNK! {00FB}>,<0xCB!><UNK! {00FC}>SPC(<0xE2!>TAB(<0xB6!>USINGBEEPUSRBSAVE<0xB5!>SOUNDSCREENERRPSETVARPTRSPC(FNWHILECLOSEMERGENOTLOCATEPOINT"
  8. 170  PRINT "          STEP<0xB5!>THENCALLERR<UNK! {FDD4}>VARPTR<0xB5!>SCREEN<0xB4!><UNK! {FDCF}>BSAVESPC(CLOSEOPTION<UNK! {00F6}>BLOAD<UNK! {00FC}>MOTORANDLOCATE<0xE4!>SCREEN*."
  9. 172  PRINT XY$;
  10. 173  B$=INKEY$
  11. 174  IF B$="e" OR B$="E" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN 176 ELSE IF B$="r" OR B$="R" THEN 220 ELSE 173
  12. 176  LOCATE 8,1:PRINT "     STEPBSAVEBLOAD>SOUND<0xE3!>COLORKEYSPC(ERLLOCATE<0xE4!>SCREEN*WENDCLOSE<0xB4!><UNK! {00F8}>WENDTAB(LOCATE<UNK! {FD28}>SCREENERRPSETVARPTR)<0xB5!>SOUND 'date'BLOAD<UNK! {00FC}>MOTORANDCLS<0xB4!>STEPERLLOCATESAVESTEP<0xB5!>THENCALL<0xB5!>SOUNDSCREENERRPSETVARPTR                       SPC(WENDSAVETHENLOCATEPRESETSOUND<0xE3!>OPTIONERRWENDBEEPKEY<STRING$BLOAD<0xB5!>SOUNDSCREENERRPSETVARPTR.                                             ":PRINT KS$;
  13. 180  LOCATE 1,2:INPUT "A>",C$
  14. 185  IF C$="date" OR C$="DATE" THEN 190 ELSE 187
  15. 187  BEEP
  16. 188  LOCATE 1,40:PRINT AB$:GOTO 180
  17. 190  LOCATE 1,4:PRINT C$:LOCATE 1,8:PRINT "                                                                    "
  18. 195  LOCATE 3,20:PRINT "Current date TUE 3-9-85"
  19. 196  LOCATE 4,20:PRINT "Enter new date________"
  20. 197  LOCATE 8,1:PRINT "     PSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVEMOTOR<0xCB!>SOUND<0xE3!>KEY<STRING$BLOAD<0xB5!>SOUNDSCREENERRPSETVARPTR,PRESET*SOUND<0xE3!>LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>SOUNDDEFSTRSCREENSTEPSTEP<0xB5!>THENCALL<0xB5!>SOUNDSCREENERRPSETVARPTR                               SPC(WENDSAVETHENLOCATEPRESETPSETMOTORSOUNDCLOSEKEYSTEPSTEPERLLOCATESAVE<0xB5!>SOUNDSCREENERRPSETVARPTR.                                                 ";
  21. 198  LOCATE 4,42:C$=INKEY$
  22. 199  IF C$=CHR$(13) THEN 200 ELSE 198
  23. 200  LOCATE 5,2:PRINT "A>"
  24. 205  LOCATE 8,1:PRINT "     OPENBLOAD ! SOUND<0xE3!>THEN-CALLKEYMOTOR<0xCB!>'DATE'BLOAD<UNK! {00FC}>MOTORAND<0xB5!>SOUNDMOTORWRITESTEPLINE                                              "
  25. 208  LOCATE 9,1:PRINT KS$:LOCATE 10,1:PRINT XY$;
  26. 210  B$=INKEY$
  27. 215  IF B$="e" OR B$="R" THEN CHAIN "c0",ALL ELSE IF B$=" " THEN CHAIN "c6",ALL ELSE IF B$="r" OR B$="R" THEN 220 ELSE 210
  28. 220  CHAIN "ama1",ALL
  29. 230  END
  30.