1 GOSUB60000
2 PRINTCHR$(142)
50 REM::::DALLAS (BARBIES HORSE)::::::
60 REM::::BY M. N. CARSWELL:::::::::::
70 REM::::486 S. STEEL BRIDGE RD.S.E.:
80 REM::::EATONTON, GA.31024::::::::::
110 S=54272:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
120 PRINT CHR$(147)
130 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
200 REM *** DALLAS HEADLINE ***
210 VA=1024:CA=55296:CC=CA-VA
220 G(0)=32:G(1)=160:G(2)=98:G(3)=226
230 G(4)=223:G(5)=105:G(6)=95:G(7)=233
240 DIM L$(26)
250 L$(1)="6071117111115230162304111104111":REM ***LETTER A-1***
260 L$(4)="6111111111113021130211111141115":REM ***LETTER D-4***
270 L$(12)="51111111111000010000100001":REM ***LETTER L-12***
280 L$(19)="57160111101101011011110415":REM ***LETTER S-19***
290 A$="":U$=CHR$(145):C$=CHR$(147)
300 REM ***SHOW HEADLINE ***
310 H=5:POKE 53280,3:POKE 53281,3
320 PRINT C$
330 A$="DALLAS":X=VA+321
340 REM *** HEADLINE SUBROUTINE***
350 FOR A=1TO LEN(A$)
360 B=ASC(MID$(A$,A,1))-64
370 C=2
380 FOR D=X TO X+VAL(LEFT$(L$(B),1))-1
390 FOR E=D TO D+(H-1)*40 STEP 40
400 POKE E+CC,2
410 POKE E,G(VAL(MID$(L$(B),C,1)))
420 C=C+1
430 NEXT E
440 NEXT D
450 X=D+1
460 NEXT A
470 POKE214,13:PRINT:POKE211,8:PRINT"BARBIE'S FAVORITE HORSE"
480 POKE214,19:PRINT:POKE211, 5:PRINT"[144]ONE MOMENT PLEASE";
600 V=53248:REM INITIALIZES ADDRESS OF VIDIO CHIP ***
610 REM ****CLEAR ALL SPRITE REGISTERS****
620 POKEV+16,0:POKEV+21,0:POKEV+23,0:POKEV+29,0
630 REM **** SET POINTERS FOR SPRITES 0-3-4-5-7****
640 POKE 2040,192:POKE2043,192:POKE2044,192:POKE2045,200
645 POKE2047,199:REM CLOUD******
650 REM ****SET DATA READ AREAS****
660 FOR B=0 TO 8:FOR N=0 TO 62:READ A:POKE(192+B)*64+N,A:NEXTN:PRINT"[209]";:NEXT
670 REM ****COLOR SPRITES****
680 POKEV+39,9:POKEV+40,0:POKEV+41,0:POKEV+42,9:POKEV+43,9:POKEV+44,7
685 POKEV+45,0:POKEV+46,1
730 REM ****SET INITIAL POSITION OF SPRITES****
740 POKEV +0,170:POKEV+ 1,185:REM ***FAT TREE***POINTER 192***SPRITE 0
770 POKEV +6,140:POKEV +7,155:REM ***SMALL TREE***POINTER 192****SPRITE 3
780 POKEV +8, 50:POKEV +9,165:REM ***TALL TREE***POINTER 192***SPRITE 4
790 POKEV+10, 24:POKEV+11, 50:REM ***SUN******POINTER 200***SPRITE 5
810 POKEV+14,0:POKEV+15, 85:REM ***CLOUD******POINTER 199***SPRITE 7
850 REM INTERRUPT ROUTINE
860 POKE251,5:POKE252,3
870 FOR T=49152 TO 49229:READ A:POKE T,A:NEXT:SYS49152
900 REM *** BARN SCENE ***
905 PRINT"[147]"
910 POKE53280,2:POKE53281,2
920 FOR I=1 TO16
930 PRINT"[154]                                       [146]"
940 NEXT
950 PRINT TAB(26)"[145][169][205] BARBIE [223]"
960 PRINT"[154]                                       [146]"
970 PRINT TAB(25)"[145][169]  [205] FARMS  [223]"
980 PRINT"[154]                                       [146]"
990 PRINT TAB(24)"[145][169]    [205][164][164][164][164][164][164][164][164][223]"
1000 PRINT"[154]                        [146] [144]    [146][154][167]  SEE   [167]"
1010 PRINT"[153]                        [146] [144]    [146][154][167]  ROCK  [167]"
1020 PRINT"[153]                        [146] [144]    [146][154][167]  CITY  [167]"
1030 PRINT"[153]                        [146] [144]    [146][154][167]        [167]"
1040 PRINT"[144]                                       [146]"
1050 PRINT"                                       [146]"
1060 PRINT"                                       [146]"
1070 PRINT"                                       [146]"
1080 PRINT"                                       [146]"
1090 REM ****TURN ON MULTI COLOR MODE FOR SPRITES 0, 3 AND 4 *******
1092 POKEV+28,25:POKEV+37,13:POKEV+38,5
1094 REM ****EXPAND SPRITES****
1096 POKEV+23,233:REM SPRITES 0,3,5,6 AND 7****
1098 POKEV+29,225:REM
1100 REM ****TURN ON SPRITES****
1110 POKEV+21, 255
1120 REM ****MOVE HORSE SPRITE RIGHT****
1130 P=193
1150 FOR X=0TO230 STEP 3
1155 IFPEEK(197)<>64THEN63000
1160 POKE V+2,X:POKEV+3,183
1170 IF P=193 THEN GOSUB 3900
1180 IF P=194 THEN GOSUB 3950
1190 POKE 2041,P:FOR D=1 TO 60:NEXT D
1200 P=P+1:IF P>195 THEN P=193
1210 NEXT X
1220 REM ****MOVE HORSE SPRITE LEFT****
1240 FOR D=1 TO 100:NEXT D
1250 P=196
1260 FOR X=230 TO 0 STEP-3
1265 IFPEEK(197)<>64THEN63000
1270 POKEV+4,X:POKEV+5,183
1280 IF P=197 THEN GOSUB 3900
1290 IF P=198 THEN GOSUB 3950
1300 POKE 2042,P:FOR D=1 TO 60:NEXT D
1310 P=P+1:IF P>198 THEN P=196
1320 NEXT X
1330 GOTO 1130
3900 POKES+4,129:POKES+4,128:RETURN
3950 POKES+11,129:POKES+11,128:RETURN
4000 REM **** TREE **** POINTER 192 ****
4010 DATA 0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
4020 DATA 63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
4030 DATA 15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
4100 REM **** HORSE 1 RIGHT **** POINTER 193 ****
4110 DATA 0,0,0,0,0,60,0,0,126,0,0,122,0,0,254,0,1,246,0,3,246,11,195,242
4120 DATA 23,255,240,23,255,240,23,255,240,23,255,240,35,255,224,7
4130 DATA 129,224,5,0,176,4,128,136,4,128,144,4,128,160,4,64,128,2,32,64,0,0,0
4200 REM **** HORSE 2 RIGHT **** POINTER 194 ****
4210 DATA 0,0,0,0,0,28,0,0,62,0,0,250,0,1,254,0,1,246,0,3,246,27,195,242
4220 DATA 39,255,240,39,255,240,39,255,240,39,255,240,67,255,224,7
4230 DATA 128,88,4,64,68,8,32,130,16,17,1,32,18,1,64,2,0,0,0,0,0,0,0
4300 REM **** HORSE 3 RIGHT **** POINTER 195 ****
4310 DATA 0,0,0,0,0,28,0,0,62,0,0,122,0,0,254,0,1,246,0,3,246,19,195,242
4320 DATA 71,255,240,71,255,240,71,255,240,71,255,240,131,255,224,7
4330 DATA 129,62,5,128,132,8,128,72,16,128,144,16,65,96,48,38,0,0,48,0,0,0,0
4400 REM ****HORSE 1 LEFT **** POINTER 196 ****
4410 DATA 0,0,0,60,0,0,126,0,0,94,0,0,127,0,0,111,128,0,111,192,0,79,195,208
4420 DATA 15,255,232,15,255,232,15,255,232,15,255,232,7,255,196,7
4430 DATA 129,224,13,0,160,17,1,32,9,1,32,5,1,32,1,2,32,2,4,64,0,0,0
4500 REM ****HORSE 2 LEFT **** POINTER 197 ****
4510 DATA 0,0,0,56,0,0,124,0,0,95,0,0,127,128,0,111,128,0,111,192,0,79,195,216
4520 DATA 15,255,228,15,255,228,15,255,228,15,255,228,7,255,194,26
4530 DATA 1,224,34,2,32,65,4,16,128,136,8,128,72,4,0,64,2,0,0,0,0,0,0
4540 REM ****HORSE 3 LEFT **** POINTER 198 ****
4550 DATA 0,0,0,56,0,0,124,0,0,94,0,0,127,0,0,111,128,0,111,192,0,79,195,200
4560 DATA 15,255,226,15,255,226,15,255,226,15,255,226,7,255,193,124
4570 DATA 129,224,33,1,160,18,1,16,9,1,8,6,130,8,0,100,12,0,12,0,0,0,0
4600 REM ****CLOUD**** POINTER 199 ****
4610 DATA 0,0,0,1,224,0,3,248,0,7,252,192,15,255,224,15,255,240,31,255,248,63
4620 DATA 255,252,63,255,252,63,255,252,63,255,252,63,255,252,15,251,240,3
4630 DATA 243,192,1,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
4700 REM ****SUN**** POINTER 200 ****
4710 DATA 0,0,0,0,0,0,0,0,0,0,255,0,3,255,128,7,255,224,7,255,224
4720 DATA 15,255,240,31,255,248,31,255,248,31,255,248,31,255,248,15,255,240
4730 DATA 7,255,224,7,255,224,3,255,192,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
5200 REM ::THIS IS INTERRUPT ROUTINE
5210 DATA 120,169,13,141,20,3,169,192,141,21,3,88,96,198,251,165,251,240,3,76
5220 DATA 74,192,173,16,208,41,128,240,23,173,14,208,201,101,208,31,173,16,208
5230 DATA 41,127,141,16,208,169,0,141,14,208,76,67,192,173,14,208,201,255,208
5240 DATA 8,173,16,208,9,128,141,16,208,238,14,208,165,252,133,251,76,49,234,0
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"         [196][193][204][204][193][211]          [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(13)"[205].[206]. [195]ARSWELL"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
63000 REM    CONNECT BACK TO L.S.
63001 POKEV+21,0:POKE788,49:POKE789,234:POKEV+28,0
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END