0 REM ZEILEN 2160 & 10050 FUER DISK AENDERN ! 90 DIM A$(44),B$(18),C$(40),P(10),N$(110):GOSUB 10000 91 FOR A=1 TO 18:READ B:B$(A,A)=CHR$(B):NEXT A 92 DATA 104,104,133,207,104,133,206,104,104,168,169,0,145,206,136,208,251,96 100 LE=3:POKE 559,0:IF PEEK(32256)=213 THEN 11000 110 FOR A=1 TO 44:READ B:A$(A,A)=CHR$(B):NEXT A 120 DATA 104,201,3,208,254,162,6,104,149,211,202,208,250,230,212,230,213,198,212,208,4,198 130 DATA 213,240,18,161,216,129,214,230,216,208,2,230,217,230,214,208,234,230,215,208,230,96 140 X=USR(ADR(A$),57344,31744,1024):X=USR(ADR(A$),57344,32768,1024):RESTORE 32000 150 READ A:IF A=-1 THEN 170 160 FOR B=0 TO 7:READ C:POKE 31744+A*8+B,C:POKE 32768+A*8+B,C:NEXT B:GOTO 150 170 FOR A=33 TO 58:FOR B=0 TO 7:READ C:POKE 31744+A*8+B,C:POKE 32768+A*8+B,C:NEXT B:NEXT A 180 FOR A=16 TO 25:FOR B=0 TO 7:READ C:POKE 31744+A*8+B,C:POKE 32768+A*8+B,C:NEXT B:NEXT A 190 FOR A=2 TO 5:RESTORE 32700:FOR B=0 TO 7:READ C:POKE 31744+A*8+B,C:NEXT B:NEXT A 200 RESTORE 20000:FOR A=29000 TO 30384:READ B:POKE A,B:NEXT A:GOTO 11000 900 RESTORE 20670:FOR A=30273 TO 30384:READ B:POKE A,B:NEXT A:FOR A=203 TO 209:POKE A,0:NEXT A 910 Q=USR(ADR(B$),33792,255):Q=USR(ADR(B$),34048,255):FOR A=104 TO 200 STEP 24:C=INT(RND(0)*9)*10:RESTORE 21000+C 920 FOR B=0 TO 7:READ D:POKE 33792+A+B,D:NEXT B:C=INT(RND(0)*10)*10:RESTORE 21000+C 930 FOR B=0 TO 7:READ D:POKE 34048+A+B,D:NEXT B:NEXT A 940 FOR A=0 TO 9:B=INT(RND(0)*16)*16+8:POKE 30359+A,B:NEXT A 950 FOR A=0 TO 4:B=(INT(RND(0)*6)+10)*16+INT(RND(0)*5)+4:POKE 30354+A,B:NEXT A 960 POKE 30294,SG:POKE 30295,SG 999 REM *** Bildschirmaufbau *** 1000 GRAPHICS 28:POKE 756,124:POKE 712,154:POKE 710,14:POKE 708,0:POKE 709,6:POKE 559,0 1010 DL=PEEK(560)+256*PEEK(561):POKE DL+6,5:POKE DL+8,5:POKE DL+28,PEEK(560):POKE DL+29,PEEK(561) 1020 POKE DL+27,65:POKE DL+9,132:POKE DL+12,132:POKE DL+15,132:POKE DL+18,132:POKE DL+21,132 1030 POKE 623,1:POKE 53277,3:POKE 54279,132:POKE 53278,0:POKE 512,213:POKE 513,116 1040 COLOR 2:PLOT 1,0:DRAWTO 12,0:PLOT 26,0:DRAWTO 38,0:PLOT 16,2:DRAWTO 22,2 1050 COLOR 5:PLOT 1,2:DRAWTO 12,2:PLOT 26,2:DRAWTO 38,2:PLOT 16,4:DRAWTO 22,4 1060 COLOR 3:PLOT 0,1:PLOT 25,1:PLOT 15,3:COLOR 4:PLOT 13,1:PLOT 39,1:PLOT 23,3 1070 COLOR 8:PLOT 16,3:DRAWTO 22,3:PLOT 7,1:PLOT 31,1:DRAWTO 38,1:COLOR 0:PLOT 0,0:PLOT 25,0:PLOT 15,2 1080 COLOR 1:PLOT 13,0:PLOT 39,0:PLOT 23,2:COLOR 6:PLOT 0,2:PLOT 25,2:PLOT 15,4 1090 COLOR 7:PLOT 13,2:PLOT 39,2:PLOT 23,4 1100 POSITION 1,1:? #6;"SCORE000000":POSITION 26,1:? #6;"FALLS"; 1110 COLOR 60:PLOT 32,1:DRAWTO 31+LE,1:POSITION 18,3:? #6;"120":PI=0 1120 FOR A=8 TO 17 STEP 3:COLOR 61:PLOT 0,A:DRAWTO 39,A:COLOR 62:PLOT 0,A+1:DRAWTO 39,A+1:FOR B=1 TO 2+(A/2<>INT(A/2)) 1130 C=INT(RND(0)*20)*2+1:TRAP 1130:FOR D=-4 TO 4:LOCATE C+D,A,Z:IF Z<>161 THEN NEXT D:GOTO 1150 1140 POP :GOTO 1130 1150 COLOR 161:PLOT C,A:PLOT C,A+1:PI=PI+2:NEXT B:NEXT A:TRAP 40000 1160 COLOR 61:PLOT 0,5:DRAWTO 39,5:PLOT 0,20:DRAWTO 39,20:COLOR 62:PLOT 0,6:DRAWTO 39,6:PLOT 0,21:DRAWTO 39,21 1170 COLOR 32:PLOT 19,5:PLOT 19,6:COLOR 59:PLOT 19,5 1180 COLOR 161:FOR A=7 TO 19 STEP 3:PLOT 0,A:DRAWTO 39,A:PI=PI+40:NEXT A 1190 FOR A=0 TO 9:B=INT(RND(0)*255):POKE 30344+A,B:NEXT A 1200 FOR A=0 TO 3 STEP 3:POKE 30379+A,1:POKE 30380+A,2:POKE 30381+A,0:NEXT A 1210 POKE 29968,40:POKE 29963,8:POKE 30298,PI:POKE 559,62:Q=USR(29000):POKE 77,0:POKE 536,0:SOUND 0,0,0,0 1220 ON PEEK(207) GOTO 2000,3000 1999 REM *** Game over *** 2000 COLOR 32:PLOT 19,5:POKE 29968,254:POKE 29963,142:COLOR 8:PLOT 13,10:DRAWTO 25,10:PLOT 13,13:DRAWTO 25,13 2010 POSITION 15,10:? #6;"GAMEOVER":POSITION 14,13:? #6;"PRESSSTART":POKE 77,0 2020 IF PEEK(53279)<>6 THEN 2020 2030 B=1:SC=0:FOR A=0 TO 5:SC=SC+B*PEEK(30307+A):B=B*10:NEXT A 2040 GRAPHICS 28:POKE 712,10:POKE 710,170:POKE 708,160:POKE 709,196:POKE 711,10:POKE 756,124:GOSUB 4000 2060 POSITION 14,0:? #6;"ÊÁÃËÓ ÔÏÐ ±°":COLOR 133:PLOT 14,1:DRAWTO 25,1 2070 COLOR 0:PLOT 6,3:COLOR 1:PLOT 34,3:COLOR 6:PLOT 6,23:COLOR 7:PLOT 34,23 2080 COLOR 2:PLOT 7,3:DRAWTO 33,3:COLOR 3:PLOT 6,4:DRAWTO 6,22:COLOR 4:PLOT 34,4:DRAWTO 34,22 2090 COLOR 5:PLOT 7,23:DRAWTO 33,23:COLOR 8:FOR A=4 TO 22:PLOT 7,A:DRAWTO 33,A:NEXT A 2100 FOR A=1 TO 10:POSITION 10-LEN(STR$(A)),2*A+2:? #6;A;"@":IF SC>=P(A) AND SC<>-1 THEN 2200 2110 POSITION 12,2*A+2:? #6;N$(A*10-9,A*10) 2120 POSITION 33-LEN(STR$(P(A))),2*A+2:? #6;P(A):NEXT A 2125 TRAP 2125:CLOSE #1:POKE 764,255 2130 IF PEEK(53279)=6 THEN LE=3:POKE 559,0:TRAP 40000:GOTO 900 2140 IF PEEK(53279)=5 THEN TRAP 40000:GOTO 11000 2150 A=PEEK(764):IF A<>62 THEN 2130 2160 OPEN #1,8,0,"D:JACKDIG.HI":? #1,N$ 2170 FOR A=1 TO 10:? #1,P(A):NEXT A:CLOSE #1:POKE 764,255:GOTO 2130 2200 POSITION 33-LEN(STR$(SC)),2*A+2:? #6;SC:COLOR 5:PLOT 12,2*A+2:DRAWTO 21,2*A+2 2210 FOR B=10 TO A+1 STEP -1:P(B)=P(B-1):N$(B*10-9,B*10)=N$((B-1)*10-9,(B-1)*10):NEXT B:P(A)=SC 2220 OPEN #2,4,0,"K:":D=0:FOR C=0 TO 9:N$(A*10-9+C,A*10-9+C)=CHR$(8):NEXT C 2230 POKE 764,255:GET #2,C:IF C=32 THEN C=8 2240 IF C=155 THEN CLOSE #2:SC=-1:NEXT A:GOTO 2130 2250 IF C=126 AND D>0 THEN POSITION 11+D,2*A+2:? #6;CHR$(5):N$(A*10-10+D,A*10-10+D)=CHR$(8):D=D-1*(D>0):GOTO 2230 2260 D=D+1*(D<10):POSITION 11+D,2*A+2:? #6;CHR$(C):N$(A*10-10+D,A*10-10+D)=CHR$(C):GOTO 2230 2999 REM *** Naechstes Bild *** 3000 GOSUB 4000:GRAPHICS 18:POKE 712,248:POKE 708,242:POKE 709,254 3010 POSITION 7,3:? #6;"spitze";CHR$(1):FOR A=0 TO 15 STEP 0.1:SOUND 0,100,12,A:SOUND 1,101,12,A:NEXT A 3020 FOR A=15 TO 0 STEP -0.1:SOUND 0,100,12,A:SOUND 1,101,12,A:NEXT A 3030 ? #6:? #6:? #6;" DOCH NICHT":? #6:? #6;" GUT GENUG..." 3040 LV=PEEK(30294):LV=LV-1*(LV>14):LE=PEEK(30297):RESTORE 20670:FOR A=203 TO 209:POKE A,0:NEXT A 3050 FOR A=30273 TO 30306:READ B:POKE A,B:NEXT A:FOR A=1 TO 500:NEXT A:POKE 30297,LE:POKE 30294,LV 3060 FOR A=30369 TO 30378:POKE A,0:NEXT A 3070 ? #6;"}":FOR A=0 TO 240 STEP 10:SOUND 0,A,10,15:NEXT A:SOUND 0,0,0,0:POKE 77,0:GOTO 1000 4000 POKE 54286,64:POKE 53248,0:POKE 53249,0:RETURN 9999 REM *** Highscoreliste *** 10000 GRAPHICS 0:POKE 82,0:POKE 709,0:POKE 710,218:POKE 712,212:POKE 752,1:? "}"; 10010 ? "Soll die Highscore-Liste geladen werden?":? "Gebe -J- oder -N- ein..." 10020 A=PEEK(764):IF A=255 THEN 10020 10030 IF A=35 THEN FOR A=1 TO 10:P(A)=0:NEXT A:N$(1)="":N$(110)="":N$(2)=N$:RETURN 10040 IF A<>1 THEN 10020 10050 TRAP 10070:OPEN #1,4,0,"D:JACKDIG.HI":INPUT #1,N$:N$=N$(11,110) 10060 FOR A=1 TO 10:INPUT #1,B:P(A)=B:NEXT A:CLOSE #1:RETURN 10070 IF PEEK(195)=170 THEN ? :? "Auf dieser Diskette ist keine Liste!":GOTO 10090 10080 ? :? "ERROR - ";PEEK(195) 10090 ? :? "Druecke eine Taste...":POKE 764,255:CLOSE #1 10100 IF PEEK(764)=255 THEN 10100 10110 GOTO 10000 10999 REM *** Vorspann *** 11000 GRAPHICS 28:POKE 712,10:POKE 711,12:POKE 710,10:POKE 709,2:POKE 708,246:POKE 53248,0:POKE 53249,0:SG=1 11010 POKE 756,124:RESTORE 11500:DL=PEEK(560)+256*PEEK(561):POKE DL+12,5:POKE DL+23,2 11020 FOR A=1 TO 5:READ D,C$,Y:FOR B=1 TO 39:COLOR 34:PLOT B,Y:COLOR 38:PLOT B-1,Y 11030 POKE 756,128*(PEEK(756)=124)+124*(PEEK(756)=128):FOR D=0 TO 10 STEP 2:SOUND 0,0,0,D:NEXT D:SOUND 0,0,0,0 11040 NEXT B:FOR B=39 TO 1 STEP -1:POSITION B,Y:? #6;C$(B+1,B+1):COLOR 59:PLOT B-1,Y 11050 SOUND 0,PEEK(53770),10,6:NEXT B:SOUND 0,0,0,0:POSITION 0,Y:? #6;C$(1,1):NEXT A 11060 IF PEEK(53279)=6 THEN 11100 11070 IF PEEK(53279)<>5 THEN 11060 11080 SG=SG+1:IF SG=5 THEN SG=1 11090 POSITION 27,12:? #6;SG:FOR A=15 TO 0 STEP -0.5:SOUND 0,100,12,A:SOUND 0,0,0,0:NEXT A:GOTO 11060 11100 ? #6;"}":POSITION 10,9:? #6;"JUST A MOMENT PLEASE":SG=35-SG*5:GOTO 900 11500 DATA 0, JAY GAMES PRESENTS ,3 11510 DATA 0,ˆˆˆˆˆˆˆˆˆˆˆˆÊÁÃˈÔÈňÄÉÇÇÅÒˆˆˆˆˆˆˆˆˆˆˆˆˆ,7 11520 DATA 0, SELECT LEVEL : 1 ,12 11530 DATA 0, THEN PRESS START ,14 11540 DATA 0, COPYRIGHT FEBRUARY 1986 BY  JENS BERKE ,18 19999 REM *** Maschinensprache - Unterroutine *** 20000 DATA 104,169,173,141,38,2,169,117,141,39,2,169,0,141,25,2,169,50,141,24,2 20010 DATA 173,11,212,201,110,208,249,169,192,141,14,212,173,78,118,133,203,173 20020 DATA 79,118,133,204,160,0,173,132,2,208,11,32,115,115,169,30,141,83,118 20030 DATA 76,214,114,169,0,141,1,210,173,120,2,133,207,201,15,208,3,76,214,114 20040 DATA 201,14,240,53,201,13,240,68,201,11,240,26,201,7,240,3,76,214,114,165 20050 DATA 203,24,105,1,144,2,230,204,133,203,169,2,141,77,118,76,242,113,165 20060 DATA 203,56,233,1,176,2,198,204,133,203,169,3,141,77,118,76,242,113,165 20070 DATA 203,56,233,40,176,2,198,204,133,203,169,4,141,77,118,76,242,113,165 20080 DATA 203,24,105,40,144,2,230,204,133,203,169,5,141,77,118,177,203,201,0 20090 DATA 208,25,169,1,141,93,118,141,1,210,141,95,118,141,0,210,169,8,141,96 20100 DATA 118,141,94,118,76,65,114,201,129,240,3,76,214,114,162,0,169,5,141,84 20110 DATA 118,32,114,116,162,0,206,90,118,169,3,141,93,118,169,106,141,95,118 20120 DATA 141,1,210,169,9,141,0,210,169,8,141,96,118,141,94,118,173,82,118,197 20130 DATA 207,240,14,56,229,207,24,105,7,168,185,113,118,72,76,94,114,56,233,7 20140 DATA 168,185,105,118,72,173,78,118,141,80,118,173,79,118,141,81,118,169,0 20150 DATA 141,97,118,173,77,118,201,4,208,10,162,1,142,98,118,206,88,118,16,20 20160 DATA 201,5,208,11,162,255,142,98,118,238,88,118,76,148,114,162,0,142,98 20170 DATA 118,160,0,145,203,173,78,118,133,205,173,79,118,133,206,104,145,205 20180 DATA 165,203,141,78,118,165,204,141,79,118,165,207,141,82,118,169,80,141 20190 DATA 83,118,173,92,118,69,1,141,92,118,240,4,169,124,208,2,169,128,141 20200 DATA 244,2,173,90,118,208,5,169,2,133,207,96,173,91,118,208,23,160,1,185 20210 DATA 4,208,106,144,3,76,102,117,106,176,9,136,16,241,141,30,208,76,93,115 20220 DATA 169,168,141,1,210,169,10,133,207,160,255,162,255,202,208,253,136,140 20230 DATA 0,210,140,23,208,208,242,198,207,208,236,160,30,162,255,202,208,253 20240 DATA 136,208,248,32,115,115,173,78,118,201,123,208,236,173,79,118,201,156 20250 DATA 208,229,141,30,208,169,232,133,203,169,155,133,204,206,89,118,172,89 20260 DATA 118,169,72,145,203,192,0,208,5,169,1,133,207,96,160,2,185,174,118 20270 DATA 153,171,118,136,16,247,169,50,141,24,2,169,0,141,91,118,172,83,118 20280 DATA 162,255,202,208,253,32,236,117,136,208,245,169,0,141,93,118,76,105 20290 DATA 113,165,203,201,123,208,7,165,204,201,156,208,1,96,173,97,118,240,82 20300 DATA 165,204,133,206,165,203,133,205,56,233,1,176,2,198,204,133,203,169,7 20310 DATA 141,82,118,32,28,116,165,203,24,105,1,144,2,230,204,133,203,169,11 20320 DATA 141,82,118,32,28,116,165,203,56,233,40,176,2,198,204,133,203,169,13 20330 DATA 141,82,118,32,28,116,165,203,24,105,40,144,2,230,204,133,203,169,14 20340 DATA 141,82,118,32,28,116,173,78,118,133,203,173,79,118,133,204,169,0,145 20350 DATA 203,173,80,118,141,78,118,133,203,173,81,118,141,79,118,133,204,177 20360 DATA 203,56,233,8,144,7,170,189,128,118,141,82,118,169,27,145,203,169,1 20370 DATA 141,97,118,173,88,118,24,109,98,118,141,88,118,169,0,141,98,118,96 20380 DATA 177,203,56,233,6,144,70,56,233,10,176,65,104,104,173,82,118,201,13 20390 DATA 208,5,206,88,118,208,7,201,14,208,3,238,88,118,177,203,56,233,8,144 20400 DATA 7,170,189,128,118,141,82,118,169,0,145,205,169,27,145,203,165,203 20410 DATA 141,78,118,165,204,141,79,118,173,10,210,141,0,210,169,168,141,1,210 20420 DATA 96,165,205,133,203,165,206,133,204,96,189,99,118,24,109,84,118,72,56 20430 DATA 233,10,144,57,104,169,0,157,99,118,224,3,208,23,172,89,118,192,6,240 20440 DATA 16,200,140,89,118,169,231,133,205,169,155,133,206,169,28,145,205,232 20450 DATA 224,6,240,8,169,1,141,84,118,76,114,116,162,5,169,0,157,99,118,202 20460 DATA 16,250,96,104,157,99,118,162,5,160,0,169,207,133,205,169,155,133,206 20470 DATA 24,189,99,118,105,16,145,205,200,202,16,245,96,72,138,72,152,72,172 20480 DATA 85,118,200,192,5,208,2,160,0,140,85,118,185,146,118,141,24,208,185 20490 DATA 151,118,141,18,208,185,156,118,141,19,208,185,136,118,141,0,208,185 20500 DATA 141,118,141,1,208,169,0,141,26,208,169,8,141,23,208,169,40,141,22 20510 DATA 208,169,152,141,25,208,141,10,212,32,37,117,104,168,104,170,104,64 20520 DATA 174,87,118,202,208,55,174,86,118,142,87,118,160,4,185,161,118,208,8 20530 DATA 190,136,118,232,138,153,136,118,185,166,118,208,8,190,141,118,202 20540 DATA 138,153,141,118,136,16,227,160,9,190,161,118,240,5,202,138,153,161 20550 DATA 118,136,16,243,174,87,118,142,87,118,96,169,0,133,207,169,2,141,93 20560 DATA 118,169,168,141,1,210,169,240,141,0,210,141,95,118,173,88,118,56,233 20570 DATA 3,144,5,230,207,76,127,117,165,207,192,1,208,3,24,105,5,168,169,0 20580 DATA 153,136,118,169,120,153,161,118,141,30,208,162,1,169,2,141,84,118,32 20590 DATA 114,116,76,93,115,72,138,72,152,72,169,42,133,208,169,156,133,209 20600 DATA 160,2,190,171,118,202,138,153,171,118,16,14,169,9,153,171,118,136,16 20610 DATA 238,238,91,118,76,230,117,160,2,185,171,118,24,105,16,145,208,136,16 20620 DATA 245,169,50,141,24,2,104,168,104,170,104,96,173,93,118,201,0,240,89 20630 DATA 201,2,240,64,174,96,118,202,142,96,118,208,76,174,94,118,142,96,118 20640 DATA 173,93,118,201,1,240,17,174,95,118,224,96,240,56,202,142,95,118,142 20650 DATA 1,210,76,76,118,174,95,118,224,10,208,8,169,0,141,1,210,76,76,118 20660 DATA 232,142,95,118,142,1,210,76,76,118,173,95,118,201,0,240,14,56,233,3 20670 DATA 141,95,118,141,0,210,169,168,141,1,210,96,0,123,156,123,156,13,0,0,4 20680 DATA 30,30,254,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,6,0,7,7,8,9,0,0,11 20690 DATA 10,0,0,0,12,13,0,0,15,14,7,7,11,11,13,14,14,13,40,50,60,70,80,100 20700 DATA 110,120,130,140,160,162,164,166,168,54,182,248,120,150,22,72,166,232 20710 DATA 12,0,0,0,0,0,0,0,0,0,0,1,2,0,1,2,0 20999 REM *** Daten fuer Player *** 21000 DATA 66,36,36,126,255,231,153,129 21010 DATA 24,126,255,189,219,126,36,219 21020 DATA 124,254,186,186,254,254,254,170 21030 DATA 36,90,36,24,24,90,165,129 21040 DATA 66,165,66,90,126,189,165,165 21050 DATA 126,219,255,153,165,165,153,66 21060 DATA 126,219,255,171,213,126,36,102 21070 DATA 238,186,238,16,16,16,68,56 21080 DATA 195,231,255,219,90,126,36,24 21090 DATA 129,219,255,90,126,255,195,126 31120 DATA -1 31999 REM *** Zeichensatzdaten *** 32000 DATA 64,213,127,125,119,119,119,119,119,65,87,252,125,221,221,221,221,221 32010 DATA 66,85,255,85,255,255,255,255,255,67,119,119,119,119,119,119,119,119 32020 DATA 68,221,221,221,221,221,221,221,221,69,255,255,255,255,255,85,255,85 32030 DATA 70,119,119,119,119,119,125,127,213,71,221,221,221,221,221,125,252,87 32040 DATA 72,255,255,255,255,255,255,255,255,1,0,0,0,48,48,0,0,0,2,21,85,84 32050 DATA 80,80,84,85,21,3,84,85,21,5,5,21,85,84,4,65,65,65,65,65,85,85,20,5 32060 DATA 20,85,85,65,65,65,65,65,6,0,0,0,170,170,0,0,0,7,32,32,32,32,32,32,32 32070 DATA 32,8,32,32,32,160,160,0,0,0,9,0,0,0,160,160,32,32,32,10,0,0,0,42,42 32080 DATA 32,32,32,11,32,32,32,42,42,0,0,0,12,32,32,32,160,160,0,0,0,13,0,0,0 32090 DATA 160,160,32,32,32,14,0,0,0,42,42,32,32,32,15,32,32,32,42,42,0,0,0,27 32100 DATA 20,85,85,85,85,85,85,20,28,250,234,235,235,215,215,213,245,29,0,252 32110 DATA 255,207,255,243,63,207,30,252,243,63,255,207,252,63,0,32,255,255,255 32120 DATA 255,255,255,251,251,-1 32200 DATA 171,171,187,187,87,87,119,119,171,171,187,175,95,119,87,87,171,171 32210 DATA 191,191,127,127,87,87,175,171,187,187,119,119,87,95,171,171,191,175 32220 DATA 95,127,87,87,171,171,191,175,95,127,127,127,171,171,191,191,119,119 32230 DATA 87,87,187,187,187,171,87,119,119,119,239,239,239,239,223,223,223,223 32240 DATA 251,251,251,251,119,119,87,87,187,187,187,175,95,119,119,119,191,191 32250 DATA 191,191,127,127,87,87,187,171,187,187,119,119,119,119,191,175,187 32260 DATA 187,119,119,119,119,171,171,187,187,119,119,87,87,171,171,187,171,87 32270 DATA 127,127,127,171,171,187,187,119,87,95,245,171,171,187,171,87,95,119 32280 DATA 119,171,171,191,171,87,247,87,87,171,171,239,239,223,223,223,223,187 32290 DATA 187,187,187,119,119,87,87,187,187,187,187,119,87,87,223,187,187,187 32300 DATA 187,119,119,87,119,187,187,187,239,223,119,119,119,187,187,187,171 32310 DATA 87,223,223,223,171,171,251,171,87,127,87,87,171,171,187,187,119,119 32320 DATA 87,87,239,175,175,239,223,223,223,223,171,171,251,171,87,127,87,87 32330 DATA 171,171,251,235,215,247,87,87,191,187,187,171,87,247,247,247,171,171 32340 DATA 191,191,87,247,87,87,171,171,191,171,87,119,87,87,171,171,251,251 32350 DATA 247,247,247,247,171,171,187,171,87,119,87,87,171,171,187,171,87,247,87,87 32700 DATA 20,85,85,85,85,85,85,20