home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p029 / xl.img / DOSXX.ARJ / C5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.5 KB  |  37 lines
  1. 4  COMMON LI$,XY$,KS$,AB$
  2. 5  CLS:KEY OFF
  3. 10  PRINT "                         5.  DATA  BLOAD<UNK! {00FC}>MOTORAND       "
  4. 20  PRINT "          RANDOMIZEEDITSOUNDPOINT: STEPERLLOCATESAVEOPENTHENKEY<<0xB6!>RESUMESCREENERRPSETVARPTR"
  5. 30  PRINT "          OPTIONEQVLOCATEMERGE: DATE [mm-dd-yy]"
  6. 40  PRINT "          <0xCB!><0xB5!>BLOAD<UNK! {00F7}>: (1) ERLBSAVE,SCREENERR,SOUND-<0xB5!>SOUNDLOCATE<0xE4!>SCREEN*,USR*NOTKEYPSETPSETERRCSRLINOPENBEEP '- 'CLOSEIMPUSRWHILEOPTIONPOINT '/ 'WRITESTRING$OPTION\"
  7. 50  PRINT "                (2) SCREEN=RANDOMIZE<UNK! {00FB}>BLOADCLOSENOTUSRWENDTAB(LOCATE<UNK! {FDCA}><0xE4!>SCREEN*,ERLIMPPSETMOTORSOUNDCLOSETO<0xE1!>LOCATESAVE:"
  8. 60  PRINT "                       Current date is day mm-dd-yy"
  9. 70  PRINT "                       Enter new date___"
  10. 80  PRINT "                    SCREEN\WENDCLOSESTEPTROFFTHEN<UNK! {00FB}>OPTIONSOUNDWHILE<0xE4!>STEPERLLOCATESAVE<0xB5!>SOUNDSCREENERRPSETVARPTR,ERLIMPLOAD<UNK! {00FC}>SCREEN*CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  11. 85  LOCATE 9,1:PRINT LI$:PRINT XY$;
  12. 87  BS$=INKEY$
  13. 88  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 89 ELSE IF BS$="r" OR BS$="R" THEN 133 ELSE 87
  14. 89  CLS
  15. 90  PRINT "                (3) COLORKEYSPC(ERLLINEFNUSRBSAVE<0xB5!>SOUNDSCREENERRPSETVARPTRUSING<UNK! {00F7}>TAB(AUTO DATE WENDTAB(LOCATE<UNK! {FD2C}>USRBSAVESCREENERRPSETVARPTRWENDCLOSESOUNDPOINTLOCATEPRESETUSINGSTRING$SOUNDOPTION,STRING$CLOSESOUNDPOINTLOCATEPRESETLOCATE<UNK! {FDD7}>STRING$:"
  16. 100  PRINT "                    mm=1-----12"
  17. 105  PRINT "                    dd=1-----31"
  18. 106  PRINT "                    yy=80----99"
  19. 130  LOCATE 9,1:PRINT LI$:PRINT XY$;
  20. 131  BS$=INKEY$
  21. 132  IF BS$="e" OR BS$="E" THEN CHAIN "c0",ALL ELSE IF BS$=" " THEN 135 ELSE IF BS$="r" OR BS$="R" THEN 133 ELSE 131
  22. 133  CHAIN "AMA1",ALL
  23. 135  CLS
  24. 137  LOCATE 7,1:PRINT LI$
  25. 140  PRINT "        STEPSTRING$ERLVARPTRSCREENBLOADTAB(SPC(BLOADBEEPCLS<0xB4!>USING<UNK! {00F6}>MERGERENUM'81SOUND-3ERLBSAVE9SCREENERR'USING<UNK! {00F7}>TAB(AUTODATEWENDTAB(LOCATE<UNK! {FDB5}>SOUNDMOTORWRITESTEPLINE"
  26. 145  PRINT "            PRESET*LOCATE<0xE4!>SCREEN*:  'date 3-9-85'LOADLINECLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>"
  27. 147  LOCATE 1,2:INPUT "A>",BS$
  28. 150  IF BS$="date 3-9-85" OR BS$="DATE 3-9-85" THEN 158 ELSE 154
  29. 154  BEEP
  30. 155  LOCATE 1,40 : PRINT AB$
  31. 156  GOTO 147
  32. 158  LOCATE 1,4:PRINT BS$:LOCATE 1,15:PRINT "                                                      "
  33. 160  FOR I=1 TO 60:I=I+1
  34. 176  LOCATE 1,40:PRINT "STEP<0xB5!>THENCALLERR<UNK! {FDD4}>VARPTRKEY<<0xB6!>RESUME<0xB5!>WHILEPRESETLINELOCATE<0xE4!>SCREEN*<0xB5!>SOUNDSCREENERRPSETVARPTR":LOCATE 1,40:PRINT "                            "
  35. 177  NEXT:CHAIN "cc5",ALL
  36. 180  END
  37.