ELE_LAND_DEMO.diff

iMac20-27:Desktop paraches$ diff ele_demo.txt ELE_LAND_BASIC.txt
140d139
< 
143d141
< 1615 RESTORE 2600:FOR K=65 TO 90:READ D$:FOR I=0 TO 7:DT$=MID$(D$,I*2+1,2):L=VAL("&H"+DT$):GOSUB900:NEXT:NEXT
145c143
< 1630 CLS:PRINT"SPRITE 25 ":RESTORE1920:J2=0:JS=0:FOR J=0 TO 15:READ D$:D2$="":D2$=RIGHT$(D$,32)+MID$(D$,1,32):FOR J2=0 TO1:S$="":IF J2=1 AND J>=9 THEN GOTO1670
---
> 1630 CLS:PRINT"SPRITE 22 ":RESTORE1920:J2=0:JS=0:FOR J=0 TO 12:READ D$:D2$="":D2$=RIGHT$(D$,32)+MID$(D$,1,32):FOR J2=0 TO1:S$="":IF J2=1 AND J>=9 THEN GOTO1670
155,157c153
< 1730 CLS:LOCATE12,10:PRINT"ELE LAND":LOCATE9,18:PRINT"PUSH SPACE KEY":LOCATE4,21:PRINT"PASSWORD: PUSH RETURN KEY"
< 1735 RESTORE 2500:READ MD$:MC=0:DC=1:DX=20:DG=0:LC=0:MX=228:WC=0:MM=0:MB=11:BC=6
< 1737 FOR I=0 TO28:VPOKE &H19A2+I,108:VPOKE &H19C2+I,108:VPOKE &H19E2+I,108:VPOKE &H1A02+I,240:NEXT:PUT SPRITE 4,(DX,112),4,0:PUT SPRITE 5,(DX,112),6,4
---
> 1730 CLS:LOCATE12,10:PRINT"ELE LAND":LOCATE9,18:PRINT"PUSH SPACE KEY":LOCATE4,21:PRINT"PASSWORD: PUSH RETURN KEY":PUT SPRITE 4,(120,112),7,0:PUT SPRITE 5,(120,112),11,4
159d154
< 1745 GOSUB2000
182,197d176
< 1970 DATA 3078F838F8191B1F3F3F3F1F193070E1030F3F7EF8E080E0F0F6F3F9DD6FE6C0,3078F81838D91B0F1F3F3F1F193070E1030F3F7EF8E080E3F1F1F1F9DD6FE6C0,1F650EB142AC104B0C62A91443AA0457C038865B15E24434C41448D8289010A0
< 2000 PC=BC:IF LC>0 THEN LC=LC-1:FC=0:GOTO 2020 ELSE FC=1:MV=VAL("&H"+MID$(MD$,MC*2+1,2)):MC=MC+1:IF MC>46 THEN MC=0:DC=1:DX=20:DG=0:LC=0:MX=228:WC=0:MM=0:MB=11:BC=6
< 2010 IF (MV and &H80)<>0 THEN LC=(MV and &H7F):MV=OC ELSE OC=MV
< 2020 IF (MV and 1)=1 THEN DX=DX+4:PUT SPRITE 4,(DX,112),4,(DC and 1)*2:PUT SPRITE 5,(DX,112),6,4+(DC and 1)*2:DC=DC+1 ELSE IF (MV and 2)=2 THEN PUT SPRITE 6,(DX+13,112),15,8:PC=9:MM=1:GOSUB 2080 ELSE PUT SPRITE 6,(DX+13,0),0,8
< 2030 IF (MV and 4)=4 THEN MX=MX-4:MM=1::WC=WC+1 ELSE IF (MV and 8)=8 THEN MM=0:MB=15:MX=228:BC=15:PUT SPRITE 0,(MX,112),0,MB
< 2040 IF MM=1 THEN PUT SPRITE 0,(MX,112),PC,MB+(WC and 1)*2:MM=0
< 2050 IF (MV and 16)=16 THEN MB=22:WC=0:MX=224:PUT SPRITE 0,(MX,112),1,22 ELSE IF (MV and 32)=32 THEN GOSUB2300:PUT SPRITE 6,(0,0),0,9:PUT SPRITE 0,(MX,112),1,23:PUT SPRITE 1,(MX-16,112),8,24:PUT SPRITE 4,(DX,112),8,(DC and 1)*2
< 2060 IF (MV and 64)=64 THEN GOSUB2310:PUT SPRITE 0,(MX,112),1,22:PUT SPRITE 1,(MX-16,0),0,24:DX=20:PUT SPRITE 4,(DX,212),0,0:PUT SPRITE 5,(DX,212),0,4
< 2070 RETURN
< 2080 IF FC=1 THEN GOSUB 830
< 2090 RETURN
< 2300 B=USR1(0):SOUND13,13:SOUND8,16:SOUND7,247:SOUND6,20:SOUND12,20:RETURN
< 2310 SOUND13,9:SOUND8,0:B=USR1(0):SOUND9,0:RETURN
< 2500 DATA 0496058A00880288080088048A058A00880282008202880810019400880284008402840084028400842000904000B0
< 2600 DATA 7cc6c6fec6c6c600,fc66667c6666fc00,7cc6c0c0c0c67c00,fc6666666666fc00,fe6268786862fe00,fe6268786860f000,7cc6c6c0cec67e00,c6c6c6fec6c6c600,3c18181818183c00,1e0c0c0ccccc7800,e6666c786c66e600,f06060606266fe00,82c6eefed6c6c600,c6e6f6decec6c600
< 2610 DATA 7cc6c6c6c6c67c00,fc66667c6060f000,7cc6c6d6de7c0600,fc66667c6666e600,7cc6c07c06c67c00,7e5a5a1818183c00,c6c6c6c6c6c67c00,c6c6c6c66c381000,c6c6d6feeec68200,c66c3838386cc600,6666663c18183c00,fec68c183266fe00