10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
12 DV=PEEK(186):IFDV<8THENDV=8
14 DIMW$(220)
16 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153
18 SYS57812"DDPW TITLE",DV,0:POKE780,0:POKE781,0:POKE782,92:SYS65493
20 POKE53265,59:POKE53272,120:POKE56576,PEEK(56576)AND254
22 SYS57812"3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
24 SYS57812"PW FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
26 SYS57812"C000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS13312,"PW TEXT",DV
32 H=PEEK(252)*256+PEEK(251)
34 W$(0)=RIGHT$(W$(0),LEN(W$(0))-2)
36 PW$="[129][208][197][212][197][210] [193][206][196] [212][200][197] [215][207][204][198]"
60 POKE53265,27:POKE53272,21:POKE56576,PEEK(56576)OR1
65 SYSSR,96,76,56
100 S$(1)="PW1.SHP":M$(1)="PW1.MUS"
102 S$(2)="PW2.SHP":M$(2)="PW2.MUS"
104 S$(3)="PW3.SHP":M$(3)="PW3.MUS"
106 S$(4)="PW4.SHP":M$(4)="PW4.MUS"
120 GOTO700
200 N=0:S=1:FL=0:P=0
205 GOSUB330
210 IFW$(N)="*"THENN=N+1:GOSUB300:IFFLTHEN700
220 IFW$(N)="+"THENN=N+1:GOSUB400:GOTO210
230 SYSSQ,20-INT((LEN(W$(N))/2)),24,"[158]"+W$(N)
240 P=PEEK(G):FORT=1TO300
242 GETA$:IFA$="Q"THENT=300:NEXT:GOTO700
244 IFPEEK(G)>PTHENT=300
246 NEXT
250 SYSSQ,1,24,"                                       "
260 N=N+1
270 GOTO210
300 IFPEEK(49152)=7THEN300
310 GOSUB450:S=S+1:IFS>4THENFL=1:RETURN
320 GOSUB500:SYSHG
330 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
340 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
350 POKE251,64:POKE252,96:POKE253,76:SYSUN
360 POKE252,96:POKE253,76:SYSHG:GOSUB430
370 RETURN
400 P=PEEK(G)
405 GETA$:IFA$="Q"THENFL=1:RETURN
410 IF(PEEK(G)=P)AND(PEEK(49152)>0)THEN405
420 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 ONSGOTO502,510,530,550,600
502 PRINT"[147][154]     "PW$"[159] - [193]CT [201]"
504 PRINT"[155]  [212]HE STORY OF A BOY, A BIRD, A CAT
506 [153]"  AND A NOT-SO-SMART DUCK."
508 [142]
510 [153]"LOADCONT     "PW$"OPEN - ATNCT RIGHT$RIGHT$
520 PRINT"  [193]DD A [199]RANDFATHER AND A WOLF TO THE
522 [153]"  THE STORY AND LOOK OUT!"
524 [142]
530 [153]"LOADCONT     "PW$"OPEN - ATNCT RIGHT$RIGHT$RIGHT$
540 PRINT"  [200]OW TO CATCH A WOLF WITH ONLY A BIRD
542 [153]"  AND A ROPE."
544 [142]
550 [153]"LOADCONT     "PW$"OPEN - ATNCT RIGHT$(null)
560 PRINT"  [212]HE TRIUMPH OF A BOY AND A BIRD...
562 [153]"  AND EVEN A DUCK!"
564 [142]
700 [139][194](53270)[179][177]200[167][158]HG
705 [139]MU[167][141]450
710 [153]"LOADCONT          "PW$
720 [153]"  1CONT  (null)EE, HEAR AND READ THE STORY
730 PRINT"  2[154]  [202]UST SEE THE FOUR PICTURES
740 [153]"  3CONT  (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)
742 PRINT" [208]RESS THE [209][154] KEY WHILE A PICTURE IS
744 [153]" SHOWING TO RETURN TO THIS MENU.
750 POKE198,0
760 GETA$:IFA$<"1"ORA$>"3"THEN760
770 ONVAL(A$)GOTO200,800,40000
800 FORI=1TO4
802 PRINT"[147][154] [208]RESS ANY KEY TO GO TO THE NEXT
804 [153]" PICTURE.  (null)RESS (null)CONT WHILE PICTURE IS
806 PRINT" SHOWING TO RETURN TO THE MENU.
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
870 [139]A$[178]"Q"[167]I[178]4:[130]:[137]700
880 [130]:[137]800
10000 [159]15,8,15,"S0:PW":[160]15:[148]"PW",8:[128]
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40030
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]