10 C=1:T=49152:GOTO1000
20 SW=W
30 SYS49391(SW,C*255,W,D,X,Y,L,H,0,0,T):RETURN
50 A=FRE(0):WAIT198,1:GETA$:POKE198,0:RETURN
100 L=141-INT(COS(9*(null)/6+(null)/2)*6+.9):H=28-INT(SIN(9*(null)/6+(null)/2)*8+.9)
105 SYS49391(141,L,28,H,0,0,170,9,0,0,50317)
110 L=141-INT(COS(0*(null)/6+(null)/2)*11+.9):H=28-INT(SIN(0*(null)/6+(null)/2)*15+.9)
130 SYS49391(141,L,28,H,0,0,170,9,0,0,50317):RETURN
300 GOSUB450:GOSUB480:W=9:D=7:X=31:Y=0:L=Y:H=64:GOSUB20:GOSUB100:W=1:D=3
305 L=240:H=94:Y=1:A=16-INT(PEEK(8188)/2):FORX=ATOA+6+PEEK(8188):GOSUB20
310 NEXT:W=PEEK(8188):D=1:X=A+3:Y=2:L=20:H=154:G=0:GOSUB20
320 FORJ=9TO0STEP-1:A=10:GOSUB370:IFX=9ORX=21THENW=1:L=248:X=X+3:GOSUB20:X=X-3
330 NEXT:RETURN
370 Y=10:W=3:D=2:L=20324+60*A:X=37-4*J:GOTO900
380 POKE54273,15:POKE54276,33:A=10:C=0:GOSUB370:POKE54276,0:C=1:GOSUB370
450 W=11:D=11:X=0:Y=14:L=50:H=69:GOSUB20
460 W=11:D=11:X=0:Y=14:L=50:H=69:T=49908:GOSUB20:SW=11:W=1:T=49152:D=10
470 FORX=11TO28:GOSUB30:NEXT:W=11:D=11:GOSUB20:T=49908:GOSUB20:T=49152:RETURN
480 W=10:D=7:X=0:Y=13:L=118:H=66:GOTO20
600 W=21:D=19:X=18:Y=2:L=180:H=94:GOTO20
650 GOSUB700:W=15:D=21:X=1:Y=2:L=22:H=82:GOSUB20:W=6-INT(PEEK(8188)/2):D=1:X=2
655 Y=0:L=240:H=94:GOSUB20:X=X+W:W=W+PEEK(8188):L=20:H=154:GOSUB20
660 W=2:D=4:X=16:Y=7:L=100:H=94:GOSUB20:GOTO600
700 SYS49744:PRINT"[147]":POKE53281,3:POKE53280,3:RETURN
750 X=24:Y=5
760 W=13:D=1:L=126:H=153:GOSUB20:L=234:H=144:X=X+PEEK(8187):W=1:GOTO20
800 POKE198,0
810 GOSUB50:IFA$<>" "THEN810
820 RETURN
900 GOSUB910:GOTO20
910 H=INT(L/256):L=L-H*256:RETURN
990 FORDD=1TOZ*100:NEXT:RETURN
1000 F$="PIC1":SL=234:SH=110:GOSUB9900:DIMA$(4)
1005 FORK=54272TO54295:POKEK,0:NEXT:POKE54277,25:POKE54278,150:POKE54272,193
1030 POKE54296,10:SYS49799:PRINT"[147]":SYS49744:POKE53281,14:POKE53280,6
1040 W=1:D=20:Y=3:L=234:H=110:FORX=3TO36:GOSUB20:NEXT:IFPEEK(8189)=0THEN8000
1050 W=31:D=5:X=4:Y=4:L=250:H=124:GOSUB20:W=1:D=1:FORY=11TO19STEP2:X=6
1060 L=34904+INT(Y/2)*10:GOSUB900:X=7:L=226:H=123:GOSUB20:NEXT
1070 W=40:D=1:X=0:Y=24:L=8:H=131:GOSUB20:FORK=0TO4:X1=10:Y1=11+K*2:A$(K)=""
1080 GOSUB1500:NEXT:W=40:D=1:X=0:Y=24:C=0:GOSUB20:C=1:W=30:X=5:L=84:H=135
1090 GOSUB20:POKE198,0
1100 WAIT198,1:GETA$:IFA$<>CHR$(13)THEN1100
1110 OPEN2,8,1,"@0:NO":FORK=0TO4:PRINT#2,A$(K):NEXT:CLOSE2:GOTO8000
1400 SYS49391(1,255,1,1,X1,Y1,228,136,0,0,49152):RETURN
1500 POKE198,0:GOSUB1400
1510 WAIT198,1:GETA$:POKE198,0:IFA$=""THEN1510
1520 IFA$="_"THEN1557
1530 IFA$=CHR$(13)THEN1560
1540 A=ASC(A$)-48:IFA<0ORA>9THEN1510
1550 A$(K)=A$(K)+MID$(STR$(A),2,1)
1555 L=34944+10*A:W=1:D=1:X=X1:Y=Y1:GOSUB900:X1=X1+2+(X1=34)*2:GOSUB1400
1556 GOTO1510
1557 W=1:D=1:L=234:H=110:X=X1:Y=Y1:GOSUB20:X1=X1-2-2*(X1=10)
1558 A$(K)=MID$(A$(K),1,(X-9)/2):GOSUB1400:GOTO1510
1560 X=X1:Y=Y1:IFX1>17ANDX1<31THENW=1:D=1:L=234:H=110:GOSUB20:RETURN
1570 POKE198,0:L=152:H=132:IFX>30THENL=238:H=136
1580 W=40:D=2:X=0:Y=23:C=0:GOSUB20:C=1:W=35:D=2:X=3:GOSUB20
1590 WAIT198,1:GETA$:POKE198,0:IFA$<>CHR$(13)THEN1590
1600 W=40:D=2:X=0:Y=23:C=0:GOSUB20:C=1:W=40:D=1:X=0:Y=24:L=8:H=131:GOSUB20
1610 GOTO1510
2000 END
8000 W=C:D=20:Y=3:L=234:H=110:FORX=3TO36:GOSUB20:NEXT:W=22:D=4:X=9:Y=D:L=198
8030 H=111:GOSUB20:W=5:X=D:D=C:Y=9:L=54:H=115:GOSUB20
8035 W=40:D=2:X=0:Y=23:L=8:H=131:C=0:GOSUB20:C=1:D=1:Y=24:GOSUB20
8040 W=17:D=2:X=10:Y=11:L=104:H=115:GOSUB20:Y=9:W=1:D=1:R=10:U=12:P=172:Q=117
8050 LL=12:I=126:J=153:GOSUB9000:POKE8187,X9:IFG=0THEN8040
8060 W=1:Y=11:H=110:FORX=10TO27:GOSUB20:NEXT:W=8:D=1:X=4:Y=12:L=46:H=118:GOSUB20
8170 W=23:D=2:Y=14:X=13:L=126:H=118:GOSUB20:W=1:D=W:Y=12:R=X:U=6:P=74:Q=120
8180 LL=12:I=20:J=154:GOSUB9000:POKE8188,X9:IFG=0THEN8170
8400 W=1:D=2:Y=14:L=234:H=110:FORX=12TO35:GOSUB20:NEXT:W=20:D=1:X=11:Y=17:L=134
8410 H=120:GOSUB20:W=14:D=2:X=13:Y=19:L=78:H=121:GOSUB20:POKE198,0
8420 GOSUB50:IFA$<>"Y"ANDA$<>"N"THEN8420
8430 POKE54296,-15*(A$="Y"):W=23:D=1:X=9:Y=17:L=102:H=122:GOSUB20:POKE198,0
8440 GOSUB50:IFA$="N"THEN8530
8450 IFA$<>"Y"THEN8440
8455 F$="PIC2":SL=234:SH=110:GOSUB9900
8460 GOSUB650
8470 W=21:D=9:X=18:Y=5:L=66:H=113:GOSUB20
8500 W=15:D=1:X=21:Y=23:L=84:H=110:GOSUB20:GOSUB750:GOSUB800:GOSUB700:GOSUB300
8510 W=25:D=8:X=11:Y=14:L=118:H=121:GOSUB20:W=15:D=1:X=12:Y=24:L=84:H=110
8515 GOSUB20:GOSUB800:GOSUB460:W=25:D=8:X=11:Y=14:L=70:H=129:GOSUB20
8520 GOSUB800:GOSUB460:W=25:D=8:X=11:Y=14:L=22:H=137:GOSUB20:GOSUB800
8530 GOTO10000
9000 G=1:POKE198,0:X1=X:Y1=Y:X9=X1
9010 GOSUB1400:GOSUB50:IFA$=""THEN9010
9020 IFA$=CHR$(13)THENX9=X-X9+1:GOTO9100
9030 IFA$=" "THENL=234:H=110:GOTO9090
9035 IFA$="_"THENL=234:H=110:W=1:D=1:X=X1:Y=Y1:GOSUB20:X1=X1-1-(X1=R):GOTO9010
9040 IFA$=","THENL=74:H=110:GOTO9090
9050 H=123:L=226:IFA$="."THEN9090
9060 IFA$="-"THENL=L+10:GOTO9090
9070 IFA$<"A"ORA$>"Z"THEN9010
9080 L=31084+ASC(A$)*10:GOSUB910
9090 X=X1:Y=Y1:GOSUB20:X1=X1+1+(X1=35):GOTO9010
9100 L=234:H=110:W=1:D=1:X=X1:Y=Y1:GOSUB20:IFX1=RTHENW=U:L=P:H=Q:X9=W:GOSUB20
9110 D=2:L=234:IFX1<R+LL+1THENSYS49391(15,255,15,1,R,Y,I,J,0,0,49328):RETURN
9120 Y1=Y1+2:Y=Y1:H=110:FORX=RTO36:GOSUB20:NEXT:W=24:D=1:X=R:L=188:H=116:GOSUB20
9130 Z=30:GOSUB990:W=1:D=3:Y=Y-2:L=234:H=110:FORX=RTO36:GOSUB20:NEXT:G=0:RETURN
9900 POKE251,LEN(F$):POKE252,SL:POKE253,SH:FORI=1TOLEN(F$)
9910 POKE678+I,ASC(MID$(F$,I,1)):NEXT:SYS49709:RETURN
10000 SYS49799:PRINT"[147]":POKE53281,14:POKE53280,14
10010 PRINT"[147]            PROGRAM LOADING[154]"
10020 PRINT"";:FORI=1104TO1121:READA:POKE54272+I,14:POKEI,A:NEXT
10030 FORI=1304TO1306:READA:POKE54272+I,14:POKEI,A:NEXT
10040 POKE198,2:POKE631,13:POKE632,13:NEW:END
10050 DATA12,15,1,4,34,7,1,13,5,50,7,1,13,5,50,34,44,56
10060 DATA18,21,14