to be as it was

definitions.asm

@@ -64,14 +64,14 @@ price_Bal_Guidance___ = $ffff    ;_49
 price_Horz_Guidance__ = $ffff    ;_50
 price_Vert_Guidance__ = $ffff    ;_51
 price_Lazy_Boy_______ = $ffff    ;_52
-price_Parachute______ =   800    ;_53
+price_Parachute______ =    80    ;_53
 price_Battery________ = $ffff    ;_54
-price_Mag_Deflector__ =  1200    ;_55
-price_Shield_________ =   500    ;_56
-price_Force_Shield___ =  2100    ;_57
+price_Mag_Deflector__ =   120    ;_55
+price_Shield_________ =    50    ;_56
+price_Force_Shield___ =   210    ;_57
 price_Heavy_Shield___ = $ffff    ;_58
-price_Super_Mag______ =  1600    ;_59
-price_Auto_Defense___ =  3000    ;_60
+price_Super_Mag______ =   160    ;_59
+price_Auto_Defense___ =   300    ;_60
 price_Fuel_Tank______ = $ffff    ;_61
 price_Contact_Trigger = $ffff    ;_62
 price_White_Flag_____ = $0       ;_63

textproc.asm

@@ -269,6 +269,8 @@ NextChar03
 ; here we must jump in after each purchase
 ; to generate again list of available weapons
 AfterPurchase
+
+    ; current cash display
     mva #sfx_purchase sfx_effect
     ldx tanknr
     lda moneyL,x
@@ -297,7 +299,7 @@ CreateList
     ldy tanknr
     lda moneyH,y
     cmp WeaponPriceH,x
-    bcc @+
+    bne @+
     lda moneyL,y
     cmp WeaponPriceL,x
 @
@@ -683,11 +685,6 @@ PurchaseAll
     lda moneyH,x
     sbc WeaponPriceH,y
     sta moneyH,x
-    bpl positiveMoney
-    ; zero money if money negative... not the fix you are looking for
-    lda #0
-    sta moneyL,x
-    sta moneyH,x
     
 positiveMoney    
     ; save info about price == 0