From 2addb0905e67cfbaac7f03ec727c1dd81925da9d Mon Sep 17 00:00:00 2001
From: pkali <pawel.kalinowski@gmail.com>
Date: Sat, 17 Sep 2022 14:16:02 -0400
Subject: [PATCH] WIP: moving displays part 2

---
 display.asm => display_main_menu.asm |  41 ----------------------
 display_purchasedl.asm               |  45 ++++++++++++++++++++++++
 scorch.asm                           |  17 ++++++++-
 scorch.xex                           | Bin 48607 -> 48701 bytes
 textproc.asm                         |  50 +++++++++++++++++++++------
 variables.asm                        |   2 ++
 6 files changed, 103 insertions(+), 52 deletions(-)
 rename display.asm => display_main_menu.asm (64%)
 create mode 100644 display_purchasedl.asm

diff --git a/display.asm b/display_main_menu.asm
similarity index 64%
rename from display.asm
rename to display_main_menu.asm
index ae7ca38..8a7e121 100644
--- a/display.asm
+++ b/display_main_menu.asm
@@ -38,47 +38,6 @@ NamesOfLevels
  dta  d" HUMAN     Moron     Shooter   "
  dta d"  Poolshark Tosser    Chooser   "
  dta d"  Spoiler   Cyborg    Unknown   "
-;---------------------------------------------------
-textbuffer2
- dta d"Player:             Cash:      0"  ; ZERO TO MAKE YOU RICHER ON THE SCREEN
-
-; DLs fragments (modified by game code)
-; all Purchase DL :)
-PurchaseDL
-        .byte $70
-		.byte $47
-DLPurTitleAddr
-		.word PurchaseTitle
-		.byte $50
-        .byte $42+$80
-        .word textbuffer2
-        .byte $60,$42
-MoreUpdl
-        .word EmptyLine
-        .byte 0,$42
-WeaponsListDL
-        .word ListOfWeapons
- :15 .byte 0,2
- .byte 0, $42
-MoreDownDL
- .word EmptyLine
- .byte $40,$42
- .word WeaponsDescription
- .byte $0,$42
-PurActDescAddr
- .word PurchaseDescription
-        .byte $41
-        .word PurchaseDL
-;------------------------
-DLCreditsFragm
-       .byte $60+$80
-	   .byte $42+$20	; VSCRL
-DLCreditsAddr
-	   .word Credits
-	   :6 .byte $02+$20
-	   .byte $02
-       .byte $41
-       .word GameOverDL
 ;------------------------
 ; end of "variables" (RAM)
 ;------------------------
diff --git a/display_purchasedl.asm b/display_purchasedl.asm
new file mode 100644
index 0000000..eef87ab
--- /dev/null
+++ b/display_purchasedl.asm
@@ -0,0 +1,45 @@
+;   @com.wudsn.ide.asm.mainsourcefile=scorch.asm
+
+.IF *>0 ;this is a trick that prevents compiling this file alone
+;---------------------------------------------------
+purchaseTextBuffer
+ dta d"Player:             Cash:      0"  ; ZERO TO MAKE YOU RICHER ON THE SCREEN
+
+; DLs fragments (modified by game code)
+; all Purchase DL :)
+PurchaseDL
+        .byte $70
+        .byte $47
+DLPurTitleAddr
+        .word PurchaseTitle
+        .byte $50
+        .byte $42+$80
+        .word purchaseTextBuffer
+        .byte $60,$42
+MoreUpdl
+        .word EmptyLine
+        .byte 0,$42
+WeaponsListDL
+        .word ListOfWeapons
+ :15 .byte 0,2
+ .byte 0, $42
+MoreDownDL
+ .word EmptyLine
+ .byte $40,$42
+ .word WeaponsDescription
+ .byte $0,$42
+PurActDescAddr
+ .word PurchaseDescription
+        .byte $41
+        .word PurchaseDL
+;------------------------
+DLCreditsFragm
+       .byte $60+$80
+       .byte $42+$20    ; VSCRL
+DLCreditsAddr
+       .word Credits
+       :6 .byte $02+$20
+       .byte $02
+       .byte $41
+       .word GameOverDL
+.endif
\ No newline at end of file
diff --git a/scorch.asm b/scorch.asm
index 1579ecd..21ea1f4 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -140,7 +140,22 @@ WeaponFont
 ;-----------------------------------------------
 ;Screen displays go here to avoid crossing 4kb barrier
 ;-----------------------------------------------
-    icl 'display.asm'
+    DisplayCopyRom = *
+    org display, DisplayCopyRom
+DisplayCopyStart
+    icl 'display_main_menu.asm'
+DisplayCopyEnd
+    org DisplayCopyRom + (DisplayCopyEnd - DisplayCopyStart +1)
+    
+    DisplayCopyPurchaseDlROM = *
+    org DisplayCopyPurchase, DisplayCopyPurchaseDlROM
+DisplayCopyPurchaseStart
+    icl 'display_purchasedl.asm'
+DisplayCopyPurchaseEnd
+    org DisplayCopyPurchaseDlROM + (DisplayCopyPurchaseEnd - DisplayCopyPurchaseStart +1)
+    
+    
+    
     icl 'display_status.asm'
     icl 'display_static.asm'
 ;----------------------------------------------
diff --git a/scorch.xex b/scorch.xex
index 65f90b75c928efdb2279c9913fb49ffc468d179f..0825c6112cd18bb91f4db65a753fe5191a1655d0 100644
GIT binary patch
delta 9410
zcmZ`e4M0@K(f5vj^mvctjQEGkpNbGgt%hi06y+r3`Fj!Z|BU<{7*EtYK+yx_0U{5<
zJ*i-5PU1rz;S{1Zy(DKf2J6v4UQ?|}O-!Of#WwbmG*$Ce{bt_*Vv?Q-Z+B*Pc6MfW
zW_I?=|5G~tt8Dd{t9&%?O|QA0o{IT@k3Z=Ze~a?$jn``MH=59ZwuB`gOrv#isR@d>
zM`|3hU=)s7;5i=pbK<-J7LhPlOMmsMD<)L_Dd)x|F4vqs7PDzXUh3A7_?&0R$$|w3
zl)lR~$|7blgK$V<JdR29!D)%RhovUWRlT%j0iUpCOI)WWMycEq2Nd@cqau3%e1w4G
z7sSNnhP1||E@0vgg(#IVaohss+_1zga~AwLVeyhE;5QoUU!MFzcS1p&BBnsu|BtGo
zQLt82SZCKxRh2P6T1VNJS!%PPc~@jOqlh?@c!bLlRa~x^i7&q#Wqw6#Wg3=>K4{HN
zWM3>Q(JNXMvI&@kUyiwh+P1k{H_?WrD1RAxVF?<!*$w(Ly0-|0vgi;ClpikfVEtH8
z!5PqmW#~i^e^Dt8A*}wAi+r?=Egg<7de{4O{rhy4$HUWf@cZ=a({zxdmBwavI`tm@
z9UC|O;me|;-ixV!M0dn^uqiLwMB3#CbD@`Zu)Z(fnGy(XaTsSsD;KllUlzRy`ve@l
zFfJ4?t?yEIFdcwF-Gyj<De^8tXUouo3bcJOGM1v#xN6}{^G;P2Eh=~`Esg{(>vGwz
z7d38iyh(G0W)M&EU{5R*A90_d-8mw~9cwf=wp;iMN))~u9m;oPsa#`_va-<t9rVwo
zHos4tqa_b?Ge@}WqI7J`LUeT*3STStKo5iqaG1<ELtSboa``)>%+d&ynhukonetyp
zI;?jx6MmU#*WIzw=+i7<eXWZ|Kde7$kXbCu5ge{yWYD6nQo+C#f*wl@j;plG16|=d
znC}}4OAIa38OgiRaHu|#85q^z1?#E5N~2keJD7iq&u~^^0eo@M2<i~NzG%v*g*h!B
zsexlou>n2WBjj)f=)0%HlNQeid%G6p$hs!uvQ$o`Gz4V*R9$~fU4I)i{SUSPmoCoq
zi{M2HD53Y`;@u-QTllj|o58}LQ`)vz_z#q}Yzu#0Y1@jcmu&Qet%LEsB@_J;mWUy|
zL5Wu4sHHPUmsncrEVpmp=7&oaK~m4_8BG~;62MBsC0iXXTpC49#kQp(lYd+S;uY~;
zmx62uX#E8K0Boc?n6_cs`JChhFlT|}FS-CO#_*WN50=JL)9}1yZPQ(QU}O_m)QY4c
z^yMySHK8yqa>Ip7Uv#Nm0ae})yVUI6rPt)YNWziYH6!y>PEVI#;^tU}{I9e5e-e3?
zhX%Te-_VYG>RhelV=GolpNK;nf=a9ed`0_QAZ(N&9n3xJ%P3LHj?tnzJoc5zW|%Nc
zTPEGrIlU#H=&343DJmKsl^khMSX+_eEfDdD4mq=6%S1B%&5k|V1V@oJLHB{SQ~Rm*
zhW3tj^((7halP`^a>w#>+H=~jq{~U4CsilEk$fZRo20u*suf`?#wWj!tWDM@Z%f{l
zY)dXpKBqmCtP{OBt2l(4dYmm@DYpYTx#<bu5s#a}?j|7y0#v*bb>T;^jC`g<2Rm@K
zNCRwM78#F9`%q8Ir~vRJ{V28+uUQ`9KQBwBDMcsnzU3OTOg5xX48pmqlabnBy<gi(
z7}&_~X6ZzjT?Bzp`EoMz;pMSHN^dBa(yF|W`UE^kNYT&dQmT|aPr?V$#|mjMG!2HP
z3+YaUgqI`@jq2wcB&5OkG#KwjdJ1XIi><1`bKugXDI+ymAm4FTS}yv5LIPlg0HFv3
zf09%{Nm#ogocbK+u2_=5E$U!S5U->IEgxsARzX|-5RF2QXj7BLnpTNp23l%hs^E7s
zqKaS1h!mg9uro1}JZ$*P72=aPA2;sT$)iUMO(v`Nbg$mFk_pl){rw3`oSi(1dL8r0
z&rzS^_T*`SLz6R_JDBTTD;XdIPinw^E75SNTzm@V_5JC*b5;)91oJ+L^OEOXAr5uR
z{PHUBA@Vw)HFlu&g1gnT8dhoThkxnr_2Hm53UCkkd<K@hi(!}Hb1PY@1_!K4gug3S
zg_=Lige~S}O+nluom<Z$cMP=`^oTv8AhsW``o2L?a_m-#D8ppP55zx<1^gQ{@lRKY
z>z=d9@jU3ngUfKd2ww%Kcf>QXy-F?<Oqo@lfNFMUGz(uzD}^uHkGE=t<FVae2I(n(
zfBfUBk&C%SzyO_FbXEa7l3V1sL`$QHpAZZQB?fRCvZDsKAr&<mGB^W?PrqO3wz@wo
zkK+17PLp73p?17+b;xA00wS#>ORGckSHn)S5+lyzb_%Kbr?`BpqHQO?f+5~044+&*
z(U<5#ib7W0y*h!i;z?_sp^9<*ng;3)zO^Qp4$~g}ka!`=<x|{_GV!pr%c=P|Yi&JM
zg#FfyqSoMubrEKWPY|-e*M(_qW2L4@FW00)k)E#Eha#1rs9o!A^e4_o&<a`Syeoeo
zmPP)-=_?I|Xa>=!L!851)<Jahb@$)ZIbW3gAgH6n&FrbQPL(tPIuI$ZBOS>F<VXx!
zzDy$Hg9<ZQ&gmiuhiv#-XC=&#zs|WIKJTq_w!o)hedLSI0GHND%(j0W_(KnN;(DhK
ze6Fl>hQR0MdS^6zcCB|tz~}sW=WO`=bv?Umtu0p>NjqtmPm}#zE!(@6xL-mK!qfv=
zsAoJyoUndeSom7U7^XguaSUhbhcF-rIMyMsFZ`ib)%h@xVUuw6`lvDCYe8^pqahZs
zy)x1Rh_3}QF`u*HI9eAp%e4n$f}>0AeB>f1@g$@gGC#07v3wH*5<tiHdIG}fSv82L
zZ#+a6GX9i%JoU@tgY@$F)>e7En+ThAqs`xExxRMmQjQJa(tO0R5bPz7Ymp2D3j_q+
zZUXVq!l^2Ls>+=j$@&M-G!;Kh)kmP<>Y*jnJ4b+=&1*?WbIxeJ&;LmcxdTak7UsY)
zZDHI~jg<mLJaU7UD#4pKYznxc16|#W6<2i&&5i=R^wm+=<JE-}X>Fzw@Yz>a_|@!=
zZUL8revi?{P|5?(+c<@K7aKQD47ToNxedY}xD??mmufRJT$-(b;nKrvf!ewk2do(j
z`~8cJqk@<enC0v6TE>HQY=qN5KBSGAlnK5cY;;DrNM}yUuc+T(W6I>YeTTFD68-pm
z_RphvGp#`f5lXhx6K9!_U*Mc%2<}darViq#QlEpriK#`D6L+T0_4C-|5FkFWDR_9=
zE?C~dv<T0Jy$}J;qy<qQ;wx!W$29Cc-b_fO6!;IMPT^9;KXPf%N=FTNTzc5BE-g^}
z46`o%8Ksm0YYq+pG-}u@w1HmU=2C@|T$*r-OCLz&APWC3o!30tBX2aaRIaJfP%kHU
z^<UGFJ(867bdlQ?fe*JTia%_~J^CSPN$==j?!!?eJ#jhLj#_Y8Mu_>{EcEA6o#Tj#
zGdeN@I8&SPrAO699oo6q8C>PrJ5*ANPw^#;=nF~<hYLd^To_*EuE4~f#@b4l-l5!I
zQ8Q$=0LTLm+gZX?P3sd*$a8vC`2gY=8qX0)uf;PxdEkg-gum>#qGTld9i+Z)vi~uM
zr~rAj`cQLMDa<vNvw}-@s-@uD;=Dega(_W6RLRNC%{AV6*A+(G+KZ3f*mX#~Tn49)
zD?)ZMd3yGZj3@ocnGCl-kx?WDc(AHGy_JH%;9er8GDnX`deH-v^Awz8;$*?+g=tw+
z2GG0a4W^x+88R)yP22Dj+W)l(dDVw9M^lyfcbW4c&-gJjS}hf^C-oi7LC^!lk3K<W
zX3ZN1lhd-EAI3985}G5Dyp}1GxG`|pagu&4)rHSz6~o3(*i<|AW)?pka#(O1eh}`w
zVtc9TIvwmP$4v`Y=eT{~wFq-}A(+P~&Ij8wa9KofS-j8Xi6Pt$l(Spx;bWBIOZ*h2
zIGdlWM3Bxa$u(*FVzGm7hqM;%epXY%67g(>LRm>E`G8A8OM>m9h0j;nIxYMz@K0O|
z*|!7tG-D~manyH<yNl@4MHyTRFgik`O|L-$efYJJ=C?LE10+?~5t{j{j9~%bEd?Gw
zLSM^PIkHvEA0B3_2+&7*8i3FNpwmlg0yF^+1#3S28njxnRTnQ7x3p|kH7M+dE%mLm
z-D;_Crf=PBk^a@PO=TA>+_jeNDtohqpTV>kRrV7Wen+aR#iX*IvG5IaOODEZ-oo!x
zwdAVo^0MsmvUL47YzXVdNOQHZ#|Y_wNie~F^AwEET<KOn1*kVCNHFS$a7IW*O^rDq
ztH1xQY+So}1^7mzVA8`)-Rj$B^ed<~!sVT~UITX>tdym4d85A^VCQZI5Q)GLu_+yd
zX8GG=5De`t(iNTfh~GeqLHw&U3Dl4)O$=nqH;cVs)_5@MG%za-W_<(9O1sS}4^Z>3
zn#mn`VjwVx474hsH1ODtU^G!ntWOi`hk*6PQQ_C&Dl-P|;vk!RU$!bLE-D3szdu}K
zW~pjt(YG$1^_BiD4kvLIZv0%cqnYO35*PMOO_@N#3`l(S4T{R~ft8*U0?`9}#ei16
zv$gmP`gSX-TLx?MV6QH7M!R;wA<hG1QaZ>X)Q}2HlTUL;HrU;R?Z}q8Y!d^SAs5at
z!@(DxVWSMt^dwE;OnY~$lIsQ#Ub1DF5<cl$kU5IDvThjk644Q)ef@f%h3lZ{OIv{+
zC<v#=I+aoH3__I{9Yr-Dz^v?}hVbh#1~G!)M~ex31ueGm%SkJVZZz7P=`SYMNZ$5V
z`irERRzhyJ28ncahBa7ZsxyLw4E-})o}kw&xE;WdYesRVMk4`_7yu^$*fFt&dkaw}
z>j=@aI)iQ9BE}EQcW%&p<Vf3ZTe!nVjcs+Zc-CQ}qB`T^StQ*TjNk;G<(dh5s-L|)
zq2t{eEAWM7o2(w*#&M=H=04f3U*Wg2Cn<+#<LlY8s0TQB>l`W<uiqLQ-IlF`RU4xx
z2FCavJ!AhrhW#oVzM}#g4Nb9N^ZQ9PaL&N)_b1li^IKz<xP1)>7SvXkS5#A7=S->c
z6gO7a$*TU_X2MA&bAoUe$$;%;cHpMK+)s<6IqRVWaU%pmC~;&ov2Wse+oFO>Y9Xxm
zxiMhfRww&5_9`yfmQSZz6Drrz73=8AJ#<AejRUv;+Pr}l^l(BN04H?2JR91r3*0oe
z@qq*w+Y9Sy@2>J}=mv~DPA7(u1CU4#z!W$DKRF>Fz5)DSb6@G`&bGm)vR4NONIt^c
zjawznVrpTZQ;jpBD@ON`u`0-+sR(f&8hb@Zq*?MPWBzm2$3<PNhzdkAjqdY6=^Dm;
z@#k8X7t|VJhB@xm9*+vFhjCx|N>oQ>R3JNfyX^CN@DyX1S>_|d;VM%R0?3{l!VRaN
z<OverfY||Z0U(e+`}X&R8{|F(L{&b*jo4nl$MD!*fHMFM(hop^Pdy2rL*?x92eh29
zY%~Zr>a$c<v!a~%15$~yLWVGch*QSgYjS~yk=Iy1OC_)PJDualgZ-U<>#RO9_N+ou
zM!xt_RG_5vE2ymqDPwNw#2_db%rv${1vZS6iJYj)+o@|+`px;`Zmr9+gXz5`W`j)R
z%7B-dB9#>(c$aCc`fe?708O&XjSaqzPb`oKUB#`Y=SPOs)kX)FG1tMQ3VU?mR|-jW
z7V1BpVRhIeCnBH^ebW{lNI)}k{-(LJ?@otW;5s|hQkU-dpVW@o0)J8MXcKs+`WAdR
z6F@j)tYG}+qMFMQOy4-wTrQN`IFxJB$p#P7&%#N$A#jdzb0?VZ><bdEz$O0*M1@c9
z{Get}=IEe0(JHh;+7-4#XoYJ6*D5A~7e5GIyuh6U$=K$cKCIkhcEB!iMoHd4b6Ga>
zWyl2}alwQgN%h6lpEFUSW*m|iVSYT*f}ayX`uF5a16+TB<746rSh{v$pH!to&+nG!
zpa0Wk*`@?`?oheLapq>R6i$W;;!>PR+zleAezsUwh+JP5V}DUVD5{9`U@2$Fx>Lf^
zBY$zg6SQU^CZ&T`$Vw{jsl{2`PLLq~_&v2;EbgNfJ@`u1QG@;O5Yb@sza`f6$qWH)
zB>x-8E@T5Ywe5_2@m77M>LQ%X?_tnk6~vL(Rbu5Yu8S}?_gj3%j;?#^82>(L*z!DL
zTc|TVVSTnaNBl2<ERS_WKqG%f1skBRIv$pfhUbfM1CEU3abh^B$tEm;JPz(MkjQ}>
z<BCLoNbRh}Ph@j$tymRqeKePlxL-S61rC`cjWL|5EGB?NiwW-JhHcxCkzl2o9pQD=
zMyp4EW`G-ahAJr&?${YjKDT!UFM)U#W(xzVjHZiZ;U4Uv9cR5=zM=xyUzGmc-~}%K
zDx@cH?}6$!JVuBCka#qBp^tWUFh4eUfhh5eGXW}k<X$e}<opSvKH3SnG1TED4@i(Z
z7(4oLne;Y!RT!R+59dewxGeS0Gmih@uKaPMo(1{qK#eZQj$*i6t3oh2Uzc;YNKEfy
z&C~K9SD1B;hW8^G`@1!Ky2gDChi#yTEufLNEx7qe^5F8*5ZWUrcQp`L={95SCJlH&
zsL8#j5&ig&G(^m&LHX}#pd%m91kS{c-POm(JUA9V$>@E;2#Wq712-T8a4OaCWg333
zhA-EEM3WiUXmU>(4rIQ76U!dc`T>dX5lGj`nS_sHhKgq1t^p3GHLl^YqN3Z#8O`u9
zfqHfW5HNO)#*}6p{J&rX#_tU9gaZxzmVrJ<Foc2RC6IyBV(kM{CICZuWR)wtH2}!X
zd<|iaHLl=T@zjGZHNbX57huoTXk7l#RR9TrSO#&{fw2a1&NUi$_|zS3DYK8M!?Zaz
zm?Y)ZIqsCaCkGPqTp_o82N*Y}Jx{ucHD;aC*NmIYQ<Tq{@l|suwFy5oPoz%a$b!Yx
zUvXYR1oa5NQ4paFEx;EFLX`0ZxVIpDXl6OoD4rA2W2T`G@rc5yBi<-LndLouV1i<y
zxV;=E*wen(1#e3@rI4MWDeT!6Byf6PjuZB|hQ|2Ec5}U++&*@4;f0D=p{&=JD--s~
zz@XGJfZr=XnnK)DIAv01d8}}<yMj~*dP#+W^xL|(k;(z|Q=xAwBxRK%D62qiFuo|H
zZ^*Wv45|2ELo7wBsefQsQ8o>EzPtJfrB|qb;w^hdP&;t>p3ty|d)_aw5PPj|Rl+rD
z6TF8-@JK2bnqZAb_JA#S;E(rA_uhUGDzQ7Te{uHI$;GT|51L$zto@B{(txV}Cb>rI
z%cTJWD+Mg5vf^Xtc^=z}M`S!Gg4=W=yk(M-2kPrV1i7pu<$jO8=K&wi2rCz$@OmNr
zLfQqR^eu#=!JwWLFhwdL{vo<)2LRxV2_>GyJwt)MIAngz$W0{cIHgzRo(p<zaF4sp
zn^`VP0wsC!P(dCZhPWRd;C?Gh05e}my^unL(uqoWwN9qWA8ee4CK07I8gxOR0=?2*
zG{QGIHAr%w3xU6*O2)$9StVm9_D@UL3QaFj&yor-R8RWh!2cF#2>`gbWY&17w=_ml
zF5>Qp?ra<*MS}t-@h}rqykRO|5bp%;DG3YvRjKeB>DPo_^0F#P<r^L>!=)g(j^Qqb
z<LJ^c-X5ipiG7C`m!>Tz?42Hxx4YaxxO=eoIVirvoKK4dRw}v}DuCp@?Kj1T03&ZC
zGGZv<9VU6n?)wQ5VT1XX&GRlQZ_9Y$2G*86OP#=lWfSQW<*p%ctkbFstBvf4GW>2?
z#^@8}(imWQ3>B4=6V0Wy8DUY?M%Xt+c=p~H>NGa&o#3}i#hrtK)3f>5x;Ka_$M(I?
zQS0!xdt<5Vcw+fFrM?`0yl>3Z<L@ws>i@_zrjdeJ2A54rVtQ`t@$VSnn51gU;6Gx<
zTs;UktSFETIw0O><>@aTQOSftN~BLS5c;-d$W%HaKTzw0)I=dAGcl3NXiR&5FmYSP
zOOIZ-ip~2*QY&!XzLnl&T1V!|`}^XkzBZoAZ(g|OiGU05M1w0Xwpa#YGt_!?U{UwZ
z0rhh!@bJN<LRf+W=?G)E3OJ>lfLI>?m!JDo!9mV02+q}2UgD`(cL8^CWdyt!87n8i
zKKpIuNbeby3HIrg_)KN+G`OA_9dK_n=~h?fR{HHfzyF{6XI7O}&95XCW6!Gl&Vbe*
zA|E!{-D47T@U%<s526m^3HxKI@9>8Gb3zX<MISE}F2SoYczt*{2DcAy$0*dIL)rV$
z!TsniKEHnw+OVIyBu4WtHRNpHs>S#D@6=FF`d$s|01lxR99XrEmTz|QxX%47vmfuS
z8aZ+>3<_tbt16Z<=!I%B<n5}cFc=(baeB9s{T2!JE|{}(|C4kFs-vd<GFi$1JF6!O
zw+IdJY#_V|?+L&YudNQHvT#B5_K0mN|E3`E;sY>4PLTbS1y+%o0}HVK&H`)ED_|Mu
zFdlJWzURyX=s4bRAeug29V=Yw^@25fad`lH{lIvt7k_vl)aT=+tiD>N3dTcl06p_S
zkZ?&qm@?SE)vxE$g*+F-8u1c5c})peTj$^0(c$>|K!W3|0|~l+9nj+{Y=?jUgnxFd
zYvN3aun~=iBH_*C>cOMN=TFtRUS$#fIpTPY>!qV6JJc79cDSZr#S?}M>;rod4zP?$
z_9xeeon#MCum|YYACN!3uv5ANau8q$04MeV!CMUw1`j5LDnOze^_UzNTAqm~tQf-T
z=M>)_ASi&tEz&(!0aGDh>&ED;h}`>O&*IN5$DXQv(`G;4`Pq$cLi&Fv4<1~_m?K|F
zPTRJl{#@s^+uz>vA2ns>>WrKt;(MRn`oSywSF@KH_r2cQ`A?s*^VaRGZam-lAOLBW
z8%pcXwg2hTSKYV1`JSHf>v;()x91nv*-pK8`3H|-Gvd<?+j4dm96jA}XGrLD%`$_j
z?%ZwPv5U6Uy?yq}8~+^=I{WoOKj!uN!N1@B78f>#;l{>*aYq`S_`NysJ38<a1mWc6
LM&IGero{gTO(9n2

delta 9090
zcmZ`e3qVsxwz&y^47t&$5&R4wDnb?Qwqm<&l}bdtB1lz)s;T__#ZLpGX!u<~Bz&A;
z#Wotz3tR*X)vcSYsoJfSP^Gu6pS7;GqEd0++E{C=-L1YeH;8Dv3FOY4IdkTmGjl$3
zuI<0lZ~r50kxiE_uix)F-Q}=n<V_0S(*$_F9~JY-%}8xT5=JwF0+OPpMaZHg5rI+D
zJv84fcZ3CqAL;aIv%^-sm7TKQ7oT+TKU_9*hm?xLqh^0OI4Nqn_pG%uw@0mA8}Yd&
zOe$R)A(??)=Y#}b2k>43etl+GM0#XPMAA$;q9jr(4T~t4DV^>=d+oHDUqsD|3Bi+Q
z56AjB6JNO&l^Y=m%auO<Qjr=oJdT%GUai?9FQI?6_*oy~n#<7qg{N6PkJwCJ&SvpG
z>_+}PzB(r)X?~o=r#6;%M{iz7N9XZUG(QfFS_MQ#p9{N<ayB?y*U_?Av}rziIR;7A
zI6+^cpQ90C&`t(0KaG(w?hG$sb!g0dl$dX9m-60()SivV73-K-%8E}i5ik6A4lgmg
z(&k5sjxZUsd`>g3aCibeq}s%|&AB~E32lBbYe9?VF+p>9H$p;#!{<f>RK=P*RULE(
zjG(GK<XwzD$V0125MPGY&qMyjXgPjw?n{R6<&_FvVzelDU!W4ak@+^dZmn&<g4H$J
zIu(M9X`ahJVlSduSv<wo*XeA?WNee7AGV;R9NPuCV+1;6tkXdU-HL7Y{K`IDkfHap
zxN{Cl%S@PyF3v{*OT-??N~i#ZiL^byp|T@~mp#NF3`0q2um}nle?LkCc_-4N&(Wu}
zw=D{EekG8;(y2gqmmScFB-B})%`p<KjzgP@IUSo<*VIv@vt3d+WT=4cpzqe@73rE@
zpar)&-7a%5-8ZY&7348rQlP2xI_RJHA*=;v+VI)vVbo51J9?6zI;-il3Mgh3>d?Ug
zE{oMc-?=1yY2J&0OKXr`)HRuRL2j1{-oWcWROTxx^DWTyznHBU&s*X7Wf@NaCiL85
zwhr?(8Ba)?{Y=J_(&phN<0sPQ5hml`rOhL;IVQ;kjz<-Ci5>5$iQ)Z?Iw@L&r^LQA
ze6p!YW4d+gmT{<1rWU&2OK(V@76rRBRA|;<V{8bu2U}zPC*F?%_VSIcXVuL!H5ucK
zGc}d6+fkb4D2;uJ;0iE%uHeNx0M3UQqcqraek8RQ&zs-+!g~cUvjKM0f^zav;}&Q&
zApbbzgmY&vcd8sdm2M9^Rm{EEE8;K8!7s$U>3c(NcX4>mUK37}e{HkZSHUNY&_EaQ
z!MHI4SJw#c&4p6oD}F$&y2wJn*W#uq;h=bT(DyBKP*fb_7l(G?kT)h8U_t-565$uE
z-A!;0-6N-^yrlL~(Y{)Vr3Fb20*m{!=(Ck@WP)k0Mq6H7lr1+dN_!&i^SJYISL6OK
zZt)xOZ`^)^U+~d_<8jC1PA~j=;WrB_;?40_7yfJEy@lS3{1*kqzZ@SMpBBF^eslc6
zcsBlc+_88q@5)+uZ+7w_CV#QmR<dH#1;E3eG)Fp{1Q`%e{$jKVdoS=EQmBO!_$sde
z*z}cTK4N=^28lyH;4vN#F)U7B5acy|rHE6E67f3=G)W?wcP|@+a_1RZXa#w%HW$%w
zkpH?;%fsqCFoa4Lkd<o|gmcL~0c>)Mv@PW+xSC7On87AjO1qze<7o@Wx%bY+x`iY9
z+IZn4-x(`mtwT)b0^SpZ^8s!FLJ<hQvM`s*!OIqnroO?2i((7~(H->r#KUMoV~3dX
z1Zay7q8;cF&CFQIyq&<0=xeEfsKmIH=H<r4G*21hX(oIT|1?zghfsGX^iVv_C7Tmy
zE(OQMD~EZ-6CqukLN+g^)frMRFR~im67NUt#x?O%sPp*C_~(^g@#&2nbXVtM8qmOD
zuEv8GBSTIpKM+{*_#I16Lm#vBG}N`1(E(2JW+i~@5JiU8sJ_-K&erurP>AI*{Iat*
ztalK)elYmZm_vhlw$MxrKC_siBCv15Z1_z{2$=cF3OHJ>mSj{At#$4R&(@=Lx!rs>
z&+(@YRo<<Y6xH7>;zgJUxkvmmpKIK!Ab#l*aoMlp&IAM$e@K`#uOOOvH31!uJ|Q6v
zGTL@lA@~t%=X6m;Ixv3G-GcGw<k#uaSsjToA1-$8w-+!=vAqnW3exU0v<~YM{gs3t
zvbG?utwj-dU!t!Iv1WWcal8i+LI^<&zLOZGX0~yyY%=!&o5CGtQ@JB-8aeh%K8}5}
zcEbN9@`J=h>bYdLl}lki;8NMcTpD`>7XB2R!+}qUgP|Pmg{ROE?7w6INR_q3JYqs=
za}F)YI=9fBIdt<D+AaZqmje%nj7h+gmIir2K!O+r&dncdm#Pe#mo+QCvOfalj9O~{
zMSMWC3O;W45C%ZJf_T%xPh-z%A%1x{`+w8gUlTkbG^4OJ%m+*Ca$y{FAQpBZ4T<Pt
ztOYYVM`9lYRS<u9KEyjFV2QmP7TC1ZUI7p5QhSpiOJpp|f?u=yIO6PNgN#eT<H?wD
z%k1v(IJea9509>8_E30iUS<!1$H`^(SK)DX856Uld80H~VOKcZ8?38qnD3Vm2TSmQ
z88aNB=w+dS0ZVKnXtR>G4W-TAH1GgU(;E!M3wo7j9x7?(4QyT(VhC6QEL-Yy;V{}G
z4$1)eijofdr#Oi-(=LEvwhwDTum|J-G(c2<5Mb+6*&jIwHh&m03lX~?1`LPyxWItj
zrSfT{{v>Dgn*qUv&^+R#N&PWRb%sc@rA4IaM8ey(!#(e;bX*m+ja#(pXz1N=>Yjfz
zcaPk-NA668#O(mkUb%6vycYqagBAxO0;3H}NC>mP*z&;mxe9UxlIp1OkhhYkLcHm%
zRX$g>ppEO{e8LT`(H4rAEce5T<#Q?0T0?2@>E(+&BesS%fv-Uy;?Sf3io)}fCQ*OI
zc}e44m~Bh}em_YqWwv48H%Czn?n&}f`y>O&tD|dZ8S_yRSPFTNHXfcl&f`RqJ;*^i
zO!A+oYMhrm(Wlo&&1V(FO!3Fb{sa4g+E}{?zLOkEVLUQr3j8ii$)`TU7gMHtQmbqn
z1QcdD4ouww{O(H)8WFvX=}fkj(QLA<iUzan0JHoY%u>SI&?op>>SVw;)JSG^Cc_`V
zli3vhGd2}kX($>`P74e@9S0cCj*wYAW#;Hw7qY4=1pF`{g7eY>f#kDppf53lsCqKZ
zs5w|5o;4yG+fb)7i^-b#ssge>lEN;}cRD3-&K61Gr?ndoe2N;=Iy&eFV0om+FJMoh
zMr=y=H~e)a+ET2w$$eP8?Ys}0*{YxQs7kLzW4GByR=V^I5TyJ-V-d}J!1)#+$>$)+
zU(Q~Dh5r!_0k~%XdmiZ_Qw2b_Es{P{L{~oF%N&<&cdc}XfqL|HA>s5&B;B12enuSd
z61`Q3ILJ7NN=3B)u?8<eS$J7Sz{E|(u+}Kn0?yg45=P$Qf9Pdu;~y}EUcxOILuQIT
zs|zwGhtBTq2ogO=Rt95Ef7)3bOLsa8afmp78IzS^p&%eQ1;X+b!^e)y;ANnSfnb8f
zV}d{Pk7M3W2Xx2l{c&Sf_{XF=aciH!{a-8-89|d4iS0GfN!zB<_Fa`!Ng1f0xR#gj
z$rUpo;c#0Ss>;b{S~EK6YEXtxujk3Znw75y0Z$)^%6=G069zvjBn+-xAyROTK%RMM
zC89RrFIE=9*?(hI&8V)G#up$j1=rvS!Ou0khpO7Gg_C8gG_kvFJMn<kL58Y4{<<+t
z%Fi-RlJc(_CrS|{;!<+KSwD~OFrI>h6mDjgw`*hg6J-)<IVCmvoaLILn%_1VZ_1mq
zO~xMZG;Gtemn{Ec2*#-Q3ib;e-gLGJNbOUg`K!^c`4Da>Ekpv`zFKLhT4nbU<emEz
z^m!450f3vJJhV@7<+9v%Sxz5+cv((>?!q7dLI;3$SD^uh33veP>4R0!YPu|MZ!c_W
zx+1TYSZA8dEeb1RGB+x2UT+e9X!=%ejWw}Xn!b};7n+PO(oI+8)<l!BJ6PV-CAY3H
z8EX|y*W^~6$@smz>AKu1N@x`&BtB5j&%k+W1_eh7E}Y(;F5Gm&z;YyPmYUONc(Z!Q
zK{M;JfIBa*Etj!v%_0NL<1!&V&9r#5>OFI-^l+~x)O2hYYy{j2+>l`hGj<JtNLUs1
z0`XRScI!CZsV3oqmVaa%qT$uXp&Al>A=MeLWEQM(LRADR0SI)1m6nH3Z4@#rng>}Q
z?5~FGuRrWB?>D*&t{EfXo(v3#cUg<1tX<0Kyu9FwQ7^A?MBZ#a;UWCQ4<&KZ)}mk=
zZH)@{ATMRJc@4V>oz?>z>5$H5)Jn?7D$B<yQM(SPj%psS6b8eTVA>+N_#fIapdCNA
z)^l<G`ofRVvGvYvmoXRT+d~~&z;3f)=in6hz*Sh`cwRK%>UFTmGNyW+&<Vt7@3xQW
zq2TR4W`14+O&8MSK0bA$Matd)5UyA|SPGB2waD-@QQ-}kG>fPQQan*-L_1s;D0%OC
zzy}OM>4`eUq5OVBMS9zWoxp(Gx&t6ln2rxLPSfyF#_1aVeWMp?d28zQ)<(tU^VNcz
zwMB7Ry0e9#8!T#GQI&2P$<tNoYA!uv2%F7iWJuUeK#*-j^2|Ct0T1f~O95;<U(Fr_
zeOiX`E>-Ew=C%Cmed`_Xw;nNA>rNB<?g4%4Zjn99U|v#{-hKiJ4>&!T_;YL{Ax}Lf
zFD__H-Dv^3Aa<rj=B6K$SwcS`C$$XUSvNu2wHEuYf0=5>OV&@LUdMaZhll2@(}L9c
z(DBMJj{_fD|3fne*TK_IS*L3Vhm-I?x)Y2FPQ!!q)mXYAEXL_cfH8IJ?(7LWt9ILy
zD_!`cs@<Zhxiy56T%-g6EtrPA7s-JWg6$r}4`(gAqWB~Tbx@Q@Z(!Eo{0$-M$u$t_
zdz}=JZrv?<F6JUWwIN55WQi&ts3{wyDG%3_P1WF-xBqMyqTw=NqibP|yWw!D{kvtR
z6Q_Bsk^sYdK%P@KDqU)?!H76d3&sFuF`JmhBruC-3<ucPf!}NFE%sP9^f$;JEqFW8
zdf96?iyHZqbzm5gU>NdDRI7Iy68L*CrJP<<vgSkv8w6Pi{qqTT2i0B{qC~Fx$8NB8
z%;haL&SYV*ZGX+75TzOBedi%i9pxcP=GP6PgKNcW^??SFjtGZqOHL#Vc3<PJ**ygp
z;P@J>4v;p0Ko0BixX)cvXUJGUs&wbBh4*+qfrs}1oCc^mqYnyn%p_tC5c9)(2oaKX
zI_{eJg508$loBsNYDX5x0frHFO6dCy4y8pR%4n{ai_YUmt*x&5apxzk#a$ddArYj(
zubmE23R2J9nw-cI`lgmw!xi6E-xQ*(9U~&yQKg$*+amRxc6mR}%bY6BiNwb;N2&JL
zzzonFgY>l?wyh>eZHn;^nNxkgsHq86me5@m33&Zb<#!T6egY~qXTGSx5m`Y#y~Ed=
zLzM)i&-zBQd;9GU6~~_GPzjydL!YZ`w+<NFRkkIZ(XP4)4>l7ZtUjF6|GQnqW^tMS
zwyW5UP!MC$>zP_{gVh=JxO$^M*v-+6<HqgYuI4Vl{rmz1fPdV+r((8dX`x2Z!nHsm
zbvv7Dfh?YF;idSkO@k)uvwHjD=%s8p2lf!bjn8GziQ9M%l5<E$Fd;zFab8KLQF^S+
z4hnxl>@Gwk6GWd}XNn{edzN$`8IgpcZ@3K$SK77<m0IMoRa|1mv%EG>Ql9CSJI1h$
z{9QQRa`ANYw_r{A@78qqi<Mjc`X6!x<quvVN^Iy|gxW;9QjqT4AI|8n9)cU*1Gtb*
zl;2nJ_3UQgAm`A1l~|(fMdfA2U*!jM*6$%!!2x!LDj#R4@-@nQY9(aT3|<Ybn}c7w
zY5rB-4(4?iX1V)7F!1o<fBi$jo@S);zADVCmm6jQY$|)6Kl-!)j6RER_&uo22{Jt1
zD?o!i?k!5+-i*37^V9mg5lO=M(WDfri6Kdt1d=dtMQlFr1!<Wj|EU1))QUyo)JJ0x
ziRd-^<lt0E!V<=2mW25bk3Wv&Cd0ZjnVe1OQ5LGvCe&2vEwaZ!AK%y<AU&<eo;f4Q
zBRFSd3<RaX<}Uy%y`h~*E@P55op5t_@DiZkF8oyM3V!>NLad%Z(HZLeybt6QwXW!$
z%^mcwwXVQRByEpsk@x1=@8pd0duKCbuTcILWRSvk&{lMRzVHDl=67wz-{ge4zh^Q}
zrERrXzGaNxMG&9{&YA;WK7_FwEfOx%{;rsNox{;v7{kNOPYS!*I^D5g+M2r4n4*E~
z1L7f^gS6gs1wt=LNr2q5ad3y2ob80@sA$#Ktk8ffgKWvF;XREV8p7rv(7sgz9X<)B
zN3ogAt(;yuhW-KdX+nP^grL?AJQVct0F+pbu}EVq))-4Pz|ln7F`Qg5h60)gjPXTJ
za6JKqI}O~OVKcce!UpgL<58039nm<3hVzmedRA|MM<%FeD*$2Ss78~Ss_*~L>4ETH
z`e=edL%*@F4;*;Ykbx*^Fqb{O;L~~lLrEgRF}lSE&<#ctAzr0%j11?G{MM-g*jDHQ
zY>G+a@Pe)cPzYp4KgwFztiE(ILE}s(wFjC?to9llZ3xGlVVU#@ydKD%B)zs3Pt6UW
z)cDQZ@st)9=gy<@@rB$V>LC6tH%QuPz@zj0rFRT?X5Q!lLrS4sFojDCdmb+8S$UI(
z&B;YWO1lf7G*`$Ko+^doQE+OTL&hZHPx2V)kGYu6A3EYvZd+M6SJLCbmT=p{Z?HWs
z>XZ_8J98ix0mh8{NfU;YhI5B+l#%jW54q!$e(Q}5q-+QM6zDhS(QImSK1~Mk{(S%5
zDI1=dQue>5{Ft9ey@R6*)+rz(cUB*vkO}oi+*vS;8iQ{Z1Ozq~91ArO^(VGS;U2RJ
z-YR`rhH^@|29RiO0c_0}{9NG+Zm60~hh}==y2+OcnD+|Mr2@nh_BN_W18V21!1}^L
z<WwMFp@0NcQdo~}lwognn1RoSTWwSv7zAWusJ90J;hdHf*=4;&c6U|}l5<e_Y)flP
zZPN>PAfEIGbti-3Q()j<yc4$%0KQek>=vu0ec*pP@m7~Q;V|>AmIESfDQ(H&TxyRO
zn+oN9qW{OMI;V;olH4PAG6p>-*hvMtBHK_NC+`Lb9d9QcxR?UFm@XRW@(m~wPc9lw
z4Z(|w{NXpdXcYX`6pb4Hm>R+68fH<?k%BAKEgr*xOLEr(0PZS!c`Q^q>Vhc;@nA%M
z%`7d1f)c+e1BI(00Z)a@OAoI(W)ueoepkf3Bm9}*3$7L^sXoK2ztMtPtSLAP(zvvE
zgxmW?kRk2C&Bdt;2zk3qaC6@A33VC6u~0RDH3#vz7Amw5YHj4r)jNf|U_?AjWX1qO
zJ5X>HJ@Qj5g5>EXue(hsZB2ir0=JetM<wEKOU5e_OC8=|si{?YReI)BF;;I&AD&n$
zi~y4LXhNw)(yC`uTlFARl^)K{1pMB%FlsqIvu&IwY{f|^^*nbIKisCKUc^I7r%+ya
zUTHX0j!R0HN(YzX=gLM*K6I4cW&Vt=OC_bKbaovnMrE+;5B*4U^@6-L-FTWFQCtl-
zp9|Z>4zM?6d)jMq9}$sD4t8$@M32^V5lc(>2W%~uGMh_YF?%+fUYB~TKXPmOtVgdD
z<ICH9DH*=MeX$!^)^`5zqOu68w~hB2*UU|LDv0vlPgOvg!)b`OP+-x*jyj8epnfP8
zz6QlYh%{i7wm_OK150H&biWKIlusWRTFqKH&YoE5${z`LmP(t;gP?}`b@@0rXa6nt
zb?Y)lS+5%L@QRVo!?j6ogZo^j*1ddm`CrO)6}u|BEB;jJFp^rVOXUN*Ps_dFhYeQe
zoG2~4BwbyhrfP6eML4|sJYF#^pe7cbiRI41`&V$}@Cp_@IlP5Momh)TRG{e<Xg~I^
zoIuHOOr@_YAa`P{t6ZuOFIOT;b_H{+9RIV@*S9|m>Q&1t%VKHNQ%R=KRUv^e`8u|{
zwUDC~3<V`1pIz|`-qNa&$$yNO+(*yif&|RfLP4I}50!c#ia)9fpf2DmRc{A<EB9(p
z^X<QZ%Cpo~t;y(6rDPd@R9W9L8SkhvB*wccRD-j2%y8+hLJ9czj!;EHRXBIH$CW(`
zFI2Jt_Un$ZP%#d`0q$pFnZZu1kvIeUD7vfE+}Vu&m?OPfJiE`fWjkobA0NUK-z<ck
z)p|8{bl8kLqHJY5qO|Ys7>xgnQ{cM`zA0GSz-G>dL#N*r4DTU|s}Ja>YIi!8GpBd_
zejs6|W7dI8E8Ow*R=6rpHI4J`+jHv#yvpPk|KScu@HdnFreMDnE%(reJK8o2w}B4=
z^atShULbg;KE#pz5#c62+d1?E9e-;YGMtd238~*>n6a{Y7;SbUSP;2q!&$^HRo4&P
zhRyt8oBiv{k&i!z?^Y+!hI0~^fuqLETAf|G(|q8=&n|bns{-dPNMlX=T7~a!J@lUv
z^=9_2!=L})HTISHx@`V$r+=jUo}aaPT~=;cm8oX$M_o66_{kNG3)3vtrseH>|76#l
zL4KnG$A-o%&)j{q^XiWe{Q@+rcOLot*WsF_tF~7(9PPaI?t4!@xV>&5Wyb%k3&g+G
a(b%Wn2m94~dL8Kd9DcsuW2m%l_WuKoHLpkj

diff --git a/textproc.asm b/textproc.asm
index b8748e7..462199a 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -18,11 +18,13 @@
 
     jsr clearscreen   ;let the screen be clean
 
+    mwa #DisplayCopyRom temp
+    mwa #display temp2
+    mwa #DisplayCopyEnd+1 modify
+    jsr CopyFromROM
+
     mwa #OptionsDL dlptrs
-;    lda dmactls
-;    and #$fc
-;    ora #$02     ; normal screen width
-;    lda #%00110010 ; normal screen width, DL on, P/M off
+
     lda #%00111110  ; normal screen width, DL on, P/M on
     sta dmactls
 	jsr SetPMWidth
@@ -42,7 +44,7 @@
     sta mountainDeltaL
 	mva #6 NumberOfPlayers
     jsr PMoutofScreen ;let P/M disappear
-    jsr clearscreen   ;let the screen be clean
+    ;jsr clearscreen   ;let the screen be clean (clean-ish already)
 	jsr ClearPMmemory
     jsr placetanks    ;let the tanks be evenly placed
     jsr calculatemountains ;let mountains be easy for the eye
@@ -284,6 +286,12 @@ AfterManualPurchase
 ; Rest of the data is taken from appropriate tables
 ; and during the purchase these tables are modified.
 
+    mwa #DisplayCopyPurchaseDlROM temp
+    mwa #DisplayCopyPurchase temp2
+    mwa #DisplayCopyPurchaseEnd+1 modify
+    jsr CopyFromROM
+
+
     mwa #ListOfWeapons WeaponsListDL ;switch to the list of offensive weapons
         
 ; we are clearing list of the weapons
@@ -319,7 +327,7 @@ GoToActivation
     tax
 NextChar03
     lda tanksnames,x
-    sta textbuffer2+8,y
+    sta purchaseTextBuffer+8,y
     inx
     iny
     cpy #$08
@@ -337,7 +345,7 @@ AfterPurchase
     sta decimal
     lda moneyH,x
     sta decimal+1
-    mwa #textbuffer2+26 displayposition
+    mwa #purchaseTextBuffer+26 displayposition
     jsr displaydec5
 
     ; in xbyte there is the address of the line that
@@ -2258,9 +2266,9 @@ EndOfCredits
     ;displaying symbol of the weapon
     ;---------------------
     ;display name and symbol of the weapon
-    ;textbuffer+18  - symbol (1 char)
-    ;textbuffer+20  - quantity left
-    ;textbuffer+23  - name
+    ;statusBuffer+18  - symbol (1 char)
+    ;statusBuffer+20  - quantity left
+    ;statusBuffer+23  - name
     ldx TankNr
     ldy ActiveWeapon,x
     lda WeaponSymbols,y
@@ -2513,4 +2521,26 @@ NextChar02
 .endp
 ;-------------------------------------------------
 
+.proc CopyFromROM
+;copy from CART to RAM
+; trashes Y
+; temp: source
+; temp2: destination
+; modify: destination-end
+;usage:
+;    mwa #DisplayCopyRom temp
+;    mwa #display temp2
+;    mwa #DisplayCopyEnd+1 modify
+;    jsr CopyFromROM
+
+    ldy #0
+@     lda (temp),y
+      sta (temp2),y
+      inw temp
+      inw temp2
+      cpw temp2 modify
+    bne @-
+    rts
+.endp
+
 .endif
\ No newline at end of file
diff --git a/variables.asm b/variables.asm
index 14cb87e..3cae787 100644
--- a/variables.asm
+++ b/variables.asm
@@ -47,6 +47,8 @@ linetableL  ; = PMGraph + $0300 - (screenHeight+1)*2
     .ds (screenHeight+1)
 linetableH  ; = PMGraph + $0300 - (screenHeight+1)
     .ds (screenHeight+1)
+DisplayCopyPurchase
+    .ds (DisplayCopyPurchaseEnd - DisplayCopyPurchaseStart +1)
 ;=====================================================
 variablesStart  ; zeroing starts here
 ;=====================================================