5 IFPEEK(679)<>1THENPOKE679,1:GOTO10
6 GOTO41
10 PRINT"[147]":POKE53281,2:POKE53280,12:OPEN2,8,2,"0:AILE,S,R"
11 PRINT"[158]PLEASE WAIT WHILE THE DATA LOADS."
20 FORT=49152TO49740:INPUT#2,A:POKET,A:NEXT
30 FORT=49845TO50424:INPUT#2,A:POKET,A:NEXT
40 CLOSE2
41 POKE53281,0:POKE53280,2:PRINT"[147][159]I N T R O D U C I N G"
42 PRINT"[205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"
43 PRINT"[167]>>>> DMAIN <<<<[165]"
44 PRINT"[206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
45 PRINT"[154]AUTHOR.......[156]DAVID J. STEPHENS"
46 PRINT"[154]DATE COMP....[156]6/2/85"
47 PRINT"[158]FOR USE WITH REGULAR COLOR MODE SPRITES.":GOTO99
48 GETA$:IFA$=""THENGOTO48
49 PRINT"[147]":POKE53280,14 :POKE53281,0:POKE49741,96:POKE50372,206:DIMH(21)
50 FORT=49800TO49843:POKET,0:NEXT
55 FORT=0TO2:READA,B:POKE910+T,A:POKE913+T,B:NEXT
60 FORT=0TO62:READA:POKET+12288,A:POKET+12352,0:POKET+12416,0:NEXT
61 FORT=0TO62:READA:POKET+13888,A:NEXT
62 FORT=0TO62:READA:POKET+13952,A:NEXT:GOTO130
99 PRINT"[153] PRESS ANY KEY TO BEGIN ! ":GOTO48
130 PRINT"[147]":V=53248:POKEV+21,7:POKE2040,192:POKE2041,193:POKE2042,194
140 POKEV,75:POKEV+1,110:POKEV+2,150:POKEV+3,110:POKEV+4,225:POKEV+5,110
150 POKE828,0:POKE829,48:POKE830,64:POKE831,48:POKE832,128:POKE833,48
160 POKE834,24:POKE845,21:POKE842,0:POKE857,192:POKE858,48
170 FORT=55306TO55310:POKET,1:NEXT:
175 PRINT"[147][129] NOW DERESING SPRITE. PLEASE WAIT."
180 POKEV+23,7:POKEV+29,7:POKEV+39,1:POKEV+40,6:POKEV+41,2:SYS49152
185 POKEV+21,0
190 FORT=0TO62:POKET+12352,PEEK(T+13888):POKET+12224,255
191 POKE12416+T,PEEK(T+13952):NEXT
200 PRINT"[147]":POKE53281,0:POKE2047,195:POKE916,0:POKE917,0:POKE918,195
201 POKEV+43,7:PRINT"[158] SELECT SPRITES! "
210 POKE53280,14:POKEV+46,5:SYS50336:N=2
215 PRINT"[147]"
220 POKEV+21,0:POKE53281,0:POKE53280,7:PRINT"[159]THE MENU?"
230 PRINT"#1 : CHOOSE SPRITES!"
240 PRINT"#2 : EXAMINE ANIMATION!"
250 PRINT"#3 : SAVE DATA TO DISK!"
260 PRINT"#4 : TERMINATE THE PROGRAM!"
270 PRINT"[159] INPUT THE NUMBER OF YOUR CHOICE. ":PRINT:G=1
280 J=PEEK(56321):FR=JAND16:J=15-(JAND15):
290 IFJ=1 THENN=N-1:POKE1024+((N+1)*120)+160+4,32:IFN=0THENN=1
300 IFJ=2 THENN=N+1:POKE1024+((N-1)*120)+160+4,32:IFN=5THENN=4
305 IFFR=16THENG=0
306 IFFR=0ANDG=0THENGOTO320
310 POKE1024+(N*120)+160+4,107
311 POKE55296+(N*120)+160+4,10
315 GOTO280
320 ON-1*(N=1)-2*(N=2)-3*(N=3)-4*(N=4)GOTO330,400,500,321
321 POKE680,0:GOTO60000
330 PRINT"[147]":GOTO190
400 PRINT"[147]":POKEV,150:POKEV+1,150:N=0:POKEV+23,1:POKEV+29,1
410 POKE53280,2:FORT=21TO0STEP-1:IFPEEK(49800+T)=1THENH(N)=195+T:N=N+1:J=1
420 NEXT:TE=0:W=1:C=0:POKEV+21,1:IFN=0ORN=1THENN=1:GOTO215
421 PRINT"[147]SPRITE ANIMATION"
422 PRINT"[154] MOVE JOYSTICK TO THE LEFT TO SLOW. "
423 PRINT"MOVE JOYSTICK TO THE RIGHT TO SPEED UP.":POKEV+39,5
424 PRINT"[158] PRESS FIRE BUTTON TO RETURN TO MENU. "
430 POKE2040,H(C):C=C+W:IFC=N-1THENW=-1
440 IFC=-1THENC=0:W=1
450 FORT=0TOTE:NEXT
460 JV=PEEK(56321):FR=JVAND16:JV=15-(JVAND15)
470 IFJV=4THENTE=TE+5:IFTE=2005THENTE=2000
471 IFJV=8THENTE=TE-5:IFTE=-5THENTE=0
472 IFFR=16THENJ=0
475 IFFR=0ANDJ=0THENN=3:GOTO215
480 GOTO430
500 PRINT"[147]":YI=0:FORT=21TO0STEP-1:IFPEEK(49800+T)=1THENH(N)=195+T:YI=YI+1
501 NEXT:IFYI=0ORYI=1THENN=1:GOTO215
502 PRINT"[158]SAVE SPRITES TO DISK"
503 PRINT"PLEASE REMOVE JOYSTICK FROM PORT!!!"
504 PRINT"WHEN THIS IS DONE TYPE '/'"
505 GETA$:IFA$<>"/"THENGOTO505
506 PRINT"[159]IF YOU REACHED THIS STEP IN ERROR TYPE *"
510 INPUT"NAME OF THE SPRITE?";N$
520 IFN$="*"THENN=2:GOTO215
530 OPEN2,8,2,"0:"+CHR$(191)+N$+CHR$(191)+",S,W"
540 FORT=0TO20
545 IFPEEK(T+49800)=1THENGOTO550
546 NEXT:PRINT#2,-1:CLOSE2:GOTO575
550 R=(T+195)*64:FORY=RTOR+63:PRINT#2,PEEK(Y):NEXT
560 GOTO546
575 PRINT"[159] RE-INSERT JOYSTICK."
576 PRINT"    PRESS ANY KEY TO RETURN TO MENU. "
578 GETA$:IFA$=""THENGOTO578
580 N=4:GOTO215
1000 DATA90,110,140,160,180,200:REM SCAN LINES
1005 DATA128,0,1,192,0,3,160,0,5,144,0,9,136,0,17,132,0,33,130
1010 DATA0,65,130,60,65,154,102,89,166,195,101,161,129
1015 DATA133,161,195,133,166,231,101,154,90,89
1020 DATA130,60,65,132,0,33,136,0,17,144,0,9,160,0,5,192,0,3,128,0,1
1050 DATA198,127,255,238,64,1,254,64,1,214,64,1,198,126,1,198,2
1051 DATA1,3,242,1,243,2,1,147,242,1,147,3,241,147,240,17,144,25,145
1052 DATA159,157,145,128,159,145,128,155,159,128,153,128,128,128,198,128
1053 DATA252,198,128,4,198,128,4,198,255,252,254
1060 DATA254,127,255,192,64,1,254,64,1,6,64,1,134,126,1,254,2,1,3,242,1
1061 DATA240,194,1,144,195,241,144,192,17,144,192,17,144,15,17,159,153,145
1063 DATA128,159,145,128,153,159,128,153,128,128,128,130,128,252,198
1064 DATA128,4,124,128,4,16,255,252,16
60000 PRINT"[147]WOULD YOU LIKE TO..."
60010 PRINT"   1.  RUN THE 'DDISK' PROGRAM"
60012 PRINT"   2.  RETURN TO LOADSTAR"
60014 PRINT"   3.  QUIT TO BASIC"
60020 PRINT"   WHICH?[160]";
60030 POKE198,0:WAIT198,1:GETA$:IFA$<>"1"ANDA$<>"2"ANDA$<>"3"THEN60030
60035 :
60037 PRINTA$
60040 IFA$="1"THENF$="DDISK":GOTO63000
60050 IFA$="2"THENF$="HELLO CONNECT":GOTO63000
60060 PRINT"ARE YOU SURE?":POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THEN60000
60062 END
60070 :
63000 REM   CONNECT TO PROGRAM
63010 PRINT"[147]"SPC(10)"LOADING PROGRAM..."
63020 PRINT"[144]LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END