2 REM Ƞà4 REM ̺Ƞˠ6 REM ͠ŠǠ ʠԠ8 TRAP 612:POKE 106,148:GRAPHICS 0:POKE 16,64:POKE 53774,64:POKE 580,110 CLR :POKE 559,0:GOSUB 50612 DIM A0$(A1),A2$(18),A3$(254),A4$(A5),A6$(A1),A7$(12),A8$(A9),B0$(12),B1$(A9),B2$(12),B3$(A9),B4$(16)14 DIM B5$(15),B6$(256),B7$(A1),B8$(A1),B9$(60),C0$(38),C1$(12),C2$(1280),C3$(128),C4$(38)16 DIM C5$(22),C6$(22),C7$(75),C8$(27),C9$(31),D0$(48),D1$(D2),D3$(22),D4$(42),D5$(D6),D7(D8),D9(D8)18 GOSUB 464:GOSUB 570:GOSUB 510:GOSUB 56820 FOR E0=E1 TO D8:POKE 707+E0,D7(E0)*16+D9(E0):NEXT E0:POKE 712,E2*16+E322 POKE 752,E1:? "}":POKE 766,E1:POKE 729,E4:POKE 208,254:POKE 209,D6:E5=USR(ADR(D3$),1790):E5=USR(ADR(D1$))24 GOSUB 590:POKE 559,3426 TRAP 612:GET #E1,E6:POKE 559,E7:GOSUB 510:GOSUB 448:POKE 559,3428 E8=ADR(A0$):E9=F0:F1=A1:GOSUB 498:E6=USR(ADR(C5$),F2+VAL(A2$(F3*F4+E1,F3*F4+F5)),VAL(A2$(3*F4+F3,F3*F4+F3)))30 GOSUB 502:GET #E1,E632 IF E6=F6 THEN GOSUB 43634 IF E6=F7 AND F4<F8 THEN F4=F4+E136 IF E6=F9 AND F4>E7 THEN F4=F4-E138 IF E6=155 THEN ON F4+E1 GOSUB 42,192,226,260,374,43040 GOTO 2842 E8=ADR(A6$):E9=F0:F1=A1:GOSUB 49844 POKE F2+38,INT((G0+E1)/G1)+16:POKE F2+39,G0-INT((G0+E1)/G1)*G1+1746 GOSUB 16448 G2=E7:GOSUB 47450 E8=ADR(A4$):F1=LEN(A4$)52 E9=G3+G4+(G5=E1)*(G1+G1*(G6=E7)-INT(LEN(A4$)/F5+0.5))+(G5=F5)*(E4+E4*(G6=E7)-LEN(A4$)):GOSUB 49654 GOSUB 46656 POKE 1548,G1:IF G6>E7 THEN GOSUB 50258 TRAP 612:GET #E1,E660 IF E6=125 THEN GOSUB 446:POKE 559,34:GOTO 4262 IF E6=F6 THEN GOSUB 132:GOTO 5664 IF G0>23 THEN G7=1790:GOSUB 472:GOTO 5866 IF E6=126 OR E6=156 THEN GOSUB 460:GOTO 4868 IF E6=30 OR E6=28 THEN G8=G7:G2=E1:G9=G6:GOTO 9470 IF E6=155 AND H0=E7 THEN H1=H1+E1+F3*(H1=H2):G0=G0+E1+(G6=F5):G4=G4+E4*(G6>E7)+A5*(G6=E7):GOTO 4472 IF E6=155 THEN H1=H1+E1+F3*(H1=H2):G0=G0+E1+(G6=F5):G4=G4+E4*(G6>E7)+A5*(G6=E7):GOSUB 464:GOTO 4474 IF G6=E7 THEN 8476 IF E6=H3 THEN 8478 IF E6<H3 OR E6>95 THEN GOTO 5680 IF E6<65 THEN IF (H4=F5 OR H4=D8) THEN GOSUB 494:GOTO 5682 E6=E6+H3*(H4=F5)+128*(H4=F3)+160*(H4=D8)84 IF H0>19+E4*(G6=E7) THEN GOSUB 494:GOTO 5686 H0=H0+E1:GOSUB 500:A4$(H0,H0)=CHR$(E6)88 GOTO 4890 IF G6<>E7 THEN GOSUB 50292 TRAP 612:GET #E1,E694 IF E6=30 THEN G7=G7-E1:GOTO 12696 IF E6=31 THEN G7=G7+E1:GOTO 12698 IF E6=28 THEN G7=G7-E4:GOTO 126100 IF E6=29 THEN G7=G7+E4:GOTO 126102 IF E6=126 AND G7=G3 THEN 90104 IF E6=126 AND G7>G3 THEN G7=G7-E1:GOSUB 472:POKE 1788,E7:E6=E7:H5=E1:GOTO 122106 IF E6=155 THEN G7=G8:G6=G9:GOSUB 160:GOTO 48108 IF E6=F6 THEN GOSUB 132:POKE 1548,G1:E5=USR(ADR(C5$),F2,E4):GOTO 90110 IF G6=E7 THEN 120112 IF E6<H3 OR E6>95 THEN GOSUB 494:GOTO 90114 IF E6=H3 THEN 120116 IF E6<65 THEN IF (H4=F5 OR H4=D8) THEN GOSUB 494:GOTO 90118 E6=E6+H3*(H4=F5)+128*(H4=F3)+160*(H4=D8)120 GOSUB 500:POKE 1788,E6122 IF G8<G7+LEN(A4$)+(G5<>F5) THEN A4$(LEN(A4$)-G8+G7+(G5<>F5),LEN(A4$)-G8+G7+(G5<>F5))=CHR$(E6)124 G7=G7+E1:IF H5=E1 THEN H5=E7:G7=G7-E1126 IF G7<G3 THEN G7=G3128 IF G7>=G8 THEN G7=G8:G6=G9:GOSUB 160:GOTO 48130 GOSUB 472:GOTO 90132 E5=USR(ADR(C5$),F2-A5,A1):E5=USR(ADR(C6$),F2+VAL(A7$(4*H6+E1,D8*H6+F5)),VAL(A7$(D8*H6+F3,D8*H6+D8)))134 POKE 1548,35136 GOSUB 502:GET #E1,E6138 IF E6=155 THEN E5=USR(ADR(C5$),F0,A1):RETURN 140 IF E6=F7 AND H6<F5 THEN H6=H6+E1142 IF E6=F9 AND H6>E7 THEN H6=H6-E1144 IF E6=F6 THEN IF G2=E1 THEN G6=G9:G7=G8:GOSUB 472:GOSUB 160:POP :RETURN 146 IF E6=F6 THEN POP :RETURN 148 IF E6=D2 OR E6=H7 THEN ON H6+E1 GOSUB 152,176,182150 GOTO 132152 IF G2=E1 THEN 156154 IF H0>E7 THEN GOSUB 494:RETURN 156 IF E6=D2 AND G6<F5 THEN G6=G6+E1158 IF E6=H7 AND G6>E7 THEN G6=G6-E1160 A6$(48,48)=CHR$(G6+H8):POKE F2+H9,G6+H8162 IF G2=E1 THEN RETURN 164 I0=66*(G6=E7)+70*(G6=E1)+71*(G6=F5):I1=F5*(G6=E7)+D6*(G6=E1)+I2*(G6=F5)166 IF G0=E7 THEN D4$(G1,G1)=CHR$(I0):GOTO 174168 IF H1=H2 THEN D4$(15+H1,15+H1)=CHR$(I0):GOTO 174170 IF H1=H2+D8 THEN H1=H2+D6172 IF G0<24 THEN D4$(12+H1,12+H1)=CHR$(I1)174 GOSUB 474:GOSUB 566:GOSUB 466:RETURN 176 IF E6=D2 AND H4<D8 THEN H4=H4+E1178 IF E6=H7 AND H4>E1 THEN H4=H4-E1180 POKE F2+19,H4+144:A6$(59,59)=CHR$(H4+H8):RETURN 182 IF H0>E7 OR G2=E1 THEN GOSUB 494:RETURN 184 IF E6=D2 AND G5<F5 THEN G5=G5+E1186 IF E6=H7 AND G5>E7 THEN G5=G5-E1188 A6$(70,74)=B5$(G5*F8+E1,G5*F8+F8):E8=ADR(A6$)+69:E9=F2+30:F1=F8:GOSUB 498:GOSUB 466190 E6=USR(ADR(C5$),ADR(A6$(69,69)),ADR(A6$(73,73))):RETURN 192 E8=ADR(A8$):E9=F2+F5:F1=A9:GOSUB 498194 E5=USR(ADR(C5$),F2-A5,A1):E5=USR(ADR(C6$),F2+VAL(B0$(D8*I3+E1,D8*I3+F5)),VAL(B0$(D8*I3+F3,D8*I3+D8)))196 GOSUB 502:GET #E1,E6198 IF E6=F7 AND I3<F5 THEN I3=I3+E1200 IF E6=F9 AND I3>E7 THEN I3=I3-E1202 IF E6=F6 THEN RETURN 204 IF E6=D2 OR E6=H7 THEN ON I3+E1 GOSUB 208,214,220206 GOTO 192208 IF E6=D2 AND I4<D8 THEN I4=I4+E1210 IF E6=H7 AND I4>E1 THEN I4=I4-E1212 A8$(13,13)=CHR$(I4+H8):RETURN 214 IF E6=D2 AND D7(I4)<15 THEN D7(I4)=D7(I4)+E1216 IF E6=H7 AND D7(I4)>E7 THEN D7(I4)=D7(I4)-E1218 GOTO 224220 IF E6=D2 AND D9(I4)<15 THEN D9(I4)=D9(I4)+F5222 IF E6=H7 AND D9(I4)>E1 THEN D9(I4)=D9(I4)-F5224 POKE 707+I4,D7(I4)*H8+D9(I4):RETURN 226 E8=ADR(B1$):E9=F0+41:F1=A9:GOSUB 498228 E5=USR(ADR(C5$),F2-A5,A1):E5=USR(ADR(C6$),F2+VAL(B2$(D8*I5+E1,D8*I5+F5)),VAL(B2$(D8*I5+F3,D8*I5+D8)))230 GOSUB 502:GET #E1,E6232 IF E6=F6 THEN RETURN 234 IF E6=F7 AND I5<F5 THEN I5=I5+E1236 IF E6=F9 AND I5>E7 THEN I5=I5-E1238 IF E6=D2 OR E6=H7 THEN ON I5+E1 GOSUB 242,248,254240 GOTO 226242 IF E6=D2 AND E2<15 THEN E2=E2+E1244 IF E6=H7 AND E2>E7 THEN E2=E2-E1246 POKE 712,E2*H8+E3:RETURN 248 IF E6=D2 AND E3<15 THEN E3=E3+F5250 IF E6=H7 AND E3>E1 THEN E3=E3-F5252 POKE 712,E2*H8+E3:RETURN 254 IF E6=D2 THEN POKE 710,PEEK(712)256 IF E6=H7 THEN POKE 710,D7(F3)*H8+D9(F3)258 RETURN 260 E8=ADR(B3$):E9=F0+41:F1=A9:GOSUB 498262 E5=USR(ADR(C5$),F2-A5,A1):E5=USR(ADR(C6$),F2+VAL(B4$(D8*I6+E1,D8*I6+F5)),VAL(B4$(D8*I6+F3,D8*I6+D8)))264 GOSUB 502:GET #E1,E6266 IF E6=F7 AND I6<F5 THEN I6=I6+E1268 IF E6=F9 AND I6>E7 THEN I6=I6-E1270 IF E6=F6 THEN RETURN 272 IF E6=D2 OR E6=H7 THEN ON I6+E1 GOSUB 276,328,354274 GOTO 260276 IF E6=H7 THEN IF H2>E7 THEN GOSUB 492:POKE F2+11,235:GOTO 284278 IF E6=H7 THEN GOSUB 494:RETURN 280 IF H0>E7 OR G0=E7 OR G0>22 OR H2>E7 THEN GOSUB 494:RETURN 282 POKE F2+11,229:GOSUB 476284 POKE 1548,G1:E6=E7:H0=E6:I7=E6:POKE I8+H2+12,E4286 E5=USR(ADR(D3$),I9+H0+22)288 GOSUB 502:GET #E1,E6290 IF E6=155 OR E6=F6 THEN GOSUB 474:GOSUB 316:H0=LEN(A4$):RETURN 292 IF E6=156 OR E6=254 THEN GOSUB 486:J0=E7:GOTO 284294 IF E6=126 AND I7>E7 THEN POKE 1788,E7:H0=H0-E1:I7=I7-E1:E5=USR(ADR(D3$),I9+H0+22)296 IF H0>210 THEN GOSUB 494:GOTO 288298 IF E6=31 THEN IF H0<J0 THEN E6=PEEK(1788):GOTO 310300 IF E6<H3 OR E6>95 THEN 288302 IF E6=H3 THEN 308304 IF E6<65 THEN IF (H4=F5 OR H4=D8) THEN GOSUB 494:GOTO 288306 E6=E6+H3*(H4=F5)+128*(H4=F3)+160*(H4=D8)308 GOSUB 500310 GOSUB 474:POKE I9+H0+22,E6:H0=H0+E1:I7=I7+E1312 IF I7=19 THEN FOR E0=E1 TO 14:POKE I8+H2+12,PEEK(I8+H2+12)+E1:NEXT E0:I7=F8314 GOTO 286316 IF PEEK(F2+11)<>235 THEN D4$(15+H2,15+H2)=CHR$(I0)318 GOSUB 566:E5=USR(ADR(D3$),G7):IF H0<>INT(H0/F5)*F5 THEN H0=H0+E1320 IF J0>H0 THEN 324322 J0=H0:IF J0=E7 THEN J0=F5324 IF G0=24 AND G6=F5 AND PEEK(F2+11)=229 THEN GOSUB 474:G7=1790326 GOSUB 488:POKE F2+11,225:POKE 1548,35:RETURN 328 IF E6=D2 THEN J1=J1+E1330 IF E6=H7 THEN J1=J1-E1332 IF J1>H9 THEN J1=E7334 IF J1<E7 THEN J1=H9336 POKE 54286,127338 ON J1 GOTO 344,344,344,344,350,350,350,350340 GOSUB 458:B3$(24,25)="n ":IF J2=E1 THEN POKE 54286,192342 RETURN 344 C7$(24,26)=" ":C7$(49,51)=" ":C7$(25,25)=CHR$(21+J1):C7$(50,50)=CHR$(21+J1):GOSUB 584346 B3$(24,24)="s":B3$(25,25)=CHR$(H8+J1):IF J2=F5 THEN 352348 RETURN 350 GOSUB 456:C8$(14,14)=CHR$(17+J1):GOSUB 586:B3$(24,24)="r":B3$(25,25)=CHR$(12+J1)352 J2=E7:B3$(37,37)="n":RETURN 354 IF E6=D2 AND J2<F5 THEN J2=J2+E1356 IF E6=H7 AND J2>E7 THEN J2=J2-E1358 POKE 54286,127:GOSUB 456360 ON J2 GOTO 366,370362 B3$(37,37)="n":IF J1>E7 THEN POKE 54286,192364 RETURN 366 C7$(21,23)="":C7$(46,48)="":GOSUB 584:B3$(37,37)="s":IF J1>D8 THEN 372368 RETURN 370 C8$(14,14)="":GOSUB 586:B3$(37,37)="r"372 GOSUB 458:B3$(24,25)="n ":J1=E7:RETURN 374 E8=ADR(C0$):E9=F2+F5:F1=A9:GOSUB 498:J3=PEEK(54286):G8=G7376 E5=USR(ADR(C5$),F2-A5,A1):E5=USR(ADR(C6$),F2+VAL(C1$(D8*J4+E1,D8*J4+F5)),VAL(C1$(D8*J4+F3,D8*J4+D8)))378 GOSUB 502:GET #E1,E6380 IF E6=F7 AND J4<F5 THEN J4=J4+E1382 IF E6=F9 AND J4>E7 THEN J4=J4-E1384 IF E6=F6 THEN RETURN 386 IF E6=155 THEN ON J4+E1 GOSUB 390,398,416388 G7=G8:GOSUB 472:GOTO 374390 GOSUB 474:C2$(15,57)=D4$:E8=G3:E9=ADR(C2$)+319:F1=960:GOSUB 504:E8=I9:E9=ADR(C2$)+59392 F1=250:GOSUB 498:FOR E0=F3 TO I2:C2$(E0,E0)=CHR$(PEEK(705+E0)):NEXT E0394 C2$(9,9)=CHR$(J0):C2$(H9,H9)=CHR$(H2+5):C2$(G1,G1)=CHR$(J2):C2$(11,11)=CHR$(J1)396 J5=E7:OPEN #F3,H9,128,"C:":FOR E0=E1 TO G1:? #F3;C2$(J5+E1,J5+128):J5=J5+128:NEXT E0:CLOSE #F3:RETURN 398 GOSUB 448:GOSUB 474:G8=1790400 TRAP 426:J5=E7:OPEN #F3,D8,128,"C:"402 FOR E0=E1 TO G1:INPUT #F3;C3$:C2$(J5+E1,J5+128)=C3$:J5=J5+128:NEXT E0:CLOSE #F3:IF C2$(E1,F5)<>"VK" THEN 426404 POKE 559,E7:GOSUB 448:FOR E0=F3 TO I2:POKE 705+E0,ASC(C2$(E0,E0)):NEXT E0:D4$=C2$(15,57):GOSUB 566:G0=24406 E8=ADR(C2$)+319:E9=G3:F1=960:GOSUB 504:H2=ASC(C2$(H9,H9))-F8408 IF H2>E7 THEN J0=ASC(C2$(9,9)):E8=ADR(C2$)+59:E9=I9:F1=250:GOSUB 498:GOSUB 488410 J2=ASC(C2$(G1,G1)):J1=ASC(C2$(11,11)):ON J2 GOSUB 366,370412 ON J1 GOSUB 344,344,344,344,350,350,350,350414 POKE 559,34:G7=1790:GOSUB 472:POP :GOTO 374416 POKE 54286,127:TRAP 420:OPEN #F3,D8,128,"C:"418 GET #F3,E6:POKE H7,PEEK(650):GOTO 418420 CLOSE #F3:POKE 54286,J3:IF PEEK(195)<>136 THEN GOTO 426422 E8=ADR("           7%29&)+!#*! /+           "):E9=F2+F5:F1=A9:GOSUB 498:G7=G8:GOSUB 472424 GOSUB 502:GET #E1,E6:RETURN 426 TRAP 612:CLOSE #F3:E8=ADR(C4$):E9=F2+F5:F1=A9:GOSUB 498:POKE 54286,J3428 GOSUB 502:GET #E1,E6:POP :GOTO 388430 E8=ADR(B7$):E9=F0:F1=A1:GOSUB 498432 GOSUB 502:GET #E1,E6:IF E6<>F6 THEN 432434 RETURN 436 POKE 559,E7:POKE I8,70:POKE I8+F3,70:POKE I8+D6,70+126:E8=ADR(A3$):E9=F0:F1=A1:GOSUB 498438 GOSUB 474:POKE G7,E7:POKE 559,34440 E5=USR(ADR("h
 M`"))442 GOSUB 502:GET #E1,E6444 POKE 559,E7:GOSUB 566:POKE 559,34:E5=USR(ADR(D3$),G7):RETURN 446 E8=ADR(B8$):E9=F0:F1=A1:GOSUB 498:GOSUB 502:GET #E1,E6:POKE 559,E7:IF E6<>84 THEN RETURN 448 G6=E7:J0=E7:H0=E7:A4$="":GOSUB 352:GOSUB 372:GOSUB 456:GOSUB 458450 G0=E7:G4=E7:H1=E7:H2=-F8:POKE 54286,127:POKE 1780,76:POKE 1781,98:POKE 1782,228:E5=USR(ADR("hL\"))452 POKE 1788,E7:POKE 766,E7:? "}":POKE 766,E1:GOSUB 564:GOSUB 474454 A6$(48,48)=CHR$(G6+H8):B3$(G1,G1)="n":RETURN 456 C7$(21,23)="":C7$(46,48)="":RETURN 458 C7$(24,26)="":C7$(49,51)="":RETURN 460 POKE 1788,E7:E8=ADR(A3$):E9=G3+G4:F1=E4+E4*(G6=E7):GOSUB 498462 IF E6=126 AND H0>E1 THEN A4$=A4$(E1,H0-E1):H0=H0-E1:RETURN 464 H0=E7:A4$="":RETURN 466 G7=G3+G4+(G5=E7)*LEN(A4$)+(G5=E1)*(G1+G1*(G6=E7)+INT(LEN(A4$)/F5))+(G5=F5)*(19+E4*(G6=E7))468 IF H0>E4+E4*(G6=E7)-E1+(G5=F5) THEN G7=G7-E1470 IF G0>23 THEN G7=1790472 E5=USR(ADR(D3$),G7):RETURN 474 E5=USR(ADR(D3$),1790):RETURN 476 J6=INT((G3+G4)/256):J7=G3+G4-J6*256478 G0=G0+E1+(G6=F5):H2=H1:J8=G6480 D5$(E1,E1)=CHR$(86+(G6=F5)):D5$(F8,F8)=CHR$(J7):D5$(D6,D6)=CHR$(J6)482 E8=ADR(D4$)+11+H1:E9=E8+D8:F1=F6-H1:GOSUB 498484 E8=ADR(D5$):E9=ADR(D4$)+11+H1:F1=D6:GOSUB 498:GOSUB 566486 POKE 1788,E7:E8=ADR(A3$):E9=I9:F1=254:GOSUB 498:GOSUB 474:RETURN 488 E5=USR(ADR(C9$),I8+12+H2,I9,22+J0,ADR(D0$)):B3$(G1,G1)="a"490 H0=E7:RETURN 492 POKE 1780,76:POKE 1781,98:POKE 1782,228:E5=USR(ADR("hL\")):RETURN 494 FOR E0=E1 TO 15:SOUND E7,144,G1,G1:NEXT E0:SOUND E7,E7,E7,E7:RETURN 496 IF F1=E7 THEN RETURN 498 E5=USR(ADR("hxhhhhhhˑ͈X`"),E8,E9,F1-E1):RETURN 500 E5=USR(ADR("hhh) 	@@)`I`	`"),E6):E6=PEEK(1789):RETURN 502 TRAP 612:POKE 702,64:POKE 694,E7:RETURN 504 E6=USR(ADR("hhhhhhhϠ ˑͥ`Ω "),E8,F1,E9):RETURN 506 E7=0:E1=1:F5=E1+E1:F3=F5+E1:D8=F3+E1:F8=D8+E1:D6=F8+E1:I2=D6+E1:H9=I2+E1:G1=F8*F5:E4=G1*F5:A5=E4*F5:A1=A5*F3508 F7=A5+F5:F9=A5+F3:D2=F9+F5:F6=E4+I2:H7=E4*F3+E1:A9=A5-F5:H3=A5-H9:H8=H3/F5:RETURN 510 F0=152*256:F2=F0+39:E3=E1:H4=E1:I8=38400:I9=38656:G3=PEEK(88)+256*PEEK(89):H2=-F8:G5=E1:I4=E1512 D9(E1)=11:D9(F5)=13:D9(D8)=13:D7(E1)=F3:D7(F5)=I2:D7(F3)=E7:D7(D8)=14:E2=I2:E3=F8:D9(F3)=E1514 D5$(F5,D8)=" F":G8=1790516 A0$="Ҟ"518 A0$(81)="Ҋ":A2$="025095163215285354"520 A6$="


































W

 '2
    :%34
    429  
 centr  |


















"522 A6$(101)="















Q

":B5$="":A6$(66,66)=CHR$(34):A7$="010810102114"524 B8$="RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR|        3+!3/7!> %+2!.  4.	        |"526 B8$(81)="RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
":C4$="        $ /$#:945 : 4!<-9        "528 C4$(H9,H9)=CHR$(34)530 A8$="   :%34!7 
      +/,/2     /$#)%    ":B0$="031218072808"532 B1$="    +/,/2     /$#)%     '2_4/     ":B2$="040714082510"534 B3$=" 3#2/,,
n  4#:! ,)4
n  4#:! 4/
n ":B4$="011112142613"536 C0$="    :!0)3    /$#:94    7%29&)+!#*!    ":C1$="040713082313"538 B7$="  maLe 	   !
A  $5=% 	  
  #
C  %
E  ,
L  .
N  
  
  
 
   /
O  3
S  :
Z  8
X "540 B7$(102)=" ^
<  _
>  
; 
= "542 POKE 82,E7:CLOSE #E1:OPEN #E1,D8,E7,"K:"544 C5$="hhhhh)ˈ `"546 C6$="hhhhh	ˈ `"548 C7$="HHH ɩȍ
ԌЎȈ
ԌЎiihhh@"550 C8$="HHHȠ؍
Ԏhhh@"552 C9$="hhhhhhh hhL\"554 D0$=" ȑ   Lb  Lb"556 D1$="h()
 	 ? ЭI`":E8=ADR(D1$):E9=1536:F1=LEN(D1$):GOSUB 498558 D3$="xh hhбЍX`"560 B9$=" X˦Y̠N.
J`     0/+% '225. ":E8=ADR(B9$):E9=1600:F1=60:GOSUB 498562 A3$(E1)=" ":A3$(254)=" ":A3$(F5)=A3$564 D4$="B B(PF  A     ":D4$(11,11)=CHR$(PEEK(88)):D4$(12,12)=CHR$(PEEK(89)):G6=1566 E8=ADR(D4$):E9=I8:F1=LEN(D4$):GOSUB 498:POKE 560,E7:POKE 561,150:RETURN 568 C2$(E1)=" ":C2$(1280)=" ":C2$(F5)=C2$:C2$(E1,F5)="VK":RETURN 570 DIM J9$(225),K0$(94)572 J9$(1)="  <>f>
 <``<   <f~`<* 88< b |fff r <ff< z<`<<  |0|  |0|  <ff~f<f`f< "574 J9$(99)=" ~`|`~  `lx``~ 0fv~nf 8<fff< >`<| ~0~ ~0~       "576 J9$(181)="   X   P      h   "578 K0$="h ˄̩ͩαˑΥ)hhhhˠAϠSȊϠBϢʽFF)͘)	ΠʽFF`"580 K1=ADR(K0$):K2=ADR(J9$):E5=USR(K1,K1,K2):POKE 756,156582 RETURN 584 J6=INT(ADR(C7$)/256):J7=ADR(C7$)-J6*256:GOTO 588586 J6=INT(ADR(C8$)/256):J7=ADR(C8$)-256*J6588 POKE 54286,127:POKE I8+D6,194:D4$(I2,I2)="":POKE 512,J7:POKE 513,J6:POKE 54286,192:RETURN 590 D4$="F F(PF@V F\A ":E8=ADR(A3$):E9=F0:F1=A1:GOSUB 498:GOSUB 566592 A3$="videograph":E8=ADR(A3$):E9=G3+D2:F1=G1:GOSUB 498594 A3$="6  #":E8=ADR(A3$):E9=G3+86:F1=H9:GOSUB 498596 A3$="!54/2 7+ #	 ":E8=ADR(A3$):E9=G3+120:F1=E4:GOSUB 498598 A3$=" 6)$%/'2!0( 6#":E8=ADR(A3$):E9=G3+231:F1=18:GOSUB 498600 A3$="        "9     ":A3$(9,9)=CHR$(34):E8=ADR(A3$):E9=G3+312:F1=15:GOSUB 498602 A3$="    -)2!'% 3/&47!2% ,4$   ":E8=ADR(A3$):E9=G3+387:F1=26:GOSUB 498604 B6$=""606 B6$(89)=""608 B6$(171)=""610 J0=234:H2=E4:E8=ADR(B6$):E9=I9:F1=254:GOSUB 498:GOSUB 488:GOSUB 584:POKE I8+D6,196:RETURN 612 IF PEEK(195)=136 THEN GOTO PEEK(186)+256*PEEK(187)614 GRAPHICS 0:? "}ERROR #";PEEK(195);" AT LINE ";PEEK(186)+256*PEEK(187):END 32761 RUN 32762 TRAP 32762:OPEN #1,8,128,"C":? #1;K3$;:CLOSE #132763 FOR K4=PEEK(130)+256*PEEK(131) TO PEEK(132)+PEEK(133)*256:POKE K4,155:NEXT K4