HolyGrail ||C~kHoly Grail by W. Kerr from Personal Computer Games June 1984  0:7:0: 4,11 ;6;1;"HOLY GRAIL";7,4;"by W. Kerr February 1984";14,3;"Do you want instructions? ";17,11 ;"(y) or (n)" ="n"7 "y"4  8000@   hi=0 UDGs data n="a""k"+7:a:n,a:n H60<,524,62>,60<,8,28,31,60< K60<,124|,124|,252,24,24,30,0 K4,12 ,568,124|,84T,124|,568,124| I254,254,568,568,28,12 ,4,2 #H28,42*,62>,28,8,62>,73I,93] (H73I,28,8,28,34",34",34",99c -N568,124|,254,130,170,146,58:,568 2F0,62>,62>,62>,28,8,8,28 g=1721:3;0,g;"";21,g;"" g >h=2329:3;0,h;"";21,h;"" h b0,31;3;"";21,31;"";0,0;"";21,0;"" =f=110 :3;f,31;"";f,0;"" f "@11 ,31;6;"";11 ,0;3;"" ,>g=12 20:3;g,31;"";g,0;"" 6g @zy,x;4;"";y+1,x;"":ay1,ax1;"";ay1+1,ax1;"";ay2,ax2;"";ay2-1,ax2;"":ay3,ax3;d;"" W main loop XS="q"y>1y=y-1:y,x;4;"";y+1,x;"";y+2,x;" " lT="a"y<19y=y+1:y,x;4;"";y+1,x;"";y-1,x;" " v="0"1000 ay1=ay1+1:ay1,ax1;"";ay1+1,ax1;"";ay1-1,ax1;" ":ay1=19ay1=1:ay1=119,ax1;" ";20,ax1;" "  2000 ay2=ay2-2:ay2,ax2;"";ay2-1,ax2;"";ay2+1,ax2;" ";ay2+2,ax2;" ":ay2=2ay2=20:ay2=201,ax2;" ";2,ax2;" " dy=(*3)+1 kay3=ay3+dy:ay321ay3=1:ay3=118,ax3;" ";19,ax3;" ";20,ax3;" " !d;ay3,ax3;"";ay3-dy,ax3;" "  600X fire routine f=4302 2y,f;5;"";y,f-2;" ":.002xn,f 5f=30y,30;" ":.005y# =,f*1.5@ f shot=shot+1 shot=100d85004! Wy=ay1y=ay1+1ay1,ax1;" ";ay1+1,ax1;" ":sc=sc+10 :ay1=1: Xy=ay2y=ay2-1ay2,ax2;" ";ay2-1,ax2;" ":sc=sc+25:ay2=20: Xy=ay3ay3,ax3;" ":sc=sc+75K:d=d-1:ay3=1:d=04000: $ ghost fire routine b= b<.90ffff-screen/502 f=13 1-2 6ay1,f;2;"";ay1,f+2;" ":.005y# =,f 3f=1ay1,1;" ":.005y# =,-15 f !ay1=yay1=y+121004  4@y,x;" ";y+1,x;" ":1,10 :2,-30 >'li=li-1:li=09000(# H0y=11 :y,x;4;"";y+1,x;"" \ remove UDGs lay1,ax1;" ";ay1+1,ax1;" ";ay2,ax2;" ";ay2-1,ax2;" ";ay3,ax3;" ";y,x;" ";y+1,x;" "  bonus Ascreen=screen+1:sc=sc+200:d=7:shot=0  3000 4ay1=1:ay2=20:ay3=1:y=11 :1;5;11 ,7;"BONUS!BONUS!BONUS!" Wscreen=6li=li+1:6;1;14,8;"PLUS EXTRA LIFE!" Nf=110 :.05|L,f:.05|L,f+2:.05|L,f+4:f screen=10 5000 6 h 200 victory routine  3000 (11 ,7;" " f=130 P11 ,g;4;"";12 ,g;"":f=120:f:12 ,g;4;"":f=120:f:11 ,g;" ";12 ,g;" " g 2:7:2: |f=711 !6;f,12 ;"" Df &6;12 ,13 ;""  $6;13 ,14;"" pf=1416 6;f,15;"" f &6;17,13 ;"" ʀ96`,112p:1;64@,0:1;0,8:1;-64@,0:1;0,-8 6;f,15;"" f=14 51;8,-8:1;8,8 f %2,8;"CONGRATULATIONS!" !f=120:.05|L,f f $34,1;"YOU HAVE DEFEATED THE SORCERER" .U19,6;"GAINED THE HOLY GRAIL";21,6;"AND WON YOUR FREEDOM." 3 700 8 9000(# ?instructions @:" In this game you are a content-ed and not very fierce dragon. Alas you have been entranced by a cowardly wizard. You are sent to recover the magical Holy Grail which has been stolen by arival sorcerer." ''" The wizard has worked some spells to enhance your natural powers. You can throw lightning bolts. You have also been given a certain degree of invulner- ability which will protect you from two blasts of hellfire, which is fired by the ghost." 819,3;"PRESS ANY KEY TO CONTINUE":0 :" To defeat the sorcerer,and gainthe Grail,you must hit him seventimes in each screen (and there are ten screens). But beware, ifyour lightning hits one of his undead creatures first it will have no effect on him." ''" Due to losing his magic Grail the wizard can only give you a limited number of lightning bolts (100) per screen. If you use up all of these your game is over." 0:19,3;"PRESS ANY KEY TO CONTINUE":0: :-0,4;"Use the following keys: " l)2,6;"Q :- up A :- down" 4,11 ;"0 :- fire" ~6,0;" You score 10pts for hitting a ghost,25pts for hitting a skel- eton, 75pts for hitting the sorcerer." v12 ,0;" There is a bonus of 200pts for clearing a screen and an extra life after clearing five screens" :19,2;"PRESS ANY KEY TO START GAME":0 ! !3 end of game !4?:11 ,0;" You have run out of lightning bolts! " !f=1200:f #():5,7;"Your score was ";sc #Zsc>hihi=sc #d&10 ,8;"High score = ";hi #616,0;"Do you want another game (y/n)? " #/="y"0:7:0::100d $T"n"9200# $ %"holy grail"1 &Graphics:- A - B - C - D - E - F - G - H - I - J - K -