ZXTape! 0Created with Ramsoft MakeTZXLoader 5&1:0:7:1: >1,10 ;7;1;2;"STOP THE TAPE" /5,1;" 1 } LOAD INSTRUCTIONS" Q7,1;" 2 } LOAD SANTA'S WORKSHOP 2 ~HARRY STRIKES BACK" (13 ,1;" PRESS A KEY !" m$=:m$=""20 m$="1"100d m$="2"200 # 20 d&1:0:0:1: e;1,10 ;7;1;1;"START TAPE" n410 ,10 ;7;1;"PLEASE WAIT" s"run" &1:0:0:1: ;1,10 ;7;1;1;"START TAPE" _10 ,0;7;"Let the tape run... First program not being loaded. " +18,10 ;7;"PLEASE WAIT" "" -d=1200:.01z# =,d/4:d 18,0;"" "SW2" 18,0;" " "Santa 2" MZrun 8+8x8&1:0:7:1: >10 ,9 ;6;2;1;"STOP THE TAPE" #d=07:r:"a"+d,r:d M24,60<,126~,255,255,126~,60<,24 ;q=1250:.01z# =,q/4:q::8000@ #f=110 :8050r:f  d=16:d o1,0;" " u6,0;" " k10 ,0;"CHAPTER TWO - HARRY STRIKES BACK";11 ,0;"================================" q=1150:q d  d=18:3582 0;6;0,0;" SANTA'S WORKSHOP ";21,0;0;" " d :9000(# =x$="=======THE STORY SO FAR=======":li=3:9300T$  7 =x$="Father Christmas and the ":li=5:9300T$ #=x$="Glublicks stopped Harry ":li=6:9300T$ (=li=7:x$="Horrible from brainwashing the":9300T$ -=x$="Glublick with the ideas for ":li=8:9300T$ 2=li=9 :x$="the toys and games for Santa ":9300T$ 7>li=10 :x$="But now Harry wants his ":9300T$ <>li=11 :x$="revenge and has built a new ":9300T$ A>li=12 :x$="machine which will give Harry ":9300T$ F>li=13 :x$="the power to travel through ":9300T$ K>li=14:x$="time or send anyone back in ":9300T$ P>li=15:x$="time. ":9300T$ U9050Z#:9000(# Z=li=3:x$="===========THE PLAN===========":9300T$ _F5:li=5:x$="Harry only needs a few things ":9300T$ d=li=6:x$="now to complete the machine. ":9300T$ i=li=8:x$="Once it is working he has ":9300T$ n=li=9 :x$="decided to send the Glublicks ":9300T$ s>li=10 :x$="back in time. He can only send":9300T$ x>li=11 :x$="them to one time or the time ":9300T$ }>li=12 :x$="machine will not work. ":9300T$ >li=13 :x$=" The Glublicks, Father ":9300T$ >li=14:x$="Christmas and their friends ":9300T$ >li=15:x$="have decided to go in groups ":9300T$ >li=16:x$="of three in the hope that it ":9300T$ >li=17:x$="will stop Harry, but he is out":9300T$ Vli=18:x$="for revenge!! ":9300T$:9050Z#:9000(# =li=3:x$="===========THE PLAN===========":9300T$ F4:li=5:x$="The Glublicks have split into ":9300T$ =li=6:x$="the following three groups :- ":9300T$ =li=8:x$=" A} Father Christmas, Boss, ":9300T$ =li=9 :x$=" Otto. ":9300T$ >li=11 :x$=" B} Hans, Leo, Boxer. ":9300T$ >li=13 :x$=" C} Brains, Rudolf, ":9300T$ >li=14:x$=" Sir Bungthorpe ":9300T$ >li=16:x$="You take the part of Harry ":9300T$ >li=17:x$="Horrible and you must get the ":9300T$ >li=18:x$="machine working and send Hans,":9300T$ Vli=19:x$="Leo and Boxer back in time ":9300T$:9050Z#:9000(# =li=3:x$="===========THE GAME===========":9300T$ F3:li=5:x$="Move around SANTALAND ":9300T$ =li=6:x$="collecting everything you can ":9300T$ =li=7:x$="you cannot catch the Glublicks":9300T$ =li=8:x$="while the machine is not ":9300T$ =li=9 :x$="working. The time to send the ":9300T$ >li=10 :x$="Glublicks to is hidden in a **":9300T$ >li=11 :x$="No I shan't tell you, find out":9300T$ >li=12 :x$="for yourself. All commands are":9300T$  >li=13 :x$="by pressing a single key when ":9300T$ >li=14:x$="the Flashing reindeer head ":9300T$ >li=15:x$="appears in the bottom right ":9300T$ >li=16:x$="corner of the screen area ":9300T$ >li=17:x$="this is to show when the ":9300T$ ">li=18:x$="Screen is finished. ":9300T$ 'Vli=19:x$="The next page gives the keys..":9300T$:9050Z#:9000(# ,=li=3:x$="===========THE KEYS===========":9300T$ 1=li=5:x$="Press the Key for more details":9300T$ 6=li=6:x$="(Z to Copy this page) ":9300T$ ;=li=8:x$="t} TAKE n} GO NORTH ":9300T$ @=li=9 :x$="q} QUIT s} GO SOUTH ":9300T$ E>li=10 :x$="i} INVENTORY w} GO WEST ":9300T$ J>li=11 :x$="z} COPY e} GO EAST ":9300T$ O>li=12 :x$="S} SOUND ON/OFF ":9300T$ T>li=13 :x$="p} PAUSE ":9300T$ Y>li=14:x$="c} CAPTURE ":9300T$ ^>li=15:x$="r} READ ":9300T$ a>li=17:x$="GO TO ~q~ to Quit Instructions":9300T$ cm$=:m$=""355c dm$="t"6000p em$="q"6050 fm$="i"7000X gm$="z"7050 hm$="S"7100 im$="p"7150 jm$="c"7200  km$="r"7250R lm$="n"7300 mm$="s"7350 nm$="e"7400 om$="w"7450 P19,9 ;7;2;1;"DON'T BE SILLY":1,0  355c 9000(#:7 sli=5:x$="START TAPE START TAPE START TA":6:2:1:9300T$:0:7:0 =10 ,10 ;1;7;1;"PLEASE WAIT" 012 ,3;"LOADING SANTA'S WORKSHOP 2" $1:0:0:1 "" ?19,0;6;"PLEASE FOLLOW SCREEN PROMPTS " -d=1200:.01z# =,d/4:d $1:0:0:1 "SW2" Q21,0;2;6;1;"PLEASE STOP THE TAPE NOW " +d=140(:.01z# =,502:d H21,0;0;0;" "  20  7 ?11 ,0;7;"MEET THE CHARACTERS YOU WILL SEE" .18,1;"^ Harry Horrible (YOU!!)"  150 618,0;" ^ Father Christmas! "  150 618,0;" Hans ^ The Innkeeper "  150 618,0;"Sir Bungthorpe ^ The Mayor "  150 k11 ,0;"THE GLUBLICKS ";18,0;"THE GLUBLICKS "  150 F11 ,19;" | BOSS ";18,19;" ^ Rudolf "  150 F11 ,19;"Brains| ";18,19;" ^ Leo "  150 F11 ,19;" Boxer | ";18,19;" Otto ^ "  200 Q21,0;6;2;1;"Press : R to read or J to Load " ="r"Ŧ="R"5055 #"j"Ʀ"J"5150 &0:0 (621,0;" " -k11 ,0;" ";18,0;" " 2H18,0;6;1;"START TAPE AND PRESS ANY KEY " 7=""51757 <618,0;" " A "Santa 2"  9 o p 9000(# zF5:li=5:x$="The t key will pick up any ":9300T$ =li=7:x$="object near you if you are on ":9300T$ =li=9 :x$="your own. The Glublicks will ":9300T$ >li=11 :x$="not let you take anything if ":9300T$ ali=13 :x$="they can help it!! ":9300T$:9050Z#:9000(#:300, 9000(#:5 =li=5:x$="The q key will quit the game ":9300T$ =li=7:x$="at any point taking you to the":9300T$ =li=9 :x$="final page which gives the ":9300T$ >li=11 :x$="new game option or reset ":9300T$ >li=13 :x$="option. ":9300T$ >li=15:x$="PRESS Q TO LEAVE INSTRUCTIONS ":9300T$ >li=16:x$="OR ANY OTHER KEY FOR MORE ":9300T$ =""6090 ="q"Ŧ="Q"5000 ""6092 9000(#:300, X&0:0:6:1: ]A0,10 ;"YOUR STATUS";1,10 ;"===========" b"3,0;"The i key will give your "''"present Status and an inventory "''"of the items your are carrying "''"The page is set out like this "''"and returns you to your place "''"You should NOT use this command "''"when you are in an area in which"''"you may be killed" gH21,0;7;1;" PRESS ANY KEY TO RETURN " l=""7020l m""7021m q41:0:6::9000(#:300, :9000(#  7 =li=5:x$="The z key will copy any screen":9300T$ =li=7:x$="except status pages and end ":9300T$ =li=9 :x$="pages. This fuction will help ":9300T$ >li=11 :x$="if you wish to make a map of ":9300T$ >li=13 :x$="SANTALAND. ":9300T$ #9050Z#:9000(#:300, 9000(#:5 =li=5:x$="While playing the game the ":9300T$ =li=7:x$="computer plays JINGLE BELLS ":9300T$ =li=9 :x$="But you can spare yourself by ":9300T$ >x$="pressing CAPS SHIFT ~S~ which ":li=11 :9300T$ >li=13 :x$="will turn the music on or off ":9300T$ #9050Z#:9000(#:300, 9000(#:4 =li=5:x$="The p key will move the ":9300T$ =li=7:x$="Glublicks around without you ":9300T$ =x$="moving. Do NOT use this if you":li=9 :9300T$ >li=11 :x$="are in a danger area !! ":9300T$ 9050Z#:9000(#  300,  9000(# ! 7 %=li=5:x$="The c key will catch Hans, Leo":9300T$ *=li=7:x$="and Boxer if you are at the ":9300T$ /=li=9 :x$="same location. If you meet any":9300T$ 4>li=11 :x$="of the others then they will ":9300T$ 9>li=13 :x$="free the Glublicks. They will ":9300T$ >>li=15:x$="also free them if they go to ":9300T$ C>li=17:x$="the Hideout. ":9300T$ H#9050Z#:9000(#:300, R9000(#:6 W=li=5:x$="The r key will display any ":9300T$ \=x$="writing you may wish to read ":li=7:9300T$ a=li=9 :x$="except the Blueprints which ":9300T$ f>li=11 :x$="are to technical for you!!? ":9300T$ k#9050Z#:9000(#:300,  9000(#  6 =li=5:x$="The n key will move you NORTH ":9300T$ =li=7:x$="if there is a red door along ":9300T$ =li=9 :x$="the top of the white screen ":9300T$ #9050Z#:9000(#:300,  9000(#  6 =li=5:x$="The s key will move you SOUTH ":9300T$ =li=7:x$="if there is a red door along ":9300T$ =li=9 :x$="the bottom of the white screen":9300T$ O19,1;2;7;1;"Sound is on Caps Shift ~S~ " #9050Z#:9000(#:300, 9000(#:6 =li=5:x$="the e key will move you EAST ":9300T$ =li=7:x$="if there is a red door along ":9300T$ =li=9 :x$="the rightside of the white ":9300T$ >li=11 :x$="screen ":9300T$ #9050Z#:9000(#:300, 9000(#:6 =li=5:x$="The w key will move you WEST ":9300T$ $=li=7:x$="if there is a red door along ":9300T$ )=li=9 :x$="the leftside of the white ":9300T$ .>li=11 :x$="screen ":9300T$ 3#9050Z#:9000(#:300, ? 9 : @ 6 J%x=97a:y=106j:9100# Ox=127:9200# T$x=67C:y=46.:9100# Yx=97a:9200# ^x=127:9100# cx=157:9200# ht17,7;2;" " m?21,0;4;"Triant (The Hotline Group) 1985" n-d=1250:.01z# =,d/4:d q r{17,0;4;" " wd=1100d:d |{17,0;2;" " d=1100d:d  #' #($0:6:1:1 #2G0;6;0,0;" SANTA'S WORKSHOP " #7i2,0;"CHAPTER TWO - HARRY STRIKES BACK";3,0;"================================" #KXd=321:6;0;d,0;"|==============================|":d #PVd=420:0;6;d,1;" ":d #S53,0;"================================" #U621,0;"================================" #Y #Z?21,0;6;"=========PRESS ANY KEY==========" #_=""9055_# #d""9060d# # #d=130 #x+d,y:0,d*2 #d # #d=301-1 #%x+(31-d),y:0,d*2 #d # $TZz=1̱x$:li,0+z;6;"":.001wn,502:li,0+z;x$(z):z: '"Erase ? y/n ";e$ 'e$="y""m";1;"run" '*"m";1;"run"1 ' *"m";1;"run" rBxy.T$MqXSTART TAPE START TAPE START TAEy @<B @<@B< |  @B<@< @< @8x888B8(8@8xB@8x88D8(B8D@8(88B8((D88D888x D8@8B88x8B8Dx8x8<@8888888D8B8hxD88x8<8h88@8B(<D@BD 0@xDD@xDD TD~ D< 00D@| 0T@T 0DD>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"D BBx@  DTBx@  DT"< DDxD DD@BDD@B DDxBDDDDD @DD "DDDDD<<<@@8@@88@<@>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>SW2 @m`|||~|~f|x~f|<??`f~~~~`f~>~n>?>|n|>~~fl>f~``??`f<<|~`f~<~f<?<`~~~ffffffff?f|f<|ffl>|~~~~~~~~``@```ffffffff~~~~~~~~~~~~~~~~~~~~~ff <<~fff~<<|<~`<f<<|<`<f~|~ff|f`fl~>f`fff`fff`f~f`~`~||<~~fff`<>ff<f< 1ni=0 ""136: d:100d c$(west,south,1)"N"g$(west,south)=" "h$(west,south)=c$(west,south):c$(west,south)="Nothing":17,0;1;7;"You can see ";c$(west,south):100d c$(west,south,1)"N"g$(west,south)" "21,0;6;2;1;1;"NOT WITH GLUBLICKS HERE !! ":1,-25:d:100d 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d comp=3h$(r1,r2,1)="R"g$(west,south,1)="@"g$(west,south,2)=" "cap=0cap=1:21,0;2;7;1;"You have caught the Glublicks!! ":d:100d comp=3h$(r1,r2,1)"R"g$(west,south,1)="@"cap=021,0;7;1;1;"You narrowly miss catching them":1,-25:d:100d m$="c"comp3h$(r1,r2,1)="R"g$(west,south,1)="@"cap=021,0;7;1;1;"The Machine is not complete yet.":1,-25:d:100d 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d h$(sc1,sc2,1)="a"17,0;2;6;"In this year a city stood, Covered in a smoky hood, A baker, it was later found had brought it to the ground. ":d:100d 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d Zp$(west,south,4)="*"place=place-1000:west=west-1:44000:place 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d 44000:place Zp$(west,south,2)="*"place=place+1000:west=west+1:44000:place 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d 44000:place [p$(west,south,3)="*"place=place-200:south=south+1:44000:place 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d 44000:place [p$(west,south,1)="*"place=place+200:south=south-1:44000:place 21,0;1;" ":21,8;1;2;7;1;"DON'T BE SILLY":1,-25:d:100d 44000:place 0.5,4,0.5,4,1,4,0.5,4,0.5,4,1,4,0.5,4,0.5,7,0.5,0,0.5,2,2,4 0.5,5,0.5,5,0.5,5,0.5,5,0.5,5,0.5,4,0.5,4,0.5,4,0.5,4,0.5,2,0.5,2,0.5,4,1,2,1,7 0.5,4,0.5,4,1,4,0.5,4,0.5,4,1,4,0.5,4,0.5,7,0.5,0,0.5,2,2,4 0.5,5,0.5,5,0.5,5,0.5,5,0.5,5,0.5,4,0.5,4,0.5,4,0.5,7,0.5,7,0.5,5,0.5,2,2,0 &1:7:1:0: 1 Sd=315:d,2;7;1;" ":d `0;7;1;5,15;"";6,14;"";7,15;"" bd=1621:1;6;1;d,0;" ":d p0,0;1;7;1;"SANTA'S WORKSHOP - Chapter II ~HARRY STRIKES BACK~ " 1 P2,0;1;6;1;" " ?16,0;1;7;"This is ";r$(west,south) :17,0;7;"You can see ";c$(west,south) 9 2200 g$(west,south)=" " yx=19:18,0;"You meet ":g$(west,south,1)="@"x-1,9 ;"Boxer,Leo & Hans":265  |g$(west,south,2)="#"x,0;"Brains,Rudolf & Sir Bungthorpe":x=x+1:270:hold1cap=0 pg$(west,south,3)="%"x,0;"Boss,Otto & FATHER CHRISTMAS!":275:hold1cap=0   f7;1;1;9 ,25;"";10 ,24;"B";11 ,25;""  f7;3;1;9 ,21;"";10 ,20;"L";11 ,21;""  d7;2;1;9 ,18;"";10 ,17;"";11 ,18;"": k7;4;1;13 ,18;"";14,17;"B";15,18;"" g7;2;1;13 ,21;"";14,20;"R";15,21;"" 7;2;1;13 ,24;"";14,23;"";14,25;"";2;6;14,24;"";15,24;""  d7;1;1;5,18;"";6,17;"B";7,18;"" d7;3;1;5,24;"";6,23;"O";7,24;"" f7;2;1;5,21;"";6,20;"~";7,21;""  200:100d X 200 Y6;2;1;11 ,4;"";12 ,4;"";13 ,4;" ";14,4;"";15,4;"" Z97;1;1;10 ,4;" " [1;5;1;1;3,27;"";4,26;"";5,27;"";6,27;"" ]7;0;1;3,4;"";4,4;" ";5,4;" ";6,4;" ";7,4;" ";8,4;" ";9 ,4;"" b0;4;1;4,5;"";5,5;" ";6,5;" ";7,5;" ";8,5;"" cc0;6;1;5,6;"GOD";6,6;"UPON";7,6;"HIGH"  100d  200 !Nq=311 :7;0;1;q,q;"";q,13 -q;"":q "cq=311 2:7;0;1;q,27;"";q+1,27;"":q  100d  200 gam=(*100d)+1 gam>75K1100L  1: 1,0;9 ;"You have narrowly missed falling"''"down a deep hole. Be more "''"careful in future or you could "''"end up going down in the world!!"''"(Do NOT press for your status until you are out of the area)" /q=1200:0.001wn,q/4:q    200:1095G  100d G5q=140(4:64@,104h,q:q H L?q=140(4:2:128,104h,q:q M 9 Q15,0;1;6;" You have fallen down a very deep hole and have been killed You failed to stop the Glublicks GAME OVER " R1;19,0;" " T.q=1200:.001wn,q/4:q V 9000(# ? @ 200 J0;7;10 ,4;"";11 ,4;"RIP";12 ,4;"";13 ,4;"";10 ,8;"";11 ,8;"";12 ,8;"";13 ,8;"" T&g$(2,3)" "100d Ygam=(*100d)+1 ^gam40(100d cbgam>40(gam<60<b$=" A GHOST !!!!! But it didn't frighten me HAHA!! ?? ":fri=0 hugam60<gam<90Zb$=" ARRGGGHHH!!! A Ghost!! what a shock .. I think I've dropped something":fri=1 mXgam90Zb$=" ARRGGGHHHH... A GHOST..THE FRIGHT HAS KILLED YOU!!!!!":fri=2 r2;7;1;9 ,8;"";8,5;" ";7,5;"";6,8;"" w 8900" |fri=0100d fri=29000(# fri1100d #h$(r1,r2,1)"R"1685 h$(r1,r2)=" " ,5190F:r1=ac:r2=dw:c$(r1,r2)="Rope" )comp=0:cap=0:hold=0 ,h$(4,2,1)"G"100d h$(4,2,1)="G"c$(4,2,1)="N"c$(4,2)=h$(4,2):comp=0:h$(4,2)=" " hold=0:cap=0 ""1795  100d  200 =q=315:7;0;q,4;"":q Lq=37:7;4;q,9 ;"";q,2;"":q Jq=810 :7;4;q,3;"";q,9 ;"":q !R7;5,14;" ";6,14;" ";7,14;" " &Eq=1512 -1:7;0;q,5;" ":q +W7;0;15,6;"";14,5;"";13 ,6;""  100d  200 >q=314:7;0;q,12 ;"":q c0;7;5,15;"";6,14;"";7,15;"" Iq=3142:7;0;q,3;"":q 17;0;3,17;"" Mg$(west,south,3)=" "7;0;5,17;"" Mg$(west,south,3)=" "7;0;7,17;"" Mg$(west,south,1)=" "7;0;9 ,17;"" Ng$(west,south,1)=" "7;0;11 ,17;"" Ng$(west,south,2)=" "7;0;13 ,17;"" [q=1150:7;4;(*11 )+3,(*9 )+3;"":q vg$(west,south,3)=" "q=180P:7;4;(*6)+3,(*9 )+17;"":q vg$(west,south,1)=" "q=140(:7;4;(*4)+9 ,(*9 )+17;"":q wg$(west,south,2)=" "q=1̺(*10 )+5:7;4;13 ,(*9 )+17;"":q  100d O7:p$(west,south,1)="*"3,15;1;2;"" dp$(west,south,2)="*"1;8,28;2;"";9 ,28;2;"" Gp$(west,south,3)="*"15,15;1;2;"" bp$(west,south,4)="*"1;8,2;2;"";9 ,2;2;""  1: ` 200 jBq=411 :0;7;q,3;"":q mP0;7;4,3;"";11 ,3;"" on7;0;6,3;"";8,3;"";10 ,3;"" r~6;5,4;"";2;5,10 ;"#";7,5;"$";9 ,5;"@";9 ,11 ;"*" s+0;2;7,8;"MARS" tp13 ,3;5;1;"";14,3;" ";15,3;"" y!g$(west,south)" "100d ~8,17;1;7;"HURRY HURRY";9 ,17;"SALE * TIME";10 ,17;"JERRY'S ***";11 ,17;"CHOCOLATE *";12 ,17;6;"LEMON - 18p" ' 100d ( 200 -Bq=414:7;0;q,3;"":q 2Eq=10 13 :7;q,4;" ";q,7;"_____":q 3!14,4;7;" " 7H8,4;2;6;1;"TUCKSHOP" <,11 ,7;0;2;"MARS" Ao5;1;5,4;"+++";6,4;"+++";5,9 ;"+++";6,9 ;"+++" F&g$(3,3)" "100d KCq=414:6;2;q,18;"":q Ps6;2;5,19;"+++";6,19;"+++";5,24;"+++";6,24;"+++" UK8,19;7;1;1;"WORKSHOP" Z06;2;10 ,20;" " _6;1;11 ,21;" |  ";12 ,21;"  +  ";13 ,21;"  |  ";14,21;"  |  " dX6;2;11 ,19;"+";12 ,19;"+";13 ,19;"+" 100d 200 5;1;4,5;"";5,5;" ";6,5;" ";7,5;" ";8,5;"" B5;0;6,6;"";7,7;" " k4;0;13 ,4;"";14,4;"";15,4;"" .7;2;12 ,4;" " ?6;2;8,18;"STABLES ^^^" 100d 200 I3;7;4,4;"";9 ,4;"" >q=56:3;7;q,4;" ":q >q=78:3;7;q,4;"":q ,6,5;7;0;" " 44;1;11 ,4;" FEED " d7;1;12 ,4;" ";13 ,4;" ";14,4;"" ,7;0;13 ,5;" " Lg$(3,1,1)" "g$(3,1,3)" "100d /2;7;4,18;"" ?q=56:2;7;q,18;" ":q ?q=79 :2;7;q,18;"":q -6,19;7;0;" "  100d 200 hq=4142:7;4;q,4;"";q+1,4;" ":q q=513 2 g=17 i=(*7) p=(*7) i=p3215 q,g+4;p;i;"" g:q b1;7;9 ,13 ;"TAPES";10 ,13 ;"" &g$(4,5)" "100d jq=4142:7;2;q,18;"";q+1,18;" ":q q=513 2 g=17 i=(*7) p=(*7) i=p3242 q,g+18;p;i;"" g:q G 100d H 200 M9q=12 14:0;q,3;"":q N56;0;12 ,3;" TRIANT " Rgq=482:7;2;q,3;"";q+1,3;" ":q S17;2;10 ,3;"" Wq=59 2 Xg=17 Yi=(*7) Zp=(*7) [i=p3417Y \q,g+3;p;i;"" ^g:q a&g$(4,4)" "100d f:q=413 :2;q,18;"":q i(*2)3450z kP4,18;2;6;" OUT NOW " p7;2;6,18;"SANTA'S ";7,18;"WORKSHOP 1";8,18;"THE BRAIN ";9 ,18;"MACHINE. ";11 ,18;"ONLY FROM ";12 ,18;"TRIANT AT ";13 ,18;"HOTLINE !!" u 100d z:4,18;2;6;" OUT SOON "  7;2;6,18;"SANTA'S ";7,18;"WORKSHOP 3";8,18;"THE FINAL ";9 ,18;"CHAPTER. ";11 ,18;"ONLY FROM ";12 ,18;"TRIANT AT ";13 ,18;"HOTLINE !!"  100d  200 Bq=414:7;0;q,3;"":q Eq=10 13 :7;q,4;" ";q,7;" ":q !14,4;7;" "  E8,4;2;6;"*TRIANT*" !{1;5;11 ,7;" ALL ";12 ,7;" NEW ";13 ,7;"GAMES";10 ,7;"LOOK!" $o6;0;5,4;"+++";6,4;"+++";5,9 ;"+++";6,9 ;"+++" )&g$(4,3)" "100d .Cq=414:7;1;q,18;"":q 3@q=10 14:6;0;q,22;"[]":q 47;3;7,19;"FIR TREE";8,20;" INN ";4;8,19;"";8,26;"" 8Oq=10 13 :1;6;q,19;"+++";q,24;"+++":q  100d  200 9q=12 14:0;q,3;"":q 7;3;5,4;"FIR TREE";6,5;" INN ";4;6,4;"";6,11 ;"" .3;7;11 ,3;" "  100d 200:100d h 200 / 100d 0hold=14415? 2Ccap=1g$(s1,g1,1)=" ":s1=west:g1=south:4414> 3s4=(*5)+1 4s4=54411; 5g$(s1,g1,1)=" " 6p$(s1,g1,s4)="-"44000 73s4=4s1=s1-1:s1<1s1=1 83s4=3g1=g1+1:g1>5g1=5 93s4=2s1=s1+1:s1>7s1=7 :3s4=1g1=g1-1:g1<1g1=1 >g$(s1,g1,1)="@" @s5=(*5)+1 As5=54425I Bg$(s2,g2,2)=" " Dp$(s2,g2,s5)="-"4415? E3s5=4s2=s2-1:s2<1s2=1 F3s5=3g2=g2+1:g2>5g2=5 G3s5=2s2=s2+1:s2>7s2=5 H3s5=1g2=g2-1:g2<1g2=1 MIg$(s2,g2,2)="#":s2=5g2=1hold=1hold=0 Ns6=(*5)+1 Ps6=54440X Qg$(s3,g3,3)=" " Sp$(s3,g3,s6)="-"4430N T3s6=4s3=s3-1:s3<1s3=1 U3s6=3g3=g3+1:g3>5g3=5 V3s6=2s3=s3+1:s3>7s3=7 W3s6=1g3=g3-1:g3<1g3=1 Xg$(s3,g3,3)="%" \#s3=5g3=14450b ] b&2:2:7:1: g5a$="01 SANTA'S WORKSHOP ":8800`" j5a$="02 ================ ":8800`" l5a$="04CHAPTER TWO - HARRY STRIKES BACK":8800`" o5a$="06 Father Christmas has reached ":8800`" q5a$="07the Hideout and has discovered ":8800`" t5a$="08the Time Machine and the ":8800`" v5a$="09Glublicks have destroyed it. ":8800`" y5a$="11 Your evil plan has been foiled":8800`" {5a$="12again by the Glublicks. Better ":8800`" ~5a$="13luck next time !! ":8800`" 5a$="21Triant (The Hotline Group) 1985":8800`" 5a$="18PRESS A KEY TO CONTINUE. ":8800`" =""4488 ""4490  9000(#  200 Bq=414:7;1;q,3;"":q Eq=10 13 :7;q,4;" ";q,7;" ":q !7;14,4;" "  6;2;8,4;"ICE RINK";7,3;"SANTALAND " A6;0;5,4;"+++";5,9 ;"+++" {4;0;10 ,7;"SKATE";11 ,7;"HIRE ";12 ,7;"HERE ";13 ,7;" "  5625  200 'g$(5,2)=" "4850 7;1;4,3;"";5,3;"";6,3;"";7,3;"";8,3;"";9 ,3;""  100d 7;1;4,9 ;"";5,9 ;"";6,9 ;"";7,9 ;"";8,9 ;"";9 ,9 ;"" c7;1;5,15;"";6,14;"";7,15;"" gam=(*45-)+1 gam20gam=0 (gam>20gam38&gam=1 gam>38&gam=2 6gam=0b$=" I DIDN'T KNOW YOU LIKED SKATING!!" 8gam=1b$=" Thats close you nearly fell through" >gam=2b$="CRACK!!.. You fall through the ice and die" gam=04880 d5;0;5,12 ;" ";6,13 ;" ";7,12 ;" "  8900" gam=29000(#  100d  200 7dim=0:star=0:blue=0:comp=0 &k=17:l=15 &h$(k,l,1)="D"dim=dim+1 #h$(k,l,1)="T"star=1 #h$(k,l,1)="B"blue=1 l:k W7;1;1;4,6;"TIME.";10 ,6;2;"1985" 80;7;1;3,5;"";11 ,5;"";4,5;"";4,10 ;1;"";5,6;"";6,6;"";7,6;" ";8,6;"";9 ,6;"";10 ,5;"";10 ,10 ;2;"" 0;1;5,5;2;"";6,5;3;"";7,5;4;"";8,5;5;"";9 ,5;5;"" blue5050 Hdim13,7;2;6;1;1;"" Hdim27,5;6;2;1;1;"" Hdim=34,4;6;2;1;1;"" K15,3;7;1;1;"YOU NEED THE BLUE PRINTS !" ]h$(4,2,1)="G"4,10 ;3;6;1;1;"@@" Jstar=110 ,10 ;6;1;1;1;"*"  5060 \dim16;2;1;1;6,7;"";7,7;"" \dim26;2;1;1;6,9 ;"";7,9 ;"" odim=36;2;1;1;7,8;"";8,8;"":comp=comp+1 [star=16,8;6;1;1;1;"*":comp=comp+1 ƒh$(4,2,1)="G"3;6;1;1;8,7;"@";8,9 ;"@":comp=comp+1 ccomp=315,2;7;2;1;1;" THE MACHINE IS WORKING ! " ćcap=1g$(5,1,1)="@"hold=1:15,2;7;1;1;"You are holding Glublicks. " [comp=3scr=05190F:sc1=ac:sc2=dw:c$(sc1,sc2)="a Scroll":scr=1 3hold=0g$(5,1)"@ "100d "Enter date or ~0~ ";d$ d$=""5075 d$="0"100d Jyear=(1000*2)-2*(15*10 )-(17*2) d$=year7200  17,0;0;7;1;1;"WRONG!!! The Glublicks have escaped with the rope, the star of a Thousand Nights and some ofthe diamonds. YOU HAVE TO FIND THEM ALL AGAIN!" q=1800 :q lose=(*3)+1 @5190F:h$(t1,t2)=" ":t1=ac:t2=dw:c$(t1,t2)="The Star" :5190F:h$(r1,r2)="":r1=ac:r2=dw:c$(r1,r2)="Rope" Nlose15190F:h$(d1,d2)=" ":d1=ac:d2=dw:c$(d1,d2)="Diamond A" Nlose25190F:h$(d3,d4)=" ":d3=ac:d4=dw:c$(d3,d4)="Diamond B" Nlose35190F:h$(d5,d6)=" ":d5=ac:d6=dw:c$(d5,d6)="Diamond C" ycomp=0:cap=0:hold=0:s1=1:g1=1:g$(5,1,1)=" ":g$(s1,g1,1)="@" place Fac=(*7)+1 Gdw=(*5)+1 H#c$(ac,dw,1)"N"5190F I#r$(ac,dw,1)="E"5190F J#h$(ac,dw,1)" "5190F K#ac=5dw=15190F L#ac=4dw=25190F M#ac=6dw=25190F N#ac=1dw=15190F O 200:100d  200 q=140( i=(*9 )+4 p=(*11 )+4 p,i;4;7;"" q !g$(west,south)" "100d q=140( i=(*9 )+19 p=(*11 )+4 p,i;4;7;"" q:100d 200:100d  1000 8200:100d  5600  5600  5600 X200:100d  1:7 %Pq=1621:q,0;1;" ":q *L15,2;7;0;1;" " 4r7;1;10 ,17;" ";10 ,19;" ";10 ,22;" ";10 ,26;" " 9B16,0;"You tie their hands and prepare the machine." >q=512 :0;7;1;q-1,14;" ";q,14;" ";q+1,14;"";q+2,15;"":q Csq=146-1:0;7;1;12 ,q;" ";13 ,q;" ";14,q;" ":q HF7:0:1:13 ,6;"":.05|L,43+ M14,11 ;"";5,12 ;"" N*.1}L,10 :13 ,6;"" RE7:0:1:13 ,8;"":.2~L,25 W`10 ,11 ;"";9 ,12 ;"";13 ,8;"":q=1100d:q X16,0;1;7;"The machine is ready. The final settings have been made.The demoralised Glublicks reluctanlytake their place in the machine" \q=9 6-1:7;2;q,18;" ";q+1,18;" ";q+2,18;" ";q+3,18;" ":q adq=1812 -1:7;2;6,q;" ";7,q;" ";8,q;" ":q fq=9 6-1:7;3;q,21;" ";q+1,21;1;"L";q+2,21;0;" ";q+3,21;" ":q kvq=2113 -1:7;3;6,q;" ";7,q;1;"L";8,q;0;" ":q pq=9 6-1:7;1;q,25;" ";q+1,25;1;"B";q+2,25;0;" ";q+3,25;" ":q uvq=2514-1:7;1;6,q;" ";7,q;1;"B";8,q;0;" ":q zH21,0;1;7;"PRESS A KEY TO START MACHINE. " =""7300 ""7301 ?21,0;1;" " ]1:q=127104h-1:96`,q:23,0:.5,502:q _q=19851666-1:10 ,6;2;7;q:.01z# =,1:q x7:1:1:1:q=104h127:96`,q:23,0:.5,502:q:0 7:2:5,25;"";6,24;"";6,26;"";7,25;"";2;7;6,25;"~" 16,0;1;7;" Father Christmas arrives too late to stop you !! However he casts a spell at the machine with a remarkable effect " id=2211 -1:7:0:6,d+1;" ";6,d;"";6,d;"":d sd=17:d;6,7;" ";7,7;" ";8,7;" ":.01z# =,25:d kq=1360h:ٺ(*6):68D,116t:(*100d)-502,(*100d)-502:q q=1500:q &0:0:7:1: 5a$="01 Everything goes black as you ":8800`" 5a$="03realise that you have been ":8800`" 5a$="05pulled into the machine by the ":8800`" 5a$="07explosion. ":8800`" 5a$="09 After a while you realise that ":8800`" 5a$="11you can now make sure that ":8800`" 5a$="13the Glublicks can never return ":8800`" 5a$="15the final victory can still be ":8800`" 5a$="17yours. Father Christmas can ":8800`" 5a$="19still be stopped. ":8800`" 5a$="21 PRESS ANY KEY TO CONTINUE ":8800`" =""7400 ""7401  5a$="01 SANTA'S WORKSHOP ":8800`" 5a$="02 ================ ":8800`" 5a$="04CHAPTER THREE - ":8800`" 5a$="05 THE RETURN OF THE GLUBLICKS":8800`" 5a$="07 You control the Glublicks as ":8800`"  5a$="09you search for the gateway back ":8800`" 5a$="11to your own time before Harry ":8800`" 5a$="13stops you. You will need to ":8800`" 5a$="15collect all the items you find ":8800`" 5a$="17to get to the gate before it ":8800`" $5a$="19closes. But thats another Story":8800`" )5a$="21 PRESS ANY KEY TO CONTINUE ":8800`" +=""7467+ ,""7468, . 9000(# ^c"--*-","--*-","--*-","--*-","-*--","-***","--**","**--","*-**","*-*-","*-*-","--*-","*---","*-*-" hc"-**-","**-*","****","****","**-*","-*-*","*-**","*---","----","*---","*-*-","----","--*-","*-*-" r2"----","----","----","*---","-*--","**-*","*--*" w"a hole","the branches","the stables","the backyard","the Hideout","a cave","a cave","the roots","the Great Oak","Santas Workshop","Fir Tree Inn","the Ice Rink","a deep pit","a forest" |"the Church","a graveyard","the High Street","the High Street","the High Street","a forest","a forest","the Vestry","E","a sweet shop","the Triant Shop","E","Shaft ~C~","a forest","E","E","E","the Stores","Shaft ~B~","Shaft ~A~","the Mines" "_ "`line=a$(2) "ea$=a$(3) "jSq=1̱a$:line,q-1;"":.001wn,557:line,q-1;a$(q):q "o "+b$=" .."+b$+".. " "·q=1̱b$-12 :14,3;7;3;1;b$(qq+12 ):z=15:.001wn,z*10 :z:q "H21,0;1;7;"PRESS ANY KEY IF YOU'VE READ IT." "&q=180P:""8940" "q "K21,0;1;" ":8910" "A21,0;1;" ": #& 9 #' #(/place=9000(#:0:6:0: #-%0,6;"SANTA'S WORKSHOP" #0.0,6;1;"________________" #2)1,8;7;"CHAPTER TWO" #502,5;5;"Harry Strikes Back" #7~4,0;7;" Thank you for playing. The Glublicks look forward to the next time we meet. " #:^8,0;7;" Press ~Z~ to play again or Press ~X~ to return to you " #;'15,20;6;"Triant." #(> >bd&F(*D:  >>> <~nv~<8<<<~<`><><`ll~~ ~`|~|>`|f~<|| < ~~~~`nf~<ff~~ff~~~~f~<flxxlf````~~bv~jbbfv~~nf<~ff~<|f~|``<~fn~>|f~|ff<`<><~~ffff~<fff~<fff~~$Bf<f>``|f~|<|`|<>f~>f~>>``|~ff8<Xx0@XXpxL ,~VVV|~fff<~f~<|f~|``>f~><|```<`<<<<lll|8ff~<FVV~,f<