home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / AS55.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.5 KB  |  41 lines
  1. 2000  '********************************************************
  2. 2100  '*                  TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>CALLPSET: SG55.BAS                  *
  3. 2200  '*                  CALLTOUSRIMPRANDOMIZEEDITSOUNDPOINT: CLOSEDEFINTKEYSCREENUSRTAB(THENLOAD                  *
  4. 2400  '*                  WHILE<0xE0!>CALLTOSCREENERRPSETVARPTR: 1987.10                   *
  5. 2500  '********************************************************
  6. 4000  KEY OFF
  7. 4001  OPEN "ZBMC.TXT" FOR INPUT AS #1
  8. 4002  INPUT #1,GN$
  9. 4003  CLOSE #1
  10. 4004  K=0
  11. 4005  DIM X$(15),Y(15)
  12. 4006  OPEN "ZBSZ55.TXT" FOR INPUT AS #1
  13. 4007  IF EOF(1)=-1 THEN CLOSE #1 : GOTO 4010
  14. 4008  K=K+1: INPUT #1,X$(K),Y(K) : GOTO 4007
  15. 4010  GOSUB 4025
  16. 4011  L%=LEN(GN$)
  17. 4012  LOCATE 10,(40-L%)/2,0
  18. 4013  PRINT GN$;    '  or  LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>THEN<0xCB!>CALL<UNK! {00F6}>
  19. 4014  IF INKEY$=CHR$(13) THEN GOTO 4016
  20. 4015  GOTO 4014
  21. 4016  SYSTEM
  22. 4018  '
  23. 4019  '
  24. 4025  SCREEN 1,0 : COLOR 9,0 : CLS
  25. 4030  GOSUB 4100
  26. 4035  GOSUB 4050
  27. 4040  RETURN
  28. 4041  '
  29. 4045  '
  30. 4046  '
  31. 4050  LOCATE 2,27,0
  32. 4055  PRINT "<0xCB!><0xB5!>     BLOAD<UNK! {00F7}>"
  33. 4060  FOR I=1 TO K
  34. 4065    LOCATE 2+I,23,0
  35. 4070    PRINT STR$(I)+"."+STR$(Y(I)*100)+"% STRING$OPTION"+X$(I)
  36. 4075  NEXT
  37. 4080  RETURN
  38. 4085  '
  39. 4090  '
  40. 4100  A0=-0
  41.