10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
12 DV=PEEK(186):IFDV<8THENDV=8
14 DIMW$(220),B(15),S$(8),M$(8)
16 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153
18 SYS57812"DOTT0.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
20 SYS57812"DOTT3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
22 POKE251,64:POKE252,96:POKE253,76:SYSUN:SYSHG
24 SYS57812"DOTT FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
26 SYS57812"DOTTC000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS13312,"DOTT TEXT",DV
32 H=PEEK(252)*256+PEEK(251)
34 W$(0)=RIGHT$(W$(0),LEN(W$(0))-2)
36 FS$="[129][196][193][206][195][197] [207][198] [212][200][197] [212][207][215][197][210][211]"
37 SP$="                                        "
38 Q=1:FORI=0TOH:IFW$(I)="*"THENB(Q)=I:Q=Q+1
40 NEXT:B(0)=0
50 POKE53281,0:PRINT"[147]"
60 SYSHG
65 SYSSR,96,76,56
70 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
72 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
80 V(1)=330:V(2)=310:V(3)=160:V(4)=200:V(5)=140:V(6)=110
100 FORI=0TO7:S$(I)="DOTT"+CHR$(I+48)+".SHP"
102 M$(I)="DOTT"+CHR$(I+48)+".MUS":NEXT
120 GOTO700
130 POKE214,Y:PRINT
132 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
134 FORII=1TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
136 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
138 RETURN
200 N=1:S=1:FL=0:P=0:MK=0:GOSUB500
205 GOSUB350
210 GOSUB300:IFFLTHEN550
230 SYSSQ-3,"[144]"
231 SYSSQ,0,23,SP$
233 SYSSQ,0,24,SP$
236 IFLEN(W$(N))>1THENSYSSQ,20-INT((LEN(W$(N))/2)),23,W$(N)
238 IFLEN(W$(N+1))>1THENSYSSQ,20-INT((LEN(W$(N+1))/2)),24,W$(N+1)
240 V=0
242 GETA$
243 IFA$="Q"THEN700
244 IFA$<>"N"THEN247
245 GOSUB310:IFFLTHEN550
246 N=B(S)+1:GOTO210
247 IFA$=" "THEN260
248 V=V+1:IFV>V(S)THEN260
249 GOTO242
260 N=N+2
265 IFN>=B(S+1)THENN=B(S)+1
270 GOTO210
300 IFPEEK(49152)=7THENRETURN
310 GOSUB450:S=S+1:IFS>6THENFL=1:RETURN
320 SYSHG:GOSUB600:N=B(S)+1
330 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
340 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
342 IFMKTHENRETURN
350 POKE251,64:POKE252,96:POKE253,76:SYSUN
360 POKE252,96:POKE253,76:SYSHG:IFMK=0THENGOSUB430
370 RETURN
430 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1:RETURN
450 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0:RETURN
500 POKE53281,0:PRINT"[147]":POKE53272,31:POKE53265,11
502 X=1:Y=1:XX=36:YY=20:GOSUB130
510 PRINT"[158][196] [193] [206] [195] [197]  [207] [198]  [212] [200] [197]  [212] [207] [215] [197] [210] [211]"
520 PRINT"[153][201]N A SMALL [201]TALIAN CITY THERE
522 [153]"ONCE LIVED A MAGICIAN/COMPOSER
524 PRINT"NAMED [208]ROVOLONE AND HIS GRANDSON,
526 [153]"(null)NEESIMO LENALHOONI.  (null)HE COMPOSER
528 PRINT"HAD JUST FINISHED HIS MASTERPIECE,
530 [153]"'(null)HE STR$ANCE OF THE (null)OWERS', A
531 PRINT"BALLET ABOUT THE TWO TOWERS THAT
532 [153]"STOOD ON OPPOSITE SIDES OF THE
533 PRINT"RIVER THAT RAN THROUGH THE CITY.
534 [153]"(null)ANY TIMES THE PEOPLE HAD TRIED
536 PRINT"TO BUILD A BRIDGE BETWEEN THE
538 [153]"TOWERS BUT HAD ALWAYS FAILED,
540 PRINT"UNTIL ONE DAY YOUNG [203]NEESIMO WAS
542 [153]"PUTTERING AROUND THE HOUSE AND
543 PRINT"FOUND A WAND..."
544 POKE53265,27:MK=1:GOSUB330:MK=0
545 ZZ=0
548 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<1200THEN548
549 RETURN
550 POKE53281,0:IFPEEK(53270)<>200THENSYSHG
551 IFMUTHENGOSUB450
552 PRINT"[147]":POKE53265,11:X=1:Y=1:XX=36:YY=20:GOSUB130
553 PRINT"[158][196] [193] [206] [195] [197]  [207] [198]  [212] [200] [197]  [212] [207] [215] [197] [210] [211]"
554 PRINT"[153][193]ND SO THE CITY WAS LEFT WITH
556 [153]"TWO LEANING TOWERS, DASHED DREAMS,
558 PRINT"AND A MESS TO CLEAN UP.  [208]ROVOLONE
560 [153]"AND HIS GRANDSON LEFT TOWN AND
562 PRINT"WERE NEVER HEARD FROM AGAIN.
564 [153]"(null)ANY YEARS LATER, A RICH MAN
566 PRINT"NAMED [198]ENDERICO [212]UCKERELLI BOUGHT
568 [153]"ONE OF THE TOWERS AND SHIPPED IT
570 PRINT"TO THE [213]NITED [211]TATES WHERE IT WAS
572 [153]"REBUILT, BRICK BY BRICK, IN THE
573 PRINT"CITY OF [211]HREVEPORT, [204]OUISIANA.
574 [153]"(null)OW PEOPLE COME FROM ALL OVER
576 PRINT"THE GLOBE TO [208]ISA TO SEE THE
578 [153]"REMAINING TOWER.
584 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
586 POKE53265,27
588 ZZ=0
590 ZZ=ZZ+1:GETA$:IFA$=""ANDZZ<1200THEN590
592 GOSUB350
596 GETA$:IFA$=""ANDPEEK(49152)=7THEN596
598 GOTO700
600 PRINT"[147]":POKE53281,0
602 X=3:Y=4:XX=33:YY=9:GOSUB130
610 PRINT""TAB(8)"[153][215]HILE PICTURE IS SHOWING:
620 [153][163]11)"(null)(null)ATNLENVAL CONT- (null)EXT LINE
630 PRINTTAB(11)"[206] [154]- [206]EXT [208]ART
640 [153][163]11)"(null) CONT- (null)UIT TO (null)AIN (null)ENU
650 RETURN
700 POKE53265,11:POKE53281,0:IFPEEK(53270)<>200THENSYSHG
705 PRINT"[147]":POKE53272,31:IFMUTHENGOSUB450
706 X=3:Y=4:XX=33:YY=11:GOSUB130
710 PRINT"[158]"TAB(11)FS$
720 PRINTTAB(5)"1[154]  [211]EE, HEAR AND READ THE STORY
730 [153][163]5)"2CONT  MID$UST SEE THE EIGHT PICTURES
732 PRINTTAB(5)"3[154]  [202]UST HEAR THE MUSIC
740 [153][163]5)"4CONT  (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
742 POKE53265,27
750 POKE198,0
760 GETA$:IFA$<"1"ORA$>"4"THEN760
770 ONVAL(A$)GOTO200,800,900,40000
800 FORI=0TO7
801 PRINT"[147]"
802 X=3:Y=4:XX=33:YY=7:GOSUB130
804 PRINT"[154]"TAB(5)"[153][215]HILE THE PICTURE IS SHOWING...
806 [153][163]5)"(null)(null)ATNLENVAL CONT- CHR$O TO THE NEXT PICTURE
808 PRINTTAB(5)"[209] [154]- [210]ETURN TO THE [205]ENU
830 [158]57812S$(I),DV,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
840 [151]251,64:[151]252,96:[151]253,76:[158]UN
850 [151]252,96:[151]253,76:[158]HG
860 [161]A$:[139]A$[178]""[167]860
865 [158]HG:[151]53281,0
870 [139]A$[178]"Q"[167]I[178]7:[130]:[137]700
880 [130]:[137]700
900 [153]"LOAD"
902 X[178]3:Y[178]4:XX[178]33:YY[178]5:[141]130
912 [153]""[163]8)"(null)(null)ATNLENVAL CONT- (null)AUSE/(null)ESUME (null)USIC
914 PRINTTAB(8)"[209] [154]- [210]ETURN TO [205]AIN [205]ENU
916 [158]57812M$(0),DV,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
918 [141]430
920 [161]A$:[139]A$[178]""[175][194](49152)[178]7[167]920
930 [139]A$[179][177]" "[167]940
932 P[178]1[171]P
934 [139]P[178]0[167][158]49615:[151]49152,7:MU[178]1:[137]920
936 [141]450
938 [161]A$:[139]A$[178]""[167]938
939 [139]A$[178]" "[167]P[178]0:[137]934
940 [139]A$[178]"Q"[176][194](49152)[178]0[167][141]450:[137]700
950 [137]920
10000 [159]15,8,15,"S0:DOTT":[160]15:[148]"DOTT",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]