10 POKE56,54:CLR:POKE53371,0:POKE788,49:TQ=TI
12 I=RND(-TI)
20 POKE53281,0:POKE53280,0
30 DV=PEEK(186):IFDV<8THENDV=8
32 PRINT"[147]":GOSUB60000
40 SYS57812"UNPACKER.89",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
50 SYS57812"ZIEGFELD.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
60 IFTI<TQ+200THEN60
62 PRINT"[144][147]"
70 POKE251,64:POKE252,96:POKE253,92:SYS51456:SYS51459
80 SYS57812"ZIEGFELD MJ",DV,0:POKE780,0:POKE781,0:POKE782,151:SYS65493
90 SYS57812"TSV.O",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
100 SYS57812"ZIEGFELD FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
110 IFTI<TQ+400THEN110
112 C=54272:S=1024:KY$="[145][157]123456"
114 POKE53281,0:SYS51459
116 POKE53272,31
118 ML=151*256:MV=ML+156:POKEMV+1,54:V=53248
120 SYSML:SYSML+18,0,38,0,24
122 POKEMV+19,128:SYSML+6,14272:POKEV+21,0
124 POKEV+39,15:POKEV+40,11
126 GOTO180
140 IFI%=1THENY=Y-1:IFY<0THENY=0
142 IFI%=2THENY=Y+1:IFY>24THENY=24
144 IFI%=3THENX=X-1:IFX<0THENX=0
146 IFI%=4THENX=X+1:IFX>39THENX=39
148 RETURN
160 K=INT(RND(1)*1000):IFPEEK(S+K)=0THENPOKES+K+C,RND(1)*8+2
162 RETURN
180 FORI=0TO7:READD:POKEMV+11+I,D:NEXT
190 DATA99,100,101,103,108,123,124,126
200 FORI=1TO10:READG$(I),FG$(I),BD%(I)
210 X1(I)=1-20*(I>5):X2(I)=X1(I)+17
220 Y1(I)=2+I*3+15*(I>5):Y2(I)=Y1(I)+2
230 SYSML+15,I,X1(I),X2(I),Y1(I),Y2(I):NEXT
240 DATA"[200]OPE [196]ARE","HOPE DARE.SHP",0
250 DATA"[193]NNA [200]ELD","ANNA HELD.SHP",0
260 DATA"[204]ILLION [204]ORRAINE","L LORRAINE.SHP",0
270 DATA"[194]ESSIE [196]AVIS","BESSIE.SHP",0
280 DATA"[207]LIVE [212]OMAS","OLIVE.SHP",0
290 DATA"[196]OLORES","DOLORES.SHP",0
300 DATA"[201]MOGENE [215]ILSON","WILSON.SHP",0
310 DATA"[202]OCELYN [204]EIGH","LEIGH.SHP",0
320 DATA"[193]LTA [203]ING","ALTA.SHP",0
330 DATA"[203]ATHRYN [208]ERRY","PERRY.SHP",0
340 POKE53272,31
350 FORI=0TO2:READE$(I),M1(I),M2(I),M3(I),M4(I),E1$(I)
360 SYSML+15,11+I,M1(I),M2(I),M3(I),M4(I)
370 DATA"[198][207][204][204][201][197][211]",2,12,21,23," 7-[208][201][206]"
380 DATA" [200][197][204][208] ",16,25,21,23," 8-[208][201][206]"
390 DATA" [209][213][201][212]",29,37,21,23," [194][193][195][203]"
400 NEXT
410 SYSML+30,0,39,0,24,0,8
420 POKE53281,0:POKE53280,0
430 POKEV+21,3
440 SYSML+30,2,37,1,3,255,1+16
450 SYSML+12,5,2,"[158][218]@[201]@[197]@[199]@[198]@[201]@[197]@[204]@[196]@@@@[199]@[201]@[210]@[204]@[211][146][159]"
460 FORI=1TO10
470 SYSML+30,X1(I),X2(I),Y1(I),Y2(I),255,5+16
480 SYSML+12,X1(I)+9-LEN(G$(I))/2,Y1(I)+1,G$(I)
490 NEXT
500 PRINT"";
510 FORI=0TO2:SYSML+30,M1(I),M2(I),M3(I),M4(I),255,14+16
520 SYSML+12,M1(I)+2,M3(I)+1,E$(I)
530 NEXT
532 X=12:Y=12
534 SYSML+21,X,Y
540 SYSML+9:SYSML+60,KY$
541 GOSUB160
542 IF(L2%=0)AND(I%=0)THEN540
544 P=CR%:IFPTHEN560
550 IF(I%>0)AND(I%<5)THENGOSUB140:GOTO534
552 GOTO540
560 SYSML+39,160
566 IFP=11THEN800
568 IFP=12THEN700
570 IFP=13THEN950
580 SYSML+36,P,255,1
582 POKEV+21,0
590 SYS57812FG$(P),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
600 POKE251,64:POKE252,96:POKE253,92:SYS51456:POKE53280,BD%(P):SYS51459
610 SYSML+9
612 GETA$:IFA$="P"THENGOSUB3000:GOTO640
620 IFL2%=0THEN610
630 SYS51459
640 SYSML+42,160:POKEV+21,3
650 GOTO540
700 POKEV+21,0:IFHTHENSYSML+42,168:GOTO750
702 H=1
710 SYSML+30,1,38,5,19,255,5+16
720 SYSML+12,2,7,"[154]    [213]SE KEYBOARD, MOUSE IN [208]ORT #1
722 [158]ML[170]12,2,8,"OR JOYSTICK IN (null)ORT #2 TO MOVE THE
724 SYSML+12,2,9,"ARROW. [195]LICK OR [211][208][193][195][197][154] ON A GREEN
726 [158]ML[170]12,2,10,"BOX TO SEE THE PICTURE. (null)HILE IT'S
728 SYSML+12,2,11,"SHOWING, PRESS [208][154] TO GO TO THE [155][208][210][201][206][212][154]"
729 SYSML+12,2,12,"SEQUENCE. [198]OLLOW THE PROMPTS.
730 [158]ML[170]12,2,14,"    LENLICK ON LISTASC(null)(null)(null)RIGHT$VAL(null)CONT TO SEE A
732 SYSML+12,3,15,"SLIDESHOW OF THE TEN PICTURES.
734 [158]ML[170]12,3,16,"LENLICK OR (null)(null)ATNLENVALCONT TO GO TO THE NEXT
736 SYSML+12,3,17,"PICTURE; PRESS [209] TO STOP THE SHOW.
740 [158]ML[170]39,168
750 [158]ML[170]9
752 [141]160
754 [141]160
760 [139]L2%[178]0[167]750
770 [158]ML[170]42,160:[151]V[170]21,3
780 [137]540
799 [137]799
800 [129]I[178]1[164]10
810 [158]ML[170]36,I,255,1
820 [151]V[170]21,0
830 [158]57812FG$(I),DV,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
840 TQ[178]TI
850 [151]251,64:[151]252,96:[151]253,92:[158]51456:[151]53280,BD%(I):[158]51459
860 [158]ML[170]9:[161]A$
862 [139]A$[178]"Q"[167]I[178]10:[137]880
870 [139]L2%[178]0[175]TI[179]TQ[170]1000[167]860
880 [158]51459
890 [158]ML[170]42,160:[151]V[170]21,3
892 [130]
900 [137]540
950 [158]ML[170]12,30,22,"LEN(null)(null)ASCRIGHT$(null)(null)"
956 [151]198,0:X[178]30:Y[178]22:[151]V[170]21,3
958 [158]ML[170]21,X,Y
960 [158]ML[170]9:[158]ML[170]60,KY$
962 [141]160
964 [139]I%[177]0[175]I%[179]5[167][141]140:[137]958
970 [139]CR%[178]13[167][158]ML[170]3:[151]V[170]21,0:[137]40000
972 [139]L2%[178]0[167]960
980 [158]ML[170]42,160
990 [137]540
3000 [158]51459:[158]ML[170]42,160
3004 [153]"";
3006 [129]I[178]0[164]2:[158]ML[170]30,M1(I),M2(I),M3(I),M4(I),255,5[170]16
3008 [158]ML[170]12,M1(I)[170]2,M3(I)[170]1,E1$(I)
3010 [130]
3016 [151]198,0:X[178]30:Y[178]22:[151]V[170]21,3
3018 [158]ML[170]21,X,Y
3020 [158]ML[170]9:[158]ML[170]60,KY$
3031 [141]160
3032 [139]CR%[178]11[167]A1[178]1:TB[178]80:[137]3250
3034 [139]CR%[178]12[167]A1[178]2:[137]3080
3036 [139]CR%[178]13[167][142]
3040 [139]I%[177]0[175]I%[179]5[167][141]140:[137]3018
3042 [137]3020
3080 X[178]8:Y[178]7:[158]ML[170]30,6,33,Y,Y[170]10,255,1[170]16
3100 [158]ML[170]12,X,Y[170]1,"OPEN   STR$VAL(null)(null)RIGHT$(null)(null)      (null)RIGHT$STR$(null)LEFT$
3110 SYSML+12,X,Y+3,"1[154]  [211]INGLE       [215]IDE
3120 [158]ML[170]12,X,Y[170]4,"2CONT  LEN(null)(null)          (null)ORMAL
3130 SYSML+12,X,Y+5,"3[154]  [196]OUBLE       [206]ARROW
3140 [158]ML[170]12,X,Y[170]6,"4CONT  STR$OUBLE       (null)IDE
3150 SYSML+12,X,Y+7,"5[154]  [209]UAD         [206]ARROW
3160 [158]ML[170]12,X,Y[170]8,"6CONT  (null)UAD         (null)ORMAL
3166 POKE198,0:X=17:Y=10:POKEV+21,3
3168 SYSML+21,X,Y
3170 SYSML+9:SYSML+60,KY$
3172 GOSUB160
3174 IFL2%THENIFCY%>9ANDCY%<16ANDCX%>5ANDCX%<35THENA2=CY%-9:GOTO3190
3176 IFCR%=13THENRETURN
3178 IFI%>5THENA2=I%-4:GOTO3190
3182 IFI%>0ANDI%<5THENGOSUB140:GOTO3168
3184 GOTO3170
3190 PRINT"      "A2:SYSML+24,120
3192 IFA2=1THEN DS=0:BT=1:TB=80
3200 IFA2=2THEN DS=4:BT=1:TB=120
3210 IFA2=3THEN DS=1:BT=1:TB=160
3220 IFA2=4THEN DS=1:BT=2:TB=80
3230 IFA2=5THEN DS=3:BT=2:TB=160
3240 IFA2=6THEN DS=3:BT=3:TB=120
3250 X=8:Y=7:SYSML+30,6,33,Y,Y+10,255,1+16
3270 SYSML+12,X+6,Y+1,"[155][212][193][194][160][208][207][211][201][212][201][207][206]
3280 [158]ML[170]12,X,Y[170]3,"1CONT  (null)EFT
3290 SYSML+12,X,Y+4,"2[154]        [195]ENTER
3300 [158]ML[170]12,X,Y[170]5,"3CONT                (null)IGHT
3310 IFA2<>3ANDA2<>5THEN3336
3320 SYSML+12,X,Y+6,"4[154]    [204]EFT-[195]ENTER
3330 [158]ML[170]12,X,Y[170]7,"5CONT          (null)IGHT-LENENTER
3336 X=17:Y=10:POKEV+21,3
3338 SYSML+21,X,Y
3340 SYSML+9:SYSML+60,KY$
3341 GOSUB160
3342 IFL2%THENIFCY%>9ANDCY%<16ANDCX%>5ANDCX%<35THENA3=CY%-9:GOTO3360
3344 IFCR%=13THENRETURN
3346 IFI%>4ANDI%<10THENA3=I%-4:GOTO3360
3348 IFI%>0ANDI%<5THENGOSUB140:GOTO3338
3349 GOTO3340
3360 IFA3=1THENTB=0:GOTO3420
3370 IFA3=2THEN3420
3380 IFA3=3THENTB=TB*2:GOTO3420
3390 IFA2<>3ANDA2<>5THEN3340
3400 IFA3=4THENTB=53:GOTO3420
3410 TB=266
3420 POKE251,64:POKE252,96:POKE253,92:SYS51456
3430 POKEV+21,0:SYS51459
3440 IFA1=1THENSYS49152,TB,1:GOTO3470
3450 IFA1=2THENSYS49155,TB,DS,BT,BT*320,1
3460 POKE198,0
3470 POKE186,DV:SYS51459:SYSML+24,120
3480 RETURN
10000 D=PEEK(186):N$="0:B.ZIEGFELD":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
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
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[218] [201] [197] [199] [198] [197] [204] [196]   [199] [201] [210] [204] [211]
60040 Z$(2)[178]"ATN (null)LIDESHOW BY (null)ALT LEFT$ARNED
60050 Z$(4)="(C) 1998 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN