Blake's 7 4=€4=¢6=ÿyêBlake's Seven (aka. Ice Diamonds) by Jason Glover, from Sinclair User 30 (Sep.1984) {êYou are the captain of the spaceship Liberator and it is your mission to steal the ice diamonds from the evil Federation. }êGlover clearly is a great science fiction enthusiast, and his game requires quick reactions and an eye on the whole screen. \êThere are five planetary systems to explore and action on the ground, as well as in space. í9200ð# í9100Œ# ç0:Ú0:Ù7:û õ"Initialising..hang on a sec." í9600€% D×.1}LÌÌÌ,20:û:ña$="Do you require instructions?":í8800`" ú¦="y"Ëì20 ú¦="n"Ëì200È ì17 û DÝ1:ña$=" BLAKE'S SEVEN ":í8800`":Ý0 õ' #í8800`":õ' (ña$="You are Blake cruising the five sectors of the corrupt and evil Federation in the advanced spaceship Liberator. Your task is to overthrow the Federation by raiding each of the planetary systems,travellingat high speed between them...":í8800`" 4,õ''':ña$=" PRESS A KEY":í8800`" 6ò0:û 8ña$="‘":í8800`" :-ña$="’“...This is the Liberator":í8800`" <5õ'':ña$="”•...A Federation Pursuit Ship":í8800`" >'õ'':ña$="–...A Space Mine":í8800`" @õ'':ña$="šš":í8800`" B/ña$="šš...Real Time Port for fast":í8800`" D.ña$="exit from planetary system.":í8800`" E’õ:ña$="›...This is you,Roj Blake ":í8800`":õ:ña$=" ...This is a surface mine":í8800`":õ:ña$="¡...This is an Ice Diamond":í8800`" F*õ'':ña$=" PRESS A KEY":í8800`" Hò0:û J ña$="Control Keys:":í8800`" L'õ:ña$=" Q...Liberator up":í8800`" N'ña$=" A...Liberator down":í8800`" P(ña$=" P...Liberator right":í8800`" R+õ:ña$=" O...Fire plasma bolt":í8800`" T'õ:ña$=" SPACE...teleport":í8800`" X3õ:ña$=" 0...R.T. Exit (at R.T. Port)":í8800`" Z5õ:ña$=" 1-5...Select Federation Sector":í8800`" \#õ:ña$=" K...Man left":í8800`" ^"ña$=" L...Man right":í8800`" b)õ':ña$=" PRESS A KEY":í8800`" d ò0 n'û:ña$="When a planostationary orbit hasbeen attained,you may teleport to the planetary surface and tryto take any Federation Ice Diam-onds(avoiding teleporting onto a surface mine)or fly across theSector and enter the Real Time Exit Port to fly at False Time to another Sector.":í8800`" x‰ña$="Federation Pursuit Ships will periodically locate you and attack..you must use your PlasmaBolts to destroy them.":í8800`" }Šña$="When in combat with Pursuit Ships,Zen will not allow you to teleport since you are requi-red to defend Liberator":í8800`" ‚+õ''':ña$=" PRESS A KEY":í8800`" „ ò0 ‡û –(ña$="If Liberator hits a Space Mine or is shot by a Federation Pursuit Ship 1 unit of damage will occur..Liberator can accept5 units before annihilation. If you step or teleport on a surface mine a life is lost. Your energy is depleted wheneveryou fire or teleport.":í8800`" ›$ña$="Space mines may be neutralised by shooting them,Federation Ships will also neutralise them to avoid being destroyed. Remember that you have no contr-ol over the Liberator while you are on the Base Planet surface..so be prepared to teleport back if a Federation ship appears." í8800`" nña$="If you manage to collect 10 Ice Diamonds you will have succeededin your Mission..GOOD LUCK!":í8800`" ¨EÝ1:ña$=" PRESS A KEY TO START ":í8800`":Ý0 ©ò0:û Òí9800H& ôêscreen borders ùû þ Ù1 4ën=2Ì5:ön,2:ü0,171«:ón 8ën=250úÌ253ý:ön,2:ü0,171«:ón 8ën=170ªÌ173:ö2,n:ü251û,0:ón &4ën=2Ì5:ö2,n:ü251û,0:ón 06ën=28Ì31:ö2,n:ü251û,0:ón :6ën=64@Ì67C:ö2,n:ü251û,0:ón D Ù7 N ñmov=0 Xí85004!:êsystem lñz$=p$(sys) ví8400Ð €í8300l ¼/í7400è+(sys*100d):êgen.sys.from 7500 Ü êinitials æñlx=6:ñly=1 ð ñfx=502 õúmov=1Ëì1800 úñdam=0:ñliv=5 ñid=0 ñdia=0 ñen=99c "ñdp=0 @:í6430:õ¬20,1;Ý1;Ù2;"DAMAGE" J-õ¬20,8;Ý1;Ù5;"LIVES" Tí6520x ^1õ¬20,14;Ý1;Ù6;"DIAMONDS" cí6620Ü h/õ¬20,23;Ý1;Ù3;"ENERGY" rí6675 Aõ¬1,29;Ù3;"šš";¬2,29;Ù3;"šš" ž!õ¬lx,ly;"‘";¬lx+1,ly;"’“" ÐêLiberator Ú<ñl=1+º(¥*502):úl=1Ëí2500Ä :ì2050 äú¦=" "Ëì3000¸ îúl=1Ëí2520Ø Fú¦="q"Ëí5100ì:í5000ˆ:ñlx=lx-1:í5120:í5000ˆ Fú¦="a"Ëí5200P:í5000ˆ:ñlx=lx+1:í5220d:í5000ˆ Fú¦="p"Ëí5300´:í5000ˆ:ñly=ly+1:í5320È:í5000ˆ ú¦="o"Ëí5400 %+ú¦="0"Ëúlx=1Æly=29Ëì7350¶ ºúl=1Ëì2030î ¿ì2010Ú ÃêFederation ship Äñfx=1+º(¥*12) É ñfy=29 Îí6100Ô Ó úfx=lxËúly>27Ëí6000p Õ(úfx=lx+1Ëúly>27Ëí6000p Øí6100Ô Ýñfr=1+º(¥*2) â"úfr=1Ëúfx>lxËñfx=fx-1 ì"úfr=1Ëúfxútp/2=º(tp/2)Ëõ¬16,tp;Ú5;Ù0;"" „>útp/2Éº(tp/2)Ëõ¬16,tp;Ú5;Ù0;"ž" ‰údp=1Ëí6600È Žþ —êman right ˜Wú«(16,tp+1)=43+Ëõ¬16,tp;Ú5;" ":ñtp=tp+1:ì4800À ›-ú«(16,tp+1)=46.Ëñdp=1 õ¬16,tp;Ú5;" " ¢ñtp=tp+1 §>útp/2=º(tp/2)Ëõ¬16,tp;Ú5;Ù0;"›" ¬>útp/2Éº(tp/2)Ëõ¬16,tp;Ú5;Ù0;"œ" ¯údp=1Ëí6600È ±þ À êman dead Åën=4Ì1Í-1 Ê'õ¬16,tp;Ú5;"—":×.1}LÌÌÌ,n Ô0õ¬16,tp;Ú5;"˜":×.1}LÌÌÌ,n-10 Þ0õ¬16,tp;Ú5;"™":×.1}LÌÌÌ,n-20 ãón èõ¬16,tp;Ú5;" " ëí8370² íí6500d òì2050 #êtelep. $ñtp=1+º(¥*30) '%ú«(16,tp)=43+Ëì4800À (%ú«(16,tp)=46.Ëí6600È )ëx=1Ì2 .ën=1Ì7 8õ¬16,tp;Ú5;Ùn;"Ÿ" B$×.005y#× =,n:×.005y#× =,n+1 Lón Vóx `í6660 ƒþ ‡êprint Liberator ˆ*õ¬lx,ly;Þ1;"‘";¬lx+1,ly;"’“" ’þ ëêchecks space mine ì&ú«(lx-1,ly)=4Ëì6000p ö.ú«(lx-1,ly+1)=4Ëì6000p ûþ úlx=0Ëñlx=1 Kþ P&ú«(lx+2,ly)=4Ëì6000p Z.ú«(lx+2,ly+1)=4Ëì6000p _þ dúlx=12Ëñlx=11 ¯þ ´&ú«(lx,ly+2)=4Ëì6000p ¾.ú«(lx+1,ly+2)=4Ëì6000p Ãþ Èúly=30Ëñly=ly-1 þ êfire! úly>25Ëþ ën=1Ì2 "RöÞ1;16+(ly*8),168¨-(lx*8):üÞ1;31,0 ,ón 1*×.01z#× =,-10 :×.01z#× =,-20 60úfx=lxËúfy-lyÈ1Æfy-lyÇ5Ëí6300œ @í6660 |þ pêLiberator explodes u3õ¬lx,ly;Þ1;"‘";¬lx+1,ly;Þ1;"’“" wët=1Ì2 zën=1Ì2 „Eõ¬lx,ly;Þ1;Ü1;"——";¬lx+1,ly;Þ1;Ü1;"——" †×.05|LÌÌÌ,-502 ‰ón ‹ën=1Ì2 ŽEõ¬lx,ly;Þ1;Ü1;"˜˜";¬lx+1,ly;Þ1;Ü1;"˜˜" ×.05|LÌÌÌ,-557 “ón •ën=1Ì2 ˜Eõ¬lx,ly;Þ1;Ü1;"™™";¬lx+1,ly;Þ1;Ü1;"™™" ×.05|LÌÌÌ,-60< ¢ón ¤ót §Vën=1Ì2:õ¬lx,ly;Þ1;" ":õ¬lx+1,ly;Þ1;" ":êclears bright ©ón ¬í6400 ¶ñlx=5:ñly=1 »í5000ˆ Ïþ Óêprint Federation ship Ôõ¬fx,fy;Þ1;"”•" Þþ 8êFederation fire ;úfy<5Ëþ =ën=1Ì2 BNöÞ1;fy*8-1,172¬-fx*8:üÞ1;-31,0 Lón Q(×.01z#× =,0:×.01z#× =,-10 V0úfx=lxËúfy-lyÈ1Æfy-lyÇ5Ëí6000p `8úfx=lx+1Ëúfy-lyÈ1Æfy-lyÇ5Ëí6000p jþ œêhit Federation ship Ÿõ¬fx,fy;Þ1;"”•" ¡ën=1Ì2 £7õ¬fx,fy;Ü1;Þ1;"——":×.04|#× =,-45-:ón ¥ën=1Ì2 ¦7õ¬fx,fy;Ü1;Þ1;"˜˜":×.04|#× =,-502:ón «ën=1Ì2 °7õ¬fx,fy;Ü1;Þ1;"™™":×.04|#× =,-557:ón µ;ën=1Ì2:õ¬fx,fy;Þ1;" ":ón:êclears bright ºñl=0 Äñfx=0:ñfy=0 Îþ êdamage ñdam=dam+1 údam=6Ëì9900¬& êz$ report ( õ¬20,7;Ý1;dam 2þ dêlives nñliv=liv-1 x!õ¬20,13 ;Ý1;liv ‚úliv=0Ëì9900¬& –þ È êdiamonds Òñdia=dia+1 ×ñdp=0 Ùúdia=10 Ëì9960è& Ü!õ¬20,22;Ý1;dia á%×.1}LÌÌÌ,0:×.1}LÌÌÌ,20 ãúdiaÉ0Ëí8380¼ úþ êenergy ñen=en-1 õ¬20,29;"" õ¬20,29;Ý1;en "úen=0Ëì9900¬& ,þ ¶ êexit sector »$í8365 :í8300l :í7400è À ñmov=1 Ê4õ¬19,1;" " ÏPën=1Ì12:×.02{#× =,n:×.02{#× =,n+10 :×.02{#× =,n*-1:ón Ôì600X èêsurf scan cls òën=14Ì17 ü-õ¬n,1;" " ón þ êspace mine ën=1Ì10 $ñsmx=1+º(¥*11) )ñsmy=4+º(¥*24) .õ¬smx,smy;Ù4;"–" 3ón 8þ Lêplanets (stars) Q êsystem1 Ví8200 Xí8360¨ [ën=0Ì25 `Ø100d,100d,n/2 jón oí7450:í8460! tí8395Ë yí8390Æ «þ ° êsystem2 ²í8200 ´í8360¨ µën=0Ì25 ºØ502,100d,n/2 Îón Óí7450:í8460! Øí8395Ë Ýí8390Æ þ êsystem3 í8200 í8360¨ ën=0Ì25 Ø150–,100d,n/2 #Ø90Z,90Z,n/4 (ón -í7450:í8460! 2í8395Ë 7í8390Æ sþ x êsystem4 }í8200 ‚í8360¨ ‡ën=0Ì25 ŒØ100d,100d,n/2 ‘Ø502,130‚,n/4 –ón ›í7450:í8460! í8395Ë ¥í8390Æ ×þ Ü êsystem5 áí8200 ãí8360¨ æën=0Ì25 ëØ120x,110n,n/2 ÷ón úí7450:í8460! ÿí8395Ë í8390Æ ;þ êstars ën=1Ì502 0ö10 +º(¥*230æ),80P+º(¥*85U) &ón bþ l êscanner cls vën=1Ì12 €-õ¬n,1;" " ”ón žþ Ÿêcomp.words ¨.ñz$="REAL TIME DRIVE FUNCTIONING":ì8400Ð 0ñz$="EXITING REAL TIME-SPACE DRIVE":ì8400Ð ²#ñz$="HIT SURFACE MINE":ì8400Ð ¼'ñz$="ICE DIAMOND OBTAINED":ì8400Ð Æ(ñz$="GROUND SCAN LOCKED ON":ì8400Ð Ë1ñz$="PLANOSTATIONARY ORBIT ATTAINED":ì8400Ð ÐêZen print out Õ4õ¬19,1;" " ×'×.01z#× =,10 :×.01z#× =,0 Úën=2Ì±z$+1 ä#õ¬19,n-1;z$(n-1) øón !þ ! êsurface !=õ¬17,1;Ù4;"" ! Tën=14Ì16:õ¬n,1;Ú5;Ù0;" " !#ón !%.ën=1Ì5:ñmin=1+º(¥*30) !*(õ¬16,min;Ù3;Ú5;" ":ón !-Xën=1Ì2:ñdiap=1+º(¥*30):õ¬16,diap;Ú5;Ù6;"¡":ón !/þ !4êsystem !H"ñz$="PLANET SYSTEM ?":í8400Ð !Rëx=4Ì8 !\õ¬x,2;p$(x-3) !f"×.02{#× =,x:×.02{#× =,x+4 !˜óx !¢ú¦=""Ëì8610¢! !¬ñk$=¦ !¶ú¯k$<491Ëì8610¢! !Àú¯k$>535Ëì8610¢! !Êñsys=°¦ "[þ "`êinstr. print out "jën=1Ì±a$ "tõa$(n); "ˆón "’õ "Äêinitial system var. "Î ñsys=1 #þ #Œêtune #–í9185á# # &×.2~LÌÌÌ,19:×.5ÿÿÿ,19 #ªí9185á# #´&×.2~LÌÌÌ,19:×.5ÿÿÿ,14 #¾í9185á# #È&×.2~LÌÌÌ,19:×.5ÿÿÿ,19 #Ò_×.5ÿÿÿ,22:×.5ÿÿÿ,20:×.5ÿÿÿ,20:×.2~LÌÌÌ,19:×.5ÿÿÿ,14 #×%ën=14Ì28:×.05|LÌÌÌ,n:ón #Ü×.1}LÌÌÌ,30 #ßþ #áL×.5ÿÿÿ,14:×.5ÿÿÿ,15:×.5ÿÿÿ,17:×.5ÿÿÿ,20 #æþ #ð êdisplay #úën=0Ì21 $ñi=2+º(¥*6) $;õ¬n,0;Ý1;Ùi;" BLAKE'S SEVEN " $çi $ón $"þ %€êu.d.gs %Šëz=144Ì161¡ %”"ën=0Ì7:ãk:ôÀÂz+n,k:ón %žóz %¨$ä0,63?,62>,24,24,124|,255ÿ,255ÿ,0,224à,0,0,0,0,224à,255ÿ,127,30,30,513,115s,252ü,255ÿ,0,224à,0,0,128€,248ø,0,192À,0 %²ä0,0,7,127,7,0,0,1,30,14,255ÿ,255ÿ,255ÿ,14,28,254þ %¼Kä129,90Z,60<,36$,36$,60<,90Z,129 %Ð×ä153™,90Z,60<,63?,252ü,60<,90Z,153™,0,73I,42*,28,126~,524,82R,0,0,0,36$,24,24,36$,0,0 %ÚKä36$,36$,255ÿ,36$,36$,255ÿ,36$,36$ %ß ä24,24,480,88X,20,24,20,34",24,24,20,60<,80P,16,40(,72H,24,24,12,26,40(,24,40(,68D,24,24,40(,60<,10 ,8,20,18 %äKä60<,36$,72H,164¤,226â,36$,34",65A %éFä0,0,0,0,24,24,60<,126~ %îGä0,0,0,16,568,116t,568,16 &>þ &Hép$(5,29) &Rëx=1Ì5 &\ãp$(x) &fóx &z[ä"SYSTEM 1 BASE PLANET ARISTO","SYSTEM 2 BASE PLANET AMERSAT","SYSTEM 3 BASE PLANET EARTH" &„?ä"SYSTEM 4 BASE PLANET CEPHLON","SYSTEM 5 BASE PLANET CENTERO" &¢þ &¬êlose &¶ën=20Ì-20Í-1 &»#×.01z#× =,n:×.02{#× =,n-5: &Àón &Ê)õ¬10 ,11;Û1;"GAME OVER" &Ô0õ¬11,3;"YOU FAILED IN YOUR MISSION" &Þì9990' &èêwin &òën=1Ì8 &÷7×.02{#× =,n:×.02{#× =,n+1:×.02{#× =,n+2 &ùón &ü9õ¬10 ,3;Û1;"YOU HAVE SUCCEEDED IN YOUR" &ý1õ¬11,7;Û1;"MISSION..WELL DONE" 'í9100Œ# ''õ¬12,6;"PLAY AGAIN? (y/n)" ' ú¦="y"Ë÷ ' ú¦="n"Ëâ ' ì9995' Ÿ