home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / mm.start (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  15KB  |  559 lines
  1. 50 iflf<3then61000
  2. 100 clr:print"[147]"
  3. 120 :
  4. 160 dim ac$(140),an%(140,8),mo$(12),mn$(12,6),mn%(12,3,8),ad(8),tw(8),tr(8)
  5. 161 dimpy(12)
  6. 162 dim hl%(12,2),fg$(4,5),jj$(4,5),kk$(4,5)
  7. 164 dim s(12)
  8. 180 a=3
  9. 190 ml$=",000"
  10. 192 sp$="                                       "
  11. 193 dn$=""
  12. 194 df$=""
  13. 195 dg$=""
  14. 200 ifad=0thengosub60000:sys51459: rem       read stuff and turn off title pic
  15. 340 :
  16. 350 s(1)=0:s(2)=0:s(3)=0
  17. 360 x=int(rnd(1)*12)+1
  18. 370 s(1)=x
  19. 380 x=int(rnd(1)*12)+1
  20. 385 ifx=s(1)then380
  21. 390 s(2)=x
  22. 400 x=int(rnd(1)*12)+1
  23. 410 ifx=s(1)orx=s(2)then400
  24. 420 s(3)=x
  25. 430 :
  26. 440 print"[147]"
  27. 480 fori=1to3
  28. 500 print""str$(i)")  "mn$(s(i),1)
  29. 520 printmn$(s(i),2)
  30. 530 printmn$(s(i),3)
  31. 540 print"*roles==> ";mn$(s(i),4)
  32. 550 printspc(10)mn$(s(i),5)
  33. 560 printspc(10)mn$(s(i),6)
  34. 570 print
  35. 580 nexti
  36. 590 print"[217]ou have been sent three scripts."
  37. 600 print"[215]hich do you want to produce(1-3)?";
  38. 610 poke198,0:wait198,1:getz$
  39. 620 z=val(z$)
  40. 630 ifz<1orz>3then610
  41. 635 z=s(z)
  42. 640 printz$:mv$=mn$(z,1):fori=2to6:mv$(i)=mn$(z,i):nexti
  43. 650 fori=1to3:forj=1to8:mv(i,j)=mn%(z,i,j):nextj,i
  44. 660 fori=1to12:ifmv$=mo$(i)then680
  45. 670 nexti
  46. 680 ll=hl%(i,1):hh=hl%(i,2)
  47. 690 print"[147]"
  48. 700 print""spc(14)"[195]asting[160][195]all"
  49. 710 print""spc(18)"for"
  50. 720 print""spc(19-len(mv$)/2)chr$(34)mv$chr$(34)
  51. 730 print""spc(14)"[208]lease wait..."
  52. 735 :
  53. 865 forpp=1to12:s(pp)=0:next
  54. 870 :
  55. 880 xm%=int(rnd(1)*5)+4
  56. 890 fork=1toxm%
  57. 900 x=int(rnd(1)*76)+1
  58. 910 forpp=1toxm%
  59. 920 ifx=s(pp)thenpp=xm%:goto900
  60. 930 nextpp
  61. 940 s(k)=x
  62. 950 nextk
  63. 960 :
  64. 970 fork=xm%+1to12
  65. 980 x=int(rnd(1)*(140-77))+77
  66. 990 forpp=xm%+1to12
  67. 1000 ifx=s(pp)thenpp=12:goto980
  68. 1010 nextpp
  69. 1020 s(k)=x
  70. 1030 nextk
  71. 1040 :
  72. 1050 :
  73. 1060 :
  74. 1070 :
  75. 1220 print"[147]"
  76. 1230 printspc(6);"[206][193][205][197]";spc(20)"[208][193][217]"
  77. 1240 print:fori=1to12
  78. 1250 printspc(1+abs(i<10))str$(i);") ";ac$(s(i));tab(25):gosub3780
  79. 1260 nexti
  80. 1270 :
  81. 1280 print"":ct=0
  82. 1290 print"[215]ho will you cast as the":printmv$(4);:inputaa$
  83. 1295 aa=val(aa$)
  84. 1300 ifaa<1oraa>12thenprint"[145][145][145]":goto1290
  85. 1305 sa=aa:aa=s(aa)
  86. 1320 ifmv(1,1)=5then1335
  87. 1330 ifmv(1,1)<>an%(aa,1)thenprint"[145][145][145]":goto1290
  88. 1335 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  89. 1340 fm$=mv$(4)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  90. 1350 a1$=ac$(aa):ct=ct+py(sa):a1=sa:forj=1to8:ao(j)=an%(aa,j):next
  91. 1355 :
  92. 1356 :
  93. 1360 print"[215]ho will you cast as the":printmv$(5);:inputaa$
  94. 1365 aa=val(aa$)
  95. 1370 ifaa<1oraa>12oraa=a1thenprint"[145][145][145]":goto1360
  96. 1375 sa=aa:aa=s(aa)
  97. 1380 :
  98. 1390 ifmv(2,1)=5then1405
  99. 1400 ifmv(2,1)<>an%(aa,1)thenprint"[145][145][145]":goto1360
  100. 1405 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  101. 1410 fm$=mv$(5)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  102. 1420 a2$=ac$(aa):ct=ct+py(sa):a2=sa:forj=1to8:tw(j)=an%(aa,j):next
  103. 1425 :
  104. 1426 :
  105. 1430 print"[215]ho will you cast as the":printmv$(6);:inputaa$
  106. 1435 aa=val(aa$)
  107. 1440 if(aa<1oraa>12)oraa=a1oraa=a2thenprint"[145][145][145]":goto1430
  108. 1445 sa=aa:aa=s(aa)
  109. 1460 ifmv(3,1)=5then1480
  110. 1470 ifmv(3,1)<>an%(aa,1)thenprint"[145][145][145]":goto1430
  111. 1480 fm$=mv$(6)+":"+ac$(aa):iflen(fm$)>40thengosub6500
  112. 1482 print"[145]"ac$(aa)left$(sp$,39-len(ac$(aa)))
  113. 1490 a3$=ac$(aa):ct=ct+py(sa):forj=1to8:tr(j)=an%(aa,j):next
  114. 1492 ifa1$="[211]chwarzenegger"thena1$="[193]rnold "+a1$
  115. 1493 ifa2$="[211]chwarzenegger"thena2$="[193]rnold "+a2$
  116. 1494 ifa3$="[211]chwarzenegger"thena3$="[193]rnold "+a3$
  117. 1495 :
  118. 1496 :
  119. 1500 print"[147]"
  120. 1501 cm$=str$(ct):gosub22000
  121. 1502 print"[212]otal cost of salaries: $";cm$;ml$
  122. 1505 cm$=str$(ll):gosub22000
  123. 1510 print"[200]ow much do you want to spend on        production(";
  124. 1511 printcm$ml$" - 30,000,000)":             print"$";
  125. 1516 inputpa$:ifval(pa$)/1000>=llthen1520
  126. 1517 iflen(pa$)<7orlen(pa$)>11then1510
  127. 1518 gosub20000:goto1530
  128. 1520 mm=int(val(pa$)/1000)
  129. 1530 ifmm<llormm>30000then1510
  130. 1540 ifmm>hhthenmn=hh:goto1560
  131. 1550 mn=mm
  132. 1560 x=int(rnd(1)*10)+1
  133. 1565 :
  134. 1570 onxgoto3900,3920,3930,3940,3950,3960,3970,1580,1580,1580
  135. 1580 x=int(rnd(1)*100)+1
  136. 1590 ifx>=70thenprintdg$"[212]he movie comes in on budget.":goto1650
  137. 1600 ifx>=30thenprintdg$"[212]he production went 2% over budget.":mm=mm+int(mm*.02)
  138. 1602 ifx>=30then1650
  139. 1610 ifx>=15thenprintdg$"[212]he production went 5% over budget.":mm=mm+int(mm*.05)
  140. 1612 ifx>=15then1650
  141. 1620 ifx>=7thenprintdg$"[212]he production went 10% over budget.":mm=mm+int(mm*.1)
  142. 1622 ifx>=15then1650
  143. 1630 ifx>=3thenprintdg$"[212]he production went 20% over budget.":mm=mm+int(mm*.2)
  144. 1632 ifx>=15then1650
  145. 1640 printdg$"[212]he production went 30% over budget.":mm=mm+int(mm*.3)
  146. 1650 ct=ct+mm:cm$=str$(ct):gosub22000
  147. 1660 printleft$(dn$,20)"total cost = $";cm$;ml$:print
  148. 1670 gosub3980
  149. 1680 print"[147]"
  150. 1690 print"":print"       [205][193][202][207][210][160][211][212][213][196][201][207][160][211][206][197][193][203][160][208][210][197][214][201][197][215]"
  151. 1700 print"":printspc(19)"of"
  152. 1710 y=20-int(len(mv$)/2)
  153. 1720 print""spc(y)""mv$"[146]"
  154. 1730 print"":printspc(16)"starring"
  155. 1731 vx$=a1$:vy$=a2$:vz$=a3$
  156. 1732 iflen(vy$)=21thendm$=vx$:vx$=vy$:vy$=dm$
  157. 1733 iflen(vz$)=21thendm$=vx$:vx$=vz$:vz$=dm$
  158. 1740 y=20-int(len(vx$)/2)
  159. 1750 printleft$(dn$,15)spc(y)vx$
  160. 1760 y=20-int((len(vy$)+len(vz$)+3)/2)
  161. 1765 ify=0theny=1
  162. 1770 printleft$(dn$,17)spc(y)vy$;" & ";vz$:print
  163. 1780 printleft$(dn$,19)spc(30);:x=int(rnd(1)*3)+1
  164. 1790 ifx=1thenprint"rated pg":goto1820
  165. 1800 ifx=2thenprint"rated pg13":goto1820
  166. 1810 print"rated r"
  167. 1820 gosub3980
  168. 1830 print"[147][212]he reviews are in..."
  169. 1840 :
  170. 1850 ps$="[212]he [206][217] [212]imes ":gosub3830
  171. 1860 ps$="[197]ntertainment [212]onight ":gosub3830
  172. 1870 ps$="[199]ene [211]iskel ":gosub3830
  173. 1880 ps$="[210]oger [197]bert ":gosub3830
  174. 1890 ps$="[211]neak [208]reviews ":gosub3830
  175. 1900 ps$="[210]ex [210]eed ":gosub3830
  176. 1910 ps$="[212]ime [205]agazine ":gosub3830
  177. 1920 ps$="[206]ewsweek ":gosub3830
  178. 1930 ps$="[204][193] [212]imes ":gosub3830
  179. 1932 print""
  180. 1940 print"  [208]ress any key to release the movie";:poke198,0:wait198,1:getk$
  181. 1950 :
  182. 1960 print"[147]":bq=0:aq=0
  183. 1970 fori=1to3
  184. 1980 aq=int((aq+mv(i,3)+mv(i,4))*1.10)
  185. 1990 nexti
  186. 2000 fori=3to8
  187. 2010 ifao(i)<mv(1,i)thenbq=bq+(ao(i)-mv(1,i))
  188. 2020 iftw(i)<mv(2,i)thenbq=bq+(tw(i)-mv(2,i))
  189. 2030 iftr(i)<mv(3,i)thenbq=bq+(tr(i)-mv(3,i))
  190. 2040 nexti
  191. 2050 ifa<0thena=-1
  192. 2060 cq=(a*90)+50
  193. 2070 dq=int(mn/100)
  194. 2080 mq=38*(aq+bq)+cq+dq
  195. 2090 x=int(rnd(1)*950+1)
  196. 2100 wt=(mq-x)*8
  197. 2110 xx=int(rnd(1)*3)+1
  198. 2120 wk=1:tt=0
  199. 2130 print""spc(17)"[215][197][197][203]";wk
  200. 2140 x=int(rnd(1)*1200)+100
  201. 2150 wt=wt-x
  202. 2160 ifxx=4thenyy=.25
  203. 2170 ifxx=1thenyy=.02
  204. 2180 ifxx=2thenyy=.07
  205. 2190 ifxx=3thenyy=.15
  206. 2200 wt=wt-int(wt*yy)
  207. 2210 ifwt<200thenwt=200
  208. 2215 cm$=str$(wt):gosub22000
  209. 2220 print"[215]eekly gross - $";cm$;ml$;"           "
  210. 2230 tt=tt+wt
  211. 2235 cm$=str$(tt):gosub22000
  212. 2240 print"[212]otal gross - $";cm$;ml$
  213. 2250 gosub3980
  214. 2260 ifwt<500then2280
  215. 2270 wk=wk+1:goto2130
  216. 2280 print"[147]":bl$=chr$(34)+mv$+chr$(34)
  217. 2281 bl$=bl$+" starring "+a1$+", "+a2$+" and "+a3$
  218. 2282 bl$=bl$+" has been pulled from the theaters after"+str$(wk)+" weeks."
  219. 2283 gosub7500:print
  220. 2290 print"subtotal = $";cm$;ml$
  221. 2300 gosub3980:fm$="+----------------------------------+"
  222. 2310 print"[147]"fm$:forfk=3to24:printleft$(dn$,fk)" !"
  223. 2311 printleft$(dn$,fk)spc(38)"!";:print"":nextfk
  224. 2312 printdn$fm$""
  225. 2313 print" * [201] n v i t a t i o n *"
  226. 2314 print" ======================="
  227. 2315 printleft$(dn$,11)"[212]he [193]cademy of [205]otion [208]ictures"
  228. 2316 print"[193]rts and [211]ciences cordially"
  229. 2317 print"invites you to attend its annual"
  230. 2318 print"[193]cademy [193]wards ceremony."
  231. 2319 print:print:print"[208]ress any key to attend":poke198,0:wait198,1:geta$
  232. 2330 :
  233. 2340 print"[147][215]elcome to the annual [193]cademy":print"[193]wards presentation."
  234. 2350 print"[200]ere to present the first award is ":rx%=1:px%=xm%:oz$="actor"
  235. 2351 xx%=76:gosub3230:w=0
  236. 2360 printleft$(dn$,10)"[212]he winner of the [207]scar for [194]est":print"[193]ctress is ";
  237. 2361 fordl=1to500:nextdl:gosub3390
  238. 2370 print"[147][200]ere to present the next [207]scar is ":rx%=xm%+1:px%=12
  239. 2371 xx%=64