ZXTape! 2 Go Micro - Side BLongman Software P. K. McBride1984EnglishFullNoneOriginal Release'TZXed by Andrew Barker For David Batty Quizmastervw91xw "QUIZMASTER" ,z$(32 ):T$(10 ):T$=" GO MICRO" &stop=0:5000:4500 $ql=qn:5:5:0: q0,9 ;" ";1,9 ;"  SCOREBOARD  ";2,9 ;" " 44,2;" PLAYER   SCORE " KN=6202:N,2;"   ":N Z.5,10 :#1;0,0;" PLEASE ENTER NUMBER OF PLAYERS :" 5lx=0:l=1:c=1:8000@:a$=w$ 7000X:F1040 a$=01040 " 21,0;5;Z$; $\PN=A$:PN>821,0;" THAT'S TOO MANY FOR MY BOARD! ":1040 )Tpn>qn21,0;" There are only ";qn;" questions!! ":1040 .=PN<8N=PN*2+620:N,0;Z$:N 3N$(PN,12 ):N=1PN 8.5,N*2:#1;0,0;" NAME OF PLAYER ";N;":":l=0:c=18:8000@:w$=""10808 = n$(n)=w$ ?=N$(N,1)>"Z"N$(N,1)=(N$(N,1)-32 ) B.N*2+4,2;7;N$(N):N G 4000 Lx$(qn):p(pn):r=1 3T=1PN:2700 :6,10 ;N$(T) /z=821:4;z,0;z$:z *N=(*QN)+1:x$(N)="x"1210 !sc=0:X$(n)="x":i$=r$(n) .i$(i$)=" "i$=i$(̱i$-1):1225  i$=i$+" " >z=1̱i$:i$(z)"a"i$(z)"z"i$(z)=(i$(z)-32 ) z 3,26;S(N)  2000 <20,2;"TYPE YOUR ANSWER THEN ENTER " 23658j\,0 5lx=0:l=0:c=1:8000@:a$=w$ a$=""1250  "20,0;z$:1990 >z=1̱a$:A$(z)"a"A$(z)"z"A$(z)=(a$(z)-32 ) z ! a$=a$+" " #a$=i$sc=s(n):1410 (a$>i$1350F -a$=a$(̱a$-1) 2If=0:z=11+i$-a$:i$(zz+a$-1)=a$f=1 <z:f1400x FIf=0:z=11+A$-I$:A$(zz+I$-1)=I$f=1 PZ:FSC=S(N) Z 1410 xsc=(s(n)*a$/i$) HSC5P$(x)" "P$(x)"."P$(x)","P$(x)"?"x=x-1:2010 x=5x=32 *l,0;7;z$;l,0;p$(x)  p$=p$(x) p$<32 2060  %L=l+1:x=32 :2010  6l+1,0;7;z$;l+1,0;p$  4Z.5,0:#1;0,0;"Is this right? Press  Y  or  N  " >23658j\,0 Ra$=:a$=""2130R \a$="n"YN=1: fa$="y"YN=0: p 21004 az=421:z,0;z$:z:18,1;"Type question ";n;" then ENTER " 0.5,10 :0,0;"?";q$(n) +q$(n,15)=" "2210  2000 21004:YN2200 cn=1 =18,1;" Type Answer ";n;" then ENTER " ,.5,12 :0,0;r$(n) *r$(n,14)=" "2260  2005 21004:YN2260 i=06100 18,0;Z$  `D#1;0,2;" Please press  Y  or  N  " j(.5,10 :23658j\,0 ta$=:a$=""2420t ~a$="n"yn=0: a$="y"yn=1: 2410j 5:5:0: q0,9 ;" ";1,9 ;"  SCOREBOARD  ";2,9 ;" " 44,2;" PLAYER   SCORE " nz=1pn:z*2+4,2;7;n$(z);"  ";z*2+4,22;p(z) z:fin=02570 T#1;1,0;"  R  to repeat quiz:  E  to End ":2580 H#1;1,0;"  R  for next round:  E  to End " 2e=0:.5,0:23658j\,0 a$=:a$=""2590 ( a$="r" 2a$"e"2580 < e=1: 4:4::7 41,3;"ROUND";1,24;"SCORE" 03,4;" ";3,25;" " ^15,172:579,0:0,-32 :-579,0:0,32 _183,172:579,0:0,-32 :-579,0:0,32 3,5;R 4,13 ;"PLAYER" Ҩ91[,132:0,16:72H,0:0,-16:24,0:0,-16:-120x,0:0,16:24,0  6:6:0: x0,8;" ";1,8;"  MAKE A QUIZ  ";2,8;" " \'''"DO YOU WANT TO ..."''" 1  MAKE A NEW QUIZ ?"''" 2  ADD TO THIS QUIZ ?" #'" 3  CHANGE THIS QUIZ ?" 7'''" PLEASE PRESS  1   2  OR  3 " 1,10 A$=:A$=""3060 A$="1"qn=0:3100 &A$="2"n=qn:62008:3220 A$="3"3400H  3050 O:Q$(100d,90Z):R$(100d,60<):x$(100d):S(100d) &o0,9 ;" ";1,9 ;"   ";2,9 ;" " 0g.5,0:0,0;"TYPE QUIZ TITLE (MAX.10 LETTERS) THEN PRESS  ENTER :";T$ :T$=""31200 D1,11 ;t$ N4,0;"";z$;" You can have a set of upto 100 Questions and Answers. Questions must not be more than 90 letters long. " X" Answers not more than 60. ";z$;''z$;" Point Scores can be given for individual questions,or be the same for them all. " ] 7;z$ bh#1;0,0;" Press  I  for individual or  S  for fixed scores. " g(.5,10 :23658j\,0 la$=:a$=""3180l v*i=0:a$="s"i=1:3210 a$"i"3175g i6000p &n=421:n,0;z$:n n=qn+1100d 2200 j#1;0,0;" DO YOU WANT TO WRITE ANOTHER QUESTION? PRESS  Y  OR  N  " (.5,10 :23658j\,0 A$=:A$=""3270 a$="y"3300 A$"n"3260 7500L:yn3300 qn=n:n=100d n:3500 &n=421:n,0;z$:n 5,0;"";z$;" Do you know the number of the question or answer that you want to change? ";z$ N2400` :yn=05,0;6;z$;z$;z$;z$;z$:3400H *5,0;6;z$;z$;z$;z$;z$ J.5,0:0,0;" Please ENTER the number:";a$ 7000X:f3340 #n=a$:n<1n>qn3340 *(2000:21004:yn2200 4(2005:21004:yn2260 >n.5,12 :#1;0,0;"Do you want to change another? ":2410j :yn3310 C 3500 Hn=1qn::2000 Rz.5,4:#1;0,0;" Do you want to change this one? Please press  Y  or  N  " \2410j :yn2200 fw;:.5,12 :#1;0,0;"Do you want to change another? ":2410j :yn3450z k7500L:YN3450z pN=QN zN 1:1:7: ." "'" "'" ";21;"" 6" "'" " 9" "'" " ԓ208,119w:-184,0:0,16:8,0:0,8:-8,0:0,32 :480,0 0,-16:-8,0:0,-8:96`,0:0,16:32 ,0:0,-8:8,0:0,-16:-8,0:0,-8:16,0:0,-16 a4,108l:248,0:0,-104h:-248,0:0,104h C7:0:n=9 20:n,1;z$(30):n b10 ,2;"Put a clean - or re-usable";11 ,2;"tape in your cassette player." 13 ,2;"Rewind it to the start, plug";14,2;"in the MIC leads and remove";15,2;"the EAR lead." .5,0:#1;0,0;" Will you add a TITLE SCREEN to this tape? Press  Y  or  N  ":2410j  ;:ts=yn d17,2;"Press  S  when you are ready";18,2;"then press RECORD/PLAY." '23658j\,0:1,10 $a$=:a$=""3620$ .a$"s"3610 8 t$25 Bts=03680` L17,1;" STOP THE TAPE. DO NOT REWIND.";18,1;" DESIGN A TITLE WITH SCREENS ";19,1;" & SAVE IT NEXT ON THIS TAPE. " V 3700t `17,2;" STOP THE TAPE. ";18,2;" YOUR QUIZ HAS BEEN SAVED. ";19,2;" REMEMBER TO LABEL THE TAPE." t]#1;1,0;" Press G  to go on.  E  to end. ":.5,12 y(23658j\,0:.5,10 ~a$=:a$=""3710~ "a$="e"stop=1:5030 "a$="g"stop=0:5030  3705y <0:7 ""4000 F#1;0,0;"Press  ENTER  to start the game." .5,10 a$=:a$=""4030 a$13 4020 ;: 0::ts"" U#1;1,0;" STOP THE TAPE - PRESS ANY KEY ":1,0 a$=:a$=""4610 0:2:2: $N=031:B:"A"+N,B:N /1,3,7,15,31,63?,127,255,128,192,224,240,248,252,254,255,255,127,63?,31,15,7,3,1,255,254,252,248,240,224,192,128 2:2:7:  12 ;"";26;"" "11 ;"";25;" " &10 ;" ";24;" " $10 ;" " !8;" " #7;" " $6;" " $5;" " $4;" "  " " " " " " (" " 2" " <" " F" " P" " Z" " d)10 ;" ";7;" " n!" ";9 ;"" xO#1;0,10 ;"";1,1;"Mercurian Pulp Products" '7:1:0,0;T$ Fstopn=1100d:n:0:7:7:0:: H14,23;" PRESS ";17,19;" 1  TO PLAY " /20,16;" 2  MAKE A QUIZ " 1,0 A$=:A$=""5290 A$="1"1000 A$="2"3000  5280 ph.5,10 :0,0;" ENTER point score for each question (max.9):";A$ z7000X:f6000p 0s(1)=A$:S(1)>9 6000p )z=2100d:s(z)=s(1):z  h.5,10 :0,0;" ENTER point score for this question (max.9):";A$ 7000X:f6100 $s(n)=A$:s(n)>9 6100  8&n=421:n,0;z$:n BL4,0;"There are already  ";qn;"  Questions"'"in this set." LA6,0;"You can add up to ";100d-qn;" more." VD#1;0,0;"Press ENTER when ready to start." `1,4 ja$=:a$=""6250j ta$=13 ~ 6240` X f=0 bA$=""f=1: l/q=1̱a$:a$(q)<"0"A$(q)>"9"f=1 vq: Ll#1;0,0;" CHECK! END QUESTION WRITING? PRESS  1  FOR YES  2  FOR NO. " V.5,20 `A$=:A$=""7520` jA$"1"A$"2"7510V tYN=A$-1: @g=0:b$="":w$="" E#1;l,c;"L" Ja$=:a$=""8010J O%a$b$g=0:b$=a$:8020T Pg>18020T Qg=120:g T.002xn,12 Ya$=12 8100 ^a$=13 ;: ha$<"0"a$>"z"a$=" " r#1;l,c;a$:c=c+1 w=lxc31c=0:l=1:lx=0:8005E |%c31c=c-1:8005E w$=w$+a$:8005E  w$="" #1;l,c;" " Dw$=w$(̱w$-1):c=c-1:c<0c=31:l=0  8005E b#  GO MICRO ifl lx rito-#dZHow many jack-plug sockets are there at the back of the Spectrum - no peeking! What command is used to transfer a program from tape into a computer's memory? What do programmers call the diagrams in which they plan their programs? What language are most Spectrum programs written in? What type of numbers have only 0's and 1's? What Keyword is used to display information on the screen? Which computer language allows the user to make his own set of command words? Which computer language was named after a famous mathematician? What is the name of Sinclair's fast tape device for the Spectrum? Computer memory is measured in Kilobytes.How many k has your Spectrum? How many volts does the ZX Power Supply produce? Where would you join a printer or an interface to the Spectrum? What is RAM short for? Fast action computer games are often called ...... games. What is the missing word? Accounts programs usually take the form of a s.......? What term is used to describe preparing letters,reports or books on a computer? A keyboard and screen linked to a distant computer is known as a t.......? What does VDU stand for? What Keyword is used to produce a sound on the Spectrum? What Keyword is used to change the background colour on the Spectrum? An information-handling program is called a d.....? What BASIC command tells the computer to wait for the user to type something in? What Keyword does nothing? What Keyword wipes out a program? What device allows computers to'talk' to each other by telephone? If several computers are linked together, this is called a n.......? How many bytes are there in a kilobyte? Printers,lightpens and disk drives (but not computers) are all types of p.......? What is another word for computer programs? If a program has been designed to make it easy to use, it is called u... f.......? 1 ud<4 LOAD Flowcharts BASIC Binary PRINT LOGO PASCAL Microdrive 48 9 Edge connector Random Access Memory Arcade Spreadsheet Word Processing Terminal Visual Display Unit BEEP PAPER Database INPUT REM NEW Modem Network 1024 Peripherals Software User Friendly me decOQ Eer Wwr !x x I FLOWCHARTS WhhB P A Screens 2p2$s2 "SCREENS" F  1984   MERCURIAN PULP PRODUCTS  ( d$="" < 4000  7100 l,c;8;9 ;"" .5,10 :#1;0,0;"  TEXT MODE  PRINT DIRECTION ? PRESS 5  6  7  OR 8  " A$=:A$=""1030 A$<"5"A$>"8"1020 W=A$-4:;:#1;0,0;"  TEXT MODE  CURSOR ";D$(W);": INK 0-9 ENTER WHEN CURSOR IN PLACE " l,c;" ":50024h H23658j\,8:l,c;8;I;d$(w):1,10 :0 $l,c;I;d$(w) .A$=:A$=""1070. 8A$=13 1102N Bj50036t:F=0:A$="Q"A$="W"A$="E"A$="A"A$="D"A$="Z"A$="X"A$="C"5000:1060$ G"A$"0"A$"9"I=A$:1060$ L .5,-10 :1060$ N W=1AL=C:mh=22-L P)W=2AL=21-L:MH=32 -C RW=3AL=L:MH=C+1 S(W=4AL=31-C:MH=L+1 U$al=01900l:1020 Vd23658j\,0:.5,10 :0,0;("ENTER TEXT (MAX.";al;":");M$ [M$=""1110V `ML=M$:ml>al1110V jmax=(al/ml) omax>8max=8 t%max1we=1:1205 .5,0:#1;0,0;"  SELECT WIDTH OF LETTERS  1  (NORMAL) -  ";max;"  (";max;"xNORMAL) " a$=:a$=""1180 a$<"1"a$>"8"1170 (we=a$:we>max1900l:1170 MH>8MH=8 $mh1he=1:1250 .5,10 :#1;0,0;"  SELECT HEIGHT OF LETTERS  1  (NORMAL) -  ";MH;"  (";MH;"xNORMAL) " a$=:a$=""1220 a$<"1"a$>"8"1210  ;:he=a$ he>mh1900l:1210 )z=23200Z63?:z=(z/8) $z>7z=z-8:1251 50036t:; >n=0̱m$-1:21,0;z;Z;m$(n+1) 'C1=8*C:L1=8*(21-L) I:x=07 (X1=(X+N*8)*WE:Y=07 (x,y)=01350F  Hw=1a=1we:b=1he:C1-a-X1,8+L1-he*y+b:b:a @w=2a=1we:b=1he:C1+B+Y*He,L1-X1-A:b:a Pw=3a=1we:b=1he:8+C1-B-Y*He,L1+X1+A+8:b:a (Hw=4a=1we:b=1he:8+C1+X1+A,L1+Y*HE+b:b:a F y:x:n K23658j\,0 P_#1;0,0;" IS THIS O.K.? PRESS  Y  OR  N  ":.5,10 ZA$=:A$=""1370Z d3A$="y";:50000P:50024h:1400x n"A$="n"50012\:1400x s 1360P x`#1;0,0;"MORE PRINTING? PRESS  Y  OR  N  ":.5,0 }a$=:a$=""1405} A$="y"1010 A$="n"7100:  1400x l1,20:#1;0,0;" The text will run off screen. Press ENTER to continue. " va$=:a$=""1910v .a$13 .5,-10 :1910v  Dm=1:7100:x=8*c+2:y=8*(21-l) ڏ.5,20:#1;0,0;"  LINE MODE  CURSOR x: INK 0-9 H CIRCLE B BLOCK OLD/NEW ENTER " 50024h V9 :x-2,y-2:4,4:x-2,y+2:4,-4 7#1;0,23;1;9 ;i;"INK" A$=:A$=""2030 5i:F=1:A$>"Z"f=0:a$=(a$-32 ) 04500:j2020-(10 j=2)  a$="H"2120H *a$="B"2320 4A$=13 7100: > 2020 HV.5,10 :0,0;" Please ENTER Radius.(1 to 255) ";a$ R7200 :f2120H \r=a$ f#r>255r<12120H ^#1;1,0;" A Solid circle? Press Y  or N ":.5,10 23658j\,0 a$=:a$=""2190 -;:s=0:a$="y"s=1:2220 a$"n"2180 -50036t:a=02*1/r x1=a*r:y1=a*r Ns=0x+x10x+x1255y+y10y+y1175x+x1,y+y1 s=02300 "x+x1<0y1=y1*-x/x1:x1=-x "y+y1<0x1=x1*-y/y1:y1=-y 4Y+y1>175y2=175-y:x1=x1*y2/y1:y1=y2 4X+X1>255X2=255-X:Y1=Y1*X2/X1:X1=X2  x,y:x1,y1 a:50024h:2010 *50036t:x1=x:y1=y:9 ;X1,Y1 .5,10 :#1;0,0;" PRESS  W  TO DRAW BLOCK SIDE THEN  ENTER  WHEN HIGH ENOUGH ":.5,0 23658j\,0 $A$=:A$=""2340$ .4A$="w"y1<175y1=y1+1:9 ;x1,y1 8a$=13 2380L B 2340$ L""2380L V.5,0:#1;0,0;" PRESS  D  TO DRAW TOP OF BLOCK THEN  ENTER  WHEN WIDE ENOUGH ":.5,0 `A$=:A$=""2400` j4A$="d"x1<255x1=x1+1:9 ;x1,y1 ta$=13 2440 ~ 2400` !i:n=xx1:n,y:0,y1-y:n ;:50024h:2010 7100:6:0: A7:T=116:N=116:T,N;"":N:T 'N=031:"B"+N,0:N +I$(2,2):I(16,16) 1,19;"ACTUAL SIZE":183,152:17,0:0,-17:-17,0:0,17 6,19;" Q   W   E ";8,23;"\|/";9 ,19;" A  --  D ";10 ,23;"/|\";12 ,19;" Z   X   C " q18,3;"Move  with keys as shown,";19,2;"and with CAPS SHIFT to fill." 021,5;" PRESS  ENTER  TO END " Gx=1:x1=184:y=1:y1=151:23658j\,0 /3,23;"";4,23;"" Y,X;1;"" A$=:A$=""3090 2F=1:A$>"Z"f=0:a$=(a$-32 ) &QA$="Q"A$="W"A$="E"A$="A"A$="D"A$="Z"A$="X"A$="C"5100:3080 0a$=13 3200 : 3080 K.5,20:21,1;" DEFINING GRAPHIC.PLEASE WAIT " VN=015:Z=0:T=18:I(N+1,T)=03230 Q=8-T:Z=Z+2^Q T:"B"+N,Z:N WN=015:Z=0:T=9 16:I(N+1,T)=03260 Q=16-T:Z=Z+2^Q T:"B"+N+16,Z:N $I$(1)="":I$(2)="" N.5,10 :#1;1,0;"IMAGE INK COLOUR? (0-9)" 7000X I=A$ Q.5,0:#1;1,0;"IMAGE PAPER COLOUR? (0-9)" 7000X CP=A$ D3,23;I;CP;I$(1);4,23;I$(2) *[.5,10 :#1;1,0;" PRESS ENTER TO RETURN TO SCREEN" 4A$=:A$=""33804 >A$13 3370* C""3395C HL=0:C=0:  0:7: _.5,10 :#1;1,0;" BORDER COLOUR? PRESS  0  -  7  "  7000X B=A$:B>74010 B a.5,10 :#1;1,0;" SCREEN COLOUR? PRESS  0  -  7  "  7000X P=A$:P>74050 ""4075 p::50000P !L=0:C=0:I=9 #1;0,0;"STANDARD MODE CURSOR :INK (0-9)OLD/NEW - LINE PRINT IMAGE TAPE ":50024h 8m=0:50036t:L,C;9 ;I;1;"" A$=:A$=""4110 2F=1:A$>"Z"f=0:a$=(a$-32 ) /4500:J4100-(5j=2) 6 A$="I"3000 :4195c @,A$="P"1000:7300:4095 J,A$="L"2000:7300:4095 TA$="T"8000@ ^ 4100 c50036t:#1;0,0;"  IMAGE MODE :CURSOR : INK (0-9) NEW OLD ENTER TO EXIT " d50024h h50036t r2L,C;cp;I;I$(1);L+1,C;I$(2) A$=:A$=""4230 2F=3:A$>"Z"f=2:a$=(a$-32 ) 4500:J4200h &a$=13 7300:4095  .5,-10 :4200h kJ=0:A$="Q"A$="W"A$="E"A$="A"A$="D"A$="Z"A$="X"A$="C"j=1:5000+(200m): !A$"0"A$"9"I=A$:J=1 A$="N"7400:J=2 /A$="O"50012\:50024h:J=2  !f=0F=25010 IF=3L,C;CP;I;"";L+1,C;"":50024h:5010 L,C;I;I;" ":50024h 2L1=(A$="Z"A$="X"A$="C")-(A$="Q"A$="W"A$="E") 2C1=(A$="E"A$="D"A$="C")-(A$="Q"A$="A"A$="Z") )F>1L1=L1*2:C1=C1*2 L2=L+L1:C2=C+C1 *L20L221-(F>1)L=L2 *C20C231-(f>1)C=C2  5f=0I(Y,X)=0:y,x;"":1;x1,y1 ,f=1I(Y,X)=1:y,x;"":x1,y1 2L1=(A$="Z"A$="X"A$="C")-(A$="Q"A$="W"A$="E") 2C1=(A$="E"A$="D"A$="C")-(A$="Q"A$="A"A$="Z")  L2=Y+L1:C2=X+C1 (L21L216Y=L2:Y1=Y1-L1 (C21C216X=C2:X1=X1+C1 ( P-50036t:F=1i;x,Y:5220d d@50024h:L1=(A$="Z"A$="X"A$="C")-(A$="Q"A$="W"A$="E") n2C1=(A$="E"A$="D"A$="C")-(A$="Q"A$="A"A$="Z") xL2=Y-L1:C2=X+C1 L22L2173Y=L2 C22C2253X=C2  o pJ6:3:7:1:49999O:21,0;:"" u 6000p z&N=50000P50047:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 #N=07:B:"A"+N,B:N Q255,129,129,129,129,129,129,255 $n=031:b:"f"+n,b:n %8,28,62>,127,93],28,28,28,24,12 ,254,255,254,12 ,24,0,28,28,28,93],127,62>,28,8,24,480,127,255,127,480,24,0  d$="" r#1;0,0;"  SCREENS IS ON SCREEN.   PRESS  ENTER  WHEN READY.  " A$=:A$=""6130 A$13 6120  40( XA$=:A$=""7000X b/A$<"0"A$>"9".5,-10 :7000X l #1;0,0;"DO YOU WANT TO CLEAR THE SCREEN? PLEASE PRESS  Y  OR  N . ":.5,10 A$=:A$""7110 A$=:A$=""7120 A$="Y"A$="y"7160 a$="n"a$="N"7150  7100 =50036t:50024h:;:50000P:50012\:  :50024h:50000P:  f=0:a$=""f=1: */q=1̱a$:a$(q)<"0"a$(q)>"9"f=1 4q: a$=:a$""7300 "";: ;50036t:50024h:;:50000P:50012\ }#1;0,0;"SCREEN NOW SAFE.RECALL WITH OLD. PRESS  ENTER  TO CONTINUE. ":.5,10 A$=:A$=""7420 A$13 7410 ;: @;:.5,10 :#1;0,0;" PRESS FIRST LETTER TO SELECT: SAVE LOAD NEW START END RETURN " E23658j\,0 JA$=:A$=""8010J T A$="s"8100:8000@ ^ A$="l"8200 :8000@ h A$="e" rA$="r"4100 |A$="n"40(  8000@ K.5,0:1,0;"  ENTER  SCREEN TITLE:";A$ A$=""8100  A$>10 A$=A$(10 ) f#1;0,0;" INSERT TAPE, PLUG IN MIC.LEAD. THEN PRESS  S . " A$=:A$=""8140 A$  z.5,0:#1;0,0;" INSERT TAPE, PLUG IN EAR.LEAD. PRESS  ENTER  THEN START TAPE. " A$=:A$=""8210 A$13 8200 &"" 0;:50000P:50024h : bDA Screens @ {X_@??/]Y+?~ Y~>@ ]t U@t?* ޾Q *{Q?x [ 늱 *}mY @>{Y ?@ ۿ?ߚ=?wx[_߀o{{~W@@~ ?<" o [m?@@}kY@  <"" $*?ݮwx ڷ@@@^  f"" $*?w o"@^Q? f"$*=]u "@}" <f?~Y"@@ wk{@_? {@.@6_H @$P~* *?`?x*<?<_xxxA\`````````````````````````````````GGGGGGGGGGGGGGGGGGGGGGG`GGGGGG``GpppppppppppppppppppppG`GGGGGG``GpxxxxxxxzzzzxxxxxxxxpG`GGGGGG``Gp_xxxxzzzzzzzzzxxxx_pG`GGGGGG``Gp_xxxzzzzzzzzzzzxxx_pG`GGGGGG``Gp_xxzzzzxxzzzzzzzxx_pG`GGGGGG``Gp_xxzzzzxxzzzzzzzxx_pG`GGGGGG``Gp_xzzzzzzzzzzzzzzxx_pG`GGGGGG``Gp_x```````````````x_pG`GGGGGG``Gp_x```````````````x_pG`GGGGGG``Gp_x```````````````x_pG`GGGGGG``Gp_xzzzzzzzzzzzzzzzx_pG`GGGGGG``Gp_xxzzzzzzzzzzzzzxx_pG`EEEEEE``Gp_xxzzzzzzzzzzxxzxx_pG`EGGGGE``Gp_xxxzzzzzzzzzxxxxx_pG`EEEEEE``Gp_||xxzzzzzzzzzxxxx_pG`GEEEGG``Gpx||xxxxzzzzzxxxxxxxpG`GEEEGG``GpppppppppppppppppppppG`EEEEEE``GpppppppppppppppppppppG`EEEEEE``GGGGGGGGGGGGGGGGGGGGGGG`GGGGGG````````````````````````````````8888888888888888888888888888888888888888888888888888888888888888