5 REM    DRAGONWICK-VER4.0-JC HILTY-9/87
6 IFA=0THENA=1:LOAD"WICK.SPRT",8,1
7 IFA=1THENA=2:LOAD"WICK.ML",8,1
8 OPEN3,8,3,"KING":INPUT#3,HS$,HS:CLOSE3:SYS51459:POKE53280,.:POKE53281,.
9 SP$="                                       "
10 GOTO1000
11 POKE49600,0:SYS49376:FORX=49601TO49616:POKEX,0:NEXT:POKE49700,255
12 PRINT"[147]":POKE53281,0:POKE53280,0
13 S=54272:V=53248:SC=0:LI=6:BO=400:LE=1:P=194:LP=1:RM=20:JX=49501
14 GOSUB700
15 L=INT(RND(4)*60)+100
16 R=INT(RND(2)*50)+160
19 GOSUB800
20 POKEV+21,255:GOSUB612
21 W1=PEEK(V+30):W2=PEEK(V+31):POKE49600,112
24 FG=PEEK(V+16)
30 XQ=PEEK(V):YQ=PEEK(V+1):SYS(JX):SYS(JX):W2=PEEK(V+31):IFW2AND1THEN450
31 W2=PEEK(V+31):IFW2AND1THEN450
32 W2=PEEK(V+31):IFW2AND1THEN450
34 W1=PEEK(V+30):IFW1AND1THEN200
35 ONLPGOTO45,50,60,65,70,75,80
36 LP=LP+1:IFLP=8THENLP=1
38 GOTO30
45 IFPEEK(V+13)<130THENPOKE49614,2:POKE49700,64
46 IFPEEK(V+13)>140THENPOKE49614,254:POKE49700,64
47 GOTO36
50 POKE2046,P:P=P+1:IFP=196THENP=194
52 GOTO36
60 K=PEEK(V):IFPEEK(V+16)AND1THENK=K+255
61 E=PEEK(V+8):IFPEEK(V+16)AND16THENE=E+255
62 IFE<KTHENPOKE49609,2:POKE49700,16
63 IFE>KTHENPOKE49609,254:POKE49700,16
64 GOTO36
65 IFPEEK(V+9)>PEEK(V+1)THENPOKE49610,254:POKE49700,16
66 IFPEEK(V+9)<PEEK(V+1)THENPOKE49610,2:POKE49700,16
67 GOTO36
70 IFPEEK(V+10)<LTHENPOKE49611,2:POKE49700,32
71 IFPEEK(V+10)>RTHENPOKE49611,254:POKE49700,32
72 GOTO36
75 IFPEEK(V+11)>200THENPOKE49612,254:POKE49700,32
76 IFPEEK(V+11)<80THENPOKE49612,2:POKE49700,32
77 GOTO36
80 BO=BO-5:PRINT""TAB(30)"    ":PRINT""TAB(29)BO:IFBO=0THEN300
81 GOTO36
200 POKE49600,0
201 IFW1AND128THENU=128:GOTO210
202 IFW1AND2THENU=2:GOTO210
203 IFW1AND4THENU=4:GOTO210
204 IFW1AND8THENU=8:GOTO210
206 GOTO300
210 POKEV+21,PEEK(V+21)-U:GOSUB604
212 SC=SC+BO:PRINT""TAB(29)SC
213 IFPEEK(V+21)=113THEN400
214 W1=PEEK(V+30):GOTO21
300 POKE49600,0:POKE2040,202:GOSUB612
304 LI=LI-1:PRINT""TAB(12)LI:IFLI=0THEN500
305 IFBO=0THENBO=400:GOTO404
306 IFLE>9THEN320
310 GOSUB800:W2=PEEK(V+31):W1=PEEK(V+30):GOTO21
320 IFRO=2THENGOSUB720:GOSUB800:W2=PEEK(V+31):W1=PEEK(V+30):GOTO21
321 IFRO=1THENGOSUB700:GOSUB800:W2=PEEK(V+31):W1=PEEK(V+30):GOTO21
322 IFRO=3THENGOSUB736:GOSUB800:W2=PEEK(V+31):W1=PEEK(V+30):GOTO21
400 LE=LE+1:BO=400:IFLE=6THENGOSUB2000
401 IFLE=2THENGOSUB720:GOTO410
402 IFLE=3THENGOSUB736:GOTO410
404 RO=INT(3*RND(4))+1:ONROGOSUB700,720,736
410 W1=PEEK(V+30):W2=PEEK(V+31):GOTO15
450 IFLE>5THEN300
451 FORX=0TO24:POKES+X,0:NEXT:POKES,150:POKES+1,200:POKES+6,240:POKES+24,15
452 POKES+4,17:FORT=0TO20:NEXT:POKES+4,16
455 IFPEEK(V+16)AND1THEN462
456 IFXQ<20THENPOKEV+16,PEEK(V+16)+1
457 POKEV,XQ:POKEV+1,YQ
460 W2=PEEK(V+31):GOTO34
462 IFXQ>50THENPOKEV+16,PEEK(V+16)-1
463 POKEV,XQ:POKEV+1,YQ
464 W2=PEEK(V+31):GOTO34
500 POKE49600,0:POKEV+21,0:IFSC>HSTHENGOSUB950
502 SYS65418:GOTO1000
520 POKE2046,P:P=P+1:IFP=196THENP=194
522 FORT=0TO50:NEXT:GOTO514
540 POKEV+21,0:POKE49600,0
541 PRINT"[147]":SC=0:LI=6:BO=400:LE=1:P=194:Q=199:RM=20:LP=1:GOTO14
600 REM    SOUNDS AND MUSIC
602 REM    GRAB THE GOLD SOUND
604 FORX=0TO24:POKES+X,0:NEXT:POKES+24,15:Q=200
605 FORQZ=100TO130STEP5:POKES+4,0:POKES+1,QZ:POKES,100:POKES+4,33
606 POKE2040,Q:Q=Q-1:IFQ=198THENQ=200
607 NEXT
608 POKES+4,0:POKES+1,160:POKES,100:POKES+5,5:POKES+6,5:POKES+4,33
609 POKE2040,199:RETURN
610 REM    LOSE A LIFE SOUND
612 FORX=0TO24:POKES+X,0:NEXT:POKES+24,143:POKES+5,16:POKES+19,16:POKES+6,252
614 POKES+20,249:POKES+4,21:POKES+18,17:POKES+1,2:POKES+15,34:FORT=0TO200:NEXT
616 POKES+4,20:POKES+18,16:FORT=0TO300:NEXT:POKES+4,21:POKES+18,17
618 POKES+1,2:POKES+15,30:FORT=0TO200:NEXT:POKES+4,20:POKES+18,16
620 FORT=0TO300:NEXT:POKES+4,21:POKES+18,17:POKES+1,2:POKES+15,34
622 FORT=0TO500:NEXT:POKES+4,20:POKES+18,16
624 RETURN
699 REM    GHOST GALLERY
700 PRINT"[147]"TAB(2)"[154]LEVEL"LE:PRINTTAB(2)"[158]GHOST GALLERY"TAB(24)"[154]BONUS"BO
702 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
703 PRINTTAB(2)"[166]"TAB(36)"[166]":PRINTTAB(2)"[166]"TAB(36)"[166]"
704 PRINTTAB(2)"[166]"TAB(36)"[166]":FORT=0TO1
705 PRINTTAB(2)"[166]   [166]"TAB(16)"[166]    [166]"TAB(36)"[166]":NEXT
706 PRINTTAB(2)"[166]   [166][166][166]    [166][166][166][166]    [166][166][166][166]       [166]   [166]":FORT=0TO2
707 PRINTTAB(2)"[166]"TAB(13)"[166]"TAB(24)"[166]"TAB(32)"[166]   [166]":NEXT
708 PRINTTAB(2)"[166]"TAB(8)"[166]    [166]"TAB(24)"[166]"TAB(32)"[166]   [166]"
709 PRINTTAB(2)"[166]"TAB(8)"[166]    [166][166][166][166]    [166][166][166][166]"TAB(32)"[166]   [166]"
710 FORT=0TO1:PRINTTAB(2)"[166]     [166]"TAB(32)"[166]   [166]":NEXT
711 PRINTTAB(2)"[166]     [166]"TAB(36)"[166]"
712 PRINTTAB(2)"[166]    [166][166]"TAB(16)"[166][166][166][166][166][166][166][166][166][166]"TAB(36)"[166]"
713 FORT=0TO2:PRINTTAB(2)"[166]"TAB(25)"[166]"TAB(36)"[166]":NEXT
714 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
715 PRINTTAB(7)"[154]LIVES"LI;TAB(24)"[154]SCORE"SC
716 POKE2044,196:POKE2045,196:POKEV+43,7:POKEV+44,3:RO=1:RETURN
719 REM    PUMPKIN PAD
720 PRINT"[147][156]"TAB(2)"[154]LEVEL"LE:PRINTTAB(2)"[158]PUMPKIN PAD"TAB(24)"[154]BONUS"BO
721 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":FORX=0TO2
722 PRINTTAB(2)"[166]"TAB(17)"[166]"TAB(36)"[166]":NEXT
723 PRINTTAB(2)"[166]    [166][166][166]    [166][166][166][166]    [166][166][166][166][166][166][166][166][166][166]    [166]":FORX=0TO1
724 PRINTTAB(2)"[166]    [166]"TAB(17)"[166]    [166]"TAB(29)"[166]      [166]":NEXT
725 PRINTTAB(2)"[166]"TAB(29)"[166]      [166]":FORT=0TO1:PRINTTAB(2)"[166]"TAB(36)"[166]":NEXT
726 PRINTTAB(2)"[166][166][166][166][166][166]   [166]   [166]"TAB(22)"[166][166][166][166]"TAB(36)"[166]"
727 PRINTTAB(2)"[166]"TAB(11)"[166]   [166]"TAB(29)"[166][166][166][166]   [166]"
728 FORX=0TO1:PRINTTAB(2)"[166]"TAB(11)"[166]   [166]"TAB(36)"[166]":NEXT
729 PRINTTAB(2)"[166]"TAB(11)"[166]   [166][166][166][166][166][166][166][166]"TAB(36)"[166]"
730 FORX=0TO3:PRINTTAB(2)"[166]    [166]"TAB(29)"[166]      [166]":NEXT
731 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
732 PRINTTAB(7)"[154]LIVES"LITAB(24)"[154]SCORE"SC
733 POKE2044,197:POKE2045,197:POKEV+43,7:POKEV+44,8:RO=2:RETURN
735 REM    BATTY BELFRY
736 PRINT"[147][152]"TAB(2)"[154]LEVEL"LE:PRINTTAB(2)"[158]BATTY BELFRY"TAB(24)"[154]BONUS"BO
737 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
738 FORX=0TO3:PRINTTAB(2)"[166]"TAB(36)"[166]":NEXT
739 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166]   [166][166][166]    [166][166][166]            [166]"
740 FORX=0TO2:PRINTTAB(2)"[166]"TAB(14)"[166]"TAB(23)"[166]   [166]"TAB(36)"[166]":NEXT
741 PRINTTAB(2)"[166]"TAB(14)"[166]"TAB(23)"[166]"TAB(36)"[166]"
742 PRINTTAB(2)"[166]    [166][166][166][166]   [166]"TAB(23)"[166]"TAB(36)"[166]"
743 PRINTTAB(2)"[166]    [166]"TAB(36)"[166]":PRINTTAB(2)"[166]    [166]"TAB(28)"        [166]"
744 PRINTTAB(2)"[166]    [166]"TAB(32)"[166]   [166]"
745 PRINTTAB(2)"[166]    [166]    [166][166][166][166][166][166][166][166][166][166][166][166]"TAB(32)"[166]   [166]"
746 FORX=0TO3:PRINTTAB(2)"[166]"TAB(36)"[166]":NEXT
747 PRINTTAB(2)"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
748 PRINTTAB(7)"[154]LIVES"LITAB(24)"[154]SCORE"SC
749 POKE2044,198:POKE2045,198:POKEV+43,3:POKEV+44,9:RO=3:RETURN
799 REM    INITIAL SPRITE SETUPS
800 POKEV+16,12:FORX=2041TO2043:POKEX,201:NEXT:FORX=40TO42:POKEV+X,15:NEXT
801 POKE2047,201:POKEV+46,15:POKE2040,199
802 POKE2046,P:POKEV,164:POKEV+1,126:POKEV+2,48:POKEV+3,194
804 POKEV+4,32:POKEV+5,74:POKEV+6,32:POKEV+7,194
806 POKEV+8,100:POKEV+9,90:POKEV+10,180:POKEV+11,200
808 POKEV+28,65 :POKEV+37,8:POKEV+38,5:POKEV+45,7:POKEV+39,1
810 POKEV+29,64:POKEV+12,24:POKEV+13,130:POKEV+14,48 :POKEV+15,74
812 POKE49609,255:POKE49610,1:POKE49611,1:POKE49612,255:POKE49613,2
814 POKE49614,254:POKE49700,112
820 RETURN
950 HS=SC:PRINT"[147]  [158]A NEW DRAGONSLAYER KING IS CROWNED!"
952 PRINT"[154]ENTER YOUR NAME SO YOUR BRAVERY CAN BE"
953 PRINT"RECORDED IN DRAGONWICK'S HALL OF FAME:"
954 PRINT"--->";:GOSUB60500:HS$=B$
958 OPEN3,8,3,"@0:KING,S,W"
959 PRINT#3,HS$
960 PRINT#3,HS
962 CLOSE3
964 RETURN
1000 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
1005 PRINT"[221]              [158]DRAGONWICK              [221]";
1010 PRINT"[221]           [158]BY J. C. HILTY             [221]";
1015 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
1020 PRINT"          P [154]- PLAY DRAGONWICK"
1025 PRINT"          C [154]- CLEAR HIGH SCORE"
1030 PRINT"          Q [154]- QUIT"
1040 PRINT"             PRESS P, C [154]OR Q[154]."
1041 TAB=20-LEN("HIGH SCORE:"+STR$(HS))/2
1042 PRINT"                                      [145][145][145]"
1043 PRINT""TAB(TAB)"[129]HIGH SCORE:"HS
1045 TAB=20-LEN("WARRIOR: "+HS$)/2
1046 PRINT"                                      [145][145]"
1047 PRINT""TAB(TAB)"[129]WARRIOR: "HS$
1048 PRINT"[145][145][145][145][145][145][145][145][145]"
1050 A=PEEK(203):IFA<>62ANDA<>41ANDA<>20THEN1050
1055 IFA=20THENGOSUB4000:GOTO1040
1060 IFA=62THENGOSUB60000:GOTO1040
1070 GOTO11
2000 POKEV+21,.:PRINT"[147]    [150]BEWARE, MIGHTY WARRIOR, THE WALLS"
2010 PRINT"      IN THE REMAINING LEVELS ARE":POKE198,.
2020 FORA=1TO150
2030 FORB=2TO10STEP8
2040 POKE646,B:PRINTTAB(14)"[145]ELECTRIFIED"
2045 IFPEEK(198)>.THENA=150:B=10
2050 NEXT:NEXT:POKEV+21,255
2060 RETURN
4000 PRINT"     [154]ARE YOU SURE YOU WANT TO CLEAR"
4010 PRINT"          THE HIGH SCORE?  (Y[154]/N[154])"
4020 A=PEEK(203):IFA<>25ANDA<>39THEN4020
4025 IFA=39THEN4070
4030 OPEN3,8,3,"@0:KING,S,W"
4035 HS=0:HS$="LOADSTAR"
4040 PRINT#3,HS$
4050 PRINT#3,HS
4060 CLOSE3
4070 PRINT"[145][145]"SP$:PRINTSP$"[145]":RETURN
59999 STOP
60000 PRINT"  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]"SP$"[145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60500 B$="":POKE198,.:PRINT"[164]";
60510 FORA=1TO31
60520 GETA$:IFA$=""THEN60520
60530 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60540 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60520
60545 IFA=31THEN60520
60550 IFA$<" "ORA$>"Z"THEN60520
60560 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT