DF #'#*#Dark Forest by David Batey, from Sinclair User 28 (Jul.1984) listing 1 of 2: Main program This month's Cambridge Awards program is from 14-year-old David Batey of Bedlington, Northumberland, and should provide some light relief from the fiendish complexity of the previous two games in the series. {In Dark Forest you may be called on to meet Dracula, battle a werewolf, or play Russian roulette with poisoned cocktails. A rather unlikely knight in shining armour awaits to rescue you and the program will appeal particularly to some of our younger readers. 23658j\,0 A7:7:0:0:0:0:0: B" YOU ARE LOST IN A FOREST AND IT IS APPROACHING MIDNIGHT." :''"YOU ARE STANDING ON THE BANK OF A STREAM." @''''" DO YOU WANT TO GO UP-STREAM OR DOWN-STREAM ?" '9 ;"( up or down )" a$ a$"up"a$"down"210 a=(*2) a=1500 0:0:6: ,V0,120x:245,0:0,120x:0,30:499 -;0,-20:499:0,30:499 .;0,-10 :499:0,10 :499 /N0,-30:499:0,20:499:0,-30 0O115s,120x:0,10 :20,0,-:0,-10 11:7:f=1523070F:f,130:5,0:0,7:-5,0,:0,-7:f:6:0 6v120x,139:a=139120x-1:120x,a:125},a:130,a:.01z# =,a-100d:a @;8,9 ;"W E L C O M E";10 ,14;"T O" AH12 ,13 ;"T H E";14,4;"R E S I D E N C E O F" D 7 E518,0;" " J#" " O#" " Teg=130:ٺ(*5+1):1:n=1821:n,0,,:n:0:g ^7:7:0: _\"Do you wish to proceed into the castle or are you a ";1;"SCAREDY BAT";0;"?" `>'''"Press 'e' to enter the castle "''" or 's' to scram !" aa$ ba$"e"a$"s"353a ca$="s"1000 d&w=(*2):w=1999 e':0,31:255,0 ff=016 g f,f;"" h.15~,502 i f,f;"" jx=115:x k f,f;" " lf ma=110 :i=*5:16,16;i;"";17,16;i;"":x=110 :x:16,16;" ";17,16;" ":a n/16,16;"";17,16;"" o.19,5;"My name is Count Dracula" pw.5,-30:1,-10 :.25~,-20:.25~,-10 :.25~,0:1,-10 rD2:7::m=1704:2;"";:m:2 s65,8;1;1;"YOU ARE UNLUCKY" tk8,0;"Dracula has drunk your blood andyou will be a vampire until the end of the world ! ! !" ux=1200:x vM13 ,0;"Your only chance is to go back to the beginning." wx=1700:x x 8000@ f=13:0,5:5,0:0,-5:5,0:f:0,5:5,0:0,-5: 7:7:0: A"You have found a black stallion and are galloping away on it." a=15  f=1517:.003xD,10 :6-f/5:.003xD,5:6-f/5:.003xD,0:5-f/5:.003xD,1:25-f:f a m:9 ,0;"You see a cross-bow lying on the ground.Do you want to pick it up ?" '8;"( yes or no )" !c$:c$"yes"c$"no"532 c$="yes"c=1 c$="no"c=0 &r=(*3):r=2250 1:1:7: ^"You have ventured down a dark alleyway only to find a werewolfstanding at the other end." c=0100d:''"If you had picked the cross-bow you might have stood a chance against it !!":f=1400:f:8000@ !q=(*26)+65A:'"When a letter appears on the screen press the corresponding key on your computer to try and shoot the werewolf." &f=11000:f: '.5,10 +10 ,15;q ,23658j\,8 0"w=11000000t$:qw 123658j\,0 5Kw<70F15,5;1;"YOU SHOT THE WEREWOLF":575? :w>70F15,0;1;"YOU WERE TOO SLOW! THE WEREWOLF":2;7;1;" HAS CLAWED YOU TO DEATH " ;$f=1400:f:8000@ ?$f=1200:f:1000  1:1:7: x:9 ,0;1;"YOU WERE LUCKY - YOU GOT THROUGH THE CASTLE SAFELY ":x=1400:x r=(*2) r=11100L 4:4:0: ^"You are walking along a cliff":x=1100d:x:''"You trip over a stick and......" x=1200:x 5:5:0: s6,0;4;7;1;"":x=721:x,0;7;"":x t20,10 ;1;"";21,0;1;"" 220,0;7;1;"" l=13 :f=619:f,10 ;"":.05|L,l-1:f,10 ;"":.05|L,l:l=l-1:f,10 ;" ":f 1:1:f=110 :.01z# =,*10 :20,10 ;"\":5:20,10 ;"|":5:20,10 ;"/":5:f:0 x=1200:x 7:7:0: H10 ,0;2;1;"YOU HAVE DROWNED IN THE DEEP SEA" $x=1300,:x:8000@ L1:1:7: Qr=(*6) V+r=0r=1r=22000 [!r=3r=43000 `r=54000 5:5:0: q0,87W:255,0:0,67C:10 ,10 :235,0:10 ,-10 `10 ,3;1;"";10 ,15;2;"";10 ,28;0;"" B8,3;"0";8,15;"1";8,28;"2" v17,0;"One of the goblets of wine on the table is poisoned. Which one do you want to drink ?" p=(*3)+480 121,0;"( Press either 0 , 1 or 2 )" "0"Ʀ"1"Ʀ"2"2030 =p0:0:7::x=1502:.005y# =,*x:x:4;0;1;10 ,0;"YOU HAVE DRUNK THE POISON !!":f=1400:f:8000@ 7:7:0: <1;6;3;"YOU HAVE NOT DRUNK THE POISON"  ''" YOU ARE SAFE AND WELL "  61,20:1,30:1,40(  500 0:0:7: $"YOU HAVE GONE ROUND IN A CIRCLE!" %:f=1200:f:170 7:7:0: "AFTER THIS LONG AND EXCITING ADVENTURE AN AMAZING MIRACLE HASOCCURRED! CLIVE SINCLAIR YOUR FAITHFUL FRIEND,WITHOUT WHOM THIS ADVENTURE WOULD NOT HAVE BEEN POSSIBLE,HAS . . . . . . . " ?1;7;1;" RESCUED YOU FROM IMMINENT DOOM " 1f=1275:.003xD,*502:f: O2:5,14;"";6,14;"";7,14;"" f=15 i1:8,13 ;" ";9 ,14;"";10 ,14;"";11 ,14;"" .3,40( 48,13 ;"":9 ,13 ;" " .3,20 f 15,3; T4035:n=12:f=13:a,b,w$:w$;:a,b:f:20:n ×.5,12 ,"CLIVE ",.25~,9 ,"SIN",.5,5,"CLAIR ",.5,14,"SUP",.25~,10 ,"ER-",.5,5,"STAR" f=1100d:f: ~8,0;1;"Uncle Clive has taken you to Cambridge where you will live with him at Sinclair Research. " O''2;" DO YOU WANT TO TRY AGAIN AT ACHIEVING THIS INCREDIBLE FEAT ?"  8010J @6:6:0: EH8,4;1;1;7;"DO YOU WANT ANOTHER GO ?" J'''''9 ;"( yes or no )" Oa$ Ta$"yes"a$"no"8015O Ya$="yes"130 X0:0:7::3,0;"THIS PROGRAM WILL NOW"''"SELF-DESTRUCT" s=100d0-1 510 ,10 ;s;" ":x=110 :x:s #10 ,9 ;1;"BANG" "x=1200:x:0 '%"gr""A",21*8:5 gr XZ$~~/ bRD%A8B!FR dBR$Qi~]*">]0`` K{ABBA'(K3+8@@@~~~~<<~BBBBB<DF-Load Dark Forest by David Batey, from Sinclair User 28 (Jul.1984~K)^) listing 2 of 2: UDG loader #(a=144163 #)x=07:d #* a+x,d #+x #,a #2J0,0,24,165,165,90Z,36$,126~ #7L165,165,126~,60<,90Z,24,24,60< #,47/,10 #PL98b,149,136,82R,68D,37%,65A,137 #UI568,196,66B,17,33!,70F,82R,9 #ZM148,100d,66B,152,160,82R,36$,27 #_L161,18,20,4,130,81Q,105i,134 #dL0,0,24,126~,255,255,255,255 #iI28,93],42*,28,28,28,20,34" #nG28,28,8,62>,93],28,20,8 #sK7,24,480,96`,96`,237,210,222 #xJ224,24,12 ,6,6,183,75K,123{ #}K210,205,65A,66B,66B,65A,39',40( #H75K,513,2,2,2,130,228,20 #E43+,24,28,15,7,2,2,2 #L212,24,568,240,224,64@,64@,64@ #N126~,126~,126~,126~,60<,24,60<,126~