50 IFLF<3THEN61000
100 CLR:PRINT"[147]"
120 :
160 DIM AC$(140),AN%(140,8),MO$(12),MN$(12,6),MN%(12,3,8),AD(8),TW(8),TR(8)
161 DIMPY(12)
162 DIM HL%(12,2),FG$(4,5),JJ$(4,5),KK$(4,5)
164 DIM S(12)
180 A=3
190 ML$=",000"
192 SP$="                                       "
193 DN$=""
194 DF$=""
195 DG$=""
200 IFAD=0THENGOSUB60000:SYS51459: REM       READ STUFF AND TURN OFF TITLE PIC
340 :
350 S(1)=0:S(2)=0:S(3)=0
360 X=INT(RND(1)*12)+1
370 S(1)=X
380 X=INT(RND(1)*12)+1
385 IFX=S(1)THEN380
390 S(2)=X
400 X=INT(RND(1)*12)+1
410 IFX=S(1)ORX=S(2)THEN400
420 S(3)=X
430 :
440 PRINT"[147]"
480 FORI=1TO3
500 PRINT""STR$(I)")  "MN$(S(I),1)
520 PRINTMN$(S(I),2)
530 PRINTMN$(S(I),3)
540 PRINT"*ROLES==> ";MN$(S(I),4)
550 PRINTSPC(10)MN$(S(I),5)
560 PRINTSPC(10)MN$(S(I),6)
570 PRINT
580 NEXTI
590 PRINT"[217]OU HAVE BEEN SENT THREE SCRIPTS."
600 PRINT"[215]HICH DO YOU WANT TO PRODUCE(1-3)?";
610 POKE198,0:WAIT198,1:GETZ$
620 Z=VAL(Z$)
630 IFZ<1ORZ>3THEN610
635 Z=S(Z)
640 PRINTZ$:MV$=MN$(Z,1):FORI=2TO6:MV$(I)=MN$(Z,I):NEXTI
650 FORI=1TO3:FORJ=1TO8:MV(I,J)=MN%(Z,I,J):NEXTJ,I
660 FORI=1TO12:IFMV$=MO$(I)THEN680
670 NEXTI
680 LL=HL%(I,1):HH=HL%(I,2)
690 PRINT"[147]"
700 PRINT""SPC(14)"[195]ASTING[160][195]ALL"
710 PRINT""SPC(18)"FOR"
720 PRINT""SPC(19-LEN(MV$)/2)CHR$(34)MV$CHR$(34)
730 PRINT""SPC(14)"[208]LEASE WAIT..."
735 :
865 FORPP=1TO12:S(PP)=0:NEXT
870 :
880 XM%=INT(RND(1)*5)+4
890 FORK=1TOXM%
900 X=INT(RND(1)*76)+1
910 FORPP=1TOXM%
920 IFX=S(PP)THENPP=XM%:GOTO900
930 NEXTPP
940 S(K)=X
950 NEXTK
960 :
970 FORK=XM%+1TO12
980 X=INT(RND(1)*(140-77))+77
990 FORPP=XM%+1TO12
1000 IFX=S(PP)THENPP=12:GOTO980
1010 NEXTPP
1020 S(K)=X
1030 NEXTK
1040 :
1050 :
1060 :
1070 :
1220 PRINT"[147]"
1230 PRINTSPC(6);"[206][193][205][197]";SPC(20)"[208][193][217]"
1240 PRINT:FORI=1TO12
1250 PRINTSPC(1+ABS(I<10))STR$(I);") ";AC$(S(I));TAB(25):GOSUB3780
1260 NEXTI
1270 :
1280 PRINT"":CT=0
1290 PRINT"[215]HO WILL YOU CAST AS THE":PRINTMV$(4);:INPUTAA$
1295 AA=VAL(AA$)
1300 IFAA<1ORAA>12THENPRINT"[145][145][145]":GOTO1290
1305 SA=AA:AA=S(AA)
1320 IFMV(1,1)=5THEN1335
1330 IFMV(1,1)<>AN%(AA,1)THENPRINT"[145][145][145]":GOTO1290
1335 PRINT"[145]"AC$(AA)LEFT$(SP$,39-LEN(AC$(AA)))
1340 FM$=MV$(4)+":"+AC$(AA):IFLEN(FM$)>40THENGOSUB6500
1350 A1$=AC$(AA):CT=CT+PY(SA):A1=SA:FORJ=1TO8:AO(J)=AN%(AA,J):NEXT
1355 :
1356 :
1360 PRINT"[215]HO WILL YOU CAST AS THE":PRINTMV$(5);:INPUTAA$
1365 AA=VAL(AA$)
1370 IFAA<1ORAA>12ORAA=A1THENPRINT"[145][145][145]":GOTO1360
1375 SA=AA:AA=S(AA)
1380 :
1390 IFMV(2,1)=5THEN1405
1400 IFMV(2,1)<>AN%(AA,1)THENPRINT"[145][145][145]":GOTO1360
1405 PRINT"[145]"AC$(AA)LEFT$(SP$,39-LEN(AC$(AA)))
1410 FM$=MV$(5)+":"+AC$(AA):IFLEN(FM$)>40THENGOSUB6500
1420 A2$=AC$(AA):CT=CT+PY(SA):A2=SA:FORJ=1TO8:TW(J)=AN%(AA,J):NEXT
1425 :
1426 :
1430 PRINT"[215]HO WILL YOU CAST AS THE":PRINTMV$(6);:INPUTAA$
1435 AA=VAL(AA$)
1440 IF(AA<1ORAA>12)ORAA=A1ORAA=A2THENPRINT"[145][145][145]":GOTO1430
1445 SA=AA:AA=S(AA)
1460 IFMV(3,1)=5THEN1480
1470 IFMV(3,1)<>AN%(AA,1)THENPRINT"[145][145][145]":GOTO1430
1480 FM$=MV$(6)+":"+AC$(AA):IFLEN(FM$)>40THENGOSUB6500
1482 PRINT"[145]"AC$(AA)LEFT$(SP$,39-LEN(AC$(AA)))
1490 A3$=AC$(AA):CT=CT+PY(SA):FORJ=1TO8:TR(J)=AN%(AA,J):NEXT
1492 IFA1$="[211]CHWARZENEGGER"THENA1$="[193]RNOLD "+A1$
1493 IFA2$="[211]CHWARZENEGGER"THENA2$="[193]RNOLD "+A2$
1494 IFA3$="[211]CHWARZENEGGER"THENA3$="[193]RNOLD "+A3$
1495 :
1496 :
1500 PRINT"[147]"
1501 CM$=STR$(CT):GOSUB22000
1502 PRINT"[212]OTAL COST OF SALARIES: $";CM$;ML$
1505 CM$=STR$(LL):GOSUB22000
1510 PRINT"[200]OW MUCH DO YOU WANT TO SPEND ON        PRODUCTION(";
1511 PRINTCM$ML$" - 30,000,000)":             PRINT"$";
1516 INPUTPA$:IFVAL(PA$)/1000>=LLTHEN1520
1517 IFLEN(PA$)<7ORLEN(PA$)>11THEN1510
1518 GOSUB20000:GOTO1530
1520 MM=INT(VAL(PA$)/1000)
1530 IFMM<LLORMM>30000THEN1510
1540 IFMM>HHTHENMN=HH:GOTO1560
1550 MN=MM
1560 X=INT(RND(1)*10)+1
1565 :
1570 ONXGOTO3900,3920,3930,3940,3950,3960,3970,1580,1580,1580
1580 X=INT(RND(1)*100)+1
1590 IFX>=70THENPRINTDG$"[212]HE MOVIE COMES IN ON BUDGET.":GOTO1650
1600 IFX>=30THENPRINTDG$"[212]HE PRODUCTION WENT 2% OVER BUDGET.":MM=MM+INT(MM*.02)
1602 IFX>=30THEN1650
1610 IFX>=15THENPRINTDG$"[212]HE PRODUCTION WENT 5% OVER BUDGET.":MM=MM+INT(MM*.05)
1612 IFX>=15THEN1650
1620 IFX>=7THENPRINTDG$"[212]HE PRODUCTION WENT 10% OVER BUDGET.":MM=MM+INT(MM*.1)
1622 IFX>=15THEN1650
1630 IFX>=3THENPRINTDG$"[212]HE PRODUCTION WENT 20% OVER BUDGET.":MM=MM+INT(MM*.2)
1632 IFX>=15THEN1650
1640 PRINTDG$"[212]HE PRODUCTION WENT 30% OVER BUDGET.":MM=MM+INT(MM*.3)
1650 CT=CT+MM:CM$=STR$(CT):GOSUB22000
1660 PRINTLEFT$(DN$,20)"TOTAL COST = $";CM$;ML$:PRINT
1670 GOSUB3980
1680 PRINT"[147]"
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]"
1700 PRINT"":PRINTSPC(19)"OF"
1710 Y=20-INT(LEN(MV$)/2)
1720 PRINT""SPC(Y)""MV$"[146]"
1730 PRINT"":PRINTSPC(16)"STARRING"
1731 VX$=A1$:VY$=A2$:VZ$=A3$
1732 IFLEN(VY$)=21THENDM$=VX$:VX$=VY$:VY$=DM$
1733 IFLEN(VZ$)=21THENDM$=VX$:VX$=VZ$:VZ$=DM$
1740 Y=20-INT(LEN(VX$)/2)
1750 PRINTLEFT$(DN$,15)SPC(Y)VX$
1760 Y=20-INT((LEN(VY$)+LEN(VZ$)+3)/2)
1765 IFY=0THENY=1
1770 PRINTLEFT$(DN$,17)SPC(Y)VY$;" & ";VZ$:PRINT
1780 PRINTLEFT$(DN$,19)SPC(30);:X=INT(RND(1)*3)+1
1790 IFX=1THENPRINT"RATED PG":GOTO1820
1800 IFX=2THENPRINT"RATED PG13":GOTO1820
1810 PRINT"RATED R"
1820 GOSUB3980
1830 PRINT"[147][212]HE REVIEWS ARE IN..."
1840 :
1850 PS$="[212]HE [206][217] [212]IMES ":GOSUB3830
1860 PS$="[197]NTERTAINMENT [212]ONIGHT ":GOSUB3830
1870 PS$="[199]ENE [211]ISKEL ":GOSUB3830
1880 PS$="[210]OGER [197]BERT ":GOSUB3830
1890 PS$="[211]NEAK [208]REVIEWS ":GOSUB3830
1900 PS$="[210]EX [210]EED ":GOSUB3830
1910 PS$="[212]IME [205]AGAZINE ":GOSUB3830
1920 PS$="[206]EWSWEEK ":GOSUB3830
1930 PS$="[204][193] [212]IMES ":GOSUB3830
1932 PRINT""
1940 PRINT"  [208]RESS ANY KEY TO RELEASE THE MOVIE";:POKE198,0:WAIT198,1:GETK$
1950 :
1960 PRINT"[147]":BQ=0:AQ=0
1970 FORI=1TO3
1980 AQ=INT((AQ+MV(I,3)+MV(I,4))*1.10)
1990 NEXTI
2000 FORI=3TO8
2010 IFAO(I)<MV(1,I)THENBQ=BQ+(AO(I)-MV(1,I))
2020 IFTW(I)<MV(2,I)THENBQ=BQ+(TW(I)-MV(2,I))
2030 IFTR(I)<MV(3,I)THENBQ=BQ+(TR(I)-MV(3,I))
2040 NEXTI
2050 IFA<0THENA=-1
2060 CQ=(A*90)+50
2070 DQ=INT(MN/100)
2080 MQ=38*(AQ+BQ)+CQ+DQ
2090 X=INT(RND(1)*950+1)
2100 WT=(MQ-X)*8
2110 XX=INT(RND(1)*3)+1
2120 WK=1:TT=0
2130 PRINT""SPC(17)"[215][197][197][203]";WK
2140 X=INT(RND(1)*1200)+100
2150 WT=WT-X
2160 IFXX=4THENYY=.25
2170 IFXX=1THENYY=.02
2180 IFXX=2THENYY=.07
2190 IFXX=3THENYY=.15
2200 WT=WT-INT(WT*YY)
2210 IFWT<200THENWT=200
2215 CM$=STR$(WT):GOSUB22000
2220 PRINT"[215]EEKLY GROSS - $";CM$;ML$;"           "
2230 TT=TT+WT
2235 CM$=STR$(TT):GOSUB22000
2240 PRINT"[212]OTAL GROSS - $";CM$;ML$
2250 GOSUB3980
2260 IFWT<500THEN2280
2270 WK=WK+1:GOTO2130
2280 PRINT"[147]":BL$=CHR$(34)+MV$+CHR$(34)
2281 BL$=BL$+" STARRING "+A1$+", "+A2$+" AND "+A3$
2282 BL$=BL$+" HAS BEEN PULLED FROM THE THEATERS AFTER"+STR$(WK)+" WEEKS."
2283 GOSUB7500:PRINT
2290 PRINT"SUBTOTAL = $";CM$;ML$
2300 GOSUB3980:FM$="+----------------------------------+"
2310 PRINT"[147]"FM$:FORFK=3TO24:PRINTLEFT$(DN$,FK)" !"
2311 PRINTLEFT$(DN$,FK)SPC(38)"!";:PRINT"":NEXTFK
2312 PRINTDN$FM$""
2313 PRINT" * [201] N V I T A T I O N *"
2314 PRINT" ======================="
2315 PRINTLEFT$(DN$,11)"[212]HE [193]CADEMY OF [205]OTION [208]ICTURES"
2316 PRINT"[193]RTS AND [211]CIENCES CORDIALLY"
2317 PRINT"INVITES YOU TO ATTEND ITS ANNUAL"
2318 PRINT"[193]CADEMY [193]WARDS CEREMONY."
2319 PRINT:PRINT:PRINT"[208]RESS ANY KEY TO ATTEND":POKE198,0:WAIT198,1:GETA$
2330 :
2340 PRINT"[147][215]ELCOME TO THE ANNUAL [193]CADEMY":PRINT"[193]WARDS PRESENTATION."
2350 PRINT"[200]ERE TO PRESENT THE FIRST AWARD IS ":RX%=1:PX%=XM%:OZ$="ACTOR"
2351 XX%=76:GOSUB3230:W=0
2360 PRINTLEFT$(DN$,10)"[212]HE WINNER OF THE [207]SCAR FOR [194]EST":PRINT"[193]CTRESS IS ";
2361 FORDL=1TO500:NEXTDL:GOSUB3390
2370 PRINT"[147][200]ERE TO PRESENT THE NEXT [207]SCAR IS ":RX%=XM%+1:PX%=12
2371 XX%=64:GOSUB3230
2380 PRINTLEFT$(DN$,10)"[212]HE WINNER OF THE [207]SCAR FOR [194]EST":PRINT"[193]CTOR IS ";
2381 FORDL=1TO500:NEXTDL:GOSUB3530
2390 PRINT"[147][200]ERE TO AWARD THE FINAL OSCAR IS"
2394 RX%=XM%+1:PX%=12:XX%=64
2395 GOSUB3230
2400 PRINTLEFT$(DN$,10)"[212]HE AWARD FOR [194]EST [208]ICTURE GOES TO":FORZX=1TO500:NEXT
2401 GOSUB3670
2410 :
2420 PRINT"[147]":IFW>0THENPRINT"[194]ECAUSE OF THE [207]SCARS, YOUR MOVIE"
2421 IFW>0THENPRINT"WILL BE RE-RELEASED.":GOTO2440
2430 GOTO2510
2440 GOSUB3980:IFW>1THENW=1.3
2445 OD=INT(RND(1)*500)
2450 IFTT<20000THENOI=INT(RND(1)*20000)+9501:GOTO2475
2460 IFTT>80000THENOI=(INT(RND(1)*6)+15)/100*TT:GOTO2475
2470 OI=(INT(RND(1)*20)+20)/100*TT
2475 XT=INT(W*OI+OD)
2480 TT=TT+XT
2490 CM$=STR$(XT):GOSUB22000
2500 PRINT"[212]HE RE-RELEASE GROSSES $";CM$;ML$:GOTO2520
2510 PRINTLEFT$(DN$,15)"[217]OUR MOVIE WILL NOT BE RE-RELEASED."
2520 GOSUB3980
2530 PRINT"[147]"
2531 PRINTTAB(INT((40-LEN(MV$))/2));MV$:PRINT
2535 CM$=STR$(CT):GOSUB22000
2540 PRINTLEFT$(DN$,9)"[212]OTAL COST - $";CM$;ML$
2545 CM$=STR$(TT):GOSUB22000
2550 PRINTLEFT$(DN$,12)"[212]OTAL REVENUE - $";CM$;ML$
2560 PRINTLEFT$(DN$,17):PJ=ABS(TT-CT):PJ$=STR$(PJ)
2565 CM$=PJ$:GOSUB22000
2570 IFTT>CTTHENPRINT"[217]OU MADE A PROFIT OF $";CM$;ML$:GOTO2600
2580 IFTT<CTTHENPRINT"[217]OU LOST $";CM$;ML$:GOTO2600
2590 IFTT=CTTHENPRINT"[217]OU CAME OUT EVEN!"
2600 GOSUB3980
2610 OPEN8,8,8,"MM.HIGH SCORES"
2630 FORI=1TO4
2640 FORJ=1TO5
2660 INPUT#8,FG$(I,J):INPUT#8,JJ$(I,J):INPUT#8,KK(I,J)
2670 NEXTJ
2680 NEXTI
2690 CLOSE8
2695 GOTO10000
2699 REMHSPAGE1
2700 PRINT"[147]"SPC(15)"[200][201][199][200][160][211][195][207][210][197][211]"
2710 PRINT:PRINTSPC(13)"[200][201][199][200][197][211][212][160][208][210][207][198][201][212]":PRINT
2720 FORI=1TO5
2730 PRINTFG$(1,I);SPC(21-LEN(FG$(1,I)));LEFT$(JJ$(1,I),3);
2735 IFLEN(JJ$(1,I))=4THENPRINT""RIGHT$(JJ$(1,I),1);"[146][157]";
2740 IFKK(1,I)>99999THENPRINTSPC(1);:GOTO2770
2750 IFKK(1,I)>9999THENPRINTSPC(2);:GOTO2770
2760 PRINTSPC(3);
2770 CM$=STR$(KK(1,I)):GOSUB22000:PRINT"$";CM$;ML$:NEXTI
2780 PRINT:PRINTSPC(12)"[199][210][197][193][212][197][211][212][160][210][197][214][197][206][213][197][211]":PRINT
2790 FORI=1TO5
2800 PRINTFG$(2,I);SPC(21-LEN(FG$(2,I)));LEFT$(JJ$(2,I),3);
2805 IFLEN(JJ$(2,I))=4THENPRINT""RIGHT$(JJ$(2,I),1);"[146][157]";
2810 IFKK(2,I)>99999THENPRINTSPC(1);:GOTO2840
2820 IFKK(2,I)>9999THENPRINTSPC(2);:GOTO2840
2830 PRINTSPC(3);
2840 CM$=STR$(KK(2,I)):GOSUB22000:PRINT"$";CM$;ML$:NEXTI
2845 U6=1:RETURN
3220 GOTO2700
3230 REMFINDPRESENTER
3240 X=INT(RND(1)*140)+1
3270 PT$=AC$(X)
3285 IFX=18ANDXX%=76THENPT$="[193]RNOLD "+PT$
3290 IFPT$=A1$THEN3240
3292 IFPT$=A2$THEN3240
3294 IFPT$=A3$THEN3240
3370 PRINTPT$
3380 RETURN
3390 REMFINDACTRESS
3400 X=INT(RND(1)*30)+6
3410 IFAO(1)=9 AND AO(3)+MV(1,3)>XTHENPRINTA1$;" FOR ":PRINTMV$:W=W+.4:GOTO3510
3420 IFTW(1)=9 AND AO(3)+MV(2,3)>XTHENPRINTA2$;" FOR ":PRINTMV$:W=W+.4:GOTO3510
3430 IFTR(1)=9 AND AO(3)+MV(3,3)>XTHENPRINTA3$;" FOR ":PRINTMV$:W=W+.4:GOTO3510
3440 X=INT(RND(1)*140)+1
3450 AA$=AC$(X)
3460 IFAN%(X,1)<>9ORAA$=A1$ORAA$=A2$ORAA$=A3$THEN3440
3470 PRINTAC$(X);" FOR "
3475 FORI=1TO8:X%(I)=AN%(X,I):NEXTI
3480 X=INT(RND(1)*12)+1
3490 GOSUB7000:IFN%=1THEN3480
3500 PRINTMO$(X)
3510 GOSUB3980
3520 RETURN
3530 REMFINDACTOR
3540 X=INT(RND(1)*30)+6
3550 IFAO(1)=1 AND AO(3)+MV(1,3)>XTHENPRINTA1$;" FOR ":PRINTMV$:W=W+.4:GOTO3650
3560 IFTW(1)=1 AND AO(3)+MV(2,3)>XTHENPRINTA2$;" FOR ":PRINTMV$:W=W+.4:GOTO3650
3570 IFTR(1)=1 AND AO(3)+MV(3,3)>XTHENPRINTA3$;" FOR ":PRINTMV$:W=W+.4:GOTO3650
3580 X=INT(RND(1)*140)+1
3590 AA$=AC$(X)
3600 IFAN%(X,1)<>1ORAA$=A1$ORAA$=A2$ORAA$=A3$THEN3580
3610 PRINTAC$(X);" FOR "
3615 FORI=1TO8:X%(I)=AN%(X,I):NEXTI
3620 X=INT(RND(1)*12)+1
3630 GOSUB7000:IFN%=1THEN3620
3640 PRINTMO$(X)
3650 GOSUB3980
3660 RETURN
3670 REMFINDMOVIE
3680 X=INT(RND(1)*130)+21:FQ=0
3690 FORI=1TO3
3700 FQ=FQ+MV(I,3):NEXTI
3710 FQ=FQ+AO(3)+TW(3)+TR(3)
3720 IFFQ>XTHENPRINTMV$:W=W+1:GOTO3760
3730 X=INT(RND(1)*12)+1
3740 IFMO$(X)=MV$ORX=2ORX=7THEN3730
3750 PRINTMO$(X)
3760 GOSUB3980
3770 RETURN
3780 REM FINDPAY
3790 X=INT(RND(1)*300)+31
3800 PY(I)=INT((AN%(S(I),3)/2)+AN%(S(I),4))*X
3802 IFPY(I)<100THENPY(I)=PY(I)+100
3805 CM$=STR$(PY(I)):GOSUB22000
3807 IFLEN(CM$)<4THENCM$="  "+CM$
3810 PRINT"$";CM$;ML$
3820 RETURN
3830 REMREVIEWS
3840 X=INT(RND(1)*10)+1:                     FORDL=1TO500:NEXTDL
3850 IFX=>9THENPS$=PS$+"LOVED IT!":A=A+2:GOTO3890
3860 IFX=>6THENPS$=PS$+"LIKED IT.":A=A+1:GOTO3890
3870 IFX=>3THENPS$=PS$+"DIDN'T LIKE IT.":A=A-1:GOTO3890
3880 PS$=PS$+"HATED IT!":A=A-3
3890 GOSUB62000:RETURN
3900 REMWEIRDTHINGS
3910 PRINTDF$:BL$=A1$+" HAS BEEN ARRESTED FOR POSSESION OF COCAINE. [212]HE BAD"
3911 BL$=BL$+" PUBLICITY COULD HURT THE MOVIE.":A=A-2:GOSUB7500:GOTO1580
3920 PRINTDF$;:BL$=A2$+" IS SUING THE [206]ATIONAL [197]NQUIRER. [212]HE PUBLICITY COULD BE"
3921 BL$=BL$+" GOOD FOR THE MOVIE.":A=A+3:GOSUB7500:GOTO1580
3930 PRINTDF$;:BL$="[193] STUNT MAN IS KILLED WHILE FILMING. [212]HE PUBLICITY"
3931 BL$=BL$+" COULD BE BAD.":A=A-2:GOSUB7500:GOTO1580
3940 PRINTDF$;:BL$=A3$+" IS INJURED IN A CAR ACCIDENT.  [212]HE DELAY WILL COST"
3941 BL$=BL$+" YOU $200,000.":CT=CT+200:GOSUB7500:GOTO1580
3950 PRINTDF$;:BL$=A1$+" HATES THE DIRECTOR. [199]ETTING A NEW ONE WILL COST"
3951 BL$=BL$+" $450,000.":CT=CT+450:GOSUB7500:GOTO1580
3960 PRINTDF$;:BL$=A2$+" HAS STARTED DATING A FAMOUS ATHLETE.  [212]HE PUBLICITY"
3961 BL$=BL$+" COULD BE GOOD FOR THE MOVIE.":A=A+2:GOSUB7500:GOTO1580
3970 PRINTDF$;:BL$=A1$+" HAS JUST WRITTEN AN AUTOBIOGRAPHY. [212]HE PUBLICITY"
3971 BL$=BL$+" COULD BE GOOD FOR THE MOVIE.":A=A+1:GOSUB7500:GOTO1580
3980 PRINTDN$"[208]RESS ANY KEY TO CONTINUE";
3981 POKE198,0:WAIT198,1:GETA$
3990 RETURN
6500 K=0
6510 K=K+1
6520 IFMID$(FM$,K,1)=" "THEN6550
6530 GOTO6510
6550 FM$=RIGHT$(FM$,LEN(FM$)-K)
6560 RETURN
7000 N%=0
7010 IFX=9ANDX%(7)<5THENN%=1
7020 IFX=6ANDX%(1)=9ANDX%(2)<5THENN%=1
7030 IFMO$(X)=MV$ORX=2ORX=7THENN%=1
7090 RETURN
7500 IFLEN(BL$)<39THENPRINTBL$:RETURN
7510 FORKW=39TO1STEP-1
7520 IFMID$(BL$,KW,1)=" "THEN7550
7530 NEXT
7550 PRINTLEFT$(BL$,KW)
7560 BL$=RIGHT$(BL$,LEN(BL$)-KW)
7570 GOTO7500
7999 REMHSPAGE2
8000 PRINT"[147]"SPC(15)"[200][201][199][200][160][211][195][207][210][197][211]"
8010 PRINTSPC(9):PRINT"[194]EST PERCENTAGE RETURNED":PRINT
8020 FORI=1TO5
8030 PRINTFG$(3,I);SPC(21-LEN(FG$(3,I)));LEFT$(JJ$(3,I),3);
8035 IFLEN(JJ$(3,I))=4THENPRINT""RIGHT$(JJ$(3,I),1);"[146][157]";
8040 IFKK(3,I)>99999THENPRINTSPC(1);:GOTO8070
8050 IFKK(3,I)>9999THENPRINTSPC(2);:GOTO8070
8060 IFKK(3,I)>999THENPRINTSPC(3);:GOTO8070
8065 PRINTSPC(4);
8070 PRINTKK(3,I);"[157]%":NEXTI
8080 PRINT:PRINTSPC(10)"[194]IGGEST BOMBS":PRINT
8090 FORI=1TO5
8100 PRINTFG$(4,I);SPC(21-LEN(FG$(4,I)));LEFT$(JJ$(4,I),3);
8105 IFLEN(JJ$(4,I))=4THENPRINT""RIGHT$(JJ$(4,I),1);"[146][157]";
8110 IFKK(4,I)>99999THENPRINTSPC(1);:GOTO8140
8120 IFKK(4,I)>9999THENPRINTSPC(2);:GOTO8140
8130 PRINTSPC(3);
8140 CM$=STR$(KK(4,I)):GOSUB22000:PRINT"$";CM$;ML$:NEXTI
8145 U6=-1:RETURN
10000 Z4=0
10005 IFKK(1,5)<TT-CTTHENGOSUB11000
10010 IFKK(2,5)<TTTHENGOSUB12000
10020 IFKK(3,5)<INT(((TT/CT)*100)+.5)THENGOSUB13000
10030 IFKK(4,5)<CT-TTTHENGOSUB14000
10040 IFZ4=1THENGOSUB10200
10050 GOTO10500
10200 OPEN15,8,15,"S0:MM.HIGH SCORES"
10210 CLOSE15
10220 OPEN8,8,8,"0:MM.HIGH SCORES,S,W"
10240 FORI=1TO4:FORJ=1TO5
10250 PRINT#8,FG$(I,J):PRINT#8,JJ$(I,J):PRINT#8,KK(I,J)
10260 NEXTJ:NEXTI
10265 CLOSE8
10270 RETURN
10300 PRINT:PRINT:PRINT"[217]OUR SCORE - $";
10310 CM$=PJ$:GOSUB22000:PRINTTAB(22-LEN(CM$));CM$;ML$;
10320 IFTT-CT>=0THENPRINT" PROFIT"
10330 IFTT-CT<0THENPRINT" LOSS"
10350 PRINTSPC(22-LEN(CM$));INT(((TT/CT)+.005)*100);"% RETURNED"
10360 RETURN
10400 PRINTLEFT$(DN$,24)"[197]NTER YOUR INITIALS";:INPUTZ$
10410 IFZ$=""THEN10400
10420 IFLEN(Z$)>3THENZ$=LEFT$(Z$,3)
10430 EC$=" "
10440 FORYJ=1TO4:FORYI=1TO5
10450 IFFG$(YJ,YI)<>MV$THEN10490
10455 IFLEFT$(JJ$(YJ,YI),3)<>Z$THEN10490
10460 IFLEN(JJ$(YJ,YI))=3ANDEC$=" "THEN EC$="A":GOTO10490
10465 IFLEN(JJ$(YJ,YI))=3THEN10490
10470 IFEC$>RIGHT$(JJ$(YJ,YI),1)THEN10490
10480 EC$=CHR$(ASC(RIGHT$(JJ$(YJ,YI),1))+1)
10490 NEXT:NEXT
10493 IFEC$=" "THEN10499
10496 Z$=Z$+EC$
10499 RETURN
10500 IFU6=-1THENGOSUB8000:GOTO10503
10501 GOSUB2700
10503 GOSUB10300
10505 PRINTDN$"[145]  [208])LAY [193]GAIN  [214])IEW OTHER PAGE  [209])UIT  [146]";
10506 POKE198,0:WAIT198,1
10510 GETA$:IFA$="P"THEN180
10520 IFA$="Q"THEN50000
10530 IFA$<>"V"THEN10510
10550 IFU6=1THENU6=-1:GOTO10500
10560 U6=1:GOTO10500
11000 IFZ4=0THENGOSUB2700:GOSUB10300:GOSUB10400
11010 FORI=5TO2STEP-1
11030 FG$(1,I)=FG$(1,I-1)
11031 JJ$(1,I)=JJ$(1,I-1)
11032 KK(1,I)=KK(1,I-1)
11036 IFTT-CT>KK(1,I-1)THENNEXTI
11040 FG$(1,I)=MV$:JJ$(1,I)=Z$:KK(1,I)=TT-CT
11060 Z4=1:RETURN
12000 IFZ4=0THENGOSUB2700:GOSUB10300:GOSUB10400
12010 FORI=5TO2STEP-1
12030 FG$(2,I)=FG$(2,I-1)
12031 JJ$(2,I)=JJ$(2,I-1)
12032 KK(2,I)=KK(2,I-1)
12036 IFTT>KK(2,I-1)THENNEXTI
12040 FG$(2,I)=MV$:JJ$(2,I)=Z$:KK(2,I)=TT
12060 Z4=1:RETURN
13000 IFZ4=0THENGOSUB8000:GOSUB10300:GOSUB10400
13010 FORI=5TO2STEP-1
13030 FG$(3,I)=FG$(3,I-1)
13031 JJ$(3,I)=JJ$(3,I-1)
13032 KK(3,I)=KK(3,I-1)
13036 IFINT(((TT/CT)+.005)*100)>KK(3,I-1)THENNEXTI
13040 FG$(3,I)=MV$:JJ$(3,I)=Z$:KK(3,I)=INT(((TT/CT)+.005)*100)
13060 Z4=1:RETURN
14000 IFZ4=0THENGOSUB8000:GOSUB10300:GOSUB10400
14010 FORI=5TO2STEP-1
14030 FG$(4,I)=FG$(4,I-1)
14031 JJ$(4,I)=JJ$(4,I-1)
14032 KK(4,I)=KK(4,I-1)
14036 IFCT-TT>KK(4,I-1)THENNEXTI
14040 FG$(4,I)=MV$:JJ$(4,I)=Z$:KK(4,I)=CT-TT
14060 Z4=1:RETURN
20000 FORKN=0TOLEN(PA$)-1
20100 NEXTKN
20110 PA$=LEFT$(PA$,LEN(PA$)-4)
20130 MM=VAL(PA$)
20140 RETURN
22000 CM$=MID$(CM$,2)
22005 IFLEN(CM$)>3THENCM$=LEFT$(CM$,LEN(CM$)-3)+","+RIGHT$(CM$,3)
22010 RETURN
50000 REM   RETURN TO LS
50010 LOAD"HELLO CONNECT",8
50055 END
60000 FORI=1TO12
60010 READMO$(I):NEXTI
60020 DATA "[211][208][193][195][197][160][215][193][210][211]","[211][204][193][211][200][197][210] [206][201][199][200][212][211]","[196][197][205][207][206][160][196][213][211][212][197][210][211]","[212][200][197][160][204][193][211][212][160][194][193][212][212][204][197]"
60030 DATA "[199][213][206][211][160]&[160][210][201][198][204][197][211]","[198][201][206][193][204][160][210][197][213][206][201][207][206]","[194][207][206][203][197][210][211]!","[209][213][197][211][212][160][198][207][210][160][200][207][206][207][210]"
60040 DATA "[201]'[214][197][160][199][207][212][160][205][213][211][201][195]","[195][207][206][211][197][206][212][160][212][207][160][203][201][204][204]","[197][216][197][195][213][212][201][214][197][160][196][197][195][201][211][201][207][206][211]"
60050 DATA "[211][212][210][193][206][199][197] [194][197][196][198][197][204][204][207][215][211]"
60060 :
60070 FORI=1TO12:FORJ=1TO2
60080 READHL%(I,J):NEXTJ,I
60090 DATA 5000,30000,500,12000,1500,26000,2500,19000,2000,17000,1000,15000
60100 DATA 250,7000,3000,27000,1200,16000,750,18000,1000,15000,1000,15000
60110 :
60120 :
60130 OPEN8,8,8,"MOVIEDATA"
60140 FORJ=1TO12:MN$(J,1)=MO$(J)
60150 FORL=2TO6:INPUT#8,MN$(J,L):NEXTL
60160 FORG=1TO3
60170 FORH=1TO8
60180 INPUT#8,MN%(J,G,H):PRINT".";
60190 NEXTH
60200 NEXTG
60210 NEXTJ
60220 CLOSE8
60230 :
60240 OPEN8,8,8,"ACTORDATA"
60250 FORJ=1TO140
60260 INPUT#8,AC$(J)
60270 FORL=1TO8
60280 INPUT#8,AN%(J,L)
60290 NEXTL
60300 NEXTJ
60310 CLOSE8
60320 :
60330 AD=1:RETURN
61000 REM    DISPLAY TITLE SCREEN
61010 IFLF=0THENLF=1:LOAD"UNPACKER",8,1
61020 IFLF=1THENLF=2:LOAD"MM.TITLE",8,1
61030 :
61040 POKE249,224:POKE250,204
61050 POKE251,0:POKE252,128
61060 POKE253,0:POKE254,0
61070 SYS51456:SYS51459:GOTO100
61080 :
62000 REM   SLOW FOR REVIEWS
62010 FORPO=1TOLEN(PS$):PRINTMID$(PS$,PO,1);
62020 FORDL=1TO15:NEXTDL:NEXTPO:PRINT
62030 RETURN