89*<WORDYWORDATOCHBASOLDCNWCPFLTLTLSSTIM  AA`AVBsDBR@@ @ @ A @@@@P@Q ******** ZAHRCON **********BY L.M. SCHREIBER FOR ANTIC MAY 1982(&&;@,;@,9@&,2. +@.GRAPHICS 2 WITH NO TEXT WINDOW<:6-F:A,:FIND OUT HOW MUCH MEMORY IS AVAILABLEFF6-&@FPLACE CHARACTER SET 1024 BYTES BELOW TOP OF MEMORYPY6-BsD6-$AVYSTARTING BYTES OF OLD CHARACTER SET AND NEW CHARACTER SETZJ-AJMOVE THE NUMBERS, SYMBOLS AND UPPER CASE LETTERSd96-F:%,9GET A BYTE OF THE CHARACTER SET FROM ROMn % RELOCATE IT IN RAMx E6-%@EDO NOT REPLACE THE SPACE OR THE EXCLAMATION POINT>-%A>BYTES IN THE CHARACTER SET TO BE REPLCED.".READ THE NEW BYTE FROM THE DATA BASE1 1REPLACE THE OLD BYTE WITH THE NEW ONE ##255,255,255,255,255,255,63,63129,66,66,36,36,36,24,24 128,224,120,62,31,31,15,1515,31,63,127,255,0,0,0##63,63,127,127,255,255,255,255##255,255,255,255,255,255,60,60%%252,252,254,254,255,255,255,255##255,255,255,255,127,127,63,63%%255,255,255,255,255,255,255,255%%255,255,255,255,254,254,252,252!!255,126,60,24,24,60,126,255 1,7,30,124,248,248,240,240240,248,252,254,255,0,0,0%%255,255,255,255,255,255,252,2521AV1CHANGE TO THE NEW CHARACTER SETE@w$(@}6-@@E(@#1-@@1(@$&'(- (-@@((@%)*+.$-@@$(@,&-@@&(@&*(0-@@0(@ & , ( (-@@ ((@, * ,X-@@*(@ZAHRCON66-@B6-@N6-X A "i-@(@ *-@9(@>iERASE THE LAST ARROW AND POSITION THE NEW ONE,36-%@ @u)6-@93 A06M"@u6-@B56-P:H:,$@,A"@M6-@4@"@6-@GJ=-@@%(@>:,1!A=6-T7 T:,"A7CHOICE HAS BEEN MADE^A R:,"@AACHECK FOR MOVEMENT ON JOYSTICKhn@w*R:,"@06->6-&@J @V6-@nCHECK FOR TOP OF MENUr_R:,"@6-,6-%@8!@D6-@_CHECK FOR BOTTOM OF MENU| A  A-@w!"@*6-I:,-k(@}&-@@2-@J(@>:@c%,N kPRINT LETTERS ON THE RIGHT?-@@#-@;(@>:@r%,? ?-@@ #-@;(@>:@%,? )6-P:H:,$@,)#A%"J 6-B:,"6-@&'@JPOSITION TO CENTER THE QUESTION MARKSU-%&@!-@0(@?4 UQUESTION MARKS FOR THE LETTERS-@@&&68,-* ;67@,. L67@,. [67@,.g6-@s6-@6-6-6-E%6-+&@,$@ %@%+-;(@>:,E A wR:,"@-C(@>:&@2%8&@,,Q6-&@]"@i6-@w6-&@'"6-@'6-@ R:,"@-C(@>:&@2%8&@,,Q6-%@]"@i6-@w6-%@"@6-@1"@*"@%6-@16-@=+R:,"@)R:,"@=@w T:,"A`& A04@w48&@,"A(A:868&@,-A(8KEEP LETTER BLUE ON SCREEND,6-&@2,GET TRUE CHARACTER VALUENb-@B:,"@:7<,,"8-%&@@H(@>:,V67<,.>:,b6-@X b"@A0l A@v16-@P6-%@1 A0%$@O-@@$(@&6-@@E(@,O AO-@@$(@,6-@@E(@*O AO-@ @$(@(6-@ @E(@,O A0-@@&(@&*(0 A.-@@$(@,. AS-@@&(@)*+8-@@I(@&*(S AO-@@$(@$6-@@E(@%O AO-@ @$(@-6-@ @E(@.O A.-@@$(@'. AL-@@$(@#*-B(@>:%A(,L A16-@6-%@1 A@%$@O-@@$(@6-@@E(@O AO-@@$(@6-@@E(@O AO-@@$(@6-@@E(@O A 0-@@&(@0 A.-@@$(@. A S-@@&(@8-@@I(@S A*O-@@$(@6-@@E(@O A4O-@@$(@6-@@E(@O A>.-@@$(@. AHB-@@$(@*-B(@>:%A(,Rj-@(@>2A@@H A j2\>T:,"" A 4-> Af A`p: -@6@62@: z7@<,0A% @A0%FINISH BODY-@@+(@ 5 A G-@@](@HURRAY!!6-P:H:@,$@,%@A A 0A @6-@B A P6-@G A P6-@4,T:,"" A , A4-@@%(@>:,4PRINT AN EYE A 8-@@$(@'. A 8 A -@@P $ COULD COUPLE KENNEL KINDSCROCODILEFRECKLESBACKWARDS PACKAGE NICKELMECHANICLEPRECHAUNORCHESTRA SKUNK TRAGIC ANTIQUE D2:ZAHRCON