home *** CD-ROM | disk | FTP | other *** search
/ Domination 18 / Domination_18_The_Superbike_Project_v1.0_2003_Onslaught_Master_Disk.d64 / musicdiscmaker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  95 lines
  1. 1 bn=8192:bi=49152:rem bn $2000 bi $2900
  2. 2 dim q$(60):gosub5000
  3. 5 print"[147][205]usiche nel disco:"
  4. 6 dimc$(2,4)
  5. 10 open1,9,2,"$"
  6. 20 forx=1to253:get#1,a$:next
  7. 30 forp=1to8:get#1,t$,a$,a$
  8. 510 forl=0to15
  9. 520 get#1,a$
  10. 522 pokebn+16*n+l,42
  11. 530 ifa$<>chr$(96)thenifa$<>chr$(160)thenb$=b$+a$:ifathengosub1000
  12. 532 ifa$=">"thena=1:n=0
  13. 540 nextl
  14. 550 forl=1to9:get#1,a$:nextl
  15. 552 get#1,l$,h$
  16. 554 l=asc(l$+chr$(0))+256*asc(h$+chr$(0)):ifl=0thengoto590
  17. 560 ifstthenclose1:goto600
  18. 569 rem  ifaandn>0thengosub2000
  19. 570 b$="":printq$(n):   n=n+1
  20. 580 ifp<8thenget#1,a$,a$
  21. 590 nextp:
  22. 591 goto30
  23. 600 print"[147]ok      ":rem  sys20427
  24. 620 poke832,n-1: gosub 3000:gosub4070
  25. 999 end
  26. 1000 ifl=0or l>15 ora$=""   thenreturn
  27. 1050 pokebn+16*n+l-1,asc(a$):q$(n)=q$(n)+a$
  28. 1060 rem   poke1104+l-1,peek(bn+16*n+l-1)
  29. 1070 return
  30. 2000 print"[205]usica:               [157][157][157][157][157][157][157][157][157][157][157][157][157][157]";n
  31. 2010 input"[201]nit address";a$
  32. 2020 input"[208]lay address";b$
  33. 2025 print"                           "
  34. 2030 printa$,b$
  35. 2031 c$(1,1)=mid$(a$,1,1):c$(1,2)=mid$(a$,2,1)
  36. 2040 c$(1,3)=mid$(a$,3,1):c$(1,4)=mid$(a$,4,1)
  37. 2050 c$(2,1)=mid$(b$,1,1):c$(2,2)=mid$(b$,2,1)
  38. 2060 c$(2,3)=mid$(b$,3,1):c$(2,4)=mid$(b$,4,1)
  39. 2070 for x=1to2:fory=1to4
  40. 2080 ifasc(c$(x,y))>64thenc$(x,y)=str$(asc(c$(x,y))-55)
  41. 2090 nexty:nextx
  42. 2100 li=val(c$(1,3))*16+val(c$(1,4))
  43. 2110 hi=val(c$(1,1))*16+val(c$(1,2))
  44. 2120 lr=val(c$(2,3))*16+val(c$(2,4))
  45. 2130 hr=val(c$(2,1))*16+val(c$(2,2))
  46. 2140 pokebi+8+xx*4,li:pokebi+9+xx*4,hi:pokebi+10+xx*4,lr:pokebi+11+xx*4,hr
  47. 2141 rem  printbi+8+xx*4,bi+9+xx*4,bi+10+xx*4,bi+11+xx*4
  48. 2142 rem  printpeek(bi+8+xx*4),peek(bi+9+xx*4)
  49. 2170 return
  50. 3000 rem scrivo dir
  51. 3005 print"scrivo dir"
  52. 3010 open5,9,5,"@:dir,p,w"
  53. 3020 print#5,chr$(0);chr$(160);
  54. 3030 forx=0ton-1
  55. 3032 fory=0to15
  56. 3040 print#5,chr$(peek(bn+x*16+y));
  57. 3050 nexty,x
  58. 3060 close5
  59. 3065 return
  60. 3070 rem scrivo info
  61. 3105 print"scrivo info"
  62. 3110 open5,9,5,"@:info,p,w"
  63. 3120 print#5,chr$(255);chr$(168);
  64. 3130 print#5,chr$(n-1);
  65. 3140 print#5,chr$(76);chr$(0);chr$(16);chr$(76);chr$(3);chr$(16);chr$(0);
  66. 3150 print#5,chr$(0);
  67. 3160 forx=0ton-1
  68. 3162 fory=0to3
  69. 3170 print#5,chr$(peek(bi+8+y+x*4));
  70. 3180 nexty,x
  71. 3190 close5
  72. 3200 print"[200]o finito":end
  73. 4070 rem leggo  info
  74. 4100 forxx=1ton-1
  75. 4105 a$="":b$="":    print:print"leggo  info di ";q$(xx)
  76. 4110 open5,10,5,q$(xx)+"*,p,r"
  77. 4120 get#5,z$
  78. 4130 ifz$=""thengoto4120
  79. 4140 if z$=","andf=0thengosub4300:a$=w$
  80. 4144 if z$=","and f=1thengosub4300:b$=w$
  81. 4148 iff=2thenf=0:close5:gosub2030:nextxx:goto4200
  82. 4150 goto4120
  83. 4200 goto3070
  84. 4300 w$="":foryy=0to3:get#5,z$
  85. 4302 ifasc(z$)>=97 thenz$=chr$(asc(z$)-32)
  86. 4308 w$=w$+z$:nextyy:f=f+1:return
  87. 4322 foryy=0to3:get#5,z$:b$=b$+z$:nextyy:printb$:f=f+1:return
  88. 5000 rem istruzioni
  89. 5010 print"[147]"
  90. 5020 print"drive 8: master disc"
  91. 5030 print"drive 9: music  disc"
  92. 5040 print"drive 10: info   disc"
  93. 5050 geta$:ifa$=""thengoto5050
  94. 5060 return
  95.