home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 188 / 188.d81 / b.love3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  119 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 30 sys57812"love3 mouse 2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 sys57812"love3 font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 sys57812"love3 sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 35 ifti<tq+200then35
  8. 36 sys49615
  9. 38 d%(1)=74
  10. 40 fori=1to8
  11. 42 readf$(i),n$(i)
  12. 44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
  13. 46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
  14. 48 next
  15. 50 data"sweet sue.mus","sweet sue - just you"
  16. 51 data"im confessin.mus","i'm confessin"
  17. 52 data"pretty baby.mus","pretty baby"
  18. 53 data"there eyes.mus","them there eyes"
  19. 54 data"row row row.mus","row row row"
  20. 55 data"won't tell.mus","daisies won't tell"
  21. 56 data"simply wild.mus","they go wild simply"
  22. 57 data"sweet rosie.mus","sweet rosie o'grady"
  23. 64 ml=64*256:mv=ml+156:v=53248
  24. 66 pokemv+1,158
  25. 68 pokev+21,0:sysml:sysml+6,14*64
  26. 70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,10,7
  27. 78 sysml+30,3,36,2,9,255,9
  28. 80 sysml+30,2,35,1,8,160,2+16
  29. 88 print"[158]";
  30. 90 sysml+27,2,"loadstar proudly presents
  31. 92 [153]"";
  32. 94 [158]ml[170]27,3,"corky cochran's
  33. 96 sysml+27,4,"[153]b a l l a d s   o f
  34. 100 [158]ml[170]12,6,5,"len   chr$(NULL)(NULL)left$ (NULL)  (NULL) (NULL)(NULL)(NULL)    (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  35. 102 sysml+12,6,6,"[196]   [203]  [204] [205]  [206] [218][193]      [213] [213] [213]
  36. 104 [158]ml[170]12,6,7,"valascasc mid$(NULL)(NULL)right$  (NULL)(NULL)  (NULL)(NULL)(NULL)    (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  37. 112 [158]ml[170]39,160
  38. 120 [158]ml[170]30,3,26,12,23,255,9
  39. 122 [158]ml[170]30,2,25,11,22,160,4[170]16
  40. 130 [158]ml[170]30,29,36,12,23,255,9
  41. 132 [158]ml[170]30,28,35,11,22,160,4[170]16
  42. 140 [158]ml[170]12,30,12,"contplaycmdcmdcmdcmdsongcmdcmdcmdcmdcmdcmdclr-tantantantantantan<contcmdcmdcmdcmdcmdcmdplaycmdcmdcmdcmdall"
  43. 142 [158]ml[170]12,28,17,"clr-tantantantantantan<cmdcmdcmdcmdcmdcmdcontsongcmdcmdcmdcmdinfocmdcmdcmdcmdcmdcmdclr-tantantantantantan<cmdcmdcmdcmdcmdcmdcontquit"
  44. 150 [158]ml[170]15,1,29,34,12,13
  45. 152 [158]ml[170]15,2,29,34,15,16
  46. 154 [158]ml[170]15,3,29,34,18,19
  47. 156 [158]ml[170]15,4,29,34,21,21
  48. 160 [129]i[178]1[164]8
  49. 162 [158]ml[170]12,4,12[170]i,n$(i)
  50. 164 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
  51. 166 [130]
  52. 200 [158]ml[170]9
  53. 204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,14
  54. 210 [139]cr%[167]230
  55. 220 [137]200
  56. 230 [139]cr%[178]1[167][141]300:[137]200 [143] play
  57. 240 [139]cr%[178]2[167][141]400:[137]200:[143] play all
  58. 250 [139]cr%[178]3[167][141]500:[137]200:[143] info
  59. 260 [139]cr%[178]4[167][158]ml[170]3:[151]49152,0:[158]49897:[158]49935:[153]"load":[137]40000:[143] quit
  60. 268 g[178]cr%
  61. 270 [158]ml[170]30,2,25,11,22,160,4[170]16
  62. 272 [129]i[178]1[164]8
  63. 274 [158]ml[170]12,4,12[170]i,n$(i)
  64. 276 [130]
  65. 280 [158]ml[170]36,g,255,14[170]128
  66. 290 [137]200
  67. 300 [139]g[178]0[167][142]
  68. 302 p[178]1:[141]500:p[178]0
  69. 310 [151]781,0:[151]782,d%(g[171]4)
  70. 320 [158]49664:[151]49152,7
  71. 330 [158]ml[170]9
  72. 332 [139][194](49152)[178]0[167]350
  73. 340 [139]l2%[178]0[167]330
  74. 350 [151]49152,0:[158]49897
  75. 352 [158]ml[170]42,168
  76. 360 [142]
  77. 400 [129]g[178]5[164]12
  78. 410 [141]300
  79. 420 [130]
  80. 430 [142]
  81. 500 [139](g[179]1)[176](g[177]12)[167][142]
  82. 502 [158]ml[170]39,168:[158]ml[170]42,160
  83. 510 [158]ml[170]30,2,37,13,21,255,9
  84. 520 [158]ml[170]30,1,36,12,20,255,4[170]16
  85. 530 [151]214,13:[153]:[153][163]2);
  86. 540 h[178]e(g[171]4)
  87. 550 [129]i[178]h[164]h[171]200[169][171]1
  88. 560 [139][194](i)[178]1[167]s[178]i:i[178]h[171]200
  89. 570 [130]
  90. 580 [129]i[178]2[164]200:[139][194](i[170]s)[178]0[167]i[178]200:[137]590
  91. 582 [153][199]([194](i[170]s));:[139][194](i[170]s)[178]13[167][153]"";
  92. 590 [130]
  93. 592 [139]p[167][142]
  94. 600 [158]ml[170]9
  95. 610 [139]l2%[178]0[167]600
  96. 620 [158]ml[170]42,168
  97. 630 [142]
  98. 999 [137]999
  99. 10000 d[178][194](186):n$[178]"0:b.love3":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  100. 40000 [151]53269,0
  101. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  102. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  103. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  104. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  105. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  106. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  107. 40060 [130]:[142]
  108. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  109. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  110. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  111. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  112. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]8:[153]z$:[130]
  113. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  114. 60030 z$(0)[178]" peek atn (NULL) (NULL) atn str$ (NULL)  (NULL) asc  (NULL) (NULL) (NULL) val  right$right$right$
  115. 60040 z$(2)="by [195]orky [195]ochran
  116. 60050 z$(4)[178]"(c) 2000 by mid$ & asc (NULL)ublishing, right$nc."
  117. 60060 z$(6)[178]"1-318-868-8727
  118. 60090 poke214,12:print:fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  119.