home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 168 / 168.d81 / b.ziegfeld (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  222 lines
  1. 10 poke56,54:clr:poke53371,0:poke788,49:tq=ti
  2. 12 i=rnd(-ti)
  3. 20 poke53281,0:poke53280,0
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 32 print"[147]":gosub60000
  6. 40 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 50 sys57812"ziegfeld.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  8. 60 ifti<tq+200then60
  9. 62 print"[144][147]"
  10. 70 poke251,64:poke252,96:poke253,92:sys51456:sys51459
  11. 80 sys57812"ziegfeld mj",dv,0:poke780,0:poke781,0:poke782,151:sys65493
  12. 90 sys57812"tsv.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  13. 100 sys57812"ziegfeld font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  14. 110 ifti<tq+400then110
  15. 112 c=54272:s=1024:ky$="[145][157]123456"
  16. 114 poke53281,0:sys51459
  17. 116 poke53272,31
  18. 118 ml=151*256:mv=ml+156:pokemv+1,54:v=53248
  19. 120 sysml:sysml+18,0,38,0,24
  20. 122 pokemv+19,128:sysml+6,14272:pokev+21,0
  21. 124 pokev+39,15:pokev+40,11
  22. 126 goto180
  23. 140 ifi%=1theny=y-1:ify<0theny=0
  24. 142 ifi%=2theny=y+1:ify>24theny=24
  25. 144 ifi%=3thenx=x-1:ifx<0thenx=0
  26. 146 ifi%=4thenx=x+1:ifx>39thenx=39
  27. 148 return
  28. 160 k=int(rnd(1)*1000):ifpeek(s+k)=0thenpokes+k+c,rnd(1)*8+2
  29. 162 return
  30. 180 fori=0to7:readd:pokemv+11+i,d:next
  31. 190 data99,100,101,103,108,123,124,126
  32. 200 fori=1to10:readg$(i),fg$(i),bd%(i)
  33. 210 x1(i)=1-20*(i>5):x2(i)=x1(i)+17
  34. 220 y1(i)=2+i*3+15*(i>5):y2(i)=y1(i)+2
  35. 230 sysml+15,i,x1(i),x2(i),y1(i),y2(i):next
  36. 240 data"[200]ope [196]are","hope dare.shp",0
  37. 250 data"[193]nna [200]eld","anna held.shp",0
  38. 260 data"[204]illion [204]orraine","l lorraine.shp",0
  39. 270 data"[194]essie [196]avis","bessie.shp",0
  40. 280 data"[207]live [212]omas","olive.shp",0
  41. 290 data"[196]olores","dolores.shp",0
  42. 300 data"[201]mogene [215]ilson","wilson.shp",0
  43. 310 data"[202]ocelyn [204]eigh","leigh.shp",0
  44. 320 data"[193]lta [203]ing","alta.shp",0
  45. 330 data"[203]athryn [208]erry","perry.shp",0
  46. 340 poke53272,31
  47. 350 fori=0to2:reade$(i),m1(i),m2(i),m3(i),m4(i),e1$(i)
  48. 360 sysml+15,11+i,m1(i),m2(i),m3(i),m4(i)
  49. 370 data"[198][207][204][204][201][197][211]",2,12,21,23," 7-[208][201][206]"
  50. 380 data" [200][197][204][208] ",16,25,21,23," 8-[208][201][206]"
  51. 390 data" [209][213][201][212]",29,37,21,23," [194][193][195][203]"
  52. 400 next
  53. 410 sysml+30,0,39,0,24,0,8
  54. 420 poke53281,0:poke53280,0
  55. 430 pokev+21,3
  56. 440 sysml+30,2,37,1,3,255,1+16
  57. 450 sysml+12,5,2,"[158][218]@[201]@[197]@[199]@[198]@[201]@[197]@[204]@[196]@@@@[199]@[201]@[210]@[204]@[211][146][159]"
  58. 460 fori=1to10
  59. 470 sysml+30,x1(i),x2(i),y1(i),y2(i),255,5+16
  60. 480 sysml+12,x1(i)+9-len(g$(i))/2,y1(i)+1,g$(i)
  61. 490 next
  62. 500 print"";
  63. 510 fori=0to2:sysml+30,m1(i),m2(i),m3(i),m4(i),255,14+16
  64. 520 sysml+12,m1(i)+2,m3(i)+1,e$(i)
  65. 530 next
  66. 532 x=12:y=12
  67. 534 sysml+21,x,y
  68. 540 sysml+9:sysml+60,ky$
  69. 541 gosub160
  70. 542 if(l2%=0)and(i%=0)then540
  71. 544 p=cr%:ifpthen560
  72. 550 if(i%>0)and(i%<5)thengosub140:goto534
  73. 552 goto540
  74. 560 sysml+39,160
  75. 566 ifp=11then800
  76. 568 ifp=12then700
  77. 570 ifp=13then950
  78. 580 sysml+36,p,255,1
  79. 582 pokev+21,0
  80. 590 sys57812fg$(p),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  81. 600 poke251,64:poke252,96:poke253,92:sys51456:poke53280,bd%(p):sys51459
  82. 610 sysml+9
  83. 612 geta$:ifa$="p"thengosub3000:goto640
  84. 620 ifl2%=0then610
  85. 630 sys51459
  86. 640 sysml+42,160:pokev+21,3
  87. 650 goto540
  88. 700 pokev+21,0:ifhthensysml+42,168:goto750
  89. 702 h=1
  90. 710 sysml+30,1,38,5,19,255,5+16
  91. 720 sysml+12,2,7,"[154]    [213]se keyboard, mouse in [208]ort #1
  92. 722 [158]ml[170]12,2,8,"or joystick in (NULL)ort #2 to move the
  93. 724 sysml+12,2,9,"arrow. [195]lick or [211][208][193][195][197][154] on a green
  94. 726 [158]ml[170]12,2,10,"box to see the picture. (NULL)hile it's
  95. 728 sysml+12,2,11,"showing, press [208][154] to go to the [155][208][210][201][206][212][154]"
  96. 729 sysml+12,2,12,"sequence. [198]ollow the prompts.
  97. 730 [158]ml[170]12,2,14,"    lenlick on listasc(NULL)(NULL)(NULL)right$val(NULL)cont to see a
  98. 732 sysml+12,3,15,"slideshow of the ten pictures.
  99. 734 [158]ml[170]12,3,16,"lenlick or (NULL)(NULL)atnlenvalcont to go to the next
  100. 736 sysml+12,3,17,"picture; press [209] to stop the show.
  101. 740 [158]ml[170]39,168
  102. 750 [158]ml[170]9
  103. 752 [141]160
  104. 754 [141]160
  105. 760 [139]l2%[178]0[167]750
  106. 770 [158]ml[170]42,160:[151]v[170]21,3
  107. 780 [137]540
  108. 799 [137]799
  109. 800 [129]i[178]1[164]10
  110. 810 [158]ml[170]36,i,255,1
  111. 820 [151]v[170]21,0
  112. 830 [158]57812fg$(i),dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  113. 840 tq[178]ti
  114. 850 [151]251,64:[151]252,96:[151]253,92:[158]51456:[151]53280,bd%(i):[158]51459
  115. 860 [158]ml[170]9:[161]a$
  116. 862 [139]a$[178]"q"[167]i[178]10:[137]880
  117. 870 [139]l2%[178]0[175]ti[179]tq[170]1000[167]860
  118. 880 [158]51459
  119. 890 [158]ml[170]42,160:[151]v[170]21,3
  120. 892 [130]
  121. 900 [137]540
  122. 950 [158]ml[170]12,30,22,"len(NULL)(NULL)ascright$(NULL)(NULL)"
  123. 956 [151]198,0:x[178]30:y[178]22:[151]v[170]21,3
  124. 958 [158]ml[170]21,x,y
  125. 960 [158]ml[170]9:[158]ml[170]60,ky$
  126. 962 [141]160
  127. 964 [139]i%[177]0[175]i%[179]5[167][141]140:[137]958
  128. 970 [139]cr%[178]13[167][158]ml[170]3:[151]v[170]21,0:[137]40000
  129. 972 [139]l2%[178]0[167]960
  130. 980 [158]ml[170]42,160
  131. 990 [137]540
  132. 3000 [158]51459:[158]ml[170]42,160
  133. 3004 [153]"";
  134. 3006 [129]i[178]0[164]2:[158]ml[170]30,m1(i),m2(i),m3(i),m4(i),255,5[170]16
  135. 3008 [158]ml[170]12,m1(i)[170]2,m3(i)[170]1,e1$(i)
  136. 3010 [130]
  137. 3016 [151]198,0:x[178]30:y[178]22:[151]v[170]21,3
  138. 3018 [158]ml[170]21,x,y
  139. 3020 [158]ml[170]9:[158]ml[170]60,ky$
  140. 3031 [141]160
  141. 3032 [139]cr%[178]11[167]a1[178]1:tb[178]80:[137]3250
  142. 3034 [139]cr%[178]12[167]a1[178]2:[137]3080
  143. 3036 [139]cr%[178]13[167][142]
  144. 3040 [139]i%[177]0[175]i%[179]5[167][141]140:[137]3018
  145. 3042 [137]3020
  146. 3080 x[178]8:y[178]7:[158]ml[170]30,6,33,y,y[170]10,255,1[170]16
  147. 3100 [158]ml[170]12,x,y[170]1,"open   str$val(NULL)(NULL)right$(NULL)(NULL)      (NULL)right$str$(NULL)left$
  148. 3110 sysml+12,x,y+3,"1[154]  [211]ingle       [215]ide
  149. 3120 [158]ml[170]12,x,y[170]4,"2cont  len(NULL)(NULL)          (NULL)ormal
  150. 3130 sysml+12,x,y+5,"3[154]  [196]ouble       [206]arrow
  151. 3140 [158]ml[170]12,x,y[170]6,"4cont  str$ouble       (NULL)ide
  152. 3150 sysml+12,x,y+7,"5[154]  [209]uad         [206]arrow
  153. 3160 [158]ml[170]12,x,y[170]8,"6cont  (NULL)uad         (NULL)ormal
  154. 3166 poke198,0:x=17:y=10:pokev+21,3
  155. 3168 sysml+21,x,y
  156. 3170 sysml+9:sysml+60,ky$
  157. 3172 gosub160
  158. 3174 ifl2%thenifcy%>9andcy%<16andcx%>5andcx%<35thena2=cy%-9:goto3190
  159. 3176 ifcr%=13thenreturn
  160. 3178 ifi%>5thena2=i%-4:goto3190
  161. 3182 ifi%>0andi%<5thengosub140:goto3168
  162. 3184 goto3170
  163. 3190 print"      "a2:sysml+24,120
  164. 3192 ifa2=1then ds=0:bt=1:tb=80
  165. 3200 ifa2=2then ds=4:bt=1:tb=120
  166. 3210 ifa2=3then ds=1:bt=1:tb=160
  167. 3220 ifa2=4then ds=1:bt=2:tb=80
  168. 3230 ifa2=5then ds=3:bt=2:tb=160
  169. 3240 ifa2=6then ds=3:bt=3:tb=120
  170. 3250 x=8:y=7:sysml+30,6,33,y,y+10,255,1+16
  171. 3270 sysml+12,x+6,y+1,"[155][212][193][194][160][208][207][211][201][212][201][207][206]
  172. 3280 [158]ml[170]12,x,y[170]3,"1cont  (NULL)eft
  173. 3290 sysml+12,x,y+4,"2[154]        [195]enter
  174. 3300 [158]ml[170]12,x,y[170]5,"3cont                (NULL)ight
  175. 3310 ifa2<>3anda2<>5then3336
  176. 3320 sysml+12,x,y+6,"4[154]    [204]eft-[195]enter
  177. 3330 [158]ml[170]12,x,y[170]7,"5cont          (NULL)ight-lenenter
  178. 3336 x=17:y=10:pokev+21,3
  179. 3338 sysml+21,x,y
  180. 3340 sysml+9:sysml+60,ky$
  181. 3341 gosub160
  182. 3342 ifl2%thenifcy%>9andcy%<16andcx%>5andcx%<35thena3=cy%-9:goto3360
  183. 3344 ifcr%=13thenreturn
  184. 3346 ifi%>4andi%<10thena3=i%-4:goto3360
  185. 3348 ifi%>0andi%<5thengosub140:goto3338
  186. 3349 goto3340
  187. 3360 ifa3=1thentb=0:goto3420
  188. 3370 ifa3=2then3420
  189. 3380 ifa3=3thentb=tb*2:goto3420
  190. 3390 ifa2<>3anda2<>5then3340
  191. 3400 ifa3=4thentb=53:goto3420
  192. 3410 tb=266
  193. 3420 poke251,64:poke252,96:poke253,92:sys51456
  194. 3430 pokev+21,0:sys51459
  195. 3440 ifa1=1thensys49152,tb,1:goto3470
  196. 3450 ifa1=2thensys49155,tb,ds,bt,bt*320,1
  197. 3460 poke198,0
  198. 3470 poke186,dv:sys51459:sysml+24,120
  199. 3480 return
  200. 10000 d=peek(186):n$="0:b.ziegfeld":open15,d,15,"s"+n$:close15:saven$,d:end
  201. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  202. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  203. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  204. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  205. 40040 close2:open2,i,2:close2:ifstthen40060
  206. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  207. 40060 next:return
  208. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  209. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  210. 40090 print"run:":poke