----------------------------------------- This is basic program of game "PUTUP" on Msx(1), 1987 PUTUP.BAS saved as SAVE"PUTUP.TXT",A Modified line 840 Disabled LIVES-- and Game Over after ----------------------------------------- 100 CLEAR1000,&HD8FF:KEYOFF:SCREEN1,2,0:COLOR 2,1,1:WIDTH 32:DEFINTA-Y 110 GOSUB2200:GOSUB1960:HS=2000 120 DIMFR(5),M(2),MX(2),MY(2):FR(1)=1:FR(2)=3:FR(3)=5:FR(4)=8:BN=RND(-TIME) 130 SC=0:RO=0:RE=100:K1=0:K2=1:SS=2000:P1=1:P2=2:RESTORE1360 140 CLS:LOCATE0,23 150 PRINT" ››››››››››››››››››››››››" 160 PRINT" ››››››››››››››››››››››› ›" 170 PRINT" UUUU › ›› › ›› ›› › ›› ›" 180 PRINT" ››› ›› › ›› ›› › ›››" 190 PRINT" ›› ›› ›› ›› ››" 200 FOR I=1TO10:LOCATE0,23:PRINT:NEXT 210 LOCATE8,17:PRINT"PUSH SPACE KEY":LOCATE2,20:PRINT"MSX MAGAZINE & NEMOSOFT,1987" 220 LOCATE10,2:PRINTUSING"HI #####0";HS 230 IFSTRIG(0)ORSTRIG(1)THEN1270ELSE230 235 LOCATE21-T\20,23:PRINT" ";:RETURN 240 ' 250 IFSTRIG(0)ORSTRIG(1)THENONJUGOTO710,760 260 Y=Y+1:V=6144+X+Y*32:Z=0:Z=Z-(VPEEK(V+32)>&H76):Z=Z-(VPEEK(V+33)>&H76) 270 IFZTHENY=Y-1:JU=1:PW=0ELSEJU=0 280 A=STICK(0)ORSTICK(1) 290 ONAGOTO300,300,450,450,520,490,490,300 300 C3=3 310 PUTSPRITE0,(X*8,Y*8-1),15,RL*6+C3*2-1:PUTSPRITE1,(X*8,Y*8-1),14,RL*6+C3*2 320 POKE&HDA00,117:G$(P1)=USR2(G$(P1)) 330 V=6144+X+Y*32:Z=0:Z=Z-(VPEEK(V)>&H74):Z=Z-(VPEEK(V+1)>&H74):Z=Z-(VPEEK(V+32)>&H74):Z=Z-(VPEEK(V+33)>&H74) 340 IFZTHEN790 350 T=T+1:IFTMOD20=0THENGOSUB235:ONT\280GOTO690 360 Z=VPEEK(V+32):IFZ<&H6ETHENRETURN 370 PLAY"T255O5V10C+32V8D32":ONZ-&H6DGOTO390,390,390,390,400,410,420 380 FORI=1TO2:ONM(I)GOSUB890,930,970,1010,1050,1090,1130,1170,1210,1240:GOSUB240:NEXT:SWAPP1,P2:GOTO380 390 SC=SC+FR(Z-&H6D)*10:GOSUB630:LOCATEX,Y:PRINTA$(1):GOTO240 400 SC=SC+100:CL=CL+1:LOCATE23+2*CL,23:PRINT"rm";:GOSUB630:LOCATEX,Y:PRINTA$(1):GOTO240 410 RE=RE+1:GOSUB640:LOCATEX,Y:PRINTA$(1):GOTO240 420 PUTSPRITE0,(X*8,Y*8),15,13 430 PUTSPRITE1,(X*8,Y*8),14,14 433 IFPLAY(0)THEN433 435 T=T+1:IFTMOD20=0THENPLAY"O6V9C32","O5V7C32":GOSUB235:SC=SC+10:GOSUB630:ONT\280GOTO1270 440 GOTO435 450 X=X+1:RL=0:V=6144+X+Y*32:Z=0:Z=Z-(VPEEK(V+1)>&H76):Z=Z-(VPEEK(V+33)>&H76) 460 IFZTHENX=X-1 470 SWAPK1,K2:ONK1GOTO300 480 C3=P1:GOTO310 490 X=X-1:RL=1:V=6144+X+Y*32:Z=0:Z=Z-(VPEEK(V)>&H76):Z=Z-(VPEEK(V+32)>&H76) 500 IFZTHENX=X+1 510 GOTO470 520 V=6144+X+Y*32 530 IFVPEEK(V+64)=&H7ETHEN590 540 IFVPEEK(V+64)=&H7DTHEN620 550 ONCLGOTO560,560:GOTO300 560 IFVPEEK(V+64)<>&H79THEN300 570 PLAY"S1M2000T150O7C32":LOCATEX,Y+2:PRINT"{|":CL=CL-1:LOCATE25+2*CL,23:PRINT" ";:K=K+1:IFKSS-1THENRE=RE+1:GOSUB640:SS=SS+2000:RETURNELSERETURN 640 PLAY"T250O5V12D32V9E32V6E32" 650 IFRE>6THENRR=6ELSERR=RE 660 LOCATE25,22:PRINTSTRING$(RR,CHR$(&H8A)):RETURN 670 LOCATE15,22:PRINTUSING"ROUND ##";RO:PRINT" TIME ";STRING$(NT,"›"); 680 RETURN 690 T=120:NT=7:GOSUB670:BN=INT(RND(1)*4)+10:LOCATEMX(1),MY(1):PRINTA$(BN):LOCATEMX(2),MY(2):PRINTA$(BN):MX(1)=X:MY(1)=35:LOCATE10,0:PRINT" HURRY UP ! " 700 PLAY"M600T180S8O7C2","M600T180S8O5C2":M(1)=9:M(2)=10:GOTO360 710 Y=Y-1:V=6144+X+Y*32:Z=0 720 Z=Z-(VPEEK(V)>&H76):Z=Z-(VPEEK(V+1)>&H76) 730 IFZTHENJU=0:PW=0:Y=Y+1:GOTO280 740 PW=PW+1:IFPW>3THENPW=0:JU=2 750 GOTO280 760 PW=PW+1:IFPW>2THENPW=0:JU=0 770 GOTO280 780 FORI=0TO4:PUTSPRITEI,(0,0),0:NEXT:RETURN 790 PLAY"T250O5V11D16","T250O4V9D16" 800 I=Y*8-36:Z=X*8 810 FORJ=-4TO30:FORA=0TO50:NEXTA 820 PUTSPRITE0,(Z,I+J^2),15,13:PUTSPRITE1,(Z,I+J^2),14,14 830 IFI+J^2<200THENNEXT 840 GOSUB780:CL=0:'rem Lives Forever RE=RE-1:IFRE<0THEN860 850 GOTO1290 860 CLS:LOCATE10,10:PRINT"λοξεγ ιηςω" 870 IFSC>HSTHENHS=SC 880 FORI=1TO4000:NEXTI:GOTO130 890 MX(I)=MX(I)+1:V=6144+MX(I)+MY(I)*32 900 Z=0:Z=Z-(VPEEK(V+1)<>&H20):Z=Z-(VPEEK(V+33)<>&H20) 910 IFZTHENMX(I)=MX(I)-1:M(I)=2:RETURN 920 LOCATEMX(I)-1,MY(I):PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(20):RETURN 930 MX(I)=MX(I)-1:V=6144+MX(I)+MY(I)*32 940 Z=0:Z=Z-(VPEEK(V)<>&H20):Z=Z-(VPEEK(V+32)<>&H20) 950 IFZTHENMX(I)=MX(I)+1:M(I)=1:RETURN 960 LOCATEMX(I)+1,MY(I):PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(19):RETURN 970 MY(I)=MY(I)-1:V=6144+MX(I)+MY(I)*32 980 Z=0:Z=Z-(VPEEK(V)<>&H20):Z=Z-(VPEEK(V+1)<>&H20) 990 IFZTHENMY(I)=MY(I)+1:M(I)=4:RETURN 1000 LOCATEMX(I),MY(I)+1:PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(16+P1):RETURN 1010 MY(I)=MY(I)+1:V=6144+MX(I)+MY(I)*32 1020 Z=0:Z=Z-(VPEEK(V+32)<>&H20):Z=Z-(VPEEK(V+33)<>&H20) 1030 IFZTHENMY(I)=MY(I)-1:M(I)=3:RETURN 1040 LOCATEMX(I),MY(I)-1:PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(17):RETURN 1050 MX(I)=MX(I)+1:V=6144+MX(I)+MY(I)*32 1060 Z=0:Z=Z-(VPEEK(V+1)<>&H20):Z=Z-(VPEEK(V+33)<>&H20) 1070 IFZTHENMX(I)=MX(I)-1:LOCATEMX(I),MY(I):PRINTA$(14+P1):IFY>MY(I)THENM(I)=8:RETURNELSEM(I)=7:RETURN 1080 LOCATEMX(I)-1,MY(I):PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(14+P1):RETURN 1090 MX(I)=MX(I)-1:V=6144+MX(I)+MY(I)*32 1100 Z=0:Z=Z-(VPEEK(V)<>&H20):Z=Z-(VPEEK(V+32)<>&H20) 1110 IFZTHENMX(I)=MX(I)+1:LOCATEMX(I),MY(I):PRINTA$(14+P1):IFY>MY(I)THENM(I)=8:RETURNELSEM(I)=7:RETURN 1120 LOCATEMX(I)+1,MY(I):PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(14+P1):RETURN 1130 MY(I)=MY(I)-1:V=6144+MX(I)+MY(I)*32 1140 Z=0:Z=Z-(VPEEK(V)<>&H20):Z=Z-(VPEEK(V+1)<>&H20) 1150 IFZTHENMY(I)=MY(I)+1:LOCATEMX(I),MY(I):PRINTA$(14+P1):IFX>MX(I)THENM(I)=5:RETURNELSEM(I)=6:RETURN 1160 LOCATEMX(I),MY(I)+1:PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(14+P1):RETURN 1170 MY(I)=MY(I)+1:V=6144+MX(I)+MY(I)*32 1180 Z=0:Z=Z-(VPEEK(V+32)<>&H20):Z=Z-(VPEEK(V+33)<>&H20) 1190 IFZTHENMY(I)=MY(I)-1:LOCATEMX(I),MY(I):PRINTA$(14+P1):IFX>MX(I)THENM(I)=5:RETURNELSEM(I)=6:RETURN 1200 LOCATEMX(I),MY(I)-1:PRINTA$(1):LOCATEMX(I),MY(I):PRINTA$(14+P1):RETURN 1210 IFMX(1)15THEN2070ELSECL=0:READEX,EY,NN,Z1,Z2,MM,Z3,Z4 1280 FORI=0TO10:READRO$(I):NEXT 1290 CLS:DEFUSR=&H41:A=USR(0) 1295 PLAY"S1M3000T150R2L16O5CDEFM20000G1.","S1M2000T150R2L16O7CDEFM10000G1." 1300 FORI=0TO10:FORJ=0TO15 1310 LOCATEJ*2,I*2:PRINTA$(VAL("&H"+MID$(RO$(I),J+1,1))):NEXT:NEXT 1320 GOSUB630:GOSUB640:NT=14:GOSUB670 1330 X=2:Y=1:JU=0:M(1)=NN:M(2)=MM:MX(1)=Z1:MY(1)=Z2:MX(2)=Z3:MY(2)=Z4:K=0:T=0 1340 GOSUB780:DEFUSR=&H44:A=USR(0) 1350 RL=0:C3=3:GOTO380 1360 DATA20,16,1,10,6,1,10,12 1370 DATA2222222222222222,2111111111111112,2111111111111182,211AA11111131122 1380 DATA2222222222511222,2111111111111222,21BB111113112222,2222222221142222 1390 DATA2222211111222222,27111111111AABB2,2222222222222222 1400 DATA28,16,1,8,18,1,23,18 1410 DATA2222222222222222,211111AA2BB11112,2112222228222212,221111AA2BB11112 1420 DATA2711222222252122,221111AA2BB11122,2221122222221222,222211AA2B111222 1430 DATA2222212222122222,2B111111111111B2,2222222222222222 1440 DATA8,18,1,4,10,1,24,10 1450 DATA2111111111111112,2111111111111112,2111111BB1111112,2211111281111152 1460 DATA2111111111111112,2311111331111132,2122222112222212,2C112117B11211C2 1470 DATA2211211221121122,2111211111121112,2666266666626662 1480 DATA30,18,5,10,8,6,20,8 1490 DATA2222222222222222,2111133111111132,2111113111111172,2182111111112222 1500 DATA2131111331111112,2111121111211112,2111111CC1111112,2311111221111132 1510 DATA2111112222111112,2BBBB222225BBBB2,2222222222222222 1520 DATA2,18,1,18,18,1,10,10 1530 DATA2222222222222222,211122221CCCCC12,211111211CCCCCD2,2212212412222222 1540 DATA2212111111221112,2712311111128112,2212666666621122,2212222222221112 1550 DATA2211122112222112,2211111111111122,2222222222222222 1560 DATA24,20,2,14,8,2,22,14 1570 DATA2222222222222222,2111111111111112,2111111111111712,2111111111111212 1580 DATA23BCD11111111132,2122211111111112,2121111111111112,2128111111111112 1590 DATA2111111111111112,2111111111111112,2666666666666662 1600 DATA12,16,4,14,2,5,20,2 1610 DATA2222222222222222,2111111121111112,211122212AA11112,2111121125211112 1620 DATA2211522111111112,21BB221112211182,212222211221DD12,21CC121112212212 1630 DATA2222122112111112,2171121112111112,2222222662666662 1640 DATA16,14,8,12,6,7,22,18 1650 DATA2222222222222222,2111111DDDDDDDD2,2112122222222282,2112111222111372 1660 DATA2212211221111322,2111111211121112,2112221222311112,2111111221111512 1670 DATA2221122222212212,2B311111111112E2,2222222222222222 1680 DATA30,16,6,14,10,5,16,10 1690 DATA2222222222222222,2112111221111172,2111111111112222,2211121111211112 1700 DATA2111111121111112,2112111111112112,2D111121121111D2,2111211111121112 1710 DATA2181111221111212,2111111331111112,2666666666666662 1720 DATA2,20,6,14,8,5,16,8 1730 DATA2222222222222222,2111111221111112,2112711111117512,2112811DD1118212 1740 DATA2111111111111112,2111111111111112,2111112332111112,2332332112332332 1750 DATA2112112112112112,2112112112112112,2662662662662662 1760 DATA4,4,7,14,17,6,14,14 1770 DATA2222222222222222,2111221111711112,2121228171222112,2111112626211112 1780 DATA2221212222212122,2221111121111122,2222212121212522,2222211111112522 1790 DATA2222222181222522,2222222111222222,2222222222222222 1800 DATA20,14,4,16,4,4,26,4 1810 DATA2222222222222222,2111111111111112,2111221111DD1112,2211122212222182 1820 DATA2111121111111112,2112228212211112,2111125222221112,2221127DCC222112 1830 DATA2111121111111112,2711221111111122,2266226626626622 1840 DATA28,20,7,18,18,7,22,18 1850 DATA2222222222222222,21111111DDDDDDD2,2555551262626262,2AAAA11222222222 1860 DATA2222212211111112,2BBB112112112212,2222122122122212,2CC1121121112212 1870 DATA2221221221212212,27711112211122E2,2282222222822222 1880 DATA30,4,1,6,16,2,24,16 1890 DATA2222222222222222,2111111111111112,2111111111111112,2111DDD11DDD1112 1900 DATA2111282112851112,2111272112751112,2211212112121122,2111111111111112 1910 DATA2131111331111312,21111D1111D11112,2666626666266662 1920 DATA0,14,5,8,6,6,22,14 1930 DATA2222222222222222,2113333111111132,2111111111111112,2811111111311172 1940 DATA2266266266266422,2222222222222522,2112221222122512,2111111111111112 1950 DATA2111131111111312,2726662666266682,2222222222222222 1960 DIMA$(20),G$(2),CH(4):RESTORE2020 1970 G$(1)="00000C60266046606760BE6825684068" 1980 G$(2)="08601060B0603A607F60CD6882681068" 1990 FORI=1TO20:READS$ 2000 FORJ=1TO4:CH(J)=VAL("&H"+MID$(S$,J*2-1,2)):NEXT 2010 A$(I)=CHR$(CH(1))+CHR$(CH(2))+CHR$(&H1D)+CHR$(&H1D)+CHR$(&H1F)+CHR$(CH(3))+CHR$(CH(4)):NEXT:RETURN 2020 DATA20202020,77787877,60606060,7E808182 2030 DATA7D787877,75757676,2020726D,797A7877 2040 DATA60607460,206B6E6C,63646F65,66677068 2050 DATA2069716A,61207362,84858687,88898687 2060 DATA8B8C8D8E,8F909192,93949596,9798999A 2070 GOSUB780:CLS 2080 DEFUSR=&H41:A=USR(0) 2090 FORI=1TO12:LOCATE0,7+I:PRINTSTRING$(32,CHR$(&H9C)):NEXT 2100 FORI=0TO15:LOCATEI*2,20:PRINTA$(2):NEXT:X=0:GOSUB630:GOSUB650:GOSUB670 2110 LOCATE16,18:PRINTCHR$(&H9D):LOCATE16,19:PRINTCHR$(&H9E) 2120 DEFUSR=&H44:A=USR(0) 2130 SWAPK1,K2:X=X+1:IFK1=1THENZ=3ELSESWAPP1,P2:Z=P1 2140 PUTSPRITE0,(X*4,143),15,Z*2-1:PUTSPRITE1,(X*4,143),14,Z*2 2150 FORI=1TO100:NEXTI:IFX<28THEN2130 2160 PUTSPRITE0,(X*4,143),15,13:PUTSPRITE1,(X*4,143),14,14 2170 LOCATE16,18:PRINTCHR$(&H9C) 2180 LOCATE7,4:PRINT"CONGRATULATION !" 2190 LOCATE6,6:PRINT"BONUS 50000 POINTS":SC=SC+5000:GOSUB630:GOSUB780:GOTO870 2200 GOSUB2240:POKE&HDA00,32:POKE&HDA01,&H38:RESTORE2340 2210 FORI=1TO17:READQ$:Q$=USR9(Q$):NEXT:A=USR1(0) 2220 FORI=1TO62:READQ$:POKE&HDA00,96+I:Q$=USR2(Q$):NEXT 2230 DEFUSR=&H7E:A=USR(0):RETURN 2240 ' 2250 RESTORE2270:VV=&HDA00:DEFUSR9=&HDA02 2260 READS$:A=LEN(S$)/2-1:FORI=0TOA:POKEVV+I,VAL("&H"+MID$(S$,I*2+1,2)):NEXT 2270 DATA00001ACB3F4713EB220CDA2A00007ED630FE103802D60723070707074F7ED630FE103802D607B1EB2A00DACD4D00232200DA13EB10D8C9 2280 DATA11000121BF1B197E47CB2FB0D5E1CD54D921000819CD54D921001019CD54D9B7218001ED52380C21D001B7ED5230043EF118023EF021002019CD54D921002819 2290 DATACD54D921003019CD54D91321D802B7ED5230B0C9F5D5E5CD4D00E1D1F1C913EB2264D92A000022FED9AF3201DA3A00DA6F26002929293A01DAB56F22FCD93A01 2300 DATADA07075F16002AFED919CDD6D92AFCD9CD54D911000819CD54D911000819CD54D93A01DA07073C3C5F16002AFED919CDD6D92AFCD911002019CD54D911000819 2310 DATACD54D911000819CD54D93A01DA3C3201DAFE083898C97E23D630FE0A3802D60707070707477ED630FE0A3802D607B0C920455054554E45205364206D6564469B 2320 V=&HD900:FORI=0TO3:READS$:A=LEN(S$)/2-1:FORJ=0TOA:POKEV+J,VAL("&H"+MID$(S$,J*2+1,2)):NEXT:V=V+64:NEXT 2330 DEFUSR1=&HD900:DEFUSR2=&HD95E:RETURN 2340 DATA03070F0F1F1F1F1F0F00310101000000C0F0F8FCB4B6B6B6FC02F4F0ECD87020 2350 DATA0008103020606060300F0E3E060B0D0E000000000000000000FC0808102488D0 2360 DATA03070F0F1F1F1F1F0F000D0E06000E07C0F0F8FCB4B6B6B6FC00F0F0E61C3800 2370 DATA0008103020606060300F1211093F3018000000000000000000F0000010E24438 2380 DATA03070F0F1F1F1F1F0F00070B0B010303C0F0F8FCB4B6B6B6FC00F4F4E400D8EC 2390 DATA0008103020606060300F181414060C0C000000000000000000F8080818F82010 2400 DATA030F1F3F2D6D6D6D3F402F0F371B0E04C0E0F0F0F8F8F8F8F000888080000000 2410 DATA0000000000000000003F10100824110B0010080C040606060CF0F0FC60D0B070 2420 DATA030F1F3F2D6D6D6D3F000F0F67381C00C0E0F0F0F8F8F8F8F000B070600070E0 2430 DATA0000000000000000000F00000847221C0010080C040606060CF0488890FC0C18 2440 DATA030F1F3F2D6D6D6D3F002F2F27001B37C0E0F0F0F8F8F8F8F000E0D0D080C0C0 2450 DATA0000000000000000001F1010180F04080010080C040606060CF0182828603030 2460 DATA030F1F3F3D7D7D7D3F002F4F07003C7CC0E0F0F0B8B8B8B8F000CCC080003038 2470 DATA0000000000000000000F1030080F02020010080C040606060CF0303E70F04C46 2480 DATAFF8080FF00754572457500FF8080FF00FF0101FF005C4848484800FF0101FF00 2490 DATA030C102040408C8280834F4320100C03C03008040202314101C1F2C2040830C0 2500 DATA00030F1F3F3F7F7F7F7F3F3F2F0F030000C0F0F8FCFCFEFEFEFEFCFCF8F0C000 2510 DATA0000000000000EF01F603F803C9003F0,60F070703870185018703850F050E040 2520 DATA0000032003C002C03F807F8030F830F8,0000000000000000E080F060F860F860 2530 DATAF860F860F860F060F060E0A0E0A0C030,03301D300E20072003C003C001C00EF0 2540 DATA8C30D820D8C01E3CADC038307C20C6C0,02C080A0806080A00000000000000000 2550 DATA000030701C500E500A4060C0F030F6C0,CF30101CE1C1C6C13731BBC1BAC130C0 2560 DATA000000000000603020205020502048C0,482088C008C038F07C907C907C803860 2570 DATA000000000000C060E060E080E080C090,0000000001C00EF01F901F801F800E60 2580 DATA20F8016883687F607F603F603FA01FA0,35B07FB0AA6B1FABAA6A00AAA96A78A0 2590 DATA000001300D301EC06BC1F730F7C063C0,000000000000016003F002F003600180 2600 DATA0F70065008F00CF00C700E7007700350,00000000000000000000000000000000 2610 DATA00002660436067602386116833890889,FD8A668A4D8A108A82FAACFA26FAFFFF 2620 DATA7F31C032803280328032803280327FC1,FE3101C201C201C201C201C203C2FEC1 2630 DATA7F310112031203120312011280C27FC1,FE31C012E012E0C2E0C2C0C203C2FEC1 2640 DATA7F31016203F203F20362018280C27FC1,FE31C062E062E082E082C09203C2FEC1 2650 DATA7F30C032803280328032803280327FC1,7FA0C0BAC0B4C0B4C7B4CCB4CCB4CCB4 2660 DATA7FF0C0FBC0F6D8F6D7F6CCB8CCF8CCB8,FEA0FCBA03B403B4E3B433B433B433B4 2670 DATAC0B4C1B4C1B4C0B4C1B4C0B4C0BA7FA0,E3B483B483B403B483B403B4FCABFEA0 2680 DATAC071E8F174F174717471EC51DC511A41,03F0014001F0037007B01FB03FB03FB0 2690 DATAC0F080408070C040E0B0F8B0FCB0FCB0,73B07DB07FB07EB038B03FB01FB007B0 2700 DATACEB0BEB0FEB07EB01CB0FCB0F8B0E0B0,7DF4014001F0037007B01FB03FB03FB0 2710 DATA414780408070C040E0B0F8B0FCB0FCB0,38F07CF0D6F0D6F07CE07CF0EEF00000 2720 DATA0CF016F01EF00CF00F703F707F707F70,60F0B0F0F0F060F0E070F840FC40FC40 2730 DATA014703471F4701600180018000000000,FE40FE40FE40806080808080C0806080 2740 DATA0CF01AF01EF00CF007700F700F701F70,60F0D0F0F0F060F0C070E040E040F040 2750 DATA1F701F701F701F400360038006800C80,F040F040F040F04000000000000000000 2760 DATA000001F007F01EF03C7038F078707970,0000C7F01EF03C707CF0F870F870F070 2770 DATA7F705B705B705B705B703F703F401F40,F070F070F040E070E040E040C0400000 2780 DATA0000E3F078F03CF03E701FF01F700F70,000080F0E0F078703CF01C701E709E70 2790 DATA0F700F700F7007700770074003400000,FE70DA70DA40DA70DA40FC40FC40F840 2800 DATA3C617E6106F606F60F6803687E803C80,04140414041500112014201420150011 2810 DATA3C747E74C37F817F817F817F7EF53C71,99F499F41EFA7EA13C647EF40CFA0CFA