home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / fb386 / cdfinf / cdtype.bas < prev   
BASIC Source File  |  1992-08-19  |  2KB  |  41 lines
  1. 10 '********************************************************************
  2. 20 '    Super CD Infomation Editor V1.00            Ｂｙ．おこめ
  3. 30 '********************************************************************
  4. 40 CLEAR ,,512,1000000,0:DEFINT A-Z:STOP OFF
  5. 50 ON ERROR GOTO *ERR
  6. 60 COLOR 7,0,7,4:WIDTH 80,25:CONSOLE 0,25,0
  7. 70 DIM A$(100),A(200),B(200),C(200),D(10),T&(200),AD&(40000)
  8. 80 OPEN "R",#1,"(64)CDINF.DAT"
  9. 90 FIELD #1,4 AS AD$,1 AS A$(1),1 AS A$(2),1 AS A$(3),1 AS A$(4),1 AS A$(5),1 AS A$(6),4 AS KAD$,50 AS NA$
  10. 100 FIELD #1,4 AS AD$,4 AS KA$,1 AS KN$,1 AS KM$,1 AS KS$,1 AS KH$,52 AS KNA$
  11. 110 FIELD #1,64 AS ALS$
  12. 120 SCREEN@0
  13. 130 LOCATE 24,12:PRINT "ＣＤ　Infomation　ＥＤＩＴＯＲ"
  14. 140 WAIT 100:CLS:F&=1:F2&=0
  15. 150 GET #1,F&:AD&(F2&)=F&
  16. 160 PRINT CVL(AD$)
  17. 170 PRINT "種類";ASC(A$(1))
  18. 180 PRINT USING "##分##秒##";ASC(A$(2)),ASC(A$(3)),ASC(A$(4))
  19. 190 PRINT ASC(A$(5));"曲"
  20. 200 PRINT ASC(A$(6));" GOOD No"
  21. 210 PRINT CVL(KAD$)
  22. 220 PRINT NA$
  23. 230 GOSUB *KYOKU
  24. 240 IF PAD(1) THEN 240
  25. 250 A$=INKEY$:OU=PAD(1):OU2=PTRIG(1):IF A$="" AND OU=0 AND OU2=0 THEN 250
  26. 260 IF (OU=1 OR A$="8") AND CVL(AD$)>0 THEN F&=CVL(AD$):F2&=F2&+1
  27. 270 IF (OU=5 OR A$="2") AND F&>1 THEN F2&=F2&-1:F&=AD&(F2&)
  28. 280 IF (OU2=4 OR A$="E") THEN 340
  29. 290 IF (OU2=2 OR A$="5") THEN 350
  30. 300 CLS:GOTO 150
  31. 310 *KYOKU I&=CVL(KAD$)
  32. 320 IF I&=0 THEN GET #1,F&:RETURN ELSE GET #1,I&
  33. 330 PRINT USING "## ##:##:## ";ASC(KN$),ASC(KM$),ASC(KS$),ASC(KH$);:PRINT KNA$:I&=CVL(AD$):GOTO 320
  34. 340 IF PTRIG(1)=0 THEN STOP ON:END ELSE 340
  35. 350 *並べ替え
  36. 360 GET #1,F&:IF CVL(AD$)>0 THEN T1$=ALS$:AS$=AD$:GET #1,CVL(AS$):AS2$=AD$ ELSE BEEP:CLS:GOTO 150
  37. 370 LSET AD$=AS$:PUT #1,F&:LSET ALS$=T1$:LSET AD$=AS2$:PUT #1,CVL(AS$)
  38. 380 CLS:GOTO 150
  39. 390 *ERR PRINT "ERROR ";ERR;"(";ERL;")"
  40. 400 END
  41.