home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 126 / 126.d81 / b.comicobox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  196 lines
  1. 0 poke53274,.:poke53272,23
  2. 1 poke55,0:poke56,48:clr
  3. 2 dv=peek(186):ifdv<8thendv=8
  4. 3 dv$=str$(dv)
  5. 5 sys57812"ml c600-cfff",dv,0:poke780,0:poke781,0:poke782,198:sys65493
  6. 6 sys57812"comico font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  7. 7 sys57812"raster stuff.o",dv,0:poke780,0:poke781,02:poke782,63:sys65493
  8. 8 sys57812"comico.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
  9. 9 fr$="":la$="":ov$=""
  10. 10 ns=10:dim na$(ns),fi$(ns),w$(5):rem change ns to reflect number of songs
  11. 12 sa=780:sx=781:sy=782
  12. 13 fori=0to24:poke54272+i,0:next
  13. 14 su=51206:sd=51209
  14. 15 poke1020,10:poke1021,16:poke1022,7:poke1023,32
  15. 16 fori=0to4:poke2040+i,i+248:next
  16. 17 v=53248:fori=0to6step2:readb:pokev+i,b:readb:pokev+i+1,b:next:pokev+16,12
  17. 18 data42,65,62,80,45,65,25,80
  18. 19 fori=0to3:pokev+39+i,5:next:print"[147]"chr$(142):pokev+28,0:poke53272,28
  19. 20 gosub1000
  20. 30 gosub1500
  21. 40 gosub2000:fort=0to2000:next
  22. 50 gosub3000
  23. 60 gosub100
  24. 64 print"[193]re you sure you want to quit? (y/n)":poke198,.
  25. 66 a=peek(203):ifa<>25anda<>39then66
  26. 68 ifa=39thengosub2020:goto50
  27. 69 poke53281,.:poke53280,.:poke646,.
  28. 70 pokev+21,0:goto40000
  29. 100 printla$""
  30. 110 fora=1to5:print"                                    "
  31. 120 next:print"[145][145][145][145][145][145]"
  32. 130 return
  33. 1000 poke53280,13:poke53281,1
  34. 1010 print"[147]";
  35. 1012 fora=1to5:
  36. 1013 print"[153]                                        ";
  37. 1014 next
  38. 1015 print"[153]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]   ";
  39. 1016 print"[153] [176][192][219][192][174]                            [176][192][219][192][174] ";
  40. 1017 print"[153] [221] [173][192][189]                            [173][192][189] [221] ";
  41. 1018 print"[153][176][219][192][174]                                [176][192][219][174]";
  42. 1019 print"[153][221][173][192][189]                                [173][192][189][221]";
  43. 1020 fora=.to10:print"[153][221]                                      [221]";:next
  44. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  45. 1032 fora=1to2:
  46. 1033 print"[153]                                        ";
  47. 1034 next
  48. 1035 print"                                       [157][148] "
  49. 1040 fora=217to242:pokea,peek(a)or128:next
  50. 1050 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  51. 1060 print"[221][204][207][193][196][211][212][193][210] [208]resents[221] "
  52. 1070 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  53. 1080 print"                   "
  54. 1090 print"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][153] "
  55. 1100 print"[152][176][219][192][174]                  [176][192][219][174]"
  56. 1110 print"[152][221][173][192][189]                  [173][192][189][221] "
  57. 1111 for a=1to3
  58. 1112 print"[152][221]                        [221] "
  59. 1120 next
  60. 1130 print"[152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  61. 1135 print"                          "
  62. 1140 print"[145][145][145][145][145][145][152]   [193] [214][197][210][217] [200][193][208][208][217]"
  63. 1150 print"     [195][207][205][201][195][207][194][207][216]!    "
  64. 1170 print" [194]y [205]ario [207]ropesa
  65. 1180 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  66. 1190 [153]"(NULL)        lenopyright 1994        (NULL) "
  67. 1191 [153]"(NULL)                              (NULL) "
  68. 1192 [153]"(NULL)     (NULL)oftdisk (NULL)ublishing      (NULL) "
  69. 1200 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp "
  70. 1210 [153]"                                "
  71. 1220 [129]a[178]1[164]ns:[135] na$(a),fi$(a):[130]
  72. 1230 [129]a[178]1[164]2000:[130]
  73. 1250 [142]
  74. 1500 [153]"(NULL)                 (NULL)"
  75. 1510 [153]"(NULL)   atnclose(NULL)val(NULL)(NULL)closeleft$atn(NULL)(NULL)(NULL)  (NULL) "
  76. 1520 [153]"(NULL)    len(NULL)(NULL)right$len(NULL)peek(NULL)(NULL)!   (NULL) "
  77. 1530 [153]"print          (NULL) peeky (NULL)atn(NULL)right$(NULL) (NULL)(NULL)(NULL)(NULL)val(NULL)atn(NULL) print         "
  78. 1535 mm[178]1263:[151]mm,160:[151]54272[170]mm,13
  79. 1540 [153]"print          /tantantantantantantantantantantantantantantantantanexp print         "
  80. 1545 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  81. 1550 [153]"print                              print         "
  82. 1555 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  83. 1560 [153]"print                                       "
  84. 1565 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,13
  85. 1570 [153]"print waitverifyortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  86. 1575 mm[178]mm[170]40:[151]mm,160:[151] 54272[170]mm,13
  87. 1580 [129]a[178]1[164]7
  88. 1590 [153]"print verifywait(NULL)                                    (NULL)"
  89. 1595 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  90. 1597 [139]a[178]4[167][153]"onprint#--->"[163]34)"<---"
  91. 1600 [130]
  92. 1610 [153]"print verifywait-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  93. 1615 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  94. 1620 [129]a[178]1[164]5
  95. 1630 [153]"print verifywait(NULL)                                    (NULL)"
  96. 1635 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  97. 1640 [130]
  98. 1650 [153]"print waitverify/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  99. 1655 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  100. 1660 [153]"print                                       "
  101. 1665 mm[178]mm[170]40:[151]mm,160:[151]54272[170]mm,5
  102. 1670 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  103. 1680 [142]
  104. 2000 [153]fr$;
  105. 2010 [129]a[178]1[164]7:[153]ov$"clr"na$(a):[130]
  106. 2015 se[178]4
  107. 2016 ls$[178]""
  108. 2020 [141]100:[153]la$"cont(NULL)se the len(NULL)(NULL)(NULL) keys to scroll the"
  109. 2025 [153]"music up and down."
  110. 2030 [153]"(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to hear the"
  111. 2040 [153]"selected music."
  112. 2050 [153]"openasc1cont - (NULL)lay all        openasc7cont - (NULL)uit"
  113. 2060 [142]
  114. 3000 [151]198,.:ab[178].:pa[178].
  115. 3002 [151]v[170]21,15:[151]53272,28
  116. 3005 b[178][194](653):a[178][194](203):[139]a[179][177]7[175]a[179][177]2[175]a[179][177]4[175]a[179][177]3[175]a[179][177]1[167]3005
  117. 3010 [139]((b[178].)[175](a[178]2))[176]((b)[175](a[178]7))[167] [141]3100:[137]3000
  118. 3020 [139]((b[178].)[175](a[178]7))[176]((b)[175](a[178]2))[167] [141]3200:[137]3000
  119. 3030 [139](a[178]1)[167]4000
  120. 3040 [139](a[178]4)[167]4100
  121. 3050 [139](a[178]3)[167] [142]
  122. 3060 [137]3000
  123. 3100 se[178]se[171]1:[139]se[178].[167]se[178]ns
  124. 3110 tp[178]se[171]3:[139]tp[179]1[167]tp[178]ns[170]tp
  125. 3120 [158]sd:[151]648,216:[158]sd:[151]648,4:[153]fr$ov$"clr"na$(tp)
  126. 3130 [142]
  127. 3200 se[178]se[170]1:[139]se[178]ns[170]1[167]se[178]1
  128. 3210 bo[178]se[170]3:[139]bo[177]ns[167]bo[178]bo[171]ns
  129. 3220 [158]su:[151]648,216:[158]su:[151]648,4:[153]la$ov$"clr"na$(bo)
  130. 3230 [142]
  131. 4000 pl[178]se
  132. 4010 [141]6000
  133. 4040 [137]3000
  134. 4097 :
  135. 4098 :
  136. 4100 mm[178]se:pa[178][171]1:[129]zz[178]se[164]ns
  137. 4110 pl[178]zz
  138. 4120 [141]6000
  139. 4150 [141]3200
  140. 4155 [139](ab)[167][141]2020:[137]3000
  141. 4160 [130]:[139](mm[178]1)[176](ab)[167][141]2020:[137]3000
  142. 4170 [129]zz[178]1[164]mm[171]1
  143. 4180 pl[178]zz
  144. 4190 [141]6000
  145. 4210 [141]6500
  146. 4220 [141]3200
  147. 4225 [139](ab)[167][141]2020:[137]3000
  148. 4230 [130]:[141]2020:[137]3000
  149. 6000 ok[178]1:he[178].:[139]ls$[178]fi$(pl)[167]6540
  150. 6001 ls$[178]fi$(pl)
  151. 6003 [141]100:li$[178]"(NULL)oading "[170]na$(pl):li[178][195](li$):ta[178]20[171]li[173]2
  152. 6005 [153]""[163]ta)li$
  153. 6010 [151]v[170