20 U=62034
30 X=U+2:N=58300:IFPEEK(U)<192THEN70
40 GOSUB400:GOSUB460
50 IFX=U+10THEN T=PEEK(U+2)*256+PEEK(U+1):GOTO90
60 IFPEEK(X)=PEEK(N)THEN40
70 U=U+11:IFU>62629THEN330
80 GOTO30
90 N=T:P=1:M=49
100 CALL20301:GOSUB420:W=0:POKE64799,0
110 A=PEEK(N):IFA=32THENX=X+4:GOSUB460:B=N:GOTO240
120 B=0:IFA=13THENA=32:GOTO470
130 IFX>PEEK(58309)THENGOSUB410
140 IFW>122THEN 270
150 IFA=9THENX=(X\28)*28+28
160 IFA>126THENA=126
170 IFA=26THENA=127:GOSUB340:GOTO270
180 GOSUB460:IFA<33THEN110
190 GOSUB340
200 B=N
210 IFA=45 THEN 240
220 IF(B-N)*4+X-1>PEEK(58309)THEN IF X THENGOSUB410
230 GOTO110
240 IF PEEK(B)<33 THEN220
250 IF PEEK(B)=45 THEN220
260 B=B+1:GOTO240
270 CALL35587:B=PEEK(64799):IF B THEN290
280 GOTO270
290 IFB=30THEN90
300 IFB=77THEN330
310 IFB=69THENPOKE64799,0:CALL29085
320 IFA<127THEN N=D:GOTO100
330 POKE64799,0:CALL26532
340 R=58000
350 B=PEEK(R+(A-32)*3):R=R+1
360 C=1:Y=W
370 IFC ANDB THENPSET(X,Y)
380 Y=Y+1:IFC<B THENC=C+C:GOTO370
390 B=0:GOSUB400:IFR<58003THEN350
400 X=X+1:RETURN
410 W=W+6
420 X=0
430 IFW<122THEN IFP>PEEK(58300)THENGOTO490
440 IFW<118THENP=P+1:D=N
450 RETURN
460 N=N+1:RETURN
470 IFX>238THENX=239
480 GOSUB340:GOSUB460:GOSUB410:GOTO110
490 J=A:A=45
500 GOSUB340:IFX+4<PEEK(58309) THEN 500
510 IF M=58 THEN M=48
520 A=M:GOSUB340:A=J
530 IFW<117THENP=1:M=M+1
540 GOTO410
1000 CLEAR256,58000
1005 FORX=58000 TO 58287
1010 READ D:POKEX,D
1015 NEXT
1020 SAVEM"Vdata",58000,58287
1032 DATA 4,0,0
1033 DATA 0,23,0
1034 DATA 3,0,3
1035 DATA 10,27,10
1036 DATA 16,55,26
1037 DATA 25,4,19
1038 DATA 10,21,26
1039 DATA 2,1,0
1040 DATA 14,17,0
1041 DATA 0,17,14
1042 DATA 21,14,21
1043 DATA 4,14,4
1044 DATA 16,12,0
1045 DATA 4,4,4
1046 DATA 0,16,0
1047 DATA 24,4,3
1048 DATA 14,17,14
1049 DATA 18,31,16
1050 DATA 25,21,18
1051 DATA 17,21,10
1052 DATA 6,4,31
1053 DATA 23,21,9
1054 DATA 14,21,8
1055 DATA 1,29,3
1056 DATA 31,21,31
1057 DATA 2,21,14
1058 DATA 0,10,0
1059 DATA 16,10,0
1060 DATA 4,10,17
1061 DATA 10,10,10
1062 DATA 17,10,4
1063 DATA 1,21,2
1064 DATA 8,21,30
1065 DATA 30,5,30
1066 DATA 31,21,10
1067 DATA 14,17,10
1068 DATA 31,17,14
1069 DATA 31,21,17
1070 DATA 31,5,1
1071 DATA 14,17,25
1072 DATA 31,4,31
1073 DATA 17,31,17
1074 DATA 8,16,15
1075 DATA 31,4,27
1076 DATA 31,16,16
1077 DATA 31,6,31
1078 DATA 31,1,31
1079 DATA 31,17,31
1080 DATA 31,9,6
1081 DATA 14,17,30
1082 DATA 31,9,22
1083 DATA 18,21,9
1084 DATA 1,31,1
1085 DATA 31,16,31
1086 DATA 15,16,15
1087 DATA 31,12,31
1088 DATA 27,4,27
1089 DATA 3,28,3
1090 DATA 25,21,19
1091 DATA 31,17,0
1092 DATA 3,4,24
1093 DATA 0,17,31
1094 DATA 2,1,2
1095 DATA 16,16,16
1096 DATA 1,2,0
1097 DATA 12,18,30
1098 DATA 31,18,12
1099 DATA 12,18,18
1100 DATA 12,18,31
1101 DATA 12,26,20
1102 DATA 30,9,2
1103 DATA 36,42,28
1104 DATA 31,2,28
1105 DATA 0,29,0
1106 DATA 32,29,0
1107 DATA 31,8,20
1108 DATA 0,31,0
1109 DATA 30,4,30
1110 DATA 30,2,28
1111 DATA 12,18,12
1112 DATA 62,18,12
1113 DATA 12,18,60
1114 DATA 30,2,4
1115 DATA 16,22,26
1116 DATA 2,31,2
1117 DATA 30,16,30
1118 DATA 14,16,14
1119 DATA 30,8,30
1120 DATA 18,12,18
1121 DATA 38,40,30
1122 DATA 26,22,18
1123 DATA 4,27,17
1124 DATA 0,27,0
1125 DATA 17,27,4
1126 DATA 21,10,21
1127 DATA 4,14,21