home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s009 / 6.ddi / CXKEY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-09-13  |  2.6 KB  |  58 lines
  1. 10  PRINT"<0xB6!>RESUMESPC(<0xE5!>RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>CALLTOUSRIMP"
  2. 20  DEFINT A-Z:KEY OFF:DIM NA$(132),M(256),L(256),N$(256)
  3. 30  FOR I=1 TO 78:READ MA,NA$(MA):NEXT
  4. 40  OPEN"I",#1,"\213\KEY.COM":M$=INPUT$(9,1):I=0
  5. 50  K$=INPUT$(1,1):IF K$="$" THEN N=I:GOTO 110
  6. 60  I=I+1:O$=INPUT$(3,1):O$=INPUT$(2,1):P$=INPUT$(1,1):IF P$>"0" AND P$<":" THEN O$=O$+P$:P$=INPUT$(1,1)
  7. 70  M(I)=VAL(O$):O$="":P$=INPUT$(1,1)
  8. 80  P$=INPUT$(1,1):IF P$<>CHR$(34) THEN O$=O$+P$:GOTO 80
  9. 90  N$(I)=O$:P$=INPUT$(1,1):IF P$=";" THEN N$(I)=N$(I)+CHR$(13):P$=INPUT$(3,1)
  10. 100  L(I)=LEN(N$(I)):GOTO 50
  11. 110  CLS:PRINT"          <0xB6!>RESUMESPC(<0xE5!>RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>TAB(SOUNDLOAD<UNK! {FE20}>KEY.COM RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>WHILE^"
  12. 120  PRINT STRING$(51,"-")
  13. 130  PRINT"USRIMPOPENBEEP CLSDELETEERRRANDOMIZEASCIIBSAVE*  RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>BLOAD<UNK! {00FB}>   RANDOMIZEEDIT SOUNDPOINT LOAD<UNK! {00FC}> SOUNDVARPTR SCREENOFF"
  14. 140  FOR I=1 TO N:PRINT USING" ##";I;:PRINT TAB(10)USING"###";M(I);:PRINT TAB(19)NA$(M(I));
  15. 150  PRINT TAB(32):IF RIGHT$(N$(I),1)=CHR$(13) THEN PRINT LEFT$(N$(I),L(I)-1)"ELSE<UNK! {00FB}>DELETELOAD" ELSE PRINT N$(I)
  16. 160  NEXT
  17. 170  PRINT STRING$(67,"-")
  18. 180  PRINT" STRING$INSTRSTEPERLDELETESWAPX,USRINKEY$OPTIONSOUNDDELETESWAPY,ERL<UNK! {00F6}>LOADNOTDELETESWAPZ,RANDOMIZEEDITSOUNDPOINTLOAD<UNK! {00FC}>WHILE^DELETESWAPB,WENDCLOSE<0xB4!>>BEEPTOTHEN<0xCB!>CALL<UNK! {00F6}>DELETESWAP<ESC>,<0xB4!>>BEEPTOTHEN<0xCB!>CALL<UNK! {00F6}>ELSE<UNK! {00FB}>DELETELOAD";:O$=INPUT$(1)
  19. 190  IF ASC(O$)=27 THEN END
  20. 200  IF ASC(O$)=13 THEN 390 ELSE PRINT O$
  21. 210  IF O$<>"B" AND O$<>"b" THEN 260
  22. 220  CLS:PRINT STRING$(78,"=")
  23. 230  J=0:FOR I=1 TO 132:IF NA$(I)="" THEN 250
  24. 240  PRINT TAB(J*20+1)USING"###DELETESWAP";I;:PRINT NA$(I);:J=J+1
  25. 250  NEXT:PRINT:GOTO 170
  26. 260  IF O$="X" OR O$="x" THEN 110
  27. 270  IF O$="Y" OR O$="y" THEN 330
  28. 280  IF O$<>"Z" AND O$<>"z" THEN BEEP:GOTO 180
  29. 290  PRINT"<0xB5!>VARPTR"N+1"OPENBEEP";:INPUT" CLSDELETEERRRANDOMIZEASCIIBSAVE*:",M1:IF M1<=0 THEN BEEP:GOTO 180
  30. 300  INPUT"       SOUNDVARPTRSCREENOFF(CLOSEINSTRCALL<0xB5!>=;):",N1$:IF N1$="" THEN BEEP:GOTO 180
  31. 310  Q=INSTR(N1$,";"):IF Q THEN MID$(N1$,Q,1)=CHR$(13)
  32. 320  N=N+1:M(N)=M1:L(N)=LEN(N1$):N$(N)=N1$:GOTO 290
  33. 330  INPUT"PRESET*LOAD<UNK! {00FC}>SCREEN*USRIMPOPENBEEP:",H:IF H=0 THEN 180
  34. 340  PRINT"<0xB5!>VARPTR"H"OPENBEEP CLSDELETEERRRANDOMIZEASCIIBSAVE*="M(H)" SOUNDVARPTRSCREENOFF:"N$(H)
  35. 350  INPUT"    OPTIONSOUNDTAB(AUTO CLSDELETEERRRANDOMIZEASCIIBSAVE*=",M1:IF M1<0 THEN M(H)=0:GOTO 330 ELSE IF M1 THEN M(H)=M1
  36. 360  INPUT"         SOUNDVARPTRSCREENOFF(CLOSEINSTRCALL<0xB5!>=;):",N1$:IF N1$="" THEN 330
  37. 370  Q=INSTR(N1$,";"):IF Q THEN MID$(N1$,Q,1)=CHR$(13)
  38. 380  N$(H)=N1$:L(H)=LEN(N1$):GOTO 330
  39. 390  CLOSE:OPEN"O",#1,"\213\KEY.COM":PRINT#1,M$;
  40. 400  K=0:FOR I=1 TO N:IF M(I)=0 OR K+L(I)+3>191 THEN 440
  41. 410  PRINT#1,CHR$(27)"[0;";:IF M(I)>99 THEN PRINT#1,USING"###";M(I); ELSE PRINT#1,USING"##";M(I);
  42. 420  PRINT#1,";"CHR$(34);:IF RIGHT$(N$(I),1)=CHR$(13) THEN PRINT#1,LEFT$(N$(I),L(I)-1)CHR$(34)";13"; ELSE PRINT#1,N$(I)CHR$(34);
  43. 430  PRINT#1,"p";:K=K+L(I)+3
  44. 440  NEXT:PRINT#1,"$";:END
  45. 450  DATA 16,ALT-Q,17,ALT-W,18,ALT-E,19,ALT-R,20,ALT-T,21,ALT-Y,22,ALT-U
  46. 460  DATA 23,ALT-I,24,ALT-O,25,ALT-P,30,ALT-A,31,ALT-S,32,ALT-D,33,ALT-F
  47. 470  DATA 34,ALT-G,35,ALT-H,36,ALT-J,37,ALT-K,38,ALT-L,44,ALT-Z,45,ALT-X
  48. 480  DATA 46,ALT-C,47,ALT-V,48,ALT-B,49,ALT-N,50,ALT-M
  49. 490  DATA 59,F1,60,F2,61,F3,62,F4,63,F5,64,F6,65,F7,66,F8,67,F9,68,F10
  50. 500  DATA 84,SHIFT-F1,85,SHIFT-F2,86,SHIFT-F3,87,SHIFT-F4,88,SHIFT-F5
  51. 510  DATA 89,SHIFT-F6,90,SHIFT-F7,91,SHIFT-F8,92,SHIFT-F9,93,SHIFT-F10
  52. 520  DATA 94,CTRL-F1,95,CTRL-F2,96,CTRL-F3,97,CTRL-F4,98,CTRL-F5
  53. 530  DATA 99,CTRL-F6,100,CTRL-F7,101,CTRL-F8,102,CTRL-F9,103,CTRL-F10
  54. 540  DATA 104,ALT-F1,105,ALT-F2,106,ALT-F3,107,ALT-F4,108,ALT-F5
  55. 550  DATA 109,ALT-F6,110,ALT-F7,111,ALT-F8,112,ALT-F9,113,ALT-F10
  56. 560  DATA 120,ALT-1,121,ALT-2,122,ALT-3,123,ALT-4,124,ALT-5,125,ALT-6
  57. 570  DATA 126,ALT-7,127,ALT-8,128,ALT-9,129,ALT-0,130,ALT--,131,ALT-+
  58.